The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out ota_pmm_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update ota_program_memberships
set
program_membership_id = p_rec.program_membership_id,
event_id = p_rec.event_id,
program_event_id = p_rec.program_event_id,
object_version_number = p_rec.object_version_number,
comments = p_rec.comments,
group_name = p_rec.group_name,
required_flag = p_rec.required_flag,
role = p_rec.role,
sequence = p_rec.sequence,
pmm_information_category = p_rec.pmm_information_category,
pmm_information1 = p_rec.pmm_information1,
pmm_information2 = p_rec.pmm_information2,
pmm_information3 = p_rec.pmm_information3,
pmm_information4 = p_rec.pmm_information4,
pmm_information5 = p_rec.pmm_information5,
pmm_information6 = p_rec.pmm_information6,
pmm_information7 = p_rec.pmm_information7,
pmm_information8 = p_rec.pmm_information8,
pmm_information9 = p_rec.pmm_information9,
pmm_information10 = p_rec.pmm_information10,
pmm_information11 = p_rec.pmm_information11,
pmm_information12 = p_rec.pmm_information12,
pmm_information13 = p_rec.pmm_information13,
pmm_information14 = p_rec.pmm_information14,
pmm_information15 = p_rec.pmm_information15,
pmm_information16 = p_rec.pmm_information16,
pmm_information17 = p_rec.pmm_information17,
pmm_information18 = p_rec.pmm_information18,
pmm_information19 = p_rec.pmm_information19,
pmm_information20 = p_rec.pmm_information20
where program_membership_id = p_rec.program_membership_id;
End update_dml;
Procedure pre_update(p_rec in ota_pmm_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in ota_pmm_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
End post_update;
ota_pmm_bus.update_validate(convert_defs(p_rec));
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);