Sub-Field: 410.02

Parent File	Name	Number	Package
CONTROL POINT ACTIVITY(#410)	ITEM	410.02	IFCAP

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: `FEB 22, 2005` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999` DESCRIPTION: `This is the item number for this request.` CROSS-REFERENCE: `410.02^B` `1)= S ^PRCS(410,DA(1),"IT","B",$E(X,1,30),DA)=""` `2)= K ^PRCS(410,DA(1),"IT","B",$E(X,1,30),DA)` CROSS-REFERENCE: `410.02^AB` `1)= S ^PRCS(410,DA(1),"IT","AB",$E(X,1,30),DA)=""` `2)= K ^PRCS(410,DA(1),"IT","AB",$E(X,1,30),DA)` `This cross reference is set for each line item of a transaction, from the "IT" item cross reference. Listed from "AB" and the line item number, on consecutive nodes, are the line item data.` CROSS-REFERENCE: `410.02^AD^MUMPS` `1)= S Z(1)=$S($D(^PRCS(410,DA(1),3)):$P(^(3),U,3),1:"") S ^PRCS(410,DA(1),"IT",DA,0)=$P(^PRCS(410,DA(1),"IT",DA,0)_"^^^^^^^",U,1,7)_U_Z(1) K Z(1)` `2)= Q` RECORD INDEXES: `AH (#580)`
1	DESCRIPTION	1;0	WORD-PROCESSING #410.03	DESCRIPTION: `This is a description of the item being ordered.` HELP-PROMPT: `Enter a description for this item` DESCRIPTION: `This is a description of the item being ordered.`
2	QUANTITY	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X` LAST EDITED: `JAN 22, 1986` HELP-PROMPT: `Enter the quantity (a number from .01 to 999,999 with up to two decimal places) of this item you wish to order.` DESCRIPTION: `This is the quantity of the item(s) requested.` CROSS-REFERENCE: `410.02^AE^MUMPS` `1)= S E=0,E(1)="" S:'$D(^PRCS(410,DA(1),4)) ^(4)="" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),"IT",E)) S:E?1N.N E(1)=E(1)+($P(^(E,0),U,2)$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q` `1.4)= S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=E(1),DA=DA(1) X ^DD(410,20,1,1,1) S DA=E,DA(1)=E(2)` `2)= S E=0,E(1)="" S:'$D(^PRCS(410,DA(1),4)) ^(4)="" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),"IT",E)) S:E?1N.N&(E'=DA) E(1)=E(1)+($P(^(E,0),U,2)$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q` `2.4)= S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=$J(E(1),10,2),DA=DA(1) X ^DD(410,20,1,1,2) S DA=E,DA(1)=E(2)` `This cross reference is used to calculate the quantity ordered for each line item.` RECORD INDEXES: `AH (#580)`
3	UNIT OF PURCHASE	0;3	POINTER TO UNIT OF ISSUE FILE (#420.5)	**********************REQUIRED FIELD********************** UNIT OF ISSUE(#420.5) LAST EDITED: `JUL 11, 1985` HELP-PROMPT: `Select the appropriate unit of purchase for this item` DESCRIPTION: `This is the unit of measurement for items being procured.` `e.g., each, dozen, box, bottle, case, pound (lb.), square ft., etc.` RECORD INDEXES: `AH (#580)`
4	BOC	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) D SUB^PRCSES` LAST EDITED: `MAR 23, 1994` HELP-PROMPT: `Select the appropriate budget object code for this item` DESCRIPTION: `This is a fiscal code which describes the type of item/service being procured (associated with Control Points and Cost Centers).` `e.g., 2620 Office Supplies` `2623 ADP Recording Media` `2524 ADP Software` `BOC (Budget Object Code) replaces the 'subaccount' field for FMS.` EXECUTABLE HELP: `D ^PRCSES S ZD=D,X="?",Z0=$S($D(^PRCS(410,DA(1),3)):+$P(^(3),U,3),1:0) Q:'Z0!'$D(^PRCD(420.1,Z0,1,0)) S DIC="^PRCD(420.1,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `410.02^AD^MUMPS` `1)= S ^PRCS(410,"AD",$E(X,1,30),DA(1))=""` `2)= K ^PRCS(410,"AD",$E(X,1,30),DA(1))` `This cross reference is set on the number and name of the budget object code used on the request.` RECORD INDEXES: `AH (#580)`
5	ITEM MASTER FILE NO.	0;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) D ITEM^PRCSES1` LAST EDITED: `AUG 23, 1994` HELP-PROMPT: `Select the procurement (UIR) card number you wish to order` DESCRIPTION: `This is a number used to identify an item in the Item File when entering a repetitive form type (associated with the Item Master Number).` `e.g., 322 Widget-3/4 IN` EXECUTABLE HELP: `D ITEMH^PRCSES1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `410.02^AG` `1)= S ^PRCS(410,DA(1),"IT","AG",$E(X,1,30),DA)=""` `2)= K ^PRCS(410,DA(1),"IT","AG",$E(X,1,30),DA)` `This cross reference is set from the "IT" item cross reference, and from "AG", is set on the repetitive (PR card) number.` RECORD INDEXES: `AH (#580)`
6	STOCK NUMBER	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>24!($L(X)<1)!(X'?.ANP) X` LAST EDITED: `MAR 16, 1985` HELP-PROMPT: `Enter the Federal Supply Service (FSS) or other stock number for this item, or the manufacturers model number` DESCRIPTION: `This is the item Federal Supply Service (FSS) Number; or National Stock Number (NSN); or any other stock number; or the manufacturer model number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` RECORD INDEXES: `AH (#580)`
7	EST. ITEM (UNIT) COST	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) Q:X?1"N/C" K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X I $D(X) S:X=0 X="N/C"` LAST EDITED: `MAR 17, 1986` HELP-PROMPT: `Enter the unit cost for this item (a dollar amount between 0 and 9999999) or N/C for no charge. Commas are not allowed.` DESCRIPTION: `This is the individual unit cost of the item(s) in a dollar amount or N/C for no charge.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `410.02^AF^MUMPS` `1)= S E=0,E(1)="" S:'$D(^PRCS(410,DA(1),4)) ^(4)="" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),"IT",E)) S:E?1N.N E(1)=E(1)+($P(^(E,0),U,2)$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q` `1.4)= S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=E(1),DA=DA(1) X ^DD(410,20,1,1,2) S DA=E,DA(1)=E(2)` `2)= S E=0,E(1)="" S:'$D(^PRCS(410,DA(1),4)) ^(4)="" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),"IT",E)) S:E?1N.N&(E'=DA) E(1)=E(1)+($P(^(E,0),U,2)$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q` `2.4)= S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=$J(E(1),10,2),DA=DA(1) X ^DD(410,20,1,1,2) S DA=E,DA(1)=E(2)` `This cross reference is used to calculate the estimated item (unit) cost.` RECORD INDEXES: `AH (#580)`
8	ITEM DELIVERY POINTS	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 21, 1987` HELP-PROMPT: `If this item is to be delivered to multiple rooms/persons/sections upon receipt, enter in this field each delivery point and the quantity each should receive.` DESCRIPTION: `This is an identification of the room(s), person(s), or section(s) to which the item is to be delivered.`
9	PURCHASE ORDER/OBLIGATION NO	0;10	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) LAST EDITED: `JUL 15, 1985` DESCRIPTION: `This is the item purchase order/obligation number that is either generated on IFCAP or entered by the Control Point Clerk. For transactions generated on IFCAP, the number is transferred from the purchase order file.` `For transactions not generated on IFCAP (e.g.,travel voucher), the number is manually entered by the Control Point Clerk.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `410.02^AC^MUMPS` `1)= K ^PRCS(410,DA(1),"IT","AB",+$P(^PRCS(410,DA(1),"IT",0),U,1),DA)` `2)= S ^PRCS(410,DA(1),"IT","AB",+$P(^PRCS(410,DA(1),"IT",0),U,1),DA)=""` `This cross reference is used to set part of the "IT" item cross reference. From "AB", the purchase order/obligation number is set. This cross reference is used to link the purchase order number with the line item` `number. As items are deleted in any order, it is more efficient to kill and then recreate the cross reference.`
10	INTERMEDIATE PRODUCT CODE	0;11	POINTER TO INTERMEDIATE PRODUCT FILE (#420.9)	INTERMEDIATE PRODUCT(#420.9) LAST EDITED: `APR 22, 1986` HELP-PROMPT: `Select the appropriate Intermediate Product Code for this item.` DESCRIPTION: `This is the appropriate Intermediate Product Code for the item.`
11	RECEIVING CODE SHEET NO.	0;9	POINTER TO CALM/LOG CODE SHEET FILE (#423)	CALM/LOG CODE SHEET(#423) LAST EDITED: `APR 21, 1989` HELP-PROMPT: `Pointer to LOG/CALM Code sheet file (423) for the LOG Issues Code sheet created for the receipt of this line item.` DESCRIPTION: `This is the computer generated number identifying the receiving code sheet transmitted to Austin, TX. It is associated with the CALM.LOG Code Sheet file, #423. It is composed of a Sequence Number and Fiscal Year.` `e.g., 106-91,` `106 = Sequence Number;` `91 = Fiscal Year.`
12	DELIVERY SCHEDULE	2;0	Multiple #410.212	410.212 DESCRIPTION: `This field is the Delivery Schedule of the Order File, #442.8.` IDENTIFIED BY: `"Z1": I $D(^(0)),$D(^PRCS(410.6,+$P(^(0),U,2),0)) S Z1=^(0) W "QTY: ",$P(Z1,U,4),?15," SCP: ",$S($D(^PRCS(410.4,+$P(Z1,U,5),0)):$E($P(^(0),U),1,10),1:""),?35," DATE: ",$E($P(Z1,U,2),4,5)_"-"_$E($P(Z1,U,2),6,7)_"-"_$E($P(Z1` `,U,2),2,3) K Z1` `"Z2": I $D(^(0)),$D(^PRCS(410.6,+$P(^(0),U,2),0)) S Z1=$P(^(0),U,3) W " LOC: ",$S($D(^PRCS(410.8,+Z1,0)):$E($P(^(0),U),1,10),1:"") K Z1`
13	QUANTITY POSTED (WHSE)	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 14, 1991` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: `This field is used to store the quantity posted from the warehouse to a primary for issue book requests.`
14	QUANTITY RECEIVED (PRIMARY)	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 14, 1991` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits` DESCRIPTION: `This field is used to store the quantity received from the warehouse to a primary for issue book requests.`
15	STATUS	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `JUL 19, 1991` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This field is used to indicate if an item is 'C'ancelled or 'S'ubstituted. If an item is substituted, it will also contain the line item number for the item(s) which were substituted for this item.`
16	PO EST. SHIPPING	3;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-9999999.99) X` LAST EDITED: `APR 25, 1994` HELP-PROMPT: `Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the shipping cost for the item as calculated on the purchase order.`
17	DM DOC ID	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<9) X` LAST EDITED: `FEB 28, 2005` HELP-PROMPT: `Answer must be 9-16 characters in length` DESCRIPTION: `This is DynaMed's unique number associated with each item that is sent on a request order from DynaMed. It is composed of 1 digit for Year concatenated with 3 digit Julian Date a dash, concatenated with 4 digit` `Sequential Number and a dash, concatenated up to 6 characters (ex YDDD-9999-CCCCCC).` `This number is provided by DynaMed, a user's input is not required. DynaMed allows 16 characters maximum.` TECHNICAL DESCR: `This number will be associated with an order request from DynaMed. Each order request will identify a single item in Item Master File in IFCAP. The DM DOC ID is also recorded in a DynaMed IFCAP Interface Audit File` `#414.02 (a new file created for DynaMed interface).` `SOURCE OF DATA: DynaMed --Information Control` `UNEDITABLE` RECORD INDEXES: `AH (#580)`
18	DATE NEEDED BY	4;2	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:X<1 X` LAST EDITED: `FEB 28, 2005` HELP-PROMPT: `(No range limit on date)` DESCRIPTION: `This field holds a date when DynaMed anticipates an item should arrive. It is received in a Repetitive Item List(RIL) transaction for each item and then carried on to 2237 and then to Purchase Order as the item is` `processed through IFCAP.` TECHNICAL DESCR: `This field reflects item's needed by date in DynaMed. It is best NOT to edit this date.` `SOURCE OF DATA: DynaMed --Information Control` `UNEDITABLE` RECORD INDEXES: `AH (#580)`
100	ECMS ITEMUID	4;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1)!'(X?1.10N) X` LAST EDITED: `MAY 10, 2012` HELP-PROMPT: `Enter the 1-10 digit eCMS ItemUID value.` DESCRIPTION: `This field stores the eCMS internal, unique identifier for this 2237 item line. This field is populated by the eCMS/IFCAP interface.` `UNEDITABLE`
445.01	ACCT-BOC	445;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7)!'(X?1"A"1N1"-"4N) X` LAST EDITED: `MAY 06, 1994` HELP-PROMPT: `Enter 'A' followed by the 1 digit account followed by a '-' followed by the 4 digit BOC.` DESCRIPTION: `This field is used to build a cross-reference of the inventory account and BOC which is used to determine the FMS line number for the IV document. This field is populated during the issue book posting and` `adjustments in the inventory package.` CROSS-REFERENCE: `410.02^AX1^MUMPS` `1)= D XREFFMS^PRCPSFU0(DA(1),DA,X,445.01,"SET")` `2)= D XREFFMS^PRCPSFU0(DA(1),DA,X,445.01,"KILL")` `This cross-reference is used to lookup the FMS line number when creating the IV document. If an account-BOC previously appears on an FMS IV document line number, the same line number must be used for other items` `which have the same account-BOC information.`
445.02	FMSLINE	445;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 07, 1994` HELP-PROMPT: `Enter the FMS IV document line number which was used for this account-BOC (item). From 1 to 999.` DESCRIPTION: `This field is used to store the FMS IV document line number which was used for this account-BOC (field 445.01).` CROSS-REFERENCE: `410.02^AX2^MUMPS` `1)= D XREFFMS^PRCPSFU0(DA(1),DA,X,445.02,"SET")` `2)= D XREFFMS^PRCPSFU0(DA(1),DA,X,445.02,"KILL")` `This cross-reference is used to lookup the FMS line number when creating the IV document. If an account-BOC previously appears on an FMS IV document line number, the same line number must be used for other items` `which have the same account-BOC information.`
445.03	TOTAL QUANTITY POSTED	445;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 07, 1994` HELP-PROMPT: `Enter the total quantity posted by the warehouse from 0 to 9999999.` DESCRIPTION: `This field stores the total quantity posted by the warehouse.`
445.04	TOTAL INVENTORY VALUE	445;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `MAR 07, 1994` HELP-PROMPT: `Enter the total warehouse inventory value posted by the warehouse from 0 to 9999999.99.` DESCRIPTION: `This field stores the total inventory value posted by the warehouse inventory point.`
445.05	TOTAL SELLING VALUE	445;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `MAR 07, 1994` HELP-PROMPT: `Enter the total warehouse selling value posted by the warehouse from 0 to 9999999.99.` DESCRIPTION: `This field stores the total selling value posted by the warehouse inventory point.`

Customize PDF page

Package: IFCAP

CONTROL POINT ACTIVITY(#410)-->410.02

Sub-Field: 410.02

Information

Details