Routine: YSSR

Information

YSSR ;SLC/AFE,HIOFO/FT - SECLUSION/RESTRAINT - Lookup & Entry ;10/21/11 9:51am

Source Information

Source file <YSSR.m>

Entry Points

Name	Comments	DBIA/ICR reference
ENLST	; Called from MENU option YSSR ENTRY ; Entry of basic S/R information
ENTER	;
SQ	;
REVIEW	;
FILE	;
END	; Called by routines YSSR1, YSSR2
EDIT	;
DELETE	; Called by routine YSSR2
PTNAME	; Called by routine YSSR1 ; Patient look-up.
LKUP	; Called as ENTRY action from MENU option YSSR SEC/RES ; Called by routine YSSR1 ; Lists patients in currently in S/R. May pass YSQT.
PNAMES	; Called by routine YSSR1
DXLKUP	; Checks ^YSD(627.8 DIAGNOSTIC RESULTS for most recent diagnosis.
HEADER	; Write header
TTIME	;calculate total time

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?IOM-$L("SECLUSION/RESTRAINT INFORMATION")\2,"SECLUSION/RESTRAINT INFORMATION",! Line Location: ENLST+2
Function Call: WRITE	Prompt: !!,"Patient shown in Seclusion/Restraint at this time.",! Line Location: ENTER+2
Function Call: WRITE	Prompt: ! Line Location: ENTER+3
Function Call: WRITE	Prompt: !,"Was patient searched" Line Location: SQ+1
Function Call: WRITE	Prompt: !!,"If patient was not searched, a reason should be given for the omission.",! Line Location: SQ+2
Function Call: WRITE	Prompt: ! Line Location: SQ+16
Function Call: WRITE	Prompt: !!?13,"INSUFFICIENT INFORMATION" Line Location: SQ+21
Function Call: WRITE	Prompt: !!,"Do you need to edit the above information" Line Location: REVIEW+1
Function Call: WRITE	Prompt: !!,"After the information is filed, you may no longer edit it.",!,"You may alter the information now.",! Line Location: REVIEW+2
Function Call: WRITE	Prompt: !!,"Save this information" Line Location: FILE+1
Function Call: WRITE	Prompt: !!,"NO, will delete this information from the record.",!,"YES, will file it under the patient's name." Line Location: FILE+2
Function Call: WRITE	Prompt: !!?5,"INFORMATION NOTED.",! Line Location: FILE+3
Function Call: WRITE	Prompt: !!?10,"< ENTRY FOR "_$P(YSNM,",",2)_" "_$P(YSNM,",")_" DELETED >",! Line Location: DELETE+2
Function Call: WRITE	Prompt: ! Line Location: PTNAME+2
Function Call: WRITE	Prompt: !!,"Patient Name Required.",! Line Location: PTNAME+3
Function Call: WRITE	Prompt: !?IOM-$L(" "_MSG1_" ")\2," "_MSG1_" ",!! Line Location: LKUP+3
Function Call: WRITE	Prompt: !!,"The following patient(s) are currently listed as being in Seclusion/Restraint: ",! Line Location: LKUP+4
Function Call: WRITE	Prompt: !!," * Written order required.",! Line Location: LKUP+6
Function Call: WRITE	Prompt: " # Record incomplete, please contact IRM.",! Line Location: LKUP+7
Function Call: WRITE	Prompt: !?5," ",MSG1," " Line Location: LKUP+8
Function Call: WRITE	Prompt: !?0,$E(B,1,20),?22,SSN Line Location: PNAMES+9
Function Call: WRITE	Prompt: ?28,YS01 Condition for execution: $D(YS01) Line Location: PNAMES+9
Function Call: WRITE	Prompt: ?29,YS03 Line Location: PNAMES+9
Function Call: WRITE	Prompt: ?31,Y,?52,$E(JRBYN,1,18) Line Location: PNAMES+10
Function Call: WRITE	Prompt: ?71,JRTT Line Location: PNAMES+10
Function Call: WRITE	Prompt: !?31,"DATE & TIME",?72,"TOTAL",! Line Location: HEADER+1
Function Call: WRITE	Prompt: ?0,"PATIENT",?23,"SSN",?31,"INITIATED",?52,"ORDERED BY",?72,"TIME",! Line Location: HEADER+2
Function Call: WRITE	Prompt: "=" Line Location: HEADER+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+4
Function Call: WRITE	Prompt: ! Line Location: TTIME+3

FileMan Files Accessed Via FileMan Db Call

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

Customize PDF page

Package: Mental Health

Routine: YSSR

Information

Source Information

Entry Points

Interaction Calls

FileMan Files Accessed Via FileMan Db Call