[Home] [Help]
384: procedure rpt_error(p_proc varchar2
385: ,p_last_action varchar2
386: ) is
387: Begin
388: hr_utility.set_location('>> Fail at ' || p_proc, 999);
389: hr_utility.set_location('>> ' || p_last_action, 999);
390: End rpt_error;
391: --
392: -- ==========================================================================
385: ,p_last_action varchar2
386: ) is
387: Begin
388: hr_utility.set_location('>> Fail at ' || p_proc, 999);
389: hr_utility.set_location('>> ' || p_last_action, 999);
390: End rpt_error;
391: --
392: -- ==========================================================================
393: -- << get_cvg_strt_dt >>
398: ,p_calc_cvg_strt_dt_cd in varchar2
399: ) return date is
400: l_proc varchar2(80) := g_package || '.get_cvg_strt_dt';
401: Begin
402: hr_utility.set_location('Entering ' || l_proc, 05);
403: hr_utility.set_location('Leaving ' || l_proc, 10);
404: End get_cvg_strt_dt;
405: --
406: -- ==========================================================================
399: ) return date is
400: l_proc varchar2(80) := g_package || '.get_cvg_strt_dt';
401: Begin
402: hr_utility.set_location('Entering ' || l_proc, 05);
403: hr_utility.set_location('Leaving ' || l_proc, 10);
404: End get_cvg_strt_dt;
405: --
406: -- ==========================================================================
407: -- << Get_cvg_end_dt >>
412: ,p_calc_cvg_end_dt_cd in varchar2
413: ) return date is
414: l_proc varchar2(80) := g_package || '.get_cvg_end_dt';
415: Begin
416: hr_utility.set_location('Entering ' || l_proc, 05);
417: hr_utility.set_location('Leaving ' || l_proc, 10);
418: End get_cvg_end_dt;
419: --
420: -- ----------------------------------------------------------------------------
413: ) return date is
414: l_proc varchar2(80) := g_package || '.get_cvg_end_dt';
415: Begin
416: hr_utility.set_location('Entering ' || l_proc, 05);
417: hr_utility.set_location('Leaving ' || l_proc, 10);
418: End get_cvg_end_dt;
419: --
420: -- ----------------------------------------------------------------------------
421: -- |---------------------< Get_DFLT_TO_ASN_PNDG_CTFN_CD >---------------------|
452: l_interim_enb_id number;
453: l_interim_bnft_amt number;
454: --
455: begin
456: hr_utility.set_location ('Entering '||l_proc,10);
457: --
458: -- Call formula initialise routine
459: --
460: l_step := 20;
459: --
460: l_step := 20;
461:
462: /******* added organization_id,business_group_id ,pgm_id,pl_id,pl_typ_id,opt_id,ler_id --shdas ***********/
463: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
464: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
465: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
466: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
467: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
460: l_step := 20;
461:
462: /******* added organization_id,business_group_id ,pgm_id,pl_id,pl_typ_id,opt_id,ler_id --shdas ***********/
463: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
464: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
465: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
466: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
467: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
468: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
461:
462: /******* added organization_id,business_group_id ,pgm_id,pl_id,pl_typ_id,opt_id,ler_id --shdas ***********/
463: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
464: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
465: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
466: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
467: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
468: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
469: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
462: /******* added organization_id,business_group_id ,pgm_id,pl_id,pl_typ_id,opt_id,ler_id --shdas ***********/
463: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
464: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
465: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
466: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
467: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
468: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
469: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
470: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
463: hr_utility.set_location ('Organization_id '||to_char(p_organization_id),10);
464: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
465: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
466: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
467: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
468: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
469: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
470: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
471: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
464: hr_utility.set_location ('assignment_id '||to_char(p_assignment_id),15);
465: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
466: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
467: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
468: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
469: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
470: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
471: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
472:
465: hr_utility.set_location ('Business_group_id '||to_char(p_business_group_id),20);
466: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
467: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
468: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
469: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
470: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
471: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
472:
473: l_outputs := benutils.formula
466: hr_utility.set_location ('pgm_id '||to_char(p_pgm_id),30);
467: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
468: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
469: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
470: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
471: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
472:
473: l_outputs := benutils.formula
474: (p_formula_id => p_dflt_to_asn_pndg_ctfn_rl
467: hr_utility.set_location ('pl_id '||to_char(p_pl_id),40);
468: hr_utility.set_location ('pl_typ_id '||to_char(p_pl_typ_id),50);
469: hr_utility.set_location ('opt_id '||to_char(p_opt_id),60);
470: hr_utility.set_location ('ler_id '||to_char(p_ler_id),70);
471: hr_utility.set_location ('prtt_enrt_rslt_id '||to_char(p_prtt_enrt_rslt_id),70);
472:
473: l_outputs := benutils.formula
474: (p_formula_id => p_dflt_to_asn_pndg_ctfn_rl
475: ,p_effective_date => p_effective_date
495: l_return := l_outputs(l_outputs.last).value;
496: --Start Interim Rule Enhancement
497: if l_return is NULL then
498: --Invalid Rule
499: hr_utility.set_location('BEN_94600_NULL_RETURNED',80);
500: fnd_message.set_name('BEN','BEN_94600_NULL_RETURNED');
501: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
502: fnd_message.set_token('EPE_ID',to_char(p_elig_per_elctbl_chc_id));
503: fnd_message.raise_error;
527: p_interim_epe_id := l_interim_epe_id ;
528: -- p_interim_enb_id := l_interim_enb_id ;
529: p_interim_bnft_amt := l_interim_bnft_amt;
530: -- End Interim Rule enhancement
531: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
532: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
533: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
534: hr_utility.set_location('l_return '||l_return,111);
535: hr_utility.set_location ('Leaving '||l_proc,50);
528: -- p_interim_enb_id := l_interim_enb_id ;
529: p_interim_bnft_amt := l_interim_bnft_amt;
530: -- End Interim Rule enhancement
531: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
532: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
533: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
534: hr_utility.set_location('l_return '||l_return,111);
535: hr_utility.set_location ('Leaving '||l_proc,50);
536: return l_return;
529: p_interim_bnft_amt := l_interim_bnft_amt;
530: -- End Interim Rule enhancement
531: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
532: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
533: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
534: hr_utility.set_location('l_return '||l_return,111);
535: hr_utility.set_location ('Leaving '||l_proc,50);
536: return l_return;
537: Exception
530: -- End Interim Rule enhancement
531: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
532: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
533: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
534: hr_utility.set_location('l_return '||l_return,111);
535: hr_utility.set_location ('Leaving '||l_proc,50);
536: return l_return;
537: Exception
538: When others then
531: hr_utility.set_location('p_interim_epe_id '||p_interim_epe_id,111);
532: -- hr_utility.set_location('p_interim_enb_id '||p_interim_enb_id,111);
533: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,111);
534: hr_utility.set_location('l_return '||l_return,111);
535: hr_utility.set_location ('Leaving '||l_proc,50);
536: return l_return;
537: Exception
538: When others then
539: hr_utility.set_location ('Fail in '||l_proc|| ' step in '||
535: hr_utility.set_location ('Leaving '||l_proc,50);
536: return l_return;
537: Exception
538: When others then
539: hr_utility.set_location ('Fail in '||l_proc|| ' step in '||
540: to_char(l_step),999);
541: fnd_message.raise_error;
542: End get_dflt_to_asn_pndg_ctfn_cd;
543: --
649: l_enb_count number ;
650: --
651: BEGIN
652: --
653: hr_utility.set_location('Entering ' || l_proc, 5);
654: --
655: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
656: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
657: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
651: BEGIN
652: --
653: hr_utility.set_location('Entering ' || l_proc, 5);
654: --
655: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
656: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
657: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
658: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
659: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
652: --
653: hr_utility.set_location('Entering ' || l_proc, 5);
654: --
655: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
656: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
657: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
658: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
659: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
660: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
653: hr_utility.set_location('Entering ' || l_proc, 5);
654: --
655: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
656: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
657: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
658: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
659: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
660: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
661: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
654: --
655: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
656: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
657: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
658: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
659: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
660: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
661: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
662: */
655: /* hr_utility.set_location('p_prtt_enrt_rslt_id ----*** ' || p_prtt_enrt_rslt_id, 5);
656: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
657: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
658: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
659: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
660: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
661: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
662: */
663: --
656: hr_utility.set_location('p_elig_per_elctbl_chc_id ' || p_elig_per_elctbl_chc_id, 5);
657: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
658: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
659: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
660: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
661: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
662: */
663: --
664: open c_epe(p_elig_per_elctbl_chc_id);
657: hr_utility.set_location('p_enrt_bnft_id ' || p_enrt_bnft_id, 5);
658: hr_utility.set_location('p_interim_elctbl_chc_id ' || p_interim_elctbl_chc_id, 5);
659: hr_utility.set_location('p_oipl_id ' || p_oipl_id, 5);
660: hr_utility.set_location('p_pl_id ' || p_pl_id, 5);
661: hr_utility.set_location('p_interim_bnft_amt ---*** ' || p_interim_bnft_amt, 5);
662: */
663: --
664: open c_epe(p_elig_per_elctbl_chc_id);
665: fetch c_epe into l_susp_epe ;
668: open c_epe(p_interim_elctbl_chc_id);
669: fetch c_epe into l_interim_epe ;
670: /* Bug 5225780 */
671: if c_epe%NOTFOUND or l_interim_epe.per_in_ler_id <> l_susp_epe.per_in_ler_id then
672: hr_utility.set_location('BEN_94628', 80);
673: fnd_message.set_name('BEN','BEN_94628_EPE_NOTIN_PIL');
674: fnd_message.set_token('PROC',l_proc);
675: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
676: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
683: --a. Validate EPE to be in the same plan type of suspending enrollment.
684: --
685: IF l_interim_epe.ptip_id <> l_susp_epe.ptip_id THEN
686: --
687: hr_utility.set_location('BEN_94601', 80);
688: fnd_message.set_name('BEN','BEN_94601_EPE_NOTIN_PTIP');
689: fnd_message.set_token('PROC',l_proc);
690: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
691: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
701: IF l_enb_count = 0 AND p_interim_bnft_amt IS NULL THEN
702: --
703: IF p_elig_per_elctbl_chc_id = p_interim_elctbl_chc_id THEN
704: --
705: hr_utility.set_location('BEN_94602_SM_AS_SSPND', 80);
706: fnd_message.set_name('BEN','BEN_94602_SM_AS_SSPND');
707: fnd_message.set_token('PROC',l_proc);
708: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
709: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
714: --
715: return;
716: ELSIF l_enb_count = 0 AND p_interim_bnft_amt IS NOT NULL THEN
717: --
718: hr_utility.set_location('BEN_94603_WHY_ENB_ID', 80);
719: fnd_message.set_name('BEN','BEN_94603_WHY_ENB_ID');
720: fnd_message.set_token('PROC',l_proc);
721: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
722: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
728: open c_enb(p_interim_elctbl_chc_id);
729: fetch c_enb into l_interim_enb ;
730: close c_enb;
731: --
732: hr_utility.set_location('l_interim_enb.enrt_bnft_id ' || l_interim_enb.enrt_bnft_id, 5);
733: --
734: IF p_elig_per_elctbl_chc_id <> p_interim_elctbl_chc_id AND
735: p_enrt_bnft_id <> l_interim_enb.enrt_bnft_id
736: THEN
748: if(nvl(l_enb.ENTR_VAL_AT_ENRT_FLAG,'N') = 'Y')then
749: open c_pen(p_prtt_enrt_rslt_id,p_per_in_ler_id ) ;
750: fetch c_pen into l_pen;
751: close c_pen;
752: hr_utility.set_location('Updated Susp Amount '||l_pen.bnft_amt, 80);
753: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt, 80);
754: IF nvl(nvl(p_interim_bnft_amt,l_interim_enb.val),-1) > nvl(l_pen.bnft_amt,-1)
755: THEN
756: hr_utility.set_location('BEN_94607_MORE_THAN_SSPND', 80);
749: open c_pen(p_prtt_enrt_rslt_id,p_per_in_ler_id ) ;
750: fetch c_pen into l_pen;
751: close c_pen;
752: hr_utility.set_location('Updated Susp Amount '||l_pen.bnft_amt, 80);
753: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt, 80);
754: IF nvl(nvl(p_interim_bnft_amt,l_interim_enb.val),-1) > nvl(l_pen.bnft_amt,-1)
755: THEN
756: hr_utility.set_location('BEN_94607_MORE_THAN_SSPND', 80);
757: fnd_message.set_name('BEN','BEN_94607_MORE_THAN_SSPND');
752: hr_utility.set_location('Updated Susp Amount '||l_pen.bnft_amt, 80);
753: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt, 80);
754: IF nvl(nvl(p_interim_bnft_amt,l_interim_enb.val),-1) > nvl(l_pen.bnft_amt,-1)
755: THEN
756: hr_utility.set_location('BEN_94607_MORE_THAN_SSPND', 80);
757: fnd_message.set_name('BEN','BEN_94607_MORE_THAN_SSPND');
758: fnd_message.set_token('PROC',l_proc);
759: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
760: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
762: fnd_message.raise_error;
763: END IF;
764: elsIF nvl(nvl(p_interim_bnft_amt,l_interim_enb.val),-1) > nvl(l_enb.val,-1)
765: THEN
766: hr_utility.set_location('BEN_94607_MORE_THAN_SSPND', 80);
767: fnd_message.set_name('BEN','BEN_94607_MORE_THAN_SSPND');
768: fnd_message.set_token('PROC',l_proc);
769: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
770: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
777: --Make sure Suspended and interim enb are same then throw the error.
778: IF p_elig_per_elctbl_chc_id = p_interim_elctbl_chc_id AND
779: p_enrt_bnft_id = l_interim_enb.enrt_bnft_id THEN
780: --
781: hr_utility.set_location('BEN_94602_SM_AS_SSPND', 80);
782: fnd_message.set_name('BEN','BEN_94602_SM_AS_SSPND');
783: fnd_message.set_token('PROC',l_proc);
784: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
785: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
793: return;
794: --
795: ELSIF l_enb_count > 1 AND p_interim_bnft_amt IS NULL THEN
796: --
797: hr_utility.set_location('BEN_94604_NO_ENB_ID', 80);
798: fnd_message.set_name('BEN','BEN_94604_NO_ENB_ID');
799: fnd_message.set_token('PROC',l_proc);
800: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
801: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
810: close c_pen;
811: --
812: IF p_interim_bnft_amt > l_pen.bnft_amt THEN
813: --
814: hr_utility.set_location('BEN_94607_MORE_THAN_SSPND', 80);
815: fnd_message.set_name('BEN','BEN_94607_MORE_THAN_SSPND');
816: fnd_message.set_token('PROC',l_proc);
817: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
818: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
833: fetch c_enb_rng into l_interim_enb;
834: IF c_enb_rng%NOTFOUND THEN
835: --
836: close c_enb_rng;
837: hr_utility.set_location('BEN_94606_INVALID_ENB_RNG', 80);
838: fnd_message.set_name('BEN','BEN_94606_INVALID_ENB_RNG');
839: fnd_message.set_token('PROC',l_proc);
840: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
841: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
847: --
848: IF l_interim_enb.elig_per_elctbl_chc_id = p_elig_per_elctbl_chc_id AND
849: l_interim_enb.enrt_bnft_id = p_enrt_bnft_id THEN
850: --
851: hr_utility.set_location('BEN_99602_SM_AS_SSPND', 80);
852: fnd_message.set_name('BEN','BEN_99602_SM_AS_SSPND');
853: fnd_message.set_token('PROC',l_proc);
854: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
855: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
870: l_interim_enrt_bnft_id := l_interim_enb_entr.enrt_bnft_id ;
871: --
872: IF p_interim_bnft_amt = l_pen.bnft_amt THEN
873: --
874: -- hr_utility.set_location('BEN_99602_SM_AS_SSPND', 80);
875: -- fnd_message.set_name('BEN','BEN_99602_SM_AS_SSPND');
876: -- message changed for Bug 5148514
877: hr_utility.set_location('BEN_94624_AMT_SM_SSPND', 80);
878: fnd_message.set_name('BEN','BEN_94624_AMT_SM_SSPND');
873: --
874: -- hr_utility.set_location('BEN_99602_SM_AS_SSPND', 80);
875: -- fnd_message.set_name('BEN','BEN_99602_SM_AS_SSPND');
876: -- message changed for Bug 5148514
877: hr_utility.set_location('BEN_94624_AMT_SM_SSPND', 80);
878: fnd_message.set_name('BEN','BEN_94624_AMT_SM_SSPND');
879: fnd_message.set_token('PROC',l_proc);
880: fnd_message.set_token('PERSON_ID' , to_char(p_person_id));
881: fnd_message.set_token('INT_EPE_ID',to_char(p_interim_elctbl_chc_id));
891: --
892: p_interim_enrt_bnft_id := l_interim_enrt_bnft_id;
893: -- p_interim_bnft_amt := l_interim_bnft_amt;
894: --
895: hr_utility.set_location('Leaving ' || l_proc, 10);
896: --
897: EXCEPTION
898: --
899: WHEN OTHERS THEN
897: EXCEPTION
898: --
899: WHEN OTHERS THEN
900: --
901: hr_utility.set_location('EXC : ' || substr(SQLERRM, 1, 50), 9999);
902: raise;
903: --
904: --
905: END validate_interim_rule;
1951: /*End of Bug 7426609 */
1952:
1953: --
1954: Begin
1955: hr_utility.set_location('Entering ' || l_proc, 05);
1956: hr_utility.set_location('p_per_in_ler_id '||p_per_in_ler_id,10);
1957:
1958: -- set an output to null
1959: p_interim_bnft_amt := null;
1952:
1953: --
1954: Begin
1955: hr_utility.set_location('Entering ' || l_proc, 05);
1956: hr_utility.set_location('p_per_in_ler_id '||p_per_in_ler_id,10);
1957:
1958: -- set an output to null
1959: p_interim_bnft_amt := null;
1960: --
1961: open c_get_lf_evt_ocrd_dt;
1962: fetch c_get_lf_evt_ocrd_dt into l_get_lf_evt_ocrd_dt;
1963: close c_get_lf_evt_ocrd_dt;
1964: --
1965: hr_utility.set_location('l_get_lf_evt_ocrd_dt '||l_get_lf_evt_ocrd_dt,23);
1966: hr_utility.set_location('p_ler_id'||p_ler_id,23);
1967: hr_utility.set_location('p_pl_id'||p_pl_id,23);
1968: hr_utility.set_location('p_prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id,23);
1969: --
1962: fetch c_get_lf_evt_ocrd_dt into l_get_lf_evt_ocrd_dt;
1963: close c_get_lf_evt_ocrd_dt;
1964: --
1965: hr_utility.set_location('l_get_lf_evt_ocrd_dt '||l_get_lf_evt_ocrd_dt,23);
1966: hr_utility.set_location('p_ler_id'||p_ler_id,23);
1967: hr_utility.set_location('p_pl_id'||p_pl_id,23);
1968: hr_utility.set_location('p_prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id,23);
1969: --
1970: For l_rec in c1(l_get_lf_evt_ocrd_dt) loop
1963: close c_get_lf_evt_ocrd_dt;
1964: --
1965: hr_utility.set_location('l_get_lf_evt_ocrd_dt '||l_get_lf_evt_ocrd_dt,23);
1966: hr_utility.set_location('p_ler_id'||p_ler_id,23);
1967: hr_utility.set_location('p_pl_id'||p_pl_id,23);
1968: hr_utility.set_location('p_prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id,23);
1969: --
1970: For l_rec in c1(l_get_lf_evt_ocrd_dt) loop
1971: if l_rec.order_no = 2 then
1964: --
1965: hr_utility.set_location('l_get_lf_evt_ocrd_dt '||l_get_lf_evt_ocrd_dt,23);
1966: hr_utility.set_location('p_ler_id'||p_ler_id,23);
1967: hr_utility.set_location('p_pl_id'||p_pl_id,23);
1968: hr_utility.set_location('p_prtt_enrt_rslt_id'||p_prtt_enrt_rslt_id,23);
1969: --
1970: For l_rec in c1(l_get_lf_evt_ocrd_dt) loop
1971: if l_rec.order_no = 2 then
1972: l_BNFT_OR_OPTION_RSTRCTN_CD := l_rec.BNFT_OR_OPTION_RSTRCTN_CD;
2005: p_interim_enrt_bnft_id := l_int_bnft_amt.enrt_bnft_id;
2006:
2007: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd;
2008:
2009: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,9991);
2010: hr_utility.set_location('interim_action='||l_interim_action,9991);
2011: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,9991);
2012: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,9991);
2013: ben_lf_evt_clps_restore.g_reinstate_interim_flag := false;
2006:
2007: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd;
2008:
2009: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,9991);
2010: hr_utility.set_location('interim_action='||l_interim_action,9991);
2011: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,9991);
2012: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,9991);
2013: ben_lf_evt_clps_restore.g_reinstate_interim_flag := false;
2014: return;
2007: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd;
2008:
2009: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,9991);
2010: hr_utility.set_location('interim_action='||l_interim_action,9991);
2011: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,9991);
2012: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,9991);
2013: ben_lf_evt_clps_restore.g_reinstate_interim_flag := false;
2014: return;
2015: end if;
2008:
2009: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,9991);
2010: hr_utility.set_location('interim_action='||l_interim_action,9991);
2011: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,9991);
2012: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,9991);
2013: ben_lf_evt_clps_restore.g_reinstate_interim_flag := false;
2014: return;
2015: end if;
2016: /*Ended for Bug 7426609 */
2015: end if;
2016: /*Ended for Bug 7426609 */
2017:
2018:
2019: hr_utility.set_location('l_DFLT_TO_ASN_PNDG_CTFN_CD'||l_DFLT_TO_ASN_PNDG_CTFN_CD,24);
2020: hr_utility.set_location('l_BNFT_OR_OPTION_RSTRCTN_CD'||l_BNFT_OR_OPTION_RSTRCTN_CD,24);
2021: --
2022: hr_utility.set_location(l_proc,10 );
2023: --
2016: /*Ended for Bug 7426609 */
2017:
2018:
2019: hr_utility.set_location('l_DFLT_TO_ASN_PNDG_CTFN_CD'||l_DFLT_TO_ASN_PNDG_CTFN_CD,24);
2020: hr_utility.set_location('l_BNFT_OR_OPTION_RSTRCTN_CD'||l_BNFT_OR_OPTION_RSTRCTN_CD,24);
2021: --
2022: hr_utility.set_location(l_proc,10 );
2023: --
2024: -- If code is rule, get the real code by calling formula
2018:
2019: hr_utility.set_location('l_DFLT_TO_ASN_PNDG_CTFN_CD'||l_DFLT_TO_ASN_PNDG_CTFN_CD,24);
2020: hr_utility.set_location('l_BNFT_OR_OPTION_RSTRCTN_CD'||l_BNFT_OR_OPTION_RSTRCTN_CD,24);
2021: --
2022: hr_utility.set_location(l_proc,10 );
2023: --
2024: -- If code is rule, get the real code by calling formula
2025: --
2026: If (l_DFLT_TO_ASN_PNDG_CTFN_CD = 'RL') then
2023: --
2024: -- If code is rule, get the real code by calling formula
2025: --
2026: If (l_DFLT_TO_ASN_PNDG_CTFN_CD = 'RL') then
2027: hr_utility.set_location(l_proc,20 );
2028:
2029: if p_elig_per_elctbl_chc_id is not null then
2030: hr_utility.set_location(l_proc, 30);
2031: open c_epe;
2026: If (l_DFLT_TO_ASN_PNDG_CTFN_CD = 'RL') then
2027: hr_utility.set_location(l_proc,20 );
2028:
2029: if p_elig_per_elctbl_chc_id is not null then
2030: hr_utility.set_location(l_proc, 30);
2031: open c_epe;
2032: fetch c_epe into l_epe;
2033: close c_epe;
2034: end if;
2031: open c_epe;
2032: fetch c_epe into l_epe;
2033: close c_epe;
2034: end if;
2035: hr_utility.set_location(l_proc, 40);
2036:
2037: if l_epe.oipl_id is not null then
2038: hr_utility.set_location(l_proc, 50);
2039: open c_opt;
2034: end if;
2035: hr_utility.set_location(l_proc, 40);
2036:
2037: if l_epe.oipl_id is not null then
2038: hr_utility.set_location(l_proc, 50);
2039: open c_opt;
2040: fetch c_opt into l_opt;
2041: close c_opt;
2042: end if;
2039: open c_opt;
2040: fetch c_opt into l_opt;
2041: close c_opt;
2042: end if;
2043: hr_utility.set_location(l_proc, 60);
2044: /* -- 4031733 - Cursor c_state populates l_state variable which is no longer
2045: -- used in the package. Cursor can be commented
2046: if p_person_id is not null then
2047: open c_state;
2052: -- l_jurisdiction_code :=
2053: -- pay_mag_utils.lookup_jurisdiction_code
2054: -- (p_state => l_state.region_2);
2055: -- end if;
2056: hr_utility.set_location(l_proc, 70);
2057: end if;
2058: */
2059: hr_utility.set_location(l_proc, 80);
2060:
2055: -- end if;
2056: hr_utility.set_location(l_proc, 70);
2057: end if;
2058: */
2059: hr_utility.set_location(l_proc, 80);
2060:
2061: open c_paf;
2062:
2063: fetch c_paf into l_assignment_id,l_organization_id;
2062:
2063: fetch c_paf into l_assignment_id,l_organization_id;
2064: if (c_paf%notfound) then
2065: close c_paf;
2066: hr_utility.set_location('BEN_91698_NO_ASSIGNMENT_FND', 80);
2067: fnd_message.set_name('BEN','BEN_91698_NO_ASSIGNMENT_FND');
2068: fnd_message.set_token('ID' , to_char(p_person_id));
2069: fnd_message.raise_error;
2070: end if;
2068: fnd_message.set_token('ID' , to_char(p_person_id));
2069: fnd_message.raise_error;
2070: end if;
2071: close c_paf;
2072: hr_utility.set_location(l_proc, 90);
2073:
2074:
2075: l_dflt_to_asn_pndg_ctfn_cd :=
2076: get_dflt_to_asn_pndg_ctfn_cd
2120: );
2121: --
2122: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd;
2123: --
2124: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
2125: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
2126: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
2127: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
2128: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
2121: --
2122: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd;
2123: --
2124: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
2125: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
2126: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
2127: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
2128: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
2129: hr_utility.set_location('Leaving ' || l_proc, 1888);
2122: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd;
2123: --
2124: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
2125: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
2126: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
2127: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
2128: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
2129: hr_utility.set_location('Leaving ' || l_proc, 1888);
2130: --
2123: --
2124: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
2125: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
2126: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
2127: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
2128: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
2129: hr_utility.set_location('Leaving ' || l_proc, 1888);
2130: --
2131: return;
2124: hr_utility.set_location('Interim Rule is returning the following comp object',1888);
2125: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
2126: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
2127: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
2128: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
2129: hr_utility.set_location('Leaving ' || l_proc, 1888);
2130: --
2131: return;
2132: --
2125: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,1888);
2126: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,1888);
2127: hr_utility.set_location('interim_amt='||p_interim_bnft_amt,1888);
2128: hr_utility.set_location('l_bnft_or_option_rstrctn_cd'||l_bnft_or_option_rstrctn_cd,1888);
2129: hr_utility.set_location('Leaving ' || l_proc, 1888);
2130: --
2131: return;
2132: --
2133: END IF;
2131: return;
2132: --
2133: END IF;
2134: --
2135: hr_utility.set_location(l_proc, 100);
2136: End if;
2137:
2138: l_last_place:='Step 1';
2139: hr_utility.set_location(l_proc||l_DFLT_TO_ASN_PNDG_CTFN_CD, 120);
2135: hr_utility.set_location(l_proc, 100);
2136: End if;
2137:
2138: l_last_place:='Step 1';
2139: hr_utility.set_location(l_proc||l_DFLT_TO_ASN_PNDG_CTFN_CD, 120);
2140: --
2141: -- Char's 2/3 indicate whether we need to stay in what they were enrolled in
2142: -- if it's the same plan only (SE), or if it's just the same plan type (AS).
2143: l_intm_dfn_level := substr(l_DFLT_TO_ASN_PNDG_CTFN_CD,2,2);
2140: --
2141: -- Char's 2/3 indicate whether we need to stay in what they were enrolled in
2142: -- if it's the same plan only (SE), or if it's just the same plan type (AS).
2143: l_intm_dfn_level := substr(l_DFLT_TO_ASN_PNDG_CTFN_CD,2,2);
2144: hr_utility.set_location('l_intm_dfn_level '||l_intm_dfn_level,125);
2145:
2146: -- ikasire - 'AS' can have plans and also oipls. Why to restricts only to
2147: -- plans without options ? 'AS' is not for plan without options as per documentation.
2148: -- if we need to make any changes here that needs to be documented with Keith.
2159: --l_enrt_chc_id,
2160: -- RCHASE Bug#5353
2161: l_prtt_enrt_rslt_id;
2162: close c_current_enrt;
2163: hr_utility.set_location('l_enrt_chc_id: '||to_char(l_enrt_chc_id), 61);
2164: --
2165: -- Plan Type level interim coverage defintion.
2166: -- This is supposed to be defined for plans without options i.e.
2167: -- benefits are at plan level.
2177: else
2178: -- New Enrollment.
2179: l_interim_action:=substr(l_dflt_to_asn_pndg_ctfn_cd,7,2);
2180: end if;
2181: hr_utility.set_location('l_interim_action: '||l_interim_action, 62);
2182:
2183: elsif l_intm_dfn_level = 'SE' then
2184: -- This is Option or Benefits within a Plan Case
2185: open c_current_enrt(v_pl_id => p_pl_id,v_oipl_id => null );
2189: -- l_enrt_chc_id,
2190: -- RCHASE Bug#5353
2191: l_prtt_enrt_rslt_id;
2192: close c_current_enrt;
2193: hr_utility.set_location('l_enrt_chc_id: '||to_char(l_enrt_chc_id), 63);
2194: --
2195: -- Plan level interim coverage defintion.
2196: --
2197: if l_enrt_pl_id is not null then
2205: else
2206: -- New Enrollment.
2207: l_interim_action:=substr(l_dflt_to_asn_pndg_ctfn_cd,7,2);
2208: end if;
2209: hr_utility.set_location('l_interim_action: '||l_interim_action, 64);
2210: --
2211: elsif l_intm_dfn_level = 'SO' then
2212: -- This is Option or Benefits within a Plan Case
2213: open c_current_enrt(v_pl_id => p_pl_id,v_oipl_id => p_oipl_id );
2217: -- l_enrt_chc_id,
2218: -- RCHASE Bug#5353
2219: l_prtt_enrt_rslt_id;
2220: close c_current_enrt;
2221: hr_utility.set_location('l_enrt_chc_id: '||to_char(l_enrt_chc_id), 63);
2222: --
2223: -- Plan level interim coverage defintion.
2224: --
2225: if l_enrt_pl_id is not null then
2232: else
2233: -- New Enrollment.
2234: l_interim_action:=substr(l_dflt_to_asn_pndg_ctfn_cd,7,2);
2235: end if;
2236: hr_utility.set_location('l_interim_action: '||l_interim_action, 64);
2237: end if;
2238: hr_utility.set_location(l_proc, 180);
2239: l_last_place:='Step 3';
2240: --
2234: l_interim_action:=substr(l_dflt_to_asn_pndg_ctfn_cd,7,2);
2235: end if;
2236: hr_utility.set_location('l_interim_action: '||l_interim_action, 64);
2237: end if;
2238: hr_utility.set_location(l_proc, 180);
2239: l_last_place:='Step 3';
2240: --
2241: -- l_interim_action is either chars 4/5 (if prev enrt in same pl type was found)
2242: -- or chars 7/8 if no prev enrt in plan type was found.
2247: -- check with ddw as to which is correct.
2248: --
2249: --Carry Forward Certifcations,Suspended and Interim Enrollments logic
2250: --
2251: hr_utility.set_location('Before Checking CF Suspended Results',181);
2252: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2253: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2254: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2255: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2248: --
2249: --Carry Forward Certifcations,Suspended and Interim Enrollments logic
2250: --
2251: hr_utility.set_location('Before Checking CF Suspended Results',181);
2252: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2253: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2254: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2255: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2256: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2249: --Carry Forward Certifcations,Suspended and Interim Enrollments logic
2250: --
2251: hr_utility.set_location('Before Checking CF Suspended Results',181);
2252: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2253: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2254: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2255: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2256: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2257: --Bug 4463267
2250: --
2251: hr_utility.set_location('Before Checking CF Suspended Results',181);
2252: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2253: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2254: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2255: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2256: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2257: --Bug 4463267
2258: IF g_cfw_flag = 'Y' THEN
2251: hr_utility.set_location('Before Checking CF Suspended Results',181);
2252: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2253: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2254: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2255: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2256: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2257: --Bug 4463267
2258: IF g_cfw_flag = 'Y' THEN
2259: if l_currently_enrolled = 'Y' then
2252: hr_utility.set_location('l_currently_enrolled:'||l_currently_enrolled,181);
2253: hr_utility.set_location('p_prtt_enrt_rslt_id:'||p_prtt_enrt_rslt_id,181);
2254: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id,181);
2255: hr_utility.set_location('p_elig_per_elctbl_chc_id:'||p_elig_per_elctbl_chc_id,181);
2256: hr_utility.set_location('g_cfw_flag '||g_cfw_flag,181);
2257: --Bug 4463267
2258: IF g_cfw_flag = 'Y' THEN
2259: if l_currently_enrolled = 'Y' then
2260: --
2265: fetch c_cf_suspended into l_cf_suspended ;
2266: --
2267: if c_cf_suspended%found then
2268: l_cf_required := 'Y' ;
2269: hr_utility.set_location('l_cf_required := Y',181);
2270: end if;
2271: --
2272: close c_cf_suspended ;
2273: --
2272: close c_cf_suspended ;
2273: --
2274: if l_cf_required = 'Y' and l_cf_suspended.rplcs_sspndd_rslt_id IS NOT NULL then
2275: --
2276: hr_utility.set_location('Curr Interim '||l_cf_suspended.rplcs_sspndd_rslt_id,181);
2277: --
2278: open c_cf_interim(l_cf_suspended.rplcs_sspndd_rslt_id,p_per_in_ler_id);
2279: fetch c_cf_interim into l_cf_interim;
2280: close c_cf_interim ;
2281: --
2282: p_interim_elctbl_chc_id := l_cf_interim.elig_per_elctbl_chc_id ;
2283: p_interim_enrt_rslt_id := l_cf_suspended.rplcs_sspndd_rslt_id ;
2284: --
2285: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2286: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2287: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2288: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2289: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2282: p_interim_elctbl_chc_id := l_cf_interim.elig_per_elctbl_chc_id ;
2283: p_interim_enrt_rslt_id := l_cf_suspended.rplcs_sspndd_rslt_id ;
2284: --
2285: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2286: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2287: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2288: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2289: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2290: --
2283: p_interim_enrt_rslt_id := l_cf_suspended.rplcs_sspndd_rslt_id ;
2284: --
2285: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2286: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2287: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2288: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2289: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2290: --
2291: if l_cf_interim.elig_per_elctbl_chc_id is not null then
2284: --
2285: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2286: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2287: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2288: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2289: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2290: --
2291: if l_cf_interim.elig_per_elctbl_chc_id is not null then
2292: --
2285: hr_utility.set_location('p_interim_elctbl_chc_id'||p_interim_elctbl_chc_id,181);
2286: hr_utility.set_location('p_interim_enrt_rslt_id'||p_interim_enrt_rslt_id,181);
2287: hr_utility.set_location(' l_cf_interim.bnft_amt '||l_cf_interim.bnft_amt,181);
2288: hr_utility.set_location(' l_cf_interim.ordr_num '||l_cf_interim.ordr_num,181);
2289: hr_utility.set_location(' l_interim_action '||l_interim_action,181);
2290: --
2291: if l_cf_interim.elig_per_elctbl_chc_id is not null then
2292: --
2293: IF l_interim_action='SM' THEN
2310: --
2311: p_interim_bnft_amt := l_cf_bnft.bnft_amt;
2312: p_interim_enrt_bnft_id := l_cf_bnft.enrt_bnft_id;
2313: --
2314: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,182);
2315: hr_utility.set_location('p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,182);
2316: --
2317: end if;
2318: --
2311: p_interim_bnft_amt := l_cf_bnft.bnft_amt;
2312: p_interim_enrt_bnft_id := l_cf_bnft.enrt_bnft_id;
2313: --
2314: hr_utility.set_location('p_interim_bnft_amt '||p_interim_bnft_amt,182);
2315: hr_utility.set_location('p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,182);
2316: --
2317: end if;
2318: --
2319: end if;
2322: end if;
2323: --
2324: END IF; --g_cfw_flag
2325: --
2326: hr_utility.set_location('After CF Suspended Results cf_required :'||l_cf_required ,181);
2327: --
2328: if l_cf_required = 'N' then
2329: --
2330: if l_interim_action='NT' then
2327: --
2328: if l_cf_required = 'N' then
2329: --
2330: if l_interim_action='NT' then
2331: hr_utility.set_location(l_proc, 190);
2332: -- No interim
2333: l_last_place:='Step 4';
2334: p_interim_elctbl_chc_id:=null;
2335: elsif l_interim_action='SM' then
2332: -- No interim
2333: l_last_place:='Step 4';
2334: p_interim_elctbl_chc_id:=null;
2335: elsif l_interim_action='SM' then
2336: hr_utility.set_location(l_proc, 200);
2337: --
2338: -- Interim is old enrollment
2339: l_last_place:='Step 5';
2340: --
2352: if l_cur_bnft.enrt_bnft_id is not null then
2353: p_interim_bnft_amt := l_cur_bnft.bnft_amt;
2354: p_interim_enrt_bnft_id := l_cur_bnft.enrt_bnft_id;
2355: end if;
2356: hr_utility.set_location(l_proc||'Got current Interim',12);
2357: else
2358: hr_utility.set_location(l_proc||'Not Current ',12);
2359: end if;
2360: --
2354: p_interim_enrt_bnft_id := l_cur_bnft.enrt_bnft_id;
2355: end if;
2356: hr_utility.set_location(l_proc||'Got current Interim',12);
2357: else
2358: hr_utility.set_location(l_proc||'Not Current ',12);
2359: end if;
2360: --
2361: elsif l_interim_action='MN' then
2362: hr_utility.set_location(l_proc, 210);
2358: hr_utility.set_location(l_proc||'Not Current ',12);
2359: end if;
2360: --
2361: elsif l_interim_action='MN' then
2362: hr_utility.set_location(l_proc, 210);
2363: -- interim is minimum order number
2364: l_last_place:='Step 6';
2365:
2366: -- Bug 1249901: if cvg is entered at enrollment, and interim-action is Minimum
2392: open c_min_bnft_epe ;
2393: fetch c_min_bnft_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2394: close c_min_bnft_epe ;
2395: l_last_place:='Step 6.4.1';
2396: hr_utility.set_location(' l_last_place '||l_last_place,122);
2397: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,122);
2398: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,122);
2399: else
2400: -- Option Restrictions case here
2393: fetch c_min_bnft_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2394: close c_min_bnft_epe ;
2395: l_last_place:='Step 6.4.1';
2396: hr_utility.set_location(' l_last_place '||l_last_place,122);
2397: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,122);
2398: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,122);
2399: else
2400: -- Option Restrictions case here
2401: hr_utility.set_location(l_proc, 220);
2394: close c_min_bnft_epe ;
2395: l_last_place:='Step 6.4.1';
2396: hr_utility.set_location(' l_last_place '||l_last_place,122);
2397: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,122);
2398: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,122);
2399: else
2400: -- Option Restrictions case here
2401: hr_utility.set_location(l_proc, 220);
2402: l_last_place:='Step 6.5.1';
2397: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,122);
2398: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,122);
2399: else
2400: -- Option Restrictions case here
2401: hr_utility.set_location(l_proc, 220);
2402: l_last_place:='Step 6.5.1';
2403: open c_min_pl_epe;
2404: fetch c_min_pl_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2405: close c_min_pl_epe;
2402: l_last_place:='Step 6.5.1';
2403: open c_min_pl_epe;
2404: fetch c_min_pl_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2405: close c_min_pl_epe;
2406: hr_utility.set_location(' l_last_place '||l_last_place,123);
2407: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,123);
2408: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,123);
2409:
2410: end if;
2403: open c_min_pl_epe;
2404: fetch c_min_pl_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2405: close c_min_pl_epe;
2406: hr_utility.set_location(' l_last_place '||l_last_place,123);
2407: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,123);
2408: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,123);
2409:
2410: end if;
2411: elsif l_intm_dfn_level in ( 'SE','SO') then
2404: fetch c_min_pl_epe into p_interim_elctbl_chc_id,p_interim_enrt_bnft_id ;
2405: close c_min_pl_epe;
2406: hr_utility.set_location(' l_last_place '||l_last_place,123);
2407: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,123);
2408: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,123);
2409:
2410: end if;
2411: elsif l_intm_dfn_level in ( 'SE','SO') then
2412: if l_bnft_or_option_rstrctn_cd='BNFT' then
2418: l_interim_enrt_bnft_id;
2419: close c_min_bnft_epe;
2420: p_interim_enrt_bnft_id:=l_interim_enrt_bnft_id;
2421: l_last_place:= 'Step 6.6.1';
2422: hr_utility.set_location(' l_last_place '||l_last_place,124);
2423: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,124);
2424: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,124);
2425: else
2426: --
2419: close c_min_bnft_epe;
2420: p_interim_enrt_bnft_id:=l_interim_enrt_bnft_id;
2421: l_last_place:= 'Step 6.6.1';
2422: hr_utility.set_location(' l_last_place '||l_last_place,124);
2423: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,124);
2424: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,124);
2425: else
2426: --
2427: -- Plan Level Option restrictions case
2420: p_interim_enrt_bnft_id:=l_interim_enrt_bnft_id;
2421: l_last_place:= 'Step 6.6.1';
2422: hr_utility.set_location(' l_last_place '||l_last_place,124);
2423: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,124);
2424: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,124);
2425: else
2426: --
2427: -- Plan Level Option restrictions case
2428: --
2425: else
2426: --
2427: -- Plan Level Option restrictions case
2428: --
2429: hr_utility.set_location(l_proc, 230);
2430: l_last_place:='Step 7';
2431: open c_min_oipl_epe;
2432: fetch c_min_oipl_epe into
2433: p_interim_elctbl_chc_id, p_interim_enrt_bnft_id;
2432: fetch c_min_oipl_epe into
2433: p_interim_elctbl_chc_id, p_interim_enrt_bnft_id;
2434: close c_min_oipl_epe;
2435: --
2436: hr_utility.set_location(' l_last_place '||l_last_place,125);
2437: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,125);
2438: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,125);
2439: end if;
2440: end if;
2433: p_interim_elctbl_chc_id, p_interim_enrt_bnft_id;
2434: close c_min_oipl_epe;
2435: --
2436: hr_utility.set_location(' l_last_place '||l_last_place,125);
2437: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,125);
2438: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,125);
2439: end if;
2440: end if;
2441: end if;
2434: close c_min_oipl_epe;
2435: --
2436: hr_utility.set_location(' l_last_place '||l_last_place,125);
2437: hr_utility.set_location(' p_interim_elctbl_chc_id '||p_interim_elctbl_chc_id,125);
2438: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,125);
2439: end if;
2440: end if;
2441: end if;
2442: hr_utility.set_location('p_interim_elctbl_chc_id: '||
2438: hr_utility.set_location(' p_interim_enrt_bnft_id '||p_interim_enrt_bnft_id,125);
2439: end if;
2440: end if;
2441: end if;
2442: hr_utility.set_location('p_interim_elctbl_chc_id: '||
2443: to_char(p_interim_elctbl_chc_id), 240);
2444: hr_utility.set_location('p_interim_enrt_bnft_id: '||
2445: to_char(p_interim_enrt_bnft_id), 240);
2446: hr_utility.set_location('p_interim_bnft_amt: '||
2440: end if;
2441: end if;
2442: hr_utility.set_location('p_interim_elctbl_chc_id: '||
2443: to_char(p_interim_elctbl_chc_id), 240);
2444: hr_utility.set_location('p_interim_enrt_bnft_id: '||
2445: to_char(p_interim_enrt_bnft_id), 240);
2446: hr_utility.set_location('p_interim_bnft_amt: '||
2447: to_char(p_interim_bnft_amt), 240);
2448: elsif l_interim_action='NL' then
2442: hr_utility.set_location('p_interim_elctbl_chc_id: '||
2443: to_char(p_interim_elctbl_chc_id), 240);
2444: hr_utility.set_location('p_interim_enrt_bnft_id: '||
2445: to_char(p_interim_enrt_bnft_id), 240);
2446: hr_utility.set_location('p_interim_bnft_amt: '||
2447: to_char(p_interim_bnft_amt), 240);
2448: elsif l_interim_action='NL' then
2449: hr_utility.set_location(l_proc, 250);
2450: -- Add Enter Value at enrollment Case
2445: to_char(p_interim_enrt_bnft_id), 240);
2446: hr_utility.set_location('p_interim_bnft_amt: '||
2447: to_char(p_interim_bnft_amt), 240);
2448: elsif l_interim_action='NL' then
2449: hr_utility.set_location(l_proc, 250);
2450: -- Add Enter Value at enrollment Case
2451: l_use_same_bnft := 'N';
2452: if p_elig_per_elctbl_chc_id is not null then
2453: open c_bnft;
2462: end if;
2463: if l_use_same_bnft = 'N'then -- This is NOT enter value at enrollment case
2464: -- interim is next lower order number
2465: if l_intm_dfn_level = 'AS' then
2466: hr_utility.set_location(l_proc, 255);
2467: if l_bnft_or_option_rstrctn_cd='BNFT' then
2468: --
2469: -- Add Benefit Restrictions case. We need to look for the
2470: -- Next lower benefit record for the suspended comp object only.
2485: end if;
2486: --
2487: elsif l_intm_dfn_level in ('SE','SO') then
2488: if l_bnft_or_option_rstrctn_cd='BNFT' then
2489: hr_utility.set_location(l_proc, 260);
2490: l_last_place:='Step 8';
2491: --
2492: -- Add Benefit Restrictions case. We need to look for the
2493: -- Next lower benefit record for the suspended comp object only.
2497: p_interim_elctbl_chc_id,
2498: p_interim_enrt_bnft_id;
2499: close c_next_lower_bnft_pl_epe;
2500: else
2501: hr_utility.set_location(l_proc, 270);
2502: l_last_place:='Step 9';
2503: open c_next_lower_pl_epe;
2504: fetch c_next_lower_pl_epe into
2505: p_interim_elctbl_chc_id, p_interim_enrt_bnft_id;
2506: close c_next_lower_pl_epe;
2507: end if;
2508: end if;
2509: end if;
2510: hr_utility.set_location(l_proc, 280);
2511: elsif l_interim_action='DF' then
2512: -- Added the Enter value at enrollment case to default
2513: l_use_same_bnft := 'N';
2514: if p_elig_per_elctbl_chc_id is not null then
2545: close c_default_epe;
2546: --
2547: end if;
2548:
2549: hr_utility.set_location(l_proc, 290);
2550: -- interim is default choice
2551: l_last_place:='Step 10';
2552: elsif l_intm_dfn_level in ('SE','SO') then
2553: --
2586: end if;
2587: ----Bug 8244648
2588: end if;
2589: --
2590: hr_utility.set_location(l_proc, 294);
2591: --
2592: end if;
2593: --
2594: end if;
2603: -- subsequent process (election information) to get the result id for the
2604: -- interim choice.
2605:
2606: -- if l_enrt_chc_id=p_interim_elctbl_chc_id then
2607: -- hr_utility.set_location('pen_id='||to_char(p_prtt_enrt_rslt_id), 9876);
2608: -- p_interim_enrt_rslt_id:=p_prtt_enrt_rslt_id;
2609: --else
2610: -- RCHASE Bug#5353 nullifying the p_interim_enrt_rslt_id will not allow for the
2611: -- previous election to be used as the interim. Removed null assignment.
2608: -- p_interim_enrt_rslt_id:=p_prtt_enrt_rslt_id;
2609: --else
2610: -- RCHASE Bug#5353 nullifying the p_interim_enrt_rslt_id will not allow for the
2611: -- previous election to be used as the interim. Removed null assignment.
2612: -- hr_utility.set_location(l_proc, 300);
2613: -- p_interim_enrt_rslt_id:=null;
2614: --end if;
2615: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd ;
2616: --
2613: -- p_interim_enrt_rslt_id:=null;
2614: --end if;
2615: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd ;
2616: --
2617: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2618: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2619: hr_utility.set_location('interim_action='||l_interim_action,999);
2620: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2621: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2614: --end if;
2615: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd ;
2616: --
2617: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2618: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2619: hr_utility.set_location('interim_action='||l_interim_action,999);
2620: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2621: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2622: hr_utility.set_location('Leaving ' || l_proc, 999);
2615: p_bnft_or_option_rstrctn_cd := l_bnft_or_option_rstrctn_cd ;
2616: --
2617: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2618: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2619: hr_utility.set_location('interim_action='||l_interim_action,999);
2620: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2621: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2622: hr_utility.set_location('Leaving ' || l_proc, 999);
2623:
2616: --
2617: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2618: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2619: hr_utility.set_location('interim_action='||l_interim_action,999);
2620: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2621: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2622: hr_utility.set_location('Leaving ' || l_proc, 999);
2623:
2624: Exception
2617: hr_utility.set_location('interim_chc='||p_interim_elctbl_chc_id,999);
2618: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2619: hr_utility.set_location('interim_action='||l_interim_action,999);
2620: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2621: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2622: hr_utility.set_location('Leaving ' || l_proc, 999);
2623:
2624: Exception
2625: When others then
2618: hr_utility.set_location('dflt_to_asn_pndg_ctfn_cd='||l_DFLT_TO_ASN_PNDG_CTFN_CD,999);
2619: hr_utility.set_location('interim_action='||l_interim_action,999);
2620: hr_utility.set_location('interim_bnf='||p_interim_enrt_bnft_id,999);
2621: hr_utility.set_location('p_interim_enrt_rslt_id='||p_interim_enrt_rslt_id,999);
2622: hr_utility.set_location('Leaving ' || l_proc, 999);
2623:
2624: Exception
2625: When others then
2626: hr_utility.set_location(l_proc, 320);
2622: hr_utility.set_location('Leaving ' || l_proc, 999);
2623:
2624: Exception
2625: When others then
2626: hr_utility.set_location(l_proc, 320);
2627: rpt_error (p_proc => l_proc, p_last_action => l_last_place);
2628: -- hr_utility.set_location('ERROR: '||sqlerrm,1);
2629: -- for nocopy changes
2630: p_interim_elctbl_chc_id := l_interim_elctbl_chc_id;
2624: Exception
2625: When others then
2626: hr_utility.set_location(l_proc, 320);
2627: rpt_error (p_proc => l_proc, p_last_action => l_last_place);
2628: -- hr_utility.set_location('ERROR: '||sqlerrm,1);
2629: -- for nocopy changes
2630: p_interim_elctbl_chc_id := l_interim_elctbl_chc_id;
2631: fnd_message.raise_error;
2632: End Determine_interim;
2718:
2719: -- for nocopy changes
2720: l_prtt_enrt_rslt_id number := p_prtt_enrt_rslt_id;
2721: Begin
2722: hr_utility.set_location ('Entering '|| l_proc,5);
2723: hr_utility.set_location('pen_id='||to_char(p_prtt_enrt_rslt_id), 1499);
2724: open c_epe;
2725: fetch c_epe into l_epe;
2726: If c_epe%notfound then
2719: -- for nocopy changes
2720: l_prtt_enrt_rslt_id number := p_prtt_enrt_rslt_id;
2721: Begin
2722: hr_utility.set_location ('Entering '|| l_proc,5);
2723: hr_utility.set_location('pen_id='||to_char(p_prtt_enrt_rslt_id), 1499);
2724: open c_epe;
2725: fetch c_epe into l_epe;
2726: If c_epe%notfound then
2727: close c_epe;
2724: open c_epe;
2725: fetch c_epe into l_epe;
2726: If c_epe%notfound then
2727: close c_epe;
2728: hr_utility.set_location('BEN_91457_ELCTBL_CHC_NOT_FOUND id:'||
2729: to_char(p_elig_per_elctbl_chc_id), 10);
2730: fnd_message.set_name('BEN','BEN_91457_ELCTBL_CHC_NOT_FOUND');
2731: fnd_message.set_token('ID', to_char(p_elig_per_elctbl_chc_id));
2732: fnd_message.set_token('PROC', '1:'||l_proc);
2744: l_bnft_amt := p_bnft_amt;
2745: l_bnft_id := p_enrt_bnft_id;
2746: end if;
2747: --
2748: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt,1234);
2749: hr_utility.set_location(' l_bnft_id '||l_bnft_id,1234);
2750: -- Initialize enrt_id_tbl and enrt_val_tbl, then load rate data
2751: --
2752: For i in 1..10 loop
2745: l_bnft_id := p_enrt_bnft_id;
2746: end if;
2747: --
2748: hr_utility.set_location(' l_bnft_amt '||l_bnft_amt,1234);
2749: hr_utility.set_location(' l_bnft_id '||l_bnft_id,1234);
2750: -- Initialize enrt_id_tbl and enrt_val_tbl, then load rate data
2751: --
2752: For i in 1..10 loop
2753: l_rt(i).enrt_rt_id := NULL;
2763: End loop;
2764: l_suspend_flag := 'N';
2765: g_use_new_result:=true;
2766: --
2767: hr_utility.set_location('g_use_new_result',333);
2768: --
2769: --CFW. Same epe. Just needs to have the interim updated with the new pil
2770: --
2771: /*
2774: nvl(l_epe.oipl_id,-1) = nvl(l_epe.pen_oipl_id,-1) and
2775: l_epe.enrt_cvg_thru_dt = hr_api.g_eot then
2776: g_use_new_result:=false;
2777: --
2778: hr_utility.set_location('g_use_new_result false',333);
2779: --
2780: end if;
2781: */
2782: --
2839: ,P_BNF_ACTN_WARNING => l_dump_boolean
2840: ,P_CTFN_ACTN_WARNING => l_dump_boolean
2841: );
2842: g_use_new_result:=false;
2843: hr_utility.set_location ('Leaving '|| l_proc,99);
2844: Exception
2845: When others then
2846: hr_utility.set_location('ERROR '||l_proc, 98);
2847: rpt_error (p_proc => l_proc, p_last_action => l_last_place);
2842: g_use_new_result:=false;
2843: hr_utility.set_location ('Leaving '|| l_proc,99);
2844: Exception
2845: When others then
2846: hr_utility.set_location('ERROR '||l_proc, 98);
2847: rpt_error (p_proc => l_proc, p_last_action => l_last_place);
2848: -- for nocopy changes
2849: p_prtt_enrt_rslt_id := l_prtt_enrt_rslt_id;
2850: g_interim_flag := 'N'; -- bug 5653168
2897: -- for nocopy changes
2898: l_object_version_number number := p_object_version_number ;
2899:
2900: Begin
2901: hr_utility.set_location('Entering '||l_proc, 05);
2902:
2903: l_last_place := 'Calling get_ben_pen_upd_dt_mode';
2904: --
2905: hr_utility.set_location('p_datetrack_mode '||p_datetrack_mode,10);
2901: hr_utility.set_location('Entering '||l_proc, 05);
2902:
2903: l_last_place := 'Calling get_ben_pen_upd_dt_mode';
2904: --
2905: hr_utility.set_location('p_datetrack_mode '||p_datetrack_mode,10);
2906: --
2907: ben_prtt_enrt_result_api.get_ben_pen_upd_dt_mode
2908: (p_effective_date => p_effective_date
2909: ,p_base_key_value => p_prtt_enrt_rslt_id
2910: ,P_desired_datetrack_mode => p_datetrack_mode
2911: ,P_datetrack_allow => l_datetrack_mode
2912: );
2913: --
2914: hr_utility.set_location('l_datetrack_mode '||l_datetrack_mode,10);
2915: --
2916: l_last_place := 'Calling update_prtt_enrt_result';
2917: ben_prtt_enrt_result_api.update_prtt_enrt_result
2918: (p_validate => FALSE,
2988: ,p_warning => 'UNSUSPEND');
2989: end if;
2990: end if;
2991:
2992: hr_utility.set_location('Leaving:'||l_proc, 99);
2993: Exception
2994: When others then
2995: hr_utility.set_location('ERROR '||l_proc, 97);
2996: Rpt_error(p_proc => l_proc, p_last_action => l_last_place);
2991:
2992: hr_utility.set_location('Leaving:'||l_proc, 99);
2993: Exception
2994: When others then
2995: hr_utility.set_location('ERROR '||l_proc, 97);
2996: Rpt_error(p_proc => l_proc, p_last_action => l_last_place);
2997: -- for nocopy changes
2998: p_object_version_number := l_object_version_number ;
2999: fnd_message.raise_error;
3256: l_effective_start_date date;
3257: l_effective_end_date date;
3258: --
3259: begin
3260: hr_utility.set_location ('Entering '|| l_proc, 10);
3261: --
3262: -- Check all the input parameters are not null
3263: --
3264: hr_api.mandatory_arg_error
3287: Open Csr_prtt_enrt_rslt;
3288: Fetch Csr_prtt_enrt_rslt Into l_pen;
3289: If Csr_prtt_enrt_rslt%NOTFOUND Then
3290: Close Csr_prtt_enrt_rslt;
3291: hr_utility.set_location('BEN_91493_PEN_NOT_FOUND', 55);
3292: fnd_message.set_name('BEN','BEN_91493_PEN_NOT_FOUND');
3293: fnd_message.raise_error;
3294: End If;
3295: Close Csr_prtt_enrt_rslt;
3296: --bug#4172569 - if the comp object is already suspended then return
3297: --if more than one required action item then this procedure is called more
3298: --than one time
3299: if l_pen.sspndd_flag = 'Y' then
3300: hr_utility.set_location('Comp Object already suspended',56);
3301: hr_utility.set_location('Leaving '||l_proc,57);
3302: return;
3303: end if;
3304: --
3297: --if more than one required action item then this procedure is called more
3298: --than one time
3299: if l_pen.sspndd_flag = 'Y' then
3300: hr_utility.set_location('Comp Object already suspended',56);
3301: hr_utility.set_location('Leaving '||l_proc,57);
3302: return;
3303: end if;
3304: --
3305: if l_pen.prtt_enrt_rslt_id is not null then
3324: open c_interim (l_pen.prtt_enrt_rslt_id,l_pen.per_in_ler_id);
3325: fetch c_interim into l_rplcs_sspndd_rslt_id;
3326: close c_interim;
3327: --
3328: hr_utility.set_location ('Suspended result id'||l_pen.prtt_enrt_rslt_id,11);
3329: hr_utility.set_location ('interim result id'||l_rplcs_sspndd_rslt_id,12);
3330: if l_rplcs_sspndd_rslt_id is not null then
3331: l_pre_interim := true;
3332: else
3325: fetch c_interim into l_rplcs_sspndd_rslt_id;
3326: close c_interim;
3327: --
3328: hr_utility.set_location ('Suspended result id'||l_pen.prtt_enrt_rslt_id,11);
3329: hr_utility.set_location ('interim result id'||l_rplcs_sspndd_rslt_id,12);
3330: if l_rplcs_sspndd_rslt_id is not null then
3331: l_pre_interim := true;
3332: else
3333: l_pre_interim := false;
3359: ,p_interim_bnft_amt => l_interim_bnft_amt
3360: ,p_bnft_or_option_rstrctn_cd => l_bnft_or_option_rstrctn_cd
3361: );
3362: end if;
3363: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3364: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3365: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3366: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3367: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3360: ,p_bnft_or_option_rstrctn_cd => l_bnft_or_option_rstrctn_cd
3361: );
3362: end if;
3363: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3364: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3365: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3366: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3367: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3368: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3361: );
3362: end if;
3363: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3364: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3365: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3366: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3367: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3368: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3369: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3362: end if;
3363: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3364: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3365: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3366: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3367: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3368: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3369: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3370: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3363: hr_utility.set_location(' p_prtt_enrt_rslt_id '||p_prtt_enrt_rslt_id ,1234);
3364: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3365: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3366: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3367: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3368: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3369: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3370: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3371: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3364: hr_utility.set_location(' l_rplcs_sspndd_rslt_id '||l_rplcs_sspndd_rslt_id,1234);
3365: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3366: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3367: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3368: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3369: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3370: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3371: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3372: --
3365: hr_utility.set_location(' l_pen.bnft_amt '||l_pen.bnft_amt,1234);
3366: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3367: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3368: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3369: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3370: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3371: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3372: --
3373: /*ENH
3366: hr_utility.set_location(' l_interim_bnft_amt '||l_interim_bnft_amt,1234);
3367: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3368: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3369: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3370: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3371: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3372: --
3373: /*ENH
3374: if ( p_prtt_enrt_rslt_id<>nvl(l_rplcs_sspndd_rslt_id,-1) or
3367: hr_utility.set_location(' l_current_enrt_bnft_id '||l_current_enrt_bnft_id,1234);
3368: hr_utility.set_location(' g_enb '||ben_election_information.g_enrt_bnft_id,1234);
3369: hr_utility.set_location(' l_enrt_bnft_id '||l_enrt_bnft_id,1234);
3370: hr_utility.set_location(' l_pen.elig_per_elctbl_chc_id '||l_pen.elig_per_elctbl_chc_id,1234);
3371: hr_utility.set_location(' l_interim_epe_id '||l_interim_epe_id,1234);
3372: --
3373: /*ENH
3374: if ( p_prtt_enrt_rslt_id<>nvl(l_rplcs_sspndd_rslt_id,-1) or
3375: nvl(ben_election_information.g_enrt_bnft_id,-1) <> nvl(l_enrt_bnft_id,-1) or
3392: l_interim_epe_id is null -- No Interim Created But needs to be suspended
3393: )
3394: then
3395: --
3396: hr_utility.set_location('interim epe='||l_interim_epe_id,1066);
3397: hr_utility.set_location('suspended epe='||l_pen.elig_per_elctbl_chc_id,1066);
3398: --
3399: if l_interim_epe_id is not null then
3400: --
3393: )
3394: then
3395: --
3396: hr_utility.set_location('interim epe='||l_interim_epe_id,1066);
3397: hr_utility.set_location('suspended epe='||l_pen.elig_per_elctbl_chc_id,1066);
3398: --
3399: if l_interim_epe_id is not null then
3400: --
3401: -- the following two lines will cause a new result to be always written
3409: g_interim_flag := 'Y';
3410: --
3411: -- bug 6337803
3412: g_sspnded_rslt_id := p_prtt_enrt_rslt_id;
3413: hr_utility.set_location('p_prtt_enrt_rslt_id '|| p_prtt_enrt_rslt_id ,1212);
3414: hr_utility.set_location('g_sspnded_rslt_id '|| g_sspnded_rslt_id ,1212);
3415: process_interim
3416: (p_elig_per_elctbl_chc_id => l_interim_epe_id
3417: ,p_prtt_enrt_rslt_id => l_rplcs_sspndd_rslt_id
3410: --
3411: -- bug 6337803
3412: g_sspnded_rslt_id := p_prtt_enrt_rslt_id;
3413: hr_utility.set_location('p_prtt_enrt_rslt_id '|| p_prtt_enrt_rslt_id ,1212);
3414: hr_utility.set_location('g_sspnded_rslt_id '|| g_sspnded_rslt_id ,1212);
3415: process_interim
3416: (p_elig_per_elctbl_chc_id => l_interim_epe_id
3417: ,p_prtt_enrt_rslt_id => l_rplcs_sspndd_rslt_id
3418: ,p_enrt_bnft_id => l_enrt_bnft_id
3596: fetch c_pea into l_pea ;
3597: if c_pea%notfound then exit ;
3598: end if;
3599: --
3600: hr_utility.set_location('Updating the Required Flag to No ',5);
3601: hr_utility.set_location('Before Entering ben_prtt_enrt_actn_api.update_prtt_enrt_actn ' ,10);
3602: ben_prtt_enrt_actn_api.update_prtt_enrt_actn
3603: ( p_prtt_enrt_actn_id => l_pea.prtt_enrt_actn_id
3604: ,p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id
3597: if c_pea%notfound then exit ;
3598: end if;
3599: --
3600: hr_utility.set_location('Updating the Required Flag to No ',5);
3601: hr_utility.set_location('Before Entering ben_prtt_enrt_actn_api.update_prtt_enrt_actn ' ,10);
3602: ben_prtt_enrt_actn_api.update_prtt_enrt_actn
3603: ( p_prtt_enrt_actn_id => l_pea.prtt_enrt_actn_id
3604: ,p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id
3605: ,p_rslt_object_version_number => l_pea.pen_object_version_number
3615: ,p_effective_end_date => l_pea_effective_end_date
3616: ,p_object_version_number => l_pea.pea_object_version_number
3617: ,p_datetrack_mode => hr_api.g_correction
3618: );
3619: hr_utility.set_location('After ben_prtt_enrt_actn_api.update_prtt_enrt_actn ',20);
3620: --
3621: end loop ;
3622: close c_pea ;
3623: --
3621: end loop ;
3622: close c_pea ;
3623: --
3624: End If;
3625: hr_utility.set_location('Leaving:'||l_proc, 10);
3626: Exception
3627: When others then
3628: hr_utility.set_location('ERROR '||l_proc, 96);
3629: rpt_error(p_proc => l_proc, p_last_action => l_last_place);
3624: End If;
3625: hr_utility.set_location('Leaving:'||l_proc, 10);
3626: Exception
3627: When others then
3628: hr_utility.set_location('ERROR '||l_proc, 96);
3629: rpt_error(p_proc => l_proc, p_last_action => l_last_place);
3630: -- for nocopy changes
3631: p_object_version_number := l_object_version_number ;
3632: fnd_message.raise_error;
4000: l_enb_object_version_number number(15);
4001: l_previous_no_sspn boolean := false ;
4002: --END Bug 2958032
4003: Begin
4004: hr_utility.set_location('Entering:'||l_proc, 05);
4005: hr_utility.set_location('p_prtt_enrt_rslt_id:'||to_char(p_prtt_enrt_rslt_id), 05);
4006: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id, 05);
4007:
4008: --
4001: l_previous_no_sspn boolean := false ;
4002: --END Bug 2958032
4003: Begin
4004: hr_utility.set_location('Entering:'||l_proc, 05);
4005: hr_utility.set_location('p_prtt_enrt_rslt_id:'||to_char(p_prtt_enrt_rslt_id), 05);
4006: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id, 05);
4007:
4008: --
4009: -- Check all the input parameters are not null
4002: --END Bug 2958032
4003: Begin
4004: hr_utility.set_location('Entering:'||l_proc, 05);
4005: hr_utility.set_location('p_prtt_enrt_rslt_id:'||to_char(p_prtt_enrt_rslt_id), 05);
4006: hr_utility.set_location('p_per_in_ler_id:'||p_per_in_ler_id, 05);
4007:
4008: --
4009: -- Check all the input parameters are not null
4010: --
4035: Open Csr_prtt_enrt_rslt(p_prtt_enrt_rslt_id);
4036: Fetch Csr_prtt_enrt_rslt Into l_pen;
4037: If Csr_prtt_enrt_rslt%NOTFOUND Then
4038: Close Csr_prtt_enrt_rslt;
4039: hr_utility.set_location('BEN_91493_PEN_NOT_FOUND ID:'|| to_char(p_prtt_enrt_rslt_id), 65);
4040: fnd_message.set_name('BEN','BEN_91493_PEN_NOT_FOUND');
4041: fnd_message.raise_error;
4042: End If;
4043: Close Csr_prtt_enrt_rslt;
4053: end if;
4054: if p_per_in_ler_id <> l_pen.per_in_ler_id then
4055: l_carry_forward := 'Y';
4056: end if;
4057: hr_utility.set_location('l_carry_forward '||l_carry_forward, 10);
4058: --
4059: -- Get the info on the per_in_ler if it exists
4060: --
4061: hr_utility.set_location('past Csr_prtt_enrt_rslt', 10);
4057: hr_utility.set_location('l_carry_forward '||l_carry_forward, 10);
4058: --
4059: -- Get the info on the per_in_ler if it exists
4060: --
4061: hr_utility.set_location('past Csr_prtt_enrt_rslt', 10);
4062: hr_utility.set_location('per in ler id '||l_per_in_ler_id, 10);
4063:
4064: open c_per_in_ler_info;
4065: fetch c_per_in_ler_info into
4058: --
4059: -- Get the info on the per_in_ler if it exists
4060: --
4061: hr_utility.set_location('past Csr_prtt_enrt_rslt', 10);
4062: hr_utility.set_location('per in ler id '||l_per_in_ler_id, 10);
4063:
4064: open c_per_in_ler_info;
4065: fetch c_per_in_ler_info into
4066: l_lf_evt_ocrd_dt,
4065: fetch c_per_in_ler_info into
4066: l_lf_evt_ocrd_dt,
4067: l_ler_id;
4068: close c_per_in_ler_info;
4069: hr_utility.set_location('past c_per_in_ler_info', 10);
4070: --
4071: --bug#3202455
4072: open c_previous_status;
4073: fetch c_previous_status into l_dummy;
4072: open c_previous_status;
4073: fetch c_previous_status into l_dummy;
4074: if c_previous_status%found then
4075: l_previous_no_sspn := true;
4076: hr_utility.set_location('l_previous_no_sspn',11);
4077: end if;
4078: close c_previous_status;
4079: If (nvl(l_pen.sspndd_flag, 'X') <> 'N' ) then
4080: --
4156: close c_unsspnd_enrt_cd;
4157: else
4158: l_unsspnd_enrt_cd:='ACD';
4159: end if;
4160: hr_utility.set_location('past c_unsspnd_enrt_cd', 10);
4161: --
4162: -- need choice info to recalc dates
4163: --
4164: open c_choice_info(p_prtt_enrt_rslt_id);
4171: l_epe_object_version_number ;
4172: --END Bug 2958032
4173: if c_choice_info%notfound then
4174: --
4175: hr_utility.set_location('BEN_91457_ELCTBL_CHC_NOT_FOUND rslt id:'||
4176: to_char(p_prtt_enrt_rslt_id), 75);
4177: fnd_message.set_name('BEN','BEN_91457_ELCTBL_CHC_NOT_FOUND');
4178: fnd_message.set_token('ID', 'NA');
4179: fnd_message.set_token('PROC', '2:'||l_proc);
4182: close c_choice_info;
4183: --
4184: If l_unsspnd_enrt_cd = 'ACD' then
4185: l_unsusp_cvg_start_date := p_effective_date;
4186: hr_utility.set_location('l_pen.enrt_cvg_strt_dt:'||l_pen.enrt_cvg_strt_dt, 60);
4187: Elsif l_unsspnd_enrt_cd = 'UEECSD' then
4188: --
4189: -- Use existing enrollments coverage start Date
4190: --
4224: );
4225: l_unsusp_cvg_start_date :=l_enrt_cvg_strt_dt;
4226: --
4227: else
4228: hr_utility.set_location('1 g_cmpltn dt'||p_cmpltd_dt,777);
4229:
4230: ben_determine_date.main
4231: (p_date_cd => l_unsspnd_enrt_cd
4232: ,p_formula_id => null
4242: ,p_returned_date => l_unsusp_cvg_start_date
4243: );
4244: End if;
4245: --
4246: hr_utility.set_location('2 l_unsusp_cvg_start_date'||l_unsusp_cvg_start_date,777);
4247: ----Bug 7557403
4248: -----set the global variables
4249: open c_fonm_check(l_elig_per_elctbl_chc_id);
4250: fetch c_fonm_check into l_fonm_check;
4252: if l_fonm_check.fonm_cvg_strt_dt is not null then
4253: ben_manage_life_events.g_fonm_cvg_strt_dt := l_unsusp_cvg_start_date;
4254: ben_manage_life_events.g_fonm_rt_strt_dt := l_unsusp_cvg_start_date;
4255: end if;
4256: hr_utility.set_location('l_unsspnd_enrt_cd : '||l_unsspnd_enrt_cd,777);
4257: if l_unsspnd_enrt_cd like 'FD%' then -------------------------Bug 8244575
4258: ----------Bug 8420062,if multiple rates are attached to the comp object,then
4259: ----------update all the rate records.
4260: --update the enrt rt table with the new rt start date
4266: where enrt_rt_id = l_get_enrt_rt.enrt_rt_id;
4267: end if;
4268: close c_get_enrt_rt;*/
4269: for l_get_rt in c_get_enrt_rt(l_elig_per_elctbl_chc_id) loop
4270: hr_utility.set_location('l_get_rt.enrt_rt_id : '||l_get_rt.enrt_rt_id,777);
4271: update ben_enrt_rt
4272: set rt_strt_dt = l_unsusp_cvg_start_date
4273: where enrt_rt_id = l_get_rt.enrt_rt_id;
4274: end loop;
4273: where enrt_rt_id = l_get_rt.enrt_rt_id;
4274: end loop;
4275: ----------Bug 8420062
4276: end if;
4277: hr_utility.set_location('g_fonm_rt_start_date'||ben_manage_life_events.g_fonm_rt_strt_dt,777);
4278: hr_utility.set_location('g_fonm_cvg_start_date'||ben_manage_life_events.g_fonm_cvg_strt_dt,777);
4279: ----Bug 7557403
4280:
4281: l_cvg_thru_dt := l_unsusp_cvg_start_date - 1 ;
4274: end loop;
4275: ----------Bug 8420062
4276: end if;
4277: hr_utility.set_location('g_fonm_rt_start_date'||ben_manage_life_events.g_fonm_rt_strt_dt,777);
4278: hr_utility.set_location('g_fonm_cvg_start_date'||ben_manage_life_events.g_fonm_cvg_strt_dt,777);
4279: ----Bug 7557403
4280:
4281: l_cvg_thru_dt := l_unsusp_cvg_start_date - 1 ;
4282: -- need choice info to recalc dates
4328: l_datetrack_mode := hr_api.g_correction;
4329: Else
4330: l_datetrack_mode := hr_api.g_update;
4331: End if;
4332: hr_utility.set_location('l_cvg_thru_dt'||l_cvg_thru_dt,777);
4333: --
4334: Update_sspndd_flag
4335: (p_prtt_enrt_rslt_id => l_interim.prtt_enrt_rslt_id
4336: ,p_effective_date => p_effective_date
4368: close c_unsspnd_enrt_cd;
4369: else
4370: l_unsspnd_enrt_cd:='ACD';
4371: end if;
4372: hr_utility.set_location('past c_unsspnd_enrt_cd', 10);
4373: --
4374: -- need choice info to recalc dates
4375: --
4376: open c_choice_info(p_prtt_enrt_rslt_id);
4385: if c_choice_info%notfound then
4386: --
4387: -- error
4388: --
4389: hr_utility.set_location('BEN_91457_ELCTBL_CHC_NOT_FOUND rslt id:'||
4390: to_char(p_prtt_enrt_rslt_id), 75);
4391: fnd_message.set_name('BEN','BEN_91457_ELCTBL_CHC_NOT_FOUND');
4392: fnd_message.set_token('ID', 'NA');
4393: fnd_message.set_token('PROC', '2:'||l_proc);
4393: fnd_message.set_token('PROC', '2:'||l_proc);
4394: fnd_message.raise_error;
4395: end if;
4396: close c_choice_info;
4397: hr_utility.set_location('past c_choice_info', 10);
4398: --
4399: -- This section handles the changes to the suspended enrollment's
4400: -- coverage start date
4401: --
4398: --
4399: -- This section handles the changes to the suspended enrollment's
4400: -- coverage start date
4401: --
4402: hr_utility.set_location('l_unsspnd_enrt_cd:'||l_unsspnd_enrt_cd, 60);
4403: hr_utility.set_location('p_effective_date:'||p_effective_date, 60);
4404: hr_utility.set_location('l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4405:
4406: If ( nvl(p_cmpltd_dt,p_effective_date) >= l_pen.enrt_cvg_strt_dt ) then
4399: -- This section handles the changes to the suspended enrollment's
4400: -- coverage start date
4401: --
4402: hr_utility.set_location('l_unsspnd_enrt_cd:'||l_unsspnd_enrt_cd, 60);
4403: hr_utility.set_location('p_effective_date:'||p_effective_date, 60);
4404: hr_utility.set_location('l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4405:
4406: If ( nvl(p_cmpltd_dt,p_effective_date) >= l_pen.enrt_cvg_strt_dt ) then
4407: -- Bug 8488400 : Added nvl(p_cmpltd_dt,p_effective_date) to the if condition
4400: -- coverage start date
4401: --
4402: hr_utility.set_location('l_unsspnd_enrt_cd:'||l_unsspnd_enrt_cd, 60);
4403: hr_utility.set_location('p_effective_date:'||p_effective_date, 60);
4404: hr_utility.set_location('l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4405:
4406: If ( nvl(p_cmpltd_dt,p_effective_date) >= l_pen.enrt_cvg_strt_dt ) then
4407: -- Bug 8488400 : Added nvl(p_cmpltd_dt,p_effective_date) to the if condition
4408: --
4412: If l_unsspnd_enrt_cd = 'ACD' then
4413: --
4414: l_pen.enrt_cvg_strt_dt := nvl(p_cmpltd_dt,p_effective_date) ;
4415: --
4416: hr_utility.set_location('l_pen.enrt_cvg_strt_dt:'||l_pen.enrt_cvg_strt_dt, 60);
4417: --
4418: Elsif l_unsspnd_enrt_cd = 'UEECSD' then
4419: --
4420: -- Do nothing already set
4454: );
4455: l_pen.enrt_cvg_strt_dt :=l_enrt_cvg_strt_dt;
4456: --
4457: else
4458: hr_utility.set_location('TWO g_cmpltn dt'||p_cmpltd_dt,777);
4459: ben_determine_date.main
4460: (p_date_cd => l_unsspnd_enrt_cd
4461: ,p_formula_id => null
4462: ,P_PER_IN_LER_ID => p_per_in_ler_id
4469: ,p_lf_evt_ocrd_dt => l_lf_evt_ocrd_dt -- p_effective_date
4470: ,p_cmpltd_dt => nvl(p_cmpltd_dt,p_effective_date)
4471: ,p_returned_date => l_enrt_cvg_strt_dt
4472: );
4473: hr_utility.set_location('TWO l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4474: l_pen.enrt_cvg_strt_dt :=l_enrt_cvg_strt_dt;
4475: hr_utility.set_location('TWO l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4476:
4477: End if;
4471: ,p_returned_date => l_enrt_cvg_strt_dt
4472: );
4473: hr_utility.set_location('TWO l_pen.enrt_cvg_strt_dt'||l_pen.enrt_cvg_strt_dt,777);
4474: l_pen.enrt_cvg_strt_dt :=l_enrt_cvg_strt_dt;
4475: hr_utility.set_location('TWO l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4476:
4477: End if;
4478: --
4479: end if; -- l_previous_no_sspn
4643: l_datetrack_mode := p_datetrack_mode;
4644: --
4645: END IF;
4646: --
4647: hr_utility.set_location('l_datetrack_mode:'||l_datetrack_mode, 60);
4648: hr_utility.set_location('l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4649: hr_utility.set_location('BEFORE l_pen.enrt_cvg_strt_dt '||l_pen.enrt_cvg_strt_dt ,777);
4650:
4651: --
4644: --
4645: END IF;
4646: --
4647: hr_utility.set_location('l_datetrack_mode:'||l_datetrack_mode, 60);
4648: hr_utility.set_location('l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4649: hr_utility.set_location('BEFORE l_pen.enrt_cvg_strt_dt '||l_pen.enrt_cvg_strt_dt ,777);
4650:
4651: --
4652: if l_update_dates and not l_previous_no_sspn then
4645: END IF;
4646: --
4647: hr_utility.set_location('l_datetrack_mode:'||l_datetrack_mode, 60);
4648: hr_utility.set_location('l_enrt_cvg_strt_dt'||l_enrt_cvg_strt_dt,777);
4649: hr_utility.set_location('BEFORE l_pen.enrt_cvg_strt_dt '||l_pen.enrt_cvg_strt_dt ,777);
4650:
4651: --
4652: if l_update_dates and not l_previous_no_sspn then
4653: --
4654: -- As the above cursor Csr_prtt_enrt_rslt replaces the computed
4655: -- enrt_cvrg_strt_dt reset it with computed value.
4656: --
4657: l_pen.enrt_cvg_strt_dt := l_enrt_cvg_strt_dt;
4658: hr_utility.set_location('INSIDE l_pen.enrt_cvg_strt_dt '||l_pen.enrt_cvg_strt_dt ,777);
4659:
4660: --
4661: end if;
4662: --
4682: l_enrt_perd_id,
4683: l_epe_prtt_enrt_rslt_id,
4684: l_epe_object_version_number;
4685: if c_choice_info%notfound then
4686: hr_utility.set_location('BEN_91457_ELCTBL_CHC_NOT_FOUND rslt id:'||
4687: to_char(p_prtt_enrt_rslt_id), 75);
4688: fnd_message.set_name('BEN','BEN_91457_ELCTBL_CHC_NOT_FOUND');
4689: fnd_message.set_token('ID', 'NA');
4690: fnd_message.set_token('PROC', '2:'||l_proc);
4691: fnd_message.raise_error;
4692: end if;
4693: close c_choice_info;
4694: --
4695: hr_utility.set_location('got the latest epe info', 10);
4696: hr_utility.set_location(' l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,22);
4697: hr_utility.set_location(' l_epe_prtt_enrt_rslt_id '||l_epe_prtt_enrt_rslt_id,23);
4698: --
4699: if l_epe_prtt_enrt_rslt_id is null or
4692: end if;
4693: close c_choice_info;
4694: --
4695: hr_utility.set_location('got the latest epe info', 10);
4696: hr_utility.set_location(' l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,22);
4697: hr_utility.set_location(' l_epe_prtt_enrt_rslt_id '||l_epe_prtt_enrt_rslt_id,23);
4698: --
4699: if l_epe_prtt_enrt_rslt_id is null or
4700: l_epe_prtt_enrt_rslt_id <> p_prtt_enrt_rslt_id then
4693: close c_choice_info;
4694: --
4695: hr_utility.set_location('got the latest epe info', 10);
4696: hr_utility.set_location(' l_elig_per_elctbl_chc_id '||l_elig_per_elctbl_chc_id,22);
4697: hr_utility.set_location(' l_epe_prtt_enrt_rslt_id '||l_epe_prtt_enrt_rslt_id,23);
4698: --
4699: if l_epe_prtt_enrt_rslt_id is null or
4700: l_epe_prtt_enrt_rslt_id <> p_prtt_enrt_rslt_id then
4701: --
4829: end if;
4830: l_last_place := 'Calling the Post-Result RCO';
4831: --
4832: If p_called_from = 'BENEOPEH' then
4833: hr_utility.set_location(l_proc||' Called from Override',99);
4834: else
4835: --
4836: If (p_post_rslt_flag = 'Y') Then
4837: l_last_place := 'Calling result multi-row edit';
4891: end if;
4892: End if;
4893: End if; -- p_called_from
4894: End If;
4895: hr_utility.set_location('Leaving:'|| l_proc, 99);
4896: Exception
4897: When others then
4898: hr_utility.set_location('ERROR '||l_proc, 95);
4899: rpt_error(l_proc, l_last_place);
4894: End If;
4895: hr_utility.set_location('Leaving:'|| l_proc, 99);
4896: Exception
4897: When others then
4898: hr_utility.set_location('ERROR '||l_proc, 95);
4899: rpt_error(l_proc, l_last_place);
4900: -- for nocopy changes
4901: p_object_version_number := l_object_version_number ;
4902: fnd_message.raise_error;