[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
451: --
452: l_temp_prtn_strt_dt date ;
453: --
454: begin
455: -- hr_utility.set_location('Entering ben_determine_eligibility2.get_start_end_dates',10);
456: --
457: -- Performance tuning commented out hr_utility statements
458: --
459: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
453: --
454: begin
455: -- hr_utility.set_location('Entering ben_determine_eligibility2.get_start_end_dates',10);
456: --
457: -- Performance tuning commented out hr_utility statements
458: --
459: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
460: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
461: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
455: -- hr_utility.set_location('Entering ben_determine_eligibility2.get_start_end_dates',10);
456: --
457: -- Performance tuning commented out hr_utility statements
458: --
459: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
460: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
461: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
462: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
463: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
456: --
457: -- Performance tuning commented out hr_utility statements
458: --
459: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
460: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
461: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
462: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
463: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
464: --
457: -- Performance tuning commented out hr_utility statements
458: --
459: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
460: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
461: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
462: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
463: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
464: --
465: if ben_manage_life_events.fonm = 'Y'
458: --
459: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
460: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
461: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
462: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
463: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
464: --
465: if ben_manage_life_events.fonm = 'Y'
466: and ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
459: -- hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,123);
460: -- hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,123);
461: -- hr_utility.set_location('p_plip_id -> ' ||p_plip_id,123);
462: -- hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,123);
463: -- hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,123);
464: --
465: if ben_manage_life_events.fonm = 'Y'
466: and ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
467: --
499: --
500: -- Read participation dates for the comp object from the cached environment.
501: --
502: if p_pgm_id is not null then
503: -- hr_utility.set_location('get pgm l_prtn_eff_strt_dt_cd',123);
504: --
505: -- Performance fix to reduce cache calls
506: --
507: l_elig_pgm_rec := ben_cobj_cache.g_pgmetpr_currow;
523: l_prtn_eff_strt_dt_rl := l_prtn_elig_pgm_rec.prtn_eff_strt_dt_rl;
524: l_prtn_eff_end_dt_rl := l_prtn_elig_pgm_rec.prtn_eff_end_dt_rl;
525: end if;
526:
527: -- hr_utility.set_location('Done NN PGM ben_determine_eligibility2.get_start_end_dates',10);
528: end if;
529: -- hr_utility.set_location('PTIP NN ben_determine_eligibility2.get_start_end_dates',10);
530: if p_ptip_id is not null then
531: --
525: end if;
526:
527: -- hr_utility.set_location('Done NN PGM ben_determine_eligibility2.get_start_end_dates',10);
528: end if;
529: -- hr_utility.set_location('PTIP NN ben_determine_eligibility2.get_start_end_dates',10);
530: if p_ptip_id is not null then
531: --
532: -- Performance fix to reduce cache calls
533: --
562: 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 );
563: 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);
564: 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 );
565: end if;
566: -- hr_utility.set_location('Done NN PTIP ben_determine_eligibility2.get_start_end_dates',10);
567:
568: end if;
569: -- hr_utility.set_location('PLIP NN ben_determine_eligibility2.get_start_end_dates',10);
570: if p_plip_id is not null then
565: end if;
566: -- hr_utility.set_location('Done NN PTIP ben_determine_eligibility2.get_start_end_dates',10);
567:
568: end if;
569: -- hr_utility.set_location('PLIP NN ben_determine_eligibility2.get_start_end_dates',10);
570: if p_plip_id is not null then
571: -- hr_utility.set_location('get plip l_prtn_eff_strt_dt_cd',123);
572: --
573: l_elig_plip_rec := ben_cobj_cache.g_plipetpr_currow;
567:
568: end if;
569: -- hr_utility.set_location('PLIP NN ben_determine_eligibility2.get_start_end_dates',10);
570: if p_plip_id is not null then
571: -- hr_utility.set_location('get plip l_prtn_eff_strt_dt_cd',123);
572: --
573: l_elig_plip_rec := ben_cobj_cache.g_plipetpr_currow;
574: l_prtn_eff_strt_dt_cd := l_elig_plip_rec.prtn_eff_strt_dt_cd;
575: l_prtn_eff_end_dt_cd := l_elig_plip_rec.prtn_eff_end_dt_cd;
606: 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 );
607: end if;
608: end if;
609:
610: -- hr_utility.set_location('Done NN PLIP ben_determine_eligibility2.get_start_end_dates',10);
611: end if;
612: -- hr_utility.set_location('PLN NN ben_determine_eligibility2.get_start_end_dates',10);
613: if p_pl_id is not null then
614:
608: end if;
609:
610: -- hr_utility.set_location('Done NN PLIP ben_determine_eligibility2.get_start_end_dates',10);
611: end if;
612: -- hr_utility.set_location('PLN NN ben_determine_eligibility2.get_start_end_dates',10);
613: if p_pl_id is not null then
614:
615: -- For plans in pgm, look at plip first.
616: if l_envplip_id is not null then
623: end if;
624:
625: -- if plip not found, or plan not in program, look at pl level
626: if l_prtn_eff_strt_dt_cd is null then
627: -- hr_utility.set_location('get pl l_prtn_eff_strt_dt_cd',123);
628: --
629: l_elig_pl_rec := ben_cobj_cache.g_pletpr_currow;
630: l_prtn_eff_strt_dt_cd := l_elig_pl_rec.prtn_eff_strt_dt_cd;
631: l_prtn_eff_end_dt_cd := l_elig_pl_rec.prtn_eff_end_dt_cd;
663: end if;
664:
665: end if;
666: end if;
667: -- hr_utility.set_location('Done NN PLN ben_determine_eligibility2.get_start_end_dates',10);
668: end if;
669: -- hr_utility.set_location('OIPL NN ben_determine_eligibility2.get_start_end_dates',10);
670: if p_oipl_id is not null then
671: -- hr_utility.set_location('getting oipl l_prtn_eff_strt_dt_cd',123);
665: end if;
666: end if;
667: -- hr_utility.set_location('Done NN PLN ben_determine_eligibility2.get_start_end_dates',10);
668: end if;
669: -- hr_utility.set_location('OIPL NN ben_determine_eligibility2.get_start_end_dates',10);
670: if p_oipl_id is not null then
671: -- hr_utility.set_location('getting oipl l_prtn_eff_strt_dt_cd',123);
672: l_elig_oipl_rec := ben_cobj_cache.g_oipletpr_currow;
673: l_prtn_eff_strt_dt_cd := l_elig_oipl_rec.prtn_eff_strt_dt_cd;
667: -- hr_utility.set_location('Done NN PLN ben_determine_eligibility2.get_start_end_dates',10);
668: end if;
669: -- hr_utility.set_location('OIPL NN ben_determine_eligibility2.get_start_end_dates',10);
670: if p_oipl_id is not null then
671: -- hr_utility.set_location('getting oipl l_prtn_eff_strt_dt_cd',123);
672: l_elig_oipl_rec := ben_cobj_cache.g_oipletpr_currow;
673: l_prtn_eff_strt_dt_cd := l_elig_oipl_rec.prtn_eff_strt_dt_cd;
674: l_prtn_eff_end_dt_cd := l_elig_oipl_rec.prtn_eff_end_dt_cd;
675: l_prtn_eff_strt_dt_rl := l_elig_oipl_rec.prtn_eff_strt_dt_rl;
723: 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 );
724: end if;
725: end if;
726: end if;
727: -- hr_utility.set_location('Done NN OIPL ben_determine_eligibility2.get_start_end_dates',10);
728: end if;
729: if l_prtn_eff_strt_dt_cd is null then
730: -- hr_utility.set_location('Null l_prtn_eff_strt_dt_cd, so assign aed',123);
731: l_prtn_eff_strt_dt_cd := 'AED'; -- as of event date
726: end if;
727: -- hr_utility.set_location('Done NN OIPL ben_determine_eligibility2.get_start_end_dates',10);
728: end if;
729: if l_prtn_eff_strt_dt_cd is null then
730: -- hr_utility.set_location('Null l_prtn_eff_strt_dt_cd, so assign aed',123);
731: l_prtn_eff_strt_dt_cd := 'AED'; -- as of event date
732: end if;
733:
734: if l_prtn_eff_end_dt_cd is null then
731: l_prtn_eff_strt_dt_cd := 'AED'; -- as of event date
732: end if;
733:
734: if l_prtn_eff_end_dt_cd is null then
735: -- hr_utility.set_location('null l_prtn_eff_end_dt_cd, so assign odbed',123);
736: -- Bug 2806554 - Changed to ODBED from AEOT
737: l_prtn_eff_end_dt_cd := 'ODBED'; -- one day before event date
738: end if;
739: --
741: --
742: p_prtn_eff_strt_dt_cd := l_prtn_eff_strt_dt_cd;
743: p_prtn_eff_strt_dt_rl := l_prtn_eff_strt_dt_rl;
744: --
745: -- hr_utility.set_location('p_start_or_end ben_determine_eligibility2.get_start_end_dates', 10);
746: if p_start_or_end = 'S' then
747: if l_prtn_eff_strt_dt_cd <> 'RL' then
748: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE S not RL ben_determine_eligibility2.get_start_end_dates', 10);
749: /* -- FONM START
744: --
745: -- hr_utility.set_location('p_start_or_end ben_determine_eligibility2.get_start_end_dates', 10);
746: if p_start_or_end = 'S' then
747: if l_prtn_eff_strt_dt_cd <> 'RL' then
748: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE S not RL ben_determine_eligibility2.get_start_end_dates', 10);
749: /* -- FONM START
750: if ben_manage_life_events.fonm = 'Y' and
751: ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
752: --
774: -- FONM START
775: -- end if;
776: -- FONM END
777: --
778: -- hr_utility.set_location('Done det date ben_determine_eligibility2.get_start_end_dates', 10);
779:
780: --
781: elsif l_prtn_eff_strt_dt_cd = 'RL' then
782: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE S RL ben_determine_eligibility2.get_start_end_dates', 10);
778: -- hr_utility.set_location('Done det date ben_determine_eligibility2.get_start_end_dates', 10);
779:
780: --
781: elsif l_prtn_eff_strt_dt_cd = 'RL' then
782: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE S RL ben_determine_eligibility2.get_start_end_dates', 10);
783: --
784: -- Get the date from calling a fast formula rule
785: --
786: --
860: end if;
861:
862: elsif p_start_or_end = 'E' then
863: --
864: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates p_start_or_end is E ' , 10);
865: -- FONM START
866: if ben_manage_life_events.fonm = 'Y' and
867: ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
868: --
869: p_prtn_eff_end_dt := ben_manage_life_events.g_fonm_cvg_strt_dt - 1 ;
870: --
871: --END FONM
872: elsif l_prtn_eff_end_dt_cd = 'A30DFPSD' then
873: hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E A30DFPSD ben_determine_eligibility2.get_start_end_dates', 10);
874: --
875: -- as of 30 days from prtn strt date
876: -- the start date used here in the case of an oipl is from the
877: -- elig_per_opt record, whereas for the pl or pgm the date is from
885: ,p_returned_date => p_prtn_eff_end_dt
886: );
887: --
888: elsif l_prtn_eff_end_dt_cd = 'A12MFPSD' then
889: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E A12MFPSD ben_determine_eligibility2.get_start_end_dates', 10);
890: --
891: -- as of 12 months from prtn strt date
892: -- the start date used here in the case of an oipl is from the
893: -- elig_per_opt record, whereas for the pl or pgm the date is from
901: ,p_returned_date => p_prtn_eff_end_dt
902: );
903: --
904: elsif l_prtn_eff_end_dt_cd = 'ALDCPP' then
905: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E ALDCPP ben_determine_eligibility2.get_start_end_dates', 10);
906: --
907: -- as of the last day of the pay period 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 = 'ALDCM' then
918: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E ALDCM ben_determine_eligibility2.get_start_end_dates', 10);
919: --
920: -- as of the last day of the month where date occurred
921: --
922: ben_determine_date.main
927: ,p_effective_date => p_effective_date
928: );
929: --
930: elsif l_prtn_eff_end_dt_cd = 'ALDCPPSY' then
931: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E ALDCPPSY ben_determine_eligibility2.get_start_end_dates', 10);
932: --
933: -- as of the last day of the pl semi-year where date occurred
934: --Bug 2551834 Added nvl cases to handle ptip/plip cases
935: ben_determine_date.main
943: ,p_effective_date => p_effective_date
944: );
945: --
946: elsif l_prtn_eff_end_dt_cd = 'ALDCPPY' then
947: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E ALDCPPY ben_determine_eligibility2.get_start_end_dates', 10);
948: --
949: -- as of the last day of the pl yr where date occurred
950: --Bug 2551834 Added nvl cases to handle ptip/plip cases
951: ben_determine_date.main
965: changed to eff_end_dt_cd.
966: */
967: elsif l_prtn_eff_end_dt_cd <> 'RL' then
968: --
969: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E <> RL ben_determine_eligibility2.get_start_end_dates', 10);
970: hr_utility.set_location(' SOE E <> RLBefore EEDT' || p_prtn_eff_end_dt,20);
971: --NOCOPY ISSUE
972: l_temp_prtn_strt_dt := p_prtn_eff_end_dt ;
973: --
966: */
967: elsif l_prtn_eff_end_dt_cd <> 'RL' then
968: --
969: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E <> RL ben_determine_eligibility2.get_start_end_dates', 10);
970: hr_utility.set_location(' SOE E <> RLBefore EEDT' || p_prtn_eff_end_dt,20);
971: --NOCOPY ISSUE
972: l_temp_prtn_strt_dt := p_prtn_eff_end_dt ;
973: --
974: ben_determine_date.main
985: ,p_effective_date => p_effective_date
986: ,p_returned_date => p_prtn_eff_end_dt
987: );
988: --
989: hr_utility.set_location(' SOE E <> RLAfter EEDT' || p_prtn_eff_end_dt,20);
990: --
991: elsif l_prtn_eff_end_dt_cd = 'RL' then
992: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E RL ben_determine_eligibility2.get_start_end_dates', 10);
993: --
988: --
989: hr_utility.set_location(' SOE E <> RLAfter EEDT' || p_prtn_eff_end_dt,20);
990: --
991: elsif l_prtn_eff_end_dt_cd = 'RL' then
992: -- hr_utility.set_location('ben_determine_eligibility2.get_start_end_dates SOE E RL ben_determine_eligibility2.get_start_end_dates', 10);
993: --
994: -- Get the date from calling a fast formula rule
995: --
996: -- Rule = Participation Eligibility End Date (-83)
1072: fnd_message.set_name('BEN','BEN_91393_STRT_END_ERROR');
1073: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
1074: raise ben_manage_life_events.g_record_error;
1075: end if;
1076: -- hr_utility.set_location('Leaving ben_determine_eligibility2.get_start_end_dates',10);
1077:
1078: end get_start_end_dates;
1079: --
1080:
1535:
1536: --
1537: begin
1538: --
1539: g_debug := hr_utility.debug_enabled;
1540: --
1541: if g_debug then
1542: --
1543: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1539: g_debug := hr_utility.debug_enabled;
1540: --
1541: if g_debug then
1542: --
1543: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1544: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1545: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1546: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1547: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1540: --
1541: if g_debug then
1542: --
1543: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1544: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1545: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1546: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1547: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1548: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1541: if g_debug then
1542: --
1543: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1544: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1545: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1546: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1547: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1548: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1549: --
1542: --
1543: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1544: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1545: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1546: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1547: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1548: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1549: --
1550: end if;
1543: hr_utility.set_location('Entering : ben_determine_eligibility2.check_prev_elig', 10);
1544: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1545: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1546: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1547: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1548: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1549: --
1550: end if;
1551: --
1544: hr_utility.set_location('p_pgm_id -> ' ||p_pgm_id ,223);
1545: hr_utility.set_location('p_ptip_id -> ' ||p_ptip_id,223);
1546: hr_utility.set_location('p_plip_id -> ' ||p_plip_id,223);
1547: hr_utility.set_location('p_pl_id -> ' ||p_pl_id ,223);
1548: hr_utility.set_location('p_oipl_id -> ' ||p_oipl_id,223);
1549: --
1550: end if;
1551: --
1552: -- iRec
1552: -- iRec
1553: ben_env_object.get(p_rec => l_env_rec);
1554: benutils.get_batch_parameters( p_benefit_action_id => l_env_rec.benefit_action_id
1555: ,p_rec => l_benmngle_parm_rec);
1556: hr_utility.set_location('l_benmngle_parm_rec.mode_cd'||l_benmngle_parm_rec.mode_cd,125);
1557: -- iRec
1558: if ben_manage_life_events.fonm = 'Y'
1559: and ben_manage_life_events.g_fonm_cvg_strt_dt is not null then
1560: --
1583: --
1584: if p_elig_flag = TRUE then
1585: --
1586: if g_debug then
1587: hr_utility.set_location('Wait period: ben_determine_eligibility2.check_prev_elig', 10);
1588: end if;
1589: --
1590: IF nvl(l_env_rec.mode_cd,'~') <> 'D' THEN
1591: --
1616: end if;
1617: /*End of Bug 10030441 */
1618: --
1619: if g_debug then
1620: hr_utility.set_location('Dn Wait period: ben_determine_eligibility2.check_prev_elig', 10);
1621: hr_utility.set_location('Wait period strt dt : ' || l_wait_perd_strt_dt, 10);
1622: end if;
1623: if l_wait_perd_cmpltn_dt is not null then
1624: -- If a potential life event exists between the effective date and the
1617: /*End of Bug 10030441 */
1618: --
1619: if g_debug then
1620: hr_utility.set_location('Dn Wait period: ben_determine_eligibility2.check_prev_elig', 10);
1621: hr_utility.set_location('Wait period strt dt : ' || l_wait_perd_strt_dt, 10);
1622: end if;
1623: if l_wait_perd_cmpltn_dt is not null then
1624: -- If a potential life event exists between the effective date and the
1625: -- waiting period completion date, then raise an error and stop further
1624: -- If a potential life event exists between the effective date and the
1625: -- waiting period completion date, then raise an error and stop further
1626: -- processing of this comp object. Also write a descriptive message to the
1627: -- log.
1628: hr_utility.set_location('Checking for ptnl life events ben_determine_eligibility2.check_prev_elig', 10);
1629:
1630: open c_ptnl_le(l_wait_perd_cmpltn_dt);
1631: fetch c_ptnl_le into l_ptnl_le;
1632: if c_ptnl_le%found
1633: and l_benmngle_parm_rec.mode_cd <> 'I' --iRec:Do not raise the error when BENMNGLE processed in iRecruitment mode
1634: then
1635: close c_ptnl_le;
1636: fnd_message.set_name ('BEN','BEN_93992_PTNL_IN_WTG_PERD'); -- 3597303
1637: hr_utility.set_location('PTNL LE FOUND ben_determine_eligibility2.check_prev_elig', 10);
1638: ben_manage_life_events.g_output_string :=
1639: ben_manage_life_events.g_output_string||
1640: 'Elg: Yes '||-- 3597303
1641: 'Warning:'||fnd_message.get;
1644: --
1645: p_elig_flag := true;---false; -- bug 3597303
1646: --
1647: else
1648: hr_utility.set_location('PTNL LE not found. Call BENDRPAR', 10);
1649: close c_ptnl_le;
1650:
1651: -- There's no potential life event. Re determine temporal factors using
1652: -- the wait perd cmpltn date as the life event ocrd date or ntfn date.
1696: --
1697: p_elig_flag := true; -- 3597303
1698: --
1699: -- 1517275 : added else and moved end if
1700: -- and hr_utility.set_location
1701: -- tm 11/29
1702: else -- no rows returned
1703: hr_utility.set_location('TEMPORAL PTNL LE not found.', 15);
1704: close c_ptnl_le;
1699: -- 1517275 : added else and moved end if
1700: -- and hr_utility.set_location
1701: -- tm 11/29
1702: else -- no rows returned
1703: hr_utility.set_location('TEMPORAL PTNL LE not found.', 15);
1704: close c_ptnl_le;
1705: end if;
1706: end if; -- c_ptnl_le
1707: end if; -- wait_perd_cmpltn_dt
1714: --
1715: l_oipl_rec := ben_cobj_cache.g_oipl_currow;
1716: --
1717: if g_debug then
1718: hr_utility.set_location('open c_prvoptelch ben_determine_eligibility2.check_prev_elig', 10);
1719: end if;
1720: --
1721: -- Check for oipl in a program
1722: --
1749: ,p_inst_row => l_epo_row
1750: );
1751: --
1752: if g_debug then
1753: hr_utility.set_location('ik-l_effective_dt '||l_oipl_rec.opt_id,10);
1754: hr_utility.set_location('ik-l_oipl_rec.opt_id '||l_oipl_rec.opt_id,10);
1755: hr_utility.set_location('ik-l_epo_row.elig_per_opt_id '||l_epo_row.elig_per_opt_id,10);
1756: end if;
1757: --
1750: );
1751: --
1752: if g_debug then
1753: hr_utility.set_location('ik-l_effective_dt '||l_oipl_rec.opt_id,10);
1754: hr_utility.set_location('ik-l_oipl_rec.opt_id '||l_oipl_rec.opt_id,10);
1755: hr_utility.set_location('ik-l_epo_row.elig_per_opt_id '||l_epo_row.elig_per_opt_id,10);
1756: end if;
1757: --
1758: if l_epo_row.elig_per_opt_id is null then
1751: --
1752: if g_debug then
1753: hr_utility.set_location('ik-l_effective_dt '||l_oipl_rec.opt_id,10);
1754: hr_utility.set_location('ik-l_oipl_rec.opt_id '||l_oipl_rec.opt_id,10);
1755: hr_utility.set_location('ik-l_epo_row.elig_per_opt_id '||l_epo_row.elig_per_opt_id,10);
1756: end if;
1757: --
1758: if l_epo_row.elig_per_opt_id is null then
1759: --
1789: --
1790: else
1791: --
1792: if g_debug then
1793: hr_utility.set_location('fetch c_prvoptelch ben_determine_eligibility2.check_prev_elig', 10);
1794: end if;
1795: --
1796: ben_determine_eligibility4.prev_opt_elig_check
1797: (p_person_id => p_person_id
1846: close c_prev_opt_elig_check;
1847: --
1848: */
1849: if g_debug then
1850: hr_utility.set_location('Dn fetch c_prvoptelch ben_determine_eligibility2.check_prev_elig', 10);
1851: end if;
1852: end if;
1853: --
1854: l_prev_per_in_ler_id := l_per_in_ler_id;
1863: then --b
1864: -- No record exist Person not previously elig or inelig for selctd oipl
1865: if p_elig_flag then
1866: --
1867: hr_utility.set_location ('oipl first elig',121);
1868: l_first_elig := true;
1869: l_start_or_end := 'S';
1870: fnd_message.set_name ('BEN','BEN_91385_FIRST_ELIG');
1871: benutils.write(p_text => fnd_message.get);
1879: l_trk_inelig_per_flag := l_oipl_rec.trk_inelig_per_flag;
1880: --
1881: if l_trk_inelig_per_flag = 'Y' then
1882: --
1883: hr_utility.set_location ('first inelig',121);
1884: l_first_inelig := true;
1885: l_start_or_end := 'E';
1886: --
1887: else
1924: 'Rsn: Still Elig';
1925: --
1926: end if;
1927: --
1928: hr_utility.set_location ('still elig',121); --Since we clear cache after every run so even though
1929: l_start_or_end := 'S'; -- still elig need to build the cache
1930: l_still_elig := true;
1931: --
1932: --return;
1932: --return;
1933: --
1934: elsif l_opt_elig_flag = 'Y' and p_elig_flag = false then --d
1935: -- person is newly inelig
1936: hr_utility.set_location ('newly inelig',121);
1937: l_newly_inelig := true;
1938: l_start_or_end := 'E';
1939: fnd_message.set_name('BEN','BEN_91347_NOT_ELIG_PREV_ELIG');
1940: benutils.write(p_text => fnd_message.get);
1952: if l_benmngle_parm_rec.mode_cd in ('L','C') then
1953: l_trk_inelig_per_flag := l_oipl_rec.trk_inelig_per_flag;
1954: end if;
1955: if g_debug then
1956: hr_utility.set_location ('Track INelig flag'||l_trk_inelig_per_flag,100);
1957: hr_utility.set_location ('age val '||p_comp_rec.age_val,101);
1958: end if;
1959: -- Bug 8542643: Update the still inelig records irrespective of whether
1960: -- old value is greater or new value is greater for age or los
1953: l_trk_inelig_per_flag := l_oipl_rec.trk_inelig_per_flag;
1954: end if;
1955: if g_debug then
1956: hr_utility.set_location ('Track INelig flag'||l_trk_inelig_per_flag,100);
1957: hr_utility.set_location ('age val '||p_comp_rec.age_val,101);
1958: end if;
1959: -- Bug 8542643: Update the still inelig records irrespective of whether
1960: -- old value is greater or new value is greater for age or los
1961: if l_trk_inelig_per_flag = 'Y' then
1962: if p_comp_rec.age_val is not null or
1963: p_comp_rec.los_val is not null
1964: then
1965: if g_debug then
1966: hr_utility.set_location ('New update for elig per opt',100);
1967: end if;
1968: --
1969: l_t_object_version_number := l_object_version_number_opt;
1970: --
1987: if l_update_override then
1988: l_datetrack_mode := hr_api.g_update_override;
1989:
1990: if g_debug then
1991: hr_utility.set_location('EPO l_datetrack_mode '||l_datetrack_mode, 777);
1992: end if;
1993:
1994: elsif l_update then
1995: l_datetrack_mode := hr_api.g_update;
1994: elsif l_update then
1995: l_datetrack_mode := hr_api.g_update;
1996:
1997: if g_debug then
1998: hr_utility.set_location('EPO l_datetrack_mode '||l_datetrack_mode, 777);
1999: end if;
2000: else
2001: l_datetrack_mode := hr_api.g_correction;
2002:
2000: else
2001: l_datetrack_mode := hr_api.g_correction;
2002:
2003: if g_debug then
2004: hr_utility.set_location('EPO l_datetrack_mode '||l_datetrack_mode, 777);
2005: end if;
2006: end if;
2007:
2008: hr_utility.set_location('EPO l_per_in_ler_id' || l_per_in_ler_id, 777);
2004: hr_utility.set_location('EPO l_datetrack_mode '||l_datetrack_mode, 777);
2005: end if;
2006: end if;
2007:
2008: hr_utility.set_location('EPO l_per_in_ler_id' || l_per_in_ler_id, 777);
2009:
2010: -- insert into backup table if updating in correction mode
2011:
2012: IF l_datetrack_mode = hr_api.g_correction AND
2075: p_program_update_date => sysdate);
2076: --
2077:
2078: if p_score_tab.count > 0 then
2079: hr_utility.set_location('writing score records ',5.6);
2080: ben_elig_scre_wtg_api.load_score_weight
2081: (p_validate => false
2082: ,p_score_tab => p_score_tab
2083: ,p_effective_date => l_effective_dt
2100: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
2101: --
2102: END IF;
2103: --
2104: hr_utility.set_location('Building epo cache1 1'|| l_count_icm1,123);
2105: --
2106: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
2107: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
2108: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
2172: return;
2173: --
2174: elsif l_opt_elig_flag = 'N' and p_elig_flag then --d
2175: -- person is newly elig
2176: hr_utility.set_location('new elig',23);
2177: l_newly_elig := true;
2178: l_start_or_end := 'S';
2179: fnd_message.set_name('BEN','BEN_91346_ELIG_PREV_NOT_ELIG');
2180: benutils.write(p_text => fnd_message.get);
2189: --
2190: end if; --b
2191: --
2192: if g_debug then
2193: hr_utility.set_location('Call GSED 1 ben_determine_eligibility2.check_prev_elig', 10);
2194: end if;
2195: --
2196: get_start_end_dates
2197: (p_comp_obj_tree_row => p_comp_obj_tree_row
2214: );
2215: --
2216: if g_debug then
2217: --
2218: hr_utility.set_location('Done GSED 1 ben_determine_eligibility2.check_prev_elig', 10);
2219: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
2220: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
2221: --
2222: end if;
2215: --
2216: if g_debug then
2217: --
2218: hr_utility.set_location('Done GSED 1 ben_determine_eligibility2.check_prev_elig', 10);
2219: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
2220: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
2221: --
2222: end if;
2223: -- compute end date plus one.
2216: if g_debug then
2217: --
2218: hr_utility.set_location('Done GSED 1 ben_determine_eligibility2.check_prev_elig', 10);
2219: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
2220: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
2221: --
2222: end if;
2223: -- compute end date plus one.
2224: if to_char(l_prtn_eff_end_dt,'DD-MM-RRRR') = '31-12-4712' then
2244: --
2245: --Get elig id from ben_elig_per_f for the plan
2246: --
2247: if g_debug then
2248: hr_utility.set_location('open c_get_elig_id ben_determine_eligibility2.check_prev_elig', 10);
2249: end if;
2250: --
2251: ben_pep_cache1.get_currplnpep_dets
2252: (p_comp_obj_tree_row => p_comp_obj_tree_row
2270: --
2271: end if;
2272: --
2273: if g_debug then
2274: hr_utility.set_location('close c_get_elig_id ben_determine_eligibility2.check_prev_elig', 10);
2275: end if;
2276: --
2277: -- Get opt id from cached oipl structure
2278: --
2307: --
2308: end if;
2309: --
2310: if l_first_elig then --n
2311: hr_utility.set_location ('first elig',121);
2312: -- Create Elig Person for Option
2313: if instr(ben_manage_life_events.g_output_string,
2314: 'Elg:') = 0 then
2315: --
2363: --
2364: end if;
2365: --
2366: if g_debug then
2367: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
2368: l_prtn_eff_strt_dt, 10);
2369: hr_utility.set_location('FIR ELIG Cre EPO ben_determine_eligibility2.check_prev_elig', 10);
2370: end if;
2371: --
2365: --
2366: if g_debug then
2367: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
2368: l_prtn_eff_strt_dt, 10);
2369: hr_utility.set_location('FIR ELIG Cre EPO ben_determine_eligibility2.check_prev_elig', 10);
2370: end if;
2371: --
2372: l_elig_flag := 'Y';
2373: l_prtn_strt_dt := l_prtn_eff_strt_dt;
2450: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
2451: --
2452: END IF;
2453: --
2454: hr_utility.set_location('Building epo cache1 2 : count ' || l_count_icm1,123);
2455: --
2456: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
2457: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
2458: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
2518: END IF;
2519: --ICM
2520: --
2521: if p_score_tab.count > 0 then
2522: hr_utility.set_location('writing score records ',5.5);
2523: ben_elig_scre_wtg_api.load_score_weight
2524: (p_validate => false
2525: ,p_score_tab => p_score_tab
2526: ,p_effective_date => l_effective_dt
2527: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
2528: ,p_elig_per_id => l_elig_per_id
2529: ,p_elig_per_opt_id => l_elig_per_opt_id);
2530: end if;
2531: hr_utility.set_location('Dn FIR ELIG Cre EPO ben_determine_eligibility2.check_prev_elig', 10);
2532: --
2533: elsif l_still_elig then --n
2534: --
2535: hr_utility.set_location ('still elig',121);
2531: hr_utility.set_location('Dn FIR ELIG Cre EPO ben_determine_eligibility2.check_prev_elig', 10);
2532: --
2533: elsif l_still_elig then --n
2534: --
2535: hr_utility.set_location ('still elig',121);
2536: if instr(ben_manage_life_events.g_output_string,
2537: 'Elg:') = 0 then
2538: --
2539: ben_manage_life_events.g_output_string :=
2609: --
2610: l_elig_flag := 'Y';
2611: l_prtn_strt_dt := l_prtn_eff_strt_dt;
2612: --
2613: hr_utility.set_location('SARKAR EPO l_per_in_ler_id' || l_per_in_ler_id, 10);
2614: IF l_datetrack_mode = hr_api.g_correction AND
2615: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) AND l_benmngle_parm_rec.mode_cd <> 'D' THEN
2616: --
2617: ben_determine_eligibility3.save_to_restore
2635: open c_prev_pil(p_pil_row.per_in_ler_id);
2636: fetch c_prev_pil into l_prev_pil_id;
2637: close c_prev_pil;
2638:
2639: hr_utility.set_location('l_prev_pil_id ' || l_prev_pil_id, 7776);
2640: -- gets the opt record for previous per_in_ler
2641: open c_elig_opt_rec(l_elig_per_opt_id,l_prev_pil_id);
2642: fetch c_elig_opt_rec into l_elig_per_opt_rec;
2643: close c_elig_opt_rec;
2641: open c_elig_opt_rec(l_elig_per_opt_id,l_prev_pil_id);
2642: fetch c_elig_opt_rec into l_elig_per_opt_rec;
2643: close c_elig_opt_rec;
2644:
2645: hr_utility.set_location('uxx l_elig_per_opt_rec.elig_per_opt_id '||l_elig_per_opt_rec.elig_per_opt_id,10);
2646: -- checks the opt record having start date greater than effective date.
2647: open c_elig_per_opt_id(l_prev_pil_id,
2648: l_elig_per_opt_rec.elig_per_opt_id,
2649: p_effective_date);
2649: p_effective_date);
2650: fetch c_elig_per_opt_id into l_ftr_elig_per_opt_rec;
2651: close c_elig_per_opt_id;
2652:
2653: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
2654: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
2655:
2656: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
2657: hr_utility.set_location('uxx save to restore in if ',10);
2650: fetch c_elig_per_opt_id into l_ftr_elig_per_opt_rec;
2651: close c_elig_per_opt_id;
2652:
2653: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
2654: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
2655:
2656: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
2657: hr_utility.set_location('uxx save to restore in if ',10);
2658:
2653: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
2654: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
2655:
2656: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
2657: hr_utility.set_location('uxx save to restore in if ',10);
2658:
2659: ben_determine_eligibility3.save_to_restore
2660: (p_current_per_in_ler_id => l_per_in_ler_id
2661: ,p_per_in_ler_id => l_prev_pil_id
2663: ,p_elig_per_opt_id => l_ftr_elig_per_opt_rec.elig_per_opt_id
2664: ,p_effective_date => l_ftr_elig_per_opt_rec.effective_start_date
2665: );
2666: else
2667: hr_utility.set_location('uxx save to restore in else ',10);
2668: ben_determine_eligibility3.save_to_restore
2669: (p_current_per_in_ler_id => l_per_in_ler_id
2670: ,p_per_in_ler_id => l_prev_per_in_ler_id
2671: ,p_elig_per_id => NULL
2751: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
2752: --
2753: END IF;
2754: --
2755: hr_utility.set_location('Building epo cache1 3 : count ',123);
2756: --ICM
2757: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
2758: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
2759: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
2820: --
2821: END IF;
2822: --ICM
2823: if p_score_tab.count > 0 then
2824: hr_utility.set_location('writing score records ',5.6);
2825: ben_elig_scre_wtg_api.load_score_weight
2826: (p_validate => false
2827: ,p_score_tab => p_score_tab
2828: ,p_effective_date => l_effective_dt
2831: ,p_elig_per_opt_id => l_elig_per_opt_id);
2832: end if;
2833: elsif l_newly_elig then --n
2834: --
2835: hr_utility.set_location('new elig',23);
2836: if instr(ben_manage_life_events.g_output_string,
2837: 'Elg:') = 0 then
2838: --
2839: ben_manage_life_events.g_output_string :=
2997: open c_prev_pil(p_pil_row.per_in_ler_id);
2998: fetch c_prev_pil into l_prev_pil_id;
2999: close c_prev_pil;
3000:
3001: hr_utility.set_location('l_prev_pil_id ' || l_prev_pil_id, 7776);
3002:
3003: open c_elig_opt_rec(l_elig_per_opt_id,l_prev_pil_id);
3004: fetch c_elig_opt_rec into l_elig_per_opt_rec;
3005: close c_elig_opt_rec;
3003: open c_elig_opt_rec(l_elig_per_opt_id,l_prev_pil_id);
3004: fetch c_elig_opt_rec into l_elig_per_opt_rec;
3005: close c_elig_opt_rec;
3006:
3007: hr_utility.set_location('uxx l_elig_per_opt_rec.elig_per_opt_id '||l_elig_per_opt_rec.elig_per_opt_id,10);
3008:
3009: open c_elig_per_opt_id(l_prev_pil_id,
3010: l_elig_per_opt_rec.elig_per_opt_id,
3011: p_effective_date);
3011: p_effective_date);
3012: fetch c_elig_per_opt_id into l_ftr_elig_per_opt_rec;
3013: close c_elig_per_opt_id;
3014:
3015: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
3016: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
3017:
3018: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
3019: hr_utility.set_location('uxx save to restore in if ',10);
3012: fetch c_elig_per_opt_id into l_ftr_elig_per_opt_rec;
3013: close c_elig_per_opt_id;
3014:
3015: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
3016: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
3017:
3018: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
3019: hr_utility.set_location('uxx save to restore in if ',10);
3020:
3015: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
3016: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
3017:
3018: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
3019: hr_utility.set_location('uxx save to restore in if ',10);
3020:
3021: ben_determine_eligibility3.save_to_restore
3022: (p_current_per_in_ler_id => l_per_in_ler_id
3023: ,p_per_in_ler_id => l_prev_pil_id
3025: ,p_elig_per_opt_id => l_ftr_elig_per_opt_rec.elig_per_opt_id
3026: ,p_effective_date => l_ftr_elig_per_opt_rec.effective_start_date
3027: );
3028: /* else
3029: hr_utility.set_location('uxx save to restore in else ',10);
3030: ben_determine_eligibility3.save_to_restore
3031: (p_current_per_in_ler_id => l_per_in_ler_id
3032: ,p_per_in_ler_id => l_prev_per_in_ler_id
3033: ,p_elig_per_id => NULL
3109: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
3110: --
3111: END IF;
3112: --
3113: hr_utility.set_location('Building epo cache1 4 : count ' || l_count_icm1,123);
3114: --ICM
3115: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
3116: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
3117: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
3176: --
3177: END IF;
3178: --ICM
3179: if p_score_tab.count > 0 then
3180: hr_utility.set_location('writing score records ',5.7);
3181: ben_elig_scre_wtg_api.load_score_weight
3182: (p_validate => false
3183: ,p_score_tab => p_score_tab
3184: ,p_effective_date => l_effective_dt
3187: ,p_elig_per_opt_id => l_elig_per_opt_id);
3188: end if;
3189: elsif l_newly_inelig then --n
3190: --
3191: hr_utility.set_location ('newly inelig',121);
3192: -- Person was found not eligible for this oipl.
3193: -- Person was prev eligible. Now is newly ineligible.
3194: -- Call API to Update old record with end date (correction)
3195: -- Then call in update mode to create a new inelig record with
3301: open c_prev_pil(p_pil_row.per_in_ler_id);
3302: fetch c_prev_pil into l_prev_pil_id;
3303: close c_prev_pil;
3304:
3305: hr_utility.set_location('l_prev_pil_id ' || l_prev_pil_id, 7776);
3306:
3307: open c_elig_opt_rec(l_elig_per_opt_id,l_prev_pil_id);
3308: fetch c_elig_opt_rec into l_elig_per_opt_rec;
3309: close c_elig_opt_rec;
3307: open c_elig_opt_rec(l_elig_per_opt_id,l_prev_pil_id);
3308: fetch c_elig_opt_rec into l_elig_per_opt_rec;
3309: close c_elig_opt_rec;
3310:
3311: hr_utility.set_location('uxx l_elig_per_opt_rec.elig_per_opt_id '||l_elig_per_opt_rec.elig_per_opt_id,10);
3312:
3313: open c_elig_per_opt_id(l_prev_pil_id,
3314: l_elig_per_opt_rec.elig_per_opt_id,
3315: p_effective_date);
3315: p_effective_date);
3316: fetch c_elig_per_opt_id into l_ftr_elig_per_opt_rec;
3317: close c_elig_per_opt_id;
3318:
3319: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
3320: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
3321:
3322: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
3323: hr_utility.set_location('uxx save to restore in if ',10);
3316: fetch c_elig_per_opt_id into l_ftr_elig_per_opt_rec;
3317: close c_elig_per_opt_id;
3318:
3319: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
3320: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
3321:
3322: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
3323: hr_utility.set_location('uxx save to restore in if ',10);
3324:
3319: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
3320: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
3321:
3322: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
3323: hr_utility.set_location('uxx save to restore in if ',10);
3324:
3325: ben_determine_eligibility3.save_to_restore
3326: (p_current_per_in_ler_id => l_per_in_ler_id
3327: ,p_per_in_ler_id => l_prev_pil_id
3329: ,p_elig_per_opt_id => l_ftr_elig_per_opt_rec.elig_per_opt_id
3330: ,p_effective_date => l_ftr_elig_per_opt_rec.effective_start_date
3331: );
3332: /* else
3333: hr_utility.set_location('uxx save to restore in else ',10);
3334: ben_determine_eligibility3.save_to_restore
3335: (p_current_per_in_ler_id => l_per_in_ler_id
3336: ,p_per_in_ler_id => l_prev_per_in_ler_id
3337: ,p_elig_per_id => NULL
3414: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
3415: --
3416: END IF;
3417: --
3418: hr_utility.set_location('Building epo cache1 6 : count ' || l_count_icm1,123);
3419: --ICM
3420: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
3421: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
3422: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
3486: -- plan,option in plan, or program. Don't call it if not
3487: -- necessary.
3488: --
3489: if p_score_tab.count > 0 then
3490: hr_utility.set_location('writing score records ',5.5);
3491: ben_elig_scre_wtg_api.load_score_weight
3492: (p_validate => false
3493: ,p_score_tab => p_score_tab
3494: ,p_effective_date => l_effective_dt
3547: end if;
3548:
3549: elsif l_first_inelig then --n
3550: --
3551: hr_utility.set_location ('first inelig',121);
3552: -- Get elig id from ben_elig_per_f for the plan
3553: --
3554: ben_pep_cache1.get_currplnpep_dets
3555: (p_comp_obj_tree_row => p_comp_obj_tree_row
3574: end if;
3575: --
3576: l_opt_id := l_oipl_rec.opt_id;
3577: --
3578: hr_utility.set_location('l_elig_per_id '||l_elig_per_id,10);
3579: hr_utility.set_location('l_elig_per_opt_id '||l_elig_per_opt_id,10);
3580: hr_utility.set_location('l_opt_id '||l_opt_id,10);
3581: hr_utility.set_location('p_effective_date '||p_effective_date,10);
3582: --
3575: --
3576: l_opt_id := l_oipl_rec.opt_id;
3577: --
3578: hr_utility.set_location('l_elig_per_id '||l_elig_per_id,10);
3579: hr_utility.set_location('l_elig_per_opt_id '||l_elig_per_opt_id,10);
3580: hr_utility.set_location('l_opt_id '||l_opt_id,10);
3581: hr_utility.set_location('p_effective_date '||p_effective_date,10);
3582: --
3583: -- Person not eligible now or in the past.
3576: l_opt_id := l_oipl_rec.opt_id;
3577: --
3578: hr_utility.set_location('l_elig_per_id '||l_elig_per_id,10);
3579: hr_utility.set_location('l_elig_per_opt_id '||l_elig_per_opt_id,10);
3580: hr_utility.set_location('l_opt_id '||l_opt_id,10);
3581: hr_utility.set_location('p_effective_date '||p_effective_date,10);
3582: --
3583: -- Person not eligible now or in the past.
3584: -- Create elig person with elig flag = 'n'
3577: --
3578: hr_utility.set_location('l_elig_per_id '||l_elig_per_id,10);
3579: hr_utility.set_location('l_elig_per_opt_id '||l_elig_per_opt_id,10);
3580: hr_utility.set_location('l_opt_id '||l_opt_id,10);
3581: hr_utility.set_location('p_effective_date '||p_effective_date,10);
3582: --
3583: -- Person not eligible now or in the past.
3584: -- Create elig person with elig flag = 'n'
3585: -- Call API
3593: 'Rsn: Not Elig FTIME';
3594: --
3595: end if;
3596: --
3597: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Fir inel Cre EPO ' , 10);
3598: --
3599: l_elig_flag := 'N';
3600: l_prtn_strt_dt := l_end_dt_plus_one;
3601: --
3662: -- Bypass insert validate validation for performance
3663: --
3664: ,p_override_validation => TRUE);
3665: --
3666: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn Fir inel Cre EPO ' , 10);
3667: --
3668: -- ICM
3669: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
3670: IF NOT ben_icm_life_events.g_cache_epo_object.EXISTS(1) THEN
3676: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
3677: --
3678: END IF;
3679: --
3680: hr_utility.set_location('Building epo cache1 7 : count ' || l_count_icm1,123);
3681: --
3682: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_elig_per_id;
3683: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_elig_per_opt_id;
3684: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
3744: ben_icm_life_events.g_cache_epo_object(l_count_icm1).wait_perd_cmpltn_date := null;
3745: --
3746: END IF;
3747: if p_score_tab.count > 0 then
3748: hr_utility.set_location('writing score records ',5.5);
3749: ben_elig_scre_wtg_api.load_score_weight
3750: (p_validate => false
3751: ,p_score_tab => p_score_tab
3752: ,p_effective_date => l_effective_dt
3771: --
3772: if p_comp_obj_tree_row.oiplip_id is not null then
3773: --
3774: if g_debug then
3775: hr_utility.set_location('Creating OIPLIP',10);
3776: end if;
3777: l_object_version_number := null;
3778: --
3779: if g_debug then
3776: end if;
3777: l_object_version_number := null;
3778: --
3779: if g_debug then
3780: hr_utility.set_location('PLIP'||l_envplip_id,10);
3781: hr_utility.set_location('PGM'||l_envpgm_id,10);
3782: hr_utility.set_location('PERSON'||p_person_id,10);
3783: hr_utility.set_location('OPT_ID'||l_oipl_rec.opt_id,10);
3784: end if;
3777: l_object_version_number := null;
3778: --
3779: if g_debug then
3780: hr_utility.set_location('PLIP'||l_envplip_id,10);
3781: hr_utility.set_location('PGM'||l_envpgm_id,10);
3782: hr_utility.set_location('PERSON'||p_person_id,10);
3783: hr_utility.set_location('OPT_ID'||l_oipl_rec.opt_id,10);
3784: end if;
3785: --
3778: --
3779: if g_debug then
3780: hr_utility.set_location('PLIP'||l_envplip_id,10);
3781: hr_utility.set_location('PGM'||l_envpgm_id,10);
3782: hr_utility.set_location('PERSON'||p_person_id,10);
3783: hr_utility.set_location('OPT_ID'||l_oipl_rec.opt_id,10);
3784: end if;
3785: --
3786: -- Check for previous OIPLIP
3779: if g_debug then
3780: hr_utility.set_location('PLIP'||l_envplip_id,10);
3781: hr_utility.set_location('PGM'||l_envpgm_id,10);
3782: hr_utility.set_location('PERSON'||p_person_id,10);
3783: hr_utility.set_location('OPT_ID'||l_oipl_rec.opt_id,10);
3784: end if;
3785: --
3786: -- Check for previous OIPLIP
3787: --
3798: --
3799: if l_oiplipepo_row.elig_per_opt_id is null then
3800: --
3801: if g_debug then
3802: hr_utility.set_location('Record not found',10);
3803: end if;
3804: --
3805: ben_pep_cache1.get_curroiplippep_dets
3806: (p_comp_obj_tree_row => p_comp_obj_tree_row
3832:
3833: -- Create oiplip record
3834: --
3835: if g_debug then
3836: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig BEPOAPI_CreOIPLIP ' , 10);
3837: end if;
3838: --
3839: ben_Eligible_Person_perf_api.create_perf_Elig_Person_Option
3840: (p_validate => FALSE,
3910: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
3911: --
3912: END IF;
3913: --
3914: hr_utility.set_location('Building epo cache1 8 : count ' || l_count_icm1,123);
3915: --
3916: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_prev_oiplip_elig_check.elig_per_id;
3917: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_prev_oiplip_elig_check.elig_per_opt_id;
3918: ben_icm_life_events.g_cache_epo_object(l_count_icm1).effective_start_date :=l_effective_start_date;
3970: ben_icm_life_events.g_cache_epo_object(l_count_icm1).p_pl_id := l_envpl_id;
3971: --
3972: END IF;
3973: if g_debug then
3974: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn BEPOAPI_CreOIPLIP ' , 10);
3975: end if;
3976: --
3977: else
3978: --
4034: open c_prev_pil(p_pil_row.per_in_ler_id);
4035: fetch c_prev_pil into l_prev_pil_id;
4036: close c_prev_pil;
4037:
4038: hr_utility.set_location('l_prev_pil_id ' || l_prev_pil_id, 7776);
4039:
4040: open c_elig_opt_rec(l_prev_oiplip_elig_check.elig_per_opt_id,l_prev_pil_id);
4041: fetch c_elig_opt_rec into l_elig_per_opt_rec;
4042: close c_elig_opt_rec;
4040: open c_elig_opt_rec(l_prev_oiplip_elig_check.elig_per_opt_id,l_prev_pil_id);
4041: fetch c_elig_opt_rec into l_elig_per_opt_rec;
4042: close c_elig_opt_rec;
4043:
4044: hr_utility.set_location('uxx l_elig_per_opt_rec.elig_per_opt_id '||l_elig_per_opt_rec.elig_per_opt_id,10);
4045:
4046: open c_elig_per_opt_id(l_prev_pil_id,
4047: l_elig_per_opt_rec.elig_per_opt_id,
4048: p_effective_date);
4048: p_effective_date);
4049: fetch c_elig_per_opt_id into l_ftr_elig_per_opt_rec;
4050: close c_elig_per_opt_id;
4051:
4052: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
4053: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
4054:
4055: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
4056: hr_utility.set_location('uxx save to restore in if ',10);
4049: fetch c_elig_per_opt_id into l_ftr_elig_per_opt_rec;
4050: close c_elig_per_opt_id;
4051:
4052: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
4053: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
4054:
4055: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
4056: hr_utility.set_location('uxx save to restore in if ',10);
4057:
4052: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.elig_per_opt_id '||l_ftr_elig_per_opt_rec.elig_per_opt_id,10);
4053: hr_utility.set_location('uxx l_ftr_elig_per_opt_rec.effective_start_date '||l_ftr_elig_per_opt_rec.effective_start_date,10);
4054:
4055: if(l_ftr_elig_per_opt_rec.elig_per_opt_id is not null) then
4056: hr_utility.set_location('uxx save to restore in if ',10);
4057:
4058: ben_determine_eligibility3.save_to_restore
4059: (p_current_per_in_ler_id => l_per_in_ler_id
4060: ,p_per_in_ler_id => l_prev_pil_id
4062: ,p_elig_per_opt_id => l_ftr_elig_per_opt_rec.elig_per_opt_id
4063: ,p_effective_date => l_ftr_elig_per_opt_rec.effective_start_date
4064: );
4065: /* else
4066: hr_utility.set_location('uxx save to restore in else ',10);
4067: ben_determine_eligibility3.save_to_restore
4068: (p_current_per_in_ler_id => l_per_in_ler_id
4069: ,p_per_in_ler_id => l_prev_per_in_ler_id
4070: ,p_elig_per_id => NULL
4146: l_count_icm1 := ben_icm_life_events.g_cache_epo_object.LAST + 1;
4147: --
4148: END IF;
4149: --
4150: hr_utility.set_location('Building epo cache1 9 : count ',123);
4151: --
4152: --ICM
4153: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_id := l_prev_oiplip_elig_check.elig_per_id;
4154: ben_icm_life_events.g_cache_epo_object(l_count_icm1).elig_per_opt_id := l_prev_oiplip_elig_check.elig_per_opt_id;
4215: --
4216: else --a
4217: --
4218: if g_debug then
4219: hr_utility.set_location(' Chk Prev Oipl ben_determine_eligibility2.check_prev_elig ', 10);
4220: end if;
4221: --
4222: -- Check for a plan in program or a plip
4223: --
4226: or p_plip_id is not null)
4227: then
4228: --
4229: if g_debug then
4230: hr_utility.set_location(' before pilpep ',111);
4231: end if;
4232: ben_pep_cache.get_pilpep_dets
4233: (p_person_id => p_person_id
4234: ,p_business_group_id => p_business_group_id
4247: l_per_in_ler_id := l_pep_row.per_in_ler_id;
4248: l_object_version_number := l_pep_row.object_version_number;
4249: --
4250: if g_debug then
4251: hr_utility.set_location('elig per id'||l_elig_per_id,11);
4252: hr_utility.set_location('per in ler id'||l_per_in_ler_id,11);
4253: hr_utility.set_location('prtn start date'||l_prev_prtn_strt_dt,12);
4254: hr_utility.set_location(' effective date '|| l_effective_dt,111);
4255: end if;
4248: l_object_version_number := l_pep_row.object_version_number;
4249: --
4250: if g_debug then
4251: hr_utility.set_location('elig per id'||l_elig_per_id,11);
4252: hr_utility.set_location('per in ler id'||l_per_in_ler_id,11);
4253: hr_utility.set_location('prtn start date'||l_prev_prtn_strt_dt,12);
4254: hr_utility.set_location(' effective date '|| l_effective_dt,111);
4255: end if;
4256: if l_pep_row.elig_per_id is null then
4249: --
4250: if g_debug then
4251: hr_utility.set_location('elig per id'||l_elig_per_id,11);
4252: hr_utility.set_location('per in ler id'||l_per_in_ler_id,11);
4253: hr_utility.set_location('prtn start date'||l_prev_prtn_strt_dt,12);
4254: hr_utility.set_location(' effective date '|| l_effective_dt,111);
4255: end if;
4256: if l_pep_row.elig_per_id is null then
4257: --
4250: if g_debug then
4251: hr_utility.set_location('elig per id'||l_elig_per_id,11);
4252: hr_utility.set_location('per in ler id'||l_per_in_ler_id,11);
4253: hr_utility.set_location('prtn start date'||l_prev_prtn_strt_dt,12);
4254: hr_utility.set_location(' effective date '|| l_effective_dt,111);
4255: end if;
4256: if l_pep_row.elig_per_id is null then
4257: --
4258: l_prev_eligibility := false;
4267: --
4268: else
4269: --
4270: if g_debug then
4271: hr_utility.set_location('l effective date'|| l_effective_dt,11);
4272: hr_utility.set_location('lf evt ocrd date'|| p_lf_evt_ocrd_dt,11);
4273: end if;
4274: --
4275: ben_determine_eligibility4.prev_elig_check
4268: else
4269: --
4270: if g_debug then
4271: hr_utility.set_location('l effective date'|| l_effective_dt,11);
4272: hr_utility.set_location('lf evt ocrd date'|| p_lf_evt_ocrd_dt,11);
4273: end if;
4274: --
4275: ben_determine_eligibility4.prev_elig_check
4276: (p_person_id => p_person_id
4295: -- l_p_object_version_number := l_object_version_number;
4296: end if;
4297: --
4298: if g_debug then
4299: hr_utility.set_location('object version number'||l_object_version_number,11);
4300: hr_utility.set_location('Dn fetch c_prvelgchk ben_determine_eligibility2.check_prev_elig', 10);
4301: end if;
4302: --
4303: l_prev_per_in_ler_id := l_per_in_ler_id;
4296: end if;
4297: --
4298: if g_debug then
4299: hr_utility.set_location('object version number'||l_object_version_number,11);
4300: hr_utility.set_location('Dn fetch c_prvelgchk ben_determine_eligibility2.check_prev_elig', 10);
4301: end if;
4302: --
4303: l_prev_per_in_ler_id := l_per_in_ler_id;
4304: --
4306: l_per_in_ler_id:=l_new_per_in_ler_id;
4307: end if;
4308: --
4309: if g_debug then
4310: hr_utility.set_location('before prev notfound check ben_determine_eligibility2.check_prev_elig', 10);
4311: end if;
4312: --
4313: if p_pgm_id is not null then
4314: --
4339: --
4340: --No record exists. Person not previously elig or inelig.
4341: --
4342: if g_debug then
4343: hr_utility.set_location('prev elig notfound ben_determine_eligibility2.check_prev_elig', 10);
4344: end if;
4345:
4346: if p_elig_flag then
4347: --
4345:
4346: if p_elig_flag then
4347: --
4348: if g_debug then
4349: hr_utility.set_location('elig is true ben_determine_eligibility2.check_prev_elig', 10);
4350: end if;
4351: l_first_elig := true;
4352: hr_utility.set_location ('first elig',121);
4353: l_start_or_end := 'S';
4348: if g_debug then
4349: hr_utility.set_location('elig is true ben_determine_eligibility2.check_prev_elig', 10);
4350: end if;
4351: l_first_elig := true;
4352: hr_utility.set_location ('first elig',121);
4353: l_start_or_end := 'S';
4354: fnd_message.set_name ('BEN','BEN_91385_FIRST_ELIG');
4355: benutils.write(p_text => fnd_message.get);
4356: --
4355: benutils.write(p_text => fnd_message.get);
4356: --
4357: else
4358: --
4359: hr_utility.set_location('elig is false ben_determine_eligibility2.check_prev_elig', 10);
4360: fnd_message.set_name ('BEN','BEN_92533_FIRST_INELIG2');
4361: benutils.write(p_text => fnd_message.get);
4362: --
4363: -- only continue with program and call of api if we want to track
4365: --
4366: if p_pgm_id is not null then
4367: --
4368: l_trk_inelig_per_flag := l_pgm_rec.trk_inelig_per_flag;
4369: hr_utility.set_location('Dn p_pgm_id NN ben_determine_eligibility2.check_prev_elig', 10);
4370: --
4371: elsif p_pl_id is not null then
4372: --
4373: l_trk_inelig_per_flag := l_pl_rec.trk_inelig_per_flag;
4370: --
4371: elsif p_pl_id is not null then
4372: --
4373: l_trk_inelig_per_flag := l_pl_rec.trk_inelig_per_flag;
4374: hr_utility.set_location('Dn p_pl_id NN ben_determine_eligibility2.check_prev_elig', 10);
4375: --
4376: elsif p_plip_id is not null then
4377: --
4378: l_trk_inelig_per_flag := l_plip_rec.trk_inelig_per_flag;
4376: elsif p_plip_id is not null then
4377: --
4378: l_trk_inelig_per_flag := l_plip_rec.trk_inelig_per_flag;
4379: --
4380: hr_utility.set_location('Dn p_plip_id NN ben_determine_eligibility2.check_prev_elig', 10);
4381: elsif p_ptip_id is not null then
4382: --
4383: l_trk_inelig_per_flag := l_ptip_rec.trk_inelig_per_flag;
4384: --
4381: elsif p_ptip_id is not null then
4382: --
4383: l_trk_inelig_per_flag := l_ptip_rec.trk_inelig_per_flag;
4384: --
4385: hr_utility.set_location('Dn p_ptip_id NN ben_determine_eligibility2.check_prev_elig', 10);
4386: end if;
4387: --
4388: if l_trk_inelig_per_flag = 'Y' then
4389: --
4386: end if;
4387: --
4388: if l_trk_inelig_per_flag = 'Y' then
4389: --
4390: hr_utility.set_location ('first inelig',121);
4391: l_first_inelig := true;
4392: l_start_or_end := 'E';
4393: --
4394: else
4405: --
4406: -- Set transition state for processing only. Elig
4407: -- per is not written
4408: --
4409: hr_utility.set_location('NT Fir InEl TRUE ben_determine_eligibility2.check_prev_elig', 10);
4410: p_first_inelig := true;
4411: --
4412: -- bug#5404392 - previous FONM event creates the elig per row in future
4413: -- the subsequent finds first ineligible
4436: --
4437: elsif l_prev_eligibility
4438: then
4439: --
4440: hr_utility.set_location('Prev eligibility true ',100);
4441: hr_utility.set_location( 'l_elig_per_elig_flag'||l_elig_per_elig_flag,123);
4442: if l_elig_per_elig_flag = 'Y' and p_elig_flag then --d
4443: --
4444: hr_utility.set_location ('still elig',121);
4437: elsif l_prev_eligibility
4438: then
4439: --
4440: hr_utility.set_location('Prev eligibility true ',100);
4441: hr_utility.set_location( 'l_elig_per_elig_flag'||l_elig_per_elig_flag,123);
4442: if l_elig_per_elig_flag = 'Y' and p_elig_flag then --d
4443: --
4444: hr_utility.set_location ('still elig',121);
4445: -- Person still eligible, do nothing.
4440: hr_utility.set_location('Prev eligibility true ',100);
4441: hr_utility.set_location( 'l_elig_per_elig_flag'||l_elig_per_elig_flag,123);
4442: if l_elig_per_elig_flag = 'Y' and p_elig_flag then --d
4443: --
4444: hr_utility.set_location ('still elig',121);
4445: -- Person still eligible, do nothing.
4446: --
4447: fnd_message.set_name ('BEN','BEN_91345_ELIG_PREV_ELIG');
4448: benutils.write(p_text => fnd_message.get);
4452: --return;
4453: --
4454: elsif l_elig_per_elig_flag = 'Y' and p_elig_flag = false then --d
4455: -- person is newly inelig
4456: hr_utility.set_location ('newly inelig',121);
4457: l_newly_inelig := true;
4458: l_start_or_end := 'E';
4459: fnd_message.set_name('BEN','BEN_91347_NOT_ELIG_PREV_ELIG');
4460: benutils.write(p_text => fnd_message.get);
4490: end if;
4491: end if;
4492:
4493: if g_debug then
4494: hr_utility.set_location ('New update for elig per'||l_elig_per_id,101);
4495: hr_utility.set_location ('Update mode'||l_datetrack_mode,102);
4496: end if;
4497: --
4498: if l_trk_inelig_per_flag = 'Y' then
4491: end if;
4492:
4493: if g_debug then
4494: hr_utility.set_location ('New update for elig per'||l_elig_per_id,101);
4495: hr_utility.set_location ('Update mode'||l_datetrack_mode,102);
4496: end if;
4497: --
4498: if l_trk_inelig_per_flag = 'Y' then
4499: if l_envpgm_id is not null
4518: -- same as start date, then update should be done in correction mode. In that case, the old
4519: -- record should be inserted in the backup table
4520:
4521: if g_debug then
4522: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 889);
4523: hr_utility.set_location('l_elig_per_id '||l_elig_per_id, 889);
4524: hr_utility.set_location('l_object_version_number '||l_object_version_number, 889);
4525: hr_utility.set_location('l_effective_dt '||l_effective_dt, 889);
4526: end if;
4519: -- record should be inserted in the backup table
4520:
4521: if g_debug then
4522: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 889);
4523: hr_utility.set_location('l_elig_per_id '||l_elig_per_id, 889);
4524: hr_utility.set_location('l_object_version_number '||l_object_version_number, 889);
4525: hr_utility.set_location('l_effective_dt '||l_effective_dt, 889);
4526: end if;
4527:
4520:
4521: if g_debug then
4522: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 889);
4523: hr_utility.set_location('l_elig_per_id '||l_elig_per_id, 889);
4524: hr_utility.set_location('l_object_version_number '||l_object_version_number, 889);
4525: hr_utility.set_location('l_effective_dt '||l_effective_dt, 889);
4526: end if;
4527:
4528: dt_api.find_dt_upd_modes
4521: if g_debug then
4522: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 889);
4523: hr_utility.set_location('l_elig_per_id '||l_elig_per_id, 889);
4524: hr_utility.set_location('l_object_version_number '||l_object_version_number, 889);
4525: hr_utility.set_location('l_effective_dt '||l_effective_dt, 889);
4526: end if;
4527:
4528: dt_api.find_dt_upd_modes
4529: (p_effective_date => l_effective_dt,
4535: p_update_override => l_update_override,
4536: p_update_change_insert => l_update_change_insert);
4537:
4538: if g_debug then
4539: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn DTAPI_FDUM ', 10);
4540: end if;
4541:
4542: if l_update_override then
4543: l_datetrack_mode := hr_api.g_update_override;
4542: if l_update_override then
4543: l_datetrack_mode := hr_api.g_update_override;
4544:
4545: if g_debug then
4546: hr_utility.set_location('ben_elig_per_f l_datetrack_mode '|| l_datetrack_mode, 777);
4547: end if;
4548:
4549: elsif l_update then
4550: l_datetrack_mode := hr_api.g_update;
4549: elsif l_update then
4550: l_datetrack_mode := hr_api.g_update;
4551:
4552: if g_debug then
4553: hr_utility.set_location('ben_elig_per_f l_datetrack_mode '|| l_datetrack_mode, 777);
4554: end if;
4555:
4556: else
4557: l_datetrack_mode := hr_api.g_correction;
4556: else
4557: l_datetrack_mode := hr_api.g_correction;
4558:
4559: if g_debug then
4560: hr_utility.set_location('ben_elig_per_f l_datetrack_mode '|| l_datetrack_mode, 777);
4561: end if;
4562:
4563: end if;
4564:
4562:
4563: end if;
4564:
4565:
4566: hr_utility.set_location('l_per_in_ler_id'||l_per_in_ler_id,112);
4567: hr_utility.set_location('l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
4568: hr_utility.set_location('p_ler_id '|| p_ler_id,112);
4569:
4570: IF l_datetrack_mode = hr_api.g_correction AND
4563: end if;
4564:
4565:
4566: hr_utility.set_location('l_per_in_ler_id'||l_per_in_ler_id,112);
4567: hr_utility.set_location('l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
4568: hr_utility.set_location('p_ler_id '|| p_ler_id,112);
4569:
4570: IF l_datetrack_mode = hr_api.g_correction AND
4571: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
4564:
4565:
4566: hr_utility.set_location('l_per_in_ler_id'||l_per_in_ler_id,112);
4567: hr_utility.set_location('l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
4568: hr_utility.set_location('p_ler_id '|| p_ler_id,112);
4569:
4570: IF l_datetrack_mode = hr_api.g_correction AND
4571: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
4572:
4588:
4589: open c_prev_pil(p_pil_row.per_in_ler_id);
4590: fetch c_prev_pil into l_prev_pil_id;
4591: close c_prev_pil;
4592: hr_utility.set_location('l_prev_pil_id ' || l_prev_pil_id, 7776);
4593:
4594: open c_elig_rec(l_elig_per_id,l_prev_per_in_ler_id);
4595: fetch c_elig_rec into l_elig_per_rec;
4596: close c_elig_rec;
4623: --
4624: END IF;
4625: /* End of Bug 9020962 */
4626:
4627: hr_utility.set_location('Updating pep with l_per_in_ler_id'||l_per_in_ler_id,112);
4628:
4629: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
4630: (p_validate => FALSE,
4631: p_elig_per_id => l_elig_per_id,
4680: p_program_update_date => sysdate);
4681: --
4682:
4683: if g_debug then
4684: hr_utility.set_location('Dn Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
4685: end if;
4686:
4687: if p_score_tab.count > 0 then
4688: hr_utility.set_location('writing score records ',5.5);
4684: hr_utility.set_location('Dn Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
4685: end if;
4686:
4687: if p_score_tab.count > 0 then
4688: hr_utility.set_location('writing score records ',5.5);
4689: ben_elig_scre_wtg_api.load_score_weight
4690: (p_validate => false
4691: ,p_score_tab => p_score_tab
4692: ,p_per_in_ler_id => l_per_in_ler_id
4698:
4699: end if;
4700: --ICM
4701: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
4702: hr_utility.set_location('Building PEP1',214);
4703: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
4704: --
4705: l_count_icm := 1;
4706: --
4784: END IF;
4785: --ICM
4786: end if;
4787:
4788: hr_utility.set_location('still eligibility true ',100);
4789: --bug#4960082
4790:
4791: if p_plip_id is not null then
4792: open c_get_pl_id(nvl(l_fonm_cvg_strt_dt,p_effective_date));
4837: return;
4838: --
4839: elsif l_elig_per_elig_flag = 'N' and p_elig_flag then --d
4840: -- person is newly elig
4841: hr_utility.set_location('new elig',23);
4842: l_newly_elig := true;
4843: l_start_or_end := 'S';
4844: fnd_message.set_name('BEN','BEN_91346_ELIG_PREV_NOT_ELIG');
4845: benutils.write(p_text => fnd_message.get);
4853: --
4854: end if; --a2
4855: --
4856: if g_debug then
4857: hr_utility.set_location('Call GSED 2 ben_determine_eligibility2.check_prev_elig', 10);
4858: end if;
4859: --
4860: get_start_end_dates
4861: (p_comp_obj_tree_row => p_comp_obj_tree_row
4877: ,p_prtn_eff_end_dt => l_prtn_eff_end_dt
4878: );
4879: --
4880: if g_debug then
4881: hr_utility.set_location('Done GSED 2 ben_determine_eligibility2.check_prev_elig', 10);
4882: --
4883: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
4884: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
4885: end if;
4879: --
4880: if g_debug then
4881: hr_utility.set_location('Done GSED 2 ben_determine_eligibility2.check_prev_elig', 10);
4882: --
4883: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
4884: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
4885: end if;
4886: --
4887: -- compute end date plus one.
4880: if g_debug then
4881: hr_utility.set_location('Done GSED 2 ben_determine_eligibility2.check_prev_elig', 10);
4882: --
4883: hr_utility.set_location(' l_prtn_eff_strt_dt : ' ||l_prtn_eff_strt_dt, 10);
4884: hr_utility.set_location(' l_prtn_eff_end_dt : ' ||l_prtn_eff_end_dt, 10);
4885: end if;
4886: --
4887: -- compute end date plus one.
4888: --
4897: end if;
4898: --
4899: if l_first_elig then --c
4900: --
4901: hr_utility.set_location ('first elig',121);
4902: if instr(ben_manage_life_events.g_output_string,
4903: 'Elg:') = 0 then
4904: --
4905: ben_manage_life_events.g_output_string :=
4954: greatest(nvl(l_prtn_st_dt_aftr_wtg,hr_api.g_sot),l_prtn_eff_strt_dt);
4955: --
4956: end if;
4957: --
4958: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
4959: l_prtn_eff_strt_dt, 10);
4960: --
4961: if (p_pgm_id is not null or l_envpgm_id is not null) and
4962: p_pl_id is not null then
4974: --
4975: end if;
4976: --
4977: if g_debug then
4978: hr_utility.set_location('l_prtn_eff_strt_dt -> '||l_prtn_eff_strt_dt, 123);
4979: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Fir El Cre PEP ', 10);
4980: end if;
4981: --
4982: l_elig_flag := 'Y';
4975: end if;
4976: --
4977: if g_debug then
4978: hr_utility.set_location('l_prtn_eff_strt_dt -> '||l_prtn_eff_strt_dt, 123);
4979: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Fir El Cre PEP ', 10);
4980: end if;
4981: --
4982: l_elig_flag := 'Y';
4983: l_prtn_strt_dt := l_prtn_eff_strt_dt;
5059: ,p_override_validation => TRUE);
5060: --
5061: --ICM
5062: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
5063: hr_utility.set_location('Building PEP2',214);
5064: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
5065: --
5066: l_count_icm := 1;
5067: --
5145: --
5146: END IF;
5147: --ICM
5148: if g_debug then
5149: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn Cre PEP Fir El ', 10);
5150: end if;
5151: --
5152: if p_score_tab.count > 0 then
5153: hr_utility.set_location('writing score records ',5.5);
5149: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn Cre PEP Fir El ', 10);
5150: end if;
5151: --
5152: if p_score_tab.count > 0 then
5153: hr_utility.set_location('writing score records ',5.5);
5154: ben_elig_scre_wtg_api.load_score_weight
5155: (p_validate => false
5156: ,p_score_tab => p_score_tab
5157: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
5159: ,p_elig_per_id => l_elig_per_id);
5160: end if;
5161: elsif l_still_elig then --c
5162: --
5163: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig l_still_elig ', 10);
5164: if instr(ben_manage_life_events.g_output_string,
5165: 'Elg:') = 0 then
5166: --
5167: ben_manage_life_events.g_output_string :=
5174: -- if the previous row's start date is greater than or equal the computed
5175: -- start date, then they never really became ineligible. Go find
5176: -- another start elig date to use.
5177: --
5178: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig DTAPI_FDUM ', 10);
5179: dt_api.find_dt_upd_modes
5180: (-- p_effective_date => p_effective_date,
5181: --
5182: -- Bugs : 1412882, part of bug 1412951
5189: p_correction => l_correction,
5190: p_update => l_update,
5191: p_update_override => l_update_override,
5192: p_update_change_insert => l_update_change_insert);
5193: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig Dn DTAPI_FDUM ', 10);
5194: --
5195: if l_update_override then
5196: --
5197: l_datetrack_mode := hr_api.g_update_override;
5212: if l_wait_perd_cmpltn_dt is not null then
5213: --
5214: -- Apply the participation start date code to the l_wait_perd_cmpltn_dt
5215: --
5216: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig GET_PSDAWTG ', 10);
5217: l_prtn_st_dt_aftr_wtg :=
5218: ben_determine_eligibility3.get_prtn_st_dt_aftr_wtg
5219: (p_person_id => p_person_id,
5220: p_effective_date => p_effective_date,
5228: p_oipl_id => p_oipl_id,
5229: p_plip_id => p_plip_id,
5230: p_ptip_id => p_ptip_id,
5231: p_opt_id => l_oipl_rec.opt_id);
5232: hr_utility.set_location('ben_determine_eligibility2.check_prev_elig GET_PSDAWTG ', 10);
5233: --
5234: -- Use the later of the l_after_wtg_prtn_dt and l_prtn_eff_strt_dt
5235: -- for the participation start date.
5236: --
5238: ,l_prtn_eff_strt_dt);
5239: --
5240: end if;
5241: --
5242: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
5243: l_prtn_eff_strt_dt, 10);
5244: --
5245: hr_utility.set_location('Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5246: hr_utility.set_location('elig per id'||l_elig_per_id,111);
5241: --
5242: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
5243: l_prtn_eff_strt_dt, 10);
5244: --
5245: hr_utility.set_location('Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5246: hr_utility.set_location('elig per id'||l_elig_per_id,111);
5247: hr_utility.set_location('object version number'||l_object_version_number,112);
5248: --
5249: l_elig_flag := 'Y';
5242: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
5243: l_prtn_eff_strt_dt, 10);
5244: --
5245: hr_utility.set_location('Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5246: hr_utility.set_location('elig per id'||l_elig_per_id,111);
5247: hr_utility.set_location('object version number'||l_object_version_number,112);
5248: --
5249: l_elig_flag := 'Y';
5250: l_prtn_strt_dt := l_prtn_eff_strt_dt;
5243: l_prtn_eff_strt_dt, 10);
5244: --
5245: hr_utility.set_location('Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5246: hr_utility.set_location('elig per id'||l_elig_per_id,111);
5247: hr_utility.set_location('object version number'||l_object_version_number,112);
5248: --
5249: l_elig_flag := 'Y';
5250: l_prtn_strt_dt := l_prtn_eff_strt_dt;
5251: --
5249: l_elig_flag := 'Y';
5250: l_prtn_strt_dt := l_prtn_eff_strt_dt;
5251: --
5252: --
5253: hr_utility.set_location('SARKAR l_per_in_ler_id'||l_per_in_ler_id,112);
5254: hr_utility.set_location('SARKAR l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
5255: hr_utility.set_location('SARKAR p_ler_id '|| p_ler_id,112);
5256: IF l_datetrack_mode = hr_api.g_correction AND
5257: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
5250: l_prtn_strt_dt := l_prtn_eff_strt_dt;
5251: --
5252: --
5253: hr_utility.set_location('SARKAR l_per_in_ler_id'||l_per_in_ler_id,112);
5254: hr_utility.set_location('SARKAR l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
5255: hr_utility.set_location('SARKAR p_ler_id '|| p_ler_id,112);
5256: IF l_datetrack_mode = hr_api.g_correction AND
5257: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
5258: --
5251: --
5252: --
5253: hr_utility.set_location('SARKAR l_per_in_ler_id'||l_per_in_ler_id,112);
5254: hr_utility.set_location('SARKAR l_prev_per_in_ler_id'|| l_prev_per_in_ler_id,112);
5255: hr_utility.set_location('SARKAR p_ler_id '|| p_ler_id,112);
5256: IF l_datetrack_mode = hr_api.g_correction AND
5257: l_per_in_ler_id <> NVL(l_prev_per_in_ler_id,-1) THEN
5258: --
5259: ben_determine_eligibility3.save_to_restore
5272: --
5273: open c_prev_pil(p_pil_row.per_in_ler_id);
5274: fetch c_prev_pil into l_prev_pil_id;
5275: close c_prev_pil;
5276: hr_utility.set_location('l_prev_pil_id ' || l_prev_pil_id, 7777);
5277:
5278: open c_elig_rec(l_elig_per_id,l_prev_per_in_ler_id);
5279: fetch c_elig_rec into l_elig_per_rec;
5280: close c_elig_rec;
5307: --
5308: END IF;
5309: /* End of Bug 9020962 */
5310: --
5311: hr_utility.set_location('SARKAR updating pep with l_per_in_ler_id'||l_per_in_ler_id,112);
5312: --
5313: l_p_object_version_number := l_object_version_number;
5314: --
5315: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5370: p_program_update_date => sysdate);
5371: --ICM
5372: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
5373: --
5374: hr_utility.set_location('Building PEP3',214);
5375: --
5376: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
5377: --
5378: l_count_icm := 1;
5450: ben_icm_life_events.g_cache_pep_object(l_count_icm).pl_wvd_flag :='N';
5451: ben_icm_life_events.g_cache_pep_object(l_count_icm).person_id := p_person_id;
5452: --
5453: END IF;
5454: hr_utility.set_location('Dn Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5455: --
5456: if p_score_tab.count > 0 then
5457: hr_utility.set_location('writing score records ',5.5);
5458: ben_elig_scre_wtg_api.load_score_weight
5453: END IF;
5454: hr_utility.set_location('Dn Still El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5455: --
5456: if p_score_tab.count > 0 then
5457: hr_utility.set_location('writing score records ',5.5);
5458: ben_elig_scre_wtg_api.load_score_weight
5459: (p_validate => false
5460: ,p_score_tab => p_score_tab
5461: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
5463: ,p_elig_per_id => l_elig_per_id);
5464: end if;
5465: elsif l_newly_elig then --c
5466: --
5467: hr_utility.set_location('newly eligible',23);
5468: --
5469: l_p_object_version_number := l_object_version_number;
5470: --
5471: if instr(ben_manage_life_events.g_output_string,
5512: -- Call API to Update old inelig record with end date of computed
5513: -- start date - 1 (correction) unless the old inelig record has a
5514: -- start date greater than our computed start date.
5515: --
5516: hr_utility.set_location('elig per id'||l_elig_per_id,211);
5517: hr_utility.set_location('object version number'||l_object_version_number,212);
5518: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5519: (p_validate => FALSE,
5520: p_elig_per_id => l_elig_per_id,
5513: -- start date - 1 (correction) unless the old inelig record has a
5514: -- start date greater than our computed start date.
5515: --
5516: hr_utility.set_location('elig per id'||l_elig_per_id,211);
5517: hr_utility.set_location('object version number'||l_object_version_number,212);
5518: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5519: (p_validate => FALSE,
5520: p_elig_per_id => l_elig_per_id,
5521: p_effective_start_date => l_effective_start_date,
5593: ,l_prtn_eff_strt_dt);
5594: --
5595: end if;
5596: --
5597: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
5598: l_prtn_eff_strt_dt, 10);
5599: --
5600: hr_utility.set_location('New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5601: hr_utility.set_location('elig per id'||l_elig_per_id,311);
5596: --
5597: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
5598: l_prtn_eff_strt_dt, 10);
5599: --
5600: hr_utility.set_location('New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5601: hr_utility.set_location('elig per id'||l_elig_per_id,311);
5602: hr_utility.set_location('object version number'||l_object_version_number,312);
5603: --
5604: l_elig_flag := 'Y';
5597: hr_utility.set_location('Using prtn_eff_strt_dt : ' ||
5598: l_prtn_eff_strt_dt, 10);
5599: --
5600: hr_utility.set_location('New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5601: hr_utility.set_location('elig per id'||l_elig_per_id,311);
5602: hr_utility.set_location('object version number'||l_object_version_number,312);
5603: --
5604: l_elig_flag := 'Y';
5605: l_prtn_strt_dt := l_prtn_eff_strt_dt;
5598: l_prtn_eff_strt_dt, 10);
5599: --
5600: hr_utility.set_location('New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5601: hr_utility.set_location('elig per id'||l_elig_per_id,311);
5602: hr_utility.set_location('object version number'||l_object_version_number,312);
5603: --
5604: l_elig_flag := 'Y';
5605: l_prtn_strt_dt := l_prtn_eff_strt_dt;
5606: --
5624: --
5625: open c_prev_pil(p_pil_row.per_in_ler_id);
5626: fetch c_prev_pil into l_prev_pil_id;
5627: close c_prev_pil;
5628: hr_utility.set_location('l_prev_pil_id ' || l_prev_pil_id, 7778);
5629:
5630: open c_elig_rec(l_elig_per_id,l_prev_per_in_ler_id);
5631: fetch c_elig_rec into l_elig_per_rec;
5632: close c_elig_rec;
5716: p_request_id => fnd_global.conc_request_id,
5717: p_program_update_date => sysdate);
5718: --ICM
5719: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
5720: hr_utility.set_location('Building PEP5',214);
5721: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
5722: --
5723: l_count_icm := 1;
5724: --
5801: ben_icm_life_events.g_cache_pep_object(l_count_icm).person_id := p_person_id;
5802: --
5803: END IF;
5804: --ICM
5805: hr_utility.set_location('Dn New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5806: --
5807: if p_score_tab.count > 0 then
5808: hr_utility.set_location('writing score records ',5.5);
5809: ben_elig_scre_wtg_api.load_score_weight
5804: --ICM
5805: hr_utility.set_location('Dn New El Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5806: --
5807: if p_score_tab.count > 0 then
5808: hr_utility.set_location('writing score records ',5.5);
5809: ben_elig_scre_wtg_api.load_score_weight
5810: (p_validate => false
5811: ,p_score_tab => p_score_tab
5812: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
5814: ,p_elig_per_id => l_elig_per_id);
5815: end if;
5816: elsif l_newly_inelig then --c
5817: --
5818: hr_utility.set_location ('newly inelig',121);
5819: --
5820: l_p_object_version_number := l_object_version_number;
5821: --
5822: if instr(ben_manage_life_events.g_output_string,
5856: -- If the previous row's start date is less than or equal the commputed
5857: -- they were eligible for at least a day. Update the old record with
5858: -- an end date in correction mode, then update (to create a new inelig
5859: -- record.
5860: hr_utility.set_location('elig per id'||l_elig_per_id,411);
5861: hr_utility.set_location('object version number'||l_object_version_number,412);
5862: hr_utility.set_location('l_elig_flag'|| l_elig_flag,412);
5863: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5864: (p_validate => FALSE,
5857: -- they were eligible for at least a day. Update the old record with
5858: -- an end date in correction mode, then update (to create a new inelig
5859: -- record.
5860: hr_utility.set_location('elig per id'||l_elig_per_id,411);
5861: hr_utility.set_location('object version number'||l_object_version_number,412);
5862: hr_utility.set_location('l_elig_flag'|| l_elig_flag,412);
5863: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5864: (p_validate => FALSE,
5865: p_elig_per_id => l_elig_per_id,
5858: -- an end date in correction mode, then update (to create a new inelig
5859: -- record.
5860: hr_utility.set_location('elig per id'||l_elig_per_id,411);
5861: hr_utility.set_location('object version number'||l_object_version_number,412);
5862: hr_utility.set_location('l_elig_flag'|| l_elig_flag,412);
5863: ben_Eligible_Person_perf_api.update_perf_Eligible_Person
5864: (p_validate => FALSE,
5865: p_elig_per_id => l_elig_per_id,
5866: p_effective_start_date => l_effective_start_date,
5874: p_program_id => fnd_global.conc_program_id,
5875: p_request_id => fnd_global.conc_request_id,
5876: p_program_update_date => sysdate);
5877: --
5878: hr_utility.set_location('Building epo cache1 10 : count ' || l_count_icm1,123);
5879: hr_utility.set_location('Building epo cache1 1'|| l_count_icm1,123);
5880: end if; --p
5881: --
5882: dt_api.find_dt_upd_modes
5875: p_request_id => fnd_global.conc_request_id,
5876: p_program_update_date => sysdate);
5877: --
5878: hr_utility.set_location('Building epo cache1 10 : count ' || l_count_icm1,123);
5879: hr_utility.set_location('Building epo cache1 1'|| l_count_icm1,123);
5880: end if; --p
5881: --
5882: dt_api.find_dt_upd_modes
5883: (-- p_effective_date => p_effective_date,
5909: end if;
5910: --
5911: -- Update pil_id also since new row added due to current pil
5912: --
5913: hr_utility.set_location('New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5914: hr_utility.set_location('elig per id'||l_elig_per_id,511);
5915: hr_utility.set_location('object version number'||l_object_version_number,512);
5916: --
5917: l_elig_flag := 'N';
5910: --
5911: -- Update pil_id also since new row added due to current pil
5912: --
5913: hr_utility.set_location('New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5914: hr_utility.set_location('elig per id'||l_elig_per_id,511);
5915: hr_utility.set_location('object version number'||l_object_version_number,512);
5916: --
5917: l_elig_flag := 'N';
5918: l_prtn_strt_dt := l_end_dt_plus_one;
5911: -- Update pil_id also since new row added due to current pil
5912: --
5913: hr_utility.set_location('New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
5914: hr_utility.set_location('elig per id'||l_elig_per_id,511);
5915: hr_utility.set_location('object version number'||l_object_version_number,512);
5916: --
5917: l_elig_flag := 'N';
5918: l_prtn_strt_dt := l_end_dt_plus_one;
5919: --
5938: --
5939: open c_prev_pil(p_pil_row.per_in_ler_id);
5940: fetch c_prev_pil into l_prev_pil_id;
5941: close c_prev_pil;
5942: hr_utility.set_location('l_prev_pil_id ' || l_prev_pil_id, 7779);
5943:
5944: open c_elig_rec(l_elig_per_id,l_prev_per_in_ler_id);
5945: fetch c_elig_rec into l_elig_per_rec;
5946: close c_elig_rec;
6030: p_program_update_date => sysdate,
6031: p_inelg_rsn_cd => p_inelg_rsn_cd);
6032: --ICM
6033: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
6034: hr_utility.set_location('Building PEP7',214);
6035: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
6036: --
6037: l_count_icm := 1;
6038: --
6114: ben_icm_life_events.g_cache_pep_object(l_count_icm).person_id := p_person_id;
6115: END IF;
6116: --
6117: --ICM
6118: hr_utility.set_location('Dn New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
6119: if p_score_tab.count > 0 then
6120: hr_utility.set_location('writing score records ',5.5);
6121: ben_elig_scre_wtg_api.load_score_weight
6122: (p_validate => false
6116: --
6117: --ICM
6118: hr_utility.set_location('Dn New InEl Upd PEP ben_determine_eligibility2.check_prev_elig', 10);
6119: if p_score_tab.count > 0 then
6120: hr_utility.set_location('writing score records ',5.5);
6121: ben_elig_scre_wtg_api.load_score_weight
6122: (p_validate => false
6123: ,p_score_tab => p_score_tab
6124: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
6176: --
6177: end if;
6178: elsif l_first_inelig then --c
6179: --
6180: hr_utility.set_location ('first inelig',121);
6181: if instr(ben_manage_life_events.g_output_string,
6182: 'Elg:') = 0 then
6183: --
6184: ben_manage_life_events.g_output_string :=
6194: close c_plip_ordr;
6195: elsif p_pgm_id is null and l_envpgm_id is null and p_pl_id is not null then
6196: l_plan_ordr_num := l_pl_rec.ordr_num;
6197: end if;
6198: hr_utility.set_location('Fir InEl Cre PEP ben_determine_eligibility2.check_prev_elig', 10);
6199: hr_utility.set_location('l_prtn_eff_strt_dt -> '||l_prtn_eff_strt_dt, 123);
6200: --
6201: l_elig_flag := 'N';
6202: l_prtn_strt_dt := l_end_dt_plus_one;
6195: elsif p_pgm_id is null and l_envpgm_id is null and p_pl_id is not null then
6196: l_plan_ordr_num := l_pl_rec.ordr_num;
6197: end if;
6198: hr_utility.set_location('Fir InEl Cre PEP ben_determine_eligibility2.check_prev_elig', 10);
6199: hr_utility.set_location('l_prtn_eff_strt_dt -> '||l_prtn_eff_strt_dt, 123);
6200: --
6201: l_elig_flag := 'N';
6202: l_prtn_strt_dt := l_end_dt_plus_one;
6203: --
6277: ,p_override_validation => TRUE
6278: );
6279: --ICM
6280: IF nvl(l_env_rec.mode_cd,'~') = 'D' THEN
6281: hr_utility.set_location('Building PEP8',214);
6282: IF NOT ben_icm_life_events.g_cache_pep_object.EXISTS(1) THEN
6283: --
6284: l_count_icm := 1;
6285: --
6362: ben_icm_life_events.g_cache_pep_object(l_count_icm).pl_hghly_compd_flag:= 'N';
6363: --
6364: END IF;
6365: --ICM
6366: hr_utility.set_location('Dn Fir InEl Cre PEP ben_determine_eligibility2.check_prev_elig', 10);
6367: --
6368: if p_score_tab.count > 0 then
6369: hr_utility.set_location('writing score records ',5.5);
6370: ben_elig_scre_wtg_api.load_score_weight
6365: --ICM
6366: hr_utility.set_location('Dn Fir InEl Cre PEP ben_determine_eligibility2.check_prev_elig', 10);
6367: --
6368: if p_score_tab.count > 0 then
6369: hr_utility.set_location('writing score records ',5.5);
6370: ben_elig_scre_wtg_api.load_score_weight
6371: (p_validate => false
6372: ,p_score_tab => p_score_tab
6373: ,p_per_in_ler_id => l_per_in_ler_id /* Bug 4438430 */
6378: --
6379: end if; --a if p_oipl_id is not null
6380: --
6381: if g_debug then
6382: hr_utility.set_location('Leaving : ben_determine_eligibility2.check_prev_elig', 10);
6383: end if;
6384: --
6385: -- Set eligbility transition states
6386: --