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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^YSG("SUB"

Package: Mental Health

Global: ^YSG("SUB"


Information

FileMan FileNo FileMan Filename Package
618.2 MENTAL HEALTH TEAM Mental Health

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Mental Health 5 YSCEN5    YSXRAS1    YSXRAS2    ^YSG("INP"    ^YSG("SUB"    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Mental Health 2 MENTAL HEALTH CENSUS(#618)[2.8, 3, 3.1, 3.2, 3.3, 3.4]    MENTAL HEALTH INPT(#618.4)[3, 23, #618.419(.01)]

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[1, 2, 3, 4, 5, 6, 7, 8]    
Registration 1 WARD LOCATION(#42)[.5]    

Fields, Total: 19

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  JAN 01, 1992
  • HELP-PROMPT:  ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  This is the name of the sub-unit to be documented. Teams may be comprised of physicians, nursing teams, primary therapists, etc. A team may be responsible for all patients on a ward or for a portion of the patient
    population on a ward.
  • CROSS-REFERENCE:  618.2^B
    1)= S ^YSG("SUB","B",$E(X,1,30),DA)=""
    2)= K ^YSG("SUB","B",$E(X,1,30),DA)
.5 WARD LOCATION 1;1 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • INPUT TRANSFORM:  D SETDICS^YSCEN13 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 15, 1993
  • DESCRIPTION:  
    This is a pointer to the hospital location file. Each team has one ward location.
  • SCREEN:  D SETDICS^YSCEN13
  • EXPLANATION:  You may not change the Ward Location of any team already used by a MH Ward...
  • CROSS-REFERENCE:  618.2^AWD
    1)= S ^YSG("SUB","AWD",$E(X,1,30),DA)=""
    2)= K ^YSG("SUB","AWD",$E(X,1,30),DA)
.7 SYNONYM 1;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  JAN 01, 1992
  • HELP-PROMPT:  ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is a short name for the team. Its use is mainly for ease of selection.
  • CROSS-REFERENCE:  618.2^C
    1)= S ^YSG("SUB","C",$E(X,1,30),DA)=""
    2)= K ^YSG("SUB","C",$E(X,1,30),DA)
.8 INACTIVE 1;5 SET
  • '1' FOR INACTIVE;
  • '0' FOR ACTIVE;

  • LAST EDITED:  JAN 01, 1992
  • HELP-PROMPT:  ENTER ONLY IF TEAM IS NO LONGER ACCEPTING PATIENTS
  • DESCRIPTION:  
    This field is to be used only if a team is no longer active. If this field contains "1", admits to this team will no longer be allowed.
.9 REPORT ORDER 1;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X),$D(^YSG("SUB","AOR",$P(^YSG("SUB",DA,1),U),X)) S Y=$O(^YSG("SUB","AOR",+^YSG("SUB",DA,1),X,0)) I +DA'=+Y W " Position already taken... " H 1 K X
  • LAST EDITED:  SEP 14, 1993
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the order that this team will be shown on reports relative to other teams of the same ward. Enter a number that allows easy changes later ie 10,20,30 rather than 1,2,3.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  618.2^AOR^MUMPS
    1)= S ^YSG("SUB","AOR",$P(^YSG("SUB",DA,1),U),X,DA)=""
    2)= K ^YSG("SUB","AOR",$P(^YSG("SUB",DA,1),U),X,DA)
1 PHYSICIAN 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $S(+$G(^(""I""))=0:1,$G(^(""I""))'
  • LAST EDITED:  JAN 01, 1992
  • DESCRIPTION:  
    This is the primary physician for this team.
  • 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
2 PSYCHOLOGIST 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 01, 1992
  • DESCRIPTION:  
    This is the primary psychologist for this team.
3 SOCIAL WORKER 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 01, 1992
  • DESCRIPTION:  
    This is the primary social worker for this team.
4 PRIMARY NURSE 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 01, 1992
  • DESCRIPTION:  
    This is the primary nurse for this team.
5 VOCATIONAL SPECIALIST 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 01, 1992
  • DESCRIPTION:  
    This is the primary vocational specialist for this team.
6 THERAPIST 1 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 01, 1992
  • DESCRIPTION:  
    This is a therapist on this team.
7 THERAPIST 2 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 01, 1992
  • DESCRIPTION:  
    This is a therapist on the team.
8 TEAM LEADER 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 01, 1992
  • DESCRIPTION:  
    This is the staff member with responsibility for coordinating team activity.
9 TEAM BEDS 1;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 01, 1992
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    This is the number of team beds. This field is used in reporting and for admission rotation purposes.
10 ADMIT IN ROTATION 1;4 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 01, 1992
  • HELP-PROMPT:  ENTER "YES" ONLY IF TEAM WILL RECEIVE ADMISSIONS IN ROTATION WITH OTHER TEAMS ON THIS UNIT.
  • DESCRIPTION:  If answered "1", team rotation status will be displayed. Team rotation is strictly linear (i.e., one team receives an admission and goes to the end of the rotation list). Remaining teams move up in rotation. Teams whose
    admission allotment have been filled are identified.
    This rotation system is for display only. Automatic team assignments are not made by the In-Patient Features Option of the Mental Health System.
11 LOCAL TITLE FOR LISTED STAFF 0;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  JAN 01, 1992
  • HELP-PROMPT:  ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the title for the staff member to be tied to a patient. Examples include, "coordinator", "primary therapist", "case manager", "primary nurse".
12 MASTER TX PLAN DUE TXP;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 01, 1992
  • HELP-PROMPT:  Enter number of days following admission that the Master treatment plan is due. Current range is 1 to 120 days.
  • DESCRIPTION:  
    This is the number of days following admission that a treatment plan must be placed in the medical record. Current range is 1 to 120 days.
13 TREATMENT PLAN UPDATE DUE TXP;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 01, 1992
  • HELP-PROMPT:  Enter number of days following Master Tx Plan that an Update is due. Current range is 1 to 120 days.
  • DESCRIPTION:  
    This is the number of days following the master treatment plan that updates are required. Current range is 1 to 120 days.
22 INTERVIEW/TEST TEST;0 Multiple #618.21 618.21

  • LAST EDITED:  JAN 01, 1992
  • DESCRIPTION:  
    This is a listing of tests and interviews routinely reviewed by the psychologist. It allows quick looks at administrations of test batteries.

External References

Name Field # of Occurrence
^DIC .5+1
MIX^DIC1 1+1
SETDICS^YSCEN13 .5+1, .5SCR+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] ID.5+1
^YSG("SUB" - [#618.2] .01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), .7(XREF 1S), .7(XREF 1K), .9+1, .9(XREF 1S), .9(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("1" ID.5+1, ID.7+1
^(0 ID.5+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D 1+1*
>> DA .01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), .7(XREF 1S), .7(XREF 1K), .9+1, .9(XREF 1S), .9(XREF 1K)
DIC ID.5+1, .5+1!*, 1+1!
DIC("S" 1+1*, 1SCR+1*
>> DIE .5+1, 1+1*
U ID.5+1, ID.7+1, .9+1, .9(XREF 1S), .9(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .5+1*!, .5(XREF 1S), .5(XREF 1K), .7+1!, .7(XREF 1S), .7(XREF 1K), .9+1!
, .9(XREF 1S), .9(XREF 1K), 1+1*!, 9+1!, 11+1!, 12+1!, 13+1!
>> Y .5+1, .9+1*, 1+1
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All