The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out ota_ple_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into ota_price_list_entries
( price_list_entry_id,
vendor_supply_id,
activity_version_id,
price_list_id,
object_version_number,
price,
price_basis,
start_date,
comments,
end_date,
maximum_attendees,
minimum_attendees,
ple_information_category,
ple_information1,
ple_information2,
ple_information3,
ple_information4,
ple_information5,
ple_information6,
ple_information7,
ple_information8,
ple_information9,
ple_information10,
ple_information11,
ple_information12,
ple_information13,
ple_information14,
ple_information15,
ple_information16,
ple_information17,
ple_information18,
ple_information19,
ple_information20
)
Values
( p_rec.price_list_entry_id,
p_rec.vendor_supply_id,
p_rec.activity_version_id,
p_rec.price_list_id,
p_rec.object_version_number,
p_rec.price,
p_rec.price_basis,
p_rec.start_date,
p_rec.comments,
p_rec.end_date,
p_rec.maximum_attendees,
p_rec.minimum_attendees,
p_rec.ple_information_category,
p_rec.ple_information1,
p_rec.ple_information2,
p_rec.ple_information3,
p_rec.ple_information4,
p_rec.ple_information5,
p_rec.ple_information6,
p_rec.ple_information7,
p_rec.ple_information8,
p_rec.ple_information9,
p_rec.ple_information10,
p_rec.ple_information11,
p_rec.ple_information12,
p_rec.ple_information13,
p_rec.ple_information14,
p_rec.ple_information15,
p_rec.ple_information16,
p_rec.ple_information17,
p_rec.ple_information18,
p_rec.ple_information19,
p_rec.ple_information20
);
End insert_dml;
Procedure pre_insert(p_rec in out ota_ple_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select ota_price_list_entries_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in ota_ple_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
ota_ple_bus.insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);