[Home] [Help]
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;
23: Type t_bpl_tab is table of ben_bnft_prvdd_ldgr_f%rowtype index by binary_integer;
2039: --
2040: for elenum in p_ecr_set.first ..p_ecr_set.last
2041: loop
2042: --
2043: insert into ben_enrt_rt_rbv
2044: (enrt_rt_id,
2045: acty_typ_cd,
2046: tx_typ_cd,
2047: ctfn_rqd_flag,
3267: ,c_lu_dt date
3268: )
3269: is
3270: select ecr.*
3271: from ben_enrt_rt ecr,
3272: ben_elig_per_elctbl_chc epe,
3273: ben_per_in_ler pil
3274: where pil.person_id = c_per_id
3275: and epe.per_in_ler_id = pil.per_in_ler_id
3277: and ecr.last_update_date
3278: between c_lu_dt and sysdate
3279: union
3280: select ecr.*
3281: from ben_enrt_rt ecr,
3282: ben_enrt_bnft enb,
3283: ben_elig_per_elctbl_chc epe,
3284: ben_per_in_ler pil
3285: where pil.person_id = c_per_id
3296: ,c_lu_dt date
3297: )
3298: is
3299: select ecr.*
3300: from ben_enrt_rt ecr,
3301: ben_elig_per_elctbl_chc epe,
3302: ben_per_in_ler pil
3303: where pil.person_id = c_per_id
3304: and epe.per_in_ler_id = pil.per_in_ler_id
3313: ,c_lu_dt date
3314: )
3315: is
3316: select ecr.*
3317: from ben_enrt_rt ecr,
3318: ben_enrt_bnft enb,
3319: ben_elig_per_elctbl_chc epe,
3320: ben_per_in_ler pil
3321: where pil.person_id = c_per_id
3902: );
3903: --
3904: -- Rates
3905: --
3906: l_table_name := 'BEN_ENRT_RT_RBV';
3907: l_elenum := 0;
3908: --
3909: for row in c_ecreperbv
3910: (c_per_id => l_person_id