TIME (13) DATA TYPE (.81)

Name	Value
NAME	TIME
INTERNAL REPRESENTATION	F
PROPERTY	SECONDS ALLOWED ORDER: 1
SHORT DESCRIPTION	Enter a time (no date), e.g., "NOON"
STANDARD PROMPT	Time of Day
METHOD	M CODE: D ^DITIME M CODE: S:Y]"" Y=$E(Y,1,2)_":"_$E(Y,3,9) S:$L(Y)>5 Y=$E(Y,1,5)_":"_$E(Y,6,9) M CODE: W "Enter 'NOW' or some valid time like '2:33PM'" I $G(DIPA("SECONDS ALLOWED"))'=0 W !?14,"Time may include seconds."
FIELDS DEFINED BY THIS TYPE	FIELD DEFINED BY THIS TYPE: 79.1,83 FIELD DEFINED BY THIS TYPE: 79.1,84