| 1 | QAOSAHOC ;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
|
|---|
| 3 | EN ;
|
|---|
| 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
|
|---|
| 9 | OTHER ;
|
|---|
| 10 | K DIS S QA=0
|
|---|
| 11 | O1 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
|
|---|
| 15 | O2 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
|
|---|
| 22 | O3 K QAQFOUND S QAQFOUND=0,DHIT="S QAQFOUND=1"
|
|---|
| 23 | S DIOEND="I 'QAQFOUND W !!,""No data found for this report !!"""
|
|---|
| 24 | Q
|
|---|
