| 1 | FHSYSF ; HISC/REL - File Manager Search/Print ;7/8/93 13:34
|
|---|
| 2 | ;;5.5;DIETETICS;;Jan 28, 2005
|
|---|
| 3 | PRNT ; File Manager Print
|
|---|
| 4 | D DICRW Q:Y<1 S L=1 D EN1^DIP G KIL
|
|---|
| 5 | SRCH ; File Manager Search
|
|---|
| 6 | D DICRW Q:Y<1 D EN^DIS G KIL
|
|---|
| 7 | DIC ; List Dictionary
|
|---|
| 8 | W ! D ^DID G KIL
|
|---|
| 9 | INQ ; Inquire to File
|
|---|
| 10 | D DICRW Q:Y<1 S DI=DIC,DPP(1)=+Y_"^^^@",DK=+Y
|
|---|
| 11 | D B^DII G KIL
|
|---|
| 12 | DICRW ; Select File
|
|---|
| 13 | K ^UTILITY($J),%,%ZIS,DTOUT,DC,O,N,R,BY,DA,DHD,DI,DIC,DPP,DK,DIQ,DIS,DUOUT,FR,L,TO
|
|---|
| 14 | D NOW^%DTC S DT=%\1 K %,%H,%I
|
|---|
| 15 | S DIC="^DIC(",DIC("S")="I +Y>109.99,+Y<120",DIC(0)="AEQM",DIC("A")="OUTPUT FROM WHAT FILE: "
|
|---|
| 16 | W ! D ^DIC K DIC I $D(DTOUT)!(Y<1) Q
|
|---|
| 17 | I $D(^DIC(+Y,0,"GL")) K DIC S DIC=^("GL") Q
|
|---|
| 18 | K DIC S Y=-1 Q
|
|---|
| 19 | KIL ; Kill Variables
|
|---|
| 20 | G KILL^XUSCLEAN
|
|---|
