| 1 | A1B2Q1 ;JLU/ALB-Contains the logic for the print templates.;1/14/91
|
|---|
| 2 | ;;Version 1.55 (local for MAS v5 sites);;
|
|---|
| 3 | PG D HOME^%ZIS W @IOF
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | E S DIR(0)="E" D ^DIR K DIR W !!
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | A ;Entry point for inpatient list.
|
|---|
| 10 | D PG
|
|---|
| 11 | W !!!!!!!,*7," *** The following report will list ALL the current Admissions. *** ",!!!!!
|
|---|
| 12 | D E I 'Y Q
|
|---|
| 13 | S L=0,DIC="^A1B2(11500.2,",FLDS="[A1B2 OUTPUT1]",BY="[A1B2 OUTPUT1]",A1B2FL=11500.2 D DIS^A1B2UTL,EN1^DIP,EX
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | B ;Entry point for dump list.
|
|---|
| 17 | W !!!!!,*7,?7,"The following report will list all: ","ADMISSIONS",!,?43,"REGISTRATIONS",!,?43,"DISCHARGES",!!,?7," *** This report could be very large. ***",!!!!
|
|---|
| 18 | D E I 'Y Q
|
|---|
| 19 | S %IS="NQM" D ^%ZIS K %IS,IOP I POP D EX Q
|
|---|
| 20 | S ZTIO=ION
|
|---|
| 21 | 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
|
|---|
| 22 | B1 S L=0,IOP=ZTIO,DIC="^A1B2(11500.2,",FLDS="[A1B2 OUTPUT2]",BY="[A1B2 OUTPUT2]",A1B2FL=11500.2 D DIS^A1B2UTL,EN1^DIP
|
|---|
| 23 | B2 S IOP=ZTIO,DIC="^A1B2(11500.4,",FLDS="[A1B2 OUTPUT2]",BY="[A1B2 OUTPUT2]",A1B2FL=11500.4 D DIS^A1B2UTL,EN1^DIP
|
|---|
| 24 | D EX
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | EX K DIC,L,FLDS,BY,DIS,A1B2IOP,POP,IOP,Y,ZTDESC,ZTIO,ZTRTN,A1B2FL
|
|---|
| 28 | X ^%ZIS("C")
|
|---|
| 29 | Q
|
|---|
