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

Package: Mental Health

Global: ^YSG("CEN"


Information

FileMan FileNo FileMan Filename Package
618 MENTAL HEALTH CENSUS Mental Health

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Mental Health 4 ^YSG("CEN"    YSCEN5    YSXRAR1    YSXRAR2    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Registration 4 WARD LOCATION(#42)[.01]    SPECIALTY(#42.4)[4.2]    FACILITY TREATING SPECIALTY(#45.7)[4.1]    PATIENT(#2)[#618.04(.01)]    
Kernel 1 NEW PERSON(#200)[#618.04(2)]    
Mental Health 1 MENTAL HEALTH TEAM(#618.2)[2.8, 3, 3.1, 3.2, 3.3, 3.4]    

Fields, Total: 19

Field # Name Loc Type Details
.01 WARD 0;1 POINTER TO WARD LOCATION FILE (#42)
************************REQUIRED FIELD************************
WARD LOCATION(#42)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  DEC 11, 1985
  • DESCRIPTION:  
    This field is a pointer to the Hopsital location file. It contains the ward name as found on the G&L.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  618^B
    1)= S ^YSG("CEN","B",$E(X,1,30),DA)=""
    2)= K ^YSG("CEN","B",$E(X,1,30),DA)
1 SYNONYM 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X
  • LAST EDITED:  JUL 30, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is a free text field used to print abrreviated names of wards for various reports. It is suggested that this be less than 15 characters and clearly distinguish wards.
  • CROSS-REFERENCE:  618^SYN
    1)= S ^YSG("CEN","SYN",$E(X,1,30),DA)=""
    2)= K ^YSG("CEN","SYN",$E(X,1,30),DA)
2 FACE SHEET ORDER 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X),$D(^YSG("CEN","AFS",X)) S Y=0,Y=$O(^YSG("CEN","AFS",X,Y)) I DA-Y W !,"THIS POSITION ALREADY TAKEN" K X
  • LAST EDITED:  SEP 13, 1993
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999. IT MUST BE A UNIQUE ENTRY.
  • DESCRIPTION:  This field specifies the order of the wards on various reports, for example on the Bed Census report. Face sheet order must be present and each ward must have a unique number. It is suggested that these numbers not be
    sequential but separated by at least 5 so later additions or movements can be easily accomplished.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  618^AFS
    1)= S ^YSG("CEN","AFS",$E(X,1,30),DA)=""
    2)= K ^YSG("CEN","AFS",$E(X,1,30),DA)
2.2 LIST SUBTOTAL 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • DESCRIPTION:  
    This is a set field that casues a census sub-total to be displayed on the Bed Census "face sheet". This is useful to indicate census over several wards ie 3 "acute" units.
2.3 ZERO SUBTOTAL 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • DESCRIPTION:  
    This set field specifies whether the sub-total count should be reset to 0. This is used to either show serveral distinct sub-totals or to keep a running sub-total.
2.4 SUBTOTAL TITLE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  This free text field is displayed as the title of any sub-total displayed on the Bed Census "face sheet". If no sub-total is displayed this field is ignored. If a sub-total is requested and this field is empty, the
    default "sub-total" will be displayed. It is suggested that all subtotal titles contain the phrase "sub-total" eg Acute sub-total.
2.5 LINE FEED 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • DESCRIPTION:  
    This field if set will add a blank line following a ward on the Bed Census "face sheet". This is for ease of reading only.
2.7 WARD NOT DIVIDED INTO TEAMS 0;8 SET
  • '1' FOR NOT DIVIDED INTO TEAMS/ONLY 1 TEAM;
  • '0' FOR HAS MULTIPLE TEAMS;

  • LAST EDITED:  SEP 26, 1989
  • DESCRIPTION:  This set field indicates whether a ward has multiple teams. If not divided into teams, admissions will be automatically assigned the specified "single team". If this field is set users will not be asked team information
    when editing patient data.
