source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURSDD.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 852 bytes
Line 
1NURSDD ;HIRMFO/RM-THIS ROUTINE PRINTS OUT DD'S FOR NURSING FILES ;12/30/87
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3 ;LAST MODIFIED BY RM;12/30/87
4 Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
5 S X="DID" X ^%ZOSF("TEST") Q:'$T
6 D DT^DICRW S NURQUEUE=0
7DEV S %ZIS="Q" D ^%ZIS K %ZIS K:POP IO("Q") G:POP QUIT I '($E(IOST)="P"),'$D(IO("Q")) S XQH="NURS-PRINTER QUEUE" W $C(7) D EN^XQH D ^%ZISC G DEV
8 S NURQUEUE=0 I $D(IO("Q")) K IO("Q"),IO("C") S NURQUEUE=1,ZTDESC="Nursing DD Listing",ZTRTN="LATER^NURSDD",ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL D ^%ZTLOAD S NURQUEUE=0
9 Q
10LATER S NURSION=ION
11 F NURSFILE=209.99999:0 S NURSFILE=$O(^DIC(NURSFILE)) Q:NURSFILE'<220!(NURSFILE="") D SETVAR,EN^DID
12QUIT ; KILL LOCAL VARIABLES
13 S:$G(POP) NUROUT=1 D CLOSE^NURSUT1,^NURSKILL
14 Q
15SETVAR ; SETS VARIABLES TO PRINT DD
16 S DIC=NURSFILE,DIFORMAT=1,IOP=ION
17 Q
Note: See TracBrowser for help on using the repository browser.