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