DGPMTS.m

DGPMTS ;ALB/LM - TREATING SPECIALTY INPATIENT PRINT ; 2-2-93

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

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)

DGPMTS    ;ALB/LM - TREATING SPECIALTY INPATIENT PRINT ; 2-2-93

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

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)