15 lines
630 B
Mathematica
15 lines
630 B
Mathematica
NURSDTMP ;HIRMFO/RM/MD-ROUTINE TO OUTPUT TEMPLATE LISTING FOR NURSING FILES ;12/30/87
|
|
;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|
Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|
S X="DID" X ^%ZOSF("TEST") Q:'$T
|
|
D QUIT,DT^DICRW
|
|
S ZTDESC="Nursing Template Listing",ZTRTN="LATER^NURSDTMP" W ! D EN7^NURSUT0 G:POP!($D(ZTSK)) QUIT
|
|
LATER S NURSION=ION,NURQUEUE=0
|
|
F NURSFILE=209.99999:0 S NURSFILE=$O(^DIC(NURSFILE)) Q:NURSFILE'<220!(NURSFILE="") D SETVAR,EN^DID D ^%ZISC
|
|
QUIT ; KILL LOCAL VARIABLES
|
|
D ^NURSKILL
|
|
Q
|
|
SETVAR ; SETS VARIABLES TO PRINT TEMPLATES
|
|
S DIFORMAT=5,DIC=NURSFILE,IOP=$S(NURQUEUE:"Q;",1:"")_NURSION
|
|
Q
|