The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_contact_preference(
p_api_version_number IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_ams_contact_pref_rec IN contact_preference_rec_type ,
p_request_id IN NUMBER,
px_object_version_number IN OUT NOCOPY NUMBER
)
IS
L_API_NAME CONSTANT VARCHAR2(30) := 'update_contact_preference';
SAVEPOINT UPDATE_CONTACT_PREFERENCE_PVT;
AMS_UTILITY_PVT.debug_message('Private API: Calling HZ update table PUB');
HZ_CONTACT_PREFERENCE_V2PUB.update_contact_preference
(
p_init_msg_list => p_init_msg_list,
p_contact_preference_rec => l_hz_contact_pref_rec,
p_object_version_number => px_object_version_number,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
ROLLBACK TO UPDATE_CONTACT_PREFERENCE_PVT;
ROLLBACK TO UPDATE_CONTACT_PREFERENCE_PVT;
ROLLBACK TO UPDATE_CONTACT_PREFERENCE_PVT;
End update_contact_preference;