The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 1
from per_all_people_f papf,
per_addresses pa
where papf.effective_end_date >= to_date('01/03/2009','DD/MM/YYYY')
and papf.person_id = p_person_id
and papf.business_group_id in (select business_group_id
from per_business_groups
where legislation_code='ZA')
and pa.person_id = papf.person_id
and style = 'ZA_SARS'
and primary_flag = 'N'
and address_type = 'ZA_BUS';
update per_addresses
set date_to = date_from - 1
where person_id = p_person_id
and style = 'ZA_SARS'
and primary_flag = 'N'
and address_type = 'ZA_BUS';