The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure chk_non_updateable_args
(p_rec in per_pdm_shd.g_rec_type
,p_effective_date in date
) is
--
l_proc varchar2(72) := g_package||'chk_non_updateable_args';
end chk_non_updateable_args;
select person_id
from per_all_people_f
where person_id = p_person_id
and ((effective_start_date <= p_effective_date and
effective_end_date >= p_effective_date));
select delivery_method_id
from per_person_dlvry_methods
where comm_dlvry_method = p_comm_dlvry_method
and person_id = p_person_id;
select delivery_method_id
from per_person_dlvry_methods
where preferred_flag = 'Y'
and person_id = p_person_id;
Procedure insert_validate(p_rec in per_pdm_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 per_pdm_shd.g_rec_type
,p_effective_date in date) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_rec => p_rec
,p_effective_date => p_effective_date);
End update_validate;
Procedure delete_validate(p_rec in per_pdm_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;
select pbg.legislation_code
from per_business_groups pbg
, per_person_dlvry_methods pdm
, per_all_people_f per
where pdm.delivery_method_id = p_delivery_method_id
and pdm.person_id = per.person_id
and pbg.business_group_id = per.business_group_id;