NURSFMU ;HIRMFO/RM-NURSING FILEMAN ROUTINE ;10/05/95
;;4.0;NURSING SERVICE;;Apr 25, 1997
EN1 ; PRINT FILE ENTRIES
D DICRW G:NURSOUT QUIT S L=1 D EN1^DIP
G QUIT
EN2 ; SEARCH FILE ENTRIES
D DICRW G:NURSOUT QUIT D EN^DIS
G QUIT
EN3 ; INQUIRE FILE ENTRIES
D DICRW G:NURSOUT QUIT D CHOOSE G:NURSOUT QUIT D SELECT G:NURSOUT QUIT D CAPT:NURSCH=1,NOCAPT:NURSCH=2 G QUIT
G QUIT
EN4 ; LIST FILE ATTRIBUTES
D DICRW G:NURSOUT QUIT D EN^DID
G QUIT
QUIT D ^NURSKILL
Q
DICRW ;
D QUIT S NURSOUT=0,DIC=1,DIC(0)="AEQM",DIC("S")="I DUZ(0)=""@""!(+Y>124&(+Y<124.4))!(+Y>120.4&(+Y<120.58))!(+Y>209.999&(+Y<220))!(+Y=200)",DIC("A")="OUTPUT FROM WHAT FILE: " D ^DIC K DIC I +Y'>0 S NURSOUT=1
E S NURSDIC=+Y,DIC=$S($D(^DIC(+Y,0,"GL")):^("GL"),1:""),NURSOUT=$S(DIC']"":1,1:NURSOUT)
Q
CHOOSE ;
S DIC(0)="AEQM" S:$D(NURSCHOS) DIC("A")="ANOTHER ONE: " D ^DIC K DIC("A") I +Y'>0 S:$D(DTOUT)!$D(DUOUT)!'$D(NURSCHOS) NURSOUT=1 Q
S NURSCHOS(+Y)=""
G CHOOSE
SELECT ;
W !,"STANDARD CAPTIONED OUTPUT" S %=1 D YN^DICN S:%=-1 NURSOUT=1 S NURSCH=% Q:NURSCH'=0 W !,$C(7),?3,"Answer YES if you want the report in standard captioned form,",!?3,"else answer NO."
G SELECT
CAPT ;
W !,"DISPLAY COMPUTED FIELDS" S %=2 D YN^DICN Q:%=-1
I '% W !,$C(7),?3,"Answer YES if you wish to see the computed fields for this file,",!?3,"else answer NO." G CAPT
S DIQ(0)=$S(%=1:"C",1:"")
F DA=0:0 S DA=$O(NURSCHOS(DA)) Q:DA'>0 W ! D EN^DIQ,NEXT:$O(NURSCHOS(DA))>0 Q:NURSOUT
Q
NEXT ;
W !,"DO YOU WANT TO CONTINUE" S %="" D YN^DICN I '% W !,$C(7),?3,"Answer YES if you wish to see the rest,",!?3,"or NO if you wish to stop" G NEXT
S:%=2!(%=-1) NURSOUT=1
Q
NOCAPT ;
S DHD=$S($D(^DIC(NURSDIC,0)):$P(^(0),"^")_" ",1:"")_"LIST",L=0,BY=".01",(FR,TO)="",DIS(0)="I $D(NURSCHOS(D0))" D EN1^DIP
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURSFMU 1799 printed Oct 16, 2024@18:22:58 Page 2
NURSFMU ;HIRMFO/RM-NURSING FILEMAN ROUTINE ;10/05/95
+1 ;;4.0;NURSING SERVICE;;Apr 25, 1997
EN1 ; PRINT FILE ENTRIES
+1 DO DICRW
if NURSOUT
GOTO QUIT
SET L=1
DO EN1^DIP
+2 GOTO QUIT
EN2 ; SEARCH FILE ENTRIES
+1 DO DICRW
if NURSOUT
GOTO QUIT
DO EN^DIS
+2 GOTO QUIT
EN3 ; INQUIRE FILE ENTRIES
+1 DO DICRW
if NURSOUT
GOTO QUIT
DO CHOOSE
if NURSOUT
GOTO QUIT
DO SELECT
if NURSOUT
GOTO QUIT
if NURSCH=1
DO CAPT
if NURSCH=2
DO NOCAPT
GOTO QUIT
+2 GOTO QUIT
EN4 ; LIST FILE ATTRIBUTES
+1 DO DICRW
if NURSOUT
GOTO QUIT
DO EN^DID
+2 GOTO QUIT
QUIT DO ^NURSKILL
+1 QUIT
DICRW ;
+1 DO QUIT
SET NURSOUT=0
SET DIC=1
SET DIC(0)="AEQM"
SET DIC("S")="I DUZ(0)=""@""!(+Y>124&(+Y<124.4))!(+Y>120.4&(+Y<120.58))!(+Y>209.999&(+Y<220))!(+Y=200)"
SET DIC("A")="OUTPUT FROM WHAT FILE: "
DO ^DIC
KILL DIC
IF +Y'>0
SET NURSOUT=1
+2 IF '$TEST
SET NURSDIC=+Y
SET DIC=$SELECT($DATA(^DIC(+Y,0,"GL")):^("GL"),1:"")
SET NURSOUT=$SELECT(DIC']"":1,1:NURSOUT)
+3 QUIT
CHOOSE ;
+1 SET DIC(0)="AEQM"
if $DATA(NURSCHOS)
SET DIC("A")="ANOTHER ONE: "
DO ^DIC
KILL DIC("A")
IF +Y'>0
if $DATA(DTOUT)!$DATA(DUOUT)!'$DATA(NURSCHOS)
SET NURSOUT=1
QUIT
+2 SET NURSCHOS(+Y)=""
+3 GOTO CHOOSE
SELECT ;
+1 WRITE !,"STANDARD CAPTIONED OUTPUT"
SET %=1
DO YN^DICN
if %=-1
SET NURSOUT=1
SET NURSCH=%
if NURSCH'=0
QUIT
WRITE !,$CHAR(7),?3,"Answer YES if you want the report in standard captioned form,",!?3,"else answer NO."
+2 GOTO SELECT
CAPT ;
+1 WRITE !,"DISPLAY COMPUTED FIELDS"
SET %=2
DO YN^DICN
if %=-1
QUIT
+2 IF '%
WRITE !,$CHAR(7),?3,"Answer YES if you wish to see the computed fields for this file,",!?3,"else answer NO."
GOTO CAPT
+3 SET DIQ(0)=$SELECT(%=1:"C",1:"")
+4 FOR DA=0:0
SET DA=$ORDER(NURSCHOS(DA))
if DA'>0
QUIT
WRITE !
DO EN^DIQ
if $ORDER(NURSCHOS(DA))>0
DO NEXT
if NURSOUT
QUIT
+5 QUIT
NEXT ;
+1 WRITE !,"DO YOU WANT TO CONTINUE"
SET %=""
DO YN^DICN
IF '%
WRITE !,$CHAR(7),?3,"Answer YES if you wish to see the rest,",!?3,"or NO if you wish to stop"
GOTO NEXT
+2 if %=2!(%=-1)
SET NURSOUT=1
+3 QUIT
NOCAPT ;
+1 SET DHD=$SELECT($DATA(^DIC(NURSDIC,0)):$PIECE(^(0),"^")_" ",1:"")_"LIST"
SET L=0
SET BY=".01"
SET (FR,TO)=""
SET DIS(0)="I $D(NURSCHOS(D0))"
DO EN1^DIP
+2 QUIT
