1.Functional Description
1.1Purpose
This function will retrieve the item master record for the Outside Operation item number and return
the Item Number's First, Second and Third item number. It will also verify that an item branch record
exists for the Outside Operation item number. Lastly it will verify that the primary item location
record exists. If the Item Master record does not exist, it will create the Item Master record, Item
Branch and Item Location record along with Cardex information about the new item master record. If the Item
Branch record does not exist, it will create it along with the primary Item Location record.
1.2Setup Notes and Prerequisites
1.3Special Logic
2.Technical Specifications
2.4Processing
/********** Setup Processing *********/
1.Output Error Code = '0'
2.Output Error Message = " "
3.Wk LITM = " "
4.Call X4101 with Input Original Item Number to Retrieve Item Master Record and save the record in
OriginalItemMaster
5.If Found
6. Call B4001050 to get Branch constants.
7. If CISYM1 = ' '
8. Wk LITM = First 19 Characters OriginalItemMaster.IMITM + "*OP" + Input Operation Seq.
9. Else If CISYM2 = ' '
10. Wk LITM = First 19 Characters OriginalItemMaster.IMLITM + "*OP" + Input Operation Seq.
11. Else If CISYM3 = ' '
12. Wk LITM = First 19 Characters OriginalItemMaster.IMAITM + "*OP" + Input Operation Seq.
13. End If
14. Call X4101 to retrieve Item Master Record with Wk LITM and save the record in NewItemMaster.
15. If Not Found then
16. Call B4100290 to Insert a New Item Master Record to F4101 and get the new Short Item
Number.
17. Copy OriginalItemMaster to NewItemMaster and override fields: IMITM=New Short Item
Number, IMLITM = Wk LITM, IMAITM = IMLITM, IMDSC2 = Input Desc., IMSTKT = 'X', IMLNTY =
Input Line Type, IMLLX = 0.
18. Update F4101 with NewItemMaster.
19. End If
20. Output Outside Op Item Number = NewItemMaster.IMITM
21. Output Outside Op 2nd Item Number = NewItemMaster.IMLITM
22. Output Outside Op 2nd Item Number = NewItemMaster.IMAITM
23. Call B4100210 with Output Outside Op Item Number and Input Original Branch.
24. If Not Found
25. Call B4100210 with Input Original Item Number and Input Original Branch and save record
in OriginalItemBranch
26. If Found
27. Call XF41021 with Input Original Item Number and Input Original Branch and PBIN ='P'
and save the record in OriginalItemLocation
28. If Found
29. Call B4100840 to Insert a New Item Branch record.
30. Copy OriginalItemBranch to New Item Branch and override the following fields: IBITM
= NewItemMaster.IMITM, IBLITM = NewItemMaster.IMLITM, IBAITM =
NewItemMaster.IMAITM, IBVEND= Input Vendor, IBPRP4 = ' ', IBSTKT = 'X',
IBLNTY= Input Line Type.
31.
32. Write a new record to Item Location with OriginalItemLocation record and override
the following: LIITM= NewItemMaster.IMITM, LIPQOH=0, LIPCOM=0, LIFUN1=0,
LIQTRI=0, LIQTRO=0, LIPBCK=0, LIPREQ=0, LIOY1P=0, LIOT2P=0, LIHCOM=0, LIFCOM=0,
LIQOWO=0, LIQTTR=0, LIQTIN=0, LIQT01=0, LIQT02=0, LIQONL=0
33.
34. Call B4100050 to write Cardex record
35. DGL = Input TransactionDate, ITM=LIITM, ILMCU=LIMCU, ILLOTN=LILOTN,
ILOCN=LILOCN, ILLITM= NewItemMaster.IMLITM, ILTRDJ=Today'sDate,
ILTREX="Item Add", ILDOC="31410", ILPID, ILTERM, ILDRDH.
36. Else
37. Set Error Code = '1'
38. End If
39. Else
40. Set Error Code = '1'
41. End If
42. End If
43.Else
44. Set Error Code = '1'
45.End If
D3101240 - F4101 Get Outside Operations Item Number
Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
---|---|---|---|---|
mnOriginalItemNumber | ITM | MATH_NUMERIC | NONE | NONE |
An inventory item number. The system provides three separate item numbers plus an extensive cross-reference capability to other item
| ||||
szOriginalBranch | MMCU | char | NONE | NONE |
A code that represents a high-level business unit. Use this code to refer to a branch or plant that might have departments or jobs, which
| ||||
mnOperationSequenceNumber | OPSQ | MATH_NUMERIC | NONE | NONE |
A number used to indicate an order of succession.
In routing instructions, a number that sequences the fabrication or assembly steps in the
| ||||
szDescriptionLine1 | DSC1 | char | NONE | NONE |
Brief information about an item; a remark or an explanation. | ||||
szLineType | LNTY | char | NONE | NONE |
A code that controls how the system processes lines on a transaction. It controls the systems with which the transaction interfaces, such as
| ||||
mnVendorNumber | VEND | MATH_NUMERIC | NONE | NONE |
The address book number of the preferred provider of this item. | ||||
jdTransactionDate | TRDJ | JDEDATE | NONE | NONE |
The date that an order was entered into the system. This date determines which effective level the system uses for inventory pricing. | ||||
mnOutsideOpItemNumber | ITM | MATH_NUMERIC | NONE | NONE |
An inventory item number. The system provides three separate item numbers plus an extensive cross-reference capability to other item
| ||||
szOutsideOp2ndItemNumber | LITM | char | NONE | NONE |
A number that identifies the item. The system provides three separate item numbers plus an extensive cross-reference capability to
| ||||
szOutsideOp3rdItemNumber | AITM | char | NONE | NONE |
The system provides three separate item numbers plus an extensive cross-reference capability to alternate item numbers. These item
| ||||
cErrorCode | ERRC | char | NONE | NONE |
This error code indicates if any errors occurred during the creation of the Trip Document Detail (F4914) records by the Delivery Document
| ||||
szErrorMessageID | DTAI | char | NONE | NONE |
A code that identifies and defines a unit of information. It is an alphanumeric code up to 8 characters long that does not allow blanks or
| ||||
cSuppressErrorMessage | SUPPS | char | NONE | NONE |
A flag indicating whether or not runtime error messaging will occur when an error message is issued from a business function.
0 = allow
| ||||
szProgramId | PID | char | NONE | NONE |
The number that identifies the batch or interactive program (batch or interactive object). For example, the number of the Sales Order Entry
| ||||
szPurchasingUOM | UOM3 | char | OPT | NONE |
A code (table 00/UM) that identifies the unit of measure in which you usually purchase the item. | ||||
cPotencyFlag | OT1Y | char | OPT | NONE |
| ||||
mnStandardPotency | STDP | MATH_NUMERIC | OPT | NONE |
The percentage of active ingredients normally found in an item. | ||||
szItemMasterTFLA | TFLA | char | OPT | NONE |
Allows you to bypass the item-specific unit of measure and use the standard unit of measure. Valid values are:
blank Use the item-specific
|
B4001050 Get Branch Constants Fields | ||||
B4100050 Inventory Cardex Shell | ||||
B4100210 Check Item Branch | ||||
B4100290 Insert Item Master Row | ||||
B4100840 F4102 Update Item Branch Record | ||||
B9800100 Get Audit Information | ||||
X4101 Validate and Retrieve Item Master | ||||
XF41021 Update F41021 Locations |
F4101 Item Master | ||||
F4102 Item Branch File | ||||
F41021 Item Location File | ||||
F4111 Item Ledger File |