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