The following lines contain the word 'select', 'insert', 'update' or 'delete':
select description new_code
from fnd_common_lookups
where lookup_code = c_pcs_code
and lookup_type = 'FR_PCS_CODE';
update per_jobs
set job_information1 = NULL
where business_group_id = p_business_group_id
and JOB_INFORMATION_CATEGORY = 'FR'
and job_id = get_pcs_code.job_id;
update per_jobs
set job_information1 = l_new_code
where business_group_id = p_business_group_id
and JOB_INFORMATION_CATEGORY = 'FR'
and job_id = get_pcs_code.job_id;
l_value := pay_fr_general.get_payroll_message('PAY_75194_UPDATED', null, null, null);
end update_old_pcs_codes;