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        => 15016,
                               RESP_ID        => 61194,
                               RESP_APPL_ID   => 401);

   --FIRST Item definition
   l_item_table (1).Transaction_Type := 'UPDATE'; -- Replace this with 'UPDATE' for update transaction.
   --l_item_table(1).Segment1 := 'TESTAPEXITEM';
   l_item_table (1).inventory_item_id := 3688264;
   l_item_table (1).ATTRIBUTE_CATEGORY := 'SFML 02';
   l_item_table (1).ATTRIBUTE2 := 'HJGHGJHGJ54332';
   --l_item_table(1).Organization_Code := 'IMO'; --masterorg
   l_item_table (1).Organization_id := 87;
   --l_item_table(1).Template_Name := 'BPI FINISHED GOOD-MAKE'; --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 ('Sucess:');
   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;
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.PUT_LINE (
         'Error has Occured and error is ' || SUBSTR (SQLERRM, 1, 200));
END;