Sub-Field: 51.153

Parent File	Name	Number	Package
ADMINISTRATION SHIFT(#51.15)	HOSPITAL LOCATION	51.153	Inpatient Medications

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	HOSPITAL LOCATION	0;1	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) 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)`
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`

HOSPITAL LOCATION

0;1

POINTER TO HOSPITAL LOCATION FILE (#44)

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)

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