The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure dt_delete_dml
(p_rec in out nocopy ben_bpl_shd.g_rec_type,
p_effective_date in date,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) is
--
l_proc varchar2(72) := g_package||'dt_delete_dml';
If (p_datetrack_mode = 'DELETE_NEXT_CHANGE') then
hr_utility.set_location(l_proc, 10);
delete from ben_bnft_prvdd_ldgr_f
where bnft_prvdd_ldgr_id = p_rec.bnft_prvdd_ldgr_id
and effective_start_date = p_validation_start_date;
delete from ben_bnft_prvdd_ldgr_f
where bnft_prvdd_ldgr_id = p_rec.bnft_prvdd_ldgr_id
and effective_start_date >= p_validation_start_date;
End dt_delete_dml;
Procedure delete_dml
(p_rec in out nocopy ben_bpl_shd.g_rec_type,
p_effective_date in date,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) is
--
l_proc varchar2(72) := g_package||'delete_dml';
dt_delete_dml(p_rec => p_rec,
p_effective_date => p_effective_date,
p_datetrack_mode => p_datetrack_mode,
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date);
End delete_dml;
Procedure dt_pre_delete
(p_rec in out nocopy ben_bpl_shd.g_rec_type,
p_effective_date in date,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) is
--
l_proc varchar2(72) := g_package||'dt_pre_delete';
If (p_datetrack_mode = 'DELETE') then
p_rec.effective_end_date := p_validation_start_date - 1;
End dt_pre_delete;
Procedure pre_delete
(p_rec in out nocopy ben_bpl_shd.g_rec_type,
p_effective_date in date,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) is
--
l_proc varchar2(72) := g_package||'pre_delete';
dt_pre_delete
(p_rec => p_rec,
p_effective_date => p_effective_date,
p_datetrack_mode => p_datetrack_mode,
p_validation_start_date => p_validation_start_date,
p_validation_end_date => p_validation_end_date);
End pre_delete;
Procedure post_delete
(p_rec in ben_bpl_shd.g_rec_type,
p_effective_date in date,
p_datetrack_mode in varchar2,
p_validation_start_date in date,
p_validation_end_date in date) is
--
l_proc varchar2(72) := g_package||'post_delete';
SELECT pil_new.per_in_ler_id
FROM ben_per_in_ler pil_old, ben_per_in_ler pil_new
WHERE pil_old.person_id = pil_new.person_id
AND pil_old.per_in_ler_id = ben_bpl_shd.g_old_rec.per_in_ler_id
AND pil_new.per_in_ler_stat_cd in ('STRTD','PROCD') -- Bug 7380983
ORDER BY pil_new.lf_evt_ocrd_dt desc; -- Bug 7380983
if p_datetrack_mode = hr_api.g_delete
then
--
open c_curr_pil;
INSERT INTO ben_le_clsn_n_rstr
(
bkup_tbl_id,
bkup_tbl_typ_cd,
per_in_ler_id,
effective_start_date,
effective_end_date,
object_version_number
)
VALUES
(
p_rec.bnft_prvdd_ldgr_id,
'BEN_BNFT_PRVDD_LDGR_F',
l_per_in_ler_id,
ben_bpl_shd.g_old_rec.effective_start_date ,
ben_bpl_shd.g_old_rec.effective_end_date ,
ben_bpl_shd.g_old_rec.object_version_number + 1
);
ben_bpl_rkd.after_delete
(
p_bnft_prvdd_ldgr_id =>p_rec.bnft_prvdd_ldgr_id
,p_datetrack_mode =>p_datetrack_mode
,p_validation_start_date =>p_validation_start_date
,p_validation_end_date =>p_validation_end_date
,p_effective_start_date =>p_rec.effective_start_date
,p_effective_end_date =>p_rec.effective_end_date
,p_effective_start_date_o =>ben_bpl_shd.g_old_rec.effective_start_date
,p_effective_end_date_o =>ben_bpl_shd.g_old_rec.effective_end_date
,p_prtt_ro_of_unusd_amt_flag_o =>ben_bpl_shd.g_old_rec.prtt_ro_of_unusd_amt_flag
,p_frftd_val_o =>ben_bpl_shd.g_old_rec.frftd_val
,p_prvdd_val_o =>ben_bpl_shd.g_old_rec.prvdd_val
,p_used_val_o =>ben_bpl_shd.g_old_rec.used_val
,p_bnft_prvdr_pool_id_o =>ben_bpl_shd.g_old_rec.bnft_prvdr_pool_id
,p_acty_base_rt_id_o =>ben_bpl_shd.g_old_rec.acty_base_rt_id
,p_per_in_ler_id_o =>ben_bpl_shd.g_old_rec.per_in_ler_id
,p_prtt_enrt_rslt_id_o =>ben_bpl_shd.g_old_rec.prtt_enrt_rslt_id
,p_business_group_id_o =>ben_bpl_shd.g_old_rec.business_group_id
,p_bpl_attribute_category_o =>ben_bpl_shd.g_old_rec.bpl_attribute_category
,p_bpl_attribute1_o =>ben_bpl_shd.g_old_rec.bpl_attribute1
,p_bpl_attribute2_o =>ben_bpl_shd.g_old_rec.bpl_attribute2
,p_bpl_attribute3_o =>ben_bpl_shd.g_old_rec.bpl_attribute3
,p_bpl_attribute4_o =>ben_bpl_shd.g_old_rec.bpl_attribute4
,p_bpl_attribute5_o =>ben_bpl_shd.g_old_rec.bpl_attribute5
,p_bpl_attribute6_o =>ben_bpl_shd.g_old_rec.bpl_attribute6
,p_bpl_attribute7_o =>ben_bpl_shd.g_old_rec.bpl_attribute7
,p_bpl_attribute8_o =>ben_bpl_shd.g_old_rec.bpl_attribute8
,p_bpl_attribute9_o =>ben_bpl_shd.g_old_rec.bpl_attribute9
,p_bpl_attribute10_o =>ben_bpl_shd.g_old_rec.bpl_attribute10
,p_bpl_attribute11_o =>ben_bpl_shd.g_old_rec.bpl_attribute11
,p_bpl_attribute12_o =>ben_bpl_shd.g_old_rec.bpl_attribute12
,p_bpl_attribute13_o =>ben_bpl_shd.g_old_rec.bpl_attribute13
,p_bpl_attribute14_o =>ben_bpl_shd.g_old_rec.bpl_attribute14
,p_bpl_attribute15_o =>ben_bpl_shd.g_old_rec.bpl_attribute15
,p_bpl_attribute16_o =>ben_bpl_shd.g_old_rec.bpl_attribute16
,p_bpl_attribute17_o =>ben_bpl_shd.g_old_rec.bpl_attribute17
,p_bpl_attribute18_o =>ben_bpl_shd.g_old_rec.bpl_attribute18
,p_bpl_attribute19_o =>ben_bpl_shd.g_old_rec.bpl_attribute19
,p_bpl_attribute20_o =>ben_bpl_shd.g_old_rec.bpl_attribute20
,p_bpl_attribute21_o =>ben_bpl_shd.g_old_rec.bpl_attribute21
,p_bpl_attribute22_o =>ben_bpl_shd.g_old_rec.bpl_attribute22
,p_bpl_attribute23_o =>ben_bpl_shd.g_old_rec.bpl_attribute23
,p_bpl_attribute24_o =>ben_bpl_shd.g_old_rec.bpl_attribute24
,p_bpl_attribute25_o =>ben_bpl_shd.g_old_rec.bpl_attribute25
,p_bpl_attribute26_o =>ben_bpl_shd.g_old_rec.bpl_attribute26
,p_bpl_attribute27_o =>ben_bpl_shd.g_old_rec.bpl_attribute27
,p_bpl_attribute28_o =>ben_bpl_shd.g_old_rec.bpl_attribute28
,p_bpl_attribute29_o =>ben_bpl_shd.g_old_rec.bpl_attribute29
,p_bpl_attribute30_o =>ben_bpl_shd.g_old_rec.bpl_attribute30
,p_object_version_number_o =>ben_bpl_shd.g_old_rec.object_version_number
,p_cash_recd_val_o =>ben_bpl_shd.g_old_rec.cash_recd_val
,p_rld_up_val_o =>ben_bpl_shd.g_old_rec.rld_up_val,
p_acty_ref_perd_cd_o => ben_bpl_shd.g_old_rec.acty_ref_perd_cd,
p_cmcd_frftd_val_o => ben_bpl_shd.g_old_rec.cmcd_frftd_val,
p_cmcd_prvdd_val_o => ben_bpl_shd.g_old_rec.cmcd_prvdd_val,
p_cmcd_rld_up_val_o => ben_bpl_shd.g_old_rec.cmcd_rld_up_val,
p_cmcd_used_val_o => ben_bpl_shd.g_old_rec.cmcd_used_val,
p_cmcd_cash_recd_val_o => ben_bpl_shd.g_old_rec.cmcd_cash_recd_val,
p_cmcd_ref_perd_cd_o => ben_bpl_shd.g_old_rec.cmcd_ref_perd_cd,
p_ann_frftd_val_o => ben_bpl_shd.g_old_rec.ann_frftd_val,
p_ann_prvdd_val_o => ben_bpl_shd.g_old_rec.ann_prvdd_val,
p_ann_rld_up_val_o => ben_bpl_shd.g_old_rec.ann_rld_up_val,
p_ann_used_val_o => ben_bpl_shd.g_old_rec.ann_used_val,
p_ann_cash_recd_val_o => ben_bpl_shd.g_old_rec.ann_cash_recd_val
);
End post_delete;
ben_bpl_bus.delete_validate
(p_rec => p_rec,
p_effective_date => p_effective_date,
p_datetrack_mode => p_datetrack_mode,
p_validation_start_date => l_validation_start_date,
p_validation_end_date => l_validation_end_date);
pre_delete
(p_rec => p_rec,
p_effective_date => p_effective_date,
p_datetrack_mode => p_datetrack_mode,
p_validation_start_date => l_validation_start_date,
p_validation_end_date => l_validation_end_date);
delete_dml
(p_rec => p_rec,
p_effective_date => p_effective_date,
p_datetrack_mode => p_datetrack_mode,
p_validation_start_date => l_validation_start_date,
p_validation_end_date => l_validation_end_date);
post_delete
(p_rec => p_rec,
p_effective_date => p_effective_date,
p_datetrack_mode => p_datetrack_mode,
p_validation_start_date => l_validation_start_date,
p_validation_end_date => l_validation_end_date);