Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: NURSDTMP

NURSDTMP.m

Go to the documentation of this file.
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