STANDARD DATA DICTIONARY #51.15 -- ADMINISTRATION SHIFT FILE 9/29/25 PAGE 1
STORED IN ^PS(51.15, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains shifts - ranges of times over which an action is to take place, such taking a patient's temperature.
DD ACCESS: @
CROSS
REFERENCED BY: PACKAGE(AC), NAME(ACC), ABBREVIATION(ACP), PACKAGE(AP), NAME(APP), NAME(B), ABBREVIATION(C)
51.15,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
HELP-PROMPT: NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
DESCRIPTION:
This is an arbitrary name for a shift, such as 'MORNING'.
CROSS-REFERENCE: 51.15^B
1)= S ^PS(51.15,"B",$E(X,1,30),DA)=""
2)= K ^PS(51.15,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 51.15^ACC^MUMPS
1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.15,"AC",$P(^(0),"^",4),X,DA)=""
2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.15,"AC",$P(^(0),"^",4),X,DA)
3)= USED BY SCHEDULE PROCESSOR
Used by the Schedule Processor to do package specific look-ups. S
^PS(51.15,"AC",PACKAGE,NAME,IEN)=""
CROSS-REFERENCE: 51.15^APP^MUMPS
1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.15,"AP"_$P(^(0),"^",4),X,DA)=""
2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.15,"AP"_$P(^(0),"^",4),X,DA)
3)= USED BY SCHEDULE PROCESSOR
Used by the Schedule Processor to do package specific look-ups. S
^PS(51.15,"AP"_PACKAGE,NAME,IEN)=""
51.15,1 ABBREVIATION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X
LAST EDITED: NOV 12, 1989
HELP-PROMPT: Answer must be 1 character in length.
DESCRIPTION:
This is a one character code for the shift, such as 'M' for 'MORNING'.
CROSS-REFERENCE: 51.15^C
1)= S ^PS(51.15,"C",$E(X,1,30),DA)=""
2)= K ^PS(51.15,"C",$E(X,1,30),DA)
CROSS-REFERENCE: 51.15^ACP^MUMPS
1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" S ^PS(51.15,"ACP",$P(^(0),"^",4),X,DA)=""
2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^",4)]"" K ^PS(51.15,"ACP",$P(^(0),"^",4),X,DA)
3)= USED BY SCHEDULE PROCESSOR
Used by the Schedule Processor to do package specific look-ups by abbreviation. S
^PS(51.15,"AP"_PACKAGE,NAME,IEN)=""
51.15,2 STANDARD START/STOP TIMES 0;3 FREE TEXT
INPUT TRANSFORM: D ENVSST^PSJSV
LAST EDITED: NOV 25, 1989
HELP-PROMPT: Answer must be 5 or 9 characters in length, a set of two times of the day separated by a dash.
DESCRIPTION: This is two times of the day that define the shift by designating the range over which an action
is to take place. The two times must be in military format and must both be either two or four
characters, and be separated by a dash, such as '09-13' or '0900-1300'.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
51.15,3 HOSPITAL LOCATION 1;0 POINTER Multiple #51.153
DESCRIPTION: This allows the site to enter information pertaining to a shift on a hospital location by
hospital location basis. The wards used are from the HOSPITAL LOCATION file.
TECHNICAL DESCR: This allows the site to enter certain information (e.g., start/stop times) about the shift
specifically by hospital location. The hospital location point to the HOSPITAL LOCATION (#42)
file. In processing, the hospital location is determined by the ward on which the patient is shown
to reside.
GROUP: PSJ
51.153,.01 HOSPITAL LOCATION 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) (Multiply asked)
INPUT TRANSFORM: S:$D(PSJSHLS) DIC("S")=PSJSHLS D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAR 13, 1990
HELP-PROMPT: Enter a hospital location for which a special set of start/stop times pertain.
DESCRIPTION: An area of the hospital that may need to designate set of start/stop times for the shift that
is different than the standard start/stop times.
SCREEN: S:$D(PSJSHLS) DIC("S")=PSJSHLS
EXPLANATION:
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 51.153^B
1)= S ^PS(51.15,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(51.15,DA(1),1,"B",$E(X,1,30),DA)
51.153,1 START/STOP TIMES 0;2 FREE TEXT
INPUT TRANSFORM: D ENVSST^PSJSV
LAST EDITED: NOV 25, 1989
HELP-PROMPT: Answer must be 5-9 characters in length, a set of two times of the day separated by a dash.
DESCRIPTION: This is two times of the day, particular to this hospital location, that define the shift by
designating the range over which an action is to take place. The two times must be in military
format and must both be either two or four characters, and be separated by a dash, such as
'09-13' or '0900-1300'.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
51.15,4 PACKAGE 0;4 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$S(X["""":1,$A(X)=45:1,$L(X)>4:1,$L(X)<1:1,X'?.ANP:1,1:0) X I $D(X)
N DIC S DIC(0)="OX",DIC=9.4,D="C" D IX^DIC K:(+Y'>0) X
LAST EDITED: JAN 07, 1998
HELP-PROMPT: Answer must be 1-4 characters in length.
DESCRIPTION: This is the package prefix (as found in the Package file (9.4)) for the package that will be the
primary user of this shift. This is used primarily as a screen to allow various packages to enter
and edit their own set of shifts. This is NOT to be set through the VA FileMan, but only through
the designated utilities.
EXECUTABLE HELP: D EN^DDIOL("ENTER PREFIX OF PACKAGE THAT WILL BE USING THIS SHIFT.","","!")
GROUP: PSJ
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 51.15^AC^MUMPS
1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" S ^PS(51.15,"AC",X,$P(^(0),"^"),DA)=""
2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" K ^PS(51.15,"AC",X,$P(^(0),"^"),DA)
3)= USED BY SCHEDULE PROCESSOR
Used by the Schedule Processor to do package specific look-ups. S
^PS(51.15,"AC",PACKAGE,NAME,IEN)=""
CROSS-REFERENCE: 51.15^AP^MUMPS
1)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" S ^PS(51.15,"AP"_X,$P(^(0),"^"),DA)=""
2)= I $D(^PS(51.15,DA,0)),$P(^(0),"^")]"" K ^PS(51.15,"AP"_X,$P(^(0),"^"),DA)
3)= USED BY SCHEDULE PROCESSOR
Used by the Schedule Processor to do package specific look-ups. S
^PS(51.15,"AP"_PACKAGE,NAME,IEN)=""
FILES POINTED TO FIELDS
HOSPITAL LOCATION (#44) HOSPITAL LOCATION:HOSPITAL LOCATION (#.01)
INPUT TEMPLATE(S):
PSJ SHIFT EDIT NOV 05, 1989@20:41 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):