[Home] [Help]
257: 30-Jun-00 mhoyes 115.72 - Passed in context parameters into bendrpar.
258: 13-Jul-00 mhoyes 115.73 - Removed context parameters.
259: 04-Aug-00 jcarpent 115.74 - 5412. Don't reset override fields
260: when doing an update.
261: 14-Sep-00 mhoyes 115.75 - Removed highly executed hr_utility.set_location
262: statements.
263: 02-Oct-00 pbodla 115.76 - Bugs : 1412882, part of bug 1412951
264: When elig per or opt rows are created they
265: should be created as of least of p_effective_date
349: ESW record
350: 12-jan-05 ssarkar 115.114 Bug 4947426 : passed l_effective_dt to update_perf_Eligible_Person
351: 23-Jan-06 kmahendr 115.115 Bug#4960082 - newly_ineligible process is
352: added to still_ineligible condition
353: 27-Jan-06 mhoyes 115.116 Bug#4968123 - hr_utility debug and locally
354: defined plsql tuning.
355: 30-Jan-06 mhoyes 115.117 Bug#4968123 - moved out locall defined procs
356: to ben_determine_eligibility3.
357: 30-Jan-06 mhoyes 115.118 Bug#4968123 - moved out cursors
438: --
439: l_temp_prtn_strt_dt date ;
440: --
441: begin
442: -- hr_utility.set_location('Entering ben_determine_eligibility2.get_start_end_dates',10);
443: --
444: -- Performance tuning commented out hr_utility statements
445: --
446: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
440: --
441: begin
442: -- hr_utility.set_location('Entering ben_determine_eligibility2.get_start_end_dates',10);
443: --
444: -- Performance tuning commented out hr_utility statements
445: --
446: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
447: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
448: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
442: -- hr_utility.set_location('Entering ben_determine_eligibility2.get_start_end_dates',10);
443: --
444: -- Performance tuning commented out hr_utility statements
445: --
446: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
447: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
448: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
449: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
450: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
443: --
444: -- Performance tuning commented out hr_utility statements
445: --
446: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
447: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
448: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
449: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
450: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
451: --
444: -- Performance tuning commented out hr_utility statements
445: --
446: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
447: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
448: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
449: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
450: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
451: --
452: if ben_manage_life_events.fonm = 'Y'
445: --
446: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
447: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
448: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
449: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
450: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
451: --
452: if ben_manage_life_events.fonm = 'Y'
453: and ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
446: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
447: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
448: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
449: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
450: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
451: --
452: if ben_manage_life_events.fonm = 'Y'
453: and ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
454: --
486: --
487: -- Read participation dates for the comp object from the cached environment.
488: --
489: if p_pgm_id is not null then
490: -- hr_utility.set_location('get pgm l_prtn_eff_strt_dt_cd',123);
491: --
492: -- Performance fix to reduce cache calls
493: --
494: l_elig_pgm_rec := ben_cobj_cache.g_pgmetpr_currow;
510: l_prtn_eff_strt_dt_rl := l_prtn_elig_pgm_rec.prtn_eff_strt_dt_rl;
511: l_prtn_eff_end_dt_rl := l_prtn_elig_pgm_rec.prtn_eff_end_dt_rl;
512: end if;
513:
514: -- hr_utility.set_location('Done NN PGM ben_determine_eligibility2.get_start_end_dates',10);
515: end if;
516: -- hr_utility.set_location('PTIP NN ben_determine_eligibility2.get_start_end_dates',10);
517: if p_ptip_id is not null then
518: --
512: end if;
513:
514: -- hr_utility.set_location('Done NN PGM ben_determine_eligibility2.get_start_end_dates',10);
515: end if;
516: -- hr_utility.set_location('PTIP NN ben_determine_eligibility2.get_start_end_dates',10);
517: if p_ptip_id is not null then
518: --
519: -- Performance fix to reduce cache calls
520: --
549: l_prtn_eff_end_dt_cd := nvl(l_elig_pgm_rec.prtn_eff_end_dt_cd ,l_prtn_elig_pgm_rec.prtn_eff_end_dt_cd );
550: l_prtn_eff_strt_dt_rl := nvl(l_elig_pgm_rec.prtn_eff_strt_dt_rl,l_prtn_elig_pgm_rec.prtn_eff_strt_dt_rl);
551: l_prtn_eff_end_dt_rl := nvl(l_elig_pgm_rec.prtn_eff_end_dt_rl ,l_prtn_elig_pgm_rec.prtn_eff_end_dt_rl );
552: end if;
553: -- hr_utility.set_location('Done NN PTIP ben_determine_eligibility2.get_start_end_dates',10);
554:
555: end if;
556: -- hr_utility.set_location('PLIP NN ben_determine_eligibility2.get_start_end_dates',10);
557: if p_plip_id is not null then
552: end if;
553: -- hr_utility.set_location('Done NN PTIP ben_determine_eligibility2.get_start_end_dates',10);
554:
555: end if;
556: -- hr_utility.set_location('PLIP NN ben_determine_eligibility2.get_start_end_dates',10);
557: if p_plip_id is not null then
558: -- hr_utility.set_location('get plip l_prtn_eff_strt_dt_cd',123);
559: --
560: l_elig_plip_rec := ben_cobj_cache.g_plipetpr_currow;
554:
555: end if;
556: -- hr_utility.set_location('PLIP NN ben_determine_eligibility2.get_start_end_dates',10);
557: if p_plip_id is not null then
558: -- hr_utility.set_location('get plip l_prtn_eff_strt_dt_cd',123);
559: --
560: l_elig_plip_rec := ben_cobj_cache.g_plipetpr_currow;
561: l_prtn_eff_strt_dt_cd := l_elig_plip_rec.prtn_eff_strt_dt_cd;
562: l_prtn_eff_end_dt_cd := l_elig_plip_rec.prtn_eff_end_dt_cd;
593: l_prtn_eff_end_dt_rl := nvl(l_elig_pgm_rec.prtn_eff_end_dt_rl ,l_prtn_elig_pgm_rec.prtn_eff_end_dt_rl );
594: end if;
595: end if;
596:
597: -- hr_utility.set_location('Done NN PLIP ben_determine_eligibility2.get_start_end_dates',10);
598: end if;
599: -- hr_utility.set_location('PLN NN ben_determine_eligibility2.get_start_end_dates',10);
600: if p_pl_id is not null then
601:
595: end if;
596:
597: -- hr_utility.set_location('Done NN PLIP ben_determine_eligibility2.get_start_end_dates',10);
598: end if;
599: -- hr_utility.set_location('PLN NN ben_determine_eligibility2.get_start_end_dates',10);
600: if p_pl_id is not null then
601:
602: -- For plans in pgm, look at plip first.
603: if l_envplip_id is not null then
610: end if;
611:
612: -- if plip not found, or plan not in program, look at pl level
613: if l_prtn_eff_strt_dt_cd is null then
614: -- hr_utility.set_location('get pl l_prtn_eff_strt_dt_cd',123);
615: --
616: l_elig_pl_rec := ben_cobj_cache.g_pletpr_currow;
617: l_prtn_eff_strt_dt_cd := l_elig_pl_rec.prtn_eff_strt_dt_cd;
618: l_prtn_eff_end_dt_cd := l_elig_pl_rec.prtn_eff_end_dt_cd;
650: end if;
651:
652: end if;
653: end if;
654: -- hr_utility.set_location('Done NN PLN ben_determine_eligibility2.get_start_end_dates',10);
655: end if;
656: -- hr_utility.set_location('OIPL NN ben_determine_eligibility2.get_start_end_dates',10);
657: if p_oipl_id is not null then
658: -- hr_utility.set_location('getting oipl l_prtn_eff_strt_dt_cd',123);
652: end if;
653: end if;
654: -- hr_utility.set_location('Done NN PLN ben_determine_eligibility2.get_start_end_dates',10);
655: end if;
656: -- hr_utility.set_location('OIPL NN ben_determine_eligibility2.get_start_end_dates',10);
657: if p_oipl_id is not null then
658: -- hr_utility.set_location('getting oipl l_prtn_eff_strt_dt_cd',123);
659: l_elig_oipl_rec := ben_cobj_cache.g_oipletpr_currow;
660: l_prtn_eff_strt_dt_cd := l_elig_oipl_rec.prtn_eff_strt_dt_cd;
654: -- hr_utility.set_location('Done NN PLN ben_determine_eligibility2.get_start_end_dates',10);
655: end if;
656: -- hr_utility.set_location('OIPL NN ben_determine_eligibility2.get_start_end_dates',10);
657: if p_oipl_id is not null then
658: -- hr_utility.set_location('getting oipl l_prtn_eff_strt_dt_cd',123);
659: l_elig_oipl_rec := ben_cobj_cache.g_oipletpr_currow;
660: l_prtn_eff_strt_dt_cd := l_elig_oipl_rec.prtn_eff_strt_dt_cd;
661: l_prtn_eff_end_dt_cd := l_elig_oipl_rec.prtn_eff_end_dt_cd;
662: l_prtn_eff_strt_dt_rl := l_elig_oipl_rec.prtn_eff_strt_dt_rl;
710: l_prtn_eff_end_dt_rl := nvl(l_elig_pgm_rec.prtn_eff_end_dt_rl ,l_prtn_elig_pgm_rec.prtn_eff_end_dt_rl );
711: end if;
712: end if;
713: end if;
714: -- hr_utility.set_location('Done NN OIPL ben_determine_eligibility2.get_start_end_dates',10);
715: end if;
716: if l_prtn_eff_strt_dt_cd is null then
717: -- hr_utility.set_location('Null l_prtn_eff_strt_dt_cd, so assign aed',123);
718: l_prtn_eff_strt_dt_cd := 'AED'; -- as of event date
713: end if;
714: -- hr_utility.set_location('Done NN OIPL ben_determine_eligibility2.get_start_end_dates',10);
715: end if;
716: if l_prtn_eff_strt_dt_cd is null then
717: -- hr_utility.set_location('Null l_prtn_eff_strt_dt_cd, so assign aed',123);
718: l_prtn_eff_strt_dt_cd := 'AED'; -- as of event date
719: end if;
720:
721: if l_prtn_eff_end_dt_cd is null then
718: l_prtn_eff_strt_dt_cd := 'AED'; -- as of event date
719: end if;
720:
721: if l_prtn_eff_end_dt_cd is null then
722: -- hr_utility.set_location('null l_prtn_eff_end_dt_cd, so assign odbed',123);
723: -- Bug 2806554 - Changed to ODBED from AEOT
724: l_prtn_eff_end_dt_cd := 'ODBED'; -- one day before event date
725: end if;
726: --
728: --
729: p_prtn_eff_strt_dt_cd := l_prtn_eff_strt_dt_cd;
730: p_prtn_eff_strt_dt_rl := l_prtn_eff_strt_dt_rl;
731: --
732: -- hr_utility.set_location('p_start_or_end ben_determine_eligibility2.get_start_end_dates', 10);
733: if p_start_or_end = 'S' then
734: if l_prtn_eff_strt_dt_cd <> 'RL' then
735: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE S not RL ben_determine_eligibility2.get_start_end_dates', 10);
736: /* -- FONM START
731: --
732: -- hr_utility.set_location('p_start_or_end ben_determine_eligibility2.get_start_end_dates', 10);
733: if p_start_or_end = 'S' then
734: if l_prtn_eff_strt_dt_cd <> 'RL' then
735: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE S not RL ben_determine_eligibility2.get_start_end_dates', 10);
736: /* -- FONM START
737: if ben_manage_life_events.fonm = 'Y' and
738: ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
739: --
761: -- FONM START
762: -- end if;
763: -- FONM END
764: --
765: -- hr_utility.set_location('Done det date ben_determine_eligibility2.get_start_end_dates', 10);
766:
767: --
768: elsif l_prtn_eff_strt_dt_cd = 'RL' then
769: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE S RL ben_determine_eligibility2.get_start_end_dates', 10);
765: -- hr_utility.set_location('Done det date ben_determine_eligibility2.get_start_end_dates', 10);
766:
767: --
768: elsif l_prtn_eff_strt_dt_cd = 'RL' then
769: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE S RL ben_determine_eligibility2.get_start_end_dates', 10);
770: --
771: -- Get the date from calling a fast formula rule
772: --
773: --
847: end if;
848:
849: elsif p_start_or_end = 'E' then
850: --
851: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates p_start_or_end is E ' , 10);
852: -- FONM START
853: if ben_manage_life_events.fonm = 'Y' and
854: ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
855: --
856: p_prtn_eff_end_dt := ben_manage_life_events.g_fonm_cvg_strt_dt - 1 ;
857: --
858: --END FONM
859: elsif l_prtn_eff_end_dt_cd = 'A30DFPSD' then
860: hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E A30DFPSD ben_determine_eligibility2.get_start_end_dates', 10);
861: --
862: -- as of 30 days from prtn strt date
863: -- the start date used here in the case of an oipl is from the
864: -- elig_per_opt record, whereas for the pl or pgm the date is from
872: ,p_returned_date => p_prtn_eff_end_dt
873: );
874: --
875: elsif l_prtn_eff_end_dt_cd = 'A12MFPSD' then
876: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E A12MFPSD ben_determine_eligibility2.get_start_end_dates', 10);
877: --
878: -- as of 12 months from prtn strt date
879: -- the start date used here in the case of an oipl is from the
880: -- elig_per_opt record, whereas for the pl or pgm the date is from
888: ,p_returned_date => p_prtn_eff_end_dt
889: );
890: --
891: elsif l_prtn_eff_end_dt_cd = 'ALDCPP' then
892: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E ALDCPP ben_determine_eligibility2.get_start_end_dates', 10);
893: --
894: -- as of the last day of the pay period where date occurred
895: --
896: ben_determine_date.main
901: ,p_effective_date => p_effective_date
902: );
903: --
904: elsif l_prtn_eff_end_dt_cd = 'ALDCM' then
905: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E ALDCM ben_determine_eligibility2.get_start_end_dates', 10);
906: --
907: -- as of the last day of the month where date occurred
908: --
909: ben_determine_date.main
914: ,p_effective_date => p_effective_date
915: );
916: --
917: elsif l_prtn_eff_end_dt_cd = 'ALDCPPSY' then
918: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E ALDCPPSY ben_determine_eligibility2.get_start_end_dates', 10);
919: --
920: -- as of the last day of the pl semi-year where date occurred
921: --Bug 2551834 Added nvl cases to handle ptip/plip cases
922: ben_determine_date.main
930: ,p_effective_date => p_effective_date
931: );
932: --
933: elsif l_prtn_eff_end_dt_cd = 'ALDCPPY' then
934: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E ALDCPPY ben_determine_eligibility2.get_start_end_dates', 10);
935: --
936: -- as of the last day of the pl yr where date occurred
937: --Bug 2551834 Added nvl cases to handle ptip/plip cases
938: ben_determine_date.main
952: changed to eff_end_dt_cd.
953: */
954: elsif l_prtn_eff_end_dt_cd <> 'RL' then
955: --
956: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E <> RL ben_determine_eligibility2.get_start_end_dates', 10);
957: hr_utility.set_location(' SOE E <> RLBefore EEDT' || p_prtn_eff_end_dt,20);
958: --NOCOPY ISSUE
959: l_temp_prtn_strt_dt := p_prtn_eff_end_dt ;
960: --
953: */
954: elsif l_prtn_eff_end_dt_cd <> 'RL' then
955: --
956: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E <> RL ben_determine_eligibility2.get_start_end_dates', 10);
957: hr_utility.set_location(' SOE E <> RLBefore EEDT' || p_prtn_eff_end_dt,20);
958: --NOCOPY ISSUE
959: l_temp_prtn_strt_dt := p_prtn_eff_end_dt ;
960: --
961: ben_determine_date.main
972: ,p_effective_date => p_effective_date
973: ,p_returned_date => p_prtn_eff_end_dt
974: );
975: --
976: hr_utility.set_location(' SOE E <> RLAfter EEDT' || p_prtn_eff_end_dt,20);
977: --
978: elsif l_prtn_eff_end_dt_cd = 'RL' then
979: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E RL ben_determine_eligibility2.get_start_end_dates', 10);
980: --
975: --
976: hr_utility.set_location(' SOE E <> RLAfter EEDT' || p_prtn_eff_end_dt,20);
977: --
978: elsif l_prtn_eff_end_dt_cd = 'RL' then
979: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E RL ben_determine_eligibility2.get_start_end_dates', 10);
980: --
981: -- Get the date from calling a fast formula rule
982: --
983: -- Rule = Participation Eligibility End Date (-83)
1059: fnd_message.set_name('BEN','BEN_91393_STRT_END_ERROR');
1060: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
1061: raise ben_manage_life_events.g_record_error;
1062: end if;
1063: -- hr_utility.set_location('Leaving ben_determine_eligibility2.get_start_end_dates',10);
1064:
1065: end get_start_end_dates;
1066: --
1067:
1451: l_count_icm31 number :=0;
1452: --
1453: begin
1454: --
1455: g_debug := hr_utility.debug_enabled;
1456: --
1457: if g_debug then
1458: --
1459: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1455: g_debug := hr_utility.debug_enabled;
1456: --
1457: if g_debug then
1458: --
1459: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1460: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1461: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1462: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1463: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1456: --
1457: if g_debug then
1458: --
1459: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1460: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1461: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1462: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1463: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1464: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1457: if g_debug then
1458: --
1459: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1460: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1461: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1462: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1463: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1464: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1465: --
1458: --
1459: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1460: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1461: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1462: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1463: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1464: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1465: --
1466: end if;
1459: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1460: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1461: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1462: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1463: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1464: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1465: --
1466: end if;
1467: --
1460: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1461: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1462: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1463: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1464: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1465: --
1466: end if;
1467: --
1468: -- iRec
1468: -- iRec
1469: ben_env_object.get(p_rec => l_env_rec);
1470: benutils.get_batch_parameters( p_benefit_action_id => l_env_rec.benefit_action_id
1471: ,p_rec => l_benmngle_parm_rec);
1472: hr_utility.set_location('l_benmngle_parm_rec.mode_cd'||l_benmngle_parm_rec.mode_cd,125);
1473: -- iRec
1474: if ben_manage_life_events.fonm = 'Y'
1475: and ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
1476: --
1499: --
1500: if p_elig_flag = TRUE then
1501: --
1502: if g_debug then
1503: hr_utility.set_location('Wait period: ben_determine_eligibility2.check_prev_elig', 10);
1504: end if;
1505: --
1506: IF nvl(l_env_rec.mode_cd,'~') <> 'D' THEN
1507: --
1522: ,p_wait_perd_strt_dt => l_wait_perd_strt_dt
1523: );
1524: --
1525: if g_debug then
1526: hr_utility.set_location('Dn Wait period: ben_determine_eligibility2.check_prev_elig', 10);
1527: hr_utility.set_location('Wait period strt dt : ' || l_wait_perd_strt_dt, 10);
1528: end if;
1529: if l_wait_perd_cmpltn_dt is not null then
1530: -- If a potential life event exists between the effective date and the
1523: );
1524: --
1525: if g_debug then
1526: hr_utility.set_location('Dn Wait period: ben_determine_eligibility2.check_prev_elig', 10);
1527: hr_utility.set_location('Wait period strt dt : ' || l_wait_perd_strt_dt, 10);
1528: end if;
1529: if l_wait_perd_cmpltn_dt is not null then
1530: -- If a potential life event exists between the effective date and the
1531: -- waiting period completion date, then raise an error and stop further
1530: -- If a potential life event exists between the effective date and the
1531: -- waiting period completion date, then raise an error and stop further
1532: -- processing of this comp object. Also write a descriptive message to the
1533: -- log.
1534: hr_utility.set_location('Checking for ptnl life events ben_determine_eligibility2.check_prev_elig', 10);
1535:
1536: open c_ptnl_le(l_wait_perd_cmpltn_dt);
1537: fetch c_ptnl_le into l_ptnl_le;
1538: if c_ptnl_le%found
1539: and l_benmngle_parm_rec.mode_cd <> 'I' --iRec:Do not raise the error when BENMNGLE processed in iRecruitment mode
1540: then
1541: close c_ptnl_le;
1542: fnd_message.set_name ('BEN','BEN_93992_PTNL_IN_WTG_PERD'); -- 3597303
1543: hr_utility.set_location('PTNL LE FOUND ben_determine_eligibility2.check_prev_elig', 10);
1544: ben_manage_life_events.g_output_string :=
1545: ben_manage_life_events.g_output_string||
1546: 'Elg: Yes '||-- 3597303
1547: 'Warning:'||fnd_message.get;
1550: --
1551: p_elig_flag := true;---false; -- bug 3597303
1552: --
1553: else
1554: hr_utility.set_location('PTNL LE not found. Call BENDRPAR', 10);
1555: close c_ptnl_le;
1556:
1557: -- There's no potential life event. Re determine temporal factors using
1558: -- the wait perd cmpltn date as the life event ocrd date or ntfn date.
1602: --
1603: p_elig_flag := true; -- 3597303
1604: --
1605: -- 1517275 : added else and moved end if
1606: -- and hr_utility.set_location
1607: -- tm 11/29
1608: else -- no rows returned
1609: hr_utility.set_location('TEMPORAL PTNL LE not found.', 15);
1610: close c_ptnl_le;
1605: -- 1517275 : added else and moved end if
1606: -- and hr_utility.set_location
1607: -- tm 11/29
1608: else -- no rows returned
1609: hr_utility.set_location('TEMPORAL PTNL LE not found.', 15);
1610: close c_ptnl_le;
1611: end if;
1612: end if; -- c_ptnl_le
1613: end if; -- wait_perd_cmpltn_dt
1620: --
1621: l_oipl_rec := ben_cobj_cache.g_oipl_currow;
1622: --
1623: if g_debug then
1624: hr_utility.set_location('open c_prvoptelch ben_determine_eligibility2.check_prev_elig', 10);
1625: end if;
1626: --
1627: -- Check for oipl in a program
1628: --
1655: ,p_inst_row => l_epo_row
1656: );
1657: --
1658: if g_debug then
1659: hr_utility.set_location('ik-l_effective_dt '||l_oipl_rec.opt_id,10);
1660: hr_utility.set_location('ik-l_oipl_rec.opt_id '||l_oipl_rec.opt_id,10);
1661: hr_utility.set_location('ik-l_epo_row.elig_per_opt_id '||l_epo_row.elig_per_opt_id,10);
1662: end if;
1663: --
1656: );
1657: --
1658: if g_debug then
1659: hr_utility.set_location('ik-l_effective_dt '||l_oipl_rec.opt_id,10);
1660: hr_utility.set_location('ik-l_oipl_rec.opt_id '||l_oipl_rec.opt_id,10);
1661: hr_utility.set_location('ik-l_epo_row.elig_per_opt_id '||l_epo_row.elig_per_opt_id,10);
1662: end if;
1663: --
1664: if l_epo_row.elig_per_opt_id is null then
1657: --
1658: if g_debug then
1659: hr_utility.set_location('ik-l_effective_dt '||l_oipl_rec.opt_id,10);
1660: hr_utility.set_location('ik-l_oipl_rec.opt_id '||l_oipl_rec.opt_id,10);
1661: hr_utility.set_location('ik-l_epo_row.elig_per_opt_id '||l_epo_row.elig_per_opt_id,10);
1662: end if;
1663: --
1664: if l_epo_row.elig_per_opt_id is null then
1665: --
1695: --
1696: else
1697: --
1698: if g_debug then
1699: hr_utility.set_location('fetch c_prvoptelch ben_determine_eligibility2.check_prev_elig', 10);
1700: end if;
1701: --
1702: ben_determine_eligibility4.prev_opt_elig_check
1703: (p_person_id => p_person_id
1752: close c_prev_opt_elig_check;
1753: --
1754: */
1755: if g_debug then
1756: hr_utility.set_location('Dn fetch c_prvoptelch ben_determine_eligibility2.check_prev_elig', 10);
1757: end if;
1758: end if;
1759: --
1760: l_prev_per_in_ler_id := l_per_in_ler_id;
1769: then --b
1770: -- No record exist Person not previously elig or inelig for selctd oipl
1771: if p_elig_flag then
1772: --
1773: hr_utility.set_location ('oipl first elig',121);
1774: l_first_elig := true;
1775: l_start_or_end := 'S';
1776: fnd_message.set_name ('BEN','BEN_91385_FIRST_ELIG');
1777: benutils.write(p_text => fnd_message.get);
1785: l_trk_inelig_per_flag := l_oipl_rec.trk_inelig_per_flag;
1786: --
1787: if l_trk_inelig_per_flag = 'Y' then
1788: --
1789: hr_utility.set_location ('first inelig',121);
1790: l_first_inelig := true;
1791: l_start_or_end := 'E';
1792: --
1793: else
1830: 'Rsn: Still Elig';
1831: --
1832: end if;
1833: --
1834: hr_utility.set_location ('still elig',121); --Since we clear cache after every run so even though
1835: l_start_or_end := 'S'; -- still elig need to build the cache
1836: l_still_elig := true;
1837: --
1838: --return;
1838: --return;
1839: --
1840: elsif l_opt_elig_flag = 'Y' and p_elig_flag = false then --d
1841: -- person is newly inelig
1842: hr_utility.set_location ('newly inelig',121);
1843: l_newly_inelig := true;
1844: l_start_or_end := 'E';
1845: fnd_message.set_name('BEN','BEN_91347_NOT_ELIG_PREV_ELIG');
1846: benutils.write(p_text => fnd_message.get);
1858: if l_benmngle_parm_rec.mode_cd in ('L','C') then
1859: l_trk_inelig_per_flag := l_oipl_rec.trk_inelig_per_flag;
1860: end if;
1861: if g_debug then
1862: hr_utility.set_location ('Track INelig flag'||l_trk_inelig_per_flag,100);
1863: hr_utility.set_location ('age val '||p_comp_rec.age_val,101);
1864: end if;
1865: --
1866: if l_trk_inelig_per_flag = 'Y' then
1859: l_trk_inelig_per_flag := l_oipl_rec.trk_inelig_per_flag;
1860: end if;
1861: if g_debug then
1862: hr_utility.set_location ('Track INelig flag'||l_trk_inelig_per_flag,100);
1863: hr_utility.set_location ('age val '||p_comp_rec.age_val,101);
1864: end if;
1865: --
1866: if l_trk_inelig_per_flag = 'Y' then
1867: if p_comp_rec.age_val < l_old_age_val or
1868: p_comp_rec.los_val < l_old_los_val or
1869: (p_comp_rec.age_val is not null and l_old_age_val is null) or
1870: (p_comp_rec.los_val is not null and l_old_los_val is null) then
1871: if g_debug then
1872: hr_utility.set_location ('New update for elig per opt',100);
1873: end if;
1874: --
1875: l_t_object_version_number := l_object_version_number_opt;
1876: --
1893: if l_update_override then
1894: l_datetrack_mode := hr_api.g_update_override;
1895:
1896: if g_debug then
1897: hr_utility.set_location('EPO l_datetrack_mode '||l_datetrack_mode, 777);
1898: end if;
1899:
1900: elsif l_update then
1901: l_datetrack_mode := hr_api.g_update;
1900: elsif l_update then
1901: l_datetrack_mode := hr_api.g_update;
1902:
1903: if g_debug then
1904: hr_utility.set_location('EPO l_datetrack_mode '||l_datetrack_mode, 777);
1905: end if;
1906: else
1907: l_datetrack_mode := hr_api.g_correction;
1908:
1906: else
1907: l_datetrack_mode := hr_api.g_correction;
1908:
1909: if g_debug then
1910: hr_utility.set_location('EPO l_datetrack_mode '||l_datetrack_mode, 777);
1911: end if;
1912: end if;
1913:
1914: hr_utility.set_location('EPO l_per_in_ler_id' || l_per_in_ler_id, 777);
1910: hr_utility.set_location('EPO l_datetrack_mode '||l_datetrack_mode, 777);
1911: end if;
1912: end if;
1913:
1914: hr_utility.set_location('EPO l_per_in_ler_id' || l_per_in_ler_id, 777);
1915:
1916: -- insert into backup table if updating in correction mode
1917:
1918: IF l_datetrack_mode = hr_api.g_correction AND
1981: p_program_update_date => sysdate);
1982: --
1983:
1984: if p_score_tab.count > 0 then
1985: hr_utility.set_location('writing score records ',5.6);
1986: ben_elig_scre_wtg_api.load_score_weight
1987: (p_validate => false
1988: ,p_score_tab => p_score_tab
1989: ,p_effective_date => l_effective_dt
2006: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
2007: --
2008: END IF;
2009: --
2010: hr_utility.set_location('Building epo cache1 1'|| l_count_icm1,123);
2011: --
2012: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
2013: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
2014: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
2078: return;
2079: --
2080: elsif l_opt_elig_flag = 'N' and p_elig_flag then --d
2081: -- person is newly elig
2082: hr_utility.set_location('new elig',23);
2083: l_newly_elig := true;
2084: l_start_or_end := 'S';
2085: fnd_message.set_name('BEN','BEN_91346_ELIG_PREV_NOT_ELIG');
2086: benutils.write(p_text => fnd_message.get);
2095: --
2096: end if; --b
2097: --
2098: if g_debug then
2099: hr_utility.set_location('Call GSED 1 ben_determine_eligibility2.check_prev_elig', 10);
2100: end if;
2101: --
2102: get_start_end_dates
2103: (p_comp_obj_tree_row => p_comp_obj_tree_row
2120: );
2121: --
2122: if g_debug then
2123: --
2124: hr_utility.set_location('Done GSED 1 ben_determine_eligibility2.check_prev_elig', 10);
2125: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
2126: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
2127: --
2128: end if;
2121: --
2122: if g_debug then
2123: --
2124: hr_utility.set_location('Done GSED 1 ben_determine_eligibility2.check_prev_elig', 10);
2125: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
2126: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
2127: --
2128: end if;
2129: -- compute end date plus one.
2122: if g_debug then
2123: --
2124: hr_utility.set_location('Done GSED 1 ben_determine_eligibility2.check_prev_elig', 10);
2125: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
2126: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
2127: --
2128: end if;
2129: -- compute end date plus one.
2130: if to_char(l_prtn_eff_end_dt,'DD-MM-RRRR') = '31-12-4712' then
2150: --
2151: --Get elig id from ben_elig_per_f for the plan
2152: --
2153: if g_debug then
2154: hr_utility.set_location('open c_get_elig_id ben_determine_eligibility2.check_prev_elig', 10);
2155: end if;
2156: --
2157: ben_pep_cache1.get_currplnpep_dets
2158: (p_comp_obj_tree_row => p_comp_obj_tree_row
2176: --
2177: end if;
2178: --
2179: if g_debug then
2180: hr_utility.set_location('close c_get_elig_id ben_determine_eligibility2.check_prev_elig', 10);
2181: end if;
2182: --
2183: -- Get opt id from cached oipl structure
2184: --
2213: --
2214: end if;
2215: --
2216: if l_first_elig then --n
2217: hr_utility.set_location ('first elig',121);
2218: -- Create Elig Person for Option
2219: if instr(ben_manage_life_events.g_output_string,
2220: 'Elg:') = 0 then
2221: --
2253: --
2254: end if;
2255: --
2256: if g_debug then
2257: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
2258: l_prtn_eff_strt_dt, 10);
2259: hr_utility.set_location('FIR ELIG Cre EPO ben_determine_eligibility2.check_prev_elig', 10);
2260: end if;
2261: --
2255: --
2256: if g_debug then
2257: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
2258: l_prtn_eff_strt_dt, 10);
2259: hr_utility.set_location('FIR ELIG Cre EPO ben_determine_eligibility2.check_prev_elig', 10);
2260: end if;
2261: --
2262: l_elig_flag := 'Y';
2263: l_prtn_strt_dt := l_prtn_eff_strt_dt;
2340: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
2341: --
2342: END IF;
2343: --
2344: hr_utility.set_location('Building epo cache1 2 : count ' || l_count_icm1,123);
2345: --
2346: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
2347: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
2348: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
2408: END IF;
2409: --ICM
2410: --
2411: if p_score_tab.count > 0 then
2412: hr_utility.set_location('writing score records ',5.5);
2413: ben_elig_scre_wtg_api.load_score_weight
2414: (p_validate => false
2415: ,p_score_tab => p_score_tab
2416: ,p_effective_date => l_effective_dt
2417: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
2418: ,p_elig_per_id => l_elig_per_id
2419: ,p_elig_per_opt_id => l_elig_per_opt_id);
2420: end if;
2421: hr_utility.set_location('Dn FIR ELIG Cre EPO ben_determine_eligibility2.check_prev_elig', 10);
2422: --
2423: elsif l_still_elig then --n
2424: --
2425: hr_utility.set_location ('still elig',121);
2421: hr_utility.set_location('Dn FIR ELIG Cre EPO ben_determine_eligibility2.check_prev_elig', 10);
2422: --
2423: elsif l_still_elig then --n
2424: --
2425: hr_utility.set_location ('still elig',121);
2426: if instr(ben_manage_life_events.g_output_string,
2427: 'Elg:') = 0 then
2428: --
2429: ben_manage_life_events.g_output_string :=
2499: --
2500: l_elig_flag := 'Y';
2501: l_prtn_strt_dt := l_prtn_eff_strt_dt;
2502: --
2503: hr_utility.set_location('SARKAR EPO l_per_in_ler_id' || l_per_in_ler_id, 10);
2504: IF l_datetrack_mode = hr_api.g_correction AND
2505: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) AND l_benmngle_parm_rec.mode_cd <> 'D' THEN
2506: --
2507: ben_determine_eligibility3.save_to_restore
2585: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
2586: --
2587: END IF;
2588: --
2589: hr_utility.set_location('Building epo cache1 3 : count ',123);
2590: --ICM
2591: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
2592: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
2593: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
2654: --
2655: END IF;
2656: --ICM
2657: if p_score_tab.count > 0 then
2658: hr_utility.set_location('writing score records ',5.6);
2659: ben_elig_scre_wtg_api.load_score_weight
2660: (p_validate => false
2661: ,p_score_tab => p_score_tab
2662: ,p_effective_date => l_effective_dt
2665: ,p_elig_per_opt_id => l_elig_per_opt_id);
2666: end if;
2667: elsif l_newly_elig then --n
2668: --
2669: hr_utility.set_location('new elig',23);
2670: if instr(ben_manage_life_events.g_output_string,
2671: 'Elg:') = 0 then
2672: --
2673: ben_manage_life_events.g_output_string :=
2888: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
2889: --
2890: END IF;
2891: --
2892: hr_utility.set_location('Building epo cache1 4 : count ' || l_count_icm1,123);
2893: --ICM
2894: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
2895: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
2896: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
2955: --
2956: END IF;
2957: --ICM
2958: if p_score_tab.count > 0 then
2959: hr_utility.set_location('writing score records ',5.7);
2960: ben_elig_scre_wtg_api.load_score_weight
2961: (p_validate => false
2962: ,p_score_tab => p_score_tab
2963: ,p_effective_date => l_effective_dt
2966: ,p_elig_per_opt_id => l_elig_per_opt_id);
2967: end if;
2968: elsif l_newly_inelig then --n
2969: --
2970: hr_utility.set_location ('newly inelig',121);
2971: -- Person was found not eligible for this oipl.
2972: -- Person was prev eligible. Now is newly ineligible.
2973: -- Call API to Update old record with end date (correction)
2974: -- Then call in update mode to create a new inelig record with
3138: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
3139: --
3140: END IF;
3141: --
3142: hr_utility.set_location('Building epo cache1 6 : count ' || l_count_icm1,123);
3143: --ICM
3144: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
3145: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
3146: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
3210: -- plan,option in plan, or program. Don't call it if not
3211: -- necessary.
3212: --
3213: if p_score_tab.count > 0 then
3214: hr_utility.set_location('writing score records ',5.5);
3215: ben_elig_scre_wtg_api.load_score_weight
3216: (p_validate => false
3217: ,p_score_tab => p_score_tab
3218: ,p_effective_date => l_effective_dt
3271: end if;
3272:
3273: elsif l_first_inelig then --n
3274: --
3275: hr_utility.set_location ('first inelig',121);
3276: -- Get elig id from ben_elig_per_f for the plan
3277: --
3278: ben_pep_cache1.get_currplnpep_dets
3279: (p_comp_obj_tree_row => p_comp_obj_tree_row
3298: end if;
3299: --
3300: l_opt_id := l_oipl_rec.opt_id;
3301: --
3302: hr_utility.set_location('l_elig_per_id '||l_elig_per_id,10);
3303: hr_utility.set_location('l_elig_per_opt_id '||l_elig_per_opt_id,10);
3304: hr_utility.set_location('l_opt_id '||l_opt_id,10);
3305: hr_utility.set_location('p_effective_date '||p_effective_date,10);
3306: --
3299: --
3300: l_opt_id := l_oipl_rec.opt_id;
3301: --
3302: hr_utility.set_location('l_elig_per_id '||l_elig_per_id,10);
3303: hr_utility.set_location('l_elig_per_opt_id '||l_elig_per_opt_id,10);
3304: hr_utility.set_location('l_opt_id '||l_opt_id,10);
3305: hr_utility.set_location('p_effective_date '||p_effective_date,10);
3306: --
3307: -- Person not eligible now or in the past.
3300: l_opt_id := l_oipl_rec.opt_id;
3301: --
3302: hr_utility.set_location('l_elig_per_id '||l_elig_per_id,10);
3303: hr_utility.set_location('l_elig_per_opt_id '||l_elig_per_opt_id,10);
3304: hr_utility.set_location('l_opt_id '||l_opt_id,10);
3305: hr_utility.set_location('p_effective_date '||p_effective_date,10);
3306: --
3307: -- Person not eligible now or in the past.
3308: -- Create elig person with elig flag = 'n'
3301: --
3302: hr_utility.set_location('l_elig_per_id '||l_elig_per_id,10);
3303: hr_utility.set_location('l_elig_per_opt_id '||l_elig_per_opt_id,10);
3304: hr_utility.set_location('l_opt_id '||l_opt_id,10);
3305: hr_utility.set_location('p_effective_date '||p_effective_date,10);
3306: --
3307: -- Person not eligible now or in the past.
3308: -- Create elig person with elig flag = 'n'
3309: -- Call API
3317: 'Rsn: Not Elig FTIME';
3318: --
3319: end if;
3320: --
3321: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Fir inel Cre EPO ' , 10);
3322: --
3323: l_elig_flag := 'N';
3324: l_prtn_strt_dt := l_end_dt_plus_one;
3325: --
3386: -- Bypass insert validate validation for performance
3387: --
3388: ,p_override_validation => TRUE);
3389: --
3390: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn Fir inel Cre EPO ' , 10);
3391: --
3392: -- ICM
3393: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
3394: IF NOT ben_icm_life_events.g_cache_epo_object.EXISTS(1) THEN
3400: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
3401: --
3402: END IF;
3403: --
3404: hr_utility.set_location('Building epo cache1 7 : count ' || l_count_icm1,123);
3405: --
3406: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
3407: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
3408: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
3468: ben_icm_life_events.g_cache_epo_object(l_count_icm1).wait_perd_cmpltn_date := null;
3469: --
3470: END IF;
3471: if p_score_tab.count > 0 then
3472: hr_utility.set_location('writing score records ',5.5);
3473: ben_elig_scre_wtg_api.load_score_weight
3474: (p_validate => false
3475: ,p_score_tab => p_score_tab
3476: ,p_effective_date => l_effective_dt
3495: --
3496: if p_comp_obj_tree_row.oiplip_id is not null then
3497: --
3498: if g_debug then
3499: hr_utility.set_location('Creating OIPLIP',10);
3500: end if;
3501: l_object_version_number := null;
3502: --
3503: if g_debug then
3500: end if;
3501: l_object_version_number := null;
3502: --
3503: if g_debug then
3504: hr_utility.set_location('PLIP'||l_envplip_id,10);
3505: hr_utility.set_location('PGM'||l_envpgm_id,10);
3506: hr_utility.set_location('PERSON'||p_person_id,10);
3507: hr_utility.set_location('OPT_ID'||l_oipl_rec.opt_id,10);
3508: end if;
3501: l_object_version_number := null;
3502: --
3503: if g_debug then
3504: hr_utility.set_location('PLIP'||l_envplip_id,10);
3505: hr_utility.set_location('PGM'||l_envpgm_id,10);
3506: hr_utility.set_location('PERSON'||p_person_id,10);
3507: hr_utility.set_location('OPT_ID'||l_oipl_rec.opt_id,10);
3508: end if;
3509: --
3502: --
3503: if g_debug then
3504: hr_utility.set_location('PLIP'||l_envplip_id,10);
3505: hr_utility.set_location('PGM'||l_envpgm_id,10);
3506: hr_utility.set_location('PERSON'||p_person_id,10);
3507: hr_utility.set_location('OPT_ID'||l_oipl_rec.opt_id,10);
3508: end if;
3509: --
3510: -- Check for previous OIPLIP
3503: if g_debug then
3504: hr_utility.set_location('PLIP'||l_envplip_id,10);
3505: hr_utility.set_location('PGM'||l_envpgm_id,10);
3506: hr_utility.set_location('PERSON'||p_person_id,10);
3507: hr_utility.set_location('OPT_ID'||l_oipl_rec.opt_id,10);
3508: end if;
3509: --
3510: -- Check for previous OIPLIP
3511: --
3522: --
3523: if l_oiplipepo_row.elig_per_opt_id is null then
3524: --
3525: if g_debug then
3526: hr_utility.set_location('Record not found',10);
3527: end if;
3528: --
3529: ben_pep_cache1.get_curroiplippep_dets
3530: (p_comp_obj_tree_row => p_comp_obj_tree_row
3556:
3557: -- Create oiplip record
3558: --
3559: if g_debug then
3560: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig BEPOAPI_CreOIPLIP ' , 10);
3561: end if;
3562: --
3563: ben_Eligible_Person_perf_api.create_perf_Elig_Person_Option
3564: (p_validate => FALSE,
3634: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
3635: --
3636: END IF;
3637: --
3638: hr_utility.set_location('Building epo cache1 8 : count ' || l_count_icm1,123);
3639: --
3640: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_prev_oiplip_elig_check.elig_per_id;
3641: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_prev_oiplip_elig_check.elig_per_opt_id;
3642: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
3694: ben_icm_life_events.g_cache_epo_object(l_count_icm1).p_pl_id := l_envpl_id;
3695: --
3696: END IF;
3697: if g_debug then
3698: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn BEPOAPI_CreOIPLIP ' , 10);
3699: end if;
3700: --
3701: else
3702: --
3814: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
3815: --
3816: END IF;
3817: --
3818: hr_utility.set_location('Building epo cache1 9 : count ',123);
3819: --
3820: --ICM
3821: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_prev_oiplip_elig_check.elig_per_id;
3822: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_prev_oiplip_elig_check.elig_per_opt_id;
3883: --
3884: else --a
3885: --
3886: if g_debug then
3887: hr_utility.set_location(' Chk Prev Oipl ben_determine_eligibility2.check_prev_elig ', 10);
3888: end if;
3889: --
3890: -- Check for a plan in program or a plip
3891: --
3894: or p_plip_id is not null)
3895: then
3896: --
3897: if g_debug then
3898: hr_utility.set_location(' before pilpep ',111);
3899: end if;
3900: ben_pep_cache.get_pilpep_dets
3901: (p_person_id => p_person_id
3902: ,p_business_group_id => p_business_group_id
3915: l_per_in_ler_id := l_pep_row.per_in_ler_id;
3916: l_object_version_number := l_pep_row.object_version_number;
3917: --
3918: if g_debug then
3919: hr_utility.set_location('elig per id'||l_elig_per_id,11);
3920: hr_utility.set_location('per in ler id'||l_per_in_ler_id,11);
3921: hr_utility.set_location('prtn start date'||l_prev_prtn_strt_dt,12);
3922: hr_utility.set_location(' effective date '|| l_effective_dt,111);
3923: end if;
3916: l_object_version_number := l_pep_row.object_version_number;
3917: --
3918: if g_debug then
3919: hr_utility.set_location('elig per id'||l_elig_per_id,11);
3920: hr_utility.set_location('per in ler id'||l_per_in_ler_id,11);
3921: hr_utility.set_location('prtn start date'||l_prev_prtn_strt_dt,12);
3922: hr_utility.set_location(' effective date '|| l_effective_dt,111);
3923: end if;
3924: if l_pep_row.elig_per_id is null then
3917: --
3918: if g_debug then
3919: hr_utility.set_location('elig per id'||l_elig_per_id,11);
3920: hr_utility.set_location('per in ler id'||l_per_in_ler_id,11);
3921: hr_utility.set_location('prtn start date'||l_prev_prtn_strt_dt,12);
3922: hr_utility.set_location(' effective date '|| l_effective_dt,111);
3923: end if;
3924: if l_pep_row.elig_per_id is null then
3925: --
3918: if g_debug then
3919: hr_utility.set_location('elig per id'||l_elig_per_id,11);
3920: hr_utility.set_location('per in ler id'||l_per_in_ler_id,11);
3921: hr_utility.set_location('prtn start date'||l_prev_prtn_strt_dt,12);
3922: hr_utility.set_location(' effective date '|| l_effective_dt,111);
3923: end if;
3924: if l_pep_row.elig_per_id is null then
3925: --
3926: l_prev_eligibility := false;
3935: --
3936: else
3937: --
3938: if g_debug then
3939: hr_utility.set_location('l effective date'|| l_effective_dt,11);
3940: hr_utility.set_location('lf evt ocrd date'|| p_lf_evt_ocrd_dt,11);
3941: end if;
3942: --
3943: ben_determine_eligibility4.prev_elig_check
3936: else
3937: --
3938: if g_debug then
3939: hr_utility.set_location('l effective date'|| l_effective_dt,11);
3940: hr_utility.set_location('lf evt ocrd date'|| p_lf_evt_ocrd_dt,11);
3941: end if;
3942: --
3943: ben_determine_eligibility4.prev_elig_check
3944: (p_person_id => p_person_id
3963: -- l_p_object_version_number := l_object_version_number;
3964: end if;
3965: --
3966: if g_debug then
3967: hr_utility.set_location('object version number'||l_object_version_number,11);
3968: hr_utility.set_location('Dn fetch c_prvelgchk ben_determine_eligibility2.check_prev_elig', 10);
3969: end if;
3970: --
3971: l_prev_per_in_ler_id := l_per_in_ler_id;
3964: end if;
3965: --
3966: if g_debug then
3967: hr_utility.set_location('object version number'||l_object_version_number,11);
3968: hr_utility.set_location('Dn fetch c_prvelgchk ben_determine_eligibility2.check_prev_elig', 10);
3969: end if;
3970: --
3971: l_prev_per_in_ler_id := l_per_in_ler_id;
3972: --
3974: l_per_in_ler_id:=l_new_per_in_ler_id;
3975: end if;
3976: --
3977: if g_debug then
3978: hr_utility.set_location('before prev notfound check ben_determine_eligibility2.check_prev_elig', 10);
3979: end if;
3980: --
3981: if p_pgm_id is not null then
3982: --
4007: --
4008: --No record exists. Person not previously elig or inelig.
4009: --
4010: if g_debug then
4011: hr_utility.set_location('prev elig notfound ben_determine_eligibility2.check_prev_elig', 10);
4012: end if;
4013:
4014: if p_elig_flag then
4015: --
4013:
4014: if p_elig_flag then
4015: --
4016: if g_debug then
4017: hr_utility.set_location('elig is true ben_determine_eligibility2.check_prev_elig', 10);
4018: end if;
4019: l_first_elig := true;
4020: hr_utility.set_location ('first elig',121);
4021: l_start_or_end := 'S';
4016: if g_debug then
4017: hr_utility.set_location('elig is true ben_determine_eligibility2.check_prev_elig', 10);
4018: end if;
4019: l_first_elig := true;
4020: hr_utility.set_location ('first elig',121);
4021: l_start_or_end := 'S';
4022: fnd_message.set_name ('BEN','BEN_91385_FIRST_ELIG');
4023: benutils.write(p_text => fnd_message.get);
4024: --
4023: benutils.write(p_text => fnd_message.get);
4024: --
4025: else
4026: --
4027: hr_utility.set_location('elig is false ben_determine_eligibility2.check_prev_elig', 10);
4028: fnd_message.set_name ('BEN','BEN_92533_FIRST_INELIG2');
4029: benutils.write(p_text => fnd_message.get);
4030: --
4031: -- only continue with program and call of api if we want to track
4033: --
4034: if p_pgm_id is not null then
4035: --
4036: l_trk_inelig_per_flag := l_pgm_rec.trk_inelig_per_flag;
4037: hr_utility.set_location('Dn p_pgm_id NN ben_determine_eligibility2.check_prev_elig', 10);
4038: --
4039: elsif p_pl_id is not null then
4040: --
4041: l_trk_inelig_per_flag := l_pl_rec.trk_inelig_per_flag;
4038: --
4039: elsif p_pl_id is not null then
4040: --
4041: l_trk_inelig_per_flag := l_pl_rec.trk_inelig_per_flag;
4042: hr_utility.set_location('Dn p_pl_id NN ben_determine_eligibility2.check_prev_elig', 10);
4043: --
4044: elsif p_plip_id is not null then
4045: --
4046: l_trk_inelig_per_flag := l_plip_rec.trk_inelig_per_flag;
4044: elsif p_plip_id is not null then
4045: --
4046: l_trk_inelig_per_flag := l_plip_rec.trk_inelig_per_flag;
4047: --
4048: hr_utility.set_location('Dn p_plip_id NN ben_determine_eligibility2.check_prev_elig', 10);
4049: elsif p_ptip_id is not null then
4050: --
4051: l_trk_inelig_per_flag := l_ptip_rec.trk_inelig_per_flag;
4052: --
4049: elsif p_ptip_id is not null then
4050: --
4051: l_trk_inelig_per_flag := l_ptip_rec.trk_inelig_per_flag;
4052: --
4053: hr_utility.set_location('Dn p_ptip_id NN ben_determine_eligibility2.check_prev_elig', 10);
4054: end if;
4055: --
4056: if l_trk_inelig_per_flag = 'Y' then
4057: --
4054: end if;
4055: --
4056: if l_trk_inelig_per_flag = 'Y' then
4057: --
4058: hr_utility.set_location ('first inelig',121);
4059: l_first_inelig := true;
4060: l_start_or_end := 'E';
4061: --
4062: else
4073: --
4074: -- Set transition state for processing only. Elig
4075: -- per is not written
4076: --
4077: hr_utility.set_location('NT Fir InEl TRUE ben_determine_eligibility2.check_prev_elig', 10);
4078: p_first_inelig := true;
4079: --
4080: -- bug#5404392 - previous FONM event creates the elig per row in future
4081: -- the subsequent finds first ineligible
4104: --
4105: elsif l_prev_eligibility
4106: then
4107: --
4108: hr_utility.set_location('Prev eligibility true ',100);
4109: hr_utility.set_location( 'l_elig_per_elig_flag'||l_elig_per_elig_flag,123);
4110: if l_elig_per_elig_flag = 'Y' and p_elig_flag then --d
4111: --
4112: hr_utility.set_location ('still elig',121);
4105: elsif l_prev_eligibility
4106: then
4107: --
4108: hr_utility.set_location('Prev eligibility true ',100);
4109: hr_utility.set_location( 'l_elig_per_elig_flag'||l_elig_per_elig_flag,123);
4110: if l_elig_per_elig_flag = 'Y' and p_elig_flag then --d
4111: --
4112: hr_utility.set_location ('still elig',121);
4113: -- Person still eligible, do nothing.
4108: hr_utility.set_location('Prev eligibility true ',100);
4109: hr_utility.set_location( 'l_elig_per_elig_flag'||l_elig_per_elig_flag,123);
4110: if l_elig_per_elig_flag = 'Y' and p_elig_flag then --d
4111: --
4112: hr_utility.set_location ('still elig',121);
4113: -- Person still eligible, do nothing.
4114: --
4115: fnd_message.set_name ('BEN','BEN_91345_ELIG_PREV_ELIG');
4116: benutils.write(p_text => fnd_message.get);
4120: --return;
4121: --
4122: elsif l_elig_per_elig_flag = 'Y' and p_elig_flag = false then --d
4123: -- person is newly inelig
4124: hr_utility.set_location ('newly inelig',121);
4125: l_newly_inelig := true;
4126: l_start_or_end := 'E';
4127: fnd_message.set_name('BEN','BEN_91347_NOT_ELIG_PREV_ELIG');
4128: benutils.write(p_text => fnd_message.get);
4158: end if;
4159: end if;
4160:
4161: if g_debug then
4162: hr_utility.set_location ('New update for elig per'||l_elig_per_id,101);
4163: hr_utility.set_location ('Update mode'||l_datetrack_mode,102);
4164: end if;
4165: --
4166: if l_trk_inelig_per_flag = 'Y' then
4159: end if;
4160:
4161: if g_debug then
4162: hr_utility.set_location ('New update for elig per'||l_elig_per_id,101);
4163: hr_utility.set_location ('Update mode'||l_datetrack_mode,102);
4164: end if;
4165: --
4166: if l_trk_inelig_per_flag = 'Y' then
4167: if l_envpgm_id is not null
4186: -- same as start date, then update should be done in correction mode. In that case, the old
4187: -- record should be inserted in the backup table
4188:
4189: if g_debug then
4190: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 889);
4191: hr_utility.set_location('l_elig_per_id '||l_elig_per_id, 889);
4192: hr_utility.set_location('l_object_version_number '||l_object_version_number, 889);
4193: hr_utility.set_location('l_effective_dt '||l_effective_dt, 889);
4194: end if;
4187: -- record should be inserted in the backup table
4188:
4189: if g_debug then
4190: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 889);
4191: hr_utility.set_location('l_elig_per_id '||l_elig_per_id, 889);
4192: hr_utility.set_location('l_object_version_number '||l_object_version_number, 889);
4193: hr_utility.set_location('l_effective_dt '||l_effective_dt, 889);
4194: end if;
4195:
4188:
4189: if g_debug then
4190: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 889);
4191: hr_utility.set_location('l_elig_per_id '||l_elig_per_id, 889);
4192: hr_utility.set_location('l_object_version_number '||l_object_version_number, 889);
4193: hr_utility.set_location('l_effective_dt '||l_effective_dt, 889);
4194: end if;
4195:
4196: dt_api.find_dt_upd_modes
4189: if g_debug then
4190: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 889);
4191: hr_utility.set_location('l_elig_per_id '||l_elig_per_id, 889);
4192: hr_utility.set_location('l_object_version_number '||l_object_version_number, 889);
4193: hr_utility.set_location('l_effective_dt '||l_effective_dt, 889);
4194: end if;
4195:
4196: dt_api.find_dt_upd_modes
4197: (p_effective_date => l_effective_dt,
4203: p_update_override => l_update_override,
4204: p_update_change_insert => l_update_change_insert);
4205:
4206: if g_debug then
4207: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn DTAPI_FDUM ', 10);
4208: end if;
4209:
4210: if l_update_override then
4211: l_datetrack_mode := hr_api.g_update_override;
4210: if l_update_override then
4211: l_datetrack_mode := hr_api.g_update_override;
4212:
4213: if g_debug then
4214: hr_utility.set_location('ben_elig_per_f l_datetrack_mode '|| l_datetrack_mode, 777);
4215: end if;
4216:
4217: elsif l_update then
4218: l_datetrack_mode := hr_api.g_update;
4217: elsif l_update then
4218: l_datetrack_mode := hr_api.g_update;
4219:
4220: if g_debug then
4221: hr_utility.set_location('ben_elig_per_f l_datetrack_mode '|| l_datetrack_mode, 777);
4222: end if;
4223:
4224: else
4225: l_datetrack_mode := hr_api.g_correction;
4224: else
4225: l_datetrack_mode := hr_api.g_correction;
4226:
4227: if g_debug then
4228: hr_utility.set_location('ben_elig_per_f l_datetrack_mode '|| l_datetrack_mode, 777);
4229: end if;
4230:
4231: end if;
4232:
4230:
4231: end if;
4232:
4233:
4234: hr_utility.set_location('l_per_in_ler_id'||l_per_in_ler_id,112);
4235: hr_utility.set_location('l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
4236: hr_utility.set_location('p_ler_id '|| p_ler_id,112);
4237:
4238: IF l_datetrack_mode = hr_api.g_correction AND
4231: end if;
4232:
4233:
4234: hr_utility.set_location('l_per_in_ler_id'||l_per_in_ler_id,112);
4235: hr_utility.set_location('l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
4236: hr_utility.set_location('p_ler_id '|| p_ler_id,112);
4237:
4238: IF l_datetrack_mode = hr_api.g_correction AND
4239: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
4232:
4233:
4234: hr_utility.set_location('l_per_in_ler_id'||l_per_in_ler_id,112);
4235: hr_utility.set_location('l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
4236: hr_utility.set_location('p_ler_id '|| p_ler_id,112);
4237:
4238: IF l_datetrack_mode = hr_api.g_correction AND
4239: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
4240:
4247: );
4248:
4249: END IF;
4250:
4251: hr_utility.set_location('Updating pep with l_per_in_ler_id'||l_per_in_ler_id,112);
4252:
4253: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
4254: (p_validate => FALSE,
4255: p_elig_per_id => l_elig_per_id,
4304: p_program_update_date => sysdate);
4305: --
4306:
4307: if g_debug then
4308: hr_utility.set_location('Dn Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
4309: end if;
4310:
4311: if p_score_tab.count > 0 then
4312: hr_utility.set_location('writing score records ',5.5);
4308: hr_utility.set_location('Dn Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
4309: end if;
4310:
4311: if p_score_tab.count > 0 then
4312: hr_utility.set_location('writing score records ',5.5);
4313: ben_elig_scre_wtg_api.load_score_weight
4314: (p_validate => false
4315: ,p_score_tab => p_score_tab
4316: ,p_per_in_ler_id => l_per_in_ler_id
4322:
4323: end if;
4324: --ICM
4325: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
4326: hr_utility.set_location('Building PEP1',214);
4327: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
4328: --
4329: l_count_icm := 1;
4330: --
4408: END IF;
4409: --ICM
4410: end if;
4411:
4412: hr_utility.set_location('still eligibility true ',100);
4413: --bug#4960082
4414:
4415: if p_plip_id is not null then
4416: open c_get_pl_id(nvl(l_fonm_cvg_strt_dt,p_effective_date));
4461: return;
4462: --
4463: elsif l_elig_per_elig_flag = 'N' and p_elig_flag then --d
4464: -- person is newly elig
4465: hr_utility.set_location('new elig',23);
4466: l_newly_elig := true;
4467: l_start_or_end := 'S';
4468: fnd_message.set_name('BEN','BEN_91346_ELIG_PREV_NOT_ELIG');
4469: benutils.write(p_text => fnd_message.get);
4477: --
4478: end if; --a2
4479: --
4480: if g_debug then
4481: hr_utility.set_location('Call GSED 2 ben_determine_eligibility2.check_prev_elig', 10);
4482: end if;
4483: --
4484: get_start_end_dates
4485: (p_comp_obj_tree_row => p_comp_obj_tree_row
4501: ,p_prtn_eff_end_dt => l_prtn_eff_end_dt
4502: );
4503: --
4504: if g_debug then
4505: hr_utility.set_location('Done GSED 2 ben_determine_eligibility2.check_prev_elig', 10);
4506: --
4507: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
4508: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
4509: end if;
4503: --
4504: if g_debug then
4505: hr_utility.set_location('Done GSED 2 ben_determine_eligibility2.check_prev_elig', 10);
4506: --
4507: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
4508: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
4509: end if;
4510: --
4511: -- compute end date plus one.
4504: if g_debug then
4505: hr_utility.set_location('Done GSED 2 ben_determine_eligibility2.check_prev_elig', 10);
4506: --
4507: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
4508: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
4509: end if;
4510: --
4511: -- compute end date plus one.
4512: --
4521: end if;
4522: --
4523: if l_first_elig then --c
4524: --
4525: hr_utility.set_location ('first elig',121);
4526: if instr(ben_manage_life_events.g_output_string,
4527: 'Elg:') = 0 then
4528: --
4529: ben_manage_life_events.g_output_string :=
4563: greatest(nvl(l_prtn_st_dt_aftr_wtg,hr_api.g_sot),l_prtn_eff_strt_dt);
4564: --
4565: end if;
4566: --
4567: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
4568: l_prtn_eff_strt_dt, 10);
4569: --
4570: if (p_pgm_id is not null or l_envpgm_id is not null) and
4571: p_pl_id is not null then
4583: --
4584: end if;
4585: --
4586: if g_debug then
4587: hr_utility.set_location('l_prtn_eff_strt_dt -> '||l_prtn_eff_strt_dt, 123);
4588: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Fir El Cre PEP ', 10);
4589: end if;
4590: --
4591: l_elig_flag := 'Y';
4584: end if;
4585: --
4586: if g_debug then
4587: hr_utility.set_location('l_prtn_eff_strt_dt -> '||l_prtn_eff_strt_dt, 123);
4588: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Fir El Cre PEP ', 10);
4589: end if;
4590: --
4591: l_elig_flag := 'Y';
4592: l_prtn_strt_dt := l_prtn_eff_strt_dt;
4668: ,p_override_validation => TRUE);
4669: --
4670: --ICM
4671: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
4672: hr_utility.set_location('Building PEP2',214);
4673: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
4674: --
4675: l_count_icm := 1;
4676: --
4754: --
4755: END IF;
4756: --ICM
4757: if g_debug then
4758: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn Cre PEP Fir El ', 10);
4759: end if;
4760: --
4761: if p_score_tab.count > 0 then
4762: hr_utility.set_location('writing score records ',5.5);
4758: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn Cre PEP Fir El ', 10);
4759: end if;
4760: --
4761: if p_score_tab.count > 0 then
4762: hr_utility.set_location('writing score records ',5.5);
4763: ben_elig_scre_wtg_api.load_score_weight
4764: (p_validate => false
4765: ,p_score_tab => p_score_tab
4766: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
4768: ,p_elig_per_id => l_elig_per_id);
4769: end if;
4770: elsif l_still_elig then --c
4771: --
4772: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig l_still_elig ', 10);
4773: if instr(ben_manage_life_events.g_output_string,
4774: 'Elg:') = 0 then
4775: --
4776: ben_manage_life_events.g_output_string :=
4783: -- if the previous row's start date is greater than or equal the computed
4784: -- start date, then they never really became ineligible. Go find
4785: -- another start elig date to use.
4786: --
4787: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 10);
4788: dt_api.find_dt_upd_modes
4789: (-- p_effective_date => p_effective_date,
4790: --
4791: -- Bugs : 1412882, part of bug 1412951
4798: p_correction => l_correction,
4799: p_update => l_update,
4800: p_update_override => l_update_override,
4801: p_update_change_insert => l_update_change_insert);
4802: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn DTAPI_FDUM ', 10);
4803: --
4804: if l_update_override then
4805: --
4806: l_datetrack_mode := hr_api.g_update_override;
4821: if l_wait_perd_cmpltn_dt is not null then
4822: --
4823: -- Apply the participation start date code to the l_wait_perd_cmpltn_dt
4824: --
4825: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig GET_PSDAWTG ', 10);
4826: l_prtn_st_dt_aftr_wtg :=
4827: ben_determine_eligibility3.get_prtn_st_dt_aftr_wtg
4828: (p_person_id => p_person_id,
4829: p_effective_date => p_effective_date,
4837: p_oipl_id => p_oipl_id,
4838: p_plip_id => p_plip_id,
4839: p_ptip_id => p_ptip_id,
4840: p_opt_id => l_oipl_rec.opt_id);
4841: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig GET_PSDAWTG ', 10);
4842: --
4843: -- Use the later of the l_after_wtg_prtn_dt and l_prtn_eff_strt_dt
4844: -- for the participation start date.
4845: --
4847: ,l_prtn_eff_strt_dt);
4848: --
4849: end if;
4850: --
4851: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
4852: l_prtn_eff_strt_dt, 10);
4853: --
4854: hr_utility.set_location('Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
4855: hr_utility.set_location('elig per id'||l_elig_per_id,111);
4850: --
4851: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
4852: l_prtn_eff_strt_dt, 10);
4853: --
4854: hr_utility.set_location('Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
4855: hr_utility.set_location('elig per id'||l_elig_per_id,111);
4856: hr_utility.set_location('object version number'||l_object_version_number,112);
4857: --
4858: l_elig_flag := 'Y';
4851: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
4852: l_prtn_eff_strt_dt, 10);
4853: --
4854: hr_utility.set_location('Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
4855: hr_utility.set_location('elig per id'||l_elig_per_id,111);
4856: hr_utility.set_location('object version number'||l_object_version_number,112);
4857: --
4858: l_elig_flag := 'Y';
4859: l_prtn_strt_dt := l_prtn_eff_strt_dt;
4852: l_prtn_eff_strt_dt, 10);
4853: --
4854: hr_utility.set_location('Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
4855: hr_utility.set_location('elig per id'||l_elig_per_id,111);
4856: hr_utility.set_location('object version number'||l_object_version_number,112);
4857: --
4858: l_elig_flag := 'Y';
4859: l_prtn_strt_dt := l_prtn_eff_strt_dt;
4860: --
4858: l_elig_flag := 'Y';
4859: l_prtn_strt_dt := l_prtn_eff_strt_dt;
4860: --
4861: --
4862: hr_utility.set_location('SARKAR l_per_in_ler_id'||l_per_in_ler_id,112);
4863: hr_utility.set_location('SARKAR l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
4864: hr_utility.set_location('SARKAR p_ler_id '|| p_ler_id,112);
4865: IF l_datetrack_mode = hr_api.g_correction AND
4866: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
4859: l_prtn_strt_dt := l_prtn_eff_strt_dt;
4860: --
4861: --
4862: hr_utility.set_location('SARKAR l_per_in_ler_id'||l_per_in_ler_id,112);
4863: hr_utility.set_location('SARKAR l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
4864: hr_utility.set_location('SARKAR p_ler_id '|| p_ler_id,112);
4865: IF l_datetrack_mode = hr_api.g_correction AND
4866: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
4867: --
4860: --
4861: --
4862: hr_utility.set_location('SARKAR l_per_in_ler_id'||l_per_in_ler_id,112);
4863: hr_utility.set_location('SARKAR l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
4864: hr_utility.set_location('SARKAR p_ler_id '|| p_ler_id,112);
4865: IF l_datetrack_mode = hr_api.g_correction AND
4866: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
4867: --
4868: ben_determine_eligibility3.save_to_restore
4874: );
4875: --
4876: END IF;
4877: --
4878: hr_utility.set_location('SARKAR updating pep with l_per_in_ler_id'||l_per_in_ler_id,112);
4879: --
4880: l_p_object_version_number := l_object_version_number;
4881: --
4882: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
4937: p_program_update_date => sysdate);
4938: --ICM
4939: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
4940: --
4941: hr_utility.set_location('Building PEP3',214);
4942: --
4943: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
4944: --
4945: l_count_icm := 1;
5017: ben_icm_life_events.g_cache_pep_object(l_count_icm).pl_wvd_flag :='N';
5018: ben_icm_life_events.g_cache_pep_object(l_count_icm).person_id := p_person_id;
5019: --
5020: END IF;
5021: hr_utility.set_location('Dn Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5022: --
5023: if p_score_tab.count > 0 then
5024: hr_utility.set_location('writing score records ',5.5);
5025: ben_elig_scre_wtg_api.load_score_weight
5020: END IF;
5021: hr_utility.set_location('Dn Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5022: --
5023: if p_score_tab.count > 0 then
5024: hr_utility.set_location('writing score records ',5.5);
5025: ben_elig_scre_wtg_api.load_score_weight
5026: (p_validate => false
5027: ,p_score_tab => p_score_tab
5028: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
5030: ,p_elig_per_id => l_elig_per_id);
5031: end if;
5032: elsif l_newly_elig then --c
5033: --
5034: hr_utility.set_location('newly eligible',23);
5035: --
5036: l_p_object_version_number := l_object_version_number;
5037: --
5038: if instr(ben_manage_life_events.g_output_string,
5079: -- Call API to Update old inelig record with end date of computed
5080: -- start date - 1 (correction) unless the old inelig record has a
5081: -- start date greater than our computed start date.
5082: --
5083: hr_utility.set_location('elig per id'||l_elig_per_id,211);
5084: hr_utility.set_location('object version number'||l_object_version_number,212);
5085: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5086: (p_validate => FALSE,
5087: p_elig_per_id => l_elig_per_id,
5080: -- start date - 1 (correction) unless the old inelig record has a
5081: -- start date greater than our computed start date.
5082: --
5083: hr_utility.set_location('elig per id'||l_elig_per_id,211);
5084: hr_utility.set_location('object version number'||l_object_version_number,212);
5085: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5086: (p_validate => FALSE,
5087: p_elig_per_id => l_elig_per_id,
5088: p_effective_start_date => l_effective_start_date,
5160: ,l_prtn_eff_strt_dt);
5161: --
5162: end if;
5163: --
5164: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
5165: l_prtn_eff_strt_dt, 10);
5166: --
5167: hr_utility.set_location('New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5168: hr_utility.set_location('elig per id'||l_elig_per_id,311);
5163: --
5164: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
5165: l_prtn_eff_strt_dt, 10);
5166: --
5167: hr_utility.set_location('New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5168: hr_utility.set_location('elig per id'||l_elig_per_id,311);
5169: hr_utility.set_location('object version number'||l_object_version_number,312);
5170: --
5171: l_elig_flag := 'Y';
5164: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
5165: l_prtn_eff_strt_dt, 10);
5166: --
5167: hr_utility.set_location('New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5168: hr_utility.set_location('elig per id'||l_elig_per_id,311);
5169: hr_utility.set_location('object version number'||l_object_version_number,312);
5170: --
5171: l_elig_flag := 'Y';
5172: l_prtn_strt_dt := l_prtn_eff_strt_dt;
5165: l_prtn_eff_strt_dt, 10);
5166: --
5167: hr_utility.set_location('New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5168: hr_utility.set_location('elig per id'||l_elig_per_id,311);
5169: hr_utility.set_location('object version number'||l_object_version_number,312);
5170: --
5171: l_elig_flag := 'Y';
5172: l_prtn_strt_dt := l_prtn_eff_strt_dt;
5173: --
5242: p_request_id => fnd_global.conc_request_id,
5243: p_program_update_date => sysdate);
5244: --ICM
5245: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
5246: hr_utility.set_location('Building PEP5',214);
5247: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
5248: --
5249: l_count_icm := 1;
5250: --
5327: ben_icm_life_events.g_cache_pep_object(l_count_icm).person_id := p_person_id;
5328: --
5329: END IF;
5330: --ICM
5331: hr_utility.set_location('Dn New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5332: --
5333: if p_score_tab.count > 0 then
5334: hr_utility.set_location('writing score records ',5.5);
5335: ben_elig_scre_wtg_api.load_score_weight
5330: --ICM
5331: hr_utility.set_location('Dn New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5332: --
5333: if p_score_tab.count > 0 then
5334: hr_utility.set_location('writing score records ',5.5);
5335: ben_elig_scre_wtg_api.load_score_weight
5336: (p_validate => false
5337: ,p_score_tab => p_score_tab
5338: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
5340: ,p_elig_per_id => l_elig_per_id);
5341: end if;
5342: elsif l_newly_inelig then --c
5343: --
5344: hr_utility.set_location ('newly inelig',121);
5345: --
5346: l_p_object_version_number := l_object_version_number;
5347: --
5348: if instr(ben_manage_life_events.g_output_string,
5382: -- If the previous row's start date is less than or equal the commputed
5383: -- they were eligible for at least a day. Update the old record with
5384: -- an end date in correction mode, then update (to create a new inelig
5385: -- record.
5386: hr_utility.set_location('elig per id'||l_elig_per_id,411);
5387: hr_utility.set_location('object version number'||l_object_version_number,412);
5388: hr_utility.set_location('l_elig_flag'|| l_elig_flag,412);
5389: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5390: (p_validate => FALSE,
5383: -- they were eligible for at least a day. Update the old record with
5384: -- an end date in correction mode, then update (to create a new inelig
5385: -- record.
5386: hr_utility.set_location('elig per id'||l_elig_per_id,411);
5387: hr_utility.set_location('object version number'||l_object_version_number,412);
5388: hr_utility.set_location('l_elig_flag'|| l_elig_flag,412);
5389: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5390: (p_validate => FALSE,
5391: p_elig_per_id => l_elig_per_id,
5384: -- an end date in correction mode, then update (to create a new inelig
5385: -- record.
5386: hr_utility.set_location('elig per id'||l_elig_per_id,411);
5387: hr_utility.set_location('object version number'||l_object_version_number,412);
5388: hr_utility.set_location('l_elig_flag'|| l_elig_flag,412);
5389: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5390: (p_validate => FALSE,
5391: p_elig_per_id => l_elig_per_id,
5392: p_effective_start_date => l_effective_start_date,
5400: p_program_id => fnd_global.conc_program_id,
5401: p_request_id => fnd_global.conc_request_id,
5402: p_program_update_date => sysdate);
5403: --
5404: hr_utility.set_location('Building epo cache1 10 : count ' || l_count_icm1,123);
5405: hr_utility.set_location('Building epo cache1 1'|| l_count_icm1,123);
5406: end if; --p
5407: --
5408: dt_api.find_dt_upd_modes
5401: p_request_id => fnd_global.conc_request_id,
5402: p_program_update_date => sysdate);
5403: --
5404: hr_utility.set_location('Building epo cache1 10 : count ' || l_count_icm1,123);
5405: hr_utility.set_location('Building epo cache1 1'|| l_count_icm1,123);
5406: end if; --p
5407: --
5408: dt_api.find_dt_upd_modes
5409: (-- p_effective_date => p_effective_date,
5435: end if;
5436: --
5437: -- Update pil_id also since new row added due to current pil
5438: --
5439: hr_utility.set_location('New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5440: hr_utility.set_location('elig per id'||l_elig_per_id,511);
5441: hr_utility.set_location('object version number'||l_object_version_number,512);
5442: --
5443: l_elig_flag := 'N';
5436: --
5437: -- Update pil_id also since new row added due to current pil
5438: --
5439: hr_utility.set_location('New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5440: hr_utility.set_location('elig per id'||l_elig_per_id,511);
5441: hr_utility.set_location('object version number'||l_object_version_number,512);
5442: --
5443: l_elig_flag := 'N';
5444: l_prtn_strt_dt := l_end_dt_plus_one;
5437: -- Update pil_id also since new row added due to current pil
5438: --
5439: hr_utility.set_location('New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5440: hr_utility.set_location('elig per id'||l_elig_per_id,511);
5441: hr_utility.set_location('object version number'||l_object_version_number,512);
5442: --
5443: l_elig_flag := 'N';
5444: l_prtn_strt_dt := l_end_dt_plus_one;
5445: --
5513: p_program_update_date => sysdate,
5514: p_inelg_rsn_cd => p_inelg_rsn_cd);
5515: --ICM
5516: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
5517: hr_utility.set_location('Building PEP7',214);
5518: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
5519: --
5520: l_count_icm := 1;
5521: --
5597: ben_icm_life_events.g_cache_pep_object(l_count_icm).person_id := p_person_id;
5598: END IF;
5599: --
5600: --ICM
5601: hr_utility.set_location('Dn New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5602: if p_score_tab.count > 0 then
5603: hr_utility.set_location('writing score records ',5.5);
5604: ben_elig_scre_wtg_api.load_score_weight
5605: (p_validate => false
5599: --
5600: --ICM
5601: hr_utility.set_location('Dn New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5602: if p_score_tab.count > 0 then
5603: hr_utility.set_location('writing score records ',5.5);
5604: ben_elig_scre_wtg_api.load_score_weight
5605: (p_validate => false
5606: ,p_score_tab => p_score_tab
5607: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
5659: --
5660: end if;
5661: elsif l_first_inelig then --c
5662: --
5663: hr_utility.set_location ('first inelig',121);
5664: if instr(ben_manage_life_events.g_output_string,
5665: 'Elg:') = 0 then
5666: --
5667: ben_manage_life_events.g_output_string :=
5677: close c_plip_ordr;
5678: elsif p_pgm_id is null and l_envpgm_id is null and p_pl_id is not null then
5679: l_plan_ordr_num := l_pl_rec.ordr_num;
5680: end if;
5681: hr_utility.set_location('Fir InEl Cre PEP ben_determine_eligibility2.check_prev_elig', 10);
5682: hr_utility.set_location('l_prtn_eff_strt_dt -> '||l_prtn_eff_strt_dt, 123);
5683: --
5684: l_elig_flag := 'N';
5685: l_prtn_strt_dt := l_end_dt_plus_one;
5678: elsif p_pgm_id is null and l_envpgm_id is null and p_pl_id is not null then
5679: l_plan_ordr_num := l_pl_rec.ordr_num;
5680: end if;
5681: hr_utility.set_location('Fir InEl Cre PEP ben_determine_eligibility2.check_prev_elig', 10);
5682: hr_utility.set_location('l_prtn_eff_strt_dt -> '||l_prtn_eff_strt_dt, 123);
5683: --
5684: l_elig_flag := 'N';
5685: l_prtn_strt_dt := l_end_dt_plus_one;
5686: --
5760: ,p_override_validation => TRUE
5761: );
5762: --ICM
5763: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
5764: hr_utility.set_location('Building PEP8',214);
5765: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
5766: --
5767: l_count_icm := 1;
5768: --
5845: ben_icm_life_events.g_cache_pep_object(l_count_icm).pl_hghly_compd_flag:= 'N';
5846: --
5847: END IF;
5848: --ICM
5849: hr_utility.set_location('Dn Fir InEl Cre PEP ben_determine_eligibility2.check_prev_elig', 10);
5850: --
5851: if p_score_tab.count > 0 then
5852: hr_utility.set_location('writing score records ',5.5);
5853: ben_elig_scre_wtg_api.load_score_weight
5848: --ICM
5849: hr_utility.set_location('Dn Fir InEl Cre PEP ben_determine_eligibility2.check_prev_elig', 10);
5850: --
5851: if p_score_tab.count > 0 then
5852: hr_utility.set_location('writing score records ',5.5);
5853: ben_elig_scre_wtg_api.load_score_weight
5854: (p_validate => false
5855: ,p_score_tab => p_score_tab
5856: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
5861: --
5862: end if; --a if p_oipl_id is not null
5863: --
5864: if g_debug then
5865: hr_utility.set_location('Leaving : ben_determine_eligibility2.check_prev_elig', 10);
5866: end if;
5867: --
5868: -- Set eligbility transition states
5869: --