Oracle Inventory Item Creation With API
-------->>>=========================================================================
DECLARE
l_inventory_item_id NUMBER;
l_organization_id NUMBER;
l_return_status VARCHAR2 (4000);
l_msg_data VARCHAR2 (4000);
l_msg_count NUMBER;
l_msg_index NUMBER;
API_ERROR EXCEPTION;
BEGIN
FND_GLOBAL.APPS_INITIALIZE (USER_ID => 1318, --> OPERATIONS
RESP_ID => 50583, --> Inventory, Vision Operations (USA)
RESP_APPL_ID => 401); --> Inventory
EGO_ITEM_PUB.PROCESS_ITEM
(
p_api_version => 1.0
,p_init_msg_list => 'T'
,p_commit => 'T'
,p_Transaction_Type => 'CREATE' -- UPDATE FOR Updating item
,p_segment1 => 'XX_ITEM_ORACLE_APPS-003' -- ITEM CODE
,p_description => 'XX Oracle Apps Test Item' -- ITEM DESCRIPTION
,p_long_description => 'XX Oracle Apps Test Item' -- ITEM LONG DESCRIPTION
,p_organization_id => 204 -- Vision Operations
,p_template_id => 2 -- Purchased Item -- select * from mtl_item_templates_vl
,p_Inventory_Item_Status_Code => 'Active'
,p_approval_status => 'A'
,x_inventory_item_id => l_inventory_item_id
,x_organization_id => l_organization_id
,x_return_status => l_return_status
,x_msg_count => l_msg_count
,x_msg_data => l_msg_data
);
IF l_return_status = FND_API.G_RET_STS_SUCCESS
THEN
DBMS_OUTPUT.PUT_LINE ('Item is Created Successfully, Inventory Item ID : '||l_inventory_item_id);
COMMIT;
ELSE
DBMS_OUTPUT.PUT_LINE ('Item Creation is Failed');
RAISE API_ERROR;
ROLLBACK;
END IF;
-------->>>------------------------------------------------------------------------
--> HANDLE EXCEPTIONS
EXCEPTION
WHEN API_ERROR
THEN
FOR i IN 1 .. l_msg_count
LOOP
DBMS_OUTPUT.put_line (SUBSTR (FND_MSG_PUB.Get (p_encoded => FND_API.G_FALSE),1,255));
DBMS_OUTPUT.PUT_LINE ('message is: ' || l_msg_data);
END LOOP;
WHEN OTHERS
THEN
FOR i IN 1 .. l_msg_count
LOOP
DBMS_OUTPUT.put_line (SUBSTR (FND_MSG_PUB.Get (p_encoded => FND_API.G_FALSE),1,255));
DBMS_OUTPUT.PUT_LINE ('message is: ' || l_msg_data);
END LOOP;
END ;
-------->>>=========================================================================
