The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out ota_pmm_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into ota_program_memberships
( program_membership_id,
event_id,
program_event_id,
object_version_number,
comments,
group_name,
required_flag,
role,
sequence,
pmm_information_category,
pmm_information1,
pmm_information2,
pmm_information3,
pmm_information4,
pmm_information5,
pmm_information6,
pmm_information7,
pmm_information8,
pmm_information9,
pmm_information10,
pmm_information11,
pmm_information12,
pmm_information13,
pmm_information14,
pmm_information15,
pmm_information16,
pmm_information17,
pmm_information18,
pmm_information19,
pmm_information20
)
Values
( p_rec.program_membership_id,
p_rec.event_id,
p_rec.program_event_id,
p_rec.object_version_number,
p_rec.comments,
p_rec.group_name,
p_rec.required_flag,
p_rec.role,
p_rec.sequence,
p_rec.pmm_information_category,
p_rec.pmm_information1,
p_rec.pmm_information2,
p_rec.pmm_information3,
p_rec.pmm_information4,
p_rec.pmm_information5,
p_rec.pmm_information6,
p_rec.pmm_information7,
p_rec.pmm_information8,
p_rec.pmm_information9,
p_rec.pmm_information10,
p_rec.pmm_information11,
p_rec.pmm_information12,
p_rec.pmm_information13,
p_rec.pmm_information14,
p_rec.pmm_information15,
p_rec.pmm_information16,
p_rec.pmm_information17,
p_rec.pmm_information18,
p_rec.pmm_information19,
p_rec.pmm_information20
);
End insert_dml;
Procedure pre_insert(p_rec in out ota_pmm_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select ota_program_memberships_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in ota_pmm_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
ota_pmm_bus.insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);