ADGSRVQ.m

ADGSRVQ ; IHS/ADC/PDW/ENM - HSA-202 QUEUE ; [ 03/25/1999  11:48 AM ]

 ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 ;

TITLE W @IOF,!!!?22,"MONTHLY REPORT OF INPATIENT SERVICES",!

 W ?34,"(HSA-202-1)",!!

 ;

DATE S %DT="AEQ",%DT(0)="-NOW",%DT("A")="Print report for which month: ",X=""

 D ^%DT G END:Y=-1 S DGMON=Y

 ;

 S %ZIS="PQ" D ^%ZIS G END:POP,QUE:$D(IO("Q")) U IO G ^ADGSRVC

QUE K IO("Q") S ZTRTN="^ADGSRVC" S ZTDESC="MONTHLY INPATIENT REPORT"

 S ZTSAVE("DGMON")="" D ^%ZTLOAD D ^%ZISC K ZTSK

 ;

END K Y,DGMON D HOME^%ZIS Q

ADGSRVQ   ; IHS/ADC/PDW/ENM - HSA-202 QUEUE ; [ 03/25/1999  11:48 AM ]

 +1       ;;5.0;ADMISSION/DISCHARGE/TRANSFER;;MAR 25, 1999

 +2       ;

TITLE      WRITE @IOF,!!!?22,"MONTHLY REPORT OF INPATIENT SERVICES",!

 +1        WRITE ?34,"(HSA-202-1)",!!

 +2       ;

DATE       SET %DT="AEQ"

           SET %DT(0)="-NOW"

           SET %DT("A")="Print report for which month: "

           SET X=""

 +1        DO ^%DT

           IF Y=-1

               GOTO END

           SET DGMON=Y

 +2       ;

 +3        SET %ZIS="PQ"

           DO ^%ZIS

           IF POP

               GOTO END

           IF $DATA(IO("Q"))

               GOTO QUE

           USE IO

           GOTO ^ADGSRVC

QUE        KILL IO("Q")

           SET ZTRTN="^ADGSRVC"

           SET ZTDESC="MONTHLY INPATIENT REPORT"

 +1        SET ZTSAVE("DGMON")=""

           DO ^%ZTLOAD

           DO ^%ZISC

           KILL ZTSK

 +2       ;

END        KILL Y,DGMON

           DO HOME^%ZIS

           QUIT