The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_CONTACTPERSON(
P_PERSON_PARTY_ID IN NUMBER,
P_PERSON_NAME_PRE_ADJUNCT IN VARCHAR2,
P_PERSON_FIRST_NAME IN VARCHAR2,
P_PERSON_LAST_NAME IN VARCHAR2,
P_CONTACT_NUMBER IN VARCHAR2,
P_JOB_TITLE IN VARCHAR2,
P_EMAIL_ADDRESS IN VARCHAR2,
P_STATUS IN VARCHAR2,
P_LOAD_TENDER_FLAG IN VARCHAR2,
P_ORG_CONTACT_ID IN NUMBER,
P_CONTACT_POINT_ID IN NUMBER,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_EXCEPTION_MSG OUT NOCOPY VARCHAR2,
X_POSITION OUT NOCOPY NUMBER,
X_PROCEDURE OUT NOCOPY VARCHAR2,
X_SQLERR OUT NOCOPY VARCHAR2,
X_SQL_CODE OUT NOCOPY VARCHAR2 )
IS
l_person_rec HZ_PARTY_V2PUB.person_rec_type;
select object_version_number
from hz_parties
where party_id = p_person_party_id;
select object_version_number
from hz_org_contacts
where org_contact_id = p_org_contact_id;
select object_version_number
from hz_contact_points
where contact_point_id = p_contact_point_id;
l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'UPDATE_CONTACTPERSON';
l_call_procedure := 'Calling TCA API Update_Person';
WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_PARTY_V2PUB.Update_Person',WSH_DEBUG_SV.C_PROC_LEVEL);
HZ_PARTY_V2PUB.Update_Person
(
p_init_msg_list => FND_API.G_TRUE,
p_person_rec => l_person_rec,
p_party_object_version_number => l_object_version_number,
x_profile_id => l_profile_id,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
l_call_procedure := 'Calling TCA API Update_Org_Contact';
WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit HZ_PARTY_CONTACT_V2PUB.Update_Org_Contact',WSH_DEBUG_SV.C_PROC_LEVEL);
HZ_PARTY_CONTACT_V2PUB.Update_Org_Contact (
p_init_msg_list => FND_API.G_TRUE,
p_org_contact_rec => l_ocon_rec,
p_cont_object_version_number => l_contact_object_version,
p_rel_object_version_number => l_rel_object_version,
p_party_object_version_number => l_party_object_version,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data );
WSH_DEBUG_SV.logmsg(l_module_name,'Calling program Unit HZ_CONTACT_POINT_V2PUB.Update_Contact_Point',WSH_DEBUG_SV.C_PROC_LEVEL);
HZ_CONTACT_POINT_V2PUB.Update_Contact_Point(
p_init_msg_list => FND_API.G_TRUE,
p_contact_point_rec => l_contact_points_rec_type,
p_email_rec => l_email_rec_type,
p_object_version_number => l_cont_point_version,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data );
END UPDATE_CONTACTPERSON;