[Home] [Help]
1: package body ben_determine_eligibility2 as
2: /* $Header: bendete2.pkb 120.23 2011/12/14 11:01:34 usaraswa ship $ */
3: /*
4: +========================================================================+
5: | Copyright (c) 1997 Oracle Corporation |
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);
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;
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
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;
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
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: --
848: exception
849: when others then
850: fnd_message.set_name('BEN','BEN_91329_FORMULA_RETURN');
851: fnd_message.set_token('RL','prtn_eff_strt_dt_rl');
852: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
853: raise ben_manage_life_events.g_record_error;
854: end;
855: else
856: fnd_message.set_name('BEN','BEN_91342_UNKNOWN_CODE_1');
853: raise ben_manage_life_events.g_record_error;
854: end;
855: else
856: fnd_message.set_name('BEN','BEN_91342_UNKNOWN_CODE_1');
857: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
858: fnd_message.set_token('CODE1',l_prtn_eff_strt_dt_cd);
859: raise ben_manage_life_events.g_record_error ;
860: end if;
861:
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: --
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)
1057: exception
1058: when others then
1059: fnd_message.set_name('BEN','BEN_91329_FORMULA_RETURN');
1060: fnd_message.set_token('RL','prtn_eff_end_dt_rl');
1061: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
1062: raise ben_manage_life_events.g_record_error;
1063: end;
1064:
1065: else
1063: end;
1064:
1065: else
1066: fnd_message.set_name('BEN','BEN_91342_UNKNOWN_CODE_1');
1067: fnd_message.set_token('PROC','ben_determine_eligibility2.get_start_end_dates');
1068: fnd_message.set_token('CODE1',l_prtn_eff_end_dt_cd);
1069: raise ben_manage_life_events.g_record_error;
1070: end if;
1071: else
1069: raise ben_manage_life_events.g_record_error;
1070: end if;
1071: else
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:
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:
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);
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
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;
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: --
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;
2181: --
2182: else
2183: fnd_message.set_name('BEN','BEN_91006_INVALID_FLAG');
2184: fnd_message.set_token('FLAG','epo.elig_flag');
2185: fnd_message.set_token('PROC','ben_determine_eligibility2.check_prev_elig');
2186: raise ben_manage_life_events.g_record_error;
2187: --
2188: end if; --d
2189: --
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;
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: --
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;
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);
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
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,
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: --
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: --
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';
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: --
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
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;
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;
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);
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;
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;
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);
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: --
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';
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
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';
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
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';
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
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;
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
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: --
6401: p_comp_obj_tree_row.inelg_rsn_cd := p_inelg_rsn_cd; -- 2650247
6402: --
6403: end check_prev_elig;
6404: --
6405: end ben_determine_eligibility2;