The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT DISTINCT full_name,
person_id,
start_date,
per_information4,
business_group_id
FROM per_all_people_f
WHERE per_information4 IS NOT NULL
AND business_group_id = cp_bgid
AND effective_end_date = to_date('4712/12/31','YYYY/MM/DD')
ORDER BY full_name;
INSERT INTO per_people_extra_info
(person_extra_info_id,
person_id,
information_type,
pei_information_category,
pei_information5,
pei_information9,
object_version_number,
last_update_date,
creation_date)
SELECT
per_people_extra_info_s.nextval,
l_person_id,
'PER_US_VISA_DETAILS',
'PER_US_VISA_DETAILS',
l_new_code,
l_category,
1,
sysdate,
sysdate
FROM sys.dual
WHERE NOT EXISTS
(SELECT 1
FROM PER_PEOPLE_EXTRA_INFO
WHERE person_id = l_person_id
AND pei_information5 = l_new_code
AND information_type = 'PER_US_VISA_DETAILS'
AND pei_information_category = 'PER_US_VISA_DETAILS');