[Home] [Help]
347: procedure rpt_error(p_proc varchar2
348: ,p_last_action varchar2
349: ) is
350: Begin
351: hr_utility.set_location('>> Fail at ' || p_proc, 999);
352: hr_utility.set_location('>> ' || p_last_action, 999);
353: End rpt_error;
354: --
355: -- ==========================================================================
348: ,p_last_action varchar2
349: ) is
350: Begin
351: hr_utility.set_location('>> Fail at ' || p_proc, 999);
352: hr_utility.set_location('>> ' || p_last_action, 999);
353: End rpt_error;
354: --
355: -- ==========================================================================
356: -- << get_cvg_strt_dt >>
361: ,p_calc_cvg_strt_dt_cd in varchar2
362: ) return date is
363: l_proc varchar2(80) := g_package || '.get_cvg_strt_dt';
364: Begin
365: hr_utility.set_location('Entering ' || l_proc, 05);
366: hr_utility.set_location('Leaving ' || l_proc, 10);
367: End get_cvg_strt_dt;
368: --
369: -- ==========================================================================
362: ) return date is
363: l_proc varchar2(80) := g_package || '.get_cvg_strt_dt';
364: Begin
365: hr_utility.set_location('Entering ' || l_proc, 05);
366: hr_utility.set_location('Leaving ' || l_proc, 10);
367: End get_cvg_strt_dt;
368: --
369: -- ==========================================================================
370: -- << Get_cvg_end_dt >>
375: ,p_calc_cvg_end_dt_cd in varchar2
376: ) return date is
377: l_proc varchar2(80) := g_package || '.get_cvg_end_dt';
378: Begin
379: hr_utility.set_location('Entering ' || l_proc, 05);
380: hr_utility.set_location('Leaving ' || l_proc, 10);
381: End get_cvg_end_dt;
382: --
383: -- ----------------------------------------------------------------------------
376: ) return date is
377: l_proc varchar2(80) := g_package || '.get_cvg_end_dt';
378: Begin
379: hr_utility.set_location('Entering ' || l_proc, 05);
380: hr_utility.set_location('Leaving ' || l_proc, 10);
381: End get_cvg_end_dt;
382: --
383: -- ----------------------------------------------------------------------------
384: -- |---------------------< Get_DFLT_TO_ASN_PNDG_CTFN_CD >---------------------|
415: l_interim_enb_id number;
416: l_interim_bnft_amt number;
417: --
418: begin
419: hr_utility.set_location ('Entering '||l_proc,10);
420: --
421: -- Call formula initialise routine
422: --
423: l_step := 20;
422: --
423: l_step := 20;
424:
425: /******* added organization_id,business_group_id ,pgm_id,pl_id,pl_typ_id,opt_id,ler_id --shdas ***********/
426: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
427: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
428: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
429: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
430: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
423: l_step := 20;
424:
425: /******* added organization_id,business_group_id ,pgm_id,pl_id,pl_typ_id,opt_id,ler_id --shdas ***********/
426: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
427: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
428: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
429: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
430: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
431: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
424:
425: /******* added organization_id,business_group_id ,pgm_id,pl_id,pl_typ_id,opt_id,ler_id --shdas ***********/
426: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
427: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
428: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
429: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
430: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
431: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
432: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
425: /******* added organization_id,business_group_id ,pgm_id,pl_id,pl_typ_id,opt_id,ler_id --shdas ***********/
426: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
427: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
428: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
429: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
430: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
431: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
432: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
433: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
426: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
427: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
428: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
429: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
430: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
431: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
432: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
433: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
434: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
427: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
428: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
429: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
430: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
431: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
432: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
433: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
434: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
435:
428: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
429: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
430: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
431: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
432: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
433: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
434: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
435:
436: l_outputs := benutils.formula
429: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
430: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
431: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
432: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
433: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
434: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
435:
436: l_outputs := benutils.formula
437: (p_formula_id => p_dflt_to_asn_pndg_ctfn_rl
430: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
431: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
432: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
433: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
434: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
435:
436: l_outputs := benutils.formula
437: (p_formula_id => p_dflt_to_asn_pndg_ctfn_rl
438: ,p_effective_date => p_effective_date
458: l_return := l_outputs(l_outputs.last).value;
459: --Start Interim Rule Enhancement
460: if l_return is NULL then
461: --Invalid Rule
462: hr_utility.set_location('BEN_94600_NULL_RETURNED',80);
463: fnd_message.set_name('BEN','BEN_94600_NULL_RETURNED');
464: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
465: fnd_message.set_token('EPE_ID',to_char(p_elig_per_elctbl_chc_id));
466: fnd_message.raise_error;
490: p_interim_epe_id := l_interim_epe_id ;
491: -- p_interim_enb_id := l_interim_enb_id ;
492: p_interim_bnft_amt := l_interim_bnft_amt;
493: -- End Interim Rule enhancement
494: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
495: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
496: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
497: hr_utility.set_location('l_return '||l_return,111);
498: hr_utility.set_location ('Leaving '||l_proc,50);
491: -- p_interim_enb_id := l_interim_enb_id ;
492: p_interim_bnft_amt := l_interim_bnft_amt;
493: -- End Interim Rule enhancement
494: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
495: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
496: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
497: hr_utility.set_location('l_return '||l_return,111);
498: hr_utility.set_location ('Leaving '||l_proc,50);
499: return l_return;
492: p_interim_bnft_amt := l_interim_bnft_amt;
493: -- End Interim Rule enhancement
494: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
495: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
496: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
497: hr_utility.set_location('l_return '||l_return,111);
498: hr_utility.set_location ('Leaving '||l_proc,50);
499: return l_return;
500: Exception
493: -- End Interim Rule enhancement
494: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
495: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
496: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
497: hr_utility.set_location('l_return '||l_return,111);
498: hr_utility.set_location ('Leaving '||l_proc,50);
499: return l_return;
500: Exception
501: When others then
494: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
495: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
496: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
497: hr_utility.set_location('l_return '||l_return,111);
498: hr_utility.set_location ('Leaving '||l_proc,50);
499: return l_return;
500: Exception
501: When others then
502: hr_utility.set_location ('Fail in '||l_proc|| ' step in '||
498: hr_utility.set_location ('Leaving '||l_proc,50);
499: return l_return;
500: Exception
501: When others then
502: hr_utility.set_location ('Fail in '||l_proc|| ' step in '||
503: to_char(l_step),999);
504: fnd_message.raise_error;
505: End get_dflt_to_asn_pndg_ctfn_cd;
506: --
612: l_enb_count number ;
613: --
614: BEGIN
615: --
616: hr_utility.set_location('Entering ' || l_proc, 5);
617: --
618: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
619: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
620: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
614: BEGIN
615: --
616: hr_utility.set_location('Entering ' || l_proc, 5);
617: --
618: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
619: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
620: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
621: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
622: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
615: --
616: hr_utility.set_location('Entering ' || l_proc, 5);
617: --
618: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
619: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
620: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
621: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
622: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
623: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
616: hr_utility.set_location('Entering ' || l_proc, 5);
617: --
618: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
619: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
620: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
621: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
622: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
623: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
624: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
617: --
618: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
619: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
620: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
621: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
622: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
623: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
624: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
625: */
618: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
619: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
620: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
621: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
622: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
623: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
624: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
625: */
626: --
619: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
620: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
621: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
622: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
623: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
624: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
625: */
626: --
627: open c_epe(p_elig_per_elctbl_chc_id);
620: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
621: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
622: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
623: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
624: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
625: */
626: --
627: open c_epe(p_elig_per_elctbl_chc_id);
628: fetch c_epe into l_susp_epe ;
631: open c_epe(p_interim_elctbl_chc_id);
632: fetch c_epe into l_interim_epe ;
633: /* Bug 5225780 */
634: if c_epe%NOTFOUND or l_interim_epe.per_in_ler_id <> l_susp_epe.per_in_ler_id then
635: hr_utility.set_location('BEN_94628', 80);
636: fnd_message.set_name('BEN','BEN_94628_EPE_NOTIN_PIL');
637: fnd_message.set_token('PROC',l_proc);
638: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
639: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
646: --a. Validate EPE to be in the same plan type of suspending enrollment.
647: --
648: IF l_interim_epe.ptip_id <> l_susp_epe.ptip_id THEN
649: --
650: hr_utility.set_location('BEN_94601', 80);
651: fnd_message.set_name('BEN','BEN_94601_EPE_NOTIN_PTIP');
652: fnd_message.set_token('PROC',l_proc);
653: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
654: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
664: IF l_enb_count = 0 AND p_interim_bnft_amt IS NULL THEN
665: --
666: IF p_elig_per_elctbl_chc_id = p_interim_elctbl_chc_id THEN
667: --
668: hr_utility.set_location('BEN_94602_SM_AS_SSPND', 80);
669: fnd_message.set_name('BEN','BEN_94602_SM_AS_SSPND');
670: fnd_message.set_token('PROC',l_proc);
671: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
672: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
677: --
678: return;
679: ELSIF l_enb_count = 0 AND p_interim_bnft_amt IS NOT NULL THEN
680: --
681: hr_utility.set_location('BEN_94603_WHY_ENB_ID', 80);
682: fnd_message.set_name('BEN','BEN_94603_WHY_ENB_ID');
683: fnd_message.set_token('PROC',l_proc);
684: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
685: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
691: open c_enb(p_interim_elctbl_chc_id);
692: fetch c_enb into l_interim_enb ;
693: close c_enb;
694: --
695: hr_utility.set_location('l_interim_enb.enrt_bnft_id ' || l_interim_enb.enrt_bnft_id, 5);
696: --
697: IF p_elig_per_elctbl_chc_id <> p_interim_elctbl_chc_id AND
698: p_enrt_bnft_id <> l_interim_enb.enrt_bnft_id
699: THEN
707: close c_enb;
708: --
709: IF nvl(l_interim_enb.val,-1) > nvl(l_enb.val,-1)
710: THEN
711: hr_utility.set_location('BEN_94607_MORE_THAN_SSPND', 80);
712: fnd_message.set_name('BEN','BEN_94607_MORE_THAN_SSPND');
713: fnd_message.set_token('PROC',l_proc);
714: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
715: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
722: --Make sure Suspended and interim enb are same then throw the error.
723: IF p_elig_per_elctbl_chc_id = p_interim_elctbl_chc_id AND
724: p_enrt_bnft_id = l_interim_enb.enrt_bnft_id THEN
725: --
726: hr_utility.set_location('BEN_94602_SM_AS_SSPND', 80);
727: fnd_message.set_name('BEN','BEN_94602_SM_AS_SSPND');
728: fnd_message.set_token('PROC',l_proc);
729: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
730: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
738: return;
739: --
740: ELSIF l_enb_count > 1 AND p_interim_bnft_amt IS NULL THEN
741: --
742: hr_utility.set_location('BEN_94604_NO_ENB_ID', 80);
743: fnd_message.set_name('BEN','BEN_94604_NO_ENB_ID');
744: fnd_message.set_token('PROC',l_proc);
745: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
746: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
755: close c_pen;
756: --
757: IF p_interim_bnft_amt > l_pen.bnft_amt THEN
758: --
759: hr_utility.set_location('BEN_94607_MORE_THAN_SSPND', 80);
760: fnd_message.set_name('BEN','BEN_94607_MORE_THAN_SSPND');
761: fnd_message.set_token('PROC',l_proc);
762: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
763: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
778: fetch c_enb_rng into l_interim_enb;
779: IF c_enb_rng%NOTFOUND THEN
780: --
781: close c_enb_rng;
782: hr_utility.set_location('BEN_94606_INVALID_ENB_RNG', 80);
783: fnd_message.set_name('BEN','BEN_94606_INVALID_ENB_RNG');
784: fnd_message.set_token('PROC',l_proc);
785: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
786: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
792: --
793: IF l_interim_enb.elig_per_elctbl_chc_id = p_elig_per_elctbl_chc_id AND
794: l_interim_enb.enrt_bnft_id = p_enrt_bnft_id THEN
795: --
796: hr_utility.set_location('BEN_99602_SM_AS_SSPND', 80);
797: fnd_message.set_name('BEN','BEN_99602_SM_AS_SSPND');
798: fnd_message.set_token('PROC',l_proc);
799: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
800: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
815: l_interim_enrt_bnft_id := l_interim_enb_entr.enrt_bnft_id ;
816: --
817: IF p_interim_bnft_amt = l_pen.bnft_amt THEN
818: --
819: -- hr_utility.set_location('BEN_99602_SM_AS_SSPND', 80);
820: -- fnd_message.set_name('BEN','BEN_99602_SM_AS_SSPND');
821: -- message changed for Bug 5148514
822: hr_utility.set_location('BEN_94624_AMT_SM_SSPND', 80);
823: fnd_message.set_name('BEN','BEN_94624_AMT_SM_SSPND');
818: --
819: -- hr_utility.set_location('BEN_99602_SM_AS_SSPND', 80);
820: -- fnd_message.set_name('BEN','BEN_99602_SM_AS_SSPND');
821: -- message changed for Bug 5148514
822: hr_utility.set_location('BEN_94624_AMT_SM_SSPND', 80);
823: fnd_message.set_name('BEN','BEN_94624_AMT_SM_SSPND');
824: fnd_message.set_token('PROC',l_proc);
825: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
826: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
836: --
837: p_interim_enrt_bnft_id := l_interim_enrt_bnft_id;
838: -- p_interim_bnft_amt := l_interim_bnft_amt;
839: --
840: hr_utility.set_location('Leaving ' || l_proc, 10);
841: --
842: EXCEPTION
843: --
844: WHEN OTHERS THEN
842: EXCEPTION
843: --
844: WHEN OTHERS THEN
845: --
846: hr_utility.set_location('EXC : ' || substr(SQLERRM, 1, 50), 9999);
847: raise;
848: --
849: --
850: END validate_interim_rule;
1856: l_ctfn_rqd varchar2(30);
1857: l_cf_bnft c_cf_bnft%ROWTYPE;
1858: --
1859: Begin
1860: hr_utility.set_location('Entering ' || l_proc, 05);
1861: hr_utility.set_location('p_per_in_ler_id '||p_per_in_ler_id,10);
1862:
1863: -- set an output to null
1864: p_interim_bnft_amt := null;
1857: l_cf_bnft c_cf_bnft%ROWTYPE;
1858: --
1859: Begin
1860: hr_utility.set_location('Entering ' || l_proc, 05);
1861: hr_utility.set_location('p_per_in_ler_id '||p_per_in_ler_id,10);
1862:
1863: -- set an output to null
1864: p_interim_bnft_amt := null;
1865: --
1866: open c_get_lf_evt_ocrd_dt;
1867: fetch c_get_lf_evt_ocrd_dt into l_get_lf_evt_ocrd_dt;
1868: close c_get_lf_evt_ocrd_dt;
1869: --
1870: hr_utility.set_location('l_get_lf_evt_ocrd_dt '||l_get_lf_evt_ocrd_dt,23);
1871: hr_utility.set_location('p_ler_id'||p_ler_id,23);
1872: hr_utility.set_location('p_pl_id'||p_pl_id,23);
1873: hr_utility.set_location('p_prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id,23);
1874: --
1867: fetch c_get_lf_evt_ocrd_dt into l_get_lf_evt_ocrd_dt;
1868: close c_get_lf_evt_ocrd_dt;
1869: --
1870: hr_utility.set_location('l_get_lf_evt_ocrd_dt '||l_get_lf_evt_ocrd_dt,23);
1871: hr_utility.set_location('p_ler_id'||p_ler_id,23);
1872: hr_utility.set_location('p_pl_id'||p_pl_id,23);
1873: hr_utility.set_location('p_prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id,23);
1874: --
1875: For l_rec in c1(l_get_lf_evt_ocrd_dt) loop
1868: close c_get_lf_evt_ocrd_dt;
1869: --
1870: hr_utility.set_location('l_get_lf_evt_ocrd_dt '||l_get_lf_evt_ocrd_dt,23);
1871: hr_utility.set_location('p_ler_id'||p_ler_id,23);
1872: hr_utility.set_location('p_pl_id'||p_pl_id,23);
1873: hr_utility.set_location('p_prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id,23);
1874: --
1875: For l_rec in c1(l_get_lf_evt_ocrd_dt) loop
1876: if l_rec.order_no = 2 then
1869: --
1870: hr_utility.set_location('l_get_lf_evt_ocrd_dt '||l_get_lf_evt_ocrd_dt,23);
1871: hr_utility.set_location('p_ler_id'||p_ler_id,23);
1872: hr_utility.set_location('p_pl_id'||p_pl_id,23);
1873: hr_utility.set_location('p_prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id,23);
1874: --
1875: For l_rec in c1(l_get_lf_evt_ocrd_dt) loop
1876: if l_rec.order_no = 2 then
1877: l_BNFT_OR_OPTION_RSTRCTN_CD := l_rec.BNFT_OR_OPTION_RSTRCTN_CD;
1885: l_DFLT_TO_ASN_PNDG_CTFN_RL := l_rec.DFLT_TO_ASN_PNDG_CTFN_RL;
1886: End if;
1887: End loop;
1888: --
1889: hr_utility.set_location('l_DFLT_TO_ASN_PNDG_CTFN_CD'||l_DFLT_TO_ASN_PNDG_CTFN_CD,24);
1890: hr_utility.set_location('l_BNFT_OR_OPTION_RSTRCTN_CD'||l_BNFT_OR_OPTION_RSTRCTN_CD,24);
1891: --
1892: hr_utility.set_location(l_proc,10 );
1893: --
1886: End if;
1887: End loop;
1888: --
1889: hr_utility.set_location('l_DFLT_TO_ASN_PNDG_CTFN_CD'||l_DFLT_TO_ASN_PNDG_CTFN_CD,24);
1890: hr_utility.set_location('l_BNFT_OR_OPTION_RSTRCTN_CD'||l_BNFT_OR_OPTION_RSTRCTN_CD,24);
1891: --
1892: hr_utility.set_location(l_proc,10 );
1893: --
1894: -- If code is rule, get the real code by calling formula
1888: --
1889: hr_utility.set_location('l_DFLT_TO_ASN_PNDG_CTFN_CD'||l_DFLT_TO_ASN_PNDG_CTFN_CD,24);
1890: hr_utility.set_location('l_BNFT_OR_OPTION_RSTRCTN_CD'||l_BNFT_OR_OPTION_RSTRCTN_CD,24);
1891: --
1892: hr_utility.set_location(l_proc,10 );
1893: --
1894: -- If code is rule, get the real code by calling formula
1895: --
1896: If (l_DFLT_TO_ASN_PNDG_CTFN_CD = 'RL') then
1893: --
1894: -- If code is rule, get the real code by calling formula
1895: --
1896: If (l_DFLT_TO_ASN_PNDG_CTFN_CD = 'RL') then
1897: hr_utility.set_location(l_proc,20 );
1898:
1899: if p_elig_per_elctbl_chc_id is not null then
1900: hr_utility.set_location(l_proc, 30);
1901: open c_epe;
1896: If (l_DFLT_TO_ASN_PNDG_CTFN_CD = 'RL') then
1897: hr_utility.set_location(l_proc,20 );
1898:
1899: if p_elig_per_elctbl_chc_id is not null then
1900: hr_utility.set_location(l_proc, 30);
1901: open c_epe;
1902: fetch c_epe into l_epe;
1903: close c_epe;
1904: end if;
1901: open c_epe;
1902: fetch c_epe into l_epe;
1903: close c_epe;
1904: end if;
1905: hr_utility.set_location(l_proc, 40);
1906:
1907: if l_epe.oipl_id is not null then
1908: hr_utility.set_location(l_proc, 50);
1909: open c_opt;
1904: end if;
1905: hr_utility.set_location(l_proc, 40);
1906:
1907: if l_epe.oipl_id is not null then
1908: hr_utility.set_location(l_proc, 50);
1909: open c_opt;
1910: fetch c_opt into l_opt;
1911: close c_opt;
1912: end if;
1909: open c_opt;
1910: fetch c_opt into l_opt;
1911: close c_opt;
1912: end if;
1913: hr_utility.set_location(l_proc, 60);
1914: /* -- 4031733 - Cursor c_state populates l_state variable which is no longer
1915: -- used in the package. Cursor can be commented
1916: if p_person_id is not null then
1917: open c_state;
1922: -- l_jurisdiction_code :=
1923: -- pay_mag_utils.lookup_jurisdiction_code
1924: -- (p_state => l_state.region_2);
1925: -- end if;
1926: hr_utility.set_location(l_proc, 70);
1927: end if;
1928: */
1929: hr_utility.set_location(l_proc, 80);
1930:
1925: -- end if;
1926: hr_utility.set_location(l_proc, 70);
1927: end if;
1928: */
1929: hr_utility.set_location(l_proc, 80);
1930:
1931: open c_paf;
1932:
1933: fetch c_paf into l_assignment_id,l_organization_id;
1932:
1933: fetch c_paf into l_assignment_id,l_organization_id;
1934: if (c_paf%notfound) then
1935: close c_paf;
1936: hr_utility.set_location('BEN_91698_NO_ASSIGNMENT_FND', 80);
1937: fnd_message.set_name('BEN','BEN_91698_NO_ASSIGNMENT_FND');
1938: fnd_message.set_token('ID' , to_char(p_person_id));
1939: fnd_message.raise_error;
1940: end if;
1938: fnd_message.set_token('ID' , to_char(p_person_id));
1939: fnd_message.raise_error;
1940: end if;
1941: close c_paf;
1942: hr_utility.set_location(l_proc, 90);
1943:
1944:
1945: l_dflt_to_asn_pndg_ctfn_cd :=
1946: get_dflt_to_asn_pndg_ctfn_cd
1990: );
1991: --
1992: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd;
1993: --
1994: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
1995: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
1996: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
1997: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
1998: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
1991: --
1992: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd;
1993: --
1994: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
1995: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
1996: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
1997: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
1998: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
1999: hr_utility.set_location('Leaving ' || l_proc, 1888);
1992: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd;
1993: --
1994: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
1995: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
1996: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
1997: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
1998: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
1999: hr_utility.set_location('Leaving ' || l_proc, 1888);
2000: --
1993: --
1994: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
1995: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
1996: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
1997: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
1998: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
1999: hr_utility.set_location('Leaving ' || l_proc, 1888);
2000: --
2001: return;
1994: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
1995: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
1996: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
1997: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
1998: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
1999: hr_utility.set_location('Leaving ' || l_proc, 1888);
2000: --
2001: return;
2002: --
1995: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
1996: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
1997: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
1998: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
1999: hr_utility.set_location('Leaving ' || l_proc, 1888);
2000: --
2001: return;
2002: --
2003: END IF;
2001: return;
2002: --
2003: END IF;
2004: --
2005: hr_utility.set_location(l_proc, 100);
2006: End if;
2007:
2008: l_last_place:='Step 1';
2009: hr_utility.set_location(l_proc||l_DFLT_TO_ASN_PNDG_CTFN_CD, 120);
2005: hr_utility.set_location(l_proc, 100);
2006: End if;
2007:
2008: l_last_place:='Step 1';
2009: hr_utility.set_location(l_proc||l_DFLT_TO_ASN_PNDG_CTFN_CD, 120);
2010: --
2011: -- Char's 2/3 indicate whether we need to stay in what they were enrolled in
2012: -- if it's the same plan only (SE), or if it's just the same plan type (AS).
2013: l_intm_dfn_level := substr(l_DFLT_TO_ASN_PNDG_CTFN_CD,2,2);
2010: --
2011: -- Char's 2/3 indicate whether we need to stay in what they were enrolled in
2012: -- if it's the same plan only (SE), or if it's just the same plan type (AS).
2013: l_intm_dfn_level := substr(l_DFLT_TO_ASN_PNDG_CTFN_CD,2,2);
2014: hr_utility.set_location('l_intm_dfn_level '||l_intm_dfn_level,125);
2015:
2016: -- ikasire - 'AS' can have plans and also oipls. Why to restricts only to
2017: -- plans without options ? 'AS' is not for plan without options as per documentation.
2018: -- if we need to make any changes here that needs to be documented with Keith.
2029: --l_enrt_chc_id,
2030: -- RCHASE Bug#5353
2031: l_prtt_enrt_rslt_id;
2032: close c_current_enrt;
2033: hr_utility.set_location('l_enrt_chc_id: '||to_char(l_enrt_chc_id), 61);
2034: --
2035: -- Plan Type level interim coverage defintion.
2036: -- This is supposed to be defined for plans without options i.e.
2037: -- benefits are at plan level.
2047: else
2048: -- New Enrollment.
2049: l_interim_action:=substr(l_dflt_to_asn_pndg_ctfn_cd,7,2);
2050: end if;
2051: hr_utility.set_location('l_interim_action: '||l_interim_action, 62);
2052:
2053: elsif l_intm_dfn_level = 'SE' then
2054: -- This is Option or Benefits within a Plan Case
2055: open c_current_enrt(v_pl_id => p_pl_id,v_oipl_id => null );
2059: -- l_enrt_chc_id,
2060: -- RCHASE Bug#5353
2061: l_prtt_enrt_rslt_id;
2062: close c_current_enrt;
2063: hr_utility.set_location('l_enrt_chc_id: '||to_char(l_enrt_chc_id), 63);
2064: --
2065: -- Plan level interim coverage defintion.
2066: --
2067: if l_enrt_pl_id is not null then
2075: else
2076: -- New Enrollment.
2077: l_interim_action:=substr(l_dflt_to_asn_pndg_ctfn_cd,7,2);
2078: end if;
2079: hr_utility.set_location('l_interim_action: '||l_interim_action, 64);
2080: --
2081: elsif l_intm_dfn_level = 'SO' then
2082: -- This is Option or Benefits within a Plan Case
2083: open c_current_enrt(v_pl_id => p_pl_id,v_oipl_id => p_oipl_id );
2087: -- l_enrt_chc_id,
2088: -- RCHASE Bug#5353
2089: l_prtt_enrt_rslt_id;
2090: close c_current_enrt;
2091: hr_utility.set_location('l_enrt_chc_id: '||to_char(l_enrt_chc_id), 63);
2092: --
2093: -- Plan level interim coverage defintion.
2094: --
2095: if l_enrt_pl_id is not null then
2102: else
2103: -- New Enrollment.
2104: l_interim_action:=substr(l_dflt_to_asn_pndg_ctfn_cd,7,2);
2105: end if;
2106: hr_utility.set_location('l_interim_action: '||l_interim_action, 64);
2107: end if;
2108: hr_utility.set_location(l_proc, 180);
2109: l_last_place:='Step 3';
2110: --
2104: l_interim_action:=substr(l_dflt_to_asn_pndg_ctfn_cd,7,2);
2105: end if;
2106: hr_utility.set_location('l_interim_action: '||l_interim_action, 64);
2107: end if;
2108: hr_utility.set_location(l_proc, 180);
2109: l_last_place:='Step 3';
2110: --
2111: -- l_interim_action is either chars 4/5 (if prev enrt in same pl type was found)
2112: -- or chars 7/8 if no prev enrt in plan type was found.
2117: -- check with ddw as to which is correct.
2118: --
2119: --Carry Forward Certifcations,Suspended and Interim Enrollments logic
2120: --
2121: hr_utility.set_location('Before Checking CF Suspended Results',181);
2122: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2123: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2124: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2125: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2118: --
2119: --Carry Forward Certifcations,Suspended and Interim Enrollments logic
2120: --
2121: hr_utility.set_location('Before Checking CF Suspended Results',181);
2122: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2123: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2124: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2125: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2126: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2119: --Carry Forward Certifcations,Suspended and Interim Enrollments logic
2120: --
2121: hr_utility.set_location('Before Checking CF Suspended Results',181);
2122: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2123: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2124: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2125: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2126: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2127: --Bug 4463267
2120: --
2121: hr_utility.set_location('Before Checking CF Suspended Results',181);
2122: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2123: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2124: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2125: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2126: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2127: --Bug 4463267
2128: IF g_cfw_flag = 'Y' THEN
2121: hr_utility.set_location('Before Checking CF Suspended Results',181);
2122: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2123: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2124: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2125: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2126: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2127: --Bug 4463267
2128: IF g_cfw_flag = 'Y' THEN
2129: if l_currently_enrolled = 'Y' then
2122: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2123: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2124: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2125: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2126: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2127: --Bug 4463267
2128: IF g_cfw_flag = 'Y' THEN
2129: if l_currently_enrolled = 'Y' then
2130: --
2135: fetch c_cf_suspended into l_cf_suspended ;
2136: --
2137: if c_cf_suspended%found then
2138: l_cf_required := 'Y' ;
2139: hr_utility.set_location('l_cf_required := Y',181);
2140: end if;
2141: --
2142: close c_cf_suspended ;
2143: --
2142: close c_cf_suspended ;
2143: --
2144: if l_cf_required = 'Y' and l_cf_suspended.rplcs_sspndd_rslt_id IS NOT NULL then
2145: --
2146: hr_utility.set_location('Curr Interim '||l_cf_suspended.rplcs_sspndd_rslt_id,181);
2147: --
2148: open c_cf_interim(l_cf_suspended.rplcs_sspndd_rslt_id,p_per_in_ler_id);
2149: fetch c_cf_interim into l_cf_interim;
2150: close c_cf_interim ;
2151: --
2152: p_interim_elctbl_chc_id := l_cf_interim.elig_per_elctbl_chc_id ;
2153: p_interim_enrt_rslt_id := l_cf_suspended.rplcs_sspndd_rslt_id ;
2154: --
2155: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2156: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2157: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2158: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2159: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2152: p_interim_elctbl_chc_id := l_cf_interim.elig_per_elctbl_chc_id ;
2153: p_interim_enrt_rslt_id := l_cf_suspended.rplcs_sspndd_rslt_id ;
2154: --
2155: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2156: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2157: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2158: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2159: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2160: --
2153: p_interim_enrt_rslt_id := l_cf_suspended.rplcs_sspndd_rslt_id ;
2154: --
2155: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2156: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2157: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2158: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2159: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2160: --
2161: if l_cf_interim.elig_per_elctbl_chc_id is not null then
2154: --
2155: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2156: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2157: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2158: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2159: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2160: --
2161: if l_cf_interim.elig_per_elctbl_chc_id is not null then
2162: --
2155: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2156: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2157: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2158: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2159: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2160: --
2161: if l_cf_interim.elig_per_elctbl_chc_id is not null then
2162: --
2163: IF l_interim_action='SM' THEN
2180: --
2181: p_interim_bnft_amt := l_cf_bnft.bnft_amt;
2182: p_interim_enrt_bnft_id := l_cf_bnft.enrt_bnft_id;
2183: --
2184: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,182);
2185: hr_utility.set_location('p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,182);
2186: --
2187: end if;
2188: --
2181: p_interim_bnft_amt := l_cf_bnft.bnft_amt;
2182: p_interim_enrt_bnft_id := l_cf_bnft.enrt_bnft_id;
2183: --
2184: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,182);
2185: hr_utility.set_location('p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,182);
2186: --
2187: end if;
2188: --
2189: end if;
2192: end if;
2193: --
2194: END IF; --g_cfw_flag
2195: --
2196: hr_utility.set_location('After CF Suspended Results cf_required :'||l_cf_required ,181);
2197: --
2198: if l_cf_required = 'N' then
2199: --
2200: if l_interim_action='NT' then
2197: --
2198: if l_cf_required = 'N' then
2199: --
2200: if l_interim_action='NT' then
2201: hr_utility.set_location(l_proc, 190);
2202: -- No interim
2203: l_last_place:='Step 4';
2204: p_interim_elctbl_chc_id:=null;
2205: elsif l_interim_action='SM' then
2202: -- No interim
2203: l_last_place:='Step 4';
2204: p_interim_elctbl_chc_id:=null;
2205: elsif l_interim_action='SM' then
2206: hr_utility.set_location(l_proc, 200);
2207: --
2208: -- Interim is old enrollment
2209: l_last_place:='Step 5';
2210: --
2222: if l_cur_bnft.enrt_bnft_id is not null then
2223: p_interim_bnft_amt := l_cur_bnft.bnft_amt;
2224: p_interim_enrt_bnft_id := l_cur_bnft.enrt_bnft_id;
2225: end if;
2226: hr_utility.set_location(l_proc||'Got current Interim',12);
2227: else
2228: hr_utility.set_location(l_proc||'Not Current ',12);
2229: end if;
2230: --
2224: p_interim_enrt_bnft_id := l_cur_bnft.enrt_bnft_id;
2225: end if;
2226: hr_utility.set_location(l_proc||'Got current Interim',12);
2227: else
2228: hr_utility.set_location(l_proc||'Not Current ',12);
2229: end if;
2230: --
2231: elsif l_interim_action='MN' then
2232: hr_utility.set_location(l_proc, 210);
2228: hr_utility.set_location(l_proc||'Not Current ',12);
2229: end if;
2230: --
2231: elsif l_interim_action='MN' then
2232: hr_utility.set_location(l_proc, 210);
2233: -- interim is minimum order number
2234: l_last_place:='Step 6';
2235:
2236: -- Bug 1249901: if cvg is entered at enrollment, and interim-action is Minimum
2262: open c_min_bnft_epe ;
2263: fetch c_min_bnft_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2264: close c_min_bnft_epe ;
2265: l_last_place:='Step 6.4.1';
2266: hr_utility.set_location(' l_last_place '||l_last_place,122);
2267: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,122);
2268: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,122);
2269: else
2270: -- Option Restrictions case here
2263: fetch c_min_bnft_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2264: close c_min_bnft_epe ;
2265: l_last_place:='Step 6.4.1';
2266: hr_utility.set_location(' l_last_place '||l_last_place,122);
2267: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,122);
2268: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,122);
2269: else
2270: -- Option Restrictions case here
2271: hr_utility.set_location(l_proc, 220);
2264: close c_min_bnft_epe ;
2265: l_last_place:='Step 6.4.1';
2266: hr_utility.set_location(' l_last_place '||l_last_place,122);
2267: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,122);
2268: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,122);
2269: else
2270: -- Option Restrictions case here
2271: hr_utility.set_location(l_proc, 220);
2272: l_last_place:='Step 6.5.1';
2267: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,122);
2268: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,122);
2269: else
2270: -- Option Restrictions case here
2271: hr_utility.set_location(l_proc, 220);
2272: l_last_place:='Step 6.5.1';
2273: open c_min_pl_epe;
2274: fetch c_min_pl_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2275: close c_min_pl_epe;
2272: l_last_place:='Step 6.5.1';
2273: open c_min_pl_epe;
2274: fetch c_min_pl_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2275: close c_min_pl_epe;
2276: hr_utility.set_location(' l_last_place '||l_last_place,123);
2277: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,123);
2278: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,123);
2279:
2280: end if;
2273: open c_min_pl_epe;
2274: fetch c_min_pl_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2275: close c_min_pl_epe;
2276: hr_utility.set_location(' l_last_place '||l_last_place,123);
2277: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,123);
2278: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,123);
2279:
2280: end if;
2281: elsif l_intm_dfn_level in ( 'SE','SO') then
2274: fetch c_min_pl_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2275: close c_min_pl_epe;
2276: hr_utility.set_location(' l_last_place '||l_last_place,123);
2277: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,123);
2278: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,123);
2279:
2280: end if;
2281: elsif l_intm_dfn_level in ( 'SE','SO') then
2282: if l_bnft_or_option_rstrctn_cd='BNFT' then
2288: l_interim_enrt_bnft_id;
2289: close c_min_bnft_epe;
2290: p_interim_enrt_bnft_id:=l_interim_enrt_bnft_id;
2291: l_last_place:= 'Step 6.6.1';
2292: hr_utility.set_location(' l_last_place '||l_last_place,124);
2293: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,124);
2294: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,124);
2295: else
2296: --
2289: close c_min_bnft_epe;
2290: p_interim_enrt_bnft_id:=l_interim_enrt_bnft_id;
2291: l_last_place:= 'Step 6.6.1';
2292: hr_utility.set_location(' l_last_place '||l_last_place,124);
2293: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,124);
2294: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,124);
2295: else
2296: --
2297: -- Plan Level Option restrictions case
2290: p_interim_enrt_bnft_id:=l_interim_enrt_bnft_id;
2291: l_last_place:= 'Step 6.6.1';
2292: hr_utility.set_location(' l_last_place '||l_last_place,124);
2293: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,124);
2294: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,124);
2295: else
2296: --
2297: -- Plan Level Option restrictions case
2298: --
2295: else
2296: --
2297: -- Plan Level Option restrictions case
2298: --
2299: hr_utility.set_location(l_proc, 230);
2300: l_last_place:='Step 7';
2301: open c_min_oipl_epe;
2302: fetch c_min_oipl_epe into
2303: p_interim_elctbl_chc_id, p_interim_enrt_bnft_id;
2302: fetch c_min_oipl_epe into
2303: p_interim_elctbl_chc_id, p_interim_enrt_bnft_id;
2304: close c_min_oipl_epe;
2305: --
2306: hr_utility.set_location(' l_last_place '||l_last_place,125);
2307: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,125);
2308: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,125);
2309: end if;
2310: end if;
2303: p_interim_elctbl_chc_id, p_interim_enrt_bnft_id;
2304: close c_min_oipl_epe;
2305: --
2306: hr_utility.set_location(' l_last_place '||l_last_place,125);
2307: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,125);
2308: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,125);
2309: end if;
2310: end if;
2311: end if;
2304: close c_min_oipl_epe;
2305: --
2306: hr_utility.set_location(' l_last_place '||l_last_place,125);
2307: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,125);
2308: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,125);
2309: end if;
2310: end if;
2311: end if;
2312: hr_utility.set_location('p_interim_elctbl_chc_id: '||
2308: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,125);
2309: end if;
2310: end if;
2311: end if;
2312: hr_utility.set_location('p_interim_elctbl_chc_id: '||
2313: to_char(p_interim_elctbl_chc_id), 240);
2314: hr_utility.set_location('p_interim_enrt_bnft_id: '||
2315: to_char(p_interim_enrt_bnft_id), 240);
2316: hr_utility.set_location('p_interim_bnft_amt: '||
2310: end if;
2311: end if;
2312: hr_utility.set_location('p_interim_elctbl_chc_id: '||
2313: to_char(p_interim_elctbl_chc_id), 240);
2314: hr_utility.set_location('p_interim_enrt_bnft_id: '||
2315: to_char(p_interim_enrt_bnft_id), 240);
2316: hr_utility.set_location('p_interim_bnft_amt: '||
2317: to_char(p_interim_bnft_amt), 240);
2318: elsif l_interim_action='NL' then
2312: hr_utility.set_location('p_interim_elctbl_chc_id: '||
2313: to_char(p_interim_elctbl_chc_id), 240);
2314: hr_utility.set_location('p_interim_enrt_bnft_id: '||
2315: to_char(p_interim_enrt_bnft_id), 240);
2316: hr_utility.set_location('p_interim_bnft_amt: '||
2317: to_char(p_interim_bnft_amt), 240);
2318: elsif l_interim_action='NL' then
2319: hr_utility.set_location(l_proc, 250);
2320: -- Add Enter Value at enrollment Case
2315: to_char(p_interim_enrt_bnft_id), 240);
2316: hr_utility.set_location('p_interim_bnft_amt: '||
2317: to_char(p_interim_bnft_amt), 240);
2318: elsif l_interim_action='NL' then
2319: hr_utility.set_location(l_proc, 250);
2320: -- Add Enter Value at enrollment Case
2321: l_use_same_bnft := 'N';
2322: if p_elig_per_elctbl_chc_id is not null then
2323: open c_bnft;
2332: end if;
2333: if l_use_same_bnft = 'N'then -- This is NOT enter value at enrollment case
2334: -- interim is next lower order number
2335: if l_intm_dfn_level = 'AS' then
2336: hr_utility.set_location(l_proc, 255);
2337: if l_bnft_or_option_rstrctn_cd='BNFT' then
2338: --
2339: -- Add Benefit Restrictions case. We need to look for the
2340: -- Next lower benefit record for the suspended comp object only.
2355: end if;
2356: --
2357: elsif l_intm_dfn_level in ('SE','SO') then
2358: if l_bnft_or_option_rstrctn_cd='BNFT' then
2359: hr_utility.set_location(l_proc, 260);
2360: l_last_place:='Step 8';
2361: --
2362: -- Add Benefit Restrictions case. We need to look for the
2363: -- Next lower benefit record for the suspended comp object only.
2367: p_interim_elctbl_chc_id,
2368: p_interim_enrt_bnft_id;
2369: close c_next_lower_bnft_pl_epe;
2370: else
2371: hr_utility.set_location(l_proc, 270);
2372: l_last_place:='Step 9';
2373: open c_next_lower_pl_epe;
2374: fetch c_next_lower_pl_epe into
2375: p_interim_elctbl_chc_id, p_interim_enrt_bnft_id;
2376: close c_next_lower_pl_epe;
2377: end if;
2378: end if;
2379: end if;
2380: hr_utility.set_location(l_proc, 280);
2381: elsif l_interim_action='DF' then
2382: -- Added the Enter value at enrollment case to default
2383: l_use_same_bnft := 'N';
2384: if p_elig_per_elctbl_chc_id is not null then
2415: close c_default_epe;
2416: --
2417: end if;
2418:
2419: hr_utility.set_location(l_proc, 290);
2420: -- interim is default choice
2421: l_last_place:='Step 10';
2422: elsif l_intm_dfn_level in ('SE','SO') then
2423: --
2440: close c_default_pl_epe;
2441: --
2442: end if;
2443: --
2444: hr_utility.set_location(l_proc, 294);
2445: --
2446: end if;
2447: --
2448: end if;
2457: -- subsequent process (election information) to get the result id for the
2458: -- interim choice.
2459:
2460: -- if l_enrt_chc_id=p_interim_elctbl_chc_id then
2461: -- hr_utility.set_location('pen_id='||to_char(p_prtt_enrt_rslt_id), 9876);
2462: -- p_interim_enrt_rslt_id:=p_prtt_enrt_rslt_id;
2463: --else
2464: -- RCHASE Bug#5353 nullifying the p_interim_enrt_rslt_id will not allow for the
2465: -- previous election to be used as the interim. Removed null assignment.
2462: -- p_interim_enrt_rslt_id:=p_prtt_enrt_rslt_id;
2463: --else
2464: -- RCHASE Bug#5353 nullifying the p_interim_enrt_rslt_id will not allow for the
2465: -- previous election to be used as the interim. Removed null assignment.
2466: -- hr_utility.set_location(l_proc, 300);
2467: -- p_interim_enrt_rslt_id:=null;
2468: --end if;
2469: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd ;
2470: --
2467: -- p_interim_enrt_rslt_id:=null;
2468: --end if;
2469: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd ;
2470: --
2471: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2472: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2473: hr_utility.set_location('interim_action='||l_interim_action,999);
2474: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2475: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2468: --end if;
2469: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd ;
2470: --
2471: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2472: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2473: hr_utility.set_location('interim_action='||l_interim_action,999);
2474: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2475: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2476: hr_utility.set_location('Leaving ' || l_proc, 999);
2469: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd ;
2470: --
2471: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2472: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2473: hr_utility.set_location('interim_action='||l_interim_action,999);
2474: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2475: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2476: hr_utility.set_location('Leaving ' || l_proc, 999);
2477:
2470: --
2471: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2472: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2473: hr_utility.set_location('interim_action='||l_interim_action,999);
2474: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2475: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2476: hr_utility.set_location('Leaving ' || l_proc, 999);
2477:
2478: Exception
2471: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2472: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2473: hr_utility.set_location('interim_action='||l_interim_action,999);
2474: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2475: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2476: hr_utility.set_location('Leaving ' || l_proc, 999);
2477:
2478: Exception
2479: When others then
2472: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2473: hr_utility.set_location('interim_action='||l_interim_action,999);
2474: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2475: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2476: hr_utility.set_location('Leaving ' || l_proc, 999);
2477:
2478: Exception
2479: When others then
2480: hr_utility.set_location(l_proc, 320);
2476: hr_utility.set_location('Leaving ' || l_proc, 999);
2477:
2478: Exception
2479: When others then
2480: hr_utility.set_location(l_proc, 320);
2481: rpt_error (p_proc => l_proc, p_last_action => l_last_place);
2482: -- hr_utility.set_location('ERROR: '||sqlerrm,1);
2483: -- for nocopy changes
2484: p_interim_elctbl_chc_id := l_interim_elctbl_chc_id;
2478: Exception
2479: When others then
2480: hr_utility.set_location(l_proc, 320);
2481: rpt_error (p_proc => l_proc, p_last_action => l_last_place);
2482: -- hr_utility.set_location('ERROR: '||sqlerrm,1);
2483: -- for nocopy changes
2484: p_interim_elctbl_chc_id := l_interim_elctbl_chc_id;
2485: fnd_message.raise_error;
2486: End Determine_interim;
2572:
2573: -- for nocopy changes
2574: l_prtt_enrt_rslt_id number := p_prtt_enrt_rslt_id;
2575: Begin
2576: hr_utility.set_location ('Entering '|| l_proc,5);
2577: hr_utility.set_location('pen_id='||to_char(p_prtt_enrt_rslt_id), 1499);
2578: open c_epe;
2579: fetch c_epe into l_epe;
2580: If c_epe%notfound then
2573: -- for nocopy changes
2574: l_prtt_enrt_rslt_id number := p_prtt_enrt_rslt_id;
2575: Begin
2576: hr_utility.set_location ('Entering '|| l_proc,5);
2577: hr_utility.set_location('pen_id='||to_char(p_prtt_enrt_rslt_id), 1499);
2578: open c_epe;
2579: fetch c_epe into l_epe;
2580: If c_epe%notfound then
2581: close c_epe;
2578: open c_epe;
2579: fetch c_epe into l_epe;
2580: If c_epe%notfound then
2581: close c_epe;
2582: hr_utility.set_location('BEN_91457_ELCTBL_CHC_NOT_FOUND id:'||
2583: to_char(p_elig_per_elctbl_chc_id), 10);
2584: fnd_message.set_name('BEN','BEN_91457_ELCTBL_CHC_NOT_FOUND');
2585: fnd_message.set_token('ID', to_char(p_elig_per_elctbl_chc_id));
2586: fnd_message.set_token('PROC', '1:'||l_proc);
2598: l_bnft_amt := p_bnft_amt;
2599: l_bnft_id := p_enrt_bnft_id;
2600: end if;
2601: --
2602: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt,1234);
2603: hr_utility.set_location(' l_bnft_id '||l_bnft_id,1234);
2604: -- Initialize enrt_id_tbl and enrt_val_tbl, then load rate data
2605: --
2606: For i in 1..10 loop
2599: l_bnft_id := p_enrt_bnft_id;
2600: end if;
2601: --
2602: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt,1234);
2603: hr_utility.set_location(' l_bnft_id '||l_bnft_id,1234);
2604: -- Initialize enrt_id_tbl and enrt_val_tbl, then load rate data
2605: --
2606: For i in 1..10 loop
2607: l_rt(i).enrt_rt_id := NULL;
2617: End loop;
2618: l_suspend_flag := 'N';
2619: g_use_new_result:=true;
2620: --
2621: hr_utility.set_location('g_use_new_result',333);
2622: --
2623: --CFW. Same epe. Just needs to have the interim updated with the new pil
2624: --
2625: /*
2628: nvl(l_epe.oipl_id,-1) = nvl(l_epe.pen_oipl_id,-1) and
2629: l_epe.enrt_cvg_thru_dt = hr_api.g_eot then
2630: g_use_new_result:=false;
2631: --
2632: hr_utility.set_location('g_use_new_result false',333);
2633: --
2634: end if;
2635: */
2636: --
2693: ,P_BNF_ACTN_WARNING => l_dump_boolean
2694: ,P_CTFN_ACTN_WARNING => l_dump_boolean
2695: );
2696: g_use_new_result:=false;
2697: hr_utility.set_location ('Leaving '|| l_proc,99);
2698: Exception
2699: When others then
2700: hr_utility.set_location('ERROR '||l_proc, 98);
2701: rpt_error (p_proc => l_proc, p_last_action => l_last_place);
2696: g_use_new_result:=false;
2697: hr_utility.set_location ('Leaving '|| l_proc,99);
2698: Exception
2699: When others then
2700: hr_utility.set_location('ERROR '||l_proc, 98);
2701: rpt_error (p_proc => l_proc, p_last_action => l_last_place);
2702: -- for nocopy changes
2703: p_prtt_enrt_rslt_id := l_prtt_enrt_rslt_id;
2704: g_interim_flag := 'N'; -- bug 5653168
2751: -- for nocopy changes
2752: l_object_version_number number := p_object_version_number ;
2753:
2754: Begin
2755: hr_utility.set_location('Entering '||l_proc, 05);
2756:
2757: l_last_place := 'Calling get_ben_pen_upd_dt_mode';
2758: --
2759: hr_utility.set_location('p_datetrack_mode '||p_datetrack_mode,10);
2755: hr_utility.set_location('Entering '||l_proc, 05);
2756:
2757: l_last_place := 'Calling get_ben_pen_upd_dt_mode';
2758: --
2759: hr_utility.set_location('p_datetrack_mode '||p_datetrack_mode,10);
2760: --
2761: ben_prtt_enrt_result_api.get_ben_pen_upd_dt_mode
2762: (p_effective_date => p_effective_date
2763: ,p_base_key_value => p_prtt_enrt_rslt_id
2764: ,P_desired_datetrack_mode => p_datetrack_mode
2765: ,P_datetrack_allow => l_datetrack_mode
2766: );
2767: --
2768: hr_utility.set_location('l_datetrack_mode '||l_datetrack_mode,10);
2769: --
2770: l_last_place := 'Calling update_prtt_enrt_result';
2771: ben_prtt_enrt_result_api.update_prtt_enrt_result
2772: (p_validate => FALSE,
2842: ,p_warning => 'UNSUSPEND');
2843: end if;
2844: end if;
2845:
2846: hr_utility.set_location('Leaving:'||l_proc, 99);
2847: Exception
2848: When others then
2849: hr_utility.set_location('ERROR '||l_proc, 97);
2850: Rpt_error(p_proc => l_proc, p_last_action => l_last_place);
2845:
2846: hr_utility.set_location('Leaving:'||l_proc, 99);
2847: Exception
2848: When others then
2849: hr_utility.set_location('ERROR '||l_proc, 97);
2850: Rpt_error(p_proc => l_proc, p_last_action => l_last_place);
2851: -- for nocopy changes
2852: p_object_version_number := l_object_version_number ;
2853: fnd_message.raise_error;
3110: l_effective_start_date date;
3111: l_effective_end_date date;
3112: --
3113: begin
3114: hr_utility.set_location ('Entering '|| l_proc, 10);
3115: --
3116: -- Check all the input parameters are not null
3117: --
3118: hr_api.mandatory_arg_error
3141: Open Csr_prtt_enrt_rslt;
3142: Fetch Csr_prtt_enrt_rslt Into l_pen;
3143: If Csr_prtt_enrt_rslt%NOTFOUND Then
3144: Close Csr_prtt_enrt_rslt;
3145: hr_utility.set_location('BEN_91493_PEN_NOT_FOUND', 55);
3146: fnd_message.set_name('BEN','BEN_91493_PEN_NOT_FOUND');
3147: fnd_message.raise_error;
3148: End If;
3149: Close Csr_prtt_enrt_rslt;
3150: --bug#4172569 - if the comp object is already suspended then return
3151: --if more than one required action item then this procedure is called more
3152: --than one time
3153: if l_pen.sspndd_flag = 'Y' then
3154: hr_utility.set_location('Comp Object already suspended',56);
3155: hr_utility.set_location('Leaving '||l_proc,57);
3156: return;
3157: end if;
3158: --
3151: --if more than one required action item then this procedure is called more
3152: --than one time
3153: if l_pen.sspndd_flag = 'Y' then
3154: hr_utility.set_location('Comp Object already suspended',56);
3155: hr_utility.set_location('Leaving '||l_proc,57);
3156: return;
3157: end if;
3158: --
3159: if l_pen.prtt_enrt_rslt_id is not null then
3178: open c_interim (l_pen.prtt_enrt_rslt_id,l_pen.per_in_ler_id);
3179: fetch c_interim into l_rplcs_sspndd_rslt_id;
3180: close c_interim;
3181: --
3182: hr_utility.set_location ('Suspended result id'||l_pen.prtt_enrt_rslt_id,11);
3183: hr_utility.set_location ('interim result id'||l_rplcs_sspndd_rslt_id,12);
3184: if l_rplcs_sspndd_rslt_id is not null then
3185: l_pre_interim := true;
3186: else
3179: fetch c_interim into l_rplcs_sspndd_rslt_id;
3180: close c_interim;
3181: --
3182: hr_utility.set_location ('Suspended result id'||l_pen.prtt_enrt_rslt_id,11);
3183: hr_utility.set_location ('interim result id'||l_rplcs_sspndd_rslt_id,12);
3184: if l_rplcs_sspndd_rslt_id is not null then
3185: l_pre_interim := true;
3186: else
3187: l_pre_interim := false;
3213: ,p_interim_bnft_amt => l_interim_bnft_amt
3214: ,p_bnft_or_option_rstrctn_cd => l_bnft_or_option_rstrctn_cd
3215: );
3216: end if;
3217: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3218: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3219: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3220: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3221: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3214: ,p_bnft_or_option_rstrctn_cd => l_bnft_or_option_rstrctn_cd
3215: );
3216: end if;
3217: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3218: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3219: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3220: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3221: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3222: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3215: );
3216: end if;
3217: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3218: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3219: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3220: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3221: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3222: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3223: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3216: end if;
3217: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3218: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3219: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3220: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3221: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3222: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3223: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3224: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3217: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3218: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3219: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3220: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3221: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3222: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3223: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3224: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3225: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3218: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3219: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3220: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3221: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3222: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3223: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3224: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3225: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3226: --
3219: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3220: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3221: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3222: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3223: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3224: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3225: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3226: --
3227: /*ENH
3220: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3221: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3222: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3223: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3224: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3225: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3226: --
3227: /*ENH
3228: if ( p_prtt_enrt_rslt_id<>nvl(l_rplcs_sspndd_rslt_id,-1) or
3221: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3222: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3223: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3224: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3225: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3226: --
3227: /*ENH
3228: if ( p_prtt_enrt_rslt_id<>nvl(l_rplcs_sspndd_rslt_id,-1) or
3229: nvl(ben_election_information.g_enrt_bnft_id,-1) <> nvl(l_enrt_bnft_id,-1) or
3246: l_interim_epe_id is null -- No Interim Created But needs to be suspended
3247: )
3248: then
3249: --
3250: hr_utility.set_location('interim epe='||l_interim_epe_id,1066);
3251: hr_utility.set_location('suspended epe='||l_pen.elig_per_elctbl_chc_id,1066);
3252: --
3253: if l_interim_epe_id is not null then
3254: --
3247: )
3248: then
3249: --
3250: hr_utility.set_location('interim epe='||l_interim_epe_id,1066);
3251: hr_utility.set_location('suspended epe='||l_pen.elig_per_elctbl_chc_id,1066);
3252: --
3253: if l_interim_epe_id is not null then
3254: --
3255: -- the following two lines will cause a new result to be always written
3263: g_interim_flag := 'Y';
3264: --
3265: -- bug 6337803
3266: g_sspnded_rslt_id := p_prtt_enrt_rslt_id;
3267: hr_utility.set_location('p_prtt_enrt_rslt_id '|| p_prtt_enrt_rslt_id ,1212);
3268: hr_utility.set_location('g_sspnded_rslt_id '|| g_sspnded_rslt_id ,1212);
3269: process_interim
3270: (p_elig_per_elctbl_chc_id => l_interim_epe_id
3271: ,p_prtt_enrt_rslt_id => l_rplcs_sspndd_rslt_id
3264: --
3265: -- bug 6337803
3266: g_sspnded_rslt_id := p_prtt_enrt_rslt_id;
3267: hr_utility.set_location('p_prtt_enrt_rslt_id '|| p_prtt_enrt_rslt_id ,1212);
3268: hr_utility.set_location('g_sspnded_rslt_id '|| g_sspnded_rslt_id ,1212);
3269: process_interim
3270: (p_elig_per_elctbl_chc_id => l_interim_epe_id
3271: ,p_prtt_enrt_rslt_id => l_rplcs_sspndd_rslt_id
3272: ,p_enrt_bnft_id => l_enrt_bnft_id
3450: fetch c_pea into l_pea ;
3451: if c_pea%notfound then exit ;
3452: end if;
3453: --
3454: hr_utility.set_location('Updating the Required Flag to No ',5);
3455: hr_utility.set_location('Before Entering ben_prtt_enrt_actn_api.update_prtt_enrt_actn ' ,10);
3456: ben_prtt_enrt_actn_api.update_prtt_enrt_actn
3457: ( p_prtt_enrt_actn_id => l_pea.prtt_enrt_actn_id
3458: ,p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id
3451: if c_pea%notfound then exit ;
3452: end if;
3453: --
3454: hr_utility.set_location('Updating the Required Flag to No ',5);
3455: hr_utility.set_location('Before Entering ben_prtt_enrt_actn_api.update_prtt_enrt_actn ' ,10);
3456: ben_prtt_enrt_actn_api.update_prtt_enrt_actn
3457: ( p_prtt_enrt_actn_id => l_pea.prtt_enrt_actn_id
3458: ,p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id
3459: ,p_rslt_object_version_number => l_pea.pen_object_version_number
3469: ,p_effective_end_date => l_pea_effective_end_date
3470: ,p_object_version_number => l_pea.pea_object_version_number
3471: ,p_datetrack_mode => hr_api.g_correction
3472: );
3473: hr_utility.set_location('After ben_prtt_enrt_actn_api.update_prtt_enrt_actn ',20);
3474: --
3475: end loop ;
3476: close c_pea ;
3477: --
3475: end loop ;
3476: close c_pea ;
3477: --
3478: End If;
3479: hr_utility.set_location('Leaving:'||l_proc, 10);
3480: Exception
3481: When others then
3482: hr_utility.set_location('ERROR '||l_proc, 96);
3483: rpt_error(p_proc => l_proc, p_last_action => l_last_place);
3478: End If;
3479: hr_utility.set_location('Leaving:'||l_proc, 10);
3480: Exception
3481: When others then
3482: hr_utility.set_location('ERROR '||l_proc, 96);
3483: rpt_error(p_proc => l_proc, p_last_action => l_last_place);
3484: -- for nocopy changes
3485: p_object_version_number := l_object_version_number ;
3486: fnd_message.raise_error;
3831: l_enb_object_version_number number(15);
3832: l_previous_no_sspn boolean := false ;
3833: --END Bug 2958032
3834: Begin
3835: hr_utility.set_location('Entering:'||l_proc, 05);
3836: hr_utility.set_location('p_prtt_enrt_rslt_id:'||to_char(p_prtt_enrt_rslt_id), 05);
3837: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id, 05);
3838:
3839: --
3832: l_previous_no_sspn boolean := false ;
3833: --END Bug 2958032
3834: Begin
3835: hr_utility.set_location('Entering:'||l_proc, 05);
3836: hr_utility.set_location('p_prtt_enrt_rslt_id:'||to_char(p_prtt_enrt_rslt_id), 05);
3837: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id, 05);
3838:
3839: --
3840: -- Check all the input parameters are not null
3833: --END Bug 2958032
3834: Begin
3835: hr_utility.set_location('Entering:'||l_proc, 05);
3836: hr_utility.set_location('p_prtt_enrt_rslt_id:'||to_char(p_prtt_enrt_rslt_id), 05);
3837: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id, 05);
3838:
3839: --
3840: -- Check all the input parameters are not null
3841: --
3866: Open Csr_prtt_enrt_rslt(p_prtt_enrt_rslt_id);
3867: Fetch Csr_prtt_enrt_rslt Into l_pen;
3868: If Csr_prtt_enrt_rslt%NOTFOUND Then
3869: Close Csr_prtt_enrt_rslt;
3870: hr_utility.set_location('BEN_91493_PEN_NOT_FOUND ID:'|| to_char(p_prtt_enrt_rslt_id), 65);
3871: fnd_message.set_name('BEN','BEN_91493_PEN_NOT_FOUND');
3872: fnd_message.raise_error;
3873: End If;
3874: Close Csr_prtt_enrt_rslt;
3884: end if;
3885: if p_per_in_ler_id <> l_pen.per_in_ler_id then
3886: l_carry_forward := 'Y';
3887: end if;
3888: hr_utility.set_location('l_carry_forward '||l_carry_forward, 10);
3889: --
3890: -- Get the info on the per_in_ler if it exists
3891: --
3892: hr_utility.set_location('past Csr_prtt_enrt_rslt', 10);
3888: hr_utility.set_location('l_carry_forward '||l_carry_forward, 10);
3889: --
3890: -- Get the info on the per_in_ler if it exists
3891: --
3892: hr_utility.set_location('past Csr_prtt_enrt_rslt', 10);
3893: hr_utility.set_location('per in ler id '||l_per_in_ler_id, 10);
3894:
3895: open c_per_in_ler_info;
3896: fetch c_per_in_ler_info into
3889: --
3890: -- Get the info on the per_in_ler if it exists
3891: --
3892: hr_utility.set_location('past Csr_prtt_enrt_rslt', 10);
3893: hr_utility.set_location('per in ler id '||l_per_in_ler_id, 10);
3894:
3895: open c_per_in_ler_info;
3896: fetch c_per_in_ler_info into
3897: l_lf_evt_ocrd_dt,
3896: fetch c_per_in_ler_info into
3897: l_lf_evt_ocrd_dt,
3898: l_ler_id;
3899: close c_per_in_ler_info;
3900: hr_utility.set_location('past c_per_in_ler_info', 10);
3901: --
3902: --bug#3202455
3903: open c_previous_status;
3904: fetch c_previous_status into l_dummy;
3903: open c_previous_status;
3904: fetch c_previous_status into l_dummy;
3905: if c_previous_status%found then
3906: l_previous_no_sspn := true;
3907: hr_utility.set_location('l_previous_no_sspn',11);
3908: end if;
3909: close c_previous_status;
3910: If (nvl(l_pen.sspndd_flag, 'X') <> 'N' ) then
3911: --
3985: close c_unsspnd_enrt_cd;
3986: else
3987: l_unsspnd_enrt_cd:='ACD';
3988: end if;
3989: hr_utility.set_location('past c_unsspnd_enrt_cd', 10);
3990: --
3991: -- need choice info to recalc dates
3992: --
3993: open c_choice_info(p_prtt_enrt_rslt_id);
4000: l_epe_object_version_number ;
4001: --END Bug 2958032
4002: if c_choice_info%notfound then
4003: --
4004: hr_utility.set_location('BEN_91457_ELCTBL_CHC_NOT_FOUND rslt id:'||
4005: to_char(p_prtt_enrt_rslt_id), 75);
4006: fnd_message.set_name('BEN','BEN_91457_ELCTBL_CHC_NOT_FOUND');
4007: fnd_message.set_token('ID', 'NA');
4008: fnd_message.set_token('PROC', '2:'||l_proc);
4011: close c_choice_info;
4012: --
4013: If l_unsspnd_enrt_cd = 'ACD' then
4014: l_unsusp_cvg_start_date := p_effective_date;
4015: hr_utility.set_location('l_pen.enrt_cvg_strt_dt:'||l_pen.enrt_cvg_strt_dt, 60);
4016: Elsif l_unsspnd_enrt_cd = 'UEECSD' then
4017: --
4018: -- Use existing enrollments coverage start Date
4019: --
4053: );
4054: l_unsusp_cvg_start_date :=l_enrt_cvg_strt_dt;
4055: --
4056: else
4057: hr_utility.set_location('1 g_cmpltn dt'||p_cmpltd_dt,777);
4058:
4059: ben_determine_date.main
4060: (p_date_cd => l_unsspnd_enrt_cd
4061: ,p_formula_id => null
4071: ,p_returned_date => l_unsusp_cvg_start_date
4072: );
4073: End if;
4074: --
4075: hr_utility.set_location('2 l_unsusp_cvg_start_date'||l_unsusp_cvg_start_date,777);
4076:
4077: l_cvg_thru_dt := l_unsusp_cvg_start_date - 1 ;
4078: -- need choice info to recalc dates
4079: --
4123: l_datetrack_mode := hr_api.g_correction;
4124: Else
4125: l_datetrack_mode := hr_api.g_update;
4126: End if;
4127: hr_utility.set_location('l_cvg_thru_dt'||l_cvg_thru_dt,777);
4128: --
4129: Update_sspndd_flag
4130: (p_prtt_enrt_rslt_id => l_interim.prtt_enrt_rslt_id
4131: ,p_effective_date => p_effective_date
4163: close c_unsspnd_enrt_cd;
4164: else
4165: l_unsspnd_enrt_cd:='ACD';
4166: end if;
4167: hr_utility.set_location('past c_unsspnd_enrt_cd', 10);
4168: --
4169: -- need choice info to recalc dates
4170: --
4171: open c_choice_info(p_prtt_enrt_rslt_id);
4180: if c_choice_info%notfound then
4181: --
4182: -- error
4183: --
4184: hr_utility.set_location('BEN_91457_ELCTBL_CHC_NOT_FOUND rslt id:'||
4185: to_char(p_prtt_enrt_rslt_id), 75);
4186: fnd_message.set_name('BEN','BEN_91457_ELCTBL_CHC_NOT_FOUND');
4187: fnd_message.set_token('ID', 'NA');
4188: fnd_message.set_token('PROC', '2:'||l_proc);
4188: fnd_message.set_token('PROC', '2:'||l_proc);
4189: fnd_message.raise_error;
4190: end if;
4191: close c_choice_info;
4192: hr_utility.set_location('past c_choice_info', 10);
4193: --
4194: -- This section handles the changes to the suspended enrollment's
4195: -- coverage start date
4196: --
4193: --
4194: -- This section handles the changes to the suspended enrollment's
4195: -- coverage start date
4196: --
4197: hr_utility.set_location('l_unsspnd_enrt_cd:'||l_unsspnd_enrt_cd, 60);
4198: hr_utility.set_location('p_effective_date:'||p_effective_date, 60);
4199: hr_utility.set_location('l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4200:
4201: If (p_effective_date >= l_pen.enrt_cvg_strt_dt ) then
4194: -- This section handles the changes to the suspended enrollment's
4195: -- coverage start date
4196: --
4197: hr_utility.set_location('l_unsspnd_enrt_cd:'||l_unsspnd_enrt_cd, 60);
4198: hr_utility.set_location('p_effective_date:'||p_effective_date, 60);
4199: hr_utility.set_location('l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4200:
4201: If (p_effective_date >= l_pen.enrt_cvg_strt_dt ) then
4202: --
4195: -- coverage start date
4196: --
4197: hr_utility.set_location('l_unsspnd_enrt_cd:'||l_unsspnd_enrt_cd, 60);
4198: hr_utility.set_location('p_effective_date:'||p_effective_date, 60);
4199: hr_utility.set_location('l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4200:
4201: If (p_effective_date >= l_pen.enrt_cvg_strt_dt ) then
4202: --
4203: l_update_dates := true;
4206: If l_unsspnd_enrt_cd = 'ACD' then
4207: --
4208: l_pen.enrt_cvg_strt_dt := nvl(p_cmpltd_dt,p_effective_date) ;
4209: --
4210: hr_utility.set_location('l_pen.enrt_cvg_strt_dt:'||l_pen.enrt_cvg_strt_dt, 60);
4211: --
4212: Elsif l_unsspnd_enrt_cd = 'UEECSD' then
4213: --
4214: -- Do nothing already set
4248: );
4249: l_pen.enrt_cvg_strt_dt :=l_enrt_cvg_strt_dt;
4250: --
4251: else
4252: hr_utility.set_location('TWO g_cmpltn dt'||p_cmpltd_dt,777);
4253: ben_determine_date.main
4254: (p_date_cd => l_unsspnd_enrt_cd
4255: ,p_formula_id => null
4256: ,P_PER_IN_LER_ID => p_per_in_ler_id
4263: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt -- p_effective_date
4264: ,p_cmpltd_dt => nvl(p_cmpltd_dt,p_effective_date)
4265: ,p_returned_date => l_enrt_cvg_strt_dt
4266: );
4267: hr_utility.set_location('TWO l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4268: l_pen.enrt_cvg_strt_dt :=l_enrt_cvg_strt_dt;
4269: hr_utility.set_location('TWO l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4270:
4271: End if;
4265: ,p_returned_date => l_enrt_cvg_strt_dt
4266: );
4267: hr_utility.set_location('TWO l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4268: l_pen.enrt_cvg_strt_dt :=l_enrt_cvg_strt_dt;
4269: hr_utility.set_location('TWO l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4270:
4271: End if;
4272: --
4273: end if; -- l_previous_no_sspn
4437: l_datetrack_mode := p_datetrack_mode;
4438: --
4439: END IF;
4440: --
4441: hr_utility.set_location('l_datetrack_mode:'||l_datetrack_mode, 60);
4442: hr_utility.set_location('l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4443: hr_utility.set_location('BEFORE l_pen.enrt_cvg_strt_dt '||l_pen.enrt_cvg_strt_dt ,777);
4444:
4445: --
4438: --
4439: END IF;
4440: --
4441: hr_utility.set_location('l_datetrack_mode:'||l_datetrack_mode, 60);
4442: hr_utility.set_location('l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4443: hr_utility.set_location('BEFORE l_pen.enrt_cvg_strt_dt '||l_pen.enrt_cvg_strt_dt ,777);
4444:
4445: --
4446: if l_update_dates and not l_previous_no_sspn then
4439: END IF;
4440: --
4441: hr_utility.set_location('l_datetrack_mode:'||l_datetrack_mode, 60);
4442: hr_utility.set_location('l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4443: hr_utility.set_location('BEFORE l_pen.enrt_cvg_strt_dt '||l_pen.enrt_cvg_strt_dt ,777);
4444:
4445: --
4446: if l_update_dates and not l_previous_no_sspn then
4447: --
4448: -- As the above cursor Csr_prtt_enrt_rslt replaces the computed
4449: -- enrt_cvrg_strt_dt reset it with computed value.
4450: --
4451: l_pen.enrt_cvg_strt_dt := l_enrt_cvg_strt_dt;
4452: hr_utility.set_location('INSIDE l_pen.enrt_cvg_strt_dt '||l_pen.enrt_cvg_strt_dt ,777);
4453:
4454: --
4455: end if;
4456: --
4476: l_enrt_perd_id,
4477: l_epe_prtt_enrt_rslt_id,
4478: l_epe_object_version_number;
4479: if c_choice_info%notfound then
4480: hr_utility.set_location('BEN_91457_ELCTBL_CHC_NOT_FOUND rslt id:'||
4481: to_char(p_prtt_enrt_rslt_id), 75);
4482: fnd_message.set_name('BEN','BEN_91457_ELCTBL_CHC_NOT_FOUND');
4483: fnd_message.set_token('ID', 'NA');
4484: fnd_message.set_token('PROC', '2:'||l_proc);
4485: fnd_message.raise_error;
4486: end if;
4487: close c_choice_info;
4488: --
4489: hr_utility.set_location('got the latest epe info', 10);
4490: hr_utility.set_location(' l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,22);
4491: hr_utility.set_location(' l_epe_prtt_enrt_rslt_id '||l_epe_prtt_enrt_rslt_id,23);
4492: --
4493: if l_epe_prtt_enrt_rslt_id is null or
4486: end if;
4487: close c_choice_info;
4488: --
4489: hr_utility.set_location('got the latest epe info', 10);
4490: hr_utility.set_location(' l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,22);
4491: hr_utility.set_location(' l_epe_prtt_enrt_rslt_id '||l_epe_prtt_enrt_rslt_id,23);
4492: --
4493: if l_epe_prtt_enrt_rslt_id is null or
4494: l_epe_prtt_enrt_rslt_id <> p_prtt_enrt_rslt_id then
4487: close c_choice_info;
4488: --
4489: hr_utility.set_location('got the latest epe info', 10);
4490: hr_utility.set_location(' l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,22);
4491: hr_utility.set_location(' l_epe_prtt_enrt_rslt_id '||l_epe_prtt_enrt_rslt_id,23);
4492: --
4493: if l_epe_prtt_enrt_rslt_id is null or
4494: l_epe_prtt_enrt_rslt_id <> p_prtt_enrt_rslt_id then
4495: --
4619: end if;
4620: l_last_place := 'Calling the Post-Result RCO';
4621: --
4622: If p_called_from = 'BENEOPEH' then
4623: hr_utility.set_location(l_proc||' Called from Override',99);
4624: else
4625: --
4626: If (p_post_rslt_flag = 'Y') Then
4627: l_last_place := 'Calling result multi-row edit';
4681: end if;
4682: End if;
4683: End if; -- p_called_from
4684: End If;
4685: hr_utility.set_location('Leaving:'|| l_proc, 99);
4686: Exception
4687: When others then
4688: hr_utility.set_location('ERROR '||l_proc, 95);
4689: rpt_error(l_proc, l_last_place);
4684: End If;
4685: hr_utility.set_location('Leaving:'|| l_proc, 99);
4686: Exception
4687: When others then
4688: hr_utility.set_location('ERROR '||l_proc, 95);
4689: rpt_error(l_proc, l_last_place);
4690: -- for nocopy changes
4691: p_object_version_number := l_object_version_number ;
4692: fnd_message.raise_error;