Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ADGSVQ

ADGSVQ.m

Go to the documentation of this file.
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