source: FOIAVistA/trunk/r/OPERATIONS_WITH_DESERT_STORM-A1B2/A1B2OLC.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1A1B2OLC ;ALB/MJK - ODS Local Outputs; JAN 13,1991
2 ;;Version 1.55 (local for MAS v5 sites);;
3 ;
4EN D DT^DICRW S X=$T(+1),DIK="^DOPT(""A1B2OLC"","
5 G A:$D(^DOPT("A1B2OLC",7))
6 S ^DOPT("A1B2OLC",0)="ODS Local Output Options^1N^"
7 F I=1:1 S Y=$T(@I) Q:Y="" S ^DOPT("A1B2OLC",I,0)=$P(Y,";",3,99)
8 D IXALL^DIK
9 ;
10A W !! S DIC="^DOPT(""A1B2OLC"",",DIC(0)="IQEAM"
11 D ^DIC Q:Y<0 D @+Y G A
12 ;
131 ;;ODS Patient Inquiry
14 Q
15 ;
162 ;;ODS Inpatient List
17 Q
18 ;
193 ;;Statistical Summary
20 Q
21 ;
224 ;;[reserved]
23 Q
24 ;
255 ;;Admission Date Range List
26 W !!,"ODS Admission Date Range Listing",!!
27 S L=0,DIC="^A1B2(11500.2,",A1B2FL=11500.2 D DIS^A1B2UTL
28 S (FLDS,BY)="[A1B2 OLC ADMIT]",FR=",?",TO=",?"
29 D EN1^DIP
30Q K %DT,POP,DIS,FLDS,BY,FR,TO,L,DIC,A1B2FL Q
31 ;
326 ;;Discharge Date Range List
33 W !!,"ODS Discharge Date Range Listing",!!
34 S L=0,DIC="^A1B2(11500.2,",A1B2FL=11500.2 D DIS^A1B2UTL
35 S (FLDS,BY)="[A1B2 OLC DISCH]",FR=",?",TO=",?"
36 D EN1^DIP G Q
37 ;
387 ;;Displaced Patient List
39 W !!,"Displaced Patient Listing",!!
40 S L=0,DIC="^A1B2(11500.3,",A1B2FL=11500.3 D DIS^A1B2UTL
41 S FLDS="[A1B2 OLC DISPLACED]",FR=",?",TO=",?",BY="@.02:.02,@.01"
42 D EN1^DIP G Q
43 ;
448 ;;Registrations w/o Admissions
45 W !!,"Registrations w/o Admissions Listing",!!
46 S L=0,DIC="^A1B2(11500.4,",A1B2FL=11500.4 D DIS^A1B2UTL
47 S BY="@.02:.02,@.01",FR=",?",TO=",?",L=0,FLDS="[A1B2 OLC REGIS]"
48 D EN1^DIP G Q
49 ;
Note: See TracBrowser for help on using the repository browser.