FHSYSF ; HISC/REL - File Manager Search/Print ;7/8/93 13:34
;;5.5;DIETETICS;;Jan 28, 2005
PRNT ; File Manager Print
D DICRW Q:Y<1 S L=1 D EN1^DIP G KIL
SRCH ; File Manager Search
D DICRW Q:Y<1 D EN^DIS G KIL
DIC ; List Dictionary
W ! D ^DID G KIL
INQ ; Inquire to File
D DICRW Q:Y<1 S DI=DIC,DPP(1)=+Y_"^^^@",DK=+Y
D B^DII G KIL
DICRW ; Select File
K ^UTILITY($J),%,%ZIS,DTOUT,DC,O,N,R,BY,DA,DHD,DI,DIC,DPP,DK,DIQ,DIS,DUOUT,FR,L,TO
D NOW^%DTC S DT=%\1 K %,%H,%I
S DIC="^DIC(",DIC("S")="I +Y>109.99,+Y<120",DIC(0)="AEQM",DIC("A")="OUTPUT FROM WHAT FILE: "
W ! D ^DIC K DIC I $D(DTOUT)!(Y<1) Q
I $D(^DIC(+Y,0,"GL")) K DIC S DIC=^("GL") Q
K DIC S Y=-1 Q
KIL ; Kill Variables
G KILL^XUSCLEAN
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFHSYSF 726 printed Nov 22, 2024@17:05:20 Page 2
FHSYSF ; HISC/REL - File Manager Search/Print ;7/8/93 13:34
+1 ;;5.5;DIETETICS;;Jan 28, 2005
PRNT ; File Manager Print
+1 DO DICRW
if Y<1
QUIT
SET L=1
DO EN1^DIP
GOTO KIL
SRCH ; File Manager Search
+1 DO DICRW
if Y<1
QUIT
DO EN^DIS
GOTO KIL
DIC ; List Dictionary
+1 WRITE !
DO ^DID
GOTO KIL
INQ ; Inquire to File
+1 DO DICRW
if Y<1
QUIT
SET DI=DIC
SET DPP(1)=+Y_"^^^@"
SET DK=+Y
+2 DO B^DII
GOTO KIL
DICRW ; Select File
+1 KILL ^UTILITY($JOB),%,%ZIS,DTOUT,DC,O,N,R,BY,DA,DHD,DI,DIC,DPP,DK,DIQ,DIS,DUOUT,FR,L,TO
+2 DO NOW^%DTC
SET DT=%\1
KILL %,%H,%I
+3 SET DIC="^DIC("
SET DIC("S")="I +Y>109.99,+Y<120"
SET DIC(0)="AEQM"
SET DIC("A")="OUTPUT FROM WHAT FILE: "
+4 WRITE !
DO ^DIC
KILL DIC
IF $DATA(DTOUT)!(Y<1)
QUIT
+5 IF $DATA(^DIC(+Y,0,"GL"))
KILL DIC
SET DIC=^("GL")
QUIT
+6 KILL DIC
SET Y=-1
QUIT
KIL ; Kill Variables
+1 GOTO KILL^XUSCLEAN
