723: -- application errors and customers expect this process to delete all such data.
724: -- dont delete PEN as it has lot of other child tables.
725: -- May be we shud plug in the ben post process calll here
726: --
727: delete from ben_elig_cvrd_dpnt_f t
728: where business_group_id = p_business_group_id
729: and not exists ( select 1 from ben_per_in_ler p
730: where p.per_in_ler_id = t.per_in_ler_id ) ;
731:
1112: benutils.write(p_text => 'Ben_prtt_rt_val '||to_char(g_prtt_rt_rows));
1113: benutils.write(p_text => 'Ben_prtt_enrt_actn_f '||to_char(g_prtt_enrt_actn_rows));
1114: benutils.write(p_text => 'Ben_prtt_prem_f '||to_char(g_prtt_prem_rows));
1115: benutils.write(p_text => 'Ben_prtt_enrt_ctfn_prvdd_f '||to_char(g_ctfn_prvdd_rows));
1116: benutils.write(p_text => 'Ben_elig_cvrd_dpnt_f '||to_char(g_elig_cvrd_dpnt_rows));
1117: benutils.write(p_text => 'Ben_prtt_enrt_rslt_f '||to_char(g_prtt_enrt_rslt_rows));
1118: benutils.write(p_text => 'Ben_pl_bnf_f '||to_char(g_pl_bnf_rows));
1119: benutils.write(p_text => 'Ben_prmry_care_prvdr_f '||to_char(g_prmry_care_rows));
1120: benutils.write(p_text => 'Ben_per_in_ler '||to_char(g_per_in_ler_rows));
1472: g_ctfn_prvdd_rows := g_ctfn_prvdd_rows + sql%rowcount;
1473:
1474: forall i in 1..t_rslt.last
1475: --
1476: delete from ben_elig_cvrd_dpnt_f
1477: where prtt_enrt_rslt_id = t_rslt(i);
1478: g_elig_cvrd_dpnt_rows := g_elig_cvrd_dpnt_rows + sql%rowcount;
1479: --
1480: forall i in 1..t_rslt.last