The following lines contain the word 'select', 'insert', 'update' or 'delete':
select owner_table_id into p_party_id
from hz_contact_points
where owner_table_name='HZ_PARTIES'
and contact_point_type='EMAIL'
and status='A'
and upper(email_address)=upper(p_email)
and contact_point_id not in (select contact_level_table_id from HZ_CONTACT_PREFERENCES
where contact_level_table='HZ_CONTACT_POINTS' and status='A');
select a.owner_table_id,b.party_type,a.email_address
from hz_contact_points a,hz_parties b
where a.owner_table_name='HZ_PARTIES'
and upper(a.email_address)=upper(p_email)
and a.contact_point_type='EMAIL'
and a.status='A'
and b.party_id=a.owner_table_id
and a.contact_point_id not in (select contact_level_table_id from HZ_CONTACT_PREFERENCES
where contact_level_table='HZ_CONTACT_POINTS' and status='A')
order by 2,1 DESC;
l_rec_tbl.delete;
l_rec_tbl1.delete;
l_rec_tbl2.delete;
select count(hzr.party_id) into l_v1count
from HZ_PARTIES hzp, HZ_RELATIONSHIPS hzr
where hzp.party_type='PARTY_RELATIONSHIP'
and hzr.party_id=hzp.party_id
and hzr.party_id=l_rec_tbl2(j).owner_table_id
and hzr.status in('A','I')
and (hzr.relationship_code='CONTACT_OF' or hzr.relationship_code='EMPLOYEE_OF');