The following lines contain the word 'select', 'insert', 'update' or 'delete':
cursor cur_crl is select 1 from per_contact_relationships
where contact_person_id = p_contact_person_id
and person_id = p_person_id
and contact_type in ('01','11','21','30','31','32','33','40','41','50','60')
and P_CONTACT_TYPE in ('01','11','21','30','31','32','33','40','41','50','60')
and (date_start >= p_date_start
OR nvl(date_end,hr_general.end_of_time) <= nvl(p_date_end,hr_general.end_of_time));
select date_of_birth from per_all_people_f where person_id = P_CONTACT_PERSON_ID;
PROCEDURE UPDATE_PL_CON_REL(P_CONTACT_RELATIONSHIP_ID NUMBER,
P_DATE_START DATE,
P_DATE_END DATE,
P_CONTACT_TYPE VARCHAR2) IS
cursor cur_crl is select 1 from per_contact_relationships
where contact_person_id in
(select contact_person_id from per_contact_relationships where contact_relationship_id = p_contact_relationship_id)
and person_id in (select person_id from per_contact_relationships where contact_relationship_id = p_contact_relationship_id)
and contact_relationship_id <> p_contact_relationship_id
and contact_type in ('01','11','21','30','31','32','33','40','41','50','60')
and P_CONTACT_TYPE in ('01','11','21','30','31','32','33','40','41','50','60')
and (date_start >= p_date_start
OR nvl(date_end,hr_general.end_of_time) <= nvl(p_date_end,hr_general.end_of_time));
select date_of_birth from per_all_people_f where person_id in (select contact_person_id from
per_contact_relationships where contact_relationship_id = P_CONTACT_RELATIONSHIP_ID);
l_proc:='UPDATE_PL_CON_REL';
END UPDATE_PL_CON_REL;