The following lines contain the word 'select', 'insert', 'update' or 'delete':
update fnd_user
set person_party_id = x_party_id, customer_id = x_customer_id,
employee_id = x_employee_id
where user_name = p_ldap_message.object_name;
procedure hz_update(
p_ldap_message in fnd_oid_util.ldap_message_type
, x_return_status out nocopy varchar2
) is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'hz_update';
fnd_oid_users.update_party(p_ldap_message => p_ldap_message,
x_return_status => x_return_status);
fnd_oid_users.update_phone_contact_point(
p_ldap_message => p_ldap_message,
p_contact_point_purpose => G_BUSINESS,
x_return_status => x_return_status);
fnd_oid_users.update_phone_contact_point(
p_ldap_message => p_ldap_message,
p_contact_point_purpose => G_PERSONAL,
x_return_status => x_return_status);
fnd_oid_users.update_email_contact_point(
p_ldap_message => p_ldap_message,
x_return_status => x_return_status);
fnd_oid_users.update_party_site(p_ldap_message => p_ldap_message,
x_return_status => x_return_status);
fnd_log.string(fnd_log.LEVEL_PROCEDURE, l_module_source, 'Update party site status: ' || x_return_status);
end hz_update;
procedure update_party(
p_ldap_message in fnd_oid_util.ldap_message_type
, x_return_status out nocopy varchar2
) is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'update_party';
p_action_type => G_UPDATE,
x_person_rec => x_person_rec,
x_return_status => x_return_status);
select object_version_number
into l_object_version_number
from hz_parties where party_id = x_person_rec.party_rec.party_id;
hz_party_v2pub.update_person(
p_init_msg_list => fnd_api.G_TRUE
, p_person_rec => x_person_rec
, p_party_object_version_number => l_object_version_number
, x_profile_id => x_profile_id
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data);
end update_party;
procedure update_phone_contact_point(
p_ldap_message in fnd_oid_util.ldap_message_type
, p_contact_point_purpose in varchar2
, x_return_status out nocopy varchar2
) is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'update_phone_contact_point';
p_action_type => G_UPDATE,
x_contact_point_rec => x_contact_point_rec,
x_return_status => x_return_status);
select object_version_number
into l_object_version_number
from hz_contact_points
where contact_point_id = x_contact_point_rec.contact_point_id;
hz_contact_point_v2pub.update_phone_contact_point(
p_init_msg_list => fnd_api.G_TRUE,
p_contact_point_rec => x_contact_point_rec,
p_phone_rec => l_phone_rec,
p_object_version_number =>l_object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
end update_phone_contact_point;
procedure update_email_contact_point(
p_ldap_message in fnd_oid_util.ldap_message_type
, x_return_status out nocopy varchar2
) is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'update_email_contact_point';
p_action_type => G_UPDATE,
x_contact_point_rec => x_contact_point_rec,
x_return_status => x_return_status);
select object_version_number
into l_object_version_number
from hz_contact_points
where contact_point_id = x_contact_point_rec.contact_point_id;
hz_contact_point_v2pub.update_email_contact_point(
p_init_msg_list => fnd_api.G_TRUE,
p_contact_point_rec => x_contact_point_rec,
p_email_rec => p_email_rec,
p_object_version_number =>l_object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
end update_email_contact_point;
procedure update_party_site(
p_ldap_message in fnd_oid_util.ldap_message_type
, x_return_status out nocopy varchar2
) is
l_module_source varchar2(256);
l_module_source := G_MODULE_SOURCE || 'update_party_site';
p_action_type => G_UPDATE,
x_party_site_rec => x_party_site_rec,
x_return_status => x_return_status);
select location_id
into l_location_id
from hz_party_sites
where party_site_id = x_party_site_rec.party_site_id;
select object_version_number
into l_object_version_number
from hz_party_sites
where party_site_id = x_party_site_rec.party_site_id;
select object_version_number
into p_object_version_number
from hz_locations
where location_id = l_location_id;
hz_location_v2pub.update_location (
p_init_msg_list => fnd_api.G_TRUE,
p_location_rec => x_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);
hz_party_site_v2pub.update_party_site(
p_init_msg_list => fnd_api.G_TRUE,
p_party_site_rec => x_party_site_rec,
p_object_version_number =>l_object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
end update_party_site;
select hz_party_number_s.nextval
into l_party_number
from dual;
elsif (p_action_type = G_UPDATE)
then
fnd_oid_users.get_orig_system_ref(
p_ldap_message => p_ldap_message,
p_tag => G_PERSON,
x_reference => l_orig_system_reference);
select person_party_id
into l_party_id
from fnd_user where user_name = p_ldap_message.object_name;
elsif (p_action_type = G_UPDATE)
then
/* commenting out this line because we want to update the existing phone record and not inactivate it.
x_contact_point_rec.status := G_INACTIVE;
SELECT TERRITORY_CODE
FROM FND_TERRITORIES_VL
WHERE TERRITORY_CODE = p_ldap_message.c
OR TERRITORY_SHORT_NAME = p_ldap_message.c
OR DESCRIPTION = p_ldap_message.c;
select hz_party_site_number_s.nextval
into l_party_site_number
from dual;
select person_party_id
into l_party_id
from fnd_user where user_name = p_ldap_message.object_name;
elsif (p_action_type = G_UPDATE)
then
fnd_oid_users.get_orig_system_ref(
p_ldap_message => p_ldap_message,
p_tag => G_LOCATION,
x_reference => l_orig_system_reference);
select user_id
into l_user_id
from fnd_user where user_name = upper(p_ldap_message.object_name);
fnd_oid_users.update_orig_system_reference(
p_ldap_message => p_ldap_message,
p_tag => p_tag,
p_owner_table_name => p_owner_table_name,
p_owner_table_id => p_owner_table_id,
p_status => G_ACTIVE,
x_return_status => x_return_status);
procedure update_orig_system_reference(
p_ldap_message in fnd_oid_util.ldap_message_type
, p_tag in varchar2
, p_owner_table_name in varchar2
, p_owner_table_id in number
, p_status in varchar2
, x_return_status out nocopy varchar2
) is
l_module_source varchar2(256);
select orig_system_ref_id
into l_orig_system_ref_id
from hz_orig_sys_references
where orig_system_reference = l_orig_system_reference;
select object_version_number
into l_object_version_number
from hz_orig_sys_references
where orig_system_ref_id = l_orig_system_ref_id;
hz_orig_system_ref_pub.update_orig_system_reference(
p_init_msg_list => fnd_api.G_TRUE,
p_orig_sys_reference_rec => l_orig_sys_rec,
p_object_version_number => l_object_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
end update_orig_system_reference;
fnd_oid_users.hz_update(p_ldap_message => l_ldap_record,
x_return_status => l_return_status);