| 1 | QAOSPSM2 ;HISC/DAD-SUMMARY OF OCCURRENCE SCREENING - PART II ;2/9/93 09:08
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | K UNDL,DASH S $P(UNDL,"_",81)="",$P(DASH,"-",81)="",QAOSQUIT=0
|
|---|
| 4 | D FF
|
|---|
| 5 | W !!,"PART II. Information on Program Operation"
|
|---|
| 6 | W !!,"2. Improvement Actions"
|
|---|
| 7 | W !!,"Indicate the types of improvement actions resulting from data collected"
|
|---|
| 8 | W !,"through the Occurrence Screening Program during the reporting period."
|
|---|
| 9 | W !!," Type of Action Number of times taken"
|
|---|
| 10 | W !," ---------------- -----------------------"
|
|---|
| 11 | S X=$S(QAOSLIST["^N^":"National ",1:" ")_$S(QAOSLIST["^L^":"Local ",1:" ")_$S(QAOSLIST["^1^":"Inactive",1:"") S:QAOSLIST="^N^" X=""
|
|---|
| 12 | W !?57,X W:X]""&QAOBLANK !
|
|---|
| 13 | W !,"Discussion of case at service staff meeting",?57,$$ACT(8)
|
|---|
| 14 | W !!,"Discussion of case at M&M conference",?57,$$ACT(9)
|
|---|
| 15 | W !!,"Service education program",?57,$$ACT(10)
|
|---|
| 16 | W !!,"Facility education program",?57,$$ACT(11)
|
|---|
| 17 | W !!,"Discussion of case with practitioner by supervisor",?57,$$ACT(12)
|
|---|
| 18 | W !!,"Formal counseling of practitioner by supervisor",?57,$$ACT(13)
|
|---|
| 19 | D PAUSE G:QAOSQUIT EXIT
|
|---|
| 20 | W !!,"Investigation or focused study of case",?57,$$ACT(14)
|
|---|
| 21 | W !!,"Investigation to review privileges",?57,$$ACT(15)
|
|---|
| 22 | W !!,"Other disciplinary action",?57,$$ACT(16)
|
|---|
| 23 | W !!,"Changes in policy or procedures",?57,$$ACT(17)
|
|---|
| 24 | W !!,"Repair of malfunctioning equipment",?57,$$ACT(18)
|
|---|
| 25 | W !!,"Change in ordering of medical supplies or equipment",?57,$$ACT(19)
|
|---|
| 26 | W !!,"Development of improved communication procedures",?57,$$ACT(20)
|
|---|
| 27 | W !!,"Further study of issues raised by occurrence screening",?57,$$ACT(21)
|
|---|
| 28 | W !!,"Other",?57,$$ACT(22)
|
|---|
| 29 | D PAUSE G:QAOSQUIT EXIT
|
|---|
| 30 | G ^QAOSPSM3
|
|---|
| 31 | ACT(Y) N X I QAOSLIST="^N^" Q " "_$S(QAOBLANK:"________",1:$J(+$G(QAOSACTN("N",Y)),5,0))
|
|---|
| 32 | S X=$S(QAOBLANK:"________",QAOSLIST["^N^":$J(+$G(QAOSACTN("N",Y)),5,0)_" ",1:" ")_" "
|
|---|
| 33 | S X=X_$S(QAOBLANK:"_____",QAOSLIST["^L^":$J(+$G(QAOSACTN("L",Y)),5,0),1:" ")_" "
|
|---|
| 34 | S X=X_$S(QAOBLANK:"________",QAOSLIST["^1^":" "_$J(+$G(QAOSACTN("1",Y)),5,0),1:" ")
|
|---|
| 35 | Q X
|
|---|
| 36 | EXIT K DASH,UNDL
|
|---|
| 37 | Q
|
|---|
| 38 | PAUSE Q:$E(IOST)'="C"
|
|---|
| 39 | K DIR S DIR(0)="E" D ^DIR K DIR S QAOSQUIT=$S(Y'>0:1,1:0)
|
|---|
| 40 | Q
|
|---|
| 41 | FF W @IOF
|
|---|
| 42 | Q
|
|---|
