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_course_prerequisites cpr
where cpr.activity_version_id = p_activity_version_id
and cpr.prerequisite_course_id = p_prerequisite_course_id
and pbg.business_group_id = cpr.business_group_id;
select pbg.legislation_code
from per_business_groups_perf pbg
, ota_course_prerequisites cpr
where cpr.activity_version_id = p_activity_version_id
and cpr.prerequisite_course_id = p_prerequisite_course_id
and pbg.business_group_id = cpr.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in ota_cpr_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
select 'Y'
from OTA_COURSE_PREREQUISITES cpr
where cpr.activity_version_id = p_activity_version_id
and cpr.prerequisite_course_id = p_prerequisite_course_id;
select nvl(end_date, trunc(sysdate))
from OTA_ACTIVITY_VERSIONS oav
where oav.activity_version_id = p_prerequisite_course_id;
select nvl(start_date, trunc(sysdate))
from OTA_ACTIVITY_VERSIONS oav
where oav.activity_version_id = p_crs_id;
select 'Y'
from OTA_EVENTS oev
where oev.ACTIVITY_VERSION_ID = p_prerequisite_course_id
and (oev.EVENT_TYPE = 'SCHEDULED' or oev.EVENT_TYPE = 'SELFPACED')
and oev.EVENT_STATUS <> 'A'
and nvl(trunc(oev.course_end_date), trunc(sysdate)) >= trunc(sysdate);
select 'Y'
from OTA_COURSE_PREREQUISITES cpr
where cpr.PREREQUISITE_COURSE_ID = p_activity_version_id
and cpr.PREREQUISITE_COURSE_ID in
(select PREREQUISITE_COURSE_ID
from ota_course_prerequisites
start with ACTIVITY_VERSION_ID = p_prerequisite_course_id
connect by prior PREREQUISITE_COURSE_ID = ACTIVITY_VERSION_ID);
Procedure insert_validate
(p_effective_date in date
,p_rec in ota_cpr_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 ota_cpr_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_cpr_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;