DBA Data[Home] [Help]

APPS.BEN_BACK_OUT_LIFE_EVENT dependencies on BEN_ELIG_PER_F

Line 194: c_ben_elig_per_f,

190: 03-AUG-00 pbodla 115.49 - Removed the effective date usage
191: from the cursors -
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

Line 206: BEN_ELIG_PER_F

202: l_effective_date passed is
203: not EOT.
204: Affect p_routines:
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

Line 479: old_elig_per_id ben_elig_per_f.elig_per_id%TYPE,

475: /*Added a global record to keep track of the old elig_per_id to new elig_per_id mapping.
476: This is used while creating elig_per_opt_f record.*/
477: type g_eper_old_new_rec is record
478: (
479: old_elig_per_id ben_elig_per_f.elig_per_id%TYPE,
480: new_elig_per_id ben_elig_per_f.elig_per_id%TYPE
481: );
482: type g_eper_old_new_tbl is table of g_eper_old_new_rec;
483: g_eper_map_rec g_eper_old_new_tbl := g_eper_old_new_tbl();

Line 480: new_elig_per_id ben_elig_per_f.elig_per_id%TYPE

476: This is used while creating elig_per_opt_f record.*/
477: type g_eper_old_new_rec is record
478: (
479: old_elig_per_id ben_elig_per_f.elig_per_id%TYPE,
480: new_elig_per_id ben_elig_per_f.elig_per_id%TYPE
481: );
482: type g_eper_old_new_tbl is table of g_eper_old_new_rec;
483: g_eper_map_rec g_eper_old_new_tbl := g_eper_old_new_tbl();
484: g_epe_map_count number := 0;

Line 878: and elig.BKUP_TBL_TYP_CD = 'BEN_ELIG_PER_F_CORRECT' ;

874: cursor c_restore_pep( p_pil_id number ) IS
875: select *
876: from ben_le_clsn_n_rstr elig
877: where elig.per_in_ler_ended_id = p_pil_id
878: and elig.BKUP_TBL_TYP_CD = 'BEN_ELIG_PER_F_CORRECT' ;
879: --
880: cursor c_pep(p_elig_per_id number,p_effective_date date) IS
881: select object_version_number
882: from ben_elig_per_f pep

Line 882: from ben_elig_per_f pep

878: and elig.BKUP_TBL_TYP_CD = 'BEN_ELIG_PER_F_CORRECT' ;
879: --
880: cursor c_pep(p_elig_per_id number,p_effective_date date) IS
881: select object_version_number
882: from ben_elig_per_f pep
883: where pep.elig_per_id = p_elig_per_id
884: and p_effective_date between pep.effective_start_date
885: and pep.effective_end_date ;
886: --

Line 895: l_elig_per_id ben_elig_per_f.elig_per_id%TYPE;

891: l_update_change_insert boolean;
892: l_datetrack_mode varchar2(100);
893: --
894: --Start AMN bug 12732878
895: l_elig_per_id ben_elig_per_f.elig_per_id%TYPE;
896: l_effective_start_date date;
897: l_effective_end_date date;
898: l_object_version_number ben_elig_per_f.object_version_number%type;
899: --End AMN bug 12732878

Line 898: l_object_version_number ben_elig_per_f.object_version_number%type;

894: --Start AMN bug 12732878
895: l_elig_per_id ben_elig_per_f.elig_per_id%TYPE;
896: l_effective_start_date date;
897: l_effective_end_date date;
898: l_object_version_number ben_elig_per_f.object_version_number%type;
899: --End AMN bug 12732878
900: begin
901: --
902: hr_utility.set_location ('Entering '||l_proc,10);

Line 914: p_base_table_name => 'BEN_ELIG_PER_F',

