The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out pay_con_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into pay_us_contribution_history
( contr_history_id,
person_id,
date_from,
date_to,
contr_type,
business_group_id,
legislation_code,
amt_contr,
max_contr_allowed,
includable_comp,
tax_unit_id,
source_system,
contr_information_category,
contr_information1,
contr_information2,
contr_information3,
contr_information4,
contr_information5,
contr_information6,
contr_information7,
contr_information8,
contr_information9,
contr_information10,
contr_information11,
contr_information12,
contr_information13,
contr_information14,
contr_information15,
contr_information16,
contr_information17,
contr_information18,
contr_information19,
contr_information20,
contr_information21,
contr_information22,
contr_information23,
contr_information24,
contr_information25,
contr_information26,
contr_information27,
contr_information28,
contr_information29,
contr_information30,
object_version_number
)
Values
( p_rec.contr_history_id,
p_rec.person_id,
p_rec.date_from,
p_rec.date_to,
p_rec.contr_type,
p_rec.business_group_id,
p_rec.legislation_code,
p_rec.amt_contr,
p_rec.max_contr_allowed,
p_rec.includable_comp,
p_rec.tax_unit_id,
p_rec.source_system,
p_rec.contr_information_category,
p_rec.contr_information1,
p_rec.contr_information2,
p_rec.contr_information3,
p_rec.contr_information4,
p_rec.contr_information5,
p_rec.contr_information6,
p_rec.contr_information7,
p_rec.contr_information8,
p_rec.contr_information9,
p_rec.contr_information10,
p_rec.contr_information11,
p_rec.contr_information12,
p_rec.contr_information13,
p_rec.contr_information14,
p_rec.contr_information15,
p_rec.contr_information16,
p_rec.contr_information17,
p_rec.contr_information18,
p_rec.contr_information19,
p_rec.contr_information20,
p_rec.contr_information21,
p_rec.contr_information22,
p_rec.contr_information23,
p_rec.contr_information24,
p_rec.contr_information25,
p_rec.contr_information26,
p_rec.contr_information27,
p_rec.contr_information28,
p_rec.contr_information29,
p_rec.contr_information30,
p_rec.object_version_number
);
End insert_dml;
Procedure pre_insert(p_rec in out pay_con_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select pay_us_contribution_history_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in pay_con_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
pay_con_rki.after_insert
(
p_contr_history_id =>p_rec.contr_history_id
,p_person_id =>p_rec.person_id
,p_date_from =>p_rec.date_from
,p_date_to =>p_rec.date_to
,p_contr_type =>p_rec.contr_type
,p_business_group_id =>p_rec.business_group_id
,p_legislation_code =>p_rec.legislation_code
,p_amt_contr =>p_rec.amt_contr
,p_max_contr_allowed =>p_rec.max_contr_allowed
,p_includable_comp =>p_rec.includable_comp
,p_tax_unit_id =>p_rec.tax_unit_id
,p_source_system =>p_rec.source_system
,p_contr_information_category =>p_rec.contr_information_category
,p_contr_information1 =>p_rec.contr_information1
,p_contr_information2 =>p_rec.contr_information2
,p_contr_information3 =>p_rec.contr_information3
,p_contr_information4 =>p_rec.contr_information4
,p_contr_information5 =>p_rec.contr_information5
,p_contr_information6 =>p_rec.contr_information6
,p_contr_information7 =>p_rec.contr_information7
,p_contr_information8 =>p_rec.contr_information8
,p_contr_information9 =>p_rec.contr_information9
,p_contr_information10 =>p_rec.contr_information10
,p_contr_information11 =>p_rec.contr_information11
,p_contr_information12 =>p_rec.contr_information12
,p_contr_information13 =>p_rec.contr_information13
,p_contr_information14 =>p_rec.contr_information14
,p_contr_information15 =>p_rec.contr_information15
,p_contr_information16 =>p_rec.contr_information16
,p_contr_information17 =>p_rec.contr_information17
,p_contr_information18 =>p_rec.contr_information18
,p_contr_information19 =>p_rec.contr_information19
,p_contr_information20 =>p_rec.contr_information20
,p_contr_information21 =>p_rec.contr_information21
,p_contr_information22 =>p_rec.contr_information22
,p_contr_information23 =>p_rec.contr_information23
,p_contr_information24 =>p_rec.contr_information24
,p_contr_information25 =>p_rec.contr_information25
,p_contr_information26 =>p_rec.contr_information26
,p_contr_information27 =>p_rec.contr_information27
,p_contr_information28 =>p_rec.contr_information28
,p_contr_information29 =>p_rec.contr_information29
,p_contr_information30 =>p_rec.contr_information30
,p_object_version_number =>p_rec.object_version_number
);
End post_insert;
pay_con_bus.insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);