The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy ben_epr_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into ben_enrt_prem
( enrt_prem_id,
val,
uom,
elig_per_elctbl_chc_id,
enrt_bnft_id,
actl_prem_id,
business_group_id,
epr_attribute_category,
epr_attribute1,
epr_attribute2,
epr_attribute3,
epr_attribute4,
epr_attribute5,
epr_attribute6,
epr_attribute7,
epr_attribute8,
epr_attribute9,
epr_attribute10,
epr_attribute11,
epr_attribute12,
epr_attribute13,
epr_attribute14,
epr_attribute15,
epr_attribute16,
epr_attribute17,
epr_attribute18,
epr_attribute19,
epr_attribute20,
epr_attribute21,
epr_attribute22,
epr_attribute23,
epr_attribute24,
epr_attribute25,
epr_attribute26,
epr_attribute27,
epr_attribute28,
epr_attribute29,
epr_attribute30,
object_version_number,
request_id,
program_application_id,
program_id,
program_update_date
)
Values
( p_rec.enrt_prem_id,
p_rec.val,
p_rec.uom,
p_rec.elig_per_elctbl_chc_id,
p_rec.enrt_bnft_id,
p_rec.actl_prem_id,
p_rec.business_group_id,
p_rec.epr_attribute_category,
p_rec.epr_attribute1,
p_rec.epr_attribute2,
p_rec.epr_attribute3,
p_rec.epr_attribute4,
p_rec.epr_attribute5,
p_rec.epr_attribute6,
p_rec.epr_attribute7,
p_rec.epr_attribute8,
p_rec.epr_attribute9,
p_rec.epr_attribute10,
p_rec.epr_attribute11,
p_rec.epr_attribute12,
p_rec.epr_attribute13,
p_rec.epr_attribute14,
p_rec.epr_attribute15,
p_rec.epr_attribute16,
p_rec.epr_attribute17,
p_rec.epr_attribute18,
p_rec.epr_attribute19,
p_rec.epr_attribute20,
p_rec.epr_attribute21,
p_rec.epr_attribute22,
p_rec.epr_attribute23,
p_rec.epr_attribute24,
p_rec.epr_attribute25,
p_rec.epr_attribute26,
p_rec.epr_attribute27,
p_rec.epr_attribute28,
p_rec.epr_attribute29,
p_rec.epr_attribute30,
p_rec.object_version_number,
p_rec.request_id,
p_rec.program_application_id,
p_rec.program_id,
p_rec.program_update_date
);
End insert_dml;
Procedure pre_insert(p_rec in out nocopy ben_epr_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select ben_enrt_prem_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in ben_epr_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
ben_epr_rki.after_insert
(
p_enrt_prem_id =>p_rec.enrt_prem_id
,p_val =>p_rec.val
,p_uom =>p_rec.uom
,p_elig_per_elctbl_chc_id =>p_rec.elig_per_elctbl_chc_id
,p_enrt_bnft_id =>p_rec.enrt_bnft_id
,p_actl_prem_id =>p_rec.actl_prem_id
,p_business_group_id =>p_rec.business_group_id
,p_epr_attribute_category =>p_rec.epr_attribute_category
,p_epr_attribute1 =>p_rec.epr_attribute1
,p_epr_attribute2 =>p_rec.epr_attribute2
,p_epr_attribute3 =>p_rec.epr_attribute3
,p_epr_attribute4 =>p_rec.epr_attribute4
,p_epr_attribute5 =>p_rec.epr_attribute5
,p_epr_attribute6 =>p_rec.epr_attribute6
,p_epr_attribute7 =>p_rec.epr_attribute7
,p_epr_attribute8 =>p_rec.epr_attribute8
,p_epr_attribute9 =>p_rec.epr_attribute9
,p_epr_attribute10 =>p_rec.epr_attribute10
,p_epr_attribute11 =>p_rec.epr_attribute11
,p_epr_attribute12 =>p_rec.epr_attribute12
,p_epr_attribute13 =>p_rec.epr_attribute13
,p_epr_attribute14 =>p_rec.epr_attribute14
,p_epr_attribute15 =>p_rec.epr_attribute15
,p_epr_attribute16 =>p_rec.epr_attribute16
,p_epr_attribute17 =>p_rec.epr_attribute17
,p_epr_attribute18 =>p_rec.epr_attribute18
,p_epr_attribute19 =>p_rec.epr_attribute19
,p_epr_attribute20 =>p_rec.epr_attribute20
,p_epr_attribute21 =>p_rec.epr_attribute21
,p_epr_attribute22 =>p_rec.epr_attribute22
,p_epr_attribute23 =>p_rec.epr_attribute23
,p_epr_attribute24 =>p_rec.epr_attribute24
,p_epr_attribute25 =>p_rec.epr_attribute25
,p_epr_attribute26 =>p_rec.epr_attribute26
,p_epr_attribute27 =>p_rec.epr_attribute27
,p_epr_attribute28 =>p_rec.epr_attribute28
,p_epr_attribute29 =>p_rec.epr_attribute29
,p_epr_attribute30 =>p_rec.epr_attribute30
,p_object_version_number =>p_rec.object_version_number
,p_request_id =>p_rec.request_id
,p_program_application_id =>p_rec.program_application_id
,p_program_id =>p_rec.program_id
,p_program_update_date =>p_rec.program_update_date
);
End post_insert;
ben_epr_bus.insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);
p_program_update_date in date default null
) is
--
l_rec ben_epr_shd.g_rec_type;
p_program_update_date
);