The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
MSI.LOT_CONTROL_CODE,
MSI.AUTO_LOT_ALPHA_PREFIX,
MSI.START_AUTO_LOT_NUMBER,
WP.LOT_NUMBER_DEFAULT_TYPE,
MP.LOT_NUMBER_GENERATION,
MP.AUTO_LOT_ALPHA_PREFIX,
MP.LOT_NUMBER_ZERO_PADDING,
MP.LOT_NUMBER_LENGTH
FROM
MTL_SYSTEM_ITEMS MSI,
WIP_PARAMETERS WP,
MTL_PARAMETERS MP
WHERE MP.ORGANIZATION_ID = P_Organization_Id
AND WP.ORGANIZATION_ID = P_Organization_Id
AND MSI.ORGANIZATION_ID = P_Organization_Id
AND MSI.INVENTORY_ITEM_ID = P_Item_Id;
SELECT x_org_prefix ||
LPAD(to_char(MTL_LOT_NUMERIC_SUFFIX_S.nextval),
x_lot_number_length -
nvl(lengthb(x_org_prefix),0),'0')
INTO lot_no
FROM DUAL;
SELECT x_org_prefix ||
to_char(MTL_LOT_NUMERIC_SUFFIX_S.nextval),
NVL(lengthb(x_org_prefix),0)
+ NVL(lengthb(to_char(
MTL_LOT_NUMERIC_SUFFIX_S.currval)),0)
INTO lot_no, lot_length
FROM DUAL;
/* Fix for bug 4768625. We should not do zero padding when we update
MSI.START_AUTO_LOT_NUMBER.
IF x_lot_number_zero_padding = WIP_CONSTANTS.YES THEN
new_auto_lot_number := lpad(new_auto_lot_number,
x_lot_number_length - nvl(lengthb(x_item_prefix),0)
,'0');
UPDATE MTL_SYSTEM_ITEMS
SET Start_Auto_Lot_Number =
decode(Start_Auto_Lot_Number,NULL,NULL,
new_auto_lot_number), /** Bug 2923750 **/
Last_Update_Date =SYSDATE,
Last_Updated_By = FND_GLOBAL.USER_ID,
Last_Update_Login = FND_GLOBAL.LOGIN_ID
WHERE Organization_Id = P_Organization_Id
AND Inventory_Item_Id = P_Item_Id;