API To Update Supplier Site Details

 API To Update Supplier Site Details

SET SERVEROUTPUT ON;

DECLARE

    p_api_version                NUMBER;

    p_init_msg_list              VARCHAR2(200);

    p_commit                     VARCHAR2(200);

    p_validation_level           NUMBER;

    x_return_status              VARCHAR2(200);

    x_msg_count                  NUMBER;

    x_msg_data                   VARCHAR2(200);

    lr_vendor_site_rec           apps.ap_vendor_pub_pkg.r_vendor_site_rec_type;

    lr_existing_vendor_site_rec  ap_supplier_sites_all%rowtype;

    p_vendor_site_id             NUMBER;

    p_calling_prog               VARCHAR2(200);

BEGIN

  -- Initialize apps session

    fnd_global.apps_initialize(1119, 50833, 200);

    mo_global.init('SQLAP');

    fnd_client_info.set_org_context(101);

  -- Assign Basic Values

    p_api_version := 1.0;

    p_init_msg_list := fnd_api.g_true;

    p_commit := fnd_api.g_true;

    p_validation_level := fnd_api.g_valid_level_full;

    p_vendor_site_id := 2040; -- to be end dated

    p_calling_prog := 'XXCUSTOM';

    BEGIN

        SELECT

            *

        INTO lr_existing_vendor_site_rec

        FROM

            ap_supplier_sites_all assa

        WHERE

            assa.vendor_site_id = p_vendor_site_id;

    EXCEPTION

        WHEN OTHERS THEN

            dbms_output.put_line('Unable to derive the supplier site information for site id:' || p_vendor_site_id);

    END;

  -- Assign Vendor Site Details

    lr_vendor_site_rec.vendor_site_id := lr_existing_vendor_site_rec.vendor_site_id;

    lr_vendor_site_rec.last_update_date := sysdate;

    lr_vendor_site_rec.last_updated_by := 1119;

    lr_vendor_site_rec.vendor_id := lr_existing_vendor_site_rec.vendor_id;

    lr_vendor_site_rec.org_id := lr_existing_vendor_site_rec.org_id;

    lr_vendor_site_rec.inactive_date := sysdate;

    ap_vendor_pub_pkg.update_vendor_site(p_api_version => p_api_version,

                                        p_init_msg_list => p_init_msg_list,

                                        p_commit => p_commit,

                                        p_validation_level => p_validation_level,

                                        x_return_status => x_return_status,

                                        x_msg_count => x_msg_count,

                                        x_msg_data => x_msg_data,

                                        p_vendor_site_rec => lr_vendor_site_rec,

                                        p_vendor_site_id => p_vendor_site_id,

                                        p_calling_prog => p_calling_prog);

    dbms_output.put_line('X_RETURN_STATUS = ' || x_return_status);

    dbms_output.put_line('X_MSG_COUNT = ' || x_msg_count);

    dbms_output.put_line('X_MSG_DATA = ' || x_msg_data);

END;

/