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