The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, per_disabilities_f dis
, per_people_f per
where dis.disability_id = p_disability_id
and dis.person_id = per.person_id
and pbg.business_group_id = per.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, per_disabilities_f dis
, per_people_f per
where dis.disability_id = p_disability_id
and dis.person_id = per.person_id
and pbg.business_group_id = per.business_group_id;
select null
from per_people_f ppf
where ppf.person_id = p_person_id
and p_effective_date between ppf.effective_start_date
and ppf.effective_end_date;
select null
from per_work_incidents pwi
where pwi.person_id = p_person_id
and pwi.incident_id = p_incident_id
and p_effective_date >= pwi.incident_date;
select null
from per_medical_assessments pma
where pma.disability_id = p_disability_id
and pma.incident_id <> p_incident_id
and pma.consultation_result = 'DIS';
select business_group_id
from hr_all_organization_units hou
where hou.organization_id = p_organization_id
and p_validation_start_date between hou.date_from and nvl(hou.date_to, hr_api.g_eot)
and hou.internal_external_flag = 'EXT';
select null
from hr_organization_information hoi
where hoi.organization_id = p_organization_id
and hoi.org_information_context = 'CLASS'
and hoi.org_information1 = 'DISABILITY_ORG'
and hoi.org_information2 = 'Y';
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in per_dis_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
Procedure dt_update_validate
(p_person_id in number default hr_api.g_number
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) Is
--
l_proc varchar2(72) := g_package||'dt_update_validate';
End dt_update_validate;
Procedure dt_delete_validate
(p_disability_id in number
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) Is
--
l_proc varchar2(72) := g_package||'dt_delete_validate';
If (p_datetrack_mode = hr_api.g_delete or
p_datetrack_mode = hr_api.g_zap) then
--
--
-- Ensure the arguments are not null
--
hr_api.mandatory_arg_error
(p_api_name => l_proc
,p_argument => 'validation_start_date'
,p_argument_value => p_validation_start_date
);
End dt_delete_validate;
Procedure insert_validate
(p_rec in per_dis_shd.g_rec_type
,p_effective_date in date
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) is
--
cursor csr_person is
select business_group_id
from per_all_people_f pap
where pap.person_id = p_rec.person_id
and p_validation_start_date between pap.effective_start_date and pap.effective_end_date;
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_rec in per_dis_shd.g_rec_type
,p_effective_date in date
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) is
--
cursor csr_person is
select business_group_id
from per_all_people_f pap
where pap.person_id = p_rec.person_id
and p_validation_start_date between pap.effective_start_date and pap.effective_end_date;
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
dt_update_validate
(p_person_id => p_rec.person_id
,p_datetrack_mode => p_datetrack_mode
,p_validation_start_date => p_validation_start_date
,p_validation_end_date => p_validation_end_date
);
End update_validate;
Procedure delete_validate
(p_rec in per_dis_shd.g_rec_type
,p_effective_date in date
,p_datetrack_mode in varchar2
,p_validation_start_date in date
,p_validation_end_date in date
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
dt_delete_validate
(p_datetrack_mode => p_datetrack_mode
,p_validation_start_date => p_validation_start_date
,p_validation_end_date => p_validation_end_date
,p_disability_id => p_rec.disability_id
);
End delete_validate;