[Home] [Help]
1: package body ben_determine_eligibility2 as
2: /* $Header: bendete2.pkb 120.17 2008/01/23 11:02:53 sallumwa ship $ */
3: /*
4: +========================================================================+
5: | Copyright (c) 1997 Oracle Corporation |
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);
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;
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
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;
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
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: --
835: exception
836: when others then
837: fnd_message.set_name('BEN','BEN_91329_FORMULA_RETURN');
838: fnd_message.set_token('RL','prtn_eff_strt_dt_rl');
839: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
840: raise ben_manage_life_events.g_record_error;
841: end;
842: else
843: fnd_message.set_name('BEN','BEN_91342_UNKNOWN_CODE_1');
840: raise ben_manage_life_events.g_record_error;
841: end;
842: else
843: fnd_message.set_name('BEN','BEN_91342_UNKNOWN_CODE_1');
844: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
845: fnd_message.set_token('CODE1',l_prtn_eff_strt_dt_cd);
846: raise ben_manage_life_events.g_record_error ;
847: end if;
848:
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: --
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)
1044: exception
1045: when others then
1046: fnd_message.set_name('BEN','BEN_91329_FORMULA_RETURN');
1047: fnd_message.set_token('RL','prtn_eff_end_dt_rl');
1048: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
1049: raise ben_manage_life_events.g_record_error;
1050: end;
1051:
1052: else
1050: end;
1051:
1052: else
1053: fnd_message.set_name('BEN','BEN_91342_UNKNOWN_CODE_1');
1054: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
1055: fnd_message.set_token('CODE1',l_prtn_eff_end_dt_cd);
1056: raise ben_manage_life_events.g_record_error;
1057: end if;
1058: else
1056: raise ben_manage_life_events.g_record_error;
1057: end if;
1058: else
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:
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:
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);
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
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;
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: --
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;
2087: --
2088: else
2089: fnd_message.set_name('BEN','BEN_91006_INVALID_FLAG');
2090: fnd_message.set_token('FLAG','epo.elig_flag');
2091: fnd_message.set_token('PROC','ben_determine_eligibility2.check_prev_elig');
2092: raise ben_manage_life_events.g_record_error;
2093: --
2094: end if; --d
2095: --
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;
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: --
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;
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);
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
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,
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: --
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: --
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';
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: --
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
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;
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;
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);
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;
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;
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);
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: --
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';
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
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';
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
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';
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
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;
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
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: --
5884: p_comp_obj_tree_row.inelg_rsn_cd := p_inelg_rsn_cd; -- 2650247
5885: --
5886: end check_prev_elig;
5887: --
5888: end ben_determine_eligibility2;