The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_CONTACTPERSON (
P_CARRIER_PARTY_ID IN NUMBER,
P_PERSON_PARTY_ID IN OUT NOCOPY NUMBER,
P_PERSON_NAME_PRE_ADJUNCT IN VARCHAR2,
P_PERSON_FIRST_NAME IN VARCHAR2,
P_PERSON_LAST_NAME IN VARCHAR2,
P_STATUS IN VARCHAR2,
P_CONTACT_POINT_ID IN OUT NOCOPY 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;
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
);
END UPDATE_CONTACTPERSON;