INPUT TRANSFORM: K:$L(X)>4!($L(X)<4)!(+X<1)!(+X>2400)!(X#100>59)!(X'?1N.N) X
LAST EDITED: JUL 24, 1986
HELP-PROMPT: Answer must be 4 characters in length.
DESCRIPTION: Delivery times must be entered using a 24-hour clock (i.e., 9AM is entered as 0900). Delivery times are used as default start times for admixtures and hyperalimentations. Enter midnight as 2400.
GROUP: PSJI
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 59.52^B
1)= S ^PS(59.5,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PS(59.5,DA(1),3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 59.52^AT^MUMPS
1)= S ^PS(59.5,DA(1),3,"AT",+("."_X),DA)=""
2)= K ^PS(59.5,DA(1),3,"AT",+("."_X),DA)
Used by Inpatient Package. S ^PS(59.5,IV ROOM NAME,3,"AT",DELIVERY TIME (minus trailing zeros),DELIVERY TIME IEN)=""