Sub-Field: 65.5991

Parent File	Name	Number	Package
65.599	COMPLETE DATE/TIME	65.5991	Lab Service

Parent File

Name

Number

Package

COMPLETE DATE/TIME

65.5991

Details

Field # Name Loc Type 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.5^AA^MUMPS` 1)= S A=$P(^LRE(DA(3),5,DA(2),99,DA(1),1,DA,0),U,3) S:'A ^LRE("AA",DA(3),DA(2),DA(1),DA)=$P(^LRE(DA(3),5,DA(2),0),U,4) 2)= K ^LRE("AA",DA(3),DA(2),DA(1),DA) Used for workload recording. If x-ref exists workload needs to be counted.
.02	TECH	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 28, 1991`
1	WKLD CODE	1;0	POINTER Multiple #65.59911	65.59911

COMPLETE DATE/TIME

0;1

DATE

CROSS-REFERENCE: 65.5^AA^MUMPS

1)= S A=$P(^LRE(DA(3),5,DA(2),99,DA(1),1,DA,0),U,3) S:'A ^LRE("AA",DA(3),DA(2),DA(1),DA)=$P(^LRE(DA(3),5,DA(2),0),U,4)

2)= K ^LRE("AA",DA(3),DA(2),DA(1),DA)

Used for workload recording.  If x-ref exists workload needs to be counted.

TECH

0;2

POINTER TO NEW PERSON FILE (#200)

1 WKLD CODE 1;0 POINTER Multiple #65.59911 65.59911