Routine: YSSR1

Information

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

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	5	DD^%DT (,IX)^DIC ^DIE ^DIK EN^DIQ
Mental Health	3	^YSLRP ERRMSG^YSSITE (END,HEADER,LKUP,PNAMES)^YSSR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Mental Health	4	YSSR 15-CHECK YSSR RELEASE YSSR REVIEW YSSR W-ORDER

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	;

External References

Name	Field # of Occurrence
DD^%DT	ENRLS+7, REVLST+1
^DIC	ENCK+5
IX^DIC	ENRLS+6
^DIE	ENRLS+11, ENRLS+14, ASK+7, ASK+11, ENCK+9, ENCK+13, WOLKUP+5
^DIK	ENCK+11
EN^DIQ	ASK+3
^YSLRP	ENRLS+5, ENCK+3, ENWO+9
ERRMSG^YSSITE	ENRLS+10, ASK+6, ENCK+8, WOLKUP+4
END^YSSR	ENRLS+4, ENRLS+5, ENRLS+6, ENRLS+7, ENRLS+10, ENRLS+13, ENRLS+16, REV+1, ASK+6, ASK+9 , ASK+13, ENCK+2, ENCK+3, ENCK+5, ENCK+8, ENCK+11, ENCK+15, ENWO+5, ENWO+9, WOLKUP+1 , WOLKUP+4, WOLKUP+7
HEADER^YSSR	ENWO+4
LKUP^YSSR	ENRLS+4, ENCK+2
PNAMES^YSSR	ENWO+4

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
Routine Call	DIC Line Location: ENCK+5
Routine Call	DIC Line Location: ENRLS+6
Routine Call	DIE Line Location: ENRLS+11 ENRLS+14 ASK+7 ASK+11 ENCK+9 ENCK+13 WOLKUP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^YS(615.2 - [#615.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	REVLST+1
^YS(615.2 - [#615.2]	ENRLS+7, ENRLS+9, ENRLS+13!, ENRLS+15, REV+1, REV+2, ASK+5, ASK+9!, ASK+12, ASK+13 , REVLST+1, ENCK+4*, ENCK+7, ENCK+11, ENCK+14, ENWO+4, WOLKUP+1, WOLKUP+3, WOLKUP+5, WOLKUP+6!

Label References

Name	Line Occurrences
ASK	ASK+2
REV	ASK+14
REVLST	REV+2

Naked Globals

Name	Field # of Occurrence
^(40	ENRLS+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	ENWO+4*
A1	ENRLS+4, ASK+1, ASK+2!, ASK+3, ENCK+2, ENWO+4
>> B	ENRLS+6, ENRLS+7, ENRLS+8, ENRLS+13, REV+2, REVLST+1
>> B1	REV+2*, REVLST+1
>> D	ENRLS+6*
DA	ENRLS+8, ENRLS+9, ENRLS+13, ENRLS+15, ASK+3, ASK+4, ASK+5, ASK+9!, ASK+12!, ENCK+6 , ENCK+11, WOLKUP+2*
DA(1	ENCK+5*, ENCK+11
>> DIC	ENRLS+6, ASK+3, ENCK+5*, ENCK+6
>> DIC("B"	ENCK+5*!
>> DIC(0	ENRLS+6, ENCK+5
DIE	ENRLS+8, ASK+4, ASK+9!, ASK+12!, ENCK+6, ENCK+11, WOLKUP+2
>> DIK	ENCK+11*
>> DILOCKTM	ENRLS+9, ASK+5, ENCK+7, WOLKUP+3
>> DLAYGO	ENCK+5*
DR	ENRLS+8, ENRLS+14, ASK+4, ASK+9!, ASK+10, ASK+12!, ENCK+6, ENCK+12, WOLKUP+2*
DTIME	ASK+1
>> DTOUT	ENRLS+12, ASK+8, ENCK+10
>> DUOUT	ASK+8, ENCK+10
>> FN	ASK+3*, ASK+4, ASK+9
IOF	ENRLS+3, ENREV+2, ASK+3, ENWO+2
IOM	ENRLS+3, ENREV+2, ENWO+2
>> MSG1	ENRLS+3*
>> OPT	ENRLS+3*
>> QRVN	REV+2*, ASK+1
>> RVN	REV+2*, ASK+2, REVLST+1
>> RVNM	REVLST+1*
>> RVP(	REV+2*, ASK+3
U	ENRLS+7, REVLST+1, ENCK+11, WOLKUP+6
>> X	ENRLS+6*
Y	ENRLS+6, ENRLS+7, ENRLS+9!, REVLST+1, ENCK+5, ENCK+6
Y(""	ENRLS+12, ASK+9
YS02	ENWO+6, ENWO+7, ENWO+8!
YS04	ENWO+7, ENWO+8!
>> YSA1	ENWO+4, WOLKUP+1, WOLKUP+2, WOLKUP+3, WOLKUP+5, WOLKUP+6
>> YSB	ENCK+2, ENCK+4, ENCK+5, ENCK+7, ENCK+11, ENCK+14
>> YSDFN	ENRLS+5, ENRLS+6, ENCK+3, ENCK+4, ENWO+9, WOLKUP+1, WOLKUP+6
>> YSN	ENRLS+7
>> YSTOUT	ENRLS+12, ENRLS+13, ASK+1, ASK+8, ASK+9, ENCK+10, ENCK+11
>> YSUOUT	ENRLS+12, ENRLS+13, ASK+1, ASK+8, ASK+9, ENCK+10, ENCK+11
>> YSWN	ENWO+4*, ENWO+5

Customize PDF page

Package: Mental Health