[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
543: -------------------------------------------------------------------------------
544: --
545: -- Package Variables
546: --
547: g_debug boolean := hr_utility.debug_enabled;
548: g_package varchar2(80):='ben_election_information.';
549: -- ---------------------------------------------------------------------------
550: -- |----------------------------< calc_rt_ann_rt_vals >---------------------|
551: -- Bug: 5584813 this is a private procedure that calculates the rate values --
575:
576: --END GEVITY
577: l_proc varchar2(72) := g_package||'calc_rt_ann_rt_vals';
578: BEGIN
579: hr_utility.set_location('Entering: '||l_proc, 10);
580: IF p_entr_ann_val_flag = 'Y'
581: THEN
582: -- Enter Annual Value
583: IF p_rate_periodization_rl IS NOT NULL
675:
676: p_ann_rt_val := l_compute_val;
677: --
678: END IF;
679: hr_utility.set_location('Leaving: '||l_proc, 10);
680: END calc_rt_ann_rt_vals;
681:
682:
683: -- ---------------------------------------------------------------------------
789: l_proc varchar2(72) ;
790: l_element_type_id number;
791:
792: begin
793: g_debug := hr_utility.debug_enabled;
794: if g_debug then
795: l_proc := g_package||'handle_overlap_rates';
796: hr_utility.set_location('Entering:'|| l_proc, 10);
797: end if;
792: begin
793: g_debug := hr_utility.debug_enabled;
794: if g_debug then
795: l_proc := g_package||'handle_overlap_rates';
796: hr_utility.set_location('Entering:'|| l_proc, 10);
797: end if;
798:
799: l_element_type_id := p_element_type_id;
800: if l_element_type_id is null then
814: exit;
815: end if;
816:
817: if g_debug then
818: hr_utility.set_location('future prv='||l_future_prv.prtt_rt_val_id,15);
819: end if;
820:
821: if fnd_global.conc_request_id in ( 0,-1) then
822: --
875: fetch c_current_prv into l_current_prv;
876: close c_current_prv;
877:
878: if g_debug then
879: hr_utility.set_location('curr prv='||l_current_prv.prtt_rt_val_id,15);
880: end if;
881:
882: if l_current_prv.rt_end_dt <> hr_api.g_eot then
883: --
896: end loop;
897: close c_future_prv ;
898:
899: if g_debug then
900: hr_utility.set_location(' Leaving:'||l_proc, 20);
901: end if;
902:
903: end handle_overlap_rates;
904: --
1464: l_ann_rt_val_param number; --|
1465: --
1466: begin
1467:
1468: g_debug := hr_utility.debug_enabled;
1469: if g_debug then
1470: hr_utility.set_location('Entering:'||l_proc, 5);
1471: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1472: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1466: begin
1467:
1468: g_debug := hr_utility.debug_enabled;
1469: if g_debug then
1470: hr_utility.set_location('Entering:'||l_proc, 5);
1471: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1472: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1473: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,5);
1474: end if;
1467:
1468: g_debug := hr_utility.debug_enabled;
1469: if g_debug then
1470: hr_utility.set_location('Entering:'||l_proc, 5);
1471: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1472: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1473: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,5);
1474: end if;
1475: --
1468: g_debug := hr_utility.debug_enabled;
1469: if g_debug then
1470: hr_utility.set_location('Entering:'||l_proc, 5);
1471: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1472: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1473: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,5);
1474: end if;
1475: --
1476: ben_global_enrt.get_pil -- per in ler
1469: if g_debug then
1470: hr_utility.set_location('Entering:'||l_proc, 5);
1471: hr_utility.set_location('enrt_rt:'||p_enrt_rt_id, 5);
1472: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id,5);
1473: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,5);
1474: end if;
1475: --
1476: ben_global_enrt.get_pil -- per in ler
1477: (p_per_in_ler_id => p_per_in_ler_id
1511: end if;
1512: --
1513: if p_bnft_amt_changed then
1514: if g_debug then
1515: hr_utility.set_location('p_bnft_amt changed:',5);
1516: end if;
1517: end if;
1518: --
1519: ben_det_enrt_rates.set_global_enrt_rt
1531: fnd_message.set_token('PROC',l_proc);
1532: fnd_message.set_token('ENRT_RT_ID',to_char(p_enrt_rt_id));
1533: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
1534: if g_debug then
1535: hr_utility.set_location('BEN_91825_ENRT_RT_NOT_FOUND', 20);
1536: end if;
1537: fnd_message.raise_error;
1538: end if; -- notfound
1539: close c_enrt_rt;
1543: l_effective_date := nvl(ben_manage_life_events.g_fonm_rt_strt_dt,l_effective_date);
1544: end if;
1545:
1546: if g_debug then
1547: hr_utility.set_location(l_proc, 30);
1548: end if;
1549: --
1550: -- bug fix 3457483
1551: --
1591: end if;
1592: --
1593: -- Get data from old rate
1594: --
1595: hr_utility.set_location(' BKKKK l_enrt_rt.prtt_rt_val_id ' || l_enrt_rt.prtt_rt_val_id, 300);
1596: hr_utility.set_location(' BKKKK p_enrt_rt_id ' || p_enrt_rt_id, 300);
1597: hr_utility.set_location(' BKKKK p_business_group_id ' || p_business_group_id, 300);
1598: hr_utility.set_location(' BKKKK l_enrt_rt.elig_per_elctbl_chc_id ' || l_enrt_rt.elig_per_elctbl_chc_id, 300);
1599: --
1592: --
1593: -- Get data from old rate
1594: --
1595: hr_utility.set_location(' BKKKK l_enrt_rt.prtt_rt_val_id ' || l_enrt_rt.prtt_rt_val_id, 300);
1596: hr_utility.set_location(' BKKKK p_enrt_rt_id ' || p_enrt_rt_id, 300);
1597: hr_utility.set_location(' BKKKK p_business_group_id ' || p_business_group_id, 300);
1598: hr_utility.set_location(' BKKKK l_enrt_rt.elig_per_elctbl_chc_id ' || l_enrt_rt.elig_per_elctbl_chc_id, 300);
1599: --
1600: if l_enrt_rt.prtt_rt_val_id is not null then
1593: -- Get data from old rate
1594: --
1595: hr_utility.set_location(' BKKKK l_enrt_rt.prtt_rt_val_id ' || l_enrt_rt.prtt_rt_val_id, 300);
1596: hr_utility.set_location(' BKKKK p_enrt_rt_id ' || p_enrt_rt_id, 300);
1597: hr_utility.set_location(' BKKKK p_business_group_id ' || p_business_group_id, 300);
1598: hr_utility.set_location(' BKKKK l_enrt_rt.elig_per_elctbl_chc_id ' || l_enrt_rt.elig_per_elctbl_chc_id, 300);
1599: --
1600: if l_enrt_rt.prtt_rt_val_id is not null then
1601: -- Get data from old rate
1594: --
1595: hr_utility.set_location(' BKKKK l_enrt_rt.prtt_rt_val_id ' || l_enrt_rt.prtt_rt_val_id, 300);
1596: hr_utility.set_location(' BKKKK p_enrt_rt_id ' || p_enrt_rt_id, 300);
1597: hr_utility.set_location(' BKKKK p_business_group_id ' || p_business_group_id, 300);
1598: hr_utility.set_location(' BKKKK l_enrt_rt.elig_per_elctbl_chc_id ' || l_enrt_rt.elig_per_elctbl_chc_id, 300);
1599: --
1600: if l_enrt_rt.prtt_rt_val_id is not null then
1601: -- Get data from old rate
1602: open c_prtt_rt_val_1;
1628:
1629: if c_prtt_rt_val_1%notfound then
1630: close c_prtt_rt_val_1;
1631: if g_debug then
1632: hr_utility.set_location('BEN_92103_NO_PRTT_RT_VAL', 35);
1633: end if;
1634: fnd_message.set_name('BEN','BEN_92103_NO_PRTT_RT_VAL');
1635: fnd_message.set_token('PROC',l_proc);
1636: fnd_message.set_token('PRTT_RT_VAL_ID',to_char(l_enrt_rt.prtt_rt_val_id));
1637: fnd_message.raise_error;
1638: end if;
1639:
1640: if g_debug then
1641: hr_utility.set_location('ll_old_rt_strt_dt'||l_old_rt_strt_dt,99);
1642: hr_utility.set_location('l_old_per_in_ler_id'||l_old_per_in_ler_id,99);
1643: hr_utility.set_location('l_old_rt end date'||l_old_rt_end_dt,99);
1644: end if;
1645: close c_prtt_rt_val_1;
1638: end if;
1639:
1640: if g_debug then
1641: hr_utility.set_location('ll_old_rt_strt_dt'||l_old_rt_strt_dt,99);
1642: hr_utility.set_location('l_old_per_in_ler_id'||l_old_per_in_ler_id,99);
1643: hr_utility.set_location('l_old_rt end date'||l_old_rt_end_dt,99);
1644: end if;
1645: close c_prtt_rt_val_1;
1646: end if;
1639:
1640: if g_debug then
1641: hr_utility.set_location('ll_old_rt_strt_dt'||l_old_rt_strt_dt,99);
1642: hr_utility.set_location('l_old_per_in_ler_id'||l_old_per_in_ler_id,99);
1643: hr_utility.set_location('l_old_rt end date'||l_old_rt_end_dt,99);
1644: end if;
1645: close c_prtt_rt_val_1;
1646: end if;
1647: --
1651: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id
1652: ,p_effective_date => p_effective_date
1653: ,p_global_pen_rec => l_global_pen_rec);
1654:
1655: hr_utility.set_location('l_global_pen_rec',99);
1656: --
1657: -- determine rate start date as long as there is not an existing prtt_rt_val
1658: -- record, or if there is an exising prtt_rt_val record, that the record was
1659: -- NOT updated during this per-in-ler (bensuenr updates the rt-strt-dt).
1665: l_enrt_rt.rt_strt_dt := p_rt_strt_dt;
1666: elsif l_enrt_rt.prtt_rt_val_id is not null and
1667: l_old_per_in_ler_id = p_per_in_ler_id and
1668: l_unrestricted = 'N' then -- #5303167
1669: hr_utility.set_location('l_global_pen_rec2',99);
1670: -- check unrestricted life event
1671: -- if l_unrestricted = 'N' then #5303167 moved this condition to above elsif
1672: --
1673: -- we already have the correct prv created
1673: -- we already have the correct prv created
1674: --
1675: p_prtt_rt_val_id := l_enrt_rt.prtt_rt_val_id;
1676: if l_enrt_rt.rt_strt_dt_cd in ('FDPPFED','FDPPOED') then
1677: hr_utility.set_location('l_global_pen_rec3',99);
1678: ben_determine_date.main(
1679: p_date_cd => l_enrt_rt.rt_strt_dt_cd,
1680: p_per_in_ler_id => p_per_in_ler_id,
1681: p_person_id => p_person_id,
1698: -- end if; #5303167
1699: --
1700: elsif l_enrt_rt.rt_strt_dt_cd is not null then
1701: if g_debug then
1702: hr_utility.set_location(l_proc, 40);
1703: end if;
1704: ben_determine_date.main(
1705: p_date_cd => l_enrt_rt.rt_strt_dt_cd,
1706: p_per_in_ler_id => p_per_in_ler_id,
1722: close c_abr;
1723: --
1724: end if;
1725: if g_debug then
1726: hr_utility.set_location(l_proc, 45);
1727: end if;
1728: if (l_enrt_rt.rt_strt_dt is null) then
1729: if g_debug then
1730: hr_utility.set_location('BEN_91455_RT_STRT_DT_NOT_FOUND id:'||
1726: hr_utility.set_location(l_proc, 45);
1727: end if;
1728: if (l_enrt_rt.rt_strt_dt is null) then
1729: if g_debug then
1730: hr_utility.set_location('BEN_91455_RT_STRT_DT_NOT_FOUND id:'||
1731: to_char(p_pl_id), 50);
1732: end if;
1733: fnd_message.set_name('BEN','BEN_91455_RT_STRT_DT_NOT_FOUND');
1734: fnd_message.set_token('PROC',l_proc);
1803: end if;
1804:
1805: end if;
1806: if g_debug then
1807: hr_utility.set_location('p_prtt_rt_val_id:'||p_prtt_rt_val_id, 3);
1808: end if;
1809: --
1810: --Bug#2734491 - Child rate should behave the same way as parent
1811: --
1838: --
1839: l_ann_rt_val_param := p_ann_rt_val ;
1840: l_rt_val_param := p_rt_val ;
1841: --
1842: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
1843: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
1844: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1845: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1846: --
1839: l_ann_rt_val_param := p_ann_rt_val ;
1840: l_rt_val_param := p_rt_val ;
1841: --
1842: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
1843: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
1844: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1845: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1846: --
1847: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
1840: l_rt_val_param := p_rt_val ;
1841: --
1842: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
1843: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
1844: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1845: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1846: --
1847: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
1848: hr_utility.set_location('entr_val ->'||l_enrt_rt.entr_val_at_enrt_flag, 9);
1841: --
1842: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
1843: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
1844: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1845: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1846: --
1847: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
1848: hr_utility.set_location('entr_val ->'||l_enrt_rt.entr_val_at_enrt_flag, 9);
1849: --
1843: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
1844: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1845: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1846: --
1847: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
1848: hr_utility.set_location('entr_val ->'||l_enrt_rt.entr_val_at_enrt_flag, 9);
1849: --
1850: /*
1851: -- commented for bug: 5584813
1844: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1845: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1846: --
1847: hr_utility.set_location('entr_ann_val ->'||l_enrt_rt.entr_ann_val_flag, 9);
1848: hr_utility.set_location('entr_val ->'||l_enrt_rt.entr_val_at_enrt_flag, 9);
1849: --
1850: /*
1851: -- commented for bug: 5584813
1852: -- this code moved to a procedure calc_rt_ann_rt_vals
1966: p_entr_ann_val_flag => l_enrt_rt.entr_ann_val_flag,
1967: p_entr_val_at_enrt_flag => l_enrt_rt.entr_val_at_enrt_flag);
1968:
1969:
1970: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
1971: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
1972: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1973: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1974:
1967: p_entr_val_at_enrt_flag => l_enrt_rt.entr_val_at_enrt_flag);
1968:
1969:
1970: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
1971: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
1972: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1973: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1974:
1975: -- rajkiran
1968:
1969:
1970: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
1971: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
1972: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1973: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1974:
1975: -- rajkiran
1976:
1969:
1970: hr_utility.set_location('l_ann_rt_val_param ->'||l_ann_rt_val_param,9);
1971: hr_utility.set_location('l_rt_val_param ->'||l_rt_val_param ,9);
1972: hr_utility.set_location('p_ann_rt_val ->'||p_ann_rt_val,9);
1973: hr_utility.set_location('p_rt_val ->'||p_rt_val ,9);
1974:
1975: -- rajkiran
1976:
1977: --
2000: --
2001: if l_enrt_rt.entr_ann_val_flag = 'Y' or l_prnt_ann_rt = 'Y' then
2002: --
2003: if g_debug then
2004: hr_utility.set_location('enter annual value',100);
2005: end if;
2006: if l_rt_val_param is null then -- changed from p_rt_val to l_rt_val_param
2007: --
2008: --GEVITY
2069: --
2070: END IF; --GEVITY
2071: --
2072: if g_debug then
2073: hr_utility.set_location('IK p_rt_val is null l_rt_val '||l_rt_val,101);
2074: hr_utility.set_location('IK p_rt_val is null l_ann_rt_val: '||l_ann_rt_val,101);
2075: hr_utility.set_location('IK p_rt_val is null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2076: end if;
2077: --
2070: END IF; --GEVITY
2071: --
2072: if g_debug then
2073: hr_utility.set_location('IK p_rt_val is null l_rt_val '||l_rt_val,101);
2074: hr_utility.set_location('IK p_rt_val is null l_ann_rt_val: '||l_ann_rt_val,101);
2075: hr_utility.set_location('IK p_rt_val is null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2076: end if;
2077: --
2078: else
2071: --
2072: if g_debug then
2073: hr_utility.set_location('IK p_rt_val is null l_rt_val '||l_rt_val,101);
2074: hr_utility.set_location('IK p_rt_val is null l_ann_rt_val: '||l_ann_rt_val,101);
2075: hr_utility.set_location('IK p_rt_val is null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2076: end if;
2077: --
2078: else
2079: --this condition added if the l_rt_val is not gone throu the post enrl calc
2090: -- calculate annual rate for the child
2091: if l_prnt_ann_rt = 'Y' then
2092: --
2093: if g_debug then
2094: hr_utility.set_location('Annual value'||l_prnt_ann_val,11);
2095: end if;
2096: benutils.rt_typ_calc
2097: (p_rt_typ_cd => l_enrt_rt.abr_typ_cd
2098: ,p_val => l_enrt_rt.abr_val
2207: -- no change in payroll then dont recompute
2208: if l_period_type is null then
2209:
2210: if g_debug then
2211: hr_utility.set_location('Same Yr Period and same rate ' ,123);
2212: end if;
2213: l_sarec_compute := false ;
2214: end if;
2215: end if ;
2280: --
2281: END IF; --GEVITY
2282: --
2283: if g_debug then
2284: hr_utility.set_location('IK p_rt_val is NOT null l_rt_val '||l_rt_val,101);
2285: hr_utility.set_location('IK p_rt_val is NOT null l_ann_rt_val: '||l_ann_rt_val,101);
2286: hr_utility.set_location('IK p_rt_val is NOT null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2287: end if;
2288: --
2281: END IF; --GEVITY
2282: --
2283: if g_debug then
2284: hr_utility.set_location('IK p_rt_val is NOT null l_rt_val '||l_rt_val,101);
2285: hr_utility.set_location('IK p_rt_val is NOT null l_ann_rt_val: '||l_ann_rt_val,101);
2286: hr_utility.set_location('IK p_rt_val is NOT null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2287: end if;
2288: --
2289: else
2282: --
2283: if g_debug then
2284: hr_utility.set_location('IK p_rt_val is NOT null l_rt_val '||l_rt_val,101);
2285: hr_utility.set_location('IK p_rt_val is NOT null l_ann_rt_val: '||l_ann_rt_val,101);
2286: hr_utility.set_location('IK p_rt_val is NOT null l_enrt_rt.cmcd_val'||l_enrt_rt.cmcd_val,101);
2287: end if;
2288: --
2289: else
2290: --
2292: l_calc_ann_val := l_ann_rt_val;
2293: l_enrt_rt.cmcd_val := l_old_cmcd_rt_val ;
2294: --
2295: if g_debug then
2296: hr_utility.set_location('Continue old rate '||l_old_rt_val,123);
2297: end if;
2298: --
2299: if g_debug then
2300: hr_utility.set_location(' l_old_cmcd_rt_val '||l_old_cmcd_rt_val,123);
2296: hr_utility.set_location('Continue old rate '||l_old_rt_val,123);
2297: end if;
2298: --
2299: if g_debug then
2300: hr_utility.set_location(' l_old_cmcd_rt_val '||l_old_cmcd_rt_val,123);
2301: end if;
2302: --
2303: end if; -- l_sarec_compute
2304: --
2321: l_enrt_rt.rt_mlt_cd <> 'FLFX') or
2322: l_enrt_rt.rt_mlt_cd = 'ERL'or
2323: l_enrt_rt.cvg_mlt_cd = 'ERL' then -- ERL added for canon fix
2324: if g_debug then
2325: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2326: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2327: end if;
2328: --BUG 3804813 */
2329: --START BUG 3804813
2322: l_enrt_rt.rt_mlt_cd = 'ERL'or
2323: l_enrt_rt.cvg_mlt_cd = 'ERL' then -- ERL added for canon fix
2324: if g_debug then
2325: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2326: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2327: end if;
2328: --BUG 3804813 */
2329: --START BUG 3804813
2330: if (l_enrt_rt.entr_bnft_val_flag = 'Y' OR
2333: l_enrt_rt.cvg_mlt_cd = 'ERL') -- ERL added for canon fix
2334: and l_enrt_rt.entr_val_at_enrt_flag = 'N' then -- Bug 4710188, Calling rates pack
2335: -- rate is not enterable only when
2336: if g_debug then
2337: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2338: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 312);
2339: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2340: end if;
2341: --END BUG 3804813
2334: and l_enrt_rt.entr_val_at_enrt_flag = 'N' then -- Bug 4710188, Calling rates pack
2335: -- rate is not enterable only when
2336: if g_debug then
2337: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2338: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 312);
2339: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2340: end if;
2341: --END BUG 3804813
2342: if l_enrt_rt.enrt_bnft_id = 0 then
2335: -- rate is not enterable only when
2336: if g_debug then
2337: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 312);
2338: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 312);
2339: hr_utility.set_location( 'l_global_pen_rec.bnft_am'||l_global_pen_rec.bnft_amt ,314);
2340: end if;
2341: --END BUG 3804813
2342: if l_enrt_rt.enrt_bnft_id = 0 then
2343: l_enrt_rt.enrt_bnft_id := null;
2400: ,p_ordr_num => l_dummy_num
2401: ,p_iss_val =>l_dummy_num
2402: );
2403: if g_debug then
2404: hr_utility.set_location('l_rt_val'||to_char(l_rt_val), 312);
2405: end if;
2406:
2407: ELSE -- 5375381 :Added else part
2408: /* This is purely for Interim pen which has has same epe as of its Sspndd pen.
2421: )
2422: THEN
2423: IF g_debug
2424: THEN
2425: hr_utility.set_location ( 'p_rt_val'
2426: || TO_CHAR (p_rt_val),
2427: 555
2428: );
2429: hr_utility.set_location ( 'l_rt_val_param'
2425: hr_utility.set_location ( 'p_rt_val'
2426: || TO_CHAR (p_rt_val),
2427: 555
2428: );
2429: hr_utility.set_location ( 'l_rt_val_param'
2430: || TO_CHAR (l_rt_val_param),
2431: 555
2432: );
2433: hr_utility.set_location ( 'l_global_pen_rec.bnft_am'
2429: hr_utility.set_location ( 'l_rt_val_param'
2430: || TO_CHAR (l_rt_val_param),
2431: 555
2432: );
2433: hr_utility.set_location ( 'l_global_pen_rec.bnft_am'
2434: || l_global_pen_rec.bnft_amt,
2435: 555
2436: );
2437: END IF;
2501: );
2502:
2503: IF g_debug
2504: THEN
2505: hr_utility.set_location ( 'l_rt_val'
2506: || TO_CHAR (l_rt_val),
2507: 556
2508: );
2509: END IF;
2529: --
2530: -- bug 1480407
2531: --
2532: if g_debug then
2533: hr_utility.set_location('entr_val_At_enrt_flag '||l_enrt_rt.entr_val_At_enrt_flag ,407);
2534: hr_utility.set_location('use_calc_acty_bs_rt_flag '||l_enrt_rt.use_calc_acty_bs_rt_flag ,407);
2535: hr_utility.set_location('l_enrt_rt.rt_mlt_cd' ||l_enrt_rt.rt_mlt_cd , 407);
2536: end if;
2537: --
2530: -- bug 1480407
2531: --
2532: if g_debug then
2533: hr_utility.set_location('entr_val_At_enrt_flag '||l_enrt_rt.entr_val_At_enrt_flag ,407);
2534: hr_utility.set_location('use_calc_acty_bs_rt_flag '||l_enrt_rt.use_calc_acty_bs_rt_flag ,407);
2535: hr_utility.set_location('l_enrt_rt.rt_mlt_cd' ||l_enrt_rt.rt_mlt_cd , 407);
2536: end if;
2537: --
2538: -- tilak :Rate calclation is called either the std rate entr_val_At_enrt_flag is on and
2531: --
2532: if g_debug then
2533: hr_utility.set_location('entr_val_At_enrt_flag '||l_enrt_rt.entr_val_At_enrt_flag ,407);
2534: hr_utility.set_location('use_calc_acty_bs_rt_flag '||l_enrt_rt.use_calc_acty_bs_rt_flag ,407);
2535: hr_utility.set_location('l_enrt_rt.rt_mlt_cd' ||l_enrt_rt.rt_mlt_cd , 407);
2536: end if;
2537: --
2538: -- tilak :Rate calclation is called either the std rate entr_val_At_enrt_flag is on and
2539: -- use_calc_acty_bs_rt_flag is on for coverage and other
2553: and nvl(l_prnt_abr.use_calc_acty_bs_rt_flag,'N') = 'Y'
2554: and l_enrt_rt.rt_mlt_cd in('PRNT','PRNTANDCVG') ) then
2555:
2556: if g_debug then
2557: hr_utility.set_location(' calllign rate '||l_rt_val ,407);
2558: end if;
2559: --
2560: -- NOCOPY ISSUE
2561: l_cal_val_in := l_rt_val ;
2620: ,p_ordr_num => l_dummy_num
2621: ,p_iss_val => l_dummy_num
2622: );
2623: if g_debug then
2624: hr_utility.set_location(' rate ' ||l_rt_val,407);
2625: end if;
2626: End if ;
2627: end if;
2628: --
2687: );
2688: --
2689: END IF; --GEVITY
2690: if g_debug then
2691: hr_utility.set_location('ann val'||l_ann_rt_val||'cal ann val'||l_calc_ann_val,100);
2692: hr_utility.set_location('communicated val'||l_enrt_rt.cmcd_val,101);
2693: end if;
2694: else --mlt_cd='SAREC'
2695: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
2688: --
2689: END IF; --GEVITY
2690: if g_debug then
2691: hr_utility.set_location('ann val'||l_ann_rt_val||'cal ann val'||l_calc_ann_val,100);
2692: hr_utility.set_location('communicated val'||l_enrt_rt.cmcd_val,101);
2693: end if;
2694: else --mlt_cd='SAREC'
2695: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
2696: if g_debug then
2693: end if;
2694: else --mlt_cd='SAREC'
2695: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
2696: if g_debug then
2697: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
2698: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
2699: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
2700: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
2701: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
2694: else --mlt_cd='SAREC'
2695: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
2696: if g_debug then
2697: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
2698: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
2699: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
2700: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
2701: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
2702: end if;
2695: if l_enrt_rt.entr_bnft_val_flag = 'Y' then
2696: if g_debug then
2697: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
2698: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
2699: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
2700: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
2701: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
2702: end if;
2703: --
2696: if g_debug then
2697: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
2698: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
2699: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
2700: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
2701: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
2702: end if;
2703: --
2704: l_ann_rt_val := l_global_pen_rec.bnft_amt;
2697: hr_utility.set_location('p_rt_val'||to_char(p_rt_val), 319);
2698: hr_utility.set_location('p_ann_rt_val'||to_char(p_ann_rt_val), 319);
2699: hr_utility.set_location('l_rt_val_param'||to_char(l_rt_val_param), 319); -- 5259005
2700: hr_utility.set_location('l_ann_rt_val_param'||to_char(l_ann_rt_val_param), 319); -- 5259005
2701: hr_utility.set_location('bnft_val'||to_char(l_global_pen_rec.bnft_amt), 319);
2702: end if;
2703: --
2704: l_ann_rt_val := l_global_pen_rec.bnft_amt;
2705: -- Bug 2675486 fixes for FSA
2728: -- no change in payroll then dont recompute
2729: if l_period_type is null then
2730:
2731: if g_debug then
2732: hr_utility.set_location('Same Yr Period and same rate ' ,124);
2733: end if;
2734: l_sarec_compute := false ;
2735: end if;
2736: end if ;
2776: p_rounding_flag => 'N',
2777: p_person_id => p_person_id
2778: );
2779: if g_debug then
2780: hr_utility.set_location(' IK l_rt_val '||l_rt_val,123);
2781: end if;
2782: --
2783: -- Bug 2149438 I am doing it to 3 because right now we have 2 digit rouding for
2784: -- the final value. Once we implement the rounding completely for the
2787: --
2788: l_rt_val := round(l_rt_val,4);
2789: --
2790: if g_debug then
2791: hr_utility.set_location(' IK2 rounded l_rt_val '||l_rt_val,123);
2792: end if;
2793: /**
2794: when annual value is passed there is no need to compute the annual value
2795: from defined value - bug#2398448 and bug#2392732
2803: p_payroll_id => l_payroll_id);
2804: **/
2805: l_calc_ann_val := l_ann_rt_val;
2806: if g_debug then
2807: hr_utility.set_location('annval'||to_char(l_calc_ann_val), 319);
2808: end if;
2809: if g_debug then
2810: hr_utility.set_location('rt val'||l_rt_val, 319);
2811: end if;
2806: if g_debug then
2807: hr_utility.set_location('annval'||to_char(l_calc_ann_val), 319);
2808: end if;
2809: if g_debug then
2810: hr_utility.set_location('rt val'||l_rt_val, 319);
2811: end if;
2812: --Bug#3540351
2813: if l_rt_val < 0 then
2814: l_rt_val := 0;
2863: l_rt_val := l_old_rt_val ;
2864: l_calc_ann_val := l_ann_rt_val;
2865: l_enrt_rt.cmcd_val := l_old_cmcd_rt_val ;
2866: if g_debug then
2867: hr_utility.set_location('Continue old rate '||l_old_rt_val,123);
2868: end if;
2869: if g_debug then
2870: hr_utility.set_location(' l_old_cmcd_rt_val '||l_old_cmcd_rt_val,123);
2871: end if;
2866: if g_debug then
2867: hr_utility.set_location('Continue old rate '||l_old_rt_val,123);
2868: end if;
2869: if g_debug then
2870: hr_utility.set_location(' l_old_cmcd_rt_val '||l_old_cmcd_rt_val,123);
2871: end if;
2872: --
2873: end if ;
2874: else
2874: else
2875: -- Bug 2223694 when the coverage is not enter value at enrollment
2876: -- we are not getting the defined amount and element entries.
2877: if g_debug then
2878: hr_utility.set_location('IK l_enrt_rt.val '||l_enrt_rt.val ,99);
2879: hr_utility.set_location('IK l_enrt_rt.ann_val '||l_enrt_rt.ann_val,99);
2880: hr_utility.set_location('IK l_enrt_rt.cmcd_val '||l_enrt_rt.cmcd_val,99);
2881: end if;
2882: l_rt_val := l_enrt_rt.val ;
2875: -- Bug 2223694 when the coverage is not enter value at enrollment
2876: -- we are not getting the defined amount and element entries.
2877: if g_debug then
2878: hr_utility.set_location('IK l_enrt_rt.val '||l_enrt_rt.val ,99);
2879: hr_utility.set_location('IK l_enrt_rt.ann_val '||l_enrt_rt.ann_val,99);
2880: hr_utility.set_location('IK l_enrt_rt.cmcd_val '||l_enrt_rt.cmcd_val,99);
2881: end if;
2882: l_rt_val := l_enrt_rt.val ;
2883: l_calc_ann_val := l_enrt_rt.ann_val ;
2876: -- we are not getting the defined amount and element entries.
2877: if g_debug then
2878: hr_utility.set_location('IK l_enrt_rt.val '||l_enrt_rt.val ,99);
2879: hr_utility.set_location('IK l_enrt_rt.ann_val '||l_enrt_rt.ann_val,99);
2880: hr_utility.set_location('IK l_enrt_rt.cmcd_val '||l_enrt_rt.cmcd_val,99);
2881: end if;
2882: l_rt_val := l_enrt_rt.val ;
2883: l_calc_ann_val := l_enrt_rt.ann_val ;
2884: -- 3547233. Copy annual value to l_ann_rt_val for prtt_rt_val record.
2938: p_payroll_id => l_old_payroll_id,
2939: p_organization_id => l_old_organization_id);
2940:
2941:
2942: hr_utility.set_location('ben_element_entry.get_abr_assignment
2943: -Old Assignment Id' ||l_old_assignment_id ,101);
2944: hr_utility.set_location('ben_element_entry.get_abr_assignment
2945: -Old Payroll Id' ||l_old_payroll_id ,101);
2946: hr_utility.set_location('ben_element_entry.get_abr_assignment
2940:
2941:
2942: hr_utility.set_location('ben_element_entry.get_abr_assignment
2943: -Old Assignment Id' ||l_old_assignment_id ,101);
2944: hr_utility.set_location('ben_element_entry.get_abr_assignment
2945: -Old Payroll Id' ||l_old_payroll_id ,101);
2946: hr_utility.set_location('ben_element_entry.get_abr_assignment
2947: -Old Org Id' ||l_old_organization_id ,101);
2948:
2942: hr_utility.set_location('ben_element_entry.get_abr_assignment
2943: -Old Assignment Id' ||l_old_assignment_id ,101);
2944: hr_utility.set_location('ben_element_entry.get_abr_assignment
2945: -Old Payroll Id' ||l_old_payroll_id ,101);
2946: hr_utility.set_location('ben_element_entry.get_abr_assignment
2947: -Old Org Id' ||l_old_organization_id ,101);
2948:
2949: l_element_changed :=
2950: (l_old_element_entry_value_id is not null and
3043: --
3044: if p_prtt_rt_val_id is not null then
3045: --
3046: if g_debug then
3047: hr_utility.set_location(l_proc, 85);
3048: end if;
3049: --
3050: -- compare old and new values if changed do update
3051: --
3097: l_element_changed ) then
3098: --
3099: -- handle old rate
3100: if g_debug then
3101: hr_utility.set_location(l_proc||'In the TRUE', 1330);
3102: end if;
3103: --
3104: -- if l_unrestricted = 'Y' and -- commented for 4775760,4871284
3105: if l_old_rt_strt_dt >= l_enrt_rt.rt_strt_dt then
3123: --
3124: -- set the rate end date on the old one
3125: --
3126: if g_debug then
3127: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3128: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3129: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3130: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3131: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3124: -- set the rate end date on the old one
3125: --
3126: if g_debug then
3127: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3128: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3129: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3130: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3131: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3132: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3125: --
3126: if g_debug then
3127: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3128: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3129: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3130: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3131: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3132: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3133: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3126: if g_debug then
3127: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3128: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3129: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3130: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3131: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3132: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3133: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3134: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3127: hr_utility.set_location('BEF ben_determine_date.rate_and_coverage_dates',1999);
3128: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3129: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3130: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3131: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3132: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3133: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3134: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3135: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3128: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3129: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3130: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3131: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3132: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3133: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3134: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3135: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3136: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3129: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3130: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3131: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3132: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3133: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3134: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3135: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3136: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3137: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3130: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3131: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3132: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3133: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3134: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3135: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3136: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3137: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3138: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3131: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3132: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3133: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3134: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3135: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3136: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3137: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3138: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3139: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3132: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3133: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3134: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3135: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3136: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3137: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3138: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3139: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3140: end if;
3133: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3134: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3135: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3136: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3137: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3138: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3139: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3140: end if;
3141:
3134: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3135: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3136: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3137: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3138: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3139: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3140: end if;
3141:
3142: ben_determine_date.rate_and_coverage_dates
3135: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3136: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3137: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3138: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3139: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3140: end if;
3141:
3142: ben_determine_date.rate_and_coverage_dates
3143: (p_which_dates_cd => 'R'
3179: l_xrt_end_dt := l_xrt_strt_dt -1;
3180: end if;
3181:
3182: if g_debug then
3183: hr_utility.set_location('p rate strt date'||p_rt_strt_dt,111);
3184: end if;
3185: if p_rt_strt_dt > l_old_rt_end_dt then
3186: l_xrt_end_dt := l_old_rt_end_dt;
3187: end if;
3187: end if;
3188:
3189: --
3190: if g_debug then
3191: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3192: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3193: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3194: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3195: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3188:
3189: --
3190: if g_debug then
3191: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3192: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3193: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3194: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3195: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3196: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3189: --
3190: if g_debug then
3191: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3192: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3193: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3194: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3195: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3196: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3197: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3190: if g_debug then
3191: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3192: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3193: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3194: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3195: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3196: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3197: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3198: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3191: hr_utility.set_location('After call to ben_determine_date.rate_and_coverage_dates',1999);
3192: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3193: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3194: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3195: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3196: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3197: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3198: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3199: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3192: hr_utility.set_location('l_enrt_rt.elig_per_elctbl_chc_id'||l_enrt_rt.elig_per_elctbl_chc_id,1999);
3193: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3194: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3195: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3196: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3197: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3198: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3199: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3200: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3193: hr_utility.set_location('l_xenrt_cvg_strt_dt'||l_xenrt_cvg_strt_dt,1999);
3194: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3195: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3196: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3197: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3198: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3199: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3200: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3201: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3194: hr_utility.set_location('l_xenrt_cvg_strt_dt_cd'||l_xenrt_cvg_strt_dt_cd,1999);
3195: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3196: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3197: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3198: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3199: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3200: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3201: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3202: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3195: hr_utility.set_location('l_xenrt_cvg_strt_dt_rl'||l_xenrt_cvg_strt_dt_rl,1999);
3196: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3197: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3198: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3199: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3200: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3201: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3202: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3203: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3196: hr_utility.set_location('l_xrt_strt_dt'||l_xrt_strt_dt,1999);
3197: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3198: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3199: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3200: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3201: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3202: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3203: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3204: end if;
3197: hr_utility.set_location('l_xrt_strt_dt_cd'||l_xrt_strt_dt_cd,1999);
3198: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3199: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3200: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3201: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3202: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3203: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3204: end if;
3205: --
3198: hr_utility.set_location('l_xenrt_cvg_end_dt'||l_xenrt_cvg_end_dt,1999);
3199: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3200: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3201: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3202: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3203: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3204: end if;
3205: --
3206: -- bnft amt changed and entr val flag is N then election rate
3199: hr_utility.set_location('l_xenrt_cvg_end_dt_cd'||l_xenrt_cvg_end_dt_cd,1999);
3200: hr_utility.set_location('l_xrt_end_dt'||l_xrt_end_dt,1999);
3201: hr_utility.set_location('l_xrt_end_dt_cd'||l_xrt_end_dt_cd,1999);
3202: hr_utility.set_location('l_enrt_rt.acty_base_rt_id'||l_enrt_rt.acty_base_rt_id,1999);
3203: hr_utility.set_location('p_effective_date'||p_effective_date,1999);
3204: end if;
3205: --
3206: -- bnft amt changed and entr val flag is N then election rate
3207: -- information is called after delete enrollment
3239:
3240: if p_bnft_amt_changed and l_enrt_rt.entr_val_At_enrt_flag = 'Y' then
3241:
3242: if g_debug then
3243: hr_utility.set_location('p_bnft_amt_changed',1999);
3244: end if;
3245: if not p_calculate_only_mode then
3246: --
3247: --
3265: --
3266: -- p_amt_changed is false
3267: --
3268: if g_debug then
3269: hr_utility.set_location('bnft amount false',1999);
3270: end if;
3271: if not p_calculate_only_mode then
3272: --
3273: if not l_non_recurring_rt then
3272: --
3273: if not l_non_recurring_rt then
3274: if l_old_rt_end_dt <> l_xrt_end_dt then
3275: if g_debug then
3276: hr_utility.set_location('processing type recurring ',1999);
3277: end if;
3278: --
3279:
3280: ben_prtt_rt_val_api.update_prtt_rt_val
3301: --
3302: -- update rate
3303: --
3304: if g_debug then
3305: hr_utility.set_location(l_proc, 130);
3306: end if;
3307: --
3308: if not p_calculate_only_mode then
3309: --
3343: -- Get all results that were de-enrolled for the event.
3344: --
3345: for l_pen in c_get_enrt_rslts(l_epe.rt_strt_dt
3346: ,l_epe.ptip_id ) loop
3347: hr_utility.set_location('Adjusting rate '||l_epe.rt_strt_dt,111);
3348: --
3349: open c_prtt_rt_val_adj(p_per_in_ler_id,l_pen.prtt_rt_val_id);
3350: fetch c_prtt_rt_val_adj into l_exists;
3351: if c_prtt_rt_val_adj%notfound then
3425: ,p_rt_ovridn_thru_dt => l_old_rt_ovridn_thru_dt
3426: --
3427: );
3428: if g_debug then
3429: hr_utility.set_location(l_proc, 135);
3430: end if;
3431: end if;
3432: --
3433: else
3465: --
3466: end if;
3467:
3468: if g_debug then
3469: hr_utility.set_location(l_proc||'Do nothing if old prv is fine ', 1330);
3470: end if;
3471:
3472: end if;
3473:
3472: end if;
3473:
3474: else
3475: if g_debug then
3476: hr_utility.set_location(l_proc, 140);
3477: end if;
3478: --
3479: if not p_calculate_only_mode then
3480: --
3513: -- Get all results that were de-enrolled for the event.
3514: --
3515: for l_pen in c_get_enrt_rslts(l_epe.rt_strt_dt
3516: ,l_epe.ptip_id ) loop
3517: hr_utility.set_location('Adjusting rate '||l_epe.rt_strt_dt,111);
3518: --
3519: open c_prtt_rt_val_adj(p_per_in_ler_id,l_pen.prtt_rt_val_id);
3520: fetch c_prtt_rt_val_adj into l_exists;
3521: if c_prtt_rt_val_adj%notfound then
3595: ,p_rt_ovridn_thru_dt => l_old_rt_ovridn_thru_dt
3596: --
3597: );
3598: if g_debug then
3599: hr_utility.set_location(l_proc, 145);
3600: end if;
3601: end if;
3602: end if;
3603: --
3674: --
3675: end if;
3676: --
3677: if g_debug then
3678: hr_utility.set_location('Leaving:'||l_proc, 99);
3679: end if;
3680:
3681: ben_manage_life_events.fonm := null;
3682: ben_manage_life_events.g_fonm_cvg_strt_dt := null;
3813: -- forms do not need to pass. They will call this original spec'ed
3814: -- proc. The batch processes can call the other one if new flags are needed.
3815: --
3816:
3817: g_debug := hr_utility.debug_enabled;
3818: --hr_utility. set_location( ' p_rt_val1 '||p_rt_val1 , 211);
3819: --hr_utility. set_location( ' p_ann_rt_val1 '||p_ann_rt_val1,211);
3820: -- please mark new flags with a comment.
3821: election_information
3814: -- proc. The batch processes can call the other one if new flags are needed.
3815: --
3816:
3817: g_debug := hr_utility.debug_enabled;
3818: --hr_utility. set_location( ' p_rt_val1 '||p_rt_val1 , 211);
3819: --hr_utility. set_location( ' p_ann_rt_val1 '||p_ann_rt_val1,211);
3820: -- please mark new flags with a comment.
3821: election_information
3822: (p_validate => p_validate
3815: --
3816:
3817: g_debug := hr_utility.debug_enabled;
3818: --hr_utility. set_location( ' p_rt_val1 '||p_rt_val1 , 211);
3819: --hr_utility. set_location( ' p_ann_rt_val1 '||p_ann_rt_val1,211);
3820: -- please mark new flags with a comment.
3821: election_information
3822: (p_validate => p_validate
3823: ,p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id
4027:
4028:
4029: begin
4030:
4031: g_debug := hr_utility.debug_enabled;
4032: if p_oipl_id is not null then
4033: open c_oipl ;
4034: fetch c_oipl into l_opt_id ;
4035: close c_oipl ;
4077: l_erlst_deenrt_calc_dt := nvl(p_orgnl_enrt_dt,p_enrt_cvg_strt_dt );
4078: end if ;
4079:
4080: if g_debug then
4081: hr_utility.set_location('uom'||l_rqd_perd_enrt_nenrt_uom ,8086.1);
4082: end if;
4083: if g_debug then
4084: hr_utility.set_location('val'||l_rqd_perd_enrt_nenrt_val ,8086.1);
4085: end if;
4080: if g_debug then
4081: hr_utility.set_location('uom'||l_rqd_perd_enrt_nenrt_uom ,8086.1);
4082: end if;
4083: if g_debug then
4084: hr_utility.set_location('val'||l_rqd_perd_enrt_nenrt_val ,8086.1);
4085: end if;
4086: if g_debug then
4087: hr_utility.set_location('cvg_dt '||l_erlst_deenrt_calc_dt ,8086.1);
4088: end if;
4083: if g_debug then
4084: hr_utility.set_location('val'||l_rqd_perd_enrt_nenrt_val ,8086.1);
4085: end if;
4086: if g_debug then
4087: hr_utility.set_location('cvg_dt '||l_erlst_deenrt_calc_dt ,8086.1);
4088: end if;
4089: if g_debug then
4090: hr_utility.set_location('date before calca'||p_return_date ,8086.1);
4091: end if;
4086: if g_debug then
4087: hr_utility.set_location('cvg_dt '||l_erlst_deenrt_calc_dt ,8086.1);
4088: end if;
4089: if g_debug then
4090: hr_utility.set_location('date before calca'||p_return_date ,8086.1);
4091: end if;
4092: if (l_rqd_perd_enrt_nenrt_val is not null and l_rqd_perd_enrt_nenrt_uom is not null )
4093: or l_rqd_perd_enrt_nenrt_rl is not null then
4094: p_return_date :=
4113: l_rec_organization_id,
4114: l_jurisdiction_code);
4115: end if ;
4116: if g_debug then
4117: hr_utility.set_location('date after calca'||p_return_date ,8086.1);
4118: end if;
4119:
4120: END determine_erlst_deenrt_date ;
4121:
4636: --
4637: -- end 7206471
4638: -- ------------------------------------------------------------
4639: BEGIN
4640: g_debug := hr_utility.debug_enabled;
4641: if g_debug then
4642: hr_utility.set_location('Entering:'||l_proc, 5);
4643: end if;
4644: if g_debug then
4638: -- ------------------------------------------------------------
4639: BEGIN
4640: g_debug := hr_utility.debug_enabled;
4641: if g_debug then
4642: hr_utility.set_location('Entering:'||l_proc, 5);
4643: end if;
4644: if g_debug then
4645: hr_utility.set_location(' chc:'|| to_char(p_elig_per_elctbl_chc_id)||' rslt:'|| to_char(p_prtt_enrt_rslt_id), 5);
4646: end if;
4641: if g_debug then
4642: hr_utility.set_location('Entering:'||l_proc, 5);
4643: end if;
4644: if g_debug then
4645: hr_utility.set_location(' chc:'|| to_char(p_elig_per_elctbl_chc_id)||' rslt:'|| to_char(p_prtt_enrt_rslt_id), 5);
4646: end if;
4647: if g_debug then
4648: hr_utility.set_location('p_enrt_rt_id1'||p_enrt_rt_id1,1999);
4649: end if;
4644: if g_debug then
4645: hr_utility.set_location(' chc:'|| to_char(p_elig_per_elctbl_chc_id)||' rslt:'|| to_char(p_prtt_enrt_rslt_id), 5);
4646: end if;
4647: if g_debug then
4648: hr_utility.set_location('p_enrt_rt_id1'||p_enrt_rt_id1,1999);
4649: end if;
4650:
4651: --
4652: -- Work out if we are being called from a concurrent program
4686: --
4687: if p_called_from_sspnd = 'Y' then
4688: if g_elig_per_elctbl_chc_id=p_elig_per_elctbl_chc_id then
4689: if g_debug then
4690: hr_utility.set_location(' l_use_new_result:=true ',1223);
4691: end if;
4692: l_use_new_result:=true;
4693: end if;
4694: end if;
4737: close oipl_ordr_num_c;
4738: end if;
4739:
4740: if g_debug then
4741: hr_utility.set_location(l_proc, 15);
4742: end if;
4743:
4744:
4745: --- determine FONM for election information # 4510798
4757: l_fonm_flag := 'N' ;
4758: ben_manage_life_events.fonm := 'N';
4759: ben_manage_life_events.g_fonm_cvg_strt_dt := null ;
4760: end if ;
4761: hr_utility.set_location (' FONM ' || ben_manage_life_events.fonm , 99 ) ;
4762: hr_utility.set_location (' FONM CVG ' || ben_manage_life_events.g_fonm_cvg_strt_dt , 99 ) ;
4763:
4764: --
4765: -- If form code is too lazy to pass in the result id
4758: ben_manage_life_events.fonm := 'N';
4759: ben_manage_life_events.g_fonm_cvg_strt_dt := null ;
4760: end if ;
4761: hr_utility.set_location (' FONM ' || ben_manage_life_events.fonm , 99 ) ;
4762: hr_utility.set_location (' FONM CVG ' || ben_manage_life_events.g_fonm_cvg_strt_dt , 99 ) ;
4763:
4764: --
4765: -- If form code is too lazy to pass in the result id
4766: -- then get it from the choice. Note will be null if
4773: -- we are using the one without penid we can not use the penid from epe
4774: -- which is not right.
4775: --
4776: if g_debug then
4777: hr_utility.set_location('p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,9999);
4778: end if;
4779: if g_debug then
4780: hr_utility.set_location('l_global_epe_rec.p_e_r_id '||l_global_epe_rec.prtt_enrt_rslt_id,9999);
4781: end if;
4776: if g_debug then
4777: hr_utility.set_location('p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,9999);
4778: end if;
4779: if g_debug then
4780: hr_utility.set_location('l_global_epe_rec.p_e_r_id '||l_global_epe_rec.prtt_enrt_rslt_id,9999);
4781: end if;
4782: if g_debug then
4783: hr_utility.set_location('p_enrt_bnft_id '||p_enrt_bnft_id,9999);
4784: end if;
4779: if g_debug then
4780: hr_utility.set_location('l_global_epe_rec.p_e_r_id '||l_global_epe_rec.prtt_enrt_rslt_id,9999);
4781: end if;
4782: if g_debug then
4783: hr_utility.set_location('p_enrt_bnft_id '||p_enrt_bnft_id,9999);
4784: end if;
4785: --
4786: if p_enrt_bnft_id is not null then
4787: open c_enb_pen ;
4821: l_global_epe_rec.prtt_enrt_rslt_id := l_enb_prtt_enrt_rslt_id ;
4822: --
4823: end if;
4824: --
4825: hr_utility.set_location('l_enb_prtt_enrt_rslt_id'||l_enb_prtt_enrt_rslt_id,222);
4826: hr_utility.set_location('l_global_epe_rec.prtt_enrt_rslt_id'||l_global_epe_rec.prtt_enrt_rslt_id,222);
4827: --
4828: l_prtt_enrt_rslt_id := l_global_epe_rec.prtt_enrt_rslt_id;
4829: --
4822: --
4823: end if;
4824: --
4825: hr_utility.set_location('l_enb_prtt_enrt_rslt_id'||l_enb_prtt_enrt_rslt_id,222);
4826: hr_utility.set_location('l_global_epe_rec.prtt_enrt_rslt_id'||l_global_epe_rec.prtt_enrt_rslt_id,222);
4827: --
4828: l_prtt_enrt_rslt_id := l_global_epe_rec.prtt_enrt_rslt_id;
4829: --
4830: if g_debug then
4827: --
4828: l_prtt_enrt_rslt_id := l_global_epe_rec.prtt_enrt_rslt_id;
4829: --
4830: if g_debug then
4831: hr_utility.set_location(l_proc, 16);
4832: end if;
4833: --
4834: -- override the bnft_val if it's annualized and entered at enrt
4835: --
4836: -- Bug 1913254 Present logic works only for enter value at enrollment is
4837: -- checked for rate. Now added a new cursor to get the annual value for
4838: -- SAAEAR if the rate is not entered at enrollment.
4839: --
4840: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
4841: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
4842: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
4843: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
4844: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
4837: -- checked for rate. Now added a new cursor to get the annual value for
4838: -- SAAEAR if the rate is not entered at enrollment.
4839: --
4840: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
4841: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
4842: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
4843: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
4844: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
4845: --
4838: -- SAAEAR if the rate is not entered at enrollment.
4839: --
4840: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
4841: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
4842: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
4843: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
4844: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
4845: --
4846: -- Bug 2212194 fixes
4839: --
4840: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
4841: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
4842: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
4843: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
4844: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
4845: --
4846: -- Bug 2212194 fixes
4847: --
4840: --hr_utility. set_location(' cvg_mlt_cd Code '||l_global_enb_rec.cvg_mlt_cd , 17);
4841: --hr_utility. set_location(' p_ann_rt_val1 '||p_ann_rt_val1 ,18);
4842: --hr_utility. set_location(' p_bnft_val '||p_bnft_val ,19);
4843: --hr_utility. set_location(' p_enrt_rt_id1 '||p_enrt_rt_id1 ,19);
4844: --hr_utility. set_location(' p_enrt_bnft_id '||p_enrt_bnft_id , 20);
4845: --
4846: -- Bug 2212194 fixes
4847: --
4848: if l_global_enb_rec.cvg_mlt_cd='SAAEAR' then
4902: -- Added for bug 4020061
4903: if p_bnft_val = 0 and p_enrt_bnft_id is null
4904: then
4905: l_global_enb_rec.val := null ;
4906: hr_utility.set_location(' new clause --- l_global_enb_rec.val' || l_global_enb_rec.val , 50);
4907: end if;
4908:
4909: if g_debug then
4910: hr_utility.set_location(l_proc, 50);
4906: hr_utility.set_location(' new clause --- l_global_enb_rec.val' || l_global_enb_rec.val , 50);
4907: end if;
4908:
4909: if g_debug then
4910: hr_utility.set_location(l_proc, 50);
4911: end if;
4912: --
4913: -- if changing a result get old info
4914: --
4912: --
4913: -- if changing a result get old info
4914: --
4915: if g_debug then
4916: hr_utility.set_location('prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id ,8086.1);
4917: hr_utility.set_location('new coverage date '||l_global_pil_rec.lf_evt_ocrd_dt ,8086.1);
4918: end if;
4919: if p_prtt_enrt_rslt_id is not null then
4920: if g_debug then
4913: -- if changing a result get old info
4914: --
4915: if g_debug then
4916: hr_utility.set_location('prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id ,8086.1);
4917: hr_utility.set_location('new coverage date '||l_global_pil_rec.lf_evt_ocrd_dt ,8086.1);
4918: end if;
4919: if p_prtt_enrt_rslt_id is not null then
4920: if g_debug then
4921: hr_utility.set_location(l_proc,51);
4917: hr_utility.set_location('new coverage date '||l_global_pil_rec.lf_evt_ocrd_dt ,8086.1);
4918: end if;
4919: if p_prtt_enrt_rslt_id is not null then
4920: if g_debug then
4921: hr_utility.set_location(l_proc,51);
4922: end if;
4923: open c_current_result_info(p_prtt_enrt_rslt_id);
4924: if g_debug then
4925: hr_utility.set_location(l_proc,52);
4921: hr_utility.set_location(l_proc,51);
4922: end if;
4923: open c_current_result_info(p_prtt_enrt_rslt_id);
4924: if g_debug then
4925: hr_utility.set_location(l_proc,52);
4926: end if;
4927: fetch c_current_result_info into
4928: l_old_enrt_cvg_strt_dt,
4929: l_old_enrt_cvg_thru_dt,
4938: l_old_enrt_ovrid_rsn_cd,
4939: l_old_enrt_ovridn_flag,
4940: l_old_sspndd_flag ;
4941: if g_debug then
4942: hr_utility.set_location(l_proc,53);
4943: hr_utility.set_location(l_global_epe_rec.enrt_cvg_strt_dt,53);
4944: end if;
4945: if c_current_result_info%notfound then
4946: -- make sure it is not deleted for fiture coverage
4939: l_old_enrt_ovridn_flag,
4940: l_old_sspndd_flag ;
4941: if g_debug then
4942: hr_utility.set_location(l_proc,53);
4943: hr_utility.set_location(l_global_epe_rec.enrt_cvg_strt_dt,53);
4944: end if;
4945: if c_current_result_info%notfound then
4946: -- make sure it is not deleted for fiture coverage
4947: -- null globals to prevent bleeding
4952: g_bnft_val:=null;
4953: g_elig_per_elctbl_chc_id:=null;
4954: --
4955: if g_debug then
4956: hr_utility.set_location('BEN_91711_ENRT_RSLT_NOT_FND'|| to_char(p_prtt_enrt_rslt_id),54);
4957: end if;
4958: fnd_message.set_name('BEN','BEN_91711_ENRT_RSLT_NOT_FND');
4959: fnd_message.set_token('PROC',l_proc);
4960: fnd_message.set_token('ID', to_char(p_prtt_enrt_rslt_id));
5031: --Interim Enrollment
5032: --
5033: IF l_pen_curr.rplcs_sspndd_rslt_id is not null THEN
5034: --
5035: hr_utility.set_location(' Extend Interim Row',99);
5036: --
5037: open c_pen_curr(l_pen_curr.rplcs_sspndd_rslt_id,l_global_pil_rec.lf_evt_ocrd_dt);
5038: -- 6057157 : Changed the cursor variable to l_pen_curr_interim
5039: fetch c_pen_curr into l_pen_curr_interim;
5039: fetch c_pen_curr into l_pen_curr_interim;
5040: close c_pen_curr;
5041: --
5042: --
5043: hr_utility.set_location('l_pen_curr.prtt_enrt_rslt_id ' || l_pen_curr_interim.prtt_enrt_rslt_id,99);
5044: --
5045: IF l_pen_curr_interim.prtt_enrt_rslt_id IS NOT NULL THEN
5046: ben_prtt_enrt_result_api.delete_prtt_enrt_result
5047: (p_validate => false,
5058: --
5059: for l_rec in c_prv(l_pen_curr_interim.prtt_enrt_rslt_id, l_pen_curr_interim.per_in_ler_id)
5060: loop
5061: --
5062: hr_utility.set_location('Interim l_rec.prtt_rt_val_id ' || l_rec.prtt_rt_val_id,99);
5063: hr_utility.set_location('l_rec.rt_end_dt ' || l_rec.rt_end_dt,99);
5064: --
5065: ben_prtt_rt_val_api.update_prtt_rt_val
5066: (p_validate => false,
5059: for l_rec in c_prv(l_pen_curr_interim.prtt_enrt_rslt_id, l_pen_curr_interim.per_in_ler_id)
5060: loop
5061: --
5062: hr_utility.set_location('Interim l_rec.prtt_rt_val_id ' || l_rec.prtt_rt_val_id,99);
5063: hr_utility.set_location('l_rec.rt_end_dt ' || l_rec.rt_end_dt,99);
5064: --
5065: ben_prtt_rt_val_api.update_prtt_rt_val
5066: (p_validate => false,
5067: p_person_id => l_global_pil_rec.person_id,
5076: END IF ;
5077: --
5078: open c_current_result_info(p_prtt_enrt_rslt_id);
5079: if g_debug then
5080: hr_utility.set_location(l_proc,52.2);
5081: end if;
5082: fetch c_current_result_info into
5083: l_old_enrt_cvg_strt_dt,
5084: l_old_enrt_cvg_thru_dt,
5118:
5119: end if;
5120:
5121: if g_debug then
5122: hr_utility.set_location( p_prtt_enrt_rslt_id || ' '|| l_proc,55);
5123: end if;
5124: if l_old_ovn is not null then
5125: if g_debug then
5126: hr_utility.set_location(l_proc,56);
5122: hr_utility.set_location( p_prtt_enrt_rslt_id || ' '|| l_proc,55);
5123: end if;
5124: if l_old_ovn is not null then
5125: if g_debug then
5126: hr_utility.set_location(l_proc,56);
5127: end if;
5128: p_object_version_number:=l_old_ovn;
5129: end if;
5130: if g_debug then
5127: end if;
5128: p_object_version_number:=l_old_ovn;
5129: end if;
5130: if g_debug then
5131: hr_utility.set_location(l_proc,57);
5132: end if;
5133: -- close c_current_result_info;
5134: if g_debug then
5135: hr_utility.set_location(l_proc,58);
5131: hr_utility.set_location(l_proc,57);
5132: end if;
5133: -- close c_current_result_info;
5134: if g_debug then
5135: hr_utility.set_location(l_proc,58);
5136: end if;
5137: end if;
5138: --
5139: -- Replacing sec 129 logic to start a new enrollment if the enrollment code is CCKCSNCC
5146: nvl(l_old_bnft_val,hr_api.g_number)=
5147: nvl(l_global_enb_rec.val,hr_api.g_number)) or
5148: l_old_sspndd_flag = 'Y')) then
5149: if g_debug then
5150: hr_utility.set_location('enrt cvg strt dt'||l_global_epe_rec.enrt_cvg_strt_dt,111);
5151: end if;
5152: --bug#3702090 - override enrollment not to create new result
5153: --bug#4549089 - added per in ler for suspended enrollment
5154: --bug#4555320 - added per in ler for cvg strt dt also
5158: (l_old_sspndd_flag = 'Y' and l_old_per_in_ler_id <>
5159: l_global_epe_rec.per_in_ler_id))
5160: and nvl(p_enrt_mthd_cd, 'z') <> 'O' then
5161: if g_debug then
5162: hr_utility.set_location('start new result',112);
5163: end if;
5164: l_start_new_result := true;
5165: end if;
5166: end if;
5174: --
5175: -- If benefit amount changed treat as comp object change
5176: --
5177: if g_debug then
5178: hr_utility.set_location('l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
5179: end if;
5180: if g_debug then
5181: hr_utility.set_location('l_old_enrt_cvg_strt_dt'||l_old_enrt_cvg_strt_dt,8086.1);
5182: end if;
5177: if g_debug then
5178: hr_utility.set_location('l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
5179: end if;
5180: if g_debug then
5181: hr_utility.set_location('l_old_enrt_cvg_strt_dt'||l_old_enrt_cvg_strt_dt,8086.1);
5182: end if;
5183: if g_debug then
5184: hr_utility.set_location('l_global_epe_rec.erslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
5185: end if;
5180: if g_debug then
5181: hr_utility.set_location('l_old_enrt_cvg_strt_dt'||l_old_enrt_cvg_strt_dt,8086.1);
5182: end if;
5183: if g_debug then
5184: hr_utility.set_location('l_global_epe_rec.erslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
5185: end if;
5186: if g_debug then
5187: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
5188: end if;
5183: if g_debug then
5184: hr_utility.set_location('l_global_epe_rec.erslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
5185: end if;
5186: if g_debug then
5187: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
5188: end if;
5189: if g_debug then
5190: hr_utility.set_location('l_old_bnft_val='||l_old_bnft_val,1963);
5191: end if;
5186: if g_debug then
5187: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
5188: end if;
5189: if g_debug then
5190: hr_utility.set_location('l_old_bnft_val='||l_old_bnft_val,1963);
5191: end if;
5192: if g_debug then
5193: hr_utility.set_location('l_bnft_val='||l_global_enb_rec.val,1963);
5194: end if;
5189: if g_debug then
5190: hr_utility.set_location('l_old_bnft_val='||l_old_bnft_val,1963);
5191: end if;
5192: if g_debug then
5193: hr_utility.set_location('l_bnft_val='||l_global_enb_rec.val,1963);
5194: end if;
5195: --
5196: -- Added condition p_enrt_cvg_thru_dt is null. (maagrawa Jan 05,2001)
5197: -- p_enrt_cvg_thru_dt will be null in normal cases, but it will be populated
5207: nvl(l_old_bnft_val,hr_api.g_number)= nvl(l_global_enb_rec.val,hr_api.g_number) and
5208: p_enrt_cvg_thru_dt is null and
5209: l_start_new_result = false ) then
5210: if g_debug then
5211: hr_utility.set_location(l_proc, 80);
5212: end if;
5213: --
5214: l_prtt_enrt_rslt_id:=p_prtt_enrt_rslt_id;
5215: --
5217: -- see if plan has regulation of IRC Section 125 or 129.
5218: --
5219:
5220: if g_debug then
5221: hr_utility.set_location('if part ' , 8086.1);
5222: end if;
5223:
5224: l_regn_125_or_129_flag:='N';
5225: /*
5226: if l_global_pel_rec.enrt_perd_id is not null and -- same as p_run_mode='C'
5227: l_old_enrt_cvg_strt_dt is not null then
5228: open c_regn_125_or_129;
5229: fetch c_regn_125_or_129 into l_regn_125_or_129_flag;
5230: hr_utility. set_location('regn_125_or_129='||l_regn_125_or_129_flag,10);
5231: close c_regn_125_or_129;
5232: end if;
5233: */
5234: if l_regn_125_or_129_flag='N' then
5247: open c_enrt_rslt;
5248: fetch c_enrt_rslt into l_enrt_rslt;
5249: if c_enrt_rslt%found then
5250: if g_debug then
5251: hr_utility.set_location('Effectve date'||l_enrt_rslt.effective_end_date,11);
5252: end if;
5253: if g_debug then
5254: hr_utility.set_location('object number '||l_enrt_rslt.object_version_number,11);
5255: end if;
5250: if g_debug then
5251: hr_utility.set_location('Effectve date'||l_enrt_rslt.effective_end_date,11);
5252: end if;
5253: if g_debug then
5254: hr_utility.set_location('object number '||l_enrt_rslt.object_version_number,11);
5255: end if;
5256: -- 3733745
5257: select count(*)
5258: into l_interim_count
5475: p_multi_row_actn => FALSE);
5476: end loop;
5477:
5478: if (g_debug) then
5479: hr_utility.set_location('BKKK p_prtt_enrt_rslt_id '|| p_prtt_enrt_rslt_id, 100);
5480: end if;
5481: --
5482: open c_prtt_rt_val_id;
5483: fetch c_prtt_rt_val_id into l_prtt_rt_val_id, l_acty_base_rt_id2;
5486: exit;
5487: end if;
5488: --
5489: if (g_debug) then
5490: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
5491: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
5492: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
5493: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
5494: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
5487: end if;
5488: --
5489: if (g_debug) then
5490: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
5491: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
5492: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
5493: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
5494: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
5495: end if;
5488: --
5489: if (g_debug) then
5490: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
5491: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
5492: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
5493: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
5494: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
5495: end if;
5496: --
5489: if (g_debug) then
5490: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
5491: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
5492: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
5493: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
5494: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
5495: end if;
5496: --
5497: open c_enrt_rt(l_acty_base_rt_id2);
5490: hr_utility.set_location('BKKK l_prtt_rt_val_id '|| l_prtt_rt_val_id, 100);
5491: hr_utility.set_location('BKKK l_acty_base_rt_id2 '|| l_acty_base_rt_id2, 100);
5492: hr_utility.set_location('BKKK p_elig_per_elctbl_chc_id '|| p_elig_per_elctbl_chc_id, 100);
5493: hr_utility.set_location('BKKK p_enrt_bnft_id '|| p_enrt_bnft_id, 100);
5494: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 100);
5495: end if;
5496: --
5497: open c_enrt_rt(l_acty_base_rt_id2);
5498: fetch c_enrt_rt into l_enrt_rt_id;
5501: set prtt_rt_val_id = l_prtt_rt_val_id
5502: where enrt_rt_id = l_enrt_rt_id;
5503: --
5504: if (g_debug) then
5505: hr_utility.set_location('BKKK l_enrt_rt_id '|| l_enrt_rt_id, 200);
5506: end if;
5507: --
5508: end if;
5509: close c_enrt_rt;
5517: end if;
5518: close c_enrt_rslt;
5519: --
5520: if g_debug then
5521: hr_utility.set_location('bef update cvg '|| l_global_epe_rec.enrt_cvg_strt_dt,8086.2);
5522: end if;
5523: if g_debug then
5524: hr_utility.set_location('bef update erly '||l_global_epe_rec.erlst_deenrt_dt,8086.2);
5525: end if;
5520: if g_debug then
5521: hr_utility.set_location('bef update cvg '|| l_global_epe_rec.enrt_cvg_strt_dt,8086.2);
5522: end if;
5523: if g_debug then
5524: hr_utility.set_location('bef update erly '||l_global_epe_rec.erlst_deenrt_dt,8086.2);
5525: end if;
5526: --Override code
5527: if l_old_enrt_ovrid_thru_dt is not null then
5528: --
5526: --Override code
5527: if l_old_enrt_ovrid_thru_dt is not null then
5528: --
5529: if g_debug then
5530: hr_utility.set_location(' enrt_cvg_strt_dt_cd '||l_global_epe_rec.enrt_cvg_strt_dt_cd,123);
5531: end if;
5532: if g_debug then
5533: hr_utility.set_location(' p_elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,123);
5534: end if;
5529: if g_debug then
5530: hr_utility.set_location(' enrt_cvg_strt_dt_cd '||l_global_epe_rec.enrt_cvg_strt_dt_cd,123);
5531: end if;
5532: if g_debug then
5533: hr_utility.set_location(' p_elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,123);
5534: end if;
5535: if l_global_epe_rec.enrt_cvg_strt_dt_cd is not null then
5536: ben_determine_date.main(
5537: p_date_cd => l_global_epe_rec.enrt_cvg_strt_dt_cd,
5639: ,p_ctfn_actn_warning => l_ctfn_actn_warning
5640: );
5641: p_prtt_enrt_interim_id:=l_prtt_enrt_interim_id;
5642: if g_debug then
5643: hr_utility.set_location(l_proc, 90);
5644: end if;
5645: --
5646: -- (maagrawa Jan 05,2001).
5647: -- Replaced this else with elsif. Normal processing will go as normal as
5659: elsif (l_global_epe_rec.prtt_enrt_rslt_id is null or
5660: p_enrt_cvg_thru_dt is null) then
5661: --
5662: if g_debug then
5663: hr_utility.set_location('elese part ' , 8086.1);
5664: end if;
5665: l_crntly_enrd_rslt_exists := false;
5666: --
5667: if l_global_epe_rec.prtt_enrt_rslt_id is not null then
5730: -- and ELIG PER ELCTBL CHC: CRNTLY ENRD FLAG = Y then
5731: -- re-use the enrollment result.
5732: --
5733: if g_debug then
5734: hr_utility.set_location(l_proc, 95);
5735: end if;
5736: --
5737: l_prtt_enrt_rslt_id := l_global_epe_rec.prtt_enrt_rslt_id;
5738: --
5744: if l_global_pel_rec.enrt_perd_id is not null and -- same as p_run_mode='C'
5745: l_old_enrt_cvg_strt_dt is not null then
5746: open c_regn_125_or_129;
5747: fetch c_regn_125_or_129 into l_regn_125_or_129_flag;
5748: hr_utility. set_location('regn_125_or_129='||l_regn_125_or_129_flag,10);
5749: close c_regn_125_or_129;
5750: end if;
5751: */
5752: if l_regn_125_or_129_flag='N' then
5762: --
5763: l_object_version_number := l_crntly_enrd_rslt_rec.object_version_number;
5764: --
5765: if g_debug then
5766: hr_utility.set_location('bef update cvg '|| l_global_epe_rec.enrt_cvg_strt_dt,8086.2);
5767: end if;
5768: if g_debug then
5769: hr_utility.set_location('bef update erly '||l_global_epe_rec.erlst_deenrt_dt,8086.2);
5770: end if;
5765: if g_debug then
5766: hr_utility.set_location('bef update cvg '|| l_global_epe_rec.enrt_cvg_strt_dt,8086.2);
5767: end if;
5768: if g_debug then
5769: hr_utility.set_location('bef update erly '||l_global_epe_rec.erlst_deenrt_dt,8086.2);
5770: end if;
5771: ben_PRTT_ENRT_RESULT_api.update_enrollment(
5772: p_prtt_enrt_rslt_id => l_prtt_enrt_rslt_id
5773: ,p_effective_start_date => p_effective_start_date
5847: p_prtt_enrt_interim_id:=l_prtt_enrt_interim_id; --CFW
5848: -- RCHASE Bug#5353 No interim is being passed back
5849: l_prtt_enrt_interim_id:=nvl(l_prtt_enrt_interim_id,l_prtt_enrt_rslt_id); --CFW
5850: if g_debug then
5851: hr_utility.set_location(l_proc, 97);
5852: end if;
5853: -- Bug 2627078 fixes
5854: -- Now If the User selected the Interim as the Main enrollment while
5855: -- replacing the suspended enrollment, delink the interim from the
5880: end if ;
5881: close c_delink_interim ;
5882: else
5883: if g_debug then
5884: hr_utility.set_location(l_proc, 100);
5885: end if;
5886: -- If they are not staying in the same plan and option
5887: -- (ELIG PER ELCTBL CHC: CRNTLY ENRD FLAG = N) and
5888: -- no replacement result is specified, then create a new
5893: -- first, resolve previously unknown values.
5894:
5895: if (l_global_epe_rec.enrt_cvg_strt_dt_cd is not null) then
5896: if g_debug then
5897: hr_utility.set_location(l_proc, 130);
5898: end if;
5899: l_elect_cvg_strt_dt := l_global_epe_rec.enrt_cvg_strt_dt ;
5900: --
5901: if l_global_epe_rec.enrt_cvg_strt_dt_cd = 'ENTRBL' and
5920: p_returned_date => l_enrt_cvg_strt_dt
5921: );
5922:
5923: if g_debug then
5924: hr_utility.set_location('calc date' || l_enrt_cvg_strt_dt,8086.1);
5925: hr_utility.set_location('prev calc date' || l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
5926: end if;
5927: -- 2982606 when the first time enrolled in waiting plan,after save thge enrollment the date changed back to
5928: --even date
5921: );
5922:
5923: if g_debug then
5924: hr_utility.set_location('calc date' || l_enrt_cvg_strt_dt,8086.1);
5925: hr_utility.set_location('prev calc date' || l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
5926: end if;
5927: -- 2982606 when the first time enrolled in waiting plan,after save thge enrollment the date changed back to
5928: --even date
5929: if l_enrt_cvg_strt_dt > l_global_epe_rec.enrt_cvg_strt_dt
5929: if l_enrt_cvg_strt_dt > l_global_epe_rec.enrt_cvg_strt_dt
5930: -- if the coverage start dt code is election then take the current cacluated code
5931: OR l_global_epe_rec.enrt_cvg_strt_dt_cd in ('ODEWM','AFDELD','FDMELD') then
5932: l_global_epe_rec.enrt_cvg_strt_dt := l_enrt_cvg_strt_dt;
5933: hr_utility.set_location('after comparison calc date' || l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
5934: end if;
5935:
5936:
5937: if g_debug then
5934: end if;
5935:
5936:
5937: if g_debug then
5938: hr_utility.set_location('denrt at elec' ||l_global_epe_rec.erlst_deenrt_dt,8086.1);
5939: end if;
5940: if g_debug then
5941: hr_utility.set_location('prt rslt deent '||l_old_erlst_deenrt_dt , 8086.1);
5942: end if;
5937: if g_debug then
5938: hr_utility.set_location('denrt at elec' ||l_global_epe_rec.erlst_deenrt_dt,8086.1);
5939: end if;
5940: if g_debug then
5941: hr_utility.set_location('prt rslt deent '||l_old_erlst_deenrt_dt , 8086.1);
5942: end if;
5943: if g_debug then
5944: hr_utility.set_location('before calc cvg'||l_elect_cvg_strt_dt,8086.1);
5945: end if;
5940: if g_debug then
5941: hr_utility.set_location('prt rslt deent '||l_old_erlst_deenrt_dt , 8086.1);
5942: end if;
5943: if g_debug then
5944: hr_utility.set_location('before calc cvg'||l_elect_cvg_strt_dt,8086.1);
5945: end if;
5946:
5947: ---calcualte the function to call the erls_denrt_dt
5948: --- l_old_erlst_deenrt_dt is decide the previous enrolment
5951: l_global_epe_rec.erlst_deenrt_dt is not null and
5952: nvl(l_elect_cvg_strt_dt,hr_api.g_eot)
5953: <> l_global_epe_rec.enrt_cvg_strt_dt then
5954: if g_debug then
5955: hr_utility.set_location('CALLINGH ERLST DATE ' , 8086.1);
5956: end if;
5957: determine_erlst_deenrt_date(p_oipl_id => l_global_epe_rec.oipl_id,
5958: p_pl_id => l_global_epe_rec.pl_id,
5959: p_pl_typ_id => l_global_epe_rec.pl_typ_id ,
5973: end if ;
5974: end if;
5975:
5976: if g_debug then
5977: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
5978: end if;
5979: if g_debug then
5980: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
5981: end if;
5976: if g_debug then
5977: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,8086.1);
5978: end if;
5979: if g_debug then
5980: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
5981: end if;
5982: if g_debug then
5983: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
5984: end if;
5979: if g_debug then
5980: hr_utility.set_location('l_global_epe_recerslt_deenrt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,8086.1);
5981: end if;
5982: if g_debug then
5983: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
5984: end if;
5985: if g_debug then
5986: hr_utility.set_location(l_proc, 150);
5987: end if;
5982: if g_debug then
5983: hr_utility.set_location('l_old_erlst_deenrt_dt '||l_old_erlst_deenrt_dt,8086.1);
5984: end if;
5985: if g_debug then
5986: hr_utility.set_location(l_proc, 150);
5987: end if;
5988: if (l_global_epe_rec.enrt_cvg_strt_dt is null) then
5989: --
5990: -- null globals to prevent bleeding
5993: g_bnft_val:=null;
5994: g_elig_per_elctbl_chc_id:=null;
5995: --
5996: if g_debug then
5997: hr_utility.set_location('BEN_91453_CVG_STRT_DT_NOT_FOUN id:'|| to_char(l_global_epe_rec.pl_id), 169);
5998: end if;
5999: fnd_message.set_name('BEN','BEN_91453_CVG_STRT_DT_NOT_FOUN');
6000: fnd_message.set_token('PROC',l_proc);
6001: fnd_message.set_token('PERSON_ID',to_char(l_global_pil_rec.person_id));
6004: fnd_message.set_token('OIPL_ID',to_char(l_global_epe_rec.oipl_id));
6005: fnd_message.raise_error;
6006: end if; -- date is null
6007: if g_debug then
6008: hr_utility.set_location(l_proc, 170);
6009: end if;
6010: if (nvl(l_old_bnft_val,hr_api.g_number)<>
6011: nvl(l_global_enb_rec.val,hr_api.g_number)
6012: -- Bug#1807450 added and condition
6042: );
6043: -- if there is any waiting period, the start date returned above override the coverage
6044: -- start date arrived in the benmngle - bug#1807450
6045: --
6046: hr_utility.set_location( 'l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,444);
6047: hr_utility.set_location( 'l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,444);
6048: if l_enrt_cvg_strt_dt > l_global_epe_rec.enrt_cvg_strt_dt then
6049: l_global_epe_rec.enrt_cvg_strt_dt := l_enrt_cvg_strt_dt;
6050: end if;
6043: -- if there is any waiting period, the start date returned above override the coverage
6044: -- start date arrived in the benmngle - bug#1807450
6045: --
6046: hr_utility.set_location( 'l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,444);
6047: hr_utility.set_location( 'l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,444);
6048: if l_enrt_cvg_strt_dt > l_global_epe_rec.enrt_cvg_strt_dt then
6049: l_global_epe_rec.enrt_cvg_strt_dt := l_enrt_cvg_strt_dt;
6050: end if;
6051: --
6062: if (l_old_pl_id=l_global_epe_rec.pl_id) then
6063: l_orgnl_enrt_dt:=l_old_orgnl_enrt_dt;
6064: -- Bug 3602579 - now check if previous enrollment was in waive option
6065: if l_old_oipl_id is not null and l_global_epe_rec.oipl_id is not null then
6066: hr_utility.set_location( 'Into the new clause l_old_oipl_id '|| l_old_oipl_id ,999);
6067: hr_utility.set_location( 'Into the new clause l_global_epe_rec.oipl_id '|| l_global_epe_rec.oipl_id ,999);
6068: if (l_old_oipl_id <> l_global_epe_rec.oipl_id) then
6069: hr_utility.set_location( 'Into the new clause ',999);
6070: -- check if old oipl is waive.
6063: l_orgnl_enrt_dt:=l_old_orgnl_enrt_dt;
6064: -- Bug 3602579 - now check if previous enrollment was in waive option
6065: if l_old_oipl_id is not null and l_global_epe_rec.oipl_id is not null then
6066: hr_utility.set_location( 'Into the new clause l_old_oipl_id '|| l_old_oipl_id ,999);
6067: hr_utility.set_location( 'Into the new clause l_global_epe_rec.oipl_id '|| l_global_epe_rec.oipl_id ,999);
6068: if (l_old_oipl_id <> l_global_epe_rec.oipl_id) then
6069: hr_utility.set_location( 'Into the new clause ',999);
6070: -- check if old oipl is waive.
6071: open c_wv_opt (l_old_oipl_id);
6065: if l_old_oipl_id is not null and l_global_epe_rec.oipl_id is not null then
6066: hr_utility.set_location( 'Into the new clause l_old_oipl_id '|| l_old_oipl_id ,999);
6067: hr_utility.set_location( 'Into the new clause l_global_epe_rec.oipl_id '|| l_global_epe_rec.oipl_id ,999);
6068: if (l_old_oipl_id <> l_global_epe_rec.oipl_id) then
6069: hr_utility.set_location( 'Into the new clause ',999);
6070: -- check if old oipl is waive.
6071: open c_wv_opt (l_old_oipl_id);
6072: fetch c_wv_opt into l_wv_flag ;
6073: close c_wv_opt ;
6070: -- check if old oipl is waive.
6071: open c_wv_opt (l_old_oipl_id);
6072: fetch c_wv_opt into l_wv_flag ;
6073: close c_wv_opt ;
6074: hr_utility.set_location( 'Into the new clause l_wv_flag '|| l_wv_flag ,999);
6075: if nvl(l_wv_flag,'N') = 'Y' then
6076: l_wv_flag := 'N' ;
6077: l_orgnl_enrt_dt := l_global_epe_rec.enrt_cvg_strt_dt;
6078: end if ;
6081: else
6082: l_orgnl_enrt_dt:=l_global_epe_rec.enrt_cvg_strt_dt;
6083: end if;
6084: --
6085: hr_utility.set_location( 'l_global_pil_rec.lf_evt_ocrd_dt '|| l_global_pil_rec.lf_evt_ocrd_dt ,999);
6086:
6087: -- create the enrolment result
6088: if l_global_epe_rec.ptip_id is not null then
6089: ben_cobj_cache.get_ptip_dets
6126: --open c_epe ;
6127: --fetch c_epe into l_assignment_id;
6128: --close c_epe ;
6129: if g_debug then
6130: hr_utility.set_location( 'l_assignment_id '||l_assignment_id,12);
6131: hr_utility.set_location( 'l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,12);
6132: end if;
6133: --
6134: -- Bug 7206471. Check if the coverage should be adjusted.
6127: --fetch c_epe into l_assignment_id;
6128: --close c_epe ;
6129: if g_debug then
6130: hr_utility.set_location( 'l_assignment_id '||l_assignment_id,12);
6131: hr_utility.set_location( 'l_global_epe_rec.enrt_cvg_strt_dt'||l_global_epe_rec.enrt_cvg_strt_dt,12);
6132: end if;
6133: --
6134: -- Bug 7206471. Check if the coverage should be adjusted.
6135: --
6144: if c_get_pgm_extra_info_cvg%found then
6145: --
6146: if l_cvg_adjust = 'Y' then
6147: --
6148: hr_utility.set_location('l_cvg_adjust '||l_cvg_adjust,44333);
6149: --
6150: -- Get cvg end dt
6151: --
6152: for l_get_elctbl_chc_for_cvg in c_get_elctbl_chc_for_cvg loop
6154: -- Get all results that were de-enrolled for the event.
6155: --
6156: for l_get_enrt_rslts_for_pen in c_get_enrt_rslts_for_pen(l_get_elctbl_chc_for_cvg.enrt_cvg_strt_dt
6157: ,l_get_elctbl_chc_for_cvg.ptip_id ) loop
6158: hr_utility.set_location('Adjusting Coverage for '||l_get_elctbl_chc_for_cvg.enrt_cvg_strt_dt,44333);
6159: --
6160: open c_prtt_enrt_rslt_adj(l_get_enrt_rslts_for_pen.prtt_enrt_rslt_id);
6161: fetch c_prtt_enrt_rslt_adj into l_exists;
6162: if c_prtt_enrt_rslt_adj%notfound then
6286: ,p_enrt_bnft_id => p_enrt_bnft_id
6287: ,p_source => 'benelinf'
6288: );
6289: if g_debug then
6290: hr_utility.set_location( 'l_global_epe_rec.erlst_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,1233);
6291: end if;
6292: if g_debug then
6293: hr_utility.set_location( 'l_global_epe_rec.per_in_ler_id'||l_global_epe_rec.per_in_ler_id,1233);
6294: end if;
6289: if g_debug then
6290: hr_utility.set_location( 'l_global_epe_rec.erlst_deenrt_dt'||l_global_epe_rec.erlst_deenrt_dt,1233);
6291: end if;
6292: if g_debug then
6293: hr_utility.set_location( 'l_global_epe_rec.per_in_ler_id'||l_global_epe_rec.per_in_ler_id,1233);
6294: end if;
6295: if g_debug then
6296: hr_utility.set_location( 'l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,1233);
6297: end if;
6292: if g_debug then
6293: hr_utility.set_location( 'l_global_epe_rec.per_in_ler_id'||l_global_epe_rec.per_in_ler_id,1233);
6294: end if;
6295: if g_debug then
6296: hr_utility.set_location( 'l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,1233);
6297: end if;
6298: if g_debug then
6299: hr_utility.set_location( 'p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,1233);
6300: end if;
6295: if g_debug then
6296: hr_utility.set_location( 'l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,1233);
6297: end if;
6298: if g_debug then
6299: hr_utility.set_location( 'p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,1233);
6300: end if;
6301: if g_debug then
6302: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1233);
6303: end if;
6298: if g_debug then
6299: hr_utility.set_location( 'p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id,1233);
6300: end if;
6301: if g_debug then
6302: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1233);
6303: end if;
6304: if g_debug then
6305: hr_utility.set_location( 'p_effective_date '||p_effective_date,1233);
6306: end if;
6301: if g_debug then
6302: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1233);
6303: end if;
6304: if g_debug then
6305: hr_utility.set_location( 'p_effective_date '||p_effective_date,1233);
6306: end if;
6307: --
6308: -- write to the change event log. thayden. such a mess!
6309: --
6367: --
6368: end if;
6369: --
6370: if g_debug then
6371: hr_utility.set_location(l_proc, 330);
6372: end if;
6373: --
6374: if p_prtt_enrt_rslt_id is not null -- and
6375: -- l_use_new_result=false then
6379: --
6380: -- If the old enrollment is now the interim coverage
6381: -- then don't end it, leave it be.
6382: --
6383: hr_utility.set_location('ben_sspndd_enrollment.g_sspnded_rslt_id ' || ben_sspndd_enrollment.g_sspnded_rslt_id, 1212);
6384: hr_utility.set_location('l_prtt_enrt_interim_id ' || l_prtt_enrt_interim_id, 1212);
6385: hr_utility.set_location('p_prtt_enrt_rslt_id ' || p_prtt_enrt_rslt_id, 1212);
6386: if (l_prtt_enrt_interim_id is null or
6387: l_prtt_enrt_interim_id <> p_prtt_enrt_rslt_id)
6380: -- If the old enrollment is now the interim coverage
6381: -- then don't end it, leave it be.
6382: --
6383: hr_utility.set_location('ben_sspndd_enrollment.g_sspnded_rslt_id ' || ben_sspndd_enrollment.g_sspnded_rslt_id, 1212);
6384: hr_utility.set_location('l_prtt_enrt_interim_id ' || l_prtt_enrt_interim_id, 1212);
6385: hr_utility.set_location('p_prtt_enrt_rslt_id ' || p_prtt_enrt_rslt_id, 1212);
6386: if (l_prtt_enrt_interim_id is null or
6387: l_prtt_enrt_interim_id <> p_prtt_enrt_rslt_id)
6388: -- 6337803
6381: -- then don't end it, leave it be.
6382: --
6383: hr_utility.set_location('ben_sspndd_enrollment.g_sspnded_rslt_id ' || ben_sspndd_enrollment.g_sspnded_rslt_id, 1212);
6384: hr_utility.set_location('l_prtt_enrt_interim_id ' || l_prtt_enrt_interim_id, 1212);
6385: hr_utility.set_location('p_prtt_enrt_rslt_id ' || p_prtt_enrt_rslt_id, 1212);
6386: if (l_prtt_enrt_interim_id is null or
6387: l_prtt_enrt_interim_id <> p_prtt_enrt_rslt_id)
6388: -- 6337803
6389: and p_prtt_enrt_rslt_id <> nvl(ben_sspndd_enrollment.g_sspnded_rslt_id,-1)
6391: --
6392: -- deenrol
6393: --
6394: if g_debug then
6395: hr_utility.set_location(l_proc, 115);
6396: end if;
6397: if g_debug then
6398: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1234);
6399: end if;
6394: if g_debug then
6395: hr_utility.set_location(l_proc, 115);
6396: end if;
6397: if g_debug then
6398: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1234);
6399: end if;
6400: if g_debug then
6401: hr_utility.set_location( 'p_effective_date '||p_effective_date,1234);
6402: end if;
6397: if g_debug then
6398: hr_utility.set_location( 'p_datetrack_mode '||p_datetrack_mode,1234);
6399: end if;
6400: if g_debug then
6401: hr_utility.set_location( 'p_effective_date '||p_effective_date,1234);
6402: end if;
6403: -- Bug 2627078 fixes
6404: -- Don't try to delete if the result is already got deleted by the earlier
6405: -- process.
6426: -- when the plan replcaed the dele_enroll might have reset the fonm flag
6427: ben_manage_life_events.fonm := l_fonm_flag ;
6428: ben_manage_life_events.g_fonm_cvg_strt_dt := l_fonm_cvg_strt_dt;
6429:
6430: hr_utility.set_location (' aftr del_enrl FONM ' || ben_manage_life_events.fonm , 99 ) ;
6431: hr_utility.set_location (' FONM CVG ' || ben_manage_life_events.g_fonm_cvg_strt_dt , 99 ) ;
6432:
6433:
6434: end if;
6427: ben_manage_life_events.fonm := l_fonm_flag ;
6428: ben_manage_life_events.g_fonm_cvg_strt_dt := l_fonm_cvg_strt_dt;
6429:
6430: hr_utility.set_location (' aftr del_enrl FONM ' || ben_manage_life_events.fonm , 99 ) ;
6431: hr_utility.set_location (' FONM CVG ' || ben_manage_life_events.g_fonm_cvg_strt_dt , 99 ) ;
6432:
6433:
6434: end if;
6435: --
6434: end if;
6435: --
6436: close c_pen_exists ;
6437: if g_debug then
6438: hr_utility.set_location(l_proc, 109);
6439: end if;
6440: end if;
6441: if g_debug then
6442: hr_utility.set_location(l_proc, 110);
6438: hr_utility.set_location(l_proc, 109);
6439: end if;
6440: end if;
6441: if g_debug then
6442: hr_utility.set_location(l_proc, 110);
6443: end if;
6444: -- 6337803 unsetting the pen id to be suspended
6445: ben_sspndd_enrollment.g_sspnded_rslt_id := null;
6446: --
6450: --
6451: p_object_version_number:=l_object_version_number;
6452: end if;
6453: if g_debug then
6454: hr_utility.set_location(l_proc, 340);
6455: end if;
6456:
6457: p_prtt_enrt_rslt_id:=l_prtt_enrt_rslt_id;
6458:
6466: end if;
6467:
6468: -- update benefit fk in enrt_bnft
6469: if g_debug then
6470: hr_utility.set_location(l_proc, 342);
6471: end if;
6472: manage_enrt_bnft(
6473: p_enrt_bnft_id => p_enrt_bnft_id,
6474: p_effective_date => p_effective_date,
6479: p_creation_date => null,
6480: p_created_by => null
6481: );
6482: if g_debug then
6483: hr_utility.set_location(l_proc, 346);
6484: end if;
6485:
6486: -- process all rates
6487:
6486: -- process all rates
6487:
6488: if p_enrt_rt_id1 is not null then
6489: if g_debug then
6490: hr_utility.set_location(l_proc, 350);
6491: end if;
6492: election_rate_information(
6493: p_enrt_mthd_cd => p_enrt_mthd_cd,
6494: p_effective_date => p_effective_date,
6512: --
6513: p_prv_rt_val => l_dummy_number,
6514: p_prv_ann_rt_val => l_dummy_number);
6515: if g_debug then
6516: hr_utility.set_location(l_proc, 360);
6517: end if;
6518: end if;
6519:
6520: if g_debug then
6517: end if;
6518: end if;
6519:
6520: if g_debug then
6521: hr_utility.set_location(l_proc, 370);
6522: end if;
6523:
6524: if p_enrt_rt_id2 is not null then
6525: if g_debug then
6522: end if;
6523:
6524: if p_enrt_rt_id2 is not null then
6525: if g_debug then
6526: hr_utility.set_location(l_proc, 380);
6527: end if;
6528: election_rate_information(
6529: p_enrt_mthd_cd => p_enrt_mthd_cd,
6530: p_effective_date => p_effective_date,
6548: --
6549: p_prv_rt_val => l_dummy_number,
6550: p_prv_ann_rt_val => l_dummy_number);
6551: if g_debug then
6552: hr_utility.set_location(l_proc, 390);
6553: end if;
6554: end if;
6555: if g_debug then
6556: hr_utility.set_location(l_proc, 395);
6552: hr_utility.set_location(l_proc, 390);
6553: end if;
6554: end if;
6555: if g_debug then
6556: hr_utility.set_location(l_proc, 395);
6557: end if;
6558:
6559:
6560: if p_enrt_rt_id3 is not null then
6558:
6559:
6560: if p_enrt_rt_id3 is not null then
6561: if g_debug then
6562: hr_utility.set_location(l_proc, 400);
6563: end if;
6564: election_rate_information(
6565: p_enrt_mthd_cd => p_enrt_mthd_cd,
6566: p_effective_date => p_effective_date,
6584: --
6585: p_prv_rt_val => l_dummy_number,
6586: p_prv_ann_rt_val => l_dummy_number);
6587: if g_debug then
6588: hr_utility.set_location(l_proc, 410);
6589: end if;
6590: end if;
6591: if g_debug then
6592: hr_utility.set_location(l_proc, 420);
6588: hr_utility.set_location(l_proc, 410);
6589: end if;
6590: end if;
6591: if g_debug then
6592: hr_utility.set_location(l_proc, 420);
6593: end if;
6594:
6595:
6596: if p_enrt_rt_id4 is not null then
6594:
6595:
6596: if p_enrt_rt_id4 is not null then
6597: if g_debug then
6598: hr_utility.set_location(l_proc, 430);
6599: end if;
6600: election_rate_information(
6601: p_enrt_mthd_cd => p_enrt_mthd_cd,
6602: p_effective_date => p_effective_date,
6620: --
6621: p_prv_rt_val => l_dummy_number,
6622: p_prv_ann_rt_val => l_dummy_number);
6623: if g_debug then
6624: hr_utility.set_location(l_proc, 440);
6625: end if;
6626: end if;
6627: if g_debug then
6628: hr_utility.set_location(l_proc, 450);
6624: hr_utility.set_location(l_proc, 440);
6625: end if;
6626: end if;
6627: if g_debug then
6628: hr_utility.set_location(l_proc, 450);
6629: end if;
6630:
6631:
6632: if p_enrt_rt_id5 is not null then
6630:
6631:
6632: if p_enrt_rt_id5 is not null then
6633: if g_debug then
6634: hr_utility.set_location(l_proc, 460);
6635: end if;
6636: election_rate_information(
6637: p_enrt_mthd_cd => p_enrt_mthd_cd,
6638: p_effective_date => p_effective_date,
6656: --
6657: p_prv_rt_val => l_dummy_number,
6658: p_prv_ann_rt_val => l_dummy_number);
6659: if g_debug then
6660: hr_utility.set_location(l_proc, 470);
6661: end if;
6662: end if;
6663: if g_debug then
6664: hr_utility.set_location(l_proc, 480);
6660: hr_utility.set_location(l_proc, 470);
6661: end if;
6662: end if;
6663: if g_debug then
6664: hr_utility.set_location(l_proc, 480);
6665: end if;
6666:
6667:
6668: if p_enrt_rt_id6 is not null then
6666:
6667:
6668: if p_enrt_rt_id6 is not null then
6669: if g_debug then
6670: hr_utility.set_location(l_proc, 490);
6671: end if;
6672: election_rate_information(
6673: p_enrt_mthd_cd => p_enrt_mthd_cd,
6674: p_effective_date => p_effective_date,
6692: --
6693: p_prv_rt_val => l_dummy_number,
6694: p_prv_ann_rt_val => l_dummy_number);
6695: if g_debug then
6696: hr_utility.set_location(l_proc, 500);
6697: end if;
6698: end if;
6699: if g_debug then
6700: hr_utility.set_location(l_proc, 510);
6696: hr_utility.set_location(l_proc, 500);
6697: end if;
6698: end if;
6699: if g_debug then
6700: hr_utility.set_location(l_proc, 510);
6701: end if;
6702:
6703:
6704: if p_enrt_rt_id7 is not null then
6702:
6703:
6704: if p_enrt_rt_id7 is not null then
6705: if g_debug then
6706: hr_utility.set_location(l_proc, 520);
6707: end if;
6708: election_rate_information(
6709: p_enrt_mthd_cd => p_enrt_mthd_cd,
6710: p_effective_date => p_effective_date,
6728: --
6729: p_prv_rt_val => l_dummy_number,
6730: p_prv_ann_rt_val => l_dummy_number);
6731: if g_debug then
6732: hr_utility.set_location(l_proc, 530);
6733: end if;
6734: end if;
6735: if g_debug then
6736: hr_utility.set_location(l_proc, 540);
6732: hr_utility.set_location(l_proc, 530);
6733: end if;
6734: end if;
6735: if g_debug then
6736: hr_utility.set_location(l_proc, 540);
6737: end if;
6738:
6739:
6740: if p_enrt_rt_id8 is not null then
6738:
6739:
6740: if p_enrt_rt_id8 is not null then
6741: if g_debug then
6742: hr_utility.set_location(l_proc, 550);
6743: end if;
6744: election_rate_information(
6745: p_enrt_mthd_cd => p_enrt_mthd_cd,
6746: p_effective_date => p_effective_date,
6764: --
6765: p_prv_rt_val => l_dummy_number,
6766: p_prv_ann_rt_val => l_dummy_number);
6767: if g_debug then
6768: hr_utility.set_location(l_proc, 560);
6769: end if;
6770: end if;
6771: if g_debug then
6772: hr_utility.set_location(l_proc, 570);
6768: hr_utility.set_location(l_proc, 560);
6769: end if;
6770: end if;
6771: if g_debug then
6772: hr_utility.set_location(l_proc, 570);
6773: end if;
6774:
6775:
6776: if p_enrt_rt_id9 is not null then
6774:
6775:
6776: if p_enrt_rt_id9 is not null then
6777: if g_debug then
6778: hr_utility.set_location(l_proc, 580);
6779: end if;
6780: election_rate_information(
6781: p_enrt_mthd_cd => p_enrt_mthd_cd,
6782: p_effective_date => p_effective_date,
6800: --
6801: p_prv_rt_val => l_dummy_number,
6802: p_prv_ann_rt_val => l_dummy_number);
6803: if g_debug then
6804: hr_utility.set_location(l_proc, 590);
6805: end if;
6806: end if;
6807: if g_debug then
6808: hr_utility.set_location(l_proc, 600);
6804: hr_utility.set_location(l_proc, 590);
6805: end if;
6806: end if;
6807: if g_debug then
6808: hr_utility.set_location(l_proc, 600);
6809: end if;
6810:
6811:
6812: if p_enrt_rt_id10 is not null then
6810:
6811:
6812: if p_enrt_rt_id10 is not null then
6813: if g_debug then
6814: hr_utility.set_location(l_proc, 610);
6815: end if;
6816: election_rate_information(
6817: p_enrt_mthd_cd => p_enrt_mthd_cd,
6818: p_effective_date => p_effective_date,
6836: --
6837: p_prv_rt_val => l_dummy_number,
6838: p_prv_ann_rt_val => l_dummy_number);
6839: if g_debug then
6840: hr_utility.set_location(l_proc, 620);
6841: end if;
6842: end if;
6843: --
6844: -- If the coverage through date has been passed in, it means we have to update
6897: raise hr_api.validate_enabled;
6898: end if;
6899:
6900: if g_debug then
6901: hr_utility.set_location('Leaving:'||l_proc, 999);
6902: end if;
6903:
6904: exception
6905: --
6922: p_prtt_enrt_interim_id:=null;
6923: ben_sspndd_enrollment.g_use_new_result :=false ; -- bug 5653168
6924:
6925: if g_debug then
6926: hr_utility.set_location(' Leaving:'||l_proc, 80);
6927: end if;
6928: --
6929: when others then
6930: --
6974: and pil.per_in_ler_id=epe.per_in_ler_id
6975: and pil.per_in_ler_stat_cd not in ('VOIDD','BCKDT')
6976: and pil.per_in_ler_id = p_per_in_ler_id ;
6977: BEGIN
6978: g_debug := hr_utility.debug_enabled;
6979: if g_debug then
6980: l_proc := g_package||'manage_enrt_bnft';
6981: hr_utility.set_location('Entering:'||l_proc, 5);
6982: end if;
6977: BEGIN
6978: g_debug := hr_utility.debug_enabled;
6979: if g_debug then
6980: l_proc := g_package||'manage_enrt_bnft';
6981: hr_utility.set_location('Entering:'||l_proc, 5);
6982: end if;
6983: if g_debug then
6984: hr_utility.set_location(' bnft:'|| to_char(p_enrt_bnft_id), 5);
6985: end if;
6980: l_proc := g_package||'manage_enrt_bnft';
6981: hr_utility.set_location('Entering:'||l_proc, 5);
6982: end if;
6983: if g_debug then
6984: hr_utility.set_location(' bnft:'|| to_char(p_enrt_bnft_id), 5);
6985: end if;
6986: if g_debug then
6987: hr_utility.set_location(' rslt:'|| to_char(p_prtt_enrt_rslt_id), 15);
6988: end if;
6983: if g_debug then
6984: hr_utility.set_location(' bnft:'|| to_char(p_enrt_bnft_id), 5);
6985: end if;
6986: if g_debug then
6987: hr_utility.set_location(' rslt:'|| to_char(p_prtt_enrt_rslt_id), 15);
6988: end if;
6989: if g_debug then
6990: hr_utility.set_location(' enb_ovn:'|| to_char(p_object_version_number), 15);
6991: end if;
6986: if g_debug then
6987: hr_utility.set_location(' rslt:'|| to_char(p_prtt_enrt_rslt_id), 15);
6988: end if;
6989: if g_debug then
6990: hr_utility.set_location(' enb_ovn:'|| to_char(p_object_version_number), 15);
6991: end if;
6992:
6993: for rec in c1 loop
6994: if g_debug then
6991: end if;
6992:
6993: for rec in c1 loop
6994: if g_debug then
6995: hr_utility.set_location(l_proc, 10);
6996: end if;
6997: -- Update any enrollment benefit records that may have had the result id
6998: -- on them from previous enrollments. Set rslt id = null.
6999: ben_enrt_bnft_api.update_enrt_bnft
7007: ,p_request_id =>fnd_global.conc_request_id
7008: ,p_program_update_date =>sysdate
7009: );
7010: if g_debug then
7011: hr_utility.set_location(l_proc, 15);
7012: end if;
7013: end loop;
7014: if g_debug then
7015: hr_utility.set_location(l_proc, 20);
7011: hr_utility.set_location(l_proc, 15);
7012: end if;
7013: end loop;
7014: if g_debug then
7015: hr_utility.set_location(l_proc, 20);
7016: end if;
7017:
7018: -- need this for the new enrolment
7019:
7018: -- need this for the new enrolment
7019:
7020: if (p_enrt_bnft_id is not NULL) then
7021: if g_debug then
7022: hr_utility.set_location(l_proc, 30);
7023: end if;
7024: ben_enrt_bnft_api.update_enrt_bnft
7025: (p_enrt_bnft_id => p_enrt_bnft_id
7026: ,p_effective_date => p_effective_date
7032: ,p_request_id => fnd_global.conc_request_id
7033: ,p_program_update_date => sysdate
7034: );
7035: if g_debug then
7036: hr_utility.set_location(l_proc, 40);
7037: end if;
7038: end if;
7039: if g_debug then
7040: hr_utility.set_location('Leaving:'||l_proc, 99);
7036: hr_utility.set_location(l_proc, 40);
7037: end if;
7038: end if;
7039: if g_debug then
7040: hr_utility.set_location('Leaving:'||l_proc, 99);
7041: end if;
7042: END MANAGE_ENRT_BNFT;
7043: --
7044: --
7094: l_trace_param := null;
7095: l_trace_on := false;
7096: --
7097: fnd_msg_pub.initialize;
7098: -- hr_utility.trace_on(null,'BENELINF');
7099:
7100: l_trace_param := fnd_profile.value('BEN_SS_TRACE_VALUE');
7101:
7102: --
7106: l_trace_on := false;
7107: end if;
7108: --
7109: if l_trace_on then
7110: hr_utility.trace_on(null,'BENELINF');
7111: end if;
7112: --
7113: hr_utility.set_location('Entering:'||l_proc, 5);
7114: hr_utility.set_location('l_trace_param : '|| l_trace_param, 5);
7109: if l_trace_on then
7110: hr_utility.trace_on(null,'BENELINF');
7111: end if;
7112: --
7113: hr_utility.set_location('Entering:'||l_proc, 5);
7114: hr_utility.set_location('l_trace_param : '|| l_trace_param, 5);
7115: --
7116: if p_effective_date is not null then
7117: -- l_effective_date := to_date(p_effective_date, 'YYYY/MM/DD');
7110: hr_utility.trace_on(null,'BENELINF');
7111: end if;
7112: --
7113: hr_utility.set_location('Entering:'||l_proc, 5);
7114: hr_utility.set_location('l_trace_param : '|| l_trace_param, 5);
7115: --
7116: if p_effective_date is not null then
7117: -- l_effective_date := to_date(p_effective_date, 'YYYY/MM/DD');
7118: l_effective_date := p_effective_date;
7162: ELSE
7163: p_return_status :='S';
7164: END IF;
7165: --
7166: hr_utility.set_location('Leaving:'||l_proc, 10);
7167: --
7168: if l_trace_on then
7169: hr_utility.trace_off;
7170: l_trace_param := null;
7165: --
7166: hr_utility.set_location('Leaving:'||l_proc, 10);
7167: --
7168: if l_trace_on then
7169: hr_utility.trace_off;
7170: l_trace_param := null;
7171: l_trace_on := false;
7172: end if;
7173: --
7178: fnd_msg_pub.add;
7179: --Bug 4436578
7180: ben_det_enrt_rates.clear_globals;
7181: if l_trace_on then
7182: hr_utility.trace_off;
7183: l_trace_on := false;
7184: l_trace_param := null;
7185: end if;
7186: when others then
7190: fnd_message.set_token('2',substr(sqlerrm,1,200));
7191: fnd_msg_pub.add;
7192: ben_det_enrt_rates.clear_globals;
7193: if l_trace_on then
7194: hr_utility.trace_off;
7195: l_trace_on := false;
7196: l_trace_param := null;
7197: end if;
7198: end election_information_w;
7310: l_proc varchar2(60) := 'ben_election_information.election_information_w inner';
7311: --
7312: begin
7313: --
7314: hr_utility.set_location('Entering : '||l_proc, 10);
7315: p_api_error := false;
7316: --
7317: -- 4543745
7318: --
7320: fetch c_elinf into l_elinf;
7321: close c_elinf;
7322:
7323: if (l_elinf.crntly_enrd_flag = 'Y' and l_elinf.elctbl_flag = 'N' and l_elinf.mndtry_flag = 'N') then
7324: hr_utility.set_location('Returning without calling election_information for cannot change enrollment', 80.1);
7325: return;
7326: end if;
7327:
7328: if p_validate = 'Y' then
7512: ,p_dpnt_actn_warning => l_dpnt_actn_warning
7513: ,p_bnf_actn_warning => l_bnf_actn_warning
7514: ,p_ctfn_actn_warning => l_ctfn_actn_warning);
7515:
7516: hr_utility.set_location('Leaving:'||l_proc, 20);
7517: --
7518: end election_information_w;
7519:
7520: end ben_election_information;