[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id,
pbg.legislation_code
from per_business_groups_perf pbg
, ota_offerings off
where off.offering_id = p_offering_id
and pbg.business_group_id = off.business_group_id;
select pbg.legislation_code
from per_business_groups_perf pbg
, ota_offerings off
where off.offering_id = p_offering_id
and pbg.business_group_id = off.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in ota_off_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select
ctu.start_date_active,
ctu.end_date_active
from
ota_category_usages ctu
where
ctu.category_usage_id = p_delivery_mode_id;
select course_start_date, course_end_date ,event_status
from ota_events
where parent_offering_id = p_offering_id;
select start_date, end_date
from ota_activity_versions
where activity_version_id = p_activity_version_id;
PROCEDURE chk_competency_update_level (p_offering_id IN number
,p_object_version_number IN NUMBER
,p_competency_update_level IN VARCHAR2
,p_effective_date IN date) IS
--
l_proc VARCHAR2(72) := g_package||'chk_competency_update_level';
NVL(ota_off_shd.g_old_rec.competency_update_level,hr_api.g_varchar2) <>
NVL(p_competency_update_level, hr_api.g_varchar2))
OR NOT l_api_updating AND p_competency_update_level IS NOT NULL) THEN
hr_utility.set_location(' Leaving:'||l_proc, 20);
IF p_competency_update_level IS NOT NULL THEN
IF hr_api.not_exists_in_hr_lookups
(p_effective_date => p_effective_date
,p_lookup_type => 'OTA_COMPETENCY_UPDATE_LEVEL'
,p_lookup_code => p_competency_update_level) THEN
fnd_message.set_name('OTA','OTA_443411_COMP_UPD_LEV_INVLD');
(p_associated_column1 => 'OTA_OFFERINGS.COMPETENCY_UPDATE_LEVEL') THEN
hr_utility.set_location(' Leaving:'||l_proc, 42);
END chk_competency_update_level;
-- Do not perform the uniqueness check unless inserting, or updating
-- with a value different from the current value (and not just changing
-- case)
--
--
if (not UNIQUE_OFFERING_TITLE (
P_NAME => P_NAME,
P_BUSINESS_GROUP_ID => P_BUSINESS_GROUP_ID,
P_ACTIVITY_VERSION_ID => P_ACTIVITY_VERSION_ID,
P_OFFERING_ID => P_OFFERING_ID)) then
fnd_message.set_name('OTA','OTA_443317_OFF_UNIQUE');
SELECT 1 FROM OTA_OFFERINGS_VL OFF
WHERE OFF.NAME = P_NAME
AND OFF.ACTIVITY_VERSION_ID = P_ACTIVITY_VERSION_ID
AND OFF.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
AND ( OFF.OFFERING_ID <> P_OFFERING_ID or P_OFFERING_ID IS NULL ) ;
Procedure check_is_test_selected (p_offering_id IN ota_offerings.offering_id%TYPE,
p_learning_object_id IN ota_offerings.learning_object_id%TYPE,
p_player_toolbar_flag IN ota_offerings.player_toolbar_flag%TYPE,
p_player_toolbar_bitset IN ota_offerings.player_toolbar_bitset%TYPE)
Is
l_proc varchar2(72) := g_package||'check_is_test_selected';
SELECT test_id
FROM ota_learning_objects
WHERE learning_object_id = p_learning_object_id;
end check_is_test_selected;
SELECT null
FROM Per_all_people_f per
WHERE per.person_id = p_owner_id and
per.business_group_id = p_business_group_id and
NVL(start_date,TRUNC(SYSDATE)) between
effective_start_date and effective_end_date;
SELECT null
FROM Per_all_people_f per
WHERE per.person_id = p_owner_id and
NVL(start_date,TRUNC(SYSDATE)) between
effective_start_date and effective_end_date;
select
ctu.online_flag
from
ota_category_usages ctu
where
ctu.category_usage_id = p_delivery_mode_id;
select
'found'
From
ota_category_usages dm
where
dm.category_usage_id = p_delivery_mode_id
and (dm.online_flag <> 'N' or dm.synchronous_flag <> 'Y')
and exists
(select '1'
from ota_activity_versions tav
where tav.activity_version_id = p_activity_version_id
and inventory_item_id is not null);
ota_off_bus.chk_competency_update_level (p_offering_id => p_rec.offering_id
,p_object_version_number => p_rec.object_version_number
,p_competency_update_level => p_rec.competency_update_level
,p_effective_date => trunc(sysdate));
check_is_test_selected(p_offering_id => p_rec.offering_id,
p_learning_object_id => p_rec.learning_object_id,
p_player_toolbar_flag => p_rec.player_toolbar_flag,
p_player_toolbar_bitset => p_rec.player_toolbar_bitset);
Procedure insert_validate
(p_effective_date in date
,p_rec in out nocopy ota_off_shd.g_rec_type
,p_name in varchar
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in out nocopy ota_off_shd.g_rec_type
,p_name in varchar2
) 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_off_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;
select 'Y'
from ota_events evt
where evt.parent_offering_id = p_offering_id;
select 'Y'
from per_competence_elements comp
where comp.object_id = p_offering_id
and comp.type = 'OTA_OFFERING'; --bug 3691224