The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 1
from OTA_EVENTS EVT, OTA_EVENTS_TL ENT
where EVT.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
and ( (P_PARENT_EVENT_ID is null )
or (EVT.PARENT_EVENT_ID = P_PARENT_EVENT_ID))
and upper (ENT.TITLE) = upper (P_TITLE)
and ( (P_EVENT_ID is null )
or (ENT.EVENT_ID <> P_EVENT_ID))
and ENT.EVENT_ID = EVT.EVENT_ID
and ENT.LANGUAGE = P_LANGUAGE ;
-- Do not perform the uniqueness check unless inserting, or updating
-- with a value different from the current value (and not just changing
-- case)
--
-- Check arguments
--
--if (not ( (OTA_EVT_SHD.API_UPDATING (P_EVENT_ID, P_OBJECT_VERSION_NUMBER))
-- and (upper (P_TITLE) = upper (OTA_ENT_SHD.G_OLD_REC.TITLE) ))) then
--
if (not UNIQUE_EVENT_TITLE (
P_TITLE => P_TITLE,
P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID,
P_PARENT_EVENT_ID => P_PARENT_EVENT_ID,
P_EVENT_ID => P_EVENT_ID ,
P_LANGUAGE => P_LANGUAGE )) then
fnd_message.set_name('PAY','HR_TRANSLATION_EXISTS');
select evt.parent_event_id
,evt.business_group_id
from ota_events evt
where evt.event_id = NVL(p_rec.event_id, p_event_id);
select pbg.security_group_id,
pbg.legislation_code
from per_business_groups pbg
, ota_events evt
where evt.event_id = p_event_id
and pbg.business_group_id = evt.business_group_id ;
select pbg.legislation_code
from per_business_groups pbg
, ota_events_tl ent
, ota_events evt
where ent.event_id = p_event_id
and ent.language = p_language
and pbg.business_group_id = evt.business_group_id
and evt.event_id = ent.event_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in ota_ent_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
Procedure insert_validate
(p_effective_date in date
,p_rec in ota_ent_shd.g_rec_type
,p_event_id in number
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in ota_ent_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 ota_ent_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;