Sub-Field: 6925.04

Parent File	Name	Number	Package
CONSTRUCTION PROJECT(#6925)	EQUIPMENT OVER $250K	6925.04	Engineering

Details

Field #	Name	Loc	Type	Details
.01	EQUIPMENT OVER $250K NAME	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `FEB 14, 1994` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains a 3-30 character name for an equipment item over $250,000.` CROSS-REFERENCE: `6925.04^B` `1)= S ^ENG("PROJ",DA(1),25,"B",$E(X,1,30),DA)=""` `2)= K ^ENG("PROJ",DA(1),25,"B",$E(X,1,30),DA)`
1	QUANTITY	0;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 26, 1993` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This field contains the quantity of the equipment item.`
2	UNIT COST	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<250000)!(X?.E1"."1N.N) X` LAST EDITED: `APR 26, 1993` HELP-PROMPT: `Enter a whole dollar amount between 250000 and 99999999` DESCRIPTION: `This field contains the unit cost of the equipment item.`
3	LINE ITEM AMT		COMPUTED	MUMPS CODE: `S Y(6925.04,3,1)=$S($D(^ENG("PROJ",D0,25,D1,0)):^(0),1:"") S X=$P(Y(6925.04,3,1),U,2)$P(Y(6925.04,3,1),U,3)` ALGORITHM: `#1#2` LAST EDITED: `DEC 30, 1992` DESCRIPTION: `This field contains the computed total cost of an equipment item.`
4	ADDITIONAL/REPLACEMENT	0;4	SET	'A' FOR ADDITIONAL; 'R' FOR REPLACEMENT; LAST EDITED: `APR 29, 1994` HELP-PROMPT: `Enter 'A' if additional equipment or 'R' if replacement equipment.` DESCRIPTION: `This field identifies equipment over $250K as additional or replacement equipment.`