Sub-Field: 69.24

Parent File	Name	Number	Package
LAB SECTION PRINT(#69.2)	ENTRY NUMBER	69.24	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	ENTRY NUMBER	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X` LAST EDITED: `APR 12, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.02	PARENT FILE	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<2)!(X?.E1"."5N.N) X` LAST EDITED: `APR 12, 1985` HELP-PROMPT: `TYPE A NUMBER BETWEEN 2 AND 999`
.03	NAME	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X` LAST EDITED: `APR 12, 1985` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: Name of the patient. CROSS-REFERENCE: `69.24^C` 1)= S ^LRO(69.2,DA(1),5,"C",$E(X,1,30),DA)="" 2)= K ^LRO(69.2,DA(1),5,"C",$E(X,1,30),DA)

ENTRY NUMBER

0;1

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: APR 12, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

PARENT FILE

0;2

NUMBER

NAME

0;3

FREE TEXT

CROSS-REFERENCE: 69.24^C

1)= S ^LRO(69.2,DA(1),5,"C",$E(X,1,30),DA)=""

2)= K ^LRO(69.2,DA(1),5,"C",$E(X,1,30),DA)