Sub-Field: 64.704

Parent File	Name	Number	Package
64.703	COLLECTION DATE/TIME	64.704	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	COLLECTION DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y,DINUM=X K:Y<1 X` LAST EDITED: `JUL 19, 1989` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `64.704^LRKILL^MUMPS` `1)= D LRKILL^LRXREF` `2)= D LRKILL^LRXREF`
1	LOCATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH`
2	VERIFY DATE/TIME	0;3	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X`
3	ACCESSION	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH`
4	INVERSE DATE/TIME	0;5	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X I $D(X) S X=9999999-X` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
10	RESULTS	1;0	Multiple #64.705	64.705
11	COMMENTS	TX;0	WORD-PROCESSING #64.706