The following lines contain the word 'select', 'insert', 'update' or 'delete':
select
pgm_id,
effective_start_date,
effective_end_date,
name,
dpnt_adrs_rqd_flag,
pgm_prvds_no_auto_enrt_flag,
dpnt_dob_rqd_flag,
pgm_prvds_no_dflt_enrt_flag,
dpnt_dsgn_lvl_cd,
dpnt_legv_id_rqd_flag,
pgm_stat_cd,
ivr_ident,
pgm_typ_cd,
elig_apls_flag,
uses_all_asmts_for_rts_flag,
url_ref_name,
pgm_desc,
prtn_elig_ovrid_alwd_flag,
pgm_use_all_asnts_elig_flag,
dpnt_dsgn_cd,
mx_dpnt_pct_prtt_lf_amt,
mx_sps_pct_prtt_lf_amt,
coord_cvg_for_all_pls_flg,
enrt_cvg_end_dt_cd,
enrt_cvg_end_dt_rl,
pgm_grp_cd,
acty_ref_perd_cd,
drvbl_fctr_dpnt_elig_flag,
pgm_uom,
enrt_info_rt_freq_cd,
drvbl_fctr_prtn_elig_flag,
drvbl_fctr_apls_rts_flag,
alws_unrstrctd_enrt_flag,
enrt_cd,
enrt_mthd_cd,
poe_lvl_cd,
enrt_rl,
auto_enrt_mthd_rl,
dpnt_dsgn_no_ctfn_rqd_flag,
rt_end_dt_cd,
rt_end_dt_rl,
rt_strt_dt_cd,
rt_strt_dt_rl,
enrt_cvg_strt_dt_cd,
enrt_cvg_strt_dt_rl,
dpnt_cvg_strt_dt_cd,
dpnt_cvg_strt_dt_rl,
dpnt_cvg_end_dt_rl,
dpnt_cvg_end_dt_cd,
trk_inelig_per_flag,
business_group_id,
per_cvrd_cd,
vrfy_fmly_mmbr_rl,
vrfy_fmly_mmbr_cd,
short_name, /*FHR*/
short_code, /*FHR*/
legislation_code, /*FHR*/
legislation_subgroup, /*FHR*/
Dflt_pgm_flag,
Use_prog_points_flag,
Dflt_step_cd,
Dflt_step_rl,
Update_salary_cd,
Use_multi_pay_rates_flag,
dflt_element_type_id,
Dflt_input_value_id,
Use_scores_cd,
Scores_calc_mthd_cd,
Scores_calc_rl,
gsp_allow_override_flag,
use_variable_rates_flag,
salary_calc_mthd_cd,
salary_calc_mthd_rl,
susp_if_dpnt_ssn_nt_prv_cd,
susp_if_dpnt_dob_nt_prv_cd,
susp_if_dpnt_adr_nt_prv_cd,
susp_if_ctfn_not_dpnt_flag,
dpnt_ctfn_determine_cd,
pgm_attribute_category,
pgm_attribute1,
pgm_attribute2,
pgm_attribute3,
pgm_attribute4,
pgm_attribute5,
pgm_attribute6,
pgm_attribute7,
pgm_attribute8,
pgm_attribute9,
pgm_attribute10,
pgm_attribute11,
pgm_attribute12,
pgm_attribute13,
pgm_attribute14,
pgm_attribute15,
pgm_attribute16,
pgm_attribute17,
pgm_attribute18,
pgm_attribute19,
pgm_attribute20,
pgm_attribute21,
pgm_attribute22,
pgm_attribute23,
pgm_attribute24,
pgm_attribute25,
pgm_attribute26,
pgm_attribute27,
pgm_attribute28,
pgm_attribute29,
pgm_attribute30,
object_version_number
from ben_pgm_f
where pgm_id = p_pgm_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.dpnt_cvg_strt_dt_rl,
t.dpnt_cvg_end_dt_rl,
t.enrt_cvg_end_dt_rl,
t.enrt_cvg_strt_dt_rl,
t.rt_end_dt_rl,
t.rt_strt_dt_rl
from ben_pgm_f t
where t.pgm_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_pgm_f t
set t.effective_end_date = p_new_effective_end_date,
t.object_version_number = l_object_version_number
where t.pgm_id = p_base_key_value
and p_effective_date
between t.effective_start_date and t.effective_end_date;
select
pgm_id,
effective_start_date,
effective_end_date,
name,
dpnt_adrs_rqd_flag,
pgm_prvds_no_auto_enrt_flag,
dpnt_dob_rqd_flag,
pgm_prvds_no_dflt_enrt_flag,
dpnt_legv_id_rqd_flag,
dpnt_dsgn_lvl_cd,
pgm_stat_cd,
ivr_ident,
pgm_typ_cd,
elig_apls_flag,
uses_all_asmts_for_rts_flag,
url_ref_name,
pgm_desc,
prtn_elig_ovrid_alwd_flag,
pgm_use_all_asnts_elig_flag,
dpnt_dsgn_cd,
mx_dpnt_pct_prtt_lf_amt,
mx_sps_pct_prtt_lf_amt,
acty_ref_perd_cd,
coord_cvg_for_all_pls_flg,
enrt_cvg_end_dt_cd,
enrt_cvg_end_dt_rl,
dpnt_cvg_end_dt_cd,
dpnt_cvg_end_dt_rl,
dpnt_cvg_strt_dt_cd,
dpnt_cvg_strt_dt_rl,
dpnt_dsgn_no_ctfn_rqd_flag,
drvbl_fctr_dpnt_elig_flag,
drvbl_fctr_prtn_elig_flag,
enrt_cvg_strt_dt_cd,
enrt_cvg_strt_dt_rl,
enrt_info_rt_freq_cd,
rt_strt_dt_cd,
rt_strt_dt_rl,
rt_end_dt_cd,
rt_end_dt_rl,
pgm_grp_cd,
pgm_uom,
drvbl_fctr_apls_rts_flag,
alws_unrstrctd_enrt_flag,
enrt_cd,
enrt_mthd_cd,
poe_lvl_cd,
enrt_rl,
auto_enrt_mthd_rl,
trk_inelig_per_flag,
business_group_id,
per_cvrd_cd,
vrfy_fmly_mmbr_rl,
vrfy_fmly_mmbr_cd,
short_name, /*FHR*/
short_code, /*FHR*/
legislation_code, /*FHR*/
legislation_subgroup, /*FHR*/
Dflt_pgm_flag,
Use_prog_points_flag,
Dflt_step_cd,
Dflt_step_rl,
Update_salary_cd,
Use_multi_pay_rates_flag,
dflt_element_type_id,
Dflt_input_value_id,
Use_scores_cd,
Scores_calc_mthd_cd,
Scores_calc_rl,
gsp_allow_override_flag,
use_variable_rates_flag,
salary_calc_mthd_cd,
salary_calc_mthd_rl,
susp_if_dpnt_ssn_nt_prv_cd,
susp_if_dpnt_dob_nt_prv_cd,
susp_if_dpnt_adr_nt_prv_cd,
susp_if_ctfn_not_dpnt_flag,
dpnt_ctfn_determine_cd,
pgm_attribute_category,
pgm_attribute1,
pgm_attribute2,
pgm_attribute3,
pgm_attribute4,
pgm_attribute5,
pgm_attribute6,
pgm_attribute7,
pgm_attribute8,
pgm_attribute9,
pgm_attribute10,
pgm_attribute11,
pgm_attribute12,
pgm_attribute13,
pgm_attribute14,
pgm_attribute15,
pgm_attribute16,
pgm_attribute17,
pgm_attribute18,
pgm_attribute19,
pgm_attribute20,
pgm_attribute21,
pgm_attribute22,
pgm_attribute23,
pgm_attribute24,
pgm_attribute25,
pgm_attribute26,
pgm_attribute27,
pgm_attribute28,
pgm_attribute29,
pgm_attribute30,
object_version_number
from ben_pgm_f
where pgm_id = p_pgm_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;
p_Update_salary_cd in Varchar2,
p_Use_multi_pay_rates_flag in Varchar2,
p_dflt_element_type_id in number,
p_Dflt_input_value_id in number,
p_Use_scores_cd in Varchar2,
p_Scores_calc_mthd_cd in Varchar2,
p_Scores_calc_rl in number,
p_gsp_allow_override_flag in varchar2,
p_use_variable_rates_flag in varchar2,
p_salary_calc_mthd_cd in varchar2,
p_salary_calc_mthd_rl in number,
p_susp_if_dpnt_ssn_nt_prv_cd in varchar2 ,
p_susp_if_dpnt_dob_nt_prv_cd in varchar2 ,
p_susp_if_dpnt_adr_nt_prv_cd in varchar2 ,
p_susp_if_ctfn_not_dpnt_flag in varchar2 ,
p_dpnt_ctfn_determine_cd in varchar2 ,
p_pgm_attribute_category in varchar2,
p_pgm_attribute1 in varchar2,
p_pgm_attribute2 in varchar2,
p_pgm_attribute3 in varchar2,
p_pgm_attribute4 in varchar2,
p_pgm_attribute5 in varchar2,
p_pgm_attribute6 in varchar2,
p_pgm_attribute7 in varchar2,
p_pgm_attribute8 in varchar2,
p_pgm_attribute9 in varchar2,
p_pgm_attribute10 in varchar2,
p_pgm_attribute11 in varchar2,
p_pgm_attribute12 in varchar2,
p_pgm_attribute13 in varchar2,
p_pgm_attribute14 in varchar2,
p_pgm_attribute15 in varchar2,
p_pgm_attribute16 in varchar2,
p_pgm_attribute17 in varchar2,
p_pgm_attribute18 in varchar2,
p_pgm_attribute19 in varchar2,
p_pgm_attribute20 in varchar2,
p_pgm_attribute21 in varchar2,
p_pgm_attribute22 in varchar2,
p_pgm_attribute23 in varchar2,
p_pgm_attribute24 in varchar2,
p_pgm_attribute25 in varchar2,
p_pgm_attribute26 in varchar2,
p_pgm_attribute27 in varchar2,
p_pgm_attribute28 in varchar2,
p_pgm_attribute29 in varchar2,
p_pgm_attribute30 in varchar2,
p_object_version_number in number
)
Return g_rec_type is
--
l_rec g_rec_type;
l_rec.Update_salary_cd := p_Update_salary_cd ;