Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
852 bytes
|
Rev | Line | |
---|
[613] | 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.