[Home] [Help]
14: Type t_ecc_tab is table of ben_elctbl_chc_ctfn%rowtype index by binary_integer;
15: Type t_egd_tab is table of ben_elig_dpnt%rowtype index by binary_integer;
16: Type t_pdp_tab is table of ben_elig_cvrd_dpnt_f%rowtype index by binary_integer;
17: Type t_enb_tab is table of ben_enrt_bnft%rowtype index by binary_integer;
18: Type t_epr_tab is table of ben_enrt_prem%rowtype index by binary_integer;
19: Type t_ecr_tab is table of ben_enrt_rt%rowtype index by binary_integer;
20: Type t_prv_tab is table of ben_prtt_rt_val%rowtype index by binary_integer;
21: Type t_pen_tab is table of ben_prtt_enrt_rslt_f%rowtype index by binary_integer;
22: Type t_pcm_tab is table of ben_per_cm_f%rowtype index by binary_integer;
1920: --
1921: for elenum in p_epr_set.first ..p_epr_set.last
1922: loop
1923: --
1924: insert into ben_enrt_prem_rbv
1925: (enrt_prem_id,
1926: val,
1927: uom,
1928: elig_per_elctbl_chc_id,
3203: ,c_lu_dt date
3204: )
3205: is
3206: select epr.*
3207: from ben_enrt_prem epr,
3208: ben_elig_per_elctbl_chc epe,
3209: ben_per_in_ler pil
3210: where pil.person_id = c_per_id
3211: and epe.per_in_ler_id = pil.per_in_ler_id
3213: and epr.last_update_date
3214: between c_lu_dt and sysdate
3215: union
3216: select epr.*
3217: from ben_enrt_prem epr,
3218: ben_enrt_bnft enb,
3219: ben_elig_per_elctbl_chc epe,
3220: ben_per_in_ler pil
3221: where pil.person_id = c_per_id
3232: ,c_lu_dt date
3233: )
3234: is
3235: select epr.*
3236: from ben_enrt_prem epr,
3237: ben_elig_per_elctbl_chc epe,
3238: ben_per_in_ler pil
3239: where pil.person_id = c_per_id
3240: and epe.per_in_ler_id = pil.per_in_ler_id
3248: ,c_lu_dt date
3249: )
3250: is
3251: select epr.*
3252: from ben_enrt_prem epr,
3253: ben_enrt_bnft enb,
3254: ben_elig_per_elctbl_chc epe,
3255: ben_per_in_ler pil
3256: where pil.person_id = c_per_id
3838: );
3839: --
3840: -- Premiums
3841: --
3842: l_table_name := 'BEN_ENRT_PREM_RBV';
3843: l_elenum := 0;
3844: --
3845: for row in c_epreperbv
3846: (c_per_id => l_person_id