The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out nocopy ota_tsr_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update ota_suppliable_resources
set
supplied_resource_id = p_rec.supplied_resource_id,
vendor_id = p_rec.vendor_id,
business_group_id = p_rec.business_group_id,
resource_definition_id = p_rec.resource_definition_id,
consumable_flag = p_rec.consumable_flag,
object_version_number = p_rec.object_version_number,
resource_type = p_rec.resource_type,
start_date = p_rec.start_date,
comments = p_rec.comments,
cost = p_rec.cost,
cost_unit = p_rec.cost_unit,
currency_code = p_rec.currency_code,
end_date = p_rec.end_date,
internal_address_line = p_rec.internal_address_line,
lead_time = p_rec.lead_time,
name = p_rec.name,
supplier_reference = p_rec.supplier_reference,
tsr_information_category = p_rec.tsr_information_category,
tsr_information1 = p_rec.tsr_information1,
tsr_information2 = p_rec.tsr_information2,
tsr_information3 = p_rec.tsr_information3,
tsr_information4 = p_rec.tsr_information4,
tsr_information5 = p_rec.tsr_information5,
tsr_information6 = p_rec.tsr_information6,
tsr_information7 = p_rec.tsr_information7,
tsr_information8 = p_rec.tsr_information8,
tsr_information9 = p_rec.tsr_information9,
tsr_information10 = p_rec.tsr_information10,
tsr_information11 = p_rec.tsr_information11,
tsr_information12 = p_rec.tsr_information12,
tsr_information13 = p_rec.tsr_information13,
tsr_information14 = p_rec.tsr_information14,
tsr_information15 = p_rec.tsr_information15,
tsr_information16 = p_rec.tsr_information16,
tsr_information17 = p_rec.tsr_information17,
tsr_information18 = p_rec.tsr_information18,
tsr_information19 = p_rec.tsr_information19,
tsr_information20 = p_rec.tsr_information20,
training_center_id = p_rec.training_center_id,
location_id = p_rec.location_id,
trainer_id = p_rec.trainer_id,
special_instruction = p_rec.special_instruction
where supplied_resource_id = p_rec.supplied_resource_id;
End update_dml;
Procedure pre_update(p_rec in ota_tsr_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in ota_tsr_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
End post_update;
ota_tsr_bus.update_validate(convert_defs(p_rec));
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);