[Home] [Help]
558: --------------------------------------------------------------------------------
559: --
560: --
561: g_package VARCHAR2(80) := 'ben_derive_part_and_rate_facts';
562: g_debug boolean := hr_utility.debug_enabled;
563: g_rec benutils.g_batch_ler_rec;
564: g_lf_evt_exists boolean;
565: --
566: --FONM
607:
608: begin
609: --
610: if g_debug then
611: hr_utility.set_location('Entering ' || l_package,10);
612: end if;
613:
614: l_tax_unit_id := pay_balance_pkg.get_context ('TAX_UNIT_ID');
615:
617: fetch c_paa into l_assignment_action_id ;
618: close c_paa ;
619:
620: if g_debug then
621: hr_utility.set_location('paa id ' || l_assignment_action_id,10);
622: hr_utility.set_location('Leaving ' || l_package,10);
623: end if;
624:
625: return l_assignment_action_id;
618: close c_paa ;
619:
620: if g_debug then
621: hr_utility.set_location('paa id ' || l_assignment_action_id,10);
622: hr_utility.set_location('Leaving ' || l_package,10);
623: end if;
624:
625: return l_assignment_action_id;
626:
649: --
650: BEGIN
651: --
652: if g_debug then
653: hr_utility.set_location('Entering ' || l_package,10);
654: end if;
655: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
656: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
657: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
651: --
652: if g_debug then
653: hr_utility.set_location('Entering ' || l_package,10);
654: end if;
655: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
656: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
657: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
658: hr_utility.set_location('p_business_group_id '||p_business_group_id ,99);
659: --
652: if g_debug then
653: hr_utility.set_location('Entering ' || l_package,10);
654: end if;
655: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
656: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
657: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
658: hr_utility.set_location('p_business_group_id '||p_business_group_id ,99);
659: --
660: -- Test to make sure we are only creating life events of a
653: hr_utility.set_location('Entering ' || l_package,10);
654: end if;
655: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
656: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
657: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
658: hr_utility.set_location('p_business_group_id '||p_business_group_id ,99);
659: --
660: -- Test to make sure we are only creating life events of a
661: -- certain type. This is specifically for temporal mode.
654: end if;
655: hr_utility.set_location('p_ptnl_ler_trtmt_cd '||p_ptnl_ler_trtmt_cd , 99);
656: hr_utility.set_location('p_ler_id '||p_ler_id ,99) ;
657: hr_utility.set_location('p_effective_date '||p_effective_date ,99);
658: hr_utility.set_location('p_business_group_id '||p_business_group_id ,99);
659: --
660: -- Test to make sure we are only creating life events of a
661: -- certain type. This is specifically for temporal mode.
662: -- Dont trigger Potential if called from Unrestricted U,W,M,I,P,A
666: (NVL(ben_derive_part_and_rate_facts.g_temp_ler_id,g_gsp_ler_id) <> g_gsp_ler_id )) OR
667: (NVL(ben_derive_part_and_rate_facts.g_no_ptnl_ler_id,p_ler_id) <> p_ler_id )
668: THEN
669: --
670: hr_utility.set_location('Dont trigger Potential if called from Unrestricted U,W,M,I,P,A.',11);
671: RETURN TRUE;
672: --
673: END IF;
674: --
674: --
675:
676: IF(NVL(p_ptnl_ler_trtmt_cd,'-1') = 'IGNRALL') THEN
677: --
678: hr_utility.set_location('Life Event Treatment code set to IGNR.',11);
679: RETURN TRUE;
680: --
681: END IF;
682:
687: CLOSE c1;
688: --
689: IF (NVL(l_ptnl_ler_trtmt_cd ,'-1') in ('IGNRTHIS','IGNRALL')) THEN
690: --
691: hr_utility.set_location('Life Event Treatment code for '|| l_ler_name ||' set to IGNRTHIS/IGNRALL.',11);
692: RETURN TRUE;
693: --
694: END IF;
695: --
695: --
696: end if;
697: --
698: if g_debug then
699: hr_utility.set_location('Leaving ' || l_package,10);
700: end if;
701: --
702: RETURN FALSE;
703: --
797: --
798: BEGIN
799: --
800: if g_debug then
801: hr_utility.set_location('Entering ' || l_package,10);
802: end if;
803:
804: l_effective_date := nvl(g_fonm_cvg_strt_dt , p_effective_date );
805: --
828: open c_oiplip(l_effective_date);
829: fetch c_oiplip into l_pl_rec.pl_typ_id , l_pl_rec.pl_id;
830: close c_oiplip;
831: END IF;
832: hr_utility.set_location(' pl_id ' || l_pl_rec.pl_id ,10);
833: hr_utility.set_location(' pl_typ_id ' || l_pl_rec.pl_typ_id ,10);
834: --
835: -- Call formula initialise routine
836: --
829: fetch c_oiplip into l_pl_rec.pl_typ_id , l_pl_rec.pl_id;
830: close c_oiplip;
831: END IF;
832: hr_utility.set_location(' pl_id ' || l_pl_rec.pl_id ,10);
833: hr_utility.set_location(' pl_typ_id ' || l_pl_rec.pl_typ_id ,10);
834: --
835: -- Call formula initialise routine
836: --
837: l_ass_rec := p_empasg_row;
934: --
935: ELSE
936: --
937: if g_debug then
938: hr_utility.set_location('INV RULE TYPE PASSED: '||p_rule_type||' '||l_package,99);
939: end if;
940: --
941: END IF;
942: --
939: end if;
940: --
941: END IF;
942: --
943: -- hr_utility.set_location('Leaving ' || l_package,99);
944: --
945: END run_rule;
946: --
947: -- This procedure has to be called first in order to initialise the data
1135: pil.per_in_ler_stat_cd NOT IN ('VOIDD', 'BCKDT')
1136: OR pil.per_in_ler_stat_cd IS NULL);
1137: --
1138: BEGIN
1139: g_debug := hr_utility.debug_enabled;
1140: -- hr_utility.set_location('Entering ' || l_package,10);
1141: --
1142: -- This cursor caches all the elig per information that
1143: -- is used by the derivable factor functions
1136: OR pil.per_in_ler_stat_cd IS NULL);
1137: --
1138: BEGIN
1139: g_debug := hr_utility.debug_enabled;
1140: -- hr_utility.set_location('Entering ' || l_package,10);
1141: --
1142: -- This cursor caches all the elig per information that
1143: -- is used by the derivable factor functions
1144: --
1156: ,p_pgm_id => p_comp_obj_tree_row.par_pgm_id
1157: ,p_pl_id => p_comp_obj_tree_row.par_pl_id
1158: ,p_opt_id => p_comp_obj_tree_row.par_opt_id
1159: ,p_inst_row => p_comp_rec);
1160: -- hr_utility.set_location('Dn PILEPO ' || l_package,10);
1161: --
1162: -- Plan not in a program
1163: --
1164: ELSE
1172: ,c_plip_id => -1
1173: ,c_opt_id => p_comp_obj_tree_row.par_opt_id);
1174: FETCH c_elig_per_opt INTO p_comp_rec;
1175: CLOSE c_elig_per_opt;
1176: -- hr_utility.set_location('Dn c_elig_per_opt ' || l_package,10);
1177: --
1178: END IF;
1179: --
1180: IF p_comp_obj_tree_row.oiplip_id IS NOT NULL THEN
1185: ,p_pgm_id => p_comp_obj_tree_row.par_pgm_id
1186: ,p_plip_id => p_comp_obj_tree_row.par_plip_id
1187: ,p_opt_id => p_comp_obj_tree_row.par_opt_id
1188: ,p_inst_row => p_oiplip_rec);
1189: -- hr_utility.set_location('Dn OIPLIP PILEPO ' || l_package,10);
1190: --
1191: END IF;
1192: --
1193: ELSE
1203: ,p_pl_id => p_pl_id
1204: ,p_plip_id => p_plip_id
1205: ,p_ptip_id => p_ptip_id
1206: ,p_inst_row => p_comp_rec);
1207: -- hr_utility.set_location('Dn PILPEP ' || l_package,10);
1208: --
1209: ELSE
1210: --
1211: OPEN c_elig_per(c_effective_date=> p_effective_date
1218: ,c_pl_id => NVL(p_pl_id
1219: ,-1));
1220: FETCH c_elig_per INTO p_comp_rec;
1221: CLOSE c_elig_per;
1222: -- hr_utility.set_location('Dn c_elig_per ' || l_package,10);
1223: --
1224: END IF;
1225: --
1226: END IF;
1224: END IF;
1225: --
1226: END IF;
1227: --
1228: -- hr_utility.set_location('Leaving ' || l_package,10);
1229: END cache_data_structures;
1230: --
1231: PROCEDURE clear_down_cache IS
1232: --
1234: l_cache_details g_cache_structure;
1235: --
1236: BEGIN
1237: --
1238: -- hr_utility.set_location('Entering ' || l_package,10);
1239: --
1240: -- Set cache structure to null
1241: --
1242: g_cache_details := l_cache_details;
1240: -- Set cache structure to null
1241: --
1242: g_cache_details := l_cache_details;
1243: --
1244: -- hr_utility.set_location('Leaving ' || l_package,10);
1245: --
1246: END;
1247: --
1248: FUNCTION get_balance_date(
1296: AND pbb.person_id = p_person_id;
1297: --
1298: BEGIN
1299: --
1300: -- hr_utility.set_location('Entering ' || l_package,10);
1301: --
1302: IF p_break = 'GT_MIN' THEN
1303: --
1304: OPEN c_gt_min;
1326: END IF;
1327: --
1328: RETURN l_salary;
1329: --
1330: -- hr_utility.set_location('Entering ' || l_package,10);
1331: --
1332: END get_balance_date;
1333: --
1334: FUNCTION get_salary_date(
1446: AND ppp.change_date <= p_effective_date;
1447: --
1448: BEGIN
1449: --
1450: -- hr_utility.set_location('Entering ' || l_package,10);
1451: --
1452: IF p_empasg_row.assignment_id IS NULL THEN
1453: --
1454: l_ass_rec := p_benasg_row;
1513: l_pay_annualization_factor := 2080;
1514: end if;
1515: end if;
1516: if g_debug then
1517: hr_utility.set_location('p_rec.sttd_sal_prdcty_cd :'||p_rec.sttd_sal_prdcty_cd,18);
1518: end if;
1519: --
1520: if p_rec.sttd_sal_prdcty_cd = 'PWK' then
1521: --
1610: end if;
1611: end if;
1612: --
1613: if g_debug then
1614: hr_utility.set_location('Input Value '||l_input ,100);
1615: end if;
1616: if g_debug then
1617: hr_utility.set_location('Output Value '||l_output,100);
1618: end if;
1613: if g_debug then
1614: hr_utility.set_location('Input Value '||l_input ,100);
1615: end if;
1616: if g_debug then
1617: hr_utility.set_location('Output Value '||l_output,100);
1618: end if;
1619: --
1620: IF p_break = 'GT_MIN' THEN
1621: --
1644: END IF;
1645: --
1646: RETURN l_salary;
1647: --
1648: -- hr_utility.set_location('Entering ' || l_package,10);
1649: --
1650: END get_salary_date;
1651: --
1652: FUNCTION get_percent_date(
1704: AND pab.VALUE < p_min;
1705: --
1706: BEGIN
1707: --
1708: -- hr_utility.set_location('Entering ' || l_package,10);
1709: --
1710: IF p_empasg_row.assignment_id IS NULL THEN
1711: --
1712: l_ass_rec := p_benasg_row;
1744: END IF;
1745: --
1746: RETURN l_percent;
1747: --
1748: -- hr_utility.set_location('Leaving ' || l_package,10);
1749: --
1750: END get_percent_date;
1751: --
1752: FUNCTION get_persons_salary(
1783: --
1784: BEGIN
1785: --
1786: if g_debug then
1787: hr_utility.set_location('Leaving ' || l_package,10);
1788: end if;
1789: --
1790: IF p_empasg_row.assignment_id IS NULL THEN
1791: --
1805: --
1806: -- note we don't care if we can't find a salary we just return a null
1807: --
1808: if g_debug then
1809: hr_utility.set_location('Salary is ' || l_salary,10);
1810: end if;
1811: --
1812: CLOSE c1;
1813: --
1857: -- Set sysdate to local
1858: --
1859: l_sysdate := SYSDATE;
1860: --
1861: hr_utility.set_location('Entering ' || l_package,10);
1862: --
1863: -- Quick test to make sure we are only creating life events of a
1864: -- certain type. This is specifically for temporal mode.
1865: --
1873: THEN
1874: --
1875: -- We are creating life events of this type.
1876: --
1877: hr_utility.set_location('Entering ' || l_package,11);
1878: RETURN;
1879: --
1880: END IF;
1881: --
1882: -- Added if condition for GSP.
1883: --
1884: if g_pgm_typ_cd = 'GSP' then
1885: --
1886: hr_utility.set_location('Entering GSP ' || l_package,11);
1887: l_ler_id := g_gsp_ler_id;
1888: l_ler_name := g_gsp_ler_name;
1889: --
1890: else
1888: l_ler_name := g_gsp_ler_name;
1889: --
1890: else
1891: --
1892: hr_utility.set_location('Entering Normal ' || l_package,11);
1893: l_ler_id := p_ler_id;
1894: OPEN c1;
1895: FETCH c1 INTO l_ler_name,l_ptnl_ler_trtmt_cd ;
1896: CLOSE c1;
1899: --
1900: IF NVL(l_ptnl_ler_trtmt_cd ,'-1') = 'IGNRTHIS' THEN
1901: --
1902: if g_debug then
1903: hr_utility.set_location('IGNRTHIS l_ptnl_ler_trtmt_cd '||l_ptnl_ler_trtmt_cd, 80);
1904: end if;
1905: --
1906: -- We are not creating life events or for IGNRTHIS cases
1907: --
1961: g_rec.effective_date := p_effective_date;
1962: --
1963: benutils.write(p_rec=> g_rec);
1964: --
1965: -- hr_utility.set_location('Leaving ' || l_package,10);
1966: --
1967: END create_ptl_ler;
1968: --
1969: FUNCTION no_life_event(
1988: AND pil.lf_evt_ocrd_dt = p_lf_evt_ocrd_dt;
1989: --
1990: BEGIN
1991: --
1992: -- hr_utility.set_location('Entering ' || l_package,10);
1993: --
1994: -- GRADE/STEP : check for grade/step le in case of GSP program.
1995: --
1996: if g_pgm_typ_cd = 'GSP' then
2002: FETCH c1 INTO l_dummy;
2003: IF c1%FOUND THEN
2004: --
2005: CLOSE c1;
2006: -- hr_utility.set_location('Life event exists ' || l_package,10);
2007: RETURN FALSE;
2008: --
2009: END IF;
2010: --
2009: END IF;
2010: --
2011: CLOSE c1;
2012: --
2013: -- hr_utility.set_location('No Life event exists ' || l_package,10);
2014: --
2015: RETURN TRUE;
2016: --
2017: -- hr_utility.set_location('Leaving ' || l_package,10);
2013: -- hr_utility.set_location('No Life event exists ' || l_package,10);
2014: --
2015: RETURN TRUE;
2016: --
2017: -- hr_utility.set_location('Leaving ' || l_package,10);
2018: --
2019: END no_life_event;
2020: --
2021: PROCEDURE min_max_breach
2055: --
2056: BEGIN
2057: --
2058: if g_debug then
2059: hr_utility.set_location('Entering ' || l_package,10);
2060: end if;
2061: --
2062: -- Check if we break a boundary
2063: --
2061: --
2062: -- Check if we break a boundary
2063: --
2064: if g_debug then
2065: hr_utility.set_location('min_max_breach '||p_max_value , 99);
2066: end if;
2067: if g_debug then
2068: hr_utility.set_location('p_new_value '||p_new_value ,99) ;
2069: end if;
2064: if g_debug then
2065: hr_utility.set_location('min_max_breach '||p_max_value , 99);
2066: end if;
2067: if g_debug then
2068: hr_utility.set_location('p_new_value '||p_new_value ,99) ;
2069: end if;
2070: if g_debug then
2071: hr_utility.set_location('p_old_value '||p_old_value ,99);
2072: end if;
2067: if g_debug then
2068: hr_utility.set_location('p_new_value '||p_new_value ,99) ;
2069: end if;
2070: if g_debug then
2071: hr_utility.set_location('p_old_value '||p_old_value ,99);
2072: end if;
2073: hr_utility.set_location('pgm id = ' || p_pgm_id, 9876);
2074: hr_utility.set_location('pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
2075: --
2069: end if;
2070: if g_debug then
2071: hr_utility.set_location('p_old_value '||p_old_value ,99);
2072: end if;
2073: hr_utility.set_location('pgm id = ' || p_pgm_id, 9876);
2074: hr_utility.set_location('pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
2075: --
2076: /* Bug 5478918 */
2077: if (skip_min_max_le_calc(p_ler_id,
2070: if g_debug then
2071: hr_utility.set_location('p_old_value '||p_old_value ,99);
2072: end if;
2073: hr_utility.set_location('pgm id = ' || p_pgm_id, 9876);
2074: hr_utility.set_location('pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
2075: --
2076: /* Bug 5478918 */
2077: if (skip_min_max_le_calc(p_ler_id,
2078: p_business_group_id,
2079: p_ptnl_ler_trtmt_cd,
2080: p_effective_date)) THEN
2081: --
2082: /* Simply return as no further calculations need to be done */
2083: hr_utility.set_location(l_package||' Returning from here.', 9877);
2084: RETURN;
2085: --
2086: end if;
2087: /* End Bug 5478918 */
2111: ,p_value => l_break);
2112:
2113: l_new_lf_evt_ocrd_dt := l_lf_evt_ocrd_dt;
2114: --
2115: --hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 30);
2116: --hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,40);
2117: --
2118: -- Now apply the date mask on top of the derived life event occured date
2119: -- E.G. This could mean that we calculate the Previous October 1 of the
2112:
2113: l_new_lf_evt_ocrd_dt := l_lf_evt_ocrd_dt;
2114: --
2115: --hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 30);
2116: --hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,40);
2117: --
2118: -- Now apply the date mask on top of the derived life event occured date
2119: -- E.G. This could mean that we calculate the Previous October 1 of the
2120: -- derived life event occured date. Do not do this if the det_cd = 'AED'
2134: ,p_returned_date => l_new_lf_evt_ocrd_dt
2135: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt
2136: ,p_effective_date => l_lf_evt_ocrd_dt);
2137: --
2138: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,50);
2139: --
2140: -- The derived life event occured date must be greater than the
2141: -- life event occured date as otherwise in reality a boundary has not
2142: -- been passed.
2163: -- Why this is required ??? causing Bug 1927010
2164: --
2165: -- l_lf_evt_ocrd_dt := ADD_MONTHS(l_lf_evt_ocrd_dt ,1);
2166: null ;
2167: --hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 60);
2168: --
2169: ELSIF p_det_cd = 'AFDCPPY' THEN
2170: --
2171: l_det_cd := 'AFDFPPY';
2186: ,p_returned_date => l_new_lf_evt_ocrd_dt
2187: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt
2188: ,p_effective_date => l_lf_evt_ocrd_dt);
2189: --
2190: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt ,70);
2191: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,80);
2192: --
2193: END IF;
2194: --
2187: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt
2188: ,p_effective_date => l_lf_evt_ocrd_dt);
2189: --
2190: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt ,70);
2191: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,80);
2192: --
2193: END IF;
2194: --
2195: END IF;
2213: --
2214: -- Check if we can ignore the life event that is attempted to be created
2215: --
2216: if g_debug then
2217: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,90);
2218: hr_utility.set_location(' p_effective_date'||p_effective_date,100);
2219: end if;
2220: --
2221: IF ( l_new_lf_evt_ocrd_dt < p_effective_date
2214: -- Check if we can ignore the life event that is attempted to be created
2215: --
2216: if g_debug then
2217: hr_utility.set_location(' l_new_lf_evt_ocrd_dt'||l_new_lf_evt_ocrd_dt,90);
2218: hr_utility.set_location(' p_effective_date'||p_effective_date,100);
2219: end if;
2220: --
2221: IF ( l_new_lf_evt_ocrd_dt < p_effective_date
2222: AND NVL(p_ptnl_ler_trtmt_cd,'-1') = 'IGNR') THEN
2258: -- If not we create a life event only if the person has an elig per
2259: -- f record.
2260: --
2261: if g_debug then
2262: hr_utility.set_location(' no_life_event ',110);
2263: end if;
2264: --
2265: IF no_life_event(p_lf_evt_ocrd_dt=> l_new_lf_evt_ocrd_dt
2266: ,p_person_id => p_person_id
2267: ,p_ler_id => p_ler_id
2268: ,p_effective_date => p_effective_date) THEN
2269: --
2270: if g_debug then
2271: hr_utility.set_location(' call to create_ptl_ler' , 120);
2272: end if;
2273: create_ptl_ler
2274: (p_calculate_only_mode => p_calculate_only_mode
2275: ,p_ler_id => p_ler_id
2286: --
2287: END IF;
2288: --
2289: if g_debug then
2290: hr_utility.set_location('Leaving ' || l_package,10);
2291: end if;
2292: --
2293: END min_max_breach;
2294: --
2326: l_ass_rec per_all_assignments_f%ROWTYPE;
2327: l_oiplip_rec ben_cobj_cache.g_oiplip_inst_row;
2328: --
2329: BEGIN
2330: -- hr_utility.set_location('Entering ' || l_package,10);
2331: --
2332: -- Steps to perform process
2333: --
2334: -- 1) Work out the start date
2371: l_ass_rec := p_empasg_row;
2372: end if;
2373: --
2374: IF l_ass_rec.assignment_id IS NOT NULL THEN
2375: -- hr_utility.set_location('get extra info',10);
2376: --
2377: -- Fix for 115.77
2378: --
2379: ben_person_object.get_object(p_assignment_id=> l_ass_rec.assignment_id
2538: -- no override_service_date, hire_date or adjusted_service_date
2539: --
2540: IF l_subtract_date IS NULL THEN
2541: --
2542: -- hr_utility.set_location('Leaving ' || l_package,10);
2543: RETURN NULL;
2544: --
2545: END IF;
2546: --
2569: ,p_effective_date) );
2570: --
2571: END IF;
2572: --
2573: hr_utility.set_location('p_subtract_date -> ' || p_subtract_date,99);
2574: --
2575: p_subtract_date := l_subtract_date;
2576: hr_utility.set_location('Leaving ' || l_package,99);
2577: RETURN l_result;
2572: --
2573: hr_utility.set_location('p_subtract_date -> ' || p_subtract_date,99);
2574: --
2575: p_subtract_date := l_subtract_date;
2576: hr_utility.set_location('Leaving ' || l_package,99);
2577: RETURN l_result;
2578: --
2579: END los_calculation;
2580: --
2708: l_per c_per_spouse%ROWTYPE;
2709: --
2710: BEGIN
2711: --
2712: -- hr_utility.set_location('Entering ' || l_package,10);
2713: --
2714: -- Steps to perform process
2715: --
2716: -- 1) Work out the start date
2737: l_oiplip_rec := p_curroiplip_row;
2738: --
2739: END IF;
2740: --
2741: -- -- hr_utility.set_location('Age to use code '||p_rec.age_to_use_cd,10);
2742: --
2743: IF p_rec.age_to_use_cd = 'P'
2744: OR ( p_rec.age_to_use_cd IS NULL
2745: AND p_rec.age_calc_rl IS NULL) THEN
2952: IF p_rec.age_to_use_cd <> 'IA'
2953: OR p_rec.age_calc_rl IS NOT NULL THEN
2954: --
2955: if g_debug then
2956: hr_utility.set_location(' BDD_Mn ' || l_package,10);
2957: end if;
2958: ben_determine_date.main(p_date_cd=> p_rec.age_det_cd
2959: ,p_formula_id => p_rec.age_det_rl
2960: ,p_person_id => p_person_id
2978: ben_person_object.get_object(p_person_id => l_person_id,
2979: p_rec => l_per_rec);
2980: --
2981: */
2982: --hr_utility.set_location(' Dn BPO_GO ' || l_package,10);
2983: END IF;
2984: --
2985: l_subtract_date := l_per_rec.date_of_birth;
2986: --
3003: ,l_subtract_date);
3004: --
3005: END IF;
3006: --
3007: --hr_utility.set_location(' Dn <> IA ' ||l_result,10);
3008: END IF;
3009: --
3010: IF p_rec.rndg_cd IS NOT NULL
3011: OR p_rec.rndg_rl IS NOT NULL THEN
3018: ,p_effective_date));
3019: --
3020: END IF;
3021: --
3022: hr_utility.set_location('return ' || l_subtract_date,10);
3023: hr_utility.set_location('Leaving ' || l_package,10);
3024: --
3025: p_subtract_date := l_subtract_date;
3026: RETURN l_result;
3019: --
3020: END IF;
3021: --
3022: hr_utility.set_location('return ' || l_subtract_date,10);
3023: hr_utility.set_location('Leaving ' || l_package,10);
3024: --
3025: p_subtract_date := l_subtract_date;
3026: RETURN l_result;
3027: --
3073: --
3074: BEGIN
3075: --
3076: if g_debug then
3077: hr_utility.set_location('Entering ' || l_package,10);
3078: end if;
3079: --
3080: -- Steps to perform process
3081: --
3103: ,p_effective_date => NVL(p_lf_evt_ocrd_dt ,p_effective_date)
3104: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
3105: --
3106: if g_debug then
3107: hr_utility.set_location('p_rec.hrs_src_cd '||p_rec.hrs_src_cd ,20);
3108: end if;
3109: IF p_rec.hrs_src_cd = 'BNFTBALTYP' THEN
3110: --
3111: IF ben_whatif_elig.g_bnft_bal_hwf_val IS NOT NULL THEN
3120: ELSE
3121: --
3122: -- Get the persons balance
3123: if g_debug then
3124: hr_utility.set_location(' p_rec.bnfts_bal_id '||p_rec.bnfts_bal_id , 30);
3125: end if;
3126: if g_debug then
3127: hr_utility.set_location(' p_person_id '||p_person_id , 30);
3128: end if;
3123: if g_debug then
3124: hr_utility.set_location(' p_rec.bnfts_bal_id '||p_rec.bnfts_bal_id , 30);
3125: end if;
3126: if g_debug then
3127: hr_utility.set_location(' p_person_id '||p_person_id , 30);
3128: end if;
3129: if g_debug then
3130: hr_utility.set_location(' l_start_date '||l_start_date, 30);
3131: end if;
3126: if g_debug then
3127: hr_utility.set_location(' p_person_id '||p_person_id , 30);
3128: end if;
3129: if g_debug then
3130: hr_utility.set_location(' l_start_date '||l_start_date, 30);
3131: end if;
3132: --
3133: ben_person_object.get_object(p_person_id=> p_person_id
3134: ,p_effective_date => l_start_date
3146: fetch c_ass into l_min_ass_date ;
3147: close c_ass ;
3148:
3149: if g_debug then
3150: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3151: end if;
3152: if l_min_ass_date is not null then
3153: ben_person_object.get_object(p_person_id=> p_person_id
3154: ,p_effective_date => l_min_ass_date
3163:
3164: IF l_result IS NULL THEN
3165: --
3166: if g_debug then
3167: hr_utility.set_location(' Person does not have a balance ',40);
3168: end if;
3169: --
3170: -- Person does not have a balance, recheck if they have a balance
3171: -- as of the life event occurred date or effective date.
3189: ,p_rec => l_bal_rec);
3190: --
3191: l_result := l_bal_rec.val;
3192: if g_debug then
3193: hr_utility.set_location(' Person does not l_bal_rec.val '||l_bal_rec.val ,50);
3194: end if;
3195: --
3196: IF l_result IS NULL THEN
3197: --
3290: open c_ass ;
3291: fetch c_ass into l_min_ass_date ;
3292: close c_ass ;
3293: if g_debug then
3294: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3295: end if;
3296: l_result :=
3297: pay_balance_pkg.get_value(p_rec.defined_balance_id
3298: ,l_ass_rec.assignment_id
3350: --
3351: END IF;
3352: --
3353: if g_debug then
3354: hr_utility.set_location(' End of hours_calculation l_result '||l_result, 50);
3355: end if;
3356: --
3357: RETURN l_result;
3358: --
3407: l_jurisdiction_code VARCHAR2(30);
3408: l_assignment_action_id number;
3409: --
3410: BEGIN
3411: g_debug := hr_utility.debug_enabled;
3412: --
3413: -- hr_utility.set_location('Entering ' || l_package,10);
3414: --
3415: -- Steps to perform process
3409: --
3410: BEGIN
3411: g_debug := hr_utility.debug_enabled;
3412: --
3413: -- hr_utility.set_location('Entering ' || l_package,10);
3414: --
3415: -- Steps to perform process
3416: --
3417: -- 1) Work out the start date
3491: open c_ass ;
3492: fetch c_ass into l_min_ass_date ;
3493: close c_ass ;
3494: if g_debug then
3495: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3496: end if;
3497: if l_min_ass_date is not null then
3498: l_result :=
3499: get_persons_salary(p_empasg_row=> p_empasg_row
3501: ,p_person_id => p_person_id
3502: ,p_business_group_id => p_business_group_id
3503: ,p_effective_date => l_min_ass_date);
3504: if g_debug then
3505: hr_utility.set_location ('result ' || l_result , 1999);
3506: end if;
3507: end if ;
3508: end if ;
3509: End if ;
3564: fetch c_ass into l_min_ass_date ;
3565: close c_ass ;
3566:
3567: if g_debug then
3568: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3569: end if;
3570: if l_min_ass_date is not null then
3571: ben_person_object.get_object(p_person_id=> p_person_id
3572: ,p_effective_date => l_min_ass_date
3697: fetch c_ass into l_min_ass_date ;
3698: close c_ass ;
3699:
3700: if g_debug then
3701: hr_utility.set_location (' l_min_ass_date ' || l_min_ass_date, 1999);
3702: end if;
3703: if l_min_ass_date is not null then
3704: l_result :=
3705: pay_balance_pkg.get_value(p_rec.defined_balance_id
3758: END IF;
3759: --
3760: RETURN l_result;
3761: --
3762: -- hr_utility.set_location('Entering ' || l_package,10);
3763: --
3764: END comp_calculation;
3765: --
3766: PROCEDURE calculate_los
3835: OR p_los_fctr_id IS NOT NULL
3836: AND bitand(p_comp_obj_tree_row.flag_bit_val
3837: ,ben_manage_life_events.g_cal_flag) <> 0 THEN
3838: --
3839: -- hr_utility.set_location('LOS for ELIG',10);
3840: IF p_comp_rec.frz_los_flag = 'Y' THEN
3841: --
3842: -- No calulation required just return the frozen value
3843: --
4030: OR p_oiplip_id IS NOT NULL
4031: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
4032: ,ben_manage_life_events.g_los_rt_flag) <> 0 THEN
4033: --
4034: -- hr_utility.set_location('LOS for RT',10);
4035: IF p_comp_rec.rt_frz_los_flag = 'Y' THEN
4036: --
4037: -- No calulation required just return the frozen value
4038: --
4459: p_comp_rec.rt_los_val := NULL;
4460: p_comp_rec.rt_los_uom := NULL;
4461: --
4462: ELSIF l_rate_result is NOT NULL THEN
4463: --hr_utility.set_location(' Step 28',10);
4464: p_comp_rec.rt_los_val := l_rate_result;
4465: p_comp_rec.rt_los_uom := l_rate_rec.los_uom;
4466: --
4467: ELSIF l_rate_cvg_result is NOT NULL then
4467: ELSIF l_rate_cvg_result is NOT NULL then
4468: --
4469: p_comp_rec.rt_los_val := l_rate_cvg_result;
4470: p_comp_rec.rt_los_uom := l_rate_cvg_rec.los_uom;
4471: --hr_utility.set_location(' Step 29',10);
4472: ELSIF l_rate_prem_result is NOT NULL THEN
4473: --
4474: p_comp_rec.rt_los_val := l_rate_prem_result;
4475: p_comp_rec.rt_los_uom := l_rate_prem_rec.los_uom;
4472: ELSIF l_rate_prem_result is NOT NULL THEN
4473: --
4474: p_comp_rec.rt_los_val := l_rate_prem_result;
4475: p_comp_rec.rt_los_uom := l_rate_prem_rec.los_uom;
4476: --hr_utility.set_location(' Step 30',10);
4477: END IF;
4478: --
4479: --hr_utility.set_location(' Step 31',10);
4480: END IF; -- p_age_fctr_id
4475: p_comp_rec.rt_los_uom := l_rate_prem_rec.los_uom;
4476: --hr_utility.set_location(' Step 30',10);
4477: END IF;
4478: --
4479: --hr_utility.set_location(' Step 31',10);
4480: END IF; -- p_age_fctr_id
4481: --
4482: --
4483: END IF;
4483: END IF;
4484: --
4485: END IF;
4486: --
4487: -- hr_utility.set_location('Leaving ' || l_package,10);
4488: --
4489: END calculate_los;
4490: --
4491: -- Calculate AGE
4535: --
4536: BEGIN
4537: --
4538: if g_debug then
4539: hr_utility.set_location('Entering ' || l_package,10);
4540: end if;
4541: if g_debug then
4542: hr_utility.set_location('Start p_oipl_id '||p_oipl_id,15);
4543: end if;
4538: if g_debug then
4539: hr_utility.set_location('Entering ' || l_package,10);
4540: end if;
4541: if g_debug then
4542: hr_utility.set_location('Start p_oipl_id '||p_oipl_id,15);
4543: end if;
4544: if g_debug then
4545: hr_utility.set_location('Start p_plip_id'||p_plip_id,15);
4546: end if;
4541: if g_debug then
4542: hr_utility.set_location('Start p_oipl_id '||p_oipl_id,15);
4543: end if;
4544: if g_debug then
4545: hr_utility.set_location('Start p_plip_id'||p_plip_id,15);
4546: end if;
4547: if g_debug then
4548: hr_utility.set_location('Start p_ptip_id'||p_ptip_id,15);
4549: end if;
4544: if g_debug then
4545: hr_utility.set_location('Start p_plip_id'||p_plip_id,15);
4546: end if;
4547: if g_debug then
4548: hr_utility.set_location('Start p_ptip_id'||p_ptip_id,15);
4549: end if;
4550: if g_debug then
4551: hr_utility.set_location('Start p_oiplip_id'||p_oiplip_id,15);
4552: end if;
4547: if g_debug then
4548: hr_utility.set_location('Start p_ptip_id'||p_ptip_id,15);
4549: end if;
4550: if g_debug then
4551: hr_utility.set_location('Start p_oiplip_id'||p_oiplip_id,15);
4552: end if;
4553: if g_debug then
4554: hr_utility.set_location('Start p_pl_id '||p_pl_id,15);
4555: end if;
4550: if g_debug then
4551: hr_utility.set_location('Start p_oiplip_id'||p_oiplip_id,15);
4552: end if;
4553: if g_debug then
4554: hr_utility.set_location('Start p_pl_id '||p_pl_id,15);
4555: end if;
4556: if g_debug then
4557: hr_utility.set_location('Start p_pgm_id '||p_pgm_id,15);
4558: end if;
4553: if g_debug then
4554: hr_utility.set_location('Start p_pl_id '||p_pl_id,15);
4555: end if;
4556: if g_debug then
4557: hr_utility.set_location('Start p_pgm_id '||p_pgm_id,15);
4558: end if;
4559: if g_debug then
4560: hr_utility.set_location('p_age_fctr_id '||p_age_fctr_id,15);
4561: end if;
4556: if g_debug then
4557: hr_utility.set_location('Start p_pgm_id '||p_pgm_id,15);
4558: end if;
4559: if g_debug then
4560: hr_utility.set_location('p_age_fctr_id '||p_age_fctr_id,15);
4561: end if;
4562:
4563: --
4564: -- Calculate AGE process
4578: OR p_age_fctr_id IS NOT NULL
4579: AND bitand(p_comp_obj_tree_row.flag_bit_val
4580: ,ben_manage_life_events.g_cal_flag) <> 0 THEN
4581: --
4582: --hr_utility.set_location('AGE for ELIG',10);
4583: IF p_comp_rec.frz_age_flag = 'Y' THEN
4584: --
4585: -- No calulation required just return the frozen value
4586: --
4610: ,p_rec => l_elig_rec);
4611: --
4612: END IF;
4613: --
4614: --hr_utility.set_location('EREX=Y ' || l_package,10);
4615: IF l_elig_rec.exist = 'Y' THEN
4616: --
4617: l_elig_result :=
4618: age_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
4723: END IF;
4724: --
4725: END IF;
4726: --
4727: hr_utility.set_location('Plip_id '||p_plip_id,9);
4728: hr_utility.set_location('age_val ' || p_comp_rec.age_val,10);
4729: --
4730: --
4731: IF bitand(p_comp_obj_tree_row.flag_bit_val
4724: --
4725: END IF;
4726: --
4727: hr_utility.set_location('Plip_id '||p_plip_id,9);
4728: hr_utility.set_location('age_val ' || p_comp_rec.age_val,10);
4729: --
4730: --
4731: IF bitand(p_comp_obj_tree_row.flag_bit_val
4732: ,ben_manage_life_events.g_age_rt_flag) <> 0
4736: OR p_oiplip_id IS NOT NULL
4737: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
4738: ,ben_manage_life_events.g_age_rt_flag) <> 0 THEN
4739: --
4740: --hr_utility.set_location('AGE for RT',10);
4741: IF p_comp_rec.rt_frz_age_flag = 'Y' THEN
4742: --
4743: -- No calulation required just return the frozen value
4744: --hr_utility.set_location(' rt_frz_age_flag '||p_comp_rec.rt_frz_age_flag ,22);
4740: --hr_utility.set_location('AGE for RT',10);
4741: IF p_comp_rec.rt_frz_age_flag = 'Y' THEN
4742: --
4743: -- No calulation required just return the frozen value
4744: --hr_utility.set_location(' rt_frz_age_flag '||p_comp_rec.rt_frz_age_flag ,22);
4745: --
4746: NULL;
4747: --
4748: ELSE
4748: ELSE
4749: --
4750: IF p_age_fctr_id IS NOT NULL THEN
4751: --
4752: --hr_utility.set_location(' p_age_fctr_id '||p_age_fctr_id,23);
4753: ben_derive_part_and_rate_cache.get_age_stated(p_age_fctr_id=> p_age_fctr_id
4754: ,p_business_group_id => p_business_group_id
4755: ,p_rec => l_rate_rec);
4756: --
4756: --
4757: ELSE
4758: --
4759: if g_debug then
4760: hr_utility.set_location('Getting Age for Rate',10);
4761: end if;
4762: --
4763: ben_derive_part_and_rate_cache.get_age_rate(p_pgm_id=> p_pgm_id
4764: ,p_pl_id => p_pl_id
4770: ,p_effective_date => nvl(g_fonm_cvg_strt_dt,NVL(p_lf_evt_ocrd_dt
4771: ,p_effective_date))
4772: ,p_rec => l_rate_rec);
4773: --
4774: --hr_utility.set_location(' Rate l_rate_rec.exist '||l_rate_rec.exist,33);
4775: IF l_rate_rec.exist = 'Y' THEN
4776: --
4777: --hr_utility.set_location(' l_rate_rec.exist true ' , 34);
4778: l_rate := TRUE;
4773: --
4774: --hr_utility.set_location(' Rate l_rate_rec.exist '||l_rate_rec.exist,33);
4775: IF l_rate_rec.exist = 'Y' THEN
4776: --
4777: --hr_utility.set_location(' l_rate_rec.exist true ' , 34);
4778: l_rate := TRUE;
4779:
4780: l_rate_result :=
4781: age_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
4798: ,p_ptip_id => p_ptip_id
4799: ,p_subtract_date => l_subtract_date
4800: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
4801:
4802: --hr_utility.set_location(' Step 10 ',10);
4803: --
4804: IF l_rate_result is not null THEN
4805: --
4806: --hr_utility.set_location(' Step 11',10 );
4802: --hr_utility.set_location(' Step 10 ',10);
4803: --
4804: IF l_rate_result is not null THEN
4805: --
4806: --hr_utility.set_location(' Step 11',10 );
4807: ben_derive_part_and_rate_cache.get_age_rate(
4808: p_pgm_id => p_pgm_id
4809: ,p_pl_id => p_pl_id
4810: ,p_oipl_id => p_oipl_id
4822: -- OR l_elig_rec.age_calc_rl IS NOT NULL THEN
4823: --
4824: ben_seeddata_object.get_object(p_rec=> l_der_rec);
4825: --
4826: --hr_utility.set_location(' Step 12 ',10 );
4827: min_max_breach
4828: (p_calculate_only_mode => p_calculate_only_mode
4829: ,p_comp_obj_tree_row => p_comp_obj_tree_row
4830: ,p_curroiplip_row => p_curroiplip_row
4852: -- END IF; -- Breach
4853: --
4854: --p_comp_rec.rt_age_val := l_rate_result;
4855: --p_comp_rec.rt_age_uom := l_rate_rec.age_uom;
4856: --hr_utility.set_location(' Step 13 ',10);
4857: --
4858: END IF; -- l_rate_result
4859: --hr_utility.set_location(' Step 14 ',10 );
4860: --
4855: --p_comp_rec.rt_age_uom := l_rate_rec.age_uom;
4856: --hr_utility.set_location(' Step 13 ',10);
4857: --
4858: END IF; -- l_rate_result
4859: --hr_utility.set_location(' Step 14 ',10 );
4860: --
4861: END IF ; --l_rate_rec.exist
4862: --
4863: --hr_utility.set_location(' Step 15 ',10 );
4859: --hr_utility.set_location(' Step 14 ',10 );
4860: --
4861: END IF ; --l_rate_rec.exist
4862: --
4863: --hr_utility.set_location(' Step 15 ',10 );
4864: -- Try and find a coverage first
4865: --
4866: IF p_oipl_id IS NOT NULL
4867: OR p_pl_id IS NOT NULL
4866: IF p_oipl_id IS NOT NULL
4867: OR p_pl_id IS NOT NULL
4868: OR p_plip_id IS NOT NULL THEN
4869: --
4870: --hr_utility.set_location('Getting Age for CVG',10);
4871: --
4872: ben_derive_part_and_rate_cvg.get_age_rate(
4873: p_pl_id => p_pl_id
4874: ,p_oipl_id => p_oipl_id
4879: ,p_rec => l_rate_cvg_rec);
4880: --
4881: IF l_rate_cvg_rec.exist = 'Y' THEN
4882: --
4883: --hr_utility.set_location(' Step 16 ',10 );
4884: l_cvg := TRUE;
4885: l_rate_cvg_result :=
4886: age_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
4887: ,p_per_row => p_per_row
4906:
4907: --
4908: IF l_rate_cvg_result is not null THEN
4909: --
4910: --hr_utility.set_location(' Step 17' ,10);
4911: ben_derive_part_and_rate_cvg.get_age_rate(
4912: p_pl_id => p_pl_id
4913: ,p_oipl_id => p_oipl_id
4914: ,p_plip_id => p_plip_id
4923: -- OR l_elig_rec.age_calc_rl IS NOT NULL THEN
4924: --
4925: ben_seeddata_object.get_object(p_rec=> l_der_cvg_rec);
4926: --
4927: --hr_utility.set_location(' Step 18' , 10);
4928: min_max_breach
4929: (p_calculate_only_mode => p_calculate_only_mode
4930: ,p_comp_obj_tree_row => p_comp_obj_tree_row
4931: ,p_curroiplip_row => p_curroiplip_row
4953: -- END IF; -- Breach
4954: --
4955: -- p_comp_rec.rt_age_val := l_rate_cvg_result;
4956: -- p_comp_rec.rt_age_uom := l_rate_cvg_rec.age_uom;
4957: --hr_utility.set_location(' Step 19',10);
4958:
4959: END IF ; -- l_rate_cvg_result
4960: --
4961: --hr_utility.set_location(' Step 20',10);
4957: --hr_utility.set_location(' Step 19',10);
4958:
4959: END IF ; -- l_rate_cvg_result
4960: --
4961: --hr_utility.set_location(' Step 20',10);
4962: END IF; --l_rate_cvg_rec.exist
4963: --
4964: -- Try and find a premium
4965: --
4962: END IF; --l_rate_cvg_rec.exist
4963: --
4964: -- Try and find a premium
4965: --
4966: --hr_utility.set_location('Getting Age for Prem',10);
4967: ben_derive_part_and_rate_prem.get_age_rate(
4968: p_pl_id => p_pl_id
4969: ,p_oipl_id => p_oipl_id
4970: ,p_business_group_id => p_business_group_id
4975: IF l_rate_prem_rec.exist = 'Y' THEN
4976: --
4977: l_prem := TRUE;
4978: --
4979: --hr_utility.set_location(' Step 21',10);
4980: l_rate_prem_result :=
4981: age_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
4982: ,p_per_row => p_per_row
4983: ,p_empasg_row => p_empasg_row
4998: ,p_ptip_id => p_ptip_id
4999: ,p_subtract_date => l_subtract_date
5000: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
5001: --
5002: --hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,123);
5003: --
5004: IF l_rate_prem_result is not null THEN
5005: --
5006: --hr_utility.set_location(' in l_prem ' ,133);
5002: --hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,123);
5003: --
5004: IF l_rate_prem_result is not null THEN
5005: --
5006: --hr_utility.set_location(' in l_prem ' ,133);
5007: ben_derive_part_and_rate_prem.get_age_rate(
5008: p_pl_id => p_pl_id
5009: ,p_oipl_id => p_oipl_id
5010: ,p_business_group_id => p_business_group_id
5018: -- OR l_elig_rec.age_calc_rl IS NOT NULL THEN
5019: --
5020: ben_seeddata_object.get_object(p_rec=> l_der_prem_rec);
5021: --
5022: --hr_utility.set_location(' Step 22',10);
5023: min_max_breach
5024: (p_calculate_only_mode => p_calculate_only_mode
5025: ,p_comp_obj_tree_row => p_comp_obj_tree_row
5026: ,p_curroiplip_row => p_curroiplip_row
5048: -- END IF; -- Breach
5049: --
5050: --p_comp_rec.rt_age_val := l_rate_prem_result;
5051: --p_comp_rec.rt_age_uom := l_rate_prem_rec.age_uom;
5052: --hr_utility.set_location(' Step 23',10);
5053: --
5054: END IF; -- l_rate_prem_result
5055: --
5056: --hr_utility.set_location(' Step 24',10);
5052: --hr_utility.set_location(' Step 23',10);
5053: --
5054: END IF; -- l_rate_prem_result
5055: --
5056: --hr_utility.set_location(' Step 24',10);
5057: END IF; -- l_rate_prem_rec.exist
5058: --
5059: --hr_utility.set_location(' Step 25',10);
5060: END IF; -- p_oipl_id
5055: --
5056: --hr_utility.set_location(' Step 24',10);
5057: END IF; -- l_rate_prem_rec.exist
5058: --
5059: --hr_utility.set_location(' Step 25',10);
5060: END IF; -- p_oipl_id
5061: --
5062: --hr_utility.set_location(' Step 26',10);
5063: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
5058: --
5059: --hr_utility.set_location(' Step 25',10);
5060: END IF; -- p_oipl_id
5061: --
5062: --hr_utility.set_location(' Step 26',10);
5063: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
5064: --
5065: p_comp_rec.rt_age_val := NULL;
5066: p_comp_rec.rt_age_uom := NULL;
5063: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
5064: --
5065: p_comp_rec.rt_age_val := NULL;
5066: p_comp_rec.rt_age_uom := NULL;
5067: --hr_utility.set_location(' Step 27',10);
5068: --
5069: --
5070: ELSIF l_rate_result is NOT NULL THEN
5071: --
5068: --
5069: --
5070: ELSIF l_rate_result is NOT NULL THEN
5071: --
5072: --hr_utility.set_location(' Step 28',10);
5073: p_comp_rec.rt_age_val := l_rate_result;
5074: p_comp_rec.rt_age_uom := l_rate_rec.age_uom;
5075: --
5076: --
5075: --
5076: --
5077: ELSIF l_rate_cvg_result is NOT NULL then
5078: --
5079: --hr_utility.set_location(' Step 29',10);
5080: p_comp_rec.rt_age_val := l_rate_cvg_result;
5081: p_comp_rec.rt_age_uom := l_rate_cvg_rec.age_uom;
5082: --
5083: ELSIF l_rate_prem_result is NOT NULL THEN
5081: p_comp_rec.rt_age_uom := l_rate_cvg_rec.age_uom;
5082: --
5083: ELSIF l_rate_prem_result is NOT NULL THEN
5084: --
5085: --hr_utility.set_location(' Step 30',10);
5086: p_comp_rec.rt_age_val := l_rate_prem_result;
5087: p_comp_rec.rt_age_uom := l_rate_prem_rec.age_uom;
5088: --
5089: END IF;
5087: p_comp_rec.rt_age_uom := l_rate_prem_rec.age_uom;
5088: --
5089: END IF;
5090: --
5091: --hr_utility.set_location(' Step 31',10);
5092: END IF; -- p_age_fctr_id
5093: --
5094: --
5095: --hr_utility.set_location('Dn AF NN ' ||l_rate_rec.exist,123);
5091: --hr_utility.set_location(' Step 31',10);
5092: END IF; -- p_age_fctr_id
5093: --
5094: --
5095: --hr_utility.set_location('Dn AF NN ' ||l_rate_rec.exist,123);
5096: --
5097: END IF; -- p_comp_rec.rt_frz_age_flag
5098: --
5099: END IF; -- STANDARD.bitand
5098: --
5099: END IF; -- STANDARD.bitand
5100: --
5101: if g_debug then
5102: hr_utility.set_location('Leaving ' || l_package,10);
5103: end if;
5104: --
5105: END calculate_age;
5106: --
5149: l_oiplip_rec ben_cobj_cache.g_oiplip_inst_row;
5150: --
5151: BEGIN
5152: if g_debug then
5153: hr_utility.set_location('Entering comp_level_min_max ', 10 );
5154: end if;
5155: /* Bug 5478918 */
5156: if (skip_min_max_le_calc(p_ler_id,
5157: p_business_group_id,
5158: p_ptnl_ler_trtmt_cd,
5159: p_effective_date)) THEN
5160: --
5161: /* Simply return as no further calculations need to be done */
5162: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
5163: RETURN;
5164: end if;
5165: /* End Bug 5478918 */
5166: if g_debug then
5163: RETURN;
5164: end if;
5165: /* End Bug 5478918 */
5166: if g_debug then
5167: hr_utility.set_location('p_max_value '||p_max_value,10);
5168: end if;
5169: if g_debug then
5170: hr_utility.set_location('p_min_value '||p_min_value,10);
5171: end if;
5166: if g_debug then
5167: hr_utility.set_location('p_max_value '||p_max_value,10);
5168: end if;
5169: if g_debug then
5170: hr_utility.set_location('p_min_value '||p_min_value,10);
5171: end if;
5172: if g_debug then
5173: hr_utility.set_location('p_new_value '||p_new_value,10);
5174: end if;
5169: if g_debug then
5170: hr_utility.set_location('p_min_value '||p_min_value,10);
5171: end if;
5172: if g_debug then
5173: hr_utility.set_location('p_new_value '||p_new_value,10);
5174: end if;
5175: if g_debug then
5176: hr_utility.set_location('p_old_value '||p_old_value,10);
5177: end if;
5172: if g_debug then
5173: hr_utility.set_location('p_new_value '||p_new_value,10);
5174: end if;
5175: if g_debug then
5176: hr_utility.set_location('p_old_value '||p_old_value,10);
5177: end if;
5178: --
5179: IF benutils.min_max_breach(p_min_value=> NVL(p_min_value
5180: ,-1)
5186: --
5187: -- Derive life event occured date based on the value of l_break
5188: --
5189: if g_debug then
5190: hr_utility.set_location(' l_break '||l_break , 10);
5191: end if;
5192: --
5193: IF p_comp_src_cd = 'STTDCOMP' THEN
5194: --
5202: ,p_max => p_max_value
5203: ,p_break => l_break);
5204: --
5205: if g_debug then
5206: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 20);
5207: end if;
5208: --
5209: /* BUG: 4380180. IF l_lf_evt_ocrd_dt IS NULL, avoid determining the date */
5210: IF (p_det_cd <> 'AED' AND l_lf_evt_ocrd_dt IS NOT NULL) THEN
5223: ,p_returned_date => l_new_lf_evt_ocrd_dt
5224: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt
5225: ,p_effective_date => l_lf_evt_ocrd_dt);
5226: if g_debug then
5227: hr_utility.set_location(' l_new_lf_evt_ocrd_dt '||l_new_lf_evt_ocrd_dt , 30);
5228: end if;
5229: --
5230: -- The derived life event occured date must be greater than the
5231: -- life event occured date as otherwise in reality a boundary
5284: --
5285: END IF;
5286: --
5287: if g_debug then
5288: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 40);
5289: end if;
5290: --
5291: ELSIF p_comp_src_cd = 'BNFTBALTYP' THEN
5292: --
5383: ben_person_object.get_object(p_person_id=> p_person_id
5384: ,p_rec => l_rec);
5385: --
5386: if g_debug then
5387: hr_utility.set_location(' l_rec.min_ass_effective_start_date ' ||l_rec.min_ass_effective_start_date, 50);
5388: end if;
5389: if g_debug then
5390: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 51);
5391: end if;
5386: if g_debug then
5387: hr_utility.set_location(' l_rec.min_ass_effective_start_date ' ||l_rec.min_ass_effective_start_date, 50);
5388: end if;
5389: if g_debug then
5390: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt , 51);
5391: end if;
5392: --
5393: IF l_lf_evt_ocrd_dt >= l_rec.min_ass_effective_start_date THEN
5394: --
5394: --
5395: -- ben_seeddata_object.get_object(p_rec=> p_ler_id);
5396: --
5397: if g_debug then
5398: hr_utility.set_location(' Before no_life_event ',60);
5399: end if;
5400: --
5401: IF no_life_event(p_lf_evt_ocrd_dt=> l_lf_evt_ocrd_dt
5402: ,p_person_id => p_person_id
5403: ,p_ler_id => p_ler_id
5404: ,p_effective_date => p_effective_date) THEN
5405: --
5406: if g_debug then
5407: hr_utility.set_location(' No Life Event ',70);
5408: end if;
5409: --
5410: IF ( l_lf_evt_ocrd_dt < p_effective_date
5411: AND NVL(p_ptnl_ler_trtmt_cd
5411: AND NVL(p_ptnl_ler_trtmt_cd
5412: ,'-1') = 'IGNR' OR NVL(p_ptnl_ler_trtmt_cd,'-1') = 'IGNRALL') THEN
5413: --
5414: if g_debug then
5415: hr_utility.set_location('IGNR ' , 80);
5416: end if;
5417: -- We are not creating past life events
5418: --
5419: RETURN;
5420: --
5421: END IF;
5422: --
5423: if g_debug then
5424: hr_utility.set_location('Call create_ptl_ler ' ,90);
5425: end if;
5426: --
5427: create_ptl_ler
5428: (p_calculate_only_mode => p_calculate_only_mode
5439: --
5440: END IF;
5441: --
5442: if g_debug then
5443: hr_utility.set_location(' Leaving comp_level_min_max ',100);
5444: end if;
5445: --
5446: END comp_level_min_max ;
5447:
5541: --
5542: --BUG 3174453. If we don't have pgmid,plid or oipld we need to get them
5543: --from the p_comp_obj_tree_row cache to pass to determine_compensation
5544: --in bendefct.pkb
5545: g_debug := hr_utility.debug_enabled;
5546: if g_debug then
5547: hr_utility.set_location('Entering ' || l_package,10);
5548: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5549: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5543: --from the p_comp_obj_tree_row cache to pass to determine_compensation
5544: --in bendefct.pkb
5545: g_debug := hr_utility.debug_enabled;
5546: if g_debug then
5547: hr_utility.set_location('Entering ' || l_package,10);
5548: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5549: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5550: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5551: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5544: --in bendefct.pkb
5545: g_debug := hr_utility.debug_enabled;
5546: if g_debug then
5547: hr_utility.set_location('Entering ' || l_package,10);
5548: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5549: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5550: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5551: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5552: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5545: g_debug := hr_utility.debug_enabled;
5546: if g_debug then
5547: hr_utility.set_location('Entering ' || l_package,10);
5548: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5549: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5550: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5551: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5552: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5553: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5546: if g_debug then
5547: hr_utility.set_location('Entering ' || l_package,10);
5548: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5549: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5550: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5551: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5552: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5553: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5554: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5547: hr_utility.set_location('Entering ' || l_package,10);
5548: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5549: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5550: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5551: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5552: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5553: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5554: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5548: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5549: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5550: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5551: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5552: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5553: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5554: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5549: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5550: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5551: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5552: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5553: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5554: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5550: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5551: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5552: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5553: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5554: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5551: hr_utility.set_location('p_plip_id '||p_plip_id,20);
5552: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5553: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5554: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5552: hr_utility.set_location('p_ptip_id '||p_ptip_id,20);
5553: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5554: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5560: --
5553: hr_utility.set_location('p_oiplip_id'||p_oiplip_id,20);
5554: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5560: --
5561: end if;
5554: hr_utility.set_location('p_comp_obj_tree_row.OIPL_ID'||p_comp_obj_tree_row.OIPL_ID,20);
5555: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5560: --
5561: end if;
5562: --
5555: hr_utility.set_location('p_comp_obj_tree_row.PL_ID'||p_comp_obj_tree_row.PL_ID,20);
5556: hr_utility.set_location('p_comp_obj_tree_row.PGM_ID'||p_comp_obj_tree_row.PGM_ID,20);
5557: hr_utility.set_location('p_comp_obj_tree_row.PLIPID'||p_comp_obj_tree_row.PLIP_ID,20);
5558: hr_utility.set_location('p_comp_obj_tree_row.PTIPID'||p_comp_obj_tree_row.PTIP_ID,20);
5559: hr_utility.set_location('p_comp_obj_tree_row.OIPLIP'||p_comp_obj_tree_row.OIPLIP_ID,20);
5560: --
5561: end if;
5562: --
5563: if p_pgm_id IS NULL AND p_pl_id IS NULL AND p_oipl_id IS NULL then
5610: p_pl_id := l_pl_id;
5611: p_oipl_id:= l_oipl_id;
5612: --
5613: if g_debug then
5614: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5615: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5616: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5617: hr_utility.set_location('Leaving ' || l_package,10);
5618: --
5611: p_oipl_id:= l_oipl_id;
5612: --
5613: if g_debug then
5614: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5615: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5616: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5617: hr_utility.set_location('Leaving ' || l_package,10);
5618: --
5619: end if;
5612: --
5613: if g_debug then
5614: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5615: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5616: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5617: hr_utility.set_location('Leaving ' || l_package,10);
5618: --
5619: end if;
5620: --
5613: if g_debug then
5614: hr_utility.set_location('p_pgm_id '||p_pgm_id,20);
5615: hr_utility.set_location('p_pl_id '||p_pl_id,20);
5616: hr_utility.set_location('p_oipl_id '||p_oipl_id,20);
5617: hr_utility.set_location('Leaving ' || l_package,10);
5618: --
5619: end if;
5620: --
5621: end get_comp_objects;
5623: --
5624: BEGIN
5625: --
5626: if g_debug then
5627: hr_utility.set_location('Entering ' || l_package,10);
5628: end if;
5629: --
5630: -- Calculate CLVL process
5631: -- =====================
5640: --
5641: IF bitand(p_comp_obj_tree_row.flag_bit_val
5642: ,ben_manage_life_events.g_cmp_flag) <> 0 THEN
5643: --
5644: -- hr_utility.set_location('COMP for ELIG',10);
5645: IF p_comp_rec.frz_cmp_lvl_flag = 'Y' THEN
5646: --
5647: -- No calulation required just return the frozen value
5648: --
5663: l_ok := TRUE;
5664: --
5665: IF l_elig_rec.exist = 'Y' THEN
5666: -- Rule takes precedence
5667: -- hr_utility.set_location(' Elig exists ' || l_package,10);
5668: IF l_elig_rec.comp_calc_rl IS NOT NULL THEN
5669: --
5670: ben_determine_date.main(p_date_cd=> l_elig_rec.comp_lvl_det_cd
5671: ,p_formula_id => l_elig_rec.comp_lvl_det_rl
5763: -- ,p_cal_for in varchar2 default null,
5764: ,p_value => l_elig_result
5765: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt );
5766: --
5767: -- hr_utility.set_location(' Dn comp calc ' || l_package,10);
5768: --
5769: END IF;
5770: --
5771: /* Bug 5478918 */
5776: p_ptnl_ler_trtmt_cd,
5777: p_effective_date)) THEN
5778: --
5779: /* Simply return as no further calculations need to be done */
5780: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
5781: null;
5782: --
5783: else
5784: --
6052: END IF;
6053: --
6054: END IF;
6055: --
6056: -- hr_utility.set_location('RFCLF=Y ' || l_package,10);
6057: --
6058: END IF;
6059: --
6060: if g_debug then
6057: --
6058: END IF;
6059: --
6060: if g_debug then
6061: hr_utility.set_location(' Before entering into Rate Factors ', 15);
6062: end if;
6063: IF bitand(p_comp_obj_tree_row.flag_bit_val
6064: ,ben_manage_life_events.g_cmp_rt_flag) <> 0
6065: OR p_oiplip_id IS NOT NULL
6066: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
6067: ,ben_manage_life_events.g_cmp_rt_flag) <> 0 THEN
6068: --
6069: if g_debug then
6070: hr_utility.set_location('COMP for RT',10);
6071: end if;
6072: IF p_comp_rec.rt_frz_cmp_lvl_flag = 'Y' THEN
6073: --
6074: -- No calulation required just return the frozen value
6077: --
6078: ELSE
6079: --
6080: if g_debug then
6081: hr_utility.set_location('ben_derive_part_and_rate_cache '||p_oipl_id , 20);
6082: end if;
6083: --
6084: ben_derive_part_and_rate_cache.get_comp_rate(p_pgm_id=> p_pgm_id
6085: ,p_pl_id => p_pl_id
6094: --
6095: IF l_rate_rec.exist = 'Y' THEN
6096: --
6097: if g_debug then
6098: hr_utility.set_location(' l_rate_rec.exist ' ,25);
6099: end if;
6100: l_rate := TRUE;
6101: --
6102: IF p_oiplip_id IS NOT NULL THEN
6101: --
6102: IF p_oiplip_id IS NOT NULL THEN
6103: --
6104: if g_debug then
6105: hr_utility.set_location(' p_curroiplip_row ',25);
6106: end if;
6107: l_oiplip_rec := p_curroiplip_row;
6108: --
6109: END IF;
6110: --
6111: IF l_rate_rec.comp_calc_rl IS NOT NULL THEN
6112: --
6113: if g_debug then
6114: hr_utility.set_location('in the comp_calc_rl ' ,30);
6115: end if;
6116: --
6117: ben_determine_date.main(p_date_cd=> l_rate_rec.comp_lvl_det_cd
6118: ,p_formula_id => l_rate_rec.comp_lvl_det_rl
6154: IF l_rate_rec.rndg_cd IS NOT NULL
6155: OR l_rate_rec.rndg_rl IS NOT NULL THEN
6156: --
6157: if g_debug then
6158: hr_utility.set_location('in the comp_calc_rl rndg_cd ' ,35 );
6159: end if;
6160: --
6161: l_rate_result :=
6162: benutils.do_rounding(p_rounding_cd=> l_rate_rec.rndg_cd
6169: --
6170: ELSE -- l_rate_rec.comp_calc_rl
6171: --
6172: if g_debug then
6173: hr_utility.set_location('not rule - l_rate_result ',30);
6174: end if;
6175: /*
6176: l_rate_result :=
6177: comp_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
6240: --
6241: ben_seeddata_object.get_object(p_rec=> l_der_rec);
6242: --
6243: if g_debug then
6244: hr_utility.set_location(' Call to comp_level_min_max ' ,45 );
6245: end if;
6246:
6247: comp_level_min_max
6248: (p_calculate_only_mode =>p_calculate_only_mode
6286: END IF ; -- l_rate_rec.exist
6287: -- Try and find a coverage first
6288: --
6289: if g_debug then
6290: hr_utility.set_location(' Now check for Coverage and Premium' ,50 );
6291: end if;
6292: --
6293: IF p_oipl_id IS NOT NULL
6294: OR p_pl_id IS NOT NULL
6294: OR p_pl_id IS NOT NULL
6295: OR p_plip_id IS NOT NULL THEN
6296: --
6297: if g_debug then
6298: hr_utility.set_location(' ben_derive_part_and_rate_cvg ' , 55);
6299: end if;
6300: --
6301: ben_derive_part_and_rate_cvg.get_comp_rate(p_pl_id=> p_pl_id
6302: ,p_oipl_id => p_oipl_id
6308: --
6309: IF l_rate_cvg_rec.exist = 'Y' THEN
6310: --
6311: if g_debug then
6312: hr_utility.set_location(' l_rate_cvg_rec.exist' , 60);
6313: end if;
6314: l_cvg := TRUE;
6315: --
6316: IF l_rate_cvg_rec.comp_calc_rl IS NOT NULL THEN
6367: --
6368: ELSE -- l_rate_cvg_rec.comp_calc_rl
6369: --
6370: if g_debug then
6371: hr_utility.set_location(' call to comp_calculation ' , 65 );
6372: end if;
6373: /*
6374: l_rate_cvg_result :=
6375: comp_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
6416: ,p_value => l_rate_cvg_result
6417: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
6418: ---
6419: if g_debug then
6420: hr_utility.set_location(' l_rate_cvg_result ' ,70);
6421: end if;
6422: IF l_rate_cvg_result is not null THEN
6423: --
6424: ben_derive_part_and_rate_cvg.get_comp_rate(p_pl_id=> p_pl_id
6438:
6439: ben_seeddata_object.get_object(p_rec=> l_der_cvg_rec);
6440: --
6441: if g_debug then
6442: hr_utility.set_location(' call comp_level_min_max ' ,75);
6443: end if;
6444: comp_level_min_max
6445: (p_calculate_only_mode =>p_calculate_only_mode
6446: ,p_comp_obj_tree_row =>p_comp_obj_tree_row
6486: IF p_oipl_id IS NOT NULL
6487: OR p_pl_id IS NOT NULL THEN
6488: --
6489: if g_debug then
6490: hr_utility.set_location(' Now call ben_derive_part_and_rate_prem ' , 80);
6491: end if;
6492: --
6493: ben_derive_part_and_rate_prem.get_comp_rate(
6494: p_pl_id => p_pl_id
6500: --
6501: IF l_rate_prem_rec.exist = 'Y' THEN
6502: --
6503: if g_debug then
6504: hr_utility.set_location(' l_rate_prem_rec.exist Y ',85);
6505: end if;
6506: l_prem := TRUE;
6507: --
6508: IF l_rate_prem_rec.comp_calc_rl IS NOT NULL THEN
6558: --
6559: ELSE -- l_rate_prem_rec.comp_calc_rl
6560: --
6561: if g_debug then
6562: hr_utility.set_location(' call to comp_calculation ' , 90);
6563: end if;
6564: /*
6565: l_rate_prem_result :=
6566: comp_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
6605: ,p_value => l_rate_prem_result
6606: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt);
6607: --
6608: if g_debug then
6609: hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,95);
6610: end if;
6611: if g_debug then
6612: hr_utility.set_location(' p_old_val '||p_comp_rec.rt_comp_ref_amt,95);
6613: end if;
6608: if g_debug then
6609: hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,95);
6610: end if;
6611: if g_debug then
6612: hr_utility.set_location(' p_old_val '||p_comp_rec.rt_comp_ref_amt,95);
6613: end if;
6614: if g_debug then
6615: hr_utility.set_location(' p_new_val '||l_rate_prem_result,95);
6616: end if;
6611: if g_debug then
6612: hr_utility.set_location(' p_old_val '||p_comp_rec.rt_comp_ref_amt,95);
6613: end if;
6614: if g_debug then
6615: hr_utility.set_location(' p_new_val '||l_rate_prem_result,95);
6616: end if;
6617: if g_debug then
6618: hr_utility.set_location(' p_pl_id '||p_pl_id,95);
6619: end if;
6614: if g_debug then
6615: hr_utility.set_location(' p_new_val '||l_rate_prem_result,95);
6616: end if;
6617: if g_debug then
6618: hr_utility.set_location(' p_pl_id '||p_pl_id,95);
6619: end if;
6620: if g_debug then
6621: hr_utility.set_location(' p_oipl_id '||p_oipl_id,95);
6622: end if;
6617: if g_debug then
6618: hr_utility.set_location(' p_pl_id '||p_pl_id,95);
6619: end if;
6620: if g_debug then
6621: hr_utility.set_location(' p_oipl_id '||p_oipl_id,95);
6622: end if;
6623: if g_debug then
6624: hr_utility.set_location(' p_effective_date '||NVL(p_lf_evt_ocrd_dt,p_effective_date) ,95);
6625: end if;
6620: if g_debug then
6621: hr_utility.set_location(' p_oipl_id '||p_oipl_id,95);
6622: end if;
6623: if g_debug then
6624: hr_utility.set_location(' p_effective_date '||NVL(p_lf_evt_ocrd_dt,p_effective_date) ,95);
6625: end if;
6626: --
6627: IF l_rate_prem_result is not null THEN
6628: --
6642: --
6643: ben_seeddata_object.get_object(p_rec=> l_der_prem_rec);
6644: --
6645: if g_debug then
6646: hr_utility.set_location(' call to comp_level_min_max ' ,100);
6647: end if;
6648: comp_level_min_max
6649: (p_calculate_only_mode =>p_calculate_only_mode
6650: ,p_comp_obj_tree_row =>p_comp_obj_tree_row
6688: --
6689: END IF; -- p_oipl_id for Premium
6690: --
6691: if g_debug then
6692: hr_utility.set_location(' Done with Rate, Cvg and Prem ', 110);
6693: end if;
6694: --
6695: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
6696: --
6694: --
6695: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
6696: --
6697: if g_debug then
6698: hr_utility.set_location('No record found ' ,120);
6699: end if;
6700: --
6701: p_comp_rec.rt_comp_ref_amt := NULL;
6702: p_comp_rec.rt_comp_ref_uom := NULL;
6702: p_comp_rec.rt_comp_ref_uom := NULL;
6703: --
6704: ELSIF l_rate_result is NOT NULL THEN
6705: if g_debug then
6706: hr_utility.set_location(' Step 28',10);
6707: end if;
6708: p_comp_rec.rt_comp_ref_amt := l_rate_result;
6709: p_comp_rec.rt_comp_ref_uom := l_rate_rec.comp_lvl_uom;
6710: --
6712: --
6713: p_comp_rec.rt_comp_ref_amt := l_rate_cvg_result;
6714: p_comp_rec.rt_comp_ref_uom := l_rate_cvg_rec.comp_lvl_uom;
6715: if g_debug then
6716: hr_utility.set_location(' Step 29',10);
6717: end if;
6718: ELSIF l_rate_prem_result is NOT NULL THEN
6719: --
6720: p_comp_rec.rt_comp_ref_amt := l_rate_prem_result;
6719: --
6720: p_comp_rec.rt_comp_ref_amt := l_rate_prem_result;
6721: p_comp_rec.rt_comp_ref_uom := l_rate_prem_rec.comp_lvl_uom;
6722: if g_debug then
6723: hr_utility.set_location(' Step 30',10);
6724: end if;
6725: END IF;
6726: /*
6727: p_comp_rec.rt_comp_ref_amt := l_rate_result;
6744: --
6745: END IF;
6746: --
6747: if g_debug then
6748: hr_utility.set_location('Leaving ' || l_package,10);
6749: end if;
6750: --
6751: END calculate_compensation_level;
6752: --
6803: l_prem BOOLEAN := FALSE;
6804: --
6805: BEGIN
6806: --
6807: -- hr_utility.set_location('Entering ' || l_package,10);
6808: --
6809: -- Calculate Comb AGE LOS process
6810: -- ==============================
6811: -- The sequence of operations is as follows :
6819: --
6820: IF bitand(p_comp_obj_tree_row.flag_bit_val
6821: ,ben_manage_life_events.g_cal_flag) <> 0 THEN
6822: --
6823: -- hr_utility.set_location('CAL for ELIG',10);
6824: IF p_comp_rec.frz_comb_age_and_los_flag = 'Y' THEN
6825: --
6826: -- No calculation required just return the frozen value
6827: --
6893: l_elig_result := p_comp_rec.age_val + p_comp_rec.los_val;
6894: --
6895: -- p_comp_rec.cmbn_age_n_los_val := l_elig_result;
6896: if g_debug then
6897: hr_utility.set_location('Combined value'||l_elig_result,100);
6898: end if;
6899: --
6900: IF p_comp_rec.cmbn_age_n_los_val IS NOT NULL THEN
6901: --
6907: p_ptnl_ler_trtmt_cd,
6908: p_effective_date)) THEN
6909: --
6910: /* Simply return as no further calculations need to be done */
6911: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
6912: null;
6913: --
6914: else
6915: --
6978: END IF;
6979: --
6980: END IF;
6981: --
6982: -- hr_utility.set_location('p_comp_rec ' || p_comp_rec.cmbn_age_n_los_val,10);
6983: --
6984: IF bitand(p_comp_obj_tree_row.flag_bit_val
6985: ,ben_manage_life_events.g_cal_rt_flag) <> 0
6986: OR p_oiplip_id IS NOT NULL
6986: OR p_oiplip_id IS NOT NULL
6987: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
6988: ,ben_manage_life_events.g_cal_rt_flag) <> 0 THEN
6989: --
6990: -- hr_utility.set_location('CAL for RT',10);
6991: IF p_comp_rec.rt_frz_comb_age_and_los_flag = 'Y' THEN
6992: --
6993: -- No calculation required just return the frozen value
6994: --
7091: p_ptnl_ler_trtmt_cd,
7092: p_effective_date)) THEN
7093: --
7094: /* Simply return as no further calculations need to be done */
7095: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7096: null;
7097: --
7098: else
7099: --
7232: p_ptnl_ler_trtmt_cd,
7233: p_effective_date)) THEN
7234: --
7235: /* Simply return as no further calculations need to be done */
7236: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7237: null;
7238: --
7239: else
7240: --
7372: p_ptnl_ler_trtmt_cd,
7373: p_effective_date)) THEN
7374: --
7375: /* Simply return as no further calculations need to be done */
7376: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7377: null;
7378: --
7379: else
7380: --
7421: --
7422: IF l_rate_result IS NULL and l_rate_cvg_result IS NULL and l_rate_prem_result IS NULL THEN
7423: --
7424: p_comp_rec.rt_cmbn_age_n_los_val := NULL;
7425: --hr_utility.set_location(' Step 27',10);
7426: --
7427: --
7428: ELSIF l_rate_result is NOT NULL THEN
7429: --
7426: --
7427: --
7428: ELSIF l_rate_result is NOT NULL THEN
7429: --
7430: --hr_utility.set_location(' Step 28',10);
7431: p_comp_rec.rt_cmbn_age_n_los_val := l_rate_result;
7432: --
7433: --
7434: ELSIF l_rate_cvg_result is NOT NULL then
7432: --
7433: --
7434: ELSIF l_rate_cvg_result is NOT NULL then
7435: --
7436: --hr_utility.set_location(' Step 29',10);
7437: p_comp_rec.rt_cmbn_age_n_los_val := l_rate_cvg_result;
7438: --
7439: ELSIF l_rate_prem_result is NOT NULL THEN
7440: --
7437: p_comp_rec.rt_cmbn_age_n_los_val := l_rate_cvg_result;
7438: --
7439: ELSIF l_rate_prem_result is NOT NULL THEN
7440: --
7441: --hr_utility.set_location(' Step 30',10);
7442: p_comp_rec.rt_cmbn_age_n_los_val:= l_rate_prem_result;
7443: --
7444: END IF;
7445: --
7446: END IF; -- p_comp_rec.rt_frz_comb_age_and_los_flag
7447: --
7448: END IF;
7449: --
7450: -- hr_utility.set_location('Leaving ' || l_package,10);
7451: --
7452: END calculate_comb_age_and_los;
7453: --
7454: PROCEDURE percent_fulltime_min_max
7494: l_oiplip_rec ben_cobj_cache.g_oiplip_inst_row;
7495: --
7496: BEGIN
7497: if g_debug then
7498: hr_utility.set_location('Entering percent_fulltime_min_max ', 10 );
7499: end if;
7500: /* Bug 5478918 */
7501: if (skip_min_max_le_calc(p_ler_id,
7502: p_business_group_id,
7503: p_ptnl_ler_trtmt_cd,
7504: p_effective_date)) THEN
7505: --
7506: /* Simply return as no further calculations need to be done */
7507: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7508: RETURN;
7509: end if;
7510: /* End Bug 5478918 */
7511: if g_debug then
7508: RETURN;
7509: end if;
7510: /* End Bug 5478918 */
7511: if g_debug then
7512: hr_utility.set_location('p_max_value '||p_max_value,10);
7513: end if;
7514: if g_debug then
7515: hr_utility.set_location('p_min_value '||p_min_value,10);
7516: end if;
7511: if g_debug then
7512: hr_utility.set_location('p_max_value '||p_max_value,10);
7513: end if;
7514: if g_debug then
7515: hr_utility.set_location('p_min_value '||p_min_value,10);
7516: end if;
7517: if g_debug then
7518: hr_utility.set_location('p_new_value '||p_new_value,10);
7519: end if;
7514: if g_debug then
7515: hr_utility.set_location('p_min_value '||p_min_value,10);
7516: end if;
7517: if g_debug then
7518: hr_utility.set_location('p_new_value '||p_new_value,10);
7519: end if;
7520: if g_debug then
7521: hr_utility.set_location('p_old_value '||p_old_value,10);
7522: end if;
7517: if g_debug then
7518: hr_utility.set_location('p_new_value '||p_new_value,10);
7519: end if;
7520: if g_debug then
7521: hr_utility.set_location('p_old_value '||p_old_value,10);
7522: end if;
7523: --
7524: IF benutils.min_max_breach(p_min_value=> NVL( p_min_value
7525: ,-1)
7633: l_prem BOOLEAN := FALSE;
7634: --
7635: BEGIN
7636: --
7637: hr_utility.set_location('Entering ' || l_package,10);
7638: --
7639: -- Calculate PCT FT process
7640: -- =====================
7641: -- The sequence of operations is as follows :
7650: --
7651: IF bitand(p_comp_obj_tree_row.flag_bit_val
7652: ,ben_manage_life_events.g_pft_flag) <> 0 THEN
7653: --
7654: -- hr_utility.set_location('PFT for ELIG',10);
7655: IF p_comp_rec.frz_pct_fl_tm_flag = 'Y' THEN
7656: --
7657: -- No calulation required just return the frozen value
7658: --
7723: p_ptnl_ler_trtmt_cd,
7724: p_effective_date)) THEN
7725: --
7726: /* Simply return as no further calculations need to be done */
7727: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
7728: null;
7729: --
7730: else
7731: --
7816: OR p_oiplip_id IS NOT NULL
7817: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
7818: ,ben_manage_life_events.g_pft_rt_flag) <> 0 THEN
7819: --
7820: -- hr_utility.set_location('PFT for RT',10);
7821: IF p_comp_rec.rt_frz_pct_fl_tm_flag = 'Y' THEN
7822: --
7823: -- No calulation required just return the frozen value
7824: --
8026: END IF; --p_oipl_id coverage
8027: -- Now try Premiums
8028: --
8029: if g_debug then
8030: hr_utility.set_location('Entering into premium process ' , 20);
8031: end if;
8032: --
8033: IF p_oipl_id IS NOT NULL
8034: OR p_pl_id IS NOT NULL THEN
8058: END IF;
8059: --
8060:
8061: if g_debug then
8062: hr_utility.set_location(' l_ass_rec.assignment_id '||l_ass_rec.assignment_id, 30);
8063: end if;
8064: ben_person_object.get_object(p_assignment_id=> l_ass_rec.assignment_id
8065: ,p_rec => l_rec);
8066:
8068: --
8069: -- Get percent fulltime value for persons primary assignment
8070: --
8071: if g_debug then
8072: hr_utility.set_location(' l_rec.fte '||l_rec.fte ,40);
8073: end if;
8074: l_rate_prem_result := l_rec.fte;
8075: --
8076: ELSIF l_rate_prem_rec.use_sum_of_all_asnts_flag = 'Y' THEN
8077: --
8078: -- Get percent fulltime figure for all persons assignments
8079: --
8080: if g_debug then
8081: hr_utility.set_location(' l_rec.total_fte '||l_rec.total_fte , 50);
8082: end if;
8083: l_rate_prem_result := l_rec.total_fte;
8084: --
8085: END IF;
8146: p_comp_rec.rt_pct_fl_tm_val := NULL;
8147: --
8148: ELSIF l_rate_result is NOT NULL THEN
8149: if g_debug then
8150: hr_utility.set_location(' Step 28',10);
8151: end if;
8152: p_comp_rec.rt_pct_fl_tm_val := l_rate_result;
8153: --
8154: ELSIF l_rate_cvg_result is NOT NULL then
8154: ELSIF l_rate_cvg_result is NOT NULL then
8155: --
8156: p_comp_rec.rt_pct_fl_tm_val := l_rate_cvg_result;
8157: if g_debug then
8158: hr_utility.set_location(' Step 29',10);
8159: end if;
8160: ELSIF l_rate_prem_result is NOT NULL THEN
8161: --
8162: p_comp_rec.rt_pct_fl_tm_val := l_rate_prem_result;
8160: ELSIF l_rate_prem_result is NOT NULL THEN
8161: --
8162: p_comp_rec.rt_pct_fl_tm_val := l_rate_prem_result;
8163: if g_debug then
8164: hr_utility.set_location(' Step 30',10);
8165: end if;
8166: END IF;
8167: --
8168: END IF;
8172:
8173: -- p_comp_rec.rt_pct_fl_tm_val := l_rate_result ;
8174:
8175: if g_debug then
8176: hr_utility.set_location('Leaving ' || l_package,10);
8177: end if;
8178: --
8179: END calculate_percent_fulltime;
8180: --
8220: l_rec ben_person_object.g_person_date_info_rec;
8221: l_oiplip_rec ben_cobj_cache.g_oiplip_inst_row;
8222: --
8223: BEGIN
8224: hr_utility.set_location('Entering hours_worked_min_max ', 10 );
8225: /* Bug 5478918 */
8226: if (skip_min_max_le_calc(p_ler_id,
8227: p_business_group_id,
8228: p_ptnl_ler_trtmt_cd,
8228: p_ptnl_ler_trtmt_cd,
8229: p_effective_date)) THEN
8230: --
8231: /* Simply return as no further calculations need to be done */
8232: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
8233: RETURN;
8234: end if;
8235: /* End Bug 5478918 */
8236: hr_utility.set_location('p_max_value '||p_max_value,10);
8232: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
8233: RETURN;
8234: end if;
8235: /* End Bug 5478918 */
8236: hr_utility.set_location('p_max_value '||p_max_value,10);
8237: hr_utility.set_location('p_min_value '||p_min_value,10);
8238: hr_utility.set_location('p_new_value '||p_new_value,10);
8239: hr_utility.set_location('p_old_value '||p_old_value,10);
8240: --
8233: RETURN;
8234: end if;
8235: /* End Bug 5478918 */
8236: hr_utility.set_location('p_max_value '||p_max_value,10);
8237: hr_utility.set_location('p_min_value '||p_min_value,10);
8238: hr_utility.set_location('p_new_value '||p_new_value,10);
8239: hr_utility.set_location('p_old_value '||p_old_value,10);
8240: --
8241: IF benutils.min_max_breach(p_min_value=> NVL(p_min_value
8234: end if;
8235: /* End Bug 5478918 */
8236: hr_utility.set_location('p_max_value '||p_max_value,10);
8237: hr_utility.set_location('p_min_value '||p_min_value,10);
8238: hr_utility.set_location('p_new_value '||p_new_value,10);
8239: hr_utility.set_location('p_old_value '||p_old_value,10);
8240: --
8241: IF benutils.min_max_breach(p_min_value=> NVL(p_min_value
8242: ,-1)
8235: /* End Bug 5478918 */
8236: hr_utility.set_location('p_max_value '||p_max_value,10);
8237: hr_utility.set_location('p_min_value '||p_min_value,10);
8238: hr_utility.set_location('p_new_value '||p_new_value,10);
8239: hr_utility.set_location('p_old_value '||p_old_value,10);
8240: --
8241: IF benutils.min_max_breach(p_min_value=> NVL(p_min_value
8242: ,-1)
8243: ,p_max_value => NVL(p_max_value
8364: RETURN ;
8365: --
8366: END IF;
8367: --
8368: hr_utility.set_location('Got the dates. Now creating the LE',10);
8369: --
8370: IF no_life_event(p_lf_evt_ocrd_dt=> l_lf_evt_ocrd_dt
8371: ,p_person_id => p_person_id
8372: ,p_ler_id => p_ler_id
8441: --
8442: BEGIN
8443: --
8444: if g_debug then
8445: hr_utility.set_location('Entering ' || l_package,10);
8446: end if;
8447: --
8448: -- Calculate HRS WKD process
8449: -- =========================
8457: --
8458: IF bitand(p_comp_obj_tree_row.flag_bit_val
8459: ,ben_manage_life_events.g_hrw_flag) <> 0 THEN
8460: --
8461: -- hr_utility.set_location('HRW for ELIG',10);
8462: IF p_comp_rec.frz_hrs_wkd_flag = 'Y' THEN
8463: --
8464: -- No calulation required just return the frozen value
8465: --
8494: --
8495: ELSIF l_elig_rec.exist = 'Y' THEN
8496: --
8497: if g_debug then
8498: hr_utility.set_location(' l_elig_rec.hrs_wkd_calc_rl '||l_elig_rec.hrs_wkd_calc_rl , 99);
8499: end if;
8500: --
8501: IF l_elig_rec.hrs_wkd_calc_rl IS NOT NULL THEN
8502: --
8500: --
8501: IF l_elig_rec.hrs_wkd_calc_rl IS NOT NULL THEN
8502: --
8503: if g_debug then
8504: hr_utility.set_location(' l_elig_rec.hrs_wkd_calc_rl '||l_elig_rec.hrs_wkd_calc_rl , 99);
8505: end if;
8506: --
8507: ben_determine_date.main(p_date_cd=> l_elig_rec.hrs_wkd_det_cd
8508: ,p_formula_id => l_elig_rec.hrs_wkd_calc_rl
8519: ,p_effective_date)
8520: ,p_fonm_cvg_strt_dt => g_fonm_cvg_strt_dt );
8521: --
8522: if g_debug then
8523: hr_utility.set_location(' l_start_date '||l_start_date ,99);
8524: end if;
8525: --
8526: run_rule(p_formula_id => l_elig_rec.hrs_wkd_calc_rl
8527: ,p_empasg_row => p_empasg_row
8542: ,p_ret_date => l_dummy_date
8543: ,p_ret_val => l_elig_result);
8544: --
8545: if g_debug then
8546: hr_utility.set_location(' l_elig_result '||l_elig_result ,99);
8547: end if;
8548: --
8549: -- Round value if rounding needed
8550: --
8580: END IF;
8581: -- In case called from watif benmngle then need not create
8582: -- temporals for any min, max breaches.
8583: --
8584: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8585: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8586: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8587: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8588: --hr_utility.set_location(' p_break '||l_break,99);
8581: -- In case called from watif benmngle then need not create
8582: -- temporals for any min, max breaches.
8583: --
8584: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8585: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8586: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8587: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8588: --hr_utility.set_location(' p_break '||l_break,99);
8589: --
8582: -- temporals for any min, max breaches.
8583: --
8584: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8585: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8586: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8587: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8588: --hr_utility.set_location(' p_break '||l_break,99);
8589: --
8590: /* Bug 5478918 */
8583: --
8584: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8585: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8586: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8587: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8588: --hr_utility.set_location(' p_break '||l_break,99);
8589: --
8590: /* Bug 5478918 */
8591: ben_seeddata_object.get_object(p_rec=> l_der_rec);
8584: --hr_utility.set_location(' p_min_value '||l_elig_rec.mn_hrs_num ,99);
8585: --hr_utility.set_location(' p_max_value '||l_elig_rec.mx_hrs_num ,99);
8586: --hr_utility.set_location(' p_new_value '||l_elig_result ,99);
8587: --hr_utility.set_location(' p_old_value '||p_comp_rec.hrs_wkd_val ,99);
8588: --hr_utility.set_location(' p_break '||l_break,99);
8589: --
8590: /* Bug 5478918 */
8591: ben_seeddata_object.get_object(p_rec=> l_der_rec);
8592: if (skip_min_max_le_calc(l_der_rec.drvdhrw_id,
8594: p_ptnl_ler_trtmt_cd,
8595: p_effective_date)) THEN
8596: --
8597: /* Simply return as no further calculations need to be done */
8598: hr_utility.set_location(l_package||' Do Nothing here.', 9877);
8599: null;
8600: --
8601: else
8602: --
8789: END IF;
8790: --
8791: END IF;
8792: --
8793: -- hr_utility.set_location('RFHWF=Y ' || l_package,10);
8794: --9999
8795: IF bitand(p_comp_obj_tree_row.flag_bit_val
8796: ,ben_manage_life_events.g_hrw_rt_flag) <> 0
8797: OR p_oiplip_id IS NOT NULL
8798: AND bitand(p_comp_obj_tree_row.oiplip_flag_bit_val
8799: ,ben_manage_life_events.g_hrw_rt_flag) <> 0 THEN
8800: --
8801: if g_debug then
8802: hr_utility.set_location('HRW for RT',10);
8803: end if;
8804: IF p_comp_rec.rt_frz_hrs_wkd_flag = 'Y'
8805: OR (
8806: NVL(p_comp_rec.once_r_cntug_cd
8813: --
8814: ELSE
8815: --
8816: if g_debug then
8817: hr_utility.set_location('ben_derive_part_and_rate_cache '||p_oipl_id , 20);
8818: end if;
8819: --
8820: ben_derive_part_and_rate_cache.get_hours_rate(p_pgm_id=> p_pgm_id
8821: ,p_pl_id => p_pl_id
8840: --
8841: ELSIF l_rate_rec.exist = 'Y' THEN
8842: --
8843: if g_debug then
8844: hr_utility.set_location(' l_rate_rec.exist ' ,25);
8845: end if;
8846: l_rate := TRUE;
8847: --
8848: IF p_oiplip_id IS NOT NULL THEN
8847: --
8848: IF p_oiplip_id IS NOT NULL THEN
8849: --
8850: if g_debug then
8851: hr_utility.set_location(' p_curroiplip_row ',25);
8852: end if;
8853: l_oiplip_rec := p_curroiplip_row;
8854: --
8855: END IF;
8856: --
8857: IF l_rate_rec.hrs_wkd_calc_rl IS NOT NULL THEN
8858: --
8859: if g_debug then
8860: hr_utility.set_location('in the comp_calc_rl ' ,30);
8861: end if;
8862: ben_determine_date.main(p_date_cd=> l_rate_rec.hrs_wkd_det_cd
8863: ,p_formula_id => l_rate_rec.hrs_wkd_calc_rl
8864: ,p_person_id => p_person_id
8906: ,p_value => l_rate_result
8907: ,p_effective_date => NVL(p_lf_evt_ocrd_dt
8908: ,p_effective_date));
8909: if g_debug then
8910: hr_utility.set_location('in the l_rate_rec.rndg_cd ' , 35 );
8911: end if;
8912: --
8913: END IF;
8914: --
8914: --
8915: ELSE
8916: --
8917: if g_debug then
8918: hr_utility.set_location('not rule - l_rate_result ',30);
8919: end if;
8920: l_rate_result :=
8921: hours_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
8922: ,p_empasg_row => p_empasg_row
8936: --
8937: IF l_rate_result is not null THEN
8938: --
8939: if g_debug then
8940: hr_utility.set_location(' l_rate_result found '||l_rate_result , 40);
8941: end if;
8942: --
8943: ben_derive_part_and_rate_cache.get_hours_rate(p_pgm_id=> p_pgm_id
8944: ,p_pl_id => p_pl_id
8958: --
8959: ben_seeddata_object.get_object(p_rec=> l_der_rec);
8960: --
8961: if g_debug then
8962: hr_utility.set_location(' Call to hours_worked_min_max ' ,45 );
8963: end if;
8964: hours_worked_min_max
8965: (p_calculate_only_mode =>p_calculate_only_mode
8966: ,p_comp_obj_tree_row =>p_comp_obj_tree_row
9001: END IF ; -- l_rate_rec.exist
9002: -- Try and find a coverage first
9003: --
9004: if g_debug then
9005: hr_utility.set_location(' Now check for Coverage and Premium' ,50 );
9006: end if;
9007: --
9008: IF p_oipl_id IS NOT NULL
9009: OR p_pl_id IS NOT NULL
9030: --
9031: ELSIF l_rate_cvg_rec.exist = 'Y' THEN /* Changed from l_rate_rec to l_rate_cvg_rec */
9032: --
9033: if g_debug then
9034: hr_utility.set_location(' l_rate_cvg_rec.exist' , 60);
9035: end if;
9036: --
9037: l_cvg := TRUE;
9038: --
9089: --
9090: ELSE
9091: --
9092: if g_debug then
9093: hr_utility.set_location(' call to hours_calculation ' , 65 );
9094: end if;
9095: l_rate_cvg_result :=
9096: hours_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
9097: ,p_empasg_row => p_empasg_row
9126: --
9127: ben_seeddata_object.get_object(p_rec=> l_der_cvg_rec);
9128: --
9129: if g_debug then
9130: hr_utility.set_location(' call hours_worked_min_max ' ,75);
9131: end if;
9132: hours_worked_min_max
9133: (p_calculate_only_mode =>p_calculate_only_mode
9134: ,p_comp_obj_tree_row =>p_comp_obj_tree_row
9169: --
9170: END IF ; -- oipl_id
9171: --
9172: if g_debug then
9173: hr_utility.set_location(' Now call ben_derive_part_and_rate_prem ' , 80);
9174: end if;
9175: IF p_oipl_id IS NOT NULL
9176: OR p_pl_id IS NOT NULL THEN
9177: --
9196: --
9197: ELSIF l_rate_prem_rec.exist = 'Y' THEN
9198: --
9199: if g_debug then
9200: hr_utility.set_location(' l_rate_prem_rec.exist Y ',85);
9201: end if;
9202: l_prem := TRUE;
9203: --
9204: IF l_rate_prem_rec.hrs_wkd_calc_rl IS NOT NULL THEN
9254: --
9255: ELSE
9256: --
9257: if g_debug then
9258: hr_utility.set_location(' call to hours_calculation ' , 90);
9259: end if;
9260: l_rate_prem_result :=
9261: hours_calculation(p_comp_obj_tree_row=> p_comp_obj_tree_row
9262: ,p_empasg_row => p_empasg_row
9274: ,p_effective_date => p_effective_date
9275: ,p_lf_evt_ocrd_dt => p_lf_evt_ocrd_dt);
9276: --
9277: if g_debug then
9278: hr_utility.set_location(' l_rate_prem_result '||l_rate_prem_result ,95);
9279: end if;
9280: --
9281: IF l_rate_prem_result is not null THEN
9282: --
9296: --
9297: ben_seeddata_object.get_object(p_rec=> l_der_prem_rec);
9298: --
9299: if g_debug then
9300: hr_utility.set_location(' call to comp_level_min_max ' ,100);
9301: end if;
9302: --
9303: hours_worked_min_max
9304: (p_calculate_only_mode =>p_calculate_only_mode
9346: p_comp_rec.rt_hrs_wkd_bndry_perd_cd := NULL;
9347: --
9348: ELSIF l_rate_result is NOT NULL THEN
9349: if g_debug then
9350: hr_utility.set_location(' Step 28',10);
9351: end if;
9352: p_comp_rec.rt_hrs_wkd_val := l_rate_result;
9353: p_comp_rec.rt_hrs_wkd_bndry_perd_cd := NULL ;
9354: --
9356: --
9357: p_comp_rec.rt_hrs_wkd_val := l_rate_cvg_result;
9358: p_comp_rec.rt_hrs_wkd_bndry_perd_cd := NULL ;
9359: if g_debug then
9360: hr_utility.set_location(' Step 29',10);
9361: end if;
9362: ELSIF l_rate_prem_result is NOT NULL THEN
9363: --
9364: p_comp_rec.rt_hrs_wkd_val := l_rate_prem_result;
9363: --
9364: p_comp_rec.rt_hrs_wkd_val := l_rate_prem_result;
9365: p_comp_rec.rt_hrs_wkd_bndry_perd_cd := NULL ;
9366: if g_debug then
9367: hr_utility.set_location(' Step 30',10);
9368: end if;
9369: END IF;
9370: --
9371: END IF;
9411: --
9412: END IF;
9413: --
9414: if g_debug then
9415: hr_utility.set_location('Leaving ' || l_package,10);
9416: end if;
9417: --
9418: END calculate_hours_worked;
9419: --
9434: l_allwd_underpymt_amt := p_allwd_underpymt_value;
9435: end if;
9436:
9437: if g_debug then
9438: hr_utility.set_location('total amt due'||p_amt_due,11);
9439: hr_utility.set_location('total shortfall'||p_shortfall_amt,11);
9440: hr_utility.set_location('allowed underpayment amt'||l_allwd_underpymt_amt,11);
9441: end if;
9442:
9435: end if;
9436:
9437: if g_debug then
9438: hr_utility.set_location('total amt due'||p_amt_due,11);
9439: hr_utility.set_location('total shortfall'||p_shortfall_amt,11);
9440: hr_utility.set_location('allowed underpayment amt'||l_allwd_underpymt_amt,11);
9441: end if;
9442:
9443: if p_shortfall_amt > l_allwd_underpymt_amt then
9436:
9437: if g_debug then
9438: hr_utility.set_location('total amt due'||p_amt_due,11);
9439: hr_utility.set_location('total shortfall'||p_shortfall_amt,11);
9440: hr_utility.set_location('allowed underpayment amt'||l_allwd_underpymt_amt,11);
9441: end if;
9442:
9443: if p_shortfall_amt > l_allwd_underpymt_amt then
9444: l_late_pymt_evt := TRUE;
9570: l_amt_due := l_per_month_amt;
9571: end if;
9572:
9573: if g_debug then
9574: hr_utility.set_location('amt due'||l_amt_due,11);
9575: hr_utility.set_location('pymt_amt'||l_pymt_amt,11);
9576: hr_utility.set_location('p_from_date'||p_from_date,11);
9577: hr_utility.set_location('p_to_date'||p_to_date,11);
9578: end if;
9571: end if;
9572:
9573: if g_debug then
9574: hr_utility.set_location('amt due'||l_amt_due,11);
9575: hr_utility.set_location('pymt_amt'||l_pymt_amt,11);
9576: hr_utility.set_location('p_from_date'||p_from_date,11);
9577: hr_utility.set_location('p_to_date'||p_to_date,11);
9578: end if;
9579:
9572:
9573: if g_debug then
9574: hr_utility.set_location('amt due'||l_amt_due,11);
9575: hr_utility.set_location('pymt_amt'||l_pymt_amt,11);
9576: hr_utility.set_location('p_from_date'||p_from_date,11);
9577: hr_utility.set_location('p_to_date'||p_to_date,11);
9578: end if;
9579:
9580: IF l_amt_due > l_pymt_amt THEN
9573: if g_debug then
9574: hr_utility.set_location('amt due'||l_amt_due,11);
9575: hr_utility.set_location('pymt_amt'||l_pymt_amt,11);
9576: hr_utility.set_location('p_from_date'||p_from_date,11);
9577: hr_utility.set_location('p_to_date'||p_to_date,11);
9578: end if;
9579:
9580: IF l_amt_due > l_pymt_amt THEN
9581: l_shortfall_amt := l_amt_due - l_pymt_amt;
9782: l_check_subseq_pymt boolean := FALSE;
9783: l_shortfall_amt number;
9784: l_pymt_due_date date;
9785: BEGIN
9786: g_debug := hr_utility.debug_enabled;
9787: --
9788: if g_debug then
9789: hr_utility.set_location('Entering ' || l_package,10);
9790: end if;
9785: BEGIN
9786: g_debug := hr_utility.debug_enabled;
9787: --
9788: if g_debug then
9789: hr_utility.set_location('Entering ' || l_package,10);
9790: end if;
9791: --
9792: --
9793: -- If the person has not made a payment within the a grace period
9817: -- Bug 3097501 : End
9818:
9819: FOR l_pen_rec IN c_get_prtt_enrt_rslt LOOP
9820: --
9821: -- hr_utility.set_location('Found results' || l_pen_rec.pl_id,10);
9822: --
9823: -- Check if it is the first payment.
9824: --
9825: OPEN c_get_elcns_made_dt;
9825: OPEN c_get_elcns_made_dt;
9826: FETCH c_get_elcns_made_dt INTO l_elcns_made_dt,l_cbr_per_in_ler_id;
9827: CLOSE c_get_elcns_made_dt;
9828: --
9829: -- hr_utility.set_location('l_elcns_made_dt' || l_elcns_made_dt,10);
9830: --
9831: l_due_date := l_elcns_made_dt + 45;
9832: --
9833: -- hr_utility.set_location('l_due_date' || l_due_date,10);
9829: -- hr_utility.set_location('l_elcns_made_dt' || l_elcns_made_dt,10);
9830: --
9831: l_due_date := l_elcns_made_dt + 45;
9832: --
9833: -- hr_utility.set_location('l_due_date' || l_due_date,10);
9834: --
9835: IF p_effective_date > l_due_date THEN
9836: --
9837: -- Get the assignment to use.
9906: -- due.
9907: --
9908: IF l_cobra_pymt_due_dy_num IS NOT NULL THEN
9909:
9910: -- hr_utility.set_location('Found due day' || l_cobra_pymt_due_dy_num,10);
9911: -- Get the last due date to check if the person is late with
9912: -- his/her payment.
9913: --
9914: l_due_date := LAST_DAY(ADD_MONTHS(p_effective_date,-2)) +
9926: -- Bug 3208938
9927:
9928: l_eff_due_date := l_due_date + 30;
9929: --
9930: -- hr_utility.set_location('l_due_date' || l_due_date,10);
9931: -- hr_utility.set_location('l_eff_due_date' || l_eff_due_date,10);
9932: --
9933: -- if the person has not made a payment by the due date, create
9934: -- a potential life event.
9927:
9928: l_eff_due_date := l_due_date + 30;
9929: --
9930: -- hr_utility.set_location('l_due_date' || l_due_date,10);
9931: -- hr_utility.set_location('l_eff_due_date' || l_eff_due_date,10);
9932: --
9933: -- if the person has not made a payment by the due date, create
9934: -- a potential life event.
9935: --
9962: l_eff_due_date := l_due_date + 30;
9963: END IF;
9964:
9965: if g_debug then
9966: hr_utility.set_location('l_due_date '||l_due_date,11);
9967: hr_utility.set_location('l_strt_dt'||l_strt_dt,11);
9968: end if;
9969:
9970: IF (l_due_date >= l_strt_dt) AND (l_due_date <= LAST_DAY(l_pen_rec.rt_end_dt)) THEN
9963: END IF;
9964:
9965: if g_debug then
9966: hr_utility.set_location('l_due_date '||l_due_date,11);
9967: hr_utility.set_location('l_strt_dt'||l_strt_dt,11);
9968: end if;
9969:
9970: IF (l_due_date >= l_strt_dt) AND (l_due_date <= LAST_DAY(l_pen_rec.rt_end_dt)) THEN
9971:
10032: END IF;
10033:
10034: -- Bug 3097501: End
10035: --
10036: -- hr_utility.set_location('l_due_date' || l_due_date,10);
10037: --
10038: IF l_late_pymt_evt THEN
10039: --
10040: IF l_lf_evt_ocrd_dt >= l_rec.min_ass_effective_start_date THEN
10074: --
10075: END IF; -- late payment
10076: --
10077: if g_debug then
10078: hr_utility.set_location('Leaving ' || l_package,10);
10079: end if;
10080: --
10081: END determine_cobra_payments;
10082: --
10285: l_poe_rec c_get_max_poe%ROWTYPE;
10286: l_cbr_quald_bnf c_cbr_quald_bnf%ROWTYPE;
10287: BEGIN
10288: --
10289: -- hr_utility.set_location('Entering ' || l_package,10);
10290: -- hr_utility.set_location('p_pgm_id ' || p_pgm_id,10);
10291: -- hr_utility.set_location('p_ptip_id ' || p_ptip_id,10);
10292: --
10293: --
10286: l_cbr_quald_bnf c_cbr_quald_bnf%ROWTYPE;
10287: BEGIN
10288: --
10289: -- hr_utility.set_location('Entering ' || l_package,10);
10290: -- hr_utility.set_location('p_pgm_id ' || p_pgm_id,10);
10291: -- hr_utility.set_location('p_ptip_id ' || p_ptip_id,10);
10292: --
10293: --
10294: l_effective_date := NVL(p_lf_evt_ocrd_dt
10287: BEGIN
10288: --
10289: -- hr_utility.set_location('Entering ' || l_package,10);
10290: -- hr_utility.set_location('p_pgm_id ' || p_pgm_id,10);
10291: -- hr_utility.set_location('p_ptip_id ' || p_ptip_id,10);
10292: --
10293: --
10294: l_effective_date := NVL(p_lf_evt_ocrd_dt
10295: ,p_effective_date);
10312: CLOSE c_get_cbr_elig_dates;
10313: --
10314: IF p_derivable_factors IN ('ALL', 'PBEV', 'BEV', 'BEVASC') THEN
10315: --
10316: -- hr_utility.set_location('found ' || l_cqb_rec.cbr_elig_perd_end_dt,10);
10317: -- hr_utility.set_location('ALL PBEV BEV BEVASC' ||l_cqb_rec.cbr_elig_perd_end_dt,10);
10318: --
10319: IF l_effective_date >= l_cqb_rec.cbr_elig_perd_end_dt THEN
10320: --
10313: --
10314: IF p_derivable_factors IN ('ALL', 'PBEV', 'BEV', 'BEVASC') THEN
10315: --
10316: -- hr_utility.set_location('found ' || l_cqb_rec.cbr_elig_perd_end_dt,10);
10317: -- hr_utility.set_location('ALL PBEV BEV BEVASC' ||l_cqb_rec.cbr_elig_perd_end_dt,10);
10318: --
10319: IF l_effective_date >= l_cqb_rec.cbr_elig_perd_end_dt THEN
10320: --
10321: -- hr_utility.set_location('Found ' || l_cqb_rec.cbr_elig_perd_end_dt,10);
10317: -- hr_utility.set_location('ALL PBEV BEV BEVASC' ||l_cqb_rec.cbr_elig_perd_end_dt,10);
10318: --
10319: IF l_effective_date >= l_cqb_rec.cbr_elig_perd_end_dt THEN
10320: --
10321: -- hr_utility.set_location('Found ' || l_cqb_rec.cbr_elig_perd_end_dt,10);
10322: --
10323: -- WWBUG# 1166172 - Change the life event occurred date to one
10324: -- day after the date reached.
10325: --
10349: IF (
10350: l_cqb_rec.cbr_inelg_rsn_cd IS NULL
10351: OR l_cqb_rec.cbr_inelg_rsn_cd = 'POE') THEN
10352: --
10353: -- hr_utility.set_location('POE ' || l_der_rec.drvdpoeelg_id,10);
10354: IF no_life_event(p_lf_evt_ocrd_dt=> l_lf_evt_ocrd_dt
10355: ,p_person_id => p_person_id
10356: ,p_ler_id => l_der_rec.drvdpoeelg_id
10357: ,p_effective_date => p_effective_date)
10375: ,p_ler_id => l_der_rec.drvdnlp_id
10376: ,p_effective_date => p_effective_date)
10377: THEN
10378: --
10379: -- hr_utility.set_location('NLP ' || l_der_rec.drvdnlp_id,10);
10380: --
10381: create_ptl_ler
10382: (p_calculate_only_mode => p_calculate_only_mode
10383: ,p_ler_id => l_der_rec.drvdnlp_id
10391: --
10392: -- Voluntary End of Coverage.
10393: --
10394: ELSIF l_cqb_rec.cbr_inelg_rsn_cd = 'VEC' THEN
10395: -- hr_utility.set_location('VEC ' || l_der_rec.drvdvec_id,10);
10396: --
10397: -- Check if a life event exist on the same day.
10398: --
10399: l_ler_id := l_der_rec.drvdvec_id;
10435: --
10436: OPEN c_get_init_evt(l_cqb_rec.cbr_quald_bnf_id);
10437: FETCH c_get_init_evt INTO l_exists;
10438: IF c_get_init_evt%NOTFOUND THEN
10439: -- hr_utility.set_location('pgm_id ' || l_cqb_rec.pgm_id,10);
10440: -- hr_utility.set_location('ptip_id ' || l_cqb_rec.ptip_id,10);
10441: --
10442: -- Get the most recent enrollment period.
10443: --
10436: OPEN c_get_init_evt(l_cqb_rec.cbr_quald_bnf_id);
10437: FETCH c_get_init_evt INTO l_exists;
10438: IF c_get_init_evt%NOTFOUND THEN
10439: -- hr_utility.set_location('pgm_id ' || l_cqb_rec.pgm_id,10);
10440: -- hr_utility.set_location('ptip_id ' || l_cqb_rec.ptip_id,10);
10441: --
10442: -- Get the most recent enrollment period.
10443: --
10444: OPEN c_get_enrt_perd_dates(l_cqb_rec.pgm_id);
10443: --
10444: OPEN c_get_enrt_perd_dates(l_cqb_rec.pgm_id);
10445: FETCH c_get_enrt_perd_dates INTO l_pel_rec;
10446: IF c_get_enrt_perd_dates%FOUND THEN
10447: -- hr_utility.set_location('found enrt perd ' ||l_pel_rec.enrt_perd_end_dt,10);
10448: CLOSE c_get_enrt_perd_dates;
10449: --
10450: -- Get the number days from the start of the enrollment
10451: -- period before the person is found ineligible.
10466: -- If running this process ahead of time, the ineligible to
10467: -- event cannot be triggered. Check if the enrollment period
10468: -- has passed using the system date.
10469: --
10470: -- hr_utility.set_location('l_end_elig_date ' || l_end_elig_date,10);
10471: --
10472: -- hr_utility.set_location('effective_date ' ||l_effective_date,10);
10473: IF LEAST(SYSDATE
10474: ,l_effective_date) > l_end_elig_date THEN
10468: -- has passed using the system date.
10469: --
10470: -- hr_utility.set_location('l_end_elig_date ' || l_end_elig_date,10);
10471: --
10472: -- hr_utility.set_location('effective_date ' ||l_effective_date,10);
10473: IF LEAST(SYSDATE
10474: ,l_effective_date) > l_end_elig_date THEN
10475: IF (
10476: ben_cobra_requirements.chk_enrld_or_cvrd(p_pgm_id=> l_cqb_rec.pgm_id
10484: -- If enrollment period has passed,
10485: -- created a loss of eligibility
10486: -- potential per in ler.
10487: --
10488: -- hr_utility.set_location('trigger inelig event ',10);
10489: --
10490: -- Set the COBRA qualified beneficiary flag to 'N' as the
10491: -- person is no longer a COBRA qualified beneficiary.
10492: --
10669: END IF; -- p_derivable_factors in 'ALL' etc.. .
10670: --
10671: --
10672: ELSE -- cobra qualified beneficiary not found.
10673: -- hr_utility.set_location('not found ',10);
10674: CLOSE c_get_cbr_elig_dates;
10675: END IF;
10676:
10677: -- Bug 3097501
10702: END IF;
10703: END IF;
10704:
10705: --
10706: -- hr_utility.set_location('Leaving ' || l_package,10);
10707: --
10708: END determine_cobra_eligibility;
10709: --
10710: PROCEDURE derive_rates_and_factors
10768: --END FONM
10769: --
10770: BEGIN
10771: --
10772: g_debug := hr_utility.debug_enabled;
10773: if g_debug then
10774: hr_utility.set_location('Entering ' || l_package,10);
10775: end if;
10776: --FONM This will be implemented as a parameter.
10770: BEGIN
10771: --
10772: g_debug := hr_utility.debug_enabled;
10773: if g_debug then
10774: hr_utility.set_location('Entering ' || l_package,10);
10775: end if;
10776: --FONM This will be implemented as a parameter.
10777: --only for testing purpose we are using the global
10778: --variable and needs to be removed.
10786: end if;
10787: --
10788: --END FONM
10789: --
10790: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10791: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10792: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10793: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10794: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10787: --
10788: --END FONM
10789: --
10790: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10791: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10792: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10793: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10794: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10795: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10788: --END FONM
10789: --
10790: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10791: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10792: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10793: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10794: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10795: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10796:
10789: --
10790: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10791: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10792: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10793: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10794: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10795: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10796:
10797: -- Check if person is still eligible to participate in
10790: hr_utility.set_location(' drpar main p_pl_id '||p_pl_id, 44);
10791: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10792: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10793: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10794: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10795: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10796:
10797: -- Check if person is still eligible to participate in
10798: -- the COBRA program. He/she may have reached the maximum
10791: --hr_utility.set_location(' drpar main p_oipl_id '||p_oipl_id,44);
10792: hr_utility.set_location(' drpar main p_plip_id '||p_plip_id,44);
10793: --hr_utility.set_location(' drpar main p_ptip_id '||p_ptip_id,44);
10794: --hr_utility.set_location(' drpar main p_pgm_id '||p_pgm_id,44);
10795: --hr_utility.set_location(' p_derivable_factors '||p_derivable_factors,44);
10796:
10797: -- Check if person is still eligible to participate in
10798: -- the COBRA program. He/she may have reached the maximum
10799: -- period of enrollment or decided not to enroll anymore in
10803: --
10804: IF ( p_pgm_id IS NOT NULL
10805: OR p_ptip_id IS NOT NULL)
10806: AND (p_derivable_factors <> 'ASC') THEN
10807: --hr_utility.set_location(' COBRA logic ' || l_package,10);
10808: --
10809: IF p_pgm_id IS NULL THEN
10810: --
10811: ben_comp_object.get_object(p_ptip_id=> p_ptip_id
10834: );
10835: --
10836: END IF;
10837: --
10838: --hr_utility.set_location(' Dn COBRA logic ' || l_package,10);
10839: END IF;
10840: --
10841: -- Check if we can drop out early. Do not need to calculate oipl
10842: -- and oiplip values for temporal mode
10847: AND p_comp_obj_tree_row.oiplip_flag_bit_val = 0)
10848: OR (p_derivable_factors IN ('P', 'PBEV', 'BEV')))
10849: AND NVL(p_mode,'Z') = 'T' THEN
10850: --
10851: hr_utility.set_location(' Dn RETURN temporal mode ' ,45);
10852: RETURN;
10853: --
10854: -- Need to calculate oipl and oiplip values for any other mode
10855: -- before we drop out
10860: AND p_comp_obj_tree_row.oiplip_flag_bit_val = 0)
10861: OR (p_derivable_factors IN ('P', 'PBEV', 'BEV')))
10862: AND NVL(p_mode
10863: ,'Z') <> 'T' THEN
10864: hr_utility.set_location(' CDS Not Temp ' || l_package,10);
10865: --
10866: -- exit process as no derivable factors exist!
10867: -- or no need to check these factors.
10868: --
10882: ,p_comp_rec => p_comp_rec
10883: ,p_oiplip_rec => p_oiplip_rec
10884: ,p_effective_date => NVL(g_fonm_cvg_strt_dt, p_effective_date)
10885: );
10886: hr_utility.set_location(' Dn CDS Not Temp ' || l_package,10);
10887: --
10888: RETURN;
10889: --
10890: ELSE
10888: RETURN;
10889: --
10890: ELSE
10891: --
10892: hr_utility.set_location(' CDS Other ' || l_package,10);
10893: cache_data_structures(p_comp_obj_tree_row=> p_comp_obj_tree_row
10894: ,p_empasg_row => p_empasg_row
10895: ,p_benasg_row => p_benasg_row
10896: ,p_pil_row => p_pil_row
10906: ,p_effective_date => NVL(g_fonm_cvg_strt_dt,p_effective_date)
10907: );
10908: --
10909: END IF;
10910: hr_utility.set_location('Factors defined ' || l_package,10);
10911: --
10912: -- Get context row information from comp object caches
10913: --
10914: --hr_utility.set_location(' p_comp_obj_tree_row.oipl_id '||p_comp_obj_tree_row.oipl_id ,55);
10910: hr_utility.set_location('Factors defined ' || l_package,10);
10911: --
10912: -- Get context row information from comp object caches
10913: --
10914: --hr_utility.set_location(' p_comp_obj_tree_row.oipl_id '||p_comp_obj_tree_row.oipl_id ,55);
10915: IF p_comp_obj_tree_row.oipl_id IS NOT NULL THEN
10916: --
10917: ben_cobj_cache.get_oipl_dets(p_business_group_id=> p_business_group_id
10918: ,p_effective_date => g_fonm_cvg_strt_dt -- FONM p_effective_date
10920: ,p_inst_row => l_curroipl_row);
10921: --
10922: -- Check oiplip stuff
10923: --
10924: --hr_utility.set_location(' p_comp_obj_tree_row.oiplip_id '||p_comp_obj_tree_row.oiplip_id ,55);
10925: --
10926: IF p_comp_obj_tree_row.oiplip_id IS NOT NULL THEN
10927: --
10928: ben_cobj_cache.get_oiplip_dets(p_business_group_id=> p_business_group_id
10931: ,p_inst_row => l_curroiplip_row);
10932: --
10933: END IF;
10934: --
10935: --hr_utility.set_location('Dn OIPL details ' || l_package,10);
10936: END IF;
10937: --
10938: -- If we are dealing with an oipl that has an oiplip then the count should
10939: -- be two since we will be looping once for oipl and once for oiplip.
10943: l_loop_count := 2;
10944: --
10945: END IF;
10946: --
10947: --hr_utility.set_location(' l_loop_count '||l_loop_count ,55);
10948: --
10949: FOR l_count IN 1 .. l_loop_count LOOP
10950: --
10951: IF l_count = 1 THEN
10965: --
10966: if nvl(g_prev_pgm_id, -1) <> nvl(p_pgm_id
10967: ,p_comp_obj_tree_row.par_pgm_id) then
10968: --
10969: hr_utility.set_location('GSP pgm id = ' || p_pgm_id, 9876);
10970: hr_utility.set_location('GSP pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
10971: g_prev_pgm_id := nvl(p_pgm_id
10972: ,p_comp_obj_tree_row.par_pgm_id);
10973: --
10966: if nvl(g_prev_pgm_id, -1) <> nvl(p_pgm_id
10967: ,p_comp_obj_tree_row.par_pgm_id) then
10968: --
10969: hr_utility.set_location('GSP pgm id = ' || p_pgm_id, 9876);
10970: hr_utility.set_location('GSP pgm id = ' ||p_comp_obj_tree_row.par_pgm_id, 9876);
10971: g_prev_pgm_id := nvl(p_pgm_id
10972: ,p_comp_obj_tree_row.par_pgm_id);
10973: --
10974: g_pgm_typ_cd := null;
10984: close c_get_gsp_ler;
10985: --
10986: end if;
10987: --
10988: hr_utility.set_location('GSP ler_name = ' || g_gsp_ler_name, 9876);
10989: --
10990: -- END : GADE/STEP : Code to support grade/step le
10991: --
10992: -- Get LOS value
11014: );
11015: --
11016: -- Get Age value
11017: --
11018: hr_utility.set_location('pl_id '||p_pl_id , 55);
11019: hr_utility.set_location('Before call to calculate_age p_plip_id '||p_plip_id,55);
11020: calculate_age
11021: (p_calculate_only_mode => p_calculate_only_mode
11022: ,p_comp_obj_tree_row => p_comp_obj_tree_row
11015: --
11016: -- Get Age value
11017: --
11018: hr_utility.set_location('pl_id '||p_pl_id , 55);
11019: hr_utility.set_location('Before call to calculate_age p_plip_id '||p_plip_id,55);
11020: calculate_age
11021: (p_calculate_only_mode => p_calculate_only_mode
11022: ,p_comp_obj_tree_row => p_comp_obj_tree_row
11023: ,p_per_row => p_per_row
11038: ,p_comp_rec => l_comp_rec
11039: ,p_effective_date => p_effective_date
11040: ,p_lf_evt_ocrd_dt => p_lf_evt_ocrd_dt
11041: );
11042: --hr_utility.set_location('After call to calculate_age ' ,55);
11043: --
11044: -- Get hours worked
11045: --
11046: calculate_hours_worked
11142: --
11143: IF l_count = 1 THEN
11144: --
11145: p_comp_rec := l_comp_rec;
11146: --hr_utility.set_location('Out p_comp_Rec'||p_comp_rec.cmbn_age_n_los_val,10);
11147: --
11148: ELSIF l_count = 2 THEN
11149: --
11150: p_oiplip_rec := l_comp_rec;
11152: END IF;
11153: --
11154: END LOOP;
11155: --
11156: --hr_utility.set_location('Leaving ' || l_package,10);
11157: --
11158: END derive_rates_and_factors;
11159: --
11160: --- this procedure set the context_id to tax_unit_id
11185:
11186: BEGIN
11187: --
11188: if g_debug then
11189: hr_utility.set_location('Entering ' || l_package,10);
11190: end if;
11191: open c_tax ;
11192: fetch c_tax into l_tax_unit_id ;
11193: close c_tax ;
11192: fetch c_tax into l_tax_unit_id ;
11193: close c_tax ;
11194:
11195: if g_debug then
11196: hr_utility.set_location('tax_unit_id' || l_tax_unit_id , 10);
11197: end if;
11198: if l_tax_unit_id is not null then
11199: pay_balance_pkg.set_context ('TAX_UNIT_ID', l_tax_unit_id );
11200: end if ;
11199: pay_balance_pkg.set_context ('TAX_UNIT_ID', l_tax_unit_id );
11200: end if ;
11201:
11202: if g_debug then
11203: hr_utility.set_location('Leaving ' || l_package,10);
11204: end if;
11205: end set_taxunit_context ;
11206: --
11207: END ben_derive_part_and_rate_facts;