The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out nocopy ota_tav_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update ota_activity_versions
set
activity_version_id = p_rec.activity_version_id,
activity_id = p_rec.activity_id,
superseded_by_act_version_id = p_rec.superseded_by_act_version_id,
developer_organization_id = p_rec.developer_organization_id,
controlling_person_id = p_rec.controlling_person_id,
object_version_number = p_rec.object_version_number,
version_name = p_rec.version_name,
comments = p_rec.comments,
description = p_rec.description,
duration = p_rec.duration,
duration_units = p_rec.duration_units,
end_date = p_rec.end_date,
intended_audience = p_rec.intended_audience,
language_id = p_rec.language_id,
maximum_attendees = p_rec.maximum_attendees,
minimum_attendees = p_rec.minimum_attendees,
objectives = p_rec.objectives,
start_date = p_rec.start_date,
success_criteria = p_rec.success_criteria,
user_status = p_rec.user_status,
vendor_id = p_rec.vendor_id,
actual_cost = p_rec.actual_cost,
budget_cost = p_rec.budget_cost,
budget_currency_code = p_rec.budget_currency_code,
expenses_allowed = p_rec.expenses_allowed,
professional_credit_type = p_rec.professional_credit_type,
professional_credits = p_rec.professional_credits,
maximum_internal_attendees = p_rec.maximum_internal_attendees,
tav_information_category = p_rec.tav_information_category,
tav_information1 = p_rec.tav_information1,
tav_information2 = p_rec.tav_information2,
tav_information3 = p_rec.tav_information3,
tav_information4 = p_rec.tav_information4,
tav_information5 = p_rec.tav_information5,
tav_information6 = p_rec.tav_information6,
tav_information7 = p_rec.tav_information7,
tav_information8 = p_rec.tav_information8,
tav_information9 = p_rec.tav_information9,
tav_information10 = p_rec.tav_information10,
tav_information11 = p_rec.tav_information11,
tav_information12 = p_rec.tav_information12,
tav_information13 = p_rec.tav_information13,
tav_information14 = p_rec.tav_information14,
tav_information15 = p_rec.tav_information15,
tav_information16 = p_rec.tav_information16,
tav_information17 = p_rec.tav_information17,
tav_information18 = p_rec.tav_information18,
tav_information19 = p_rec.tav_information19,
tav_information20 = p_rec.tav_information20,
inventory_item_id = p_rec.inventory_item_id,
organization_id = p_rec.organization_id,
rco_id = p_rec.rco_id,
version_code = p_rec.version_code,
business_group_id = p_rec.business_group_id,
data_source = p_rec.data_source,
competency_update_level = p_rec.competency_update_level
where activity_version_id = p_rec.activity_version_id;
End update_dml;
Procedure pre_update(p_rec in ota_tav_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in ota_tav_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
ota_rud_api.update_resource_usage_dates( p_rec.activity_version_id
,ota_tav_shd.g_old_rec.start_date
, p_rec.start_date
, ota_tav_shd.g_old_rec.end_date
, p_rec.end_date
);
hr_competence_element_api.update_delivered_dates
( p_rec.activity_version_id
,ota_tav_shd.g_old_rec.start_date
, p_rec.start_date
, ota_tav_shd.g_old_rec.end_date
, p_rec.end_date
);
End post_update;
If (p_rec.competency_update_level = hr_api.g_varchar2) then
p_rec.competency_update_level :=
ota_tav_shd.g_old_rec.competency_update_level;
ota_tav_bus.update_validate(convert_defs(p_rec));
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);
,p_competency_update_level in varchar2
) is
--
l_rec ota_tav_shd.g_rec_type;
,p_competency_update_level
);