DBA Data[Home] [Help]

APPS.BEN_BACK_OUT_LIFE_EVENT dependencies on BEN_PL_BNF_F

Line 57: BEN_PL_BNF_F

53: BEN_PRMRY_CARE_PRVDR_F
54: Delete logic changed for
55: BEN_PRTT_ENRT_RSLT_F
56: BEN_ELIG_CVRD_DPNT_F
57: BEN_PL_BNF_F
58: BEN_PRTT_RT_VAL and
59: communication tables
60: to use datetrack mode as future
61: delete if past records exist

Line 92: 08-jul-99 pbodla 115.17 Code to backup data from ben_pl_bnf_f, BEN_PRTT_RT_VAL,

88: bnft_prvdd_ldgr, prtt_enrt_actn,
89: prtt_enrt_ctfn_prvdd,cvrd_dpnt_ctfn_prvdd,
90: pl_bnf_ctfn_prvdd,all per_cm% tables.
91: Removed because of per_in_ler status checks
92: 08-jul-99 pbodla 115.17 Code to backup data from ben_pl_bnf_f, BEN_PRTT_RT_VAL,
93: ben_prtt_prem, ben_elig_per, ben_elig_per_opt
94: ben_elig_cvrd_dpnt_f, ben_pil_elctbl_chc_popl,
95: ben_prtt_enrt_rslt_f added.
96: 09-jul-99 shdas 115.18 Moved unprocess_ptnl_ler proc here from benptnle.

Line 196: c_ben_pl_bnf_f,

192: c_ben_ELIG_PER_OPT_f,
193: c_epo_max_esd_of_past_pil,
194: c_ben_elig_per_f,
195: c_ben_prtt_prem_f,
196: c_ben_pl_bnf_f,
197: c_ben_prmry_care_prvdr_f
198: 31-AUG-00 jcarpent 115.50 OraBug# 4988. Added logic to
199: cdaniels skip the call to the delete
200: routine associated with most

Line 209: BEN_PL_BNF_F

205: BEN_ELIG_CVRD_DPNT_F
206: BEN_ELIG_PER_F
207: BEN_ELIG_PER_OPT_F
208: BEN_PRTT_PREM_F
209: BEN_PL_BNF_F
210: BEN_PRTT_ENRT_RSLT_F
211: 14-Sep-2000 jcarpent 115.51 Bug 1269016. added bolfe
212: effective_date global.
213: 27-SEP-2000 cdaniels 115.52 - Tar# 1090241.996. Eliminated test

Line 1285: -- BEN_PL_BNF_F (PBN) (join to pil to check status)

1281: -- a bottom to top fashion :
1282: --
1283: -- BEN_PER_IN_LER (PIL)
1284: -- BEN_PRTT_ENRT_RSLT_F (PEN)
1285: -- BEN_PL_BNF_F (PBN) (join to pil to check status)
1286: -- BEN_PRTT_ENRT_ACTN_F (PEA) (join to pil to check status)
1287: -- BEN_BNFT_PRVDD_LDGR_F (BPL)(join to pil to check status)
1288: -- BEN_PRTT_RT_VAL (PRV)
1289: -- BEN_PRTT_REIMBMT_RQST_F

