source: FOIAVistA/trunk/r/OPERATIONS_WITH_DESERT_STORM-A1B2/A1B2Q1.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1A1B2Q1 ;JLU/ALB-Contains the logic for the print templates.;1/14/91
2 ;;Version 1.55 (local for MAS v5 sites);;
3PG D HOME^%ZIS W @IOF
4 Q
5 ;
6E S DIR(0)="E" D ^DIR K DIR W !!
7 Q
8 ;
9A ;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 ;
16B ;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
22B1 S L=0,IOP=ZTIO,DIC="^A1B2(11500.2,",FLDS="[A1B2 OUTPUT2]",BY="[A1B2 OUTPUT2]",A1B2FL=11500.2 D DIS^A1B2UTL,EN1^DIP
23B2 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 ;
27EX K DIC,L,FLDS,BY,DIS,A1B2IOP,POP,IOP,Y,ZTDESC,ZTIO,ZTRTN,A1B2FL
28 X ^%ZIS("C")
29 Q
Note: See TracBrowser for help on using the repository browser.