The following lines contain the word 'select', 'insert', 'update' or 'delete':
select
ptnl_ler_for_per_id,
csd_by_ptnl_ler_for_per_id,
lf_evt_ocrd_dt,
trgr_table_pk_id,
ptnl_ler_for_per_stat_cd,
ptnl_ler_for_per_src_cd,
mnl_dt,
enrt_perd_id,
ntfn_dt,
dtctd_dt,
procd_dt,
unprocd_dt,
voidd_dt,
mnlo_dt,
ler_id,
person_id,
business_group_id,
request_id,
program_application_id,
program_id,
program_update_date,
object_version_number
from ben_ptnl_ler_for_per
where ptnl_ler_for_per_id = p_ptnl_ler_for_per_id;
select ptnl_ler_for_per_id,
csd_by_ptnl_ler_for_per_id,
lf_evt_ocrd_dt,
trgr_table_pk_id,
ptnl_ler_for_per_stat_cd,
ptnl_ler_for_per_src_cd,
mnl_dt,
enrt_perd_id,
ntfn_dt,
dtctd_dt,
procd_dt,
unprocd_dt,
voidd_dt,
mnlo_dt,
ler_id,
person_id,
business_group_id,
request_id,
program_application_id,
program_id,
program_update_date,
object_version_number
from ben_ptnl_ler_for_per
where ptnl_ler_for_per_id = p_ptnl_ler_for_per_id
for update nowait;
p_program_update_date in date,
p_object_version_number in number
)
Return g_rec_type is
--
l_rec g_rec_type;
l_rec.program_update_date := p_program_update_date;