Inventory Item Creation With API

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 ;

-------->>>=========================================================================