ADGSVQ.m

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

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

 ;

TITLE W @IOF,!!!?22,"INPATIENT SERVICES REPORT BY RANGE OF MONTHS",!

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

 ;

DATE S %DT="AEQ",%DT("A")="Select starting month: ",X=""

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

 S %DT("A")="Select ending month: ",X=""

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

 ;

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

QUE K IO("Q") S ZTRTN="^ADGSVC" S ZTDESC="INPATIENT REPORT BY RANGE OF MONTHS"

 S ZTSAVE("DGSMON")="",ZTSAVE("DGEMON")="" D ^%ZTLOAD D ^%ZISC K ZTSK

 ;

END K Y,DGSMON,DGEMON D HOME^%ZIS Q

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

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

 +2       ;

TITLE      WRITE @IOF,!!!?22,"INPATIENT SERVICES REPORT BY RANGE OF MONTHS",!

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

 +2       ;

DATE       SET %DT="AEQ"

           SET %DT("A")="Select starting month: "

           SET X=""

 +1        DO ^%DT

           IF Y=-1

               GOTO END

           SET DGSMON=Y

 +2        SET %DT("A")="Select ending month: "

           SET X=""

 +3        DO ^%DT

           IF Y=-1

               GOTO END

           SET DGEMON=Y

 +4       ;

 +5        SET %ZIS="PQ"

           DO ^%ZIS

           IF POP

               GOTO END

           IF $DATA(IO("Q"))

               GOTO QUE

           USE IO

           GOTO ^ADGSVC

QUE        KILL IO("Q")

           SET ZTRTN="^ADGSVC"

           SET ZTDESC="INPATIENT REPORT BY RANGE OF MONTHS"

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

           SET ZTSAVE("DGEMON")=""

           DO ^%ZTLOAD

           DO ^%ZISC

           KILL ZTSK

 +2       ;

END        KILL Y,DGSMON,DGEMON

           DO HOME^%ZIS

           QUIT