The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 1
into l_v
from dual where EXISTS
(SELECT NULL
FROM per_all_people_f
WHERE per_information2 = p_per_information2
AND business_group_id=p_business_group_id);
PROCEDURE extra_update_person_checks
(p_person_id IN NUMBER
,p_per_information2 IN VARCHAR2
,p_uses_tobacco_flag IN VARCHAR2) IS
--
--
-- Local variables.
--
l_v number(2) := 0;
select distinct business_group_id into l_business_group_id
from per_all_people_f
where person_id=p_person_id;
select 1
into l_v
from dual where EXISTS
(SELECT NULL
FROM per_all_people_f
WHERE per_information2 = p_per_information2
AND person_id <> p_person_id
AND business_group_id=l_business_group_id);
END extra_update_person_checks;
,o_dynamic_inserts OUT NOCOPY VARCHAR2) IS
--
--
-- Local cursors.
--
CURSOR csr_it_cagr
(p_cagr_id_flex_num NUMBER
,p_collective_agreement_id NUMBER
,p_organization_id NUMBER) IS
SELECT pcagv.dynamic_insert_allowed
FROM per_coll_agree_grades_v pcagv
,hr_organization_units org
WHERE org.organization_id = p_organization_id
AND pcagv.business_group_id = org.business_group_id
AND pcagv.collective_agreement_id = p_collective_agreement_id
AND pcagv.id_flex_num = p_cagr_id_flex_num
AND pcagv.d_grade_type_name = 'IT_CAGR';
l_dynamic_insert VARCHAR2(1) := 'N';
FETCH csr_it_cagr INTO l_dynamic_insert;
o_dynamic_inserts := l_dynamic_insert;
l_dynamic_inserts VARCHAR2(1) := 'N';
cagr_structure_valid(p_cagr_id_flex_num, p_collective_agreement_id, p_organization_id, l_dynamic_inserts);
PROCEDURE extra_update_assignment_checks
(p_collective_agreement_id IN NUMBER
,p_cagr_id_flex_num IN NUMBER
,p_assignment_id IN NUMBER
,p_object_version_number IN NUMBER
,p_effective_date IN DATE
,p_cag_segment1 IN VARCHAR2
,p_cag_segment2 IN VARCHAR2
,p_cag_segment3 IN VARCHAR2
,p_segment2 IN VARCHAR2) IS
--
--
-- Local cursors.
--
CURSOR csr_cagr_details
(p_effective_date DATE
,p_assignment_id NUMBER
,p_object_version_number NUMBER) IS
SELECT asg.collective_agreement_id
,asg.cagr_id_flex_num
,asg.organization_id
,cagr.segment1 cag_segment1
,cagr.segment2 cag_segment2
,cagr.segment3 cag_segment3
FROM per_all_assignments_f asg
,per_cagr_grades_def cagr
WHERE asg.assignment_id = p_assignment_id
AND asg.object_version_number = p_object_version_number
AND p_effective_date BETWEEN asg.effective_start_date
AND asg.effective_end_date
AND cagr.cagr_grade_def_id (+) = asg.cagr_grade_def_id;
l_dynamic_inserts VARCHAR2(1) := 'N';
cagr_structure_valid(l_rec.cagr_id_flex_num, l_rec.collective_agreement_id, l_rec.organization_id, l_dynamic_inserts);
END extra_update_assignment_checks;