The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT pos_supplier_contact_bo(apsc.vendor_contact_id,
apsc.last_update_date,
apsc.last_updated_by,
apsc.vendor_site_id,
apsc.last_update_login,
apsc.creation_date,
apsc.created_by,
apsc.inactive_date,
apsc.first_name,
apsc.middle_name,
apsc.last_name,
apsc.prefix,
apsc.title,
apsc.mail_stop,
apsc.area_code,
apsc.phone,
apsc.attribute_category,
apsc.attribute1,
apsc.attribute2,
apsc.attribute3,
apsc.attribute4,
apsc.attribute5,
apsc.attribute6,
apsc.attribute7,
apsc.attribute8,
apsc.attribute9,
apsc.attribute10,
apsc.attribute11,
apsc.attribute12,
apsc.attribute13,
apsc.attribute14,
apsc.attribute15,
apsc.request_id,
apsc.program_application_id,
apsc.program_id,
apsc.program_update_date,
apsc.contact_name_alt,
apsc.first_name_alt,
apsc.last_name_alt,
apsc.department,
apsc.email_address,
apsc.url,
apsc.alt_area_code,
apsc.alt_phone,
apsc.fax_area_code,
apsc.fax,
apsc.per_party_id,
NULL,
NULL,
apsc.relationship_id,
apsc.rel_party_id,
apsc.party_site_id,
apsc.org_contact_id,
apsc.org_party_site_id,
'',
'',
'',
'',
NULL,
NULL,
NULL,
NULL,
'',
'')
BULK COLLECT
INTO x_ap_supplier_contact_bo
FROM ap_supplier_contacts apsc,
ap_suppliers ap,
ap_supplier_sites_all sa
WHERE ap.party_id = l_party_id
AND sa.vendor_id = ap.vendor_id
AND apsc.vendor_site_id = sa.vendor_site_id;
* @param p_create_update_flag The Create Update Flag
* @param x_vendor_contact_id The Vendor Contact Id
* @param x_per_party_id The Person Party ID
* @param x_rel_party_id The Rel Party Id
* @param x_org_contact_id The Organization contact id
* @param x_party_site_id The Party Site Id
* @param x_return_status The return status
* @param x_msg_count The message count
* @param x_msg_data The message data
* @rep:scope public
* @rep:lifecycle active
* @rep:displayname Create Supplier Contacts
* @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
*/
PROCEDURE create_pos_supp_contact_bo
(
p_api_version IN NUMBER DEFAULT NULL,
p_init_msg_list IN VARCHAR2 DEFAULT NULL,
p_pos_supplier_contact_bo_tbl IN pos_supplier_contact_bo_tbl,
p_party_id IN NUMBER,
p_orig_system IN VARCHAR2,
p_orig_system_reference IN VARCHAR2,
p_create_update_flag IN VARCHAR2,
x_vendor_contact_id OUT NOCOPY NUMBER,
x_per_party_id OUT NOCOPY NUMBER,
x_rel_party_id OUT NOCOPY NUMBER,
x_rel_id OUT NOCOPY NUMBER,
x_org_contact_id OUT NOCOPY NUMBER,
x_party_site_id OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_step VARCHAR2(100);
SELECT vendor_id
INTO p_vendor_contact_rec.vendor_id
FROM ap_suppliers supp
WHERE supp.party_id = l_party_id;
IF p_create_update_flag = 'U' THEN
pos_supp_contact_pkg.update_supplier_contact(p_contact_party_id => p_vendor_contact_rec.per_party_id,
p_vendor_party_id => l_party_id,
p_first_name => p_vendor_contact_rec.person_first_name,
p_last_name => p_vendor_contact_rec.person_last_name,
p_middle_name => p_vendor_contact_rec.person_middle_name,
p_contact_title => p_vendor_contact_rec.person_title,
p_job_title => NULL,
p_phone_area_code => p_vendor_contact_rec.area_code,
p_phone_number => p_vendor_contact_rec.phone,
p_phone_extension => NULL,
p_fax_area_code => p_vendor_contact_rec.fax_area_code,
p_fax_number => p_vendor_contact_rec.fax_phone,
p_email_address => p_vendor_contact_rec.email_address,
p_inactive_date => p_vendor_contact_rec.inactive_date,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_department => p_vendor_contact_rec.department);
SELECT party_site_id
INTO p_vendor_contact_rec.org_party_site_id
FROM hz_party_sites
WHERE party_id = l_party_id
AND party_site_name = p_vendor_contact_rec.party_site_name;
ELSIF p_create_update_flag = 'C' THEN
ap_vendor_pub_pkg.create_vendor_contact(p_api_version,
p_init_msg_list,
fnd_api.g_false,
fnd_api.g_valid_level_full,
x_return_status,
x_msg_count,
x_msg_data,
p_vendor_contact_rec,
x_vendor_contact_id,
x_per_party_id,
x_rel_party_id,
x_rel_id,
x_org_contact_id,
x_party_site_id);
* Use this routine to Update supplier contact
* @param p_api_version The version of API
* @param p_init_msg_list The Initialization message list
* @param p_vendor_contact_rec The supplier contact record
* @param x_vendor_contact_id The Vendor Contact Id
* @param x_per_party_id The Person Party ID
* @param x_rel_party_id The Rel Party Id
* @param x_org_contact_id The Organization contact id
* @param x_party_site_id The Party Site Id
* @param x_return_status The return status
* @param x_msg_count The message count
* @param x_msg_data The message data
* @rep:scope public
* @rep:lifecycle active
* @rep:displayname Create Supplier Contact
* @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
*/
/* PROCEDURE update_pos_supp_contact_bo(p_api_version IN NUMBER DEFAULT NULL,
p_init_msg_list IN VARCHAR2 DEFAULT NULL,
p_vendor_contact_rec IN ap_vendor_pub_pkg.r_vendor_contact_rec_type,
x_vendor_contact_id OUT NOCOPY NUMBER,
x_per_party_id OUT NOCOPY NUMBER,
x_rel_party_id OUT NOCOPY NUMBER,
x_rel_id OUT NOCOPY NUMBER,
x_org_contact_id OUT NOCOPY NUMBER,
x_party_site_id OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_step VARCHAR2(100);
l_step := 'call ap_vendor_pub_pkg.update_vendor_contactt';
ap_vendor_pub_pkg.update_vendor_contact(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,
p_vendor_contact_rec => p_vendor_contact_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
END update_pos_supp_contact_bo;