[Home] [Help]
172: 11 Jul 99 mhoyes 115.36 - Added new trace messages.
173: - Removed + 0s from all cursors.
174: 12 Jul 99 jcarpent 115.37 - Added checks for backed out nocopy pil.
175: 13 Jul 99 mhoyes 115.38 - Added trace messages.
176: 20-JUL-99 Gperry 115.39 genutils -> benutils package rename.
177: 28-JUL-99 mhoyes 115.40 - Added trace messages.
178: - Removed product join from cursor
179: c_prev_elig_check.
180: 03-AUG-99 jcarpent 115.41 - changed prev_elig_check cursor to
242: start and end dates.
243: - Modified calls to
244: create_Elig_Person_Option to
245: create_perf_Elig_Person_Option.
246: 22-May-00 mhoyes 115.65 - Replaced benutils function call to get the
247: per in ler with a cache call.
248: 22-May-00 mhoyes 115.66 - Reduced cache calls in get start and end
249: dates by using passed in records.
250: 23-May-00 shdas 115.67 - bug5224 call ben_newly_inelig.main if inelig for
283: 01-Aug-01 kmahendr 115.82 - Plan not in programs not getting deenrolled on selection
284: mode-bug#1871579. nvl is used to return effective date
285: for least function in 3 places where it was not there before
286: 27-aug-01 tilak 115.83 bug:1949361 jurisdiction code is
287: derived inside benutils.formula.
288: 26-sep-01 tjesumic 115.84 wait_perd_Strt_dt added
289: 19-dec-01 pbodla 115.85 CWB Changes - Look for non comp potential
290: life events when waiting periods are defined.
291: 20-Dec-01 ikasire 115.86 added dbdrv lines
356: to ben_determine_eligibility3.
357: 30-Jan-06 mhoyes 115.118 Bug#4968123 - moved out cursors
358: to ben_determine_eligibility4.
359: 28-Jun-06 swjain 115.119 Bug 5331889 Added person_id param in call to
360: benutils.formula in procedure get_start_end_dates
361: 24-Jul-06 kmahendr 115.120 Bug#5404392-added ben_newly_ineligible call
362: in the case of first time ineligible.
363: 25-aug-06 ssarkar 115.121 bug# 5478994 - passed ler_id to update_perf_eligible_person
364: 11-Dec-06 rgajula 115.122 Bug 5682845 - passed the l_envplipid to the call to ben_pep_Cache.get_pilepo_dets.
430: l_envptip_id number;
431: l_envplip_id number;
432: l_envpl_id number;
433: l_env_rec ben_env_object.g_global_env_rec_type;
434: l_benmngle_parm_rec benutils.g_batch_param_rec;
435: --FONM
436: l_fonm_cvg_strt_dt DATE ;
437: --END FONM
438: --
458: --
459: -- if the mode is Personnel Action - the participation start date and end date needs to be
460: -- defaulted to Event and 1 day before event
461: ben_env_object.get(p_rec => l_env_rec);
462: benutils.get_batch_parameters(p_benefit_action_id => l_env_rec.benefit_action_id
463: ,p_rec => l_benmngle_parm_rec);
464: if l_benmngle_parm_rec.mode_cd = 'P' then
465: --
466: if p_start_or_end = 'S' then
805: l_oipl_rec := ben_cobj_cache.g_oipl_currow;
806: --
807: end if;
808: --
809: l_outputs := benutils.formula
810: (p_formula_id => l_prtn_eff_strt_dt_rl
811: ,p_effective_date => p_effective_date
812: ,p_business_group_id => p_business_group_id
813: ,p_assignment_id => l_ass_rec.assignment_id
1014: l_oipl_rec := ben_cobj_cache.g_oipl_currow;
1015: --
1016: end if;
1017: --
1018: l_outputs := benutils.formula
1019: (p_formula_id => l_prtn_eff_end_dt_rl
1020: ,p_effective_date => p_effective_date
1021: ,p_business_group_id => p_business_group_id
1022: ,p_assignment_id => l_ass_rec.assignment_id
1193: --END FONM
1194:
1195: -- iRec
1196: l_env_rec ben_env_object.g_global_env_rec_type;
1197: l_benmngle_parm_rec benutils.g_batch_param_rec;
1198: -- End iRec
1199: /* 4968123
1200: -- Cursor to check previous eligibility for plan/program.
1201: --
1466: end if;
1467: --
1468: -- iRec
1469: ben_env_object.get(p_rec => l_env_rec);
1470: benutils.get_batch_parameters( p_benefit_action_id => l_env_rec.benefit_action_id
1471: ,p_rec => l_benmngle_parm_rec);
1472: hr_utility.set_location('l_benmngle_parm_rec.mode_cd'||l_benmngle_parm_rec.mode_cd,125);
1473: -- iRec
1474: if ben_manage_life_events.fonm = 'Y'
1773: hr_utility.set_location ('oipl first elig',121);
1774: l_first_elig := true;
1775: l_start_or_end := 'S';
1776: fnd_message.set_name ('BEN','BEN_91385_FIRST_ELIG');
1777: benutils.write(p_text => fnd_message.get);
1778: --
1779: else
1780: --
1781: fnd_message.set_name ('BEN','BEN_92533_FIRST_INELIG2');
1778: --
1779: else
1780: --
1781: fnd_message.set_name ('BEN','BEN_92533_FIRST_INELIG2');
1782: benutils.write(p_text => fnd_message.get);
1783: -- only continue with program and call of api if we want to track
1784: -- inelig people.
1785: l_trk_inelig_per_flag := l_oipl_rec.trk_inelig_per_flag;
1786: --
1818: --
1819: if l_opt_elig_flag = 'Y' and p_elig_flag then --d
1820: -- Person still eligible, do nothing.
1821: fnd_message.set_name ('BEN','BEN_91345_ELIG_PREV_ELIG');
1822: benutils.write(p_text => fnd_message.get);
1823: --
1824: if instr(ben_manage_life_events.g_output_string,
1825: 'Elg:') = 0 then
1826: --
1842: hr_utility.set_location ('newly inelig',121);
1843: l_newly_inelig := true;
1844: l_start_or_end := 'E';
1845: fnd_message.set_name('BEN','BEN_91347_NOT_ELIG_PREV_ELIG');
1846: benutils.write(p_text => fnd_message.get);
1847: --
1848: elsif l_opt_elig_flag = 'N' and p_elig_flag = false then --d
1849: -- person is still inelig, do nothing.
1850: fnd_message.set_name('BEN','BEN_91348_NOT_ELIG_PREV_NT_ELG');
1847: --
1848: elsif l_opt_elig_flag = 'N' and p_elig_flag = false then --d
1849: -- person is still inelig, do nothing.
1850: fnd_message.set_name('BEN','BEN_91348_NOT_ELIG_PREV_NT_ELG');
1851: benutils.write(p_text => fnd_message.get);
1852: --
1853: -- Set transition state for processing only. Elig
1854: -- per is not written
1855: --
2082: hr_utility.set_location('new elig',23);
2083: l_newly_elig := true;
2084: l_start_or_end := 'S';
2085: fnd_message.set_name('BEN','BEN_91346_ELIG_PREV_NOT_ELIG');
2086: benutils.write(p_text => fnd_message.get);
2087: --
2088: else
2089: fnd_message.set_name('BEN','BEN_91006_INVALID_FLAG');
2090: fnd_message.set_token('FLAG','epo.elig_flag');
4019: l_first_elig := true;
4020: hr_utility.set_location ('first elig',121);
4021: l_start_or_end := 'S';
4022: fnd_message.set_name ('BEN','BEN_91385_FIRST_ELIG');
4023: benutils.write(p_text => fnd_message.get);
4024: --
4025: else
4026: --
4027: hr_utility.set_location('elig is false ben_determine_eligibility2.check_prev_elig', 10);
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
4032: -- inelig people.
4033: --
4112: hr_utility.set_location ('still elig',121);
4113: -- Person still eligible, do nothing.
4114: --
4115: fnd_message.set_name ('BEN','BEN_91345_ELIG_PREV_ELIG');
4116: benutils.write(p_text => fnd_message.get);
4117: l_start_or_end := 'S';
4118: l_still_elig := true;
4119: --
4120: --return;
4124: hr_utility.set_location ('newly inelig',121);
4125: l_newly_inelig := true;
4126: l_start_or_end := 'E';
4127: fnd_message.set_name('BEN','BEN_91347_NOT_ELIG_PREV_ELIG');
4128: benutils.write(p_text => fnd_message.get);
4129: --
4130: elsif l_elig_per_elig_flag = 'N' and p_elig_flag = false then --d
4131: -- person is still inelig, do nothing.
4132: fnd_message.set_name('BEN','BEN_91348_NOT_ELIG_PREV_NT_ELG');
4129: --
4130: elsif l_elig_per_elig_flag = 'N' and p_elig_flag = false then --d
4131: -- person is still inelig, do nothing.
4132: fnd_message.set_name('BEN','BEN_91348_NOT_ELIG_PREV_NT_ELG');
4133: benutils.write(p_text => fnd_message.get);
4134: --
4135: -- Set transition state for processing only. Elig
4136: -- per is not written
4137: --
4465: hr_utility.set_location('new elig',23);
4466: l_newly_elig := true;
4467: l_start_or_end := 'S';
4468: fnd_message.set_name('BEN','BEN_91346_ELIG_PREV_NOT_ELIG');
4469: benutils.write(p_text => fnd_message.get);
4470: --
4471: else
4472: --
4473: fnd_message.set_name('BEN','BEN_91392_ELIG_FLAG_ERROR');