AP Supplier Site tax Update Oracle Apps R12

Below is the script to AP Supplier Site tax Update script.

/* Formatted on 2017/12/29 21:19 (Formatter Plus v4.8.8) */
CREATE OR REPLACE PROCEDURE apps.xx_test1vendor_upd
AS
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);

CURSOR c_vendor_info
IS
SELECT assa.vendor_site_id, assa.org_id, xx.tax_classification_code,xx.EMIRATE,xx.VENDOR_NAME,
DECODE (allow_offset_tax,
‘YES’, ‘Y’,
‘NO’, ‘N’
) allow_offset_tax,
DECODE (allow_offset_tax,
‘YES’, ‘Y’,
‘NO’, ‘N’
) auto_tax_calc_flag,
xx.ROWID row_id
FROM xx_supplier_info xx,
ap_suppliers asup,
ap_supplier_sites_all assa
WHERE xx.vendor_id = asup.vendor_id
AND asup.vendor_id = assa.vendor_id
— AND assa.vat_code IS NULL
and xx.upload_date is null
— and xx.error_status <> ‘S’
AND assa.vendor_site_code = xx.vendor_site_code;
— AND ROWNUM < 6;
BEGIN
— Initialize apps session
fnd_global.apps_initialize (0, 20639, 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;

FOR i IN c_vendor_info
LOOP
p_vendor_site_id := i.vendor_site_id; — to be end dated
p_calling_prog := ‘XXCUSTOM’;
— Assign Vendor Site Details
lr_vendor_site_rec.vendor_site_id := i.vendor_site_id;
lr_vendor_site_rec.last_update_date := SYSDATE;
lr_vendor_site_rec.last_updated_by := -1;
— lr_vendor_site_rec.vendor_id := lr_existing_vendor_site_rec.vendor_id;
lr_vendor_site_rec.vat_code := i.tax_classification_code;
lr_vendor_site_rec.OFFSET_TAX_FLAG := i.allow_offset_tax;
lr_vendor_site_rec.auto_tax_calc_flag := ‘Y’;
lr_vendor_site_rec.COUNTRY := i.EMIRATE;
–lr_vendor_site_rec.VAT_REGISTRATION_NUM := ‘SUPP_TRN’;
lr_vendor_site_rec.org_id := i.org_id;
–lr_vendor_site_rec.inactive_date := ”;
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);

UPDATE xx_supplier_info
SET error_status = NVL (x_return_status, 0),
error_message = x_msg_data,
upload_date = sysdate
WHERE ROWID = i.row_id;
commit;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (‘Inside Exception’);
END;
/