| [613] | 1 | QAOSXTRN ;HISC/DDA-SUPPORTED EXTERNAL ENTRY POINTS ;2/4/93 09:33
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | Q
|
|---|
| 4 | PAD0 ;ENTRY TO PRINT ADVERSE FINDINGS REPORT THAT PRINTS NO NAMES OR CODES
|
|---|
| 5 | S QAOSCHOS="X" ; FLAG TO SUPPRESS NAMES AND CODES
|
|---|
| 6 | D ^QAQDATE G:QAQQUIT EXIT^QAOSPAD0
|
|---|
| 7 | K %ZIS S %ZIS="QM" D ^%ZIS G:POP EXIT^QAOSPAD0
|
|---|
| 8 | I $D(IO("Q")) D G EXIT^QAOSPAD0
|
|---|
| 9 | . S ZTDESC="Adverse findings report",ZTRTN="ENTSK^QAOSPAD0"
|
|---|
| 10 | . S ZTSAVE("QAOS*")="",ZTSAVE("QAQ*")="" D ^%ZTLOAD
|
|---|
| 11 | . Q
|
|---|
| 12 | D ENTSK^QAOSPAD0
|
|---|
| 13 | Q
|
|---|
| 14 | PSM0 ;ENTRY TO PRINT SUMMARY OF OCCURRENCE SCREENING
|
|---|
| 15 | D ^QAOSPSM
|
|---|
| 16 | Q
|
|---|
| 17 | PSS0(QAQNBEG,QAQNEND) ;
|
|---|
| 18 | ;ENTRY TO EXTRACT DATA FROM THE SERVICE STATISTICS REPORT
|
|---|
| 19 | ;
|
|---|
| 20 | ; RETURNS: Y = # 10 DAY READMISSIONS WITH D/C FROM MEDICINE SERVICE
|
|---|
| 21 | ; ^ # 10 DAY READMISSIONS WITH D/C FROM SURGERY SERVICE
|
|---|
| 22 | ; ^ # 48 HRS READMISSIONS WITH D/C FROM EXTENDED CARE
|
|---|
| 23 | ;
|
|---|
| 24 | S QAOSSORT="C" ; SORT BY CRITERIA
|
|---|
| 25 | S QAOSLIST(0)="1,2," ; INCLUDE ONLY NATIONAL SCREENS
|
|---|
| 26 | D ^QAOSPSS0
|
|---|
| 27 | S Y=$G(^UTILITY($J,"QAOSPSS","N",1)),Y=+$P(Y,"^",5)_"^"_+$P(Y,"^",12)
|
|---|
| 28 | S X=$G(^UTILITY($J,"QAOSPSS","L",1)),Z=0 F QA=2:1:13 S Z=Z+$P(X,"^",QA)
|
|---|
| 29 | S Y=Y_"^"_Z
|
|---|
| 30 | Q
|
|---|
