Global: ^YS(615.2

FileMan FileNo	FileMan Filename	Package
615.2	SECLUSION/RESTRAINT	Mental Health

Package	Total	Routines
Mental Health	29	ATTEMPTED ALTERNATIVES BEHAVIOR REQUIRED FOR RELEASE MEDICATIONS OBSERVATION CHECK TIME REASONS FOR S/R TYPE OF SECLUSION/RESTRAINT YSCPAG YSCPAL YSCPAO YSSR YSSR 10-2683 SORT YSSR NURSE MGT SORT YSSR WARD MGT SORT YSSR1 YSSR2 YSSRU YSXRAK1 YSXRAK10 YSXRAK11 YSXRAK12 YSXRAK2 YSXRAK3 YSXRAK5 YSXRAK8 ^YS(615.2 YSXRAK4 YSXRAK6 YSXRAK7 YSXRAK9
Clinical Monitoring System	1	QAMC23

Package	Total	Routines
Mental Health	4	YSSR YSSR1 YSSR2 YSSRU

Package	Total	FileMan Files
Mental Health	5	S/R REASONS(#615.5)[#615.21(.01)] S/R CATEGORY(#615.6)[#615.34(.01)] S/R RELEASE CRITERIA(#615.7)[#615.24(.01)] S/R ALTERNATIVES(#615.8)[#615.35(.01)] S/R OBSERVATION CHECKLIST(#615.9)[#615.31(.01)]
Kernel	1	NEW PERSON(#200)[.05, 4, 25, 40, 41, 43, 50, 53, #615.3(1), #615.3(2)]
Nursing Service	1	NURS TOUR OF DUTY(#211.6)[.06]
Pharmacy Data Management	1	DRUG(#50)[#615.23(.01)]
Registration	1	PATIENT(#2)[.02]
Scheduling	1	HOSPITAL LOCATION(#44)[.04]

Fields, Total: 34

Field #	Name	Loc	Type	Details
.01	FILE ENTRY DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `NOV 06, 2000` HELP-PROMPT: DESCRIPTION: `Actual date/time of entry of transaction into file. This field is transparent to the user.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `615.2^B` `1)= S ^YS(615.2,"B",$E(X,1,30),DA)=""` `2)= K ^YS(615.2,"B",$E(X,1,30),DA)`
.02	NAME	0;2	POINTER TO PATIENT FILE (#2)	**********************REQUIRED FIELD********************** PATIENT(#2) LAST EDITED: `MAY 07, 1987` DESCRIPTION: `Name (DFN) of patient placed under seclusion and/or restraint for this episode.` CROSS-REFERENCE: `615.2^AC^MUMPS` `1)= I '$D(^YS(615.2,DA,40)) S ^YS(615.2,"AC",$E(X,1,30),DA)=""` `2)= K ^YS(615.2,"AC",$E(X,1,30),DA)` CROSS-REFERENCE: `615.2^C` `1)= S ^YS(615.2,"C",$E(X,1,30),DA)=""` `2)= K ^YS(615.2,"C",$E(X,1,30),DA)`
.03	DATE/TIME APPLIED	0;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `NOV 06, 2000` HELP-PROMPT: `YOU MAY NOT ENTER A FUTURE DATE/TIME.` DESCRIPTION: `Date/time seclusion and/or restraint actually applied to patient.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.04	WARD	0;4	POINTER TO HOSPITAL LOCATION FILE (#44)	**********************REQUIRED FIELD********************** HOSPITAL LOCATION(#44) LAST EDITED: `FEB 21, 1992` DESCRIPTION: `Ward (hospital location) seclusion/restraint occurred.` CROSS-REFERENCE: `615.2^AE^MUMPS` `1)= S ^YS(615.2,"AE",$P(^YS(615.2,DA,0),"^",3),$E(X,1,30),DA)=""` `2)= K ^YS(615.2,"AE",$P(^YS(615.2,DA,0),"^",3),$E(X,1,30),DA)`
.05	NAME OF NURSE PRESENT	0;5	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `APR 09, 1987` DESCRIPTION: `Supervisory nurse responsible for carrying out of seclusion/restraint action.`
.06	NURSING SHIFT	0;6	POINTER TO NURS TOUR OF DUTY FILE (#211.6)	**********************REQUIRED FIELD********************** NURS TOUR OF DUTY(#211.6) LAST EDITED: `MAY 01, 1987` DESCRIPTION: `Nursing shift during which seclusion/restraint episode commenced.`
.08	PATIENT SEARCHED	0;8	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAR 27, 2012` DESCRIPTION: `Question as to whether or not a patient was searched for possible harmful objects on his/her person.`
.09	SEARCH COMMENT	2;0	WORD-PROCESSING #615.33	DESCRIPTION: `If a patient was not searched, a reason must be given as to why the procedure was not done.` `Search Comments` LAST EDITED: `FEB 21, 1992`
4	INITIAL TRANSCRIBER	1;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `MAY 01, 1987` DESCRIPTION: `Person placing information into file. TRANSPARENT TO USER.`
5	TYPE OF SECLUSION/RESTRAINT	5;0	POINTER Multiple #615.34	615.34 DESCRIPTION: `Manner in which seclusion/restraint is performed.`
6	ATTEMPTED ALTERNATIVES	6;0	POINTER Multiple #615.35	615.35 DESCRIPTION: `Different clinical strategies employed prior to placing patient into seclusion/restraint.`
7	DIAGNOSIS	7;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `FEB 21, 1992` HELP-PROMPT: `ANSWER MUST BE 1-70 CHARACTERS IN LENGTH` DESCRIPTION: `The diagnosis may be an actual DSM diagnosis selected from the PTF file or it may be a perceived diagnosis by caretaker.`
9	LAST4 SSN		COMPUTED	MUMPS CODE: `S X=$E($P($G(^DPT($P(^YS(615.2,D0,0),U,2),0)),U,9),6,9)` ALGORITHM: `S X=$E($P($G(^DPT($P(^YS(615.2,D0,0),U,2),0)),U,9),6,9)` LAST EDITED: `JAN 23, 2017` DESCRIPTION: `This computed field returns the last four digits of the patient's social security number.`
10	REASONS FOR S/R	10;0	POINTER Multiple #615.21	615.21 DESCRIPTION: `A reason for the seclusion/restraint action.`
15	MEDICATIONS	15;0	POINTER Multiple #615.23	615.23 DESCRIPTION: `A list of medications given to the patient during this seclusion/restraint episode.`
20	BEHAVIOR REQUIRED FOR RELEASE	20;0	POINTER Multiple #615.24	615.24 DESCRIPTION: `Actions required on the part of the patient prior to release from seclusion/restraint.`
25	ORDERED BY	25;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $S(+$G(^(""I""))=0:1,$G(^(""I""))'` `LAST EDITED: NOV 30, 1992` `DESCRIPTION:` `Caretaker responsible for initiating the seclusion/restraint action.` `SCREEN: S DIC("S")="I $S(+$G(^(""I""))=0:1,$G(^(""I""))'` `EXPLANATION: Selection must be made from active Physicians who hold the PROVIDER security key.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
26	ORDER TYPE	25;2	SET	**********************REQUIRED FIELD********************** 'w' FOR WRITTEN; 'e' FOR EMERGENCY; 'p' FOR PHONE; LAST EDITED: `DEC 31, 1991` DESCRIPTION: `Method by which the seclusion/restraint order was conveyed by the responsible caretaker to appropriate personnel.` CROSS-REFERENCE: `615.2^AF^MUMPS` `1)= I "Ww"'[X S ^YS(615.2,"AF",$P(^YS(615.2,DA,0),"^",2),DA)=""` `2)= K ^YS(615.2,"AF",$P(^YS(615.2,DA,0),"^",2),DA)`
27	DATE/TIME OF ORDER	25;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 04, 1988` DESCRIPTION: `Date and time the order was written, phoned or the situation required emergency action.`
28	DATE ORDER CHANGED	25;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 05, 1988` DESCRIPTION: `Field will only contain data when the order is altered. It indicates the date and time the order was changed. TRANSPARENT TO USER.`
30	GENERAL COMMENTS	30;0	WORD-PROCESSING #615.27	DESCRIPTION: `Additional comments concerning this seclusion/restraint episode.`
40	RELEASE ORDERED BY	40;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $S(+$G(^(""I""))=0:1,$G(^(""I""))'` `DESCRIPTION:` `Caretaker ordering cessation of seclusion/restraint order.` `SCREEN: S DIC("S")="I $S(+$G(^(""I""))=0:1,$G(^(""I""))'` `EXPLANATION: Selection must be made from active PROVIDERS who hold the PROVIDER security key.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
41	PERSONNEL EFFECTING RELEASE	40;2	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) DESCRIPTION: `Personnel actually performing release of patient from seclusion/restraint.`
42	TIME REMOVED	40;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X I $D(X) S Z=$P(^YS(615.2,DA,0),U,3) K:X` `LAST EDITED: NOV 06, 2000` `HELP-PROMPT: ENTRY OF DATE/TIME MAY NOT BE EARLIER THAN TIME APPLIED NOR IS ENTRY OF A FUTURE DATE PERMITTED. TIME MUST BE ENTERED.` `DESCRIPTION:` `Actual date/time release was performed.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
43	RELEASE TRANSCRIBER	40;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) DESCRIPTION: `Person entering release information into file. TRANSPARENT TO USER.`
44	RELEASE FILED	40;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 09, 1987` DESCRIPTION: `Date/time release information placed in file. TRANSPARENT TO USER.` CROSS-REFERENCE: `615.2^AC1^MUMPS` `1)= K ^YS(615.2,"AC",$P(^YS(615.2,DA,0),"^",2),DA)` `2)= K ^YS(615.2,"AC",$P(^YS(615.2,DA,0),"^",2),DA)` CROSS-REFERENCE: `615.2^AD^MUMPS` `1)= S ^YS(615.2,"AD",$P(^YS(615.2,DA,0),"^",2),DA)=""` `2)= K ^YS(615.2,"AD",$P(^YS(615.2,DA,0),"^",2),DA)`
45	CIRCUMSTANCES/FURTHER ACTIONS	45;0	WORD-PROCESSING #615.28	DESCRIPTION: `Narrative concerning release action and possible follow-up care.`
50	REVIEWED BY	50;1	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `APR 10, 1987` DESCRIPTION: `Personnel, in authority, reviewing action.`
51	ACTION	50;2	SET	**********************REQUIRED FIELD********************** 'A' FOR APPROPRIATE; 'I' FOR INAPPROPRIATE; 'O' FOR OTHER (See Reviewer's Comments); LAST EDITED: `APR 10, 1987` DESCRIPTION: `Decision of the reviewer as to whether or not action taken was appropriate.`
52	ACTUAL DATE OF REVIEW	50;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX",%DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X` LAST EDITED: `APR 10, 1987` DESCRIPTION: `Actual date/time review was made by personnel.`
53	REVIEW TRANSCRIBER	50;4	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `APR 10, 1987` DESCRIPTION: `Personnel entering review into file. TRANSPARENT TO USER.`
54	REVIEW FILED	50;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETXR",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0)` LAST EDITED: `NOV 06, 2000` DESCRIPTION: `Actual date/time review entered into file by transcriber.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `615.2^AD1^MUMPS` `1)= K ^YS(615.2,"AD",$P(^YS(615.2,DA,0),"^",2),DA)` `2)= K ^YS(615.2,"AD",$P(^YS(615.2,DA,0),"^",2),DA)`
55	REVIEWER'S COMMENTS	55;0	WORD-PROCESSING #615.29	DESCRIPTION: `Narrative of additional comments provided by the reviewer.` LAST EDITED: `APR 10, 1987`
60	OBSERVATION CHECK TIME	60;0	DATE Multiple #615.3	615.3 DESCRIPTION: `A history of observations performed during a single patient episode.`

