Functional Description
Purpose
This function will verify if a location exists in the Item Location Table (F41021). If the record does not exist, a new location will be added to the Item
Location Table and Item Ledger (F4111) will be updated.
Setup Notes and Prerequisites
None
Special Logic
None
Technical Specifications
Parameters:
Data Item Data Structure DescriptionI/ORequiredNotes
ITMShort Item NumberIY
MCUBranch PlantIY
LOCNLocationIY
LOTNLot NumberIY
EV01Default From Primary LocationIN'1' = Use Primary Location for default
information
PIDProgram IDIY
DTAIError Message IDON
ERRCError CodeON'1' = Record Exists '0' = No Record
MMEJLot Expiration DateON
Related Tables
Table Table Description
F41021Item Location
Related Business Functions
Source NameFunction Name
B4000050Inventory Cardex
Processing
Fetch Item Location Table (F41021) with the following keys:
LIITM<=ShortItemNumber
LIMCU<=BranchPlant
LILOCN<=Location
LILOTN<=LotNumber
IfRecord Not Found
IfLot Number is not Blank
F4108VerifyAndGetLotNumber
BranchPlant<=BranchPlant
ShortItemNumber<=ShortItemNumber
LotNumber<=LotNumber
LotPotency=>F4108 - LotPotency (wf)
LotGrade=>F4108 - LotGrade (wf)
LotStatus=>F4108 Lot Status (wf)
LotExpirationDate=>Lot Expiration Date
End
PrimaryBin (wf)= 'S'
F41021-LotStatus (wf) = ' '
F41021-GLPT (wf) = ' '
IfDefaultFromPrimary equals to '1'
ShortItemNumber<=ShortItemNumber
BranchPlant<=BranchPlant
Index<=4
Keys<=3
GLCategory=>F41021 - GLPT (wf)
LotStatusCode=>F41021 Lot Status (wf)
If F41021 Primary Bin is not found (Return an Error)
PrimaryBin = 'P'
End
Fetch Item Branch (F4102)
IBITM<=ShortItemNumber
IBMCU<=BranchPlant
IBAITM=>ThirdItemNumber
IBLOTS=>F4102 - Lot Status
If F41021- LotStatusCode(wf) equals BLANK
F41021-LotStatusCode = F4108-LotStatus (wf)
Else
End
End
If F41021 GLPT (wf) equals BLANK
Write F41021 with
LIMCU<=BranchPlant
LIITM<=ShortItemNumber
LILOCN<=Location
LILOTN<=LotNumber
LIGLPT<=F41021-GLPT (wf)
LILOTS<=F41021-LOTS (wf)
Write Inventory Cardex (B4100050)
End
^
D4101120A - F41021 Write Location And Cardex
Parameters:
Data Item Data Structure DescriptionI/ORequired
ITMShort Item NumberIY
MCUBranch PlantIY
LOCNLocationIY
LOTNLot NumberIY
EV01Default From Primary LocationIN
PIDProgram IDIY
DTAIError Message IDON
ERRCError CodeON
MMEJLot Expiration DateON
SUPPSSuppress Error MessageIN
^
Parameter Name | Data Item | Data Type | Req/Opt | I/O/Both |
---|---|---|---|---|
mnShortItemNumber | ITM | MATH_NUMERIC | OPT | NONE |
An inventory item number. The system provides three separate item numbers plus an extensive cross-reference capability to other item
| ||||
szBranchPlant | MCU | char | OPT | NONE |
An alphanumeric code that identifies a separate entity within a business for which you want to track costs. For example, a business unit
| ||||
szLocation | LOCN | char | OPT | NONE |
The storage location from which goods will be moved. | ||||
szLotNumber | LOTN | char | OPT | NONE |
A number that identifies a lot or a serial number. A lot is a group of items with similar characteristics. | ||||
cDefaultFromPrimary | EV01 | char | OPT | NONE |
'1' = Use Primary Location for default information
| ||||
szProgramID | PID | char | OPT | NONE |
The number that identifies the batch or interactive program (batch or interactive object). For example, the number of the Sales Order Entry
| ||||
szErrorMessageID | DTAI | char | OPT | 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
| ||||
cErrorCode | ERRC | char | OPT | NONE |
'1' = Record Exists '0' = No Recordab
| ||||
cSuppressErrorMessage | SUPPS | char | OPT | NONE |
A flag indicating whether or not runtime error messaging will occur when an error message is issued from a business function.
0 = allow
| ||||
jdLotExpirationDate | MMEJ | JDEDATE | OPT | NONE |
The date on which a lot of items expires.
The system automatically enters this date if you have specified the shelf life days for the item on
|
None |
None |