The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out nocopy ota_tfl_api_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update ota_finance_lines
set
finance_line_id = p_rec.finance_line_id,
finance_header_id = p_rec.finance_header_id,
cancelled_flag = p_rec.cancelled_flag,
date_raised = p_rec.date_raised,
line_type = p_rec.line_type,
object_version_number = p_rec.object_version_number,
sequence_number = p_rec.sequence_number,
transfer_status = p_rec.transfer_status,
comments = p_rec.comments,
currency_code = p_rec.currency_code,
money_amount = p_rec.money_amount,
standard_amount = p_rec.standard_amount,
trans_information_category = p_rec.trans_information_category,
trans_information1 = p_rec.trans_information1,
trans_information10 = p_rec.trans_information10,
trans_information11 = p_rec.trans_information11,
trans_information12 = p_rec.trans_information12,
trans_information13 = p_rec.trans_information13,
trans_information14 = p_rec.trans_information14,
trans_information15 = p_rec.trans_information15,
trans_information16 = p_rec.trans_information16,
trans_information17 = p_rec.trans_information17,
trans_information18 = p_rec.trans_information18,
trans_information19 = p_rec.trans_information19,
trans_information2 = p_rec.trans_information2,
trans_information20 = p_rec.trans_information20,
trans_information3 = p_rec.trans_information3,
trans_information4 = p_rec.trans_information4,
trans_information5 = p_rec.trans_information5,
trans_information6 = p_rec.trans_information6,
trans_information7 = p_rec.trans_information7,
trans_information8 = p_rec.trans_information8,
trans_information9 = p_rec.trans_information9,
transfer_date = p_rec.transfer_date,
transfer_message = p_rec.transfer_message,
unitary_amount = p_rec.unitary_amount,
booking_deal_id = p_rec.booking_deal_id,
booking_id = p_rec.booking_id,
resource_allocation_id = p_rec.resource_allocation_id,
resource_booking_id = p_rec.resource_booking_id,
tfl_information_category = p_rec.tfl_information_category,
tfl_information1 = p_rec.tfl_information1,
tfl_information2 = p_rec.tfl_information2,
tfl_information3 = p_rec.tfl_information3,
tfl_information4 = p_rec.tfl_information4,
tfl_information5 = p_rec.tfl_information5,
tfl_information6 = p_rec.tfl_information6,
tfl_information7 = p_rec.tfl_information7,
tfl_information8 = p_rec.tfl_information8,
tfl_information9 = p_rec.tfl_information9,
tfl_information10 = p_rec.tfl_information10,
tfl_information11 = p_rec.tfl_information11,
tfl_information12 = p_rec.tfl_information12,
tfl_information13 = p_rec.tfl_information13,
tfl_information14 = p_rec.tfl_information14,
tfl_information15 = p_rec.tfl_information15,
tfl_information16 = p_rec.tfl_information16,
tfl_information17 = p_rec.tfl_information17,
tfl_information18 = p_rec.tfl_information18,
tfl_information19 = p_rec.tfl_information19,
tfl_information20 = p_rec.tfl_information20
where finance_line_id = p_rec.finance_line_id;
End update_dml;
Procedure pre_update(p_rec in out nocopy ota_tfl_api_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in ota_tfl_api_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
End post_update;
ota_tfl_api_bus.update_validate( temp_var
, p_rec.money_amount
, p_rec.unitary_amount
, p_rec.date_raised
, p_rec.sequence_number
, p_transaction_type);
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);