Name	Field # of Occurrence
^%DT	.01+1, .03+1, 27+1, 28+1, 42+1, 44+1, 52+1, 54+1
MIX^DIC1	25+1, 40+1
Y^DIQ	ID.02+1
$$FMTE^XLFDT	ID.03+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	ID.02+1
^DPT - [#2]	ID.02+1, 9+1
^YS(615.2 - [#615.2]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K), 9+1, 26(XREF 1S) , 26(XREF 1K), 42+1, 44(XREF 1S), 44(XREF 1K), 44(XREF 2S), 44(XREF 2K), 54(XREF 1S), 54(XREF 1K)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	.01+1, .03+1, 27+1, 28+1, 42+1, 44+1, 52+1!, 54+1
%DT(0	.01+1!, .03+1!, 42+1!, 52+1, 54+1*!
%I	ID.02+1*!
>> C	ID.02+1*
>> D	25+1, 40+1
>> D0	9+1
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04(XREF 1S), .04(XREF 1K), 26(XREF 1S), 26(XREF 1K) , 42+1, 44(XREF 1S), 44(XREF 1K), 44(XREF 2S), 44(XREF 2K), 54(XREF 1S), 54(XREF 1K)
DIC	ID.02+1, 25+1!, 40+1!
DIC("S"	25+1, 25SCR+1, 40+1, 40SCR+1
>> DIE	25+1, 40+1
U	ID.02+1, ID.03+1, 9+1, 42+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .03+1!, .04(XREF 1S), .04(XREF 1K) , 7+1!, 9+1, 25+1!, 26(XREF 1S), 27+1!, 28+1!, 40+1!, 42+1!, 44+1!, 52+1! , 54+1*!
>> Y	ID.02+1*, .01+1, .03+1, 25+1, 27+1, 28+1, 40+1, 42+1, 44+1, 52+1 , 54+1
Z	42+1*!

Customize PDF page

Package: Mental Health

Global: ^YS(615.2

Information

Description

Directly Accessed By Routines, Total: 31

Accessed By FileMan Db Calls, Total: 4

Pointer To FileMan Files, Total: 10

Fields, Total: 34

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: