- 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 Mar 13, 2025@21:26:12 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
