source: FOIAVistA/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSXTRN.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.1 KB
Line 
1QAOSXTRN ;HISC/DDA-SUPPORTED EXTERNAL ENTRY POINTS ;2/4/93 09:33
2 ;;3.0;Occurrence Screen;;09/14/1993
3 Q
4PAD0 ;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
14PSM0 ;ENTRY TO PRINT SUMMARY OF OCCURRENCE SCREENING
15 D ^QAOSPSM
16 Q
17PSS0(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
Note: See TracBrowser for help on using the repository browser.