The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT SUBSTR(LTRIM(RTRIM(
DECODE(p_pre_name_adjunct , NULL,'',' ' || p_pre_name_adjunct)
||DECODE(p_last_name, NULL, '', ' ' || p_last_name)
||DECODE(p_first_name,NULL, '', ' ' || p_first_name)
||DECODE(p_middle_names,NULL, '', ' ' || p_middle_names)
)), 1, 240)
INTO l_full_name
FROM dual;
SELECT SUBSTR(TRIM(NVL(p_pre_name_adjunct,p_last_name)), 1, 240)
INTO l_order_name
FROM dual;
SELECT 'Y'
INTO l_status
FROM sys.dual
WHERE exists(SELECT '1'
FROM per_all_people_f pp
WHERE (p_person_id IS NULL
OR p_person_id <> pp.person_id)
AND p_identifier = pp.per_information2
AND pp.business_group_id = p_business_group_id);