Line 1414: delete_routine(p_routine => 'BEN_PL_BNF_F',

1410: p_effective_date => p_effective_date);
1411:
1412: -- un-end beneficiaries that have been ended. Leave other beneficiaries
1413: -- alone, they will be ignored if their per-in-ler is 'backed out'
1414: delete_routine(p_routine => 'BEN_PL_BNF_F',
1415: p_per_in_ler_id => p_per_in_ler_id,
1416: p_business_group_id => p_business_group_id,
1417: p_bckdt_prtt_enrt_rslt_id => p_bckdt_prtt_enrt_rslt_id,
1418: p_copy_only => p_copy_only,

Line 2752: -- START ----> DELETE ROUTINE FOR BEN_PL_BNF_F

2748:
2749: --
2750: -- END ----> DELETE ROUTINE FOR BEN_ELIG_CVRD_DPNT_F
2751: --
2752: -- START ----> DELETE ROUTINE FOR BEN_PL_BNF_F
2753: --
2754: -- Source Table
2755: -- BEN_PER_IN_LER
2756: --

Line 2757: cursor c_ben_pl_bnf_f is

2753: --
2754: -- Source Table
2755: -- BEN_PER_IN_LER
2756: --
2757: cursor c_ben_pl_bnf_f is
2758: select pbn.pl_bnf_id,
2759: pbn.object_version_number,
2760: -- bug 5668052
2761: pbn.effective_start_date

Line 2762: from ben_pl_bnf_f pbn,

2758: select pbn.pl_bnf_id,
2759: pbn.object_version_number,
2760: -- bug 5668052
2761: pbn.effective_start_date
2762: from ben_pl_bnf_f pbn,
2763: ben_per_in_ler pil
2764: where pil.per_in_ler_id = p_per_in_ler_id
2765: and pil.business_group_id = p_business_group_id
2766: and pbn.per_in_ler_id = pil.per_in_ler_id

Line 2792: from ben_pl_bnf_f

2788: --
2789: -- 5649636 : c_pbn_max_esd_of_past_pil is modified
2790: /* cursor c_pbn_max_esd_of_past_pil(v_pl_bnf_id in number) is
2791: select max(effective_end_date), max(object_version_number)
2792: from ben_pl_bnf_f
2793: where pl_bnf_id = v_pl_bnf_id
2794: and nvl(per_in_ler_id , -1) <> p_per_in_ler_id
2795: and business_group_id = p_business_group_id;
2796: -- and effective_end_date < p_effective_date;

Line 2801: from ben_pl_bnf_f pbn,

2797: */
2798: -- 5895645 : typo fix
2799: cursor c_pbn_max_esd_of_past_pil(v_pl_bnf_id in number) is
2800: select pbn.effective_end_date, pbn.object_version_number
2801: from ben_pl_bnf_f pbn,
2802: ben_per_in_ler pil
2803: where pbn.pl_bnf_id = v_pl_bnf_id
2804: and nvl(pbn.per_in_ler_id , -1) <> p_per_in_ler_id
2805: and pbn.business_group_id = p_business_group_id

Line 2816: from ben_pl_bnf_f

2812: --
2813: cursor c_deleted_pbn(v_pl_bnf_id in number,
2814: v_effective_date in date) is
2815: select *
2816: from ben_pl_bnf_f
2817: where pl_bnf_id = v_pl_bnf_id
2818: and nvl(per_in_ler_id , -1) = p_per_in_ler_id
2819: and business_group_id = p_business_group_id
2820: and effective_end_date > v_effective_date;

Line 2823: -- END ----> DELETE ROUTINE FOR BEN_PL_BNF_F

2819: and business_group_id = p_business_group_id
2820: and effective_end_date > v_effective_date;
2821: --
2822: --
2823: -- END ----> DELETE ROUTINE FOR BEN_PL_BNF_F
2824: --
2825: -- START ----> DELETE ROUTINE FOR BEN_PRMRY_CARE_PRVDR_F
2826: --
2827: -- Source Table

Line 3212: ben_pl_bnf_f pbn

3208: lcnr.prtt_enrt_rslt_stat_cd,
3209: pbn.object_version_number,
3210: pbn.pl_bnf_id
3211: from BEN_LE_CLSN_N_RSTR lcnr,
3212: ben_pl_bnf_f pbn
3213: where lcnr.BKUP_TBL_TYP_CD = 'BEN_PRTT_ENRT_RSLT_F_CORR'
3214: and lcnr.Per_in_ler_ended_id = c_pil_id
3215: and pbn.prtt_enrt_rslt_id = lcnr.bkup_tbl_id
3216: and (pbn.per_in_ler_id = lcnr.per_in_ler_ended_id

Line 4743: elsif p_routine = 'BEN_PL_BNF_F' then

4739: --
4740:
4741: close c_ben_prtt_prem_f;
4742: --
4743: elsif p_routine = 'BEN_PL_BNF_F' then
4744:
4745:
4746: -- For beneficiaries, we want to 'un-end' any bnf records that were ENDED
4747: -- due to the per-in-ler. The 'future-change' date track mode will do that

Line 4754: open c_ben_pl_bnf_f;

4750: -- will indicate that they are really 'backed out'.
4751:
4752: l_prev_pk_id := -1; -- like null
4753:
4754: open c_ben_pl_bnf_f;
4755:
4756: loop
4757:
4758: fetch c_ben_pl_bnf_f into l_pk_id,

Line 4758: fetch c_ben_pl_bnf_f into l_pk_id,

4754: open c_ben_pl_bnf_f;
4755:
4756: loop
4757:
4758: fetch c_ben_pl_bnf_f into l_pk_id,
4759: l_object_version_number,
4760: l_bnf_effective_start_date;
4761: exit when c_ben_pl_bnf_f%notfound;
4762: --

Line 4761: exit when c_ben_pl_bnf_f%notfound;

4757:
4758: fetch c_ben_pl_bnf_f into l_pk_id,
4759: l_object_version_number,
4760: l_bnf_effective_start_date;
4761: exit when c_ben_pl_bnf_f%notfound;
4762: --
4763: -- Get the maximum of effective end date for the beneficiary
4764: -- with past per_in_ler 's.
4765: --

Line 4789: open c_bkp_row('BEN_PL_BNF_F',

4785: for l_deleted_pbn_rec in c_deleted_pbn(l_pk_id, l_effective_date)
4786: loop
4787: --
4788: --
4789: open c_bkp_row('BEN_PL_BNF_F',
4790: l_deleted_pbn_rec.per_in_ler_id,
4791: l_deleted_pbn_rec.PL_BNF_ID,
4792: l_deleted_pbn_rec.object_version_number);
4793: fetch c_bkp_row into l_row_id;

Line 4860: 'BEN_PL_BNF_F',

4856: BUSINESS_GROUP_ID,
4857: PER_IN_LER_ID,
4858: LCR_ATTRIBUTE_CATEGORY )
4859: values (
4860: 'BEN_PL_BNF_F',
4861: l_deleted_pbn_rec.PBN_ATTRIBUTE1,
4862: l_deleted_pbn_rec.PBN_ATTRIBUTE2,
4863: l_deleted_pbn_rec.PBN_ATTRIBUTE3,
4864: l_deleted_pbn_rec.PBN_ATTRIBUTE4,

Line 5052: close c_ben_pl_bnf_f;

5048: --
5049: l_prev_pk_id := -1;
5050: --
5051:
5052: close c_ben_pl_bnf_f;
5053: elsif p_routine = 'BEN_PRMRY_CARE_PRVDR_F' then
5054: --
5055: l_prev_pk_id := -1; -- like null
5056: --

Line 6627: if c_ben_pl_bnf_f%isopen then

6623: close c_ben_prtt_prem_f;
6624: --
6625: end if;
6626: --
6627: if c_ben_pl_bnf_f%isopen then
6628: --
6629: close c_ben_pl_bnf_f;
6630: --
6631: end if;

Line 6629: close c_ben_pl_bnf_f;

6625: end if;
6626: --
6627: if c_ben_pl_bnf_f%isopen then
6628: --
6629: close c_ben_pl_bnf_f;
6630: --
6631: end if;
6632: --
6633: if c_ben_prmry_care_prvdr_f%isopen then