STANDARD DATA DICTIONARY #618 -- MENTAL HEALTH CENSUS FILE 9/29/25 PAGE 1
STORED IN ^YSG("CEN", *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.01)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains CURRENT data used by the In-Patient Features Option of the Mental Health System.
COMPILED CROSS-REFERENCE ROUTINE: YSXRAR
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: SYNONYM (#1)[R]
CROSS
REFERENCED BY: BEDSECTION(ABS), FACE SHEET ORDER(AFS), WARD(B), SYNONYM(SYN)
618,.01 WARD 0;1 POINTER TO WARD LOCATION FILE (#42) (Required)
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)
618,1 SYNONYM 0;2 FREE TEXT (Required)
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)
618,2 FACE SHEET ORDER 0;3 NUMBER (Required)
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)
618,2.2 LIST SUBTOTAL 0;4 SET (Required)
'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.
618,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.
618,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.
618,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.
618,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.
618,2.8 DEFAULT TEAM 0;9 POINTER TO MENTAL HEALTH TEAM FILE (#618.2) (Required)
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...
618,3 TEAM ROTATION 1 ROT;1 POINTER TO MENTAL HEALTH TEAM FILE (#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...
618,3.1 TEAM ROTATION 2 ROT;2 POINTER TO MENTAL HEALTH TEAM FILE (#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...
618,3.2 TEAM ROTATION 3 ROT;3 POINTER TO MENTAL HEALTH TEAM FILE (#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...
618,3.3 TEAM ROTATION 4 ROT;4 POINTER TO MENTAL HEALTH TEAM FILE (#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...
618,3.4 TEAM ROTATION 5 ROT;5 POINTER TO MENTAL HEALTH TEAM FILE (#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...
618,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.
618,4.1 TREATING SPECIALTY 0;11 POINTER TO FACILITY TREATING SPECIALTY FILE (#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.
618,4.2 BEDSECTION 0;12 POINTER TO SPECIALTY FILE (#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)
618,6 BOARDED ON PSYCHIATRY BED;0 POINTER Multiple #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.
618.04,.01 PATIENT BOARDED ON PSYCH 0;1 POINTER TO PATIENT FILE (#2)
INPUT TRANSFORM: S DINUM=X Q
LAST EDITED: MAY 16, 1986
DESCRIPTION: This is the Patient Name that is sleeping on this psychiatric ward but assigned to another
service. This field contains a pointer value pointing to the PATIENT file #2.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
618.04,1 DATE/TIME ENTERED 0;2 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 16, 1986
DESCRIPTION:
This is the date/time entered into this ward.
618.04,2 ENTERED BY 0;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 16, 1986
DESCRIPTION: This is the name of the person who admitted the patient into this ward. Actually stored is the
pointer value pointing to the NEW PERSON file #200.
618,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'.
FILES POINTED TO FIELDS
FACILITY TREATING SPECIALTY
(#45.7) TREATING SPECIALTY (#4.1)
MENTAL HEALTH TEAM (#618.2) DEFAULT TEAM (#2.8)
TEAM ROTATION 1 (#3)
TEAM ROTATION 2 (#3.1)
TEAM ROTATION 3 (#3.2)
TEAM ROTATION 4 (#3.3)
TEAM ROTATION 5 (#3.4)
NEW PERSON (#200) BOARDED ON PSYCHIATRY:ENTERED BY (#2)
PATIENT (#2) BOARDED ON PSYCHIATRY:PATIENT BOARDED ON PSYCH (#.01)
SPECIALTY (#42.4) BEDSECTION (#4.2)
WARD LOCATION (#42) WARD (#.01)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):