Sub-Field: 65.31

Parent File	Name	Number	Package
65.3	COMPLETE DATE/TIME	65.31	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	COMPLETE DATE/TIME	0;1	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X` LAST EDITED: `MAR 03, 1993` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `65^AA^MUMPS` `1)= S A=$P(^LRD(65,DA(2),99,DA(1),1,DA,0),U,3) I 'A S ^LRD(65,"AA",DA(2),DA(1),DA)=$P(^LRD(65,DA(2),0),U)` `2)= K ^LRD(65,"AA",DA(2),DA(1),DA)` `WKLD workload flag`
.02	TECH	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 26, 1991` DESCRIPTION: `The name of the technician completing the test/procedure`
.03	INSTITUTION	0;3	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `JUL 31, 1992` DESCRIPTION: `The name of the institution from the Institution file`
.04	MAJOR SECTION	0;4	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) LAST EDITED: `JUL 31, 1992` DESCRIPTION: `The name of the major section from the Accession file`
.05	SUBSECTION	0;5	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) LAST EDITED: `JUL 31, 1992` DESCRIPTION: `The name of the subsection from the Accession file`
1	WKLD CODE	1;0	POINTER Multiple #65.311	65.311 DESCRIPTION: `The name of the workload code from the WKLD CODE file`