Sub-Field: 69.34

Parent File	Name	Number	Package
69.33	TEST	69.34	Lab Service

Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 10, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 7`
.01	TEST	0;1	POINTER TO LABORATORY TEST FILE (#60)	LABORATORY TEST(#60) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 10, 1986`
.02	SPECIMEN	0;2	POINTER TO TOPOGRAPHY FIELD FILE (#61)	**********************REQUIRED FIELD********************** TOPOGRAPHY FIELD(#61) INPUT TRANSFORM: `I $D(X) S X(1)=+^LRO(69.2,DA(2),60,DA(1),1,DA,0) I '$D(^LAB(60,X(1),1,X)) W *7,!,"Not in SITE/SPECIMEN FIELD OF LAB TEST FILE for this test.",! K X` LAST EDITED: `FEB 17, 1988` HELP-PROMPT: `Specimen test is performed on. This must be a specimen entered in the lab test file for the test specified.` EXECUTABLE HELP: `S X(1)=+^LRO(69.2,DA(2),60,DA(1),1,DA,0) I $O(^LAB(60,X(1),0)) W !?5,"SELECT FROM " F II=0:0 S II=+$O(^LAB(60,X(1),1,II)) Q:II<1 I $D(^(II,0)) W !?20,$P(^(0),U)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	VALUE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X I $D(X) K:$E(X)'="<"&($E(X)'=">")&($E(X)'="[")&($E(X)'="=") X` LAST EDITED: `FEB 17, 1988` HELP-PROMPT: `Enter <,>,[ or = followed by the value` EXECUTABLE HELP: `W " Answer must be 2-10 characters in length."` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`