2.8 DEFAULT TEAM 0;9 POINTER TO MENTAL HEALTH TEAM FILE (#618.2)
************************REQUIRED FIELD************************
MENTAL HEALTH TEAM(#618.2)

  • INPUT TRANSFORM:  S DIC("S")="I +$G(^YSG(""SUB"",+$G(Y),1))=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 17, 1993
  • DESCRIPTION:  
    This field points to the MENTAL HEALTH TEAM FILE 618.2. It specifies a "team" to be used when the ward is not broken up into teams. This will allow automatic assignments.
  • SCREEN:  S DIC("S")="I +$G(^YSG(""SUB"",+$G(Y),1))=DA"
  • EXPLANATION:  Only Teams belonging to the Ward being edited may be selected...
3 TEAM ROTATION 1 ROT;1 POINTER TO MENTAL HEALTH TEAM FILE (#618.2) MENTAL HEALTH TEAM(#618.2)

  • INPUT TRANSFORM:  S DIC("S")="I +^(1)=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 12, 1985
  • DESCRIPTION:  
    This field points to the team file and specifes the team up for the next admission.
  • SCREEN:  S DIC("S")="I +^(1)=DA"
  • EXPLANATION:  Only teams belonging to the Ward being edited may be selected...
3.1 TEAM ROTATION 2 ROT;2 POINTER TO MENTAL HEALTH TEAM FILE (#618.2) MENTAL HEALTH TEAM(#618.2)

  • INPUT TRANSFORM:  S DIC("S")="I +^(1)=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 12, 1985
  • DESCRIPTION:  
    This field points to the team file and specifies the second team up for an admission.
  • SCREEN:  S DIC("S")="I +^(1)=DA"
  • EXPLANATION:  Only teams belonging to the ward being edited may be selected...
3.2 TEAM ROTATION 3 ROT;3 POINTER TO MENTAL HEALTH TEAM FILE (#618.2) MENTAL HEALTH TEAM(#618.2)

  • INPUT TRANSFORM:  S DIC("S")="I +^(1)=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 12, 1985
  • DESCRIPTION:  
    This field points to the team file and specifies the third team up for an admission.
  • SCREEN:  S DIC("S")="I +^(1)=DA"
  • EXPLANATION:  Only teams belonging to the ward being edited may be selected...
3.3 TEAM ROTATION 4 ROT;4 POINTER TO MENTAL HEALTH TEAM FILE (#618.2) MENTAL HEALTH TEAM(#618.2)

  • INPUT TRANSFORM:  S DIC("S")="I +^(1)=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 29, 1985
  • DESCRIPTION:  
    This field points to the team file and specifies the fourth team up for an admission.
  • SCREEN:  S DIC("S")="I +^(1)=DA"
  • EXPLANATION:  Only teams belonging to the ward being edited may be selected...
3.4 TEAM ROTATION 5 ROT;5 POINTER TO MENTAL HEALTH TEAM FILE (#618.2) MENTAL HEALTH TEAM(#618.2)

  • INPUT TRANSFORM:  S DIC("S")="I +^(1)=DA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • DESCRIPTION:  
    This field points to the team file and specifies the fifth team up for an admission.
  • SCREEN:  S DIC("S")="I +^(1)=DA"
  • EXPLANATION:  Only teams belonging to the ward being edited may be selected...
4 COST OF TREATMENT PER DAY 0;10 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<1) X
  • LAST EDITED:  SEP 01, 1988
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the estimated cost of treatment per day on this ward. This figure is used to estimate the DRG break-even days. It is OK to change this figure and run reports to see how cost/day affects break even.
4.1 TREATING SPECIALTY 0;11 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  JUN 07, 1989
  • DESCRIPTION:  
    This is a pointer to the Treating Specialty file. It is currently not used by this system but added for later use.
4.2 BEDSECTION 0;12 POINTER TO SPECIALTY FILE (#42.4) SPECIALTY(#42.4)

  • LAST EDITED:  JUN 07, 1989
  • DESCRIPTION:  
    This is a pointer to the Med Specialty/Bedsection file. It is not currently used by the system but added for later use.
  • CROSS-REFERENCE:  618^ABS
    1)= S ^YSG("CEN","ABS",$E(X,1,30),DA)=""
    2)= K ^YSG("CEN","ABS",$E(X,1,30),DA)
6 BOARDED ON PSYCHIATRY BED;0 POINTER Multiple #618.04 618.04

  • DESCRIPTION:  
    This field is currently not used by the system but will be the indicator for those patients sleeping on a psychiatric ward but assigned to other services.
7 INACTIVATE WARD 0;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 08, 1988
  • DESCRIPTION:  
    This is an 'ACTIVITY' flag. If this ward is NOT in active use then the flag will be set to '1', if active it will be set set to '0'.

External References

Name Field # of Occurrence
^DIC 2.8+1, 3+1, 3.1+1, 3.2+1, 3.3+1, 3.4+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YSG("CEN" - [#618] .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1, 2(XREF 1S), 2(XREF 1K), 4.2(XREF 1S), 4.2(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1, 2(XREF 1S), 2(XREF 1K), 4.2(XREF 1S), 4.2(XREF 1K)
DIC 2.8+1!*, 3+1!*, 3.1+1!*, 3.2+1!*, 3.3+1!*, 3.4+1!*
DIC("S" 2.8+1*, 2.8SCR+1*, 3+1*, 3SCR+1*, 3.1+1*, 3.1SCR+1*, 3.2+1*, 3.2SCR+1*, 3.3+1*, 3.3SCR+1*
, 3.4+1*, 3.4SCR+1*
>> DIE 2.8+1, 3+1, 3.1+1, 3.2+1, 3.3+1, 3.4+1
>> DINUM .01+1*
U ID1+1
X .01+1, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1K), 2.4+1!
, 2.8+1*!, 3+1*!, 3.1+1*!, 3.2+1*!, 3.3+1*!, 3.4+1*!, 4+1*!, 4.2(XREF 1S), 4.2(XREF 1K)
>> Y 2+1*, 2.8+1, 3+1, 3.1+1, 3.2+1, 3.3+1, 3.4+1
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All