[Home] [Help]
559: --------------------------------------------------------------------------------
560: --
561: --
562: g_package VARCHAR2(80) := 'ben_derive_part_and_rate_facts';
563: g_debug boolean := hr_utility.debug_enabled;
564: g_rec benutils.g_batch_ler_rec;
565: g_lf_evt_exists boolean;
566: --
567: --FONM
608:
609: begin
610: --
611: if g_debug then
612: hr_utility.set_location('Entering ' || l_package,10);
613: end if;
614:
615: l_tax_unit_id := pay_balance_pkg.get_context ('TAX_UNIT_ID');
616:
618: fetch c_paa into l_assignment_action_id ;
619: close c_paa ;
620:
621: if g_debug then
622: hr_utility.set_location('paa id ' || l_assignment_action_id,10);
623: hr_utility.set_location('Leaving ' || l_package,10);
624: end if;
625:
626: return l_assignment_action_id;
619: close c_paa ;
620:
621: if g_debug then
622: hr_utility.set_location('paa id ' || l_assignment_action_id,10);
623: hr_utility.set_location('Leaving ' || l_package,10);
624: end if;
625:
626: return l_assignment_action_id;
627:
650: --
651: BEGIN
652: --
653: if g_debug then
654: hr_utility.set_location('Entering ' || l_package,10);
655: end if;
656: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
657: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
658: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
652: --
653: if g_debug then
654: hr_utility.set_location('Entering ' || l_package,10);
655: end if;
656: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
657: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
658: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
659: hr_utility.set_location('p_business_group_id '||p_business_group_id ,99);
660: --
653: if g_debug then
654: hr_utility.set_location('Entering ' || l_package,10);
655: end if;
656: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
657: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
658: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
659: hr_utility.set_location('p_business_group_id '||p_business_group_id ,99);
660: --
661: -- Test to make sure we are only creating life events of a
654: hr_utility.set_location('Entering ' || l_package,10);
655: end if;
656: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
657: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
658: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
659: hr_utility.set_location('p_business_group_id '||p_business_group_id ,99);
660: --
661: -- Test to make sure we are only creating life events of a
662: -- certain type. This is specifically for temporal mode.
655: end if;
656: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
657: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
658: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
659: hr_utility.set_location('p_business_group_id '||p_business_group_id ,99);
660: --
661: -- Test to make sure we are only creating life events of a
662: -- certain type. This is specifically for temporal mode.
663: -- Dont trigger Potential if called from Unrestricted U,W,M,I,P,A
667: (NVL(ben_derive_part_and_rate_facts.g_temp_ler_id,g_gsp_ler_id) <> g_gsp_ler_id )) OR
668: (NVL(ben_derive_part_and_rate_facts.g_no_ptnl_ler_id,p_ler_id) <> p_ler_id )
669: THEN
670: --
671: hr_utility.set_location('Dont trigger Potential if called from Unrestricted U,W,M,I,P,A.',11);
672: RETURN TRUE;
673: --
674: END IF;
675: --
675: --
676:
677: IF(NVL(p_ptnl_ler_trtmt_cd,'-1') = 'IGNRALL') THEN
678: --
679: hr_utility.set_location('Life Event Treatment code set to IGNR.',11);
680: RETURN TRUE;
681: --
682: END IF;
683:
688: CLOSE c1;
689: --
690: IF (NVL(l_ptnl_ler_trtmt_cd ,'-1') in ('IGNRTHIS','IGNRALL')) THEN
691: --
692: hr_utility.set_location('Life Event Treatment code for '|| l_ler_name ||' set to IGNRTHIS/IGNRALL.',11);
693: RETURN TRUE;
694: --
695: END IF;
696: --
696: --
697: end if;
698: --
699: if g_debug then
700: hr_utility.set_location('Leaving ' || l_package,10);
701: end if;
702: --
703: RETURN FALSE;
704: --
798: --
799: BEGIN
800: --
801: if g_debug then
802: hr_utility.set_location('Entering ' || l_package,10);
803: end if;
804:
805: l_effective_date := nvl(g_fonm_cvg_strt_dt , p_effective_date );
806: --
829: open c_oiplip(l_effective_date);
830: fetch c_oiplip into l_pl_rec.pl_typ_id , l_pl_rec.pl_id;
831: close c_oiplip;
832: END IF;
833: hr_utility.set_location(' pl_id ' || l_pl_rec.pl_id ,10);
834: hr_utility.set_location(' pl_typ_id ' || l_pl_rec.pl_typ_id ,10);
835: --
836: -- Call formula initialise routine
837: --
830: fetch c_oiplip into l_pl_rec.pl_typ_id , l_pl_rec.pl_id;
831: close c_oiplip;
832: END IF;
833: hr_utility.set_location(' pl_id ' || l_pl_rec.pl_id ,10);
834: hr_utility.set_location(' pl_typ_id ' || l_pl_rec.pl_typ_id ,10);
835: --
836: -- Call formula initialise routine
837: --
838: l_ass_rec := p_empasg_row;
935: --
936: ELSE
937: --
938: if g_debug then
939: hr_utility.set_location('INV RULE TYPE PASSED: '||p_rule_type||' '||l_package,99);
940: end if;
941: --
942: END IF;
943: --
940: end if;
941: --
942: END IF;
943: --
944: -- hr_utility.set_location('Leaving ' || l_package,99);
945: --
946: END run_rule;
947: --
948: -- This procedure has to be called first in order to initialise the data
1136: pil.per_in_ler_stat_cd NOT IN ('VOIDD', 'BCKDT')
1137: OR pil.per_in_ler_stat_cd IS NULL);
1138: --
1139: BEGIN
1140: g_debug := hr_utility.debug_enabled;
1141: -- hr_utility.set_location('Entering ' || l_package,10);
1142: --
1143: -- This cursor caches all the elig per information that
1144: -- is used by the derivable factor functions
1137: OR pil.per_in_ler_stat_cd IS NULL);
1138: --
1139: BEGIN
1140: g_debug := hr_utility.debug_enabled;
1141: -- hr_utility.set_location('Entering ' || l_package,10);
1142: --
1143: -- This cursor caches all the elig per information that
1144: -- is used by the derivable factor functions
1145: --
1157: ,p_pgm_id => p_comp_obj_tree_row.par_pgm_id
1158: ,p_pl_id => p_comp_obj_tree_row.par_pl_id
1159: ,p_opt_id => p_comp_obj_tree_row.par_opt_id
1160: ,p_inst_row => p_comp_rec);
1161: -- hr_utility.set_location('Dn PILEPO ' || l_package,10);
1162: --
1163: -- Plan not in a program
1164: --
1165: ELSE
1173: ,c_plip_id => -1
1174: ,c_opt_id => p_comp_obj_tree_row.par_opt_id);
1175: FETCH c_elig_per_opt INTO p_comp_rec;
1176: CLOSE c_elig_per_opt;
1177: -- hr_utility.set_location('Dn c_elig_per_opt ' || l_package,10);
1178: --
1179: END IF;
1180: --
1181: IF p_comp_obj_tree_row.oiplip_id IS NOT NULL THEN
1186: ,p_pgm_id => p_comp_obj_tree_row.par_pgm_id
1187: ,p_plip_id => p_comp_obj_tree_row.par_plip_id
1188: ,p_opt_id => p_comp_obj_tree_row.par_opt_id
1189: ,p_inst_row => p_oiplip_rec);
1190: -- hr_utility.set_location('Dn OIPLIP PILEPO ' || l_package,10);
1191: --
1192: END IF;
1193: --
1194: ELSE
1204: ,p_pl_id => p_pl_id
1205: ,p_plip_id => p_plip_id
1206: ,p_ptip_id => p_ptip_id
1207: ,p_inst_row => p_comp_rec);
1208: -- hr_utility.set_location('Dn PILPEP ' || l_package,10);
1209: --
1210: ELSE
1211: --
1212: OPEN c_elig_per(c_effective_date=> p_effective_date
1219: ,c_pl_id => NVL(p_pl_id
1220: ,-1));
1221: FETCH c_elig_per INTO p_comp_rec;
1222: CLOSE c_elig_per;
1223: -- hr_utility.set_location('Dn c_elig_per ' || l_package,10);
1224: --
1225: END IF;
1226: --
1227: END IF;
1225: END IF;
1226: --
1227: END IF;
1228: --
1229: -- hr_utility.set_location('Leaving ' || l_package,10);
1230: END cache_data_structures;
1231: --
1232: PROCEDURE clear_down_cache IS
1233: --
1235: l_cache_details g_cache_structure;
1236: --
1237: BEGIN
1238: --
1239: -- hr_utility.set_location('Entering ' || l_package,10);
1240: --
1241: -- Set cache structure to null
1242: --
1243: g_cache_details := l_cache_details;
1241: -- Set cache structure to null
1242: --
1243: g_cache_details := l_cache_details;
1244: --
1245: -- hr_utility.set_location('Leaving ' || l_package,10);
1246: --
1247: END;
1248: --
1249: FUNCTION get_balance_date(
1297: AND pbb.person_id = p_person_id;
1298: --
1299: BEGIN
1300: --
1301: -- hr_utility.set_location('Entering ' || l_package,10);
1302: --
1303: IF p_break = 'GT_MIN' THEN
1304: --
1305: OPEN c_gt_min;
1327: END IF;
1328: --
1329: RETURN l_salary;
1330: --
1331: -- hr_utility.set_location('Entering ' || l_package,10);
1332: --
1333: END get_balance_date;
1334: --
1335: FUNCTION get_salary_date(
1447: AND ppp.change_date <= p_effective_date;
1448: --
1449: BEGIN
1450: --
1451: -- hr_utility.set_location('Entering ' || l_package,10);
1452: --
1453: IF p_empasg_row.assignment_id IS NULL THEN
1454: --
1455: l_ass_rec := p_benasg_row;
1514: l_pay_annualization_factor := 2080;
1515: end if;
1516: end if;
1517: if g_debug then
1518: hr_utility.set_location('p_rec.sttd_sal_prdcty_cd :'||p_rec.sttd_sal_prdcty_cd,18);
1519: end if;
1520: --
1521: if p_rec.sttd_sal_prdcty_cd = 'PWK' then
1522: --
1611: end if;
1612: end if;
1613: --
1614: if g_debug then
1615: hr_utility.set_location('Input Value '||l_input ,100);
1616: end if;
1617: if g_debug then
1618: hr_utility.set_location('Output Value '||l_output,100);
1619: end if;
1614: if g_debug then
1615: hr_utility.set_location('Input Value '||l_input ,100);
1616: end if;
1617: if g_debug then
1618: hr_utility.set_location('Output Value '||l_output,100);
1619: end if;
1620: --
1621: IF p_break = 'GT_MIN' THEN
1622: --
1645: END IF;
1646: --
1647: RETURN l_salary;
1648: --
1649: -- hr_utility.set_location('Entering ' || l_package,10);
1650: --
1651: END get_salary_date;
1652: --
1653: FUNCTION get_percent_date(
1705: AND pab.VALUE < p_min;
1706: --
1707: BEGIN
1708: --
1709: -- hr_utility.set_location('Entering ' || l_package,10);
1710: --
1711: IF p_empasg_row.assignment_id IS NULL THEN
1712: --
1713: l_ass_rec := p_benasg_row;
1745: END IF;
1746: --
1747: RETURN l_percent;
1748: --
1749: -- hr_utility.set_location('Leaving ' || l_package,10);
1750: --
1751: END get_percent_date;
1752: --
1753: FUNCTION get_persons_salary(
1784: --
1785: BEGIN
1786: --
1787: if g_debug then
1788: hr_utility.set_location('Leaving ' || l_package,10);
1789: end if;
1790: --
1791: IF p_empasg_row.assignment_id IS NULL THEN
1792: --
1806: --
1807: -- note we don't care if we can't find a salary we just return a null
1808: --
1809: if g_debug then
1810: hr_utility.set_location('Salary is ' || l_salary,10);
1811: end if;
1812: --
1813: CLOSE c1;
1814: --
1858: -- Set sysdate to local
1859: --
1860: l_sysdate := SYSDATE;
1861: --
1862: hr_utility.set_location('Entering ' || l_package,10);
1863: --
1864: -- Quick test to make sure we are only creating life events of a
1865: -- certain type. This is specifically for temporal mode.
1866: --
1874: THEN
1875: --
1876: -- We are creating life events of this type.
1877: --
1878: hr_utility.set_location('Entering ' || l_package,11);
1879: RETURN;
1880: --
1881: END IF;
1882: --
1883: -- Added if condition for GSP.
1884: --
1885: if g_pgm_typ_cd = 'GSP' then
1886: --
1887: hr_utility.set_location('Entering GSP ' || l_package,11);
1888: l_ler_id := g_gsp_ler_id;
1889: l_ler_name := g_gsp_ler_name;
1890: --
1891: else
1889: l_ler_name := g_gsp_ler_name;
1890: --
1891: else
1892: --
1893: hr_utility.set_location('Entering Normal ' || l_package,11);
1894: l_ler_id := p_ler_id;
1895: OPEN c1;
1896: FETCH c1 INTO l_ler_name,l_ptnl_ler_trtmt_cd ;
1897: CLOSE c1;
1900: --
1901: IF NVL(l_ptnl_ler_trtmt_cd ,'-1') = 'IGNRTHIS' THEN
1902: --
1903: if g_debug then
1904: hr_utility.set_location('IGNRTHIS l_ptnl_ler_trtmt_cd '||l_ptnl_ler_trtmt_cd, 80);
1905: end if;
1906: --
1907: -- We are not creating life events or for IGNRTHIS cases
1908: --
1962: g_rec.effective_date := p_effective_date;
1963: --
1964: benutils.write(p_rec=> g_rec);
1965: --
1966: -- hr_utility.set_location('Leaving ' || l_package,10);
1967: --
1968: END create_ptl_ler;
1969: --
1970: FUNCTION no_life_event(
1989: AND pil.lf_evt_ocrd_dt = p_lf_evt_ocrd_dt;
1990: --
1991: BEGIN
1992: --
1993: -- hr_utility.set_location('Entering ' || l_package,10);
1994: --
1995: -- GRADE/STEP : check for grade/step le in case of GSP program.
1996: --
1997: if g_pgm_typ_cd = 'GSP' then
2003: FETCH c1 INTO l_dummy;
2004: IF c1%FOUND THEN
2005: --
2006: CLOSE c1;
2007: -- hr_utility.set_location('Life event exists ' || l_package,10);
2008: RETURN FALSE;
2009: --
2010: END IF;
2011: --
2010: END IF;
2011: --
2012: CLOSE c1;
2013: --
2014: -- hr_utility.set_location('No Life event exists ' || l_package,10);
2015: --
2016: RETURN TRUE;
2017: --
2018: -- hr_utility.set_location('Leaving ' || l_package,10);
2014: -- hr_utility.set_location('No Life event exists ' || l_package,10);
2015: --
2016: RETURN TRUE;
2017: --
2018: -- hr_utility.set_location('Leaving ' || l_package,10);
2019: --
2020: END no_life_event;
2021: --
2022: PROCEDURE min_max_breach
2056: --
2057: BEGIN
2058: --
2059: if g_debug then
2060: hr_utility.set_location('Entering ' || l_package,10);
2061: end if;
2062: --
2063: -- Check if we break a boundary
2064: --
2062: --
2063: -- Check if we break a boundary
2064: --
2065: if g_debug then
2066: hr_utility.set_location('min_max_breach '||p_max_value , 99);
2067: end if;
2068: if g_debug then
2069: hr_utility.set_location('p_new_value '||p_new_value ,99) ;
2070: end if;
2065: if g_debug then
2066: hr_utility.set_location('min_max_breach '||p_max_value , 99);
2067: end if;
2068: if g_debug then
2069: hr_utility.set_location('p_new_value '||p_new_value ,99) ;
2070: end if;
2071: if g_debug then
2072: hr_utility.set_location('p_old_value '||p_old_value ,99);
2073: end if;
2068: if g_debug then
2069: hr_utility.set_location('p_new_value '||p_new_value ,99) ;
2070: end if;
2071: if g_debug then
2072: hr_utility.set_location('p_old_value '||p_old_value ,99);
2073: end if;
2074: hr_utility.set_location('pgm id = ' || p_pgm_id, 9876);
2075: hr_utility.set_location('pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
2076: --
2070: end if;
2071: if g_debug then
2072: hr_utility.set_location('p_old_value '||p_old_value ,99);
2073: end if;
2074: hr_utility.set_location('pgm id = ' || p_pgm_id, 9876);
2075: hr_utility.set_location('pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
2076: --
2077: /* Bug 5478918 */
2078: if (skip_min_max_le_calc(p_ler_id,
2071: if g_debug then
2072: hr_utility.set_location('p_old_value '||p_old_value ,99);
2073: end if;
2074: hr_utility.set_location('pgm id = ' || p_pgm_id, 9876);
2075: hr_utility.set_location('pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
2076: --
2077: /* Bug 5478918 */
2078: if (skip_min_max_le_calc(p_ler_id,
2079: p_business_group_id,
2080: p_ptnl_ler_trtmt_cd,
2081: p_effective_date)) THEN
2082: --
2083: /* Simply return as no further calculations need to be done */
2084: hr_utility.set_location(l_package||' Returning from here.', 9877);
2085: RETURN;
2086: --
2087: end if;
2088: /* End Bug 5478918 */
2112: ,p_value => l_break);
2113:
2114: l_new_lf_evt_ocrd_dt := l_lf_evt_ocrd_dt;
2115: --
2116: --hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 30);
2117: --hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,40);
2118: --
2119: -- Now apply the date mask on top of the derived life event occured date
2120: -- E.G. This could mean that we calculate the Previous October 1 of the
2113:
2114: l_new_lf_evt_ocrd_dt := l_lf_evt_ocrd_dt;
2115: --
2116: --hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 30);
2117: --hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,40);
2118: --
2119: -- Now apply the date mask on top of the derived life event occured date
2120: -- E.G. This could mean that we calculate the Previous October 1 of the
2121: -- derived life event occured date. Do not do this if the det_cd = 'AED'
2135: ,p_returned_date => l_new_lf_evt_ocrd_dt
2136: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt
2137: ,p_effective_date => l_lf_evt_ocrd_dt);
2138: --
2139: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,50);
2140: --
2141: -- The derived life event occured date must be greater than the
2142: -- life event occured date as otherwise in reality a boundary has not
2143: -- been passed.
2164: -- Why this is required ??? causing Bug 1927010
2165: --
2166: -- l_lf_evt_ocrd_dt := ADD_MONTHS(l_lf_evt_ocrd_dt ,1);
2167: null ;
2168: --hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 60);
2169: --
2170: ELSIF p_det_cd = 'AFDCPPY' THEN
2171: --
2172: l_det_cd := 'AFDFPPY';
2187: ,p_returned_date => l_new_lf_evt_ocrd_dt
2188: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt
2189: ,p_effective_date => l_lf_evt_ocrd_dt);
2190: --
2191: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt ,70);
2192: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,80);
2193: --
2194: END IF;
2195: --
2188: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt
2189: ,p_effective_date => l_lf_evt_ocrd_dt);
2190: --
2191: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt ,70);
2192: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,80);
2193: --
2194: END IF;
2195: --
2196: END IF;
2214: --
2215: -- Check if we can ignore the life event that is attempted to be created
2216: --
2217: if g_debug then
2218: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,90);
2219: hr_utility.set_location(' p_effective_date'||p_effective_date,100);
2220: end if;
2221: --
2222: IF ( l_new_lf_evt_ocrd_dt < p_effective_date
2215: -- Check if we can ignore the life event that is attempted to be created
2216: --
2217: if g_debug then
2218: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,90);
2219: hr_utility.set_location(' p_effective_date'||p_effective_date,100);
2220: end if;
2221: --
2222: IF ( l_new_lf_evt_ocrd_dt < p_effective_date
2223: AND NVL(p_ptnl_ler_trtmt_cd,'-1') = 'IGNR') THEN
2259: -- If not we create a life event only if the person has an elig per
2260: -- f record.
2261: --
2262: if g_debug then
2263: hr_utility.set_location(' no_life_event ',110);
2264: end if;
2265: --
2266: IF no_life_event(p_lf_evt_ocrd_dt=> l_new_lf_evt_ocrd_dt
2267: ,p_person_id => p_person_id
2268: ,p_ler_id => p_ler_id
2269: ,p_effective_date => p_effective_date) THEN
2270: --
2271: if g_debug then
2272: hr_utility.set_location(' call to create_ptl_ler' , 120);
2273: end if;
2274: create_ptl_ler
2275: (p_calculate_only_mode => p_calculate_only_mode
2276: ,p_ler_id => p_ler_id
2287: --
2288: END IF;
2289: --
2290: if g_debug then
2291: hr_utility.set_location('Leaving ' || l_package,10);
2292: end if;
2293: --
2294: END min_max_breach;
2295: --
2327: l_ass_rec per_all_assignments_f%ROWTYPE;
2328: l_oiplip_rec ben_cobj_cache.g_oiplip_inst_row;
2329: --
2330: BEGIN
2331: -- hr_utility.set_location('Entering ' || l_package,10);
2332: --
2333: -- Steps to perform process
2334: --
2335: -- 1) Work out the start date
2372: l_ass_rec := p_empasg_row;
2373: end if;
2374: --
2375: IF l_ass_rec.assignment_id IS NOT NULL THEN
2376: -- hr_utility.set_location('get extra info',10);
2377: --
2378: -- Fix for 115.77
2379: --
2380: ben_person_object.get_object(p_assignment_id=> l_ass_rec.assignment_id
2539: -- no override_service_date, hire_date or adjusted_service_date
2540: --
2541: IF l_subtract_date IS NULL THEN
2542: --
2543: -- hr_utility.set_location('Leaving ' || l_package,10);
2544: RETURN NULL;
2545: --
2546: END IF;
2547: --
2570: ,p_effective_date) );
2571: --
2572: END IF;
2573: --
2574: hr_utility.set_location('p_subtract_date -> ' || p_subtract_date,99);
2575: --
2576: p_subtract_date := l_subtract_date;
2577: hr_utility.set_location('Leaving ' || l_package,99);
2578: RETURN l_result;
2573: --
2574: hr_utility.set_location('p_subtract_date -> ' || p_subtract_date,99);
2575: --
2576: p_subtract_date := l_subtract_date;
2577: hr_utility.set_location('Leaving ' || l_package,99);
2578: RETURN l_result;
2579: --
2580: END los_calculation;
2581: --
2709: l_per c_per_spouse%ROWTYPE;
2710: --
2711: BEGIN
2712: --
2713: -- hr_utility.set_location('Entering ' || l_package,10);
2714: --
2715: -- Steps to perform process
2716: --
2717: -- 1) Work out the start date
2738: l_oiplip_rec := p_curroiplip_row;
2739: --
2740: END IF;
2741: --
2742: -- -- hr_utility.set_location('Age to use code '||p_rec.age_to_use_cd,10);
2743: --
2744: IF p_rec.age_to_use_cd = 'P'
2745: OR ( p_rec.age_to_use_cd IS NULL
2746: AND p_rec.age_calc_rl IS NULL) THEN
2953: IF p_rec.age_to_use_cd <> 'IA'
2954: OR p_rec.age_calc_rl IS NOT NULL THEN
2955: --
2956: if g_debug then
2957: hr_utility.set_location(' BDD_Mn ' || l_package,10);
2958: end if;
2959: ben_determine_date.main(p_date_cd=> p_rec.age_det_cd
2960: ,p_formula_id => p_rec.age_det_rl
2961: ,p_person_id => p_person_id
2979: ben_person_object.get_object(p_person_id => l_person_id,
2980: p_rec => l_per_rec);
2981: --
2982: */
2983: --hr_utility.set_location(' Dn BPO_GO ' || l_package,10);
2984: END IF;
2985: --
2986: l_subtract_date := l_per_rec.date_of_birth;
2987: --
3004: ,l_subtract_date);
3005: --
3006: END IF;
3007: --
3008: --hr_utility.set_location(' Dn <> IA ' ||l_result,10);
3009: END IF;
3010: --
3011: IF p_rec.rndg_cd IS NOT NULL
3012: OR p_rec.rndg_rl IS NOT NULL THEN
3019: ,p_effective_date));
3020: --
3021: END IF;
3022: --
3023: hr_utility.set_location('return ' || l_subtract_date,10);
3024: hr_utility.set_location('Leaving ' || l_package,10);
3025: --
3026: p_subtract_date := l_subtract_date;
3027: RETURN l_result;
3020: --
3021: END IF;
3022: --
3023: hr_utility.set_location('return ' || l_subtract_date,10);
3024: hr_utility.set_location('Leaving ' || l_package,10);
3025: --
3026: p_subtract_date := l_subtract_date;
3027: RETURN l_result;
3028: --
3074: --
3075: BEGIN
3076: --
3077: if g_debug then
3078: hr_utility.set_location('Entering ' || l_package,10);
3079: end if;
3080: --
3081: -- Steps to perform process
3082: --
3104: ,p_effective_date => NVL(p_lf_evt_ocrd_dt ,p_effective_date)
3105: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
3106: --
3107: if g_debug then
3108: hr_utility.set_location('p_rec.hrs_src_cd '||p_rec.hrs_src_cd ,20);
3109: end if;
3110: IF p_rec.hrs_src_cd = 'BNFTBALTYP' THEN
3111: --
3112: IF ben_whatif_elig.g_bnft_bal_hwf_val IS NOT NULL THEN
3121: ELSE
3122: --
3123: -- Get the persons balance
3124: if g_debug then
3125: hr_utility.set_location(' p_rec.bnfts_bal_id '||p_rec.bnfts_bal_id , 30);
3126: end if;
3127: if g_debug then
3128: hr_utility.set_location(' p_person_id '||p_person_id , 30);
3129: end if;
3124: if g_debug then
3125: hr_utility.set_location(' p_rec.bnfts_bal_id '||p_rec.bnfts_bal_id , 30);
3126: end if;
3127: if g_debug then
3128: hr_utility.set_location(' p_person_id '||p_person_id , 30);
3129: end if;
3130: if g_debug then
3131: hr_utility.set_location(' l_start_date '||l_start_date, 30);
3132: end if;
3127: if g_debug then
3128: hr_utility.set_location(' p_person_id '||p_person_id , 30);
3129: end if;
3130: if g_debug then
3131: hr_utility.set_location(' l_start_date '||l_start_date, 30);
3132: end if;
3133: --
3134: ben_person_object.get_object(p_person_id=> p_person_id
3135: ,p_effective_date => l_start_date
3147: fetch c_ass into l_min_ass_date ;
3148: close c_ass ;
3149:
3150: if g_debug then
3151: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3152: end if;
3153: if l_min_ass_date is not null then
3154: ben_person_object.get_object(p_person_id=> p_person_id
3155: ,p_effective_date => l_min_ass_date
3164:
3165: IF l_result IS NULL THEN
3166: --
3167: if g_debug then
3168: hr_utility.set_location(' Person does not have a balance ',40);
3169: end if;
3170: --
3171: -- Person does not have a balance, recheck if they have a balance
3172: -- as of the life event occurred date or effective date.
3190: ,p_rec => l_bal_rec);
3191: --
3192: l_result := l_bal_rec.val;
3193: if g_debug then
3194: hr_utility.set_location(' Person does not l_bal_rec.val '||l_bal_rec.val ,50);
3195: end if;
3196: --
3197: IF l_result IS NULL THEN
3198: --
3291: open c_ass ;
3292: fetch c_ass into l_min_ass_date ;
3293: close c_ass ;
3294: if g_debug then
3295: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3296: end if;
3297: l_result :=
3298: pay_balance_pkg.get_value(p_rec.defined_balance_id
3299: ,l_ass_rec.assignment_id
3351: --
3352: END IF;
3353: --
3354: if g_debug then
3355: hr_utility.set_location(' End of hours_calculation l_result '||l_result, 50);
3356: end if;
3357: --
3358: RETURN l_result;
3359: --
3408: l_jurisdiction_code VARCHAR2(30);
3409: l_assignment_action_id number;
3410: --
3411: BEGIN
3412: g_debug := hr_utility.debug_enabled;
3413: --
3414: -- hr_utility.set_location('Entering ' || l_package,10);
3415: --
3416: -- Steps to perform process
3410: --
3411: BEGIN
3412: g_debug := hr_utility.debug_enabled;
3413: --
3414: -- hr_utility.set_location('Entering ' || l_package,10);
3415: --
3416: -- Steps to perform process
3417: --
3418: -- 1) Work out the start date
3492: open c_ass ;
3493: fetch c_ass into l_min_ass_date ;
3494: close c_ass ;
3495: if g_debug then
3496: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3497: end if;
3498: if l_min_ass_date is not null then
3499: l_result :=
3500: get_persons_salary(p_empasg_row=> p_empasg_row
3502: ,p_person_id => p_person_id
3503: ,p_business_group_id => p_business_group_id
3504: ,p_effective_date => l_min_ass_date);
3505: if g_debug then
3506: hr_utility.set_location ('result ' || l_result , 1999);
3507: end if;
3508: end if ;
3509: end if ;
3510: End if ;
3565: fetch c_ass into l_min_ass_date ;
3566: close c_ass ;
3567:
3568: if g_debug then
3569: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3570: end if;
3571: if l_min_ass_date is not null then
3572: ben_person_object.get_object(p_person_id=> p_person_id
3573: ,p_effective_date => l_min_ass_date
3698: fetch c_ass into l_min_ass_date ;
3699: close c_ass ;
3700:
3701: if g_debug then
3702: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3703: end if;
3704: if l_min_ass_date is not null then
3705: l_result :=
3706: pay_balance_pkg.get_value(p_rec.defined_balance_id
3759: END IF;
3760: --
3761: RETURN l_result;
3762: --
3763: -- hr_utility.set_location('Entering ' || l_package,10);
3764: --
3765: END comp_calculation;
3766: --
3767: PROCEDURE calculate_los
3836: OR p_los_fctr_id IS NOT NULL
3837: AND bitand(p_comp_obj_tree_row.flag_bit_val
3838: ,ben_manage_life_events.g_cal_flag) <> 0 THEN
3839: --
3840: -- hr_utility.set_location('LOS for ELIG',10);
3841: IF p_comp_rec.frz_los_flag = 'Y' THEN
3842: --
3843: -- No calulation required just return the frozen value
3844: --
4031: OR p_oiplip_id IS NOT NULL
4032: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
4033: ,ben_manage_life_events.g_los_rt_flag) <> 0 THEN
4034: --
4035: -- hr_utility.set_location('LOS for RT',10);
4036: IF p_comp_rec.rt_frz_los_flag = 'Y' THEN
4037: --
4038: -- No calulation required just return the frozen value
4039: --
4460: p_comp_rec.rt_los_val := NULL;
4461: p_comp_rec.rt_los_uom := NULL;
4462: --
4463: ELSIF l_rate_result is NOT NULL THEN
4464: --hr_utility.set_location(' Step 28',10);
4465: p_comp_rec.rt_los_val := l_rate_result;
4466: p_comp_rec.rt_los_uom := l_rate_rec.los_uom;
4467: --
4468: ELSIF l_rate_cvg_result is NOT NULL then
4468: ELSIF l_rate_cvg_result is NOT NULL then
4469: --
4470: p_comp_rec.rt_los_val := l_rate_cvg_result;
4471: p_comp_rec.rt_los_uom := l_rate_cvg_rec.los_uom;
4472: --hr_utility.set_location(' Step 29',10);
4473: ELSIF l_rate_prem_result is NOT NULL THEN
4474: --
4475: p_comp_rec.rt_los_val := l_rate_prem_result;
4476: p_comp_rec.rt_los_uom := l_rate_prem_rec.los_uom;
4473: ELSIF l_rate_prem_result is NOT NULL THEN
4474: --
4475: p_comp_rec.rt_los_val := l_rate_prem_result;
4476: p_comp_rec.rt_los_uom := l_rate_prem_rec.los_uom;
4477: --hr_utility.set_location(' Step 30',10);
4478: END IF;
4479: --
4480: --hr_utility.set_location(' Step 31',10);
4481: END IF; -- p_age_fctr_id
4476: p_comp_rec.rt_los_uom := l_rate_prem_rec.los_uom;
4477: --hr_utility.set_location(' Step 30',10);
4478: END IF;
4479: --
4480: --hr_utility.set_location(' Step 31',10);
4481: END IF; -- p_age_fctr_id
4482: --
4483: --
4484: END IF;
4484: END IF;
4485: --
4486: END IF;
4487: --
4488: -- hr_utility.set_location('Leaving ' || l_package,10);
4489: --
4490: END calculate_los;
4491: --
4492: -- Calculate AGE
4536: --
4537: BEGIN
4538: --
4539: if g_debug then
4540: hr_utility.set_location('Entering ' || l_package,10);
4541: end if;
4542: if g_debug then
4543: hr_utility.set_location('Start p_oipl_id '||p_oipl_id,15);
4544: end if;
4539: if g_debug then
4540: hr_utility.set_location('Entering ' || l_package,10);
4541: end if;
4542: if g_debug then
4543: hr_utility.set_location('Start p_oipl_id '||p_oipl_id,15);
4544: end if;
4545: if g_debug then
4546: hr_utility.set_location('Start p_plip_id'||p_plip_id,15);
4547: end if;
4542: if g_debug then
4543: hr_utility.set_location('Start p_oipl_id '||p_oipl_id,15);
4544: end if;
4545: if g_debug then
4546: hr_utility.set_location('Start p_plip_id'||p_plip_id,15);
4547: end if;
4548: if g_debug then
4549: hr_utility.set_location('Start p_ptip_id'||p_ptip_id,15);
4550: end if;
4545: if g_debug then
4546: hr_utility.set_location('Start p_plip_id'||p_plip_id,15);
4547: end if;
4548: if g_debug then
4549: hr_utility.set_location('Start p_ptip_id'||p_ptip_id,15);
4550: end if;
4551: if g_debug then
4552: hr_utility.set_location('Start p_oiplip_id'||p_oiplip_id,15);
4553: end if;
4548: if g_debug then
4549: hr_utility.set_location('Start p_ptip_id'||p_ptip_id,15);
4550: end if;
4551: if g_debug then
4552: hr_utility.set_location('Start p_oiplip_id'||p_oiplip_id,15);
4553: end if;
4554: if g_debug then
4555: hr_utility.set_location('Start p_pl_id '||p_pl_id,15);
4556: end if;
4551: if g_debug then
4552: hr_utility.set_location('Start p_oiplip_id'||p_oiplip_id,15);
4553: end if;
4554: if g_debug then
4555: hr_utility.set_location('Start p_pl_id '||p_pl_id,15);
4556: end if;
4557: if g_debug then
4558: hr_utility.set_location('Start p_pgm_id '||p_pgm_id,15);
4559: end if;
4554: if g_debug then
4555: hr_utility.set_location('Start p_pl_id '||p_pl_id,15);
4556: end if;
4557: if g_debug then
4558: hr_utility.set_location('Start p_pgm_id '||p_pgm_id,15);
4559: end if;
4560: if g_debug then
4561: hr_utility.set_location('p_age_fctr_id '||p_age_fctr_id,15);
4562: end if;
4557: if g_debug then
4558: hr_utility.set_location('Start p_pgm_id '||p_pgm_id,15);
4559: end if;
4560: if g_debug then
4561: hr_utility.set_location('p_age_fctr_id '||p_age_fctr_id,15);
4562: end if;
4563:
4564: --
4565: -- Calculate AGE process
4579: OR p_age_fctr_id IS NOT NULL
4580: AND bitand(p_comp_obj_tree_row.flag_bit_val
4581: ,ben_manage_life_events.g_cal_flag) <> 0 THEN
4582: --
4583: --hr_utility.set_location('AGE for ELIG',10);
4584: IF p_comp_rec.frz_age_flag = 'Y' THEN
4585: --
4586: -- No calulation required just return the frozen value
4587: --
4611: ,p_rec => l_elig_rec);
4612: --
4613: END IF;
4614: --
4615: --hr_utility.set_location('EREX=Y ' || l_package,10);
4616: IF l_elig_rec.exist = 'Y' THEN
4617: --
4618: l_elig_result :=
4619: age_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
4724: END IF;
4725: --
4726: END IF;
4727: --
4728: hr_utility.set_location('Plip_id '||p_plip_id,9);
4729: hr_utility.set_location('age_val ' || p_comp_rec.age_val,10);
4730: --
4731: --
4732: IF bitand(p_comp_obj_tree_row.flag_bit_val
4725: --
4726: END IF;
4727: --
4728: hr_utility.set_location('Plip_id '||p_plip_id,9);
4729: hr_utility.set_location('age_val ' || p_comp_rec.age_val,10);
4730: --
4731: --
4732: IF bitand(p_comp_obj_tree_row.flag_bit_val
4733: ,ben_manage_life_events.g_age_rt_flag) <> 0
4737: OR p_oiplip_id IS NOT NULL
4738: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
4739: ,ben_manage_life_events.g_age_rt_flag) <> 0 THEN
4740: --
4741: --hr_utility.set_location('AGE for RT',10);
4742: IF p_comp_rec.rt_frz_age_flag = 'Y' THEN
4743: --
4744: -- No calulation required just return the frozen value
4745: --hr_utility.set_location(' rt_frz_age_flag '||p_comp_rec.rt_frz_age_flag ,22);
4741: --hr_utility.set_location('AGE for RT',10);
4742: IF p_comp_rec.rt_frz_age_flag = 'Y' THEN
4743: --
4744: -- No calulation required just return the frozen value
4745: --hr_utility.set_location(' rt_frz_age_flag '||p_comp_rec.rt_frz_age_flag ,22);
4746: --
4747: NULL;
4748: --
4749: ELSE
4749: ELSE
4750: --
4751: IF p_age_fctr_id IS NOT NULL THEN
4752: --
4753: --hr_utility.set_location(' p_age_fctr_id '||p_age_fctr_id,23);
4754: ben_derive_part_and_rate_cache.get_age_stated(p_age_fctr_id=> p_age_fctr_id
4755: ,p_business_group_id => p_business_group_id
4756: ,p_rec => l_rate_rec);
4757: --
4757: --
4758: ELSE
4759: --
4760: if g_debug then
4761: hr_utility.set_location('Getting Age for Rate',10);
4762: end if;
4763: --
4764: ben_derive_part_and_rate_cache.get_age_rate(p_pgm_id=> p_pgm_id
4765: ,p_pl_id => p_pl_id
4771: ,p_effective_date => nvl(g_fonm_cvg_strt_dt,NVL(p_lf_evt_ocrd_dt
4772: ,p_effective_date))
4773: ,p_rec => l_rate_rec);
4774: --
4775: --hr_utility.set_location(' Rate l_rate_rec.exist '||l_rate_rec.exist,33);
4776: IF l_rate_rec.exist = 'Y' THEN
4777: --
4778: --hr_utility.set_location(' l_rate_rec.exist true ' , 34);
4779: l_rate := TRUE;
4774: --
4775: --hr_utility.set_location(' Rate l_rate_rec.exist '||l_rate_rec.exist,33);
4776: IF l_rate_rec.exist = 'Y' THEN
4777: --
4778: --hr_utility.set_location(' l_rate_rec.exist true ' , 34);
4779: l_rate := TRUE;
4780:
4781: l_rate_result :=
4782: age_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
4799: ,p_ptip_id => p_ptip_id
4800: ,p_subtract_date => l_subtract_date
4801: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
4802:
4803: --hr_utility.set_location(' Step 10 ',10);
4804: --
4805: IF l_rate_result is not null THEN
4806: --
4807: --hr_utility.set_location(' Step 11',10 );
4803: --hr_utility.set_location(' Step 10 ',10);
4804: --
4805: IF l_rate_result is not null THEN
4806: --
4807: --hr_utility.set_location(' Step 11',10 );
4808: ben_derive_part_and_rate_cache.get_age_rate(
4809: p_pgm_id => p_pgm_id
4810: ,p_pl_id => p_pl_id
4811: ,p_oipl_id => p_oipl_id
4823: -- OR l_elig_rec.age_calc_rl IS NOT NULL THEN
4824: --
4825: ben_seeddata_object.get_object(p_rec=> l_der_rec);
4826: --
4827: --hr_utility.set_location(' Step 12 ',10 );
4828: min_max_breach
4829: (p_calculate_only_mode => p_calculate_only_mode
4830: ,p_comp_obj_tree_row => p_comp_obj_tree_row
4831: ,p_curroiplip_row => p_curroiplip_row
4853: -- END IF; -- Breach
4854: --
4855: --p_comp_rec.rt_age_val := l_rate_result;
4856: --p_comp_rec.rt_age_uom := l_rate_rec.age_uom;
4857: --hr_utility.set_location(' Step 13 ',10);
4858: --
4859: END IF; -- l_rate_result
4860: --hr_utility.set_location(' Step 14 ',10 );
4861: --
4856: --p_comp_rec.rt_age_uom := l_rate_rec.age_uom;
4857: --hr_utility.set_location(' Step 13 ',10);
4858: --
4859: END IF; -- l_rate_result
4860: --hr_utility.set_location(' Step 14 ',10 );
4861: --
4862: END IF ; --l_rate_rec.exist
4863: --
4864: --hr_utility.set_location(' Step 15 ',10 );
4860: --hr_utility.set_location(' Step 14 ',10 );
4861: --
4862: END IF ; --l_rate_rec.exist
4863: --
4864: --hr_utility.set_location(' Step 15 ',10 );
4865: -- Try and find a coverage first
4866: --
4867: IF p_oipl_id IS NOT NULL
4868: OR p_pl_id IS NOT NULL
4867: IF p_oipl_id IS NOT NULL
4868: OR p_pl_id IS NOT NULL
4869: OR p_plip_id IS NOT NULL THEN
4870: --
4871: --hr_utility.set_location('Getting Age for CVG',10);
4872: --
4873: ben_derive_part_and_rate_cvg.get_age_rate(
4874: p_pl_id => p_pl_id
4875: ,p_oipl_id => p_oipl_id
4880: ,p_rec => l_rate_cvg_rec);
4881: --
4882: IF l_rate_cvg_rec.exist = 'Y' THEN
4883: --
4884: --hr_utility.set_location(' Step 16 ',10 );
4885: l_cvg := TRUE;
4886: l_rate_cvg_result :=
4887: age_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
4888: ,p_per_row => p_per_row
4907:
4908: --
4909: IF l_rate_cvg_result is not null THEN
4910: --
4911: --hr_utility.set_location(' Step 17' ,10);
4912: ben_derive_part_and_rate_cvg.get_age_rate(
4913: p_pl_id => p_pl_id
4914: ,p_oipl_id => p_oipl_id
4915: ,p_plip_id => p_plip_id
4924: -- OR l_elig_rec.age_calc_rl IS NOT NULL THEN
4925: --
4926: ben_seeddata_object.get_object(p_rec=> l_der_cvg_rec);
4927: --
4928: --hr_utility.set_location(' Step 18' , 10);
4929: min_max_breach
4930: (p_calculate_only_mode => p_calculate_only_mode
4931: ,p_comp_obj_tree_row => p_comp_obj_tree_row
4932: ,p_curroiplip_row => p_curroiplip_row
4954: -- END IF; -- Breach
4955: --
4956: -- p_comp_rec.rt_age_val := l_rate_cvg_result;
4957: -- p_comp_rec.rt_age_uom := l_rate_cvg_rec.age_uom;
4958: --hr_utility.set_location(' Step 19',10);
4959:
4960: END IF ; -- l_rate_cvg_result
4961: --
4962: --hr_utility.set_location(' Step 20',10);
4958: --hr_utility.set_location(' Step 19',10);
4959:
4960: END IF ; -- l_rate_cvg_result
4961: --
4962: --hr_utility.set_location(' Step 20',10);
4963: END IF; --l_rate_cvg_rec.exist
4964: --
4965: -- Try and find a premium
4966: --
4963: END IF; --l_rate_cvg_rec.exist
4964: --
4965: -- Try and find a premium
4966: --
4967: --hr_utility.set_location('Getting Age for Prem',10);
4968: ben_derive_part_and_rate_prem.get_age_rate(
4969: p_pl_id => p_pl_id
4970: ,p_oipl_id => p_oipl_id
4971: ,p_business_group_id => p_business_group_id
4976: IF l_rate_prem_rec.exist = 'Y' THEN
4977: --
4978: l_prem := TRUE;
4979: --
4980: --hr_utility.set_location(' Step 21',10);
4981: l_rate_prem_result :=
4982: age_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
4983: ,p_per_row => p_per_row
4984: ,p_empasg_row => p_empasg_row
4999: ,p_ptip_id => p_ptip_id
5000: ,p_subtract_date => l_subtract_date
5001: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
5002: --
5003: --hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,123);
5004: --
5005: IF l_rate_prem_result is not null THEN
5006: --
5007: --hr_utility.set_location(' in l_prem ' ,133);
5003: --hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,123);
5004: --
5005: IF l_rate_prem_result is not null THEN
5006: --
5007: --hr_utility.set_location(' in l_prem ' ,133);
5008: ben_derive_part_and_rate_prem.get_age_rate(
5009: p_pl_id => p_pl_id
5010: ,p_oipl_id => p_oipl_id
5011: ,p_business_group_id => p_business_group_id
5019: -- OR l_elig_rec.age_calc_rl IS NOT NULL THEN
5020: --
5021: ben_seeddata_object.get_object(p_rec=> l_der_prem_rec);
5022: --
5023: --hr_utility.set_location(' Step 22',10);
5024: min_max_breach
5025: (p_calculate_only_mode => p_calculate_only_mode
5026: ,p_comp_obj_tree_row => p_comp_obj_tree_row
5027: ,p_curroiplip_row => p_curroiplip_row
5049: -- END IF; -- Breach
5050: --
5051: --p_comp_rec.rt_age_val := l_rate_prem_result;
5052: --p_comp_rec.rt_age_uom := l_rate_prem_rec.age_uom;
5053: --hr_utility.set_location(' Step 23',10);
5054: --
5055: END IF; -- l_rate_prem_result
5056: --
5057: --hr_utility.set_location(' Step 24',10);
5053: --hr_utility.set_location(' Step 23',10);
5054: --
5055: END IF; -- l_rate_prem_result
5056: --
5057: --hr_utility.set_location(' Step 24',10);
5058: END IF; -- l_rate_prem_rec.exist
5059: --
5060: --hr_utility.set_location(' Step 25',10);
5061: END IF; -- p_oipl_id
5056: --
5057: --hr_utility.set_location(' Step 24',10);
5058: END IF; -- l_rate_prem_rec.exist
5059: --
5060: --hr_utility.set_location(' Step 25',10);
5061: END IF; -- p_oipl_id
5062: --
5063: --hr_utility.set_location(' Step 26',10);
5064: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
5059: --
5060: --hr_utility.set_location(' Step 25',10);
5061: END IF; -- p_oipl_id
5062: --
5063: --hr_utility.set_location(' Step 26',10);
5064: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
5065: --
5066: p_comp_rec.rt_age_val := NULL;
5067: p_comp_rec.rt_age_uom := NULL;
5064: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
5065: --
5066: p_comp_rec.rt_age_val := NULL;
5067: p_comp_rec.rt_age_uom := NULL;
5068: --hr_utility.set_location(' Step 27',10);
5069: --
5070: --
5071: ELSIF l_rate_result is NOT NULL THEN
5072: --
5069: --
5070: --
5071: ELSIF l_rate_result is NOT NULL THEN
5072: --
5073: --hr_utility.set_location(' Step 28',10);
5074: p_comp_rec.rt_age_val := l_rate_result;
5075: p_comp_rec.rt_age_uom := l_rate_rec.age_uom;
5076: --
5077: --
5076: --
5077: --
5078: ELSIF l_rate_cvg_result is NOT NULL then
5079: --
5080: --hr_utility.set_location(' Step 29',10);
5081: p_comp_rec.rt_age_val := l_rate_cvg_result;
5082: p_comp_rec.rt_age_uom := l_rate_cvg_rec.age_uom;
5083: --
5084: ELSIF l_rate_prem_result is NOT NULL THEN
5082: p_comp_rec.rt_age_uom := l_rate_cvg_rec.age_uom;
5083: --
5084: ELSIF l_rate_prem_result is NOT NULL THEN
5085: --
5086: --hr_utility.set_location(' Step 30',10);
5087: p_comp_rec.rt_age_val := l_rate_prem_result;
5088: p_comp_rec.rt_age_uom := l_rate_prem_rec.age_uom;
5089: --
5090: END IF;
5088: p_comp_rec.rt_age_uom := l_rate_prem_rec.age_uom;
5089: --
5090: END IF;
5091: --
5092: --hr_utility.set_location(' Step 31',10);
5093: END IF; -- p_age_fctr_id
5094: --
5095: --
5096: --hr_utility.set_location('Dn AF NN ' ||l_rate_rec.exist,123);
5092: --hr_utility.set_location(' Step 31',10);
5093: END IF; -- p_age_fctr_id
5094: --
5095: --
5096: --hr_utility.set_location('Dn AF NN ' ||l_rate_rec.exist,123);
5097: --
5098: END IF; -- p_comp_rec.rt_frz_age_flag
5099: --
5100: END IF; -- STANDARD.bitand
5099: --
5100: END IF; -- STANDARD.bitand
5101: --
5102: if g_debug then
5103: hr_utility.set_location('Leaving ' || l_package,10);
5104: end if;
5105: --
5106: END calculate_age;
5107: --
5150: l_oiplip_rec ben_cobj_cache.g_oiplip_inst_row;
5151: --
5152: BEGIN
5153: if g_debug then
5154: hr_utility.set_location('Entering comp_level_min_max ', 10 );
5155: end if;
5156: /* Bug 5478918 */
5157: if (skip_min_max_le_calc(p_ler_id,
5158: p_business_group_id,
5159: p_ptnl_ler_trtmt_cd,
5160: p_effective_date)) THEN
5161: --
5162: /* Simply return as no further calculations need to be done */
5163: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
5164: RETURN;
5165: end if;
5166: /* End Bug 5478918 */
5167: if g_debug then
5164: RETURN;
5165: end if;
5166: /* End Bug 5478918 */
5167: if g_debug then
5168: hr_utility.set_location('p_max_value '||p_max_value,10);
5169: end if;
5170: if g_debug then
5171: hr_utility.set_location('p_min_value '||p_min_value,10);
5172: end if;
5167: if g_debug then
5168: hr_utility.set_location('p_max_value '||p_max_value,10);
5169: end if;
5170: if g_debug then
5171: hr_utility.set_location('p_min_value '||p_min_value,10);
5172: end if;
5173: if g_debug then
5174: hr_utility.set_location('p_new_value '||p_new_value,10);
5175: end if;
5170: if g_debug then
5171: hr_utility.set_location('p_min_value '||p_min_value,10);
5172: end if;
5173: if g_debug then
5174: hr_utility.set_location('p_new_value '||p_new_value,10);
5175: end if;
5176: if g_debug then
5177: hr_utility.set_location('p_old_value '||p_old_value,10);
5178: end if;
5173: if g_debug then
5174: hr_utility.set_location('p_new_value '||p_new_value,10);
5175: end if;
5176: if g_debug then
5177: hr_utility.set_location('p_old_value '||p_old_value,10);
5178: end if;
5179: --
5180: IF benutils.min_max_breach(p_min_value=> NVL(p_min_value
5181: ,-1)
5187: --
5188: -- Derive life event occured date based on the value of l_break
5189: --
5190: if g_debug then
5191: hr_utility.set_location(' l_break '||l_break , 10);
5192: end if;
5193: --
5194: IF p_comp_src_cd = 'STTDCOMP' THEN
5195: --
5203: ,p_max => p_max_value
5204: ,p_break => l_break);
5205: --
5206: if g_debug then
5207: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 20);
5208: end if;
5209: --
5210: /* BUG: 4380180. IF l_lf_evt_ocrd_dt IS NULL, avoid determining the date */
5211: IF (p_det_cd <> 'AED' AND l_lf_evt_ocrd_dt IS NOT NULL) THEN
5224: ,p_returned_date => l_new_lf_evt_ocrd_dt
5225: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt
5226: ,p_effective_date => l_lf_evt_ocrd_dt);
5227: if g_debug then
5228: hr_utility.set_location(' l_new_lf_evt_ocrd_dt '||l_new_lf_evt_ocrd_dt , 30);
5229: end if;
5230: --
5231: -- The derived life event occured date must be greater than the
5232: -- life event occured date as otherwise in reality a boundary
5285: --
5286: END IF;
5287: --
5288: if g_debug then
5289: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 40);
5290: end if;
5291: --
5292: ELSIF p_comp_src_cd = 'BNFTBALTYP' THEN
5293: --
5384: ben_person_object.get_object(p_person_id=> p_person_id
5385: ,p_rec => l_rec);
5386: --
5387: if g_debug then
5388: hr_utility.set_location(' l_rec.min_ass_effective_start_date ' ||l_rec.min_ass_effective_start_date, 50);
5389: end if;
5390: if g_debug then
5391: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 51);
5392: end if;
5387: if g_debug then
5388: hr_utility.set_location(' l_rec.min_ass_effective_start_date ' ||l_rec.min_ass_effective_start_date, 50);
5389: end if;
5390: if g_debug then
5391: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 51);
5392: end if;
5393: --
5394: IF l_lf_evt_ocrd_dt >= l_rec.min_ass_effective_start_date THEN
5395: --
5395: --
5396: -- ben_seeddata_object.get_object(p_rec=> p_ler_id);
5397: --
5398: if g_debug then
5399: hr_utility.set_location(' Before no_life_event ',60);
5400: end if;
5401: --
5402: IF no_life_event(p_lf_evt_ocrd_dt=> l_lf_evt_ocrd_dt
5403: ,p_person_id => p_person_id
5404: ,p_ler_id => p_ler_id
5405: ,p_effective_date => p_effective_date) THEN
5406: --
5407: if g_debug then
5408: hr_utility.set_location(' No Life Event ',70);
5409: end if;
5410: --
5411: IF ( l_lf_evt_ocrd_dt < p_effective_date
5412: AND NVL(p_ptnl_ler_trtmt_cd
5412: AND NVL(p_ptnl_ler_trtmt_cd
5413: ,'-1') = 'IGNR' OR NVL(p_ptnl_ler_trtmt_cd,'-1') = 'IGNRALL') THEN
5414: --
5415: if g_debug then
5416: hr_utility.set_location('IGNR ' , 80);
5417: end if;
5418: -- We are not creating past life events
5419: --
5420: RETURN;
5421: --
5422: END IF;
5423: --
5424: if g_debug then
5425: hr_utility.set_location('Call create_ptl_ler ' ,90);
5426: end if;
5427: --
5428: create_ptl_ler
5429: (p_calculate_only_mode => p_calculate_only_mode
5440: --
5441: END IF;
5442: --
5443: if g_debug then
5444: hr_utility.set_location(' Leaving comp_level_min_max ',100);
5445: end if;
5446: --
5447: END comp_level_min_max ;
5448:
5542: --
5543: --BUG 3174453. If we don't have pgmid,plid or oipld we need to get them
5544: --from the p_comp_obj_tree_row cache to pass to determine_compensation
5545: --in bendefct.pkb
5546: g_debug := hr_utility.debug_enabled;
5547: if g_debug then
5548: hr_utility.set_location('Entering ' || l_package,10);
5549: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5550: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5544: --from the p_comp_obj_tree_row cache to pass to determine_compensation
5545: --in bendefct.pkb
5546: g_debug := hr_utility.debug_enabled;
5547: if g_debug then
5548: hr_utility.set_location('Entering ' || l_package,10);
5549: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5550: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5551: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5552: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5545: --in bendefct.pkb
5546: g_debug := hr_utility.debug_enabled;
5547: if g_debug then
5548: hr_utility.set_location('Entering ' || l_package,10);
5549: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5550: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5551: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5552: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5553: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5546: g_debug := hr_utility.debug_enabled;
5547: if g_debug then
5548: hr_utility.set_location('Entering ' || l_package,10);
5549: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5550: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5551: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5552: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5553: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5554: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5547: if g_debug then
5548: hr_utility.set_location('Entering ' || l_package,10);
5549: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5550: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5551: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5552: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5553: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5554: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5548: hr_utility.set_location('Entering ' || l_package,10);
5549: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5550: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5551: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5552: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5553: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5554: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5549: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5550: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5551: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5552: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5553: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5554: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5550: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5551: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5552: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5553: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5554: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5551: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5552: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5553: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5554: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5552: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5553: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5554: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5560: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5553: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5554: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5560: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5561: --
5554: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5560: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5561: --
5562: end if;
5555: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5560: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5561: --
5562: end if;
5563: --
5556: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5560: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5561: --
5562: end if;
5563: --
5564: if p_pgm_id IS NULL AND p_pl_id IS NULL AND p_oipl_id IS NULL then
5611: p_pl_id := l_pl_id;
5612: p_oipl_id:= l_oipl_id;
5613: --
5614: if g_debug then
5615: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5616: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5617: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5618: hr_utility.set_location('Leaving ' || l_package,10);
5619: --
5612: p_oipl_id:= l_oipl_id;
5613: --
5614: if g_debug then
5615: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5616: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5617: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5618: hr_utility.set_location('Leaving ' || l_package,10);
5619: --
5620: end if;
5613: --
5614: if g_debug then
5615: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5616: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5617: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5618: hr_utility.set_location('Leaving ' || l_package,10);
5619: --
5620: end if;
5621: --
5614: if g_debug then
5615: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5616: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5617: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5618: hr_utility.set_location('Leaving ' || l_package,10);
5619: --
5620: end if;
5621: --
5622: end get_comp_objects;
5624: --
5625: BEGIN
5626: --
5627: if g_debug then
5628: hr_utility.set_location('Entering ' || l_package,10);
5629: end if;
5630: --
5631: -- Calculate CLVL process
5632: -- =====================
5641: --
5642: IF bitand(p_comp_obj_tree_row.flag_bit_val
5643: ,ben_manage_life_events.g_cmp_flag) <> 0 THEN
5644: --
5645: -- hr_utility.set_location('COMP for ELIG',10);
5646: IF p_comp_rec.frz_cmp_lvl_flag = 'Y' THEN
5647: --
5648: -- No calulation required just return the frozen value
5649: --
5664: l_ok := TRUE;
5665: --
5666: IF l_elig_rec.exist = 'Y' THEN
5667: -- Rule takes precedence
5668: -- hr_utility.set_location(' Elig exists ' || l_package,10);
5669: IF l_elig_rec.comp_calc_rl IS NOT NULL THEN
5670: --
5671: ben_determine_date.main(p_date_cd=> l_elig_rec.comp_lvl_det_cd
5672: ,p_formula_id => l_elig_rec.comp_lvl_det_rl
5764: -- ,p_cal_for in varchar2 default null,
5765: ,p_value => l_elig_result
5766: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt );
5767: --
5768: -- hr_utility.set_location(' Dn comp calc ' || l_package,10);
5769: --
5770: END IF;
5771: --
5772: /* Bug 5478918 */
5777: p_ptnl_ler_trtmt_cd,
5778: p_effective_date)) THEN
5779: --
5780: /* Simply return as no further calculations need to be done */
5781: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
5782: null;
5783: --
5784: else
5785: --
6053: END IF;
6054: --
6055: END IF;
6056: --
6057: -- hr_utility.set_location('RFCLF=Y ' || l_package,10);
6058: --
6059: END IF;
6060: --
6061: if g_debug then
6058: --
6059: END IF;
6060: --
6061: if g_debug then
6062: hr_utility.set_location(' Before entering into Rate Factors ', 15);
6063: end if;
6064: IF bitand(p_comp_obj_tree_row.flag_bit_val
6065: ,ben_manage_life_events.g_cmp_rt_flag) <> 0
6066: OR p_oiplip_id IS NOT NULL
6067: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
6068: ,ben_manage_life_events.g_cmp_rt_flag) <> 0 THEN
6069: --
6070: if g_debug then
6071: hr_utility.set_location('COMP for RT',10);
6072: end if;
6073: IF p_comp_rec.rt_frz_cmp_lvl_flag = 'Y' THEN
6074: --
6075: -- No calulation required just return the frozen value
6078: --
6079: ELSE
6080: --
6081: if g_debug then
6082: hr_utility.set_location('ben_derive_part_and_rate_cache '||p_oipl_id , 20);
6083: end if;
6084: --
6085: ben_derive_part_and_rate_cache.get_comp_rate(p_pgm_id=> p_pgm_id
6086: ,p_pl_id => p_pl_id
6095: --
6096: IF l_rate_rec.exist = 'Y' THEN
6097: --
6098: if g_debug then
6099: hr_utility.set_location(' l_rate_rec.exist ' ,25);
6100: end if;
6101: l_rate := TRUE;
6102: --
6103: IF p_oiplip_id IS NOT NULL THEN
6102: --
6103: IF p_oiplip_id IS NOT NULL THEN
6104: --
6105: if g_debug then
6106: hr_utility.set_location(' p_curroiplip_row ',25);
6107: end if;
6108: l_oiplip_rec := p_curroiplip_row;
6109: --
6110: END IF;
6111: --
6112: IF l_rate_rec.comp_calc_rl IS NOT NULL THEN
6113: --
6114: if g_debug then
6115: hr_utility.set_location('in the comp_calc_rl ' ,30);
6116: end if;
6117: --
6118: ben_determine_date.main(p_date_cd=> l_rate_rec.comp_lvl_det_cd
6119: ,p_formula_id => l_rate_rec.comp_lvl_det_rl
6155: IF l_rate_rec.rndg_cd IS NOT NULL
6156: OR l_rate_rec.rndg_rl IS NOT NULL THEN
6157: --
6158: if g_debug then
6159: hr_utility.set_location('in the comp_calc_rl rndg_cd ' ,35 );
6160: end if;
6161: --
6162: l_rate_result :=
6163: benutils.do_rounding(p_rounding_cd=> l_rate_rec.rndg_cd
6170: --
6171: ELSE -- l_rate_rec.comp_calc_rl
6172: --
6173: if g_debug then
6174: hr_utility.set_location('not rule - l_rate_result ',30);
6175: end if;
6176: /*
6177: l_rate_result :=
6178: comp_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
6241: --
6242: ben_seeddata_object.get_object(p_rec=> l_der_rec);
6243: --
6244: if g_debug then
6245: hr_utility.set_location(' Call to comp_level_min_max ' ,45 );
6246: end if;
6247:
6248: comp_level_min_max
6249: (p_calculate_only_mode =>p_calculate_only_mode
6287: END IF ; -- l_rate_rec.exist
6288: -- Try and find a coverage first
6289: --
6290: if g_debug then
6291: hr_utility.set_location(' Now check for Coverage and Premium' ,50 );
6292: end if;
6293: --
6294: IF p_oipl_id IS NOT NULL
6295: OR p_pl_id IS NOT NULL
6295: OR p_pl_id IS NOT NULL
6296: OR p_plip_id IS NOT NULL THEN
6297: --
6298: if g_debug then
6299: hr_utility.set_location(' ben_derive_part_and_rate_cvg ' , 55);
6300: end if;
6301: --
6302: ben_derive_part_and_rate_cvg.get_comp_rate(p_pl_id=> p_pl_id
6303: ,p_oipl_id => p_oipl_id
6309: --
6310: IF l_rate_cvg_rec.exist = 'Y' THEN
6311: --
6312: if g_debug then
6313: hr_utility.set_location(' l_rate_cvg_rec.exist' , 60);
6314: end if;
6315: l_cvg := TRUE;
6316: --
6317: IF l_rate_cvg_rec.comp_calc_rl IS NOT NULL THEN
6368: --
6369: ELSE -- l_rate_cvg_rec.comp_calc_rl
6370: --
6371: if g_debug then
6372: hr_utility.set_location(' call to comp_calculation ' , 65 );
6373: end if;
6374: /*
6375: l_rate_cvg_result :=
6376: comp_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
6417: ,p_value => l_rate_cvg_result
6418: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
6419: ---
6420: if g_debug then
6421: hr_utility.set_location(' l_rate_cvg_result ' ,70);
6422: end if;
6423: IF l_rate_cvg_result is not null THEN
6424: --
6425: ben_derive_part_and_rate_cvg.get_comp_rate(p_pl_id=> p_pl_id
6439:
6440: ben_seeddata_object.get_object(p_rec=> l_der_cvg_rec);
6441: --
6442: if g_debug then
6443: hr_utility.set_location(' call comp_level_min_max ' ,75);
6444: end if;
6445: comp_level_min_max
6446: (p_calculate_only_mode =>p_calculate_only_mode
6447: ,p_comp_obj_tree_row =>p_comp_obj_tree_row
6487: IF p_oipl_id IS NOT NULL
6488: OR p_pl_id IS NOT NULL THEN
6489: --
6490: if g_debug then
6491: hr_utility.set_location(' Now call ben_derive_part_and_rate_prem ' , 80);
6492: end if;
6493: --
6494: ben_derive_part_and_rate_prem.get_comp_rate(
6495: p_pl_id => p_pl_id
6501: --
6502: IF l_rate_prem_rec.exist = 'Y' THEN
6503: --
6504: if g_debug then
6505: hr_utility.set_location(' l_rate_prem_rec.exist Y ',85);
6506: end if;
6507: l_prem := TRUE;
6508: --
6509: IF l_rate_prem_rec.comp_calc_rl IS NOT NULL THEN
6559: --
6560: ELSE -- l_rate_prem_rec.comp_calc_rl
6561: --
6562: if g_debug then
6563: hr_utility.set_location(' call to comp_calculation ' , 90);
6564: end if;
6565: /*
6566: l_rate_prem_result :=
6567: comp_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
6606: ,p_value => l_rate_prem_result
6607: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
6608: --
6609: if g_debug then
6610: hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,95);
6611: end if;
6612: if g_debug then
6613: hr_utility.set_location(' p_old_val '||p_comp_rec.rt_comp_ref_amt,95);
6614: end if;
6609: if g_debug then
6610: hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,95);
6611: end if;
6612: if g_debug then
6613: hr_utility.set_location(' p_old_val '||p_comp_rec.rt_comp_ref_amt,95);
6614: end if;
6615: if g_debug then
6616: hr_utility.set_location(' p_new_val '||l_rate_prem_result,95);
6617: end if;
6612: if g_debug then
6613: hr_utility.set_location(' p_old_val '||p_comp_rec.rt_comp_ref_amt,95);
6614: end if;
6615: if g_debug then
6616: hr_utility.set_location(' p_new_val '||l_rate_prem_result,95);
6617: end if;
6618: if g_debug then
6619: hr_utility.set_location(' p_pl_id '||p_pl_id,95);
6620: end if;
6615: if g_debug then
6616: hr_utility.set_location(' p_new_val '||l_rate_prem_result,95);
6617: end if;
6618: if g_debug then
6619: hr_utility.set_location(' p_pl_id '||p_pl_id,95);
6620: end if;
6621: if g_debug then
6622: hr_utility.set_location(' p_oipl_id '||p_oipl_id,95);
6623: end if;
6618: if g_debug then
6619: hr_utility.set_location(' p_pl_id '||p_pl_id,95);
6620: end if;
6621: if g_debug then
6622: hr_utility.set_location(' p_oipl_id '||p_oipl_id,95);
6623: end if;
6624: if g_debug then
6625: hr_utility.set_location(' p_effective_date '||NVL(p_lf_evt_ocrd_dt,p_effective_date) ,95);
6626: end if;
6621: if g_debug then
6622: hr_utility.set_location(' p_oipl_id '||p_oipl_id,95);
6623: end if;
6624: if g_debug then
6625: hr_utility.set_location(' p_effective_date '||NVL(p_lf_evt_ocrd_dt,p_effective_date) ,95);
6626: end if;
6627: --
6628: IF l_rate_prem_result is not null THEN
6629: --
6643: --
6644: ben_seeddata_object.get_object(p_rec=> l_der_prem_rec);
6645: --
6646: if g_debug then
6647: hr_utility.set_location(' call to comp_level_min_max ' ,100);
6648: end if;
6649: comp_level_min_max
6650: (p_calculate_only_mode =>p_calculate_only_mode
6651: ,p_comp_obj_tree_row =>p_comp_obj_tree_row
6689: --
6690: END IF; -- p_oipl_id for Premium
6691: --
6692: if g_debug then
6693: hr_utility.set_location(' Done with Rate, Cvg and Prem ', 110);
6694: end if;
6695: --
6696: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
6697: --
6695: --
6696: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
6697: --
6698: if g_debug then
6699: hr_utility.set_location('No record found ' ,120);
6700: end if;
6701: --
6702: p_comp_rec.rt_comp_ref_amt := NULL;
6703: p_comp_rec.rt_comp_ref_uom := NULL;
6703: p_comp_rec.rt_comp_ref_uom := NULL;
6704: --
6705: ELSIF l_rate_result is NOT NULL THEN
6706: if g_debug then
6707: hr_utility.set_location(' Step 28',10);
6708: end if;
6709: p_comp_rec.rt_comp_ref_amt := l_rate_result;
6710: p_comp_rec.rt_comp_ref_uom := l_rate_rec.comp_lvl_uom;
6711: --
6713: --
6714: p_comp_rec.rt_comp_ref_amt := l_rate_cvg_result;
6715: p_comp_rec.rt_comp_ref_uom := l_rate_cvg_rec.comp_lvl_uom;
6716: if g_debug then
6717: hr_utility.set_location(' Step 29',10);
6718: end if;
6719: ELSIF l_rate_prem_result is NOT NULL THEN
6720: --
6721: p_comp_rec.rt_comp_ref_amt := l_rate_prem_result;
6720: --
6721: p_comp_rec.rt_comp_ref_amt := l_rate_prem_result;
6722: p_comp_rec.rt_comp_ref_uom := l_rate_prem_rec.comp_lvl_uom;
6723: if g_debug then
6724: hr_utility.set_location(' Step 30',10);
6725: end if;
6726: END IF;
6727: /*
6728: p_comp_rec.rt_comp_ref_amt := l_rate_result;
6745: --
6746: END IF;
6747: --
6748: if g_debug then
6749: hr_utility.set_location('Leaving ' || l_package,10);
6750: end if;
6751: --
6752: END calculate_compensation_level;
6753: --
6804: l_prem BOOLEAN := FALSE;
6805: --
6806: BEGIN
6807: --
6808: -- hr_utility.set_location('Entering ' || l_package,10);
6809: --
6810: -- Calculate Comb AGE LOS process
6811: -- ==============================
6812: -- The sequence of operations is as follows :
6820: --
6821: IF bitand(p_comp_obj_tree_row.flag_bit_val
6822: ,ben_manage_life_events.g_cal_flag) <> 0 THEN
6823: --
6824: -- hr_utility.set_location('CAL for ELIG',10);
6825: IF p_comp_rec.frz_comb_age_and_los_flag = 'Y' THEN
6826: --
6827: -- No calculation required just return the frozen value
6828: --
6894: l_elig_result := p_comp_rec.age_val + p_comp_rec.los_val;
6895: --
6896: -- p_comp_rec.cmbn_age_n_los_val := l_elig_result;
6897: if g_debug then
6898: hr_utility.set_location('Combined value'||l_elig_result,100);
6899: end if;
6900: --
6901: IF p_comp_rec.cmbn_age_n_los_val IS NOT NULL THEN
6902: --
6908: p_ptnl_ler_trtmt_cd,
6909: p_effective_date)) THEN
6910: --
6911: /* Simply return as no further calculations need to be done */
6912: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
6913: null;
6914: --
6915: else
6916: --
6979: END IF;
6980: --
6981: END IF;
6982: --
6983: -- hr_utility.set_location('p_comp_rec ' || p_comp_rec.cmbn_age_n_los_val,10);
6984: --
6985: IF bitand(p_comp_obj_tree_row.flag_bit_val
6986: ,ben_manage_life_events.g_cal_rt_flag) <> 0
6987: OR p_oiplip_id IS NOT NULL
6987: OR p_oiplip_id IS NOT NULL
6988: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
6989: ,ben_manage_life_events.g_cal_rt_flag) <> 0 THEN
6990: --
6991: -- hr_utility.set_location('CAL for RT',10);
6992: IF p_comp_rec.rt_frz_comb_age_and_los_flag = 'Y' THEN
6993: --
6994: -- No calculation required just return the frozen value
6995: --
7092: p_ptnl_ler_trtmt_cd,
7093: p_effective_date)) THEN
7094: --
7095: /* Simply return as no further calculations need to be done */
7096: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7097: null;
7098: --
7099: else
7100: --
7233: p_ptnl_ler_trtmt_cd,
7234: p_effective_date)) THEN
7235: --
7236: /* Simply return as no further calculations need to be done */
7237: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7238: null;
7239: --
7240: else
7241: --
7373: p_ptnl_ler_trtmt_cd,
7374: p_effective_date)) THEN
7375: --
7376: /* Simply return as no further calculations need to be done */
7377: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7378: null;
7379: --
7380: else
7381: --
7422: --
7423: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
7424: --
7425: p_comp_rec.rt_cmbn_age_n_los_val := NULL;
7426: --hr_utility.set_location(' Step 27',10);
7427: --
7428: --
7429: ELSIF l_rate_result is NOT NULL THEN
7430: --
7427: --
7428: --
7429: ELSIF l_rate_result is NOT NULL THEN
7430: --
7431: --hr_utility.set_location(' Step 28',10);
7432: p_comp_rec.rt_cmbn_age_n_los_val := l_rate_result;
7433: --
7434: --
7435: ELSIF l_rate_cvg_result is NOT NULL then
7433: --
7434: --
7435: ELSIF l_rate_cvg_result is NOT NULL then
7436: --
7437: --hr_utility.set_location(' Step 29',10);
7438: p_comp_rec.rt_cmbn_age_n_los_val := l_rate_cvg_result;
7439: --
7440: ELSIF l_rate_prem_result is NOT NULL THEN
7441: --
7438: p_comp_rec.rt_cmbn_age_n_los_val := l_rate_cvg_result;
7439: --
7440: ELSIF l_rate_prem_result is NOT NULL THEN
7441: --
7442: --hr_utility.set_location(' Step 30',10);
7443: p_comp_rec.rt_cmbn_age_n_los_val:= l_rate_prem_result;
7444: --
7445: END IF;
7446: --
7447: END IF; -- p_comp_rec.rt_frz_comb_age_and_los_flag
7448: --
7449: END IF;
7450: --
7451: -- hr_utility.set_location('Leaving ' || l_package,10);
7452: --
7453: END calculate_comb_age_and_los;
7454: --
7455: PROCEDURE percent_fulltime_min_max
7495: l_oiplip_rec ben_cobj_cache.g_oiplip_inst_row;
7496: --
7497: BEGIN
7498: if g_debug then
7499: hr_utility.set_location('Entering percent_fulltime_min_max ', 10 );
7500: end if;
7501: /* Bug 5478918 */
7502: if (skip_min_max_le_calc(p_ler_id,
7503: p_business_group_id,
7504: p_ptnl_ler_trtmt_cd,
7505: p_effective_date)) THEN
7506: --
7507: /* Simply return as no further calculations need to be done */
7508: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7509: RETURN;
7510: end if;
7511: /* End Bug 5478918 */
7512: if g_debug then
7509: RETURN;
7510: end if;
7511: /* End Bug 5478918 */
7512: if g_debug then
7513: hr_utility.set_location('p_max_value '||p_max_value,10);
7514: end if;
7515: if g_debug then
7516: hr_utility.set_location('p_min_value '||p_min_value,10);
7517: end if;
7512: if g_debug then
7513: hr_utility.set_location('p_max_value '||p_max_value,10);
7514: end if;
7515: if g_debug then
7516: hr_utility.set_location('p_min_value '||p_min_value,10);
7517: end if;
7518: if g_debug then
7519: hr_utility.set_location('p_new_value '||p_new_value,10);
7520: end if;
7515: if g_debug then
7516: hr_utility.set_location('p_min_value '||p_min_value,10);
7517: end if;
7518: if g_debug then
7519: hr_utility.set_location('p_new_value '||p_new_value,10);
7520: end if;
7521: if g_debug then
7522: hr_utility.set_location('p_old_value '||p_old_value,10);
7523: end if;
7518: if g_debug then
7519: hr_utility.set_location('p_new_value '||p_new_value,10);
7520: end if;
7521: if g_debug then
7522: hr_utility.set_location('p_old_value '||p_old_value,10);
7523: end if;
7524: --
7525: IF benutils.min_max_breach(p_min_value=> NVL( p_min_value
7526: ,-1)
7634: l_prem BOOLEAN := FALSE;
7635: --
7636: BEGIN
7637: --
7638: hr_utility.set_location('Entering ' || l_package,10);
7639: --
7640: -- Calculate PCT FT process
7641: -- =====================
7642: -- The sequence of operations is as follows :
7651: --
7652: IF bitand(p_comp_obj_tree_row.flag_bit_val
7653: ,ben_manage_life_events.g_pft_flag) <> 0 THEN
7654: --
7655: -- hr_utility.set_location('PFT for ELIG',10);
7656: IF p_comp_rec.frz_pct_fl_tm_flag = 'Y' THEN
7657: --
7658: -- No calulation required just return the frozen value
7659: --
7724: p_ptnl_ler_trtmt_cd,
7725: p_effective_date)) THEN
7726: --
7727: /* Simply return as no further calculations need to be done */
7728: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7729: null;
7730: --
7731: else
7732: --
7817: OR p_oiplip_id IS NOT NULL
7818: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
7819: ,ben_manage_life_events.g_pft_rt_flag) <> 0 THEN
7820: --
7821: -- hr_utility.set_location('PFT for RT',10);
7822: IF p_comp_rec.rt_frz_pct_fl_tm_flag = 'Y' THEN
7823: --
7824: -- No calulation required just return the frozen value
7825: --
8027: END IF; --p_oipl_id coverage
8028: -- Now try Premiums
8029: --
8030: if g_debug then
8031: hr_utility.set_location('Entering into premium process ' , 20);
8032: end if;
8033: --
8034: IF p_oipl_id IS NOT NULL
8035: OR p_pl_id IS NOT NULL THEN
8059: END IF;
8060: --
8061:
8062: if g_debug then
8063: hr_utility.set_location(' l_ass_rec.assignment_id '||l_ass_rec.assignment_id, 30);
8064: end if;
8065: ben_person_object.get_object(p_assignment_id=> l_ass_rec.assignment_id
8066: ,p_rec => l_rec);
8067:
8069: --
8070: -- Get percent fulltime value for persons primary assignment
8071: --
8072: if g_debug then
8073: hr_utility.set_location(' l_rec.fte '||l_rec.fte ,40);
8074: end if;
8075: l_rate_prem_result := l_rec.fte;
8076: --
8077: ELSIF l_rate_prem_rec.use_sum_of_all_asnts_flag = 'Y' THEN
8078: --
8079: -- Get percent fulltime figure for all persons assignments
8080: --
8081: if g_debug then
8082: hr_utility.set_location(' l_rec.total_fte '||l_rec.total_fte , 50);
8083: end if;
8084: l_rate_prem_result := l_rec.total_fte;
8085: --
8086: END IF;
8147: p_comp_rec.rt_pct_fl_tm_val := NULL;
8148: --
8149: ELSIF l_rate_result is NOT NULL THEN
8150: if g_debug then
8151: hr_utility.set_location(' Step 28',10);
8152: end if;
8153: p_comp_rec.rt_pct_fl_tm_val := l_rate_result;
8154: --
8155: ELSIF l_rate_cvg_result is NOT NULL then
8155: ELSIF l_rate_cvg_result is NOT NULL then
8156: --
8157: p_comp_rec.rt_pct_fl_tm_val := l_rate_cvg_result;
8158: if g_debug then
8159: hr_utility.set_location(' Step 29',10);
8160: end if;
8161: ELSIF l_rate_prem_result is NOT NULL THEN
8162: --
8163: p_comp_rec.rt_pct_fl_tm_val := l_rate_prem_result;
8161: ELSIF l_rate_prem_result is NOT NULL THEN
8162: --
8163: p_comp_rec.rt_pct_fl_tm_val := l_rate_prem_result;
8164: if g_debug then
8165: hr_utility.set_location(' Step 30',10);
8166: end if;
8167: END IF;
8168: --
8169: END IF;
8173:
8174: -- p_comp_rec.rt_pct_fl_tm_val := l_rate_result ;
8175:
8176: if g_debug then
8177: hr_utility.set_location('Leaving ' || l_package,10);
8178: end if;
8179: --
8180: END calculate_percent_fulltime;
8181: --
8221: l_rec ben_person_object.g_person_date_info_rec;
8222: l_oiplip_rec ben_cobj_cache.g_oiplip_inst_row;
8223: --
8224: BEGIN
8225: hr_utility.set_location('Entering hours_worked_min_max ', 10 );
8226: /* Bug 5478918 */
8227: if (skip_min_max_le_calc(p_ler_id,
8228: p_business_group_id,
8229: p_ptnl_ler_trtmt_cd,
8229: p_ptnl_ler_trtmt_cd,
8230: p_effective_date)) THEN
8231: --
8232: /* Simply return as no further calculations need to be done */
8233: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
8234: RETURN;
8235: end if;
8236: /* End Bug 5478918 */
8237: hr_utility.set_location('p_max_value '||p_max_value,10);
8233: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
8234: RETURN;
8235: end if;
8236: /* End Bug 5478918 */
8237: hr_utility.set_location('p_max_value '||p_max_value,10);
8238: hr_utility.set_location('p_min_value '||p_min_value,10);
8239: hr_utility.set_location('p_new_value '||p_new_value,10);
8240: hr_utility.set_location('p_old_value '||p_old_value,10);
8241: --
8234: RETURN;
8235: end if;
8236: /* End Bug 5478918 */
8237: hr_utility.set_location('p_max_value '||p_max_value,10);
8238: hr_utility.set_location('p_min_value '||p_min_value,10);
8239: hr_utility.set_location('p_new_value '||p_new_value,10);
8240: hr_utility.set_location('p_old_value '||p_old_value,10);
8241: --
8242: IF benutils.min_max_breach(p_min_value=> NVL(p_min_value
8235: end if;
8236: /* End Bug 5478918 */
8237: hr_utility.set_location('p_max_value '||p_max_value,10);
8238: hr_utility.set_location('p_min_value '||p_min_value,10);
8239: hr_utility.set_location('p_new_value '||p_new_value,10);
8240: hr_utility.set_location('p_old_value '||p_old_value,10);
8241: --
8242: IF benutils.min_max_breach(p_min_value=> NVL(p_min_value
8243: ,-1)
8236: /* End Bug 5478918 */
8237: hr_utility.set_location('p_max_value '||p_max_value,10);
8238: hr_utility.set_location('p_min_value '||p_min_value,10);
8239: hr_utility.set_location('p_new_value '||p_new_value,10);
8240: hr_utility.set_location('p_old_value '||p_old_value,10);
8241: --
8242: IF benutils.min_max_breach(p_min_value=> NVL(p_min_value
8243: ,-1)
8244: ,p_max_value => NVL(p_max_value
8365: RETURN ;
8366: --
8367: END IF;
8368: --
8369: hr_utility.set_location('Got the dates. Now creating the LE',10);
8370: --
8371: IF no_life_event(p_lf_evt_ocrd_dt=> l_lf_evt_ocrd_dt
8372: ,p_person_id => p_person_id
8373: ,p_ler_id => p_ler_id
8442: --
8443: BEGIN
8444: --
8445: if g_debug then
8446: hr_utility.set_location('Entering ' || l_package,10);
8447: end if;
8448: --
8449: -- Calculate HRS WKD process
8450: -- =========================
8458: --
8459: IF bitand(p_comp_obj_tree_row.flag_bit_val
8460: ,ben_manage_life_events.g_hrw_flag) <> 0 THEN
8461: --
8462: -- hr_utility.set_location('HRW for ELIG',10);
8463: IF p_comp_rec.frz_hrs_wkd_flag = 'Y' THEN
8464: --
8465: -- No calulation required just return the frozen value
8466: --
8495: --
8496: ELSIF l_elig_rec.exist = 'Y' THEN
8497: --
8498: if g_debug then
8499: hr_utility.set_location(' l_elig_rec.hrs_wkd_calc_rl '||l_elig_rec.hrs_wkd_calc_rl , 99);
8500: end if;
8501: --
8502: IF l_elig_rec.hrs_wkd_calc_rl IS NOT NULL THEN
8503: --
8501: --
8502: IF l_elig_rec.hrs_wkd_calc_rl IS NOT NULL THEN
8503: --
8504: if g_debug then
8505: hr_utility.set_location(' l_elig_rec.hrs_wkd_calc_rl '||l_elig_rec.hrs_wkd_calc_rl , 99);
8506: end if;
8507: --
8508: ben_determine_date.main(p_date_cd=> l_elig_rec.hrs_wkd_det_cd
8509: ,p_formula_id => l_elig_rec.hrs_wkd_calc_rl
8520: ,p_effective_date)
8521: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt );
8522: --
8523: if g_debug then
8524: hr_utility.set_location(' l_start_date '||l_start_date ,99);
8525: end if;
8526: --
8527: run_rule(p_formula_id => l_elig_rec.hrs_wkd_calc_rl
8528: ,p_empasg_row => p_empasg_row
8543: ,p_ret_date => l_dummy_date
8544: ,p_ret_val => l_elig_result);
8545: --
8546: if g_debug then
8547: hr_utility.set_location(' l_elig_result '||l_elig_result ,99);
8548: end if;
8549: --
8550: -- Round value if rounding needed
8551: --
8581: END IF;
8582: -- In case called from watif benmngle then need not create
8583: -- temporals for any min, max breaches.
8584: --
8585: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8586: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8587: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8588: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8589: --hr_utility.set_location(' p_break '||l_break,99);
8582: -- In case called from watif benmngle then need not create
8583: -- temporals for any min, max breaches.
8584: --
8585: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8586: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8587: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8588: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8589: --hr_utility.set_location(' p_break '||l_break,99);
8590: --
8583: -- temporals for any min, max breaches.
8584: --
8585: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8586: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8587: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8588: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8589: --hr_utility.set_location(' p_break '||l_break,99);
8590: --
8591: /* Bug 5478918 */
8584: --
8585: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8586: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8587: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8588: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8589: --hr_utility.set_location(' p_break '||l_break,99);
8590: --
8591: /* Bug 5478918 */
8592: ben_seeddata_object.get_object(p_rec=> l_der_rec);
8585: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8586: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8587: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8588: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8589: --hr_utility.set_location(' p_break '||l_break,99);
8590: --
8591: /* Bug 5478918 */
8592: ben_seeddata_object.get_object(p_rec=> l_der_rec);
8593: if (skip_min_max_le_calc(l_der_rec.drvdhrw_id,
8595: p_ptnl_ler_trtmt_cd,
8596: p_effective_date)) THEN
8597: --
8598: /* Simply return as no further calculations need to be done */
8599: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
8600: null;
8601: --
8602: else
8603: --
8790: END IF;
8791: --
8792: END IF;
8793: --
8794: -- hr_utility.set_location('RFHWF=Y ' || l_package,10);
8795: --9999
8796: IF bitand(p_comp_obj_tree_row.flag_bit_val
8797: ,ben_manage_life_events.g_hrw_rt_flag) <> 0
8798: OR p_oiplip_id IS NOT NULL
8799: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
8800: ,ben_manage_life_events.g_hrw_rt_flag) <> 0 THEN
8801: --
8802: if g_debug then
8803: hr_utility.set_location('HRW for RT',10);
8804: end if;
8805: IF p_comp_rec.rt_frz_hrs_wkd_flag = 'Y'
8806: OR (
8807: NVL(p_comp_rec.once_r_cntug_cd
8814: --
8815: ELSE
8816: --
8817: if g_debug then
8818: hr_utility.set_location('ben_derive_part_and_rate_cache '||p_oipl_id , 20);
8819: end if;
8820: --
8821: ben_derive_part_and_rate_cache.get_hours_rate(p_pgm_id=> p_pgm_id
8822: ,p_pl_id => p_pl_id
8841: --
8842: ELSIF l_rate_rec.exist = 'Y' THEN
8843: --
8844: if g_debug then
8845: hr_utility.set_location(' l_rate_rec.exist ' ,25);
8846: end if;
8847: l_rate := TRUE;
8848: --
8849: IF p_oiplip_id IS NOT NULL THEN
8848: --
8849: IF p_oiplip_id IS NOT NULL THEN
8850: --
8851: if g_debug then
8852: hr_utility.set_location(' p_curroiplip_row ',25);
8853: end if;
8854: l_oiplip_rec := p_curroiplip_row;
8855: --
8856: END IF;
8857: --
8858: IF l_rate_rec.hrs_wkd_calc_rl IS NOT NULL THEN
8859: --
8860: if g_debug then
8861: hr_utility.set_location('in the comp_calc_rl ' ,30);
8862: end if;
8863: ben_determine_date.main(p_date_cd=> l_rate_rec.hrs_wkd_det_cd
8864: ,p_formula_id => l_rate_rec.hrs_wkd_calc_rl
8865: ,p_person_id => p_person_id
8907: ,p_value => l_rate_result
8908: ,p_effective_date => NVL(p_lf_evt_ocrd_dt
8909: ,p_effective_date));
8910: if g_debug then
8911: hr_utility.set_location('in the l_rate_rec.rndg_cd ' , 35 );
8912: end if;
8913: --
8914: END IF;
8915: --
8915: --
8916: ELSE
8917: --
8918: if g_debug then
8919: hr_utility.set_location('not rule - l_rate_result ',30);
8920: end if;
8921: l_rate_result :=
8922: hours_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
8923: ,p_empasg_row => p_empasg_row
8937: --
8938: IF l_rate_result is not null THEN
8939: --
8940: if g_debug then
8941: hr_utility.set_location(' l_rate_result found '||l_rate_result , 40);
8942: end if;
8943: --
8944: ben_derive_part_and_rate_cache.get_hours_rate(p_pgm_id=> p_pgm_id
8945: ,p_pl_id => p_pl_id
8959: --
8960: ben_seeddata_object.get_object(p_rec=> l_der_rec);
8961: --
8962: if g_debug then
8963: hr_utility.set_location(' Call to hours_worked_min_max ' ,45 );
8964: end if;
8965: hours_worked_min_max
8966: (p_calculate_only_mode =>p_calculate_only_mode
8967: ,p_comp_obj_tree_row =>p_comp_obj_tree_row
9002: END IF ; -- l_rate_rec.exist
9003: -- Try and find a coverage first
9004: --
9005: if g_debug then
9006: hr_utility.set_location(' Now check for Coverage and Premium' ,50 );
9007: end if;
9008: --
9009: IF p_oipl_id IS NOT NULL
9010: OR p_pl_id IS NOT NULL
9031: --
9032: ELSIF l_rate_cvg_rec.exist = 'Y' THEN /* Changed from l_rate_rec to l_rate_cvg_rec */
9033: --
9034: if g_debug then
9035: hr_utility.set_location(' l_rate_cvg_rec.exist' , 60);
9036: end if;
9037: --
9038: l_cvg := TRUE;
9039: --
9090: --
9091: ELSE
9092: --
9093: if g_debug then
9094: hr_utility.set_location(' call to hours_calculation ' , 65 );
9095: end if;
9096: l_rate_cvg_result :=
9097: hours_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
9098: ,p_empasg_row => p_empasg_row
9127: --
9128: ben_seeddata_object.get_object(p_rec=> l_der_cvg_rec);
9129: --
9130: if g_debug then
9131: hr_utility.set_location(' call hours_worked_min_max ' ,75);
9132: end if;
9133: hours_worked_min_max
9134: (p_calculate_only_mode =>p_calculate_only_mode
9135: ,p_comp_obj_tree_row =>p_comp_obj_tree_row
9170: --
9171: END IF ; -- oipl_id
9172: --
9173: if g_debug then
9174: hr_utility.set_location(' Now call ben_derive_part_and_rate_prem ' , 80);
9175: end if;
9176: IF p_oipl_id IS NOT NULL
9177: OR p_pl_id IS NOT NULL THEN
9178: --
9197: --
9198: ELSIF l_rate_prem_rec.exist = 'Y' THEN
9199: --
9200: if g_debug then
9201: hr_utility.set_location(' l_rate_prem_rec.exist Y ',85);
9202: end if;
9203: l_prem := TRUE;
9204: --
9205: IF l_rate_prem_rec.hrs_wkd_calc_rl IS NOT NULL THEN
9255: --
9256: ELSE
9257: --
9258: if g_debug then
9259: hr_utility.set_location(' call to hours_calculation ' , 90);
9260: end if;
9261: l_rate_prem_result :=
9262: hours_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
9263: ,p_empasg_row => p_empasg_row
9275: ,p_effective_date => p_effective_date
9276: ,p_lf_evt_ocrd_dt => p_lf_evt_ocrd_dt);
9277: --
9278: if g_debug then
9279: hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,95);
9280: end if;
9281: --
9282: IF l_rate_prem_result is not null THEN
9283: --
9297: --
9298: ben_seeddata_object.get_object(p_rec=> l_der_prem_rec);
9299: --
9300: if g_debug then
9301: hr_utility.set_location(' call to comp_level_min_max ' ,100);
9302: end if;
9303: --
9304: hours_worked_min_max
9305: (p_calculate_only_mode =>p_calculate_only_mode
9347: p_comp_rec.rt_hrs_wkd_bndry_perd_cd := NULL;
9348: --
9349: ELSIF l_rate_result is NOT NULL THEN
9350: if g_debug then
9351: hr_utility.set_location(' Step 28',10);
9352: end if;
9353: p_comp_rec.rt_hrs_wkd_val := l_rate_result;
9354: p_comp_rec.rt_hrs_wkd_bndry_perd_cd := NULL ;
9355: --
9357: --
9358: p_comp_rec.rt_hrs_wkd_val := l_rate_cvg_result;
9359: p_comp_rec.rt_hrs_wkd_bndry_perd_cd := NULL ;
9360: if g_debug then
9361: hr_utility.set_location(' Step 29',10);
9362: end if;
9363: ELSIF l_rate_prem_result is NOT NULL THEN
9364: --
9365: p_comp_rec.rt_hrs_wkd_val := l_rate_prem_result;
9364: --
9365: p_comp_rec.rt_hrs_wkd_val := l_rate_prem_result;
9366: p_comp_rec.rt_hrs_wkd_bndry_perd_cd := NULL ;
9367: if g_debug then
9368: hr_utility.set_location(' Step 30',10);
9369: end if;
9370: END IF;
9371: --
9372: END IF;
9412: --
9413: END IF;
9414: --
9415: if g_debug then
9416: hr_utility.set_location('Leaving ' || l_package,10);
9417: end if;
9418: --
9419: END calculate_hours_worked;
9420: --
9435: l_allwd_underpymt_amt := p_allwd_underpymt_value;
9436: end if;
9437:
9438: if g_debug then
9439: hr_utility.set_location('total amt due'||p_amt_due,11);
9440: hr_utility.set_location('total shortfall'||p_shortfall_amt,11);
9441: hr_utility.set_location('allowed underpayment amt'||l_allwd_underpymt_amt,11);
9442: end if;
9443:
9436: end if;
9437:
9438: if g_debug then
9439: hr_utility.set_location('total amt due'||p_amt_due,11);
9440: hr_utility.set_location('total shortfall'||p_shortfall_amt,11);
9441: hr_utility.set_location('allowed underpayment amt'||l_allwd_underpymt_amt,11);
9442: end if;
9443:
9444: if p_shortfall_amt > l_allwd_underpymt_amt then
9437:
9438: if g_debug then
9439: hr_utility.set_location('total amt due'||p_amt_due,11);
9440: hr_utility.set_location('total shortfall'||p_shortfall_amt,11);
9441: hr_utility.set_location('allowed underpayment amt'||l_allwd_underpymt_amt,11);
9442: end if;
9443:
9444: if p_shortfall_amt > l_allwd_underpymt_amt then
9445: l_late_pymt_evt := TRUE;
9571: l_amt_due := l_per_month_amt;
9572: end if;
9573:
9574: if g_debug then
9575: hr_utility.set_location('amt due'||l_amt_due,11);
9576: hr_utility.set_location('pymt_amt'||l_pymt_amt,11);
9577: hr_utility.set_location('p_from_date'||p_from_date,11);
9578: hr_utility.set_location('p_to_date'||p_to_date,11);
9579: end if;
9572: end if;
9573:
9574: if g_debug then
9575: hr_utility.set_location('amt due'||l_amt_due,11);
9576: hr_utility.set_location('pymt_amt'||l_pymt_amt,11);
9577: hr_utility.set_location('p_from_date'||p_from_date,11);
9578: hr_utility.set_location('p_to_date'||p_to_date,11);
9579: end if;
9580:
9573:
9574: if g_debug then
9575: hr_utility.set_location('amt due'||l_amt_due,11);
9576: hr_utility.set_location('pymt_amt'||l_pymt_amt,11);
9577: hr_utility.set_location('p_from_date'||p_from_date,11);
9578: hr_utility.set_location('p_to_date'||p_to_date,11);
9579: end if;
9580:
9581: IF l_amt_due > l_pymt_amt THEN
9574: if g_debug then
9575: hr_utility.set_location('amt due'||l_amt_due,11);
9576: hr_utility.set_location('pymt_amt'||l_pymt_amt,11);
9577: hr_utility.set_location('p_from_date'||p_from_date,11);
9578: hr_utility.set_location('p_to_date'||p_to_date,11);
9579: end if;
9580:
9581: IF l_amt_due > l_pymt_amt THEN
9582: l_shortfall_amt := l_amt_due - l_pymt_amt;
9783: l_check_subseq_pymt boolean := FALSE;
9784: l_shortfall_amt number;
9785: l_pymt_due_date date;
9786: BEGIN
9787: g_debug := hr_utility.debug_enabled;
9788: --
9789: if g_debug then
9790: hr_utility.set_location('Entering ' || l_package,10);
9791: end if;
9786: BEGIN
9787: g_debug := hr_utility.debug_enabled;
9788: --
9789: if g_debug then
9790: hr_utility.set_location('Entering ' || l_package,10);
9791: end if;
9792: --
9793: --
9794: -- If the person has not made a payment within the a grace period
9818: -- Bug 3097501 : End
9819:
9820: FOR l_pen_rec IN c_get_prtt_enrt_rslt LOOP
9821: --
9822: -- hr_utility.set_location('Found results' || l_pen_rec.pl_id,10);
9823: --
9824: -- Check if it is the first payment.
9825: --
9826: OPEN c_get_elcns_made_dt;
9826: OPEN c_get_elcns_made_dt;
9827: FETCH c_get_elcns_made_dt INTO l_elcns_made_dt,l_cbr_per_in_ler_id;
9828: CLOSE c_get_elcns_made_dt;
9829: --
9830: -- hr_utility.set_location('l_elcns_made_dt' || l_elcns_made_dt,10);
9831: --
9832: l_due_date := l_elcns_made_dt + 45;
9833: --
9834: -- hr_utility.set_location('l_due_date' || l_due_date,10);
9830: -- hr_utility.set_location('l_elcns_made_dt' || l_elcns_made_dt,10);
9831: --
9832: l_due_date := l_elcns_made_dt + 45;
9833: --
9834: -- hr_utility.set_location('l_due_date' || l_due_date,10);
9835: --
9836: IF p_effective_date > l_due_date THEN
9837: --
9838: -- Get the assignment to use.
9907: -- due.
9908: --
9909: IF l_cobra_pymt_due_dy_num IS NOT NULL THEN
9910:
9911: -- hr_utility.set_location('Found due day' || l_cobra_pymt_due_dy_num,10);
9912: -- Get the last due date to check if the person is late with
9913: -- his/her payment.
9914: --
9915: l_due_date := LAST_DAY(ADD_MONTHS(p_effective_date,-2)) +
9927: -- Bug 3208938
9928:
9929: l_eff_due_date := l_due_date + 30;
9930: --
9931: -- hr_utility.set_location('l_due_date' || l_due_date,10);
9932: -- hr_utility.set_location('l_eff_due_date' || l_eff_due_date,10);
9933: --
9934: -- if the person has not made a payment by the due date, create
9935: -- a potential life event.
9928:
9929: l_eff_due_date := l_due_date + 30;
9930: --
9931: -- hr_utility.set_location('l_due_date' || l_due_date,10);
9932: -- hr_utility.set_location('l_eff_due_date' || l_eff_due_date,10);
9933: --
9934: -- if the person has not made a payment by the due date, create
9935: -- a potential life event.
9936: --
9963: l_eff_due_date := l_due_date + 30;
9964: END IF;
9965:
9966: if g_debug then
9967: hr_utility.set_location('l_due_date '||l_due_date,11);
9968: hr_utility.set_location('l_strt_dt'||l_strt_dt,11);
9969: end if;
9970:
9971: IF (l_due_date >= l_strt_dt) AND (l_due_date <= LAST_DAY(l_pen_rec.rt_end_dt)) THEN
9964: END IF;
9965:
9966: if g_debug then
9967: hr_utility.set_location('l_due_date '||l_due_date,11);
9968: hr_utility.set_location('l_strt_dt'||l_strt_dt,11);
9969: end if;
9970:
9971: IF (l_due_date >= l_strt_dt) AND (l_due_date <= LAST_DAY(l_pen_rec.rt_end_dt)) THEN
9972:
10033: END IF;
10034:
10035: -- Bug 3097501: End
10036: --
10037: -- hr_utility.set_location('l_due_date' || l_due_date,10);
10038: --
10039: IF l_late_pymt_evt THEN
10040: --
10041: IF l_lf_evt_ocrd_dt >= l_rec.min_ass_effective_start_date THEN
10075: --
10076: END IF; -- late payment
10077: --
10078: if g_debug then
10079: hr_utility.set_location('Leaving ' || l_package,10);
10080: end if;
10081: --
10082: END determine_cobra_payments;
10083: --
10305: l_cbr_quald_bnf c_cbr_quald_bnf%ROWTYPE;
10306: l_ler_rec c_get_ler_info%ROWTYPE;
10307: BEGIN
10308: --
10309: -- hr_utility.set_location('Entering ' || l_package,10);
10310: -- hr_utility.set_location('p_pgm_id ' || p_pgm_id,10);
10311: -- hr_utility.set_location('p_ptip_id ' || p_ptip_id,10);
10312: --
10313: --
10306: l_ler_rec c_get_ler_info%ROWTYPE;
10307: BEGIN
10308: --
10309: -- hr_utility.set_location('Entering ' || l_package,10);
10310: -- hr_utility.set_location('p_pgm_id ' || p_pgm_id,10);
10311: -- hr_utility.set_location('p_ptip_id ' || p_ptip_id,10);
10312: --
10313: --
10314: l_effective_date := NVL(p_lf_evt_ocrd_dt
10307: BEGIN
10308: --
10309: -- hr_utility.set_location('Entering ' || l_package,10);
10310: -- hr_utility.set_location('p_pgm_id ' || p_pgm_id,10);
10311: -- hr_utility.set_location('p_ptip_id ' || p_ptip_id,10);
10312: --
10313: --
10314: l_effective_date := NVL(p_lf_evt_ocrd_dt
10315: ,p_effective_date);
10332: CLOSE c_get_cbr_elig_dates;
10333: --
10334: IF p_derivable_factors IN ('ALL', 'PBEV', 'BEV', 'BEVASC') THEN
10335: --
10336: -- hr_utility.set_location('found ' || l_cqb_rec.cbr_elig_perd_end_dt,10);
10337: -- hr_utility.set_location('ALL PBEV BEV BEVASC' ||l_cqb_rec.cbr_elig_perd_end_dt,10);
10338: --
10339: IF l_effective_date >= l_cqb_rec.cbr_elig_perd_end_dt THEN
10340: --
10333: --
10334: IF p_derivable_factors IN ('ALL', 'PBEV', 'BEV', 'BEVASC') THEN
10335: --
10336: -- hr_utility.set_location('found ' || l_cqb_rec.cbr_elig_perd_end_dt,10);
10337: -- hr_utility.set_location('ALL PBEV BEV BEVASC' ||l_cqb_rec.cbr_elig_perd_end_dt,10);
10338: --
10339: IF l_effective_date >= l_cqb_rec.cbr_elig_perd_end_dt THEN
10340: --
10341: -- hr_utility.set_location('Found ' || l_cqb_rec.cbr_elig_perd_end_dt,10);
10337: -- hr_utility.set_location('ALL PBEV BEV BEVASC' ||l_cqb_rec.cbr_elig_perd_end_dt,10);
10338: --
10339: IF l_effective_date >= l_cqb_rec.cbr_elig_perd_end_dt THEN
10340: --
10341: -- hr_utility.set_location('Found ' || l_cqb_rec.cbr_elig_perd_end_dt,10);
10342: --
10343: -- WWBUG# 1166172 - Change the life event occurred date to one
10344: -- day after the date reached.
10345: --
10369: IF (
10370: l_cqb_rec.cbr_inelg_rsn_cd IS NULL
10371: OR l_cqb_rec.cbr_inelg_rsn_cd = 'POE') THEN
10372: --
10373: -- hr_utility.set_location('POE ' || l_der_rec.drvdpoeelg_id,10);
10374: IF no_life_event(p_lf_evt_ocrd_dt=> l_lf_evt_ocrd_dt
10375: ,p_person_id => p_person_id
10376: ,p_ler_id => l_der_rec.drvdpoeelg_id
10377: ,p_effective_date => p_effective_date)
10395: ,p_ler_id => l_der_rec.drvdnlp_id
10396: ,p_effective_date => p_effective_date)
10397: THEN
10398: --
10399: -- hr_utility.set_location('NLP ' || l_der_rec.drvdnlp_id,10);
10400: --
10401: create_ptl_ler
10402: (p_calculate_only_mode => p_calculate_only_mode
10403: ,p_ler_id => l_der_rec.drvdnlp_id
10411: --
10412: -- Voluntary End of Coverage.
10413: --
10414: ELSIF l_cqb_rec.cbr_inelg_rsn_cd = 'VEC' THEN
10415: -- hr_utility.set_location('VEC ' || l_der_rec.drvdvec_id,10);
10416: --
10417: -- Check if a life event exist on the same day.
10418: --
10419: l_ler_id := l_der_rec.drvdvec_id;
10455: --
10456: OPEN c_get_init_evt(l_cqb_rec.cbr_quald_bnf_id);
10457: FETCH c_get_init_evt INTO l_exists;
10458: IF c_get_init_evt%NOTFOUND THEN
10459: -- hr_utility.set_location('pgm_id ' || l_cqb_rec.pgm_id,10);
10460: -- hr_utility.set_location('ptip_id ' || l_cqb_rec.ptip_id,10);
10461: --
10462: -- Get the most recent enrollment period.
10463: --
10456: OPEN c_get_init_evt(l_cqb_rec.cbr_quald_bnf_id);
10457: FETCH c_get_init_evt INTO l_exists;
10458: IF c_get_init_evt%NOTFOUND THEN
10459: -- hr_utility.set_location('pgm_id ' || l_cqb_rec.pgm_id,10);
10460: -- hr_utility.set_location('ptip_id ' || l_cqb_rec.ptip_id,10);
10461: --
10462: -- Get the most recent enrollment period.
10463: --
10464: OPEN c_get_enrt_perd_dates(l_cqb_rec.pgm_id);
10463: --
10464: OPEN c_get_enrt_perd_dates(l_cqb_rec.pgm_id);
10465: FETCH c_get_enrt_perd_dates INTO l_pel_rec;
10466: IF c_get_enrt_perd_dates%FOUND THEN
10467: -- hr_utility.set_location('found enrt perd ' ||l_pel_rec.enrt_perd_end_dt,10);
10468: CLOSE c_get_enrt_perd_dates;
10469: --
10470: -- Get the number days from the start of the enrollment
10471: -- period before the person is found ineligible.
10486: -- If running this process ahead of time, the ineligible to
10487: -- event cannot be triggered. Check if the enrollment period
10488: -- has passed using the system date.
10489: --
10490: -- hr_utility.set_location('l_end_elig_date ' || l_end_elig_date,10);
10491: --
10492: -- hr_utility.set_location('effective_date ' ||l_effective_date,10);
10493: IF LEAST(SYSDATE
10494: ,l_effective_date) > l_end_elig_date THEN
10488: -- has passed using the system date.
10489: --
10490: -- hr_utility.set_location('l_end_elig_date ' || l_end_elig_date,10);
10491: --
10492: -- hr_utility.set_location('effective_date ' ||l_effective_date,10);
10493: IF LEAST(SYSDATE
10494: ,l_effective_date) > l_end_elig_date THEN
10495: IF (
10496: ben_cobra_requirements.chk_enrld_or_cvrd(p_pgm_id=> l_cqb_rec.pgm_id
10504: -- If enrollment period has passed,
10505: -- created a loss of eligibility
10506: -- potential per in ler.
10507: --
10508: -- hr_utility.set_location('trigger inelig event ',10);
10509: --
10510: -- Set the COBRA qualified beneficiary flag to 'N' as the
10511: -- person is no longer a COBRA qualified beneficiary.
10512: --
10742: END IF; -- p_derivable_factors in 'ALL' etc.. .
10743: --
10744: --
10745: ELSE -- cobra qualified beneficiary not found.
10746: -- hr_utility.set_location('not found ',10);
10747: CLOSE c_get_cbr_elig_dates;
10748: END IF;
10749:
10750: -- Bug 3097501
10775: END IF;
10776: END IF;
10777:
10778: --
10779: -- hr_utility.set_location('Leaving ' || l_package,10);
10780: --
10781: END determine_cobra_eligibility;
10782: --
10783: PROCEDURE derive_rates_and_factors
10841: --END FONM
10842: --
10843: BEGIN
10844: --
10845: g_debug := hr_utility.debug_enabled;
10846: if g_debug then
10847: hr_utility.set_location('Entering ' || l_package,10);
10848: end if;
10849: --FONM This will be implemented as a parameter.
10843: BEGIN
10844: --
10845: g_debug := hr_utility.debug_enabled;
10846: if g_debug then
10847: hr_utility.set_location('Entering ' || l_package,10);
10848: end if;
10849: --FONM This will be implemented as a parameter.
10850: --only for testing purpose we are using the global
10851: --variable and needs to be removed.
10859: end if;
10860: --
10861: --END FONM
10862: --
10863: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10864: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10865: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10866: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10867: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10860: --
10861: --END FONM
10862: --
10863: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10864: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10865: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10866: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10867: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10868: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10861: --END FONM
10862: --
10863: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10864: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10865: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10866: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10867: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10868: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10869:
10862: --
10863: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10864: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10865: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10866: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10867: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10868: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10869:
10870: -- Check if person is still eligible to participate in
10863: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10864: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10865: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10866: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10867: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10868: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10869:
10870: -- Check if person is still eligible to participate in
10871: -- the COBRA program. He/she may have reached the maximum
10864: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10865: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10866: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10867: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10868: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10869:
10870: -- Check if person is still eligible to participate in
10871: -- the COBRA program. He/she may have reached the maximum
10872: -- period of enrollment or decided not to enroll anymore in
10876: --
10877: IF ( p_pgm_id IS NOT NULL
10878: OR p_ptip_id IS NOT NULL)
10879: AND (p_derivable_factors <> 'ASC') THEN
10880: --hr_utility.set_location(' COBRA logic ' || l_package,10);
10881: --
10882: IF p_pgm_id IS NULL THEN
10883: --
10884: ben_comp_object.get_object(p_ptip_id=> p_ptip_id
10907: );
10908: --
10909: END IF;
10910: --
10911: --hr_utility.set_location(' Dn COBRA logic ' || l_package,10);
10912: END IF;
10913: --
10914: -- Check if we can drop out early. Do not need to calculate oipl
10915: -- and oiplip values for temporal mode
10920: AND p_comp_obj_tree_row.oiplip_flag_bit_val = 0)
10921: OR (p_derivable_factors IN ('P', 'PBEV', 'BEV')))
10922: AND NVL(p_mode,'Z') = 'T' THEN
10923: --
10924: hr_utility.set_location(' Dn RETURN temporal mode ' ,45);
10925: RETURN;
10926: --
10927: -- Need to calculate oipl and oiplip values for any other mode
10928: -- before we drop out
10933: AND p_comp_obj_tree_row.oiplip_flag_bit_val = 0)
10934: OR (p_derivable_factors IN ('P', 'PBEV', 'BEV')))
10935: AND NVL(p_mode
10936: ,'Z') <> 'T' THEN
10937: hr_utility.set_location(' CDS Not Temp ' || l_package,10);
10938: --
10939: -- exit process as no derivable factors exist!
10940: -- or no need to check these factors.
10941: --
10955: ,p_comp_rec => p_comp_rec
10956: ,p_oiplip_rec => p_oiplip_rec
10957: ,p_effective_date => NVL(g_fonm_cvg_strt_dt, p_effective_date)
10958: );
10959: hr_utility.set_location(' Dn CDS Not Temp ' || l_package,10);
10960: --
10961: RETURN;
10962: --
10963: ELSE
10961: RETURN;
10962: --
10963: ELSE
10964: --
10965: hr_utility.set_location(' CDS Other ' || l_package,10);
10966: cache_data_structures(p_comp_obj_tree_row=> p_comp_obj_tree_row
10967: ,p_empasg_row => p_empasg_row
10968: ,p_benasg_row => p_benasg_row
10969: ,p_pil_row => p_pil_row
10979: ,p_effective_date => NVL(g_fonm_cvg_strt_dt,p_effective_date)
10980: );
10981: --
10982: END IF;
10983: hr_utility.set_location('Factors defined ' || l_package,10);
10984: --
10985: -- Get context row information from comp object caches
10986: --
10987: --hr_utility.set_location(' p_comp_obj_tree_row.oipl_id '||p_comp_obj_tree_row.oipl_id ,55);
10983: hr_utility.set_location('Factors defined ' || l_package,10);
10984: --
10985: -- Get context row information from comp object caches
10986: --
10987: --hr_utility.set_location(' p_comp_obj_tree_row.oipl_id '||p_comp_obj_tree_row.oipl_id ,55);
10988: IF p_comp_obj_tree_row.oipl_id IS NOT NULL THEN
10989: --
10990: ben_cobj_cache.get_oipl_dets(p_business_group_id=> p_business_group_id
10991: ,p_effective_date => g_fonm_cvg_strt_dt -- FONM p_effective_date
10993: ,p_inst_row => l_curroipl_row);
10994: --
10995: -- Check oiplip stuff
10996: --
10997: --hr_utility.set_location(' p_comp_obj_tree_row.oiplip_id '||p_comp_obj_tree_row.oiplip_id ,55);
10998: --
10999: IF p_comp_obj_tree_row.oiplip_id IS NOT NULL THEN
11000: --
11001: ben_cobj_cache.get_oiplip_dets(p_business_group_id=> p_business_group_id
11004: ,p_inst_row => l_curroiplip_row);
11005: --
11006: END IF;
11007: --
11008: --hr_utility.set_location('Dn OIPL details ' || l_package,10);
11009: END IF;
11010: --
11011: -- If we are dealing with an oipl that has an oiplip then the count should
11012: -- be two since we will be looping once for oipl and once for oiplip.
11016: l_loop_count := 2;
11017: --
11018: END IF;
11019: --
11020: --hr_utility.set_location(' l_loop_count '||l_loop_count ,55);
11021: --
11022: FOR l_count IN 1 .. l_loop_count LOOP
11023: --
11024: IF l_count = 1 THEN
11038: --
11039: if nvl(g_prev_pgm_id, -1) <> nvl(p_pgm_id
11040: ,p_comp_obj_tree_row.par_pgm_id) then
11041: --
11042: hr_utility.set_location('GSP pgm id = ' || p_pgm_id, 9876);
11043: hr_utility.set_location('GSP pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
11044: g_prev_pgm_id := nvl(p_pgm_id
11045: ,p_comp_obj_tree_row.par_pgm_id);
11046: --
11039: if nvl(g_prev_pgm_id, -1) <> nvl(p_pgm_id
11040: ,p_comp_obj_tree_row.par_pgm_id) then
11041: --
11042: hr_utility.set_location('GSP pgm id = ' || p_pgm_id, 9876);
11043: hr_utility.set_location('GSP pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
11044: g_prev_pgm_id := nvl(p_pgm_id
11045: ,p_comp_obj_tree_row.par_pgm_id);
11046: --
11047: g_pgm_typ_cd := null;
11057: close c_get_gsp_ler;
11058: --
11059: end if;
11060: --
11061: hr_utility.set_location('GSP ler_name = ' || g_gsp_ler_name, 9876);
11062: --
11063: -- END : GADE/STEP : Code to support grade/step le
11064: --
11065: -- Get LOS value
11087: );
11088: --
11089: -- Get Age value
11090: --
11091: hr_utility.set_location('pl_id '||p_pl_id , 55);
11092: hr_utility.set_location('Before call to calculate_age p_plip_id '||p_plip_id,55);
11093: calculate_age
11094: (p_calculate_only_mode => p_calculate_only_mode
11095: ,p_comp_obj_tree_row => p_comp_obj_tree_row
11088: --
11089: -- Get Age value
11090: --
11091: hr_utility.set_location('pl_id '||p_pl_id , 55);
11092: hr_utility.set_location('Before call to calculate_age p_plip_id '||p_plip_id,55);
11093: calculate_age
11094: (p_calculate_only_mode => p_calculate_only_mode
11095: ,p_comp_obj_tree_row => p_comp_obj_tree_row
11096: ,p_per_row => p_per_row
11111: ,p_comp_rec => l_comp_rec
11112: ,p_effective_date => p_effective_date
11113: ,p_lf_evt_ocrd_dt => p_lf_evt_ocrd_dt
11114: );
11115: --hr_utility.set_location('After call to calculate_age ' ,55);
11116: --
11117: -- Get hours worked
11118: --
11119: calculate_hours_worked
11215: --
11216: IF l_count = 1 THEN
11217: --
11218: p_comp_rec := l_comp_rec;
11219: --hr_utility.set_location('Out p_comp_Rec'||p_comp_rec.cmbn_age_n_los_val,10);
11220: --
11221: ELSIF l_count = 2 THEN
11222: --
11223: p_oiplip_rec := l_comp_rec;
11225: END IF;
11226: --
11227: END LOOP;
11228: --
11229: --hr_utility.set_location('Leaving ' || l_package,10);
11230: --
11231: END derive_rates_and_factors;
11232: --
11233: --- this procedure set the context_id to tax_unit_id
11258:
11259: BEGIN
11260: --
11261: if g_debug then
11262: hr_utility.set_location('Entering ' || l_package,10);
11263: end if;
11264: open c_tax ;
11265: fetch c_tax into l_tax_unit_id ;
11266: close c_tax ;
11265: fetch c_tax into l_tax_unit_id ;
11266: close c_tax ;
11267:
11268: if g_debug then
11269: hr_utility.set_location('tax_unit_id' || l_tax_unit_id , 10);
11270: end if;
11271: if l_tax_unit_id is not null then
11272: pay_balance_pkg.set_context ('TAX_UNIT_ID', l_tax_unit_id );
11273: end if ;
11272: pay_balance_pkg.set_context ('TAX_UNIT_ID', l_tax_unit_id );
11273: end if ;
11274:
11275: if g_debug then
11276: hr_utility.set_location('Leaving ' || l_package,10);
11277: end if;
11278: end set_taxunit_context ;
11279: --
11280: END ben_derive_part_and_rate_facts;