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 |