The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE per_gb_extra_info_update
(p_effective_date IN date
,p_assignment_set_id IN number
,p_irregular_payments IN varchar2 DEFAULT 'Y') IS
--Usage Notes:
/*
This procedure is used to update the Irregular Payment Info
for the assignments in assignment sets.
p_effective_date - Effective date for assignments to be picked
Mandatory)
p_assignment_set_id - Assignment set id of assignments that should be updated.
(Mandatory)
p_irregular_payments - Irregular Payment Flag.
(Non-Mandatory)
*/
----
process_asg_id number;
SELECT DISTINCT
paf.assignment_id
FROM per_all_assignments_f paf
,per_business_groups pbf
,hr_assignment_set_amendments hasa
WHERE pbf.legislation_code = 'GB'
AND pbf.business_group_id = paf.business_group_id
AND (
p_effective_date_c BETWEEN paf.effective_start_date
AND paf.effective_end_date
)
AND hasa.assignment_set_id = p_assignment_set_id_c
AND hasa.assignment_id = paf.assignment_id;
SELECT assignment_id
,object_version_number
,assignment_extra_info_id
FROM per_assignment_extra_info
WHERE assignment_id = p_assignment_id
AND information_type = 'GB_PAY_RTI'
AND aei_information_category = 'GB_PAY_RTI';
hr_assignment_extra_info_api.update_assignment_extra_info
(p_validate => FALSE
,p_assignment_extra_info_id => p_aei_id
,p_object_version_number => p_ovn
,p_aei_information_category => 'GB_PAY_RTI'
,p_aei_information3 => p_irregular_payments);
END per_gb_extra_info_update;
SELECT DISTINCT
petf.element_type_id
FROM pay_element_type_rules petr
,pay_element_types_f petf
WHERE (
petr.element_set_id = v_element_set_id
AND petr.element_type_id = petf.element_type_id
)
OR (
petf.element_type_id = v_element_type_id
)
;
SELECT classification_id
FROM pay_element_classifications
WHERE classification_name = p_sub_classification_name
AND legislation_code = 'GB'
AND business_group_id IS NULL
AND parent_classification_id IN
(
SELECT DISTINCT
petf.classification_id
FROM pay_element_types_f petf
WHERE (
petf.element_type_id = v_element_type_id
)
);
SELECT sub_classification_rule_id
FROM pay_sub_classification_rules_f
WHERE element_type_id = v_element_type_id
AND classification_id = v_sub_clas_id;
SELECT min (effective_start_date)
,min (business_group_id)
INTO l_effective_start_date
,l_business_group_id
FROM pay_element_types_f
WHERE element_type_id = proc_element_type_id;
select PAY_SUB_CLASSIFICATION_RULES_S.nextval
into l_sub_class_rule_id
from dual;
pay_sub_class_rules_pkg.insert_row
(p_rowid => l_rowid
,p_sub_classification_rule_id => l_sub_class_rule_id
,p_effective_start_date => l_effective_start_date
,p_effective_end_date => hr_api.g_eot
,p_element_type_id => proc_element_type_id
,p_classification_id => l_sub_classification_id
,p_business_group_id => l_business_group_id
,p_legislation_code => NULL
,p_creation_date => sysdate
,p_created_by => l_user_id
,p_last_update_date => sysdate
,p_last_updated_by => l_user_id
,p_last_update_login => l_login_id);