The following lines contain the word 'select', 'insert', 'update' or 'delete':
select
ler_chg_pgm_enrt_id,
effective_start_date,
effective_end_date,
auto_enrt_mthd_rl,
crnt_enrt_prclds_chg_flag,
business_group_id,
pgm_id,
ler_id,
dflt_enrt_cd,
dflt_enrt_rl,
enrt_cd,
enrt_mthd_cd,
enrt_rl,
stl_elig_cant_chg_flag,
lge_attribute_category,
lge_attribute1,
lge_attribute2,
lge_attribute3,
lge_attribute4,
lge_attribute5,
lge_attribute6,
lge_attribute7,
lge_attribute8,
lge_attribute9,
lge_attribute10,
lge_attribute11,
lge_attribute12,
lge_attribute13,
lge_attribute14,
lge_attribute15,
lge_attribute16,
lge_attribute17,
lge_attribute18,
lge_attribute19,
lge_attribute20,
lge_attribute21,
lge_attribute22,
lge_attribute23,
lge_attribute24,
lge_attribute25,
lge_attribute26,
lge_attribute27,
lge_attribute28,
lge_attribute29,
lge_attribute30,
object_version_number
from ben_ler_chg_pgm_enrt_f
where ler_chg_pgm_enrt_id = p_ler_chg_pgm_enrt_id
and p_effective_date
between effective_start_date and effective_end_date;
p_delete out nocopy boolean,
p_future_change out nocopy boolean,
p_delete_next_change out nocopy boolean) is
--
l_proc varchar2(72) := g_package||'find_dt_del_modes';
select t.ler_id,
t.pgm_id
from ben_ler_chg_pgm_enrt_f t
where t.ler_chg_pgm_enrt_id = p_base_key_value
and p_effective_date
between t.effective_start_date and t.effective_end_date;
p_delete => p_delete,
p_future_change => p_future_change,
p_delete_next_change => p_delete_next_change);
p_update out nocopy boolean,
p_update_override out nocopy boolean,
p_update_change_insert out nocopy boolean) is
--
l_proc varchar2(72) := g_package||'find_dt_upd_modes';
p_update => p_update,
p_update_override => p_update_override,
p_update_change_insert => p_update_change_insert);
update ben_ler_chg_pgm_enrt_f t
set t.effective_end_date = p_new_effective_end_date,
t.object_version_number = l_object_version_number
where t.ler_chg_pgm_enrt_id = p_base_key_value
and p_effective_date
between t.effective_start_date and t.effective_end_date;
select
ler_chg_pgm_enrt_id,
effective_start_date,
effective_end_date,
auto_enrt_mthd_rl,
crnt_enrt_prclds_chg_flag,
business_group_id,
pgm_id,
ler_id,
dflt_enrt_cd,
dflt_enrt_rl,
enrt_cd,
enrt_mthd_cd,
enrt_rl,
stl_elig_cant_chg_flag,
lge_attribute_category,
lge_attribute1,
lge_attribute2,
lge_attribute3,
lge_attribute4,
lge_attribute5,
lge_attribute6,
lge_attribute7,
lge_attribute8,
lge_attribute9,
lge_attribute10,
lge_attribute11,
lge_attribute12,
lge_attribute13,
lge_attribute14,
lge_attribute15,
lge_attribute16,
lge_attribute17,
lge_attribute18,
lge_attribute19,
lge_attribute20,
lge_attribute21,
lge_attribute22,
lge_attribute23,
lge_attribute24,
lge_attribute25,
lge_attribute26,
lge_attribute27,
lge_attribute28,
lge_attribute29,
lge_attribute30,
object_version_number
from ben_ler_chg_pgm_enrt_f
where ler_chg_pgm_enrt_id = p_ler_chg_pgm_enrt_id
and p_effective_date
between effective_start_date and effective_end_date
for update nowait;
If (p_datetrack_mode <> 'INSERT') then
--
-- We must select and lock the current row.
--
Open C_Sel1;