DBA Data[Home] [Help]

APPS.BEN_PREM_PRTT_CREDITS_MO dependencies on HR_UTILITY

Line 235: hr_utility.set_location ('Entering '||l_package,10);

231: l_effective_date date;
232: l_prem_val number;
233:
234: begin
235: hr_utility.set_location ('Entering '||l_package,10);
236: savepoint process_premium_credits;
237: -- p_effective_date is always the last day of the month this is being run
238: -- loop thru results that may have a credit required.
239: for l_results in c_results loop

Line 240: hr_utility.set_location ('loop l_results '||

236: savepoint process_premium_credits;
237: -- p_effective_date is always the last day of the month this is being run
238: -- loop thru results that may have a credit required.
239: for l_results in c_results loop
240: hr_utility.set_location ('loop l_results '||
241: to_char(l_results.prtt_enrt_rslt_id),12);
242:
243: l_rule_ret := 'Y';
244: if p_person_selection_rule_id is not null then

Line 245: hr_utility.set_location('found a person rule',14);

241: to_char(l_results.prtt_enrt_rslt_id),12);
242:
243: l_rule_ret := 'Y';
244: if p_person_selection_rule_id is not null then
245: hr_utility.set_location('found a person rule',14);
246: l_rule_ret := ben_batch_utils.person_selection_rule
247: (p_person_id => l_results.person_id
248: ,p_business_group_id => p_business_group_id
249: ,p_person_selection_rule_id=> p_person_selection_rule_id

Line 262: hr_utility.set_location('found a comp object rule',16);

258: end if;
259: end if;
260:
261: if l_rule_ret = 'Y' and p_comp_selection_rule_id is not null then
262: hr_utility.set_location('found a comp object rule',16);
263: if l_results.oipl_id is not null then
264: open c_opt(l_results.oipl_id);
265: fetch c_opt into l_opt;
266: close c_opt;

Line 303: hr_utility.set_location ('loop prems '||to_char(l_prems.prtt_prem_id),14);

299: -- loop thru the prtt_prems for the result
300: for l_prems in c_prems
301: (p_prtt_enrt_rslt_id => l_results.prtt_enrt_rslt_id
302: ,p_interim => l_interim) loop
303: hr_utility.set_location ('loop prems '||to_char(l_prems.prtt_prem_id),14);
304:
305: if (l_prems.prsptv_r_rtsptv_cd = 'RETRO'
306: and l_results.enrt_cvg_thru_dt < p_first_day_of_month) or
307: l_prems.prsptv_r_rtsptv_cd = 'PRO' or

Line 345: hr_utility.set_location ('py_only_flag = Y ',14);

341: 'DD-MM-YYYY');
342: end if;
343:
344: if l_prems.cr_lkbk_crnt_py_only_flag = 'Y' then
345: hr_utility.set_location ('py_only_flag = Y ',14);
346: -- don't go before the current plan year.
347: open c_pl_yr (p_pgm_id => l_results.pgm_id
348: ,p_pl_id => l_results.pl_id);
349: fetch c_pl_yr into l_pl_yr;

