[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
1134: g_rebuild_pl_id number := null;
1135: g_rebuild_lf_evt_ocrd_dt date := null;
1136: g_rebuild_business_group_id number := null;
1137: --
1138: g_debug boolean := hr_utility.debug_enabled;
1139: --
1140:
1141: procedure clear_init_benmngle_caches
1142: (p_business_group_id in number
1150:
1151: is
1152: --
1153: begin
1154: g_debug := hr_utility.debug_enabled;
1155: --
1156: -- Set up benefits environment
1157: --
1158: ben_env_object.init
1210: begin
1211: --
1212: l_proc := g_package || '.get_grade_step_placement';
1213: --
1214: hr_utility.set_location('Entering : ' || l_proc, 10);
1215: --
1216: -- Get Grade Ladder (PGM_ID) and Grade (PLIP_ID) placement
1217: pqh_gsp_post_process.get_persons_gl_and_grade
1218: (p_person_id => p_person_id,
1238: p_effective_date => p_effective_date);
1239: --
1240: end if;
1241: --
1242: hr_utility.set_location('Leaving : ' || l_proc, 20);
1243: --
1244: exception
1245: --
1246: when others
1558: --
1559: begin
1560: --
1561: if g_debug then
1562: hr_utility.set_location ('Entering '||l_package,10);
1563: end if;
1564: --
1565: -- This procedure checks validity of parameters that have been passed to the
1566: -- BENMNGLE process.
1654: end if;
1655: --
1656: close c1;
1657: if g_debug then
1658: hr_utility.set_location ('close c1: '||l_package,50);
1659: end if;
1660: --
1661: end if;
1662: --
1926: --
1927: -- p_mode not in L,S,C,U
1928: --
1929: if g_debug then
1930: hr_utility.set_location ('BEN_BENMNGLE_MD '||l_package,50);
1931: end if;
1932: --
1933: if hr_api.not_exists_in_hr_lookups
1934: (p_lookup_type => 'BEN_BENMNGLE_MD',
1999: -- end 2940151
2000:
2001: --
2002: if g_debug then
2003: hr_utility.set_location ('Leaving '||l_package,10);
2004: end if;
2005: --
2006: end check_business_rules;
2007: --
2173: --
2174: p_continue_loop := false;
2175: if g_debug then
2176: l_proc := g_package ||'.update_elig_per_rows';
2177: hr_utility.set_location('Entering:' || l_proc, 10);
2178: end if;
2179: --
2180: if l_envpgm_id is not null then
2181: --
2264: end if;
2265: --
2266: if l_oipl_id is not null then
2267: --
2268: hr_utility.set_location('OIPL ID-update'||l_oipl_id,111);
2269: l_oipl_rec := ben_cobj_cache.g_oipl_currow;
2270: if l_envpgm_id is not null then
2271: --
2272: ben_pep_cache.get_pilepo_dets
2281: --
2282: --
2283: if l_epo_row.elig_per_opt_id is null then
2284: p_continue_loop := false;
2285: hr_utility.set_location('elig per id is null' ||l_oipl_id,111);
2286: return;
2287: else
2288: l_elig_per_opt_id := l_epo_row.elig_per_opt_id;
2289: l_object_version_number_opt := l_epo_row.object_version_number;
2297: ,c_pl_id => l_envpl_id
2298: ,c_opt_id => l_oipl_rec.opt_id
2299: );
2300: if g_debug then
2301: hr_utility.set_location('fetch c_prvoptelch ' || l_proc, 10);
2302: end if;
2303: fetch c_prev_opt_elig_check into l_prev_opt_elig_check;
2304: if c_prev_opt_elig_check%notfound then
2305: --
2328: l_pl_id is not null
2329: then
2330: --
2331: if g_debug then
2332: hr_utility.set_location(' before pilpep ',111);
2333: end if;
2334: ben_pep_cache.get_pilpep_dets
2335: (p_person_id => p_person_id
2336: ,p_business_group_id => p_business_group_id
2412: end if;
2413: --
2414: p_par_elig_state := l_par_elig_state;
2415: if g_debug then
2416: hr_utility.set_location('Leaving:' || l_proc, 10);
2417: end if;
2418: end;
2419: --
2420: procedure update_enrt_rt (p_per_in_ler_id number) is
2465:
2466: begin
2467: --
2468: if g_debug then
2469: hr_utility.set_location('Entering ',10);
2470: end if;
2471: /*
2472: bug#1936976 prtt_rt_val_id is already populated in benactbr - this process is redundant
2473: and if coverage is %rng multiple rate for same acty_base_rt is possible
2473: and if coverage is %rng multiple rate for same acty_base_rt is possible
2474: for i in c_enrt_rt loop
2475: --
2476: if g_debug then
2477: hr_utility.set_location('Entering ',10);
2478: end if;
2479: if ben_manage_life_events.g_enrt_rt_tbl.count = 0 then
2480: return;
2481: end if;
2482: --
2483: for j in ben_manage_life_events.g_enrt_rt_tbl.first .. ben_manage_life_events.g_enrt_rt_tbl.last loop
2484: --
2485: if g_debug then
2486: hr_utility.set_location('Entering ',10);
2487: end if;
2488: if i.acty_base_rt_id = ben_manage_life_events.g_enrt_rt_tbl(j).acty_base_rt_id then
2489: --
2490: if ben_manage_life_events.g_enrt_rt_tbl(j).prtt_rt_val_id is not null then
2509: there is no pil elctble choice record. Now, the cursors fetch the election made
2510: date from enrollment result table.
2511:
2512: if g_debug then
2513: hr_utility.set_location('Entering popl update',10);
2514: end if;
2515: if ben_manage_life_events.g_pil_popl_tbl.count = 0 then
2516: return;
2517: end if;
2554:
2555: end loop;
2556:
2557: if g_debug then
2558: hr_utility.set_location('Leaving update enrt',10);
2559: end if;
2560: end;
2561: -- GSP New Procedure for updating the epe for default/auto
2562: -- enrollments.
2579: l_epe c_epe%ROWTYPE;
2580: --
2581: begin
2582: --
2583: hr_utility.set_location('Entering '||l_package,10);
2584: --
2585: --Call the GSP Default procedure to get the epe and return code
2586: pqh_gsp_default.get_def_auto_code(
2587: p_per_in_ler_id => p_per_in_ler_id,
2629: end if;
2630: --
2631: end if;
2632: --
2633: hr_utility.set_location('Leaving '||l_package,20);
2634: --
2635: end gsp_proc_dflt_auten ;
2636: --
2637: -- Bug 1895846
2658: and per_in_ler_id = p_per_in_ler_id;
2659: */
2660: if g_debug then
2661: l_package := 'reset_elctbl_chc_inpng_flag' ;
2662: hr_utility.set_location('Entering '||l_package , 10);
2663: end if;
2664: --
2665: for l_epe in c_epe loop
2666: --
2673: --
2674: end loop ;
2675: --
2676: if g_debug then
2677: hr_utility.set_location('Leaving '||l_package , 10);
2678: end if;
2679: --
2680: end;
2681: --
2697: begin
2698: --
2699: if g_debug then
2700: l_package := 'delete_in_pndg_elig_dpnt' ;
2701: hr_utility.set_location('Entering '||l_package , 10);
2702: end if;
2703: for l_in_pndg_edg in c_in_pndg_edg loop
2704: --
2705: ben_elig_dpnt_api.delete_elig_dpnt
2710: --
2711: end loop;
2712: --
2713: if g_debug then
2714: hr_utility.set_location('Leaving '||l_package , 10);
2715: end if;
2716: end ;
2717: --
2718: procedure write_logfile(p_benefit_action_id in number,
2730: begin
2731: --
2732: if g_debug then
2733: l_package := g_package||'.write_logfile';
2734: hr_utility.set_location ('Entering '||l_package,10);
2735: end if;
2736: --
2737: benutils.write(p_text => benutils.g_banner_minus);
2738: benutils.write(p_text => 'Benefits Statistical Information');
2745: p_file => true);
2746: commit;
2747: --
2748: if g_debug then
2749: hr_utility.set_location ('Leaving '||l_package,10);
2750: end if;
2751: --
2752: exception
2753: --
2772: l_package varchar2(80);
2773: --
2774: begin
2775: --
2776: g_debug := hr_utility.debug_enabled;
2777: if g_debug then
2778: l_package := g_package||'.flush_global_structures';
2779: hr_utility.set_location ('Entering '||l_package,10);
2780: end if;
2775: --
2776: g_debug := hr_utility.debug_enabled;
2777: if g_debug then
2778: l_package := g_package||'.flush_global_structures';
2779: hr_utility.set_location ('Entering '||l_package,10);
2780: end if;
2781: --
2782: g_cache_person_process.delete;
2783: benutils.clear_down_cache;
2801: --
2802: ben_pil_object.clear_down_cache;
2803: --
2804: if g_debug then
2805: hr_utility.set_location ('Leaving '||l_package,10);
2806: end if;
2807: --
2808: end flush_global_structures;
2809: --
2824: begin
2825: --
2826: if g_debug then
2827: l_package := g_package||'.print_parameters';
2828: hr_utility.set_location ('Entering '||l_package,10);
2829: end if;
2830: open c_conc_pgm_name;
2831: fetch c_conc_pgm_name into l_source_program;
2832: close c_conc_pgm_name;
2946: p_true => 'None',
2947: p_false => l_rec.comp_selection_rl));
2948: --
2949: if g_debug then
2950: hr_utility.set_location ('Leaving '||l_package,10);
2951: end if;
2952: --
2953: end print_parameters;
2954: --
3084: l_ws_mgr_id number := null ;
3085: l_pil_elctbl_chc_popl_id number := null ;
3086: begin
3087: --
3088: g_debug := hr_utility.debug_enabled;
3089: if g_debug then
3090: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3091: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3092: end if;
3086: begin
3087: --
3088: g_debug := hr_utility.debug_enabled;
3089: if g_debug then
3090: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3091: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3092: end if;
3093: --
3094: open c_mgr (p_person_id,p_pl_id,p_lf_evt_ocrd_dt,p_ler_id,p_business_group_id);
3087: --
3088: g_debug := hr_utility.debug_enabled;
3089: if g_debug then
3090: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3091: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3092: end if;
3093: --
3094: open c_mgr (p_person_id,p_pl_id,p_lf_evt_ocrd_dt,p_ler_id,p_business_group_id);
3095: fetch c_mgr into l_ws_mgr_id,l_pil_elctbl_chc_popl_id ;
3095: fetch c_mgr into l_ws_mgr_id,l_pil_elctbl_chc_popl_id ;
3096: close c_mgr ;
3097: --
3098: if g_debug then
3099: hr_utility.set_location('MGR OUT l_pil_elctbl_chc_popl_id '||l_pil_elctbl_chc_popl_id,30);
3100: hr_utility.set_location('MGR OUT l_ws_mgr_id '||l_ws_mgr_id,40);
3101: end if;
3102: --
3103: p_pil_elctbl_chc_popl_id := l_pil_elctbl_chc_popl_id ;
3096: close c_mgr ;
3097: --
3098: if g_debug then
3099: hr_utility.set_location('MGR OUT l_pil_elctbl_chc_popl_id '||l_pil_elctbl_chc_popl_id,30);
3100: hr_utility.set_location('MGR OUT l_ws_mgr_id '||l_ws_mgr_id,40);
3101: end if;
3102: --
3103: p_pil_elctbl_chc_popl_id := l_pil_elctbl_chc_popl_id ;
3104: p_ws_mgr_id := l_ws_mgr_id ;
3111: p_lvl_num number ) is
3112: begin
3113: --
3114: if g_debug then
3115: hr_utility.set_location('insert_mgr_hrchy p_emp_pil_elctbl_chc_popl_id '
3116: ||p_emp_pil_elctbl_chc_popl_id,10);
3117: hr_utility.set_location('insert_mgr_hrchy p_mgr_pil_elctbl_chc_popl_id '
3118: ||p_mgr_pil_elctbl_chc_popl_id || ' lvl = ' || p_lvl_num, 20);
3119: end if;
3113: --
3114: if g_debug then
3115: hr_utility.set_location('insert_mgr_hrchy p_emp_pil_elctbl_chc_popl_id '
3116: ||p_emp_pil_elctbl_chc_popl_id,10);
3117: hr_utility.set_location('insert_mgr_hrchy p_mgr_pil_elctbl_chc_popl_id '
3118: ||p_mgr_pil_elctbl_chc_popl_id || ' lvl = ' || p_lvl_num, 20);
3119: end if;
3120: insert into ben_cwb_hrchy (
3121: emp_pil_elctbl_chc_popl_id,
3219: begin
3220: --
3221: if g_debug then
3222: l_proc := g_package|| '.popu_pel_heir';
3223: hr_utility.set_location('Entering: '||l_proc,10);
3224: end if;
3225: --
3226: lv_pl_id := -1;
3227: lv_lf_evt_ocrd_dt := hr_api.g_eot;
3246: --
3247: end if;
3248: --
3249: if g_debug then
3250: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3251: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3252: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3253: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3254: end if;
3247: end if;
3248: --
3249: if g_debug then
3250: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3251: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3252: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3253: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3254: end if;
3255: open c_pel(lv_pl_id, lv_lf_evt_ocrd_dt);
3248: --
3249: if g_debug then
3250: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3251: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3252: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3253: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3254: end if;
3255: open c_pel(lv_pl_id, lv_lf_evt_ocrd_dt);
3256: fetch c_pel into l_emp_pel,l_mgr_person_id ;
3249: if g_debug then
3250: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3251: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3252: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3253: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3254: end if;
3255: open c_pel(lv_pl_id, lv_lf_evt_ocrd_dt);
3256: fetch c_pel into l_emp_pel,l_mgr_person_id ;
3257: --
3255: open c_pel(lv_pl_id, lv_lf_evt_ocrd_dt);
3256: fetch c_pel into l_emp_pel,l_mgr_person_id ;
3257: --
3258: if g_debug then
3259: hr_utility.set_location(' l_emp_pel '||l_emp_pel,99);
3260: hr_utility.set_location(' l_mgr_person_id '||l_mgr_person_id,99);
3261: end if;
3262: if c_pel%found then
3263: --
3256: fetch c_pel into l_emp_pel,l_mgr_person_id ;
3257: --
3258: if g_debug then
3259: hr_utility.set_location(' l_emp_pel '||l_emp_pel,99);
3260: hr_utility.set_location(' l_mgr_person_id '||l_mgr_person_id,99);
3261: end if;
3262: if c_pel%found then
3263: --
3264: open c_pl_ler(l_emp_pel);
3267: --
3268: end if;
3269: --
3270: if g_debug then
3271: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3272: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3273: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3274: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3275: end if;
3268: end if;
3269: --
3270: if g_debug then
3271: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3272: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3273: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3274: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3275: end if;
3276: <
3269: --
3270: if g_debug then
3271: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3272: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3273: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3274: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3275: end if;
3276: <
3277: loop
3270: if g_debug then
3271: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3272: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3273: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3274: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3275: end if;
3276: <
3277: loop
3278: --
3282: <
3283: loop
3284: --
3285: if g_debug then
3286: hr_utility.set_location('Before mgr l_mgr_person_id '||l_mgr_person_id,10);
3287: end if;
3288: mgr(l_mgr_person_id,
3289: l_business_group_id,
3290: l_pl_id,
3292: l_ler_id,
3293: l_mgr_person_id_out,
3294: l_mgr_pel);
3295: if g_debug then
3296: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
3297: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
3298: hr_utility.set_location('After Mgr l_mgr_pel '||l_mgr_pel,30);
3299: end if;
3300: --
3293: l_mgr_person_id_out,
3294: l_mgr_pel);
3295: if g_debug then
3296: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
3297: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
3298: hr_utility.set_location('After Mgr l_mgr_pel '||l_mgr_pel,30);
3299: end if;
3300: --
3301: if l_mgr_pel is not null then
3294: l_mgr_pel);
3295: if g_debug then
3296: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
3297: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
3298: hr_utility.set_location('After Mgr l_mgr_pel '||l_mgr_pel,30);
3299: end if;
3300: --
3301: if l_mgr_pel is not null then
3302: --
3307: exit mgr_loop when (l_mgr_person_id = l_mgr_person_id_out
3308: OR l_mgr_person_id_out is null ) ;
3309: --call to insert routne
3310: if g_debug then
3311: hr_utility.set_location('Emp EPE '||l_emp_pel , 20);
3312: hr_utility.set_location('Mgr EPE '||l_mgr_pel , 30);
3313: hr_utility.set_location('Level '||l_level , 40);
3314: end if;
3315: --
3308: OR l_mgr_person_id_out is null ) ;
3309: --call to insert routne
3310: if g_debug then
3311: hr_utility.set_location('Emp EPE '||l_emp_pel , 20);
3312: hr_utility.set_location('Mgr EPE '||l_mgr_pel , 30);
3313: hr_utility.set_location('Level '||l_level , 40);
3314: end if;
3315: --
3316: -- insert_mgr_hrchy(l_emp_pel,l_mgr_pel,l_level);
3309: --call to insert routne
3310: if g_debug then
3311: hr_utility.set_location('Emp EPE '||l_emp_pel , 20);
3312: hr_utility.set_location('Mgr EPE '||l_mgr_pel , 30);
3313: hr_utility.set_location('Level '||l_level , 40);
3314: end if;
3315: --
3316: -- insert_mgr_hrchy(l_emp_pel,l_mgr_pel,l_level);
3317: --
3333: --
3334: end if;
3335: --
3336: if g_debug then
3337: hr_utility.set_location(' End of mgr_loop ',99);
3338: end if;
3339: end loop pel ;
3340: --
3341: close c_pel ;
3341: close c_pel ;
3342: --
3343: --call to delete the intial pel records
3344: if g_debug then
3345: hr_utility.set_location('Before call to delete_init_pel',10);
3346: end if;
3347: update_init_pel(lv_pl_id, lv_lf_evt_ocrd_dt) ;
3348: if g_debug then
3349: hr_utility.set_location('After call to delete_init_pel',10);
3345: hr_utility.set_location('Before call to delete_init_pel',10);
3346: end if;
3347: update_init_pel(lv_pl_id, lv_lf_evt_ocrd_dt) ;
3348: if g_debug then
3349: hr_utility.set_location('After call to delete_init_pel',10);
3350: end if;
3351: --
3352: -- CWB 2712602 : Delete all the hrchy data linked to backed out per in ler.
3353: --
3395: end;
3396: --
3397: end loop;
3398: if g_debug then
3399: hr_utility.set_location('Leaving: '||l_proc,10);
3400: end if;
3401: --
3402: end popu_pel_heir;
3403: --
3533: l_elig_per_elctbl_chc_id number := null ;
3534: begin
3535: --
3536: if g_debug then
3537: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3538: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3539: end if;
3540: --
3541: open c_mgr (p_person_id,p_pl_id,p_lf_evt_ocrd_dt,p_ler_id,p_business_group_id);
3534: begin
3535: --
3536: if g_debug then
3537: hr_utility.set_location('MGR p_person_id '||p_person_id,22);
3538: hr_utility.set_location('MGR p_business_group_id '||p_business_group_id,23);
3539: end if;
3540: --
3541: open c_mgr (p_person_id,p_pl_id,p_lf_evt_ocrd_dt,p_ler_id,p_business_group_id);
3542: fetch c_mgr into l_ws_mgr_id,l_elig_per_elctbl_chc_id ;
3542: fetch c_mgr into l_ws_mgr_id,l_elig_per_elctbl_chc_id ;
3543: close c_mgr ;
3544: --
3545: if g_debug then
3546: hr_utility.set_location('MGR OUT l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,30);
3547: hr_utility.set_location('MGR OUT l_ws_mgr_id '||l_ws_mgr_id,40);
3548: end if;
3549: --
3550: p_elig_per_elctbl_chc_id := l_elig_per_elctbl_chc_id ;
3543: close c_mgr ;
3544: --
3545: if g_debug then
3546: hr_utility.set_location('MGR OUT l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,30);
3547: hr_utility.set_location('MGR OUT l_ws_mgr_id '||l_ws_mgr_id,40);
3548: end if;
3549: --
3550: p_elig_per_elctbl_chc_id := l_elig_per_elctbl_chc_id ;
3551: p_ws_mgr_id := l_ws_mgr_id ;
3558: p_lvl_num number ) is
3559: begin
3560: --
3561: if g_debug then
3562: hr_utility.set_location('insert_mgr_hrchy p_emp_elig_per_elctbl_chc_id '
3563: ||p_emp_elig_per_elctbl_chc_id,10);
3564: hr_utility.set_location('insert_mgr_hrchy p_mgr_elig_per_elctbl_chc_id '
3565: ||p_mgr_elig_per_elctbl_chc_id || ' lvl = ' || p_lvl_num, 20);
3566: end if;
3560: --
3561: if g_debug then
3562: hr_utility.set_location('insert_mgr_hrchy p_emp_elig_per_elctbl_chc_id '
3563: ||p_emp_elig_per_elctbl_chc_id,10);
3564: hr_utility.set_location('insert_mgr_hrchy p_mgr_elig_per_elctbl_chc_id '
3565: ||p_mgr_elig_per_elctbl_chc_id || ' lvl = ' || p_lvl_num, 20);
3566: end if;
3567: insert into ben_cwb_mgr_hrchy (
3568: emp_elig_per_elctbl_chc_id,
3643: begin
3644: --
3645: if g_debug then
3646: l_proc := g_package|| '.popu_epe_heir';
3647: hr_utility.set_location('Entering: '||l_proc,10);
3648: end if;
3649: --
3650: lv_pl_id := -1;
3651: lv_lf_evt_ocrd_dt := hr_api.g_eot;
3670: --
3671: end if;
3672: --
3673: if g_debug then
3674: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3675: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3676: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3677: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3678: end if;
3671: end if;
3672: --
3673: if g_debug then
3674: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3675: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3676: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3677: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3678: end if;
3679: open c_epe(lv_pl_id, lv_lf_evt_ocrd_dt);
3672: --
3673: if g_debug then
3674: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3675: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3676: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3677: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3678: end if;
3679: open c_epe(lv_pl_id, lv_lf_evt_ocrd_dt);
3680: fetch c_epe into l_emp_epe,l_mgr_person_id ;
3673: if g_debug then
3674: hr_utility.set_location(l_proc || ' lv_pl_id = ' || lv_pl_id, 9876);
3675: hr_utility.set_location(l_proc || ' lv_lf_evt_ocrd_dt = ' || lv_lf_evt_ocrd_dt, 9876);
3676: hr_utility.set_location(l_proc || ' lv_business_group_id = ' || lv_business_group_id, 9876);
3677: hr_utility.set_location(l_proc || ' lv_ler_id = ' || lv_ler_id, 9876);
3678: end if;
3679: open c_epe(lv_pl_id, lv_lf_evt_ocrd_dt);
3680: fetch c_epe into l_emp_epe,l_mgr_person_id ;
3681: --
3679: open c_epe(lv_pl_id, lv_lf_evt_ocrd_dt);
3680: fetch c_epe into l_emp_epe,l_mgr_person_id ;
3681: --
3682: if g_debug then
3683: hr_utility.set_location(' l_emp_epe '||l_emp_epe,99);
3684: hr_utility.set_location(' l_mgr_person_id '||l_mgr_person_id,99);
3685: end if;
3686: if c_epe%found then
3687: --
3680: fetch c_epe into l_emp_epe,l_mgr_person_id ;
3681: --
3682: if g_debug then
3683: hr_utility.set_location(' l_emp_epe '||l_emp_epe,99);
3684: hr_utility.set_location(' l_mgr_person_id '||l_mgr_person_id,99);
3685: end if;
3686: if c_epe%found then
3687: --
3688: open c_pl_ler(l_emp_epe);
3691: --
3692: end if;
3693: --
3694: if g_debug then
3695: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3696: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3697: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3698: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3699: end if;
3692: end if;
3693: --
3694: if g_debug then
3695: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3696: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3697: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3698: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3699: end if;
3700: <
3693: --
3694: if g_debug then
3695: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3696: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3697: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3698: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3699: end if;
3700: <
3701: loop
3694: if g_debug then
3695: hr_utility.set_location(' l_pl_id '||l_pl_id,99);
3696: hr_utility.set_location(' l_lf_evt_ocrd_dt '||l_lf_evt_ocrd_dt,99);
3697: hr_utility.set_location(' l_ler_id '||l_ler_id,99);
3698: hr_utility.set_location(' l_business_group_id '||l_business_group_id,99);
3699: end if;
3700: <
3701: loop
3702: --
3706: <
3707: loop
3708: --
3709: if g_debug then
3710: hr_utility.set_location('Before mgr l_mgr_person_id '||l_mgr_person_id,10);
3711: end if;
3712: mgr(l_mgr_person_id,
3713: l_business_group_id,
3714: l_pl_id,
3716: l_ler_id,
3717: l_mgr_person_id_out,
3718: l_mgr_epe);
3719: if g_debug then
3720: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
3721: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
3722: hr_utility.set_location('After Mgr l_mgr_epe '||l_mgr_epe,30);
3723: end if;
3724: --
3717: l_mgr_person_id_out,
3718: l_mgr_epe);
3719: if g_debug then
3720: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
3721: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
3722: hr_utility.set_location('After Mgr l_mgr_epe '||l_mgr_epe,30);
3723: end if;
3724: --
3725: if l_mgr_epe is not null then
3718: l_mgr_epe);
3719: if g_debug then
3720: hr_utility.set_location('After Mgr l_mgr_person_id '||l_mgr_person_id,20);
3721: hr_utility.set_location('After Mgr l_mgr_person_id_out '||l_mgr_person_id_out,20);
3722: hr_utility.set_location('After Mgr l_mgr_epe '||l_mgr_epe,30);
3723: end if;
3724: --
3725: if l_mgr_epe is not null then
3726: --
3731: exit mgr_loop when (l_mgr_person_id = l_mgr_person_id_out
3732: OR l_mgr_person_id_out is null ) ;
3733: --call to insert routne
3734: if g_debug then
3735: hr_utility.set_location('Emp EPE '||l_emp_epe , 20);
3736: hr_utility.set_location('Mgr EPE '||l_mgr_epe , 30);
3737: hr_utility.set_location('Level '||l_level , 40);
3738: end if;
3739: --
3732: OR l_mgr_person_id_out is null ) ;
3733: --call to insert routne
3734: if g_debug then
3735: hr_utility.set_location('Emp EPE '||l_emp_epe , 20);
3736: hr_utility.set_location('Mgr EPE '||l_mgr_epe , 30);
3737: hr_utility.set_location('Level '||l_level , 40);
3738: end if;
3739: --
3740: -- insert_mgr_hrchy(l_emp_epe,l_mgr_epe,l_level);
3733: --call to insert routne
3734: if g_debug then
3735: hr_utility.set_location('Emp EPE '||l_emp_epe , 20);
3736: hr_utility.set_location('Mgr EPE '||l_mgr_epe , 30);
3737: hr_utility.set_location('Level '||l_level , 40);
3738: end if;
3739: --
3740: -- insert_mgr_hrchy(l_emp_epe,l_mgr_epe,l_level);
3741: --
3757: --
3758: end if;
3759: --
3760: if g_debug then
3761: hr_utility.set_location(' End of mgr_loop ',99);
3762: end if;
3763: end loop epe ;
3764: --
3765: close c_epe ;
3765: close c_epe ;
3766: --
3767: --call to delete the intial epe records
3768: if g_debug then
3769: hr_utility.set_location('Before call to delete_init_epe',10);
3770: end if;
3771: update_init_epe(lv_pl_id, lv_lf_evt_ocrd_dt) ;
3772: if g_debug then
3773: hr_utility.set_location('After call to delete_init_epe',10);
3769: hr_utility.set_location('Before call to delete_init_epe',10);
3770: end if;
3771: update_init_epe(lv_pl_id, lv_lf_evt_ocrd_dt) ;
3772: if g_debug then
3773: hr_utility.set_location('After call to delete_init_epe',10);
3774: end if;
3775: -- After testing on hrcwbdvl uncomment the code.
3776: --
3777: -- Bug 2288042
3796: end;
3797: --
3798: end loop;
3799: if g_debug then
3800: hr_utility.set_location('Leaving: '||l_proc,10);
3801: end if;
3802: --
3803: end popu_epe_heir;
3804: --
3938: begin
3939: --
3940: if g_debug then
3941: l_package := g_package||'.popu_cross_gb_epe_data';
3942: hr_utility.set_location ('Entering '||l_package,10);
3943: end if;
3944: --
3945: benutils.get_active_life_event
3946: (p_person_id => p_person_id,
4046: --
4047: for l_curr_epe in c_epe(l_rec.per_in_ler_id) loop
4048: --
4049: if g_debug then
4050: hr_utility.set_location('EPEC_CRE: Cross BG ' || l_package, 10);
4051: end if;
4052: ben_elig_per_elc_chc_api.create_perf_elig_per_elc_chc(
4053: p_elig_per_elctbl_chc_id => l_elig_per_elctbl_chc_id,
4054: p_business_group_id => l_curr_epe.per_business_group_id,
4133: --
4134: close c_hrchy;
4135: --
4136: if g_debug then
4137: hr_utility.set_location('Done EPEC_CRE Cross BG : ' || l_package, 10);
4138: end if;
4139: --
4140: for l_ecr_rec in c_ecr(l_curr_epe.elig_per_elctbl_chc_id)
4141: loop
4338: --
4339: end loop; -- while loop
4340: --
4341: if g_debug then
4342: hr_utility.set_location ('Leaving '||l_package,10);
4343: end if;
4344: --
4345: end popu_cross_gb_epe_pel_data;
4346: --
4445: begin
4446: --
4447: if g_debug then
4448: l_package := g_package||'.popu_cross_gb_epe_data';
4449: hr_utility.set_location ('Entering '||l_package,10);
4450: end if;
4451: --
4452: benutils.get_active_life_event
4453: (p_person_id => p_person_id,
4573: -- fetch c_plan_enrolment_info into l_prtt_enrt_rslt_id;
4574: -- close c_plan_enrolment_info;
4575: --
4576: if g_debug then
4577: hr_utility.set_location('EPEC_CRE: Cross BG ' || l_package, 10);
4578: end if;
4579: ben_elig_per_elc_chc_api.create_perf_elig_per_elc_chc(
4580: p_elig_per_elctbl_chc_id => l_elig_per_elctbl_chc_id,
4581: p_business_group_id => l_curr_epe.per_business_group_id,
4655: --
4656: close c_cwb_hrchy;
4657: --
4658: if g_debug then
4659: hr_utility.set_location('Done EPEC_CRE Cross BG : ' || l_package, 10);
4660: end if;
4661: --
4662: for l_ecr_rec in c_ecr(l_curr_epe.elig_per_elctbl_chc_id)
4663: loop
4855: end loop;
4856: -- end if;
4857: --
4858: if g_debug then
4859: hr_utility.set_location ('Leaving '||l_package,10);
4860: end if;
4861: --
4862: end popu_cross_gb_epe_data;
4863: */
4915:
4916: begin
4917:
4918: if g_debug then
4919: hr_utility.set_location ('Entering '||l_package,10);
4920: end if;
4921:
4922: open c_epe1;
4923: fetch c_epe1 into
4967: close c_epe2;
4968: end if;
4969:
4970: if g_debug then
4971: hr_utility.set_location ('Leaving '||l_package,10);
4972: end if;
4973:
4974: exception
4975: when others then
5019: begin
5020:
5021: if g_debug then
5022: l_package := g_package||'.del_cwb_pil';
5023: hr_utility.set_location ('Entering '||l_package,10);
5024: end if;
5025:
5026: open c_pil;
5027: fetch c_pil into l_pil_rec;
5055: end if;
5056: close c_pil;
5057:
5058: if g_debug then
5059: hr_utility.set_location ('Leaving '||l_package,10);
5060: end if;
5061:
5062: end;
5063: --
5148: begin
5149: --
5150: if g_debug then
5151: l_package := g_package||'.process_rows';
5152: hr_utility.set_location ('Entering '||l_package,10);
5153: end if;
5154: --
5155: open c_person_thread;
5156: --
5156: --
5157: loop
5158: --
5159: if g_debug then
5160: hr_utility.set_location (l_package||' Start c_person_thread ',20);
5161: end if;
5162: fetch c_person_thread into l_person_id,
5163: l_person_action_id,
5164: l_object_version_number,
5163: l_person_action_id,
5164: l_object_version_number,
5165: l_ler_id;
5166: if g_debug then
5167: hr_utility.set_location (l_package||' fetch c_person_thread ',20);
5168: end if;
5169: exit when c_person_thread%notfound;
5170: --
5171: l_count := l_count + 1;
5228: End loop;
5229: --
5230: --
5231: if g_debug then
5232: hr_utility.set_location('End c_person_thread loop '||l_package,10);
5233: end if;
5234: --
5235: -- We need to commit the validate mode stuff to the log and
5236: -- table at regular intervals, that way users can view the log
5247: end loop;
5248: --
5249: close c_person_thread;
5250: if g_debug then
5251: hr_utility.set_location (l_package||' close c_person_thread ',20);
5252: end if;
5253: --
5254: if ben_populate_rbv.validate_mode
5255: (p_validate => p_validate
5269: end if;
5270: --
5271: */
5272: if g_debug then
5273: hr_utility.set_location (l_package||' Write TAF ',20);
5274: end if;
5275: benutils.write_table_and_file(p_table => true,
5276: p_file => true);
5277: commit;
5276: p_file => true);
5277: commit;
5278: --
5279: if g_debug then
5280: hr_utility.set_location ('Leaving '||l_package,10);
5281: end if;
5282: --
5283: end process_rows;
5284: --
5296: begin
5297: --
5298: if g_debug then
5299: l_proc := g_package || '.set_up_cobj_part_elig';
5300: hr_utility.set_location('Entering '||l_proc,10);
5301: end if;
5302: if p_comp_obj_tree_row.pgm_id is not null then
5303: --
5304: if g_debug then
5301: end if;
5302: if p_comp_obj_tree_row.pgm_id is not null then
5303: --
5304: if g_debug then
5305: hr_utility.set_location('Setting up eligibility at the PGM level',10);
5306: end if;
5307: --
5308: ben_cobj_cache.get_pgm_dets
5309: (p_business_group_id => p_business_group_id
5327: ,p_inst_row => ben_cobj_cache.g_pgmprel_currow
5328: );
5329: --
5330: if g_debug then
5331: hr_utility.set_location('Done pgm setobjs '||l_proc,20);
5332: end if;
5333: --
5334: elsif p_comp_obj_tree_row.ptip_id is not null then
5335: --
5333: --
5334: elsif p_comp_obj_tree_row.ptip_id is not null then
5335: --
5336: if g_debug then
5337: hr_utility.set_location('Setting up eligibility at the PTIP level',10);
5338: end if;
5339: --
5340: ben_cobj_cache.get_ptip_dets
5341: (p_business_group_id => p_business_group_id
5361: --
5362: elsif p_comp_obj_tree_row.plip_id is not null then
5363: --
5364: if g_debug then
5365: hr_utility.set_location('Setting up eligibility at the PLIP level',10);
5366: end if;
5367: --
5368: ben_cobj_cache.get_plip_dets
5369: (p_business_group_id => p_business_group_id
5387: ,p_inst_row => ben_cobj_cache.g_plipprel_currow
5388: );
5389: --
5390: if g_debug then
5391: hr_utility.set_location(' current ptip ' || p_comp_obj_tree_row.par_ptip_id, 99 );
5392: hr_utility.set_location(' current hash ' || ben_cobj_cache.g_ptip_currow.ptip_id, 99 ) ;
5393: end if;
5394: ---- bug : 2228464 tilak
5395: ---- Compensation object tree was populated in PGM,PL name order
5388: );
5389: --
5390: if g_debug then
5391: hr_utility.set_location(' current ptip ' || p_comp_obj_tree_row.par_ptip_id, 99 );
5392: hr_utility.set_location(' current hash ' || ben_cobj_cache.g_ptip_currow.ptip_id, 99 ) ;
5393: end if;
5394: ---- bug : 2228464 tilak
5395: ---- Compensation object tree was populated in PGM,PL name order
5396: ---- there cane a possibility of ptip falls in different levl
5427: );
5428: end if ;
5429:
5430: if g_debug then
5431: hr_utility.set_location('Done PLIP '||l_proc,30);
5432: end if;
5433: --
5434: elsif p_comp_obj_tree_row.pl_id is not null then
5435: --
5433: --
5434: elsif p_comp_obj_tree_row.pl_id is not null then
5435: --
5436: if g_debug then
5437: hr_utility.set_location('Setting up eligibility at the PLN level',10);
5438: end if;
5439: --
5440: ben_cobj_cache.get_pl_dets
5441: (p_business_group_id => p_business_group_id
5459: ,p_inst_row => ben_cobj_cache.g_plprel_currow
5460: );
5461: --
5462: if g_debug then
5463: hr_utility.set_location('Done pln setobjs '||l_proc,20);
5464: end if;
5465: --
5466: elsif p_comp_obj_tree_row.oipl_id is not null then
5467: --
5465: --
5466: elsif p_comp_obj_tree_row.oipl_id is not null then
5467: --
5468: if g_debug then
5469: hr_utility.set_location(l_proc||' OIPL NN ',20);
5470: end if;
5471: --
5472: ben_cobj_cache.get_oipl_dets
5473: (p_business_group_id => p_business_group_id
5511: --
5512: end if;
5513: --
5514: if g_debug then
5515: hr_utility.set_location('Done oipl setobjs '||l_proc,20);
5516: end if;
5517: --
5518: end if;
5519: --
5517: --
5518: end if;
5519: --
5520: if g_debug then
5521: hr_utility.set_location('Leaving '||l_proc,10);
5522: end if;
5523: --
5524: end set_up_cobj_part_elig;
5525: --
5537: begin
5538: --
5539: if g_debug then
5540: l_proc := g_package || '.set_up_list_part_elig';
5541: hr_utility.set_location('Entering '||l_proc,10);
5542: end if;
5543: --
5544: -- Loop through all comp objects and making a call to set up the eligibility
5545: -- cache.
5546: --
5547: for l_count in g_cache_proc_object.first..g_cache_proc_object.last loop
5548: --
5549: if g_debug then
5550: hr_utility.set_location('Start loop '||l_proc,20);
5551: end if;
5552: if g_cache_proc_object(l_count).pgm_id is not null then
5553: --
5554: if g_debug then
5551: end if;
5552: if g_cache_proc_object(l_count).pgm_id is not null then
5553: --
5554: if g_debug then
5555: hr_utility.set_location('Setting up eligibility at the PGM level',10);
5556: end if;
5557: --
5558: ben_elig_object.set_object
5559: (p_pgm_id => g_cache_proc_object(l_count).pgm_id,
5568: p_business_group_id => p_business_group_id,
5569: p_effective_date => p_effective_date);
5570:
5571: if g_debug then
5572: hr_utility.set_location('Done pgm setobjs '||l_proc,20);
5573: end if;
5574: --
5575: elsif g_cache_proc_object(l_count).pl_id is not null then
5576: --
5574: --
5575: elsif g_cache_proc_object(l_count).pl_id is not null then
5576: --
5577: if g_debug then
5578: hr_utility.set_location('Setting up eligibility at the PLN level',10);
5579: end if;
5580: --
5581: ben_elig_object.set_object
5582: (p_pl_id => g_cache_proc_object(l_count).pl_id,
5590: (p_pl_id => g_cache_proc_object(l_count).pl_id,
5591: p_business_group_id => p_business_group_id,
5592: p_effective_date => p_effective_date);
5593: if g_debug then
5594: hr_utility.set_location('Done pln setobjs '||l_proc,20);
5595: end if;
5596: --
5597: --
5598: elsif g_cache_proc_object(l_count).plip_id is not null then
5597: --
5598: elsif g_cache_proc_object(l_count).plip_id is not null then
5599: --
5600: if g_debug then
5601: hr_utility.set_location('Setting up eligibility at the PLIP level',10);
5602: end if;
5603: --
5604: ben_elig_object.set_object
5605: (p_plip_id => g_cache_proc_object(l_count).plip_id,
5609: ,p_rec => l_rec
5610: );
5611: --
5612: if g_debug then
5613: hr_utility.set_location('Done plip ler sobjs '||l_proc,20);
5614: end if;
5615: ben_elig_object.set_object
5616: (p_plip_id => g_cache_proc_object(l_count).plip_id,
5617: p_business_group_id => p_business_group_id,
5617: p_business_group_id => p_business_group_id,
5618: p_effective_date => p_effective_date);
5619: --
5620: if g_debug then
5621: hr_utility.set_location('Done PLIP '||l_proc,30);
5622: end if;
5623: --
5624: elsif g_cache_proc_object(l_count).ptip_id is not null then
5625: --
5623: --
5624: elsif g_cache_proc_object(l_count).ptip_id is not null then
5625: --
5626: if g_debug then
5627: hr_utility.set_location('Setting up eligibility at the PTIP level',10);
5628: hr_utility.set_location('Current PTIP = '||
5629: g_cache_proc_object(l_count).ptip_id,10);
5630: --
5631: hr_utility.set_location('ELOBJ_SOBJ '||l_proc,30);
5624: elsif g_cache_proc_object(l_count).ptip_id is not null then
5625: --
5626: if g_debug then
5627: hr_utility.set_location('Setting up eligibility at the PTIP level',10);
5628: hr_utility.set_location('Current PTIP = '||
5629: g_cache_proc_object(l_count).ptip_id,10);
5630: --
5631: hr_utility.set_location('ELOBJ_SOBJ '||l_proc,30);
5632: end if;
5627: hr_utility.set_location('Setting up eligibility at the PTIP level',10);
5628: hr_utility.set_location('Current PTIP = '||
5629: g_cache_proc_object(l_count).ptip_id,10);
5630: --
5631: hr_utility.set_location('ELOBJ_SOBJ '||l_proc,30);
5632: end if;
5633: ben_elig_object.set_object
5634: (p_ptip_id => g_cache_proc_object(l_count).ptip_id,
5635: p_ler_id => p_ler_id,
5645: --
5646: elsif g_cache_proc_object(l_count).oipl_id is not null then
5647: --
5648: if g_debug then
5649: hr_utility.set_location('Setting up eligibility at the OIPL level',10);
5650: end if;
5651: --
5652: if g_debug then
5653: hr_utility.set_location(l_proc||' OIPL NN ',20);
5649: hr_utility.set_location('Setting up eligibility at the OIPL level',10);
5650: end if;
5651: --
5652: if g_debug then
5653: hr_utility.set_location(l_proc||' OIPL NN ',20);
5654: end if;
5655: ben_elig_object.set_object
5656: (p_oipl_id => g_cache_proc_object(l_count).oipl_id,
5657: p_ler_id => p_ler_id,
5664: (p_oipl_id => g_cache_proc_object(l_count).oipl_id,
5665: p_business_group_id => p_business_group_id,
5666: p_effective_date => p_effective_date);
5667: if g_debug then
5668: hr_utility.set_location('Done oipl setobjs '||l_proc,20);
5669: end if;
5670: --
5671: end if;
5672: --
5672: --
5673: end loop;
5674: --
5675: if g_debug then
5676: hr_utility.set_location('Leaving '||l_proc,10);
5677: end if;
5678: --
5679: end set_up_list_part_elig;
5680: --
5728: l_ler_rec benutils.g_ler;
5729: --
5730: begin
5731: --
5732: g_debug := hr_utility.debug_enabled;
5733: if g_debug then
5734: l_package := g_package||'.do_multithread';
5735: hr_utility.set_location ('Entering '||l_package,10);
5736: hr_utility.set_location ('p_mode : '||p_mode,20);
5731: --
5732: g_debug := hr_utility.debug_enabled;
5733: if g_debug then
5734: l_package := g_package||'.do_multithread';
5735: hr_utility.set_location ('Entering '||l_package,10);
5736: hr_utility.set_location ('p_mode : '||p_mode,20);
5737: end if;
5738: --
5739: -- Convert varchar2 dates to real dates
5732: g_debug := hr_utility.debug_enabled;
5733: if g_debug then
5734: l_package := g_package||'.do_multithread';
5735: hr_utility.set_location ('Entering '||l_package,10);
5736: hr_utility.set_location ('p_mode : '||p_mode,20);
5737: end if;
5738: --
5739: -- Convert varchar2 dates to real dates
5740: -- 1) First remove time component
5781: p_chunk_size => l_chunk_size,
5782: p_max_errors => g_max_errors_allowed);
5783:
5784: if g_debug then
5785: hr_utility.set_location ('Dn get_parameter '||l_package,10);
5786: end if;
5787: --
5788: -- Clear benmngle level caches
5789: --
5821: --
5822: if p_lmt_prpnip_by_org_flag = 'N' then
5823: --
5824: if g_debug then
5825: hr_utility.set_location (' Temp BCOL '||l_package,10);
5826: end if;
5827: ben_comp_object_list.build_comp_object_list
5828: (p_benefit_action_id => p_benefit_action_id
5829: ,p_comp_selection_rule_id => p_comp_selection_rule_id
5855: ,p_business_group_id => p_business_group_id
5856: ,p_effective_date => l_effective_date
5857: );
5858: if g_debug then
5859: hr_utility.set_location (' Dn Temp BCOL '||l_package,10);
5860: end if;
5861: --
5862: end if;
5863: --
5872: -- 4) Go to number 1 again.
5873: --
5874: loop
5875: if g_debug then
5876: hr_utility.set_location (l_package||' START process_rows loop ',20);
5877: end if;
5878: --
5879: -- Chunk scheduling changes
5880: --
5878: --
5879: -- Chunk scheduling changes
5880: --
5881: if g_debug then
5882: hr_utility.set_location (l_package||' open c_range_thread ',22);
5883: end if;
5884: ben_maintain_benefit_actions.grab_next_batch_range
5885: (p_benefit_action_id => p_benefit_action_id
5886: --
5889: ,p_rows_found => l_rows_found
5890: );
5891: --
5892: if g_debug then
5893: hr_utility.set_location (l_package||' Done c_range_thread ',25);
5894: end if;
5895: --
5896: if not l_rows_found then
5897: --
5914: --
5915: end if;
5916: --
5917: if g_debug then
5918: hr_utility.set_location ('p_mode : '||p_mode,25);
5919: end if;
5920: process_rows
5921: (p_benefit_action_id => p_benefit_action_id,
5922: p_start_person_action_id => l_start_person_action_id,
5942: p_lf_evt_oper_cd => p_lf_evt_oper_cd /* GSP Rate Sync */
5943: );
5944: --
5945: if g_debug then
5946: hr_utility.set_location (l_package||' END process_rows loop ',50);
5947: end if;
5948: end loop;
5949: if g_debug then
5950: hr_utility.set_location (l_package||' Dn process_rows loop ',50);
5946: hr_utility.set_location (l_package||' END process_rows loop ',50);
5947: end if;
5948: end loop;
5949: if g_debug then
5950: hr_utility.set_location (l_package||' Dn process_rows loop ',50);
5951: end if;
5952: --
5953: -- Output log information to log file
5954: --
5970: --
5971: end if;
5972: --
5973: if g_debug then
5974: hr_utility.set_location ('Leaving '||l_package,10);
5975: end if;
5976: --
5977: exception
5978: --
5977: exception
5978: --
5979: when g_record_error then
5980: if g_debug then
5981: hr_utility.set_location (l_package||' Exception g_record_error ',50);
5982: end if;
5983: benutils.write(p_text => fnd_message.get);
5984: --
5985: -- Write the last bit of information for the thread
6006: --
6007: if not l_slave_errored then
6008: --
6009: if g_debug then
6010: hr_utility.set_location (l_package||' OTHERS Exc ',60);
6011: end if;
6012: rollback;
6013: if g_debug then
6014: hr_utility.set_location ('BENMNGLE Super Error '||l_package,10);
6010: hr_utility.set_location (l_package||' OTHERS Exc ',60);
6011: end if;
6012: rollback;
6013: if g_debug then
6014: hr_utility.set_location ('BENMNGLE Super Error '||l_package,10);
6015: end if;
6016: g_rec.rep_typ_cd := 'FATAL';
6017: g_rec.text := nvl(fnd_message.get,sqlerrm);
6018: if g_debug then
6015: end if;
6016: g_rec.rep_typ_cd := 'FATAL';
6017: g_rec.text := nvl(fnd_message.get,sqlerrm);
6018: if g_debug then
6019: hr_utility.set_location(substr(g_rec.text,1,100),10);
6020: end if;
6021: benutils.write(p_rec => g_rec);
6022: --
6023: -- Output log information to log file
6045: benutils.write_table_and_file(p_table => true,
6046: p_file => true);
6047: commit;
6048: if g_debug then
6049: hr_utility.set_location ('Others error '||l_package,100);
6050: end if;
6051: fnd_message.raise_error;
6052: --
6053: end do_multithread;
6104: l_retcode number;
6105: --
6106: begin
6107: --
6108: g_debug := hr_utility.debug_enabled;
6109: if g_debug then
6110: l_package := g_package||'.restart';
6111: hr_utility.set_location ('Entering '||l_package,10);
6112: end if;
6107: --
6108: g_debug := hr_utility.debug_enabled;
6109: if g_debug then
6110: l_package := g_package||'.restart';
6111: hr_utility.set_location ('Entering '||l_package,10);
6112: end if;
6113: --
6114: -- get the parameters for a previous run and do a restart
6115: --
6170: -- The p_lf_evt_ocrd_dt needs to use lf_evt_ocrd_dt but that needs a schema
6171: -- change.
6172: --
6173: if g_debug then
6174: hr_utility.set_location ('Leaving '||l_package,10);
6175: end if;
6176: --
6177: end restart;
6178: --
6229: where request_id = fnd_global.conc_request_id;
6230: --
6231: begin
6232: --
6233: g_debug := hr_utility.debug_enabled;
6234: --
6235: open c_get_parent_req_id ;
6236: fetch c_get_parent_req_id into l_parent_req_id ;
6237: close c_get_parent_req_id ;
6338: l_errbuf varchar2(1000);
6339: l_commit number;
6340: begin
6341: --
6342: g_debug := hr_utility.debug_enabled;
6343: --
6344: -- Bug: 4128034. CWB Mode fnd_session needs to be set.
6345: if p_mode = 'W' then
6346: dt_fndate.change_ses_date
6455: l_errbuf varchar2(1000);
6456:
6457: begin
6458: --
6459: -- hr_utility.trace_on(null, 'GSPRS');
6460: g_debug := hr_utility.debug_enabled;
6461: /*
6462: fnd_file.put_line(fnd_file.log,'p_benefit_action_id '||nvl(p_benefit_action_id, -1));
6463: fnd_file.put_line(fnd_file.log,'p_effective_date '||p_effective_date);
6456:
6457: begin
6458: --
6459: -- hr_utility.trace_on(null, 'GSPRS');
6460: g_debug := hr_utility.debug_enabled;
6461: /*
6462: fnd_file.put_line(fnd_file.log,'p_benefit_action_id '||nvl(p_benefit_action_id, -1));
6463: fnd_file.put_line(fnd_file.log,'p_effective_date '||p_effective_date);
6464: fnd_file.put_line(fnd_file.log,'p_mode '||nvl(p_mode,'null'));
6476: fnd_file.put_line(fnd_file.log,'p_business_group_id '||p_business_group_id);
6477: fnd_file.put_line(fnd_file.log,'p_business_group_id '||p_business_group_id);
6478:
6479:
6480: hr_utility.set_location ('Before Step 1',20);
6481: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6482: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6483: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6484: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6477: fnd_file.put_line(fnd_file.log,'p_business_group_id '||p_business_group_id);
6478:
6479:
6480: hr_utility.set_location ('Before Step 1',20);
6481: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6482: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6483: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6484: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6485: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6478:
6479:
6480: hr_utility.set_location ('Before Step 1',20);
6481: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6482: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6483: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6484: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6485: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6486: */
6479:
6480: hr_utility.set_location ('Before Step 1',20);
6481: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6482: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6483: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6484: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6485: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6486: */
6487: --
6480: hr_utility.set_location ('Before Step 1',20);
6481: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6482: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6483: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6484: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6485: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6486: */
6487: --
6488: process
6481: hr_utility.set_location ('p_effective_date '||p_effective_date,20);
6482: hr_utility.set_location ('p_business_group_id '||p_business_group_id,20);
6483: hr_utility.set_location ('p_commit_data '||p_commit_data,20);
6484: hr_utility.set_location ('p_audit_log_flag '||p_audit_log_flag,20);
6485: hr_utility.set_location ('p_lmt_prpnip_by_org_flag '||p_lmt_prpnip_by_org_flag,20);
6486: */
6487: --
6488: process
6489: (errbuf =>l_errbuf,
6594: l_errbuf varchar2(1000);
6595:
6596: begin
6597: --
6598: -- hr_utility.trace_on(null, 'GSPRS');
6599: g_debug := hr_utility.debug_enabled;
6600: --
6601: process
6602: (errbuf => l_errbuf,
6595:
6596: begin
6597: --
6598: -- hr_utility.trace_on(null, 'GSPRS');
6599: g_debug := hr_utility.debug_enabled;
6600: --
6601: process
6602: (errbuf => l_errbuf,
6603: retcode => l_retcode,
6639: p_asg_events_to_all_sel_dt => p_effective_date, -- Pass Effective Date as PTNL Life Event Occurred Date
6640: p_gsp_eval_elig_flag => p_gsp_eval_elig_flag,
6641: p_lf_evt_oper_cd => 'SYNC' -- Life Event Operation code for Rate Synchronization
6642: );
6643: hr_utility.trace_off;
6644: --
6645: end grade_step_rate_sync_process;
6646: --
6647: -- wrapper for procedure process - ABSENCES
6686: l_retcode number;
6687: l_errbuf varchar2(1000);
6688: begin
6689: --
6690: g_debug := hr_utility.debug_enabled;
6691: --
6692: process
6693: (errbuf =>l_errbuf,
6694: retcode =>l_retcode,
6792:
6793: --
6794: begin
6795: --
6796: g_debug := hr_utility.debug_enabled;
6797: --
6798: -- Bug 5857493
6799: if p_audit_log_flag ='Y' then
6800: ben_benbatch_persons.g_audit_flag := true;
7003: and pel.pil_elctbl_chc_popl_id = p_pil_elctbl_chc_popl_id;
7004: --
7005: begin
7006: --
7007: g_debug := hr_utility.debug_enabled;
7008: --
7009: -- Steps
7010: --
7011: -- 1. create pel,-1,-1 record for the p_pil_elctbl_chc_popl_id.
7026: fetch c_pel into g_rebuild_pl_id, g_rebuild_lf_evt_ocrd_dt, g_rebuild_business_group_id;
7027: close c_pel;
7028:
7029: if g_debug then
7030: hr_utility.set_location ('Before Step 1',20);
7031: end if;
7032: --
7033: -- Step 1
7034: begin
7052: --
7053: end;
7054: --
7055: if g_debug then
7056: hr_utility.set_location ('After Step 1',20);
7057: --
7058: hr_utility.set_location ('Before Step 2 ',20);
7059: end if;
7060: --
7054: --
7055: if g_debug then
7056: hr_utility.set_location ('After Step 1',20);
7057: --
7058: hr_utility.set_location ('Before Step 2 ',20);
7059: end if;
7060: --
7061: --Step 2
7062: -- Don't insert for the pel,0,0 record since it is
7094: --
7095: end;
7096: --
7097: if g_debug then
7098: hr_utility.set_location ('After Step 2 ',20);
7099: --
7100: hr_utility.set_location ('Before Step 3 ',20);
7101: end if;
7102: --
7096: --
7097: if g_debug then
7098: hr_utility.set_location ('After Step 2 ',20);
7099: --
7100: hr_utility.set_location ('Before Step 3 ',20);
7101: end if;
7102: --
7103: begin
7104: --
7123: --
7124: end;
7125: --
7126: if g_debug then
7127: hr_utility.set_location ('After Step 3 ',20);
7128: --
7129: hr_utility.set_location ('Before Calling popu_pel_heir',20);
7130: end if;
7131: begin
7125: --
7126: if g_debug then
7127: hr_utility.set_location ('After Step 3 ',20);
7128: --
7129: hr_utility.set_location ('Before Calling popu_pel_heir',20);
7130: end if;
7131: begin
7132: --
7133: ben_manage_life_events.popu_pel_heir ;
7138: --
7139: end;
7140: --
7141: if g_debug then
7142: hr_utility.set_location ('Before Step 5',20);
7143: end if;
7144: --
7145: begin
7146: --
7178: --
7179: end if;
7180: --
7181: if g_debug then
7182: hr_utility.set_location ('Afert Step 5',20);
7183: hr_utility.set_location ('After Calling popu_pel_heir',20);
7184: end if;
7185: --
7186: --
7179: end if;
7180: --
7181: if g_debug then
7182: hr_utility.set_location ('Afert Step 5',20);
7183: hr_utility.set_location ('After Calling popu_pel_heir',20);
7184: end if;
7185: --
7186: --
7187: end rebuild_heirarchy ;
7229: l_errbuf varchar2(1000);
7230: --
7231: begin
7232: --
7233: g_debug := hr_utility.debug_enabled;
7234: --
7235: process
7236: (errbuf =>l_errbuf,
7237: retcode =>l_retcode,
7309: l_errbuf varchar2(1000);
7310: --
7311: begin
7312: --
7313: g_debug := hr_utility.debug_enabled;
7314: --
7315: process
7316: (errbuf =>l_errbuf,
7317: retcode =>l_retcode,
7497: --
7498: --
7499: begin
7500: --
7501: g_debug := hr_utility.debug_enabled;
7502: l_package := g_package||'.internal_process';
7503: if g_debug then
7504: hr_utility.set_location ('Entering '||l_package,10);
7505: hr_utility.set_location ('p_mode : '||p_mode,5);
7500: --
7501: g_debug := hr_utility.debug_enabled;
7502: l_package := g_package||'.internal_process';
7503: if g_debug then
7504: hr_utility.set_location ('Entering '||l_package,10);
7505: hr_utility.set_location ('p_mode : '||p_mode,5);
7506: end if;
7507: --
7508: g_derivable_factors := p_derivable_factors;
7501: g_debug := hr_utility.debug_enabled;
7502: l_package := g_package||'.internal_process';
7503: if g_debug then
7504: hr_utility.set_location ('Entering '||l_package,10);
7505: hr_utility.set_location ('p_mode : '||p_mode,5);
7506: end if;
7507: --
7508: g_derivable_factors := p_derivable_factors;
7509: --
7611: );
7612:
7613: -- p_popl_enrt_typ_cycl_id => p_popl_enrt_typ_cycl_id);
7614: if g_debug then
7615: hr_utility.set_location (l_package||' Check business rules',20);
7616: end if;
7617: --
7618: -- Get ler_id for Unrestricted Mode and store it in globle variable so that procedures down the road can
7619: -- access it
7664: --
7665: close c_popl_enrt_typ_cycl;
7666:
7667: if g_debug then
7668: hr_utility.set_location (l_popl_enrt_typ_cycl_id || ' Done c_popl_enrt_typ_cycl ',30);
7669: hr_utility.set_location (p_popl_enrt_typ_cycl_id || ' Done c_popl_enrt_typ_cycl ',30);
7670: end if;
7671: --
7672: end if;
7665: close c_popl_enrt_typ_cycl;
7666:
7667: if g_debug then
7668: hr_utility.set_location (l_popl_enrt_typ_cycl_id || ' Done c_popl_enrt_typ_cycl ',30);
7669: hr_utility.set_location (p_popl_enrt_typ_cycl_id || ' Done c_popl_enrt_typ_cycl ',30);
7670: end if;
7671: --
7672: end if;
7673: --
7683: --
7684: l_ler_override_id := l_ler_rec.ler_id;
7685: --
7686: if g_debug then
7687: hr_utility.set_location (l_package||' benutils.get_ler ',30);
7688: end if;
7689: --
7690: end if;
7691: /*
7702: --
7703: l_ler_override_id := l_ler_rec.ler_id;
7704: --
7705: if g_debug then
7706: hr_utility.set_location (l_package||' benutils.get_ler ',31);
7707: end if;
7708: end if;
7709: */
7710: --
7711: -- Get parameters so we know how many slaves to start and what size the
7712: -- chunk size we will be processing is.
7713: --
7714: if g_debug then
7715: hr_utility.set_location (l_package||' get_parameter',20);
7716: end if;
7717: /* Start: CWB Thread Num Enhancement */
7718: if(p_mode = 'W') then
7719: benutils.get_parameter(p_business_group_id => p_business_group_id,
7729: p_max_errors => l_max_errors);
7730: end if;
7731: /* End: CWB Thread Num Enhancement */
7732: if g_debug then
7733: hr_utility.set_location (l_package||' Done get pm ',30);
7734: --
7735: hr_utility.set_location('Num Threads = '||l_threads,10);
7736: hr_utility.set_location('Chunk Size = '||l_chunk_size,10);
7737: hr_utility.set_location('Max Errors = '||l_max_errors,10);
7731: /* End: CWB Thread Num Enhancement */
7732: if g_debug then
7733: hr_utility.set_location (l_package||' Done get pm ',30);
7734: --
7735: hr_utility.set_location('Num Threads = '||l_threads,10);
7736: hr_utility.set_location('Chunk Size = '||l_chunk_size,10);
7737: hr_utility.set_location('Max Errors = '||l_max_errors,10);
7738: --
7739: end if;
7732: if g_debug then
7733: hr_utility.set_location (l_package||' Done get pm ',30);
7734: --
7735: hr_utility.set_location('Num Threads = '||l_threads,10);
7736: hr_utility.set_location('Chunk Size = '||l_chunk_size,10);
7737: hr_utility.set_location('Max Errors = '||l_max_errors,10);
7738: --
7739: end if;
7740: --
7733: hr_utility.set_location (l_package||' Done get pm ',30);
7734: --
7735: hr_utility.set_location('Num Threads = '||l_threads,10);
7736: hr_utility.set_location('Chunk Size = '||l_chunk_size,10);
7737: hr_utility.set_location('Max Errors = '||l_max_errors,10);
7738: --
7739: end if;
7740: --
7741: benutils.g_benefit_action_id := l_benefit_action_id; -- Bug 3870204
7746: --
7747: if p_benefit_action_id is null then
7748: --
7749: if g_debug then
7750: hr_utility.set_location (l_package||' Create BFT ',30);
7751: end if;
7752: --
7753: --
7754: ben_benefit_actions_api.create_perf_benefit_actions
7825: --
7826: benutils.g_benefit_action_id := l_benefit_action_id; -- Bug 3870204
7827: --
7828: if g_debug then
7829: hr_utility.set_location (l_package||' Dn Create BFT ',20);
7830: end if;
7831: --
7832: -- This must be committed to the database
7833: --
7863: fetch c_people_group_structure into l_id_flex_num;
7864: close c_people_group_structure;
7865:
7866: if g_debug then
7867: hr_utility.set_location (l_package||' Create L PER ACTs ',20);
7868: hr_utility.set_location ('p_mode : '||p_mode,6);
7869: end if;
7870: ben_benbatch_persons.create_life_person_actions
7871: (p_benefit_action_id => l_benefit_action_id,
7864: close c_people_group_structure;
7865:
7866: if g_debug then
7867: hr_utility.set_location (l_package||' Create L PER ACTs ',20);
7868: hr_utility.set_location ('p_mode : '||p_mode,6);
7869: end if;
7870: ben_benbatch_persons.create_life_person_actions
7871: (p_benefit_action_id => l_benefit_action_id,
7872: p_business_group_id => p_business_group_id,
7916: p_lf_evt_oper_cd => p_lf_evt_oper_cd /* GSP Rate Sync */
7917: );
7918:
7919: if g_debug then
7920: hr_utility.set_location (l_package||' Dn Create L PER ACTs ',20);
7921: end if;
7922: --
7923: elsif p_mode in ('U','D') then
7924: --
8009: l_benefit_action_id := p_benefit_action_id;
8010: --
8011: end if;
8012: if g_debug then
8013: hr_utility.set_location (l_package,30);
8014: end if;
8015: --
8016: if l_num_ranges = 0 then
8017: --
8035:
8036: if p_commit_data = 'Y' then
8037: --
8038: if g_debug then
8039: hr_utility.set_location ('Threads = '||l_threads,10);
8040: hr_utility.set_location ('Ranges = '||l_num_ranges,10);
8041: end if;
8042: --
8043: -- Set l_threads = l_threads - 1 as the master becomes a thread
8036: if p_commit_data = 'Y' then
8037: --
8038: if g_debug then
8039: hr_utility.set_location ('Threads = '||l_threads,10);
8040: hr_utility.set_location ('Ranges = '||l_num_ranges,10);
8041: end if;
8042: --
8043: -- Set l_threads = l_threads - 1 as the master becomes a thread
8044: --
8182: --
8183: end if;
8184: --
8185: if g_debug then
8186: hr_utility.set_location ('Leaving '||l_package,10);
8187: end if;
8188: --
8189: exception
8190: -- Bug 3870204
8258: l_bft_id number;
8259: --
8260: begin
8261: --
8262: g_debug := hr_utility.debug_enabled;
8263: if g_debug then
8264: l_package := g_package||'.process';
8265: hr_utility.set_location ('Entering '||l_package,10);
8266: end if;
8261: --
8262: g_debug := hr_utility.debug_enabled;
8263: if g_debug then
8264: l_package := g_package||'.process';
8265: hr_utility.set_location ('Entering '||l_package,10);
8266: end if;
8267: --
8268: l_bft_id := p_benefit_action_id;
8269: --
8267: --
8268: l_bft_id := p_benefit_action_id;
8269: --
8270: if g_debug then
8271: hr_utility.set_location ('p_mode : '||p_mode,4);
8272: end if;
8273: -- Bug 5857493
8274: if p_audit_log_flag ='Y' then
8275: ben_benbatch_persons.g_audit_flag := true;
8334: ,p_lf_evt_oper_cd => p_lf_evt_oper_cd -- GSP Rate Sync : Life Event Operation code
8335: ,p_cwb_person_type => p_cwb_person_type);
8336: --
8337: if g_debug then
8338: hr_utility.set_location ('Leaving '||l_package,10);
8339: end if;
8340: --
8341: end process;
8342: --
8367: begin
8368: --
8369: if g_debug then
8370: l_package := g_package||'.get_comp_object_name';
8371: hr_utility.set_location ('Entering '||l_package,10);
8372: end if;
8373: --
8374: if p_oipl_id is not null then
8375: --
8426: --
8427: end if;
8428: --
8429: if g_debug then
8430: hr_utility.set_location ('Leaving '||l_package,10);
8431: end if;
8432: --
8433: end get_comp_object_name;
8434: --
8459: l_person_prtn c_person_prtn%rowtype;
8460: --
8461: begin
8462: --
8463: g_debug := hr_utility.debug_enabled;
8464: if g_debug then
8465: l_package := g_package||'.cache_person_information';
8466: hr_utility.set_location ('Entering '||l_package,10);
8467: hr_utility.set_location ('Entering '||p_effective_date,10);
8462: --
8463: g_debug := hr_utility.debug_enabled;
8464: if g_debug then
8465: l_package := g_package||'.cache_person_information';
8466: hr_utility.set_location ('Entering '||l_package,10);
8467: hr_utility.set_location ('Entering '||p_effective_date,10);
8468: end if;
8469: --
8470: -- Open cursor to see if the person holds emp person type status
8463: g_debug := hr_utility.debug_enabled;
8464: if g_debug then
8465: l_package := g_package||'.cache_person_information';
8466: hr_utility.set_location ('Entering '||l_package,10);
8467: hr_utility.set_location ('Entering '||p_effective_date,10);
8468: end if;
8469: --
8470: -- Open cursor to see if the person holds emp person type status
8471: --
8498: --
8499: close c_person_prtn;
8500:
8501: if g_debug then
8502: hr_utility.set_location ('Done c_person_prtn '||l_package,40);
8503: end if;
8504: --
8505: -- We need to do the assignment stuff seperately as we can't outer join
8506: -- as we need assignments with primary flags and applicants have non
8508: -- statements, although a fix could be to do a union to get the value
8509: -- for the assignment id.
8510: --
8511: if g_debug then
8512: hr_utility.set_location ('Leaving '||l_package,100);
8513: end if;
8514: --
8515: end cache_person_information;
8516: -- ---------------------------------------------------------------------
8534: l_typ_rec ben_person_object.g_cache_typ_table;
8535: --
8536: begin
8537: --
8538: g_debug := hr_utility.debug_enabled;
8539: if g_debug then
8540: l_package := g_package||'.person_header';
8541: hr_utility.set_location ('Entering '||l_package,10);
8542: end if;
8537: --
8538: g_debug := hr_utility.debug_enabled;
8539: if g_debug then
8540: l_package := g_package||'.person_header';
8541: hr_utility.set_location ('Entering '||l_package,10);
8542: end if;
8543: --
8544: -- Cache person data
8545: --
8547: (p_person_id => p_person_id,
8548: p_business_group_id => p_business_group_id,
8549: p_effective_date => p_effective_date);
8550: if g_debug then
8551: hr_utility.set_location ('Dn Cac Per Inf '||l_package,10);
8552: end if;
8553: --
8554: -- This should display something like this
8555: --
8615: --
8616: end if;
8617: --
8618: if g_debug then
8619: hr_utility.set_location ('BPO_GO PAD '||l_package,10);
8620: end if;
8621: ben_person_object.get_object(p_person_id => p_person_id,
8622: p_rec => l_pad_rec);
8623: --
8684: benutils.id(l_pay_rec.payroll_id);
8685: benutils.write(p_text => l_output_string);
8686: --
8687: if g_debug then
8688: hr_utility.set_location ('Leaving '||l_package,10);
8689: end if;
8690: --
8691: end person_header;
8692: --
8720: l_typ_rec ben_person_object.g_cache_typ_table;
8721: --
8722: BEGIN
8723: --
8724: g_debug := hr_utility.debug_enabled;
8725:
8726: IF g_debug
8727: THEN
8728: l_package := g_package || '.person_header';
8725:
8726: IF g_debug
8727: THEN
8728: l_package := g_package || '.person_header';
8729: hr_utility.set_location ('Entering ' || l_package, 10);
8730: END IF;
8731:
8732: --
8733: -- This should display something like this
8818:
8819: --
8820: IF g_debug
8821: THEN
8822: hr_utility.set_location ('BPO_GO PAD ' || l_package, 10);
8823: END IF;
8824:
8825: ben_person_object.get_object (p_person_id => p_person_id,
8826: p_rec => l_pad_rec
8905:
8906: --
8907: IF g_debug
8908: THEN
8909: hr_utility.set_location ('Leaving ' || l_package, 10);
8910: END IF;
8911: --
8912: END person_header_new;
8913: --
8979: l_validate boolean;
8980: --
8981: begin
8982: --
8983: g_debug := hr_utility.debug_enabled;
8984: if g_debug then
8985: l_package := g_package||'.evaluate_life_events';
8986: hr_utility.set_location ('Entering ' || l_package,10);
8987: hr_utility.set_location ('p_mode : ' || p_mode,10);
8982: --
8983: g_debug := hr_utility.debug_enabled;
8984: if g_debug then
8985: l_package := g_package||'.evaluate_life_events';
8986: hr_utility.set_location ('Entering ' || l_package,10);
8987: hr_utility.set_location ('p_mode : ' || p_mode,10);
8988: end if;
8989: --
8990: -- Method of Operation
8983: g_debug := hr_utility.debug_enabled;
8984: if g_debug then
8985: l_package := g_package||'.evaluate_life_events';
8986: hr_utility.set_location ('Entering ' || l_package,10);
8987: hr_utility.set_location ('p_mode : ' || p_mode,10);
8988: end if;
8989: --
8990: -- Method of Operation
8991: -- ===================
9041: if (p_mode in ('C', 'W')) or
9042: (p_mode = 'G' and l_param_rec.date_from is not null) then
9043: --
9044: if g_debug then
9045: hr_utility.set_location('Create potential',10);
9046: end if;
9047: if p_mode in ('C', 'W') then
9048: --
9049: l_cv_ler_id := p_ler_id;
9079: --
9080: -- Create potential life event
9081: --
9082: if g_debug then
9083: hr_utility.set_location('Really created GSP potential',10);
9084: end if;
9085: ben_ptnl_ler_for_per_api.create_ptnl_ler_for_per
9086: (p_validate => false
9087: ,p_ptnl_ler_for_per_id => l_ptnl_ler_for_per_id
9100: ,p_effective_date => p_effective_date
9101: ,p_dtctd_dt => p_effective_date);
9102: --
9103: if g_debug then
9104: hr_utility.set_location('Finished created potential',10);
9105: end if;
9106: --
9107: end if;
9108: --
9116: --
9117: if p_mode in ('C', 'L') then
9118: --
9119: if g_debug then
9120: hr_utility.set_location('Evaluate potential',10);
9121: end if;
9122: fnd_message.set_token('PROC','ben_evaluate_ptnl_lf_evt');
9123: --
9124: if p_validate = 'Y'
9141: elsif p_mode = 'I' then
9142: --
9143: -- iRec
9144: if g_debug then
9145: hr_utility.set_location('Evaluate iRec Potential LER',10);
9146: end if;
9147: --
9148: fnd_message.set_token('PROC','ben_evaluate_ptnl_lf_evt');
9149: --
9164: --
9165: elsif p_mode = 'W' then
9166: --
9167: if g_debug then
9168: hr_utility.set_location('CWB Evaluate potential',10);
9169: end if;
9170: fnd_message.set_token('PROC','cwb_eval_ptnl_per_for_ler');
9171: --
9172: ben_evaluate_ptnl_lf_evt.cwb_eval_ptnl_per_for_ler
9269: --
9270: end if;
9271: --
9272: if g_debug then
9273: hr_utility.set_location ('Done get ale ' || l_package,30);
9274: end if;
9275: --
9276: -- For life event collision detect any life event
9277: -- which was backed out and occured on same day.
9291: );
9292: end if;
9293: --
9294: if g_debug then
9295: hr_utility.set_location ('Dn BLECR_GOBP ' || l_package,30);
9296: end if;
9297: --
9298: -- PB : 5422 :
9299: -- Now if benmngle is run in Life event mode and the winner
9386: p_commit => l_commit);
9387: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
9388: fnd_message.set_token('PROC','ben_related_person_ler_api');
9389: if g_debug then
9390: hr_utility.set_location (l_package||' create_rel_per_ler ' ,20);
9391: end if;
9392: --
9393: -- CWB Changes ABSENCES , GRADE/STEP : no need to create related ler's
9394: --
9415: then
9416: --
9417: -- GSP Rate Sync : For this case we would not build compensation object list, but get current grade ladder / grade step
9418: -- and populate g_cache_proc_object in procedure process_comp_objects later
9419: hr_utility.set_location('GSP Rate Sync : Do not build comp obj list here', 23);
9420: --
9421: else
9422: if g_debug then
9423: hr_utility.set_location (l_package||' Bef BCOL ' ,25);
9419: hr_utility.set_location('GSP Rate Sync : Do not build comp obj list here', 23);
9420: --
9421: else
9422: if g_debug then
9423: hr_utility.set_location (l_package||' Bef BCOL ' ,25);
9424: end if;
9425:
9426: ben_comp_object_list.build_comp_object_list
9427: (p_benefit_action_id => benutils.g_benefit_action_id
9447: ,p_lmt_prpnip_by_org_flag => l_param_rec.lmt_prpnip_by_org_flag
9448: ,p_person_id => p_person_id
9449: );
9450: if g_debug then
9451: hr_utility.set_location (l_package||' Dn BCOL ' ,27);
9452: end if;
9453: --
9454: end if;
9455: --
9556: l_ler_batch_rec.effective_date := p_effective_date;
9557: --
9558: benutils.write(p_rec => l_ler_batch_rec);
9559: if g_debug then
9560: hr_utility.set_location (l_package,60);
9561: end if;
9562: if l_rec.per_in_ler_id is null then
9563: ben_person_life_event_api.create_person_life_Event
9564: (p_validate => false,
9636: -- Build the comp object list in evaluate_life_events
9637: -- if comp objects selection is based on person's org id.
9638: --
9639: if g_debug then
9640: hr_utility.set_location (' Temp BCOL '||l_package,10);
9641: end if;
9642: ben_comp_object_list.build_comp_object_list
9643: (p_benefit_action_id => benutils.g_benefit_action_id
9644: ,p_comp_selection_rule_id => l_param_rec.comp_selection_rl
9671: ,p_business_group_id => p_business_group_id
9672: ,p_effective_date => p_effective_date
9673: );
9674: if g_debug then
9675: hr_utility.set_location (' Dn Temp BCOL '||l_package,10);
9676: end if;
9677: --
9678: end if;
9679: --
9677: --
9678: end if;
9679: --
9680: if g_debug then
9681: hr_utility.set_location ('Leaving '||l_package,10);
9682: end if;
9683: --
9684: exception
9685: --
10150: --
10151: -- Defer ENH.
10152: begin
10153: --
10154: g_debug := hr_utility.debug_enabled;
10155: if g_debug then
10156: l_package :=g_package||'.process_comp_objects';
10157: hr_utility.set_location ('Entering '||l_package,10);
10158: end if;
10153: --
10154: g_debug := hr_utility.debug_enabled;
10155: if g_debug then
10156: l_package :=g_package||'.process_comp_objects';
10157: hr_utility.set_location ('Entering '||l_package,10);
10158: end if;
10159: --
10160: -- Start - Added by Gopal Venkataraman 3/27/01 bug 1636071
10161: -- also changed all following p_mode to l_mode.
10168: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
10169: if l_mode not in ('A','P','S','T') then
10170: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
10171: if g_debug then
10172: hr_utility.set_location('mode'||l_mode,11);
10173: end if;
10174: --
10175: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
10176: if (l_mode = 'U'or l_mode = 'R' or l_mode = 'D') then
10254: end if;
10255: --
10256: end if;
10257: if g_debug then
10258: hr_utility.set_location('Current OVN '||l_rec.object_version_number,10);
10259: hr_utility.set_location('lf evt date '||l_rec.lf_evt_ocrd_dt,11);
10260: end if;
10261: end if;
10262: --
10255: --
10256: end if;
10257: if g_debug then
10258: hr_utility.set_location('Current OVN '||l_rec.object_version_number,10);
10259: hr_utility.set_location('lf evt date '||l_rec.lf_evt_ocrd_dt,11);
10260: end if;
10261: end if;
10262: --
10263: -- Setup environment for person being processed.
10262: --
10263: -- Setup environment for person being processed.
10264: --
10265: if g_debug then
10266: hr_utility.set_location (l_package||' Set env ',20);
10267: end if;
10268: ben_env_object.setenv(p_lf_evt_ocrd_dt => l_rec.lf_evt_ocrd_dt);
10269: --
10270: -- Clear eligibility caches
10343: ,p_rec => l_pil_row
10344: );
10345: --
10346: if g_debug then
10347: hr_utility.set_location ('Life event occured datee'||l_pil_row.lf_evt_ocrd_dt,11);
10348: end if;
10349: -- Assign comp object cache to a local variable
10350: --
10351: l_comp_obj_tree := g_cache_proc_object;
10415: p_persons_plip_id => l_gsp_plip_id,
10416: p_prog_style => l_prgr_style);
10417: */
10418: if g_debug then
10419: hr_utility.set_location('p_persons_pgm_id :'||l_gsp_pgm_id,20);
10420: hr_utility.set_location('p_persons_plip_id :'||l_gsp_plip_id,20);
10421: hr_utility.set_location('p_prog_style :'||l_prgr_style,20);
10422: hr_utility.set_location('l_gsp_oipl_id :' || l_gsp_oipl_id,20);
10423: end if;
10416: p_prog_style => l_prgr_style);
10417: */
10418: if g_debug then
10419: hr_utility.set_location('p_persons_pgm_id :'||l_gsp_pgm_id,20);
10420: hr_utility.set_location('p_persons_plip_id :'||l_gsp_plip_id,20);
10421: hr_utility.set_location('p_prog_style :'||l_prgr_style,20);
10422: hr_utility.set_location('l_gsp_oipl_id :' || l_gsp_oipl_id,20);
10423: end if;
10424: --
10417: */
10418: if g_debug then
10419: hr_utility.set_location('p_persons_pgm_id :'||l_gsp_pgm_id,20);
10420: hr_utility.set_location('p_persons_plip_id :'||l_gsp_plip_id,20);
10421: hr_utility.set_location('p_prog_style :'||l_prgr_style,20);
10422: hr_utility.set_location('l_gsp_oipl_id :' || l_gsp_oipl_id,20);
10423: end if;
10424: --
10425: -- no grade ladder defined (or) no grade, then skip the person
10418: if g_debug then
10419: hr_utility.set_location('p_persons_pgm_id :'||l_gsp_pgm_id,20);
10420: hr_utility.set_location('p_persons_plip_id :'||l_gsp_plip_id,20);
10421: hr_utility.set_location('p_prog_style :'||l_prgr_style,20);
10422: hr_utility.set_location('l_gsp_oipl_id :' || l_gsp_oipl_id,20);
10423: end if;
10424: --
10425: -- no grade ladder defined (or) no grade, then skip the person
10426: --
10426: --
10427: if l_gsp_pgm_id is null or
10428: l_gsp_plip_id is null
10429: then
10430: hr_utility.set_location('Current GSP Grade Ladder / Grade / PLIP for person not found', 15);
10431: fnd_message.set_name('BEN','BEN_94094_PERSON_GRADE_NOT_FND');
10432: raise g_record_error;
10433: elsif l_prgr_style not in ('PQH_GSP_GP') and l_gsp_oipl_id is null /* Bug 3964719 */
10434: then
10431: fnd_message.set_name('BEN','BEN_94094_PERSON_GRADE_NOT_FND');
10432: raise g_record_error;
10433: elsif l_prgr_style not in ('PQH_GSP_GP') and l_gsp_oipl_id is null /* Bug 3964719 */
10434: then
10435: hr_utility.set_location('Current GSP OIPL for person not found', 15);
10436: fnd_message.set_name('BEN','BEN_94095_PERSON_STEP_NOT_FND');
10437: raise g_record_error;
10438: end if;
10439: --
10500: end if;
10501: --
10502: loop
10503: if g_debug then
10504: hr_utility.set_location (l_package||' Start Proc loop ',20);
10505: end if;
10506: --
10507: -- Comp object filtering. Navigate to the next comp object to be processed
10508: -- We do not need to filter in temporal mode because we do not check
10511: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
10512: if l_mode <> 'T' then
10513: --
10514: if g_debug then
10515: hr_utility.set_location (l_package||' Filtering ',20);
10516: end if;
10517: -- Bug#1900657
10518: if l_mode in ('U','D') then
10519: if l_lf_rec.per_in_ler_id is not null then
10576: );
10577: --
10578: end if;
10579: if g_debug then
10580: hr_utility.set_location (l_package||' Dn Filtering ',20);
10581: end if;
10582: --
10583: end if;
10584: --
10607:
10608: -- bof FONM Determine whther the pgm/pl set for FONM
10609:
10610: if g_debug then
10611: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
10612: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
10613: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
10614: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
10615: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
10608: -- bof FONM Determine whther the pgm/pl set for FONM
10609:
10610: if g_debug then
10611: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
10612: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
10613: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
10614: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
10615: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
10616: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10609:
10610: if g_debug then
10611: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
10612: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
10613: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
10614: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
10615: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
10616: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10617: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
10610: if g_debug then
10611: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
10612: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
10613: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
10614: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
10615: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
10616: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10617: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
10618: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10611: hr_utility.set_location ('OIpl Id '||l_oipl_id,31);
10612: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
10613: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
10614: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
10615: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
10616: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10617: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
10618: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10619: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
10612: hr_utility.set_location (' l_pl_nip ' || l_pl_nip,30);
10613: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
10614: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
10615: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
10616: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10617: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
10618: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10619: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
10620: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
10613: hr_utility.set_location (' g_last_pgm_id ' || g_last_pgm_id,30);
10614: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
10615: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
10616: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10617: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
10618: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10619: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
10620: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
10621: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
10614: hr_utility.set_location (' l_last_ptip_id ' || l_last_ptip_id,30);
10615: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
10616: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10617: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
10618: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10619: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
10620: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
10621: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
10622: end if;
10615: hr_utility.set_location (' pgm ' ||l_comp_obj_tree(l_treeele_num).par_pgm_id ,30);
10616: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10617: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
10618: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10619: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
10620: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
10621: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
10622: end if;
10623: -- FONM II
10616: hr_utility.set_location (' ptip ' ||l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10617: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
10618: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10619: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
10620: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
10621: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
10622: end if;
10623: -- FONM II
10624: if l_pl_nip = 'Y'
10617: hr_utility.set_location (' pl ' ||l_comp_obj_tree(l_treeele_num).par_pl_id ,30);
10618: hr_utility.set_location (' plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10619: hr_utility.set_location ('Old fonm ' ||ben_manage_life_events.fonm ,30);
10620: hr_utility.set_location ('Old pgm fonm ' || l_pgm_fonm ,30);
10621: hr_utility.set_location ('Old ptip fonm ' || l_ptip_fonm ,30);
10622: end if;
10623: -- FONM II
10624: if l_pl_nip = 'Y'
10625: -- whne the new program
10637: )
10638: )
10639: or ben_manage_life_events.fonm is null then
10640:
10641: hr_utility.set_location (' calling fonm status ' ,30);
10642: ben_use_cvg_rt_date.get_csd_rsd_Status
10643: (p_pgm_id => l_comp_obj_tree(l_treeele_num).par_pgm_id
10644: ,p_ptip_id => l_comp_obj_tree(l_treeele_num).par_ptip_id
10645: ,p_plip_id => l_comp_obj_tree(l_treeele_num).par_plip_id
10646: ,p_pl_id => l_comp_obj_tree(l_treeele_num).par_pl_id
10647: ,p_effective_date => p_effective_date
10648: ,p_status => ben_manage_life_events.fonm
10649: ) ;
10650: hr_utility.set_location (' fonm ' ||ben_manage_life_events.fonm ,30);
10651: end if ;
10652: -- eof FONM
10653:
10654: -- Set up environment for retrieval of comp object information
10660: elsif l_comp_obj_tree(l_treeele_num).par_pgm_id is not null then
10661: --
10662: g_last_pgm_id := l_comp_obj_tree(l_treeele_num).par_pgm_id;
10663:
10664: hr_utility.set_location (' fonm ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10665:
10666: if l_comp_obj_tree(l_treeele_num).par_ptip_id is not null then
10667: l_last_ptip_id := l_comp_obj_tree(l_treeele_num).par_ptip_id ;
10668: hr_utility.set_location (' fonm plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10664: hr_utility.set_location (' fonm ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id ,30);
10665:
10666: if l_comp_obj_tree(l_treeele_num).par_ptip_id is not null then
10667: l_last_ptip_id := l_comp_obj_tree(l_treeele_num).par_ptip_id ;
10668: hr_utility.set_location (' fonm plip ' ||l_comp_obj_tree(l_treeele_num).par_plip_id ,30);
10669: -- if the plip is null then the fonm for ptio
10670: if l_comp_obj_tree(l_treeele_num).par_plip_id is null then
10671:
10672: l_ptip_fonm := ben_manage_life_events.fonm ;
10680: --
10681: -- Check if the audit log flag is on
10682: --
10683: if g_debug then
10684: hr_utility.set_location (l_package||' get_comp_object_name ',30);
10685: end if;
10686: if l_env.audit_log_flag = 'Y' then
10687: --
10688: get_comp_object_name
10724: );
10725:
10726: if g_debug then
10727: if l_evaluate_eligibility then
10728: 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);
10729: else
10730: 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);
10731: end if;
10732: end if;
10726: if g_debug then
10727: if l_evaluate_eligibility then
10728: 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);
10729: else
10730: 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);
10731: end if;
10732: end if;
10733:
10734: end if;
10742: * If Evaluate Eligibility is Yes, then through evaluate eligibility process for current
10743: * grade ladder, grade and step
10744: * Make a call to PQHGSP package, that will create electable choices and rates.
10745: */
10746: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
10747: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
10748: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
10749: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
10750: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
10743: * grade ladder, grade and step
10744: * Make a call to PQHGSP package, that will create electable choices and rates.
10745: */
10746: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
10747: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
10748: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
10749: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
10750: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
10751: --
10744: * Make a call to PQHGSP package, that will create electable choices and rates.
10745: */
10746: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
10747: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
10748: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
10749: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
10750: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
10751: --
10752:
10745: */
10746: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
10747: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
10748: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
10749: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
10750: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
10751: --
10752:
10753: -- This procedure will create Electable Choices and Rates
10746: hr_utility.set_location('GSP Rate Sync Do Not Evaluate Eligibility', 45);
10747: hr_utility.set_location('GSPRS p_effective_date = ' || p_effective_date, 45);
10748: hr_utility.set_location('GSPRS l_pil_row.per_in_ler_id = ' || l_pil_row.per_in_ler_id, 45);
10749: hr_utility.set_location('GSPRS p_person_id = ' || p_person_id, 45);
10750: hr_utility.set_location('GSPRS l_empasg_row.assignment_id = ' || l_empasg_row.assignment_id, 45);
10751: --
10752:
10753: -- This procedure will create Electable Choices and Rates
10754: pqh_gsp_post_process.gsp_rate_sync
10783: --
10784: -- Set up participation eligibility
10785: --
10786: if g_debug then
10787: hr_utility.set_location (l_package||' Set Part Elig ',80);
10788: end if;
10789: --
10790: -- Set up comp object context rows
10791: --
10828: --
10829: end if;
10830: --
10831: if g_debug then
10832: hr_utility.set_location(' g_defer_deenrol_flag' || g_defer_deenrol_flag, 9653);
10833: end if;
10834: hr_utility.set_location (' FONM : ' || ben_manage_life_events.fonm ,80);
10835: -- BOF FONM
10836: if l_mode in ('L','C') and -- Bug 6390880
10830: --
10831: if g_debug then
10832: hr_utility.set_location(' g_defer_deenrol_flag' || g_defer_deenrol_flag, 9653);
10833: end if;
10834: hr_utility.set_location (' FONM : ' || ben_manage_life_events.fonm ,80);
10835: -- BOF FONM
10836: if l_mode in ('L','C') and -- Bug 6390880
10837: ben_manage_life_events.fonm = 'Y' then
10838:
10835: -- BOF FONM
10836: if l_mode in ('L','C') and -- Bug 6390880
10837: ben_manage_life_events.fonm = 'Y' then
10838:
10839: hr_utility.set_location (' FONM : Begin ',80);
10840: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
10841: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
10842: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
10843: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
10836: if l_mode in ('L','C') and -- Bug 6390880
10837: ben_manage_life_events.fonm = 'Y' then
10838:
10839: hr_utility.set_location (' FONM : Begin ',80);
10840: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
10841: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
10842: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
10843: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
10844: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
10837: ben_manage_life_events.fonm = 'Y' then
10838:
10839: hr_utility.set_location (' FONM : Begin ',80);
10840: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
10841: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
10842: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
10843: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
10844: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
10845: if g_debug then
10838:
10839: hr_utility.set_location (' FONM : Begin ',80);
10840: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
10841: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
10842: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
10843: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
10844: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
10845: if g_debug then
10846: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
10839: hr_utility.set_location (' FONM : Begin ',80);
10840: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
10841: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
10842: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
10843: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
10844: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
10845: if g_debug then
10846: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
10847: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
10840: hr_utility.set_location(' l_pgm_id = ' || l_pgm_id, 4444);
10841: hr_utility.set_location(' l_pl_id = ' || l_pl_id, 4444);
10842: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
10843: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
10844: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
10845: if g_debug then
10846: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
10847: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
10848: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
10842: hr_utility.set_location(' l_oipl_id = ' || l_oipl_id, 4444);
10843: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
10844: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
10845: if g_debug then
10846: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
10847: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
10848: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
10849: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
10850: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
10843: hr_utility.set_location(' l_ptip_id = ' || l_ptip_id, 4444);
10844: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
10845: if g_debug then
10846: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
10847: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
10848: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
10849: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
10850: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
10851: end if;
10844: hr_utility.set_location(' l_plip_id = ' || l_plip_id, 4444);
10845: if g_debug then
10846: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
10847: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
10848: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
10849: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
10850: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
10851: end if;
10852:
10845: if g_debug then
10846: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
10847: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
10848: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
10849: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
10850: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
10851: end if;
10852:
10853: /* if l_mode in ('L') then
10846: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
10847: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
10848: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
10849: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
10850: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
10851: end if;
10852:
10853: /* if l_mode in ('L') then
10854:
10868: close c_enrt_perd_id ;
10869:
10870:
10871: end if ;*/
10872: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
10873: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
10874: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
10875: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
10876: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
10869:
10870:
10871: end if ;*/
10872: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
10873: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
10874: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
10875: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
10876: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
10877: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
10870:
10871: end if ;*/
10872: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
10873: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
10874: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
10875: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
10876: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
10877: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
10878: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
10871: end if ;*/
10872: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
10873: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
10874: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
10875: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
10876: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
10877: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
10878: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
10879: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
10872: hr_utility.set_location(' l_rec_lee_rsn_id ' || l_rec_lee_rsn_id, 99 );
10873: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
10874: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
10875: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
10876: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
10877: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
10878: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
10879: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
10880:
10873: hr_utility.set_location(' c_enrt_perd_id ' || l_rec_enrt_perd_id , 99 );
10874: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
10875: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
10876: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
10877: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
10878: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
10879: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
10880:
10881: ben_determine_date.rate_and_coverage_dates
10874: hr_utility.set_location(' p_ler_id ' || p_ler_id , 99 );
10875: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
10876: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
10877: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
10878: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
10879: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
10880:
10881: ben_determine_date.rate_and_coverage_dates
10882: (p_cache_mode => TRUE
10875: hr_utility.set_location(' p_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 99 );
10876: hr_utility.set_location(' p_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 99 );
10877: hr_utility.set_location(' p_ptip ' || l_comp_obj_tree(l_treeele_num).par_ptip_id , 99 );
10878: hr_utility.set_location(' p_plip ' || l_comp_obj_tree(l_treeele_num).par_plip_id , 99 );
10879: hr_utility.set_location(' p_oipl ' || l_oipl_id , 99 );
10880:
10881: ben_determine_date.rate_and_coverage_dates
10882: (p_cache_mode => TRUE
10883: ,p_per_in_ler_id => l_rec.per_in_ler_id
10907: ,p_rt_end_dt_rl => l_dummy_rt_end_dt_rl
10908: ,p_effective_date => p_effective_date
10909: ,p_lf_evt_ocrd_dt => nvl(l_rec.lf_evt_ocrd_dt, p_effective_date)
10910: );
10911: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
10912: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
10913: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
10914: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
10915: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
10908: ,p_effective_date => p_effective_date
10909: ,p_lf_evt_ocrd_dt => nvl(l_rec.lf_evt_ocrd_dt, p_effective_date)
10910: );
10911: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
10912: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
10913: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
10914: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
10915: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
10916: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
10909: ,p_lf_evt_ocrd_dt => nvl(l_rec.lf_evt_ocrd_dt, p_effective_date)
10910: );
10911: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
10912: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
10913: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
10914: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
10915: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
10916: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
10917: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
10910: );
10911: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
10912: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
10913: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
10914: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
10915: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
10916: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
10917: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
10918: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
10911: hr_utility.set_location('l_rec_enrt_cvg_strt_dt = ' || l_rec_enrt_cvg_strt_dt, 4444);
10912: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
10913: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
10914: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
10915: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
10916: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
10917: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
10918: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
10919: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
10912: hr_utility.set_location('l_dummy_rt_strt_dt = ' || l_dummy_rt_strt_dt, 4444);
10913: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
10914: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
10915: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
10916: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
10917: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
10918: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
10919: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
10920: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
10913: hr_utility.set_location('l_dummy_rt_strt_dt_cd = ' || l_dummy_rt_strt_dt_cd, 4444);
10914: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
10915: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
10916: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
10917: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
10918: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
10919: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
10920: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
10921: --
10914: hr_utility.set_location('l_dummy_rt_strt_dt_rl = ' || l_dummy_rt_strt_dt_rl, 4444);
10915: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
10916: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
10917: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
10918: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
10919: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
10920: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
10921: --
10922: -- If previous cvg start date and current date is different then
10915: hr_utility.set_location('l_dummy_enrt_cvg_end_dt = ' || l_dummy_enrt_cvg_end_dt, 4444);
10916: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
10917: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
10918: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
10919: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
10920: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
10921: --
10922: -- If previous cvg start date and current date is different then
10923: -- clear the caches.
10916: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_cd = ' || l_dummy_enrt_cvg_end_dt_cd, 4444);
10917: hr_utility.set_location('l_dummy_enrt_cvg_end_dt_rl = ' || l_dummy_enrt_cvg_end_dt_rl, 4444);
10918: hr_utility.set_location('l_dummy_rt_end_dt = ' || l_dummy_rt_end_dt, 4444);
10919: hr_utility.set_location('l_dummy_rt_end_dt_cd = ' || l_dummy_rt_end_dt_cd, 4444);
10920: hr_utility.set_location('l_dummy_rt_end_dt_rl = ' || l_dummy_rt_end_dt_rl, 4444);
10921: --
10922: -- If previous cvg start date and current date is different then
10923: -- clear the caches.
10924: --
10925: if nvl(l_fonm_cvg_strt_dt, hr_api.g_sot) <>
10926: l_rec_enrt_cvg_strt_dt
10927: then
10928: --
10929: hr_utility.set_location('clearing cache bnmngle '||l_fonm_cvg_strt_dt || ' / ' || l_rec_enrt_cvg_strt_dt ,10);
10930: ben_use_cvg_rt_date.fonm_clear_down_cache;
10931: --
10932: end if;
10933: --
10933: --
10934: ben_manage_life_events.g_fonm_cvg_strt_dt := l_rec_enrt_cvg_strt_dt ;
10935: l_fonm_cvg_strt_dt := l_rec_enrt_cvg_strt_dt ;
10936: --
10937: hr_utility.set_location(' g_fonm_cvg_strt_dt '||g_fonm_cvg_strt_dt,110);
10938: --
10939: end if;
10940: --
10941: -- EOF FONM
10939: end if;
10940: --
10941: -- EOF FONM
10942: if g_debug then
10943: hr_utility.set_location (l_package||' FND Mess ',80);
10944: hr_utility.set_location ('p_derivable_factors '||p_derivable_factors,80);
10945: end if;
10946: l_comp_rec:=l_d_comp_rec;
10947: l_oiplip_rec:=l_d_oiplip_rec;
10940: --
10941: -- EOF FONM
10942: if g_debug then
10943: hr_utility.set_location (l_package||' FND Mess ',80);
10944: hr_utility.set_location ('p_derivable_factors '||p_derivable_factors,80);
10945: end if;
10946: l_comp_rec:=l_d_comp_rec;
10947: l_oiplip_rec:=l_d_oiplip_rec;
10948: --
10948: --
10949: if p_derivable_factors <> 'NONE' then
10950: --
10951: if g_debug then
10952: hr_utility.set_location (l_package||' fnd_message_call ',30);
10953: end if;
10954: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
10955: fnd_message.set_token('PROC','ben_derive_part_and_rate_facts');
10956: if g_debug then
10953: end if;
10954: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
10955: fnd_message.set_token('PROC','ben_derive_part_and_rate_facts');
10956: if g_debug then
10957: hr_utility.set_location (l_package||' done fnd_message_call ',30);
10958: hr_utility.set_location (l_package||' DRAF ',15);
10959: end if;
10960: ben_derive_part_and_rate_facts.derive_rates_and_factors
10961: (p_comp_obj_tree_row => l_comp_obj_tree_row
10954: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
10955: fnd_message.set_token('PROC','ben_derive_part_and_rate_facts');
10956: if g_debug then
10957: hr_utility.set_location (l_package||' done fnd_message_call ',30);
10958: hr_utility.set_location (l_package||' DRAF ',15);
10959: end if;
10960: ben_derive_part_and_rate_facts.derive_rates_and_factors
10961: (p_comp_obj_tree_row => l_comp_obj_tree_row
10962: --
10983: ,p_effective_date => least(p_effective_date, nvl(l_rec.lf_evt_ocrd_dt,p_effective_date))
10984: ,p_lf_evt_ocrd_dt => nvl(l_rec.lf_evt_ocrd_dt,p_effective_date)
10985: );
10986: if g_debug then
10987: hr_utility.set_location (l_package||' Done DRAF ',15);
10988: end if;
10989: --
10990: else
10991: --
10991: --
10992: -- Derive factor direct from the previous eligibility records.
10993: --
10994: if g_debug then
10995: hr_utility.set_location (l_package||' Ass Der facts ',50);
10996: end if;
10997: --
10998: ben_derive_part_and_rate_facts.cache_data_structures
10999: (p_comp_obj_tree_row => l_comp_obj_tree_row
11020: --
11021: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11022: fnd_message.set_token('PROC','ben_determine_eligibility');
11023: if g_debug then
11024: hr_utility.set_location (l_package||' Dn FND Mess ',80);
11025: end if;
11026: --
11027: -- Initialise the dependent eligibility related globals.
11028: -- They should be initialised for every comp object.
11032: ben_determine_dpnt_eligibility.g_egd_table :=
11033: ben_determine_dpnt_eligibility.g_egd_table_temp;
11034: --
11035: if g_debug then
11036: hr_utility.set_location (l_package||' BENDETEL ',80);
11037: end if;
11038: --
11039: ben_determine_eligibility.determine_elig_prfls
11040: (p_comp_obj_tree_row => l_comp_obj_tree_row
11071: ,p_still_elig => l_still_elig
11072: ,p_still_inelig => l_still_inelig
11073: );
11074: if g_debug then
11075: hr_utility.set_location (l_package||' Done BENDETEL ',85);
11076: end if;
11077: --
11078: -- Bug 5232223
11079: --
11101: ,p_par_elig_state => l_par_elig_state
11102: );
11103: --
11104: if g_debug then
11105: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11106: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11107: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11108: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11109: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11102: );
11103: --
11104: if g_debug then
11105: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11106: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11107: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11108: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11109: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11110: end if;
11103: --
11104: if g_debug then
11105: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11106: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11107: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11108: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11109: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11110: end if;
11111: --
11104: if g_debug then
11105: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11106: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11107: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11108: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11109: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11110: end if;
11111: --
11112: -- Don't run enrolment_requirements for levels other than plan and oipl.
11105: hr_utility.set_location('p_pgm_id'||l_comp_obj_tree(l_treeele_num).par_pgm_id,1234);
11106: hr_utility.set_location('p_pl_id'||l_comp_obj_tree(l_treeele_num).par_pl_id,1234);
11107: hr_utility.set_location('p_plip_id'||l_comp_obj_tree(l_treeele_num).par_plip_id,1234);
11108: hr_utility.set_location('p_ptip_id'||l_comp_obj_tree(l_treeele_num).par_ptip_id,1234);
11109: hr_utility.set_location('p_oipl_id'||l_oipl_id,1234);
11110: end if;
11111: --
11112: -- Don't run enrolment_requirements for levels other than plan and oipl.
11113: -- Don't run it if the ler_id is null.
11127: -- Task 131 : Eligible dependent rows are already created.
11128: -- Now update them with electable choice id.
11129: --
11130: if g_debug then
11131: hr_utility.set_location (l_package||' St BENDEPEN ',85);
11132: end if;
11133: ben_determine_dpnt_eligibility.main
11134: (p_pgm_id => l_comp_obj_tree(l_treeele_num).par_pgm_id
11135: ,p_pl_id => l_comp_obj_tree(l_treeele_num).par_pl_id
11145: ,p_elig_per_opt_id => l_comp_obj_tree_row.elig_per_opt_id
11146: ,p_lf_evt_ocrd_dt => l_rec.lf_evt_ocrd_dt
11147: );
11148: if g_debug then
11149: hr_utility.set_location (l_package||' Dn BENDEPEN ',85);
11150: end if;
11151: --
11152: end if;
11153: --
11208: or not l_evaluate_eligibility
11209: then
11210: --
11211: if g_debug then
11212: hr_utility.set_location (' First In-Eligible BENMNGLE ',85);
11213: end if;
11214: --
11215: l_continue_loop := false;
11216: --
11216: --
11217: else
11218: --
11219: if g_debug then
11220: hr_utility.set_location (' Non-filter eligibility BENMNGLE ',85);
11221: end if;
11222: --
11223: l_continue_loop := true;
11224: --
11232: --
11233: if (g_defer_deenrol_flag = 'Y') then
11234: -- Add pgm/pln to cache
11235: if (g_debug) then
11236: hr_utility.set_location('DEFER Starts', 1039);
11237: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11238: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11239: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11240: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11233: if (g_defer_deenrol_flag = 'Y') then
11234: -- Add pgm/pln to cache
11235: if (g_debug) then
11236: hr_utility.set_location('DEFER Starts', 1039);
11237: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11238: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11239: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11240: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11241: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11234: -- Add pgm/pln to cache
11235: if (g_debug) then
11236: hr_utility.set_location('DEFER Starts', 1039);
11237: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11238: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11239: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11240: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11241: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11242: end if;
11235: if (g_debug) then
11236: hr_utility.set_location('DEFER Starts', 1039);
11237: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11238: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11239: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11240: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11241: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11242: end if;
11243: --
11236: hr_utility.set_location('DEFER Starts', 1039);
11237: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11238: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11239: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11240: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11241: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11242: end if;
11243: --
11244: if (l_defer_deenrl_tbl.COUNT > 0) then
11237: hr_utility.set_location('DEFER l_defer_count ' || l_defer_count , 1039);
11238: hr_utility.set_location('DEFER par_pl_id ' || l_comp_obj_tree(l_treeele_num).par_pl_id , 1039);
11239: hr_utility.set_location('DEFER pl_id ' || l_comp_obj_tree(l_treeele_num).pl_id , 1039);
11240: hr_utility.set_location('DEFER par_pgm_id ' || l_comp_obj_tree(l_treeele_num).par_pgm_id , 1039);
11241: hr_utility.set_location('DEFER pgm_id ' || l_comp_obj_tree(l_treeele_num).pgm_id , 1039);
11242: end if;
11243: --
11244: if (l_defer_deenrl_tbl.COUNT > 0) then
11245: if (l_comp_obj_tree(l_treeele_num).pl_nip <> 'Y') then
11244: if (l_defer_deenrl_tbl.COUNT > 0) then
11245: if (l_comp_obj_tree(l_treeele_num).pl_nip <> 'Y') then
11246: --
11247: if (g_debug) then
11248: hr_utility.set_location('DEFER tab_pgm_id '
11249: || l_defer_deenrl_tbl(l_defer_count).pgm_id , 1039);
11250: end if;
11251: --
11252: if (NVL(l_defer_deenrl_tbl(l_defer_count).pgm_id,-1) <>
11263: end if;
11264: else
11265: --
11266: if (g_debug) then
11267: hr_utility.set_location('DEFER tab_pl_id '
11268: || l_defer_deenrl_tbl(l_defer_count).pl_id , 1039);
11269: end if;
11270: --
11271: if (NVL(l_defer_deenrl_tbl(l_defer_count).pl_id,-1) <>
11281: --
11282: end if;
11283: end if;
11284: else
11285: hr_utility.set_location('DEFER First PGM/PLN ' , 1039);
11286: --
11287: l_defer_count := l_defer_count +1;
11288: if (l_comp_obj_tree(l_treeele_num).pl_nip <> 'Y') then
11289: l_defer_deenrl_tbl(l_defer_count).pgm_id :=
11302: --
11303: -- If Newly Inelig set Flag
11304: if (l_comp_obj_tree(l_treeele_num).elig_tran_state = 'NW_INELIG' ) then
11305: l_defer_deenrl_tbl(l_defer_count).newly_inelig_exists := true;
11306: hr_utility.set_location('DEFER NEWLY INELIG ' , 1039);
11307: end if;
11308: --
11309: end if;
11310: -- Defer enrollments ends;
11313: -- Don't run enrolment_requirements for levels other than plan and oipl.
11314: -- Don't run it if the ler_id is null.
11315: --
11316: if g_debug then
11317: hr_utility.set_location ('Before enrollment call. pl id :'||l_pl_id,10);
11318: hr_utility.set_location ('Before enrollment call. oipl id :'||l_oipl_id,10);
11319: hr_utility.set_location ('Before enrollment call. ler id :'||p_ler_id,10);
11320: hr_utility.set_location ('Before enrollment call. l_mode :'||l_mode,10);
11321: end if;
11314: -- Don't run it if the ler_id is null.
11315: --
11316: if g_debug then
11317: hr_utility.set_location ('Before enrollment call. pl id :'||l_pl_id,10);
11318: hr_utility.set_location ('Before enrollment call. oipl id :'||l_oipl_id,10);
11319: hr_utility.set_location ('Before enrollment call. ler id :'||p_ler_id,10);
11320: hr_utility.set_location ('Before enrollment call. l_mode :'||l_mode,10);
11321: end if;
11322: if (l_pl_id is not null
11315: --
11316: if g_debug then
11317: hr_utility.set_location ('Before enrollment call. pl id :'||l_pl_id,10);
11318: hr_utility.set_location ('Before enrollment call. oipl id :'||l_oipl_id,10);
11319: hr_utility.set_location ('Before enrollment call. ler id :'||p_ler_id,10);
11320: hr_utility.set_location ('Before enrollment call. l_mode :'||l_mode,10);
11321: end if;
11322: if (l_pl_id is not null
11323: or l_oipl_id is not null)
11316: if g_debug then
11317: hr_utility.set_location ('Before enrollment call. pl id :'||l_pl_id,10);
11318: hr_utility.set_location ('Before enrollment call. oipl id :'||l_oipl_id,10);
11319: hr_utility.set_location ('Before enrollment call. ler id :'||p_ler_id,10);
11320: hr_utility.set_location ('Before enrollment call. l_mode :'||l_mode,10);
11321: end if;
11322: if (l_pl_id is not null
11323: or l_oipl_id is not null)
11324: and p_ler_id is not null
11329: --
11330: ben_epe_cache.init_context_cobj_pileperow;
11331: --
11332: if g_debug then
11333: hr_utility.set_location (l_package||' FND Bf BENDENRR ',85);
11334: end if;
11335: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11336: fnd_message.set_token('PROC','ben_enrolment_requirements');
11337: --
11347: end if;
11348: end if;
11349: --
11350: if g_debug then
11351: hr_utility.set_location (l_package||' FND Af BENDENRR ',100);
11352: end if;
11353: ben_enrolment_requirements.enrolment_requirements
11354: (p_comp_obj_tree_row => l_comp_obj_tree_row
11355: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
11369: -- ,p_popl_enrt_typ_cycl_id => p_popl_enrt_typ_cycl_id
11370: ,p_asnd_lf_evt_dt => l_asnd_lf_evt_dt
11371: );
11372: if g_debug then
11373: hr_utility.set_location (l_package||' Dn BENDENRR ',100);
11374: end if;
11375: --
11376: -- If choice has not been created don't do dependent stuff
11377: --
11378: if l_elig_per_elctbl_chc_id is not null then
11379: --
11380: -- Defer Deenrollment
11381: if (g_defer_deenrol_flag = 'Y') then
11382: hr_utility.set_location('DEFER CHOICE EXISTS ' , 1039);
11383: l_defer_deenrl_tbl(l_defer_count).chc_exists := true;
11384: end if;
11385: --
11386: -- Set electable choice context row details
11391: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11392: fnd_message.set_token('PROC','ben_determine_dpnt_eligibility');
11393: --
11394: if g_debug then
11395: hr_utility.set_location (l_package||' BDDE_PUEWEID ',110);
11396: end if;
11397: --
11398: -- Task 131 : Eligible dependent rows are already created.
11399: -- Now update them with electable choice id.
11415: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11416: fnd_message.set_token('PROC','BEN_DETERMINE_CHC_CTFN');
11417: --
11418: if g_debug then
11419: hr_utility.set_location ('BDCC_MN '||l_package,10);
11420: end if;
11421: if l_mode <> 'D' then
11422: ben_determine_chc_ctfn.main
11423: (p_effective_date => p_effective_date,
11425: p_elig_per_elctbl_chc_id => l_elig_per_elctbl_chc_id,
11426: p_mode => l_mode);
11427: end if;
11428: if g_debug then
11429: hr_utility.set_location ('Dn BDCC_MN '||l_package,10);
11430: end if;
11431: --
11432: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11433: fnd_message.set_token('PROC','ben_determine_coverage');
11432: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11433: fnd_message.set_token('PROC','ben_determine_coverage');
11434: --
11435: if g_debug then
11436: hr_utility.set_location (l_package||' ben_determine_coverage.main ',110);
11437: end if;
11438: --
11439: if l_mode <> 'D' then
11440: ben_determine_coverage.main
11446: ,p_enb_valrow => l_enb_valrow
11447: );
11448: end if;
11449: if g_debug then
11450: hr_utility.set_location (l_package||' Dn DetCov_MN ',110);
11451: end if;
11452: --
11453: -- Initialise the current EPE row for the comp object loop
11454: --
11484: --
11485: ben_epe_cache.init_context_cobj_pileperow;
11486: --
11487: if g_debug then
11488: hr_utility.set_location (l_package||' FND Bf BENDENRR ',86);
11489: hr_utility.set_location ('l_oipl_id' ||l_oipl_id,87);
11490: end if;
11491: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11492: fnd_message.set_token('PROC','ben_enrolment_requirements');
11485: ben_epe_cache.init_context_cobj_pileperow;
11486: --
11487: if g_debug then
11488: hr_utility.set_location (l_package||' FND Bf BENDENRR ',86);
11489: hr_utility.set_location ('l_oipl_id' ||l_oipl_id,87);
11490: end if;
11491: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11492: fnd_message.set_token('PROC','ben_enrolment_requirements');
11493: --
11507: ,p_electable_flag => l_electable_flag
11508: ,p_asnd_lf_evt_dt => l_asnd_lf_evt_dt
11509: );
11510: if g_debug then
11511: hr_utility.set_location (l_package||' Dn BENDENRR ',200);
11512: end if;
11513: --
11514: -- If choice has not been created don't do dependent stuff
11515: --
11582: --
11583: end if;
11584: --
11585: if g_debug then
11586: hr_utility.set_location (l_package||' End Proc loop ',20);
11587: end if;
11588: --
11589: end loop;
11590: --
11588: --
11589: end loop;
11590: --
11591: if g_debug then
11592: hr_utility.set_location (l_package||' OUT Proc loop ',25);
11593: end if;
11594: --
11595: -- Defer Deenrollment
11596: -- 1. Loop thru the l_defer_deenrl_tbl
11603: if (l_defer_deenrl_tbl.COUNT > 0) then
11604: --
11605: for defer_indx in l_defer_deenrl_tbl.FIRST..l_defer_deenrl_tbl.LAST loop
11606: --
11607: hr_utility.set_location ('DEFER loop '|| defer_indx, 1039);
11608: --
11609: if l_defer_deenrl_tbl(defer_indx).chc_exists then
11610: --
11611: hr_utility.set_location ('DEFER chc_exists' ,9653);
11607: hr_utility.set_location ('DEFER loop '|| defer_indx, 1039);
11608: --
11609: if l_defer_deenrl_tbl(defer_indx).chc_exists then
11610: --
11611: hr_utility.set_location ('DEFER chc_exists' ,9653);
11612: --
11613: if l_defer_deenrl_tbl(defer_indx).newly_inelig_exists then
11614: --
11615: l_defer_popl_id := null;
11613: if l_defer_deenrl_tbl(defer_indx).newly_inelig_exists then
11614: --
11615: l_defer_popl_id := null;
11616: l_defer_popl_ovn := null;
11617: hr_utility.set_location ('DEFER newly_inelig_exists' ,9653);
11618:
11619: --
11620: if (l_defer_deenrl_tbl(defer_indx).pgm_id is not null) then
11621: --
11618:
11619: --
11620: if (l_defer_deenrl_tbl(defer_indx).pgm_id is not null) then
11621: --
11622: hr_utility.set_location ('DEFER INSIDE PGM ' ,9653);
11623: open c_pel_defer (l_defer_deenrl_tbl(defer_indx).pgm_id, l_rec.per_in_ler_id);
11624: fetch c_pel_defer into l_pel_defer;
11625: if c_pel_defer%FOUND then
11626: --
11628: l_defer_popl_ovn := l_pel_defer.object_version_number;
11629: --
11630: end if;
11631: close c_pel_defer;
11632: hr_utility.set_location ('DEFER PGM' || l_pel_defer.pgm_id,9653);
11633: --
11634: elsif (l_defer_deenrl_tbl(defer_indx).pl_id is not null) then
11635: --
11636: hr_utility.set_location ('DEFER INSIDE PLN ' ,9653);
11632: hr_utility.set_location ('DEFER PGM' || l_pel_defer.pgm_id,9653);
11633: --
11634: elsif (l_defer_deenrl_tbl(defer_indx).pl_id is not null) then
11635: --
11636: hr_utility.set_location ('DEFER INSIDE PLN ' ,9653);
11637:
11638: open c_pel_pnip_defer (l_defer_deenrl_tbl(defer_indx).pl_id, l_rec.per_in_ler_id);
11639: fetch c_pel_pnip_defer into l_pel_pnip_defer;
11640: if c_pel_pnip_defer%FOUND then
11643: l_defer_popl_ovn := l_pel_pnip_defer.object_version_number;
11644: --
11645: end if;
11646: close c_pel_pnip_defer;
11647: hr_utility.set_location ('DEFER PL' || l_pel_pnip_defer.pl_id,9653);
11648: --
11649: end if;
11650: --
11651: if l_defer_popl_id IS NOT NULL then
11649: end if;
11650: --
11651: if l_defer_popl_id IS NOT NULL then
11652: --
11653: hr_utility.set_location ('DEFER UPDATED ' || l_defer_popl_id,9653);
11654: hr_utility.set_location ('DEFER OVN ' || l_defer_popl_ovn,9653);
11655: --
11656: ben_pil_elctbl_chc_popl_api.update_pil_elctbl_chc_popl
11657: (p_validate => FALSE,
11650: --
11651: if l_defer_popl_id IS NOT NULL then
11652: --
11653: hr_utility.set_location ('DEFER UPDATED ' || l_defer_popl_id,9653);
11654: hr_utility.set_location ('DEFER OVN ' || l_defer_popl_ovn,9653);
11655: --
11656: ben_pil_elctbl_chc_popl_api.update_pil_elctbl_chc_popl
11657: (p_validate => FALSE,
11658: p_pil_elctbl_chc_popl_id => l_defer_popl_id,
11664: --
11665: end if;
11666: else
11667: --
11668: hr_utility.set_location ('DEFER NEWLYINELIG ' ,9653);
11669: --
11670: if l_defer_deenrl_tbl(defer_indx).newly_inelig_exists then
11671: ben_newly_ineligible.main
11672: (p_person_id => p_person_id,
11680: end if;
11681: --
11682: end if;
11683: --
11684: hr_utility.set_location ('DEFER End loop ' ,9653);
11685: --
11686: end loop;
11687: --
11688: end if;
11720: -- Start 5055119
11721: IF l_mode IN ('U', 'R', 'S', 'P','D')
11722:
11723: THEN
11724: hr_utility.set_location('SSARKAR p_person_id '|| p_person_id,9909);
11725: hr_utility.set_location('SSARKAR l_pil_row.per_in_ler_id '|| l_pil_row.per_in_ler_id,9909);
11726: hr_utility.set_location('SSARKAR p_effective_date '|| p_effective_date,9909);
11727:
11728: ben_manage_unres_life_events.end_date_elig_per_rows (p_person_id => p_person_id,
11721: IF l_mode IN ('U', 'R', 'S', 'P','D')
11722:
11723: THEN
11724: hr_utility.set_location('SSARKAR p_person_id '|| p_person_id,9909);
11725: hr_utility.set_location('SSARKAR l_pil_row.per_in_ler_id '|| l_pil_row.per_in_ler_id,9909);
11726: hr_utility.set_location('SSARKAR p_effective_date '|| p_effective_date,9909);
11727:
11728: ben_manage_unres_life_events.end_date_elig_per_rows (p_person_id => p_person_id,
11729: p_per_in_ler_id => l_pil_row.per_in_ler_id,
11722:
11723: THEN
11724: hr_utility.set_location('SSARKAR p_person_id '|| p_person_id,9909);
11725: hr_utility.set_location('SSARKAR l_pil_row.per_in_ler_id '|| l_pil_row.per_in_ler_id,9909);
11726: hr_utility.set_location('SSARKAR p_effective_date '|| p_effective_date,9909);
11727:
11728: ben_manage_unres_life_events.end_date_elig_per_rows (p_person_id => p_person_id,
11729: p_per_in_ler_id => l_pil_row.per_in_ler_id,
11730: p_effective_date => p_effective_date
11776: end if;
11777: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11778: fnd_message.set_token('PROC','ben_determine_elct_chc_flx_imp');
11779: if g_debug then
11780: hr_utility.set_location('lf evt ocrd dt'||l_rec.lf_evt_ocrd_dt,11);
11781: end if;
11782: --
11783: -- CWB Changes. ABSENCES, GRADE/STEP : no need to run flex logic
11784: -- added irec
11821: if ben_enrolment_requirements.g_any_choice_created
11822: and l_mode not in( 'W', 'M', 'G','I','D') -- added irec
11823: then
11824: if g_debug then
11825: hr_utility.set_location (l_package||'.ben_determine_actual_premium ',10);
11826: end if;
11827: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11828: fnd_message.set_token('PROC','ben_determine_actual_premium');
11829: --
11840: --
11841: -- Do rates stuff
11842: --
11843: if g_debug then
11844: hr_utility.set_location ('FND mess '||l_package,10);
11845: end if;
11846: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11847: fnd_message.set_token('PROC','ben_determine_rates');
11848: --
11846: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11847: fnd_message.set_token('PROC','ben_determine_rates');
11848: --
11849: if g_debug then
11850: hr_utility.set_location ('ben_determine_rates '||l_package,10);
11851: end if;
11852: ben_determine_rates.main
11853: (p_effective_date => p_effective_date,
11854: p_lf_evt_ocrd_dt => l_rec.lf_evt_ocrd_dt,
11878: --
11879: if p_lf_evt_oper_cd = 'SYNC'
11880: then
11881: --
11882: hr_utility.set_location('Calling GSP Rate Sync Post Process in PQH', 45);
11883: pqh_gsp_post_process.update_rate_sync_salary
11884: (p_per_in_ler_id => l_pil_row.per_in_ler_id
11885: ,p_effective_date => p_effective_date
11886: );
11898: ben_manage_unres_life_events.clear_cache;
11899: --
11900: end if;
11901: if g_debug then
11902: hr_utility.set_location ('ben_determine_rate_chg '||l_package,10);
11903: end if;
11904: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11905: fnd_message.set_token('PROC','ben_determine_rate_chg');
11906: --
11956: --
11957: -- CWB Changes.
11958: --
11959: if g_debug then
11960: hr_utility.set_location ('BENAUTEN '||l_package,10);
11961: end if;
11962: if ben_enrolment_requirements.g_auto_choice_created
11963: and l_mode not in ('W','D')
11964: then
11971: p_effective_date => l_rec.lf_evt_ocrd_dt
11972: );
11973: end if;
11974: if g_debug then
11975: hr_utility.set_location ('Dn BENAUTEN '||l_package,10);
11976: end if;
11977: --
11978: --
11979: -- Check for reqired communications
11981: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
11982: fnd_message.set_token('PROC','ben_generate_communications');
11983: --
11984: if g_debug then
11985: hr_utility.set_location ('Comms '||l_package,10);
11986: end if;
11987: --
11988: -- p_mode changed to l_mode in following line by Gopal Venkataraman 3/27/01 bug 1636071
11989: -- CWB Changes.
12039: --
12040: end if;
12041: --
12042: if g_debug then
12043: hr_utility.set_location ('Dn Comms '||l_package,10);
12044: end if;
12045: --
12046: -- Create benefit assignment for dependents if they were
12047: -- found ineligible.
12051: if ben_determine_dpnt_eligibility.g_dpnt_ineligible
12052: and (l_mode not in ( 'W', 'M', 'G','I','D'))
12053: then
12054: if g_debug then
12055: hr_utility.set_location ('Dpnt ineligible '||l_package,10);
12056: end if;
12057: for l_dpnt_rec in c_get_inelig_dpnt_info(l_rec.per_in_ler_id) loop
12058: if g_debug then
12059: hr_utility.set_location ('Dpnt person_id '||l_dpnt_rec.dpnt_person_id,10);
12055: hr_utility.set_location ('Dpnt ineligible '||l_package,10);
12056: end if;
12057: for l_dpnt_rec in c_get_inelig_dpnt_info(l_rec.per_in_ler_id) loop
12058: if g_debug then
12059: hr_utility.set_location ('Dpnt person_id '||l_dpnt_rec.dpnt_person_id,10);
12060: hr_utility.set_location ('cvg_thru_dt '||l_dpnt_rec.cvg_thru_dt,10);
12061: end if;
12062: ben_assignment_internal.copy_empasg_to_benasg
12063: (p_person_id => p_person_id
12056: end if;
12057: for l_dpnt_rec in c_get_inelig_dpnt_info(l_rec.per_in_ler_id) loop
12058: if g_debug then
12059: hr_utility.set_location ('Dpnt person_id '||l_dpnt_rec.dpnt_person_id,10);
12060: hr_utility.set_location ('cvg_thru_dt '||l_dpnt_rec.cvg_thru_dt,10);
12061: end if;
12062: ben_assignment_internal.copy_empasg_to_benasg
12063: (p_person_id => p_person_id
12064: ,p_dpnt_person_id => l_dpnt_rec.dpnt_person_id
12140: --
12141: if l_rec.lf_evt_ocrd_dt is not null then
12142: --
12143: if g_debug then
12144: hr_utility.set_location('processing event',10);
12145: end if;
12146: ben_person_life_event_api.update_person_life_event
12147: (p_per_in_ler_id => l_rec.per_in_ler_id,
12148: p_per_in_ler_stat_cd => 'PROCD',
12157: -- Bug 6404338. Min Max enhancement.
12158: l_chk_min_max := fnd_profile.value('BEN_CHK_MIN_MAX');
12159: --
12160: if g_debug then
12161: hr_utility.set_location ('l_chk_min_max '||l_chk_min_max,10);
12162: end if;
12163: --
12164: if l_chk_min_max = 'Y' then
12165: --
12166: -- Check if coverage was terminated in this event.
12167: --
12168: if ben_prtt_enrt_result_api.g_enrollment_change = true then
12169: if g_debug then
12170: hr_utility.set_location ('Enrollment ended ',10);
12171: end if;
12172: for l_rslt_rec in c_get_ended_enrt_rslts(l_rec.per_in_ler_id) loop
12173: --
12174: -- Check if person is still eligible for the plan type in
12179: fetch c_get_ptip_elig into l_ptip_elig_flag;
12180: close c_get_ptip_elig;
12181: --
12182: if g_debug then
12183: hr_utility.set_location (' Elig flag '||l_ptip_elig_flag,10);
12184: end if;
12185: --
12186: if l_ptip_elig_flag = 'Y' then
12187: --
12210: --
12211: open c_get_ptip_tot_enrd(l_rslt_rec.ptip_id);
12212: fetch c_get_ptip_tot_enrd into l_count;
12213: close c_get_ptip_tot_enrd;
12214: hr_utility.set_location (' MN_ENRD_RQD_OVRID_NUM '||l_ptip_rec.MN_ENRD_RQD_OVRID_NUM,10);
12215: if (l_count < l_MN_ENRD_RQD_OVRID_NUM ) then
12216: hr_utility.set_location (' error '||l_count,10);
12217: fnd_message.set_name('BEN','BEN_91588_PL_ENRD_LT_MN_RQD');
12218: fnd_message.set_token('MN_ENRL', to_char(l_MN_ENRD_RQD_OVRID_NUM));
12212: fetch c_get_ptip_tot_enrd into l_count;
12213: close c_get_ptip_tot_enrd;
12214: hr_utility.set_location (' MN_ENRD_RQD_OVRID_NUM '||l_ptip_rec.MN_ENRD_RQD_OVRID_NUM,10);
12215: if (l_count < l_MN_ENRD_RQD_OVRID_NUM ) then
12216: hr_utility.set_location (' error '||l_count,10);
12217: fnd_message.set_name('BEN','BEN_91588_PL_ENRD_LT_MN_RQD');
12218: fnd_message.set_token('MN_ENRL', to_char(l_MN_ENRD_RQD_OVRID_NUM));
12219: fnd_message.set_token('PL_TYP_NAME', l_ptip_rec.name);
12220: fnd_message.raise_error;
12282: --
12283: if l_mode not in ('W', 'M', 'G','I','D') then
12284: --
12285: if g_debug then
12286: hr_utility.set_location ('carry_farward_results '||l_package,10);
12287: end if;
12288: --
12289: ben_carry_forward_items.carry_farward_results(
12290: p_person_id => p_person_id
12295: ,p_effective_date => p_effective_date
12296: );
12297: --
12298: if g_debug then
12299: hr_utility.set_location ('Dn carry_farward_results '||l_package,10);
12300: end if;
12301: --
12302: end if;
12303: --
12468: --
12469: benutils.write(p_rec => g_action_rec);
12470: --
12471: if g_debug then
12472: hr_utility.set_location ('Leaving '||l_package,10);
12473: end if;
12474: --
12475: end process_comp_objects;
12476: --
12508: l_module varchar2(30);
12509: --
12510: begin
12511: --
12512: g_debug := hr_utility.debug_enabled;
12513: if g_debug then
12514: l_package := g_package||'.process_life_events';
12515: hr_utility.set_location ('Entering '||l_package,10);
12516: end if;
12511: --
12512: g_debug := hr_utility.debug_enabled;
12513: if g_debug then
12514: l_package := g_package||'.process_life_events';
12515: hr_utility.set_location ('Entering '||l_package,10);
12516: end if;
12517: --
12518: -- Create savepoint for error handling purposes
12519: --
12533: -- iRec
12534:
12535: --
12536: if g_debug then
12537: hr_utility.set_location (l_package||' Bef evaluate_life_events ',13);
12538: end if;
12539: --
12540: -- PB : 5422 :
12541: -- Now if benmngle is run in Life event mode and the winner
12556: exception
12557: when others then
12558: --
12559: if g_debug then
12560: hr_utility.set_location ('Not Logging Person Header information for person_id : '||p_person_id ||' p_business_group_id : '||p_business_group_id,12);
12561: end if;
12562:
12563: end;
12564: -- end 4496944
12580: p_lf_evt_oper_cd => p_lf_evt_oper_cd /* GSP Rate Sync */
12581: );
12582:
12583: if g_debug then
12584: hr_utility.set_location (l_package||' Dn evaluate_life_events ',15);
12585: end if;
12586: --
12587: if p_mode not in ('A','P','S','T') then
12588: --
12637: --
12638: end if;
12639: --
12640: if g_debug then
12641: hr_utility.set_location (l_package||' Dn get_active_life_event ',17);
12642: end if;
12643: --
12644: end if;
12645: --
12663: p_business_group_id => p_business_group_id,
12664: p_effective_date => nvl(l_rec.lf_evt_ocrd_dt,p_effective_date));
12665:
12666: if g_debug then
12667: hr_utility.set_location ('Dn Cac Per Inf '||l_package,10);
12668: end if;
12669: --
12670: --end if ;
12671:
12677: p_effective_date => nvl(l_rec.lf_evt_ocrd_dt,p_effective_date));
12678: */
12679: --
12680: if g_debug then
12681: hr_utility.set_location (l_package||' Bef process_comp_objects ',17);
12682: end if;
12683: process_comp_objects
12684: (p_person_id => p_person_id,
12685: p_person_action_id => p_person_action_id,
12705: l_module := 'GSP';
12706: end if;
12707: --
12708: if g_debug then
12709: hr_utility.set_location ('Calling pqh ranking proc ',10);
12710: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
12711: hr_utility.set_location ('p_module=>'||l_module,10);
12712: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
12713: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
12706: end if;
12707: --
12708: if g_debug then
12709: hr_utility.set_location ('Calling pqh ranking proc ',10);
12710: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
12711: hr_utility.set_location ('p_module=>'||l_module,10);
12712: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
12713: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
12714: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
12707: --
12708: if g_debug then
12709: hr_utility.set_location ('Calling pqh ranking proc ',10);
12710: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
12711: hr_utility.set_location ('p_module=>'||l_module,10);
12712: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
12713: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
12714: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
12715: end if;
12708: if g_debug then
12709: hr_utility.set_location ('Calling pqh ranking proc ',10);
12710: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
12711: hr_utility.set_location ('p_module=>'||l_module,10);
12712: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
12713: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
12714: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
12715: end if;
12716: --
12709: hr_utility.set_location ('Calling pqh ranking proc ',10);
12710: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
12711: hr_utility.set_location ('p_module=>'||l_module,10);
12712: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
12713: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
12714: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
12715: end if;
12716: --
12717: pqh_ranking.compute_total_score (
12710: hr_utility.set_location ('p_benefit_action_id=>'||benutils.g_benefit_action_id,10);
12711: hr_utility.set_location ('p_module=>'||l_module,10);
12712: hr_utility.set_location ('p_per_in_ler_id=>'||l_rec.per_in_ler_id,10);
12713: hr_utility.set_location ('p_person_id=>'||p_person_id,10);
12714: hr_utility.set_location ('p_effective_date=>'||l_rec.lf_evt_ocrd_dt,10);
12715: end if;
12716: --
12717: pqh_ranking.compute_total_score (
12718: p_benefit_action_id => benutils.g_benefit_action_id
12722: ,p_effective_date => l_rec.lf_evt_ocrd_dt );
12723: --
12724: end if;
12725: if g_debug then
12726: hr_utility.set_location ('Leaving '||l_package,10);
12727: end if;
12728: --
12729: exception
12730: --
12730: --
12731: when g_record_error then
12732: --
12733: if g_debug then
12734: hr_utility.set_location ('PLE g_record_error '||l_package,10);
12735: end if;
12736: --
12737: -- An error has occured so rollback anything that could have been
12738: -- inserted into tables at this point.
12737: -- An error has occured so rollback anything that could have been
12738: -- inserted into tables at this point.
12739: --
12740: if g_debug then
12741: hr_utility.set_location ('PERSON ERROR '||l_package,10);
12742: end if;
12743: rollback to process_life_event_savepoint;
12744: --
12745: -- Roll cache to savepoint
12798: --
12799: fnd_message.set_name('BEN','BEN_91662_BENMNGLE_ERROR_LIMIT');
12800: benutils.write(p_text => fnd_message.get);
12801: if g_debug then
12802: hr_utility.set_location ('PLE g_record_error Err Lim '||l_package,10);
12803: end if;
12804: --
12805: -- Write the last bit of information for the thread before
12806: -- the rollback fires when we raise the error.
12817: --
12818: when g_cwb_trk_ineligible then
12819: --
12820: if g_debug then
12821: hr_utility.set_location ('PLE g_life_event_after '||l_package,10);
12822: end if;
12823: --
12824: rollback to process_life_event_savepoint;
12825: --
12837: --
12838: when g_life_event_after then
12839: --
12840: if g_debug then
12841: hr_utility.set_location ('PLE g_life_event_after '||l_package,10);
12842: end if;
12843: --
12844: -- We don't want to roll back the transaction, just carry on with the
12845: -- process.
12856: --
12857: when app_exception.application_exception then
12858: --
12859: if g_debug then
12860: hr_utility.set_location ('PLE application_exception '||l_package,12);
12861: end if;
12862: --
12863: -- Update person action to errored as record has an error
12864: --
12915: --
12916: when others then
12917: --
12918: if g_debug then
12919: hr_utility.set_location ('SERIOUS Error '||l_package,10);
12920: end if;
12921: --
12922: -- Update person action to errored as record has an error
12923: --
12950: l_proc varchar2(80) := g_package||'.init_bft_statistics';
12951: --
12952: begin
12953: --
12954: g_debug := hr_utility.debug_enabled;
12955: --
12956: g_proc_rec.business_group_id := p_business_group_id;
12957: g_proc_rec.strt_dt := sysdate;
12958: g_proc_rec.strt_tm := to_char(sysdate,'HH24:MI:SS');
12975: and pac.action_status_cd = nvl(p_status_cd,pac.action_status_cd);
12976: --
12977: begin
12978: --
12979: g_debug := hr_utility.debug_enabled;
12980: --
12981: g_proc_rec.end_dt := sysdate;
12982: g_proc_rec.end_tm := to_char(sysdate,'HH24:MI:SS');
12983: g_end_tm_numeric := dbms_utility.get_time;
12984: g_proc_rec.elpsd_tm := (g_end_tm_numeric-g_strt_tm_numeric)/100;
12985: --
12986: if g_debug then
12987: l_proc := g_package||'.write_bft_statistics';
12988: hr_utility.set_location (l_proc||' Master process ',30);
12989: end if;
12990: open c_person_actions(null);
12991: fetch c_person_actions into g_proc_rec.per_slctd;
12992: close c_person_actions;
12990: open c_person_actions(null);
12991: fetch c_person_actions into g_proc_rec.per_slctd;
12992: close c_person_actions;
12993: if g_debug then
12994: hr_utility.set_location (l_proc||' c_person_actions(null)',31);
12995: end if;
12996: --
12997: open c_person_actions('E');
12998: fetch c_person_actions into g_proc_rec.per_err;
12997: open c_person_actions('E');
12998: fetch c_person_actions into g_proc_rec.per_err;
12999: close c_person_actions;
13000: if g_debug then
13001: hr_utility.set_location (l_proc||' c_person_actions(E) ',32);
13002: end if;
13003: --
13004: open c_person_actions('P');
13005: fetch c_person_actions into g_proc_rec.per_proc_succ;
13004: open c_person_actions('P');
13005: fetch c_person_actions into g_proc_rec.per_proc_succ;
13006: close c_person_actions;
13007: if g_debug then
13008: hr_utility.set_location (l_proc||' c_person_actions(P) ',33);
13009: end if;
13010: --
13011: open c_person_actions('U');
13012: fetch c_person_actions into g_proc_rec.per_unproc;
13012: fetch c_person_actions into g_proc_rec.per_unproc;
13013: close c_person_actions;
13014: --
13015: if g_debug then
13016: hr_utility.set_location (l_proc||' Done c_person_actions ',35);
13017: end if;
13018: g_proc_rec.business_group_id := p_business_group_id;
13019: g_proc_rec.per_proc := nvl(g_proc_rec.per_proc_succ,0)+
13020: nvl(g_proc_rec.per_err,0);
13019: g_proc_rec.per_proc := nvl(g_proc_rec.per_proc_succ,0)+
13020: nvl(g_proc_rec.per_err,0);
13021: --
13022: if g_debug then
13023: hr_utility.set_location (l_proc||' Write ',35);
13024: end if;
13025: benutils.write(p_rec => g_proc_rec);
13026: --
13027: end write_bft_statistics;