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 | |
---|
1 | NURSDD ;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
|
---|
7 | DEV 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
|
---|
10 | LATER S NURSION=ION
|
---|
11 | F NURSFILE=209.99999:0 S NURSFILE=$O(^DIC(NURSFILE)) Q:NURSFILE'<220!(NURSFILE="") D SETVAR,EN^DID
|
---|
12 | QUIT ; KILL LOCAL VARIABLES
|
---|
13 | S:$G(POP) NUROUT=1 D CLOSE^NURSUT1,^NURSKILL
|
---|
14 | Q
|
---|
15 | SETVAR ; 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.