Purchase order (PO) document through API PO_DOCUMENT_CONTROL_PUB.CONTROL_DOCUMENT

SET serveroutput ON;
DECLARE

 v_return_status   VARCHAR2 (10);
 v_msg_data        VARCHAR2(1000);

 v_po_header_id    NUMBER        := 20000006;
 v_doc_subtype     VARCHAR2(10)  := 'STANDARD';
 v_doc_type        VARCHAR2(10)  := 'PO';
 v_org_id          NUMBER;       := 83;
 v_action          VARCHAR2(10)  := 'CANCEL';
 v_action_date     DATE          := SYSDATE;

v_context := fnd_global.APPS_INITIALIZE('&user', '&responsibility', 2038);

IF v_context = 'F'
   THEN
   DBMS_OUTPUT.PUT_LINE ('Error while setting the context');
END IF;

MO_GLOBAL.INIT ('PO');

--- context done ------------

DBMS_OUTPUT.PUT_LINE ('Calling API For Cancelling Documents');

PO_DOCUMENT_CONTROL_PUB.CONTROL_DOCUMENT
   ( p_api_version      => 1.0,
     p_init_msg_list    => fnd_api.g_true,
     p_commit           => fnd_api.g_false,
     x_return_status    => v_return_status,
     p_doc_type         => v_doc_type,
     p_doc_subtype      => v_doc_subtype,
     p_doc_id           => v_po_header_id,
     p_doc_num          => NULL,
     p_release_id       => NULL,
     p_release_num      => NULL,
     p_doc_line_id      => NULL,
     p_doc_line_num     => NULL,
     p_doc_line_loc_id  => NULL,
     p_doc_shipment_num => NULL,
     p_action           => v_action,
     p_action_date      => v_action_date,
     p_cancel_reason    => NULL,
     p_cancel_reqs_flag => 'N',
     p_print_flag       => NULL,
     p_note_to_vendor   => NULL,
     p_use_gldate       => NULL,
     p_org_id           => v_org_id
);

COMMIT;

DBMS_OUTPUT.PUT_LINE('The Return Status of the API : '|| v_return_status);

IF v_return_status = fnd_api.g_ret_sts_success THEN
   COMMIT;
   DBMS_OUTPUT.PUT_LINE ('Cancellation of PO is Sucessfull : '||v_po_header_id);
ELSE
   DBMS_OUTPUT.PUT_LINE ('Cancellation of PO Failed ');
   ROLLBACK;
   FOR i IN 1 .. FND_MSG_PUB.COUNT_MSG
   LOOP
      v_msg_data := FND_MSG_PUB.GET( p_msg_index => i, p_encoded => 'F');
      DBMS_OUTPUT.PUT_LINE( i|| ') '|| v_msg_data);
   END LOOP;
END IF;
END;

Generation of Lot number and associating with an Inventory item and organization

Generation of Lot number and associating with an Inventory item and organization involves two steps

·      Generation of Next Lot Number using the api  INV_LOT_API_PUB.AUTO_GEN_LOT 

·      Association/Insertion of the Lot Number to a inventory item and organization (For 

Script:

DECLARE

  v_object_id NUMBER;

  v_return_status             VARCHAR2(1)      := NULL;

  v_msg_count                 NUMBER           := 0;

  v_msg_data                  VARCHAR2 (2000);

  v_lot_number                VARCHAR2 (50);

  v_expire_date               DATE             := SYSDATE+180;

  v_organization_id           NUMBER           :=124;

  v_inventory_item_id         NUMBER           :=27839;

 

  FUNCTION set_context( i_user_name    IN  VARCHAR2

                       ,i_resp_name    IN  VARCHAR2

                       ,i_org_id       IN  NUMBER)

  RETURN VARCHAR2

  IS

    /* Inorder to reduce the content of the post I moved the implementation part of this function to another post and it is available here */

  END set_context;

BEGIN

-- Setting the context ----

v_context := set_context('&V_USER_NAME','&V_RESPONSIBILITY',82);

IF v_context = 'F'

THEN

  DBMS_OUTPUT.PUT_LINE('Error while setting the context');       

END IF;

dbms_output.put_line ('Calling API to Create Lot Number');

v_lot_number := inv_lot_api_pub.auto_gen_lot (

                    p_org_id            => v_organization_id,

                    p_inventory_item_id => v_inventory_item_id,

                    p_parent_lot_number => NULL,

                    p_subinventory_code => NULL,

                    p_locator_id        => NULL,

                    p_api_version       => 1.0,

                    p_init_msg_list     => fnd_api.g_true,

                    p_commit            => fnd_api.g_false,

                    p_validation_level  => fnd_api.g_valid_level_full,

                    x_return_status     => v_return_status,

                    x_msg_count         => v_msg_count,

                    x_msg_data          => v_msg_data

                                           );

IF v_return_status = fnd_api.g_ret_sts_success THEN

   COMMIT;

   DBMS_OUTPUT.put_line ('The Auto generation of Lot Number is Sucessful: '||v_lot_number);

ELSE

   DBMS_OUTPUT.put_line ('The Auto generation of Lot Number Failed');

   ROLLBACK;

   FOR i IN 1 .. v_msg_count

   LOOP

      v_msg_data := fnd_msg_pub.get( p_msg_index => i, p_encoded => 'F');

      dbms_output.put_line( i|| ') '|| v_msg_data);

   END LOOP;

END IF;

IF v_lot_number IS NOT NULL THEN

dbms_output.put_line ('Calling API to Create/Insert a Lot Numbers');

inv_lot_api_pub.insertlot

                   (

                    p_api_version       => 1,

                    p_init_msg_list     => fnd_api.g_false,

                    p_commit            => fnd_api.g_false,

                    p_validation_level  => fnd_api.g_valid_level_full,

                    p_inventory_item_id => v_inventory_item_id,

                    p_organization_id   => v_organization_id,

                    p_lot_number        => v_lot_number,

                    p_expiration_date   => v_expire_date,

                    x_object_id         => v_object_id,

                    x_return_status     => v_return_status,

                    x_msg_count         => v_msg_count,

                    x_msg_data          => v_msg_data

                   );

IF v_return_status = fnd_api.g_ret_sts_success THEN

   COMMIT;

   DBMS_OUTPUT.put_line ('The Creation of Lot Number is Sucessful: '||v_object_id);

ELSE

   DBMS_OUTPUT.put_line ('The Creation of Lot Number Failed');

   ROLLBACK;

   FOR i IN 1 .. v_msg_count

   LOOP

      v_msg_data := fnd_msg_pub.get( p_msg_index => i, p_encoded => 'F');

      dbms_output.put_line( i|| ') '|| v_msg_data);

   END LOOP;

END IF;

END IF;

END;





Ref : http://www.shareoracleapps.com/2010/10/generation-of-lot-number-for-inventory.html