Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
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

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)[.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.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields