|
Last change
on this file since 767 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
630 bytes
|
| Line | |
|---|
| 1 | NURSDTMP ;HIRMFO/RM/MD-ROUTINE TO OUTPUT TEMPLATE LISTING FOR NURSING FILES ;12/30/87
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | Q:'$D(^DIC(213.9,1,"OFF")) Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1
|
|---|
| 4 | S X="DID" X ^%ZOSF("TEST") Q:'$T
|
|---|
| 5 | D QUIT,DT^DICRW
|
|---|
| 6 | S ZTDESC="Nursing Template Listing",ZTRTN="LATER^NURSDTMP" W ! D EN7^NURSUT0 G:POP!($D(ZTSK)) QUIT
|
|---|
| 7 | LATER S NURSION=ION,NURQUEUE=0
|
|---|
| 8 | F NURSFILE=209.99999:0 S NURSFILE=$O(^DIC(NURSFILE)) Q:NURSFILE'<220!(NURSFILE="") D SETVAR,EN^DID D ^%ZISC
|
|---|
| 9 | QUIT ; KILL LOCAL VARIABLES
|
|---|
| 10 | D ^NURSKILL
|
|---|
| 11 | Q
|
|---|
| 12 | SETVAR ; SETS VARIABLES TO PRINT TEMPLATES
|
|---|
| 13 | S DIFORMAT=5,DIC=NURSFILE,IOP=$S(NURQUEUE:"Q;",1:"")_NURSION
|
|---|
| 14 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
