NURSDTMP.m

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

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