| [613] | 1 | DGPMTS ;ALB/LM - TREATING SPECIALTY INPATIENT PRINT ; 2-2-93
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | EN ;
|
|---|
| 4 | S %DT="AEPX"
|
|---|
| 5 | S %DT("A")="Select Date for Treating Specialty Inpatient Information: "
|
|---|
| 6 | W ! D ^%DT K %DT G ENQ:Y'>0
|
|---|
| 7 | S DGTSDT=Y_".2400"
|
|---|
| 8 | S PTLWD=1,X="Patient Listing by Ward" D READ Q:E S:'X1 PTLWD=0
|
|---|
| 9 | S PTLTS=1,X="Patient Listing by Treating Specialty" D READ Q:E S:'X1 PTLTS=0
|
|---|
| 10 | S PTCTS=1,X="Patient Counts by Treating Specialty" D READ Q:E S:'X1 PTCTS=0
|
|---|
| 11 | I 'PTLWD,'PTLTS,'PTCTS W !!,"Nothing Selected!",*7 G ENQ
|
|---|
| 12 | S %ZIS="PMQ" D ^%ZIS I POP G ENQ
|
|---|
| 13 | I '$D(IO("Q")) D START^DGPMTSI G ENQ
|
|---|
| 14 | S Y=$$QUE
|
|---|
| 15 | ENQ D:'$D(ZTQUEUED) ^%ZISC
|
|---|
| 16 | K DGTSDT,PTLWD,PTLTS,PTCTS,E
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | READ S E=0 W !!,"Print ",X S %=1 D YN^DICN I % S X1=$S(%=1:%,1:0) S:%=-1 E=2 Q
|
|---|
| 20 | W !?4,"Answer YES if you wish to generate a ",X,!?4,"for this date ...Otherwise answer NO." G READ
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | QUE() ; -- que job
|
|---|
| 24 | ; return: did job que [ 1|yes 0|no ]
|
|---|
| 25 | ;
|
|---|
| 26 | K ZTSK,IO("Q")
|
|---|
| 27 | S ZTDESC="Treating Specialty Inpatient Information List"
|
|---|
| 28 | S ZTSAVE("DGTSDT")=""
|
|---|
| 29 | S ZTSAVE("PTLWD")=""
|
|---|
| 30 | S ZTSAVE("PTLTS")=""
|
|---|
| 31 | S ZTSAVE("PTCTS")=""
|
|---|
| 32 | S ZTRTN="START^DGPMTSI"
|
|---|
| 33 | D ^%ZTLOAD W:$D(ZTSK) " (Task: ",ZTSK,")"
|
|---|
| 34 | Q $D(ZTSK)
|
|---|
