The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy pqh_plg_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into pqh_process_log
( process_log_id,
module_cd,
txn_id,
master_process_log_id,
message_text,
message_type_cd,
batch_status,
batch_start_date,
batch_end_date,
txn_table_route_id,
log_context,
information_category,
information1,
information2,
information3,
information4,
information5,
information6,
information7,
information8,
information9,
information10,
information11,
information12,
information13,
information14,
information15,
information16,
information17,
information18,
information19,
information20,
information21,
information22,
information23,
information24,
information25,
information26,
information27,
information28,
information29,
information30,
object_version_number
)
Values
( p_rec.process_log_id,
p_rec.module_cd,
p_rec.txn_id,
p_rec.master_process_log_id,
p_rec.message_text,
p_rec.message_type_cd,
p_rec.batch_status,
p_rec.batch_start_date,
p_rec.batch_end_date,
p_rec.txn_table_route_id,
p_rec.log_context,
p_rec.information_category,
p_rec.information1,
p_rec.information2,
p_rec.information3,
p_rec.information4,
p_rec.information5,
p_rec.information6,
p_rec.information7,
p_rec.information8,
p_rec.information9,
p_rec.information10,
p_rec.information11,
p_rec.information12,
p_rec.information13,
p_rec.information14,
p_rec.information15,
p_rec.information16,
p_rec.information17,
p_rec.information18,
p_rec.information19,
p_rec.information20,
p_rec.information21,
p_rec.information22,
p_rec.information23,
p_rec.information24,
p_rec.information25,
p_rec.information26,
p_rec.information27,
p_rec.information28,
p_rec.information29,
p_rec.information30,
p_rec.object_version_number
);
End insert_dml;
Procedure pre_insert(p_rec in out nocopy pqh_plg_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select pqh_process_log_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(
p_effective_date in date,p_rec in pqh_plg_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
pqh_plg_rki.after_insert
(
p_process_log_id =>p_rec.process_log_id
,p_module_cd =>p_rec.module_cd
,p_txn_id =>p_rec.txn_id
,p_master_process_log_id =>p_rec.master_process_log_id
,p_message_text =>p_rec.message_text
,p_message_type_cd =>p_rec.message_type_cd
,p_batch_status =>p_rec.batch_status
,p_batch_start_date =>p_rec.batch_start_date
,p_batch_end_date =>p_rec.batch_end_date
,p_txn_table_route_id =>p_rec.txn_table_route_id
,p_log_context =>p_rec.log_context
,p_information_category =>p_rec.information_category
,p_information1 =>p_rec.information1
,p_information2 =>p_rec.information2
,p_information3 =>p_rec.information3
,p_information4 =>p_rec.information4
,p_information5 =>p_rec.information5
,p_information6 =>p_rec.information6
,p_information7 =>p_rec.information7
,p_information8 =>p_rec.information8
,p_information9 =>p_rec.information9
,p_information10 =>p_rec.information10
,p_information11 =>p_rec.information11
,p_information12 =>p_rec.information12
,p_information13 =>p_rec.information13
,p_information14 =>p_rec.information14
,p_information15 =>p_rec.information15
,p_information16 =>p_rec.information16
,p_information17 =>p_rec.information17
,p_information18 =>p_rec.information18
,p_information19 =>p_rec.information19
,p_information20 =>p_rec.information20
,p_information21 =>p_rec.information21
,p_information22 =>p_rec.information22
,p_information23 =>p_rec.information23
,p_information24 =>p_rec.information24
,p_information25 =>p_rec.information25
,p_information26 =>p_rec.information26
,p_information27 =>p_rec.information27
,p_information28 =>p_rec.information28
,p_information29 =>p_rec.information29
,p_information30 =>p_rec.information30
,p_object_version_number =>p_rec.object_version_number
,p_effective_date =>p_effective_date
);
End post_insert;
pqh_plg_bus.insert_validate(p_rec
,p_effective_date);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(
p_effective_date,p_rec);