The following lines contain the word 'select', 'insert', 'update' or 'delete':
select ptp.period_num, ppa.payroll_id, ptp.start_date,
ptp.end_date,ppa.effective_date date_paid, ptp.period_type
into l_period_number,l_payroll_id, l_start_date,
l_end_date,l_date_paid, l_period_type
from per_time_period_types pty,
per_time_periods ptp,
pay_payroll_actions ppa
where ppa.payroll_action_id = p_pact_id
and ptp.time_period_id = ppa.time_period_id
and pty.period_type = ptp.period_type;
select min(SERVICE.date_start) into l_hire_date
from per_periods_of_service SERVICE,
per_all_assignments_f ASS
where ASS.assignment_id = p_assignment_id
and ASS.person_id = SERVICE.person_id
and SERVICE.date_start <= l_date_paid;
select ptp.period_num into l_period_number
from per_time_periods ptp
where ptp.payroll_id = l_payroll_id
and l_hire_date between ptp.start_date and ptp.end_date;