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 1633: -- BEN_PL_BNF_F (PBN) (join to pil to check status)

1629: -- a bottom to top fashion :
1630: --
1631: -- BEN_PER_IN_LER (PIL)
1632: -- BEN_PRTT_ENRT_RSLT_F (PEN)
1633: -- BEN_PL_BNF_F (PBN) (join to pil to check status)
1634: -- BEN_PRTT_ENRT_ACTN_F (PEA) (join to pil to check status)
1635: -- BEN_BNFT_PRVDD_LDGR_F (BPL)(join to pil to check status)
1636: -- BEN_PRTT_RT_VAL (PRV)
1637: -- BEN_PRTT_REIMBMT_RQST_F

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

1758: p_effective_date => p_effective_date);
1759:
1760: -- un-end beneficiaries that have been ended. Leave other beneficiaries
1761: -- alone, they will be ignored if their per-in-ler is 'backed out'
1762: delete_routine(p_routine => 'BEN_PL_BNF_F',
1763: p_per_in_ler_id => p_per_in_ler_id,
1764: p_business_group_id => p_business_group_id,
1765: p_bckdt_prtt_enrt_rslt_id => p_bckdt_prtt_enrt_rslt_id,
1766: p_copy_only => p_copy_only,

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

3154:
3155: --
3156: -- END ----> DELETE ROUTINE FOR BEN_ELIG_CVRD_DPNT_F
3157: --
3158: -- START ----> DELETE ROUTINE FOR BEN_PL_BNF_F
3159: --
3160: -- Source Table
3161: -- BEN_PER_IN_LER
3162: --

Line 3163: cursor c_ben_pl_bnf_f is

3159: --
3160: -- Source Table
3161: -- BEN_PER_IN_LER
3162: --
3163: cursor c_ben_pl_bnf_f is
3164: select pbn.pl_bnf_id,
3165: pbn.object_version_number,
3166: -- bug 5668052
3167: pbn.effective_start_date

Line 3168: from ben_pl_bnf_f pbn,

3164: select pbn.pl_bnf_id,
3165: pbn.object_version_number,
3166: -- bug 5668052
3167: pbn.effective_start_date
3168: from ben_pl_bnf_f pbn,
3169: ben_per_in_ler pil
3170: where pil.per_in_ler_id = p_per_in_ler_id
3171: and pil.business_group_id = p_business_group_id
3172: and pbn.per_in_ler_id = pil.per_in_ler_id

Line 3198: from ben_pl_bnf_f

3194: --
3195: -- 5649636 : c_pbn_max_esd_of_past_pil is modified
3196: /* cursor c_pbn_max_esd_of_past_pil(v_pl_bnf_id in number) is
3197: select max(effective_end_date), max(object_version_number)
3198: from ben_pl_bnf_f
3199: where pl_bnf_id = v_pl_bnf_id
3200: and nvl(per_in_ler_id , -1) <> p_per_in_ler_id
3201: and business_group_id = p_business_group_id;
3202: -- and effective_end_date < p_effective_date;

Line 3207: from ben_pl_bnf_f pbn,

3203: */
3204: -- 5895645 : typo fix
3205: cursor c_pbn_max_esd_of_past_pil(v_pl_bnf_id in number) is
3206: select pbn.effective_end_date, pbn.object_version_number
3207: from ben_pl_bnf_f pbn,
3208: ben_per_in_ler pil
3209: where pbn.pl_bnf_id = v_pl_bnf_id
3210: and nvl(pbn.per_in_ler_id , -1) <> p_per_in_ler_id
3211: and pbn.business_group_id = p_business_group_id

Line 3222: from ben_pl_bnf_f

3218: --
3219: cursor c_deleted_pbn(v_pl_bnf_id in number,
3220: v_effective_date in date) is
3221: select *
3222: from ben_pl_bnf_f
3223: where pl_bnf_id = v_pl_bnf_id
3224: and nvl(per_in_ler_id , -1) = p_per_in_ler_id
3225: and business_group_id = p_business_group_id
3226: and effective_end_date > v_effective_date;

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

3225: and business_group_id = p_business_group_id
3226: and effective_end_date > v_effective_date;
3227: --
3228: --
3229: -- END ----> DELETE ROUTINE FOR BEN_PL_BNF_F
3230: --
3231: -- START ----> DELETE ROUTINE FOR BEN_PRMRY_CARE_PRVDR_F
3232: --
3233: -- Source Table

Line 3664: ben_pl_bnf_f pbn

3660: lcnr.prtt_enrt_rslt_stat_cd,
3661: pbn.object_version_number,
3662: pbn.pl_bnf_id
3663: from BEN_LE_CLSN_N_RSTR lcnr,
3664: ben_pl_bnf_f pbn
3665: where lcnr.BKUP_TBL_TYP_CD = 'BEN_PRTT_ENRT_RSLT_F_CORR'
3666: and lcnr.Per_in_ler_ended_id = c_pil_id
3667: and pbn.prtt_enrt_rslt_id = lcnr.bkup_tbl_id
3668: and (pbn.per_in_ler_id = lcnr.per_in_ler_ended_id

Line 5225: elsif p_routine = 'BEN_PL_BNF_F' then

5221: --
5222:
5223: close c_ben_prtt_prem_f;
5224: --
5225: elsif p_routine = 'BEN_PL_BNF_F' then
5226:
5227:
5228: -- For beneficiaries, we want to 'un-end' any bnf records that were ENDED
5229: -- due to the per-in-ler. The 'future-change' date track mode will do that

Line 5236: open c_ben_pl_bnf_f;

5232: -- will indicate that they are really 'backed out'.
5233:
5234: l_prev_pk_id := -1; -- like null
5235:
5236: open c_ben_pl_bnf_f;
5237:
5238: loop
5239:
5240: fetch c_ben_pl_bnf_f into l_pk_id,

Line 5240: fetch c_ben_pl_bnf_f into l_pk_id,

5236: open c_ben_pl_bnf_f;
5237:
5238: loop
5239:
5240: fetch c_ben_pl_bnf_f into l_pk_id,
5241: l_object_version_number,
5242: l_bnf_effective_start_date;
5243: exit when c_ben_pl_bnf_f%notfound;
5244: --

Line 5243: exit when c_ben_pl_bnf_f%notfound;

5239:
5240: fetch c_ben_pl_bnf_f into l_pk_id,
5241: l_object_version_number,
5242: l_bnf_effective_start_date;
5243: exit when c_ben_pl_bnf_f%notfound;
5244: --
5245: -- Get the maximum of effective end date for the beneficiary
5246: -- with past per_in_ler 's.
5247: --

Line 5271: open c_bkp_row('BEN_PL_BNF_F',

5267: for l_deleted_pbn_rec in c_deleted_pbn(l_pk_id, l_effective_date)
5268: loop
5269: --
5270: --
5271: open c_bkp_row('BEN_PL_BNF_F',
5272: l_deleted_pbn_rec.per_in_ler_id,
5273: l_deleted_pbn_rec.PL_BNF_ID,
5274: l_deleted_pbn_rec.object_version_number);
5275: fetch c_bkp_row into l_row_id;

Line 5342: 'BEN_PL_BNF_F',

5338: BUSINESS_GROUP_ID,
5339: PER_IN_LER_ID,
5340: LCR_ATTRIBUTE_CATEGORY )
5341: values (
5342: 'BEN_PL_BNF_F',
5343: l_deleted_pbn_rec.PBN_ATTRIBUTE1,
5344: l_deleted_pbn_rec.PBN_ATTRIBUTE2,
5345: l_deleted_pbn_rec.PBN_ATTRIBUTE3,
5346: l_deleted_pbn_rec.PBN_ATTRIBUTE4,

Line 5534: close c_ben_pl_bnf_f;

5530: --
5531: l_prev_pk_id := -1;
5532: --
5533:
5534: close c_ben_pl_bnf_f;
5535: elsif p_routine = 'BEN_PRMRY_CARE_PRVDR_F' then
5536: --
5537: l_prev_pk_id := -1; -- like null
5538: --

Line 7279: if c_ben_pl_bnf_f%isopen then

7275: close c_ben_prtt_prem_f;
7276: --
7277: end if;
7278: --
7279: if c_ben_pl_bnf_f%isopen then
7280: --
7281: close c_ben_pl_bnf_f;
7282: --
7283: end if;

Line 7281: close c_ben_pl_bnf_f;

7277: end if;
7278: --
7279: if c_ben_pl_bnf_f%isopen then
7280: --
7281: close c_ben_pl_bnf_f;
7282: --
7283: end if;
7284: --
7285: if c_ben_prmry_care_prvdr_f%isopen then