DGPMTS ;ALB/LM - TREATING SPECIALTY INPATIENT PRINT ; 2-2-93
;;5.3;Registration;;Aug 13, 1993
EN ;
S %DT="AEPX"
S %DT("A")="Select Date for Treating Specialty Inpatient Information: "
W ! D ^%DT K %DT G ENQ:Y'>0
S DGTSDT=Y_".2400"
S PTLWD=1,X="Patient Listing by Ward" D READ Q:E S:'X1 PTLWD=0
S PTLTS=1,X="Patient Listing by Treating Specialty" D READ Q:E S:'X1 PTLTS=0
S PTCTS=1,X="Patient Counts by Treating Specialty" D READ Q:E S:'X1 PTCTS=0
I 'PTLWD,'PTLTS,'PTCTS W !!,"Nothing Selected!",*7 G ENQ
S %ZIS="PMQ" D ^%ZIS I POP G ENQ
I '$D(IO("Q")) D START^DGPMTSI G ENQ
S Y=$$QUE
ENQ D:'$D(ZTQUEUED) ^%ZISC
K DGTSDT,PTLWD,PTLTS,PTCTS,E
Q
;
READ S E=0 W !!,"Print ",X S %=1 D YN^DICN I % S X1=$S(%=1:%,1:0) S:%=-1 E=2 Q
W !?4,"Answer YES if you wish to generate a ",X,!?4,"for this date ...Otherwise answer NO." G READ
Q
;
QUE() ; -- que job
; return: did job que [ 1|yes 0|no ]
;
K ZTSK,IO("Q")
S ZTDESC="Treating Specialty Inpatient Information List"
S ZTSAVE("DGTSDT")=""
S ZTSAVE("PTLWD")=""
S ZTSAVE("PTLTS")=""
S ZTSAVE("PTCTS")=""
S ZTRTN="START^DGPMTSI"
D ^%ZTLOAD W:$D(ZTSK) " (Task: ",ZTSK,")"
Q $D(ZTSK)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPMTS 1188 printed Oct 16, 2024@18:50:30 Page 2
DGPMTS ;ALB/LM - TREATING SPECIALTY INPATIENT PRINT ; 2-2-93
+1 ;;5.3;Registration;;Aug 13, 1993
EN ;
+1 SET %DT="AEPX"
+2 SET %DT("A")="Select Date for Treating Specialty Inpatient Information: "
+3 WRITE !
DO ^%DT
KILL %DT
if Y'>0
GOTO ENQ
+4 SET DGTSDT=Y_".2400"
+5 SET PTLWD=1
SET X="Patient Listing by Ward"
DO READ
if E
QUIT
if 'X1
SET PTLWD=0
+6 SET PTLTS=1
SET X="Patient Listing by Treating Specialty"
DO READ
if E
QUIT
if 'X1
SET PTLTS=0
+7 SET PTCTS=1
SET X="Patient Counts by Treating Specialty"
DO READ
if E
QUIT
if 'X1
SET PTCTS=0
+8 IF 'PTLWD
IF 'PTLTS
IF 'PTCTS
WRITE !!,"Nothing Selected!",*7
GOTO ENQ
+9 SET %ZIS="PMQ"
DO ^%ZIS
IF POP
GOTO ENQ
+10 IF '$DATA(IO("Q"))
DO START^DGPMTSI
GOTO ENQ
+11 SET Y=$$QUE
ENQ if '$DATA(ZTQUEUED)
DO ^%ZISC
+1 KILL DGTSDT,PTLWD,PTLTS,PTCTS,E
+2 QUIT
+3 ;
READ SET E=0
WRITE !!,"Print ",X
SET %=1
DO YN^DICN
IF %
SET X1=$SELECT(%=1:%,1:0)
if %=-1
SET E=2
QUIT
+1 WRITE !?4,"Answer YES if you wish to generate a ",X,!?4,"for this date ...Otherwise answer NO."
GOTO READ
+2 QUIT
+3 ;
QUE() ; -- que job
+1 ; return: did job que [ 1|yes 0|no ]
+2 ;
+3 KILL ZTSK,IO("Q")
+4 SET ZTDESC="Treating Specialty Inpatient Information List"
+5 SET ZTSAVE("DGTSDT")=""
+6 SET ZTSAVE("PTLWD")=""
+7 SET ZTSAVE("PTLTS")=""
+8 SET ZTSAVE("PTCTS")=""
+9 SET ZTRTN="START^DGPMTSI"
+10 DO ^%ZTLOAD
if $DATA(ZTSK)
WRITE " (Task: ",ZTSK,")"
+11 QUIT $DATA(ZTSK)
