Item Creation API

Item Creation API

 /*

CREATE OR REPLACE PROCEDURE TEST_ITEM_PRC

as procedure TEST_ITEM_PRC(X_ERRBUF   OUT VARCHAR2,

   X_RETCODE   OUT NUMBER)

END TEST_ITEM_PRC; */

 

 

DECLARE

l_item_table EGO_Item_PUB.Item_Tbl_Type;

x_item_table EGO_Item_PUB.Item_Tbl_Type;

x_return_status VARCHAR2(1);

x_msg_count NUMBER(10);

x_msg_data VARCHAR2(1000);

x_message_list Error_Handler.Error_Tbl_Type;

 

BEGIN

   --Apps Initialization

 

FND_GLOBAL.APPS_INITIALIZE(USER_ID=>0,RESP_ID=>50757,RESP_APPL_ID=>401);

 

--FIRST Item definition

l_item_table(1).Transaction_Type := 'CREATE'; -- Replace this with 'UPDATE' for update transaction.

l_item_table(1).Segment1 := 'TestAPI_Item_01';

l_item_table(1).Description := 'Testing Item Creation Through API 01';  

l_item_table(1).Organization_Code := 'MSB'; --masterorg--

l_item_table(1).Template_Name := 'Inventory Items'; --template

 

DBMS_OUTPUT.PUT_LINE('Calling API to Create Item');

 

EGO_ITEM_PUB.Process_Items(

p_api_version => 1.0

,p_init_msg_list => FND_API.g_TRUE

,p_commit => FND_API.g_TRUE

,p_Item_Tbl => l_item_table

,x_Item_Tbl => x_item_table

,x_return_status => x_return_status

,x_msg_count => x_msg_count);

 

DBMS_OUTPUT.PUT_LINE('Inventory Item Created Sucessfully:');

DBMS_OUTPUT.PUT_LINE('Return Status ==>' ||x_return_status);

 

IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN

FOR i IN 1..x_item_table.COUNT LOOP

DBMS_OUTPUT.PUT_LINE('Inventory Item Id Created:'||to_char(x_item_table(i).Inventory_Item_Id));

DBMS_OUTPUT.PUT_LINE('Organization Id :'||to_char(x_item_table(i).Organization_Id));

END LOOP;

ELSE

DBMS_OUTPUT.PUT_LINE('Error Messages :');

Error_Handler.GET_MESSAGE_LIST(x_message_list=>x_message_list);

FOR i IN 1..x_message_list.COUNT LOOP

DBMS_OUTPUT.PUT_LINE(x_message_list(i).message_text);

END LOOP;

END IF;

END;