The following lines contain the word 'select', 'insert', 'update' or 'delete':
g_event_update_id number default null;
(p_event_update_id in number
) is
--
-- Declare cursor
--
cursor csr_sec_grp is
select pbg.security_group_id
from per_business_groups pbg
, pay_event_updates peu
where peu.event_update_id = p_event_update_id
and pbg.business_group_id = peu.business_group_id;
,p_argument => 'event_update_id'
,p_argument_value => p_event_update_id
);
(p_event_update_id in number
)
Return Varchar2 Is
--
-- Declare cursor
--
cursor csr_leg_code is
select pbg.legislation_code
from per_business_groups pbg
, pay_event_updates peu
where peu.event_update_id = p_event_update_id
and pbg.business_group_id (+) = peu.business_group_id;
,p_argument => 'event_update_id'
,p_argument_value => p_event_update_id
);
if ( nvl(pay_peu_bus.g_event_update_id, hr_api.g_number)
= p_event_update_id) then
--
-- The legislation code has already been found with a previous
-- call to this function. Just return the value in the global
-- variable.
--
l_legislation_code := pay_peu_bus.g_legislation_code;
pay_peu_bus.g_event_update_id := p_event_update_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in pay_peu_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
(p_event_update_id => p_rec.event_update_id
,p_object_version_number => p_rec.object_version_number
) THEN
fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
End chk_non_updateable_args;
select 1
from dual
where exists (
select 1
from pay_dated_tables dt,
fnd_tables tab,
fnd_columns col
where dt.dated_table_id = p_rec.dated_table_id
and dt.table_name = tab.table_name
and tab.table_id = col.table_id
and col.column_name = p_rec.column_name
);
l_event_update_id number;
select '1'
from pay_event_updates
where nvl(table_name,'~') = nvl(p_rec.table_name,'~')
and nvl(event_type,'~') = nvl(p_rec.event_type,-1)
and nvl(column_name,'~') = nvl(p_rec.column_name,'~')
and change_type = p_rec.change_type
and ((legislation_code =
nvl(p_rec.legislation_code,hr_api.return_legislation_code(p_rec.business_group_id)))
or ( legislation_code is null and
business_group_id = p_rec.business_group_id)
or ( legislation_code is null and
business_group_id is null));
Procedure insert_validate
(p_effective_date in date
,p_rec in pay_peu_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in pay_peu_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
);
End update_validate;
Procedure delete_validate
(p_rec in pay_peu_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;