The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, pay_element_links_f pel
where pel.element_link_id = p_element_link_id
and pbg.business_group_id = pel.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, pay_element_links_f pel
where pel.element_link_id = p_element_link_id
and pbg.business_group_id = pel.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in pay_pel_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_payroll_id in number default hr_api.g_number
,p_element_type_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_element_link_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;
pay_asg_link_usages_pkg.insert_alu
(p_business_group_id,
p_people_group_id,
p_element_link_id,
p_effective_start_date,
p_effective_end_date);
select qualifying_age,qualifying_length_of_service,qualifying_units,
standard_link_flag,multiply_value_flag
from pay_element_types_f
where element_type_id = p_element_type_id;
select effective_start_date,
effective_end_date,
input_value_id,
default_value,max_value,
min_value,warning_or_error
from pay_input_values_f
where element_type_id = p_element_type_id
and p_effective_date between effective_start_date and effective_end_date;
select '1'
from ben_benefit_classifications bbc, pay_element_types_f pet
where bbc.benefit_classification_id(+) = pet.benefit_classification_id
and element_type_id = p_element_type_id
and p_effective_start_date between pet.effective_start_date
and pet.effective_end_date
and nvl(contributions_used,'N') = 'Y';
select '1'
from ben_benefit_contributions_f
where element_type_id = p_element_type_id
and p_effective_start_date between effective_start_date
and effective_end_date;
select location_id
from hr_all_organization_units
where business_group_id = p_business_group_id
and organization_id = p_organization_id
and p_effective_date
between date_from and nvl(date_to, g_eot) ;
select 'X'
from per_positions pos, per_jobs job, hr_organization_units org
where pos.position_id = p_position_id
and pos.business_group_id +0 = p_business_group_id
and job.job_id = pos.job_id and org.organization_id = pos.organization_id
and p_effective_date between pos.date_effective
and nvl(pos.date_end, g_eot)
and (p_organization_id is null or p_organization_id =pos.organization_id)
and (p_job_id is null or p_job_id = pos.job_id);
select 'X'
from per_jobs_v job
where job.business_group_id +0 = p_business_group_id
and p_effective_date between job.date_from and nvl(job.date_to, g_eot)
and job.job_id = p_job_id;
select 'X'
from per_grades grade
where grade.grade_id = p_grade_id
and p_effective_date
between grade.date_from and nvl (grade.date_to,g_eot);
select 'X'
from pay_people_groups ppg
where people_group_id = p_people_group_id
and p_effective_date between nvl(ppg.start_date_active,p_effective_date)
and nvl(ppg.end_date_active, g_eot);
select costable_flag from pay_element_classifications
where classification_id in (select distinct classification_id
from pay_element_types_f
where element_type_id = p_element_type_id
and p_effective_date between effective_start_date
and effective_end_date);
select UOM
from pay_input_values_f
where element_type_id = p_element_type_id
and upper(name) like 'PAY VALUE'
and p_effective_date between effective_start_date and effective_end_date;
select distinct pec.costing_debit_or_credit, pbg.legislation_code
from pay_element_classifications pec, pay_element_types_f pet,
per_business_groups pbg
where pec.classification_id = pet.classification_id
and pet.business_group_id = pbg.business_group_id (+)
and pet.element_type_id = p_element_type_id;
select element_set.element_set_id
from pay_element_sets element_set
where element_set_id = p_element_set_id
and element_set.element_set_type = 'D' and
/* the element set is within the users responsibility area */
( element_set.business_group_id +0 = p_business_group_id
or (element_set.business_group_id is null
and element_set.legislation_code = p_leg_code))
and /* either the link is not distributed costing or all of the
classifications in the set have the same costing debit or credit flag
as the link elements classification */
exists (
/* check the classifications of elements in the set that are specified
directly by name */
select 1
from pay_element_type_rules rule, pay_element_types_f type,
pay_element_classifications class
where element_set.element_set_id = rule.element_set_id
and class.classification_id = type.classification_id
and type.element_type_id = rule.element_type_id
and class.costing_debit_or_credit = p_costing_dc
and p_effective_date between type.effective_start_date
and type.effective_end_date
union all
/* check the element classifications specified in the set */
select 1
from pay_ele_classification_rules class_rule,
pay_element_classifications class2
where class_rule.element_set_id = element_set.element_set_id
and class2.classification_id = class_rule.classification_id
and class2.costing_debit_or_credit = p_costing_dc)
and
/* the element set is not empty
(as far as this user is concerned) */
exists (
/* check that there are elements directly included in
the set or (see second half of union statement) */
select 1
from pay_element_type_rules rule2, pay_element_types_f type2
where element_set.element_set_id=rule2.element_set_id
and rule2.element_type_id=type2.element_type_id
and rule2.include_or_exclude = 'I'
and (type2.business_group_id = p_business_group_id
or (type2.business_group_id is null
and type2.legislation_code = p_leg_code))
and p_effective_date between type2.effective_start_date
and type2.effective_end_date
union all
/* check that there are elements with the classification that is included
in the set */
select 1
from pay_element_types_f type3, pay_ele_classification_rules class_rule2
where class_rule2.element_set_id = element_set.element_set_id
and class_rule2.classification_id = type3.classification_id
and (type3.business_group_id = p_business_group_id
or (type3.business_group_id is null
and type3.legislation_code = p_leg_code))
and p_effective_date between type3.effective_start_date
and type3.effective_end_date );
and p_datetrack_mode = hr_api.g_update then
fnd_message.set_name('PAY', 'PAY_6466_LINK_NO_COST_UPD2');
select null
from pay_element_entries_f
where element_link_id = p_element_link_id;
select processing_type
from pay_element_types_f
where element_type_id = p_element_type_id
and p_effective_date between effective_start_date and effective_end_date;
select 1
from
pay_input_values_f piv
,per_pay_bases ppb
where
piv.element_type_id = p_element_type_id
and p_effective_date between piv.effective_start_date
and piv.effective_end_date
and ppb.input_value_id = piv.input_value_id
and ppb.business_group_id = p_business_group_id;
if (p_datetrack_mode <> hr_api.g_insert)
then
if pay_pel_shd.g_old_rec.standard_link_flag = 'N'
and p_standard_link_flag = 'Y' then
hr_utility.set_location(l_proc,20);
if (csr_DateEffRecs%found or p_datetrack_mode = hr_api.g_update) then
close csr_DateEffRecs;
procedure chk_date_eff_delete
(p_element_link_id in number,
p_delete_mode in varchar2,
p_validation_start_date in date
) is
--
l_proc varchar2(72) := g_package || 'chk_date_eff_delete';
pay_element_links_pkg.check_deletion_allowed(p_element_link_id,p_delete_mode,
p_validation_start_date);
end chk_date_eff_delete;
Procedure insert_validate
(p_rec in pay_pel_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||'insert_validate';
end insert_validate;
Procedure update_validate
(p_rec in pay_pel_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||'update_validate';
dt_update_validate
(p_payroll_id => p_rec.payroll_id
,p_element_type_id => p_rec.element_type_id
,p_datetrack_mode => p_datetrack_mode
,p_validation_start_date => p_validation_start_date
,p_validation_end_date => p_validation_end_date
);
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in pay_pel_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_element_link_id => p_rec.element_link_id
);
End delete_validate;