Sub-Field: 64.01

Parent File	Name	Number	Package
WKLD CODE(#64)	SPECIMEN	64.01	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	SPECIMEN	0;1	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) INPUT TRANSFORM: `S:$D(X) DINUM=X` LAST EDITED: `JUL 17, 1993` DESCRIPTION: `Specimen associated with this procedure.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `64.01^B` `1)= S ^LAM(DA(1),5,"B",$E(X,1,30),DA)=""` `2)= K ^LAM(DA(1),5,"B",$E(X,1,30),DA)`
1	SP COST	0;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<.01) X` OUTPUT TRANSFORM: `S Y=$J(Y,5,2)` LAST EDITED: `JUN 01, 1997` HELP-PROMPT: `Type a Dollar Amount between .01 and 10000, 2 Decimal Digits` DESCRIPTION: `This is the cost specific to this specimen. Cost and price are determined locally.`
2	SP PRICE	0;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>10000)!(X<.01) X` LAST EDITED: `JUN 01, 1997` HELP-PROMPT: `Type a Dollar Amount between .01 and 10000, 2 Decimal Digits` DESCRIPTION: `This field contains the price for this specific specimen. The price figure includes fixed cost(s), direct and indirect cost. Cost is determined locally.`
30	TIME ASPECT	1;0	POINTER Multiple #64.02	64.02 DESCRIPTION: `This field contains the timing of the measurement or observation for this test for this specimen.`