The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, per_pay_bases ppb
where ppb.pay_basis_id = p_pay_basis_id
and pbg.business_group_id = ppb.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, per_pay_bases ppb
where ppb.pay_basis_id = p_pay_basis_id
and pbg.business_group_id = ppb.business_group_id;
select 'x'
from pay_rates
where rate_id = p_rate_id;
select 'Y'
from per_pay_bases ppb
where upper(ppb.name) = upper(p_name)
and ppb.business_group_id = p_business_group_id
--4154786
and ppb.pay_basis_id <> p_pay_basis_id
;
select 'x'
from pay_input_values_f piv,
pay_element_types_f pet,
pay_element_classifications pec
where piv.input_value_id = p_input_value_id
and piv.element_type_id = pet.element_type_id
and sysdate between pet.effective_start_date
and pet.effective_end_date
and (pet.business_group_id = p_business_group_id
or pet.business_group_id is null
and pet.legislation_code = p_legislation_code)
and pet.processing_type = 'R'
and pet.closed_for_entry_flag = 'N'
and pec.classification_id = pet.classification_id
and pec.costing_debit_or_credit = 'D';
PROCEDURE chk_delete(p_pay_basis_id number
,p_object_version_number number
) is
l_exists varchar2(1);
select 'x'
FROM per_all_assignments_f
WHERE pay_basis_id = p_pay_basis_id;
select 'x'
FROM hr_all_positions_f
WHERE pay_basis_id = p_pay_basis_id;
select 'x'
FROM pay_element_links_f
WHERE pay_basis_id = p_pay_basis_id;
l_proc varchar2(72) := g_package||'chk_delete';
end chk_delete;
select 'Y'
from PER_ALL_ASSIGNMENTS_F paa
where paa.pay_basis_id = p_rec.pay_basis_id;
Procedure chk_non_updateable_args
(p_rec in per_ppb_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
Procedure insert_validate
(p_rec in per_ppb_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
select pbg.legislation_code
into l_leg_code
from per_business_groups_perf pbg
where pbg.business_group_id = p_rec.business_group_id;
End insert_validate;
Procedure update_validate
(p_rec in per_ppb_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
select pbg.legislation_code
into l_leg_code
from per_business_groups_perf pbg
, per_pay_bases ppb
where ppb.pay_basis_id = p_rec.pay_basis_id
and pbg.business_group_id = ppb.business_group_id;
chk_non_updateable_args
(p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in per_ppb_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete(p_pay_basis_id => p_rec.Pay_basis_id
,p_object_version_number => p_rec.object_version_number
);
End delete_validate;