The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_last_update_date IN OUT NOCOPY DATE,
p_return_status OUT NOCOPY VARCHAR2 ,
p_msg_count OUT NOCOPY VARCHAR2 ,
p_msg_data OUT NOCOPY VARCHAR2,
P_language_use_reference_id IN OUT NOCOPY NUMBER,
p_language_ovn IN OUT NOCOPY NUMBER,
p_source IN VARCHAR2 DEFAULT NULL
) AS
-- CURSOR langcursor is SELECT IGS_PE_HZ_LANGUAGES_S.NEXTVAL S from DUAL;
lv_last_update_date DATE := p_last_update_date;
SELECT language_use_reference_id, object_version_number
FROM hz_person_language
WHERE language_name = cp_language_name AND
status = cp_status AND
party_id = cp_party_id;
IF l_action = 'INSERT' AND p_source = 'SS' THEN
OPEN dup_lang_cur(P_LANGUAGE_NAME,'A',p_party_id);
l_action := 'UPDATE';
IF l_action='INSERT' THEN
lv_per_language_rec_type.language_name := p_language_name;
-- after successful insert, pass OVN out as 1.
p_language_ovn :=1;
ELSIF l_action = 'UPDATE' THEN
lv_per_language_rec_type.language_name := p_language_name;
HZ_PERSON_INFO_V2PUB.update_person_language(
p_init_msg_list => lv_init_msg_list,
p_person_language_rec => lv_per_language_rec_type,
p_object_version_number => lv_object_version_number,
x_return_status => p_return_status ,
x_msg_count => p_msg_count,
x_msg_data => p_msg_data);