Sub-Field: 69.33

Information

Parent File	Name	Number	Package
LAB SECTION PRINT(#69.2)	TEST LIST NUMBER	69.33	Lab Service

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TEST LIST NUMBER	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X` LAST EDITED: `MAR 24, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	TEST	1;0	POINTER Multiple #69.34	69.34 SCREEN: `S DIC("S")="I $P(^(0),U,5)[""CH"""` EXPLANATION: `Selects only chem, heme, tox, ser, etc.`

TEST LIST NUMBER

0;1

NUMBER