AskHareesh Blog on Oracle Applications

Oracle Cloud Internal Requisition Transfer Order Process

Credits: UBB technologies

Read More »

Order to Cash Cycle in Oracle Fusion SCM Cloud

Credits: UBB Technologies

Read More »

Oracle Cloud: Procure to pay Life cycle

Procure to pay Life cycle in Oracle Cloud

Credits: UBB Technologies

Read More »

Script to update Customer Location Address

DECLARE
   p_location_rec            HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;
   p_object_version_number   NUMBER;
   x_return_status           VARCHAR2 (4000);
   x_msg_count               NUMBER;
   x_msg_data                VARCHAR2 (4000);
BEGIN
   DBMS_OUTPUT.PUT_LINE ('Start of Script');
   mo_global.init ('AR');
   fnd_global.apps_initialize (user_id        => 11,
                               resp_id        => 551122,
                               resp_appl_id   => 457);
   mo_global.set_policy_context ('S', 123);

   p_object_version_number := 1;
   p_location_rec.location_id := 28195;
   p_location_rec.address1 := 'TEST1';
   p_location_rec.address2 := 'TEST2';
   p_location_rec.address3 := 'TEST3';
   p_location_rec.address4 := 'TEST4';
   p_location_rec.CITY := 'TEST5';
   p_location_rec.STATE := 'TEST6';
   p_location_rec.POSTAL_CODE := '123456';
   p_location_rec.COUNTRY := 'US';

   DBMS_OUTPUT.PUT_LINE ('Calling the API hz_location_v2pub.update_location');

   hz_location_v2pub.update_location (
      p_init_msg_list           => FND_API.G_TRUE,
      p_location_rec            => p_location_rec,
      p_object_version_number   => p_object_version_number,
      x_return_status           => x_return_status,
      x_msg_count               => x_msg_count,
      x_msg_data                => x_msg_data);

   IF x_return_status = fnd_api.g_ret_sts_success
   THEN
      COMMIT;
      DBMS_OUTPUT.PUT_LINE ('Successfully Location address updated ');
   ELSE
      ROLLBACK;

      FOR i IN 1 .. x_msg_count
      LOOP
         x_msg_data := oe_msg_pub.get (p_msg_index => i, p_encoded => 'F');
         DBMS_OUTPUT.put_line (i || ') ' || x_msg_data);
      END LOOP;

      DBMS_OUTPUT.put_line ('Location address update failed:' || x_msg_data);
   END IF;

   DBMS_OUTPUT.PUT_LINE ('End of Script');
END;
/

Read More »

Submitting Request set from backend

CREATE OR REPLACE PROCEDURE XX_SUBMIT_REQUEST_SET (P_errbuf    OUT VARCHAR2,
                                                   P_retcode   OUT NUMBER)
AS
   V_REQUEST_SET_EXIST   BOOLEAN := FALSE;
   req_id                INTEGER := 0;
   l_CONC_PROG_SUBMIT    BOOLEAN := FALSE;
   srs_failed            EXCEPTION;
   submitprog_failed     EXCEPTION;
   submitset_failed      EXCEPTION;
   l_start_date          VARCHAR2 (250);
BEGIN
   fnd_file.put_line (fnd_file.LOG, 'Calling set_request_set');
   V_REQUEST_SET_EXIST :=
      FND_SUBMIT.set_request_set (application   => ‘XXAP’,
                                  request_set   => ‘FNDRSSUB1786’);

   IF (NOT V_REQUEST_SET_EXIST)
   THEN
      RAISE srs_failed;
   END IF;

   fnd_file.put_line (fnd_file.LOG, 'Calling submit program first stage');
   l_CONC_PROG_SUBMIT :=
      fnd_submit.submit_program (‘XXAP’,
                                 ‘XXAP_FIRST_PROGRAM’,
                                 ‘STAGE10’,
                                 ‘ARGUMENT1’);

   IF (NOT l_CONC_PROG_SUBMIT)
   THEN
      RAISE submitprog_failed;
   END IF;

   l_CONC_PROG_SUBMIT :=
      fnd_submit.submit_program (‘XXAP’,
                                 ‘XXAP_SECOND_PROGRAM’,
                                 ‘STAGE20’);

   IF (NOT l_CONC_PROG_SUBMIT)
   THEN
      RAISE submitprog_failed;
   END IF;

   l_CONC_PROG_SUBMIT :=
      fnd_submit.submit_program (‘XXAP’,
                                 ‘XXAP_THIRD_PROGRAM’,
                                 ‘STAGE30’);

   IF (NOT l_CONC_PROG_SUBMIT)
   THEN
      RAISE submitprog_failed;
   END IF;

   l_CONC_PROG_SUBMIT :=
      fnd_submit.submit_program (‘XXAP’,
                                 ‘XXAP_FOURTH_PROGRAM’,
                                 ‘STAGE40’);

   IF (NOT l_CONC_PROG_SUBMIT)
   THEN
      RAISE submitprog_failed;
   END IF;

   fnd_file.put_line (fnd_file.LOG, 'Calling submit_set');

   --l_start_date is to schedule the request
   SELECT TO_CHAR (SYSDATE, 'DD - MON - YYYY HH24:MI:SS')
     INTO l_start_date
     FROM DUAL;

   req_id :=
      FND_SUBMIT.submit_set (start_time => l_start_date, sub_request => FALSE);

   IF (req_id = 0)
   THEN
      RAISE submitset_failed;
   END IF;
