Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 413.015

Package: Equipment Turn-In Request

EQUIPMENT REQUEST(#413)-->413.015

Sub-Field: 413.015

Information

Parent File	Name	Number	Package
EQUIPMENT REQUEST(#413)	LINE ITEM NUMBER	413.015	Equipment Turn-In Request

Details

Field #	Name	Loc	Type	Details
.01	LINE ITEM NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 23, 1996` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This is the number of the item being requested.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `413.015^B` `1)= S ^PRCN(413,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^PRCN(413,DA(1),1,"B",$E(X,1,30),DA)` `This cross-reference is by the Line Item Number.`
1	DESCRIPTION	1;0	WORD-PROCESSING #413.151	DESCRIPTION: `This is a full description of the line item that is being requested.` LAST EDITED: `OCT 02, 1992` DESCRIPTION: `This is a full description of the line item that is being requested.`
2	POTENTIAL VENDOR PTR	0;2	POINTER TO VENDOR FILE (#440)	VENDOR(#440) LAST EDITED: `APR 19, 1996` HELP-PROMPT: `Enter the name of a vendor this equipment could be purchased from.` DESCRIPTION: `This is the possible vendor that the requested line item could be purchased from.`
3	VENDOR PRODUCT #	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 02, 1992` HELP-PROMPT: `Enter the Vendor's specific product number for this item` DESCRIPTION: `This is the vendor's identification of a particular item.`
4	UNIT COST	0;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `OCT 22, 1992` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits` DESCRIPTION: `This is the cost for each quanitity of the line item.`
5	QUANTITY REQUIRED	0;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D ^PRCNREQQ` LAST EDITED: `MAR 30, 1994` HELP-PROMPT: `Enter the quantity desired for this line item` DESCRIPTION: `This is the quantity of the requested line item. For replacement items, there must be a correspondance between the quantity being requested and the number of items being replaced.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
6	TOTAL COST		COMPUTED	MUMPS CODE: `S Y(413.015,6,1)=$S($D(^PRCN(413,D0,1,D1,0)):^(0),1:"") S X=$P(Y(413.015,6,1),U,4)$P(Y(413.015,6,1),U,5) S X=$J(X,0,2)` ALGORITHM: `#4#5 (ALWAYS 2 DECIMAL DIGITS)` DESCRIPTION: `This is the UNIT COST times the QUANTITY REQUIRED to give an estimated total cost for the requested line item.`
7	CONTRACT #	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>19!($L(X)<7) X D:$D(X) B^PRCNHLP` LAST EDITED: `OCT 02, 1992` HELP-PROMPT: `Answer must be 7-19 characters in length.` DESCRIPTION: `This field can be used if there is a special contract already in place for purchase of certain items.` EXECUTABLE HELP: `D A^PRCNHLP` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	PARENT SYSTEM / COMPONENT	0;12	SET	**********************REQUIRED FIELD********************** LAST EDITED: `DEC 18, 1992` DESCRIPTION: `Some items when being requested need to be listed separately but are not costed out separately. These would be considered components of a parent system.`
9	FINAL QUANTITY	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 22, 1992` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `This field contains the number of items that were approved. It may not be the same as the quantity required.`
10	ITEM STATUS	0;8	SET	**********************REQUIRED FIELD********************** LAST EDITED: `OCT 22, 1992` DESCRIPTION: `This field is used to identify the status of a particular line item after the review process. Not all line items in a request may be approved.`
11	ITEM STATUS EXPLANATION	3;0	WORD-PROCESSING #413.1511	DESCRIPTION: `If a line item was not approved, a reason is required as to why.` LAST EDITED: `OCT 02, 1992` DESCRIPTION: `If a line item was not approved, a reason is required as to why.`
12	ITEM STATUS DATE	0;9	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 02, 1992` DESCRIPTION: `This is the date that the line item's status was determined.`
13	CSN	0;10	POINTER TO CATEGORY STOCK NUMBER FILE (#6917)	CATEGORY STOCK NUMBER(#6917) LAST EDITED: `OCT 27, 1992` DESCRIPTION: `This is the Category Stock Number for non-expendable items. It is required for VACO 134s.`
14	EQUIP COM RANKING	0;11	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 10, 1992` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This field is used to rank the line item when the Equipment Committee is reviewing requests.`
15	POTENTIAL VENDOR	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUN 17, 1996` HELP-PROMPT: `Enter a free text vendor name, 1-30 characters` DESCRIPTION: `This field is to be used for entering a recommended vendor for a line item in a free text form if they are currently not in the Vendor file.` EXECUTABLE HELP: `D VENHLP^PRCNUTL`