The following lines contain the word 'select', 'insert', 'update' or 'delete':
select null
from per_people_f ppf
where ppf.person_id = p_person_id;
select null
from fnd_territories ft
where ft.territory_code = p_country;
select null
from fnd_descr_flex_contexts
where descriptive_flexfield_name = 'Address Structure'
and descriptive_flex_context_code = p_style
and enabled_flag = 'Y'
and application_id = 800;
cursor c1 is select * from per_jp_address_lookups
where district_code = p_town_or_city;
cursor c2 is select * from per_jp_address_lookups
where address_line1 = p_address_line1;
select null
from pay_us_counties
where county_name = p_region_1;
select null
from pay_us_states
where state_abbrev = p_region_2;
select null
from pay_us_city_names
where city_name = p_town_or_city;
select cty.city_code, cty.state_code
from pay_us_city_names cty
,pay_us_states st
where cty.state_code = st.state_code
and st.state_abbrev = p_region_2
and cty.city_name = p_town_or_city;
select null
from pay_us_zip_codes
where state_code = l_state_code
and city_code = l_city_code
and l_postal_code between zip_start
and zip_end;
select null
from per_addresses pa
where pa.date_from between per_kad_shd.g_old_rec.date_from
and l_date
and pa.person_id = per_kad_shd.g_old_rec.person_id
and pa.primary_flag = 'N';
select null
from sys.dual
where exists(select null
from per_addresses pa2
where pa2.date_from > l_date
and pa2.person_id = per_kad_shd.g_old_rec.person_id
and pa2.primary_flag = 'Y');
Procedure check_non_updateable_args(p_rec in per_kad_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'check_non_updateable_args';
end check_non_updateable_args;
Procedure insert_validate
(p_rec in out nocopy per_kad_shd.g_rec_type
,p_effective_date in date
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in out nocopy per_kad_shd.g_rec_type
,p_effective_date in date
) is
--
l_proc varchar2(72) := g_package||'update_validate';
check_non_updateable_args(p_rec => p_rec);
End update_validate;
Procedure delete_validate(p_rec in out nocopy per_kad_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;