EXCEPTION
   WHEN srs_failed
   THEN
      p_errbuf := 'Call to set_request_set failed: ' || fnd_message.get;
      p_retcode := 2;
      fnd_file.put_line (fnd_file.LOG, p_errbuf);
   WHEN submitprog_failed
   THEN
      p_errbuf := 'Call to submit_program failed: ' || fnd_message.get;
      p_retcode := 2;
      fnd_file.put_line (fnd_file.LOG, p_errbuf);
   WHEN submitset_failed
   THEN
      p_errbuf := 'Call to submit_set failed: ' || fnd_message.get;
      p_retcode := 2;
      fnd_file.put_line (fnd_file.LOG, p_errbuf);
   WHEN OTHERS
   THEN
      p_errbuf := 'Request set submission failed - unknown error: ' || SQLERRM;
      p_retcode := 2;
      fnd_file.put_line (fnd_file.LOG, p_errbuf);
END;

Source: https://oraclesoadiscussion.wordpress.com/2015/03/05/submitting-request-set-from-backend/

Read More »

API to get on hand and available to reserve quantities in Oracle Apps

DECLARE
   x_return_status         VARCHAR2 (50);
   x_msg_count             VARCHAR2 (50);
   x_msg_data              VARCHAR2 (50);
   v_inv_item_id           NUMBER;
   v_org_id                NUMBER;
   v_qty_on_hand           NUMBER;
   v_res_qty_on_hand       NUMBER;
   v_atreserve             NUMBER;
   v_attransact            NUMBER;
   v_qty_reserve           NUMBER;
   v_qty_sugstd            NUMBER;
   v_lot_control_code      BOOLEAN;
   v_serial_control_code   BOOLEAN;
BEGIN
   -- Set the variable values
   v_inv_item_id := :item_id;
   v_org_id := :org_id;
   v_qty_on_hand := NULL;
   v_res_qty_on_hand := NULL;
   v_atreserve := NULL;
   v_lot_control_code := FALSE;
   v_serial_control_code := FALSE;

   -- org context
   fnd_client_info.set_org_context (1);

   -- Calling API
   inv_quantity_tree_pub.query_quantities (
      p_api_version_number    => 1.0,
      p_init_msg_lst          => 'F',
      x_return_status         => x_return_status,
      x_msg_count             => x_msg_count,
      x_msg_data              => x_msg_data,
      p_organization_id       => v_org_id,
      p_inventory_item_id     => v_inv_item_id,
      p_tree_mode             => apps.inv_quantity_tree_pub.g_transaction_mode,
      p_is_revision_control   => FALSE,
      p_is_lot_control        => v_lot_control_code,
      p_is_serial_control     => v_serial_control_code,
      p_revision              => NULL,
      p_lot_number            => NULL,
      p_lot_expiration_date   => SYSDATE,
      p_subinventory_code     => NULL,
      p_locator_id            => NULL,
      p_onhand_source         => 3,
      x_qoh                   => v_qty_on_hand,
      x_rqoh                  => v_res_qty_on_hand,
      x_qr                    => v_qty_reserve,
      x_qs                    => v_qty_sugstd,
      x_att                   => v_attransact,
      x_atr                   => v_atreserve);
   COMMIT;
   DBMS_OUTPUT.put_line ('On-Hand Quantity: ' || v_qty_on_hand);
   DBMS_OUTPUT.put_line ('Quantity Reserved: ' || v_qty_reserve);
   DBMS_OUTPUT.put_line ('Quantity Suggested: ' || v_qty_sugstd);
   DBMS_OUTPUT.put_line ('Available to Transact: ' || v_attransact);
   DBMS_OUTPUT.put_line ('Available to Reserve: ' || v_atreserve);
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line ('ERROR: ' || SQLERRM);
END;

Read More »

Deactivate Suppliers/Vendors in Oracle Apps using API

--www.askhareesh.com

DECLARE
   LV_RETURN_STATUS   VARCHAR2 (1) := NULL;
   LV_MSG_COUNT       NUMBER := 0;
   LV_MSG_DATA        VARCHAR2 (2000) := NULL;
   LV_VENDOR_REC      AP_VENDOR_PUB_PKG.R_VENDOR_REC_TYPE;
BEGIN
   LV_VENDOR_REC.END_DATE_ACTIVE := SYSDATE;                        --End Date
   AP_VENDOR_PUB_PKG.UPDATE_VENDOR (
      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      => LV_RETURN_STATUS,
      X_MSG_COUNT          => LV_MSG_COUNT,
      X_MSG_DATA           => LV_MSG_DATA,
      P_VENDOR_REC         => LV_VENDOR_REC,
      P_VENDOR_ID          => 33164                                --Vendor id
                                   );

   BEGIN
      IF NVL (LV_RETURN_STATUS, 'XX') = 'S'
      THEN
         DBMS_OUTPUT.PUT_LINE ('Vendor deactivated successfully');
      ELSE
         DBMS_OUTPUT.PUT_LINE (
               'Error while deactivating the supplier, Msg Count'
            || LV_MSG_COUNT
            || ', Error : '
            || LV_MSG_DATA);
      END IF;
   END;

   COMMIT;
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.PUT_LINE (
         'Exception while deactivating supplier : ' || SQLERRM);
END;

Read More »