Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^YS(615.2

Package: Mental Health

Global: ^YS(615.2


Information

FileMan FileNo FileMan Filename Package
615.2 SECLUSION/RESTRAINT Mental Health

Description

Directly Accessed By Routines, Total: 31

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    YSXRAK4    YSXRAK5
YSXRAK6    YSXRAK7    YSXRAK8    ^YS(615.2    YSXRAK9    
Clinical Monitoring System 1 QAMC23    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Mental Health 4 YSSR    YSSR1    YSSR2    YSSRU    

Pointer To FileMan Files, Total: 10

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)[.054254041435053#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.
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.
60 OBSERVATION CHECK TIME 60;0 DATE Multiple #615.3 615.3

  • DESCRIPTION:  
    A history of observations performed during a single patient episode.

External References

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

Global Variables Directly Accessed

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)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.03+1

Local Variables

Legend:

>> 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*!
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All