Sub-Field: 64.707

Parent File	Name	Number	Package
64.702	COLLECTION DATE/TIME	64.707	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	INVERSE DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y,X=9999999-X K:Y<1 X I $D(X) S DINUM=9999999-X` LAST EDITED: `JUL 19, 1989` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `64.707^LRKILL^MUMPS` `1)= Q ;S ^LAC("LRKILL",LRDFN,"MISC",1,CDT,0)=CDT^IDT^VIDT^ACCESSION^TOPOGRAPHY` `2)= Q`
1	COLLECTION DATE/TIME	0;2	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 22, 1987` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	VERIFY DATE/TIME	0;3	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 16, 1986`
3	ACCESSION	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `JUL 22, 1987` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH`
10	RESULT	1;0	Multiple #64.708	64.708
11	COMMENTS	TX;0	WORD-PROCESSING #64.709	LAST EDITED: `DEC 16, 1986`