Introduction
This Post is About to Update the supplier Through API.
Script for API to update the Supplier
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_rec apps.ap_vendor_pub_pkg.r_vendor_rec_type;
lr_existing_vendor_rec ap_suppliers%ROWTYPE;
l_msg VARCHAR2 (200);
p_vendor_id NUMBER;
BEGIN
— Initialize apps session
fnd_global.apps_initialize (26365, 54488, 200);
mo_global.init (‘SQLAP’);
fnd_client_info.set_org_context (375);
— 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_id := 333611;
— gather vendor details
BEGIN
SELECT *
INTO lr_existing_vendor_rec
FROM ap_suppliers asa
WHERE asa.vendor_id = p_vendor_id;
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line
( ‘Unable to derive the supplier information for vendor id:’
|| p_vendor_id
);
END;
–Deactivate Vendor
lr_vendor_rec.vendor_id := lr_existing_vendor_rec.vendor_id;
lr_vendor_rec.vendor_type_lookup_code := ‘VENDOR’;
–lr_vendor_rec.enabled_flag := ‘N’;
ap_vendor_pub_pkg.update_vendor (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_rec => lr_vendor_rec,
p_vendor_id => p_vendor_id
);
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);
IF (x_return_status <> fnd_api.g_ret_sts_success)
THEN
FOR i IN 1 .. fnd_msg_pub.count_msg
LOOP
l_msg :=
fnd_msg_pub.get (p_msg_index => i,
p_encoded => fnd_api.g_false);
DBMS_OUTPUT.put_line (‘The API call failed with error ‘ || l_msg);
END LOOP;
ELSE
DBMS_OUTPUT.put_line (‘The API call ended with SUCESSS status’);
END IF;
END;
What we expect in the script.
This script helps us to comprehend how to update the supplier into oracle through API. It also demonstrates the required validation taking place, and additional validation can be incorporated anytime in your package based on business requirements. Post validation valid records are being passed into APIs.
Summary
This Post described the script update the supplier into oracle through API in Oracle EBS R12.
Got any queries?
Do drop a note by writing us at doyen.ebiz@gmail.com or use the comment section below to ask your questions.
