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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURSDTMP 644 printed Dec 13, 2024@02:21:58 Page 2
NURSDTMP ;HIRMFO/RM/MD-ROUTINE TO OUTPUT TEMPLATE LISTING FOR NURSING FILES ;12/30/87
+1 ;;4.0;NURSING SERVICE;;Apr 25, 1997
+2 if '$DATA(^DIC(213.9,1,"OFF"))
QUIT
if $PIECE(^DIC(213.9,1,"OFF"),"^",1)=1
QUIT
+3 SET X="DID"
XECUTE ^%ZOSF("TEST")
if '$TEST
QUIT
+4 DO QUIT
DO DT^DICRW
+5 SET ZTDESC="Nursing Template Listing"
SET ZTRTN="LATER^NURSDTMP"
WRITE !
DO EN7^NURSUT0
if POP!($DATA(ZTSK))
GOTO QUIT
LATER SET NURSION=ION
SET NURQUEUE=0
+1 FOR NURSFILE=209.99999:0
SET NURSFILE=$ORDER(^DIC(NURSFILE))
if NURSFILE'<220!(NURSFILE="")
QUIT
DO SETVAR
DO EN^DID
DO ^%ZISC
QUIT ; KILL LOCAL VARIABLES
+1 DO ^NURSKILL
+2 QUIT
SETVAR ; SETS VARIABLES TO PRINT TEMPLATES
+1 SET DIFORMAT=5
SET DIC=NURSFILE
SET IOP=$SELECT(NURQUEUE:"Q;",1:"")_NURSION
+2 QUIT
