| 1 | YSSRU1 ;DALISC/LJA - Seclusion/Restraint Utility Code ;08/13/93 11:21
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | PWARN ; Warn user of danger of editing pointer entries
|
|---|
| 5 | N EX,I,OPT,T,TXT
|
|---|
| 6 | ;
|
|---|
| 7 | ; General warning
|
|---|
| 8 | W @IOF
|
|---|
| 9 | S TXT="HD" D DISPLAY
|
|---|
| 10 | S TXT="GWARN" D DISPLAY
|
|---|
| 11 | ;
|
|---|
| 12 | ; Find option name
|
|---|
| 13 | QUIT:$G(XQY)'>0 ;-> Don't know which option it is...
|
|---|
| 14 | S DIC=19,DIQ="OPT",DIQ(0)="E",DA=+XQY,DR=1 D EN^DIQ1
|
|---|
| 15 | S OPT=$$UP^XLFSTR($G(OPT(19,+DA,1,"E")))
|
|---|
| 16 | S EX=$S(OPT["REASONS":"REAEX",OPT["CATEGORY":"CATEX",OPT["RELEASE":"RELEX",OPT["ALTERNATIVES":"ALTEX",OPT["CHECKLIST":"CHKEX",1:"")
|
|---|
| 17 | I EX']"" S TXT="HD" D DISPLAY QUIT ;->
|
|---|
| 18 | ;
|
|---|
| 19 | ; Specific example
|
|---|
| 20 | S TXT=EX W ! D DISPLAY
|
|---|
| 21 | S TXT="HD" D DISPLAY
|
|---|
| 22 | QUIT
|
|---|
| 23 | ;
|
|---|
| 24 | HD ;
|
|---|
| 25 | ;;
|
|---|
| 26 | ;; ---------------------------------------------------------
|
|---|
| 27 | ;; !! W A R N I N G !!
|
|---|
| 28 | ;; ---------------------------------------------------------
|
|---|
| 29 | ;;
|
|---|
| 30 | ;
|
|---|
| 31 | GWARN ;
|
|---|
| 32 | ;; You may edit the name of the file entry, but do NOT change it's meaning!
|
|---|
| 33 | ;
|
|---|
| 34 | REAEX ; S/R Reasons example
|
|---|
| 35 | ;; For example, "disrupting therapeutic milieu" can be changed to "disruption
|
|---|
| 36 | ;; of therepeutic milieu". However, "disrupting therapeutic milieu" should
|
|---|
| 37 | ;; NOT be changed to "harm to family"!
|
|---|
| 38 | ;
|
|---|
| 39 | CATEX ; S/R Category example
|
|---|
| 40 | ;; For example, "Velcro Restraints" can be changed to "VELCRO RESTRAINTS".
|
|---|
| 41 | ;; However, "Velcro Restraints" should NOT be changed to "UNLOCKED SECLUSION"!
|
|---|
| 42 | ;
|
|---|
| 43 | RELEX ; S/R Release example
|
|---|
| 44 | ;; For example, "DISRUPTING BEHAVIOR CEASED" can be changed to "DISRUPTING
|
|---|
| 45 | ;; BEHAVIOR STOPPED". However, "DISRUPTING BEHAVIOR CEASED" should NOT be
|
|---|
| 46 | ;; changed to "CESSATION OF HARM TO OTHERS"!
|
|---|
| 47 | ;
|
|---|
| 48 | ALTEX ; S/R Alternatives example
|
|---|
| 49 | ;; For example, "RELAXATION TECHNIQUES" can be changed to "RELAXATION
|
|---|
| 50 | ;; METHODS". However, "RELAXATION TECHNIQUES" should NOT be changed to
|
|---|
| 51 | ;; "PROBLEM RESOLUTION"!
|
|---|
| 52 | ;
|
|---|
| 53 | CHKEX ; S/R Check list example
|
|---|
| 54 | ;; For example, "BEATING ON DOOR" can be changed to "BEATING ON DOOR OR WALL".
|
|---|
| 55 | ;; However, "BEATING ON DOOR" should NOT be changed to "CURSING"!
|
|---|
| 56 | ;
|
|---|
| 57 | DISPLAY ; Display text...
|
|---|
| 58 | QUIT:$G(TXT)']"" ;->
|
|---|
| 59 | N I,T F I=1:1 S T=$T(@TXT+I) Q:T'[";;" S T=$P(T,";;",2,99) W !,T
|
|---|
| 60 | QUIT
|
|---|
| 61 | ;
|
|---|
