- 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
