source: FOIAVistA/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSPSM3.m@ 1288

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

initial load of FOIAVistA 6/30/08 version

File size: 3.2 KB
Line 
1QAOSPSM3 ;HISC/DAD-SUMMARY OF OCCURRENCE SCREENING - PART II ;5/6/93 09:08
2 ;;3.0;Occurrence Screen;;09/14/1993
3 W !!!,"3. Results of the Reliability Assessments (Complete only for second report"
4 W !," of fiscal year.)"
5 W !!," a. Clinical Review"
6 W !!," (1) Date reliability assessment completed ____________________"
7 W !!," (2) Percentage agreement found ____________________"
8 W !!," b. Peer Review"
9 W !!," (1) Date reliability assessment completed ____________________"
10 W !!," (2) Percentage agreement found ____________________"
11 D PAUSE G:QAOSQUIT EXIT D FF
12 W !!!,"4. Service-Specific Occurrences"
13 W !!,DASH
14 W !,"| | Medicine | Surgery | Psychiatry | Other* | Total** |"
15 W !,"| (Including Neurology) | | | | |"
16 W !,DASH
17 W !,"| Criterion 1 | ",$$SRV("N",1,1)," | ",$$SRV("N",1,2)," | ",$$SRV("N",1,3)," | ",$$SRV("N",1,4)," | ",$$SRV("N",1,5)," |"
18 W !,DASH
19 W !,"| Criterion 2 | N/A | N/A | N/A | N/A | ",$$SRV("N",2,5)," |"
20 W !,DASH
21 W !,"| Criterion 3 | N/A | ",$$SRV("N",3,2)," | N/A | N/A | ",$$SRV("N",3,2)," |"
22 W !,DASH
23 W !,"| Criterion 4 | ",$$SRV("N",4,1)," | ",$$SRV("N",4,2)," | ",$$SRV("N",4,3)," | ",$$SRV("N",4,4)," | ",$$SRV("N",4,5)," |"
24 W !,DASH
25 D PAUSE G:QAOSQUIT EXIT
26 W !!,"Include only occurrences in this table, i.e., cases requiring clinical review"
27 W !,"to determine if further review is necessary. Cases meeting exceptions, are"
28 W !,"not included."
29 W !!,"Use the following rules in determining the service to which an"
30 W !,"occurrence belongs:"
31 W !," Criterion 1 - Service at time of discharge from first hospitalization"
32 W !," Criterion 2 - No rule necessary since only total figure needed"
33 W !," Criterion 3 - No rule necessary since all occurrences are in surgery"
34 W !," Criterion 4 - Service providing care at time of death"
35 W !!,"* The ""Other"" column should be used for occurrences belonging to Intermediate"
36 W !,"Medicine, Nursing Home Care Unit, Rehabilitation Medicine, SCI, and Domiciliary."
37 W !!,"** The numbers in the ""Total"" columns should be the same as those in column 1"
38 W !,"of Part I if all occurrences were clinically reviewed."
39 D PAUSE G:QAOSQUIT EXIT D FF
40 W !!,"5. Facility Workload Data (Should be readily available from Medical"
41 W !," Administration Service)"
42 W !!," a. Number of Admissions to Acute Care during Reporting Period:"
43 W !!,"Reference : RCS 10-0021 (8ZD1) VA Inpatient Care"
44 W !," Under the ""Gains"" Section; Line ""Total - Adm & Trans"""
45 W !," List for each Bed Section:"
46 W !!," Medicine (Include Neurology, exclude Intermediate Med.)",?71,"________"
47 W !!," Surgery",?71,"________"
48 W !!," Psychiatry",?71,"________"
49 W !!," b. Number of ""Unscheduled"" and ""10-10"" Ambulatory Care"
50 W !," Visits During Reporting Period",?71,"________"
51 G ^QAOSPSM4
52SRV(STATUS,SEQUENCE,PIECE) ;
53 Q $S(QAOBLANK:" ",1:$J($P($G(QAOSRV(STATUS,SEQUENCE)),"^",PIECE),4,0))
54EXIT K DASH,UNDL
55 Q
56PAUSE Q:$E(IOST)'="C"
57 K DIR S DIR(0)="E" D ^DIR K DIR S QAOSQUIT=$S(Y'>0:1,1:0)
58 Q
59FF W @IOF
60 Q
Note: See TracBrowser for help on using the repository browser.