910: IF c_pep%FOUND THEN
911: --Get the Datetrack Mode
912: dt_api.find_dt_upd_modes
913: (p_effective_date => l_effective_date,
914: p_base_table_name => 'BEN_ELIG_PER_F',
915: p_base_key_column => 'elig_per_id',
916: p_base_key_value => l_rec.BKUP_TBL_ID,
917: p_correction => l_correction,
918: p_update => l_update,

Line 1086: and elig.BKUP_TBL_TYP_CD = 'BEN_ELIG_PER_F_CORRECT' ;

1082: --Now Delete the records from ben_le_clsn_n_rstr
1083: --
1084: delete from ben_le_clsn_n_rstr elig
1085: where elig.per_in_ler_ended_id = p_per_in_ler_id
1086: and elig.BKUP_TBL_TYP_CD = 'BEN_ELIG_PER_F_CORRECT' ;
1087: --
1088: hr_utility.set_location ('Leaving '||l_proc,10);
1089: --
1090: end restore_prev_pep ;

Line 1645: -- BEN_ELIG_PER_F (PEP)

1641: -- BEN_ENRT_BNFT (ENB) (cascade delete in epe api, but epe not deleted)
1642: -- BEN_ENRT_RT (ECR) (cascade delete in epe api, but epe not deleted)
1643: -- BEN_ENRT_CVG_N_RT_CTFN (ECC) (cascade delete in epe api, but epe not deleted)
1644: -- BEN_ELIG_CVRD_DPNT_F (PDP)
1645: -- BEN_ELIG_PER_F (PEP)
1646: -- BEN_ELIG_PER_OPT_F (EPO)
1647: -- BEN_CVRD_DPNT_CTFN_PRVDD_F (CCP)
1648: -- BEN_PER_CM_F (PCM) (join to pil to check status)
1649: -- BEN_PER_CM_USG_F (PCU) (join to pil to check status)

Line 1830: delete_routine(p_routine => 'BEN_ELIG_PER_F',

1826: p_copy_only => p_copy_only,
1827: p_effective_date => p_effective_date);
1828:
1829: -- mark elig_per's 'backed out'
1830: delete_routine(p_routine => 'BEN_ELIG_PER_F',
1831: p_per_in_ler_id => p_per_in_ler_id,
1832: p_business_group_id => p_business_group_id,
1833: p_copy_only => p_copy_only,
1834: p_effective_date => p_effective_date);

Line 1923: -- Get all the BEN_ELIG_PER_F_CORRECTION and BEN_ELIG_PER_OPT_F_CORRECTION

1919: hr_utility.set_location ('prv_per_in_ler_id' || l_prv_per_in_ler_id, 199 );
1920: hr_utility.set_location ('l_lf_evt_ocrd_dt' || l_prv_lf_evt_ocrd_dt, 199 );
1921: --
1922: --IK START
1923: -- Get all the BEN_ELIG_PER_F_CORRECTION and BEN_ELIG_PER_OPT_F_CORRECTION
1924: -- records from BEN_LE_CLSN_N_RSTR table for the per_in_ler being backed out
1925: -- and update the records with PEP and EPO records with the restored date
1926: -- in correction mode.
1927: -- After API call to Corrrect the PEP and EPO records delete the data from

Line 2896: -- START ----> DELETE ROUTINE FOR BEN_ELIG_PER_F

2892:
2893: --
2894: -- END ----> DELETE ROUTINE FOR BEN_ELIG_PER_OPT_F
2895: --
2896: -- START ----> DELETE ROUTINE FOR BEN_ELIG_PER_F
2897: --
2898: -- Source Table
2899: -- BEN_PER_IN_LER
2900: --

Line 2901: cursor c_ben_elig_per_f is

2897: --
2898: -- Source Table
2899: -- BEN_PER_IN_LER
2900: --
2901: cursor c_ben_elig_per_f is
2902: select pep.elig_per_id,
2903: pep.object_version_number,
2904: pep.effective_start_date --AMN bug 12732878
2905: from ben_elig_per_f pep,

Line 2905: from ben_elig_per_f pep,

2901: cursor c_ben_elig_per_f is
2902: select pep.elig_per_id,
2903: pep.object_version_number,
2904: pep.effective_start_date --AMN bug 12732878
2905: from ben_elig_per_f pep,
2906: ben_per_in_ler pil
2907: where pil.per_in_ler_id = p_per_in_ler_id
2908: and pil.business_group_id = p_business_group_id
2909: and pep.per_in_ler_id = pil.per_in_ler_id

Line 2931: from ben_elig_per_f

2927: --
2928: /*
2929: cursor c_pep_max_esd_of_past_pil(v_elig_per_id in number) is
2930: select max(effective_end_date), max(object_version_number)
2931: from ben_elig_per_f
2932: where elig_per_id = v_elig_per_id
2933: and nvl(per_in_ler_id , -1) <> p_per_in_ler_id
2934: and business_group_id = p_business_group_id;
2935: -- and effective_end_date < p_effective_date;

Line 2939: from ben_elig_per_f pep,

2935: -- and effective_end_date < p_effective_date;
2936: */
2937: cursor c_pep_max_esd_of_past_pil(v_elig_per_id in number) is
2938: select pep.effective_end_date, pep.object_version_number
2939: from ben_elig_per_f pep,
2940: ben_per_in_ler pil
2941: where pep.elig_per_id = v_elig_per_id
2942: and ((pep.per_in_ler_id <> p_per_in_ler_id
2943: and pep.per_in_ler_id is not null)

Line 2989: from ben_elig_per_f

2985: --
2986: cursor c_deleted_pep(v_elig_per_id in number,
2987: v_effective_date in date) is
2988: select *
2989: from ben_elig_per_f
2990: where elig_per_id = v_elig_per_id
2991: and nvl(per_in_ler_id , -1) = p_per_in_ler_id
2992: and business_group_id = p_business_group_id
2993: and effective_end_date > v_effective_date;

Line 2995: -- END ----> DELETE ROUTINE FOR BEN_ELIG_PER_F

2991: and nvl(per_in_ler_id , -1) = p_per_in_ler_id
2992: and business_group_id = p_business_group_id
2993: and effective_end_date > v_effective_date;
2994: --
2995: -- END ----> DELETE ROUTINE FOR BEN_ELIG_PER_F
2996: -- START ----> DELETE ROUTINE FOR BEN_PRTT_PREM_F
2997: --
2998: -- Source Table
2999: -- BEN_PER_IN_LER

Line 4355: elsif p_routine = 'BEN_ELIG_PER_F' then

4351: --
4352:
4353: close c_ben_elig_cvrd_dpnt_f;
4354: --
4355: elsif p_routine = 'BEN_ELIG_PER_F' then
4356:
4357: -- For elig_per, we want to 'un-end' any records that were ENDED
4358: -- due to the per-in-ler. The 'future-change' date track mode will do that
4359: -- for us.

Line 4366: open c_ben_elig_per_f;

4362:
4363: l_prev_pk_id := -1; -- like null
4364:
4365: --
4366: open c_ben_elig_per_f;
4367: --
4368: loop
4369: --
4370: fetch c_ben_elig_per_f into l_pk_id,

Line 4370: fetch c_ben_elig_per_f into l_pk_id,

4366: open c_ben_elig_per_f;
4367: --
4368: loop
4369: --
4370: fetch c_ben_elig_per_f into l_pk_id,
4371: l_object_version_number,
4372: l_effective_date_new;
4373: --hr_utility.set_location('ben_elig_per_id '||l_pk_id,48);
4374: --hr_utility.set_location('l_effective_date_new '||l_effective_date_new,48);

Line 4375: exit when c_ben_elig_per_f%notfound;

4371: l_object_version_number,
4372: l_effective_date_new;
4373: --hr_utility.set_location('ben_elig_per_id '||l_pk_id,48);
4374: --hr_utility.set_location('l_effective_date_new '||l_effective_date_new,48);
4375: exit when c_ben_elig_per_f%notfound;
4376: --
4377: -- Get the maximum of effective end date
4378: -- with past per_in_ler 's.
4379: --

Line 4518: 'BEN_ELIG_PER_F',

4514: PL_ORDR_NUM,
4515: PLIP_ORDR_NUM,
4516: PTIP_ORDR_NUM )
4517: values (
4518: 'BEN_ELIG_PER_F',
4519: l_deleted_pep_rec.PLIP_ID,
4520: l_deleted_pep_rec.PTIP_ID,
4521: l_deleted_pep_rec.WAIT_PERD_CMPLTN_DT,
4522: l_deleted_pep_rec.PER_IN_LER_ID,

Line 4661: close c_ben_elig_per_f;

4657: --
4658: l_prev_pk_id := -1;
4659: --
4660:
4661: close c_ben_elig_per_f;
4662: --
4663: elsif p_routine = 'BEN_ELIG_PER_OPT_F'
4664: then
4665: -- we want to 'un-end' any records that were ENDED

Line 7261: if c_ben_elig_per_f%isopen then

7257: close c_ben_elig_cvrd_dpnt_f;
7258: --
7259: end if;
7260: --
7261: if c_ben_elig_per_f%isopen then
7262: --
7263: close c_ben_elig_per_f;
7264: --
7265: end if;

Line 7263: close c_ben_elig_per_f;

7259: end if;
7260: --
7261: if c_ben_elig_per_f%isopen then
7262: --
7263: close c_ben_elig_per_f;
7264: --
7265: end if;
7266: --
7267: if c_ben_elig_per_opt_f%isopen then