QAOSPSM3.m

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 ---QAOSPSM3   3344     printed  Apr 09, 2024@21:23:40                                                                                                                                                                                                    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