Line 358: hr_utility.set_location ('earliest date '||

354: end if;
355: end if;
356: close c_pl_yr;
357: end if;
358: hr_utility.set_location ('earliest date '||
359: to_char(l_earliest_date,'dd-mon-yyyy'),17);
360:
361: -- for each premium we loop thru, load the earliest date we want to
362: -- process a credit for.

Line 389: hr_utility.set_location ('process date '||

385:
386: loop
387: -- If month we are about to process is before the earliest month
388: -- we should process, then skip to next month.
389: hr_utility.set_location ('process date '||
390: to_char(l_process_date,'dd-mon-yyyy'),20);
391: if l_process_date >= l_earliest_date and
392: l_results.enrt_cvg_thru_dt <> last_day(l_process_date) then
393: open c_prem_by_mo

Line 402: hr_utility.set_location ('prem amt '||to_char(l_val),24);

398: fetch c_prem_by_mo into l_prem_by_mo;
399:
400: -- l_val is what they paid for the month in question
401: l_val := l_prem_by_mo.val;
402: hr_utility.set_location ('prem amt '||to_char(l_val),24);
403: if c_prem_by_mo%found then
404: hr_utility.set_location ('prem amt ',26);
405: -- this might be a partial credit for month where
406: -- cvg ended, unless cvg ended on last day of month.

Line 404: hr_utility.set_location ('prem amt ',26);

400: -- l_val is what they paid for the month in question
401: l_val := l_prem_by_mo.val;
402: hr_utility.set_location ('prem amt '||to_char(l_val),24);
403: if c_prem_by_mo%found then
404: hr_utility.set_location ('prem amt ',26);
405: -- this might be a partial credit for month where
406: -- cvg ended, unless cvg ended on last day of month.
407: -- Don't calc partial month for voided or backed out results,
408: -- credit the entire premium amt.

Line 424: hr_utility.set_location ('prem amt ',28);

420: )
421: and l_results.prtt_enrt_rslt_stat_cd is null
422: and l_results.enrt_cvg_strt_dt <= l_results.enrt_cvg_thru_dt then
423:
424: hr_utility.set_location ('prem amt ',28);
425: ben_prem_prtt_monthly.compute_partial_mo
426: (p_business_group_id => p_business_group_id
427: ,p_effective_date => p_effective_date
428: ,p_actl_prem_id => l_prems.actl_prem_id

Line 450: hr_utility.set_location ('debit amt '||to_char(l_prem_by_mo.val),28);

446: -- l_prems.std_prem_val when passed in was max premium he
447: -- could have paid. compute_partial returns what he should have
448: -- paid.
449: -- Convert this into a credit amount based on what he did pay.
450: hr_utility.set_location ('debit amt '||to_char(l_prem_by_mo.val),28);
451: hr_utility.set_location ('partial amt '||to_char(l_prems.std_prem_val),28);
452: l_val := l_prem_by_mo.val - l_prems.std_prem_val;
453: end if;
454: hr_utility.set_location ('credit amt '||to_char(l_val),28);

Line 451: hr_utility.set_location ('partial amt '||to_char(l_prems.std_prem_val),28);

447: -- could have paid. compute_partial returns what he should have
448: -- paid.
449: -- Convert this into a credit amount based on what he did pay.
450: hr_utility.set_location ('debit amt '||to_char(l_prem_by_mo.val),28);
451: hr_utility.set_location ('partial amt '||to_char(l_prems.std_prem_val),28);
452: l_val := l_prem_by_mo.val - l_prems.std_prem_val;
453: end if;
454: hr_utility.set_location ('credit amt '||to_char(l_val),28);
455:

Line 454: hr_utility.set_location ('credit amt '||to_char(l_val),28);

450: hr_utility.set_location ('debit amt '||to_char(l_prem_by_mo.val),28);
451: hr_utility.set_location ('partial amt '||to_char(l_prems.std_prem_val),28);
452: l_val := l_prem_by_mo.val - l_prems.std_prem_val;
453: end if;
454: hr_utility.set_location ('credit amt '||to_char(l_val),28);
455:
456: if l_val > 0 then
457: -- found a premium paid for this month, credit them.
458: -- Do not write negative credits!

Line 532: hr_utility.set_location ('Leaving '||l_package,99);

528:
529: if p_validate = 'Y' then
530: Rollback to process_premium_credits;
531: end if;
532: hr_utility.set_location ('Leaving '||l_package,99);
533: exception
534: when others then
535: l_error_text := sqlerrm;
536: hr_utility.set_location ('Fail in '||l_package,999);

Line 536: hr_utility.set_location ('Fail in '||l_package,999);

532: hr_utility.set_location ('Leaving '||l_package,99);
533: exception
534: when others then
535: l_error_text := sqlerrm;
536: hr_utility.set_location ('Fail in '||l_package,999);
537: hr_utility.set_location ('with error '||l_error_text,999);
538: fnd_message.raise_error;
539: end main;
540: end ben_prem_prtt_credits_mo;

Line 537: hr_utility.set_location ('with error '||l_error_text,999);

533: exception
534: when others then
535: l_error_text := sqlerrm;
536: hr_utility.set_location ('Fail in '||l_package,999);
537: hr_utility.set_location ('with error '||l_error_text,999);
538: fnd_message.raise_error;
539: end main;
540: end ben_prem_prtt_credits_mo;