The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy ota_tsr_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into ota_suppliable_resources
( supplied_resource_id,
vendor_id,
business_group_id,
resource_definition_id,
consumable_flag,
object_version_number,
resource_type,
start_date,
comments,
cost,
cost_unit,
currency_code,
end_date,
internal_address_line,
lead_time,
name,
supplier_reference,
tsr_information_category,
tsr_information1,
tsr_information2,
tsr_information3,
tsr_information4,
tsr_information5,
tsr_information6,
tsr_information7,
tsr_information8,
tsr_information9,
tsr_information10,
tsr_information11,
tsr_information12,
tsr_information13,
tsr_information14,
tsr_information15,
tsr_information16,
tsr_information17,
tsr_information18,
tsr_information19,
tsr_information20,
training_center_id,
location_id,
trainer_id,
special_instruction
)
Values
( p_rec.supplied_resource_id,
p_rec.vendor_id,
p_rec.business_group_id,
p_rec.resource_definition_id,
p_rec.consumable_flag,
p_rec.object_version_number,
p_rec.resource_type,
p_rec.start_date,
p_rec.comments,
p_rec.cost,
p_rec.cost_unit,
p_rec.currency_code,
p_rec.end_date,
p_rec.internal_address_line,
p_rec.lead_time,
p_rec.name,
p_rec.supplier_reference,
p_rec.tsr_information_category,
p_rec.tsr_information1,
p_rec.tsr_information2,
p_rec.tsr_information3,
p_rec.tsr_information4,
p_rec.tsr_information5,
p_rec.tsr_information6,
p_rec.tsr_information7,
p_rec.tsr_information8,
p_rec.tsr_information9,
p_rec.tsr_information10,
p_rec.tsr_information11,
p_rec.tsr_information12,
p_rec.tsr_information13,
p_rec.tsr_information14,
p_rec.tsr_information15,
p_rec.tsr_information16,
p_rec.tsr_information17,
p_rec.tsr_information18,
p_rec.tsr_information19,
p_rec.tsr_information20,
p_rec.training_center_id,
p_rec.location_id,
p_rec.trainer_id,
p_rec.special_instruction
);
End insert_dml;
Procedure pre_insert(p_rec in out nocopy ota_tsr_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select ota_suppliable_resources_s.nextval from sys.dual;
Select null
from ota_suppliable_resources
where supplied_resource_id =
ota_tsr_ins.g_supplied_resource_id_i;
End pre_insert;
Procedure post_insert(p_rec in ota_tsr_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
ota_tsr_bus.insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);