Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: YSSR1

Package: Mental Health

Routine: YSSR1


Information

YSSR1 ;SLC/AFE,HIOFO/FT - SECLUSION/RESTRAINT - Observation, Release & Review ;10/21/11 10:54am

Source Information

Source file <YSSR1.m>

Entry Points

Name Comments DBIA/ICR reference
ENRLS ; Called from MENU option YSSR RELEASE
ENREV ; Called from MENU option YSSR REVIEW
; Review of S/R action.
REV ;
ASK ;
REVLST ;
ENCK ; Called from MENU option YSSR 15-CHECK
; Observation of patient in S/R.
ENWO ; Called from MENU option YSSR W-ORDER
; Entry/edit of Type of S/R Order
WOLKUP ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?IOM-$L("RELEASE FROM SECLUSION/RESTRAINT")\2,"RELEASE FROM SECLUSION/RESTRAINT",!
  • Line Location: ENRLS+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Patient not listed as in Seclusion/Restraint."
  • Line Location: ENRLS+6
Function Call: WRITE
  • Prompt: !!,$C(7),YSN," shown as released ",Y
  • Line Location: ENRLS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ENRLS+8
Function Call: WRITE
  • Prompt: !!?10,"< RELEASE DELETED >"
  • Line Location: ENRLS+13
Function Call: WRITE
  • Prompt: !!?10,"PATIENT NOTED AS RELEASED."
  • Line Location: ENRLS+15
Function Call: WRITE
  • Prompt: @IOF,!?IOM-$L("REVIEW OF SECLUSION/RESTRAINT ASSESSMENT")\2,"REVIEW OF SECLUSION/RESTRAINT ASSESSMENT",!
  • Line Location: ENREV+2
Function Call: WRITE
  • Prompt: !!,"No review action required."
  • Line Location: REV+1
Function Call: WRITE
  • Prompt: !,"The following S/R actions have not been reviewed: ",!
  • Line Location: REV+2
Function Call: READ
  • Variable: A1
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Select action for review: ",QRVN,"// "
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Not valid - re-enter."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,"**********"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!?10,"< REVIEW ACTION DELETED >"
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !!?10,"REVIEW ACTION NOTED."
  • Line Location: ASK+12
Function Call: WRITE
  • Prompt: !,"No other review action required."
  • Line Location: ASK+13
Function Call: WRITE
  • Prompt: !?3,RVN,?8,$P(RVNM,",",2)_" "_$P(RVNM,",",1),?40,Y
  • Line Location: REVLST+1
Function Call: WRITE
  • Prompt: !!?10,"< OBSERVATION DELETED >"
  • Line Location: ENCK+11
Function Call: WRITE
  • Prompt: !!?15,"OBSERVATION NOTED."
  • Line Location: ENCK+14
Function Call: WRITE
  • Prompt: @IOF,!?IOM-$L("EDIT OF TYPE OF SECLUSION/RESTRAINT ORDER")\2,"EDIT OF TYPE OF SECLUSION/RESTRAINT ORDER",!
  • Line Location: ENWO+2
Function Call: WRITE
  • Prompt: !,"SECLUSION/RESTRAINT EPISODES REQUIRING WRITTEN ORDERS: ",!
  • Line Location: ENWO+3
Function Call: WRITE
  • Prompt: !!,"No patients listed as requiring a written order.",!
  • Line Location: ENWO+5
Function Call: WRITE
  • Prompt: !!," * Written Order Required.",!
  • Line Location: ENWO+6
Function Call: WRITE
  • Prompt: " # Record incomplete, please contact IRM.",!
  • Line Location: ENWO+7
Function Call: WRITE
  • Prompt: !!,"Written order not required for this patient.",!
  • Line Location: WOLKUP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YS(615.2 - [#615.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call