[Home] [Help]
341: procedure to determine the defined amount for
342: FSA calculations.
343: 24-Jan-03 ikasire 115.153 Added nocopy changes
344: 13-Feb-03 kmahendr 115.154 Added a parameter to call -acty_base_rt.main
345: 13-feb-03 hnarayan 115.155 hr_utility.set_location - 'if g_debug' changes
346: 06-Mar-03 ikasire 115.156 Bug2833116 rounding issue for FSA - annual rates
347: 12-May-03 ikasire 115.157 Bug 2957028 nocopy bug fix for call to
348: ben_determine_activity_base_rt.main procedure
349: 22-May-03 kmahendr 115.158 Fix for new rt mlt cd - ERL
377: c_prtt_rt_val_1 and c_prtt_rt_val_2
378: to pick the correct old prv
379: 21-nov-03 nhunur 115.171 setting the flags to 'N' if the cursor
380: c_prtt_rt_val_2 does not return any rows.
381: 25-nov-03 tjesumic 115.172 hr_utility.debug_enabled added to all public procedure
382: 16-Jan-04 kmahendr 115.173 Bug#3364910- added payroll change condition for
383: fSA plans
384: 20-Jan-04 kmahendr 115.174 Bug#3378865 - added cursor c_abr to check for
385: ele_entry_val_cd change
611: -------------------------------------------------------------------------------
612: --
613: -- Package Variables
614: --
615: g_debug boolean := hr_utility.debug_enabled;
616: g_package varchar2(80):='ben_election_information.';
617: -- ---------------------------------------------------------------------------
618: -- |----------------------------< calc_rt_ann_rt_vals >---------------------|
619: -- Bug: 5584813 this is a private procedure that calculates the rate values --
643:
644: --END GEVITY
645: l_proc varchar2(72) := g_package||'calc_rt_ann_rt_vals';
646: BEGIN
647: hr_utility.set_location('Entering: '||l_proc, 10);
648: IF p_entr_ann_val_flag = 'Y'
649: THEN
650: -- Enter Annual Value
651: IF p_rate_periodization_rl IS NOT NULL
737: p_cmcd_val => l_cmcd_dummy,
738: p_val => l_cmcd_dummy);
739: --
740: ELSE
741: hr_utility.set_location('Calculate Annual value: '||l_payroll_id, 10);
742: l_compute_val :=
743: ben_distribute_rates.period_to_annual
744: (p_amount => p_rt_val,
745: p_enrt_rt_id => p_enrt_rt_id,
758:
759: p_ann_rt_val := l_compute_val;
760: --
761: END IF;
762: hr_utility.set_location('Leaving: '||l_proc, 10);
763: END calc_rt_ann_rt_vals;
764:
765:
766: -- ---------------------------------------------------------------------------
898: l_prv_count number := 1;
899: --9614678
900:
901: begin
902: g_debug := hr_utility.debug_enabled;
903: if g_debug then
904: l_proc := g_package||'handle_overlap_rates';
905: hr_utility.set_location('Entering:'|| l_proc, 10);
906: end if;
901: begin
902: g_debug := hr_utility.debug_enabled;
903: if g_debug then
904: l_proc := g_package||'handle_overlap_rates';
905: hr_utility.set_location('Entering:'|| l_proc, 10);
906: end if;
907:
908: l_element_type_id := p_element_type_id;
909: if l_element_type_id is null then
923: exit;
924: end if;
925:
926: if g_debug then
927: hr_utility.set_location('future prv='||l_future_prv.prtt_rt_val_id,15);
928: end if;
929:
930: --9614678
931: if l_found then
967: --
968: -- Call delete prv if Unrestricted, else update prv
969: --
970: if p_unrestricted = 'Y' then
971: hr_utility.set_location('p_rt_strt_dt ='||p_rt_strt_dt,15);
972: --
973: -- bug 10415806 delete future dated element entries.
974: --
975: ben_element_entry.end_enrollment_element
1014: fetch c_current_prv into l_current_prv;
1015: close c_current_prv;
1016:
1017: if g_debug then
1018: hr_utility.set_location('curr prv='||l_current_prv.prtt_rt_val_id,15);
1019: end if;
1020:
1021: if l_current_prv.rt_end_dt <> hr_api.g_eot then
1022: --9614678
1040: end loop;
1041: close c_future_prv ;
1042:
1043: if g_debug then
1044: hr_utility.set_location(' Leaving:'||l_proc, 20);
1045: end if;
1046:
1047: end handle_overlap_rates;
1048: --
1795: l_ann_rt_val_param number; --|
1796: --
1797: begin
1798:
1799: g_debug := hr_utility.debug_enabled;
1800: if g_debug then
1801: hr_utility.set_location('Entering:'||l_proc, 5);
1802: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1803: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1797: begin
1798:
1799: g_debug := hr_utility.debug_enabled;
1800: if g_debug then
1801: hr_utility.set_location('Entering:'||l_proc, 5);
1802: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1803: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1804: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,5);
1805: end if;
1798:
1799: g_debug := hr_utility.debug_enabled;
1800: if g_debug then
1801: hr_utility.set_location('Entering:'||l_proc, 5);
1802: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1803: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1804: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,5);
1805: end if;
1806: --
1799: g_debug := hr_utility.debug_enabled;
1800: if g_debug then
1801: hr_utility.set_location('Entering:'||l_proc, 5);
1802: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1803: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1804: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,5);
1805: end if;
1806: --
1807: --Bug 8374859
1800: if g_debug then
1801: hr_utility.set_location('Entering:'||l_proc, 5);
1802: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1803: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1804: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,5);
1805: end if;
1806: --
1807: --Bug 8374859
1808: open c_ler_id;
1847: fetch c_epe into l_fonm_cvg_strt_dt;
1848: close c_epe;
1849: ben_manage_life_events.g_fonm_cvg_strt_dt := l_fonm_cvg_strt_dt;
1850: /* 8716870: Code added for Imp Inc Enh starts*/
1851: hr_utility.set_location('p_imp_cvg_strt_dt '||p_imp_cvg_strt_dt,5);
1852: if p_imp_cvg_strt_dt is not NULL and p_imp_cvg_strt_dt > l_fonm_cvg_strt_dt then
1853: ben_manage_life_events.g_fonm_cvg_strt_dt := p_imp_cvg_strt_dt;
1854: end if;
1855: /* Code added for Imp Inc Enh ends */
1859: end if;
1860: --
1861: if p_bnft_amt_changed then
1862: if g_debug then
1863: hr_utility.set_location('p_bnft_amt changed:',5);
1864: end if;
1865: end if;
1866: --
1867: ben_det_enrt_rates.set_global_enrt_rt
1879: fnd_message.set_token('PROC',l_proc);
1880: fnd_message.set_token('ENRT_RT_ID',to_char(p_enrt_rt_id));
1881: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
1882: if g_debug then
1883: hr_utility.set_location('BEN_91825_ENRT_RT_NOT_FOUND', 20);
1884: end if;
1885: fnd_message.raise_error;
1886: end if; -- notfound
1887: close c_enrt_rt;
1891: ben_manage_life_events.g_fonm_rt_strt_dt := nvl(ben_manage_life_events.g_fonm_rt_strt_dt,
1892: nvl(p_rt_strt_dt,l_enrt_rt.rt_strt_dt));
1893: ----Bug 7557403
1894: /* 8716870: Code added for Imp Inc Enh starts*/
1895: hr_utility.set_location('p_imp_cvg_strt_dt '||p_imp_cvg_strt_dt,7);
1896: if p_imp_cvg_strt_dt is not NULL and p_imp_cvg_strt_dt > nvl(p_rt_strt_dt,l_enrt_rt.rt_strt_dt) then
1897: ben_manage_life_events.g_fonm_rt_strt_dt := p_imp_cvg_strt_dt;
1898: end if;
1899: /* Code added for Imp Inc Enh ends */
1900: l_effective_date := nvl(ben_manage_life_events.g_fonm_rt_strt_dt,l_effective_date);
1901: end if;
1902:
1903: if g_debug then
1904: hr_utility.set_location(l_proc, 30);
1905: end if;
1906: --
1907: -- bug fix 3457483
1908: --
1948: end if;
1949: --
1950: -- Get data from old rate
1951: --
1952: hr_utility.set_location(' BKKKK l_enrt_rt.prtt_rt_val_id ' || l_enrt_rt.prtt_rt_val_id, 300);
1953: hr_utility.set_location(' BKKKK p_enrt_rt_id ' || p_enrt_rt_id, 300);
1954: hr_utility.set_location(' BKKKK p_business_group_id ' || p_business_group_id, 300);
1955: hr_utility.set_location(' BKKKK l_enrt_rt.elig_per_elctbl_chc_id ' || l_enrt_rt.elig_per_elctbl_chc_id, 300);
1956: --
1949: --
1950: -- Get data from old rate
1951: --
1952: hr_utility.set_location(' BKKKK l_enrt_rt.prtt_rt_val_id ' || l_enrt_rt.prtt_rt_val_id, 300);
1953: hr_utility.set_location(' BKKKK p_enrt_rt_id ' || p_enrt_rt_id, 300);
1954: hr_utility.set_location(' BKKKK p_business_group_id ' || p_business_group_id, 300);
1955: hr_utility.set_location(' BKKKK l_enrt_rt.elig_per_elctbl_chc_id ' || l_enrt_rt.elig_per_elctbl_chc_id, 300);
1956: --
1957: if l_enrt_rt.prtt_rt_val_id is not null then
1950: -- Get data from old rate
1951: --
1952: hr_utility.set_location(' BKKKK l_enrt_rt.prtt_rt_val_id ' || l_enrt_rt.prtt_rt_val_id, 300);
1953: hr_utility.set_location(' BKKKK p_enrt_rt_id ' || p_enrt_rt_id, 300);
1954: hr_utility.set_location(' BKKKK p_business_group_id ' || p_business_group_id, 300);
1955: hr_utility.set_location(' BKKKK l_enrt_rt.elig_per_elctbl_chc_id ' || l_enrt_rt.elig_per_elctbl_chc_id, 300);
1956: --
1957: if l_enrt_rt.prtt_rt_val_id is not null then
1958: -- Get data from old rate
1951: --
1952: hr_utility.set_location(' BKKKK l_enrt_rt.prtt_rt_val_id ' || l_enrt_rt.prtt_rt_val_id, 300);
1953: hr_utility.set_location(' BKKKK p_enrt_rt_id ' || p_enrt_rt_id, 300);
1954: hr_utility.set_location(' BKKKK p_business_group_id ' || p_business_group_id, 300);
1955: hr_utility.set_location(' BKKKK l_enrt_rt.elig_per_elctbl_chc_id ' || l_enrt_rt.elig_per_elctbl_chc_id, 300);
1956: --
1957: if l_enrt_rt.prtt_rt_val_id is not null then
1958: -- Get data from old rate
1959: open c_prtt_rt_val_1;
1985:
1986: if c_prtt_rt_val_1%notfound then
1987: close c_prtt_rt_val_1;
1988: if g_debug then
1989: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL', 35);
1990: end if;
1991: fnd_message.set_name('BEN','BEN_92103_NO_PRTT_RT_VAL');
1992: fnd_message.set_token('PROC',l_proc);
1993: fnd_message.set_token('PRTT_RT_VAL_ID',to_char(l_enrt_rt.prtt_rt_val_id));
1994: fnd_message.raise_error;
1995: end if;
1996:
1997: if g_debug then
1998: hr_utility.set_location('ll_old_rt_strt_dt'||l_old_rt_strt_dt,99);
1999: hr_utility.set_location('l_old_per_in_ler_id'||l_old_per_in_ler_id,99);
2000: hr_utility.set_location('l_old_rt end date'||l_old_rt_end_dt,99);
2001: end if;
2002: close c_prtt_rt_val_1;
1995: end if;
1996:
1997: if g_debug then
1998: hr_utility.set_location('ll_old_rt_strt_dt'||l_old_rt_strt_dt,99);
1999: hr_utility.set_location('l_old_per_in_ler_id'||l_old_per_in_ler_id,99);
2000: hr_utility.set_location('l_old_rt end date'||l_old_rt_end_dt,99);
2001: end if;
2002: close c_prtt_rt_val_1;
2003: end if;
1996:
1997: if g_debug then
1998: hr_utility.set_location('ll_old_rt_strt_dt'||l_old_rt_strt_dt,99);
1999: hr_utility.set_location('l_old_per_in_ler_id'||l_old_per_in_ler_id,99);
2000: hr_utility.set_location('l_old_rt end date'||l_old_rt_end_dt,99);
2001: end if;
2002: close c_prtt_rt_val_1;
2003: end if;
2004: --
2008: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id
2009: ,p_effective_date => p_effective_date
2010: ,p_global_pen_rec => l_global_pen_rec);
2011:
2012: hr_utility.set_location('l_global_pen_rec',99);
2013: --
2014: -- determine rate start date as long as there is not an existing prtt_rt_val
2015: -- record, or if there is an exising prtt_rt_val record, that the record was
2016: -- NOT updated during this per-in-ler (bensuenr updates the rt-strt-dt).
2022: l_enrt_rt.rt_strt_dt := p_rt_strt_dt;
2023: elsif l_enrt_rt.prtt_rt_val_id is not null and
2024: l_old_per_in_ler_id = p_per_in_ler_id and
2025: l_unrestricted = 'N' then -- #5303167
2026: hr_utility.set_location('l_global_pen_rec2',99);
2027: -- check unrestricted life event
2028: -- if l_unrestricted = 'N' then #5303167 moved this condition to above elsif
2029: --
2030: -- we already have the correct prv created
2030: -- we already have the correct prv created
2031: --
2032: p_prtt_rt_val_id := l_enrt_rt.prtt_rt_val_id;
2033: if l_enrt_rt.rt_strt_dt_cd in ('FDPPFED','FDPPOED') then
2034: hr_utility.set_location('l_global_pen_rec3',99);
2035: ben_determine_date.main(
2036: p_date_cd => l_enrt_rt.rt_strt_dt_cd,
2037: p_per_in_ler_id => p_per_in_ler_id,
2038: p_person_id => p_person_id,
2055: -- end if; #5303167
2056: --
2057: elsif l_enrt_rt.rt_strt_dt_cd is not null then
2058: if g_debug then
2059: hr_utility.set_location(l_proc, 40);
2060: end if;
2061: ben_determine_date.main(
2062: p_date_cd => l_enrt_rt.rt_strt_dt_cd,
2063: p_per_in_ler_id => p_per_in_ler_id,
2079: close c_abr;
2080: --
2081: end if;
2082: if g_debug then
2083: hr_utility.set_location(l_proc, 45);
2084: end if;
2085: if (l_enrt_rt.rt_strt_dt is null) then
2086: if g_debug then
2087: hr_utility.set_location('BEN_91455_RT_STRT_DT_NOT_FOUND id:'||
2083: hr_utility.set_location(l_proc, 45);
2084: end if;
2085: if (l_enrt_rt.rt_strt_dt is null) then
2086: if g_debug then
2087: hr_utility.set_location('BEN_91455_RT_STRT_DT_NOT_FOUND id:'||
2088: to_char(p_pl_id), 50);
2089: end if;
2090: fnd_message.set_name('BEN','BEN_91455_RT_STRT_DT_NOT_FOUND');
2091: fnd_message.set_token('PROC',l_proc);
2160: end if;
2161:
2162: end if;
2163: if g_debug then
2164: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id, 3);
2165: end if;
2166: --
2167: --Bug#2734491 - Child rate should behave the same way as parent
2168: --
2196: --
2197: l_ann_rt_val_param := p_ann_rt_val ;
2198: l_rt_val_param := p_rt_val ;
2199: --
2200: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
2201: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
2202: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2203: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2204: --
2197: l_ann_rt_val_param := p_ann_rt_val ;
2198: l_rt_val_param := p_rt_val ;
2199: --
2200: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
2201: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
2202: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2203: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2204: --
2205: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
2198: l_rt_val_param := p_rt_val ;
2199: --
2200: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
2201: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
2202: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2203: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2204: --
2205: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
2206: hr_utility.set_location('entr_val ->'||l_enrt_rt.entr_val_at_enrt_flag, 9);
2199: --
2200: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
2201: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
2202: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2203: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2204: --
2205: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
2206: hr_utility.set_location('entr_val ->'||l_enrt_rt.entr_val_at_enrt_flag, 9);
2207: --
2201: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
2202: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2203: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2204: --
2205: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
2206: hr_utility.set_location('entr_val ->'||l_enrt_rt.entr_val_at_enrt_flag, 9);
2207: --
2208: /*
2209: -- commented for bug: 5584813
2202: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2203: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2204: --
2205: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
2206: hr_utility.set_location('entr_val ->'||l_enrt_rt.entr_val_at_enrt_flag, 9);
2207: --
2208: /*
2209: -- commented for bug: 5584813
2210: -- this code moved to a procedure calc_rt_ann_rt_vals
2324: p_entr_ann_val_flag => l_enrt_rt.entr_ann_val_flag,
2325: p_entr_val_at_enrt_flag => l_enrt_rt.entr_val_at_enrt_flag);
2326:
2327:
2328: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
2329: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
2330: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2331: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2332:
2325: p_entr_val_at_enrt_flag => l_enrt_rt.entr_val_at_enrt_flag);
2326:
2327:
2328: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
2329: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
2330: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2331: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2332:
2333: -- rajkiran
2326:
2327:
2328: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
2329: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
2330: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2331: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2332:
2333: -- rajkiran
2334:
2327:
2328: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
2329: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
2330: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
2331: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
2332:
2333: -- rajkiran
2334:
2335: --
2358: --
2359: if l_enrt_rt.entr_ann_val_flag = 'Y' or l_prnt_ann_rt = 'Y' then
2360: --
2361: if g_debug then
2362: hr_utility.set_location('enter annual value',100);
2363: end if;
2364: if l_rt_val_param is null then -- changed from p_rt_val to l_rt_val_param
2365: --
2366: --GEVITY
2427: --
2428: END IF; --GEVITY
2429: --
2430: if g_debug then
2431: hr_utility.set_location('IK p_rt_val is null l_rt_val '||l_rt_val,101);
2432: hr_utility.set_location('IK p_rt_val is null l_ann_rt_val: '||l_ann_rt_val,101);
2433: hr_utility.set_location('IK p_rt_val is null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2434: end if;
2435: --
2428: END IF; --GEVITY
2429: --
2430: if g_debug then
2431: hr_utility.set_location('IK p_rt_val is null l_rt_val '||l_rt_val,101);
2432: hr_utility.set_location('IK p_rt_val is null l_ann_rt_val: '||l_ann_rt_val,101);
2433: hr_utility.set_location('IK p_rt_val is null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2434: end if;
2435: --
2436: else
2429: --
2430: if g_debug then
2431: hr_utility.set_location('IK p_rt_val is null l_rt_val '||l_rt_val,101);
2432: hr_utility.set_location('IK p_rt_val is null l_ann_rt_val: '||l_ann_rt_val,101);
2433: hr_utility.set_location('IK p_rt_val is null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2434: end if;
2435: --
2436: else
2437: --this condition added if the l_rt_val is not gone throu the post enrl calc
2448: -- calculate annual rate for the child
2449: if l_prnt_ann_rt = 'Y' then
2450: --
2451: if g_debug then
2452: hr_utility.set_location('Annual value'||l_prnt_ann_val,11);
2453: end if;
2454: benutils.rt_typ_calc
2455: (p_rt_typ_cd => l_enrt_rt.abr_typ_cd
2456: ,p_val => l_enrt_rt.abr_val
2555: open c_pay_period_strt_dt(l_yp_start_date
2556: );
2557: fetch c_pay_period_strt_dt into l_pay_start_date;
2558: close c_pay_period_strt_dt;
2559: hr_utility.set_location('Pay Period Start Date '||l_pay_start_date,123);
2560: hr_utility.set_location('l_old_rt_strt_dt '||l_old_rt_strt_dt,123);
2561: --
2562: -- End 9593336
2563: --
2556: );
2557: fetch c_pay_period_strt_dt into l_pay_start_date;
2558: close c_pay_period_strt_dt;
2559: hr_utility.set_location('Pay Period Start Date '||l_pay_start_date,123);
2560: hr_utility.set_location('l_old_rt_strt_dt '||l_old_rt_strt_dt,123);
2561: --
2562: -- End 9593336
2563: --
2564: if ((l_old_rt_strt_dt >= l_yp_start_date) or
2578: -- no change in payroll then dont recompute
2579: if l_period_type is null then
2580:
2581: if g_debug then
2582: hr_utility.set_location('Same Yr Period and same rate ' ,123);
2583: end if;
2584: l_sarec_compute := false ;
2585: end if;
2586: end if ;
2651: --
2652: END IF; --GEVITY
2653: --
2654: if g_debug then
2655: hr_utility.set_location('IK p_rt_val is NOT null l_rt_val '||l_rt_val,101);
2656: hr_utility.set_location('IK p_rt_val is NOT null l_ann_rt_val: '||l_ann_rt_val,101);
2657: hr_utility.set_location('IK p_rt_val is NOT null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2658: end if;
2659: --
2652: END IF; --GEVITY
2653: --
2654: if g_debug then
2655: hr_utility.set_location('IK p_rt_val is NOT null l_rt_val '||l_rt_val,101);
2656: hr_utility.set_location('IK p_rt_val is NOT null l_ann_rt_val: '||l_ann_rt_val,101);
2657: hr_utility.set_location('IK p_rt_val is NOT null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2658: end if;
2659: --
2660: else
2653: --
2654: if g_debug then
2655: hr_utility.set_location('IK p_rt_val is NOT null l_rt_val '||l_rt_val,101);
2656: hr_utility.set_location('IK p_rt_val is NOT null l_ann_rt_val: '||l_ann_rt_val,101);
2657: hr_utility.set_location('IK p_rt_val is NOT null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2658: end if;
2659: --
2660: else
2661: --
2663: l_calc_ann_val := l_ann_rt_val;
2664: l_enrt_rt.cmcd_val := l_old_cmcd_rt_val ;
2665: --
2666: if g_debug then
2667: hr_utility.set_location('Continue old rate '||l_old_rt_val,123);
2668: end if;
2669: --
2670: if g_debug then
2671: hr_utility.set_location(' l_old_cmcd_rt_val '||l_old_cmcd_rt_val,123);
2667: hr_utility.set_location('Continue old rate '||l_old_rt_val,123);
2668: end if;
2669: --
2670: if g_debug then
2671: hr_utility.set_location(' l_old_cmcd_rt_val '||l_old_cmcd_rt_val,123);
2672: end if;
2673: --
2674: end if; -- l_sarec_compute
2675: --
2692: l_enrt_rt.rt_mlt_cd <> 'FLFX') or
2693: l_enrt_rt.rt_mlt_cd = 'ERL'or
2694: l_enrt_rt.cvg_mlt_cd = 'ERL' then -- ERL added for canon fix
2695: if g_debug then
2696: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2697: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2698: end if;
2699: --BUG 3804813 */
2700: --START BUG 3804813
2693: l_enrt_rt.rt_mlt_cd = 'ERL'or
2694: l_enrt_rt.cvg_mlt_cd = 'ERL' then -- ERL added for canon fix
2695: if g_debug then
2696: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2697: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2698: end if;
2699: --BUG 3804813 */
2700: --START BUG 3804813
2701: if (l_enrt_rt.entr_bnft_val_flag = 'Y' OR
2704: l_enrt_rt.cvg_mlt_cd = 'ERL') -- ERL added for canon fix
2705: and l_enrt_rt.entr_val_at_enrt_flag = 'N' then -- Bug 4710188, Calling rates pack
2706: -- rate is not enterable only when
2707: if g_debug then
2708: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2709: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 312);
2710: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2711: end if;
2712: --END BUG 3804813
2705: and l_enrt_rt.entr_val_at_enrt_flag = 'N' then -- Bug 4710188, Calling rates pack
2706: -- rate is not enterable only when
2707: if g_debug then
2708: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2709: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 312);
2710: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2711: end if;
2712: --END BUG 3804813
2713: if l_enrt_rt.enrt_bnft_id = 0 then
2706: -- rate is not enterable only when
2707: if g_debug then
2708: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2709: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 312);
2710: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2711: end if;
2712: --END BUG 3804813
2713: if l_enrt_rt.enrt_bnft_id = 0 then
2714: l_enrt_rt.enrt_bnft_id := null;
2771: ,p_ordr_num => l_dummy_num
2772: ,p_iss_val =>l_dummy_num
2773: );
2774: if g_debug then
2775: hr_utility.set_location('l_rt_val'||to_char(l_rt_val), 312);
2776: end if;
2777:
2778: ELSE -- 5375381 :Added else part
2779: /* This is purely for Interim pen which has has same epe as of its Sspndd pen.
2792: )
2793: THEN
2794: IF g_debug
2795: THEN
2796: hr_utility.set_location ( 'p_rt_val'
2797: || TO_CHAR (p_rt_val),
2798: 555
2799: );
2800: hr_utility.set_location ( 'l_rt_val_param'
2796: hr_utility.set_location ( 'p_rt_val'
2797: || TO_CHAR (p_rt_val),
2798: 555
2799: );
2800: hr_utility.set_location ( 'l_rt_val_param'
2801: || TO_CHAR (l_rt_val_param),
2802: 555
2803: );
2804: hr_utility.set_location ( 'l_global_pen_rec.bnft_am'
2800: hr_utility.set_location ( 'l_rt_val_param'
2801: || TO_CHAR (l_rt_val_param),
2802: 555
2803: );
2804: hr_utility.set_location ( 'l_global_pen_rec.bnft_am'
2805: || l_global_pen_rec.bnft_amt,
2806: 555
2807: );
2808: END IF;
2872: );
2873:
2874: IF g_debug
2875: THEN
2876: hr_utility.set_location ( 'l_rt_val'
2877: || TO_CHAR (l_rt_val),
2878: 556
2879: );
2880: END IF;
2901: --
2902: -- bug 1480407
2903: --
2904: if g_debug then
2905: hr_utility.set_location('entr_val_At_enrt_flag '||l_enrt_rt.entr_val_At_enrt_flag ,407);
2906: hr_utility.set_location('use_calc_acty_bs_rt_flag '||l_enrt_rt.use_calc_acty_bs_rt_flag ,407);
2907: hr_utility.set_location('l_enrt_rt.rt_mlt_cd' ||l_enrt_rt.rt_mlt_cd , 407);
2908: end if;
2909: --
2902: -- bug 1480407
2903: --
2904: if g_debug then
2905: hr_utility.set_location('entr_val_At_enrt_flag '||l_enrt_rt.entr_val_At_enrt_flag ,407);
2906: hr_utility.set_location('use_calc_acty_bs_rt_flag '||l_enrt_rt.use_calc_acty_bs_rt_flag ,407);
2907: hr_utility.set_location('l_enrt_rt.rt_mlt_cd' ||l_enrt_rt.rt_mlt_cd , 407);
2908: end if;
2909: --
2910: -- tilak :Rate calclation is called either the std rate entr_val_At_enrt_flag is on and
2903: --
2904: if g_debug then
2905: hr_utility.set_location('entr_val_At_enrt_flag '||l_enrt_rt.entr_val_At_enrt_flag ,407);
2906: hr_utility.set_location('use_calc_acty_bs_rt_flag '||l_enrt_rt.use_calc_acty_bs_rt_flag ,407);
2907: hr_utility.set_location('l_enrt_rt.rt_mlt_cd' ||l_enrt_rt.rt_mlt_cd , 407);
2908: end if;
2909: --
2910: -- tilak :Rate calclation is called either the std rate entr_val_At_enrt_flag is on and
2911: -- use_calc_acty_bs_rt_flag is on for coverage and other
2925: and nvl(l_prnt_abr.use_calc_acty_bs_rt_flag,'N') = 'Y'
2926: and l_enrt_rt.rt_mlt_cd in('PRNT','PRNTANDCVG') ) then
2927:
2928: if g_debug then
2929: hr_utility.set_location(' calllign rate '||l_rt_val ,407);
2930: end if;
2931: --
2932: -- NOCOPY ISSUE
2933: l_cal_val_in := l_rt_val ;
2992: ,p_ordr_num => l_dummy_num
2993: ,p_iss_val => l_dummy_num
2994: );
2995: if g_debug then
2996: hr_utility.set_location(' rate ' ||l_rt_val,407);
2997: end if;
2998: End if ;
2999: end if;
3000: --
3059: );
3060: --
3061: END IF; --GEVITY
3062: if g_debug then
3063: hr_utility.set_location('ann val'||l_ann_rt_val||'cal ann val'||l_calc_ann_val,100);
3064: hr_utility.set_location('communicated val'||l_enrt_rt.cmcd_val,101);
3065: end if;
3066: else --mlt_cd='SAREC'
3067: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
3060: --
3061: END IF; --GEVITY
3062: if g_debug then
3063: hr_utility.set_location('ann val'||l_ann_rt_val||'cal ann val'||l_calc_ann_val,100);
3064: hr_utility.set_location('communicated val'||l_enrt_rt.cmcd_val,101);
3065: end if;
3066: else --mlt_cd='SAREC'
3067: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
3068: if g_debug then
3065: end if;
3066: else --mlt_cd='SAREC'
3067: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
3068: if g_debug then
3069: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
3070: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
3071: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
3072: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
3073: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
3066: else --mlt_cd='SAREC'
3067: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
3068: if g_debug then
3069: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
3070: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
3071: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
3072: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
3073: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
3074: end if;
3067: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
3068: if g_debug then
3069: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
3070: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
3071: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
3072: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
3073: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
3074: end if;
3075: --
3068: if g_debug then
3069: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
3070: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
3071: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
3072: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
3073: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
3074: end if;
3075: --
3076: l_ann_rt_val := l_global_pen_rec.bnft_amt;
3069: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
3070: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
3071: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
3072: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
3073: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
3074: end if;
3075: --
3076: l_ann_rt_val := l_global_pen_rec.bnft_amt;
3077: -- Bug 2675486 fixes for FSA
3091: open c_pay_period_strt_dt(l_yp_start_date
3092: );
3093: fetch c_pay_period_strt_dt into l_pay_start_date;
3094: close c_pay_period_strt_dt;
3095: hr_utility.set_location('Pay Period Start Date '||l_pay_start_date,123);
3096: hr_utility.set_location('l_old_rt_strt_dt '||l_old_rt_strt_dt,123);
3097: --
3098: -- End 9593336
3099: --
3092: );
3093: fetch c_pay_period_strt_dt into l_pay_start_date;
3094: close c_pay_period_strt_dt;
3095: hr_utility.set_location('Pay Period Start Date '||l_pay_start_date,123);
3096: hr_utility.set_location('l_old_rt_strt_dt '||l_old_rt_strt_dt,123);
3097: --
3098: -- End 9593336
3099: --
3100: if ((l_old_rt_strt_dt >= l_yp_start_date) or
3113: -- no change in payroll then dont recompute
3114: if l_period_type is null then
3115:
3116: if g_debug then
3117: hr_utility.set_location('Same Yr Period and same rate ' ,124);
3118: end if;
3119: l_sarec_compute := false ;
3120: --Check if there is any change in the assignment,9143356
3121: hr_utility.set_location('Check for the assg change ' ,124);
3117: hr_utility.set_location('Same Yr Period and same rate ' ,124);
3118: end if;
3119: l_sarec_compute := false ;
3120: --Check if there is any change in the assignment,9143356
3121: hr_utility.set_location('Check for the assg change ' ,124);
3122: open c_assignment_changed(
3123: cp_person_id =>p_person_id,
3124: cp_business_group_id =>p_business_group_id,
3125: cp_effective_date =>l_enrt_rt.rt_strt_dt,
3125: cp_effective_date =>l_enrt_rt.rt_strt_dt,
3126: cp_orig_effective_date =>l_old_rt_strt_dt);
3127: fetch c_assignment_changed into l_assignment_changed;
3128: if c_assignment_changed%found then
3129: hr_utility.set_location('Assg change found ' ,124);
3130: hr_utility.set_location('sarec compute is set to true ' ,124);
3131: l_sarec_compute := true ;
3132: end if;
3133: close c_assignment_changed;
3126: cp_orig_effective_date =>l_old_rt_strt_dt);
3127: fetch c_assignment_changed into l_assignment_changed;
3128: if c_assignment_changed%found then
3129: hr_utility.set_location('Assg change found ' ,124);
3130: hr_utility.set_location('sarec compute is set to true ' ,124);
3131: l_sarec_compute := true ;
3132: end if;
3133: close c_assignment_changed;
3134: end if;
3176: p_rounding_flag => 'N',
3177: p_person_id => p_person_id
3178: );
3179: if g_debug then
3180: hr_utility.set_location(' IK l_rt_val '||l_rt_val,123);
3181: end if;
3182: --
3183: -- Bug 2149438 I am doing it to 3 because right now we have 2 digit rouding for
3184: -- the final value. Once we implement the rounding completely for the
3187: --
3188: l_rt_val := round(l_rt_val,4);
3189: --
3190: if g_debug then
3191: hr_utility.set_location(' IK2 rounded l_rt_val '||l_rt_val,123);
3192: end if;
3193: /**
3194: when annual value is passed there is no need to compute the annual value
3195: from defined value - bug#2398448 and bug#2392732
3203: p_payroll_id => l_payroll_id);
3204: **/
3205: l_calc_ann_val := l_ann_rt_val;
3206: if g_debug then
3207: hr_utility.set_location('annval'||to_char(l_calc_ann_val), 319);
3208: end if;
3209: if g_debug then
3210: hr_utility.set_location('rt val'||l_rt_val, 319);
3211: end if;
3206: if g_debug then
3207: hr_utility.set_location('annval'||to_char(l_calc_ann_val), 319);
3208: end if;
3209: if g_debug then
3210: hr_utility.set_location('rt val'||l_rt_val, 319);
3211: end if;
3212: --Bug#3540351
3213: if l_rt_val < 0 then
3214: l_rt_val := 0;
3263: l_rt_val := l_old_rt_val ;
3264: l_calc_ann_val := l_ann_rt_val;
3265: l_enrt_rt.cmcd_val := l_old_cmcd_rt_val ;
3266: if g_debug then
3267: hr_utility.set_location('Continue old rate '||l_old_rt_val,123);
3268: end if;
3269: if g_debug then
3270: hr_utility.set_location(' l_old_cmcd_rt_val '||l_old_cmcd_rt_val,123);
3271: end if;
3266: if g_debug then
3267: hr_utility.set_location('Continue old rate '||l_old_rt_val,123);
3268: end if;
3269: if g_debug then
3270: hr_utility.set_location(' l_old_cmcd_rt_val '||l_old_cmcd_rt_val,123);
3271: end if;
3272: --
3273: end if ;
3274: else
3274: else
3275: -- Bug 2223694 when the coverage is not enter value at enrollment
3276: -- we are not getting the defined amount and element entries.
3277: if g_debug then
3278: hr_utility.set_location('IK l_enrt_rt.val '||l_enrt_rt.val ,99);
3279: hr_utility.set_location('IK l_enrt_rt.ann_val '||l_enrt_rt.ann_val,99);
3280: hr_utility.set_location('IK l_enrt_rt.cmcd_val '||l_enrt_rt.cmcd_val,99);
3281: end if;
3282: l_rt_val := l_enrt_rt.val ;
3275: -- Bug 2223694 when the coverage is not enter value at enrollment
3276: -- we are not getting the defined amount and element entries.
3277: if g_debug then
3278: hr_utility.set_location('IK l_enrt_rt.val '||l_enrt_rt.val ,99);
3279: hr_utility.set_location('IK l_enrt_rt.ann_val '||l_enrt_rt.ann_val,99);
3280: hr_utility.set_location('IK l_enrt_rt.cmcd_val '||l_enrt_rt.cmcd_val,99);
3281: end if;
3282: l_rt_val := l_enrt_rt.val ;
3283: l_calc_ann_val := l_enrt_rt.ann_val ;
3276: -- we are not getting the defined amount and element entries.
3277: if g_debug then
3278: hr_utility.set_location('IK l_enrt_rt.val '||l_enrt_rt.val ,99);
3279: hr_utility.set_location('IK l_enrt_rt.ann_val '||l_enrt_rt.ann_val,99);
3280: hr_utility.set_location('IK l_enrt_rt.cmcd_val '||l_enrt_rt.cmcd_val,99);
3281: end if;
3282: l_rt_val := l_enrt_rt.val ;
3283: l_calc_ann_val := l_enrt_rt.ann_val ;
3284: -- 3547233. Copy annual value to l_ann_rt_val for prtt_rt_val record.
3338: p_payroll_id => l_old_payroll_id,
3339: p_organization_id => l_old_organization_id);
3340:
3341:
3342: hr_utility.set_location('ben_element_entry.get_abr_assignment
3343: -Old Assignment Id' ||l_old_assignment_id ,101);
3344: hr_utility.set_location('ben_element_entry.get_abr_assignment
3345: -Old Payroll Id' ||l_old_payroll_id ,101);
3346: hr_utility.set_location('ben_element_entry.get_abr_assignment
3340:
3341:
3342: hr_utility.set_location('ben_element_entry.get_abr_assignment
3343: -Old Assignment Id' ||l_old_assignment_id ,101);
3344: hr_utility.set_location('ben_element_entry.get_abr_assignment
3345: -Old Payroll Id' ||l_old_payroll_id ,101);
3346: hr_utility.set_location('ben_element_entry.get_abr_assignment
3347: -Old Org Id' ||l_old_organization_id ,101);
3348:
3342: hr_utility.set_location('ben_element_entry.get_abr_assignment
3343: -Old Assignment Id' ||l_old_assignment_id ,101);
3344: hr_utility.set_location('ben_element_entry.get_abr_assignment
3345: -Old Payroll Id' ||l_old_payroll_id ,101);
3346: hr_utility.set_location('ben_element_entry.get_abr_assignment
3347: -Old Org Id' ||l_old_organization_id ,101);
3348:
3349: l_element_changed :=
3350: (l_old_element_entry_value_id is not null and
3367:
3368:
3369: --8589355
3370: l_get_opt_id := null;
3371: hr_utility.set_location( 'l_global_pen_rec.oipl_id '||l_global_pen_rec.oipl_id, 20);
3372: if l_global_pen_rec.oipl_id is not null then
3373: open c_get_opt_id(l_global_pen_rec.oipl_id, l_enrt_rt.rt_strt_dt);
3374: fetch c_get_opt_id into l_get_opt_id;
3375: close c_get_opt_id;
3373: open c_get_opt_id(l_global_pen_rec.oipl_id, l_enrt_rt.rt_strt_dt);
3374: fetch c_get_opt_id into l_get_opt_id;
3375: close c_get_opt_id;
3376: end if;
3377: hr_utility.set_location( 'l_get_opt_id.opt_id '||l_get_opt_id.opt_id, 20);
3378: --8589355
3379:
3380: l_ext_inpval_tab.delete;
3381: ben_element_entry.get_extra_ele_inputs
3453: --
3454: -- if a prtt_rt_val_id is found get the old values
3455: --
3456: /* 8716870: Code added for Imp Inc Enh starts*/
3457: hr_utility.set_location('p_imp_cvg_strt_dt '||p_imp_cvg_strt_dt,7007);
3458: if p_imp_cvg_strt_dt is not null and p_imp_cvg_strt_dt > l_enrt_rt.rt_strt_dt then
3459: l_enrt_rt.rt_strt_dt := p_imp_cvg_strt_dt;
3460: -- The rate end date for prev imputed income rate rec is set to the current rt_strt_dt - 1
3461: l_xrt_end_dt := p_imp_cvg_strt_dt - 1;
3458: if p_imp_cvg_strt_dt is not null and p_imp_cvg_strt_dt > l_enrt_rt.rt_strt_dt then
3459: l_enrt_rt.rt_strt_dt := p_imp_cvg_strt_dt;
3460: -- The rate end date for prev imputed income rate rec is set to the current rt_strt_dt - 1
3461: l_xrt_end_dt := p_imp_cvg_strt_dt - 1;
3462: hr_utility.set_location('setting l_xrt_end_dt '||l_xrt_end_dt,7007);
3463: end if;
3464: /* Code added for Imp Inc Enh ends*/
3465:
3466: --
3466: --
3467: if p_prtt_rt_val_id is not null then
3468: --
3469: if g_debug then
3470: hr_utility.set_location(l_proc, 85);
3471: end if;
3472: --
3473: -- compare old and new values if changed do update
3474: --
3520: l_element_changed ) then
3521: --
3522: -- handle old rate
3523: if g_debug then
3524: hr_utility.set_location(l_proc||'In the TRUE', 1330);
3525: end if;
3526: --
3527: -- if l_unrestricted = 'Y' and -- commented for 4775760,4871284
3528: if l_old_rt_strt_dt >= l_enrt_rt.rt_strt_dt then
3546: --
3547: -- set the rate end date on the old one
3548: --
3549: if g_debug then
3550: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3551: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3552: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3553: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3554: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3547: -- set the rate end date on the old one
3548: --
3549: if g_debug then
3550: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3551: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3552: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3553: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3554: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3555: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3548: --
3549: if g_debug then
3550: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3551: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3552: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3553: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3554: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3555: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3556: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3549: if g_debug then
3550: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3551: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3552: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3553: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3554: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3555: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3556: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3557: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3550: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3551: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3552: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3553: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3554: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3555: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3556: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3557: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3558: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3551: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3552: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3553: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3554: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3555: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3556: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3557: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3558: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3559: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3552: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3553: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3554: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3555: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3556: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3557: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3558: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3559: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3560: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3553: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3554: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3555: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3556: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3557: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3558: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3559: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3560: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3561: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3554: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3555: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3556: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3557: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3558: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3559: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3560: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3561: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3562: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3555: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3556: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3557: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3558: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3559: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3560: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3561: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3562: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3563: end if;
3556: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3557: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3558: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3559: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3560: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3561: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3562: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3563: end if;
3564:
3557: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3558: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3559: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3560: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3561: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3562: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3563: end if;
3564:
3565: ben_determine_date.rate_and_coverage_dates
3558: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3559: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3560: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3561: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3562: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3563: end if;
3564:
3565: ben_determine_date.rate_and_coverage_dates
3566: (p_which_dates_cd => 'R'
3603: l_xrt_end_dt := l_xrt_strt_dt -1;
3604: end if;
3605:
3606: if g_debug then
3607: hr_utility.set_location('p rate strt date'||p_rt_strt_dt,111);
3608: end if;
3609: if p_rt_strt_dt > l_old_rt_end_dt then
3610: l_xrt_end_dt := l_old_rt_end_dt;
3611: end if;
3615: /* 8716870: Code added for Imp Inc Enh begins*/
3616: if p_imp_cvg_strt_dt is not null and p_imp_cvg_strt_dt >= l_enrt_rt.rt_strt_dt then
3617: -- the rate_end_dt for prev imputed income rate rec is set to the current rt_strt_dt - 1
3618: l_xrt_end_dt := p_imp_cvg_strt_dt - 1;
3619: hr_utility.set_location('setting l_xrt_end_dt '||l_xrt_end_dt,16);
3620: end if;
3621: /* 8716870: Code added for Imp Inc Enh ends*/
3622:
3623:
3622:
3623:
3624: --
3625: if g_debug then
3626: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3627: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3628: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3629: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3630: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3623:
3624: --
3625: if g_debug then
3626: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3627: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3628: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3629: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3630: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3631: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3624: --
3625: if g_debug then
3626: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3627: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3628: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3629: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3630: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3631: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3632: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3625: if g_debug then
3626: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3627: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3628: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3629: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3630: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3631: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3632: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3633: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3626: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3627: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3628: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3629: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3630: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3631: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3632: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3633: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3634: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3627: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3628: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3629: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3630: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3631: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3632: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3633: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3634: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3635: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3628: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3629: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3630: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3631: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3632: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3633: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3634: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3635: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3636: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3629: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3630: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3631: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3632: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3633: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3634: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3635: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3636: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3637: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3630: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3631: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3632: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3633: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3634: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3635: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3636: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3637: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3638: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3631: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3632: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3633: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3634: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3635: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3636: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3637: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3638: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3639: end if;
3632: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3633: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3634: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3635: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3636: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3637: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3638: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3639: end if;
3640: --
3633: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3634: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3635: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3636: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3637: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3638: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3639: end if;
3640: --
3641: -- bnft amt changed and entr val flag is N then election rate
3634: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3635: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3636: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3637: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3638: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3639: end if;
3640: --
3641: -- bnft amt changed and entr val flag is N then election rate
3642: -- information is called after delete enrollment
3674:
3675: if p_bnft_amt_changed and l_enrt_rt.entr_val_At_enrt_flag = 'Y' then
3676:
3677: if g_debug then
3678: hr_utility.set_location('p_bnft_amt_changed',1999);
3679: end if;
3680: if not p_calculate_only_mode then
3681: --
3682: --
3700: --
3701: -- p_amt_changed is false
3702: --
3703: if g_debug then
3704: hr_utility.set_location('bnft amount false',1999);
3705: end if;
3706: if not p_calculate_only_mode then
3707: --
3708: if not l_non_recurring_rt then
3707: --
3708: if not l_non_recurring_rt then
3709: if l_old_rt_end_dt <> l_xrt_end_dt then
3710: if g_debug then
3711: hr_utility.set_location('processing type recurring ',1999);
3712: end if;
3713: --
3714:
3715: /* Added for Bug 12576710: Backup the future rate record before updating the
3719: l_xrt_end_dt,
3720: l_enrt_rt.acty_base_rt_id);
3721: fetch c_future_ended_rates into l_future_end_rec;
3722: if c_future_ended_rates%found then
3723: hr_utility.set_location('inserting into backup table ',1999);
3724: hr_utility.set_location('l_enrt_rt.acty_base_rt_id '||l_enrt_rt.acty_base_rt_id,1999);
3725: hr_utility.set_location('l_future_end_rec.per_in_ler_id '||l_future_end_rec.per_in_ler_id,1999);
3726: hr_utility.set_location('l_future_end_rec.rt_end_dt '||l_future_end_rec.rt_end_dt,1999);
3727: insert into BEN_LE_CLSN_N_RSTR (
3720: l_enrt_rt.acty_base_rt_id);
3721: fetch c_future_ended_rates into l_future_end_rec;
3722: if c_future_ended_rates%found then
3723: hr_utility.set_location('inserting into backup table ',1999);
3724: hr_utility.set_location('l_enrt_rt.acty_base_rt_id '||l_enrt_rt.acty_base_rt_id,1999);
3725: hr_utility.set_location('l_future_end_rec.per_in_ler_id '||l_future_end_rec.per_in_ler_id,1999);
3726: hr_utility.set_location('l_future_end_rec.rt_end_dt '||l_future_end_rec.rt_end_dt,1999);
3727: insert into BEN_LE_CLSN_N_RSTR (
3728: person_id,
3721: fetch c_future_ended_rates into l_future_end_rec;
3722: if c_future_ended_rates%found then
3723: hr_utility.set_location('inserting into backup table ',1999);
3724: hr_utility.set_location('l_enrt_rt.acty_base_rt_id '||l_enrt_rt.acty_base_rt_id,1999);
3725: hr_utility.set_location('l_future_end_rec.per_in_ler_id '||l_future_end_rec.per_in_ler_id,1999);
3726: hr_utility.set_location('l_future_end_rec.rt_end_dt '||l_future_end_rec.rt_end_dt,1999);
3727: insert into BEN_LE_CLSN_N_RSTR (
3728: person_id,
3729: BKUP_TBL_TYP_CD,
3722: if c_future_ended_rates%found then
3723: hr_utility.set_location('inserting into backup table ',1999);
3724: hr_utility.set_location('l_enrt_rt.acty_base_rt_id '||l_enrt_rt.acty_base_rt_id,1999);
3725: hr_utility.set_location('l_future_end_rec.per_in_ler_id '||l_future_end_rec.per_in_ler_id,1999);
3726: hr_utility.set_location('l_future_end_rec.rt_end_dt '||l_future_end_rec.rt_end_dt,1999);
3727: insert into BEN_LE_CLSN_N_RSTR (
3728: person_id,
3729: BKUP_TBL_TYP_CD,
3730: BKUP_TBL_ID,
3770: --
3771: -- update rate
3772: --
3773: if g_debug then
3774: hr_utility.set_location(l_proc, 130);
3775: end if;
3776: --
3777: if not p_calculate_only_mode then
3778: --
3798: open c_prev_per_in_ler;
3799: fetch c_prev_per_in_ler into l_prev_pil_id;
3800: close c_prev_per_in_ler;
3801: /* End of Bug 8945818 */
3802: hr_utility.set_location('l_prev_pil_id '||l_prev_pil_id,1119);
3803: hr_utility.set_location('pen_id '||p_prtt_enrt_rslt_id,1119);
3804: hr_utility.set_location('l_enrt_rt.rt_strt_dt '||l_enrt_rt.rt_strt_dt,1119);
3805: open c_get_prior_per_in_ler(l_enrt_rt.rt_strt_dt);
3806: fetch c_get_prior_per_in_ler into l_exists;
3799: fetch c_prev_per_in_ler into l_prev_pil_id;
3800: close c_prev_per_in_ler;
3801: /* End of Bug 8945818 */
3802: hr_utility.set_location('l_prev_pil_id '||l_prev_pil_id,1119);
3803: hr_utility.set_location('pen_id '||p_prtt_enrt_rslt_id,1119);
3804: hr_utility.set_location('l_enrt_rt.rt_strt_dt '||l_enrt_rt.rt_strt_dt,1119);
3805: open c_get_prior_per_in_ler(l_enrt_rt.rt_strt_dt);
3806: fetch c_get_prior_per_in_ler into l_exists;
3807: if c_get_prior_per_in_ler%found then
3800: close c_prev_per_in_ler;
3801: /* End of Bug 8945818 */
3802: hr_utility.set_location('l_prev_pil_id '||l_prev_pil_id,1119);
3803: hr_utility.set_location('pen_id '||p_prtt_enrt_rslt_id,1119);
3804: hr_utility.set_location('l_enrt_rt.rt_strt_dt '||l_enrt_rt.rt_strt_dt,1119);
3805: open c_get_prior_per_in_ler(l_enrt_rt.rt_strt_dt);
3806: fetch c_get_prior_per_in_ler into l_exists;
3807: if c_get_prior_per_in_ler%found then
3808: --
3814: if l_adjust = 'Y' then
3815: --
3816: -- Get rt end dt
3817: --
3818: hr_utility.set_location('p_enrt_rt_id '||p_enrt_rt_id,1119);
3819: --for l_epe in c_get_elctbl_chc loop ---- Bug 8507247
3820: --
3821: -- Get all results that were de-enrolled for the event.
3822: --
3823: /* Added for Bug 8507247*/
3824: open c_get_ptip_id;
3825: fetch c_get_ptip_id into l_ptip_id;
3826: close c_get_ptip_id;
3827: hr_utility.set_location('Before Adjusting ',111);
3828: /* End of Bug 8507247*/
3829: for l_pen in c_get_enrt_rslts(l_enrt_rt.rt_strt_dt
3830: ,l_ptip_id) loop
3831: hr_utility.set_location('Adjusting rate '||l_enrt_rt.rt_strt_dt,111);
3827: hr_utility.set_location('Before Adjusting ',111);
3828: /* End of Bug 8507247*/
3829: for l_pen in c_get_enrt_rslts(l_enrt_rt.rt_strt_dt
3830: ,l_ptip_id) loop
3831: hr_utility.set_location('Adjusting rate '||l_enrt_rt.rt_strt_dt,111);
3832: open c_prtt_rt_val_adj(p_per_in_ler_id,l_pen.prtt_rt_val_id);
3833: fetch c_prtt_rt_val_adj into l_exists;
3834: if c_prtt_rt_val_adj%notfound then
3835: insert into BEN_LE_CLSN_N_RSTR (
3908: ,p_rt_ovridn_thru_dt => l_old_rt_ovridn_thru_dt
3909: --
3910: );
3911: if g_debug then
3912: hr_utility.set_location(l_proc, 135);
3913: end if;
3914: end if;
3915: --
3916: else
3948: --
3949: end if;
3950:
3951: if g_debug then
3952: hr_utility.set_location(l_proc||'Do nothing if old prv is fine ', 1330);
3953: end if;
3954:
3955: end if;
3956:
3955: end if;
3956:
3957: else
3958: if g_debug then
3959: hr_utility.set_location(l_proc, 140);
3960: end if;
3961: --
3962: if not p_calculate_only_mode then
3963: --
3982: open c_prev_per_in_ler;
3983: fetch c_prev_per_in_ler into l_prev_pil_id;
3984: close c_prev_per_in_ler;
3985: /* End of Bug 8945818 */
3986: hr_utility.set_location('l_prev_pil_id '||l_prev_pil_id,1119);
3987: hr_utility.set_location('pen_id '||p_prtt_enrt_rslt_id,1119);
3988: hr_utility.set_location('l_enrt_rt.rt_strt_dt '||l_enrt_rt.rt_strt_dt,1119);
3989: open c_get_prior_per_in_ler(l_enrt_rt.rt_strt_dt);
3990: fetch c_get_prior_per_in_ler into l_exists;
3983: fetch c_prev_per_in_ler into l_prev_pil_id;
3984: close c_prev_per_in_ler;
3985: /* End of Bug 8945818 */
3986: hr_utility.set_location('l_prev_pil_id '||l_prev_pil_id,1119);
3987: hr_utility.set_location('pen_id '||p_prtt_enrt_rslt_id,1119);
3988: hr_utility.set_location('l_enrt_rt.rt_strt_dt '||l_enrt_rt.rt_strt_dt,1119);
3989: open c_get_prior_per_in_ler(l_enrt_rt.rt_strt_dt);
3990: fetch c_get_prior_per_in_ler into l_exists;
3991: if c_get_prior_per_in_ler%found then
3984: close c_prev_per_in_ler;
3985: /* End of Bug 8945818 */
3986: hr_utility.set_location('l_prev_pil_id '||l_prev_pil_id,1119);
3987: hr_utility.set_location('pen_id '||p_prtt_enrt_rslt_id,1119);
3988: hr_utility.set_location('l_enrt_rt.rt_strt_dt '||l_enrt_rt.rt_strt_dt,1119);
3989: open c_get_prior_per_in_ler(l_enrt_rt.rt_strt_dt);
3990: fetch c_get_prior_per_in_ler into l_exists;
3991: if c_get_prior_per_in_ler%found then
3992: --
3998: if l_adjust = 'Y' then
3999: --
4000: -- Get rt end dt
4001: --
4002: hr_utility.set_location('p_enrt_rt_id '||p_enrt_rt_id,1119);
4003: --for l_epe in c_get_elctbl_chc loop -- Bug 8507247
4004: --
4005: -- Get all results that were de-enrolled for the event.
4006: --
4007: /* Added for Bug 8507247*/
4008: open c_get_ptip_id;
4009: fetch c_get_ptip_id into l_ptip_id;
4010: close c_get_ptip_id;
4011: hr_utility.set_location('Before Adjusting rates ',1119);
4012: /* End of Bug 8507247*/
4013: for l_pen in c_get_enrt_rslts(l_enrt_rt.rt_strt_dt
4014: ,l_ptip_id) loop
4015: hr_utility.set_location('Adjusting rate '||l_enrt_rt.rt_strt_dt,111);
4011: hr_utility.set_location('Before Adjusting rates ',1119);
4012: /* End of Bug 8507247*/
4013: for l_pen in c_get_enrt_rslts(l_enrt_rt.rt_strt_dt
4014: ,l_ptip_id) loop
4015: hr_utility.set_location('Adjusting rate '||l_enrt_rt.rt_strt_dt,111);
4016: open c_prtt_rt_val_adj(p_per_in_ler_id,l_pen.prtt_rt_val_id);
4017: fetch c_prtt_rt_val_adj into l_exists;
4018: if c_prtt_rt_val_adj%notfound then
4019: insert into BEN_LE_CLSN_N_RSTR (
4092: ,p_rt_ovridn_thru_dt => l_old_rt_ovridn_thru_dt
4093: --
4094: );
4095: if g_debug then
4096: hr_utility.set_location(l_proc, 145);
4097: end if;
4098: end if;
4099: end if;
4100: --
4171: --
4172: end if;
4173: --
4174: if g_debug then
4175: hr_utility.set_location('Leaving:'||l_proc, 99);
4176: end if;
4177:
4178: ben_manage_life_events.fonm := null;
4179: ben_manage_life_events.g_fonm_cvg_strt_dt := null;
4310: -- forms do not need to pass. They will call this original spec'ed
4311: -- proc. The batch processes can call the other one if new flags are needed.
4312: --
4313:
4314: g_debug := hr_utility.debug_enabled;
4315: --hr_utility. set_location( ' p_rt_val1 '||p_rt_val1 , 211);
4316: --hr_utility. set_location( ' p_ann_rt_val1 '||p_ann_rt_val1,211);
4317: -- please mark new flags with a comment.
4318: election_information
4311: -- proc. The batch processes can call the other one if new flags are needed.
4312: --
4313:
4314: g_debug := hr_utility.debug_enabled;
4315: --hr_utility. set_location( ' p_rt_val1 '||p_rt_val1 , 211);
4316: --hr_utility. set_location( ' p_ann_rt_val1 '||p_ann_rt_val1,211);
4317: -- please mark new flags with a comment.
4318: election_information
4319: (p_validate => p_validate
4312: --
4313:
4314: g_debug := hr_utility.debug_enabled;
4315: --hr_utility. set_location( ' p_rt_val1 '||p_rt_val1 , 211);
4316: --hr_utility. set_location( ' p_ann_rt_val1 '||p_ann_rt_val1,211);
4317: -- please mark new flags with a comment.
4318: election_information
4319: (p_validate => p_validate
4320: ,p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id
4524:
4525:
4526: begin
4527:
4528: g_debug := hr_utility.debug_enabled;
4529: if p_oipl_id is not null then
4530: open c_oipl ;
4531: fetch c_oipl into l_opt_id ;
4532: close c_oipl ;
4574: l_erlst_deenrt_calc_dt := nvl(p_orgnl_enrt_dt,p_enrt_cvg_strt_dt );
4575: end if ;
4576:
4577: if g_debug then
4578: hr_utility.set_location('uom'||l_rqd_perd_enrt_nenrt_uom ,8086.1);
4579: end if;
4580: if g_debug then
4581: hr_utility.set_location('val'||l_rqd_perd_enrt_nenrt_val ,8086.1);
4582: end if;
4577: if g_debug then
4578: hr_utility.set_location('uom'||l_rqd_perd_enrt_nenrt_uom ,8086.1);
4579: end if;
4580: if g_debug then
4581: hr_utility.set_location('val'||l_rqd_perd_enrt_nenrt_val ,8086.1);
4582: end if;
4583: if g_debug then
4584: hr_utility.set_location('cvg_dt '||l_erlst_deenrt_calc_dt ,8086.1);
4585: end if;
4580: if g_debug then
4581: hr_utility.set_location('val'||l_rqd_perd_enrt_nenrt_val ,8086.1);
4582: end if;
4583: if g_debug then
4584: hr_utility.set_location('cvg_dt '||l_erlst_deenrt_calc_dt ,8086.1);
4585: end if;
4586: if g_debug then
4587: hr_utility.set_location('date before calca'||p_return_date ,8086.1);
4588: end if;
4583: if g_debug then
4584: hr_utility.set_location('cvg_dt '||l_erlst_deenrt_calc_dt ,8086.1);
4585: end if;
4586: if g_debug then
4587: hr_utility.set_location('date before calca'||p_return_date ,8086.1);
4588: end if;
4589: if (l_rqd_perd_enrt_nenrt_val is not null and l_rqd_perd_enrt_nenrt_uom is not null )
4590: or l_rqd_perd_enrt_nenrt_rl is not null then
4591: p_return_date :=
4610: l_rec_organization_id,
4611: l_jurisdiction_code);
4612: end if ;
4613: if g_debug then
4614: hr_utility.set_location('date after calca'||p_return_date ,8086.1);
4615: end if;
4616:
4617: END determine_erlst_deenrt_date ;
4618:
5420: l_yrt_end_dt_rl number;
5421: l_interim_exists boolean; -- 12421421
5422:
5423: BEGIN
5424: g_debug := hr_utility.debug_enabled;
5425: if g_debug then
5426: hr_utility.set_location('Entering:'||l_proc, 5);
5427: end if;
5428: if g_debug then
5422:
5423: BEGIN
5424: g_debug := hr_utility.debug_enabled;
5425: if g_debug then
5426: hr_utility.set_location('Entering:'||l_proc, 5);
5427: end if;
5428: if g_debug then
5429: hr_utility.set_location(' chc:'|| to_char(p_elig_per_elctbl_chc_id)||' rslt:'|| to_char(p_prtt_enrt_rslt_id), 5);
5430: end if;
5425: if g_debug then
5426: hr_utility.set_location('Entering:'||l_proc, 5);
5427: end if;
5428: if g_debug then
5429: hr_utility.set_location(' chc:'|| to_char(p_elig_per_elctbl_chc_id)||' rslt:'|| to_char(p_prtt_enrt_rslt_id), 5);
5430: end if;
5431: if g_debug then
5432: hr_utility.set_location('p_enrt_rt_id1'||p_enrt_rt_id1,1999);
5433: end if;
5428: if g_debug then
5429: hr_utility.set_location(' chc:'|| to_char(p_elig_per_elctbl_chc_id)||' rslt:'|| to_char(p_prtt_enrt_rslt_id), 5);
5430: end if;
5431: if g_debug then
5432: hr_utility.set_location('p_enrt_rt_id1'||p_enrt_rt_id1,1999);
5433: end if;
5434:
5435: --
5436: -- Work out if we are being called from a concurrent program
5470: --
5471: if p_called_from_sspnd = 'Y' then
5472: if g_elig_per_elctbl_chc_id=p_elig_per_elctbl_chc_id then
5473: if g_debug then
5474: hr_utility.set_location(' l_use_new_result:=true ',1223);
5475: end if;
5476: l_use_new_result:=true;
5477: end if;
5478: end if;
5521: close oipl_ordr_num_c;
5522: end if;
5523:
5524: if g_debug then
5525: hr_utility.set_location(l_proc, 15);
5526: end if;
5527:
5528:
5529: --- determine FONM for election information # 4510798
5538: ben_manage_life_events.fonm := 'Y';
5539: ben_manage_life_events.g_fonm_cvg_strt_dt := l_fonm_cvg_strt_dt;
5540: /* 8716870: Code added for Imp Inc Enh begins*/
5541: if p_imp_cvg_strt_dt is not NULL and p_imp_cvg_strt_dt > l_fonm_cvg_strt_dt then
5542: hr_utility.set_location('p_imp_cvg_strt_dt '||p_imp_cvg_strt_dt,20);
5543: ben_manage_life_events.g_fonm_cvg_strt_dt := p_imp_cvg_strt_dt;
5544: l_global_epe_rec.enrt_cvg_strt_dt := p_imp_cvg_strt_dt;
5545: end if;
5546: /* Code added for Imp Inc Enh ends*/
5549: l_fonm_flag := 'N' ;
5550: ben_manage_life_events.fonm := 'N';
5551: ben_manage_life_events.g_fonm_cvg_strt_dt := null ;
5552: end if ;
5553: hr_utility.set_location (' FONM ' || ben_manage_life_events.fonm , 99 ) ;
5554: hr_utility.set_location (' FONM CVG ' || ben_manage_life_events.g_fonm_cvg_strt_dt , 99 ) ;
5555:
5556: --
5557: -- If form code is too lazy to pass in the result id
5550: ben_manage_life_events.fonm := 'N';
5551: ben_manage_life_events.g_fonm_cvg_strt_dt := null ;
5552: end if ;
5553: hr_utility.set_location (' FONM ' || ben_manage_life_events.fonm , 99 ) ;
5554: hr_utility.set_location (' FONM CVG ' || ben_manage_life_events.g_fonm_cvg_strt_dt , 99 ) ;
5555:
5556: --
5557: -- If form code is too lazy to pass in the result id
5558: -- then get it from the choice. Note will be null if
5565: -- we are using the one without penid we can not use the penid from epe
5566: -- which is not right.
5567: --
5568: if g_debug then
5569: hr_utility.set_location('p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,9999);
5570: end if;
5571: if g_debug then
5572: hr_utility.set_location('l_global_epe_rec.p_e_r_id '||l_global_epe_rec.prtt_enrt_rslt_id,9999);
5573: end if;
5568: if g_debug then
5569: hr_utility.set_location('p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,9999);
5570: end if;
5571: if g_debug then
5572: hr_utility.set_location('l_global_epe_rec.p_e_r_id '||l_global_epe_rec.prtt_enrt_rslt_id,9999);
5573: end if;
5574: if g_debug then
5575: hr_utility.set_location('p_enrt_bnft_id '||p_enrt_bnft_id,9999);
5576: end if;
5571: if g_debug then
5572: hr_utility.set_location('l_global_epe_rec.p_e_r_id '||l_global_epe_rec.prtt_enrt_rslt_id,9999);
5573: end if;
5574: if g_debug then
5575: hr_utility.set_location('p_enrt_bnft_id '||p_enrt_bnft_id,9999);
5576: end if;
5577: --
5578: if p_enrt_bnft_id is not null then
5579: open c_enb_pen ;
5613: l_global_epe_rec.prtt_enrt_rslt_id := l_enb_prtt_enrt_rslt_id ;
5614: --
5615: end if;
5616: --
5617: hr_utility.set_location('l_enb_prtt_enrt_rslt_id'||l_enb_prtt_enrt_rslt_id,222);
5618: hr_utility.set_location('l_global_epe_rec.prtt_enrt_rslt_id'||l_global_epe_rec.prtt_enrt_rslt_id,222);
5619: --
5620: -- bug 12421421. Reinstate the current enrollment. Suspended enrollment
5621: -- is deleted and the interim is the current enrollment.
5614: --
5615: end if;
5616: --
5617: hr_utility.set_location('l_enb_prtt_enrt_rslt_id'||l_enb_prtt_enrt_rslt_id,222);
5618: hr_utility.set_location('l_global_epe_rec.prtt_enrt_rslt_id'||l_global_epe_rec.prtt_enrt_rslt_id,222);
5619: --
5620: -- bug 12421421. Reinstate the current enrollment. Suspended enrollment
5621: -- is deleted and the interim is the current enrollment.
5622: --
5619: --
5620: -- bug 12421421. Reinstate the current enrollment. Suspended enrollment
5621: -- is deleted and the interim is the current enrollment.
5622: --
5623: hr_utility.set_location('l_global_epe_rec.crntly_enrd_flag : '||l_global_epe_rec.crntly_enrd_flag,99.1);
5624: if (l_global_epe_rec.crntly_enrd_flag = 'Y' and
5625: p_prtt_enrt_rslt_id <> nvl(l_global_epe_rec.prtt_enrt_rslt_id,-1)) then
5626: l_interim_exists := false;
5627: if l_global_epe_rec.prtt_enrt_rslt_id is not null then
5634: ,l_global_epe_rec.prtt_enrt_rslt_id
5635: );
5636: fetch c_get_interim into l_interim;
5637: if c_get_interim%found then
5638: hr_utility.set_location('interim found: '||l_global_epe_rec.prtt_enrt_rslt_id,1);
5639: l_interim_exists := true;
5640: else
5641: hr_utility.set_location('interim not found: '||l_global_epe_rec.prtt_enrt_rslt_id,1);
5642: end if;
5637: if c_get_interim%found then
5638: hr_utility.set_location('interim found: '||l_global_epe_rec.prtt_enrt_rslt_id,1);
5639: l_interim_exists := true;
5640: else
5641: hr_utility.set_location('interim not found: '||l_global_epe_rec.prtt_enrt_rslt_id,1);
5642: end if;
5643: close c_get_interim;
5644: end if;
5645: --
5644: end if;
5645: --
5646: if (l_global_epe_rec.prtt_enrt_rslt_id is null or
5647: l_interim_exists ) then
5648: hr_utility.set_location('try to find the prior enrolment : '||p_prtt_enrt_rslt_id,99.1);
5649: --
5650: open c_get_ended_result(p_elig_per_elctbl_chc_id
5651: ,l_global_epe_rec.per_in_ler_id
5652: );
5652: );
5653: fetch c_get_ended_result into l_ended_pen;
5654: if c_get_ended_result%found then
5655: l_global_epe_rec.prtt_enrt_rslt_id := l_ended_pen.prtt_enrt_rslt_id;
5656: hr_utility.set_location('found : '||l_ended_pen.prtt_enrt_rslt_id,99.1);
5657: --
5658: -- Update the electable choice with the enrollment result id.
5659: --
5660: ben_ELIG_PER_ELC_CHC_api.update_ELIG_PER_ELC_CHC
5684: -- end 12421421
5685: --
5686: l_prtt_enrt_rslt_id := l_global_epe_rec.prtt_enrt_rslt_id;
5687: if g_debug then
5688: hr_utility.set_location(l_proc, 16);
5689: end if;
5690: --
5691: -- override the bnft_val if it's annualized and entered at enrt
5692: --
5693: -- Bug 1913254 Present logic works only for enter value at enrollment is
5694: -- checked for rate. Now added a new cursor to get the annual value for
5695: -- SAAEAR if the rate is not entered at enrollment.
5696: --
5697: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
5698: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
5699: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
5700: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
5701: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
5694: -- checked for rate. Now added a new cursor to get the annual value for
5695: -- SAAEAR if the rate is not entered at enrollment.
5696: --
5697: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
5698: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
5699: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
5700: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
5701: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
5702: --
5695: -- SAAEAR if the rate is not entered at enrollment.
5696: --
5697: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
5698: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
5699: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
5700: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
5701: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
5702: --
5703: -- Bug 2212194 fixes
5696: --
5697: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
5698: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
5699: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
5700: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
5701: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
5702: --
5703: -- Bug 2212194 fixes
5704: --
5697: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
5698: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
5699: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
5700: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
5701: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
5702: --
5703: -- Bug 2212194 fixes
5704: --
5705: if l_global_enb_rec.cvg_mlt_cd='SAAEAR' then
5759: -- Added for bug 4020061
5760: if p_bnft_val = 0 and p_enrt_bnft_id is null
5761: then
5762: l_global_enb_rec.val := null ;
5763: hr_utility.set_location(' new clause --- l_global_enb_rec.val' || l_global_enb_rec.val , 50);
5764: end if;
5765:
5766: if g_debug then
5767: hr_utility.set_location(l_proc, 50);
5763: hr_utility.set_location(' new clause --- l_global_enb_rec.val' || l_global_enb_rec.val , 50);
5764: end if;
5765:
5766: if g_debug then
5767: hr_utility.set_location(l_proc, 50);
5768: end if;
5769: --
5770: -- if changing a result get old info
5771: --
5769: --
5770: -- if changing a result get old info
5771: --
5772: if g_debug then
5773: hr_utility.set_location('prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id ,8086.1);
5774: hr_utility.set_location('new coverage date '||l_global_pil_rec.lf_evt_ocrd_dt ,8086.1);
5775: end if;
5776: if p_prtt_enrt_rslt_id is not null then
5777: if g_debug then
5770: -- if changing a result get old info
5771: --
5772: if g_debug then
5773: hr_utility.set_location('prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id ,8086.1);
5774: hr_utility.set_location('new coverage date '||l_global_pil_rec.lf_evt_ocrd_dt ,8086.1);
5775: end if;
5776: if p_prtt_enrt_rslt_id is not null then
5777: if g_debug then
5778: hr_utility.set_location(l_proc,51);
5774: hr_utility.set_location('new coverage date '||l_global_pil_rec.lf_evt_ocrd_dt ,8086.1);
5775: end if;
5776: if p_prtt_enrt_rslt_id is not null then
5777: if g_debug then
5778: hr_utility.set_location(l_proc,51);
5779: end if;
5780: open c_current_result_info(p_prtt_enrt_rslt_id);
5781: if g_debug then
5782: hr_utility.set_location(l_proc,52);
5778: hr_utility.set_location(l_proc,51);
5779: end if;
5780: open c_current_result_info(p_prtt_enrt_rslt_id);
5781: if g_debug then
5782: hr_utility.set_location(l_proc,52);
5783: end if;
5784: fetch c_current_result_info into
5785: l_old_enrt_cvg_strt_dt,
5786: l_old_enrt_cvg_thru_dt,
5795: l_old_enrt_ovrid_rsn_cd,
5796: l_old_enrt_ovridn_flag,
5797: l_old_sspndd_flag ;
5798: if g_debug then
5799: hr_utility.set_location(l_proc,53);
5800: hr_utility.set_location(l_global_epe_rec.enrt_cvg_strt_dt,53);
5801: end if;
5802: if c_current_result_info%notfound then
5803: -- make sure it is not deleted for fiture coverage
5796: l_old_enrt_ovridn_flag,
5797: l_old_sspndd_flag ;
5798: if g_debug then
5799: hr_utility.set_location(l_proc,53);
5800: hr_utility.set_location(l_global_epe_rec.enrt_cvg_strt_dt,53);
5801: end if;
5802: if c_current_result_info%notfound then
5803: -- make sure it is not deleted for fiture coverage
5804: -- null globals to prevent bleeding
5809: g_bnft_val:=null;
5810: g_elig_per_elctbl_chc_id:=null;
5811: --
5812: if g_debug then
5813: hr_utility.set_location('BEN_91711_ENRT_RSLT_NOT_FND'|| to_char(p_prtt_enrt_rslt_id),54);
5814: end if;
5815: fnd_message.set_name('BEN','BEN_91711_ENRT_RSLT_NOT_FND');
5816: fnd_message.set_token('PROC',l_proc);
5817: fnd_message.set_token('ID', to_char(p_prtt_enrt_rslt_id));
5837: IF l_pen_curr.sspndd_flag='Y' AND l_old_sspndd_flag='N' THEN
5838: --
5839: --This is the action item completion in future case.
5840: --
5841: hr_utility.set_location('p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,500);
5842: ben_prtt_enrt_result_api.delete_prtt_enrt_result
5843: (p_validate => false,
5844: p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
5845: p_effective_start_date => l_effective_start_date,
5891: --Interim Enrollment
5892: --
5893: IF l_pen_curr.rplcs_sspndd_rslt_id is not null THEN
5894: --
5895: hr_utility.set_location(' Extend Interim Row',99);
5896: --
5897: open c_pen_curr(l_pen_curr.rplcs_sspndd_rslt_id
5898: ,l_global_pil_rec.lf_evt_ocrd_dt
5899: ,l_global_epe_rec.per_in_ler_id); -- 12583091
5901: fetch c_pen_curr into l_pen_curr_interim;
5902: close c_pen_curr;
5903: --
5904: --
5905: hr_utility.set_location('l_pen_curr.prtt_enrt_rslt_id ' || l_pen_curr_interim.prtt_enrt_rslt_id,99);
5906: --
5907: IF l_pen_curr_interim.prtt_enrt_rslt_id IS NOT NULL THEN
5908: ben_prtt_enrt_result_api.delete_prtt_enrt_result
5909: (p_validate => false,
5920: --
5921: for l_rec in c_prv(l_pen_curr_interim.prtt_enrt_rslt_id, l_pen_curr_interim.per_in_ler_id)
5922: loop
5923: --
5924: hr_utility.set_location('Interim l_rec.prtt_rt_val_id ' || l_rec.prtt_rt_val_id,99);
5925: hr_utility.set_location('l_rec.rt_end_dt ' || l_rec.rt_end_dt,99);
5926: --
5927: ben_prtt_rt_val_api.update_prtt_rt_val
5928: (p_validate => false,
5921: for l_rec in c_prv(l_pen_curr_interim.prtt_enrt_rslt_id, l_pen_curr_interim.per_in_ler_id)
5922: loop
5923: --
5924: hr_utility.set_location('Interim l_rec.prtt_rt_val_id ' || l_rec.prtt_rt_val_id,99);
5925: hr_utility.set_location('l_rec.rt_end_dt ' || l_rec.rt_end_dt,99);
5926: --
5927: ben_prtt_rt_val_api.update_prtt_rt_val
5928: (p_validate => false,
5929: p_person_id => l_global_pil_rec.person_id,
5938: END IF ;
5939: --
5940: open c_current_result_info(p_prtt_enrt_rslt_id);
5941: if g_debug then
5942: hr_utility.set_location(l_proc,52.2);
5943: end if;
5944: fetch c_current_result_info into
5945: l_old_enrt_cvg_strt_dt,
5946: l_old_enrt_cvg_thru_dt,
5980:
5981: end if;
5982:
5983: if g_debug then
5984: hr_utility.set_location( p_prtt_enrt_rslt_id || ' '|| l_proc,55);
5985: end if;
5986: if l_old_ovn is not null then
5987: if g_debug then
5988: hr_utility.set_location(l_proc,56);
5984: hr_utility.set_location( p_prtt_enrt_rslt_id || ' '|| l_proc,55);
5985: end if;
5986: if l_old_ovn is not null then
5987: if g_debug then
5988: hr_utility.set_location(l_proc,56);
5989: end if;
5990: p_object_version_number:=l_old_ovn;
5991: end if;
5992: if g_debug then
5989: end if;
5990: p_object_version_number:=l_old_ovn;
5991: end if;
5992: if g_debug then
5993: hr_utility.set_location(l_proc,57);
5994: end if;
5995: -- close c_current_result_info;
5996: if g_debug then
5997: hr_utility.set_location(l_proc,58);
5993: hr_utility.set_location(l_proc,57);
5994: end if;
5995: -- close c_current_result_info;
5996: if g_debug then
5997: hr_utility.set_location(l_proc,58);
5998: end if;
5999: end if;
6000: hr_utility.set_location('l_global_enb_rec.val '||l_global_enb_rec.val,8082.1);
6001: hr_utility.set_location('l_old_bnft_val '||l_old_bnft_val,8082.1);
5996: if g_debug then
5997: hr_utility.set_location(l_proc,58);
5998: end if;
5999: end if;
6000: hr_utility.set_location('l_global_enb_rec.val '||l_global_enb_rec.val,8082.1);
6001: hr_utility.set_location('l_old_bnft_val '||l_old_bnft_val,8082.1);
6002: hr_utility.set_location('l_global_epe_rec.ctfn_rqd_flag '||l_global_epe_rec.ctfn_rqd_flag,8082.1);
6003: hr_utility.set_location('l_old_sspndd_flag '||l_old_sspndd_flag,8082.1);
6004: --
5997: hr_utility.set_location(l_proc,58);
5998: end if;
5999: end if;
6000: hr_utility.set_location('l_global_enb_rec.val '||l_global_enb_rec.val,8082.1);
6001: hr_utility.set_location('l_old_bnft_val '||l_old_bnft_val,8082.1);
6002: hr_utility.set_location('l_global_epe_rec.ctfn_rqd_flag '||l_global_epe_rec.ctfn_rqd_flag,8082.1);
6003: hr_utility.set_location('l_old_sspndd_flag '||l_old_sspndd_flag,8082.1);
6004: --
6005: -- Replacing sec 129 logic to start a new enrollment if the enrollment code is CCKCSNCC
5998: end if;
5999: end if;
6000: hr_utility.set_location('l_global_enb_rec.val '||l_global_enb_rec.val,8082.1);
6001: hr_utility.set_location('l_old_bnft_val '||l_old_bnft_val,8082.1);
6002: hr_utility.set_location('l_global_epe_rec.ctfn_rqd_flag '||l_global_epe_rec.ctfn_rqd_flag,8082.1);
6003: hr_utility.set_location('l_old_sspndd_flag '||l_old_sspndd_flag,8082.1);
6004: --
6005: -- Replacing sec 129 logic to start a new enrollment if the enrollment code is CCKCSNCC
6006: -- bendenrr populates the new coverage start date
5999: end if;
6000: hr_utility.set_location('l_global_enb_rec.val '||l_global_enb_rec.val,8082.1);
6001: hr_utility.set_location('l_old_bnft_val '||l_old_bnft_val,8082.1);
6002: hr_utility.set_location('l_global_epe_rec.ctfn_rqd_flag '||l_global_epe_rec.ctfn_rqd_flag,8082.1);
6003: hr_utility.set_location('l_old_sspndd_flag '||l_old_sspndd_flag,8082.1);
6004: --
6005: -- Replacing sec 129 logic to start a new enrollment if the enrollment code is CCKCSNCC
6006: -- bendenrr populates the new coverage start date
6007: --
6012: nvl(l_old_bnft_val,hr_api.g_number)=
6013: nvl(l_global_enb_rec.val,hr_api.g_number)) or
6014: l_old_sspndd_flag = 'Y')) then
6015: if g_debug then
6016: hr_utility.set_location('enrt cvg strt dt'||l_global_epe_rec.enrt_cvg_strt_dt,111);
6017: end if;
6018: --bug#3702090 - override enrollment not to create new result
6019: --bug#4549089 - added per in ler for suspended enrollment
6020: --bug#4555320 - added per in ler for cvg strt dt also
6024: (l_old_sspndd_flag = 'Y' and l_old_per_in_ler_id <>
6025: l_global_epe_rec.per_in_ler_id))
6026: and nvl(p_enrt_mthd_cd, 'z') <> 'O' then
6027: if g_debug then
6028: hr_utility.set_location('start new result',112);
6029: end if;
6030: l_start_new_result := true;
6031: --
6032: -- Bug 9401100
6039: l_global_enb_rec.val = nvl(l_old_bnft_val, hr_api.g_number)) and
6040: l_global_epe_rec.ctfn_rqd_flag = 'Y' and
6041: l_old_sspndd_flag = 'N') then
6042: l_start_new_result := true;
6043: hr_utility.set_location('start new result.',8086.1);
6044: --
6045: -- end 9401100
6046: --
6047: /*Bug 9538592: Basing upon the flag set in reinstate enrollments call, set l_start_new_result
6047: /*Bug 9538592: Basing upon the flag set in reinstate enrollments call, set l_start_new_result
6048: to true to create a new enrollment result*/
6049: else
6050: if(ben_lf_evt_clps_restore.g_create_new_result = 'Y' ) then
6051: hr_utility.set_location('start new result bcoz of reinstate',112);
6052: l_start_new_result := true;
6053: /*Bug 9758763: Reset the flag g_create_new_result in benleclr.pkb. Flag
6054: will be reseted after the result is reinstated*/
6055: --ben_lf_evt_clps_restore.g_create_new_result := 'N';
6066: --
6067: -- If benefit amount changed treat as comp object change
6068: --
6069: if g_debug then
6070: hr_utility.set_location('l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
6071: end if;
6072: if g_debug then
6073: hr_utility.set_location('l_old_enrt_cvg_strt_dt'||l_old_enrt_cvg_strt_dt,8086.1);
6074: end if;
6069: if g_debug then
6070: hr_utility.set_location('l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
6071: end if;
6072: if g_debug then
6073: hr_utility.set_location('l_old_enrt_cvg_strt_dt'||l_old_enrt_cvg_strt_dt,8086.1);
6074: end if;
6075: if g_debug then
6076: hr_utility.set_location('l_global_epe_rec.erslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
6077: end if;
6072: if g_debug then
6073: hr_utility.set_location('l_old_enrt_cvg_strt_dt'||l_old_enrt_cvg_strt_dt,8086.1);
6074: end if;
6075: if g_debug then
6076: hr_utility.set_location('l_global_epe_rec.erslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
6077: end if;
6078: if g_debug then
6079: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
6080: end if;
6075: if g_debug then
6076: hr_utility.set_location('l_global_epe_rec.erslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
6077: end if;
6078: if g_debug then
6079: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
6080: end if;
6081: if g_debug then
6082: hr_utility.set_location('l_old_bnft_val='||l_old_bnft_val,1963);
6083: end if;
6078: if g_debug then
6079: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
6080: end if;
6081: if g_debug then
6082: hr_utility.set_location('l_old_bnft_val='||l_old_bnft_val,1963);
6083: end if;
6084: if g_debug then
6085: hr_utility.set_location('l_bnft_val='||l_global_enb_rec.val,1963);
6086: end if;
6081: if g_debug then
6082: hr_utility.set_location('l_old_bnft_val='||l_old_bnft_val,1963);
6083: end if;
6084: if g_debug then
6085: hr_utility.set_location('l_bnft_val='||l_global_enb_rec.val,1963);
6086: end if;
6087: --
6088: -- Added condition p_enrt_cvg_thru_dt is null. (maagrawa Jan 05,2001)
6089: -- p_enrt_cvg_thru_dt will be null in normal cases, but it will be populated
6099: nvl(l_old_bnft_val,hr_api.g_number)= nvl(l_global_enb_rec.val,hr_api.g_number) and
6100: p_enrt_cvg_thru_dt is null and
6101: l_start_new_result = false ) then
6102: if g_debug then
6103: hr_utility.set_location(l_proc, 80);
6104: end if;
6105: --
6106: l_prtt_enrt_rslt_id:=p_prtt_enrt_rslt_id;
6107: --
6109: -- see if plan has regulation of IRC Section 125 or 129.
6110: --
6111:
6112: if g_debug then
6113: hr_utility.set_location('if part ' , 8086.1);
6114: end if;
6115:
6116: l_regn_125_or_129_flag:='N';
6117: /*
6118: if l_global_pel_rec.enrt_perd_id is not null and -- same as p_run_mode='C'
6119: l_old_enrt_cvg_strt_dt is not null then
6120: open c_regn_125_or_129;
6121: fetch c_regn_125_or_129 into l_regn_125_or_129_flag;
6122: hr_utility. set_location('regn_125_or_129='||l_regn_125_or_129_flag,10);
6123: close c_regn_125_or_129;
6124: end if;
6125: */
6126: if l_regn_125_or_129_flag='N' then
6139: open c_enrt_rslt;
6140: fetch c_enrt_rslt into l_enrt_rslt;
6141: if c_enrt_rslt%found then
6142: if g_debug then
6143: hr_utility.set_location('Effectve date'||l_enrt_rslt.effective_end_date,11);
6144: end if;
6145: if g_debug then
6146: hr_utility.set_location('object number '||l_enrt_rslt.object_version_number,11);
6147: end if;
6142: if g_debug then
6143: hr_utility.set_location('Effectve date'||l_enrt_rslt.effective_end_date,11);
6144: end if;
6145: if g_debug then
6146: hr_utility.set_location('object number '||l_enrt_rslt.object_version_number,11);
6147: end if;
6148: -- 3733745
6149: select count(*)
6150: into l_interim_count
6179: open c_enrt_rslt2;
6180: fetch c_enrt_rslt2 into l_enrt_rslt2;
6181: close c_enrt_rslt2;
6182:
6183: hr_utility.set_location('l_enrt_rslt.per_in_ler_id '||l_enrt_rslt.per_in_ler_id,11);
6184: hr_utility.set_location('l_global_epe_rec.per_in_ler_id '||l_global_epe_rec.per_in_ler_id,11);
6185:
6186: /* Bug 14803995 : Do not insert future coverage records in backup table if the Life event is Unrestricted */
6187: open c_unrest(l_global_epe_rec.per_in_ler_id);
6180: fetch c_enrt_rslt2 into l_enrt_rslt2;
6181: close c_enrt_rslt2;
6182:
6183: hr_utility.set_location('l_enrt_rslt.per_in_ler_id '||l_enrt_rslt.per_in_ler_id,11);
6184: hr_utility.set_location('l_global_epe_rec.per_in_ler_id '||l_global_epe_rec.per_in_ler_id,11);
6185:
6186: /* Bug 14803995 : Do not insert future coverage records in backup table if the Life event is Unrestricted */
6187: open c_unrest(l_global_epe_rec.per_in_ler_id);
6188: fetch c_unrest into l_typ_cd;
6186: /* Bug 14803995 : Do not insert future coverage records in backup table if the Life event is Unrestricted */
6187: open c_unrest(l_global_epe_rec.per_in_ler_id);
6188: fetch c_unrest into l_typ_cd;
6189: close c_unrest;
6190: hr_utility.set_location('l_typ_cd '||l_typ_cd,11);
6191:
6192:
6193: if l_typ_cd <> 'SCHEDDU' then
6194: if nvl(l_enrt_rslt2.per_in_ler_id, -999) <> l_global_epe_rec.per_in_ler_id
6196: --
6197: open c_bkp_enrt_rslt_exist;
6198: fetch c_bkp_enrt_rslt_exist into l_bkp_enrt;
6199: if(c_bkp_enrt_rslt_exist%found) then
6200: hr_utility.set_location('inserting into backup table',11);
6201: insert into BEN_LE_CLSN_N_RSTR (
6202: BKUP_TBL_TYP_CD,
6203: COMP_LVL_CD,
6204: LCR_ATTRIBUTE16,
6392: p_multi_row_actn => FALSE);
6393: end loop;
6394:
6395: if (g_debug) then
6396: hr_utility.set_location('BKKK p_prtt_enrt_rslt_id '|| p_prtt_enrt_rslt_id, 100);
6397: end if;
6398: --
6399: open c_prtt_rt_val_id;
6400: fetch c_prtt_rt_val_id into l_prtt_rt_val_id, l_acty_base_rt_id2;
6403: exit;
6404: end if;
6405: --
6406: if (g_debug) then
6407: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
6408: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
6409: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
6410: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
6411: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
6404: end if;
6405: --
6406: if (g_debug) then
6407: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
6408: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
6409: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
6410: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
6411: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
6412: end if;
6405: --
6406: if (g_debug) then
6407: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
6408: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
6409: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
6410: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
6411: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
6412: end if;
6413: --
6406: if (g_debug) then
6407: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
6408: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
6409: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
6410: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
6411: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
6412: end if;
6413: --
6414: open c_enrt_rt(l_acty_base_rt_id2);
6407: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
6408: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
6409: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
6410: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
6411: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
6412: end if;
6413: --
6414: open c_enrt_rt(l_acty_base_rt_id2);
6415: fetch c_enrt_rt into l_enrt_rt_id;
6418: set prtt_rt_val_id = l_prtt_rt_val_id
6419: where enrt_rt_id = l_enrt_rt_id;
6420: --
6421: if (g_debug) then
6422: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 200);
6423: end if;
6424: --
6425: end if;
6426: close c_enrt_rt;
6434: end if;
6435: close c_enrt_rslt;
6436: --
6437: if g_debug then
6438: hr_utility.set_location('bef update cvg '|| l_global_epe_rec.enrt_cvg_strt_dt,8086.2);
6439: end if;
6440: if g_debug then
6441: hr_utility.set_location('bef update erly '||l_global_epe_rec.erlst_deenrt_dt,8086.2);
6442: end if;
6437: if g_debug then
6438: hr_utility.set_location('bef update cvg '|| l_global_epe_rec.enrt_cvg_strt_dt,8086.2);
6439: end if;
6440: if g_debug then
6441: hr_utility.set_location('bef update erly '||l_global_epe_rec.erlst_deenrt_dt,8086.2);
6442: end if;
6443: --Override code
6444: if l_old_enrt_ovrid_thru_dt is not null then
6445: --
6443: --Override code
6444: if l_old_enrt_ovrid_thru_dt is not null then
6445: --
6446: if g_debug then
6447: hr_utility.set_location(' enrt_cvg_strt_dt_cd '||l_global_epe_rec.enrt_cvg_strt_dt_cd,123);
6448: end if;
6449: if g_debug then
6450: hr_utility.set_location(' p_elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,123);
6451: end if;
6446: if g_debug then
6447: hr_utility.set_location(' enrt_cvg_strt_dt_cd '||l_global_epe_rec.enrt_cvg_strt_dt_cd,123);
6448: end if;
6449: if g_debug then
6450: hr_utility.set_location(' p_elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,123);
6451: end if;
6452: if l_global_epe_rec.enrt_cvg_strt_dt_cd is not null then
6453: ben_determine_date.main(
6454: p_date_cd => l_global_epe_rec.enrt_cvg_strt_dt_cd,
6483: open c_unrestricted(l_global_pil_rec.ler_id);
6484: fetch c_unrestricted into l_unrestricted;
6485: close c_unrestricted;
6486: ------write to extract log
6487: hr_utility.set_location('l_unrestricted : '||l_unrestricted.typ_cd,1);
6488: if l_unrestricted.typ_cd = 'SCHEDDU' then
6489: ben_ext_chlg.log_benefit_chg
6490: (p_action => 'REINSTATE'
6491: ,p_pl_id => l_global_epe_rec.pl_id
6581: ,p_ctfn_actn_warning => l_ctfn_actn_warning
6582: );
6583: p_prtt_enrt_interim_id:=l_prtt_enrt_interim_id;
6584: if g_debug then
6585: hr_utility.set_location(l_proc, 90);
6586: end if;
6587: --
6588: -- (maagrawa Jan 05,2001).
6589: -- Replaced this else with elsif. Normal processing will go as normal as
6601: elsif (l_global_epe_rec.prtt_enrt_rslt_id is null or
6602: p_enrt_cvg_thru_dt is null) then
6603: --
6604: if g_debug then
6605: hr_utility.set_location('elese part ' , 8086.1);
6606: end if;
6607: l_crntly_enrd_rslt_exists := false;
6608: --
6609: if l_global_epe_rec.prtt_enrt_rslt_id is not null then
6672: -- and ELIG PER ELCTBL CHC: CRNTLY ENRD FLAG = Y then
6673: -- re-use the enrollment result.
6674: --
6675: if g_debug then
6676: hr_utility.set_location(l_proc, 95);
6677: end if;
6678: --
6679: l_prtt_enrt_rslt_id := l_global_epe_rec.prtt_enrt_rslt_id;
6680: --
6686: if l_global_pel_rec.enrt_perd_id is not null and -- same as p_run_mode='C'
6687: l_old_enrt_cvg_strt_dt is not null then
6688: open c_regn_125_or_129;
6689: fetch c_regn_125_or_129 into l_regn_125_or_129_flag;
6690: hr_utility. set_location('regn_125_or_129='||l_regn_125_or_129_flag,10);
6691: close c_regn_125_or_129;
6692: end if;
6693: */
6694: if l_regn_125_or_129_flag='N' then
6704: --
6705: l_object_version_number := l_crntly_enrd_rslt_rec.object_version_number;
6706: --
6707: if g_debug then
6708: hr_utility.set_location('bef update cvg '|| l_global_epe_rec.enrt_cvg_strt_dt,8086.2);
6709: end if;
6710: if g_debug then
6711: hr_utility.set_location('bef update erly '||l_global_epe_rec.erlst_deenrt_dt,8086.2);
6712: end if;
6707: if g_debug then
6708: hr_utility.set_location('bef update cvg '|| l_global_epe_rec.enrt_cvg_strt_dt,8086.2);
6709: end if;
6710: if g_debug then
6711: hr_utility.set_location('bef update erly '||l_global_epe_rec.erlst_deenrt_dt,8086.2);
6712: end if;
6713: ----Bug 9139820
6714: open c_get_pil_enrt( l_global_epe_rec.prtt_enrt_rslt_id,l_global_epe_rec.per_in_ler_id,
6715: l_global_epe_rec.enrt_cvg_strt_dt);
6714: open c_get_pil_enrt( l_global_epe_rec.prtt_enrt_rslt_id,l_global_epe_rec.per_in_ler_id,
6715: l_global_epe_rec.enrt_cvg_strt_dt);
6716: fetch c_get_pil_enrt into l_check_enrt_same_pil;
6717: close c_get_pil_enrt;
6718: hr_utility.set_location('l_check_enrt_same_pil.pen ID '||l_check_enrt_same_pil.prtt_enrt_rslt_id,8086.2);
6719: if l_check_enrt_same_pil.prtt_enrt_rslt_id is not null then
6720: ---- Bug 9430735,fetch the per_in_ler_id which has the enrt rslt corresponding to pen.
6721: /* open c_prev_pil(l_global_pil_rec.person_id);
6722: fetch c_prev_pil into l_prev_pil;
6723: if c_prev_pil%found then*/
6724: open c_prev_pil_with_pen(l_global_pil_rec.person_id,l_check_enrt_same_pil.prtt_enrt_rslt_id);
6725: fetch c_prev_pil_with_pen into l_prev_pil;
6726: if c_prev_pil_with_pen%found then
6727: hr_utility.set_location('previous pil found',2);
6728: open c_get_pil_enrt(l_check_enrt_same_pil.prtt_enrt_rslt_id,l_prev_pil.per_in_ler_id,l_check_enrt_same_pil.enrt_cvg_strt_dt);
6729: fetch c_get_pil_enrt into l_get_prev_pil_enrt;
6730: if c_get_pil_enrt%found then
6731: hr_utility.set_location('previous enr found',2);
6727: hr_utility.set_location('previous pil found',2);
6728: open c_get_pil_enrt(l_check_enrt_same_pil.prtt_enrt_rslt_id,l_prev_pil.per_in_ler_id,l_check_enrt_same_pil.enrt_cvg_strt_dt);
6729: fetch c_get_pil_enrt into l_get_prev_pil_enrt;
6730: if c_get_pil_enrt%found then
6731: hr_utility.set_location('previous enr found',2);
6732: hr_utility.set_location('previous prtt_enrt_rslt ' ||l_get_prev_pil_enrt.prtt_enrt_rslt_id,2);
6733: ben_prtt_enrt_result_api.delete_prtt_enrt_result
6734: (p_validate => false,
6735: p_prtt_enrt_rslt_id => l_get_prev_pil_enrt.prtt_enrt_rslt_id,
6728: open c_get_pil_enrt(l_check_enrt_same_pil.prtt_enrt_rslt_id,l_prev_pil.per_in_ler_id,l_check_enrt_same_pil.enrt_cvg_strt_dt);
6729: fetch c_get_pil_enrt into l_get_prev_pil_enrt;
6730: if c_get_pil_enrt%found then
6731: hr_utility.set_location('previous enr found',2);
6732: hr_utility.set_location('previous prtt_enrt_rslt ' ||l_get_prev_pil_enrt.prtt_enrt_rslt_id,2);
6733: ben_prtt_enrt_result_api.delete_prtt_enrt_result
6734: (p_validate => false,
6735: p_prtt_enrt_rslt_id => l_get_prev_pil_enrt.prtt_enrt_rslt_id,
6736: p_effective_start_date => l_effective_start_date,
6743: ---Refetch the enrollment result for the Object version number.
6744: open c_get_ovn(l_check_enrt_same_pil.prtt_enrt_rslt_id,l_prev_pil.per_in_ler_id,l_get_prev_pil_enrt.effective_start_date);
6745: fetch c_get_ovn into l_object_version_number;
6746: close c_get_ovn;
6747: hr_utility.set_location('l_object_version_number,del pen : '||l_object_version_number,99.3);
6748:
6749: else
6750: --check if any correction record exists in the back-up table.
6751: hr_utility.set_location('else part prev enr',99);
6747: hr_utility.set_location('l_object_version_number,del pen : '||l_object_version_number,99.3);
6748:
6749: else
6750: --check if any correction record exists in the back-up table.
6751: hr_utility.set_location('else part prev enr',99);
6752: open c_bkup_pen_rec(l_check_enrt_same_pil.prtt_enrt_rslt_id,l_prev_pil.per_in_ler_id,l_check_enrt_same_pil.person_id,
6753: l_check_enrt_same_pil.effective_start_date,l_check_enrt_same_pil.enrt_cvg_strt_dt);
6754: fetch c_bkup_pen_rec into l_bkup_pen_rec;
6755: if c_bkup_pen_rec%found then
6752: open c_bkup_pen_rec(l_check_enrt_same_pil.prtt_enrt_rslt_id,l_prev_pil.per_in_ler_id,l_check_enrt_same_pil.person_id,
6753: l_check_enrt_same_pil.effective_start_date,l_check_enrt_same_pil.enrt_cvg_strt_dt);
6754: fetch c_bkup_pen_rec into l_bkup_pen_rec;
6755: if c_bkup_pen_rec%found then
6756: hr_utility.set_location('bkup record found : ' || l_object_version_number,99);
6757:
6758: --Update the pen record with the current pil to previous pil
6759: ben_prtt_enrt_result_api.update_prtt_enrt_result
6760: (p_validate => FALSE
6771: ---Refetch the enrollment result for the Object version number.
6772: open c_get_ovn(l_check_enrt_same_pil.prtt_enrt_rslt_id,l_prev_pil.per_in_ler_id,l_check_enrt_same_pil.effective_start_date);
6773: fetch c_get_ovn into l_object_version_number;
6774: close c_get_ovn;
6775: hr_utility.set_location('l_object_version_number,upd pen : '||l_object_version_number,99.1);
6776: end if;
6777: close c_bkup_pen_rec;
6778: end if;
6779: close c_get_pil_enrt;
6783: close c_prev_pil_with_pen;
6784: end if;
6785: ----End of Bug 9139820
6786: --
6787: hr_utility.set_location('l_global_epe_rec.enrt_cvg_strt_dt' ||l_global_epe_rec.enrt_cvg_strt_dt,2);
6788: ben_PRTT_ENRT_RESULT_api.update_enrollment(
6789: p_prtt_enrt_rslt_id => l_prtt_enrt_rslt_id
6790: ,p_effective_start_date => p_effective_start_date
6791: ,p_effective_end_date => p_effective_end_date
6864: p_prtt_enrt_interim_id:=l_prtt_enrt_interim_id; --CFW
6865: -- RCHASE Bug#5353 No interim is being passed back
6866: l_prtt_enrt_interim_id:=nvl(l_prtt_enrt_interim_id,l_prtt_enrt_rslt_id); --CFW
6867: if g_debug then
6868: hr_utility.set_location(l_proc, 97);
6869: end if;
6870: -- Bug 2627078 fixes
6871: -- Now If the User selected the Interim as the Main enrollment while
6872: -- replacing the suspended enrollment, delink the interim from the
6897: end if ;
6898: close c_delink_interim ;
6899: else
6900: if g_debug then
6901: hr_utility.set_location(l_proc, 100);
6902: end if;
6903: -- If they are not staying in the same plan and option
6904: -- (ELIG PER ELCTBL CHC: CRNTLY ENRD FLAG = N) and
6905: -- no replacement result is specified, then create a new
6910: -- first, resolve previously unknown values.
6911:
6912: if (l_global_epe_rec.enrt_cvg_strt_dt_cd is not null) then
6913: if g_debug then
6914: hr_utility.set_location(l_proc, 130);
6915: end if;
6916: l_elect_cvg_strt_dt := l_global_epe_rec.enrt_cvg_strt_dt ;
6917: --
6918: if l_global_epe_rec.enrt_cvg_strt_dt_cd = 'ENTRBL' and
6937: p_returned_date => l_enrt_cvg_strt_dt
6938: );
6939:
6940: if g_debug then
6941: hr_utility.set_location('calc date' || l_enrt_cvg_strt_dt,8086.1);
6942: hr_utility.set_location('prev calc date' || l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
6943: end if;
6944: -- 2982606 when the first time enrolled in waiting plan,after save thge enrollment the date changed back to
6945: --even date
6938: );
6939:
6940: if g_debug then
6941: hr_utility.set_location('calc date' || l_enrt_cvg_strt_dt,8086.1);
6942: hr_utility.set_location('prev calc date' || l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
6943: end if;
6944: -- 2982606 when the first time enrolled in waiting plan,after save thge enrollment the date changed back to
6945: --even date
6946: if l_enrt_cvg_strt_dt > l_global_epe_rec.enrt_cvg_strt_dt
6947: -- if the coverage start dt code is election then take the current cacluated code
6948: OR l_global_epe_rec.enrt_cvg_strt_dt_cd in ('ODEWM','AFDELD','FDMELD')
6949: OR (l_global_epe_rec.enrt_cvg_strt_dt_cd in ('RL') ) then -- Bug 13079111/13472223
6950: l_global_epe_rec.enrt_cvg_strt_dt := l_enrt_cvg_strt_dt;
6951: hr_utility.set_location('after comparison calc date' || l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
6952: end if;
6953:
6954:
6955: if g_debug then
6952: end if;
6953:
6954:
6955: if g_debug then
6956: hr_utility.set_location('denrt at elec' ||l_global_epe_rec.erlst_deenrt_dt,8086.1);
6957: end if;
6958: if g_debug then
6959: hr_utility.set_location('prt rslt deent '||l_old_erlst_deenrt_dt , 8086.1);
6960: end if;
6955: if g_debug then
6956: hr_utility.set_location('denrt at elec' ||l_global_epe_rec.erlst_deenrt_dt,8086.1);
6957: end if;
6958: if g_debug then
6959: hr_utility.set_location('prt rslt deent '||l_old_erlst_deenrt_dt , 8086.1);
6960: end if;
6961: if g_debug then
6962: hr_utility.set_location('before calc cvg'||l_elect_cvg_strt_dt,8086.1);
6963: end if;
6958: if g_debug then
6959: hr_utility.set_location('prt rslt deent '||l_old_erlst_deenrt_dt , 8086.1);
6960: end if;
6961: if g_debug then
6962: hr_utility.set_location('before calc cvg'||l_elect_cvg_strt_dt,8086.1);
6963: end if;
6964:
6965: ---calcualte the function to call the erls_denrt_dt
6966: --- l_old_erlst_deenrt_dt is decide the previous enrolment
6969: l_global_epe_rec.erlst_deenrt_dt is not null and
6970: nvl(l_elect_cvg_strt_dt,hr_api.g_eot)
6971: <> l_global_epe_rec.enrt_cvg_strt_dt then
6972: if g_debug then
6973: hr_utility.set_location('CALLINGH ERLST DATE ' , 8086.1);
6974: end if;
6975: determine_erlst_deenrt_date(p_oipl_id => l_global_epe_rec.oipl_id,
6976: p_pl_id => l_global_epe_rec.pl_id,
6977: p_pl_typ_id => l_global_epe_rec.pl_typ_id ,
6991: end if ;
6992: end if;
6993:
6994: if g_debug then
6995: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
6996: end if;
6997: if g_debug then
6998: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
6999: end if;
6994: if g_debug then
6995: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
6996: end if;
6997: if g_debug then
6998: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
6999: end if;
7000: if g_debug then
7001: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
7002: end if;
6997: if g_debug then
6998: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
6999: end if;
7000: if g_debug then
7001: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
7002: end if;
7003: if g_debug then
7004: hr_utility.set_location(l_proc, 150);
7005: end if;
7000: if g_debug then
7001: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
7002: end if;
7003: if g_debug then
7004: hr_utility.set_location(l_proc, 150);
7005: end if;
7006: if (l_global_epe_rec.enrt_cvg_strt_dt is null) then
7007: --
7008: -- null globals to prevent bleeding
7011: g_bnft_val:=null;
7012: g_elig_per_elctbl_chc_id:=null;
7013: --
7014: if g_debug then
7015: hr_utility.set_location('BEN_91453_CVG_STRT_DT_NOT_FOUN id:'|| to_char(l_global_epe_rec.pl_id), 169);
7016: end if;
7017: fnd_message.set_name('BEN','BEN_91453_CVG_STRT_DT_NOT_FOUN');
7018: fnd_message.set_token('PROC',l_proc);
7019: fnd_message.set_token('PERSON_ID',to_char(l_global_pil_rec.person_id));
7022: fnd_message.set_token('OIPL_ID',to_char(l_global_epe_rec.oipl_id));
7023: fnd_message.raise_error;
7024: end if; -- date is null
7025: if g_debug then
7026: hr_utility.set_location(l_proc, 170);
7027: end if;
7028: if (nvl(l_old_bnft_val,hr_api.g_number)<>
7029: nvl(l_global_enb_rec.val,hr_api.g_number)
7030: -- Bug#1807450 added and condition
7060: );
7061: -- if there is any waiting period, the start date returned above override the coverage
7062: -- start date arrived in the benmngle - bug#1807450
7063: --
7064: hr_utility.set_location( 'l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,444);
7065: hr_utility.set_location( 'l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,444);
7066: if l_enrt_cvg_strt_dt > l_global_epe_rec.enrt_cvg_strt_dt then
7067: l_global_epe_rec.enrt_cvg_strt_dt := l_enrt_cvg_strt_dt;
7068: end if;
7061: -- if there is any waiting period, the start date returned above override the coverage
7062: -- start date arrived in the benmngle - bug#1807450
7063: --
7064: hr_utility.set_location( 'l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,444);
7065: hr_utility.set_location( 'l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,444);
7066: if l_enrt_cvg_strt_dt > l_global_epe_rec.enrt_cvg_strt_dt then
7067: l_global_epe_rec.enrt_cvg_strt_dt := l_enrt_cvg_strt_dt;
7068: end if;
7069: --
7080: if (l_old_pl_id=l_global_epe_rec.pl_id) then
7081: l_orgnl_enrt_dt:=l_old_orgnl_enrt_dt;
7082: -- Bug 3602579 - now check if previous enrollment was in waive option
7083: if l_old_oipl_id is not null and l_global_epe_rec.oipl_id is not null then
7084: hr_utility.set_location( 'Into the new clause l_old_oipl_id '|| l_old_oipl_id ,999);
7085: hr_utility.set_location( 'Into the new clause l_global_epe_rec.oipl_id '|| l_global_epe_rec.oipl_id ,999);
7086: if (l_old_oipl_id <> l_global_epe_rec.oipl_id) then
7087: hr_utility.set_location( 'Into the new clause ',999);
7088: -- check if old oipl is waive.
7081: l_orgnl_enrt_dt:=l_old_orgnl_enrt_dt;
7082: -- Bug 3602579 - now check if previous enrollment was in waive option
7083: if l_old_oipl_id is not null and l_global_epe_rec.oipl_id is not null then
7084: hr_utility.set_location( 'Into the new clause l_old_oipl_id '|| l_old_oipl_id ,999);
7085: hr_utility.set_location( 'Into the new clause l_global_epe_rec.oipl_id '|| l_global_epe_rec.oipl_id ,999);
7086: if (l_old_oipl_id <> l_global_epe_rec.oipl_id) then
7087: hr_utility.set_location( 'Into the new clause ',999);
7088: -- check if old oipl is waive.
7089: open c_wv_opt (l_old_oipl_id);
7083: if l_old_oipl_id is not null and l_global_epe_rec.oipl_id is not null then
7084: hr_utility.set_location( 'Into the new clause l_old_oipl_id '|| l_old_oipl_id ,999);
7085: hr_utility.set_location( 'Into the new clause l_global_epe_rec.oipl_id '|| l_global_epe_rec.oipl_id ,999);
7086: if (l_old_oipl_id <> l_global_epe_rec.oipl_id) then
7087: hr_utility.set_location( 'Into the new clause ',999);
7088: -- check if old oipl is waive.
7089: open c_wv_opt (l_old_oipl_id);
7090: fetch c_wv_opt into l_wv_flag ;
7091: close c_wv_opt ;
7088: -- check if old oipl is waive.
7089: open c_wv_opt (l_old_oipl_id);
7090: fetch c_wv_opt into l_wv_flag ;
7091: close c_wv_opt ;
7092: hr_utility.set_location( 'Into the new clause l_wv_flag '|| l_wv_flag ,999);
7093: if nvl(l_wv_flag,'N') = 'Y' then
7094: l_wv_flag := 'N' ;
7095: l_orgnl_enrt_dt := l_global_epe_rec.enrt_cvg_strt_dt;
7096: end if ;
7099: else
7100: l_orgnl_enrt_dt:=l_global_epe_rec.enrt_cvg_strt_dt;
7101: end if;
7102: --
7103: hr_utility.set_location( 'l_global_pil_rec.lf_evt_ocrd_dt '|| l_global_pil_rec.lf_evt_ocrd_dt ,999);
7104:
7105: -- create the enrolment result
7106: if l_global_epe_rec.ptip_id is not null then
7107: ben_cobj_cache.get_ptip_dets
7144: --open c_epe ;
7145: --fetch c_epe into l_assignment_id;
7146: --close c_epe ;
7147: if g_debug then
7148: hr_utility.set_location( 'l_assignment_id '||l_assignment_id,12);
7149: hr_utility.set_location( 'l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,12);
7150: end if;
7151: --
7152: -- Bug 7206471. Check if the coverage should be adjusted.
7145: --fetch c_epe into l_assignment_id;
7146: --close c_epe ;
7147: if g_debug then
7148: hr_utility.set_location( 'l_assignment_id '||l_assignment_id,12);
7149: hr_utility.set_location( 'l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,12);
7150: end if;
7151: --
7152: -- Bug 7206471. Check if the coverage should be adjusted.
7153: --
7168: if c_get_pgm_extra_info_cvg%found then
7169: --
7170: if l_cvg_adjust = 'Y' then
7171: --
7172: hr_utility.set_location('l_cvg_adjust '||l_cvg_adjust,44333);
7173: --
7174: -- Get cvg end dt
7175: -- for l_get_elctbl_chc_for_cvg in c_get_elctbl_chc_for_cvg loop -- Bug 8507247
7176: --
7182: close c_get_ptip_id;
7183: /*End of Bug 8507247*/
7184: for l_get_enrt_rslts_for_pen in c_get_enrt_rslts_for_pen(l_global_epe_rec.enrt_cvg_strt_dt
7185: ,l_ptip_id ) loop
7186: hr_utility.set_location('Adjusting Coverage for '||l_global_epe_rec.enrt_cvg_strt_dt,44333);
7187: --
7188: open c_prtt_enrt_rslt_adj(l_get_enrt_rslts_for_pen.prtt_enrt_rslt_id);
7189: fetch c_prtt_enrt_rslt_adj into l_exists;
7190: if c_prtt_enrt_rslt_adj%notfound then
7238: open c_get_prior_per_in_ler_1(l_global_epe_rec.enrt_cvg_strt_dt);
7239: fetch c_get_prior_per_in_ler_1 into l_exists_1;
7240: if c_get_prior_per_in_ler_1%found then
7241: --
7242: hr_utility.set_location('uxx have cvg thru date after present start',44332);
7243: for l_pgm in c_get_pgm loop
7244: --
7245: open c_get_pgm_extra_info_cvg(l_pgm.pgm_id);
7246: fetch c_get_pgm_extra_info_cvg into l_cvg_adjust;
7245: open c_get_pgm_extra_info_cvg(l_pgm.pgm_id);
7246: fetch c_get_pgm_extra_info_cvg into l_cvg_adjust;
7247: if c_get_pgm_extra_info_cvg%found then
7248: --
7249: hr_utility.set_location('l_cvg_adjust '||l_cvg_adjust,44332);
7250: if l_cvg_adjust = 'Y' then
7251: --
7252: hr_utility.set_location('l_cvg_adjust '||l_cvg_adjust,44333);
7253: --
7248: --
7249: hr_utility.set_location('l_cvg_adjust '||l_cvg_adjust,44332);
7250: if l_cvg_adjust = 'Y' then
7251: --
7252: hr_utility.set_location('l_cvg_adjust '||l_cvg_adjust,44333);
7253: --
7254: open c_get_ptip_id;
7255: fetch c_get_ptip_id into l_ptip_id;
7256: close c_get_ptip_id;
7256: close c_get_ptip_id;
7257:
7258: for l_get_enrt_rslts_for_pen in c_get_enrt_rslts_for_pen(l_global_epe_rec.enrt_cvg_strt_dt
7259: ,l_ptip_id ) loop
7260: hr_utility.set_location('uxx Adjusting Coverage for '||l_global_epe_rec.enrt_cvg_strt_dt,10);
7261: --
7262: --
7263: ben_prtt_enrt_result_api.update_prtt_enrt_result
7264: (p_validate => FALSE,
7282: close c_get_prior_per_in_ler_1;
7283: --Bug 13444556 changes end
7284: -------------------------------------------------------------------------------
7285: -----Bug 8596122
7286: hr_utility.set_location('l_global_epe_rec.enrt_cvg_strt_dt : '||l_global_epe_rec.enrt_cvg_strt_dt,1);
7287: open c_prev_pil(l_global_pil_rec.person_id);
7288: fetch c_prev_pil into l_prev_pil;
7289: if c_prev_pil%found then
7290: hr_utility.set_location('prev pil Id : '||l_prev_pil.per_in_ler_id,1);
7286: hr_utility.set_location('l_global_epe_rec.enrt_cvg_strt_dt : '||l_global_epe_rec.enrt_cvg_strt_dt,1);
7287: open c_prev_pil(l_global_pil_rec.person_id);
7288: fetch c_prev_pil into l_prev_pil;
7289: if c_prev_pil%found then
7290: hr_utility.set_location('prev pil Id : '||l_prev_pil.per_in_ler_id,1);
7291: hr_utility.set_location('l_global_epe_rec.pl_id : '||l_global_epe_rec.pl_id,1);
7292: hr_utility.set_location('l_global_epe_rec.oipl_id : '||l_global_epe_rec.oipl_id,1);
7293: open c_check_int_enr(l_prev_pil.per_in_ler_id,l_global_epe_rec.pgm_id,l_global_epe_rec.pl_id,l_global_epe_rec.oipl_id);
7294: fetch c_check_int_enr into l_check_int_enr;
7287: open c_prev_pil(l_global_pil_rec.person_id);
7288: fetch c_prev_pil into l_prev_pil;
7289: if c_prev_pil%found then
7290: hr_utility.set_location('prev pil Id : '||l_prev_pil.per_in_ler_id,1);
7291: hr_utility.set_location('l_global_epe_rec.pl_id : '||l_global_epe_rec.pl_id,1);
7292: hr_utility.set_location('l_global_epe_rec.oipl_id : '||l_global_epe_rec.oipl_id,1);
7293: open c_check_int_enr(l_prev_pil.per_in_ler_id,l_global_epe_rec.pgm_id,l_global_epe_rec.pl_id,l_global_epe_rec.oipl_id);
7294: fetch c_check_int_enr into l_check_int_enr;
7295: if c_check_int_enr%found then
7288: fetch c_prev_pil into l_prev_pil;
7289: if c_prev_pil%found then
7290: hr_utility.set_location('prev pil Id : '||l_prev_pil.per_in_ler_id,1);
7291: hr_utility.set_location('l_global_epe_rec.pl_id : '||l_global_epe_rec.pl_id,1);
7292: hr_utility.set_location('l_global_epe_rec.oipl_id : '||l_global_epe_rec.oipl_id,1);
7293: open c_check_int_enr(l_prev_pil.per_in_ler_id,l_global_epe_rec.pgm_id,l_global_epe_rec.pl_id,l_global_epe_rec.oipl_id);
7294: fetch c_check_int_enr into l_check_int_enr;
7295: if c_check_int_enr%found then
7296: ben_determine_date.rate_and_coverage_dates
7312: ,p_acty_base_rt_id => null
7313: ,p_effective_date => p_effective_date
7314: ,p_lf_evt_ocrd_dt => l_global_pil_rec.lf_evt_ocrd_dt
7315: );
7316: hr_utility.set_location('l_global_epe_rec.enrt_cvg_strt_dt : '||l_global_epe_rec.enrt_cvg_strt_dt,1);
7317: hr_utility.set_location('int enr found',1);
7318: end if;
7319: close c_check_int_enr;
7320: end if;
7313: ,p_effective_date => p_effective_date
7314: ,p_lf_evt_ocrd_dt => l_global_pil_rec.lf_evt_ocrd_dt
7315: );
7316: hr_utility.set_location('l_global_epe_rec.enrt_cvg_strt_dt : '||l_global_epe_rec.enrt_cvg_strt_dt,1);
7317: hr_utility.set_location('int enr found',1);
7318: end if;
7319: close c_check_int_enr;
7320: end if;
7321: close c_prev_pil;
7319: close c_check_int_enr;
7320: end if;
7321: close c_prev_pil;
7322: --
7323: hr_utility.set_location('l_prtt_enrt_rslt_id: '||l_prtt_enrt_rslt_id,1);
7324: hr_utility.set_location('l_enrt_cvg_strt_dt: '||l_enrt_cvg_strt_dt,1);
7325: hr_utility.set_location('p_prtt_enrt_rslt_id: '||p_prtt_enrt_rslt_id,1);
7326: hr_utility.set_location('p_elig_per_elctbl_chc_id: '||p_elig_per_elctbl_chc_id,1);
7327: hr_utility.set_location('p_called_from sspnd: '||p_called_from_sspnd,1);
7320: end if;
7321: close c_prev_pil;
7322: --
7323: hr_utility.set_location('l_prtt_enrt_rslt_id: '||l_prtt_enrt_rslt_id,1);
7324: hr_utility.set_location('l_enrt_cvg_strt_dt: '||l_enrt_cvg_strt_dt,1);
7325: hr_utility.set_location('p_prtt_enrt_rslt_id: '||p_prtt_enrt_rslt_id,1);
7326: hr_utility.set_location('p_elig_per_elctbl_chc_id: '||p_elig_per_elctbl_chc_id,1);
7327: hr_utility.set_location('p_called_from sspnd: '||p_called_from_sspnd,1);
7328: hr_utility.set_location('l_prtt_enrt_interim_id : '||l_prtt_enrt_interim_id,1);
7321: close c_prev_pil;
7322: --
7323: hr_utility.set_location('l_prtt_enrt_rslt_id: '||l_prtt_enrt_rslt_id,1);
7324: hr_utility.set_location('l_enrt_cvg_strt_dt: '||l_enrt_cvg_strt_dt,1);
7325: hr_utility.set_location('p_prtt_enrt_rslt_id: '||p_prtt_enrt_rslt_id,1);
7326: hr_utility.set_location('p_elig_per_elctbl_chc_id: '||p_elig_per_elctbl_chc_id,1);
7327: hr_utility.set_location('p_called_from sspnd: '||p_called_from_sspnd,1);
7328: hr_utility.set_location('l_prtt_enrt_interim_id : '||l_prtt_enrt_interim_id,1);
7329: hr_utility.set_location('l_curr_enrt_cvg_strt_dt: '||l_curr_enrt_cvg_strt_dt,2);
7322: --
7323: hr_utility.set_location('l_prtt_enrt_rslt_id: '||l_prtt_enrt_rslt_id,1);
7324: hr_utility.set_location('l_enrt_cvg_strt_dt: '||l_enrt_cvg_strt_dt,1);
7325: hr_utility.set_location('p_prtt_enrt_rslt_id: '||p_prtt_enrt_rslt_id,1);
7326: hr_utility.set_location('p_elig_per_elctbl_chc_id: '||p_elig_per_elctbl_chc_id,1);
7327: hr_utility.set_location('p_called_from sspnd: '||p_called_from_sspnd,1);
7328: hr_utility.set_location('l_prtt_enrt_interim_id : '||l_prtt_enrt_interim_id,1);
7329: hr_utility.set_location('l_curr_enrt_cvg_strt_dt: '||l_curr_enrt_cvg_strt_dt,2);
7330: ------Bug 8596122
7323: hr_utility.set_location('l_prtt_enrt_rslt_id: '||l_prtt_enrt_rslt_id,1);
7324: hr_utility.set_location('l_enrt_cvg_strt_dt: '||l_enrt_cvg_strt_dt,1);
7325: hr_utility.set_location('p_prtt_enrt_rslt_id: '||p_prtt_enrt_rslt_id,1);
7326: hr_utility.set_location('p_elig_per_elctbl_chc_id: '||p_elig_per_elctbl_chc_id,1);
7327: hr_utility.set_location('p_called_from sspnd: '||p_called_from_sspnd,1);
7328: hr_utility.set_location('l_prtt_enrt_interim_id : '||l_prtt_enrt_interim_id,1);
7329: hr_utility.set_location('l_curr_enrt_cvg_strt_dt: '||l_curr_enrt_cvg_strt_dt,2);
7330: ------Bug 8596122
7331: ben_PRTT_ENRT_RESULT_api.create_enrollment
7324: hr_utility.set_location('l_enrt_cvg_strt_dt: '||l_enrt_cvg_strt_dt,1);
7325: hr_utility.set_location('p_prtt_enrt_rslt_id: '||p_prtt_enrt_rslt_id,1);
7326: hr_utility.set_location('p_elig_per_elctbl_chc_id: '||p_elig_per_elctbl_chc_id,1);
7327: hr_utility.set_location('p_called_from sspnd: '||p_called_from_sspnd,1);
7328: hr_utility.set_location('l_prtt_enrt_interim_id : '||l_prtt_enrt_interim_id,1);
7329: hr_utility.set_location('l_curr_enrt_cvg_strt_dt: '||l_curr_enrt_cvg_strt_dt,2);
7330: ------Bug 8596122
7331: ben_PRTT_ENRT_RESULT_api.create_enrollment
7332: (p_prtt_enrt_rslt_id => l_prtt_enrt_rslt_id
7325: hr_utility.set_location('p_prtt_enrt_rslt_id: '||p_prtt_enrt_rslt_id,1);
7326: hr_utility.set_location('p_elig_per_elctbl_chc_id: '||p_elig_per_elctbl_chc_id,1);
7327: hr_utility.set_location('p_called_from sspnd: '||p_called_from_sspnd,1);
7328: hr_utility.set_location('l_prtt_enrt_interim_id : '||l_prtt_enrt_interim_id,1);
7329: hr_utility.set_location('l_curr_enrt_cvg_strt_dt: '||l_curr_enrt_cvg_strt_dt,2);
7330: ------Bug 8596122
7331: ben_PRTT_ENRT_RESULT_api.create_enrollment
7332: (p_prtt_enrt_rslt_id => l_prtt_enrt_rslt_id
7333: ,P_prtt_enrt_rslt_id_o => p_prtt_enrt_rslt_id
7411: ,p_enrt_bnft_id => p_enrt_bnft_id
7412: ,p_source => 'benelinf'
7413: );
7414: if g_debug then
7415: hr_utility.set_location( 'l_global_epe_rec.erlst_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,1233);
7416: hr_utility.set_location( 'l_global_epe_rec.per_in_ler_id'||l_global_epe_rec.per_in_ler_id,1233);
7417: hr_utility.set_location( 'l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,1233);
7418: hr_utility.set_location( 'p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,1233);
7419: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1233);
7412: ,p_source => 'benelinf'
7413: );
7414: if g_debug then
7415: hr_utility.set_location( 'l_global_epe_rec.erlst_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,1233);
7416: hr_utility.set_location( 'l_global_epe_rec.per_in_ler_id'||l_global_epe_rec.per_in_ler_id,1233);
7417: hr_utility.set_location( 'l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,1233);
7418: hr_utility.set_location( 'p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,1233);
7419: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1233);
7420: hr_utility.set_location( 'p_effective_date '||p_effective_date,1233);
7413: );
7414: if g_debug then
7415: hr_utility.set_location( 'l_global_epe_rec.erlst_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,1233);
7416: hr_utility.set_location( 'l_global_epe_rec.per_in_ler_id'||l_global_epe_rec.per_in_ler_id,1233);
7417: hr_utility.set_location( 'l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,1233);
7418: hr_utility.set_location( 'p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,1233);
7419: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1233);
7420: hr_utility.set_location( 'p_effective_date '||p_effective_date,1233);
7421: end if;
7414: if g_debug then
7415: hr_utility.set_location( 'l_global_epe_rec.erlst_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,1233);
7416: hr_utility.set_location( 'l_global_epe_rec.per_in_ler_id'||l_global_epe_rec.per_in_ler_id,1233);
7417: hr_utility.set_location( 'l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,1233);
7418: hr_utility.set_location( 'p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,1233);
7419: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1233);
7420: hr_utility.set_location( 'p_effective_date '||p_effective_date,1233);
7421: end if;
7422: --
7415: hr_utility.set_location( 'l_global_epe_rec.erlst_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,1233);
7416: hr_utility.set_location( 'l_global_epe_rec.per_in_ler_id'||l_global_epe_rec.per_in_ler_id,1233);
7417: hr_utility.set_location( 'l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,1233);
7418: hr_utility.set_location( 'p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,1233);
7419: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1233);
7420: hr_utility.set_location( 'p_effective_date '||p_effective_date,1233);
7421: end if;
7422: --
7423: -- write to the change event log. thayden. such a mess!
7416: hr_utility.set_location( 'l_global_epe_rec.per_in_ler_id'||l_global_epe_rec.per_in_ler_id,1233);
7417: hr_utility.set_location( 'l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,1233);
7418: hr_utility.set_location( 'p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,1233);
7419: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1233);
7420: hr_utility.set_location( 'p_effective_date '||p_effective_date,1233);
7421: end if;
7422: --
7423: -- write to the change event log. thayden. such a mess!
7424: --
7482: --
7483: end if;
7484: --
7485: if g_debug then
7486: hr_utility.set_location(l_proc, 330);
7487: end if;
7488: --
7489: if p_prtt_enrt_rslt_id is not null -- and
7490: -- l_use_new_result=false then
7494: --
7495: -- If the old enrollment is now the interim coverage
7496: -- then don't end it, leave it be.
7497: --
7498: hr_utility.set_location('ben_sspndd_enrollment.g_sspnded_rslt_id ' || ben_sspndd_enrollment.g_sspnded_rslt_id, 1212);
7499: hr_utility.set_location('l_prtt_enrt_interim_id ' || l_prtt_enrt_interim_id, 1212);
7500: hr_utility.set_location('p_prtt_enrt_rslt_id ' || p_prtt_enrt_rslt_id, 1212);
7501: if (l_prtt_enrt_interim_id is null or
7502: l_prtt_enrt_interim_id <> p_prtt_enrt_rslt_id)
7495: -- If the old enrollment is now the interim coverage
7496: -- then don't end it, leave it be.
7497: --
7498: hr_utility.set_location('ben_sspndd_enrollment.g_sspnded_rslt_id ' || ben_sspndd_enrollment.g_sspnded_rslt_id, 1212);
7499: hr_utility.set_location('l_prtt_enrt_interim_id ' || l_prtt_enrt_interim_id, 1212);
7500: hr_utility.set_location('p_prtt_enrt_rslt_id ' || p_prtt_enrt_rslt_id, 1212);
7501: if (l_prtt_enrt_interim_id is null or
7502: l_prtt_enrt_interim_id <> p_prtt_enrt_rslt_id)
7503: -- 6337803
7496: -- then don't end it, leave it be.
7497: --
7498: hr_utility.set_location('ben_sspndd_enrollment.g_sspnded_rslt_id ' || ben_sspndd_enrollment.g_sspnded_rslt_id, 1212);
7499: hr_utility.set_location('l_prtt_enrt_interim_id ' || l_prtt_enrt_interim_id, 1212);
7500: hr_utility.set_location('p_prtt_enrt_rslt_id ' || p_prtt_enrt_rslt_id, 1212);
7501: if (l_prtt_enrt_interim_id is null or
7502: l_prtt_enrt_interim_id <> p_prtt_enrt_rslt_id)
7503: -- 6337803
7504: and p_prtt_enrt_rslt_id <> nvl(ben_sspndd_enrollment.g_sspnded_rslt_id,-1)
7506: --
7507: -- deenrol
7508: --
7509: if g_debug then
7510: hr_utility.set_location(l_proc, 115);
7511: end if;
7512: if g_debug then
7513: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1234);
7514: end if;
7509: if g_debug then
7510: hr_utility.set_location(l_proc, 115);
7511: end if;
7512: if g_debug then
7513: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1234);
7514: end if;
7515: if g_debug then
7516: hr_utility.set_location( 'p_effective_date '||p_effective_date,1234);
7517: end if;
7512: if g_debug then
7513: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1234);
7514: end if;
7515: if g_debug then
7516: hr_utility.set_location( 'p_effective_date '||p_effective_date,1234);
7517: end if;
7518: -- Bug 2627078 fixes
7519: -- Don't try to delete if the result is already got deleted by the earlier
7520: -- process.
7541: -- when the plan replcaed the dele_enroll might have reset the fonm flag
7542: ben_manage_life_events.fonm := l_fonm_flag ;
7543: ben_manage_life_events.g_fonm_cvg_strt_dt := l_fonm_cvg_strt_dt;
7544:
7545: hr_utility.set_location (' aftr del_enrl FONM ' || ben_manage_life_events.fonm , 99 ) ;
7546: hr_utility.set_location (' FONM CVG ' || ben_manage_life_events.g_fonm_cvg_strt_dt , 99 ) ;
7547:
7548:
7549: end if;
7542: ben_manage_life_events.fonm := l_fonm_flag ;
7543: ben_manage_life_events.g_fonm_cvg_strt_dt := l_fonm_cvg_strt_dt;
7544:
7545: hr_utility.set_location (' aftr del_enrl FONM ' || ben_manage_life_events.fonm , 99 ) ;
7546: hr_utility.set_location (' FONM CVG ' || ben_manage_life_events.g_fonm_cvg_strt_dt , 99 ) ;
7547:
7548:
7549: end if;
7550: --
7549: end if;
7550: --
7551: close c_pen_exists ;
7552: if g_debug then
7553: hr_utility.set_location(l_proc, 109);
7554: end if;
7555: end if;
7556: if g_debug then
7557: hr_utility.set_location(l_proc, 110);
7553: hr_utility.set_location(l_proc, 109);
7554: end if;
7555: end if;
7556: if g_debug then
7557: hr_utility.set_location(l_proc, 110);
7558: end if;
7559: -- 6337803 unsetting the pen id to be suspended
7560: ben_sspndd_enrollment.g_sspnded_rslt_id := null;
7561: --
7565: --
7566: p_object_version_number:=l_object_version_number;
7567: end if;
7568: if g_debug then
7569: hr_utility.set_location(l_proc, 340);
7570: end if;
7571:
7572: p_prtt_enrt_rslt_id:=l_prtt_enrt_rslt_id;
7573:
7581: end if;
7582:
7583: -- update benefit fk in enrt_bnft
7584: if g_debug then
7585: hr_utility.set_location(l_proc, 342);
7586: end if;
7587: manage_enrt_bnft(
7588: p_enrt_bnft_id => p_enrt_bnft_id,
7589: p_effective_date => p_effective_date,
7594: p_creation_date => null,
7595: p_created_by => null
7596: );
7597: if g_debug then
7598: hr_utility.set_location(l_proc, 346);
7599: end if;
7600:
7601: -- process all rates
7602:
7601: -- process all rates
7602:
7603: if p_enrt_rt_id1 is not null then
7604: if g_debug then
7605: hr_utility.set_location(l_proc, 350);
7606: end if;
7607: election_rate_information(
7608: p_enrt_mthd_cd => p_enrt_mthd_cd,
7609: p_effective_date => p_effective_date,
7628: p_prv_rt_val => l_dummy_number,
7629: p_prv_ann_rt_val => l_dummy_number,
7630: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7631: if g_debug then
7632: hr_utility.set_location(l_proc, 360);
7633: end if;
7634: end if;
7635:
7636: if g_debug then
7633: end if;
7634: end if;
7635:
7636: if g_debug then
7637: hr_utility.set_location(l_proc, 370);
7638: end if;
7639:
7640: if p_enrt_rt_id2 is not null then
7641: if g_debug then
7638: end if;
7639:
7640: if p_enrt_rt_id2 is not null then
7641: if g_debug then
7642: hr_utility.set_location(l_proc, 380);
7643: end if;
7644: election_rate_information(
7645: p_enrt_mthd_cd => p_enrt_mthd_cd,
7646: p_effective_date => p_effective_date,
7665: p_prv_rt_val => l_dummy_number,
7666: p_prv_ann_rt_val => l_dummy_number,
7667: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7668: if g_debug then
7669: hr_utility.set_location(l_proc, 390);
7670: end if;
7671: end if;
7672: if g_debug then
7673: hr_utility.set_location(l_proc, 395);
7669: hr_utility.set_location(l_proc, 390);
7670: end if;
7671: end if;
7672: if g_debug then
7673: hr_utility.set_location(l_proc, 395);
7674: end if;
7675:
7676:
7677: if p_enrt_rt_id3 is not null then
7675:
7676:
7677: if p_enrt_rt_id3 is not null then
7678: if g_debug then
7679: hr_utility.set_location(l_proc, 400);
7680: end if;
7681: election_rate_information(
7682: p_enrt_mthd_cd => p_enrt_mthd_cd,
7683: p_effective_date => p_effective_date,
7702: p_prv_rt_val => l_dummy_number,
7703: p_prv_ann_rt_val => l_dummy_number,
7704: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7705: if g_debug then
7706: hr_utility.set_location(l_proc, 410);
7707: end if;
7708: end if;
7709: if g_debug then
7710: hr_utility.set_location(l_proc, 420);
7706: hr_utility.set_location(l_proc, 410);
7707: end if;
7708: end if;
7709: if g_debug then
7710: hr_utility.set_location(l_proc, 420);
7711: end if;
7712:
7713:
7714: if p_enrt_rt_id4 is not null then
7712:
7713:
7714: if p_enrt_rt_id4 is not null then
7715: if g_debug then
7716: hr_utility.set_location(l_proc, 430);
7717: end if;
7718: election_rate_information(
7719: p_enrt_mthd_cd => p_enrt_mthd_cd,
7720: p_effective_date => p_effective_date,
7739: p_prv_rt_val => l_dummy_number,
7740: p_prv_ann_rt_val => l_dummy_number,
7741: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7742: if g_debug then
7743: hr_utility.set_location(l_proc, 440);
7744: end if;
7745: end if;
7746: if g_debug then
7747: hr_utility.set_location(l_proc, 450);
7743: hr_utility.set_location(l_proc, 440);
7744: end if;
7745: end if;
7746: if g_debug then
7747: hr_utility.set_location(l_proc, 450);
7748: end if;
7749:
7750:
7751: if p_enrt_rt_id5 is not null then
7749:
7750:
7751: if p_enrt_rt_id5 is not null then
7752: if g_debug then
7753: hr_utility.set_location(l_proc, 460);
7754: end if;
7755: election_rate_information(
7756: p_enrt_mthd_cd => p_enrt_mthd_cd,
7757: p_effective_date => p_effective_date,
7776: p_prv_rt_val => l_dummy_number,
7777: p_prv_ann_rt_val => l_dummy_number,
7778: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7779: if g_debug then
7780: hr_utility.set_location(l_proc, 470);
7781: end if;
7782: end if;
7783: if g_debug then
7784: hr_utility.set_location(l_proc, 480);
7780: hr_utility.set_location(l_proc, 470);
7781: end if;
7782: end if;
7783: if g_debug then
7784: hr_utility.set_location(l_proc, 480);
7785: end if;
7786:
7787:
7788: if p_enrt_rt_id6 is not null then
7786:
7787:
7788: if p_enrt_rt_id6 is not null then
7789: if g_debug then
7790: hr_utility.set_location(l_proc, 490);
7791: end if;
7792: election_rate_information(
7793: p_enrt_mthd_cd => p_enrt_mthd_cd,
7794: p_effective_date => p_effective_date,
7813: p_prv_rt_val => l_dummy_number,
7814: p_prv_ann_rt_val => l_dummy_number,
7815: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7816: if g_debug then
7817: hr_utility.set_location(l_proc, 500);
7818: end if;
7819: end if;
7820: if g_debug then
7821: hr_utility.set_location(l_proc, 510);
7817: hr_utility.set_location(l_proc, 500);
7818: end if;
7819: end if;
7820: if g_debug then
7821: hr_utility.set_location(l_proc, 510);
7822: end if;
7823:
7824:
7825: if p_enrt_rt_id7 is not null then
7823:
7824:
7825: if p_enrt_rt_id7 is not null then
7826: if g_debug then
7827: hr_utility.set_location(l_proc, 520);
7828: end if;
7829: election_rate_information(
7830: p_enrt_mthd_cd => p_enrt_mthd_cd,
7831: p_effective_date => p_effective_date,
7850: p_prv_rt_val => l_dummy_number,
7851: p_prv_ann_rt_val => l_dummy_number,
7852: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7853: if g_debug then
7854: hr_utility.set_location(l_proc, 530);
7855: end if;
7856: end if;
7857: if g_debug then
7858: hr_utility.set_location(l_proc, 540);
7854: hr_utility.set_location(l_proc, 530);
7855: end if;
7856: end if;
7857: if g_debug then
7858: hr_utility.set_location(l_proc, 540);
7859: end if;
7860:
7861:
7862: if p_enrt_rt_id8 is not null then
7860:
7861:
7862: if p_enrt_rt_id8 is not null then
7863: if g_debug then
7864: hr_utility.set_location(l_proc, 550);
7865: end if;
7866: election_rate_information(
7867: p_enrt_mthd_cd => p_enrt_mthd_cd,
7868: p_effective_date => p_effective_date,
7887: p_prv_rt_val => l_dummy_number,
7888: p_prv_ann_rt_val => l_dummy_number,
7889: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7890: if g_debug then
7891: hr_utility.set_location(l_proc, 560);
7892: end if;
7893: end if;
7894: if g_debug then
7895: hr_utility.set_location(l_proc, 570);
7891: hr_utility.set_location(l_proc, 560);
7892: end if;
7893: end if;
7894: if g_debug then
7895: hr_utility.set_location(l_proc, 570);
7896: end if;
7897:
7898:
7899: if p_enrt_rt_id9 is not null then
7897:
7898:
7899: if p_enrt_rt_id9 is not null then
7900: if g_debug then
7901: hr_utility.set_location(l_proc, 580);
7902: end if;
7903: election_rate_information(
7904: p_enrt_mthd_cd => p_enrt_mthd_cd,
7905: p_effective_date => p_effective_date,
7924: p_prv_rt_val => l_dummy_number,
7925: p_prv_ann_rt_val => l_dummy_number,
7926: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7927: if g_debug then
7928: hr_utility.set_location(l_proc, 590);
7929: end if;
7930: end if;
7931: if g_debug then
7932: hr_utility.set_location(l_proc, 600);
7928: hr_utility.set_location(l_proc, 590);
7929: end if;
7930: end if;
7931: if g_debug then
7932: hr_utility.set_location(l_proc, 600);
7933: end if;
7934:
7935:
7936: if p_enrt_rt_id10 is not null then
7934:
7935:
7936: if p_enrt_rt_id10 is not null then
7937: if g_debug then
7938: hr_utility.set_location(l_proc, 610);
7939: end if;
7940: election_rate_information(
7941: p_enrt_mthd_cd => p_enrt_mthd_cd,
7942: p_effective_date => p_effective_date,
7961: p_prv_rt_val => l_dummy_number,
7962: p_prv_ann_rt_val => l_dummy_number,
7963: p_imp_cvg_strt_dt => p_imp_cvg_strt_dt); -- 8716870
7964: if g_debug then
7965: hr_utility.set_location(l_proc, 620);
7966: end if;
7967: end if;
7968: --
7969: -- If the coverage through date has been passed in, it means we have to update
8022: raise hr_api.validate_enabled;
8023: end if;
8024:
8025: if g_debug then
8026: hr_utility.set_location('Leaving:'||l_proc, 999);
8027: end if;
8028:
8029: exception
8030: --
8047: p_prtt_enrt_interim_id:=null;
8048: ben_sspndd_enrollment.g_use_new_result :=false ; -- bug 5653168
8049:
8050: if g_debug then
8051: hr_utility.set_location(' Leaving:'||l_proc, 80);
8052: end if;
8053: --
8054: when others then
8055: --
8099: and pil.per_in_ler_id=epe.per_in_ler_id
8100: and pil.per_in_ler_stat_cd not in ('VOIDD','BCKDT')
8101: and pil.per_in_ler_id = p_per_in_ler_id ;
8102: BEGIN
8103: g_debug := hr_utility.debug_enabled;
8104: if g_debug then
8105: l_proc := g_package||'manage_enrt_bnft';
8106: hr_utility.set_location('Entering:'||l_proc, 5);
8107: end if;
8102: BEGIN
8103: g_debug := hr_utility.debug_enabled;
8104: if g_debug then
8105: l_proc := g_package||'manage_enrt_bnft';
8106: hr_utility.set_location('Entering:'||l_proc, 5);
8107: end if;
8108: if g_debug then
8109: hr_utility.set_location(' bnft:'|| to_char(p_enrt_bnft_id), 5);
8110: end if;
8105: l_proc := g_package||'manage_enrt_bnft';
8106: hr_utility.set_location('Entering:'||l_proc, 5);
8107: end if;
8108: if g_debug then
8109: hr_utility.set_location(' bnft:'|| to_char(p_enrt_bnft_id), 5);
8110: end if;
8111: if g_debug then
8112: hr_utility.set_location(' rslt:'|| to_char(p_prtt_enrt_rslt_id), 15);
8113: end if;
8108: if g_debug then
8109: hr_utility.set_location(' bnft:'|| to_char(p_enrt_bnft_id), 5);
8110: end if;
8111: if g_debug then
8112: hr_utility.set_location(' rslt:'|| to_char(p_prtt_enrt_rslt_id), 15);
8113: end if;
8114: if g_debug then
8115: hr_utility.set_location(' enb_ovn:'|| to_char(p_object_version_number), 15);
8116: end if;
8111: if g_debug then
8112: hr_utility.set_location(' rslt:'|| to_char(p_prtt_enrt_rslt_id), 15);
8113: end if;
8114: if g_debug then
8115: hr_utility.set_location(' enb_ovn:'|| to_char(p_object_version_number), 15);
8116: end if;
8117:
8118: for rec in c1 loop
8119: if g_debug then
8116: end if;
8117:
8118: for rec in c1 loop
8119: if g_debug then
8120: hr_utility.set_location(l_proc, 10);
8121: end if;
8122: -- Update any enrollment benefit records that may have had the result id
8123: -- on them from previous enrollments. Set rslt id = null.
8124: ben_enrt_bnft_api.update_enrt_bnft
8132: ,p_request_id =>fnd_global.conc_request_id
8133: ,p_program_update_date =>sysdate
8134: );
8135: if g_debug then
8136: hr_utility.set_location(l_proc, 15);
8137: end if;
8138: end loop;
8139: if g_debug then
8140: hr_utility.set_location(l_proc, 20);
8136: hr_utility.set_location(l_proc, 15);
8137: end if;
8138: end loop;
8139: if g_debug then
8140: hr_utility.set_location(l_proc, 20);
8141: end if;
8142:
8143: -- need this for the new enrolment
8144:
8143: -- need this for the new enrolment
8144:
8145: if (p_enrt_bnft_id is not NULL) then
8146: if g_debug then
8147: hr_utility.set_location(l_proc, 30);
8148: end if;
8149: ben_enrt_bnft_api.update_enrt_bnft
8150: (p_enrt_bnft_id => p_enrt_bnft_id
8151: ,p_effective_date => p_effective_date
8157: ,p_request_id => fnd_global.conc_request_id
8158: ,p_program_update_date => sysdate
8159: );
8160: if g_debug then
8161: hr_utility.set_location(l_proc, 40);
8162: end if;
8163: end if;
8164: if g_debug then
8165: hr_utility.set_location('Leaving:'||l_proc, 99);
8161: hr_utility.set_location(l_proc, 40);
8162: end if;
8163: end if;
8164: if g_debug then
8165: hr_utility.set_location('Leaving:'||l_proc, 99);
8166: end if;
8167: END MANAGE_ENRT_BNFT;
8168: --
8169: --
8219: l_trace_param := null;
8220: l_trace_on := false;
8221: --
8222: fnd_msg_pub.initialize;
8223: -- hr_utility.trace_on(null,'BENELINF');
8224:
8225: l_trace_param := fnd_profile.value('BEN_SS_TRACE_VALUE');
8226:
8227: --
8231: l_trace_on := false;
8232: end if;
8233: --
8234: if l_trace_on then
8235: hr_utility.trace_on(null,'BENELINF');
8236: end if;
8237: --
8238: hr_utility.set_location('Entering:'||l_proc, 5);
8239: hr_utility.set_location('l_trace_param : '|| l_trace_param, 5);
8234: if l_trace_on then
8235: hr_utility.trace_on(null,'BENELINF');
8236: end if;
8237: --
8238: hr_utility.set_location('Entering:'||l_proc, 5);
8239: hr_utility.set_location('l_trace_param : '|| l_trace_param, 5);
8240: --
8241: if p_effective_date is not null then
8242: -- l_effective_date := to_date(p_effective_date, 'YYYY/MM/DD');
8235: hr_utility.trace_on(null,'BENELINF');
8236: end if;
8237: --
8238: hr_utility.set_location('Entering:'||l_proc, 5);
8239: hr_utility.set_location('l_trace_param : '|| l_trace_param, 5);
8240: --
8241: if p_effective_date is not null then
8242: -- l_effective_date := to_date(p_effective_date, 'YYYY/MM/DD');
8243: l_effective_date := p_effective_date;
8287: ELSE
8288: p_return_status :='S';
8289: END IF;
8290: --
8291: hr_utility.set_location('Leaving:'||l_proc, 10);
8292: --
8293: if l_trace_on then
8294: hr_utility.trace_off;
8295: l_trace_param := null;
8290: --
8291: hr_utility.set_location('Leaving:'||l_proc, 10);
8292: --
8293: if l_trace_on then
8294: hr_utility.trace_off;
8295: l_trace_param := null;
8296: l_trace_on := false;
8297: end if;
8298: --
8303: fnd_msg_pub.add;
8304: --Bug 4436578
8305: ben_det_enrt_rates.clear_globals;
8306: if l_trace_on then
8307: hr_utility.trace_off;
8308: l_trace_on := false;
8309: l_trace_param := null;
8310: end if;
8311: when others then
8315: fnd_message.set_token('2',substr(sqlerrm,1,200));
8316: fnd_msg_pub.add;
8317: ben_det_enrt_rates.clear_globals;
8318: if l_trace_on then
8319: hr_utility.trace_off;
8320: l_trace_on := false;
8321: l_trace_param := null;
8322: end if;
8323: end election_information_w;
8435: l_proc varchar2(60) := 'ben_election_information.election_information_w inner';
8436: --
8437: begin
8438: --
8439: hr_utility.set_location('Entering : '||l_proc, 10);
8440: p_api_error := false;
8441: --
8442: -- 4543745
8443: --
8445: fetch c_elinf into l_elinf;
8446: close c_elinf;
8447:
8448: if (l_elinf.crntly_enrd_flag = 'Y' and l_elinf.elctbl_flag = 'N' and l_elinf.mndtry_flag = 'N') then
8449: hr_utility.set_location('Returning without calling election_information for cannot change enrollment', 80.1);
8450: return;
8451: end if;
8452:
8453: if p_validate = 'Y' then
8637: ,p_dpnt_actn_warning => l_dpnt_actn_warning
8638: ,p_bnf_actn_warning => l_bnf_actn_warning
8639: ,p_ctfn_actn_warning => l_ctfn_actn_warning);
8640:
8641: hr_utility.set_location('Leaving:'||l_proc, 20);
8642: --
8643: end election_information_w;
8644:
8645: end ben_election_information;