| 1 | NURSFMU ;HIRMFO/RM-NURSING FILEMAN ROUTINE ;10/05/95
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | EN1 ; PRINT FILE ENTRIES
|
|---|
| 4 | D DICRW G:NURSOUT QUIT S L=1 D EN1^DIP
|
|---|
| 5 | G QUIT
|
|---|
| 6 | EN2 ; SEARCH FILE ENTRIES
|
|---|
| 7 | D DICRW G:NURSOUT QUIT D EN^DIS
|
|---|
| 8 | G QUIT
|
|---|
| 9 | EN3 ; INQUIRE FILE ENTRIES
|
|---|
| 10 | D DICRW G:NURSOUT QUIT D CHOOSE G:NURSOUT QUIT D SELECT G:NURSOUT QUIT D CAPT:NURSCH=1,NOCAPT:NURSCH=2 G QUIT
|
|---|
| 11 | G QUIT
|
|---|
| 12 | EN4 ; LIST FILE ATTRIBUTES
|
|---|
| 13 | D DICRW G:NURSOUT QUIT D EN^DID
|
|---|
| 14 | G QUIT
|
|---|
| 15 | QUIT D ^NURSKILL
|
|---|
| 16 | Q
|
|---|
| 17 | DICRW ;
|
|---|
| 18 | 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
|
|---|
| 19 | E S NURSDIC=+Y,DIC=$S($D(^DIC(+Y,0,"GL")):^("GL"),1:""),NURSOUT=$S(DIC']"":1,1:NURSOUT)
|
|---|
| 20 | Q
|
|---|
| 21 | CHOOSE ;
|
|---|
| 22 | 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
|
|---|
| 23 | S NURSCHOS(+Y)=""
|
|---|
| 24 | G CHOOSE
|
|---|
| 25 | SELECT ;
|
|---|
| 26 | 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."
|
|---|
| 27 | G SELECT
|
|---|
| 28 | CAPT ;
|
|---|
| 29 | W !,"DISPLAY COMPUTED FIELDS" S %=2 D YN^DICN Q:%=-1
|
|---|
| 30 | I '% W !,$C(7),?3,"Answer YES if you wish to see the computed fields for this file,",!?3,"else answer NO." G CAPT
|
|---|
| 31 | S DIQ(0)=$S(%=1:"C",1:"")
|
|---|
| 32 | F DA=0:0 S DA=$O(NURSCHOS(DA)) Q:DA'>0 W ! D EN^DIQ,NEXT:$O(NURSCHOS(DA))>0 Q:NURSOUT
|
|---|
| 33 | Q
|
|---|
| 34 | NEXT ;
|
|---|
| 35 | 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
|
|---|
| 36 | S:%=2!(%=-1) NURSOUT=1
|
|---|
| 37 | Q
|
|---|
| 38 | NOCAPT ;
|
|---|
| 39 | 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
|
|---|
| 40 | Q
|
|---|
