The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out ota_tpl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into ota_price_lists
( price_list_id,
business_group_id,
currency_code,
default_flag,
name,
object_version_number,
price_list_type,
start_date,
comments,
description,
end_date,
single_unit_price,
training_unit_type,
tpl_information_category,
tpl_information1,
tpl_information2,
tpl_information3,
tpl_information4,
tpl_information5,
tpl_information6,
tpl_information7,
tpl_information8,
tpl_information9,
tpl_information10,
tpl_information11,
tpl_information12,
tpl_information13,
tpl_information14,
tpl_information15,
tpl_information16,
tpl_information17,
tpl_information18,
tpl_information19,
tpl_information20
)
Values
( p_rec.price_list_id,
p_rec.business_group_id,
p_rec.currency_code,
p_rec.default_flag,
p_rec.name,
p_rec.object_version_number,
p_rec.price_list_type,
p_rec.start_date,
p_rec.comments,
p_rec.description,
p_rec.end_date,
p_rec.single_unit_price,
p_rec.training_unit_type,
p_rec.tpl_information_category,
p_rec.tpl_information1,
p_rec.tpl_information2,
p_rec.tpl_information3,
p_rec.tpl_information4,
p_rec.tpl_information5,
p_rec.tpl_information6,
p_rec.tpl_information7,
p_rec.tpl_information8,
p_rec.tpl_information9,
p_rec.tpl_information10,
p_rec.tpl_information11,
p_rec.tpl_information12,
p_rec.tpl_information13,
p_rec.tpl_information14,
p_rec.tpl_information15,
p_rec.tpl_information16,
p_rec.tpl_information17,
p_rec.tpl_information18,
p_rec.tpl_information19,
p_rec.tpl_information20
);
End insert_dml;
Procedure pre_insert(p_rec in out ota_tpl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select ota_price_lists_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in ota_tpl_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
ota_tpl_bus.insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);