Sub-Field: 69.32

Parent File	Name	Number	Package
69.31	FILE ENTRY	69.32	Lab Service

Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 01, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999`
.01	FILE ENTRY NAME	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: `JAN 01, 1986` HELP-PROMPT: `ANSWER MUST BE 1-30 CHARACTERS IN LENGTH` DESCRIPTION: `Enter the name of the entry in the file (.01 field)` CROSS-REFERENCE: `69.32^B` `1)= S ^LRO(69.2,DA(2),8,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^LRO(69.2,DA(2),8,DA(1),1,"B",$E(X,1,30),DA)`
.02	ENTRY COMMENT	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `SEP 02, 1987` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `Description to identify the specific entry`
1	DATE	1;0	DATE Multiple #69.321	69.321