239: fnd_message.set_name ('PER', 'FFU10_GENERAL_ORACLE_ERROR');
240: fnd_message.set_token ('2', SUBSTR (SQLERRM, 1, 200));
241: ben_icm_life_events.g_cache_pep_object.DELETE;
242: ben_icm_life_events.g_cache_epo_object.DELETE;
243: ben_determine_activity_base_rt.l_icd_chc_rates_tab.DELETE;
244: ROLLBACK TO elig_per_cache_savepont;
245: --
246: END insert_into_icd;
247: --
289: THEN
290: hr_utility.set_location ('Entering create_icd_rates ', 213);
291: END IF;
292:
293: l_icd_count := ben_determine_activity_base_rt.l_icd_chc_rates_tab.COUNT;
294:
295: IF g_debug
296: THEN
297: hr_utility.set_location ('l_icd_count' || l_icd_count, 31);
301: --For Plan Level Rates
302: WHILE l_icd_count > 0
303: LOOP
304: --
305: IF ben_determine_activity_base_rt.l_icd_chc_rates_tab (l_icd_count).l_level =
306: 'P'
307: THEN
308: --
309: cache1 := ben_icm_life_events.g_cache_pep_object.COUNT;
322: IF g_debug
323: THEN
324: hr_utility.set_location ('cache1' || cache1, 112);
325: hr_utility.set_location
326: ( 'ben_determine_activity_base_rt.l_icd_chc_rates_tab(l_icd_count).pl_id'
327: || TO_CHAR
328: (ben_determine_activity_base_rt.l_icd_chc_rates_tab
329: (l_icd_count).pl_id
330: ),
324: hr_utility.set_location ('cache1' || cache1, 112);
325: hr_utility.set_location
326: ( 'ben_determine_activity_base_rt.l_icd_chc_rates_tab(l_icd_count).pl_id'
327: || TO_CHAR
328: (ben_determine_activity_base_rt.l_icd_chc_rates_tab
329: (l_icd_count).pl_id
330: ),
331: 12
332: );
339: );
340: END IF;
341:
342: --
343: IF ben_determine_activity_base_rt.l_icd_chc_rates_tab
344: (l_icd_count).pl_id =
345: ben_icm_life_events.g_cache_pep_object (cache11).pl_id
346: THEN
347: --
360: p_per_in_ler_id => NULL,
361: p_pgm_id => NULL,
362: p_pl_id => ben_icm_life_events.g_cache_pep_object
363: (cache11).pl_id,
364: p_oipl_id => ben_determine_activity_base_rt.l_icd_chc_rates_tab
365: (l_icd_count).oipl_id,
366: p_enrt_perd_id => NULL,
367: p_lee_rsn_id => NULL,
368: p_which_dates_cd => 'R',
368: p_which_dates_cd => 'R',
369: p_date_mandatory_flag => 'N',
370: p_compute_dates_flag => 'Y',
371: p_business_group_id => p_business_group_id,
372: p_acty_base_rt_id => ben_determine_activity_base_rt.l_icd_chc_rates_tab
373: (l_icd_count).acty_base_rt_id,
374: p_effective_date => p_effective_date,
375: p_lf_evt_ocrd_dt => NULL,
376: p_rt_strt_dt => l_rt_strt_dt,
386: p_rt_end_dt_cd => l_dummy_char,
387: p_rt_end_dt_rl => l_dummy_num
388: );
389: --
390: ben_determine_activity_base_rt.l_icd_chc_rates_tab
391: (l_icd_count).oipl_id :=
392: NULL;
393: ben_determine_activity_base_rt.l_icd_chc_rates_tab
394: (l_icd_count).opt_id :=
389: --
390: ben_determine_activity_base_rt.l_icd_chc_rates_tab
391: (l_icd_count).oipl_id :=
392: NULL;
393: ben_determine_activity_base_rt.l_icd_chc_rates_tab
394: (l_icd_count).opt_id :=
395: NULL;
396: insert_into_icd
397: (l_icd_chc_rates_tab => ben_determine_activity_base_rt.l_icd_chc_rates_tab,
393: ben_determine_activity_base_rt.l_icd_chc_rates_tab
394: (l_icd_count).opt_id :=
395: NULL;
396: insert_into_icd
397: (l_icd_chc_rates_tab => ben_determine_activity_base_rt.l_icd_chc_rates_tab,
398: p_effective_date => p_effective_date,
399: p_person_id => p_person_id,
400: p_business_group_id => p_business_group_id,
401: p_rt_strt_dt => l_rt_strt_dt,
447:
448: --End For Plan Level Rates
449:
450: --For OIPL Level Rates
451: l_icd_count := ben_determine_activity_base_rt.l_icd_chc_rates_tab.COUNT;
452:
453: IF g_debug
454: THEN
455: hr_utility.set_location ('l_icd_count' || l_icd_count, 33);
462: --For OIPL Level Rates
463: WHILE l_icd_count > 0
464: LOOP
465: --
466: IF ben_determine_activity_base_rt.l_icd_chc_rates_tab (l_icd_count).l_level =
467: 'O'
468: THEN
469: cache1 := ben_icm_life_events.g_cache_epo_object.COUNT;
470:
481: IF g_debug
482: THEN
483: hr_utility.set_location
484: ( 'l_icd_chc_rates_tab(l_icd_count).opt_id'
485: || ben_determine_activity_base_rt.l_icd_chc_rates_tab
486: (l_icd_count).opt_id,
487: 12
488: );
489: hr_utility.set_location
492: 12
493: );
494: hr_utility.set_location
495: ( 'l_icd_chc_rates_tab(l_icd_count).opt_id'
496: || ben_determine_activity_base_rt.l_icd_chc_rates_tab
497: (l_icd_count).oipl_id,
498: 12
499: );
500: --
505: );
506: END IF;
507:
508: OPEN c_opt_id
509: (ben_determine_activity_base_rt.l_icd_chc_rates_tab
510: (l_icd_count).oipl_id
511: );
512:
513: FETCH c_opt_id
526: AND l_opt_id.pl_id =
527: ben_icm_life_events.g_cache_epo_object (cache11).p_pl_id
528: THEN
529: --
530: --ben_determine_activity_base_rt.l_icd_chc_rates_tab(l_icd_count).pl_id := l_opt_id.pl_id;
531: IF ben_icm_life_events.g_cache_epo_object (cache11).p_first_elig
532: OR ben_icm_life_events.g_cache_epo_object (cache11).p_newly_elig
533: OR ben_icm_life_events.g_cache_epo_object (cache11).p_still_elig
534: THEN
544: p_per_in_ler_id => NULL,
545: p_pgm_id => NULL,
546: p_pl_id => ben_icm_life_events.g_cache_epo_object
547: (cache11).p_pl_id,
548: p_oipl_id => ben_determine_activity_base_rt.l_icd_chc_rates_tab
549: (l_icd_count).oipl_id,
550: p_enrt_perd_id => NULL,
551: p_lee_rsn_id => NULL,
552: p_which_dates_cd => 'R',
552: p_which_dates_cd => 'R',
553: p_date_mandatory_flag => 'N',
554: p_compute_dates_flag => 'Y',
555: p_business_group_id => p_business_group_id,
556: p_acty_base_rt_id => ben_determine_activity_base_rt.l_icd_chc_rates_tab
557: (l_icd_count).acty_base_rt_id,
558: p_effective_date => p_effective_date,
559: p_lf_evt_ocrd_dt => NULL,
560: p_rt_strt_dt => l_rt_strt_dt,
571: p_rt_end_dt_rl => l_dummy_num
572: );
573: --
574: insert_into_icd
575: (l_icd_chc_rates_tab => ben_determine_activity_base_rt.l_icd_chc_rates_tab,
576: p_effective_date => p_effective_date,
577: p_person_id => p_person_id,
578: p_business_group_id => p_business_group_id,
579: p_rt_strt_dt => l_rt_strt_dt,
642: fnd_message.set_name ('PER', 'FFU10_GENERAL_ORACLE_ERROR');
643: fnd_message.set_token ('2', SUBSTR (SQLERRM, 1, 200));
644: ben_icm_life_events.g_cache_pep_object.DELETE;
645: ben_icm_life_events.g_cache_epo_object.DELETE;
646: ben_determine_activity_base_rt.l_icd_chc_rates_tab.DELETE;
647: ROLLBACK TO elig_per_cache_savepont;
648: END create_icd_rates;
649: --
650: PROCEDURE create_pep_epo_rec (p_person_id NUMBER)
1839: RAISE;
1840: ROLLBACK TO elig_per_cache_savepont;
1841: ben_icm_life_events.g_cache_pep_object.DELETE;
1842: ben_icm_life_events.g_cache_epo_object.DELETE;
1843: ben_determine_activity_base_rt.l_icd_chc_rates_tab.DELETE;
1844: --
1845: END create_pep_epo_rec;
1846:
1847: --
2127: p_business_group_id => p_business_group_id
2128: );
2129: ben_icm_life_events.g_cache_pep_object.DELETE;
2130: ben_icm_life_events.g_cache_epo_object.DELETE;
2131: ben_determine_activity_base_rt.l_icd_chc_rates_tab.DELETE;
2132:
2133: --
2134: IF g_debug
2135: THEN
2152: fnd_message.set_token('BENMNGLE_ERROR',l_msg);
2153: fnd_msg_pub.add;
2154: ben_icm_life_events.g_cache_pep_object.DELETE;
2155: ben_icm_life_events.g_cache_epo_object.DELETE;
2156: ben_determine_activity_base_rt.l_icd_chc_rates_tab.DELETE;
2157: ROLLBACK TO icm_life_events_savepoint;
2158: --
2159: WHEN OTHERS
2160: THEN
2173: fnd_message.set_token('BENMNGLE_ERROR',l_msg);
2174: fnd_msg_pub.add;
2175: ben_icm_life_events.g_cache_pep_object.DELETE;
2176: ben_icm_life_events.g_cache_epo_object.DELETE;
2177: ben_determine_activity_base_rt.l_icd_chc_rates_tab.DELETE;
2178: ROLLBACK TO icm_life_events_savepoint;
2179: --
2180: --
2181: END p_manage_icm_life_events;