Sub-Field: 64.701

Parent File	Name	Number	Package
CUMULATIVE(#64.7)	MAJOR HEADER	64.701	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	MAJOR HEADER	0;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 18, 1989` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH` CROSS-REFERENCE: `64.701^LGOT^MUMPS` 1)= I $D(^LAC("LRAC",DA(1),1,DA,.5)),$P(^(.5),"^",1)=1 S ^LAC("LGOT",DA(1),DA)="" 2)= Q CROSS-REFERENCE: `64.701^LGOT^MUMPS` 1)= Q ;S ^LAC("LGOT",LRDFN,LRMH)="" SET BY PROGRAM (Patient,major header) 2)= Q
.5	NEW DATA	.5;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUL 18, 1989`
1	PAGE NUMBER	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 999999`
10	MINOR HEADER	1;0	Multiple #64.703	64.703