[Home] [Help]
926: grade/step processing.
927: 14-Feb-2003 mmudigon 115.315 CWB itemization: bug fix 2793785
928: modified cursor c5 in check_business
929: 14-Feb-2003 rpillay 115.316 HRMS Debug Performance changes to
930: hr_utility.set_location calls
931: 24-Feb-2003 mmudigon 115.317 CWB itemization: Bug fix 2801671
932: Make ineligible for plan if not elig
933: for any options
934: 07-Mar-2003 nhunur 115.318 Modified code to handle error messages
1156: g_rebuild_pl_id number := null;
1157: g_rebuild_lf_evt_ocrd_dt date := null;
1158: g_rebuild_business_group_id number := null;
1159: --
1160: g_debug boolean := hr_utility.debug_enabled;
1161: --
1162: -------------------------------------------------------------------------------
1163: --Bug 12732878 ud changes start
1164: --Added procedure check_for_first_eligible to check whether the comp objects present in the global variables
1272: l_effective_end_date date;
1273:
1274: begin
1275: l_proc := g_package||'.check_for_first_eligible';
1276: hr_utility.set_location('uxx entering '||l_proc,10);
1277: hr_utility.set_location('uxx p_per_in_ler_id '||p_per_in_ler_id,10);
1278: hr_utility.set_location('uxx p_person_id '||p_person_id,10);
1279: hr_utility.set_location('uxx p_effective_date '||p_effective_date,10);
1280:
1273:
1274: begin
1275: l_proc := g_package||'.check_for_first_eligible';
1276: hr_utility.set_location('uxx entering '||l_proc,10);
1277: hr_utility.set_location('uxx p_per_in_ler_id '||p_per_in_ler_id,10);
1278: hr_utility.set_location('uxx p_person_id '||p_person_id,10);
1279: hr_utility.set_location('uxx p_effective_date '||p_effective_date,10);
1280:
1281: l_first_num := nvl(ben_determine_eligibility2.g_cache_first_elig_object.first,0);
1274: begin
1275: l_proc := g_package||'.check_for_first_eligible';
1276: hr_utility.set_location('uxx entering '||l_proc,10);
1277: hr_utility.set_location('uxx p_per_in_ler_id '||p_per_in_ler_id,10);
1278: hr_utility.set_location('uxx p_person_id '||p_person_id,10);
1279: hr_utility.set_location('uxx p_effective_date '||p_effective_date,10);
1280:
1281: l_first_num := nvl(ben_determine_eligibility2.g_cache_first_elig_object.first,0);
1282: l_max_num := nvl(ben_determine_eligibility2.g_cache_first_elig_object.last,0);
1275: l_proc := g_package||'.check_for_first_eligible';
1276: hr_utility.set_location('uxx entering '||l_proc,10);
1277: hr_utility.set_location('uxx p_per_in_ler_id '||p_per_in_ler_id,10);
1278: hr_utility.set_location('uxx p_person_id '||p_person_id,10);
1279: hr_utility.set_location('uxx p_effective_date '||p_effective_date,10);
1280:
1281: l_first_num := nvl(ben_determine_eligibility2.g_cache_first_elig_object.first,0);
1282: l_max_num := nvl(ben_determine_eligibility2.g_cache_first_elig_object.last,0);
1283: l_first_num1 := nvl(ben_determine_eligibility2.g_cache_first_inelig_object.first,0);
1295: if l_first_num <> 0 then
1296:
1297: l_per_in_ler_id := ben_determine_eligibility2.g_cache_first_elig_object(l_first_num).per_in_ler_id;
1298:
1299: hr_utility.set_location('uxx l_per_in_ler_id '||l_per_in_ler_id,10);
1300: hr_utility.set_location('uxx l_first_num '||l_first_num,10);
1301: hr_utility.set_location('uxx l_max_num '||l_max_num,10);
1302:
1303: if p_per_in_ler_id = l_per_in_ler_id --a
1296:
1297: l_per_in_ler_id := ben_determine_eligibility2.g_cache_first_elig_object(l_first_num).per_in_ler_id;
1298:
1299: hr_utility.set_location('uxx l_per_in_ler_id '||l_per_in_ler_id,10);
1300: hr_utility.set_location('uxx l_first_num '||l_first_num,10);
1301: hr_utility.set_location('uxx l_max_num '||l_max_num,10);
1302:
1303: if p_per_in_ler_id = l_per_in_ler_id --a
1304: then
1297: l_per_in_ler_id := ben_determine_eligibility2.g_cache_first_elig_object(l_first_num).per_in_ler_id;
1298:
1299: hr_utility.set_location('uxx l_per_in_ler_id '||l_per_in_ler_id,10);
1300: hr_utility.set_location('uxx l_first_num '||l_first_num,10);
1301: hr_utility.set_location('uxx l_max_num '||l_max_num,10);
1302:
1303: if p_per_in_ler_id = l_per_in_ler_id --a
1304: then
1305: open c_prev_pil(l_per_in_ler_id);
1305: open c_prev_pil(l_per_in_ler_id);
1306: fetch c_prev_pil into l_prev_pil_id;
1307: close c_prev_pil;
1308:
1309: hr_utility.set_location('l_prev_pil_id '||l_prev_pil_id,10);
1310:
1311: for i in l_first_num..l_max_num loop --b
1312:
1313: hr_utility.set_location('uxx Start loop',10);
1309: hr_utility.set_location('l_prev_pil_id '||l_prev_pil_id,10);
1310:
1311: for i in l_first_num..l_max_num loop --b
1312:
1313: hr_utility.set_location('uxx Start loop',10);
1314: l_elig_per_id :=ben_determine_eligibility2.g_cache_first_elig_object(i).elig_per_id;
1315: hr_utility.set_location('uxx l_elig_per_id '||l_elig_per_id,10);
1316:
1317: open c_elig_rec(l_elig_per_id,l_per_in_ler_id);
1311: for i in l_first_num..l_max_num loop --b
1312:
1313: hr_utility.set_location('uxx Start loop',10);
1314: l_elig_per_id :=ben_determine_eligibility2.g_cache_first_elig_object(i).elig_per_id;
1315: hr_utility.set_location('uxx l_elig_per_id '||l_elig_per_id,10);
1316:
1317: open c_elig_rec(l_elig_per_id,l_per_in_ler_id);
1318: fetch c_elig_rec into l_elig_per_rec;
1319: close c_elig_rec;
1326: ,p_effective_date);
1327: fetch c_prev_elig_rec into l_fut_elig_per_rec;
1328: close c_prev_elig_rec;
1329:
1330: hr_utility.set_location('uxx l_fut_elig_per_rec.elig_per_id '||l_fut_elig_per_rec.elig_per_id,10);
1331:
1332: if(l_fut_elig_per_rec.elig_per_id is not null) then --c
1333:
1334: open c_prev_elig_opt_rec(l_fut_elig_per_rec.elig_per_id,l_prev_pil_id);
1334: open c_prev_elig_opt_rec(l_fut_elig_per_rec.elig_per_id,l_prev_pil_id);
1335: loop
1336: fetch c_prev_elig_opt_rec into l_fut_elig_per_opt_rec;
1337: exit when c_prev_elig_opt_rec%notfound;
1338: hr_utility.set_location('uxx l_fut_elig_per_opt_rec.elig_per_opt_id '||l_fut_elig_per_opt_rec.elig_per_opt_id,10);
1339:
1340: if (l_fut_elig_per_opt_rec.elig_per_opt_id is not null) then
1341:
1342: ben_determine_eligibility3.save_to_restore
1347: ,p_effective_date => l_fut_elig_per_opt_rec.effective_start_date
1348: );
1349: delete from ben_elig_per_opt_f
1350: where elig_per_opt_id = l_fut_elig_per_opt_rec.elig_per_opt_id;
1351: hr_utility.set_location('option was deleted',10);
1352:
1353: end if;
1354: end loop;
1355: close c_prev_elig_opt_rec;
1363: );
1364:
1365: delete from ben_elig_per_f
1366: where elig_per_id = l_fut_elig_per_rec.elig_per_id;
1367: hr_utility.set_location('elig_per_id record deleted',10);
1368:
1369: end if; --c
1370: hr_utility.set_location('end loop',10);
1371: end loop; --b
1366: where elig_per_id = l_fut_elig_per_rec.elig_per_id;
1367: hr_utility.set_location('elig_per_id record deleted',10);
1368:
1369: end if; --c
1370: hr_utility.set_location('end loop',10);
1371: end loop; --b
1372: hr_utility.set_location('out loop',10);
1373: end if; --a
1374: end if;
1368:
1369: end if; --c
1370: hr_utility.set_location('end loop',10);
1371: end loop; --b
1372: hr_utility.set_location('out loop',10);
1373: end if; --a
1374: end if;
1375: /* This if handles
1376: case 1: track inelig flag 'N'
1388: */
1389:
1390: if l_first_num1 <> 0 then
1391:
1392: hr_utility.set_location('uxx l_first_num1 '||l_first_num1,10);
1393: hr_utility.set_location('uxx l_max_num1 '||l_max_num1,10);
1394:
1395: open c_prev_pil(p_per_in_ler_id);
1396: fetch c_prev_pil into l_prev_pil_id;
1389:
1390: if l_first_num1 <> 0 then
1391:
1392: hr_utility.set_location('uxx l_first_num1 '||l_first_num1,10);
1393: hr_utility.set_location('uxx l_max_num1 '||l_max_num1,10);
1394:
1395: open c_prev_pil(p_per_in_ler_id);
1396: fetch c_prev_pil into l_prev_pil_id;
1397: close c_prev_pil;
1395: open c_prev_pil(p_per_in_ler_id);
1396: fetch c_prev_pil into l_prev_pil_id;
1397: close c_prev_pil;
1398:
1399: hr_utility.set_location('l_prev_pil_id '||l_prev_pil_id,10);
1400:
1401: for i in l_first_num1..l_max_num1 loop
1402: open c_prev_elig_rec(l_prev_pil_id
1403: ,ben_determine_eligibility2.g_cache_first_inelig_object(i).pgm_id
1407: ,p_effective_date);
1408: fetch c_prev_elig_rec into l_fut_elig_per_rec;
1409: close c_prev_elig_rec;
1410:
1411: hr_utility.set_location('uxx l_fut_elig_per_rec.elig_per_id '||l_fut_elig_per_rec.elig_per_id,10);
1412:
1413: if(l_fut_elig_per_rec.elig_per_id is not null) then --c
1414:
1415: open c_get_end_date_version(l_fut_elig_per_rec.elig_per_id,p_effective_date);
1415: open c_get_end_date_version(l_fut_elig_per_rec.elig_per_id,p_effective_date);
1416: fetch c_get_end_date_version into l_get_end_date_version;
1417: close c_get_end_date_version;
1418:
1419: hr_utility.set_location('uxx effective_end_date'||l_get_end_date_version.effective_end_date,10);
1420: hr_utility.set_location('uxx object_version'||l_get_end_date_version.object_version_number,10);
1421:
1422: if (l_get_end_date_version.effective_end_date is not null) and
1423: (l_get_end_date_version.effective_end_date <> hr_api.g_eot) then
1416: fetch c_get_end_date_version into l_get_end_date_version;
1417: close c_get_end_date_version;
1418:
1419: hr_utility.set_location('uxx effective_end_date'||l_get_end_date_version.effective_end_date,10);
1420: hr_utility.set_location('uxx object_version'||l_get_end_date_version.object_version_number,10);
1421:
1422: if (l_get_end_date_version.effective_end_date is not null) and
1423: (l_get_end_date_version.effective_end_date <> hr_api.g_eot) then
1424:
1425: open c_get_option(l_fut_elig_per_rec.elig_per_id,p_effective_date);
1426: loop
1427: fetch c_get_option into l_get_option;
1428: exit when c_get_option%notfound;
1429: hr_utility.set_location('uxx l_get_option.elig_per_opt_id'||l_get_option.elig_per_opt_id,10);
1430: if l_get_option.elig_per_opt_id is not null then
1431:
1432: open c_get_end_date_version_opt(l_get_option.elig_per_opt_id,p_effective_date);
1433: fetch c_get_end_date_version_opt into l_get_end_date_version_opt;
1432: open c_get_end_date_version_opt(l_get_option.elig_per_opt_id,p_effective_date);
1433: fetch c_get_end_date_version_opt into l_get_end_date_version_opt;
1434: close c_get_end_date_version_opt;
1435:
1436: hr_utility.set_location('uxx2 opt effective_end_date'||l_get_end_date_version_opt.effective_end_date,20);
1437: hr_utility.set_location('uxx2 opt object version'||l_get_end_date_version_opt.object_version_number,20);
1438: if (l_get_end_date_version_opt.effective_end_date is not null) and
1439: (l_get_end_date_version_opt.effective_end_date <> hr_api.g_eot) then
1440:
1433: fetch c_get_end_date_version_opt into l_get_end_date_version_opt;
1434: close c_get_end_date_version_opt;
1435:
1436: hr_utility.set_location('uxx2 opt effective_end_date'||l_get_end_date_version_opt.effective_end_date,20);
1437: hr_utility.set_location('uxx2 opt object version'||l_get_end_date_version_opt.object_version_number,20);
1438: if (l_get_end_date_version_opt.effective_end_date is not null) and
1439: (l_get_end_date_version_opt.effective_end_date <> hr_api.g_eot) then
1440:
1441: open c_get_elig_per_opt_rec(l_get_option.elig_per_opt_id
1442: ,l_prev_pil_id
1443: ,p_effective_date);
1444: fetch c_get_elig_per_opt_rec into l_opt_rec;
1445: close c_get_elig_per_opt_rec;
1446: hr_utility.set_location('l_opt_rec.elig_per_opt_id '||l_opt_rec.elig_per_opt_id,10);
1447: hr_utility.set_location('l_opt_rec.effective_start_date '||l_opt_rec.effective_start_date,10);
1448: ben_determine_eligibility3.save_to_restore
1449: (p_current_per_in_ler_id => p_per_in_ler_id
1450: ,p_per_in_ler_id => l_prev_pil_id
1443: ,p_effective_date);
1444: fetch c_get_elig_per_opt_rec into l_opt_rec;
1445: close c_get_elig_per_opt_rec;
1446: hr_utility.set_location('l_opt_rec.elig_per_opt_id '||l_opt_rec.elig_per_opt_id,10);
1447: hr_utility.set_location('l_opt_rec.effective_start_date '||l_opt_rec.effective_start_date,10);
1448: ben_determine_eligibility3.save_to_restore
1449: (p_current_per_in_ler_id => p_per_in_ler_id
1450: ,p_per_in_ler_id => l_prev_pil_id
1451: ,p_elig_per_id => NUll
1465: end if;
1466: end if;
1467: end loop;
1468: close c_get_option;
1469: hr_utility.set_location('uxx before save to resote',10);
1470: ben_determine_eligibility3.save_to_restore
1471: (p_current_per_in_ler_id => p_per_in_ler_id
1472: ,p_per_in_ler_id => l_prev_pil_id
1473: ,p_elig_per_id => l_fut_elig_per_rec.elig_per_id
1489: open c_prev_elig_opt_rec(l_fut_elig_per_rec.elig_per_id,l_prev_pil_id);
1490: loop
1491: fetch c_prev_elig_opt_rec into l_fut_elig_per_opt_rec;
1492: exit when c_prev_elig_opt_rec%notfound;
1493: hr_utility.set_location('uxx l_fut_elig_per_opt_rec.elig_per_opt_id '||l_fut_elig_per_opt_rec.elig_per_opt_id,10);
1494:
1495: if (l_fut_elig_per_opt_rec.elig_per_opt_id is not null) then
1496:
1497: ben_determine_eligibility3.save_to_restore
1503: );
1504:
1505: delete from ben_elig_per_opt_f
1506: where elig_per_opt_id = l_fut_elig_per_opt_rec.elig_per_opt_id;
1507: hr_utility.set_location('option was deleted',10);
1508:
1509: end if;
1510: end loop;
1511: close c_prev_elig_opt_rec;
1519: );
1520:
1521: delete from ben_elig_per_f
1522: where elig_per_id = l_fut_elig_per_rec.elig_per_id;
1523: hr_utility.set_location('elig_per_id record deleted',10);
1524: end if;
1525: end if; --c
1526: end loop;
1527: end if;
1542:
1543: is
1544: --
1545: begin
1546: g_debug := hr_utility.debug_enabled;
1547: --
1548: -- Set up benefits environment
1549: --
1550: ben_env_object.init
1602: begin
1603: --
1604: l_proc := g_package || '.get_grade_step_placement';
1605: --
1606: hr_utility.set_location('Entering : ' || l_proc, 10);
1607: --
1608: -- Get Grade Ladder (PGM_ID) and Grade (PLIP_ID) placement
1609: pqh_gsp_post_process.get_persons_gl_and_grade
1610: (p_person_id => p_person_id,
1630: p_effective_date => p_effective_date);
1631: --
1632: end if;
1633: --
1634: hr_utility.set_location('Leaving : ' || l_proc, 20);
1635: --
1636: exception
1637: --
1638: when others
1950: --
1951: begin
1952: --
1953: if g_debug then
1954: hr_utility.set_location ('Entering '||l_package,10);
1955: end if;
1956: --
1957: -- This procedure checks validity of parameters that have been passed to the
1958: -- BENMNGLE process.
2046: end if;
2047: --
2048: close c1;
2049: if g_debug then
2050: hr_utility.set_location ('close c1: '||l_package,50);
2051: end if;
2052: --
2053: end if;
2054: --
2318: --
2319: -- p_mode not in L,S,C,U
2320: --
2321: if g_debug then
2322: hr_utility.set_location ('BEN_BENMNGLE_MD '||l_package,50);
2323: end if;
2324: --
2325: if hr_api.not_exists_in_hr_lookups
2326: (p_lookup_type => 'BEN_BENMNGLE_MD',
2391: -- end 2940151
2392:
2393: --
2394: if g_debug then
2395: hr_utility.set_location ('Leaving '||l_package,10);
2396: end if;
2397: --
2398: end check_business_rules;
2399: --
2565: --
2566: p_continue_loop := false;
2567: if g_debug then
2568: l_proc := g_package ||'.update_elig_per_rows';
2569: hr_utility.set_location('Entering:' || l_proc, 10);
2570: end if;
2571: --
2572: if l_envpgm_id is not null then
2573: --
2656: end if;
2657: --
2658: if l_oipl_id is not null then
2659: --
2660: hr_utility.set_location('OIPL ID-update'||l_oipl_id,111);
2661: l_oipl_rec := ben_cobj_cache.g_oipl_currow;
2662: if l_envpgm_id is not null then
2663: --
2664: ben_pep_cache.get_pilepo_dets
2673: --
2674: --
2675: if l_epo_row.elig_per_opt_id is null then
2676: p_continue_loop := false;
2677: hr_utility.set_location('elig per id is null' ||l_oipl_id,111);
2678: return;
2679: else
2680: l_elig_per_opt_id := l_epo_row.elig_per_opt_id;
2681: l_object_version_number_opt := l_epo_row.object_version_number;
2689: ,c_pl_id => l_envpl_id
2690: ,c_opt_id => l_oipl_rec.opt_id
2691: );
2692: if g_debug then
2693: hr_utility.set_location('fetch c_prvoptelch ' || l_proc, 10);
2694: end if;
2695: fetch c_prev_opt_elig_check into l_prev_opt_elig_check;
2696: if c_prev_opt_elig_check%notfound then
2697: --
2720: l_pl_id is not null
2721: then
2722: --
2723: if g_debug then
2724: hr_utility.set_location(' before pilpep ',111);
2725: end if;
2726: ben_pep_cache.get_pilpep_dets
2727: (p_person_id => p_person_id
2728: ,p_business_group_id => p_business_group_id
2804: end if;
2805: --
2806: p_par_elig_state := l_par_elig_state;
2807: if g_debug then
2808: hr_utility.set_location('Leaving:' || l_proc, 10);
2809: end if;
2810: end;
2811: --
2812: procedure update_enrt_rt (p_per_in_ler_id number) is
2857:
2858: begin
2859: --
2860: if g_debug then
2861: hr_utility.set_location('Entering ',10);
2862: end if;
2863: /*
2864: bug#1936976 prtt_rt_val_id is already populated in benactbr - this process is redundant
2865: and if coverage is %rng multiple rate for same acty_base_rt is possible
2865: and if coverage is %rng multiple rate for same acty_base_rt is possible
2866: for i in c_enrt_rt loop
2867: --
2868: if g_debug then
2869: hr_utility.set_location('Entering ',10);
2870: end if;
2871: if ben_manage_life_events.g_enrt_rt_tbl.count = 0 then
2872: return;
2873: end if;
2874: --
2875: for j in ben_manage_life_events.g_enrt_rt_tbl.first .. ben_manage_life_events.g_enrt_rt_tbl.last loop
2876: --
2877: if g_debug then
2878: hr_utility.set_location('Entering ',10);
2879: end if;
2880: if i.acty_base_rt_id = ben_manage_life_events.g_enrt_rt_tbl(j).acty_base_rt_id then
2881: --
2882: if ben_manage_life_events.g_enrt_rt_tbl(j).prtt_rt_val_id is not null then
2901: there is no pil elctble choice record. Now, the cursors fetch the election made
2902: date from enrollment result table.
2903:
2904: if g_debug then
2905: hr_utility.set_location('Entering popl update',10);
2906: end if;
2907: if ben_manage_life_events.g_pil_popl_tbl.count = 0 then
2908: return;
2909: end if;
2946:
2947: end loop;
2948:
2949: if g_debug then
2950: hr_utility.set_location('Leaving update enrt',10);
2951: end if;
2952: end;
2953: -- GSP New Procedure for updating the epe for default/auto
2954: -- enrollments.
2971: l_epe c_epe%ROWTYPE;
2972: --
2973: begin
2974: --
2975: hr_utility.set_location('Entering '||l_package,10);
2976: --
2977: --Call the GSP Default procedure to get the epe and return code
2978: pqh_gsp_default.get_def_auto_code(
2979: p_per_in_ler_id => p_per_in_ler_id,
3021: end if;
3022: --
3023: end if;
3024: --
3025: hr_utility.set_location('Leaving '||l_package,20);
3026: --
3027: end gsp_proc_dflt_auten ;
3028: --
3029: -- Bug 1895846
3050: and per_in_ler_id = p_per_in_ler_id;
3051: */
3052: if g_debug then
3053: l_package := 'reset_elctbl_chc_inpng_flag' ;
3054: hr_utility.set_location('Entering '||l_package , 10);
3055: end if;
3056: --
3057: for l_epe in c_epe loop
3058: --
3065: --
3066: end loop ;
3067: --
3068: if g_debug then
3069: hr_utility.set_location('Leaving '||l_package , 10);
3070: end if;
3071: --
3072: end;
3073: --
3089: begin
3090: --
3091: if g_debug then
3092: l_package := 'delete_in_pndg_elig_dpnt' ;
3093: hr_utility.set_location('Entering '||l_package , 10);
3094: end if;
3095: for l_in_pndg_edg in c_in_pndg_edg loop
3096: --
3097: ben_elig_dpnt_api.delete_elig_dpnt
3102: --
3103: end loop;
3104: --
3105: if g_debug then
3106: hr_utility.set_location('Leaving '||l_package , 10);
3107: end if;
3108: end ;
3109: --
3110: procedure write_logfile(p_benefit_action_id in number,
3122: begin
3123: --
3124: if g_debug then
3125: l_package := g_package||'.write_logfile';
3126: hr_utility.set_location ('Entering '||l_package,10);
3127: end if;
3128: --
3129: benutils.write(p_text => benutils.g_banner_minus);
3130: benutils.write(p_text => 'Benefits Statistical Information');
3137: p_file => true);
3138: commit;
3139: --
3140: if g_debug then
3141: hr_utility.set_location ('Leaving '||l_package,10);
3142: end if;
3143: --
3144: exception
3145: --
3164: l_package varchar2(80);
3165: --
3166: begin
3167: --
3168: g_debug := hr_utility.debug_enabled;
3169: if g_debug then
3170: l_package := g_package||'.flush_global_structures';
3171: hr_utility.set_location ('Entering '||l_package,10);
3172: end if;
3167: --
3168: g_debug := hr_utility.debug_enabled;
3169: if g_debug then
3170: l_package := g_package||'.flush_global_structures';
3171: hr_utility.set_location ('Entering '||l_package,10);
3172: end if;
3173: --
3174: g_cache_person_process.delete;
3175: benutils.clear_down_cache;
3193: --
3194: ben_pil_object.clear_down_cache;
3195: --
3196: if g_debug then
3197: hr_utility.set_location ('Leaving '||l_package,10);
3198: end if;
3199: --
3200: end flush_global_structures;
3201: --
3216: begin
3217: --
3218: if g_debug then
3219: l_package := g_package||'.print_parameters';
3220: hr_utility.set_location ('Entering '||l_package,10);
3221: end if;
3222: open c_conc_pgm_name;
3223: fetch c_conc_pgm_name into l_source_program;
3224: close c_conc_pgm_name;
3338: p_true => 'None',
3339: p_false => l_rec.comp_selection_rl));
3340: --
3341: if g_debug then
3342: hr_utility.set_location ('Leaving '||l_package,10);
3343: end if;
3344: --
3345: end print_parameters;
3346: --
3476: l_ws_mgr_id number := null ;
3477: l_pil_elctbl_chc_popl_id number := null ;
3478: begin
3479: --
3480: g_debug := hr_utility.debug_enabled;
3481: if g_debug then
3482: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3483: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3484: end if;
3478: begin
3479: --
3480: g_debug := hr_utility.debug_enabled;
3481: if g_debug then
3482: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3483: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3484: end if;
3485: --
3486: open c_mgr (p_person_id,p_pl_id,p_lf_evt_ocrd_dt,p_ler_id,p_business_group_id);
3479: --
3480: g_debug := hr_utility.debug_enabled;
3481: if g_debug then
3482: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3483: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3484: end if;
3485: --
3486: open c_mgr (p_person_id,p_pl_id,p_lf_evt_ocrd_dt,p_ler_id,p_business_group_id);
3487: fetch c_mgr into l_ws_mgr_id,l_pil_elctbl_chc_popl_id ;
3487: fetch c_mgr into l_ws_mgr_id,l_pil_elctbl_chc_popl_id ;
3488: close c_mgr ;
3489: --
3490: if g_debug then
3491: hr_utility.set_location('MGR OUT l_pil_elctbl_chc_popl_id '||l_pil_elctbl_chc_popl_id,30);
3492: hr_utility.set_location('MGR OUT l_ws_mgr_id '||l_ws_mgr_id,40);
3493: end if;
3494: --
3495: p_pil_elctbl_chc_popl_id := l_pil_elctbl_chc_popl_id ;
3488: close c_mgr ;
3489: --
3490: if g_debug then
3491: hr_utility.set_location('MGR OUT l_pil_elctbl_chc_popl_id '||l_pil_elctbl_chc_popl_id,30);
3492: hr_utility.set_location('MGR OUT l_ws_mgr_id '||l_ws_mgr_id,40);
3493: end if;
3494: --
3495: p_pil_elctbl_chc_popl_id := l_pil_elctbl_chc_popl_id ;
3496: p_ws_mgr_id := l_ws_mgr_id ;
3503: p_lvl_num number ) is
3504: begin
3505: --
3506: if g_debug then
3507: hr_utility.set_location('insert_mgr_hrchy p_emp_pil_elctbl_chc_popl_id '
3508: ||p_emp_pil_elctbl_chc_popl_id,10);
3509: hr_utility.set_location('insert_mgr_hrchy p_mgr_pil_elctbl_chc_popl_id '
3510: ||p_mgr_pil_elctbl_chc_popl_id || ' lvl = ' || p_lvl_num, 20);
3511: end if;
3505: --
3506: if g_debug then
3507: hr_utility.set_location('insert_mgr_hrchy p_emp_pil_elctbl_chc_popl_id '
3508: ||p_emp_pil_elctbl_chc_popl_id,10);
3509: hr_utility.set_location('insert_mgr_hrchy p_mgr_pil_elctbl_chc_popl_id '
3510: ||p_mgr_pil_elctbl_chc_popl_id || ' lvl = ' || p_lvl_num, 20);
3511: end if;
3512: insert into ben_cwb_hrchy (
3513: emp_pil_elctbl_chc_popl_id,
3611: begin
3612: --
3613: if g_debug then
3614: l_proc := g_package|| '.popu_pel_heir';
3615: hr_utility.set_location('Entering: '||l_proc,10);
3616: end if;
3617: --
3618: lv_pl_id := -1;
3619: lv_lf_evt_ocrd_dt := hr_api.g_eot;
3638: --
3639: end if;
3640: --
3641: if g_debug then
3642: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3643: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3644: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3645: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3646: end if;
3639: end if;
3640: --
3641: if g_debug then
3642: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3643: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3644: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3645: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3646: end if;
3647: open c_pel(lv_pl_id, lv_lf_evt_ocrd_dt);
3640: --
3641: if g_debug then
3642: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3643: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3644: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3645: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3646: end if;
3647: open c_pel(lv_pl_id, lv_lf_evt_ocrd_dt);
3648: fetch c_pel into l_emp_pel,l_mgr_person_id ;
3641: if g_debug then
3642: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3643: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3644: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3645: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3646: end if;
3647: open c_pel(lv_pl_id, lv_lf_evt_ocrd_dt);
3648: fetch c_pel into l_emp_pel,l_mgr_person_id ;
3649: --
3647: open c_pel(lv_pl_id, lv_lf_evt_ocrd_dt);
3648: fetch c_pel into l_emp_pel,l_mgr_person_id ;
3649: --
3650: if g_debug then
3651: hr_utility.set_location(' l_emp_pel '||l_emp_pel,99);
3652: hr_utility.set_location(' l_mgr_person_id '||l_mgr_person_id,99);
3653: end if;
3654: if c_pel%found then
3655: --
3648: fetch c_pel into l_emp_pel,l_mgr_person_id ;
3649: --
3650: if g_debug then
3651: hr_utility.set_location(' l_emp_pel '||l_emp_pel,99);
3652: hr_utility.set_location(' l_mgr_person_id '||l_mgr_person_id,99);
3653: end if;
3654: if c_pel%found then
3655: --
3656: open c_pl_ler(l_emp_pel);
3659: --
3660: end if;
3661: --
3662: if g_debug then
3663: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3664: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3665: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3666: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3667: end if;
3660: end if;
3661: --
3662: if g_debug then
3663: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3664: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3665: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3666: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3667: end if;
3668: <
3661: --
3662: if g_debug then
3663: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3664: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3665: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3666: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3667: end if;
3668: <
3669: loop
3662: if g_debug then
3663: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3664: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3665: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3666: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3667: end if;
3668: <
3669: loop
3670: --
3674: <
3675: loop
3676: --
3677: if g_debug then
3678: hr_utility.set_location('Before mgr l_mgr_person_id '||l_mgr_person_id,10);
3679: end if;
3680: mgr(l_mgr_person_id,
3681: l_business_group_id,
3682: l_pl_id,
3684: l_ler_id,
3685: l_mgr_person_id_out,
3686: l_mgr_pel);
3687: if g_debug then
3688: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
3689: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
3690: hr_utility.set_location('After Mgr l_mgr_pel '||l_mgr_pel,30);
3691: end if;
3692: --
3685: l_mgr_person_id_out,
3686: l_mgr_pel);
3687: if g_debug then
3688: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
3689: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
3690: hr_utility.set_location('After Mgr l_mgr_pel '||l_mgr_pel,30);
3691: end if;
3692: --
3693: if l_mgr_pel is not null then
3686: l_mgr_pel);
3687: if g_debug then
3688: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
3689: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
3690: hr_utility.set_location('After Mgr l_mgr_pel '||l_mgr_pel,30);
3691: end if;
3692: --
3693: if l_mgr_pel is not null then
3694: --
3699: exit mgr_loop when (l_mgr_person_id = l_mgr_person_id_out
3700: OR l_mgr_person_id_out is null ) ;
3701: --call to insert routne
3702: if g_debug then
3703: hr_utility.set_location('Emp EPE '||l_emp_pel , 20);
3704: hr_utility.set_location('Mgr EPE '||l_mgr_pel , 30);
3705: hr_utility.set_location('Level '||l_level , 40);
3706: end if;
3707: --
3700: OR l_mgr_person_id_out is null ) ;
3701: --call to insert routne
3702: if g_debug then
3703: hr_utility.set_location('Emp EPE '||l_emp_pel , 20);
3704: hr_utility.set_location('Mgr EPE '||l_mgr_pel , 30);
3705: hr_utility.set_location('Level '||l_level , 40);
3706: end if;
3707: --
3708: -- insert_mgr_hrchy(l_emp_pel,l_mgr_pel,l_level);
3701: --call to insert routne
3702: if g_debug then
3703: hr_utility.set_location('Emp EPE '||l_emp_pel , 20);
3704: hr_utility.set_location('Mgr EPE '||l_mgr_pel , 30);
3705: hr_utility.set_location('Level '||l_level , 40);
3706: end if;
3707: --
3708: -- insert_mgr_hrchy(l_emp_pel,l_mgr_pel,l_level);
3709: --
3725: --
3726: end if;
3727: --
3728: if g_debug then
3729: hr_utility.set_location(' End of mgr_loop ',99);
3730: end if;
3731: end loop pel ;
3732: --
3733: close c_pel ;
3733: close c_pel ;
3734: --
3735: --call to delete the intial pel records
3736: if g_debug then
3737: hr_utility.set_location('Before call to delete_init_pel',10);
3738: end if;
3739: update_init_pel(lv_pl_id, lv_lf_evt_ocrd_dt) ;
3740: if g_debug then
3741: hr_utility.set_location('After call to delete_init_pel',10);
3737: hr_utility.set_location('Before call to delete_init_pel',10);
3738: end if;
3739: update_init_pel(lv_pl_id, lv_lf_evt_ocrd_dt) ;
3740: if g_debug then
3741: hr_utility.set_location('After call to delete_init_pel',10);
3742: end if;
3743: --
3744: -- CWB 2712602 : Delete all the hrchy data linked to backed out per in ler.
3745: --
3787: end;
3788: --
3789: end loop;
3790: if g_debug then
3791: hr_utility.set_location('Leaving: '||l_proc,10);
3792: end if;
3793: --
3794: end popu_pel_heir;
3795: --
3925: l_elig_per_elctbl_chc_id number := null ;
3926: begin
3927: --
3928: if g_debug then
3929: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3930: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3931: end if;
3932: --
3933: open c_mgr (p_person_id,p_pl_id,p_lf_evt_ocrd_dt,p_ler_id,p_business_group_id);
3926: begin
3927: --
3928: if g_debug then
3929: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3930: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3931: end if;
3932: --
3933: open c_mgr (p_person_id,p_pl_id,p_lf_evt_ocrd_dt,p_ler_id,p_business_group_id);
3934: fetch c_mgr into l_ws_mgr_id,l_elig_per_elctbl_chc_id ;
3934: fetch c_mgr into l_ws_mgr_id,l_elig_per_elctbl_chc_id ;
3935: close c_mgr ;
3936: --
3937: if g_debug then
3938: hr_utility.set_location('MGR OUT l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,30);
3939: hr_utility.set_location('MGR OUT l_ws_mgr_id '||l_ws_mgr_id,40);
3940: end if;
3941: --
3942: p_elig_per_elctbl_chc_id := l_elig_per_elctbl_chc_id ;
3935: close c_mgr ;
3936: --
3937: if g_debug then
3938: hr_utility.set_location('MGR OUT l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,30);
3939: hr_utility.set_location('MGR OUT l_ws_mgr_id '||l_ws_mgr_id,40);
3940: end if;
3941: --
3942: p_elig_per_elctbl_chc_id := l_elig_per_elctbl_chc_id ;
3943: p_ws_mgr_id := l_ws_mgr_id ;
3950: p_lvl_num number ) is
3951: begin
3952: --
3953: if g_debug then
3954: hr_utility.set_location('insert_mgr_hrchy p_emp_elig_per_elctbl_chc_id '
3955: ||p_emp_elig_per_elctbl_chc_id,10);
3956: hr_utility.set_location('insert_mgr_hrchy p_mgr_elig_per_elctbl_chc_id '
3957: ||p_mgr_elig_per_elctbl_chc_id || ' lvl = ' || p_lvl_num, 20);
3958: end if;
3952: --
3953: if g_debug then
3954: hr_utility.set_location('insert_mgr_hrchy p_emp_elig_per_elctbl_chc_id '
3955: ||p_emp_elig_per_elctbl_chc_id,10);
3956: hr_utility.set_location('insert_mgr_hrchy p_mgr_elig_per_elctbl_chc_id '
3957: ||p_mgr_elig_per_elctbl_chc_id || ' lvl = ' || p_lvl_num, 20);
3958: end if;
3959: insert into ben_cwb_mgr_hrchy (
3960: emp_elig_per_elctbl_chc_id,
4035: begin
4036: --
4037: if g_debug then
4038: l_proc := g_package|| '.popu_epe_heir';
4039: hr_utility.set_location('Entering: '||l_proc,10);
4040: end if;
4041: --
4042: lv_pl_id := -1;
4043: lv_lf_evt_ocrd_dt := hr_api.g_eot;
4062: --
4063: end if;
4064: --
4065: if g_debug then
4066: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
4067: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
4068: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
4069: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
4070: end if;
4063: end if;
4064: --
4065: if g_debug then
4066: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
4067: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
4068: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
4069: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
4070: end if;
4071: open c_epe(lv_pl_id, lv_lf_evt_ocrd_dt);
4064: --
4065: if g_debug then
4066: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
4067: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
4068: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
4069: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
4070: end if;
4071: open c_epe(lv_pl_id, lv_lf_evt_ocrd_dt);
4072: fetch c_epe into l_emp_epe,l_mgr_person_id ;
4065: if g_debug then
4066: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
4067: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
4068: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
4069: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
4070: end if;
4071: open c_epe(lv_pl_id, lv_lf_evt_ocrd_dt);
4072: fetch c_epe into l_emp_epe,l_mgr_person_id ;
4073: --
4071: open c_epe(lv_pl_id, lv_lf_evt_ocrd_dt);
4072: fetch c_epe into l_emp_epe,l_mgr_person_id ;
4073: --
4074: if g_debug then
4075: hr_utility.set_location(' l_emp_epe '||l_emp_epe,99);
4076: hr_utility.set_location(' l_mgr_person_id '||l_mgr_person_id,99);
4077: end if;
4078: if c_epe%found then
4079: --
4072: fetch c_epe into l_emp_epe,l_mgr_person_id ;
4073: --
4074: if g_debug then
4075: hr_utility.set_location(' l_emp_epe '||l_emp_epe,99);
4076: hr_utility.set_location(' l_mgr_person_id '||l_mgr_person_id,99);
4077: end if;
4078: if c_epe%found then
4079: --
4080: open c_pl_ler(l_emp_epe);
4083: --
4084: end if;
4085: --
4086: if g_debug then
4087: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
4088: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
4089: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
4090: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
4091: end if;
4084: end if;
4085: --
4086: if g_debug then
4087: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
4088: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
4089: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
4090: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
4091: end if;
4092: <
4085: --
4086: if g_debug then
4087: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
4088: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
4089: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
4090: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
4091: end if;
4092: <
4093: loop
4086: if g_debug then
4087: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
4088: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
4089: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
4090: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
4091: end if;
4092: <
4093: loop
4094: --
4098: <
4099: loop
4100: --
4101: if g_debug then
4102: hr_utility.set_location('Before mgr l_mgr_person_id '||l_mgr_person_id,10);
4103: end if;
4104: mgr(l_mgr_person_id,
4105: l_business_group_id,
4106: l_pl_id,
4108: l_ler_id,
4109: l_mgr_person_id_out,
4110: l_mgr_epe);
4111: if g_debug then
4112: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
4113: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
4114: hr_utility.set_location('After Mgr l_mgr_epe '||l_mgr_epe,30);
4115: end if;
4116: --
4109: l_mgr_person_id_out,
4110: l_mgr_epe);
4111: if g_debug then
4112: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
4113: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
4114: hr_utility.set_location('After Mgr l_mgr_epe '||l_mgr_epe,30);
4115: end if;
4116: --
4117: if l_mgr_epe is not null then
4110: l_mgr_epe);
4111: if g_debug then
4112: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
4113: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
4114: hr_utility.set_location('After Mgr l_mgr_epe '||l_mgr_epe,30);
4115: end if;
4116: --
4117: if l_mgr_epe is not null then
4118: --
4123: exit mgr_loop when (l_mgr_person_id = l_mgr_person_id_out
4124: OR l_mgr_person_id_out is null ) ;
4125: --call to insert routne
4126: if g_debug then
4127: hr_utility.set_location('Emp EPE '||l_emp_epe , 20);
4128: hr_utility.set_location('Mgr EPE '||l_mgr_epe , 30);
4129: hr_utility.set_location('Level '||l_level , 40);
4130: end if;
4131: --
4124: OR l_mgr_person_id_out is null ) ;
4125: --call to insert routne
4126: if g_debug then
4127: hr_utility.set_location('Emp EPE '||l_emp_epe , 20);
4128: hr_utility.set_location('Mgr EPE '||l_mgr_epe , 30);
4129: hr_utility.set_location('Level '||l_level , 40);
4130: end if;
4131: --
4132: -- insert_mgr_hrchy(l_emp_epe,l_mgr_epe,l_level);
4125: --call to insert routne
4126: if g_debug then
4127: hr_utility.set_location('Emp EPE '||l_emp_epe , 20);
4128: hr_utility.set_location('Mgr EPE '||l_mgr_epe , 30);
4129: hr_utility.set_location('Level '||l_level , 40);
4130: end if;
4131: --
4132: -- insert_mgr_hrchy(l_emp_epe,l_mgr_epe,l_level);
4133: --
4149: --
4150: end if;
4151: --
4152: if g_debug then
4153: hr_utility.set_location(' End of mgr_loop ',99);
4154: end if;
4155: end loop epe ;
4156: --
4157: close c_epe ;
4157: close c_epe ;
4158: --
4159: --call to delete the intial epe records
4160: if g_debug then
4161: hr_utility.set_location('Before call to delete_init_epe',10);
4162: end if;
4163: update_init_epe(lv_pl_id, lv_lf_evt_ocrd_dt) ;
4164: if g_debug then
4165: hr_utility.set_location('After call to delete_init_epe',10);
4161: hr_utility.set_location('Before call to delete_init_epe',10);
4162: end if;
4163: update_init_epe(lv_pl_id, lv_lf_evt_ocrd_dt) ;
4164: if g_debug then
4165: hr_utility.set_location('After call to delete_init_epe',10);
4166: end if;
4167: -- After testing on hrcwbdvl uncomment the code.
4168: --
4169: -- Bug 2288042
4188: end;
4189: --
4190: end loop;
4191: if g_debug then
4192: hr_utility.set_location('Leaving: '||l_proc,10);
4193: end if;
4194: --
4195: end popu_epe_heir;
4196: --
4330: begin
4331: --
4332: if g_debug then
4333: l_package := g_package||'.popu_cross_gb_epe_data';
4334: hr_utility.set_location ('Entering '||l_package,10);
4335: end if;
4336: --
4337: benutils.get_active_life_event
4338: (p_person_id => p_person_id,
4438: --
4439: for l_curr_epe in c_epe(l_rec.per_in_ler_id) loop
4440: --
4441: if g_debug then
4442: hr_utility.set_location('EPEC_CRE: Cross BG ' || l_package, 10);
4443: end if;
4444: ben_elig_per_elc_chc_api.create_perf_elig_per_elc_chc(
4445: p_elig_per_elctbl_chc_id => l_elig_per_elctbl_chc_id,
4446: p_business_group_id => l_curr_epe.per_business_group_id,
4525: --
4526: close c_hrchy;
4527: --
4528: if g_debug then
4529: hr_utility.set_location('Done EPEC_CRE Cross BG : ' || l_package, 10);
4530: end if;
4531: --
4532: for l_ecr_rec in c_ecr(l_curr_epe.elig_per_elctbl_chc_id)
4533: loop
4730: --
4731: end loop; -- while loop
4732: --
4733: if g_debug then
4734: hr_utility.set_location ('Leaving '||l_package,10);
4735: end if;
4736: --
4737: end popu_cross_gb_epe_pel_data;
4738: --
4837: begin
4838: --
4839: if g_debug then
4840: l_package := g_package||'.popu_cross_gb_epe_data';
4841: hr_utility.set_location ('Entering '||l_package,10);
4842: end if;
4843: --
4844: benutils.get_active_life_event
4845: (p_person_id => p_person_id,
4965: -- fetch c_plan_enrolment_info into l_prtt_enrt_rslt_id;
4966: -- close c_plan_enrolment_info;
4967: --
4968: if g_debug then
4969: hr_utility.set_location('EPEC_CRE: Cross BG ' || l_package, 10);
4970: end if;
4971: ben_elig_per_elc_chc_api.create_perf_elig_per_elc_chc(
4972: p_elig_per_elctbl_chc_id => l_elig_per_elctbl_chc_id,
4973: p_business_group_id => l_curr_epe.per_business_group_id,
5047: --
5048: close c_cwb_hrchy;
5049: --
5050: if g_debug then
5051: hr_utility.set_location('Done EPEC_CRE Cross BG : ' || l_package, 10);
5052: end if;
5053: --
5054: for l_ecr_rec in c_ecr(l_curr_epe.elig_per_elctbl_chc_id)
5055: loop
5247: end loop;
5248: -- end if;
5249: --
5250: if g_debug then
5251: hr_utility.set_location ('Leaving '||l_package,10);
5252: end if;
5253: --
5254: end popu_cross_gb_epe_data;
5255: */
5307:
5308: begin
5309:
5310: if g_debug then
5311: hr_utility.set_location ('Entering '||l_package,10);
5312: end if;
5313:
5314: open c_epe1;
5315: fetch c_epe1 into
5359: close c_epe2;
5360: end if;
5361:
5362: if g_debug then
5363: hr_utility.set_location ('Leaving '||l_package,10);
5364: end if;
5365:
5366: exception
5367: when others then
5411: begin
5412:
5413: if g_debug then
5414: l_package := g_package||'.del_cwb_pil';
5415: hr_utility.set_location ('Entering '||l_package,10);
5416: end if;
5417:
5418: open c_pil;
5419: fetch c_pil into l_pil_rec;
5447: end if;
5448: close c_pil;
5449:
5450: if g_debug then
5451: hr_utility.set_location ('Leaving '||l_package,10);
5452: end if;
5453:
5454: end;
5455: --
5540: begin
5541: --
5542: if g_debug then
5543: l_package := g_package||'.process_rows';
5544: hr_utility.set_location ('Entering '||l_package,10);
5545: end if;
5546: --
5547: open c_person_thread;
5548: --
5548: --
5549: loop
5550: --
5551: if g_debug then
5552: hr_utility.set_location (l_package||' Start c_person_thread ',20);
5553: end if;
5554: fetch c_person_thread into l_person_id,
5555: l_person_action_id,
5556: l_object_version_number,
5555: l_person_action_id,
5556: l_object_version_number,
5557: l_ler_id;
5558: if g_debug then
5559: hr_utility.set_location (l_package||' fetch c_person_thread ',20);
5560: end if;
5561: exit when c_person_thread%notfound;
5562: --
5563: l_count := l_count + 1;
5620: End loop;
5621: --
5622: --
5623: if g_debug then
5624: hr_utility.set_location('End c_person_thread loop '||l_package,10);
5625: end if;
5626: --
5627: -- We need to commit the validate mode stuff to the log and
5628: -- table at regular intervals, that way users can view the log
5639: end loop;
5640: --
5641: close c_person_thread;
5642: if g_debug then
5643: hr_utility.set_location (l_package||' close c_person_thread ',20);
5644: end if;
5645: --
5646: if ben_populate_rbv.validate_mode
5647: (p_validate => p_validate
5661: end if;
5662: --
5663: */
5664: if g_debug then
5665: hr_utility.set_location (l_package||' Write TAF ',20);
5666: end if;
5667: benutils.write_table_and_file(p_table => true,
5668: p_file => true);
5669: commit;
5668: p_file => true);
5669: commit;
5670: --
5671: if g_debug then
5672: hr_utility.set_location ('Leaving '||l_package,10);
5673: end if;
5674: --
5675: end process_rows;
5676: --
5688: begin
5689: --
5690: if g_debug then
5691: l_proc := g_package || '.set_up_cobj_part_elig';
5692: hr_utility.set_location('Entering '||l_proc,10);
5693: end if;
5694: if p_comp_obj_tree_row.pgm_id is not null then
5695: --
5696: if g_debug then
5693: end if;
5694: if p_comp_obj_tree_row.pgm_id is not null then
5695: --
5696: if g_debug then
5697: hr_utility.set_location('Setting up eligibility at the PGM level',10);
5698: end if;
5699: --
5700: ben_cobj_cache.get_pgm_dets
5701: (p_business_group_id => p_business_group_id
5719: ,p_inst_row => ben_cobj_cache.g_pgmprel_currow
5720: );
5721: --
5722: if g_debug then
5723: hr_utility.set_location('Done pgm setobjs '||l_proc,20);
5724: end if;
5725: --
5726: elsif p_comp_obj_tree_row.ptip_id is not null then
5727: --
5725: --
5726: elsif p_comp_obj_tree_row.ptip_id is not null then
5727: --
5728: if g_debug then
5729: hr_utility.set_location('Setting up eligibility at the PTIP level',10);
5730: end if;
5731: --
5732: ben_cobj_cache.get_ptip_dets
5733: (p_business_group_id => p_business_group_id
5753: --
5754: elsif p_comp_obj_tree_row.plip_id is not null then
5755: --
5756: if g_debug then
5757: hr_utility.set_location('Setting up eligibility at the PLIP level',10);
5758: end if;
5759: --
5760: ben_cobj_cache.get_plip_dets
5761: (p_business_group_id => p_business_group_id
5779: ,p_inst_row => ben_cobj_cache.g_plipprel_currow
5780: );
5781: --
5782: if g_debug then
5783: hr_utility.set_location(' current ptip ' || p_comp_obj_tree_row.par_ptip_id, 99 );
5784: hr_utility.set_location(' current hash ' || ben_cobj_cache.g_ptip_currow.ptip_id, 99 ) ;
5785: end if;
5786: ---- bug : 2228464 tilak
5787: ---- Compensation object tree was populated in PGM,PL name order
5780: );
5781: --
5782: if g_debug then
5783: hr_utility.set_location(' current ptip ' || p_comp_obj_tree_row.par_ptip_id, 99 );
5784: hr_utility.set_location(' current hash ' || ben_cobj_cache.g_ptip_currow.ptip_id, 99 ) ;
5785: end if;
5786: ---- bug : 2228464 tilak
5787: ---- Compensation object tree was populated in PGM,PL name order
5788: ---- there cane a possibility of ptip falls in different levl
5819: );
5820: end if ;
5821:
5822: if g_debug then
5823: hr_utility.set_location('Done PLIP '||l_proc,30);
5824: end if;
5825: --
5826: elsif p_comp_obj_tree_row.pl_id is not null then
5827: --
5825: --
5826: elsif p_comp_obj_tree_row.pl_id is not null then
5827: --
5828: if g_debug then
5829: hr_utility.set_location('Setting up eligibility at the PLN level',10);
5830: end if;
5831: --
5832: ben_cobj_cache.get_pl_dets
5833: (p_business_group_id => p_business_group_id
5851: ,p_inst_row => ben_cobj_cache.g_plprel_currow
5852: );
5853: --
5854: if g_debug then
5855: hr_utility.set_location('Done pln setobjs '||l_proc,20);
5856: end if;
5857: --
5858: elsif p_comp_obj_tree_row.oipl_id is not null then
5859: --
5857: --
5858: elsif p_comp_obj_tree_row.oipl_id is not null then
5859: --
5860: if g_debug then
5861: hr_utility.set_location(l_proc||' OIPL NN ',20);
5862: end if;
5863: --
5864: ben_cobj_cache.get_oipl_dets
5865: (p_business_group_id => p_business_group_id
5903: --
5904: end if;
5905: --
5906: if g_debug then
5907: hr_utility.set_location('Done oipl setobjs '||l_proc,20);
5908: end if;
5909: --
5910: end if;
5911: --
5909: --
5910: end if;
5911: --
5912: if g_debug then
5913: hr_utility.set_location('Leaving '||l_proc,10);
5914: end if;
5915: --
5916: end set_up_cobj_part_elig;
5917: --
5929: begin
5930: --
5931: if g_debug then
5932: l_proc := g_package || '.set_up_list_part_elig';
5933: hr_utility.set_location('Entering '||l_proc,10);
5934: end if;
5935: --
5936: -- Loop through all comp objects and making a call to set up the eligibility
5937: -- cache.
5938: --
5939: for l_count in g_cache_proc_object.first..g_cache_proc_object.last loop
5940: --
5941: if g_debug then
5942: hr_utility.set_location('Start loop '||l_proc,20);
5943: end if;
5944: if g_cache_proc_object(l_count).pgm_id is not null then
5945: --
5946: if g_debug then
5943: end if;
5944: if g_cache_proc_object(l_count).pgm_id is not null then
5945: --
5946: if g_debug then
5947: hr_utility.set_location('Setting up eligibility at the PGM level',10);
5948: end if;
5949: --
5950: ben_elig_object.set_object
5951: (p_pgm_id => g_cache_proc_object(l_count).pgm_id,
5960: p_business_group_id => p_business_group_id,
5961: p_effective_date => p_effective_date);
5962:
5963: if g_debug then
5964: hr_utility.set_location('Done pgm setobjs '||l_proc,20);
5965: end if;
5966: --
5967: elsif g_cache_proc_object(l_count).pl_id is not null then
5968: --
5966: --
5967: elsif g_cache_proc_object(l_count).pl_id is not null then
5968: --
5969: if g_debug then
5970: hr_utility.set_location('Setting up eligibility at the PLN level',10);
5971: end if;
5972: --
5973: ben_elig_object.set_object
5974: (p_pl_id => g_cache_proc_object(l_count).pl_id,
5982: (p_pl_id => g_cache_proc_object(l_count).pl_id,
5983: p_business_group_id => p_business_group_id,
5984: p_effective_date => p_effective_date);
5985: if g_debug then
5986: hr_utility.set_location('Done pln setobjs '||l_proc,20);
5987: end if;
5988: --
5989: --
5990: elsif g_cache_proc_object(l_count).plip_id is not null then
5989: --
5990: elsif g_cache_proc_object(l_count).plip_id is not null then
5991: --
5992: if g_debug then
5993: hr_utility.set_location('Setting up eligibility at the PLIP level',10);
5994: end if;
5995: --
5996: ben_elig_object.set_object
5997: (p_plip_id => g_cache_proc_object(l_count).plip_id,
6001: ,p_rec => l_rec
6002: );
6003: --
6004: if g_debug then
6005: hr_utility.set_location('Done plip ler sobjs '||l_proc,20);
6006: end if;
6007: ben_elig_object.set_object
6008: (p_plip_id => g_cache_proc_object(l_count).plip_id,
6009: p_business_group_id => p_business_group_id,
6009: p_business_group_id => p_business_group_id,
6010: p_effective_date => p_effective_date);
6011: --
6012: if g_debug then
6013: hr_utility.set_location('Done PLIP '||l_proc,30);
6014: end if;
6015: --
6016: elsif g_cache_proc_object(l_count).ptip_id is not null then
6017: --
6015: --
6016: elsif g_cache_proc_object(l_count).ptip_id is not null then
6017: --
6018: if g_debug then
6019: hr_utility.set_location('Setting up eligibility at the PTIP level',10);
6020: hr_utility.set_location('Current PTIP = '||
6021: g_cache_proc_object(l_count).ptip_id,10);
6022: --
6023: hr_utility.set_location('ELOBJ_SOBJ '||l_proc,30);
6016: elsif g_cache_proc_object(l_count).ptip_id is not null then
6017: --
6018: if g_debug then
6019: hr_utility.set_location('Setting up eligibility at the PTIP level',10);
6020: hr_utility.set_location('Current PTIP = '||
6021: g_cache_proc_object(l_count).ptip_id,10);
6022: --
6023: hr_utility.set_location('ELOBJ_SOBJ '||l_proc,30);
6024: end if;
6019: hr_utility.set_location('Setting up eligibility at the PTIP level',10);
6020: hr_utility.set_location('Current PTIP = '||
6021: g_cache_proc_object(l_count).ptip_id,10);
6022: --
6023: hr_utility.set_location('ELOBJ_SOBJ '||l_proc,30);
6024: end if;
6025: ben_elig_object.set_object
6026: (p_ptip_id => g_cache_proc_object(l_count).ptip_id,
6027: p_ler_id => p_ler_id,
6037: --
6038: elsif g_cache_proc_object(l_count).oipl_id is not null then
6039: --
6040: if g_debug then
6041: hr_utility.set_location('Setting up eligibility at the OIPL level',10);
6042: end if;
6043: --
6044: if g_debug then
6045: hr_utility.set_location(l_proc||' OIPL NN ',20);
6041: hr_utility.set_location('Setting up eligibility at the OIPL level',10);
6042: end if;
6043: --
6044: if g_debug then
6045: hr_utility.set_location(l_proc||' OIPL NN ',20);
6046: end if;
6047: ben_elig_object.set_object
6048: (p_oipl_id => g_cache_proc_object(l_count).oipl_id,
6049: p_ler_id => p_ler_id,
6056: (p_oipl_id => g_cache_proc_object(l_count).oipl_id,
6057: p_business_group_id => p_business_group_id,
6058: p_effective_date => p_effective_date);
6059: if g_debug then
6060: hr_utility.set_location('Done oipl setobjs '||l_proc,20);
6061: end if;
6062: --
6063: end if;
6064: --
6064: --
6065: end loop;
6066: --
6067: if g_debug then
6068: hr_utility.set_location('Leaving '||l_proc,10);
6069: end if;
6070: --
6071: end set_up_list_part_elig;
6072: --
6120: l_ler_rec benutils.g_ler;
6121: --
6122: begin
6123: --
6124: g_debug := hr_utility.debug_enabled;
6125: if g_debug then
6126: l_package := g_package||'.do_multithread';
6127: hr_utility.set_location ('Entering '||l_package,10);
6128: hr_utility.set_location ('p_mode : '||p_mode,20);
6123: --
6124: g_debug := hr_utility.debug_enabled;
6125: if g_debug then
6126: l_package := g_package||'.do_multithread';
6127: hr_utility.set_location ('Entering '||l_package,10);
6128: hr_utility.set_location ('p_mode : '||p_mode,20);
6129: end if;
6130: --
6131: -- Convert varchar2 dates to real dates
6124: g_debug := hr_utility.debug_enabled;
6125: if g_debug then
6126: l_package := g_package||'.do_multithread';
6127: hr_utility.set_location ('Entering '||l_package,10);
6128: hr_utility.set_location ('p_mode : '||p_mode,20);
6129: end if;
6130: --
6131: -- Convert varchar2 dates to real dates
6132: -- 1) First remove time component
6184: end if;
6185:
6186:
6187: if g_debug then
6188: hr_utility.set_location ('Dn get_parameter '||l_package,10);
6189: end if;
6190: --
6191: -- Clear benmngle level caches
6192: --
6224: --
6225: if p_lmt_prpnip_by_org_flag = 'N' then
6226: --
6227: if g_debug then
6228: hr_utility.set_location (' Temp BCOL '||l_package,10);
6229: end if;
6230: ben_comp_object_list.build_comp_object_list
6231: (p_benefit_action_id => p_benefit_action_id
6232: ,p_comp_selection_rule_id => p_comp_selection_rule_id
6258: ,p_business_group_id => p_business_group_id
6259: ,p_effective_date => l_effective_date
6260: );
6261: if g_debug then
6262: hr_utility.set_location (' Dn Temp BCOL '||l_package,10);
6263: end if;
6264: --
6265: end if;
6266: --
6275: -- 4) Go to number 1 again.
6276: --
6277: loop
6278: if g_debug then
6279: hr_utility.set_location (l_package||' START process_rows loop ',20);
6280: end if;
6281: --
6282: -- Chunk scheduling changes
6283: --
6281: --
6282: -- Chunk scheduling changes
6283: --
6284: if g_debug then
6285: hr_utility.set_location (l_package||' open c_range_thread ',22);
6286: end if;
6287: ben_maintain_benefit_actions.grab_next_batch_range
6288: (p_benefit_action_id => p_benefit_action_id
6289: --
6292: ,p_rows_found => l_rows_found
6293: );
6294: --
6295: if g_debug then
6296: hr_utility.set_location (l_package||' Done c_range_thread ',25);
6297: end if;
6298: --
6299: if not l_rows_found then
6300: --
6317: --
6318: end if;
6319: --
6320: if g_debug then
6321: hr_utility.set_location ('p_mode : '||p_mode,25);
6322: end if;
6323: process_rows
6324: (p_benefit_action_id => p_benefit_action_id,
6325: p_start_person_action_id => l_start_person_action_id,
6345: p_lf_evt_oper_cd => p_lf_evt_oper_cd /* GSP Rate Sync */
6346: );
6347: --
6348: if g_debug then
6349: hr_utility.set_location (l_package||' END process_rows loop ',50);
6350: end if;
6351: end loop;
6352: if g_debug then
6353: hr_utility.set_location (l_package||' Dn process_rows loop ',50);
6349: hr_utility.set_location (l_package||' END process_rows loop ',50);
6350: end if;
6351: end loop;
6352: if g_debug then
6353: hr_utility.set_location (l_package||' Dn process_rows loop ',50);
6354: end if;
6355: --
6356: -- Output log information to log file
6357: --
6373: --
6374: end if;
6375: --
6376: if g_debug then
6377: hr_utility.set_location ('Leaving '||l_package,10);
6378: end if;
6379: --
6380: exception
6381: --
6380: exception
6381: --
6382: when g_record_error then
6383: if g_debug then
6384: hr_utility.set_location (l_package||' Exception g_record_error ',50);
6385: end if;
6386: benutils.write(p_text => fnd_message.get);
6387: --
6388: -- Write the last bit of information for the thread
6409: --
6410: if not l_slave_errored then
6411: --
6412: if g_debug then
6413: hr_utility.set_location (l_package||' OTHERS Exc ',60);
6414: end if;
6415: rollback;
6416: if g_debug then
6417: hr_utility.set_location ('BENMNGLE Super Error '||l_package,10);
6413: hr_utility.set_location (l_package||' OTHERS Exc ',60);
6414: end if;
6415: rollback;
6416: if g_debug then
6417: hr_utility.set_location ('BENMNGLE Super Error '||l_package,10);
6418: end if;
6419: g_rec.rep_typ_cd := 'FATAL';
6420: g_rec.text := nvl(fnd_message.get,sqlerrm);
6421: if g_debug then
6418: end if;
6419: g_rec.rep_typ_cd := 'FATAL';
6420: g_rec.text := nvl(fnd_message.get,sqlerrm);
6421: if g_debug then
6422: hr_utility.set_location(substr(g_rec.text,1,100),10);
6423: end if;
6424: benutils.write(p_rec => g_rec);
6425: --
6426: -- Output log information to log file
6448: benutils.write_table_and_file(p_table => true,
6449: p_file => true);
6450: commit;
6451: if g_debug then
6452: hr_utility.set_location ('Others error '||l_package,100);
6453: end if;
6454: fnd_message.raise_error;
6455: --
6456: end do_multithread;
6507: l_retcode number;
6508: --
6509: begin
6510: --
6511: g_debug := hr_utility.debug_enabled;
6512: if g_debug then
6513: l_package := g_package||'.restart';
6514: hr_utility.set_location ('Entering '||l_package,10);
6515: end if;
6510: --
6511: g_debug := hr_utility.debug_enabled;
6512: if g_debug then
6513: l_package := g_package||'.restart';
6514: hr_utility.set_location ('Entering '||l_package,10);
6515: end if;
6516: --
6517: -- get the parameters for a previous run and do a restart
6518: --
6573: -- The p_lf_evt_ocrd_dt needs to use lf_evt_ocrd_dt but that needs a schema
6574: -- change.
6575: --
6576: if g_debug then
6577: hr_utility.set_location ('Leaving '||l_package,10);
6578: end if;
6579: --
6580: end restart;
6581: --
6632: where request_id = fnd_global.conc_request_id;
6633: --
6634: begin
6635: --
6636: g_debug := hr_utility.debug_enabled;
6637: --
6638: open c_get_parent_req_id ;
6639: fetch c_get_parent_req_id into l_parent_req_id ;
6640: close c_get_parent_req_id ;
6741: l_errbuf varchar2(1000);
6742: l_commit number;
6743: begin
6744: --
6745: g_debug := hr_utility.debug_enabled;
6746: --
6747: -- Bug: 4128034. CWB Mode fnd_session needs to be set.
6748: if p_mode = 'W' then
6749: dt_fndate.change_ses_date
6858: l_errbuf varchar2(1000);
6859:
6860: begin
6861: --
6862: -- hr_utility.trace_on(null, 'GSPRS');
6863: g_debug := hr_utility.debug_enabled;
6864: /*
6865: fnd_file.put_line(fnd_file.log,'p_benefit_action_id '||nvl(p_benefit_action_id, -1));
6866: fnd_file.put_line(fnd_file.log,'p_effective_date '||p_effective_date);
6859:
6860: begin
6861: --
6862: -- hr_utility.trace_on(null, 'GSPRS');
6863: g_debug := hr_utility.debug_enabled;
6864: /*
6865: fnd_file.put_line(fnd_file.log,'p_benefit_action_id '||nvl(p_benefit_action_id, -1));
6866: fnd_file.put_line(fnd_file.log,'p_effective_date '||p_effective_date);
6867: fnd_file.put_line(fnd_file.log,'p_mode '||nvl(p_mode,'null'));
6879: fnd_file.put_line(fnd_file.log,'p_business_group_id '||p_business_group_id);
6880: fnd_file.put_line(fnd_file.log,'p_business_group_id '||p_business_group_id);
6881:
6882:
6883: hr_utility.set_location ('Before Step 1',20);
6884: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6885: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6886: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6887: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6880: fnd_file.put_line(fnd_file.log,'p_business_group_id '||p_business_group_id);
6881:
6882:
6883: hr_utility.set_location ('Before Step 1',20);
6884: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6885: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6886: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6887: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6888: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6881:
6882:
6883: hr_utility.set_location ('Before Step 1',20);
6884: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6885: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6886: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6887: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6888: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6889: */
6882:
6883: hr_utility.set_location ('Before Step 1',20);
6884: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6885: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6886: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6887: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6888: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6889: */
6890: --
6883: hr_utility.set_location ('Before Step 1',20);
6884: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6885: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6886: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6887: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6888: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6889: */
6890: --
6891: process
6884: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6885: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6886: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6887: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6888: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6889: */
6890: --
6891: process
6892: (errbuf =>l_errbuf,
6997: l_errbuf varchar2(1000);
6998:
6999: begin
7000: --
7001: -- hr_utility.trace_on(null, 'GSPRS');
7002: g_debug := hr_utility.debug_enabled;
7003: --
7004: process
7005: (errbuf => l_errbuf,
6998:
6999: begin
7000: --
7001: -- hr_utility.trace_on(null, 'GSPRS');
7002: g_debug := hr_utility.debug_enabled;
7003: --
7004: process
7005: (errbuf => l_errbuf,
7006: retcode => l_retcode,
7042: p_asg_events_to_all_sel_dt => p_effective_date, -- Pass Effective Date as PTNL Life Event Occurred Date
7043: p_gsp_eval_elig_flag => p_gsp_eval_elig_flag,
7044: p_lf_evt_oper_cd => 'SYNC' -- Life Event Operation code for Rate Synchronization
7045: );
7046: hr_utility.trace_off;
7047: --
7048: end grade_step_rate_sync_process;
7049: --
7050: -- wrapper for procedure process - ABSENCES
7089: l_retcode number;
7090: l_errbuf varchar2(1000);
7091: begin
7092: --
7093: g_debug := hr_utility.debug_enabled;
7094: --
7095: process
7096: (errbuf =>l_errbuf,
7097: retcode =>l_retcode,
7195:
7196: --
7197: begin
7198: --
7199: g_debug := hr_utility.debug_enabled;
7200: --
7201: -- Bug 5857493
7202: if p_audit_log_flag ='Y' then
7203: ben_benbatch_persons.g_audit_flag := true;
7409: and pel.pil_elctbl_chc_popl_id = p_pil_elctbl_chc_popl_id;
7410: --
7411: begin
7412: --
7413: g_debug := hr_utility.debug_enabled;
7414: --
7415: -- Steps
7416: --
7417: -- 1. create pel,-1,-1 record for the p_pil_elctbl_chc_popl_id.
7432: fetch c_pel into g_rebuild_pl_id, g_rebuild_lf_evt_ocrd_dt, g_rebuild_business_group_id;
7433: close c_pel;
7434:
7435: if g_debug then
7436: hr_utility.set_location ('Before Step 1',20);
7437: end if;
7438: --
7439: -- Step 1
7440: begin
7458: --
7459: end;
7460: --
7461: if g_debug then
7462: hr_utility.set_location ('After Step 1',20);
7463: --
7464: hr_utility.set_location ('Before Step 2 ',20);
7465: end if;
7466: --
7460: --
7461: if g_debug then
7462: hr_utility.set_location ('After Step 1',20);
7463: --
7464: hr_utility.set_location ('Before Step 2 ',20);
7465: end if;
7466: --
7467: --Step 2
7468: -- Don't insert for the pel,0,0 record since it is
7500: --
7501: end;
7502: --
7503: if g_debug then
7504: hr_utility.set_location ('After Step 2 ',20);
7505: --
7506: hr_utility.set_location ('Before Step 3 ',20);
7507: end if;
7508: --
7502: --
7503: if g_debug then
7504: hr_utility.set_location ('After Step 2 ',20);
7505: --
7506: hr_utility.set_location ('Before Step 3 ',20);
7507: end if;
7508: --
7509: begin
7510: --
7529: --
7530: end;
7531: --
7532: if g_debug then
7533: hr_utility.set_location ('After Step 3 ',20);
7534: --
7535: hr_utility.set_location ('Before Calling popu_pel_heir',20);
7536: end if;
7537: begin
7531: --
7532: if g_debug then
7533: hr_utility.set_location ('After Step 3 ',20);
7534: --
7535: hr_utility.set_location ('Before Calling popu_pel_heir',20);
7536: end if;
7537: begin
7538: --
7539: ben_manage_life_events.popu_pel_heir ;
7544: --
7545: end;
7546: --
7547: if g_debug then
7548: hr_utility.set_location ('Before Step 5',20);
7549: end if;
7550: --
7551: begin
7552: --
7584: --
7585: end if;
7586: --
7587: if g_debug then
7588: hr_utility.set_location ('Afert Step 5',20);
7589: hr_utility.set_location ('After Calling popu_pel_heir',20);
7590: end if;
7591: --
7592: --
7585: end if;
7586: --
7587: if g_debug then
7588: hr_utility.set_location ('Afert Step 5',20);
7589: hr_utility.set_location ('After Calling popu_pel_heir',20);
7590: end if;
7591: --
7592: --
7593: end rebuild_heirarchy ;
7635: l_errbuf varchar2(1000);
7636: --
7637: begin
7638: --
7639: g_debug := hr_utility.debug_enabled;
7640: --
7641: process
7642: (errbuf =>l_errbuf,
7643: retcode =>l_retcode,
7715: l_errbuf varchar2(1000);
7716: --
7717: begin
7718: --
7719: g_debug := hr_utility.debug_enabled;
7720: --
7721: process
7722: (errbuf =>l_errbuf,
7723: retcode =>l_retcode,
7903: --
7904: --
7905: begin
7906: --
7907: g_debug := hr_utility.debug_enabled;
7908: l_package := g_package||'.internal_process';
7909: if g_debug then
7910: hr_utility.set_location ('Entering '||l_package,10);
7911: hr_utility.set_location ('p_mode : '||p_mode,5);
7906: --
7907: g_debug := hr_utility.debug_enabled;
7908: l_package := g_package||'.internal_process';
7909: if g_debug then
7910: hr_utility.set_location ('Entering '||l_package,10);
7911: hr_utility.set_location ('p_mode : '||p_mode,5);
7912: end if;
7913: --
7914: g_derivable_factors := p_derivable_factors;
7907: g_debug := hr_utility.debug_enabled;
7908: l_package := g_package||'.internal_process';
7909: if g_debug then
7910: hr_utility.set_location ('Entering '||l_package,10);
7911: hr_utility.set_location ('p_mode : '||p_mode,5);
7912: end if;
7913: --
7914: g_derivable_factors := p_derivable_factors;
7915: --
8017: );
8018:
8019: -- p_popl_enrt_typ_cycl_id => p_popl_enrt_typ_cycl_id);
8020: if g_debug then
8021: hr_utility.set_location (l_package||' Check business rules',20);
8022: end if;
8023: --
8024: -- Get ler_id for Unrestricted Mode and store it in globle variable so that procedures down the road can
8025: -- access it
8070: --
8071: close c_popl_enrt_typ_cycl;
8072:
8073: if g_debug then
8074: hr_utility.set_location (l_popl_enrt_typ_cycl_id || ' Done c_popl_enrt_typ_cycl ',30);
8075: hr_utility.set_location (p_popl_enrt_typ_cycl_id || ' Done c_popl_enrt_typ_cycl ',30);
8076: end if;
8077: --
8078: end if;
8071: close c_popl_enrt_typ_cycl;
8072:
8073: if g_debug then
8074: hr_utility.set_location (l_popl_enrt_typ_cycl_id || ' Done c_popl_enrt_typ_cycl ',30);
8075: hr_utility.set_location (p_popl_enrt_typ_cycl_id || ' Done c_popl_enrt_typ_cycl ',30);
8076: end if;
8077: --
8078: end if;
8079: --
8089: --
8090: l_ler_override_id := l_ler_rec.ler_id;
8091: --
8092: if g_debug then
8093: hr_utility.set_location (l_package||' benutils.get_ler ',30);
8094: end if;
8095: --
8096: end if;
8097: /*
8108: --
8109: l_ler_override_id := l_ler_rec.ler_id;
8110: --
8111: if g_debug then
8112: hr_utility.set_location (l_package||' benutils.get_ler ',31);
8113: end if;
8114: end if;
8115: */
8116: --
8117: -- Get parameters so we know how many slaves to start and what size the
8118: -- chunk size we will be processing is.
8119: --
8120: if g_debug then
8121: hr_utility.set_location (l_package||' get_parameter',20);
8122: end if;
8123: /* Start: CWB Thread Num Enhancement */
8124: if(p_mode = 'W') then
8125: benutils.get_parameter(p_business_group_id => p_business_group_id,
8135: p_max_errors => l_max_errors);
8136: end if;
8137: /* End: CWB Thread Num Enhancement */
8138: if g_debug then
8139: hr_utility.set_location (l_package||' Done get pm ',30);
8140: --
8141: hr_utility.set_location('Num Threads = '||l_threads,10);
8142: hr_utility.set_location('Chunk Size = '||l_chunk_size,10);
8143: hr_utility.set_location('Max Errors = '||l_max_errors,10);
8137: /* End: CWB Thread Num Enhancement */
8138: if g_debug then
8139: hr_utility.set_location (l_package||' Done get pm ',30);
8140: --
8141: hr_utility.set_location('Num Threads = '||l_threads,10);
8142: hr_utility.set_location('Chunk Size = '||l_chunk_size,10);
8143: hr_utility.set_location('Max Errors = '||l_max_errors,10);
8144: --
8145: end if;
8138: if g_debug then
8139: hr_utility.set_location (l_package||' Done get pm ',30);
8140: --
8141: hr_utility.set_location('Num Threads = '||l_threads,10);
8142: hr_utility.set_location('Chunk Size = '||l_chunk_size,10);
8143: hr_utility.set_location('Max Errors = '||l_max_errors,10);
8144: --
8145: end if;
8146: --
8139: hr_utility.set_location (l_package||' Done get pm ',30);
8140: --
8141: hr_utility.set_location('Num Threads = '||l_threads,10);
8142: hr_utility.set_location('Chunk Size = '||l_chunk_size,10);
8143: hr_utility.set_location('Max Errors = '||l_max_errors,10);
8144: --
8145: end if;
8146: --
8147: benutils.g_benefit_action_id := l_benefit_action_id; -- Bug 3870204
8152: --
8153: if p_benefit_action_id is null then
8154: --
8155: if g_debug then
8156: hr_utility.set_location (l_package||' Create BFT ',30);
8157: end if;
8158: --
8159: --
8160: ben_benefit_actions_api.create_perf_benefit_actions
8231: --
8232: benutils.g_benefit_action_id := l_benefit_action_id; -- Bug 3870204
8233: --
8234: if g_debug then
8235: hr_utility.set_location (l_package||' Dn Create BFT ',20);
8236: end if;
8237: -- Bug 8431552: initialize the benmngle mode
8238: ben_env_object.setenv(p_mode);
8239: --
8271: fetch c_people_group_structure into l_id_flex_num;
8272: close c_people_group_structure;
8273:
8274: if g_debug then
8275: hr_utility.set_location (l_package||' Create L PER ACTs ',20);
8276: hr_utility.set_location ('p_mode : '||p_mode,6);
8277: end if;
8278: ben_benbatch_persons.create_life_person_actions
8279: (p_benefit_action_id => l_benefit_action_id,
8272: close c_people_group_structure;
8273:
8274: if g_debug then
8275: hr_utility.set_location (l_package||' Create L PER ACTs ',20);
8276: hr_utility.set_location ('p_mode : '||p_mode,6);
8277: end if;
8278: ben_benbatch_persons.create_life_person_actions
8279: (p_benefit_action_id => l_benefit_action_id,
8280: p_business_group_id => p_business_group_id,
8324: p_lf_evt_oper_cd => p_lf_evt_oper_cd /* GSP Rate Sync */
8325: );
8326:
8327: if g_debug then
8328: hr_utility.set_location (l_package||' Dn Create L PER ACTs ',20);
8329: end if;
8330: --
8331: elsif p_mode in ('U','D') then
8332: --
8417: l_benefit_action_id := p_benefit_action_id;
8418: --
8419: end if;
8420: if g_debug then
8421: hr_utility.set_location (l_package,30);
8422: end if;
8423: --
8424: if l_num_ranges = 0 then
8425: --
8443:
8444: if p_commit_data = 'Y' then
8445: --
8446: if g_debug then
8447: hr_utility.set_location ('Threads = '||l_threads,10);
8448: hr_utility.set_location ('Ranges = '||l_num_ranges,10);
8449: end if;
8450: --
8451: -- Set l_threads = l_threads - 1 as the master becomes a thread
8444: if p_commit_data = 'Y' then
8445: --
8446: if g_debug then
8447: hr_utility.set_location ('Threads = '||l_threads,10);
8448: hr_utility.set_location ('Ranges = '||l_num_ranges,10);
8449: end if;
8450: --
8451: -- Set l_threads = l_threads - 1 as the master becomes a thread
8452: --
8590: --
8591: end if;
8592: --
8593: if g_debug then
8594: hr_utility.set_location ('Leaving '||l_package,10);
8595: end if;
8596: --
8597: exception
8598: -- Bug 3870204
8666: l_bft_id number;
8667: --
8668: begin
8669: --
8670: g_debug := hr_utility.debug_enabled;
8671: if g_debug then
8672: l_package := g_package||'.process';
8673: hr_utility.set_location ('Entering '||l_package,10);
8674: end if;
8669: --
8670: g_debug := hr_utility.debug_enabled;
8671: if g_debug then
8672: l_package := g_package||'.process';
8673: hr_utility.set_location ('Entering '||l_package,10);
8674: end if;
8675: --
8676: l_bft_id := p_benefit_action_id;
8677: --
8675: --
8676: l_bft_id := p_benefit_action_id;
8677: --
8678: if g_debug then
8679: hr_utility.set_location ('p_mode : '||p_mode,4);
8680: end if;
8681: -- Bug 5857493
8682: if p_audit_log_flag ='Y' then
8683: ben_benbatch_persons.g_audit_flag := true;
8742: ,p_lf_evt_oper_cd => p_lf_evt_oper_cd -- GSP Rate Sync : Life Event Operation code
8743: ,p_cwb_person_type => p_cwb_person_type);
8744: --
8745: if g_debug then
8746: hr_utility.set_location ('Leaving '||l_package,10);
8747: end if;
8748: --
8749: end process;
8750: --
8775: begin
8776: --
8777: if g_debug then
8778: l_package := g_package||'.get_comp_object_name';
8779: hr_utility.set_location ('Entering '||l_package,10);
8780: end if;
8781: --
8782: if p_oipl_id is not null then
8783: --
8834: --
8835: end if;
8836: --
8837: if g_debug then
8838: hr_utility.set_location ('Leaving '||l_package,10);
8839: end if;
8840: --
8841: end get_comp_object_name;
8842: --
8867: l_person_prtn c_person_prtn%rowtype;
8868: --
8869: begin
8870: --
8871: g_debug := hr_utility.debug_enabled;
8872: if g_debug then
8873: l_package := g_package||'.cache_person_information';
8874: hr_utility.set_location ('Entering '||l_package,10);
8875: hr_utility.set_location ('Entering '||p_effective_date,10);
8870: --
8871: g_debug := hr_utility.debug_enabled;
8872: if g_debug then
8873: l_package := g_package||'.cache_person_information';
8874: hr_utility.set_location ('Entering '||l_package,10);
8875: hr_utility.set_location ('Entering '||p_effective_date,10);
8876: end if;
8877: --
8878: -- Open cursor to see if the person holds emp person type status
8871: g_debug := hr_utility.debug_enabled;
8872: if g_debug then
8873: l_package := g_package||'.cache_person_information';
8874: hr_utility.set_location ('Entering '||l_package,10);
8875: hr_utility.set_location ('Entering '||p_effective_date,10);
8876: end if;
8877: --
8878: -- Open cursor to see if the person holds emp person type status
8879: --
8906: --
8907: close c_person_prtn;
8908:
8909: if g_debug then
8910: hr_utility.set_location ('Done c_person_prtn '||l_package,40);
8911: end if;
8912: --
8913: -- We need to do the assignment stuff seperately as we can't outer join
8914: -- as we need assignments with primary flags and applicants have non
8916: -- statements, although a fix could be to do a union to get the value
8917: -- for the assignment id.
8918: --
8919: if g_debug then
8920: hr_utility.set_location ('Leaving '||l_package,100);
8921: end if;
8922: --
8923: end cache_person_information;
8924: -- ---------------------------------------------------------------------
8942: l_typ_rec ben_person_object.g_cache_typ_table;
8943: --
8944: begin
8945: --
8946: g_debug := hr_utility.debug_enabled;
8947: if g_debug then
8948: l_package := g_package||'.person_header';
8949: hr_utility.set_location ('Entering '||l_package,10);
8950: end if;
8945: --
8946: g_debug := hr_utility.debug_enabled;
8947: if g_debug then
8948: l_package := g_package||'.person_header';
8949: hr_utility.set_location ('Entering '||l_package,10);
8950: end if;
8951: --
8952: -- Cache person data
8953: --
8955: (p_person_id => p_person_id,
8956: p_business_group_id => p_business_group_id,
8957: p_effective_date => p_effective_date);
8958: if g_debug then
8959: hr_utility.set_location ('Dn Cac Per Inf '||l_package,10);
8960: end if;
8961: --
8962: -- This should display something like this
8963: --
9023: --
9024: end if;
9025: --
9026: if g_debug then
9027: hr_utility.set_location ('BPO_GO PAD '||l_package,10);
9028: end if;
9029: ben_person_object.get_object(p_person_id => p_person_id,
9030: p_rec => l_pad_rec);
9031: --
9092: benutils.id(l_pay_rec.payroll_id);
9093: benutils.write(p_text => l_output_string);
9094: --
9095: if g_debug then
9096: hr_utility.set_location ('Leaving '||l_package,10);
9097: end if;
9098: --
9099: end person_header;
9100: --
9128: l_typ_rec ben_person_object.g_cache_typ_table;
9129: --
9130: BEGIN
9131: --
9132: g_debug := hr_utility.debug_enabled;
9133:
9134: IF g_debug
9135: THEN
9136: l_package := g_package || '.person_header';
9133:
9134: IF g_debug
9135: THEN
9136: l_package := g_package || '.person_header';
9137: hr_utility.set_location ('Entering ' || l_package, 10);
9138: END IF;
9139:
9140: --
9141: -- This should display something like this
9226:
9227: --
9228: IF g_debug
9229: THEN
9230: hr_utility.set_location ('BPO_GO PAD ' || l_package, 10);
9231: END IF;
9232:
9233: ben_person_object.get_object (p_person_id => p_person_id,
9234: p_rec => l_pad_rec
9313:
9314: --
9315: IF g_debug
9316: THEN
9317: hr_utility.set_location ('Leaving ' || l_package, 10);
9318: END IF;
9319: --
9320: END person_header_new;
9321: --
9387: l_validate boolean;
9388: --
9389: begin
9390: --
9391: g_debug := hr_utility.debug_enabled;
9392: if g_debug then
9393: l_package := g_package||'.evaluate_life_events';
9394: hr_utility.set_location ('Entering ' || l_package,10);
9395: hr_utility.set_location ('p_mode : ' || p_mode,10);
9390: --
9391: g_debug := hr_utility.debug_enabled;
9392: if g_debug then
9393: l_package := g_package||'.evaluate_life_events';
9394: hr_utility.set_location ('Entering ' || l_package,10);
9395: hr_utility.set_location ('p_mode : ' || p_mode,10);
9396: end if;
9397: --
9398: -- Method of Operation
9391: g_debug := hr_utility.debug_enabled;
9392: if g_debug then
9393: l_package := g_package||'.evaluate_life_events';
9394: hr_utility.set_location ('Entering ' || l_package,10);
9395: hr_utility.set_location ('p_mode : ' || p_mode,10);
9396: end if;
9397: --
9398: -- Method of Operation
9399: -- ===================
9449: if (p_mode in ('C', 'W')) or
9450: (p_mode = 'G' and l_param_rec.date_from is not null) then
9451: --
9452: if g_debug then
9453: hr_utility.set_location('Create potential',10);
9454: end if;
9455: if p_mode in ('C', 'W') then
9456: --
9457: l_cv_ler_id := p_ler_id;
9487: --
9488: -- Create potential life event
9489: --
9490: if g_debug then
9491: hr_utility.set_location('Really created GSP potential',10);
9492: end if;
9493: ben_ptnl_ler_for_per_api.create_ptnl_ler_for_per
9494: (p_validate => false
9495: ,p_ptnl_ler_for_per_id => l_ptnl_ler_for_per_id
9508: ,p_effective_date => p_effective_date
9509: ,p_dtctd_dt => p_effective_date);
9510: --
9511: if g_debug then
9512: hr_utility.set_location('Finished created potential',10);
9513: end if;
9514: --
9515: end if;
9516: --
9524: --
9525: if p_mode in ('C', 'L') then
9526: --
9527: if g_debug then
9528: hr_utility.set_location('Evaluate potential',10);
9529: end if;
9530: fnd_message.set_token('PROC','ben_evaluate_ptnl_lf_evt');
9531: --
9532: if p_validate = 'Y'
9549: elsif p_mode = 'I' then
9550: --
9551: -- iRec
9552: if g_debug then
9553: hr_utility.set_location('Evaluate iRec Potential LER',10);
9554: end if;
9555: --
9556: fnd_message.set_token('PROC','ben_evaluate_ptnl_lf_evt');
9557: --
9572: --
9573: elsif p_mode = 'W' then
9574: --
9575: if g_debug then
9576: hr_utility.set_location('CWB Evaluate potential',10);
9577: end if;
9578: fnd_message.set_token('PROC','cwb_eval_ptnl_per_for_ler');
9579: --
9580: ben_evaluate_ptnl_lf_evt.cwb_eval_ptnl_per_for_ler
9677: --
9678: end if;
9679: --
9680: if g_debug then
9681: hr_utility.set_location ('Done get ale ' || l_package,30);
9682: end if;
9683: --
9684: -- For life event collision detect any life event
9685: -- which was backed out and occured on same day.
9699: );
9700: end if;
9701: --
9702: if g_debug then
9703: hr_utility.set_location ('Dn BLECR_GOBP ' || l_package,30);
9704: end if;
9705: --
9706: -- PB : 5422 :
9707: -- Now if benmngle is run in Life event mode and the winner
9794: p_commit => l_commit);
9795: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
9796: fnd_message.set_token('PROC','ben_related_person_ler_api');
9797: if g_debug then
9798: hr_utility.set_location (l_package||' create_rel_per_ler ' ,20);
9799: end if;
9800: --
9801: -- CWB Changes ABSENCES , GRADE/STEP : no need to create related ler's
9802: --
9823: then
9824: --
9825: -- GSP Rate Sync : For this case we would not build compensation object list, but get current grade ladder / grade step
9826: -- and populate g_cache_proc_object in procedure process_comp_objects later
9827: hr_utility.set_location('GSP Rate Sync : Do not build comp obj list here', 23);
9828: --
9829: else
9830: if g_debug then
9831: hr_utility.set_location (l_package||' Bef BCOL ' ,25);
9827: hr_utility.set_location('GSP Rate Sync : Do not build comp obj list here', 23);
9828: --
9829: else
9830: if g_debug then
9831: hr_utility.set_location (l_package||' Bef BCOL ' ,25);
9832: end if;
9833:
9834: ben_comp_object_list.build_comp_object_list
9835: (p_benefit_action_id => benutils.g_benefit_action_id
9855: ,p_lmt_prpnip_by_org_flag => l_param_rec.lmt_prpnip_by_org_flag
9856: ,p_person_id => p_person_id
9857: );
9858: if g_debug then
9859: hr_utility.set_location (l_package||' Dn BCOL ' ,27);
9860: end if;
9861: --
9862: end if;
9863: --
9964: l_ler_batch_rec.effective_date := p_effective_date;
9965: --
9966: benutils.write(p_rec => l_ler_batch_rec);
9967: if g_debug then
9968: hr_utility.set_location (l_package,60);
9969: end if;
9970: if l_rec.per_in_ler_id is null then
9971: ben_person_life_event_api.create_person_life_Event
9972: (p_validate => false,
10044: -- Build the comp object list in evaluate_life_events
10045: -- if comp objects selection is based on person's org id.
10046: --
10047: if g_debug then
10048: hr_utility.set_location (' Temp BCOL '||l_package,10);
10049: end if;
10050: ben_comp_object_list.build_comp_object_list
10051: (p_benefit_action_id => benutils.g_benefit_action_id
10052: ,p_comp_selection_rule_id => l_param_rec.comp_selection_rl
10079: ,p_business_group_id => p_business_group_id
10080: ,p_effective_date => p_effective_date
10081: );
10082: if g_debug then
10083: hr_utility.set_location (' Dn Temp BCOL '||l_package,10);
10084: end if;
10085: --
10086: end if;
10087: --
10085: --
10086: end if;
10087: --
10088: if g_debug then
10089: hr_utility.set_location ('Leaving '||l_package,10);
10090: end if;
10091: --
10092: exception
10093: --
10625: --
10626: -- Defer ENH.
10627: begin
10628: --
10629: g_debug := hr_utility.debug_enabled;
10630: if g_debug then
10631: l_package :=g_package||'.process_comp_objects';
10632: hr_utility.set_location ('Entering '||l_package,10);
10633: end if;
10628: --
10629: g_debug := hr_utility.debug_enabled;
10630: if g_debug then
10631: l_package :=g_package||'.process_comp_objects';
10632: hr_utility.set_location ('Entering '||l_package,10);
10633: end if;
10634: --
10635: -- Start - Added by Gopal Venkataraman 3/27/01 bug 1636071
10636: -- also changed all following p_mode to l_mode.
10649: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
10650: if l_mode not in ('A','P','S','T') then
10651: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
10652: if g_debug then
10653: hr_utility.set_location('mode'||l_mode,11);
10654: end if;
10655: --
10656: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
10657: if (l_mode = 'U'or l_mode = 'R' or l_mode = 'D') then
10735: end if;
10736: --
10737: end if;
10738: if g_debug then
10739: hr_utility.set_location('Current OVN '||l_rec.object_version_number,10);
10740: hr_utility.set_location('lf evt date '||l_rec.lf_evt_ocrd_dt,11);
10741: end if;
10742: end if;
10743: --
10736: --
10737: end if;
10738: if g_debug then
10739: hr_utility.set_location('Current OVN '||l_rec.object_version_number,10);
10740: hr_utility.set_location('lf evt date '||l_rec.lf_evt_ocrd_dt,11);
10741: end if;
10742: end if;
10743: --
10744: -- Setup environment for person being processed.
10743: --
10744: -- Setup environment for person being processed.
10745: --
10746: if g_debug then
10747: hr_utility.set_location (l_package||' Set env ',20);
10748: end if;
10749: ben_env_object.setenv(p_lf_evt_ocrd_dt => l_rec.lf_evt_ocrd_dt);
10750: --
10751: -- Clear eligibility caches
10848: );
10849: end if;
10850: --
10851: if g_debug then
10852: hr_utility.set_location ('Life event occured datee'||l_pil_row.lf_evt_ocrd_dt,11);
10853: end if;
10854: -- Assign comp object cache to a local variable
10855: --
10856: l_comp_obj_tree := g_cache_proc_object;
10920: p_persons_plip_id => l_gsp_plip_id,
10921: p_prog_style => l_prgr_style);
10922: */
10923: if g_debug then
10924: hr_utility.set_location('p_persons_pgm_id :'||l_gsp_pgm_id,20);
10925: hr_utility.set_location('p_persons_plip_id :'||l_gsp_plip_id,20);
10926: hr_utility.set_location('p_prog_style :'||l_prgr_style,20);
10927: hr_utility.set_location('l_gsp_oipl_id :' || l_gsp_oipl_id,20);
10928: end if;
10921: p_prog_style => l_prgr_style);
10922: */
10923: if g_debug then
10924: hr_utility.set_location('p_persons_pgm_id :'||l_gsp_pgm_id,20);
10925: hr_utility.set_location('p_persons_plip_id :'||l_gsp_plip_id,20);
10926: hr_utility.set_location('p_prog_style :'||l_prgr_style,20);
10927: hr_utility.set_location('l_gsp_oipl_id :' || l_gsp_oipl_id,20);
10928: end if;
10929: --
10922: */
10923: if g_debug then
10924: hr_utility.set_location('p_persons_pgm_id :'||l_gsp_pgm_id,20);
10925: hr_utility.set_location('p_persons_plip_id :'||l_gsp_plip_id,20);
10926: hr_utility.set_location('p_prog_style :'||l_prgr_style,20);
10927: hr_utility.set_location('l_gsp_oipl_id :' || l_gsp_oipl_id,20);
10928: end if;
10929: --
10930: -- no grade ladder defined (or) no grade, then skip the person
10923: if g_debug then
10924: hr_utility.set_location('p_persons_pgm_id :'||l_gsp_pgm_id,20);
10925: hr_utility.set_location('p_persons_plip_id :'||l_gsp_plip_id,20);
10926: hr_utility.set_location('p_prog_style :'||l_prgr_style,20);
10927: hr_utility.set_location('l_gsp_oipl_id :' || l_gsp_oipl_id,20);
10928: end if;
10929: --
10930: -- no grade ladder defined (or) no grade, then skip the person
10931: --
10931: --
10932: if l_gsp_pgm_id is null or
10933: l_gsp_plip_id is null
10934: then
10935: hr_utility.set_location('Current GSP Grade Ladder / Grade / PLIP for person not found', 15);
10936: fnd_message.set_name('BEN','BEN_94094_PERSON_GRADE_NOT_FND');
10937: raise g_record_error;
10938: elsif l_prgr_style not in ('PQH_GSP_GP') and l_gsp_oipl_id is null /* Bug 3964719 */
10939: then
10936: fnd_message.set_name('BEN','BEN_94094_PERSON_GRADE_NOT_FND');
10937: raise g_record_error;
10938: elsif l_prgr_style not in ('PQH_GSP_GP') and l_gsp_oipl_id is null /* Bug 3964719 */
10939: then
10940: hr_utility.set_location('Current GSP OIPL for person not found', 15);
10941: fnd_message.set_name('BEN','BEN_94095_PERSON_STEP_NOT_FND');
10942: raise g_record_error;
10943: end if;
10944: --
11005: end if;
11006: --
11007: loop
11008: if g_debug then
11009: hr_utility.set_location (l_package||' Start Proc loop ',20);
11010: end if;
11011: --
11012: -- Comp object filtering. Navigate to the next comp object to be processed
11013: -- We do not need to filter in temporal mode because we do not check
11016: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
11017: if l_mode <> 'T' then
11018: --
11019: if g_debug then
11020: hr_utility.set_location (l_package||' Filtering ',20);
11021: end if;
11022: -- Bug#1900657
11023: if l_mode in ('U','D') then
11024: if l_lf_rec.per_in_ler_id is not null then
11086: );
11087: --
11088: end if;
11089: if g_debug then
11090: hr_utility.set_location (l_package||' Dn Filtering ',20);
11091: end if;
11092: --
11093: end if;
11094: --
11117:
11118: -- bof FONM Determine whther the pgm/pl set for FONM
11119:
11120: if g_debug then
11121: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
11122: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
11123: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
11124: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
11125: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
11118: -- bof FONM Determine whther the pgm/pl set for FONM
11119:
11120: if g_debug then
11121: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
11122: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
11123: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
11124: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
11125: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
11126: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11119:
11120: if g_debug then
11121: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
11122: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
11123: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
11124: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
11125: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
11126: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11127: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
11120: if g_debug then
11121: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
11122: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
11123: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
11124: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
11125: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
11126: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11127: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
11128: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11121: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
11122: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
11123: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
11124: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
11125: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
11126: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11127: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
11128: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11129: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
11122: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
11123: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
11124: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
11125: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
11126: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11127: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
11128: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11129: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
11130: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
11123: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
11124: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
11125: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
11126: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11127: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
11128: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11129: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
11130: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
11131: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
11124: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
11125: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
11126: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11127: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
11128: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11129: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
11130: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
11131: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
11132: end if;
11125: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
11126: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11127: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
11128: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11129: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
11130: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
11131: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
11132: end if;
11133: -- FONM II
11126: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11127: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
11128: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11129: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
11130: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
11131: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
11132: end if;
11133: -- FONM II
11134: if l_pl_nip = 'Y'
11127: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
11128: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11129: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
11130: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
11131: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
11132: end if;
11133: -- FONM II
11134: if l_pl_nip = 'Y'
11135: -- whne the new program
11147: )
11148: )
11149: or ben_manage_life_events.fonm is null then
11150:
11151: hr_utility.set_location (' calling fonm status ' ,30);
11152: ben_use_cvg_rt_date.get_csd_rsd_Status
11153: (p_pgm_id => l_comp_obj_tree(l_treeele_num).par_pgm_id
11154: ,p_ptip_id => l_comp_obj_tree(l_treeele_num).par_ptip_id
11155: ,p_plip_id => l_comp_obj_tree(l_treeele_num).par_plip_id
11156: ,p_pl_id => l_comp_obj_tree(l_treeele_num).par_pl_id
11157: ,p_effective_date => p_effective_date
11158: ,p_status => ben_manage_life_events.fonm
11159: ) ;
11160: hr_utility.set_location (' fonm ' ||ben_manage_life_events.fonm ,30);
11161: end if ;
11162: -- eof FONM
11163:
11164: -- Set up environment for retrieval of comp object information
11170: elsif l_comp_obj_tree(l_treeele_num).par_pgm_id is not null then
11171: --
11172: g_last_pgm_id := l_comp_obj_tree(l_treeele_num).par_pgm_id;
11173:
11174: hr_utility.set_location (' fonm ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11175:
11176: if l_comp_obj_tree(l_treeele_num).par_ptip_id is not null then
11177: l_last_ptip_id := l_comp_obj_tree(l_treeele_num).par_ptip_id ;
11178: hr_utility.set_location (' fonm plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11174: hr_utility.set_location (' fonm ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
11175:
11176: if l_comp_obj_tree(l_treeele_num).par_ptip_id is not null then
11177: l_last_ptip_id := l_comp_obj_tree(l_treeele_num).par_ptip_id ;
11178: hr_utility.set_location (' fonm plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
11179: -- if the plip is null then the fonm for ptio
11180: if l_comp_obj_tree(l_treeele_num).par_plip_id is null then
11181:
11182: l_ptip_fonm := ben_manage_life_events.fonm ;
11190: --
11191: -- Check if the audit log flag is on
11192: --
11193: if g_debug then
11194: hr_utility.set_location (l_package||' get_comp_object_name ',30);
11195: end if;
11196: if l_env.audit_log_flag = 'Y' then
11197: --
11198: get_comp_object_name
11234: );
11235:
11236: if g_debug then
11237: if l_evaluate_eligibility then
11238: hr_utility.set_location('Processing '||l_comp_obj_tree_row.par_pgm_id||','||l_comp_obj_tree_row.par_ptip_id||','||l_comp_obj_tree_row.par_plip_id||','||l_comp_obj_tree_row.par_pl_id||','||l_oipl_id,80);
11239: else
11240: hr_utility.set_location('Skipping '||l_comp_obj_tree_row.par_pgm_id||','||l_comp_obj_tree_row.par_ptip_id||','||l_comp_obj_tree_row.par_plip_id||','||l_comp_obj_tree_row.par_pl_id||','||l_oipl_id,80);
11241: end if;
11242: end if;
11236: if g_debug then
11237: if l_evaluate_eligibility then
11238: hr_utility.set_location('Processing '||l_comp_obj_tree_row.par_pgm_id||','||l_comp_obj_tree_row.par_ptip_id||','||l_comp_obj_tree_row.par_plip_id||','||l_comp_obj_tree_row.par_pl_id||','||l_oipl_id,80);
11239: else
11240: hr_utility.set_location('Skipping '||l_comp_obj_tree_row.par_pgm_id||','||l_comp_obj_tree_row.par_ptip_id||','||l_comp_obj_tree_row.par_plip_id||','||l_comp_obj_tree_row.par_pl_id||','||l_oipl_id,80);
11241: end if;
11242: end if;
11243:
11244: end if;
11252: * If Evaluate Eligibility is Yes, then through evaluate eligibility process for current
11253: * grade ladder, grade and step
11254: * Make a call to PQHGSP package, that will create electable choices and rates.
11255: */
11256: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
11257: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
11258: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
11259: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
11260: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
11253: * grade ladder, grade and step
11254: * Make a call to PQHGSP package, that will create electable choices and rates.
11255: */
11256: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
11257: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
11258: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
11259: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
11260: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
11261: --
11254: * Make a call to PQHGSP package, that will create electable choices and rates.
11255: */
11256: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
11257: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
11258: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
11259: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
11260: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
11261: --
11262:
11255: */
11256: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
11257: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
11258: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
11259: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
11260: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
11261: --
11262:
11263: -- This procedure will create Electable Choices and Rates
11256: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
11257: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
11258: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
11259: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
11260: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
11261: --
11262:
11263: -- This procedure will create Electable Choices and Rates
11264: pqh_gsp_post_process.gsp_rate_sync
11293: --
11294: -- Set up participation eligibility
11295: --
11296: if g_debug then
11297: hr_utility.set_location (l_package||' Set Part Elig ',80);
11298: end if;
11299: --
11300: -- Set up comp object context rows
11301: --
11338: --
11339: end if;
11340: --
11341: if g_debug then
11342: hr_utility.set_location(' g_defer_deenrol_flag' || g_defer_deenrol_flag, 9653);
11343: end if;
11344: hr_utility.set_location (' FONM : ' || ben_manage_life_events.fonm ,80);
11345: -- BOF FONM
11346: if l_mode in ('L','C') and -- Bug 6390880
11340: --
11341: if g_debug then
11342: hr_utility.set_location(' g_defer_deenrol_flag' || g_defer_deenrol_flag, 9653);
11343: end if;
11344: hr_utility.set_location (' FONM : ' || ben_manage_life_events.fonm ,80);
11345: -- BOF FONM
11346: if l_mode in ('L','C') and -- Bug 6390880
11347: ben_manage_life_events.fonm = 'Y' then
11348:
11345: -- BOF FONM
11346: if l_mode in ('L','C') and -- Bug 6390880
11347: ben_manage_life_events.fonm = 'Y' then
11348:
11349: hr_utility.set_location (' FONM : Begin ',80);
11350: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
11351: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
11352: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
11353: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
11346: if l_mode in ('L','C') and -- Bug 6390880
11347: ben_manage_life_events.fonm = 'Y' then
11348:
11349: hr_utility.set_location (' FONM : Begin ',80);
11350: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
11351: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
11352: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
11353: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
11354: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
11347: ben_manage_life_events.fonm = 'Y' then
11348:
11349: hr_utility.set_location (' FONM : Begin ',80);
11350: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
11351: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
11352: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
11353: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
11354: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
11355: if g_debug then
11348:
11349: hr_utility.set_location (' FONM : Begin ',80);
11350: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
11351: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
11352: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
11353: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
11354: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
11355: if g_debug then
11356: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11349: hr_utility.set_location (' FONM : Begin ',80);
11350: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
11351: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
11352: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
11353: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
11354: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
11355: if g_debug then
11356: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11357: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11350: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
11351: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
11352: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
11353: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
11354: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
11355: if g_debug then
11356: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11357: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11358: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11352: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
11353: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
11354: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
11355: if g_debug then
11356: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11357: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11358: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11359: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11360: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11353: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
11354: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
11355: if g_debug then
11356: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11357: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11358: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11359: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11360: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11361: end if;
11354: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
11355: if g_debug then
11356: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11357: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11358: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11359: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11360: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11361: end if;
11362:
11355: if g_debug then
11356: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11357: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11358: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11359: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11360: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11361: end if;
11362:
11363: /* if l_mode in ('L') then
11356: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11357: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11358: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11359: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11360: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11361: end if;
11362:
11363: /* if l_mode in ('L') then
11364:
11378: close c_enrt_perd_id ;
11379:
11380:
11381: end if ;*/
11382: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
11383: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
11384: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
11385: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
11386: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
11379:
11380:
11381: end if ;*/
11382: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
11383: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
11384: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
11385: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
11386: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
11387: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
11380:
11381: end if ;*/
11382: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
11383: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
11384: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
11385: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
11386: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
11387: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
11388: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
11381: end if ;*/
11382: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
11383: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
11384: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
11385: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
11386: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
11387: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
11388: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
11389: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
11382: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
11383: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
11384: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
11385: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
11386: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
11387: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
11388: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
11389: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
11390:
11383: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
11384: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
11385: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
11386: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
11387: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
11388: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
11389: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
11390:
11391: ben_determine_date.rate_and_coverage_dates
11384: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
11385: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
11386: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
11387: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
11388: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
11389: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
11390:
11391: ben_determine_date.rate_and_coverage_dates
11392: (p_cache_mode => TRUE
11385: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
11386: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
11387: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
11388: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
11389: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
11390:
11391: ben_determine_date.rate_and_coverage_dates
11392: (p_cache_mode => TRUE
11393: ,p_per_in_ler_id => l_rec.per_in_ler_id
11417: ,p_rt_end_dt_rl => l_dummy_rt_end_dt_rl
11418: ,p_effective_date => p_effective_date
11419: ,p_lf_evt_ocrd_dt => nvl(l_rec.lf_evt_ocrd_dt, p_effective_date)
11420: );
11421: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
11422: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
11423: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
11424: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
11425: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
11418: ,p_effective_date => p_effective_date
11419: ,p_lf_evt_ocrd_dt => nvl(l_rec.lf_evt_ocrd_dt, p_effective_date)
11420: );
11421: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
11422: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
11423: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
11424: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
11425: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
11426: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
11419: ,p_lf_evt_ocrd_dt => nvl(l_rec.lf_evt_ocrd_dt, p_effective_date)
11420: );
11421: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
11422: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
11423: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
11424: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
11425: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
11426: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
11427: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
11420: );
11421: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
11422: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
11423: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
11424: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
11425: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
11426: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
11427: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
11428: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
11421: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
11422: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
11423: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
11424: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
11425: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
11426: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
11427: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
11428: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
11429: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
11422: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
11423: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
11424: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
11425: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
11426: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
11427: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
11428: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
11429: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
11430: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
11423: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
11424: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
11425: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
11426: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
11427: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
11428: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
11429: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
11430: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
11431: --
11424: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
11425: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
11426: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
11427: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
11428: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
11429: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
11430: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
11431: --
11432: -- If previous cvg start date and current date is different then
11425: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
11426: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
11427: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
11428: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
11429: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
11430: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
11431: --
11432: -- If previous cvg start date and current date is different then
11433: -- clear the caches.
11426: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
11427: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
11428: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
11429: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
11430: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
11431: --
11432: -- If previous cvg start date and current date is different then
11433: -- clear the caches.
11434: --
11435: if nvl(l_fonm_cvg_strt_dt, hr_api.g_sot) <>
11436: l_rec_enrt_cvg_strt_dt
11437: then
11438: --
11439: hr_utility.set_location('clearing cache bnmngle '||l_fonm_cvg_strt_dt || ' / ' || l_rec_enrt_cvg_strt_dt ,10);
11440: ben_use_cvg_rt_date.fonm_clear_down_cache;
11441: --
11442: end if;
11443: --
11443: --
11444: ben_manage_life_events.g_fonm_cvg_strt_dt := l_rec_enrt_cvg_strt_dt ;
11445: l_fonm_cvg_strt_dt := l_rec_enrt_cvg_strt_dt ;
11446: --
11447: hr_utility.set_location(' g_fonm_cvg_strt_dt '||g_fonm_cvg_strt_dt,110);
11448: --
11449: end if;
11450: --
11451: -- EOF FONM
11449: end if;
11450: --
11451: -- EOF FONM
11452: if g_debug then
11453: hr_utility.set_location (l_package||' FND Mess ',80);
11454: hr_utility.set_location ('p_derivable_factors '||p_derivable_factors,80);
11455: end if;
11456: l_comp_rec:=l_d_comp_rec;
11457: l_oiplip_rec:=l_d_oiplip_rec;
11450: --
11451: -- EOF FONM
11452: if g_debug then
11453: hr_utility.set_location (l_package||' FND Mess ',80);
11454: hr_utility.set_location ('p_derivable_factors '||p_derivable_factors,80);
11455: end if;
11456: l_comp_rec:=l_d_comp_rec;
11457: l_oiplip_rec:=l_d_oiplip_rec;
11458: --
11458: --
11459: if p_derivable_factors <> 'NONE' then
11460: --
11461: if g_debug then
11462: hr_utility.set_location (l_package||' fnd_message_call ',30);
11463: end if;
11464: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11465: fnd_message.set_token('PROC','ben_derive_part_and_rate_facts');
11466: if g_debug then
11463: end if;
11464: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11465: fnd_message.set_token('PROC','ben_derive_part_and_rate_facts');
11466: if g_debug then
11467: hr_utility.set_location (l_package||' done fnd_message_call ',30);
11468: hr_utility.set_location (l_package||' DRAF ',15);
11469: end if;
11470: ben_derive_part_and_rate_facts.derive_rates_and_factors
11471: (p_comp_obj_tree_row => l_comp_obj_tree_row
11464: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11465: fnd_message.set_token('PROC','ben_derive_part_and_rate_facts');
11466: if g_debug then
11467: hr_utility.set_location (l_package||' done fnd_message_call ',30);
11468: hr_utility.set_location (l_package||' DRAF ',15);
11469: end if;
11470: ben_derive_part_and_rate_facts.derive_rates_and_factors
11471: (p_comp_obj_tree_row => l_comp_obj_tree_row
11472: --
11493: ,p_effective_date => least(p_effective_date, nvl(l_rec.lf_evt_ocrd_dt,p_effective_date))
11494: ,p_lf_evt_ocrd_dt => nvl(l_rec.lf_evt_ocrd_dt,p_effective_date)
11495: );
11496: if g_debug then
11497: hr_utility.set_location (l_package||' Done DRAF ',15);
11498: end if;
11499: --
11500: else
11501: --
11501: --
11502: -- Derive factor direct from the previous eligibility records.
11503: --
11504: if g_debug then
11505: hr_utility.set_location (l_package||' Ass Der facts ',50);
11506: end if;
11507: --
11508: ben_derive_part_and_rate_facts.cache_data_structures
11509: (p_comp_obj_tree_row => l_comp_obj_tree_row
11530: --
11531: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11532: fnd_message.set_token('PROC','ben_determine_eligibility');
11533: if g_debug then
11534: hr_utility.set_location (l_package||' Dn FND Mess ',80);
11535: end if;
11536: --
11537: -- Initialise the dependent eligibility related globals.
11538: -- They should be initialised for every comp object.
11542: ben_determine_dpnt_eligibility.g_egd_table :=
11543: ben_determine_dpnt_eligibility.g_egd_table_temp;
11544: --
11545: if g_debug then
11546: hr_utility.set_location (l_package||' BENDETEL ',80);
11547: end if;
11548: --
11549: ben_determine_eligibility.determine_elig_prfls
11550: (p_comp_obj_tree_row => l_comp_obj_tree_row
11581: ,p_still_elig => l_still_elig
11582: ,p_still_inelig => l_still_inelig
11583: );
11584: if g_debug then
11585: hr_utility.set_location (l_package||' Done BENDETEL ',85);
11586: end if;
11587: --
11588: -- Bug 5232223
11589: --
11611: ,p_par_elig_state => l_par_elig_state
11612: );
11613: --
11614: if g_debug then
11615: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11616: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11617: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11618: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11619: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11612: );
11613: --
11614: if g_debug then
11615: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11616: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11617: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11618: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11619: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11620: end if;
11613: --
11614: if g_debug then
11615: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11616: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11617: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11618: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11619: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11620: end if;
11621: --
11614: if g_debug then
11615: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11616: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11617: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11618: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11619: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11620: end if;
11621: --
11622: -- Don't run enrolment_requirements for levels other than plan and oipl.
11615: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11616: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11617: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11618: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11619: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11620: end if;
11621: --
11622: -- Don't run enrolment_requirements for levels other than plan and oipl.
11623: -- Don't run it if the ler_id is null.
11637: -- Task 131 : Eligible dependent rows are already created.
11638: -- Now update them with electable choice id.
11639: --
11640: if g_debug then
11641: hr_utility.set_location (l_package||' St BENDEPEN ',85);
11642: end if;
11643: ben_determine_dpnt_eligibility.main
11644: (p_pgm_id => l_comp_obj_tree(l_treeele_num).par_pgm_id
11645: ,p_pl_id => l_comp_obj_tree(l_treeele_num).par_pl_id
11655: ,p_elig_per_opt_id => l_comp_obj_tree_row.elig_per_opt_id
11656: ,p_lf_evt_ocrd_dt => l_rec.lf_evt_ocrd_dt
11657: );
11658: if g_debug then
11659: hr_utility.set_location (l_package||' Dn BENDEPEN ',85);
11660: end if;
11661: --
11662: end if;
11663: --
11674: -------------------------------------------------------------------------------
11675: --Bug 12732878 ud changes start
11676: --if program level comp object is ineligible then inserting the comp object to ben_determine_eligibility2.g_cache_first_inelig_object
11677: --for checking any future records are there in ben_elig_per_f and ben_elig_per_opt_f tables.
11678: hr_utility.set_location('In the l_not_eligible if',20);
11679: if l_comp_obj_tree(l_treeele_num).pgm_id is not null then
11680: hr_utility.set_location('l_comp_obj_tree(l_treeele_num).pgm_id'||l_comp_obj_tree(l_treeele_num).pgm_id,10);
11681: ben_determine_eligibility2.g_cache_first_inelig_object.extend;
11682: ben_determine_eligibility2.g_cache_first_inelig_object
11676: --if program level comp object is ineligible then inserting the comp object to ben_determine_eligibility2.g_cache_first_inelig_object
11677: --for checking any future records are there in ben_elig_per_f and ben_elig_per_opt_f tables.
11678: hr_utility.set_location('In the l_not_eligible if',20);
11679: if l_comp_obj_tree(l_treeele_num).pgm_id is not null then
11680: hr_utility.set_location('l_comp_obj_tree(l_treeele_num).pgm_id'||l_comp_obj_tree(l_treeele_num).pgm_id,10);
11681: ben_determine_eligibility2.g_cache_first_inelig_object.extend;
11682: ben_determine_eligibility2.g_cache_first_inelig_object
11683: (ben_determine_eligibility2.g_cache_first_inelig_object.last).rowno :=
11684: ben_determine_eligibility2.g_cache_first_inelig_object.last;
11736: or not l_evaluate_eligibility
11737: then
11738: --
11739: if g_debug then
11740: hr_utility.set_location (' First In-Eligible BENMNGLE ',85);
11741: end if;
11742: --
11743: l_continue_loop := false;
11744: --
11744: --
11745: else
11746: --
11747: if g_debug then
11748: hr_utility.set_location (' Non-filter eligibility BENMNGLE ',85);
11749: end if;
11750: --
11751: l_continue_loop := true;
11752: --
11760: --
11761: if (g_defer_deenrol_flag = 'Y') then
11762: -- Add pgm/pln to cache
11763: if (g_debug) then
11764: hr_utility.set_location('DEFER Starts', 1039);
11765: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11766: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11767: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11768: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11761: if (g_defer_deenrol_flag = 'Y') then
11762: -- Add pgm/pln to cache
11763: if (g_debug) then
11764: hr_utility.set_location('DEFER Starts', 1039);
11765: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11766: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11767: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11768: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11769: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11762: -- Add pgm/pln to cache
11763: if (g_debug) then
11764: hr_utility.set_location('DEFER Starts', 1039);
11765: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11766: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11767: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11768: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11769: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11770: end if;
11763: if (g_debug) then
11764: hr_utility.set_location('DEFER Starts', 1039);
11765: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11766: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11767: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11768: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11769: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11770: end if;
11771: --
11764: hr_utility.set_location('DEFER Starts', 1039);
11765: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11766: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11767: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11768: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11769: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11770: end if;
11771: --
11772: if (l_defer_deenrl_tbl.COUNT > 0) then
11765: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11766: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11767: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11768: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11769: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11770: end if;
11771: --
11772: if (l_defer_deenrl_tbl.COUNT > 0) then
11773: if (l_comp_obj_tree(l_treeele_num).pl_nip <> 'Y') then
11772: if (l_defer_deenrl_tbl.COUNT > 0) then
11773: if (l_comp_obj_tree(l_treeele_num).pl_nip <> 'Y') then
11774: --
11775: if (g_debug) then
11776: hr_utility.set_location('DEFER tab_pgm_id '
11777: || l_defer_deenrl_tbl(l_defer_count).pgm_id , 1039);
11778: end if;
11779: --
11780: if (NVL(l_defer_deenrl_tbl(l_defer_count).pgm_id,-1) <>
11791: end if;
11792: else
11793: --
11794: if (g_debug) then
11795: hr_utility.set_location('DEFER tab_pl_id '
11796: || l_defer_deenrl_tbl(l_defer_count).pl_id , 1039);
11797: end if;
11798: --
11799: if (NVL(l_defer_deenrl_tbl(l_defer_count).pl_id,-1) <>
11809: --
11810: end if;
11811: end if;
11812: else
11813: hr_utility.set_location('DEFER First PGM/PLN ' , 1039);
11814: --
11815: l_defer_count := l_defer_count +1;
11816: if (l_comp_obj_tree(l_treeele_num).pl_nip <> 'Y') then
11817: l_defer_deenrl_tbl(l_defer_count).pgm_id :=
11830: --
11831: -- If Newly Inelig set Flag
11832: if (l_comp_obj_tree(l_treeele_num).elig_tran_state = 'NW_INELIG' ) then
11833: l_defer_deenrl_tbl(l_defer_count).newly_inelig_exists := true;
11834: hr_utility.set_location('DEFER NEWLY INELIG ' , 1039);
11835: end if;
11836: --
11837: end if;
11838: -- Defer enrollments ends;
11841: -- Don't run enrolment_requirements for levels other than plan and oipl.
11842: -- Don't run it if the ler_id is null.
11843: --
11844: if g_debug then
11845: hr_utility.set_location ('Before enrollment call. pl id :'||l_pl_id,10);
11846: hr_utility.set_location ('Before enrollment call. oipl id :'||l_oipl_id,10);
11847: hr_utility.set_location ('Before enrollment call. ler id :'||p_ler_id,10);
11848: hr_utility.set_location ('Before enrollment call. l_mode :'||l_mode,10);
11849: end if;
11842: -- Don't run it if the ler_id is null.
11843: --
11844: if g_debug then
11845: hr_utility.set_location ('Before enrollment call. pl id :'||l_pl_id,10);
11846: hr_utility.set_location ('Before enrollment call. oipl id :'||l_oipl_id,10);
11847: hr_utility.set_location ('Before enrollment call. ler id :'||p_ler_id,10);
11848: hr_utility.set_location ('Before enrollment call. l_mode :'||l_mode,10);
11849: end if;
11850: if (l_pl_id is not null
11843: --
11844: if g_debug then
11845: hr_utility.set_location ('Before enrollment call. pl id :'||l_pl_id,10);
11846: hr_utility.set_location ('Before enrollment call. oipl id :'||l_oipl_id,10);
11847: hr_utility.set_location ('Before enrollment call. ler id :'||p_ler_id,10);
11848: hr_utility.set_location ('Before enrollment call. l_mode :'||l_mode,10);
11849: end if;
11850: if (l_pl_id is not null
11851: or l_oipl_id is not null)
11844: if g_debug then
11845: hr_utility.set_location ('Before enrollment call. pl id :'||l_pl_id,10);
11846: hr_utility.set_location ('Before enrollment call. oipl id :'||l_oipl_id,10);
11847: hr_utility.set_location ('Before enrollment call. ler id :'||p_ler_id,10);
11848: hr_utility.set_location ('Before enrollment call. l_mode :'||l_mode,10);
11849: end if;
11850: if (l_pl_id is not null
11851: or l_oipl_id is not null)
11852: and p_ler_id is not null
11857: --
11858: ben_epe_cache.init_context_cobj_pileperow;
11859: --
11860: if g_debug then
11861: hr_utility.set_location (l_package||' FND Bf BENDENRR ',85);
11862: end if;
11863: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11864: fnd_message.set_token('PROC','ben_enrolment_requirements');
11865: --
11875: end if;
11876: end if;
11877: --
11878: if g_debug then
11879: hr_utility.set_location (l_package||' FND Af BENDENRR ',100);
11880: end if;
11881: ben_enrolment_requirements.enrolment_requirements
11882: (p_comp_obj_tree_row => l_comp_obj_tree_row
11883: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
11897: -- ,p_popl_enrt_typ_cycl_id => p_popl_enrt_typ_cycl_id
11898: ,p_asnd_lf_evt_dt => l_asnd_lf_evt_dt
11899: );
11900: if g_debug then
11901: hr_utility.set_location (l_package||' Dn BENDENRR ',100);
11902: end if;
11903: --
11904: -- If choice has not been created don't do dependent stuff
11905: --
11906: if l_elig_per_elctbl_chc_id is not null then
11907: --
11908: -- Defer Deenrollment
11909: if (g_defer_deenrol_flag = 'Y') then
11910: hr_utility.set_location('DEFER CHOICE EXISTS ' , 1039);
11911: l_defer_deenrl_tbl(l_defer_count).chc_exists := true;
11912: end if;
11913: --
11914: -- Set electable choice context row details
11919: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11920: fnd_message.set_token('PROC','ben_determine_dpnt_eligibility');
11921: --
11922: if g_debug then
11923: hr_utility.set_location (l_package||' BDDE_PUEWEID ',110);
11924: end if;
11925: --
11926: -- Task 131 : Eligible dependent rows are already created.
11927: -- Now update them with electable choice id.
11943: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11944: fnd_message.set_token('PROC','BEN_DETERMINE_CHC_CTFN');
11945: --
11946: if g_debug then
11947: hr_utility.set_location ('BDCC_MN '||l_package,10);
11948: end if;
11949: if l_mode <> 'D' then
11950: ben_determine_chc_ctfn.main
11951: (p_effective_date => p_effective_date,
11953: p_elig_per_elctbl_chc_id => l_elig_per_elctbl_chc_id,
11954: p_mode => l_mode);
11955: end if;
11956: if g_debug then
11957: hr_utility.set_location ('Dn BDCC_MN '||l_package,10);
11958: end if;
11959: --
11960: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11961: fnd_message.set_token('PROC','ben_determine_coverage');
11960: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11961: fnd_message.set_token('PROC','ben_determine_coverage');
11962: --
11963: if g_debug then
11964: hr_utility.set_location (l_package||' ben_determine_coverage.main ',110);
11965: end if;
11966: --
11967: if l_mode <> 'D' then
11968: ben_determine_coverage.main
11974: ,p_enb_valrow => l_enb_valrow
11975: );
11976: end if;
11977: if g_debug then
11978: hr_utility.set_location (l_package||' Dn DetCov_MN ',110);
11979: end if;
11980: --
11981: -- Initialise the current EPE row for the comp object loop
11982: --
12012: --
12013: ben_epe_cache.init_context_cobj_pileperow;
12014: --
12015: if g_debug then
12016: hr_utility.set_location (l_package||' FND Bf BENDENRR ',86);
12017: hr_utility.set_location ('l_oipl_id' ||l_oipl_id,87);
12018: end if;
12019: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
12020: fnd_message.set_token('PROC','ben_enrolment_requirements');
12013: ben_epe_cache.init_context_cobj_pileperow;
12014: --
12015: if g_debug then
12016: hr_utility.set_location (l_package||' FND Bf BENDENRR ',86);
12017: hr_utility.set_location ('l_oipl_id' ||l_oipl_id,87);
12018: end if;
12019: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
12020: fnd_message.set_token('PROC','ben_enrolment_requirements');
12021: --
12035: ,p_electable_flag => l_electable_flag
12036: ,p_asnd_lf_evt_dt => l_asnd_lf_evt_dt
12037: );
12038: if g_debug then
12039: hr_utility.set_location (l_package||' Dn BENDENRR ',200);
12040: end if;
12041: --
12042: -- If choice has not been created don't do dependent stuff
12043: --
12110: --
12111: end if;
12112: --
12113: if g_debug then
12114: hr_utility.set_location (l_package||' End Proc loop ',20);
12115: end if;
12116: --
12117: end loop;
12118: --
12116: --
12117: end loop;
12118: --
12119: if g_debug then
12120: hr_utility.set_location (l_package||' OUT Proc loop ',25);
12121: end if;
12122: --
12123: --------------------------------------------------------------------------
12124: --Bug 12732878 ud changes procedure start
12143: if (l_defer_deenrl_tbl.COUNT > 0) then
12144: --
12145: for defer_indx in l_defer_deenrl_tbl.FIRST..l_defer_deenrl_tbl.LAST loop
12146: --
12147: hr_utility.set_location ('DEFER loop '|| defer_indx, 1039);
12148: --
12149: if l_defer_deenrl_tbl(defer_indx).chc_exists then
12150: --
12151: hr_utility.set_location ('DEFER chc_exists' ,9653);
12147: hr_utility.set_location ('DEFER loop '|| defer_indx, 1039);
12148: --
12149: if l_defer_deenrl_tbl(defer_indx).chc_exists then
12150: --
12151: hr_utility.set_location ('DEFER chc_exists' ,9653);
12152: --
12153: if l_defer_deenrl_tbl(defer_indx).newly_inelig_exists then
12154: --
12155: l_defer_popl_id := null;
12153: if l_defer_deenrl_tbl(defer_indx).newly_inelig_exists then
12154: --
12155: l_defer_popl_id := null;
12156: l_defer_popl_ovn := null;
12157: hr_utility.set_location ('DEFER newly_inelig_exists' ,9653);
12158:
12159: --
12160: if (l_defer_deenrl_tbl(defer_indx).pgm_id is not null) then
12161: --
12158:
12159: --
12160: if (l_defer_deenrl_tbl(defer_indx).pgm_id is not null) then
12161: --
12162: hr_utility.set_location ('DEFER INSIDE PGM ' ,9653);
12163: open c_pel_defer (l_defer_deenrl_tbl(defer_indx).pgm_id, l_rec.per_in_ler_id);
12164: fetch c_pel_defer into l_pel_defer;
12165: if c_pel_defer%FOUND then
12166: --
12168: l_defer_popl_ovn := l_pel_defer.object_version_number;
12169: --
12170: end if;
12171: close c_pel_defer;
12172: hr_utility.set_location ('DEFER PGM' || l_pel_defer.pgm_id,9653);
12173: --
12174: elsif (l_defer_deenrl_tbl(defer_indx).pl_id is not null) then
12175: --
12176: hr_utility.set_location ('DEFER INSIDE PLN ' ,9653);
12172: hr_utility.set_location ('DEFER PGM' || l_pel_defer.pgm_id,9653);
12173: --
12174: elsif (l_defer_deenrl_tbl(defer_indx).pl_id is not null) then
12175: --
12176: hr_utility.set_location ('DEFER INSIDE PLN ' ,9653);
12177:
12178: open c_pel_pnip_defer (l_defer_deenrl_tbl(defer_indx).pl_id, l_rec.per_in_ler_id);
12179: fetch c_pel_pnip_defer into l_pel_pnip_defer;
12180: if c_pel_pnip_defer%FOUND then
12183: l_defer_popl_ovn := l_pel_pnip_defer.object_version_number;
12184: --
12185: end if;
12186: close c_pel_pnip_defer;
12187: hr_utility.set_location ('DEFER PL' || l_pel_pnip_defer.pl_id,9653);
12188: --
12189: end if;
12190: --
12191: if l_defer_popl_id IS NOT NULL then
12189: end if;
12190: --
12191: if l_defer_popl_id IS NOT NULL then
12192: --
12193: hr_utility.set_location ('DEFER UPDATED ' || l_defer_popl_id,9653);
12194: hr_utility.set_location ('DEFER OVN ' || l_defer_popl_ovn,9653);
12195: --
12196: ben_pil_elctbl_chc_popl_api.update_pil_elctbl_chc_popl
12197: (p_validate => FALSE,
12190: --
12191: if l_defer_popl_id IS NOT NULL then
12192: --
12193: hr_utility.set_location ('DEFER UPDATED ' || l_defer_popl_id,9653);
12194: hr_utility.set_location ('DEFER OVN ' || l_defer_popl_ovn,9653);
12195: --
12196: ben_pil_elctbl_chc_popl_api.update_pil_elctbl_chc_popl
12197: (p_validate => FALSE,
12198: p_pil_elctbl_chc_popl_id => l_defer_popl_id,
12204: --
12205: end if;
12206: else
12207: --
12208: hr_utility.set_location ('DEFER NEWLYINELIG ' ,9653);
12209: --
12210: if l_defer_deenrl_tbl(defer_indx).newly_inelig_exists then
12211: ben_newly_ineligible.main
12212: (p_person_id => p_person_id,
12220: end if;
12221: --
12222: end if;
12223: --
12224: hr_utility.set_location ('DEFER End loop ' ,9653);
12225: --
12226: end loop;
12227: --
12228: end if;
12260: -- Start 5055119
12261: IF l_mode IN ('U', 'R', 'S', 'P','D')
12262:
12263: THEN
12264: hr_utility.set_location('SSARKAR p_person_id '|| p_person_id,9909);
12265: hr_utility.set_location('SSARKAR l_pil_row.per_in_ler_id '|| l_pil_row.per_in_ler_id,9909);
12266: hr_utility.set_location('SSARKAR p_effective_date '|| p_effective_date,9909);
12267:
12268: ben_manage_unres_life_events.end_date_elig_per_rows (p_person_id => p_person_id,
12261: IF l_mode IN ('U', 'R', 'S', 'P','D')
12262:
12263: THEN
12264: hr_utility.set_location('SSARKAR p_person_id '|| p_person_id,9909);
12265: hr_utility.set_location('SSARKAR l_pil_row.per_in_ler_id '|| l_pil_row.per_in_ler_id,9909);
12266: hr_utility.set_location('SSARKAR p_effective_date '|| p_effective_date,9909);
12267:
12268: ben_manage_unres_life_events.end_date_elig_per_rows (p_person_id => p_person_id,
12269: p_per_in_ler_id => l_pil_row.per_in_ler_id,
12262:
12263: THEN
12264: hr_utility.set_location('SSARKAR p_person_id '|| p_person_id,9909);
12265: hr_utility.set_location('SSARKAR l_pil_row.per_in_ler_id '|| l_pil_row.per_in_ler_id,9909);
12266: hr_utility.set_location('SSARKAR p_effective_date '|| p_effective_date,9909);
12267:
12268: ben_manage_unres_life_events.end_date_elig_per_rows (p_person_id => p_person_id,
12269: p_per_in_ler_id => l_pil_row.per_in_ler_id,
12270: p_effective_date => p_effective_date
12316: end if;
12317: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
12318: fnd_message.set_token('PROC','ben_determine_elct_chc_flx_imp');
12319: if g_debug then
12320: hr_utility.set_location('lf evt ocrd dt'||l_rec.lf_evt_ocrd_dt,11);
12321: end if;
12322: --
12323: -- CWB Changes. ABSENCES, GRADE/STEP : no need to run flex logic
12324: -- added irec
12361: if ben_enrolment_requirements.g_any_choice_created
12362: and l_mode not in( 'W', 'M', 'G','I','D') -- added irec
12363: then
12364: if g_debug then
12365: hr_utility.set_location (l_package||'.ben_determine_actual_premium ',10);
12366: end if;
12367: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
12368: fnd_message.set_token('PROC','ben_determine_actual_premium');
12369: --
12380: --
12381: -- Do rates stuff
12382: --
12383: if g_debug then
12384: hr_utility.set_location ('FND mess '||l_package,10);
12385: end if;
12386: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
12387: fnd_message.set_token('PROC','ben_determine_rates');
12388: --
12397: open c_epe(l_rec.per_in_ler_id);
12398: fetch c_epe bulk collect into t_epe_tbl;
12399: close c_epe;
12400:
12401: hr_utility.set_location('epe count'|| t_epe_tbl.count,10);
12402:
12403: if t_epe_tbl.count > 0 then
12404: l_cnt := 1;
12405: for i in 1..t_epe_tbl.last loop
12402:
12403: if t_epe_tbl.count > 0 then
12404: l_cnt := 1;
12405: for i in 1..t_epe_tbl.last loop
12406: hr_utility.set_location (' within ecr t_epe_tbl(i) '||t_epe_tbl(i),11);
12407: open c_ecr_ch (t_epe_tbl(i));
12408: loop
12409: fetch c_ecr_ch into ben_manage_unres_life_events.g_unrest_ecr_instance_row;
12410: if c_ecr_ch%found then
12407: open c_ecr_ch (t_epe_tbl(i));
12408: loop
12409: fetch c_ecr_ch into ben_manage_unres_life_events.g_unrest_ecr_instance_row;
12410: if c_ecr_ch%found then
12411: hr_utility.set_location ('enrt id'||ben_manage_unres_life_events.g_unrest_ecr_instance_row.enrt_rt_id,11);
12412: hr_utility.set_location ('ecr ovn '||ben_manage_unres_life_events.g_unrest_ecr_instance_row.object_version_number,11);
12413: ben_manage_unres_life_events.g_unrest_ecr_instance(l_cnt) := ben_manage_unres_life_events.g_unrest_ecr_instance_row;
12414: l_cnt := l_cnt + 1;
12415: else
12408: loop
12409: fetch c_ecr_ch into ben_manage_unres_life_events.g_unrest_ecr_instance_row;
12410: if c_ecr_ch%found then
12411: hr_utility.set_location ('enrt id'||ben_manage_unres_life_events.g_unrest_ecr_instance_row.enrt_rt_id,11);
12412: hr_utility.set_location ('ecr ovn '||ben_manage_unres_life_events.g_unrest_ecr_instance_row.object_version_number,11);
12413: ben_manage_unres_life_events.g_unrest_ecr_instance(l_cnt) := ben_manage_unres_life_events.g_unrest_ecr_instance_row;
12414: l_cnt := l_cnt + 1;
12415: else
12416: exit;
12425: -- bug 12354919
12426:
12427:
12428: if g_debug then
12429: hr_utility.set_location ('ben_determine_rates '||l_package,10);
12430: end if;
12431: ben_determine_rates.main
12432: (p_effective_date => p_effective_date,
12433: p_lf_evt_ocrd_dt => l_rec.lf_evt_ocrd_dt,
12457: --
12458: if p_lf_evt_oper_cd = 'SYNC'
12459: then
12460: --
12461: hr_utility.set_location('Calling GSP Rate Sync Post Process in PQH', 45);
12462: pqh_gsp_post_process.update_rate_sync_salary
12463: (p_per_in_ler_id => l_pil_row.per_in_ler_id
12464: ,p_effective_date => p_effective_date
12465: );
12477: ben_manage_unres_life_events.clear_cache;
12478: --
12479: end if;
12480: if g_debug then
12481: hr_utility.set_location ('ben_determine_rate_chg '||l_package,10);
12482: end if;
12483: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
12484: fnd_message.set_token('PROC','ben_determine_rate_chg');
12485: --
12535: --
12536: -- CWB Changes.
12537: --
12538: if g_debug then
12539: hr_utility.set_location ('BENAUTEN '||l_package,10);
12540: end if;
12541: if ben_enrolment_requirements.g_auto_choice_created
12542: and l_mode not in ('W','D')
12543: then
12550: p_effective_date => l_rec.lf_evt_ocrd_dt
12551: );
12552: end if;
12553: if g_debug then
12554: hr_utility.set_location ('Dn BENAUTEN '||l_package,10);
12555: end if;
12556: --
12557: --
12558: -- Check for reqired communications
12560: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
12561: fnd_message.set_token('PROC','ben_generate_communications');
12562: --
12563: if g_debug then
12564: hr_utility.set_location ('Comms '||l_package,10);
12565: end if;
12566: --
12567: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
12568: -- CWB Changes.
12618: --
12619: end if;
12620: --
12621: if g_debug then
12622: hr_utility.set_location ('Dn Comms '||l_package,10);
12623: end if;
12624: --
12625: -- Create benefit assignment for dependents if they were
12626: -- found ineligible.
12630: if ben_determine_dpnt_eligibility.g_dpnt_ineligible
12631: and (l_mode not in ( 'W', 'M', 'G','I','D'))
12632: then
12633: if g_debug then
12634: hr_utility.set_location ('Dpnt ineligible '||l_package,10);
12635: end if;
12636: for l_dpnt_rec in c_get_inelig_dpnt_info(l_rec.per_in_ler_id) loop
12637: if g_debug then
12638: hr_utility.set_location ('Dpnt person_id '||l_dpnt_rec.dpnt_person_id,10);
12634: hr_utility.set_location ('Dpnt ineligible '||l_package,10);
12635: end if;
12636: for l_dpnt_rec in c_get_inelig_dpnt_info(l_rec.per_in_ler_id) loop
12637: if g_debug then
12638: hr_utility.set_location ('Dpnt person_id '||l_dpnt_rec.dpnt_person_id,10);
12639: hr_utility.set_location ('cvg_thru_dt '||l_dpnt_rec.cvg_thru_dt,10);
12640: end if;
12641: ben_assignment_internal.copy_empasg_to_benasg
12642: (p_person_id => p_person_id
12635: end if;
12636: for l_dpnt_rec in c_get_inelig_dpnt_info(l_rec.per_in_ler_id) loop
12637: if g_debug then
12638: hr_utility.set_location ('Dpnt person_id '||l_dpnt_rec.dpnt_person_id,10);
12639: hr_utility.set_location ('cvg_thru_dt '||l_dpnt_rec.cvg_thru_dt,10);
12640: end if;
12641: ben_assignment_internal.copy_empasg_to_benasg
12642: (p_person_id => p_person_id
12643: ,p_dpnt_person_id => l_dpnt_rec.dpnt_person_id
12723:
12724: /* Bug 12711900 : If there is no electability life event will directly move to Processed state. So calling
12725: benutils.get_active_life_event will not return life event. Added below code to get the Life event details*/
12726: if(not ben_enrolment_requirements.g_electable_choice_created) then
12727: hr_utility.set_location('Getting pil_id ',10);
12728: declare
12729: cursor c_get_pil_id is
12730: select pil.per_in_ler_id,
12731: pil.lf_evt_ocrd_dt,
12758: --
12759: if l_rec.lf_evt_ocrd_dt is not null then
12760: --
12761: if g_debug then
12762: hr_utility.set_location('processing event',10);
12763: end if;
12764: ben_person_life_event_api.update_person_life_event
12765: (p_per_in_ler_id => l_rec.per_in_ler_id,
12766: p_per_in_ler_stat_cd => 'PROCD',
12775: -- Bug 6404338. Min Max enhancement.
12776: l_chk_min_max := fnd_profile.value('BEN_CHK_MIN_MAX');
12777: --
12778: if g_debug then
12779: hr_utility.set_location ('l_chk_min_max '||l_chk_min_max,10);
12780: end if;
12781: --
12782: if l_chk_min_max = 'Y' then
12783: --
12784: -- Check if coverage was terminated in this event.
12785: --
12786: if ben_prtt_enrt_result_api.g_enrollment_change = true then
12787: if g_debug then
12788: hr_utility.set_location ('Enrollment ended ',10);
12789: end if;
12790: for l_rslt_rec in c_get_ended_enrt_rslts(l_rec.per_in_ler_id) loop
12791: --
12792: -- Check if person is still eligible for the plan type in
12797: fetch c_get_ptip_elig into l_ptip_elig_flag;
12798: close c_get_ptip_elig;
12799: --
12800: if g_debug then
12801: hr_utility.set_location (' Elig flag '||l_ptip_elig_flag,10);
12802: end if;
12803: --
12804: if l_ptip_elig_flag = 'Y' then
12805: --
12828: --
12829: open c_get_ptip_tot_enrd(l_rslt_rec.ptip_id);
12830: fetch c_get_ptip_tot_enrd into l_count;
12831: close c_get_ptip_tot_enrd;
12832: hr_utility.set_location (' MN_ENRD_RQD_OVRID_NUM '||l_ptip_rec.MN_ENRD_RQD_OVRID_NUM,10);
12833: if (l_count < l_MN_ENRD_RQD_OVRID_NUM ) then
12834: hr_utility.set_location (' error '||l_count,10);
12835: fnd_message.set_name('BEN','BEN_91588_PL_ENRD_LT_MN_RQD');
12836: fnd_message.set_token('MN_ENRL', to_char(l_MN_ENRD_RQD_OVRID_NUM));
12830: fetch c_get_ptip_tot_enrd into l_count;
12831: close c_get_ptip_tot_enrd;
12832: hr_utility.set_location (' MN_ENRD_RQD_OVRID_NUM '||l_ptip_rec.MN_ENRD_RQD_OVRID_NUM,10);
12833: if (l_count < l_MN_ENRD_RQD_OVRID_NUM ) then
12834: hr_utility.set_location (' error '||l_count,10);
12835: fnd_message.set_name('BEN','BEN_91588_PL_ENRD_LT_MN_RQD');
12836: fnd_message.set_token('MN_ENRL', to_char(l_MN_ENRD_RQD_OVRID_NUM));
12837: fnd_message.set_token('PL_TYP_NAME', l_ptip_rec.name);
12838: fnd_message.raise_error;
12900: --
12901: if l_mode not in ('W', 'M', 'G','I','D') then
12902: --
12903: if g_debug then
12904: hr_utility.set_location ('carry_farward_results '||l_package,10);
12905: end if;
12906: --
12907: ben_carry_forward_items.carry_farward_results(
12908: p_person_id => p_person_id
12913: ,p_effective_date => p_effective_date
12914: );
12915: --
12916: if g_debug then
12917: hr_utility.set_location ('Dn carry_farward_results '||l_package,10);
12918: end if;
12919: --
12920: end if;
12921: --
13089: --
13090: benutils.write(p_rec => g_action_rec);
13091: --
13092: if g_debug then
13093: hr_utility.set_location ('Leaving '||l_package,10);
13094: end if;
13095: --
13096: end process_comp_objects;
13097: --
13129: l_module varchar2(30);
13130: --
13131: begin
13132: --
13133: g_debug := hr_utility.debug_enabled;
13134: if g_debug then
13135: l_package := g_package||'.process_life_events';
13136: hr_utility.set_location ('Entering '||l_package,10);
13137: end if;
13132: --
13133: g_debug := hr_utility.debug_enabled;
13134: if g_debug then
13135: l_package := g_package||'.process_life_events';
13136: hr_utility.set_location ('Entering '||l_package,10);
13137: end if;
13138: --
13139: -- Create savepoint for error handling purposes
13140: --
13157: ben_use_cvg_rt_date.clear_fonm_globals;
13158: --
13159: --
13160: if g_debug then
13161: hr_utility.set_location (l_package||' Bef evaluate_life_events ',13);
13162: end if;
13163: --
13164: -- PB : 5422 :
13165: -- Now if benmngle is run in Life event mode and the winner
13180: exception
13181: when others then
13182: --
13183: if g_debug then
13184: hr_utility.set_location ('Not Logging Person Header information for person_id : '||p_person_id ||' p_business_group_id : '||p_business_group_id,12);
13185: end if;
13186:
13187: end;
13188: -- end 4496944
13204: p_lf_evt_oper_cd => p_lf_evt_oper_cd /* GSP Rate Sync */
13205: );
13206:
13207: if g_debug then
13208: hr_utility.set_location (l_package||' Dn evaluate_life_events ',15);
13209: end if;
13210: --
13211: if p_mode not in ('A','P','S','T') then
13212: --
13261: --
13262: end if;
13263: --
13264: if g_debug then
13265: hr_utility.set_location (l_package||' Dn get_active_life_event ',17);
13266: end if;
13267: --
13268: end if;
13269: --
13287: p_business_group_id => p_business_group_id,
13288: p_effective_date => nvl(l_rec.lf_evt_ocrd_dt,p_effective_date));
13289:
13290: if g_debug then
13291: hr_utility.set_location ('Dn Cac Per Inf '||l_package,10);
13292: end if;
13293: --
13294: --end if ;
13295:
13301: p_effective_date => nvl(l_rec.lf_evt_ocrd_dt,p_effective_date));
13302: */
13303: --
13304: if g_debug then
13305: hr_utility.set_location (l_package||' Bef process_comp_objects ',17);
13306: end if;
13307: process_comp_objects
13308: (p_person_id => p_person_id,
13309: p_person_action_id => p_person_action_id,
13329: l_module := 'GSP';
13330: end if;
13331: --
13332: if g_debug then
13333: hr_utility.set_location ('Calling pqh ranking proc ',10);
13334: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
13335: hr_utility.set_location ('p_module=>'||l_module,10);
13336: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
13337: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
13330: end if;
13331: --
13332: if g_debug then
13333: hr_utility.set_location ('Calling pqh ranking proc ',10);
13334: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
13335: hr_utility.set_location ('p_module=>'||l_module,10);
13336: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
13337: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
13338: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
13331: --
13332: if g_debug then
13333: hr_utility.set_location ('Calling pqh ranking proc ',10);
13334: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
13335: hr_utility.set_location ('p_module=>'||l_module,10);
13336: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
13337: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
13338: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
13339: end if;
13332: if g_debug then
13333: hr_utility.set_location ('Calling pqh ranking proc ',10);
13334: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
13335: hr_utility.set_location ('p_module=>'||l_module,10);
13336: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
13337: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
13338: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
13339: end if;
13340: --
13333: hr_utility.set_location ('Calling pqh ranking proc ',10);
13334: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
13335: hr_utility.set_location ('p_module=>'||l_module,10);
13336: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
13337: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
13338: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
13339: end if;
13340: --
13341: pqh_ranking.compute_total_score (
13334: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
13335: hr_utility.set_location ('p_module=>'||l_module,10);
13336: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
13337: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
13338: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
13339: end if;
13340: --
13341: pqh_ranking.compute_total_score (
13342: p_benefit_action_id => benutils.g_benefit_action_id
13346: ,p_effective_date => l_rec.lf_evt_ocrd_dt );
13347: --
13348: end if;
13349: if g_debug then
13350: hr_utility.set_location ('Leaving '||l_package,10);
13351: end if;
13352: --
13353: exception
13354: --
13354: --
13355: when g_record_error then
13356: --
13357: if g_debug then
13358: hr_utility.set_location ('PLE g_record_error '||l_package,10);
13359: end if;
13360: --
13361: -- An error has occured so rollback anything that could have been
13362: -- inserted into tables at this point.
13361: -- An error has occured so rollback anything that could have been
13362: -- inserted into tables at this point.
13363: --
13364: if g_debug then
13365: hr_utility.set_location ('PERSON ERROR '||l_package,10);
13366: end if;
13367:
13368: /*Bug 14484281*/
13369: begin
13369: begin
13370: rollback to process_life_event_savepoint;
13371: exception
13372: when others then
13373: hr_utility.set_location ('SQL CODE '||SQLCODE,101.99);
13374: hr_utility.set_location ('SQLMSG '||SQLERRM,101.99);
13375: end;
13376: --
13377: -- Roll cache to savepoint
13370: rollback to process_life_event_savepoint;
13371: exception
13372: when others then
13373: hr_utility.set_location ('SQL CODE '||SQLCODE,101.99);
13374: hr_utility.set_location ('SQLMSG '||SQLERRM,101.99);
13375: end;
13376: --
13377: -- Roll cache to savepoint
13378: --
13433: --
13434: fnd_message.set_name('BEN','BEN_91662_BENMNGLE_ERROR_LIMIT');
13435: benutils.write(p_text => fnd_message.get);
13436: if g_debug then
13437: hr_utility.set_location ('PLE g_record_error Err Lim '||l_package,10);
13438: end if;
13439: --
13440: -- Write the last bit of information for the thread before
13441: -- the rollback fires when we raise the error.
13452: --
13453: when g_cwb_trk_ineligible then
13454: --
13455: if g_debug then
13456: hr_utility.set_location ('PLE g_life_event_after '||l_package,10);
13457: end if;
13458: --
13459: rollback to process_life_event_savepoint;
13460: --
13475: --
13476: when g_life_event_after then
13477: --
13478: if g_debug then
13479: hr_utility.set_location ('PLE g_life_event_after '||l_package,10);
13480: end if;
13481: --
13482: -- We don't want to roll back the transaction, just carry on with the
13483: -- process.
13497: --
13498: when app_exception.application_exception then
13499: --
13500: if g_debug then
13501: hr_utility.set_location ('PLE application_exception '||l_package,12);
13502: end if;
13503: --
13504: -- Update person action to errored as record has an error
13505: --
13559: --
13560: when others then
13561: --
13562: if g_debug then
13563: hr_utility.set_location ('SERIOUS Error '||l_package,10);
13564: end if;
13565: --
13566: -- Update person action to errored as record has an error
13567: --
13599: l_proc varchar2(80) := g_package||'.init_bft_statistics';
13600: --
13601: begin
13602: --
13603: g_debug := hr_utility.debug_enabled;
13604: --
13605: g_proc_rec.business_group_id := p_business_group_id;
13606: g_proc_rec.strt_dt := sysdate;
13607: g_proc_rec.strt_tm := to_char(sysdate,'HH24:MI:SS');
13624: and pac.action_status_cd = nvl(p_status_cd,pac.action_status_cd);
13625: --
13626: begin
13627: --
13628: g_debug := hr_utility.debug_enabled;
13629: --
13630: g_proc_rec.end_dt := sysdate;
13631: g_proc_rec.end_tm := to_char(sysdate,'HH24:MI:SS');
13632: g_end_tm_numeric := dbms_utility.get_time;
13633: g_proc_rec.elpsd_tm := (g_end_tm_numeric-g_strt_tm_numeric)/100;
13634: --
13635: if g_debug then
13636: l_proc := g_package||'.write_bft_statistics';
13637: hr_utility.set_location (l_proc||' Master process ',30);
13638: end if;
13639: open c_person_actions(null);
13640: fetch c_person_actions into g_proc_rec.per_slctd;
13641: close c_person_actions;
13639: open c_person_actions(null);
13640: fetch c_person_actions into g_proc_rec.per_slctd;
13641: close c_person_actions;
13642: if g_debug then
13643: hr_utility.set_location (l_proc||' c_person_actions(null)',31);
13644: end if;
13645: --
13646: open c_person_actions('E');
13647: fetch c_person_actions into g_proc_rec.per_err;
13646: open c_person_actions('E');
13647: fetch c_person_actions into g_proc_rec.per_err;
13648: close c_person_actions;
13649: if g_debug then
13650: hr_utility.set_location (l_proc||' c_person_actions(E) ',32);
13651: end if;
13652: --
13653: open c_person_actions('P');
13654: fetch c_person_actions into g_proc_rec.per_proc_succ;
13653: open c_person_actions('P');
13654: fetch c_person_actions into g_proc_rec.per_proc_succ;
13655: close c_person_actions;
13656: if g_debug then
13657: hr_utility.set_location (l_proc||' c_person_actions(P) ',33);
13658: end if;
13659: --
13660: open c_person_actions('U');
13661: fetch c_person_actions into g_proc_rec.per_unproc;
13661: fetch c_person_actions into g_proc_rec.per_unproc;
13662: close c_person_actions;
13663: --
13664: if g_debug then
13665: hr_utility.set_location (l_proc||' Done c_person_actions ',35);
13666: end if;
13667: g_proc_rec.business_group_id := p_business_group_id;
13668: g_proc_rec.per_proc := nvl(g_proc_rec.per_proc_succ,0)+
13669: nvl(g_proc_rec.per_err,0);
13668: g_proc_rec.per_proc := nvl(g_proc_rec.per_proc_succ,0)+
13669: nvl(g_proc_rec.per_err,0);
13670: --
13671: if g_debug then
13672: hr_utility.set_location (l_proc||' Write ',35);
13673: end if;
13674: benutils.write(p_rec => g_proc_rec);
13675: --
13676: end write_bft_statistics;