source: FOIAVistA/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSAHOC.m@ 765

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

initial load of FOIAVistA 6/30/08 version

File size: 986 bytes
Line 
1QAOSAHOC ;HISC/DAD-AD HOC REPORT INTERFACE FOR THE QA OCCURRENCE SCREEN FILE (#741) ;7/9/93 13:28
2 ;;3.0;Occurrence Screen;;09/14/1993
3EN ;
4 S QAQMRTN="MENU^QAOSAHO2",QAQORTN="OTHER^QAOSAHOC",QAQDIC=741
5 S QAQMHDR="Occurrence Screen"
6 D ^QAQAHOC0
7 K QAOSCLIN,QAOSEXCP,QAQFOUND
8 Q
9OTHER ;
10 K DIS S QA=0
11O1 W !!?3,"Do you want the report to include 'deleted' records"
12 S %=2 D YN^DICN I %=-1 S QAQQUIT=1 Q
13 I %=0 W !!?5,"Please answer Y(es) or N(o)" G O1
14 I %=2 S DIS(QA)="I $P(^QA(741,D0,0),""^"",11)'=2",QA=1
15O2 W !!?3,"Do you want the report to include 'exception to criteria' records"
16 S %=2 D YN^DICN I %=-1 S QAQQUIT=1 Q
17 I %'>0 W !!?5,"Please answer Y(es) or N(o)" G O2
18 I %=2 D
19 . S QAOSCLIN=+$O(^QA(741.2,"C",1,0)),QAOSEXCP=+$O(^QA(741.6,"B",3,0))
20 . S DIS(QA)="I QAOSEXCP'=$P($G(^QA(741,D0,""REVR"",+$O(^QA(741,D0,""REVR"",""B"",QAOSCLIN,0)),0)),""^"",5)"
21 . Q
22O3 K QAQFOUND S QAQFOUND=0,DHIT="S QAQFOUND=1"
23 S DIOEND="I 'QAQFOUND W !!,""No data found for this report !!"""
24 Q
Note: See TracBrowser for help on using the repository browser.