The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, pay_datetracked_events dte
where dte.datetracked_event_id = p_datetracked_event_id
and pbg.business_group_id = dte.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, pay_datetracked_events dte
where dte.datetracked_event_id = p_datetracked_event_id
and pbg.business_group_id (+) = dte.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in pay_dte_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
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
);
If (p_rec.update_type = 'U')
Then
hr_api.mandatory_arg_error
(p_api_name => l_proc
,p_argument => 'COLUMN_NAME'
,p_argument_value => p_rec.column_name
);
Procedure chk_update_type
(p_effective_date in date
,p_rec in pay_dte_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package || 'chk_update_type';
,p_argument => 'update_type'
,p_argument_value => p_rec.update_type
);
,p_lookup_type => 'UPDATE_TYPE'
,p_lookup_code => p_rec.update_type) then
--
-- The update_type for this record is not recognised
--
fnd_message.set_name('PAY','HR_xxxx_INVALID_UPDATE_TYPE');
end chk_update_type;
Procedure insert_validate
(p_effective_date in date
,p_rec in pay_dte_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
chk_update_type(p_effective_date => p_effective_date
,p_rec => p_rec);
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in pay_dte_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_update_type(p_effective_date => p_effective_date
,p_rec => p_rec);
End update_validate;
Procedure delete_validate
(p_rec in pay_dte_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;