source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSSRU1.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1YSSRU1 ;DALISC/LJA - Seclusion/Restraint Utility Code ;08/13/93 11:21
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;
4PWARN ; 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 ;
24HD ;
25 ;;
26 ;; ---------------------------------------------------------
27 ;; !! W A R N I N G !!
28 ;; ---------------------------------------------------------
29 ;;
30 ;
31GWARN ;
32 ;; You may edit the name of the file entry, but do NOT change it's meaning!
33 ;
34REAEX ; 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 ;
39CATEX ; 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 ;
43RELEX ; 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 ;
48ALTEX ; 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 ;
53CHKEX ; 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 ;
57DISPLAY ; 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 ;
Note: See TracBrowser for help on using the repository browser.