The following lines contain the word 'select', 'insert', 'update' or 'delete':
select tmp.legislation_code
from hr_form_templates_b tmp
,hr_template_items_b tim
,hr_item_properties_b itp
where tmp.form_template_id = tim.form_template_id
and tim.template_item_id = itp.template_item_id
and itp.item_property_id = p_item_property_id
union
select tmp.legislation_code
from hr_form_templates_b tmp
,hr_template_items_b tim
,hr_template_item_contexts_b tic
,hr_item_properties_b itp
where tmp.form_template_id = tim.form_template_id
and tim.template_item_id = tic.template_item_id
and tic.template_item_context_id = itp.template_item_context_id
and itp.item_property_id = p_item_property_id;
SELECT form_id
FROM hr_form_items_b
WHERE form_item_id = p_form_item_id
AND p_form_item_id is not null
AND p_template_item_id is null
AND p_template_item_context_id is null
UNION
SELECT form_id
FROM hr_template_items_b hti
, hr_form_items_b hfi
WHERE hti.template_item_id = p_template_item_id
AND hti.form_item_id = hfi.form_item_id
AND p_template_item_id is not null
AND p_form_item_id is null
AND p_template_item_context_id is null
UNION
SELECT form_id
FROM hr_template_item_contexts_b tic
, hr_template_items_b hti
, hr_form_items_b hfi
WHERE tic.template_item_context_id = p_template_item_context_id
AND hti.template_item_id = tic.template_item_id
AND hti.form_item_id = hfi.form_item_id
AND p_template_item_context_id is not null
AND p_template_item_id is null
AND p_form_item_id is null;
SELECT form_id
FROM hr_form_items_b
WHERE form_item_id = l_item_id;
select fim.item_type
from hr_form_items_b fim
where fim.form_item_id = p_form_item_id;
select fim.item_type
from hr_form_items_b fim
,hr_template_items_b tim
where fim.form_item_id = tim.form_item_id
and tim.template_item_id = p_template_item_id;
select fim.item_type
from hr_form_items_b fim
,hr_template_items_b tim
,hr_template_item_contexts_b tic
where fim.form_item_id = tim.form_item_id
and tim.template_item_id = tic.template_item_id
and tic.template_item_context_id = p_template_item_context_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in hr_itp_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select fft.formula_type_name
from ff_formula_types fft
,ff_formulas fml
where fft.formula_type_id = fml.formula_type_id
and fml.formula_id = p_information_formula_id;
Procedure chk_insert_allowed
(p_effective_date in date
,p_object_version_number in number
,p_item_property_id in number
,p_insert_allowed in number
) is
--
l_proc varchar2(72) := g_package || 'chk_insert_allowed';
and nvl(hr_itp_shd.g_old_rec.insert_allowed,hr_api.g_number) <>
nvl(p_insert_allowed,hr_api.g_number))
or (NOT l_api_updating)) then
--
hr_utility.set_location(l_proc,30);
if (p_insert_allowed is not null) then
--
hr_utility.set_location(l_proc,40);
,p_lookup_code => p_insert_allowed
) then
fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
End chk_insert_allowed;
Procedure chk_update_allowed
(p_effective_date in date
,p_object_version_number in number
,p_item_property_id in number
,p_update_allowed in number
) is
--
l_proc varchar2(72) := g_package || 'chk_update_allowed';
and nvl(hr_itp_shd.g_old_rec.update_allowed,hr_api.g_number) <>
nvl(p_update_allowed,hr_api.g_number))
or (NOT l_api_updating)) then
--
hr_utility.set_location(l_proc,30);
if (p_update_allowed is not null) then
--
hr_utility.set_location(l_proc,40);
,p_lookup_code => p_update_allowed
) then
fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
End chk_update_allowed;
select fft.formula_type_name
from ff_formula_types fft
,ff_formulas fml
where fft.formula_type_id = fml.formula_type_id
and fml.formula_id = p_validation_formula_id;
if p_rec.insert_allowed is not null then
if l_item_type not in ('CHECKBOX','IMAGE','LIST','RADIO_BUTTON','TEXT_ITEM') then
fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
if p_rec.update_allowed is not null then
if l_item_type not in ('CHECKBOX','DISPLAY_ITEM','LIST','OLE_OBJECT','RADIO_BUTTON','TEXT_ITEM','USER_AREA','VBX_CONTROL') then
fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
Procedure chk_delete
(p_rec in hr_itp_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'chk_delete';
End chk_delete;
Procedure insert_validate
(p_effective_date in date
,p_rec in hr_itp_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
chk_insert_allowed
(p_effective_date => p_effective_date
,p_object_version_number => p_rec.object_version_number
,p_item_property_id => p_rec.item_property_id
,p_insert_allowed => p_rec.insert_allowed
);
chk_update_allowed
(p_effective_date => p_effective_date
,p_object_version_number => p_rec.object_version_number
,p_item_property_id => p_rec.item_property_id
,p_update_allowed => p_rec.update_allowed
);
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in hr_itp_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
chk_insert_allowed
(p_effective_date => p_effective_date
,p_object_version_number => p_rec.object_version_number
,p_item_property_id => p_rec.item_property_id
,p_insert_allowed => p_rec.insert_allowed
);
chk_update_allowed
(p_effective_date => p_effective_date
,p_object_version_number => p_rec.object_version_number
,p_item_property_id => p_rec.item_property_id
,p_update_allowed => p_rec.update_allowed
);
End update_validate;
Procedure delete_validate
(p_rec in hr_itp_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete
(p_rec => p_rec
);
End delete_validate;