- 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
- 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