A1B2Q1 ;JLU/ALB-Contains the logic for the print templates.;1/14/91
;;Version 1.55 (local for MAS v5 sites);;
PG D HOME^%ZIS W @IOF
Q
;
E S DIR(0)="E" D ^DIR K DIR W !!
Q
;
A ;Entry point for inpatient list.
D PG
W !!!!!!!,*7," *** The following report will list ALL the current Admissions. *** ",!!!!!
D E I 'Y Q
S L=0,DIC="^A1B2(11500.2,",FLDS="[A1B2 OUTPUT1]",BY="[A1B2 OUTPUT1]",A1B2FL=11500.2 D DIS^A1B2UTL,EN1^DIP,EX
Q
;
B ;Entry point for dump list.
W !!!!!,*7,?7,"The following report will list all: ","ADMISSIONS",!,?43,"REGISTRATIONS",!,?43,"DISCHARGES",!!,?7," *** This report could be very large. ***",!!!!
D E I 'Y Q
S %IS="NQM" D ^%ZIS K %IS,IOP I POP D EX Q
S ZTIO=ION
I $D(IO("Q"))!(IO'=IO(0)) W !!,"I will queue this report." S ZTRTN="B1^A1B2Q1",ZTDESC="ODS REPORTS" D ^%ZTLOAD D EX Q
B1 S L=0,IOP=ZTIO,DIC="^A1B2(11500.2,",FLDS="[A1B2 OUTPUT2]",BY="[A1B2 OUTPUT2]",A1B2FL=11500.2 D DIS^A1B2UTL,EN1^DIP
B2 S IOP=ZTIO,DIC="^A1B2(11500.4,",FLDS="[A1B2 OUTPUT2]",BY="[A1B2 OUTPUT2]",A1B2FL=11500.4 D DIS^A1B2UTL,EN1^DIP
D EX
Q
;
EX K DIC,L,FLDS,BY,DIS,A1B2IOP,POP,IOP,Y,ZTDESC,ZTIO,ZTRTN,A1B2FL
X ^%ZIS("C")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HA1B2Q1 1185 printed Nov 22, 2024@17:31:28 Page 2
A1B2Q1 ;JLU/ALB-Contains the logic for the print templates.;1/14/91
+1 ;;Version 1.55 (local for MAS v5 sites);;
PG DO HOME^%ZIS
WRITE @IOF
+1 QUIT
+2 ;
E SET DIR(0)="E"
DO ^DIR
KILL DIR
WRITE !!
+1 QUIT
+2 ;
A ;Entry point for inpatient list.
+1 DO PG
+2 WRITE !!!!!!!,*7," *** The following report will list ALL the current Admissions. *** ",!!!!!
+3 DO E
IF 'Y
QUIT
+4 SET L=0
SET DIC="^A1B2(11500.2,"
SET FLDS="[A1B2 OUTPUT1]"
SET BY="[A1B2 OUTPUT1]"
SET A1B2FL=11500.2
DO DIS^A1B2UTL
DO EN1^DIP
DO EX
+5 QUIT
+6 ;
B ;Entry point for dump list.
+1 WRITE !!!!!,*7,?7,"The following report will list all: ","ADMISSIONS",!,?43,"REGISTRATIONS",!,?43,"DISCHARGES",!!,?7," *** This report could be very large. ***",!!!!
+2 DO E
IF 'Y
QUIT
+3 SET %IS="NQM"
DO ^%ZIS
KILL %IS,IOP
IF POP
DO EX
QUIT
+4 SET ZTIO=ION
+5 IF $DATA(IO("Q"))!(IO'=IO(0))
WRITE !!,"I will queue this report."
SET ZTRTN="B1^A1B2Q1"
SET ZTDESC="ODS REPORTS"
DO ^%ZTLOAD
DO EX
QUIT
B1 SET L=0
SET IOP=ZTIO
SET DIC="^A1B2(11500.2,"
SET FLDS="[A1B2 OUTPUT2]"
SET BY="[A1B2 OUTPUT2]"
SET A1B2FL=11500.2
DO DIS^A1B2UTL
DO EN1^DIP
B2 SET IOP=ZTIO
SET DIC="^A1B2(11500.4,"
SET FLDS="[A1B2 OUTPUT2]"
SET BY="[A1B2 OUTPUT2]"
SET A1B2FL=11500.4
DO DIS^A1B2UTL
DO EN1^DIP
+1 DO EX
+2 QUIT
+3 ;
EX KILL DIC,L,FLDS,BY,DIS,A1B2IOP,POP,IOP,Y,ZTDESC,ZTIO,ZTRTN,A1B2FL
+1 XECUTE ^%ZIS("C")
+2 QUIT
