Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: YSSRU1

YSSRU1.m

Go to the documentation of this file.
  1. YSSRU1 ;DALISC/LJA - Seclusion/Restraint Utility Code ;08/13/93 11:21
  1. ;;5.01;MENTAL HEALTH;;Dec 30, 1994
  1. ;
  1. PWARN ; Warn user of danger of editing pointer entries
  1. N EX,I,OPT,T,TXT
  1. ;
  1. ; General warning
  1. W @IOF
  1. S TXT="HD" D DISPLAY
  1. S TXT="GWARN" D DISPLAY
  1. ;
  1. ; Find option name
  1. QUIT:$G(XQY)'>0 ;-> Don't know which option it is...
  1. S DIC=19,DIQ="OPT",DIQ(0)="E",DA=+XQY,DR=1 D EN^DIQ1
  1. S OPT=$$UP^XLFSTR($G(OPT(19,+DA,1,"E")))
  1. S EX=$S(OPT["REASONS":"REAEX",OPT["CATEGORY":"CATEX",OPT["RELEASE":"RELEX",OPT["ALTERNATIVES":"ALTEX",OPT["CHECKLIST":"CHKEX",1:"")
  1. I EX']"" S TXT="HD" D DISPLAY QUIT ;->
  1. ;
  1. ; Specific example
  1. S TXT=EX W ! D DISPLAY
  1. S TXT="HD" D DISPLAY
  1. QUIT
  1. ;
  1. HD ;
  1. ;;
  1. ;; ---------------------------------------------------------
  1. ;; !! W A R N I N G !!
  1. ;; ---------------------------------------------------------
  1. ;;
  1. ;
  1. GWARN ;
  1. ;; You may edit the name of the file entry, but do NOT change it's meaning!
  1. ;
  1. REAEX ; S/R Reasons example
  1. ;; For example, "disrupting therapeutic milieu" can be changed to "disruption
  1. ;; of therepeutic milieu". However, "disrupting therapeutic milieu" should
  1. ;; NOT be changed to "harm to family"!
  1. ;
  1. CATEX ; S/R Category example
  1. ;; For example, "Velcro Restraints" can be changed to "VELCRO RESTRAINTS".
  1. ;; However, "Velcro Restraints" should NOT be changed to "UNLOCKED SECLUSION"!
  1. ;
  1. RELEX ; S/R Release example
  1. ;; For example, "DISRUPTING BEHAVIOR CEASED" can be changed to "DISRUPTING
  1. ;; BEHAVIOR STOPPED". However, "DISRUPTING BEHAVIOR CEASED" should NOT be
  1. ;; changed to "CESSATION OF HARM TO OTHERS"!
  1. ;
  1. ALTEX ; S/R Alternatives example
  1. ;; For example, "RELAXATION TECHNIQUES" can be changed to "RELAXATION
  1. ;; METHODS". However, "RELAXATION TECHNIQUES" should NOT be changed to
  1. ;; "PROBLEM RESOLUTION"!
  1. ;
  1. CHKEX ; S/R Check list example
  1. ;; For example, "BEATING ON DOOR" can be changed to "BEATING ON DOOR OR WALL".
  1. ;; However, "BEATING ON DOOR" should NOT be changed to "CURSING"!
  1. ;
  1. DISPLAY ; Display text...
  1. QUIT:$G(TXT)']"" ;->
  1. N I,T F I=1:1 S T=$T(@TXT+I) Q:T'[";;" S T=$P(T,";;",2,99) W !,T
  1. QUIT
  1. ;