[Home] [Help]
241: - Enabled cache mode for rates_and_coverage
242: dates. This caches the per in ler.
243: 25-May-00 jcarpent 115.115 - Added logic to have crnt_enrt_prclds_chg
244: work for entire ptip. (5216,1308627)
245: 29-May-00 mhoyes 115.116 - Commented out nocopy hr_utility calls for
246: performance in highly executed logic.
247: - Tuning by dharris.
248: 31-May-00 mhoyes 115.117 - Passed through current comp object
249: row parameters to avoid cache calls.
284: defaults to change elctbl_flag also.
285: Needed for rules which use enrol/elig
286: in other plans for electablility.
287: 14-Sep-00 jcarpent 115.132 - Merged version of 115.131 with 130.
288: 25-Sep-00 mhoyes 115.133 - Removed hr_utility.set_locations.
289: 07-Nov-00 mhoyes 115.134 - Added hr_utility.set_locations for
290: profiling.
291: - Modified update_defaults to use the
292: electable choice performance API.
285: Needed for rules which use enrol/elig
286: in other plans for electablility.
287: 14-Sep-00 jcarpent 115.132 - Merged version of 115.131 with 130.
288: 25-Sep-00 mhoyes 115.133 - Removed hr_utility.set_locations.
289: 07-Nov-00 mhoyes 115.134 - Added hr_utility.set_locations for
290: profiling.
291: - Modified update_defaults to use the
292: electable choice performance API.
293: 15-dec-00 tilak 115.135 bug: 1527086 early denenrollment date carried forward
686: l_oipl_rec ben_cobj_cache.g_oipl_inst_row;
687: l_ler_dflt_flag varchar2(30); -- 3510229
688: BEGIN
689: --
690: g_debug := hr_utility.debug_enabled;
691: --
692: if g_debug then
693: hr_utility.set_location('Entering: ' || l_proc, 10);
694: end if;
689: --
690: g_debug := hr_utility.debug_enabled;
691: --
692: if g_debug then
693: hr_utility.set_location('Entering: ' || l_proc, 10);
694: end if;
695: --
696: l_dflt_enrt_cd := NULL;
697: --
729: --
730: -- 2
731: --
732: if g_debug then
733: hr_utility.set_location('In the case 2 ' , 100);
734: end if;
735: --
736: --l_dflt_enrt_cd := ben_cobj_cache.g_oipl_currow.dflt_enrt_cd;
737: --l_dflt_enrt_rl := ben_cobj_cache.g_oipl_currow.dflt_enrt_det_rl;
738: --
739: l_dflt_enrt_cd := p_oipl_rec.dflt_enrt_cd ;
740: l_dflt_enrt_rl := p_oipl_rec.dflt_enrt_det_rl ;
741:
742: --hr_utility.set_location(' p_oipl_rec.oipl_id '||p_oipl_rec.oipl_id ,110);
743: --hr_utility.set_location(' p_oipl_rec.dflt_enrt_cd '||p_oipl_rec.dflt_enrt_cd ,110);
744: --hr_utility.set_location(' p_oipl_rec.dflt_flag '||p_oipl_rec.dflt_flag, 110) ;
745: --
746: if l_dflt_enrt_cd is not null
739: l_dflt_enrt_cd := p_oipl_rec.dflt_enrt_cd ;
740: l_dflt_enrt_rl := p_oipl_rec.dflt_enrt_det_rl ;
741:
742: --hr_utility.set_location(' p_oipl_rec.oipl_id '||p_oipl_rec.oipl_id ,110);
743: --hr_utility.set_location(' p_oipl_rec.dflt_enrt_cd '||p_oipl_rec.dflt_enrt_cd ,110);
744: --hr_utility.set_location(' p_oipl_rec.dflt_flag '||p_oipl_rec.dflt_flag, 110) ;
745: --
746: if l_dflt_enrt_cd is not null
747: and p_level is null then -- 3510229
740: l_dflt_enrt_rl := p_oipl_rec.dflt_enrt_det_rl ;
741:
742: --hr_utility.set_location(' p_oipl_rec.oipl_id '||p_oipl_rec.oipl_id ,110);
743: --hr_utility.set_location(' p_oipl_rec.dflt_enrt_cd '||p_oipl_rec.dflt_enrt_cd ,110);
744: --hr_utility.set_location(' p_oipl_rec.dflt_flag '||p_oipl_rec.dflt_flag, 110) ;
745: --
746: if l_dflt_enrt_cd is not null
747: and p_level is null then -- 3510229
748: p_level:='OIPL';
769: -- p_ler_dflt_flag := l_ler_dflt_flag;
770: --end if;
771: --l_ler_dflt_flag := null ;
772: if g_debug then
773: hr_utility.set_location('after LER pNip chk p_ler_dflt_flag: '||p_ler_dflt_flag , 100);
774: end if;
775: -- 3510229 end
776:
777: end if;
779: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
780: p_ler_dflt_flag := l_ler_dflt_flag ;
781: end if ;
782: if g_debug then
783: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,40);
784: hr_utility.set_location(l_dflt_enrt_cd,40);
785: end if;
786:
787: ELSIF p_pgm_id IS NOT NULL
780: p_ler_dflt_flag := l_ler_dflt_flag ;
781: end if ;
782: if g_debug then
783: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,40);
784: hr_utility.set_location(l_dflt_enrt_cd,40);
785: end if;
786:
787: ELSIF p_pgm_id IS NOT NULL
788: AND l_dflt_enrt_cd IS NULL THEN
802: --if p_ler_dflt_flag is null then
803: -- p_ler_dflt_flag := l_ler_dflt_flag;
804: --end if;
805: if g_debug then
806: hr_utility.set_location('after LER PLIP chk p_ler_dflt_flag: '||p_ler_dflt_flag , 100);
807: end if;
808: --l_ler_dflt_flag := null ;
809: -- 3510229 end
810:
813: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
814: p_ler_dflt_flag := l_ler_dflt_flag ;
815: end if ;
816: if g_debug then
817: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,50);
818: hr_utility.set_location(l_dflt_enrt_cd,50);
819: end if;
820: -- 4008380
821: -- there could be plip but the setup may be in plan ler level
814: p_ler_dflt_flag := l_ler_dflt_flag ;
815: end if ;
816: if g_debug then
817: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,50);
818: hr_utility.set_location(l_dflt_enrt_cd,50);
819: end if;
820: -- 4008380
821: -- there could be plip but the setup may be in plan ler level
822: IF l_dflt_enrt_cd IS NULL THEN
828: if l_dflt_enrt_cd is not null
829: and p_level is null then -- 3510229
830: p_level:='LER_PL';
831: if g_debug then
832: hr_utility.set_location('after LER Plan chk p_ler_dflt_flag: '||p_ler_dflt_flag , 100);
833: end if;
834: end if;
835: -- there could be default flag without default code 4008380
836: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
836: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
837: p_ler_dflt_flag := l_ler_dflt_flag ;
838: end if ;
839: if g_debug then
840: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,40);
841: hr_utility.set_location(l_dflt_enrt_cd,40);
842: end if;
843: end if ;
844:
837: p_ler_dflt_flag := l_ler_dflt_flag ;
838: end if ;
839: if g_debug then
840: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,40);
841: hr_utility.set_location(l_dflt_enrt_cd,40);
842: end if;
843: end if ;
844:
845:
855: if l_dflt_enrt_cd is not null
856: and p_level is null then -- 3510229
857: p_level:='LER_PTIP';
858: end if;
859: -- hr_utility.set_location(l_dflt_enrt_cd,60);
860: IF l_dflt_enrt_cd IS NULL THEN
861: --
862: -- 5
863: --
877: IF l_dflt_enrt_cd IS NULL THEN
878: --
879: -- 6
880: --
881: hr_utility.set_location('In the case 2 ' , 100);
882: --
883: --l_dflt_enrt_cd := ben_cobj_cache.g_oipl_currow.dflt_enrt_cd;
884: --l_dflt_enrt_rl := ben_cobj_cache.g_oipl_currow.dflt_enrt_det_rl;
885: --
885: --
886: l_dflt_enrt_cd := p_oipl_rec.dflt_enrt_cd ;
887: l_dflt_enrt_rl := p_oipl_rec.dflt_enrt_det_rl ;
888:
889: --hr_utility.set_location(' p_oipl_rec.oipl_id '||p_oipl_rec.oipl_id ,110);
890: --hr_utility.set_location(' p_oipl_rec.dflt_enrt_cd '||p_oipl_rec.dflt_enrt_cd ,110);
891: --hr_utility.set_location(' p_oipl_rec.dflt_flag '||p_oipl_rec.dflt_flag, 110) ;
892: --
893: if l_dflt_enrt_cd is not null
886: l_dflt_enrt_cd := p_oipl_rec.dflt_enrt_cd ;
887: l_dflt_enrt_rl := p_oipl_rec.dflt_enrt_det_rl ;
888:
889: --hr_utility.set_location(' p_oipl_rec.oipl_id '||p_oipl_rec.oipl_id ,110);
890: --hr_utility.set_location(' p_oipl_rec.dflt_enrt_cd '||p_oipl_rec.dflt_enrt_cd ,110);
891: --hr_utility.set_location(' p_oipl_rec.dflt_flag '||p_oipl_rec.dflt_flag, 110) ;
892: --
893: if l_dflt_enrt_cd is not null
894: and p_level is null then -- 3510229
887: l_dflt_enrt_rl := p_oipl_rec.dflt_enrt_det_rl ;
888:
889: --hr_utility.set_location(' p_oipl_rec.oipl_id '||p_oipl_rec.oipl_id ,110);
890: --hr_utility.set_location(' p_oipl_rec.dflt_enrt_cd '||p_oipl_rec.dflt_enrt_cd ,110);
891: --hr_utility.set_location(' p_oipl_rec.dflt_flag '||p_oipl_rec.dflt_flag, 110) ;
892: --
893: if l_dflt_enrt_cd is not null
894: and p_level is null then -- 3510229
895: p_level:='OIPL';
898: END IF;
899: end if;
900: --End Bug 6061856
901:
902: -- hr_utility.set_location(l_dflt_enrt_cd,80);
903: IF p_pgm_id IS NULL
904: AND l_dflt_enrt_cd IS NULL THEN
905: --
906: -- 7
909: -- l_dflt_enrt_cd := ben_cobj_cache.g_pl_currow.nip_dflt_enrt_cd;
910: -- l_dflt_enrt_rl := ben_cobj_cache.g_pl_currow.nip_dflt_enrt_det_rl;
911: --
912: if g_debug then
913: hr_utility.set_location(' p_pl_rec.pl_id '||p_oipl_rec.oipl_id ,110);
914: hr_utility.set_location(' p_pl_rec.nip_dflt_enrt_cd '||p_pl_rec.nip_dflt_enrt_cd ,110);
915: hr_utility.set_location(' p_pl_rec.nip_dflt_flag '||p_pl_rec.nip_dflt_flag, 110) ;
916: end if;
917: --
910: -- l_dflt_enrt_rl := ben_cobj_cache.g_pl_currow.nip_dflt_enrt_det_rl;
911: --
912: if g_debug then
913: hr_utility.set_location(' p_pl_rec.pl_id '||p_oipl_rec.oipl_id ,110);
914: hr_utility.set_location(' p_pl_rec.nip_dflt_enrt_cd '||p_pl_rec.nip_dflt_enrt_cd ,110);
915: hr_utility.set_location(' p_pl_rec.nip_dflt_flag '||p_pl_rec.nip_dflt_flag, 110) ;
916: end if;
917: --
918: l_dflt_enrt_cd := p_pl_rec.nip_dflt_enrt_cd ;
911: --
912: if g_debug then
913: hr_utility.set_location(' p_pl_rec.pl_id '||p_oipl_rec.oipl_id ,110);
914: hr_utility.set_location(' p_pl_rec.nip_dflt_enrt_cd '||p_pl_rec.nip_dflt_enrt_cd ,110);
915: hr_utility.set_location(' p_pl_rec.nip_dflt_flag '||p_pl_rec.nip_dflt_flag, 110) ;
916: end if;
917: --
918: l_dflt_enrt_cd := p_pl_rec.nip_dflt_enrt_cd ;
919: l_dflt_enrt_rl := p_pl_rec.nip_dflt_enrt_det_rl ;
932: and p_level is null then -- 3510229
933: p_level:='PL';
934: end if;
935: --
936: -- hr_utility.set_location(l_dflt_enrt_cd,90);
937:
938: ELSIF p_pgm_id IS NOT NULL
939: AND l_dflt_enrt_cd IS NULL THEN
940: --
951: and p_level is null then -- 3510229
952: p_level:='PLIP';
953: end if;
954: if g_debug then
955: hr_utility.set_location(l_dflt_enrt_cd,100);
956: end if;
957: --
958: IF l_dflt_enrt_cd IS NULL THEN
959: --
970: and p_level is null then -- 3510229
971: p_level:='PTIP';
972: end if;
973: if g_debug then
974: hr_utility.set_location(l_dflt_enrt_cd,110);
975: end if;
976: --
977: END IF;
978: END IF;
977: END IF;
978: END IF;
979: --
980: if g_debug then
981: hr_utility.set_location(' p_pgm_id '||p_pgm_id||' pl_id '||p_pl_id||' oipl '||p_oipl_id||
982: ' plip '||p_plip_id||' ptip '||p_ptip_id,130);
983: hr_utility.set_location('dflt_enrt_cd= '||l_dflt_enrt_cd,130);
984: hr_utility.set_location('dflt_enrt_rl= '||l_dflt_enrt_rl,140);
985: hr_utility.set_location('p_ler_dflt_flag= '||p_ler_dflt_flag ,140);
979: --
980: if g_debug then
981: hr_utility.set_location(' p_pgm_id '||p_pgm_id||' pl_id '||p_pl_id||' oipl '||p_oipl_id||
982: ' plip '||p_plip_id||' ptip '||p_ptip_id,130);
983: hr_utility.set_location('dflt_enrt_cd= '||l_dflt_enrt_cd,130);
984: hr_utility.set_location('dflt_enrt_rl= '||l_dflt_enrt_rl,140);
985: hr_utility.set_location('p_ler_dflt_flag= '||p_ler_dflt_flag ,140);
986: end if;
987: p_dflt_enrt_cd := l_dflt_enrt_cd;
980: if g_debug then
981: hr_utility.set_location(' p_pgm_id '||p_pgm_id||' pl_id '||p_pl_id||' oipl '||p_oipl_id||
982: ' plip '||p_plip_id||' ptip '||p_ptip_id,130);
983: hr_utility.set_location('dflt_enrt_cd= '||l_dflt_enrt_cd,130);
984: hr_utility.set_location('dflt_enrt_rl= '||l_dflt_enrt_rl,140);
985: hr_utility.set_location('p_ler_dflt_flag= '||p_ler_dflt_flag ,140);
986: end if;
987: p_dflt_enrt_cd := l_dflt_enrt_cd;
988: p_dflt_enrt_rl := l_dflt_enrt_rl;
981: hr_utility.set_location(' p_pgm_id '||p_pgm_id||' pl_id '||p_pl_id||' oipl '||p_oipl_id||
982: ' plip '||p_plip_id||' ptip '||p_ptip_id,130);
983: hr_utility.set_location('dflt_enrt_cd= '||l_dflt_enrt_cd,130);
984: hr_utility.set_location('dflt_enrt_rl= '||l_dflt_enrt_rl,140);
985: hr_utility.set_location('p_ler_dflt_flag= '||p_ler_dflt_flag ,140);
986: end if;
987: p_dflt_enrt_cd := l_dflt_enrt_cd;
988: p_dflt_enrt_rl := l_dflt_enrt_rl;
989: if g_debug then
986: end if;
987: p_dflt_enrt_cd := l_dflt_enrt_cd;
988: p_dflt_enrt_rl := l_dflt_enrt_rl;
989: if g_debug then
990: hr_utility.set_location('Leaving: ' || l_proc, 150);
991: end if;
992: exception
993: --
994: when others then
1246: -- set: p_enrt_cd and p_enrt_rl
1247: -- ----------------------------
1248:
1249: ----
1250: hr_utility.set_location( 'oipl' || oipl_enrt_cd , 10) ;
1251: hr_utility.set_location( 'pl' || pnip_enrt_cd , 10) ;
1252: hr_utility.set_location( 'plip' || plip_enrt_cd , 10);
1253: hr_utility.set_location( 'ptip' || ptip_enrt_cd , 10) ;
1254:
1247: -- ----------------------------
1248:
1249: ----
1250: hr_utility.set_location( 'oipl' || oipl_enrt_cd , 10) ;
1251: hr_utility.set_location( 'pl' || pnip_enrt_cd , 10) ;
1252: hr_utility.set_location( 'plip' || plip_enrt_cd , 10);
1253: hr_utility.set_location( 'ptip' || ptip_enrt_cd , 10) ;
1254:
1255:
1248:
1249: ----
1250: hr_utility.set_location( 'oipl' || oipl_enrt_cd , 10) ;
1251: hr_utility.set_location( 'pl' || pnip_enrt_cd , 10) ;
1252: hr_utility.set_location( 'plip' || plip_enrt_cd , 10);
1253: hr_utility.set_location( 'ptip' || ptip_enrt_cd , 10) ;
1254:
1255:
1256:
1249: ----
1250: hr_utility.set_location( 'oipl' || oipl_enrt_cd , 10) ;
1251: hr_utility.set_location( 'pl' || pnip_enrt_cd , 10) ;
1252: hr_utility.set_location( 'plip' || plip_enrt_cd , 10);
1253: hr_utility.set_location( 'ptip' || ptip_enrt_cd , 10) ;
1254:
1255:
1256:
1257: hr_utility.set_location( 'oipl id ' || p_oipl_id , 10) ;
1253: hr_utility.set_location( 'ptip' || ptip_enrt_cd , 10) ;
1254:
1255:
1256:
1257: hr_utility.set_location( 'oipl id ' || p_oipl_id , 10) ;
1258: hr_utility.set_location( 'ptip id ' || p_ptip_id , 10) ;
1259: hr_utility.set_location( 'plip id ' || p_plip_id , 10) ;
1260: hr_utility.set_location( 'pl id ' || p_pl_id , 10) ;
1261: ---
1254:
1255:
1256:
1257: hr_utility.set_location( 'oipl id ' || p_oipl_id , 10) ;
1258: hr_utility.set_location( 'ptip id ' || p_ptip_id , 10) ;
1259: hr_utility.set_location( 'plip id ' || p_plip_id , 10) ;
1260: hr_utility.set_location( 'pl id ' || p_pl_id , 10) ;
1261: ---
1262:
1255:
1256:
1257: hr_utility.set_location( 'oipl id ' || p_oipl_id , 10) ;
1258: hr_utility.set_location( 'ptip id ' || p_ptip_id , 10) ;
1259: hr_utility.set_location( 'plip id ' || p_plip_id , 10) ;
1260: hr_utility.set_location( 'pl id ' || p_pl_id , 10) ;
1261: ---
1262:
1263:
1256:
1257: hr_utility.set_location( 'oipl id ' || p_oipl_id , 10) ;
1258: hr_utility.set_location( 'ptip id ' || p_ptip_id , 10) ;
1259: hr_utility.set_location( 'plip id ' || p_plip_id , 10) ;
1260: hr_utility.set_location( 'pl id ' || p_pl_id , 10) ;
1261: ---
1262:
1263:
1264: IF oipl_enrt_cd IS NULL THEN
1287: p_enrt_cd := oipl_enrt_cd;
1288: p_enrt_rl := oipl_enrt_rl;
1289: p_enrt_cd_level := 'OIPL' ;
1290: END IF;
1291: hr_utility.set_location( 'p_enrt_cd_level ' || p_enrt_cd_level , 10) ;
1292:
1293: IF p_just_prclds_chg_flag THEN
1294: RETURN;
1295: END IF;
1395: p_ler_chg_oipl_found_flag := 'Y';
1396: p_ler_chg_found_flag := 'Y';
1397: END IF;
1398: END IF;
1399: hr_utility.set_location( 'p_enrt_cd_level ' || p_enrt_cd_level , 10) ;
1400: exception
1401: --
1402: when others then
1403: --
1764:
1765:
1766: --
1767: BEGIN
1768: g_debug := hr_utility.debug_enabled;
1769: if g_debug then
1770: hr_utility.set_location('Entering: ' || l_proc, 10);
1771: end if;
1772: -- hr_utility.set_location('enrt_mthd_cd='||p_enrt_mthd_cd,11);
1766: --
1767: BEGIN
1768: g_debug := hr_utility.debug_enabled;
1769: if g_debug then
1770: hr_utility.set_location('Entering: ' || l_proc, 10);
1771: end if;
1772: -- hr_utility.set_location('enrt_mthd_cd='||p_enrt_mthd_cd,11);
1773: -- hr_utility.set_location('auto_enrt_mthd_rl='||p_auto_enrt_mthd_rl,13);
1774: -- hr_utility.set_location('enrt_cd='||p_enrt_cd,12);
1768: g_debug := hr_utility.debug_enabled;
1769: if g_debug then
1770: hr_utility.set_location('Entering: ' || l_proc, 10);
1771: end if;
1772: -- hr_utility.set_location('enrt_mthd_cd='||p_enrt_mthd_cd,11);
1773: -- hr_utility.set_location('auto_enrt_mthd_rl='||p_auto_enrt_mthd_rl,13);
1774: -- hr_utility.set_location('enrt_cd='||p_enrt_cd,12);
1775: --
1776: -- Get program record.
1769: if g_debug then
1770: hr_utility.set_location('Entering: ' || l_proc, 10);
1771: end if;
1772: -- hr_utility.set_location('enrt_mthd_cd='||p_enrt_mthd_cd,11);
1773: -- hr_utility.set_location('auto_enrt_mthd_rl='||p_auto_enrt_mthd_rl,13);
1774: -- hr_utility.set_location('enrt_cd='||p_enrt_cd,12);
1775: --
1776: -- Get program record.
1777: --
1770: hr_utility.set_location('Entering: ' || l_proc, 10);
1771: end if;
1772: -- hr_utility.set_location('enrt_mthd_cd='||p_enrt_mthd_cd,11);
1773: -- hr_utility.set_location('auto_enrt_mthd_rl='||p_auto_enrt_mthd_rl,13);
1774: -- hr_utility.set_location('enrt_cd='||p_enrt_cd,12);
1775: --
1776: -- Get program record.
1777: --
1778: IF p_pgm_id IS NOT NULL THEN
1777: --
1778: IF p_pgm_id IS NOT NULL THEN
1779: ben_comp_object.get_object(p_pgm_id => p_pgm_id, p_rec => l_pgm_rec);
1780: if g_debug then
1781: hr_utility.set_location('Done PGM NN: ' || l_proc, 10);
1782: end if;
1783: END IF;
1784: --
1785: -- Check the tco_chg_enrt_cd if this comp object can be changed
1804: IF p_person_id IS NOT NULL THEN
1805: OPEN c_state;
1806: FETCH c_state INTO l_state;
1807: CLOSE c_state;
1808: hr_utility.set_location('close c_state: ' || l_proc, 9999);
1809: --IF l_state.region_2 IS NOT NULL THEN
1810: -- l_jurisdiction_code :=
1811: -- pay_mag_utils.lookup_jurisdiction_code(p_state => l_state.region_2);
1812: --END IF;
1825: RAISE ben_manage_life_events.g_record_error;
1826: END IF;
1827: CLOSE c_asg;
1828: if g_debug then
1829: hr_utility.set_location('close c_asg: ' || l_proc, 10);
1830: end if;
1831: IF p_oipl_id IS NOT NULL THEN
1832: IF p_tco_chg_enrt_cd = 'CONP' THEN
1833: --
1858: --
1859: ELSIF p_tco_chg_enrt_cd = 'CPNO' THEN
1860: --
1861: if g_debug then
1862: hr_utility.set_location('pl_typ_id=' || p_pl_typ_id, 1963);
1863: hr_utility.set_location('opt_id=' || p_opt_id, 1963);
1864: hr_utility.set_location(
1865: 'crnt_opt_cvg_strt_dt=' || l_crnt_opt_cvg_strt_dt,
1866: 1963);
1859: ELSIF p_tco_chg_enrt_cd = 'CPNO' THEN
1860: --
1861: if g_debug then
1862: hr_utility.set_location('pl_typ_id=' || p_pl_typ_id, 1963);
1863: hr_utility.set_location('opt_id=' || p_opt_id, 1963);
1864: hr_utility.set_location(
1865: 'crnt_opt_cvg_strt_dt=' || l_crnt_opt_cvg_strt_dt,
1866: 1963);
1867: end if;
1860: --
1861: if g_debug then
1862: hr_utility.set_location('pl_typ_id=' || p_pl_typ_id, 1963);
1863: hr_utility.set_location('opt_id=' || p_opt_id, 1963);
1864: hr_utility.set_location(
1865: 'crnt_opt_cvg_strt_dt=' || l_crnt_opt_cvg_strt_dt,
1866: 1963);
1867: end if;
1868: OPEN c_enrolled_opts_in_pl_typ;
1867: end if;
1868: OPEN c_enrolled_opts_in_pl_typ;
1869: FETCH c_enrolled_opts_in_pl_typ INTO l_crnt_opt_cvg_strt_dt;
1870: if g_debug then
1871: hr_utility.set_location(
1872: 'crnt_opt_cvg_strt_dt=' || l_crnt_opt_cvg_strt_dt,
1873: 1963);
1874: end if;
1875: IF c_enrolled_opts_in_pl_typ%NOTFOUND THEN
1881: IF l_pgm_rec.pgm_typ_cd LIKE 'COBRA%' THEN
1882: OPEN c_cvrd_opts_in_pl_typ;
1883: FETCH c_cvrd_opts_in_pl_typ INTO l_crnt_opt_cvg_strt_dt;
1884: if g_debug then
1885: hr_utility.set_location(
1886: 'crnt_opt_cvg_strt_dt=' || l_crnt_opt_cvg_strt_dt,
1887: 1963);
1888: end if;
1889: CLOSE c_cvrd_opts_in_pl_typ;
1894: END IF;
1895: --
1896: END IF;
1897: if g_debug then
1898: hr_utility.set_location('Done p_oipl NN ' || l_proc, 10);
1899: end if;
1900: --
1901: IF NOT (
1902: ( -- eval oipl
1921: --
1922: p_electable_flag := 'N';
1923: --
1924: if g_debug then
1925: hr_utility.set_location(' Leaving:' || l_proc, 5);
1926: end if;
1927: --
1928: RETURN;
1929: --
1937: --
1938: p_electable_flag := 'N';
1939: --
1940: if g_debug then
1941: hr_utility.set_location(' Leaving:' || l_proc, 10);
1942: end if;
1943: --
1944: RETURN;
1945: --
1955: --
1956: p_electable_flag := 'N';
1957: --
1958: if g_debug then
1959: hr_utility.set_location(' Returning:' || l_proc, 15);
1960: end if;
1961: --
1962: RETURN;
1963: --
1988: p_ler_chg_found_flag => l_ler_chg_found_flag,
1989: p_enrt_cd_level => l_enrt_cd_level );
1990:
1991: if g_debug then
1992: hr_utility.set_location( 'l_enrt_cd_level ' || l_enrt_cd_level , 99 );
1993: hr_utility.set_location( 'enrt_cd ' || p_enrt_cd , 99 );
1994: end if;
1995: --- check the level of enrollment code and intialise the coverage date
1996: if l_enrt_cd_level = 'OIPL' then
1989: p_enrt_cd_level => l_enrt_cd_level );
1990:
1991: if g_debug then
1992: hr_utility.set_location( 'l_enrt_cd_level ' || l_enrt_cd_level , 99 );
1993: hr_utility.set_location( 'enrt_cd ' || p_enrt_cd , 99 );
1994: end if;
1995: --- check the level of enrollment code and intialise the coverage date
1996: if l_enrt_cd_level = 'OIPL' then
1997: l_enrt_cvg_date := p_crnt_enrt_cvg_strt_dt ;
2018: else
2019: l_enrt_cvg_date := p_crnt_enrt_cvg_strt_dt ;
2020: end if ;
2021: if g_debug then
2022: hr_utility.set_location( 'l_enrt_cvg_date ' || l_enrt_cvg_date , 99 );
2023: end if;
2024: ----
2025:
2026:
2025:
2026:
2027: -- check if enrolled in ptip
2028: if g_debug then
2029: hr_utility.set_location(' Op c_ptip_enr_inf'||l_proc, 15);
2030: end if;
2031: OPEN c_ptip_enrolment_info;
2032: FETCH c_ptip_enrolment_info INTO l_enrolled_ptip;
2033: if g_debug then
2030: end if;
2031: OPEN c_ptip_enrolment_info;
2032: FETCH c_ptip_enrolment_info INTO l_enrolled_ptip;
2033: if g_debug then
2034: hr_utility.set_location(' Dn Fet c_ptip_enr_inf'||l_proc, 15);
2035: end if;
2036: IF c_ptip_enrolment_info%FOUND THEN
2037: if g_debug then
2038: hr_utility.set_location('CHKPTIPENRT found', 10);
2034: hr_utility.set_location(' Dn Fet c_ptip_enr_inf'||l_proc, 15);
2035: end if;
2036: IF c_ptip_enrolment_info%FOUND THEN
2037: if g_debug then
2038: hr_utility.set_location('CHKPTIPENRT found', 10);
2039: end if;
2040: IF l_ptip_prclds_flag = 'Y' THEN
2041: if g_debug then
2042: hr_utility.set_location('CHKPTIPENRT prclds', 10);
2038: hr_utility.set_location('CHKPTIPENRT found', 10);
2039: end if;
2040: IF l_ptip_prclds_flag = 'Y' THEN
2041: if g_debug then
2042: hr_utility.set_location('CHKPTIPENRT prclds', 10);
2043: end if;
2044: p_electable_flag := 'N';
2045: --
2046: if g_debug then
2043: end if;
2044: p_electable_flag := 'N';
2045: --
2046: if g_debug then
2047: hr_utility.set_location(' Leaving:' || l_proc, 19);
2048: end if;
2049: --
2050: RETURN;
2051: --
2054: CLOSE c_ptip_enrolment_info;
2055: END IF;
2056: -- If the enrt_cd is rule
2057: if g_debug then
2058: hr_utility.set_location('EC=RL: ' || l_proc, 10);
2059: end if;
2060: IF (p_enrt_cd = 'RL') THEN
2061: -- 5092244 : commented the following code
2062: /* if p_update_def_elct_flag is not null then -- don't reevaluate the rule again
2087: --
2088: p_electable_flag := 'N';
2089: --
2090: if g_debug then
2091: hr_utility.set_location(' Leaving:' || l_proc, 20);
2092: end if;
2093: --
2094: RETURN;
2095: --
2098: -- L will be used for Lose only functionality.
2099: --
2100: p_electable_flag := 'L';
2101: if g_debug then
2102: hr_utility.set_location(' Leaving:' || l_proc, 21);
2103: end if;
2104: --
2105: RETURN;
2106: --
2121: RETURN;
2122: --
2123: ELSE -- p_enrt_cd = 'RL'
2124: if g_debug then
2125: hr_utility.set_location('Else EC=RL: ' || l_proc, 10);
2126: end if;
2127: -- If the combination of enrt_cd and eligibility status is YES in the
2128: -- following matrix then the choice is electable
2129: -- (continue to create choice),
2168: --
2169: p_electable_flag := 'N';
2170: --
2171: if g_debug then
2172: hr_utility.set_location(' Leaving:' || l_proc, 25);
2173: end if;
2174: --
2175: RETURN;
2176: --
2180: --
2181: p_electable_flag := 'Y';
2182: --
2183: if g_debug then
2184: hr_utility.set_location(' Leaving:' || l_proc, 30);
2185: end if;
2186: --
2187: RETURN;
2188: --
2248:
2249: l_position_id number(15);
2250: Begin
2251: --
2252: g_debug := hr_utility.debug_enabled;
2253: open c_get_assignment;
2254: fetch c_get_assignment into l_get_assignment;
2255: close c_get_assignment;
2256: --
2399: -- day after prior event elections start date
2400: -- and system date
2401: -------------------------------------------------------------------------
2402: -- if cd is L_EPSD_PEPD, use the old logic
2403: hr_utility.set_location(' Entering '||l_proc, 10);
2404: --
2405: -- remove all these debug messages
2406: hr_utility.set_location(' p_enrt_perd_det_ovrlp_bckdt_cd is '||p_enrt_perd_det_ovrlp_bckdt_cd, 987);
2407: hr_utility.set_location(' p_person_id '||p_person_id, 10);
2402: -- if cd is L_EPSD_PEPD, use the old logic
2403: hr_utility.set_location(' Entering '||l_proc, 10);
2404: --
2405: -- remove all these debug messages
2406: hr_utility.set_location(' p_enrt_perd_det_ovrlp_bckdt_cd is '||p_enrt_perd_det_ovrlp_bckdt_cd, 987);
2407: hr_utility.set_location(' p_person_id '||p_person_id, 10);
2408: hr_utility.set_location(' p_lf_evt_ocrd_dt '||p_lf_evt_ocrd_dt, 10);
2409: hr_utility.set_location(' p_ler_id '||p_ler_id, 10);
2410: hr_utility.set_location(' p_effective_date '||p_effective_date, 10);
2403: hr_utility.set_location(' Entering '||l_proc, 10);
2404: --
2405: -- remove all these debug messages
2406: hr_utility.set_location(' p_enrt_perd_det_ovrlp_bckdt_cd is '||p_enrt_perd_det_ovrlp_bckdt_cd, 987);
2407: hr_utility.set_location(' p_person_id '||p_person_id, 10);
2408: hr_utility.set_location(' p_lf_evt_ocrd_dt '||p_lf_evt_ocrd_dt, 10);
2409: hr_utility.set_location(' p_ler_id '||p_ler_id, 10);
2410: hr_utility.set_location(' p_effective_date '||p_effective_date, 10);
2411: hr_utility.set_location(' p_rec_enrt_perd_strt_dt '||p_rec_enrt_perd_strt_dt, 10);
2404: --
2405: -- remove all these debug messages
2406: hr_utility.set_location(' p_enrt_perd_det_ovrlp_bckdt_cd is '||p_enrt_perd_det_ovrlp_bckdt_cd, 987);
2407: hr_utility.set_location(' p_person_id '||p_person_id, 10);
2408: hr_utility.set_location(' p_lf_evt_ocrd_dt '||p_lf_evt_ocrd_dt, 10);
2409: hr_utility.set_location(' p_ler_id '||p_ler_id, 10);
2410: hr_utility.set_location(' p_effective_date '||p_effective_date, 10);
2411: hr_utility.set_location(' p_rec_enrt_perd_strt_dt '||p_rec_enrt_perd_strt_dt, 10);
2412: --
2405: -- remove all these debug messages
2406: hr_utility.set_location(' p_enrt_perd_det_ovrlp_bckdt_cd is '||p_enrt_perd_det_ovrlp_bckdt_cd, 987);
2407: hr_utility.set_location(' p_person_id '||p_person_id, 10);
2408: hr_utility.set_location(' p_lf_evt_ocrd_dt '||p_lf_evt_ocrd_dt, 10);
2409: hr_utility.set_location(' p_ler_id '||p_ler_id, 10);
2410: hr_utility.set_location(' p_effective_date '||p_effective_date, 10);
2411: hr_utility.set_location(' p_rec_enrt_perd_strt_dt '||p_rec_enrt_perd_strt_dt, 10);
2412: --
2413:
2406: hr_utility.set_location(' p_enrt_perd_det_ovrlp_bckdt_cd is '||p_enrt_perd_det_ovrlp_bckdt_cd, 987);
2407: hr_utility.set_location(' p_person_id '||p_person_id, 10);
2408: hr_utility.set_location(' p_lf_evt_ocrd_dt '||p_lf_evt_ocrd_dt, 10);
2409: hr_utility.set_location(' p_ler_id '||p_ler_id, 10);
2410: hr_utility.set_location(' p_effective_date '||p_effective_date, 10);
2411: hr_utility.set_location(' p_rec_enrt_perd_strt_dt '||p_rec_enrt_perd_strt_dt, 10);
2412: --
2413:
2414: IF nvl(p_enrt_perd_det_ovrlp_bckdt_cd, 'L_EPSD_PEPD') = 'L_EPSD_PEPD' THEN
2407: hr_utility.set_location(' p_person_id '||p_person_id, 10);
2408: hr_utility.set_location(' p_lf_evt_ocrd_dt '||p_lf_evt_ocrd_dt, 10);
2409: hr_utility.set_location(' p_ler_id '||p_ler_id, 10);
2410: hr_utility.set_location(' p_effective_date '||p_effective_date, 10);
2411: hr_utility.set_location(' p_rec_enrt_perd_strt_dt '||p_rec_enrt_perd_strt_dt, 10);
2412: --
2413:
2414: IF nvl(p_enrt_perd_det_ovrlp_bckdt_cd, 'L_EPSD_PEPD') = 'L_EPSD_PEPD' THEN
2415: --
2412: --
2413:
2414: IF nvl(p_enrt_perd_det_ovrlp_bckdt_cd, 'L_EPSD_PEPD') = 'L_EPSD_PEPD' THEN
2415: --
2416: hr_utility.set_location(' L_EPSD_PEPD', 987);
2417: OPEN c_get_latest_procd_dt;
2418: FETCH c_get_latest_procd_dt INTO l_latest_procd_dt;
2419: -- new epsd is greater of epsd or latest_procd_dt
2420: -- IF c_get_latest_procd_dt%FOUND THEN
2418: FETCH c_get_latest_procd_dt INTO l_latest_procd_dt;
2419: -- new epsd is greater of epsd or latest_procd_dt
2420: -- IF c_get_latest_procd_dt%FOUND THEN
2421: IF l_latest_procd_dt IS NOT NULL THEN
2422: hr_utility.set_location(' c_get_latest_procd_dt%found', 987);
2423: hr_utility.set_location('l_latest_procd_dt is '||l_latest_procd_dt, 987);
2424: -- jcarpent 1/4/2001 bug 1568555, removed +1 from line below
2425: IF p_rec_enrt_perd_strt_dt < l_latest_procd_dt THEN
2426: hr_utility.set_location('l_latest_procd_dt made enrt strt dt ', 987);
2419: -- new epsd is greater of epsd or latest_procd_dt
2420: -- IF c_get_latest_procd_dt%FOUND THEN
2421: IF l_latest_procd_dt IS NOT NULL THEN
2422: hr_utility.set_location(' c_get_latest_procd_dt%found', 987);
2423: hr_utility.set_location('l_latest_procd_dt is '||l_latest_procd_dt, 987);
2424: -- jcarpent 1/4/2001 bug 1568555, removed +1 from line below
2425: IF p_rec_enrt_perd_strt_dt < l_latest_procd_dt THEN
2426: hr_utility.set_location('l_latest_procd_dt made enrt strt dt ', 987);
2427: -- jcarpent 1/4/2001 bug 1568555, removed +1 from line below
2422: hr_utility.set_location(' c_get_latest_procd_dt%found', 987);
2423: hr_utility.set_location('l_latest_procd_dt is '||l_latest_procd_dt, 987);
2424: -- jcarpent 1/4/2001 bug 1568555, removed +1 from line below
2425: IF p_rec_enrt_perd_strt_dt < l_latest_procd_dt THEN
2426: hr_utility.set_location('l_latest_procd_dt made enrt strt dt ', 987);
2427: -- jcarpent 1/4/2001 bug 1568555, removed +1 from line below
2428: p_rec_enrt_perd_strt_dt := l_latest_procd_dt;
2429: -- if the enrollment exist for the previous LE
2430: -- start the window latest_procd_dt + 1
2455: OPEN c_backed_out_ler;
2456: FETCH c_backed_out_ler INTO l_backed_out_date;
2457: --IF c_backed_out_ler%FOUND THEN
2458: IF l_backed_out_date is NOT NULL THEN
2459: hr_utility.set_location(' c_backed_out_ler%found', 987);
2460: hr_utility.set_location('l_backed_out_date is '||l_backed_out_date, 987);
2461: -- 5a ... and is the backed-out date > than the new epsd?
2462: IF l_backed_out_date > p_rec_enrt_perd_strt_dt THEN
2463: hr_utility.set_location('l_backed_out_date made enrt strt dt ', 987);
2456: FETCH c_backed_out_ler INTO l_backed_out_date;
2457: --IF c_backed_out_ler%FOUND THEN
2458: IF l_backed_out_date is NOT NULL THEN
2459: hr_utility.set_location(' c_backed_out_ler%found', 987);
2460: hr_utility.set_location('l_backed_out_date is '||l_backed_out_date, 987);
2461: -- 5a ... and is the backed-out date > than the new epsd?
2462: IF l_backed_out_date > p_rec_enrt_perd_strt_dt THEN
2463: hr_utility.set_location('l_backed_out_date made enrt strt dt ', 987);
2464: -- 6 it is the new epsd.
2459: hr_utility.set_location(' c_backed_out_ler%found', 987);
2460: hr_utility.set_location('l_backed_out_date is '||l_backed_out_date, 987);
2461: -- 5a ... and is the backed-out date > than the new epsd?
2462: IF l_backed_out_date > p_rec_enrt_perd_strt_dt THEN
2463: hr_utility.set_location('l_backed_out_date made enrt strt dt ', 987);
2464: -- 6 it is the new epsd.
2465: p_rec_enrt_perd_strt_dt := l_backed_out_date;
2466: END IF;
2467: END IF;
2469: END IF;
2470: -- 2746865
2471: -- if cd is L_EPSD_PEESD%, use the new logic
2472: ELSIF p_enrt_perd_det_ovrlp_bckdt_cd like 'L_EPSD_PEESD%' THEN
2473: hr_utility.set_location(' L_EPSD_PEESD%', 987);
2474: -- get the person's latest enrollment start date +1
2475: OPEN c_get_latest_enrt_dt;
2476: FETCH c_get_latest_enrt_dt into l_latest_enrt_dt;
2477: -- IF c_get_latest_enrt_dt%FOUND THEN --changed as its always found
2475: OPEN c_get_latest_enrt_dt;
2476: FETCH c_get_latest_enrt_dt into l_latest_enrt_dt;
2477: -- IF c_get_latest_enrt_dt%FOUND THEN --changed as its always found
2478: IF l_latest_enrt_dt is not null THEN
2479: hr_utility.set_location(' c_get_latest_enrt_dt%FOUND', 987);
2480: hr_utility.set_location('l_latest_enrt_dt is '||l_latest_enrt_dt, 987);
2481: -- if latest enrt dt is greater than epsd, make it the epsd
2482: IF l_latest_enrt_dt > p_rec_enrt_perd_strt_dt THEN
2483: p_rec_enrt_perd_strt_dt := l_latest_enrt_dt;
2476: FETCH c_get_latest_enrt_dt into l_latest_enrt_dt;
2477: -- IF c_get_latest_enrt_dt%FOUND THEN --changed as its always found
2478: IF l_latest_enrt_dt is not null THEN
2479: hr_utility.set_location(' c_get_latest_enrt_dt%FOUND', 987);
2480: hr_utility.set_location('l_latest_enrt_dt is '||l_latest_enrt_dt, 987);
2481: -- if latest enrt dt is greater than epsd, make it the epsd
2482: IF l_latest_enrt_dt > p_rec_enrt_perd_strt_dt THEN
2483: p_rec_enrt_perd_strt_dt := l_latest_enrt_dt;
2484: hr_utility.set_location('l_latest_enrt_dt substituted', 987);
2480: hr_utility.set_location('l_latest_enrt_dt is '||l_latest_enrt_dt, 987);
2481: -- if latest enrt dt is greater than epsd, make it the epsd
2482: IF l_latest_enrt_dt > p_rec_enrt_perd_strt_dt THEN
2483: p_rec_enrt_perd_strt_dt := l_latest_enrt_dt;
2484: hr_utility.set_location('l_latest_enrt_dt substituted', 987);
2485: END IF;
2486: END IF;
2487: CLOSE c_get_latest_enrt_dt;
2488: -- cd is 2 find the bckdt out dt
2486: END IF;
2487: CLOSE c_get_latest_enrt_dt;
2488: -- cd is 2 find the bckdt out dt
2489: IF p_enrt_perd_det_ovrlp_bckdt_cd = 'L_EPSD_PEESD_BCKDT' THEN
2490: hr_utility.set_location('L_EPSD_PEESD_BCKDT entered', 987);
2491: -- get the backed out date
2492: OPEN c_backed_out_ler;
2493: FETCH c_backed_out_ler INTO l_backed_out_date;
2494: hr_utility.set_location('l_backed_out_date is '||l_backed_out_date, 987);
2490: hr_utility.set_location('L_EPSD_PEESD_BCKDT entered', 987);
2491: -- get the backed out date
2492: OPEN c_backed_out_ler;
2493: FETCH c_backed_out_ler INTO l_backed_out_date;
2494: hr_utility.set_location('l_backed_out_date is '||l_backed_out_date, 987);
2495: --IF c_backed_out_ler%FOUND THEN -- changed as its of no use
2496: IF l_backed_out_date is not null THEN
2497: hr_utility.set_location('bckdt%found', 987);
2498: -- if bckdt out dt is greater than epsd, make it the epsd
2493: FETCH c_backed_out_ler INTO l_backed_out_date;
2494: hr_utility.set_location('l_backed_out_date is '||l_backed_out_date, 987);
2495: --IF c_backed_out_ler%FOUND THEN -- changed as its of no use
2496: IF l_backed_out_date is not null THEN
2497: hr_utility.set_location('bckdt%found', 987);
2498: -- if bckdt out dt is greater than epsd, make it the epsd
2499: IF l_backed_out_date > p_rec_enrt_perd_strt_dt THEN
2500: p_rec_enrt_perd_strt_dt := l_backed_out_date;
2501: hr_utility.set_location('l_backed_out_date substituted', 987);
2497: hr_utility.set_location('bckdt%found', 987);
2498: -- if bckdt out dt is greater than epsd, make it the epsd
2499: IF l_backed_out_date > p_rec_enrt_perd_strt_dt THEN
2500: p_rec_enrt_perd_strt_dt := l_backed_out_date;
2501: hr_utility.set_location('l_backed_out_date substituted', 987);
2502: END IF;
2503: END IF;
2504: CLOSE c_backed_out_ler;
2505: -- if cd is 4, compare epsd with sysdate
2503: END IF;
2504: CLOSE c_backed_out_ler;
2505: -- if cd is 4, compare epsd with sysdate
2506: ELSIF p_enrt_perd_det_ovrlp_bckdt_cd = 'L_EPSD_PEESD_SYSDT' THEN
2507: hr_utility.set_location('L_EPSD_PEESD_SYSDT entered', 987);
2508: -- if sysdate is lis greater than epsd, make it the epsd
2509: IF l_sysdate > p_rec_enrt_perd_strt_dt THEN
2510: p_rec_enrt_perd_strt_dt := l_sysdate;
2511: hr_utility.set_location('sysdate substituted', 987);
2507: hr_utility.set_location('L_EPSD_PEESD_SYSDT entered', 987);
2508: -- if sysdate is lis greater than epsd, make it the epsd
2509: IF l_sysdate > p_rec_enrt_perd_strt_dt THEN
2510: p_rec_enrt_perd_strt_dt := l_sysdate;
2511: hr_utility.set_location('sysdate substituted', 987);
2512: END IF;
2513: END IF;
2514: -- end 2746865
2515: END IF;
3681: --End AMN Bug 14661357
3682: End AMN Bug 14653541: Commenting the below fixes*/
3683: BEGIN
3684: --
3685: g_debug := hr_utility.debug_enabled;
3686: hr_utility.set_location('Entering:' || l_proc, 10);
3687: --
3688: -- If the run_mode is not "life event" or "scheduled" DONE
3689: -- Bug 2200139 Added 'V' mode for override
3682: End AMN Bug 14653541: Commenting the below fixes*/
3683: BEGIN
3684: --
3685: g_debug := hr_utility.debug_enabled;
3686: hr_utility.set_location('Entering:' || l_proc, 10);
3687: --
3688: -- If the run_mode is not "life event" or "scheduled" DONE
3689: -- Bug 2200139 Added 'V' mode for override
3690: -- ABSENCES - added absence mode. Added GRADE/STEP
3707: --
3708: -- get oipl information
3709: --
3710: if g_debug then
3711: hr_utility.set_location('OIPL NN: ' || l_proc, 10);
3712: end if;
3713: --
3714: -- Bug 2200139 For Override call the cache routine else call the benmnglecache
3715: -- this is not required as the data is fetched on the benovrrd.pkb
3739: l_oipl_trk_inelig_per_flag := l_oipl_rec.trk_inelig_per_flag;
3740: --
3741: -- l_oipl_name := ben_cobj_cache.g_opt_currow.name;
3742: if g_debug then
3743: hr_utility.set_location('DONE OIPL NN: ' || l_proc, 10);
3744: end if;
3745: --
3746: ELSE
3747: --
3752: -- get plan cache row
3753: --
3754: ben_comp_object.get_object(p_pl_id => l_pl_id, p_rec => l_plan_rec);
3755: if g_debug then
3756: hr_utility.set_location('Done PLN cac: ' || l_proc, 10);
3757: hr_utility.set_location(
3758: 'Plan name is ' || SUBSTR(l_plan_rec.name, 1, 30),
3759: 17);
3760: end if;
3753: --
3754: ben_comp_object.get_object(p_pl_id => l_pl_id, p_rec => l_plan_rec);
3755: if g_debug then
3756: hr_utility.set_location('Done PLN cac: ' || l_proc, 10);
3757: hr_utility.set_location(
3758: 'Plan name is ' || SUBSTR(l_plan_rec.name, 1, 30),
3759: 17);
3760: end if;
3761: --
3762: -- Get pgm cache row if needed
3763: --
3764: IF p_pgm_id IS NOT NULL THEN
3765: if g_debug then
3766: hr_utility.set_location('PGM NN 2: ' || l_proc, 10);
3767: end if;
3768: ben_comp_object.get_object(p_pgm_id => p_pgm_id, p_rec => l_pgm_rec);
3769: if g_debug then
3770: hr_utility.set_location('Done PGM NN 2: ' || l_proc, 10);
3766: hr_utility.set_location('PGM NN 2: ' || l_proc, 10);
3767: end if;
3768: ben_comp_object.get_object(p_pgm_id => p_pgm_id, p_rec => l_pgm_rec);
3769: if g_debug then
3770: hr_utility.set_location('Done PGM NN 2: ' || l_proc, 10);
3771: hr_utility.set_location(
3772: 'Pgm name is ' || SUBSTR(l_pgm_rec.name, 1, 30),
3773: 18);
3774: end if;
3767: end if;
3768: ben_comp_object.get_object(p_pgm_id => p_pgm_id, p_rec => l_pgm_rec);
3769: if g_debug then
3770: hr_utility.set_location('Done PGM NN 2: ' || l_proc, 10);
3771: hr_utility.set_location(
3772: 'Pgm name is ' || SUBSTR(l_pgm_rec.name, 1, 30),
3773: 18);
3774: end if;
3775: END IF;
3785: OR p_person_id IS NULL
3786: OR l_pl_id IS NULL) THEN
3787: --
3788: if g_debug then
3789: hr_utility.set_location('error', 19);
3790: end if;
3791: fnd_message.set_name('BEN', 'BEN_91737_ENRT_REQ_MISS_PARM');
3792: fnd_message.set_token('PROC', l_proc);
3793: fnd_message.set_token('MODE', p_run_mode);
3806: IF p_person_id IS NOT NULL THEN
3807: OPEN c_state;
3808: FETCH c_state INTO l_state;
3809: CLOSE c_state;
3810: hr_utility.set_location('close c_state: ' || l_proc, 10);
3811: --
3812: --IF l_state.region_2 IS NOT NULL THEN
3813: --
3814: -- l_jurisdiction_code :=
3822: OPEN c_asg;
3823: FETCH c_asg INTO l_rec_assignment_id, l_rec_organization_id;
3824: IF c_asg%NOTFOUND THEN
3825: CLOSE c_asg;
3826: hr_utility.set_location('error', 20);
3827: fnd_message.set_name('BEN', 'BEN_92106_PRTT_NO_ASGN');
3828: fnd_message.set_token('PROC', l_proc);
3829: fnd_message.set_token('PERSON_ID', TO_CHAR(p_person_id));
3830: fnd_message.set_token('LF_EVT_OCRD_DT', TO_CHAR(p_lf_evt_ocrd_dt));
3831: fnd_message.set_token('EFFECTIVE_DATE', TO_CHAR(p_effective_date));
3832: RAISE ben_manage_life_events.g_record_error;
3833: END IF;
3834: CLOSE c_asg;
3835: hr_utility.set_location('close c_asg: ' || l_proc, 10);
3836: --
3837: -- Determine if the person is currently enrolled and if so
3838: -- determine the coverage start date.
3839: --
3887: --
3888: FETCH c_future_results INTO l_future_results;--Bug 8453712,l_dummy_varchar;
3889: IF c_future_results%FOUND THEN
3890: if l_future_results.pl_id <> l_pl_id then
3891: hr_utility.set_location('in if',10.1);
3892: --
3893: l_crnt_enrt_cvg_strt_dt := null;
3894: l_crnt_erlst_deenrt_dt := null;
3895: l_prtt_enrt_rslt_id := null;
3897: l_enrt_ovrid_thru_dt := null;
3898: l_crnt_enrt_cvg_thru_dt := null;
3899: --
3900: else --Bug 8453712
3901: hr_utility.set_location('in else',10.1);
3902: l_fut_rslt_exist := true; -------------Bug 8846328
3903: l_crnt_enrt_cvg_strt_dt := l_future_results.enrt_cvg_strt_dt;
3904: l_crnt_erlst_deenrt_dt := l_future_results.erlst_deenrt_dt;
3905: l_prtt_enrt_rslt_id := l_future_results.prtt_enrt_rslt_id;
3916: END IF;
3917: --
3918: CLOSE c_plan_enrolment_info;
3919: if g_debug then
3920: hr_utility.set_location('close c_PEI: ' || l_proc, 10);
3921: end if;
3922: --
3923: ELSE
3924: --
3959: if (l_future_results.pl_id <> l_pl_id -------Bug 8768050
3960: or
3961: l_future_results.pl_id = l_pl_id and l_future_results.oipl_id <> p_oipl_id) then --10211081
3962:
3963: hr_utility.set_location('in if',10.1);
3964: --
3965: l_crnt_enrt_cvg_strt_dt := null;
3966: l_crnt_erlst_deenrt_dt := null;
3967: l_prtt_enrt_rslt_id := null;
3968: l_enrt_ovridn_flag := null;
3969: l_enrt_ovrid_thru_dt := null;
3970: l_crnt_enrt_cvg_thru_dt := null;
3971: else ----Bug 8768050
3972: hr_utility.set_location('in else',10.1);
3973: l_fut_rslt_exist := true; -------------Bug 8846328
3974: l_crnt_enrt_cvg_strt_dt := l_future_results.enrt_cvg_strt_dt;
3975: l_crnt_erlst_deenrt_dt := l_future_results.erlst_deenrt_dt;
3976: l_prtt_enrt_rslt_id := l_future_results.prtt_enrt_rslt_id;
3986: END IF;
3987: --
3988: CLOSE c_oipl_enrolment_info;
3989: if g_debug then
3990: hr_utility.set_location('close c_OIEI: ' || l_proc, 10);
3991: end if;
3992: --
3993: END IF;
3994: --
4077: end if;
4078: --
4079: END IF;
4080: if g_debug then
4081: hr_utility.set_location('Got passed initial comp loads', 21);
4082: end if;
4083: --
4084: -- If the current_eligibility is N, DONE, no choice is required.
4085: -- ...(12/23/1998 except when overridden, and thru date >= ed jcarpent)
4104: --
4105: p_electable_flag := 'N';
4106: --
4107: if g_debug then
4108: hr_utility.set_location(' Leaving:' || l_proc, 15);
4109: end if;
4110: --
4111: RETURN;
4112: --
4141: --
4142: end if;
4143: --
4144: if g_debug then
4145: hr_utility.set_location('close c_PEFP: ' || l_proc, 10);
4146: end if;
4147: --
4148: ELSE
4149: --
4169: --
4170: end if;
4171: --
4172: if g_debug then
4173: hr_utility.set_location('close c_PEFO: ' || l_proc, 10);
4174: end if;
4175: --
4176: END IF;
4177: --
4176: END IF;
4177: --
4178: END IF; --'D' mode
4179: if g_debug then
4180: hr_utility.set_location('get plan info', 10);
4181: end if;
4182: --
4183: -- get plan_info
4184: --
4222: END IF;
4223: --
4224: CLOSE c_plip_info;
4225: if g_debug then
4226: hr_utility.set_location('close c_plip_info: ' || l_proc, 10);
4227: end if;
4228: --
4229: -- Find the ptip and get its needed attributes.
4230: --
4251: END IF;
4252: --
4253: CLOSE c_ptip_info;
4254: if g_debug then
4255: hr_utility.set_location('close c_ptip_info: ' || l_proc, 10);
4256: end if;
4257: --
4258: END IF;
4259: --
4271: --
4272: IF (p_pgm_id IS NULL) THEN
4273: l_alws_unrstrctd_enrt_flag := l_plan_rec.alws_unrstrctd_enrt_flag;
4274: if g_debug then
4275: hr_utility.set_location(
4276: 'alws_unres_flag=' || l_alws_unrstrctd_enrt_flag,
4277: 10);
4278: end if;
4279: END IF;
4283: IF p_run_mode in ('U','D') THEN
4284: IF l_alws_unrstrctd_enrt_flag = 'Y' THEN
4285: l_unrestricted_enrt_flag := 'Y';
4286: if g_debug then
4287: hr_utility.set_location(
4288: 'Unrestricted mode in force for this plan',
4289: 10);
4290: end if;
4291: ELSE
4290: end if;
4291: ELSE
4292: p_electable_flag := 'N';
4293: if g_debug then
4294: hr_utility.set_location('Unrestricted mode not for regular plans', 10);
4295: end if;
4296: RETURN;
4297: END IF;
4298: ELSE
4299: l_unrestricted_enrt_flag := 'N';
4300: END IF;
4301: --
4302: if g_debug then
4303: hr_utility.set_location('per in ler info', 20);
4304: end if;
4305: --
4306: -- Bug 2200139 this cursor is getting the Started Perinler info.
4307: -- for Override Mode we get the info of the p_ler_in_ler_id
4328: END IF;
4329: --
4330: CLOSE c_ovrd_per_in_ler_info;
4331: if g_debug then
4332: hr_utility.set_location('close c_PILI: ' || l_proc, 10);
4333: end if;
4334: --
4335: else
4336: --
4357: --
4358: CLOSE c_per_in_ler_info;
4359: end if;
4360: if g_debug then
4361: hr_utility.set_location('close c_PILI: ' || l_proc, 10);
4362: end if;
4363: --
4364:
4365: OPEN c_pl_popl_yr_period_current;
4379: END IF;
4380: --
4381: CLOSE c_pl_popl_yr_period_current;
4382: if g_debug then
4383: hr_utility.set_location('close c_PPYPC: ' || l_proc, 10);
4384: --
4385: hr_utility.set_location('oipl id is null', 20);
4386: end if;
4387: ben_epe_cache.get_pilcobjepe_dets
4381: CLOSE c_pl_popl_yr_period_current;
4382: if g_debug then
4383: hr_utility.set_location('close c_PPYPC: ' || l_proc, 10);
4384: --
4385: hr_utility.set_location('oipl id is null', 20);
4386: end if;
4387: ben_epe_cache.get_pilcobjepe_dets
4388: (p_per_in_ler_id => p_per_in_ler_id
4389: ,p_pgm_id => p_pgm_id
4399: fnd_message.set_name('BEN', 'BEN_91463_ELCTBL_CHC_EXISTS');
4400: fnd_message.set_token('PROC', l_proc);
4401: benutils.write(p_text => SUBSTR(fnd_message.get, 1, 128));
4402: if g_debug then
4403: hr_utility.set_location('Leaving: ' || l_proc, 20);
4404: end if;
4405: p_electable_flag := 'N';
4406: RETURN;
4407: --
4426: --
4427: -- do prerequisite check if not overridden.
4428: --
4429: if g_debug then
4430: hr_utility.set_location('enroll another plan', 20);
4431: end if;
4432: IF l_must_enrl_anthr_pl_id IS NOT NULL
4433: AND l_enrt_ovridn_flag = 'N'
4434: THEN
4464: ,p_electable_flag => l_prereq_electable_flag
4465: -- ,p_popl_enrt_typ_cycl_id => p_popl_enrt_typ_cycl_id
4466: );
4467: if g_debug then
4468: hr_utility.set_location('Dn Sub BENDENRR: ' || l_proc, 99);
4469: end if;
4470: --
4471: IF l_prereq_electable_flag = 'N' THEN
4472: --
4471: IF l_prereq_electable_flag = 'N' THEN
4472: --
4473: p_electable_flag := 'N';
4474: if g_debug then
4475: hr_utility.set_location('Not electable since prereq is not.', 10);
4476: end if;
4477: RETURN;
4478: --
4479: END IF;
4480: --
4481: END IF;
4482: --
4483: if g_debug then
4484: hr_utility.set_location('close c_CHEFP: ' || l_proc, 10);
4485: --
4486: hr_utility.set_location('found prereq plan choice', 10);
4487: --
4488: end if;
4482: --
4483: if g_debug then
4484: hr_utility.set_location('close c_CHEFP: ' || l_proc, 10);
4485: --
4486: hr_utility.set_location('found prereq plan choice', 10);
4487: --
4488: end if;
4489: END IF; -- prereq exists.
4490: --
4491: -- Determine if the compensation object requires or allows an election change
4492: -- If life event mode
4493: --
4494: if g_debug then
4495: hr_utility.set_location('ler change stuff', 20);
4496: end if;
4497: l_ler_chg_found_flag := 'N';
4498: l_ler_chg_oipl_found_flag := 'N';
4499: --
4499: --
4500: -- See if there is a life event reason to change
4501: --
4502: if g_debug then
4503: hr_utility.set_location('ler change stuff not null stuff', 20);
4504: hr_utility.set_location(' Op c_lce_info: ' || l_proc, 10);
4505: end if;
4506: --
4507: IF p_run_mode <> 'D' THEN
4500: -- See if there is a life event reason to change
4501: --
4502: if g_debug then
4503: hr_utility.set_location('ler change stuff not null stuff', 20);
4504: hr_utility.set_location(' Op c_lce_info: ' || l_proc, 10);
4505: end if;
4506: --
4507: IF p_run_mode <> 'D' THEN
4508: --
4527: p_ler_chg_found_flag => l_ler_chg_found_flag,
4528: p_enrt_cd_level => l_enrt_cd_level );
4529: --
4530: if g_debug then
4531: hr_utility.set_location(' Cl c_lce_info: ' || l_proc, 10);
4532: end if;
4533: --
4534: -- Determine enrt codes/rules method codes/rules then
4535: -- figure out if electable.
4630: --
4631: -- Use the results of the enrt_mthd_rl as the code
4632: --
4633: if g_debug then
4634: hr_utility.set_location(' Exe enrt rl: ' || l_proc, 10);
4635: end if;
4636: execute_auto_dflt_enrt_rule(
4637: p_opt_id => l_opt_id,
4638: p_pl_id => l_pl_id,
4651: p_enrt_mthd => l_pl_enrt_mthd_cd,
4652: p_reinstt_dpnt => l_reinstt_flag
4653: );
4654: if g_debug then
4655: hr_utility.set_location(' Dn Exe enrt rl: ' || l_proc, 10);
4656: end if;
4657: --
4658: l_reinstt_cd := l_reinstt_flag;
4659: --
4699: else
4700: --
4701: --
4702: if g_debug then
4703: hr_utility.set_location('H', 20);
4704: hr_utility.set_location('Call detenr 2: ' || l_proc, 10);
4705: end if;
4706: g_ptip_id := l_ptip_id;
4707: --
4700: --
4701: --
4702: if g_debug then
4703: hr_utility.set_location('H', 20);
4704: hr_utility.set_location('Call detenr 2: ' || l_proc, 10);
4705: end if;
4706: g_ptip_id := l_ptip_id;
4707: --
4708: --Bug 2677804 We dont need to get electable flag for the
4711: --
4712: if l_enrt_ovridn_flag = 'Y' then
4713: --
4714: if g_debug then
4715: hr_utility.set_location('First Electable Due to Override ' ,123);
4716: end if;
4717: l_rec_elctbl_flag := 'Y' ;
4718: --
4719: else
4742: p_electable_flag => l_rec_elctbl_flag,
4743: p_assignment_id => l_rec_assignment_id,
4744: p_run_mode => p_run_mode); -- iRec
4745: if g_debug then
4746: hr_utility.set_location('Dn detenr 2: ' || l_proc, 10);
4747: end if;
4748: end if;
4749: -- End Bug 2677804
4750: IF l_rec_elctbl_flag = 'Y' THEN
4767: p_ler_id => p_ler_id,
4768: p_effective_date => p_effective_date);
4769: p_electable_flag := 'N';
4770: if g_debug then
4771: hr_utility.set_location('Dn BNI_MN: ' || l_proc, 10);
4772: end if;
4773: RETURN;
4774: --
4775: ELSIF l_pl_enrt_mthd_cd = 'A' THEN
4809: --
4810: -- Check level jumping restrictions
4811: --
4812: if g_debug then
4813: hr_utility.set_location(l_proc || ' Lev Jump OIPL ', 12);
4814: end if;
4815: IF p_oipl_id IS NOT NULL AND p_run_mode <> 'D' THEN
4816: --
4817: if g_debug then
4814: end if;
4815: IF p_oipl_id IS NOT NULL AND p_run_mode <> 'D' THEN
4816: --
4817: if g_debug then
4818: hr_utility.set_location('get ler bnft_rstrns ', 12);
4819: hr_utility.set_location(l_proc || ' Op c_ler_bnft_rstrn ', 12);
4820: end if;
4821: OPEN c_ler_bnft_rstrn;
4822: FETCH c_ler_bnft_rstrn INTO l_tmp_level,
4815: IF p_oipl_id IS NOT NULL AND p_run_mode <> 'D' THEN
4816: --
4817: if g_debug then
4818: hr_utility.set_location('get ler bnft_rstrns ', 12);
4819: hr_utility.set_location(l_proc || ' Op c_ler_bnft_rstrn ', 12);
4820: end if;
4821: OPEN c_ler_bnft_rstrn;
4822: FETCH c_ler_bnft_rstrn INTO l_tmp_level,
4823: l_restriction_pgm_id,
4872: CLOSE c_ler_bnft_rstrn;
4873: --
4874: END IF;
4875: if g_debug then
4876: hr_utility.set_location(l_proc || ' c_ler_bnft_rstrn ', 12);
4877: end if;
4878: /* uncomment these for debuggin only
4879: hr_utility.set_location('l_plip_id -> '||l_plip_id,11);
4880: hr_utility.set_location('p_pgm_id -> '||p_pgm_id,11);
4875: if g_debug then
4876: hr_utility.set_location(l_proc || ' c_ler_bnft_rstrn ', 12);
4877: end if;
4878: /* uncomment these for debuggin only
4879: hr_utility.set_location('l_plip_id -> '||l_plip_id,11);
4880: hr_utility.set_location('p_pgm_id -> '||p_pgm_id,11);
4881: hr_utility.set_location('l_restriction_pgm_id -> '||l_restriction_pgm_id,11);
4882: hr_utility.set_location('l_tmp_level -> '||l_tmp_level,11);
4883: hr_utility.set_location('l_oipl_ordr_num -> '||l_oipl_ordr_num,12);
4876: hr_utility.set_location(l_proc || ' c_ler_bnft_rstrn ', 12);
4877: end if;
4878: /* uncomment these for debuggin only
4879: hr_utility.set_location('l_plip_id -> '||l_plip_id,11);
4880: hr_utility.set_location('p_pgm_id -> '||p_pgm_id,11);
4881: hr_utility.set_location('l_restriction_pgm_id -> '||l_restriction_pgm_id,11);
4882: hr_utility.set_location('l_tmp_level -> '||l_tmp_level,11);
4883: hr_utility.set_location('l_oipl_ordr_num -> '||l_oipl_ordr_num,12);
4884: hr_utility.set_location('l_boo_rstrctn_cd -> '||l_boo_rstrctn_cd,12);
4877: end if;
4878: /* uncomment these for debuggin only
4879: hr_utility.set_location('l_plip_id -> '||l_plip_id,11);
4880: hr_utility.set_location('p_pgm_id -> '||p_pgm_id,11);
4881: hr_utility.set_location('l_restriction_pgm_id -> '||l_restriction_pgm_id,11);
4882: hr_utility.set_location('l_tmp_level -> '||l_tmp_level,11);
4883: hr_utility.set_location('l_oipl_ordr_num -> '||l_oipl_ordr_num,12);
4884: hr_utility.set_location('l_boo_rstrctn_cd -> '||l_boo_rstrctn_cd,12);
4885: hr_utility.set_location('l_cvg_incr_r_decr_only_cd -> '||l_cvg_incr_r_decr_only_cd,12);
4878: /* uncomment these for debuggin only
4879: hr_utility.set_location('l_plip_id -> '||l_plip_id,11);
4880: hr_utility.set_location('p_pgm_id -> '||p_pgm_id,11);
4881: hr_utility.set_location('l_restriction_pgm_id -> '||l_restriction_pgm_id,11);
4882: hr_utility.set_location('l_tmp_level -> '||l_tmp_level,11);
4883: hr_utility.set_location('l_oipl_ordr_num -> '||l_oipl_ordr_num,12);
4884: hr_utility.set_location('l_boo_rstrctn_cd -> '||l_boo_rstrctn_cd,12);
4885: hr_utility.set_location('l_cvg_incr_r_decr_only_cd -> '||l_cvg_incr_r_decr_only_cd,12);
4886: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
4879: hr_utility.set_location('l_plip_id -> '||l_plip_id,11);
4880: hr_utility.set_location('p_pgm_id -> '||p_pgm_id,11);
4881: hr_utility.set_location('l_restriction_pgm_id -> '||l_restriction_pgm_id,11);
4882: hr_utility.set_location('l_tmp_level -> '||l_tmp_level,11);
4883: hr_utility.set_location('l_oipl_ordr_num -> '||l_oipl_ordr_num,12);
4884: hr_utility.set_location('l_boo_rstrctn_cd -> '||l_boo_rstrctn_cd,12);
4885: hr_utility.set_location('l_cvg_incr_r_decr_only_cd -> '||l_cvg_incr_r_decr_only_cd,12);
4886: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
4887: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
4880: hr_utility.set_location('p_pgm_id -> '||p_pgm_id,11);
4881: hr_utility.set_location('l_restriction_pgm_id -> '||l_restriction_pgm_id,11);
4882: hr_utility.set_location('l_tmp_level -> '||l_tmp_level,11);
4883: hr_utility.set_location('l_oipl_ordr_num -> '||l_oipl_ordr_num,12);
4884: hr_utility.set_location('l_boo_rstrctn_cd -> '||l_boo_rstrctn_cd,12);
4885: hr_utility.set_location('l_cvg_incr_r_decr_only_cd -> '||l_cvg_incr_r_decr_only_cd,12);
4886: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
4887: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
4888: */
4881: hr_utility.set_location('l_restriction_pgm_id -> '||l_restriction_pgm_id,11);
4882: hr_utility.set_location('l_tmp_level -> '||l_tmp_level,11);
4883: hr_utility.set_location('l_oipl_ordr_num -> '||l_oipl_ordr_num,12);
4884: hr_utility.set_location('l_boo_rstrctn_cd -> '||l_boo_rstrctn_cd,12);
4885: hr_utility.set_location('l_cvg_incr_r_decr_only_cd -> '||l_cvg_incr_r_decr_only_cd,12);
4886: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
4887: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
4888: */
4889: IF l_boo_rstrctn_cd IS NOT NULL THEN
4882: hr_utility.set_location('l_tmp_level -> '||l_tmp_level,11);
4883: hr_utility.set_location('l_oipl_ordr_num -> '||l_oipl_ordr_num,12);
4884: hr_utility.set_location('l_boo_rstrctn_cd -> '||l_boo_rstrctn_cd,12);
4885: hr_utility.set_location('l_cvg_incr_r_decr_only_cd -> '||l_cvg_incr_r_decr_only_cd,12);
4886: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
4887: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
4888: */
4889: IF l_boo_rstrctn_cd IS NOT NULL THEN
4890: --
4883: hr_utility.set_location('l_oipl_ordr_num -> '||l_oipl_ordr_num,12);
4884: hr_utility.set_location('l_boo_rstrctn_cd -> '||l_boo_rstrctn_cd,12);
4885: hr_utility.set_location('l_cvg_incr_r_decr_only_cd -> '||l_cvg_incr_r_decr_only_cd,12);
4886: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
4887: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
4888: */
4889: IF l_boo_rstrctn_cd IS NOT NULL THEN
4890: --
4891: OPEN c_oipl_enrt_in_pl;
4913: fetch c_opt_level into l_opt_level;
4914: if c_opt_level%Notfound then
4915: exit;
4916: end if;
4917: -- hr_utility.set_location('opt level'||l_opt_level,111);
4918:
4919: if l_opt_level = l_oipl_ordr_num then
4920: l_oipl_seq_num := l_cnt;
4921: l_found := TRUE;
4939: if c_opt_level%Notfound then
4940: exit;
4941: end if;
4942: if g_debug then
4943: hr_utility.set_location('Enrd Ord'||l_enrd_ordr_num,113);
4944: end if;
4945: if l_opt_level = l_enrd_ordr_num then
4946: l_enrd_seq_num := l_cnt;
4947: l_found := TRUE;
4968: CLOSE c_get_min_max_ordr_num;
4969: --
4970: IF l_oipl_ordr_num <> l_mn_ordr_num THEN
4971: if g_debug then
4972: hr_utility.set_location(
4973: 'Level jumping to this object not allowed',
4974: 12);
4975: end if;
4976: p_electable_flag := 'N';
4976: p_electable_flag := 'N';
4977: RETURN;
4978: END IF;
4979: if g_debug then
4980: hr_utility.set_location('min avail', 12);
4981: end if;
4982: --
4983: ELSIF l_cvg_incr_r_decr_only_cd = 'MXAVLO' THEN
4984: --
4989: CLOSE c_get_min_max_ordr_num;
4990: --
4991: IF l_oipl_ordr_num <> l_mx_ordr_num THEN
4992: if g_debug then
4993: hr_utility.set_location(
4994: 'Level jumping to this object not allowed',
4995: 12);
4996: end if;
4997: p_electable_flag := 'N';
4997: p_electable_flag := 'N';
4998: RETURN;
4999: END IF;
5000: if g_debug then
5001: hr_utility.set_location('max avail', 12);
5002: end if;
5003: --
5004: ELSIF l_enrd_ordr_num IS NULL THEN
5005: --
5005: --
5006: -- When person is not previously enrolled.
5007: --
5008: if g_debug then
5009: hr_utility.set_location('person not prev enrolled', 12);
5010: end if;
5011: p_electable_flag := 'Y';
5012: --
5013: ELSIF (
5024: l_cvg_incr_r_decr_only_cd = 'EQDECR'
5025: AND l_oipl_ordr_num > l_enrd_ordr_num)) THEN
5026: --
5027: if g_debug then
5028: hr_utility.set_location('incr or decr check failed, no choice', 12);
5029: end if;
5030: --
5031: p_electable_flag := 'N';
5032: --
5049: AND l_oipl_ordr_num <= l_enrd_ordr_num)
5050: OR l_cvg_incr_r_decr_only_cd IN ('INCRCTF', 'DECRCTF', 'DECINCCTF')) THEN
5051: --
5052: /* uncomment these for debugging only
5053: hr_utility.set_location('Level jumping passed incr or decr check',12);
5054: hr_utility.set_location('now check max incr and max wctfn incr',12);
5055: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
5056: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
5057: hr_utility.set_location('current enrolled order num -> '||l_enrd_ordr_num,12);
5050: OR l_cvg_incr_r_decr_only_cd IN ('INCRCTF', 'DECRCTF', 'DECINCCTF')) THEN
5051: --
5052: /* uncomment these for debugging only
5053: hr_utility.set_location('Level jumping passed incr or decr check',12);
5054: hr_utility.set_location('now check max incr and max wctfn incr',12);
5055: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
5056: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
5057: hr_utility.set_location('current enrolled order num -> '||l_enrd_ordr_num,12);
5058: */
5051: --
5052: /* uncomment these for debugging only
5053: hr_utility.set_location('Level jumping passed incr or decr check',12);
5054: hr_utility.set_location('now check max incr and max wctfn incr',12);
5055: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
5056: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
5057: hr_utility.set_location('current enrolled order num -> '||l_enrd_ordr_num,12);
5058: */
5059: -- logical ordr number is used rather database ordr num
5052: /* uncomment these for debugging only
5053: hr_utility.set_location('Level jumping passed incr or decr check',12);
5054: hr_utility.set_location('now check max incr and max wctfn incr',12);
5055: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
5056: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
5057: hr_utility.set_location('current enrolled order num -> '||l_enrd_ordr_num,12);
5058: */
5059: -- logical ordr number is used rather database ordr num
5060: --
5053: hr_utility.set_location('Level jumping passed incr or decr check',12);
5054: hr_utility.set_location('now check max incr and max wctfn incr',12);
5055: hr_utility.set_location('l_mx_cvg_mlt_incr_wcf_num -> '||l_mx_cvg_mlt_incr_wcf_num,12);
5056: hr_utility.set_location('l_mx_cvg_mlt_incr_num -> '||l_mx_cvg_mlt_incr_num,12);
5057: hr_utility.set_location('current enrolled order num -> '||l_enrd_ordr_num,12);
5058: */
5059: -- logical ordr number is used rather database ordr num
5060: --
5061: IF l_oipl_seq_num >
5064: l_enrd_seq_num)
5065: AND l_mx_cvg_mlt_incr_wcf_num IS NOT NULL THEN
5066: --
5067: if g_debug then
5068: hr_utility.set_location('can not jump here 1', 12);
5069: end if;
5070: p_electable_flag := 'N';
5071: RETURN;
5072: --
5078: AND l_mx_cvg_mlt_incr_num IS NOT NULL
5079: AND l_mx_cvg_mlt_incr_wcf_num IS NULL THEN
5080: --
5081: if g_debug then
5082: hr_utility.set_location('can not jump here 2', 12);
5083: end if;
5084: p_electable_flag := 'N';
5085: RETURN;
5086: --
5096: l_enrd_seq_num))
5097: AND l_mx_cvg_mlt_incr_wcf_num IS NOT NULL THEN
5098: --
5099: if g_debug then
5100: hr_utility.set_location('set ctfn rqd flag to true ', 12);
5101: end if;
5102: p_electable_flag := 'Y';
5103: l_ctfn_rqd_flag := 'Y';
5104: ELSE
5108: END IF;
5109: --
5110: -- 5736589: Increase/Decrease Requires certification for Option Restrictions
5111: if g_debug then
5112: hr_utility.set_location('Opt.Rest. Incr/Dec.Req.Cert. ' || l_cvg_incr_r_decr_only_cd, 12);
5113: end if;
5114: IF (l_cvg_incr_r_decr_only_cd = 'INCRCTF'
5115: and l_oipl_ordr_num > l_enrd_ordr_num) THEN
5116: --
5127: l_ctfn_rqd_flag := 'Y';
5128: END IF;
5129: --
5130: if g_debug then
5131: hr_utility.set_location('Opt.Rest. Cert Flag ' || l_ctfn_rqd_flag, 12);
5132: end if;
5133: --
5134: ELSE
5135: --
5133: --
5134: ELSE
5135: --
5136: if g_debug then
5137: hr_utility.set_location('Level jumping success', 0);
5138: end if;
5139: p_electable_flag := 'Y';
5140: --
5141: END IF;
5153: -- if not set get it from the pgm, if not set report and error.
5154: -- (end date is optional is used at the same level as the start)
5155: --
5156: if g_debug then
5157: hr_utility.set_location('J', 20);
5158: hr_utility.set_location(l_proc || ' RMODE=L ', 12);
5159: end if;
5160: --
5161: -- ABSENCES : absence processing is similar to life event processing
5154: -- (end date is optional is used at the same level as the start)
5155: --
5156: if g_debug then
5157: hr_utility.set_location('J', 20);
5158: hr_utility.set_location(l_proc || ' RMODE=L ', 12);
5159: end if;
5160: --
5161: -- ABSENCES : absence processing is similar to life event processing
5162: -- GRADE/STEP : GS progression process is similar to life event
5167: IF ( p_run_mode in ('L', 'M', 'G', 'I')
5168: AND l_unrestricted_enrt_flag = 'N') THEN
5169: --
5170: if g_debug then
5171: hr_utility.set_location('K', 20);
5172: hr_utility.set_location(l_proc || ' RMODE=L UEF=N ', 12);
5173: end if;
5174: OPEN c_lee_period_for_plan;
5175: --
5168: AND l_unrestricted_enrt_flag = 'N') THEN
5169: --
5170: if g_debug then
5171: hr_utility.set_location('K', 20);
5172: hr_utility.set_location(l_proc || ' RMODE=L UEF=N ', 12);
5173: end if;
5174: OPEN c_lee_period_for_plan;
5175: --
5176: FETCH c_lee_period_for_plan INTO l_ple_dys_aftr_end_to_dflt_num,
5202: END IF; -- found
5203: --
5204: CLOSE c_lee_period_for_plan;
5205: if g_debug then
5206: hr_utility.set_location(l_proc || ' Cl c_lpfpln ', 12);
5207: --
5208: hr_utility.set_location('L', 20);
5209: end if;
5210: -- Get pgm level enrt period if it is needed
5204: CLOSE c_lee_period_for_plan;
5205: if g_debug then
5206: hr_utility.set_location(l_proc || ' Cl c_lpfpln ', 12);
5207: --
5208: hr_utility.set_location('L', 20);
5209: end if;
5210: -- Get pgm level enrt period if it is needed
5211: -- Program must exist and
5212: -- Needed when can't find record at plan level or
5249: END IF; -- Found
5250: --
5251: CLOSE c_lee_period_for_program;
5252: if g_debug then
5253: hr_utility.set_location(l_proc || ' Cl c_lpfprg ', 12);
5254: end if;
5255: --
5256: -- If there is a plan level enrt_perd_for_pl use it's value (if not null)
5257: --
5270: ELSIF ( ( p_run_mode = 'C'or p_run_mode = 'W')
5271: AND l_unrestricted_enrt_flag = 'N') THEN
5272: --
5273: if g_debug then
5274: hr_utility.set_location(l_proc || ' RMODE=C UEF=N ', 12);
5275: end if;
5276: OPEN c_sched_enrol_period_for_plan;
5277: --
5278: FETCH c_sched_enrol_period_for_plan INTO l_ple_enrt_perd_id,
5357: --
5358: -- One of the levels must have been found
5359: --
5360: if g_debug then
5361: hr_utility.set_location('M', 20);
5362: hr_utility.set_location(
5363: 'l_perd_for_plan_found=' || l_perd_for_plan_found,
5364: 20);
5365: hr_utility.set_location(
5358: -- One of the levels must have been found
5359: --
5360: if g_debug then
5361: hr_utility.set_location('M', 20);
5362: hr_utility.set_location(
5363: 'l_perd_for_plan_found=' || l_perd_for_plan_found,
5364: 20);
5365: hr_utility.set_location(
5366: 'l_perd_for_program_found=' || l_perd_for_program_found,
5361: hr_utility.set_location('M', 20);
5362: hr_utility.set_location(
5363: 'l_perd_for_plan_found=' || l_perd_for_plan_found,
5364: 20);
5365: hr_utility.set_location(
5366: 'l_perd_for_program_found=' || l_perd_for_program_found,
5367: 20);
5368: hr_utility.set_location(
5369: 'l_unrestricted_enrt_flag=' || l_unrestricted_enrt_flag,
5364: 20);
5365: hr_utility.set_location(
5366: 'l_perd_for_program_found=' || l_perd_for_program_found,
5367: 20);
5368: hr_utility.set_location(
5369: 'l_unrestricted_enrt_flag=' || l_unrestricted_enrt_flag,
5370: 20);
5371: hr_utility.set_location('l_pfpf=N ' || l_proc, 10);
5372: end if;
5367: 20);
5368: hr_utility.set_location(
5369: 'l_unrestricted_enrt_flag=' || l_unrestricted_enrt_flag,
5370: 20);
5371: hr_utility.set_location('l_pfpf=N ' || l_proc, 10);
5372: end if;
5373: --Bug 2200139 Override Enrollment
5374: IF (
5375: l_perd_for_plan_found = 'N'
5380: -- ABSENCES : absence processing is similar to life event processing.
5381: -- iRec : Added mode 'I'
5382: IF p_run_mode in ('L', 'M','G', 'I') THEN
5383: if g_debug then
5384: hr_utility.set_location(' Leaving:' || l_proc, 981);
5385: end if;
5386: p_electable_flag := 'N';
5387: RETURN;
5388: ELSE
5386: p_electable_flag := 'N';
5387: RETURN;
5388: ELSE
5389: if g_debug then
5390: hr_utility.set_location('Did not find enrt_perd, raise error', 982);
5391: end if;
5392: fnd_message.set_name('BEN', 'BEN_91335_PLAN_YR_ENRT_PERD');
5393: fnd_message.set_token('PROC', l_proc);
5394: fnd_message.set_token('PGM_ID', TO_CHAR(p_pgm_id));
5400: --
5401: END IF; -- no enrt_perd info found.
5402: --
5403: if g_debug then
5404: hr_utility.set_location('P', 20);
5405: --
5406: -- Determine the mndtry_flag
5407: -- If the comp object is an OIPL
5408: --
5405: --
5406: -- Determine the mndtry_flag
5407: -- If the comp object is an OIPL
5408: --
5409: hr_utility.set_location('Ch oipl_id NN ' || l_proc, 10);
5410: end if;
5411: IF (p_oipl_id IS NOT NULL AND p_run_mode <> 'D') THEN
5412: --
5413: -- If the mndtry_rl is not null, execute it to determine
5448: -- Determine the elctbl_flag
5449: -- If the comp object is an OIPL
5450: --
5451: if g_debug then
5452: hr_utility.set_location('R', 20);
5453: hr_utility.set_location('Ch oipl_id1 NN ' || l_proc, 10);
5454: end if;
5455: --
5456: -- CWBITEM : do not check for CWB plans, goahead and create the epe.
5449: -- If the comp object is an OIPL
5450: --
5451: if g_debug then
5452: hr_utility.set_location('R', 20);
5453: hr_utility.set_location('Ch oipl_id1 NN ' || l_proc, 10);
5454: end if;
5455: --
5456: -- CWBITEM : do not check for CWB plans, goahead and create the epe.
5457: --
5465: OPEN c_any_oipl_for_plan;
5466: --
5467: FETCH c_any_oipl_for_plan INTO l_exists_flag;
5468: if g_debug then
5469: hr_utility.set_location('Fet c_aofp ' || l_proc, 10);
5470: end if;
5471: --
5472: IF c_any_oipl_for_plan%FOUND THEN
5473: --
5482: --
5483: END IF;
5484: --
5485: if g_debug then
5486: hr_utility.set_location('S', 20);
5487: -- Determine the enrt_typ_cycl_cd
5488: -- Find the lee_rsn_f and related popl_enrt_typ_cycl_f for the plan.
5489: --
5490: hr_utility.set_location('l_PFPF=Y ' || l_proc, 10);
5486: hr_utility.set_location('S', 20);
5487: -- Determine the enrt_typ_cycl_cd
5488: -- Find the lee_rsn_f and related popl_enrt_typ_cycl_f for the plan.
5489: --
5490: hr_utility.set_location('l_PFPF=Y ' || l_proc, 10);
5491: end if;
5492: IF p_run_mode <> 'D' THEN
5493: IF ( l_perd_for_plan_found = 'Y'
5494: AND l_ple_enrt_typ_cycl_cd IS NOT NULL) THEN
5531: --
5532: -- get the dflt_enrt_cd/rule
5533: --
5534: if g_debug then
5535: hr_utility.set_location('DrtDEC ' || l_proc, 10);
5536: -- start bug 5644451
5537: hr_utility.set_location('Determine with new call 5644451 ' || l_proc, 10);
5538: end if;
5539: IF (p_oipl_id IS NOT NULL)
5533: --
5534: if g_debug then
5535: hr_utility.set_location('DrtDEC ' || l_proc, 10);
5536: -- start bug 5644451
5537: hr_utility.set_location('Determine with new call 5644451 ' || l_proc, 10);
5538: end if;
5539: IF (p_oipl_id IS NOT NULL)
5540: THEN
5541: -- get oipl information
5594: );
5595:
5596: -- end bug 5644451
5597: if g_debug then
5598: hr_utility.set_location('Dn DrtDEC ' || l_proc, 10);
5599: end if;
5600: --
5601: -- Set the values for the dflt_flag
5602: --
5611: l_use_dflt_flag := l_ler_dflt_flag;
5612: END IF;
5613: END IF;
5614: if g_debug then
5615: hr_utility.set_location('U', 20);
5616: end if;
5617: --
5618: -- oipl level default code/flag
5619: --
5625: l_use_dflt_flag := l_oipl_dflt_flag;
5626: END IF;
5627: END IF;
5628: if g_debug then
5629: hr_utility.set_location('U3', 30);
5630: end if;
5631: --
5632: -- plip level default code/flag
5633: --
5637: END IF;
5638: END IF;
5639: --
5640: if g_debug then
5641: hr_utility.set_location('V', 20);
5642: end if;
5643: --
5644: -- If no default flag is set then make it not a default.
5645: --
5648: l_use_dflt_flag := 'N';
5649: --
5650: END IF;
5651: if g_debug then
5652: hr_utility.set_location(' l_use_dflt_flag ' || l_use_dflt_flag, 10);
5653: end if;
5654: determine_dflt_flag(
5655: l_use_dflt_flag,
5656: l_use_dflt_enrt_cd,
5679: if l_reinstt_cd is null then
5680: l_reinstt_cd := l_reinstt_flag;
5681: end if;
5682: if g_debug then
5683: hr_utility.set_location(' Dn det_dflt_flag ' || l_proc, 10);
5684: hr_utility.set_location(' l_dflt_flag ' || l_dflt_flag , 10);
5685: hr_utility.set_location(' l_dflt_level ' || l_dflt_level , 10);--AMN Bug 14661357
5686: end if;
5687: /*Start AMN Bug 14653541: Commenting the below fixes
5680: l_reinstt_cd := l_reinstt_flag;
5681: end if;
5682: if g_debug then
5683: hr_utility.set_location(' Dn det_dflt_flag ' || l_proc, 10);
5684: hr_utility.set_location(' l_dflt_flag ' || l_dflt_flag , 10);
5685: hr_utility.set_location(' l_dflt_level ' || l_dflt_level , 10);--AMN Bug 14661357
5686: end if;
5687: /*Start AMN Bug 14653541: Commenting the below fixes
5688: --
5681: end if;
5682: if g_debug then
5683: hr_utility.set_location(' Dn det_dflt_flag ' || l_proc, 10);
5684: hr_utility.set_location(' l_dflt_flag ' || l_dflt_flag , 10);
5685: hr_utility.set_location(' l_dflt_level ' || l_dflt_level , 10);--AMN Bug 14661357
5686: end if;
5687: /*Start AMN Bug 14653541: Commenting the below fixes
5688: --
5689: --Bug# 12621882 For a Comp.object After the rule evalutes the default enrolment flag,
5689: --Bug# 12621882 For a Comp.object After the rule evalutes the default enrolment flag,
5690: -- if l_dflt_flag = 'Y' then it again checks at the oipl level.
5691: -- Means option which is set as default at oipl level should only be defaulted.
5692: --ud changes start
5693: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
5694:
5695: IF l_use_dflt_enrt_cd ='RL' then
5696:
5697: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
5693: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
5694:
5695: IF l_use_dflt_enrt_cd ='RL' then
5696:
5697: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
5698: hr_utility.set_location(' p_oipl_id ' || p_oipl_id , 10);
5699:
5700: IF l_dflt_flag = 'Y' and p_oipl_id IS NOT NULL and l_dflt_level not in ('LER_OIPL','OIPL') then --AMN Bug 14661357
5701:
5694:
5695: IF l_use_dflt_enrt_cd ='RL' then
5696:
5697: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
5698: hr_utility.set_location(' p_oipl_id ' || p_oipl_id , 10);
5699:
5700: IF l_dflt_flag = 'Y' and p_oipl_id IS NOT NULL and l_dflt_level not in ('LER_OIPL','OIPL') then --AMN Bug 14661357
5701:
5702: hr_utility.set_location(' p_oipl_id ' || p_oipl_id , 10);
5698: hr_utility.set_location(' p_oipl_id ' || p_oipl_id , 10);
5699:
5700: IF l_dflt_flag = 'Y' and p_oipl_id IS NOT NULL and l_dflt_level not in ('LER_OIPL','OIPL') then --AMN Bug 14661357
5701:
5702: hr_utility.set_location(' p_oipl_id ' || p_oipl_id , 10);
5703: hr_utility.set_location(' l_oipl_dflt_flag ' || l_oipl_dflt_flag , 10);
5704: --Start AMN Bug 14661357
5705: open c_ler_oipl_dflt_flag;
5706: fetch c_ler_oipl_dflt_flag into l_ler_oipl_dflt_flag;
5699:
5700: IF l_dflt_flag = 'Y' and p_oipl_id IS NOT NULL and l_dflt_level not in ('LER_OIPL','OIPL') then --AMN Bug 14661357
5701:
5702: hr_utility.set_location(' p_oipl_id ' || p_oipl_id , 10);
5703: hr_utility.set_location(' l_oipl_dflt_flag ' || l_oipl_dflt_flag , 10);
5704: --Start AMN Bug 14661357
5705: open c_ler_oipl_dflt_flag;
5706: fetch c_ler_oipl_dflt_flag into l_ler_oipl_dflt_flag;
5707: if c_ler_oipl_dflt_flag%notfound then
5707: if c_ler_oipl_dflt_flag%notfound then
5708: l_ler_oipl_dflt_flag := l_oipl_dflt_flag;
5709: end if;
5710: close c_ler_oipl_dflt_flag;
5711: hr_utility.set_location(' l_ler_oipl_dflt_flag ' || l_ler_oipl_dflt_flag , 10);
5712: --End AMN Bug 14661357
5713: If l_ler_oipl_dflt_flag = 'N' then --AMN Bug 14661357
5714: l_dflt_flag := 'N';
5715: hr_utility.set_location('l_dflt_flag ' || l_dflt_flag, 40);
5711: hr_utility.set_location(' l_ler_oipl_dflt_flag ' || l_ler_oipl_dflt_flag , 10);
5712: --End AMN Bug 14661357
5713: If l_ler_oipl_dflt_flag = 'N' then --AMN Bug 14661357
5714: l_dflt_flag := 'N';
5715: hr_utility.set_location('l_dflt_flag ' || l_dflt_flag, 40);
5716:
5717: end if;
5718: end if;
5719: end if;
5749: -- If Life event mode, set dflt_asnmt_dt to the
5750: -- enrt_perd_end_dt + dys_aftr_end_to_dflt_num.
5751: --
5752: if g_debug then
5753: hr_utility.set_location(' RM L UEF N ' || l_proc, 10);
5754: end if;
5755: IF (
5756: l_perd_for_plan_found = 'Y'
5757: AND l_ple_enrt_perd_strt_dt_cd IS NOT NULL) THEN
5780: -- inline since we don't want to add additional function calls
5781: -- for performance reasons.
5782: --
5783: if g_debug then
5784: hr_utility.set_location(' PLS BLK 1 ' || l_proc, 10);
5785: end if;
5786: BEGIN
5787: if g_debug then
5788: hr_utility.set_location(' entering ' || l_proc, 10);
5784: hr_utility.set_location(' PLS BLK 1 ' || l_proc, 10);
5785: end if;
5786: BEGIN
5787: if g_debug then
5788: hr_utility.set_location(' entering ' || l_proc, 10);
5789: end if;
5790: -- jcarpent 1/4/2001 bug 1568555, removed +1 from line below
5791: -- 1 get latest processed date
5792: l_orig_epsd := l_rec_enrt_perd_strt_dt;
5798: -- call the enrt_perd_strt_dt procedure to compute the epsd and eped
5799: -- according to the enrt. period determination code
5800: -- removed inline code and made it a procedure
5801: if g_debug then
5802: hr_utility.set_location(' calling new proc ' , 20);
5803: end if;
5804: enrt_perd_strt_dt
5805: ( p_person_id => p_person_id
5806: , p_lf_evt_ocrd_dt => p_lf_evt_ocrd_dt
5811: , p_effective_date => p_effective_date
5812: );
5813: end if;
5814: if g_debug then
5815: hr_utility.set_location(' l_rec_enrt_perd_strt_dt is '|| l_rec_enrt_perd_strt_dt , 876);
5816: end if;
5817: END; -- of special epsd logic
5818: if g_debug then
5819: hr_utility.set_location(' Dn PLS BLK 1 ' || l_proc, 10);
5815: hr_utility.set_location(' l_rec_enrt_perd_strt_dt is '|| l_rec_enrt_perd_strt_dt , 876);
5816: end if;
5817: END; -- of special epsd logic
5818: if g_debug then
5819: hr_utility.set_location(' Dn PLS BLK 1 ' || l_proc, 10);
5820: end if;
5821: ben_determine_date.main(
5822: p_date_cd => l_ple_enrt_perd_end_dt_cd,
5823: p_start_date => l_orig_epsd,
5841: end if ;
5842:
5843: --
5844: if g_debug then
5845: hr_utility.set_location(' l_rec_enrt_perd_end_dt is '|| l_rec_enrt_perd_end_dt , 876);
5846: end if;
5847: --
5848: -- 2746865
5849:
5848: -- 2746865
5849:
5850: -- if cd is L_EPSD_PEPD or null, proceed as before
5851: IF ( nvl(l_enrt_perd_det_ovrlp_bckdt_cd,'L_EPSD_PEPD') = 'L_EPSD_PEPD') THEN
5852: hr_utility.set_location('L_EPSD_PEPD' , 765);
5853: l_rec_enrt_perd_end_dt :=
5854: l_rec_enrt_perd_end_dt + (l_rec_enrt_perd_strt_dt - l_orig_epsd);
5855: -- 2746865
5856: ELSE
5857: -- for other codes
5858: -- if end dt is less than the start dt, make the strt dt as the end dt
5859: IF l_rec_enrt_perd_end_dt < l_rec_enrt_perd_strt_dt THEN
5860: if g_debug then
5861: hr_utility.set_location(' end dt < strt dt ', 876);
5862: end if;
5863: l_rec_enrt_perd_end_dt := l_rec_enrt_perd_strt_dt;
5864: END IF;
5865: END IF;
5872: --
5873: l_rec_lee_rsn_id := l_ple_lee_rsn_id;
5874: --
5875: if g_debug then
5876: hr_utility.set_location(' Dn RM L UEF N ' || l_proc, 10);
5877: end if;
5878: ELSIF (
5879: l_perd_for_program_found = 'Y'
5880: AND l_pgme_enrt_perd_strt_dt_cd IS NOT NULL) THEN
5879: l_perd_for_program_found = 'Y'
5880: AND l_pgme_enrt_perd_strt_dt_cd IS NOT NULL) THEN
5881: --
5882: if g_debug then
5883: hr_utility.set_location(' BDD_MN PFPF=Y ' || l_proc, 10);
5884: end if;
5885: ben_determine_date.main(
5886: p_date_cd => l_pgme_enrt_perd_strt_dt_cd,
5887: p_per_in_ler_id => l_per_in_ler_id,
5929: --
5930: end if;
5931: END; -- of special epsd logic
5932: if g_debug then
5933: hr_utility.set_location(' Bef BDD_Mn ' || l_proc, 10);
5934: end if;
5935: ben_determine_date.main(
5936: p_date_cd => l_pgme_enrt_perd_end_dt_cd,
5937: p_start_date => l_orig_epsd,
5957:
5958: -- 2746865
5959: -- if cd is L_EPSD_PEPD, proceed as before
5960: IF ( nvl(l_enrt_perd_det_ovrlp_bckdt_cd,'L_EPSD_PEPD') = 'L_EPSD_PEPD') THEN
5961: hr_utility.set_location('L_EPSD_PEPD' , 765);
5962: l_rec_enrt_perd_end_dt :=
5963: l_rec_enrt_perd_end_dt + (l_rec_enrt_perd_strt_dt - l_orig_epsd);
5964: -- 2746865
5965: ELSE
5966: -- for other codes
5967: -- if end dt is less than the start dt, make the strt dt as the end dt
5968: IF l_rec_enrt_perd_end_dt < l_rec_enrt_perd_strt_dt THEN
5969: if g_debug then
5970: hr_utility.set_location(' end dt < strt dt ', 876);
5971: end if;
5972: l_rec_enrt_perd_end_dt := l_rec_enrt_perd_strt_dt;
5973: END IF;
5974: END IF;
5982: --
5983: l_rec_lee_rsn_id := l_pgme_lee_rsn_id;
5984: --
5985: if g_debug then
5986: hr_utility.set_location(' Dn PFPF=Y ' || l_proc, 10);
5987: end if;
5988: ELSE
5989: --
5990: fnd_message.set_name('BEN', 'BEN_91335_PLAN_YR_ENRT_PERD');
6039: --
6040: -- 2746865
6041: -- if cd is L_EPSD_PEPD, proceed as before
6042: if g_debug then
6043: hr_utility.set_location('l_ple_enrt_perd_end_dt ' ||l_ple_enrt_perd_end_dt, 765);
6044: hr_utility.set_location('l_rec_enrt_perd_end_dt ' ||l_rec_enrt_perd_end_dt, 765);
6045: end if;
6046:
6047: IF ( nvl(l_enrt_perd_det_ovrlp_bckdt_cd,'L_EPSD_PEPD') = 'L_EPSD_PEPD') THEN
6040: -- 2746865
6041: -- if cd is L_EPSD_PEPD, proceed as before
6042: if g_debug then
6043: hr_utility.set_location('l_ple_enrt_perd_end_dt ' ||l_ple_enrt_perd_end_dt, 765);
6044: hr_utility.set_location('l_rec_enrt_perd_end_dt ' ||l_rec_enrt_perd_end_dt, 765);
6045: end if;
6046:
6047: IF ( nvl(l_enrt_perd_det_ovrlp_bckdt_cd,'L_EPSD_PEPD') = 'L_EPSD_PEPD') THEN
6048: if g_debug then
6045: end if;
6046:
6047: IF ( nvl(l_enrt_perd_det_ovrlp_bckdt_cd,'L_EPSD_PEPD') = 'L_EPSD_PEPD') THEN
6048: if g_debug then
6049: hr_utility.set_location('L_EPSD_PEPD' , 765);
6050: end if;
6051: l_rec_enrt_perd_end_dt :=
6052: l_ple_enrt_perd_end_dt + (l_rec_enrt_perd_strt_dt - l_orig_epsd);
6053: --
6058: -- for other codes
6059:
6060: -- end dt is the greatest of start date and orig. end date
6061: /*IF l_ple_enrt_perd_end_dt < l_rec_enrt_perd_strt_dt THEN
6062: hr_utility.set_location(' end dt < strt dt ', 876);
6063: l_rec_enrt_perd_end_dt := l_rec_enrt_perd_strt_dt;
6064: ELSE
6065: l_rec_enrt_perd_end_dt := l_ple_enrt_perd_end_dt;
6066: END IF;
6067: */
6068:
6069: l_rec_enrt_perd_end_dt := greatest (l_rec_enrt_perd_strt_dt, l_ple_enrt_perd_end_dt);
6070: if g_debug then
6071: hr_utility.set_location('l_rec_enrt_perd_end_dt ' ||l_rec_enrt_perd_end_dt, 765);
6072: end if;
6073: --
6074: -- Bug 5650482. If the enrollment period end date is greater that the
6075: -- processing end date, set processing end date to the enrollment
6082: END IF;
6083: --
6084: END IF;
6085: if g_debug then
6086: hr_utility.set_location('l_rec_procg_end_dt ' ||l_rec_procg_end_dt, 765);
6087: end if;
6088: --
6089: l_rec_dflt_asnmt_dt :=
6090: l_ple_dflt_enrt_dt + (l_rec_enrt_perd_strt_dt - l_orig_epsd);
6126:
6127: -- 2746865
6128: -- if cd is L_EPSD_PEPD, proceed as before
6129: if g_debug then
6130: hr_utility.set_location('l_ple_enrt_perd_end_dt ' ||l_ple_enrt_perd_end_dt, 765);
6131: hr_utility.set_location('l_rec_enrt_perd_end_dt ' ||l_rec_enrt_perd_end_dt, 765);
6132: end if;
6133:
6134: IF ( nvl(l_enrt_perd_det_ovrlp_bckdt_cd,'L_EPSD_PEPD') = 'L_EPSD_PEPD') THEN
6127: -- 2746865
6128: -- if cd is L_EPSD_PEPD, proceed as before
6129: if g_debug then
6130: hr_utility.set_location('l_ple_enrt_perd_end_dt ' ||l_ple_enrt_perd_end_dt, 765);
6131: hr_utility.set_location('l_rec_enrt_perd_end_dt ' ||l_rec_enrt_perd_end_dt, 765);
6132: end if;
6133:
6134: IF ( nvl(l_enrt_perd_det_ovrlp_bckdt_cd,'L_EPSD_PEPD') = 'L_EPSD_PEPD') THEN
6135: if g_debug then
6132: end if;
6133:
6134: IF ( nvl(l_enrt_perd_det_ovrlp_bckdt_cd,'L_EPSD_PEPD') = 'L_EPSD_PEPD') THEN
6135: if g_debug then
6136: hr_utility.set_location('L_EPSD_PEPD' , 765);
6137: end if;
6138: l_rec_enrt_perd_end_dt :=
6139: l_pgme_enrt_perd_end_dt + (l_rec_enrt_perd_strt_dt - l_orig_epsd);
6140: l_rec_procg_end_dt :=
6156: END IF;
6157: --
6158: END IF;
6159: if g_debug then
6160: hr_utility.set_location('l_rec_procg_end_dt ' ||l_rec_procg_end_dt, 765);
6161: hr_utility.set_location('l_rec_enrt_perd_end_dt ' ||l_rec_enrt_perd_end_dt, 765);
6162: end if;
6163: --
6164: l_rec_dflt_asnmt_dt :=
6157: --
6158: END IF;
6159: if g_debug then
6160: hr_utility.set_location('l_rec_procg_end_dt ' ||l_rec_procg_end_dt, 765);
6161: hr_utility.set_location('l_rec_enrt_perd_end_dt ' ||l_rec_enrt_perd_end_dt, 765);
6162: end if;
6163: --
6164: l_rec_dflt_asnmt_dt :=
6165: l_pgme_dflt_enrt_dt + (l_rec_enrt_perd_strt_dt - l_orig_epsd);
6185: -- set dflt_asnmt_dt to the
6186: -- enrt_perd_end_dt + dys_aftr_end_to_dflt_num.
6187: --
6188: if g_debug then
6189: hr_utility.set_location(' RM L UEF N ' || l_proc, 20);
6190: end if;
6191: IF ( l_perd_for_plan_found = 'Y'
6192: AND l_ple_enrt_perd_strt_dt_cd IS NOT NULL) THEN
6193: --
6240: --
6241: l_rec_lee_rsn_id := l_ple_lee_rsn_id;
6242: --
6243: if g_debug then
6244: hr_utility.set_location(' Dn RM L UEF N ' || l_proc, 20);
6245: end if;
6246: ELSE
6247: --
6248: fnd_message.set_name('BEN', 'BEN_91335_PLAN_YR_ENRT_PERD');
6257: --
6258: END IF; -- run mode
6259: -- END IF;
6260: if g_debug then
6261: hr_utility.set_location(' start DATE ' || l_rec_enrt_perd_strt_dt, 92);
6262: hr_utility.set_location(' END DATE ' || l_rec_enrt_perd_end_dt, 92);
6263: end if;
6264: -- Check to see if the start date is before the end date
6265: IF l_rec_enrt_perd_strt_dt > l_rec_enrt_perd_end_dt THEN
6258: END IF; -- run mode
6259: -- END IF;
6260: if g_debug then
6261: hr_utility.set_location(' start DATE ' || l_rec_enrt_perd_strt_dt, 92);
6262: hr_utility.set_location(' END DATE ' || l_rec_enrt_perd_end_dt, 92);
6263: end if;
6264: -- Check to see if the start date is before the end date
6265: IF l_rec_enrt_perd_strt_dt > l_rec_enrt_perd_end_dt THEN
6266: --
6284: if p_run_mode='C' and
6285: l_crnt_enrt_cvg_strt_dt is not null then
6286: open c_regn_125_or_129;
6287: fetch c_regn_125_or_129 into l_regn_125_or_129_flag;
6288: hr_utility.set_location('regn_125_or_129='||l_regn_125_or_129_flag,10);
6289: close c_regn_125_or_129;
6290: end if;
6291: */
6292: --hr_utility.set_location('p_run_mode='||p_run_mode,1776);
6288: hr_utility.set_location('regn_125_or_129='||l_regn_125_or_129_flag,10);
6289: close c_regn_125_or_129;
6290: end if;
6291: */
6292: --hr_utility.set_location('p_run_mode='||p_run_mode,1776);
6293: --hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||l_crnt_enrt_cvg_strt_dt,1776);
6294: --hr_utility.set_location('l_regn_125_or_129_flag='||l_regn_125_or_129_flag,1776);
6295: --
6296: -- Determine the enrolment coverage codes/rules
6289: close c_regn_125_or_129;
6290: end if;
6291: */
6292: --hr_utility.set_location('p_run_mode='||p_run_mode,1776);
6293: --hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||l_crnt_enrt_cvg_strt_dt,1776);
6294: --hr_utility.set_location('l_regn_125_or_129_flag='||l_regn_125_or_129_flag,1776);
6295: --
6296: -- Determine the enrolment coverage codes/rules
6297: -- If currently enrolled get from old enrollment.
6290: end if;
6291: */
6292: --hr_utility.set_location('p_run_mode='||p_run_mode,1776);
6293: --hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||l_crnt_enrt_cvg_strt_dt,1776);
6294: --hr_utility.set_location('l_regn_125_or_129_flag='||l_regn_125_or_129_flag,1776);
6295: --
6296: -- Determine the enrolment coverage codes/rules
6297: -- If currently enrolled get from old enrollment.
6298: --
6303: -- 2982606 when the coverage start date of the prev LE is in future
6304: -- and current LE is current or earlier than previous one
6305: -- create new result and not currently enrolled - two plan
6306: if g_debug then
6307: hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||
6308: l_crnt_enrt_cvg_strt_dt,1777);
6309: end if;
6310: if l_crnt_enrt_cvg_strt_dt > p_lf_evt_ocrd_dt then
6311: ben_determine_date.rate_and_coverage_dates
6340: NVL(p_lf_evt_ocrd_dt, l_prtn_strt_dt),
6341: NVL(l_prtn_strt_dt, p_lf_evt_ocrd_dt))
6342: );
6343: if g_debug then
6344: hr_utility.set_location('Done RACD:' || l_proc, 11);
6345: end if;
6346:
6347: if l_rec_enrt_cvg_strt_dt >= l_crnt_enrt_cvg_strt_dt then
6348: l_rec_enrt_cvg_strt_dt := l_crnt_enrt_cvg_strt_dt;
6349: else
6350: l_rec_enrt_cvg_strt_dt_cd := L_dummy_enrt_cvg_strt_dt_cd ;
6351: l_rec_enrt_cvg_strt_dt_rl := l_dummy_enrt_cvg_strt_dt_rl ;
6352: if (l_fut_rslt_exist) or nvl(l_crnt_enrt_sspndd_flag,'N') = 'Y' then -------------Bug 8846328
6353: hr_utility.set_location('fur rslt exist or sspndd rec', 11);
6354: ---Do nothing
6355: else
6356: hr_utility.set_location('fur rslt not exist', 11);
6357: l_rec_crntly_enrd_flag := 'N' ;
6352: if (l_fut_rslt_exist) or nvl(l_crnt_enrt_sspndd_flag,'N') = 'Y' then -------------Bug 8846328
6353: hr_utility.set_location('fur rslt exist or sspndd rec', 11);
6354: ---Do nothing
6355: else
6356: hr_utility.set_location('fur rslt not exist', 11);
6357: l_rec_crntly_enrd_flag := 'N' ;
6358: end if;
6359: end if;
6360: if g_debug then
6357: l_rec_crntly_enrd_flag := 'N' ;
6358: end if;
6359: end if;
6360: if g_debug then
6361: hr_utility.set_location('l_rec_enrt_cvg_strt_dt RACD:'|| l_rec_enrt_cvg_strt_dt, 11);
6362: end if;
6363:
6364: end if ;
6365: ---2982606
6365: ---2982606
6366:
6367: ELSE
6368: if g_debug then
6369: hr_utility.set_location(' RACD:' || l_proc, 10);
6370: end if;
6371: ben_determine_date.rate_and_coverage_dates
6372: (p_cache_mode => TRUE
6373: ,p_per_in_ler_id => l_per_in_ler_id
6401: NVL(p_lf_evt_ocrd_dt, l_prtn_strt_dt),
6402: NVL(l_prtn_strt_dt, p_lf_evt_ocrd_dt))
6403: );
6404: if g_debug then
6405: hr_utility.set_location('Done RACD:' || l_proc, 10);
6406: end if;
6407: END IF;
6408: --
6409: -- Determine the erlst_deenrt_dt
6408: --
6409: -- Determine the erlst_deenrt_dt
6410: --
6411: if g_debug then
6412: hr_utility.set_location('AB', 20);
6413: end if;
6414: --
6415: IF p_run_mode <> 'D' THEN
6416: -- Find the required period of enrollment code/rule/uom/level defined at
6454: p_level => l_level,
6455: p_pen_rec => l_pen_rec);
6456: l_crnt_erlst_deenrt_dt := l_pen_rec.erlst_deenrt_dt;
6457: if g_debug then
6458: hr_utility.set_location('l_crnt_erlst_deenrt_dt' || l_crnt_erlst_deenrt_dt,8086.0);
6459: end if;
6460: END IF;
6461: --if elst_deenrt_dt is plan leven use original entrol date or
6462: -- option level use coverage date
6466: l_erlst_deenrt_calc_dt := nvl(l_orgnl_enrt_dt,l_rec_enrt_cvg_strt_dt );
6467: end if ;
6468: end if ;
6469: if g_debug then
6470: hr_utility.set_location('l_erlst_deenrt_calc_dt' || l_erlst_deenrt_calc_dt ,8086);
6471: hr_utility.set_location('l_rec_enrt_cvg_strt_dt' || l_rec_enrt_cvg_strt_dt ,8086);
6472: end if;
6473: --
6474: -- if the enrt_cvg_strt_dt cannot be determined or
6467: end if ;
6468: end if ;
6469: if g_debug then
6470: hr_utility.set_location('l_erlst_deenrt_calc_dt' || l_erlst_deenrt_calc_dt ,8086);
6471: hr_utility.set_location('l_rec_enrt_cvg_strt_dt' || l_rec_enrt_cvg_strt_dt ,8086);
6472: end if;
6473: --
6474: -- if the enrt_cvg_strt_dt cannot be determined or
6475: -- the current enrt erlst_deenrt_dt is not null then
6524: l_rec_erlst_deenrt_dt := NULL;
6525: --
6526: END IF;
6527: if g_debug then
6528: hr_utility.set_location('l_rec_erlst_deenrt_dt' || l_rec_erlst_deenrt_dt ,8086);
6529: end if;
6530: --
6531: END IF; --'D' Mode
6532: -- set the comp_lvl_cd
6580: open c_pgm_requery(p_pgm_id,l_rec_enrt_perd_strt_dt);
6581: fetch c_pgm_requery into l_dummy;
6582: if c_pgm_requery%notfound then
6583: if g_debug then
6584: hr_utility.set_location(
6585: 'Program not date effective on period start',
6586: 10);
6587: end if;
6588: fnd_message.set_name('BEN', 'BEN_92214_PGM_NOT_EFF_ON_STRT');
6609: open c_plip_requery(l_plip_id,l_rec_enrt_perd_strt_dt);
6610: fetch c_plip_requery into l_dummy;
6611: if c_plip_requery%notfound then
6612: if g_debug then
6613: hr_utility.set_location('Plip not date effective on period start', 10);
6614: end if;
6615: fnd_message.set_name('BEN', 'BEN_92208_PLIP_NOT_EFF_ON_STRT');
6616: fnd_message.set_token('PROC', l_proc);
6617: fnd_message.set_token(
6626: close c_plip_requery;
6627: END IF;
6628:
6629: if g_debug then
6630: hr_utility.set_location('NHK: l_lf_evt_ocrd_dt ' || l_lf_evt_ocrd_dt , 10);
6631: hr_utility.set_location('NHK: l_rec_enrt_perd_strt_dt ' || l_rec_enrt_perd_strt_dt , 20);
6632: hr_utility.set_location('NHK: l_ptip_esd ' || l_ptip_esd , 30);
6633: hr_utility.set_location('NHK: l_ptip_eed ' || l_ptip_eed , 40);
6634: hr_utility.set_location('NHK: p_electable_flag ' || p_electable_flag , 50);
6627: END IF;
6628:
6629: if g_debug then
6630: hr_utility.set_location('NHK: l_lf_evt_ocrd_dt ' || l_lf_evt_ocrd_dt , 10);
6631: hr_utility.set_location('NHK: l_rec_enrt_perd_strt_dt ' || l_rec_enrt_perd_strt_dt , 20);
6632: hr_utility.set_location('NHK: l_ptip_esd ' || l_ptip_esd , 30);
6633: hr_utility.set_location('NHK: l_ptip_eed ' || l_ptip_eed , 40);
6634: hr_utility.set_location('NHK: p_electable_flag ' || p_electable_flag , 50);
6635: --
6628:
6629: if g_debug then
6630: hr_utility.set_location('NHK: l_lf_evt_ocrd_dt ' || l_lf_evt_ocrd_dt , 10);
6631: hr_utility.set_location('NHK: l_rec_enrt_perd_strt_dt ' || l_rec_enrt_perd_strt_dt , 20);
6632: hr_utility.set_location('NHK: l_ptip_esd ' || l_ptip_esd , 30);
6633: hr_utility.set_location('NHK: l_ptip_eed ' || l_ptip_eed , 40);
6634: hr_utility.set_location('NHK: p_electable_flag ' || p_electable_flag , 50);
6635: --
6636: end if;
6629: if g_debug then
6630: hr_utility.set_location('NHK: l_lf_evt_ocrd_dt ' || l_lf_evt_ocrd_dt , 10);
6631: hr_utility.set_location('NHK: l_rec_enrt_perd_strt_dt ' || l_rec_enrt_perd_strt_dt , 20);
6632: hr_utility.set_location('NHK: l_ptip_esd ' || l_ptip_esd , 30);
6633: hr_utility.set_location('NHK: l_ptip_eed ' || l_ptip_eed , 40);
6634: hr_utility.set_location('NHK: p_electable_flag ' || p_electable_flag , 50);
6635: --
6636: end if;
6637: -- check ptip
6630: hr_utility.set_location('NHK: l_lf_evt_ocrd_dt ' || l_lf_evt_ocrd_dt , 10);
6631: hr_utility.set_location('NHK: l_rec_enrt_perd_strt_dt ' || l_rec_enrt_perd_strt_dt , 20);
6632: hr_utility.set_location('NHK: l_ptip_esd ' || l_ptip_esd , 30);
6633: hr_utility.set_location('NHK: l_ptip_eed ' || l_ptip_eed , 40);
6634: hr_utility.set_location('NHK: p_electable_flag ' || p_electable_flag , 50);
6635: --
6636: end if;
6637: -- check ptip
6638: --
6637: -- check ptip
6638: --
6639: IF (l_rec_enrt_perd_strt_dt NOT BETWEEN l_ptip_esd AND l_ptip_eed) THEN
6640: if g_debug then
6641: hr_utility.set_location('NHK: p_electable_flag ' || p_electable_flag , 60);
6642: end if;
6643: open c_ptip_requery(l_ptip_id,l_rec_enrt_perd_strt_dt);
6644: fetch c_ptip_requery into l_dummy;
6645: if c_ptip_requery%notfound then
6643: open c_ptip_requery(l_ptip_id,l_rec_enrt_perd_strt_dt);
6644: fetch c_ptip_requery into l_dummy;
6645: if c_ptip_requery%notfound then
6646: if g_debug then
6647: hr_utility.set_location('Ptip not date effective on period start', 10);
6648: end if;
6649: fnd_message.set_name('BEN', 'BEN_92213_PTIP_NOT_EFF_ON_STRT');
6650: fnd_message.set_token('PROC', l_proc);
6651: fnd_message.set_token(
6659: close c_ptip_requery;
6660: RETURN;
6661: -- End fix 2008871
6662: if g_debug then
6663: hr_utility.set_location('NHK: p_electable_flag ' || p_electable_flag , 70);
6664: end if;
6665: end if;
6666: close c_ptip_requery;
6667: if g_debug then
6664: end if;
6665: end if;
6666: close c_ptip_requery;
6667: if g_debug then
6668: hr_utility.set_location('NHK: p_electable_flag ' || p_electable_flag , 80);
6669: end if;
6670: -- Bug fix 2008871 -- hnarayan -- commented the return and included it above
6671: -- since it affects positive cases of electability
6672: -- when l_rec_enrt_perd_strt_dt is not between the
6688: open c_oipl_requery(p_oipl_id,l_rec_enrt_perd_strt_dt);
6689: fetch c_oipl_requery into l_dummy;
6690: if c_oipl_requery%notfound then
6691: if g_debug then
6692: hr_utility.set_location('Oipl not date effective on period start', 10);
6693: end if;
6694: fnd_message.set_name('BEN', 'BEN_92207_OIPL_NOT_EFF_ON_STRT');
6695: fnd_message.set_token('PROC', l_proc);
6696: fnd_message.set_token(
6717: open c_opt_requery(l_opt_id,l_rec_enrt_perd_strt_dt);
6718: fetch c_opt_requery into l_dummy;
6719: if c_opt_requery%notfound then
6720: if g_debug then
6721: hr_utility.set_location(
6722: 'Option not date effective on period start',
6723: 10);
6724: end if;
6725: fnd_message.set_name('BEN', 'BEN_92212_OPT_NOT_EFF_ON_STRT');
6749: open c_plan_requery(l_pl_id,l_rec_enrt_perd_strt_dt);
6750: fetch c_plan_requery into l_dummy;
6751: if c_plan_requery%notfound then
6752: if g_debug then
6753: hr_utility.set_location('Plan not date effective on period start', 10);
6754: hr_utility.set_location('perd_strt_dt=' || l_rec_enrt_perd_strt_dt, 1);
6755: hr_utility.set_location('strt_dt=' || l_plan_rec.effective_start_date, 1);
6756: hr_utility.set_location('end_dt=' || l_plan_rec.effective_end_date, 1);
6757: end if;
6750: fetch c_plan_requery into l_dummy;
6751: if c_plan_requery%notfound then
6752: if g_debug then
6753: hr_utility.set_location('Plan not date effective on period start', 10);
6754: hr_utility.set_location('perd_strt_dt=' || l_rec_enrt_perd_strt_dt, 1);
6755: hr_utility.set_location('strt_dt=' || l_plan_rec.effective_start_date, 1);
6756: hr_utility.set_location('end_dt=' || l_plan_rec.effective_end_date, 1);
6757: end if;
6758: fnd_message.set_name('BEN', 'BEN_92211_PLAN_NOT_EFF_ON_STRT');
6751: if c_plan_requery%notfound then
6752: if g_debug then
6753: hr_utility.set_location('Plan not date effective on period start', 10);
6754: hr_utility.set_location('perd_strt_dt=' || l_rec_enrt_perd_strt_dt, 1);
6755: hr_utility.set_location('strt_dt=' || l_plan_rec.effective_start_date, 1);
6756: hr_utility.set_location('end_dt=' || l_plan_rec.effective_end_date, 1);
6757: end if;
6758: fnd_message.set_name('BEN', 'BEN_92211_PLAN_NOT_EFF_ON_STRT');
6759: fnd_message.set_token('PROC', l_proc);
6752: if g_debug then
6753: hr_utility.set_location('Plan not date effective on period start', 10);
6754: hr_utility.set_location('perd_strt_dt=' || l_rec_enrt_perd_strt_dt, 1);
6755: hr_utility.set_location('strt_dt=' || l_plan_rec.effective_start_date, 1);
6756: hr_utility.set_location('end_dt=' || l_plan_rec.effective_end_date, 1);
6757: end if;
6758: fnd_message.set_name('BEN', 'BEN_92211_PLAN_NOT_EFF_ON_STRT');
6759: fnd_message.set_token('PROC', l_proc);
6760: fnd_message.set_token(
6778: OPEN c_pl_typ;
6779: FETCH c_pl_typ INTO l_pl_typ_esd, l_pl_typ_eed;
6780: CLOSE c_pl_typ;
6781: if g_debug then
6782: hr_utility.set_location('close c_pl_typ:' || l_proc, 10);
6783: end if;
6784: IF (l_rec_enrt_perd_strt_dt NOT BETWEEN l_pl_typ_esd AND l_pl_typ_eed) THEN
6785: open c_pl_typ_requery(l_pl_typ_id,l_rec_enrt_perd_strt_dt);
6786: fetch c_pl_typ_requery into l_dummy;
6785: open c_pl_typ_requery(l_pl_typ_id,l_rec_enrt_perd_strt_dt);
6786: fetch c_pl_typ_requery into l_dummy;
6787: if c_pl_typ_requery%notfound then
6788: if g_debug then
6789: hr_utility.set_location('Pl_typ not date effective on period start', 10);
6790: end if;
6791: fnd_message.set_name('BEN', 'BEN_92206_PL_TYP_NOT_EFF_ON_ST');
6792: fnd_message.set_token('PROC', l_proc);
6793: fnd_message.set_token(
6810: open c_lee_rsn_requery(l_rec_lee_rsn_id,l_rec_enrt_perd_strt_dt);
6811: fetch c_lee_rsn_requery into l_dummy;
6812: if c_lee_rsn_requery%notfound then
6813: if g_debug then
6814: hr_utility.set_location(
6815: 'Lee_rsn not date effective on period start',
6816: 10);
6817: end if;
6818: fnd_message.set_name('BEN', 'BEN_92210_LEE_RSN_NOT_EFF_ON_S');
6835: open c_ler_requery(p_ler_id,l_rec_enrt_perd_strt_dt);
6836: fetch c_ler_requery into l_dummy;
6837: if c_ler_requery%notfound then
6838: if g_debug then
6839: hr_utility.set_location('Ler not date effective on period start', 10);
6840: end if;
6841: fnd_message.set_name('BEN', 'BEN_92209_LER_NOT_EFF_ON_STRT');
6842: fnd_message.set_token('PROC', l_proc);
6843: fnd_message.set_token(
6907: -- Validate cls_enrt_dt_to_use_cd is defined
6908: --
6909: IF l_rec_cls_enrt_dt_to_use_cd IS NULL THEN
6910: --
6911: -- hr_utility.set_location('Invalid cls_enrt_dt_cd', 10);
6912: --
6913: fnd_message.set_name('BEN', 'BEN_91905_INVLD_CLS_ENRT_DT_CD');
6914: fnd_message.set_token('PROC', l_proc);
6915: fnd_message.set_token(
6920: END IF;
6921: --
6922: -- We need to determine if an electable choice has been written or not
6923: --
6924: -- hr_utility.set_location('AG', 20);
6925: IF p_ler_id IS NOT NULL THEN
6926: --
6927: g_any_choice_created := TRUE;
6928: IF l_rec_elctbl_flag = 'Y' THEN
6966: else
6967: l_elig_flag := 'N';
6968: end if;
6969: --
6970: -- hr_utility.set_location('Calling Create Api', 10);
6971: -- hr_utility.set_location('p_enrt_perd_id ' || l_rec_enrt_perd_id, 10);
6972: -- hr_utility.set_location('p_lee_rsn_id ' || l_rec_lee_rsn_id, 10);
6973: -- hr_utility.set_location('l_per_in_ler_id ' || l_per_in_ler_id, 10);
6974: -- hr_utility.set_location('l_prtt_enrt_rslt_id ' || l_prtt_enrt_rslt_id, 10);
6967: l_elig_flag := 'N';
6968: end if;
6969: --
6970: -- hr_utility.set_location('Calling Create Api', 10);
6971: -- hr_utility.set_location('p_enrt_perd_id ' || l_rec_enrt_perd_id, 10);
6972: -- hr_utility.set_location('p_lee_rsn_id ' || l_rec_lee_rsn_id, 10);
6973: -- hr_utility.set_location('l_per_in_ler_id ' || l_per_in_ler_id, 10);
6974: -- hr_utility.set_location('l_prtt_enrt_rslt_id ' || l_prtt_enrt_rslt_id, 10);
6975: --
6968: end if;
6969: --
6970: -- hr_utility.set_location('Calling Create Api', 10);
6971: -- hr_utility.set_location('p_enrt_perd_id ' || l_rec_enrt_perd_id, 10);
6972: -- hr_utility.set_location('p_lee_rsn_id ' || l_rec_lee_rsn_id, 10);
6973: -- hr_utility.set_location('l_per_in_ler_id ' || l_per_in_ler_id, 10);
6974: -- hr_utility.set_location('l_prtt_enrt_rslt_id ' || l_prtt_enrt_rslt_id, 10);
6975: --
6976: /* if p_run_mode = 'W'
6969: --
6970: -- hr_utility.set_location('Calling Create Api', 10);
6971: -- hr_utility.set_location('p_enrt_perd_id ' || l_rec_enrt_perd_id, 10);
6972: -- hr_utility.set_location('p_lee_rsn_id ' || l_rec_lee_rsn_id, 10);
6973: -- hr_utility.set_location('l_per_in_ler_id ' || l_per_in_ler_id, 10);
6974: -- hr_utility.set_location('l_prtt_enrt_rslt_id ' || l_prtt_enrt_rslt_id, 10);
6975: --
6976: /* if p_run_mode = 'W'
6977: then Bug 3502094 : For FP-F this flag do not have any significance.
6970: -- hr_utility.set_location('Calling Create Api', 10);
6971: -- hr_utility.set_location('p_enrt_perd_id ' || l_rec_enrt_perd_id, 10);
6972: -- hr_utility.set_location('p_lee_rsn_id ' || l_rec_lee_rsn_id, 10);
6973: -- hr_utility.set_location('l_per_in_ler_id ' || l_per_in_ler_id, 10);
6974: -- hr_utility.set_location('l_prtt_enrt_rslt_id ' || l_prtt_enrt_rslt_id, 10);
6975: --
6976: /* if p_run_mode = 'W'
6977: then Bug 3502094 : For FP-F this flag do not have any significance.
6978: For july FP : final functionality will be decided.
6980: ( (p_oipl_id is null and
6981: nvl(l_pl_trk_inelig_per_flag,'N') = 'N') or
6982: (p_oipl_id is not null and
6983: nvl(l_oipl_trk_inelig_per_flag,'N') = 'N') ) then
6984: hr_utility.set_location('By passing creation of epe for CWB'||l_proc,10);
6985: else
6986: */
6987: if ben_manage_life_events.fonm = 'Y' then
6988: if g_debug then
6985: else
6986: */
6987: if ben_manage_life_events.fonm = 'Y' then
6988: if g_debug then
6989: hr_utility.set_location('fonm cvr strt dt',100);
6990: end if;
6991: l_fonm_cvg_strt_dt := ben_manage_life_events.g_fonm_cvg_strt_dt;
6992: end if;
6993: if g_debug then
6990: end if;
6991: l_fonm_cvg_strt_dt := ben_manage_life_events.g_fonm_cvg_strt_dt;
6992: end if;
6993: if g_debug then
6994: hr_utility.set_location('EPEC_CRE: ' || l_proc, 10);
6995: end if;
6996: /* unrestricted Enh*/
6997: if p_run_mode in ('U','R') then
6998: if g_debug then
6995: end if;
6996: /* unrestricted Enh*/
6997: if p_run_mode in ('U','R') then
6998: if g_debug then
6999: hr_utility.set_location('before epe exists',11);
7000: end if;
7001: --
7002: l_epe_exists := ben_manage_unres_life_events.epe_exists
7003: (p_per_in_ler_id => l_per_in_ler_id,
7119: p_fonm_cvg_strt_dt => l_fonm_cvg_strt_dt,
7120: p_inelig_rsn_cd => l_inelg_rsn_cd); -- 2650247
7121:
7122: if g_debug then
7123: hr_utility.set_location('Done EPEC_CRE: ' || l_proc, 10);
7124: end if;
7125: end if;
7126: --
7127: -- As part GLOBALCWB populating data into heirachy table
7177: g_rec.effective_date := p_effective_date;
7178: --
7179: benutils.write(p_rec => g_rec);
7180: if g_debug then
7181: hr_utility.set_location('FND mess: ' || l_proc, 10);
7182: end if;
7183: --
7184: fnd_message.set_name('BEN', 'BEN_91736_EPE_CHC_CREATED');
7185: fnd_message.set_token('PERSON_ID', p_person_id);
7188: fnd_message.set_token('PLAN_NAME', l_pl_name);
7189: fnd_message.set_token('OIPL_NAME', l_oipl_name);
7190: --
7191: if g_debug then
7192: hr_utility.set_location('Dn FND mess: ' || l_proc, 10);
7193: end if;
7194: benutils.write(p_text => SUBSTR(fnd_message.get, 1, 128));
7195: --
7196: -- if choice is created for an oipl create one for plan it belongs to
7196: -- if choice is created for an oipl create one for plan it belongs to
7197: -- first find out if it already exists.
7198: --
7199: if g_debug then
7200: hr_utility.set_location('(p_oipl_id NN): ' || l_proc, 10);
7201: end if;
7202: IF (p_oipl_id IS NOT NULL) THEN
7203: --
7204: OPEN c_choice_exists_for_plan(l_pl_id);
7225: --
7226: END IF;
7227: --
7228: if g_debug then
7229: hr_utility.set_location('CREL=Y ' || l_proc, 10);
7230: end if;
7231: -- IF ( c_choice_exists_for_plan%NOTFOUND or p_run_mode not in ('U','R')) /* Bug 4023880 : Commented */
7232: IF ( c_choice_exists_for_plan%NOTFOUND or l_plan_rec.svgs_pl_flag = 'Y') -- Bug 4717052 added or
7233: AND l_current_eligibility = 'Y' THEN
7259: --
7260: l_epe_exists := null;
7261: if p_run_mode in ('U','R') then
7262: if g_debug then
7263: hr_utility.set_location('before epe exists',11);
7264: end if;
7265: --
7266: l_epe_exists := ben_manage_unres_life_events.epe_exists
7267: (p_per_in_ler_id => l_per_in_ler_id,
7385: p_cryfwd_elig_dpnt_cd => l_reinstt_cd,
7386: p_fonm_cvg_strt_dt => l_fonm_cvg_strt_dt,
7387: p_inelig_rsn_cd => l_inelg_rsn_cd); -- 2650247
7388: if g_debug then
7389: hr_utility.set_location('Done EPEC_CRE1: ' || l_proc, 10);
7390: end if;
7391: --
7392: end if;
7393: --
7409: --
7410: benutils.write(p_rec => g_rec);
7411: --
7412: if g_debug then
7413: hr_utility.set_location('FND Mess: ' || l_proc, 10);
7414: end if;
7415: fnd_message.set_name('BEN', 'BEN_91736_EPE_CHC_CREATED');
7416: fnd_message.set_token('PERSON_ID', p_person_id);
7417: fnd_message.set_token('LER_NAME', l_ler_name);
7418: fnd_message.set_token('COMP_LVL_CD', l_comp_lvl_cd);
7419: fnd_message.set_token('PLAN_NAME', l_pl_name);
7420: fnd_message.set_token('OIPL_NAME', ' ');
7421: if g_debug then
7422: hr_utility.set_location('Dn FND Mess: ' || l_proc, 10);
7423: end if;
7424: benutils.write(p_text => SUBSTR(fnd_message.get, 1, 128));
7425: if g_debug then
7426: hr_utility.set_location('Dn FND GetMess: ' || l_proc, 10);
7422: hr_utility.set_location('Dn FND Mess: ' || l_proc, 10);
7423: end if;
7424: benutils.write(p_text => SUBSTR(fnd_message.get, 1, 128));
7425: if g_debug then
7426: hr_utility.set_location('Dn FND GetMess: ' || l_proc, 10);
7427: end if;
7428: --
7429: END IF; -- found
7430: --
7429: END IF; -- found
7430: --
7431: CLOSE c_choice_exists_for_plan;
7432: if g_debug then
7433: hr_utility.set_location('close CEFP: ' || l_proc, 10);
7434: end if;
7435: --
7436: END IF;
7437: --
7439: -- Set return value
7440: p_electable_flag := l_rec_elctbl_flag;
7441: --
7442: if g_debug then
7443: hr_utility.set_location(' Leaving:' || l_proc, 70);
7444: end if;
7445: --
7446: exception -- nocopy changes
7447: --
7519: l_prev_prtt_enrt_rslt_id VARCHAR2(30);
7520: --
7521: BEGIN
7522: --
7523: g_debug := hr_utility.debug_enabled;
7524: if g_debug then
7525: hr_utility.set_location('Entering ' || l_package, 10);
7526: end if;
7527: --
7521: BEGIN
7522: --
7523: g_debug := hr_utility.debug_enabled;
7524: if g_debug then
7525: hr_utility.set_location('Entering ' || l_package, 10);
7526: end if;
7527: --
7528: IF p_rule_id IS NULL THEN
7529: --
7532: --
7533: END IF;
7534: --
7535: if g_debug then
7536: hr_utility.set_location(
7537: 'Organization_id ' || TO_CHAR(p_organization_id),
7538: 10);
7539: hr_utility.set_location('assignment_id ' || TO_CHAR(p_assignment_id), 15);
7540: hr_utility.set_location(
7535: if g_debug then
7536: hr_utility.set_location(
7537: 'Organization_id ' || TO_CHAR(p_organization_id),
7538: 10);
7539: hr_utility.set_location('assignment_id ' || TO_CHAR(p_assignment_id), 15);
7540: hr_utility.set_location(
7541: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7542: 20);
7543: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7536: hr_utility.set_location(
7537: 'Organization_id ' || TO_CHAR(p_organization_id),
7538: 10);
7539: hr_utility.set_location('assignment_id ' || TO_CHAR(p_assignment_id), 15);
7540: hr_utility.set_location(
7541: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7542: 20);
7543: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7544: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7539: hr_utility.set_location('assignment_id ' || TO_CHAR(p_assignment_id), 15);
7540: hr_utility.set_location(
7541: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7542: 20);
7543: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7544: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7545: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7546: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7547: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7540: hr_utility.set_location(
7541: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7542: 20);
7543: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7544: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7545: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7546: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7547: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7548: end if;
7541: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7542: 20);
7543: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7544: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7545: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7546: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7547: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7548: end if;
7549: --
7542: 20);
7543: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7544: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7545: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7546: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7547: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7548: end if;
7549: --
7550: -- Task 131 :If elig dependent rows are already crteated then
7543: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7544: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7545: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7546: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7547: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7548: end if;
7549: --
7550: -- Task 131 :If elig dependent rows are already crteated then
7551: -- pass the elig dependent id as input values to
7671: --
7672: END IF;
7673: --
7674: if g_debug then
7675: hr_utility.set_location(' Fire Rule ' || l_package, 10);
7676: end if;
7677: l_outputs :=
7678: benutils.formula(
7679: p_opt_id => p_opt_id,
7732: p_param21_value => TO_CHAR(l_num_elig_dpnt),
7733: p_param22 => 'BEN_IV_PERSON_ID', -- Bug 5331889 : Added person_id param as well
7734: p_param22_value => to_char(p_person_id));
7735: if g_debug then
7736: hr_utility.set_location(' Dn Fire Rule ' || l_package, 10);
7737: end if;
7738: --
7739: for l_count in l_outputs.first..l_outputs.last loop
7740: begin
7745: p_reinstt_dpnt := l_outputs(l_count).VALUE;
7746: elsif l_outputs(l_count).name = 'AUTO_DFLT_ELCN_VAL' then
7747: g_dflt_elcn_val := l_outputs(l_count).VALUE;
7748: if g_debug then
7749: hr_utility.set_location ('formula default='||g_dflt_elcn_val,744);
7750: hr_utility.set_location ('formula default='||p_opt_id,744);
7751: end if;
7752: elsif l_outputs(l_count).name = 'PREV_PRTT_ENRT_RSLT_ID' then
7753: l_prev_prtt_enrt_rslt_id := l_outputs(l_count).VALUE ;
7746: elsif l_outputs(l_count).name = 'AUTO_DFLT_ELCN_VAL' then
7747: g_dflt_elcn_val := l_outputs(l_count).VALUE;
7748: if g_debug then
7749: hr_utility.set_location ('formula default='||g_dflt_elcn_val,744);
7750: hr_utility.set_location ('formula default='||p_opt_id,744);
7751: end if;
7752: elsif l_outputs(l_count).name = 'PREV_PRTT_ENRT_RSLT_ID' then
7753: l_prev_prtt_enrt_rslt_id := l_outputs(l_count).VALUE ;
7754: if g_debug then
7751: end if;
7752: elsif l_outputs(l_count).name = 'PREV_PRTT_ENRT_RSLT_ID' then
7753: l_prev_prtt_enrt_rslt_id := l_outputs(l_count).VALUE ;
7754: if g_debug then
7755: hr_utility.set_location ('formula PREV_PRTT_ENRT_RSLT_ID ='||l_prev_prtt_enrt_rslt_id,744);
7756: end if;
7757:
7758: end if;
7759: end;
7764: end if ;
7765:
7766: --
7767: if g_debug then
7768: hr_utility.set_location(' Leaving ' || l_package, 10);
7769: end if;
7770:
7771: exception -- nocopy changes
7772: --
7842: --
7843: BEGIN
7844: --
7845: if g_debug then
7846: hr_utility.set_location('Entering ' || l_package, 10);
7847: end if;
7848: --
7849: IF p_rule_id IS NULL THEN
7850: --
7852: --
7853: END IF;
7854: --
7855: if g_debug then
7856: hr_utility.set_location(
7857: 'Organization_id ' || TO_CHAR(p_organization_id),
7858: 10);
7859: hr_utility.set_location('assignment_id ' || TO_CHAR(p_assignment_id), 15);
7860: hr_utility.set_location(
7855: if g_debug then
7856: hr_utility.set_location(
7857: 'Organization_id ' || TO_CHAR(p_organization_id),
7858: 10);
7859: hr_utility.set_location('assignment_id ' || TO_CHAR(p_assignment_id), 15);
7860: hr_utility.set_location(
7861: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7862: 20);
7863: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7856: hr_utility.set_location(
7857: 'Organization_id ' || TO_CHAR(p_organization_id),
7858: 10);
7859: hr_utility.set_location('assignment_id ' || TO_CHAR(p_assignment_id), 15);
7860: hr_utility.set_location(
7861: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7862: 20);
7863: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7864: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7859: hr_utility.set_location('assignment_id ' || TO_CHAR(p_assignment_id), 15);
7860: hr_utility.set_location(
7861: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7862: 20);
7863: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7864: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7865: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7866: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7867: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7860: hr_utility.set_location(
7861: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7862: 20);
7863: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7864: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7865: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7866: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7867: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7868: end if;
7861: 'Business_group_id ' || TO_CHAR(p_business_group_id),
7862: 20);
7863: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7864: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7865: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7866: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7867: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7868: end if;
7869: --
7862: 20);
7863: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7864: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7865: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7866: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7867: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7868: end if;
7869: --
7870: -- Task 131 :If elig dependent rows are already crteated then
7863: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
7864: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
7865: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
7866: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
7867: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
7868: end if;
7869: --
7870: -- Task 131 :If elig dependent rows are already crteated then
7871: -- pass the elig dependent id as input values to
8192: l_proc VARCHAR2(80) := g_package ||
8193: '.determine_dflt_flag';
8194: --
8195: BEGIN
8196: g_debug := hr_utility.debug_enabled;
8197: if g_debug then
8198: hr_utility.set_location('Entering: ' || l_proc, 10);
8199: hr_utility.set_location('p_dflt_flag' || p_dflt_flag, 121.121);
8200: hr_utility.set_location('p_dflt_enrt_cd' || p_dflt_enrt_cd, 121.121);
8194: --
8195: BEGIN
8196: g_debug := hr_utility.debug_enabled;
8197: if g_debug then
8198: hr_utility.set_location('Entering: ' || l_proc, 10);
8199: hr_utility.set_location('p_dflt_flag' || p_dflt_flag, 121.121);
8200: hr_utility.set_location('p_dflt_enrt_cd' || p_dflt_enrt_cd, 121.121);
8201: hr_utility.set_location('p_oipl_id' || p_oipl_id, 121.121);
8202: hr_utility.set_location('p_pl_id' || p_pl_id, 121.121);
8195: BEGIN
8196: g_debug := hr_utility.debug_enabled;
8197: if g_debug then
8198: hr_utility.set_location('Entering: ' || l_proc, 10);
8199: hr_utility.set_location('p_dflt_flag' || p_dflt_flag, 121.121);
8200: hr_utility.set_location('p_dflt_enrt_cd' || p_dflt_enrt_cd, 121.121);
8201: hr_utility.set_location('p_oipl_id' || p_oipl_id, 121.121);
8202: hr_utility.set_location('p_pl_id' || p_pl_id, 121.121);
8203: hr_utility.set_location('p_ptip_id' || p_ptip_id, 121.121);
8196: g_debug := hr_utility.debug_enabled;
8197: if g_debug then
8198: hr_utility.set_location('Entering: ' || l_proc, 10);
8199: hr_utility.set_location('p_dflt_flag' || p_dflt_flag, 121.121);
8200: hr_utility.set_location('p_dflt_enrt_cd' || p_dflt_enrt_cd, 121.121);
8201: hr_utility.set_location('p_oipl_id' || p_oipl_id, 121.121);
8202: hr_utility.set_location('p_pl_id' || p_pl_id, 121.121);
8203: hr_utility.set_location('p_ptip_id' || p_ptip_id, 121.121);
8204: hr_utility.set_location('p_default_level' || p_default_level, 121.121);
8197: if g_debug then
8198: hr_utility.set_location('Entering: ' || l_proc, 10);
8199: hr_utility.set_location('p_dflt_flag' || p_dflt_flag, 121.121);
8200: hr_utility.set_location('p_dflt_enrt_cd' || p_dflt_enrt_cd, 121.121);
8201: hr_utility.set_location('p_oipl_id' || p_oipl_id, 121.121);
8202: hr_utility.set_location('p_pl_id' || p_pl_id, 121.121);
8203: hr_utility.set_location('p_ptip_id' || p_ptip_id, 121.121);
8204: hr_utility.set_location('p_default_level' || p_default_level, 121.121);
8205: end if;
8198: hr_utility.set_location('Entering: ' || l_proc, 10);
8199: hr_utility.set_location('p_dflt_flag' || p_dflt_flag, 121.121);
8200: hr_utility.set_location('p_dflt_enrt_cd' || p_dflt_enrt_cd, 121.121);
8201: hr_utility.set_location('p_oipl_id' || p_oipl_id, 121.121);
8202: hr_utility.set_location('p_pl_id' || p_pl_id, 121.121);
8203: hr_utility.set_location('p_ptip_id' || p_ptip_id, 121.121);
8204: hr_utility.set_location('p_default_level' || p_default_level, 121.121);
8205: end if;
8206:
8199: hr_utility.set_location('p_dflt_flag' || p_dflt_flag, 121.121);
8200: hr_utility.set_location('p_dflt_enrt_cd' || p_dflt_enrt_cd, 121.121);
8201: hr_utility.set_location('p_oipl_id' || p_oipl_id, 121.121);
8202: hr_utility.set_location('p_pl_id' || p_pl_id, 121.121);
8203: hr_utility.set_location('p_ptip_id' || p_ptip_id, 121.121);
8204: hr_utility.set_location('p_default_level' || p_default_level, 121.121);
8205: end if;
8206:
8207: -- If the dflt_enrt_cd and enrollment status combination in the following
8200: hr_utility.set_location('p_dflt_enrt_cd' || p_dflt_enrt_cd, 121.121);
8201: hr_utility.set_location('p_oipl_id' || p_oipl_id, 121.121);
8202: hr_utility.set_location('p_pl_id' || p_pl_id, 121.121);
8203: hr_utility.set_location('p_ptip_id' || p_ptip_id, 121.121);
8204: hr_utility.set_location('p_default_level' || p_default_level, 121.121);
8205: end if;
8206:
8207: -- If the dflt_enrt_cd and enrollment status combination in the following
8208: -- matrix is YES set the dflt_flag to Y, if it is NO set it to N,
8296: -- Note: for plans not in program don't have next level so
8297: -- not enrolled means not enrolled, set next level='N'
8298: --
8299: if g_debug then
8300: hr_utility.set_location(l_proc, 50);
8301: end if;
8302: /*
8303: IF p_dflt_enrt_cd IN ('RL', 'NSDCSD', 'NNCS', 'NNCSEDR', 'NNCN') THEN
8304: l_next_level_enrt_flag := 'Y';
8321: l_next_level_enrt_flag := 'Y';
8322: ELSE
8323: if p_oipl_id IS NOT NULL THEN
8324: if g_debug then
8325: hr_utility.set_location('p_oipl_id IS NOT NULL THEN',121.121);
8326: end if;
8327: OPEN c_plan_enrolment_info;
8328: FETCH c_plan_enrolment_info INTO l_next_level_enrt_flag;
8329: CLOSE c_plan_enrolment_info;
8327: OPEN c_plan_enrolment_info;
8328: FETCH c_plan_enrolment_info INTO l_next_level_enrt_flag;
8329: CLOSE c_plan_enrolment_info;
8330: if g_debug then
8331: hr_utility.set_location('l_next_level_enrt_flag '||nvl(l_next_level_enrt_flag,'-')|| ' ' ,121.121);
8332: end if;
8333: end if;
8334: if l_next_level_enrt_flag <>'Y' then
8335: if g_debug then
8332: end if;
8333: end if;
8334: if l_next_level_enrt_flag <>'Y' then
8335: if g_debug then
8336: hr_utility.set_location('l_next_level_enrt_flag <>Y ',121.121);
8337: end if;
8338: if p_ptip_id IS NOT NULL THEN
8339: if g_debug then
8340: hr_utility.set_location('p_ptip_id IS NOT NULL ',121.121);
8336: hr_utility.set_location('l_next_level_enrt_flag <>Y ',121.121);
8337: end if;
8338: if p_ptip_id IS NOT NULL THEN
8339: if g_debug then
8340: hr_utility.set_location('p_ptip_id IS NOT NULL ',121.121);
8341: hr_utility.set_location('Checking p_default level ' || p_default_level,121.121);
8342: end if;
8343: ---Reverting back the fix 5644451 for the bug 7452061
8344: /* IF p_default_level IN('PTIP','LER_PTIP')
8337: end if;
8338: if p_ptip_id IS NOT NULL THEN
8339: if g_debug then
8340: hr_utility.set_location('p_ptip_id IS NOT NULL ',121.121);
8341: hr_utility.set_location('Checking p_default level ' || p_default_level,121.121);
8342: end if;
8343: ---Reverting back the fix 5644451 for the bug 7452061
8344: /* IF p_default_level IN('PTIP','LER_PTIP')
8345: THEN*/
8359: --
8360: -- Enrolled in plan/ptip and not oipl/plan
8361: --
8362: if g_debug then
8363: hr_utility.set_location('l_next_level_enrt_flag = Y 2 ',121.121);
8364: end if;
8365: IF p_dflt_enrt_cd IN (
8366: 'NSDCS',
8367: 'NDCSEDR',
8390: --
8391: IF p_dflt_enrt_cd = 'RL' THEN
8392: --
8393: if g_debug then
8394: hr_utility.set_location(' EER ' || l_proc, 190);
8395: end if;
8396: execute_auto_dflt_enrt_rule(
8397: p_opt_id => p_opt_id,
8398: p_pl_id => p_pl_id,
8411: p_reinstt_dpnt => l_reinstt_flag,
8412: p_elig_per_id => p_elig_per_id -- Bug 14768372
8413: );
8414: if g_debug then
8415: hr_utility.set_location(' Dn EER ' || l_proc, 190);
8416: end if;
8417: --
8418: l_defer_flag := 'N';
8419: ELSIF ( p_dflt_enrt_cd IS NULL
8426: l_defer_flag := 'N';
8427: --
8428: END IF;
8429: if g_debug then
8430: hr_utility.set_location(l_proc, 200);
8431: end if;
8432: --
8433: IF l_defer_flag = 'Y' THEN
8434: --
8435: l_dflt_flag := 'DEFER';
8436: --
8437: END IF;
8438: if g_debug then
8439: hr_utility.set_location('Leaving: ' || l_proc, 235);
8440: end if;
8441: --
8442: p_deflt_flag := l_dflt_flag;
8443: p_reinstt_flag := l_reinstt_flag;
8497: --
8498: BEGIN
8499: IF p_rqd_perd_enrt_nenrt_rl IS NOT NULL THEN
8500: if g_debug then
8501: hr_utility.set_location(
8502: 'Organization_id ' || TO_CHAR(p_organization_id),
8503: 10);
8504: hr_utility.set_location(
8505: 'assignment_id ' || TO_CHAR(p_assignment_id),
8500: if g_debug then
8501: hr_utility.set_location(
8502: 'Organization_id ' || TO_CHAR(p_organization_id),
8503: 10);
8504: hr_utility.set_location(
8505: 'assignment_id ' || TO_CHAR(p_assignment_id),
8506: 15);
8507: hr_utility.set_location(
8508: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8503: 10);
8504: hr_utility.set_location(
8505: 'assignment_id ' || TO_CHAR(p_assignment_id),
8506: 15);
8507: hr_utility.set_location(
8508: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8509: 20);
8510: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8511: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8506: 15);
8507: hr_utility.set_location(
8508: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8509: 20);
8510: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8511: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8512: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8513: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8514: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8507: hr_utility.set_location(
8508: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8509: 20);
8510: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8511: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8512: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8513: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8514: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8515: end if;
8508: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8509: 20);
8510: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8511: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8512: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8513: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8514: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8515: end if;
8516: l_outputs :=
8509: 20);
8510: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8511: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8512: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8513: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8514: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8515: end if;
8516: l_outputs :=
8517: benutils.formula(
8510: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8511: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8512: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8513: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8514: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8515: end if;
8516: l_outputs :=
8517: benutils.formula(
8518: p_formula_id => p_rqd_perd_enrt_nenrt_rl,
8667: ELSE
8668: IF l_dpnt_cvg_cd = 'RL' THEN
8669: -- Evaluate the rule
8670: if g_debug then
8671: hr_utility.set_location(
8672: 'Organization_id ' || TO_CHAR(p_organization_id),
8673: 10);
8674: hr_utility.set_location(
8675: 'assignment_id ' || TO_CHAR(p_assignment_id),
8670: if g_debug then
8671: hr_utility.set_location(
8672: 'Organization_id ' || TO_CHAR(p_organization_id),
8673: 10);
8674: hr_utility.set_location(
8675: 'assignment_id ' || TO_CHAR(p_assignment_id),
8676: 15);
8677: hr_utility.set_location(
8678: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8673: 10);
8674: hr_utility.set_location(
8675: 'assignment_id ' || TO_CHAR(p_assignment_id),
8676: 15);
8677: hr_utility.set_location(
8678: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8679: 20);
8680: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8681: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8676: 15);
8677: hr_utility.set_location(
8678: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8679: 20);
8680: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8681: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8682: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8683: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8684: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8677: hr_utility.set_location(
8678: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8679: 20);
8680: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8681: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8682: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8683: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8684: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8685: end if;
8678: 'Business_group_id ' || TO_CHAR(p_business_group_id),
8679: 20);
8680: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8681: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8682: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8683: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8684: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8685: end if;
8686: l_outputs :=
8679: 20);
8680: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8681: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8682: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8683: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8684: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8685: end if;
8686: l_outputs :=
8687: benutils.formula(
8680: hr_utility.set_location('pgm_id ' || TO_CHAR(p_pgm_id), 30);
8681: hr_utility.set_location('pl_id ' || TO_CHAR(p_pl_id), 40);
8682: hr_utility.set_location('pl_typ_id ' || TO_CHAR(p_pl_typ_id), 50);
8683: hr_utility.set_location('opt_id ' || TO_CHAR(p_opt_id), 60);
8684: hr_utility.set_location('ler_id ' || TO_CHAR(p_ler_id), 70);
8685: end if;
8686: l_outputs :=
8687: benutils.formula(
8688: p_formula_id => l_dpnt_cvg_rl,
8808: l_plan_rec ben_pl_f%ROWTYPE;
8809: l_oipl_rec ben_cobj_cache.g_oipl_inst_row;
8810: l_pl_rec ben_cobj_cache.g_pl_inst_row;
8811: BEGIN
8812: g_debug := hr_utility.debug_enabled;
8813: if g_debug then
8814: hr_utility.set_location('Entering: ' || l_proc, 10);
8815: end if;
8816: --
8810: l_pl_rec ben_cobj_cache.g_pl_inst_row;
8811: BEGIN
8812: g_debug := hr_utility.debug_enabled;
8813: if g_debug then
8814: hr_utility.set_location('Entering: ' || l_proc, 10);
8815: end if;
8816: --
8817: l_dflt_enrt_cd := NULL;
8818: --
8838: OPEN c_ler_oipl_dflt_cd;
8839: FETCH c_ler_oipl_dflt_cd INTO l_dflt_enrt_cd, l_dflt_enrt_rl;
8840: CLOSE c_ler_oipl_dflt_cd;
8841: --
8842: -- hr_utility.set_location(l_dflt_enrt_cd,20);
8843: IF l_dflt_enrt_cd IS NULL THEN
8844: --
8845: -- 2
8846: -- Bug 5569758
8855: l_dflt_enrt_rl := l_oipl_rec.dflt_enrt_det_rl;
8856: --
8857: END IF;
8858: END IF;
8859: -- hr_utility.set_location(l_dflt_enrt_cd,30);
8860: IF p_pgm_id IS NULL
8861: AND l_dflt_enrt_cd IS NULL THEN
8862: --
8863: -- 3
8864: --
8865: OPEN c_ler_pl_nip_dflt_cd;
8866: FETCH c_ler_pl_nip_dflt_cd INTO l_dflt_enrt_cd, l_dflt_enrt_rl;
8867: CLOSE c_ler_pl_nip_dflt_cd;
8868: -- hr_utility.set_location(l_dflt_enrt_cd,40);
8869: ELSIF p_pgm_id IS NOT NULL
8870: AND l_dflt_enrt_cd IS NULL THEN
8871: --
8872: -- 4
8873: --
8874: OPEN c_ler_plip_dflt_cd;
8875: FETCH c_ler_plip_dflt_cd INTO l_dflt_enrt_cd, l_dflt_enrt_rl;
8876: CLOSE c_ler_plip_dflt_cd;
8877: -- hr_utility.set_location(l_dflt_enrt_cd,50);
8878: -- Bug 5555402
8879: IF l_dflt_enrt_cd IS NULL THEN
8880: --
8881: -- 4.5
8890: --
8891: OPEN c_ler_ptip_dflt_cd;
8892: FETCH c_ler_ptip_dflt_cd INTO l_dflt_enrt_cd, l_dflt_enrt_rl;
8893: CLOSE c_ler_ptip_dflt_cd;
8894: -- hr_utility.set_location(l_dflt_enrt_cd,60);
8895: IF l_dflt_enrt_cd IS NULL THEN
8896: --
8897: -- 6
8898: --
8904: --
8905: END IF;
8906: --
8907: END IF;
8908: -- hr_utility.set_location(l_dflt_enrt_cd,80);
8909: IF p_pgm_id IS NULL
8910: AND l_dflt_enrt_cd IS NULL THEN
8911: --
8912: -- 7
8919: --
8920: l_dflt_enrt_cd := l_pl_rec.nip_dflt_enrt_cd;
8921: l_dflt_enrt_rl := l_pl_rec.nip_dflt_enrt_det_rl;
8922: --
8923: -- hr_utility.set_location(l_dflt_enrt_cd,90);
8924: ELSIF p_pgm_id IS NOT NULL
8925: AND l_dflt_enrt_cd IS NULL THEN
8926: --
8927: -- 8
8928: --
8929: OPEN c_plip_dflt_cd;
8930: FETCH c_plip_dflt_cd INTO l_dflt_enrt_cd, l_dflt_enrt_rl;
8931: CLOSE c_plip_dflt_cd;
8932: -- hr_utility.set_location(l_dflt_enrt_cd,100);
8933: --
8934: IF l_dflt_enrt_cd IS NULL THEN
8935: --
8936: -- 9
8937: --
8938: OPEN c_ptip_dflt_cd;
8939: FETCH c_ptip_dflt_cd INTO l_dflt_enrt_cd, l_dflt_enrt_rl;
8940: CLOSE c_ptip_dflt_cd;
8941: -- hr_utility.set_location(l_dflt_enrt_cd,110);
8942: --
8943: END IF;
8944: END IF;
8945: --
8946: p_dflt_enrt_cd := l_dflt_enrt_cd;
8947: p_dflt_enrt_rl := l_dflt_enrt_rl;
8948: --
8949: if g_debug then
8950: hr_utility.set_location(l_dflt_enrt_cd,145);
8951: hr_utility.set_location('Leaving: ' || l_proc, 150);
8952: end if;
8953: --
8954: exception
8947: p_dflt_enrt_rl := l_dflt_enrt_rl;
8948: --
8949: if g_debug then
8950: hr_utility.set_location(l_dflt_enrt_cd,145);
8951: hr_utility.set_location('Leaving: ' || l_proc, 150);
8952: end if;
8953: --
8954: exception
8955: --
9074: l_plan_rec ben_pl_f%ROWTYPE;
9075: l_oipl_rec ben_cobj_cache.g_oipl_inst_row;
9076: l_ler_dflt_flag varchar2(30); -- 3510229
9077: BEGIN
9078: hr_utility.set_location('Entering: ' || l_proc, 10);
9079: --
9080: l_dflt_enrt_cd := NULL;
9081: --
9082: -- Hierarchy
9112: IF l_dflt_enrt_cd IS NULL THEN
9113: --
9114: -- 2
9115: --
9116: hr_utility.set_location('In the case 2 ' , 100);
9117: --
9118: --l_dflt_enrt_cd := ben_cobj_cache.g_oipl_currow.dflt_enrt_cd;
9119: --l_dflt_enrt_rl := ben_cobj_cache.g_oipl_currow.dflt_enrt_det_rl;
9120: --
9120: --
9121: l_dflt_enrt_cd := p_oipl_rec.dflt_enrt_cd ;
9122: l_dflt_enrt_rl := p_oipl_rec.dflt_enrt_det_rl ;
9123:
9124: --hr_utility.set_location(' p_oipl_rec.oipl_id '||p_oipl_rec.oipl_id ,110);
9125: --hr_utility.set_location(' p_oipl_rec.dflt_enrt_cd '||p_oipl_rec.dflt_enrt_cd ,110);
9126: --hr_utility.set_location(' p_oipl_rec.dflt_flag '||p_oipl_rec.dflt_flag, 110) ;
9127: --
9128: if l_dflt_enrt_cd is not null
9121: l_dflt_enrt_cd := p_oipl_rec.dflt_enrt_cd ;
9122: l_dflt_enrt_rl := p_oipl_rec.dflt_enrt_det_rl ;
9123:
9124: --hr_utility.set_location(' p_oipl_rec.oipl_id '||p_oipl_rec.oipl_id ,110);
9125: --hr_utility.set_location(' p_oipl_rec.dflt_enrt_cd '||p_oipl_rec.dflt_enrt_cd ,110);
9126: --hr_utility.set_location(' p_oipl_rec.dflt_flag '||p_oipl_rec.dflt_flag, 110) ;
9127: --
9128: if l_dflt_enrt_cd is not null
9129: and p_level is null then -- 3510229
9122: l_dflt_enrt_rl := p_oipl_rec.dflt_enrt_det_rl ;
9123:
9124: --hr_utility.set_location(' p_oipl_rec.oipl_id '||p_oipl_rec.oipl_id ,110);
9125: --hr_utility.set_location(' p_oipl_rec.dflt_enrt_cd '||p_oipl_rec.dflt_enrt_cd ,110);
9126: --hr_utility.set_location(' p_oipl_rec.dflt_flag '||p_oipl_rec.dflt_flag, 110) ;
9127: --
9128: if l_dflt_enrt_cd is not null
9129: and p_level is null then -- 3510229
9130: p_level:='OIPL';
9150: --if p_ler_dflt_flag is null then
9151: -- p_ler_dflt_flag := l_ler_dflt_flag;
9152: --end if;
9153: --l_ler_dflt_flag := null ;
9154: hr_utility.set_location('after LER pNip chk p_ler_dflt_flag: '||p_ler_dflt_flag , 100);
9155: -- 3510229 end
9156:
9157: end if;
9158: -- there could be default flag without default code 4008380
9158: -- there could be default flag without default code 4008380
9159: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
9160: p_ler_dflt_flag := l_ler_dflt_flag ;
9161: end if ;
9162: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,40);
9163: hr_utility.set_location(l_dflt_enrt_cd,40);
9164:
9165:
9166: ELSIF p_pgm_id IS NOT NULL
9159: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
9160: p_ler_dflt_flag := l_ler_dflt_flag ;
9161: end if ;
9162: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,40);
9163: hr_utility.set_location(l_dflt_enrt_cd,40);
9164:
9165:
9166: ELSIF p_pgm_id IS NOT NULL
9167: AND l_dflt_enrt_cd IS NULL THEN
9180: -- 4008380
9181: --if p_ler_dflt_flag is null then
9182: -- p_ler_dflt_flag := l_ler_dflt_flag;
9183: --end if;
9184: hr_utility.set_location('after LER PLIP chk p_ler_dflt_flag: '||p_ler_dflt_flag , 100);
9185: --l_ler_dflt_flag := null ;
9186: -- 3510229 end
9187:
9188: end if;
9189: -- 4008380
9190: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
9191: p_ler_dflt_flag := l_ler_dflt_flag ;
9192: end if ;
9193: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,50);
9194: hr_utility.set_location(l_dflt_enrt_cd,50);
9195:
9196: -- 4008380
9197: -- there could be plip but the setup may be in plan ler level
9190: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
9191: p_ler_dflt_flag := l_ler_dflt_flag ;
9192: end if ;
9193: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,50);
9194: hr_utility.set_location(l_dflt_enrt_cd,50);
9195:
9196: -- 4008380
9197: -- there could be plip but the setup may be in plan ler level
9198: IF l_dflt_enrt_cd IS NULL THEN
9203:
9204: if l_dflt_enrt_cd is not null
9205: and p_level is null then -- 3510229
9206: p_level:='LER_PL';
9207: hr_utility.set_location('after LER Plan chk p_ler_dflt_flag: '||p_ler_dflt_flag , 100);
9208: end if;
9209: -- there could be default flag without default code 4008380
9210: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
9211: p_ler_dflt_flag := l_ler_dflt_flag ;
9209: -- there could be default flag without default code 4008380
9210: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
9211: p_ler_dflt_flag := l_ler_dflt_flag ;
9212: end if ;
9213: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,40);
9214: hr_utility.set_location(l_dflt_enrt_cd,40);
9215: end if ;
9216:
9217:
9210: if p_ler_dflt_flag is null and l_ler_dflt_flag is not null then
9211: p_ler_dflt_flag := l_ler_dflt_flag ;
9212: end if ;
9213: hr_utility.set_location('l_ler_dflt_flag ' || l_ler_dflt_flag ,40);
9214: hr_utility.set_location(l_dflt_enrt_cd,40);
9215: end if ;
9216:
9217:
9218:
9227: if l_dflt_enrt_cd is not null
9228: and p_level is null then -- 3510229
9229: p_level:='LER_PTIP';
9230: end if;
9231: -- hr_utility.set_location(l_dflt_enrt_cd,60);
9232: IF l_dflt_enrt_cd IS NULL THEN
9233: --
9234: -- 6
9235: --
9242: end if;
9243: END IF;
9244: END IF;
9245: END IF;
9246: -- hr_utility.set_location(l_dflt_enrt_cd,80);
9247: IF p_pgm_id IS NULL
9248: AND l_dflt_enrt_cd IS NULL THEN
9249: --
9250: -- 7
9252: -- Bug 1895874
9253: -- l_dflt_enrt_cd := ben_cobj_cache.g_pl_currow.nip_dflt_enrt_cd;
9254: -- l_dflt_enrt_rl := ben_cobj_cache.g_pl_currow.nip_dflt_enrt_det_rl;
9255: --
9256: hr_utility.set_location(' p_pl_rec.pl_id '||p_oipl_rec.oipl_id ,110);
9257: hr_utility.set_location(' p_pl_rec.nip_dflt_enrt_cd '||p_pl_rec.nip_dflt_enrt_cd ,110);
9258: hr_utility.set_location(' p_pl_rec.nip_dflt_flag '||p_pl_rec.nip_dflt_flag, 110) ;
9259: --
9260: l_dflt_enrt_cd := p_pl_rec.nip_dflt_enrt_cd ;
9253: -- l_dflt_enrt_cd := ben_cobj_cache.g_pl_currow.nip_dflt_enrt_cd;
9254: -- l_dflt_enrt_rl := ben_cobj_cache.g_pl_currow.nip_dflt_enrt_det_rl;
9255: --
9256: hr_utility.set_location(' p_pl_rec.pl_id '||p_oipl_rec.oipl_id ,110);
9257: hr_utility.set_location(' p_pl_rec.nip_dflt_enrt_cd '||p_pl_rec.nip_dflt_enrt_cd ,110);
9258: hr_utility.set_location(' p_pl_rec.nip_dflt_flag '||p_pl_rec.nip_dflt_flag, 110) ;
9259: --
9260: l_dflt_enrt_cd := p_pl_rec.nip_dflt_enrt_cd ;
9261: l_dflt_enrt_rl := p_pl_rec.nip_dflt_enrt_det_rl ;
9254: -- l_dflt_enrt_rl := ben_cobj_cache.g_pl_currow.nip_dflt_enrt_det_rl;
9255: --
9256: hr_utility.set_location(' p_pl_rec.pl_id '||p_oipl_rec.oipl_id ,110);
9257: hr_utility.set_location(' p_pl_rec.nip_dflt_enrt_cd '||p_pl_rec.nip_dflt_enrt_cd ,110);
9258: hr_utility.set_location(' p_pl_rec.nip_dflt_flag '||p_pl_rec.nip_dflt_flag, 110) ;
9259: --
9260: l_dflt_enrt_cd := p_pl_rec.nip_dflt_enrt_cd ;
9261: l_dflt_enrt_rl := p_pl_rec.nip_dflt_enrt_det_rl ;
9262: if p_ler_dflt_flag is null then -- 3510229
9274: and p_level is null then -- 3510229
9275: p_level:='PL';
9276: end if;
9277: --
9278: -- hr_utility.set_location(l_dflt_enrt_cd,90);
9279:
9280: ELSIF p_pgm_id IS NOT NULL
9281: AND l_dflt_enrt_cd IS NULL THEN
9282: --
9292: if l_dflt_enrt_cd is not null
9293: and p_level is null then -- 3510229
9294: p_level:='PLIP';
9295: end if;
9296: hr_utility.set_location(l_dflt_enrt_cd,100);
9297: --
9298: IF l_dflt_enrt_cd IS NULL THEN
9299: --
9300: -- 9
9309: if l_dflt_enrt_cd is not null
9310: and p_level is null then -- 3510229
9311: p_level:='PTIP';
9312: end if;
9313: hr_utility.set_location(l_dflt_enrt_cd,110);
9314: --
9315: END IF;
9316: END IF;
9317: --
9314: --
9315: END IF;
9316: END IF;
9317: --
9318: hr_utility.set_location(' p_pgm_id '||p_pgm_id||' pl_id '||p_pl_id||' oipl '||p_oipl_id||
9319: ' plip '||p_plip_id||' ptip '||p_ptip_id,130);
9320: hr_utility.set_location('dflt_enrt_cd= '||l_dflt_enrt_cd,130);
9321: hr_utility.set_location('dflt_enrt_rl= '||l_dflt_enrt_rl,140);
9322: hr_utility.set_location('p_ler_dflt_flag= '||p_ler_dflt_flag ,140);
9316: END IF;
9317: --
9318: hr_utility.set_location(' p_pgm_id '||p_pgm_id||' pl_id '||p_pl_id||' oipl '||p_oipl_id||
9319: ' plip '||p_plip_id||' ptip '||p_ptip_id,130);
9320: hr_utility.set_location('dflt_enrt_cd= '||l_dflt_enrt_cd,130);
9321: hr_utility.set_location('dflt_enrt_rl= '||l_dflt_enrt_rl,140);
9322: hr_utility.set_location('p_ler_dflt_flag= '||p_ler_dflt_flag ,140);
9323: p_dflt_enrt_cd := l_dflt_enrt_cd;
9324: p_dflt_enrt_rl := l_dflt_enrt_rl;
9317: --
9318: hr_utility.set_location(' p_pgm_id '||p_pgm_id||' pl_id '||p_pl_id||' oipl '||p_oipl_id||
9319: ' plip '||p_plip_id||' ptip '||p_ptip_id,130);
9320: hr_utility.set_location('dflt_enrt_cd= '||l_dflt_enrt_cd,130);
9321: hr_utility.set_location('dflt_enrt_rl= '||l_dflt_enrt_rl,140);
9322: hr_utility.set_location('p_ler_dflt_flag= '||p_ler_dflt_flag ,140);
9323: p_dflt_enrt_cd := l_dflt_enrt_cd;
9324: p_dflt_enrt_rl := l_dflt_enrt_rl;
9325: hr_utility.set_location('Leaving: ' || l_proc, 150);
9318: hr_utility.set_location(' p_pgm_id '||p_pgm_id||' pl_id '||p_pl_id||' oipl '||p_oipl_id||
9319: ' plip '||p_plip_id||' ptip '||p_ptip_id,130);
9320: hr_utility.set_location('dflt_enrt_cd= '||l_dflt_enrt_cd,130);
9321: hr_utility.set_location('dflt_enrt_rl= '||l_dflt_enrt_rl,140);
9322: hr_utility.set_location('p_ler_dflt_flag= '||p_ler_dflt_flag ,140);
9323: p_dflt_enrt_cd := l_dflt_enrt_cd;
9324: p_dflt_enrt_rl := l_dflt_enrt_rl;
9325: hr_utility.set_location('Leaving: ' || l_proc, 150);
9326: exception
9321: hr_utility.set_location('dflt_enrt_rl= '||l_dflt_enrt_rl,140);
9322: hr_utility.set_location('p_ler_dflt_flag= '||p_ler_dflt_flag ,140);
9323: p_dflt_enrt_cd := l_dflt_enrt_cd;
9324: p_dflt_enrt_rl := l_dflt_enrt_rl;
9325: hr_utility.set_location('Leaving: ' || l_proc, 150);
9326: exception
9327: --
9328: when others then
9329: --
9496: END IF;
9497: --
9498: end if;
9499: if g_debug then
9500: hr_utility.set_location('level ' || p_level , 8086);
9501: end if;
9502: --
9503: exception
9504: --
10007: End AMN Bug 14653541: Commenting the below fixes*/
10008: --
10009: begin
10010: --
10011: g_debug := hr_utility.debug_enabled;
10012: --
10013: if g_debug then
10014: hr_utility.set_location('Entering: '||l_proc,10);
10015: end if;
10010: --
10011: g_debug := hr_utility.debug_enabled;
10012: --
10013: if g_debug then
10014: hr_utility.set_location('Entering: '||l_proc,10);
10015: end if;
10016: --l_effective_date_1:=p_effective_date-1;
10017: --Bug#2328029
10018: l_effective_date_1:=
10062: )
10063: loop
10064: */
10065: if g_debug then
10066: hr_utility.set_location(l_proc||' ST c_choices loop: ',10);
10067: end if;
10068: --
10069: -- init flags
10070: --
10118: --
10119: -- get the dflt_enrt_cd/rule
10120: --
10121: if g_debug then
10122: hr_utility.set_location('DDEC: '||l_proc,10);
10123: end if;
10124: determine_dflt_enrt_cd
10125: (p_oipl_id => l_oipl_id
10126: ,p_oipl_rec => l_oipl_rec
10139: ,p_effective_date => l_lf_evt_ocrd_dt -- Bug 2404008 p_effective_date
10140: ,p_level => l_dflt_level
10141: ,p_ler_dflt_flag => l_ler_dflt_flag
10142: );
10143: --hr_utility.set_location('After call to determine_dflt_enrt_cd ' , 5553);
10144: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10145: if g_debug then
10146: hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10147: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10140: ,p_level => l_dflt_level
10141: ,p_ler_dflt_flag => l_ler_dflt_flag
10142: );
10143: --hr_utility.set_location('After call to determine_dflt_enrt_cd ' , 5553);
10144: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10145: if g_debug then
10146: hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10147: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10148: --hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10142: );
10143: --hr_utility.set_location('After call to determine_dflt_enrt_cd ' , 5553);
10144: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10145: if g_debug then
10146: hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10147: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10148: --hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10149: hr_utility.set_location('l_ler_dflt_flag '||l_ler_dflt_flag ,5555);
10150: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10143: --hr_utility.set_location('After call to determine_dflt_enrt_cd ' , 5553);
10144: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10145: if g_debug then
10146: hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10147: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10148: --hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10149: hr_utility.set_location('l_ler_dflt_flag '||l_ler_dflt_flag ,5555);
10150: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10151: hr_utility.set_location(' l_dflt_level ='|| l_dflt_level ,5558);
10144: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10145: if g_debug then
10146: hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10147: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10148: --hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10149: hr_utility.set_location('l_ler_dflt_flag '||l_ler_dflt_flag ,5555);
10150: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10151: hr_utility.set_location(' l_dflt_level ='|| l_dflt_level ,5558);
10152: end if;
10145: if g_debug then
10146: hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10147: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10148: --hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10149: hr_utility.set_location('l_ler_dflt_flag '||l_ler_dflt_flag ,5555);
10150: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10151: hr_utility.set_location(' l_dflt_level ='|| l_dflt_level ,5558);
10152: end if;
10153: --hr_utility.set_location(' ---- ' ,5559);
10146: hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10147: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10148: --hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10149: hr_utility.set_location('l_ler_dflt_flag '||l_ler_dflt_flag ,5555);
10150: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10151: hr_utility.set_location(' l_dflt_level ='|| l_dflt_level ,5558);
10152: end if;
10153: --hr_utility.set_location(' ---- ' ,5559);
10154: --
10147: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10148: --hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10149: hr_utility.set_location('l_ler_dflt_flag '||l_ler_dflt_flag ,5555);
10150: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10151: hr_utility.set_location(' l_dflt_level ='|| l_dflt_level ,5558);
10152: end if;
10153: --hr_utility.set_location(' ---- ' ,5559);
10154: --
10155: -- Set the values for the dflt_flag
10149: hr_utility.set_location('l_ler_dflt_flag '||l_ler_dflt_flag ,5555);
10150: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10151: hr_utility.set_location(' l_dflt_level ='|| l_dflt_level ,5558);
10152: end if;
10153: --hr_utility.set_location(' ---- ' ,5559);
10154: --
10155: -- Set the values for the dflt_flag
10156: --
10157: --
10209: FETCH c_asg INTO l_rec_assignment_id, l_rec_organization_id;
10210: IF c_asg%NOTFOUND THEN
10211: CLOSE c_asg;
10212: if g_debug then
10213: hr_utility.set_location('error', 20);
10214: end if;
10215: fnd_message.set_name('BEN', 'BEN_92106_PRTT_NO_ASGN');
10216: fnd_message.set_token('PROC', l_proc);
10217: fnd_message.set_token('PERSON_ID', TO_CHAR(p_person_id));
10219: fnd_message.set_token('EFFECTIVE_DATE', TO_CHAR(p_effective_date));
10220: RAISE ben_manage_life_events.g_record_error;
10221: END IF;
10222: CLOSE c_asg;
10223: --hr_utility.set_location('Before call to l_use_dflt_flag ',5550);
10224: if g_debug then
10225: hr_utility.set_location(' l_use_dflt_flag ',5550);
10226: hr_utility.set_location(' l_use_dflt_enrt_cd ',5550);
10227: end if;
10221: END IF;
10222: CLOSE c_asg;
10223: --hr_utility.set_location('Before call to l_use_dflt_flag ',5550);
10224: if g_debug then
10225: hr_utility.set_location(' l_use_dflt_flag ',5550);
10226: hr_utility.set_location(' l_use_dflt_enrt_cd ',5550);
10227: end if;
10228: determine_dflt_flag(
10229: l_use_dflt_flag,
10222: CLOSE c_asg;
10223: --hr_utility.set_location('Before call to l_use_dflt_flag ',5550);
10224: if g_debug then
10225: hr_utility.set_location(' l_use_dflt_flag ',5550);
10226: hr_utility.set_location(' l_use_dflt_enrt_cd ',5550);
10227: end if;
10228: determine_dflt_flag(
10229: l_use_dflt_flag,
10230: l_use_dflt_enrt_cd,
10250: p_run_mode /* iRec : Added p_run_mode */
10251: );
10252: --
10253: if g_debug then
10254: hr_utility.set_location(' l_dflt_flag '|| l_dflt_flag ,5550);
10255: hr_utility.set_location(' l_dflt_level '|| l_dflt_level ,5550);--AMN Bug 14661357
10256: end if;
10257: /*Start AMN Bug 14653541: Commenting the below fixes
10258: --Bug# 12621882 For a Comp.object After the rule evalutes the default enrolment flag,
10251: );
10252: --
10253: if g_debug then
10254: hr_utility.set_location(' l_dflt_flag '|| l_dflt_flag ,5550);
10255: hr_utility.set_location(' l_dflt_level '|| l_dflt_level ,5550);--AMN Bug 14661357
10256: end if;
10257: /*Start AMN Bug 14653541: Commenting the below fixes
10258: --Bug# 12621882 For a Comp.object After the rule evalutes the default enrolment flag,
10259: -- if l_dflt_flag = 'Y' then it checks again at the oipl level.
10259: -- if l_dflt_flag = 'Y' then it checks again at the oipl level.
10260: -- Means option which is set as default at oipl level should only be defaulted.
10261:
10262: --ud changes start
10263: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
10264:
10265: IF l_use_dflt_enrt_cd ='RL' then
10266:
10267: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
10263: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
10264:
10265: IF l_use_dflt_enrt_cd ='RL' then
10266:
10267: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
10268: hr_utility.set_location(' l_oipl_id ' || l_oipl_id , 10);
10269:
10270: IF l_dflt_flag = 'Y' and l_oipl_id IS NOT NULL and l_dflt_level not in ('LER_OIPL','OIPL') then --AMN Bug 14661357
10271:
10264:
10265: IF l_use_dflt_enrt_cd ='RL' then
10266:
10267: hr_utility.set_location(' l_use_dflt_enrt_cd ' || l_use_dflt_enrt_cd , 10);
10268: hr_utility.set_location(' l_oipl_id ' || l_oipl_id , 10);
10269:
10270: IF l_dflt_flag = 'Y' and l_oipl_id IS NOT NULL and l_dflt_level not in ('LER_OIPL','OIPL') then --AMN Bug 14661357
10271:
10272: hr_utility.set_location(' l_oipl_id ' || l_oipl_id , 10);
10268: hr_utility.set_location(' l_oipl_id ' || l_oipl_id , 10);
10269:
10270: IF l_dflt_flag = 'Y' and l_oipl_id IS NOT NULL and l_dflt_level not in ('LER_OIPL','OIPL') then --AMN Bug 14661357
10271:
10272: hr_utility.set_location(' l_oipl_id ' || l_oipl_id , 10);
10273: hr_utility.set_location(' l_oipl_rec.dflt_flag ' || l_oipl_rec.dflt_flag , 10);
10274: --Start AMN Bug 14661357
10275: open c_ler_oipl_dflt_flag;
10276: fetch c_ler_oipl_dflt_flag into l_ler_oipl_dflt_flag;
10269:
10270: IF l_dflt_flag = 'Y' and l_oipl_id IS NOT NULL and l_dflt_level not in ('LER_OIPL','OIPL') then --AMN Bug 14661357
10271:
10272: hr_utility.set_location(' l_oipl_id ' || l_oipl_id , 10);
10273: hr_utility.set_location(' l_oipl_rec.dflt_flag ' || l_oipl_rec.dflt_flag , 10);
10274: --Start AMN Bug 14661357
10275: open c_ler_oipl_dflt_flag;
10276: fetch c_ler_oipl_dflt_flag into l_ler_oipl_dflt_flag;
10277: if c_ler_oipl_dflt_flag%notfound then
10277: if c_ler_oipl_dflt_flag%notfound then
10278: l_ler_oipl_dflt_flag := l_oipl_rec.dflt_flag;
10279: end if;
10280: close c_ler_oipl_dflt_flag;
10281: hr_utility.set_location(' l_ler_oipl_dflt_flag ' || l_ler_oipl_dflt_flag , 10);
10282: --Start AMN Bug 14661357
10283:
10284: If l_ler_oipl_dflt_flag = 'N' then --AMN Bug 14661357
10285: l_dflt_flag := 'N';
10282: --Start AMN Bug 14661357
10283:
10284: If l_ler_oipl_dflt_flag = 'N' then --AMN Bug 14661357
10285: l_dflt_flag := 'N';
10286: hr_utility.set_location('l_dflt_flag ' || l_dflt_flag, 40);
10287:
10288: end if;
10289: end if;
10290: end if;
10296: --
10297: l_dflt_flag := l_use_dflt_flag;
10298: --
10299: END IF;
10300: --hr_utility.set_location('After call to determine_dflt_flag ' , 5553);
10301: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10302: --hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10303: if g_debug then
10304: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10297: l_dflt_flag := l_use_dflt_flag;
10298: --
10299: END IF;
10300: --hr_utility.set_location('After call to determine_dflt_flag ' , 5553);
10301: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10302: --hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10303: if g_debug then
10304: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10305: hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10298: --
10299: END IF;
10300: --hr_utility.set_location('After call to determine_dflt_flag ' , 5553);
10301: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10302: --hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10303: if g_debug then
10304: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10305: hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10306: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10300: --hr_utility.set_location('After call to determine_dflt_flag ' , 5553);
10301: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10302: --hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10303: if g_debug then
10304: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10305: hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10306: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10307: end if;
10308: --
10301: --hr_utility.set_location('l_pgm_id '||l_pgm_id,5554);
10302: --hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10303: if g_debug then
10304: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10305: hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10306: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10307: end if;
10308: --
10309: -- Done with default flag now see if electable flag should be changed
10302: --hr_utility.set_location('l_oipl_id '||l_oipl_id ,5555);
10303: if g_debug then
10304: hr_utility.set_location('l_pl_id '||l_pl_id ,5556);
10305: hr_utility.set_location('l_dflt_flag='||l_dflt_flag,5557);
10306: hr_utility.set_location(' l_epe_dflt_flag='|| l_epe_dflt_flag,5558);
10307: end if;
10308: --
10309: -- Done with default flag now see if electable flag should be changed
10310: --
10339: END IF;
10340: --
10341: CLOSE c_plan_enrolment_info;
10342: if g_debug then
10343: hr_utility.set_location('close c_PEI: ' || l_proc, 10);
10344: end if;
10345: --
10346: ELSE
10347: --
10370: END IF;
10371: --
10372: CLOSE c_oipl_enrolment_info;
10373: if g_debug then
10374: hr_utility.set_location('close c_OIEI: ' || l_proc, 10);
10375: end if;
10376: --
10377: END IF;
10378: if g_debug then
10375: end if;
10376: --
10377: END IF;
10378: if g_debug then
10379: hr_utility.set_location('determine prev elig', 10);
10380: end if;
10381: --
10382: -- Bug 2677804 We need to see the override case here.
10383: IF ( l_enrt_ovridn_flag = 'Y' AND l_enrt_ovrid_thru_dt >= l_lf_evt_ocrd_dt) THEN
10412: --
10413: end if;
10414: --
10415: if g_debug then
10416: hr_utility.set_location('close c_PEFP: ' || l_proc, 10);
10417: end if;
10418: --
10419: ELSE
10420: --
10440: --
10441: end if;
10442: --
10443: if g_debug then
10444: hr_utility.set_location('close c_PEFO: ' || l_proc, 10);
10445: end if;
10446: --
10447: END IF;
10448: l_pl_enrt_cd := l_plan_rec.enrt_cd;
10451: -- Determine if the compensation object requires or allows
10452: -- an election change If life event mode
10453: --
10454: if g_debug then
10455: hr_utility.set_location('ler change stuff', 20);
10456: end if;
10457: l_ler_chg_found_flag := 'N';
10458: l_ler_chg_oipl_found_flag := 'N';
10459: --
10459: --
10460: -- See if there is a life event reason to change
10461: --
10462: if g_debug then
10463: hr_utility.set_location('ler change stuff not null stuff', 20);
10464: hr_utility.set_location(' Op c_lce_info: ' || l_proc, 10);
10465: end if;
10466: --
10467: determine_ben_settings(
10460: -- See if there is a life event reason to change
10461: --
10462: if g_debug then
10463: hr_utility.set_location('ler change stuff not null stuff', 20);
10464: hr_utility.set_location(' Op c_lce_info: ' || l_proc, 10);
10465: end if;
10466: --
10467: determine_ben_settings(
10468: p_pl_id => l_pl_id,
10484: p_ler_chg_oipl_found_flag => l_ler_chg_oipl_found_flag,
10485: p_ler_chg_found_flag => l_ler_chg_found_flag,
10486: p_enrt_cd_level => l_enrt_cd_level);
10487: if g_debug then
10488: hr_utility.set_location(' Cl c_lce_info: ' || l_proc, 10);
10489: end if;
10490: --
10491: -- Determine enrt codes/rules method codes/rules then
10492: -- figure out if electable.
10576: l_pl_auto_enrt_rl := l_pgm_rec.auto_enrt_mthd_rl;
10577: END IF;
10578:
10579: g_ptip_id := l_ptip_id;
10580: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10581: -- hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||l_crnt_enrt_cvg_strt_dt,1064);
10582: -- hr_utility.set_location('l_dpnt_cvrd_flag='||l_dpnt_cvrd_flag,1064);
10583: -- hr_utility.set_location('p_person_id='||p_person_id,1064);
10584: -- hr_utility.set_location('p_ler_id='||p_ler_id,1064);
10577: END IF;
10578:
10579: g_ptip_id := l_ptip_id;
10580: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10581: -- hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||l_crnt_enrt_cvg_strt_dt,1064);
10582: -- hr_utility.set_location('l_dpnt_cvrd_flag='||l_dpnt_cvrd_flag,1064);
10583: -- hr_utility.set_location('p_person_id='||p_person_id,1064);
10584: -- hr_utility.set_location('p_ler_id='||p_ler_id,1064);
10585: -- hr_utility.set_location('l_pl_enrt_cd='||l_pl_enrt_cd,1064);
10578:
10579: g_ptip_id := l_ptip_id;
10580: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10581: -- hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||l_crnt_enrt_cvg_strt_dt,1064);
10582: -- hr_utility.set_location('l_dpnt_cvrd_flag='||l_dpnt_cvrd_flag,1064);
10583: -- hr_utility.set_location('p_person_id='||p_person_id,1064);
10584: -- hr_utility.set_location('p_ler_id='||p_ler_id,1064);
10585: -- hr_utility.set_location('l_pl_enrt_cd='||l_pl_enrt_cd,1064);
10586: -- hr_utility.set_location('l_pl_enrt_rl='||l_pl_enrt_rl,1064);
10579: g_ptip_id := l_ptip_id;
10580: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10581: -- hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||l_crnt_enrt_cvg_strt_dt,1064);
10582: -- hr_utility.set_location('l_dpnt_cvrd_flag='||l_dpnt_cvrd_flag,1064);
10583: -- hr_utility.set_location('p_person_id='||p_person_id,1064);
10584: -- hr_utility.set_location('p_ler_id='||p_ler_id,1064);
10585: -- hr_utility.set_location('l_pl_enrt_cd='||l_pl_enrt_cd,1064);
10586: -- hr_utility.set_location('l_pl_enrt_rl='||l_pl_enrt_rl,1064);
10587: -- hr_utility.set_location('p_effective_date='||p_effective_date,1064);
10580: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10581: -- hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||l_crnt_enrt_cvg_strt_dt,1064);
10582: -- hr_utility.set_location('l_dpnt_cvrd_flag='||l_dpnt_cvrd_flag,1064);
10583: -- hr_utility.set_location('p_person_id='||p_person_id,1064);
10584: -- hr_utility.set_location('p_ler_id='||p_ler_id,1064);
10585: -- hr_utility.set_location('l_pl_enrt_cd='||l_pl_enrt_cd,1064);
10586: -- hr_utility.set_location('l_pl_enrt_rl='||l_pl_enrt_rl,1064);
10587: -- hr_utility.set_location('p_effective_date='||p_effective_date,1064);
10588: -- hr_utility.set_location('p_lf_evt_ocrd_dt='||p_lf_evt_ocrd_dt,1064);
10581: -- hr_utility.set_location('l_crnt_enrt_cvg_strt_dt='||l_crnt_enrt_cvg_strt_dt,1064);
10582: -- hr_utility.set_location('l_dpnt_cvrd_flag='||l_dpnt_cvrd_flag,1064);
10583: -- hr_utility.set_location('p_person_id='||p_person_id,1064);
10584: -- hr_utility.set_location('p_ler_id='||p_ler_id,1064);
10585: -- hr_utility.set_location('l_pl_enrt_cd='||l_pl_enrt_cd,1064);
10586: -- hr_utility.set_location('l_pl_enrt_rl='||l_pl_enrt_rl,1064);
10587: -- hr_utility.set_location('p_effective_date='||p_effective_date,1064);
10588: -- hr_utility.set_location('p_lf_evt_ocrd_dt='||p_lf_evt_ocrd_dt,1064);
10589: -- hr_utility.set_location('l_ler_enrt_prclds_chg_flag='||l_ler_enrt_prclds_chg_flag,1064);
10582: -- hr_utility.set_location('l_dpnt_cvrd_flag='||l_dpnt_cvrd_flag,1064);
10583: -- hr_utility.set_location('p_person_id='||p_person_id,1064);
10584: -- hr_utility.set_location('p_ler_id='||p_ler_id,1064);
10585: -- hr_utility.set_location('l_pl_enrt_cd='||l_pl_enrt_cd,1064);
10586: -- hr_utility.set_location('l_pl_enrt_rl='||l_pl_enrt_rl,1064);
10587: -- hr_utility.set_location('p_effective_date='||p_effective_date,1064);
10588: -- hr_utility.set_location('p_lf_evt_ocrd_dt='||p_lf_evt_ocrd_dt,1064);
10589: -- hr_utility.set_location('l_ler_enrt_prclds_chg_flag='||l_ler_enrt_prclds_chg_flag,1064);
10590: -- hr_utility.set_location('l_ler_stl_elig_cant_chg_flag='||l_ler_stl_elig_cant_chg_flag,1064);
10583: -- hr_utility.set_location('p_person_id='||p_person_id,1064);
10584: -- hr_utility.set_location('p_ler_id='||p_ler_id,1064);
10585: -- hr_utility.set_location('l_pl_enrt_cd='||l_pl_enrt_cd,1064);
10586: -- hr_utility.set_location('l_pl_enrt_rl='||l_pl_enrt_rl,1064);
10587: -- hr_utility.set_location('p_effective_date='||p_effective_date,1064);
10588: -- hr_utility.set_location('p_lf_evt_ocrd_dt='||p_lf_evt_ocrd_dt,1064);
10589: -- hr_utility.set_location('l_ler_enrt_prclds_chg_flag='||l_ler_enrt_prclds_chg_flag,1064);
10590: -- hr_utility.set_location('l_ler_stl_elig_cant_chg_flag='||l_ler_stl_elig_cant_chg_flag,1064);
10591: -- hr_utility.set_location('l_tco_chg_enrt_cd='||l_tco_chg_enrt_cd,1064);
10584: -- hr_utility.set_location('p_ler_id='||p_ler_id,1064);
10585: -- hr_utility.set_location('l_pl_enrt_cd='||l_pl_enrt_cd,1064);
10586: -- hr_utility.set_location('l_pl_enrt_rl='||l_pl_enrt_rl,1064);
10587: -- hr_utility.set_location('p_effective_date='||p_effective_date,1064);
10588: -- hr_utility.set_location('p_lf_evt_ocrd_dt='||p_lf_evt_ocrd_dt,1064);
10589: -- hr_utility.set_location('l_ler_enrt_prclds_chg_flag='||l_ler_enrt_prclds_chg_flag,1064);
10590: -- hr_utility.set_location('l_ler_stl_elig_cant_chg_flag='||l_ler_stl_elig_cant_chg_flag,1064);
10591: -- hr_utility.set_location('l_tco_chg_enrt_cd='||l_tco_chg_enrt_cd,1064);
10592: -- hr_utility.set_location('l_pl_id='||l_pl_id,1064);
10585: -- hr_utility.set_location('l_pl_enrt_cd='||l_pl_enrt_cd,1064);
10586: -- hr_utility.set_location('l_pl_enrt_rl='||l_pl_enrt_rl,1064);
10587: -- hr_utility.set_location('p_effective_date='||p_effective_date,1064);
10588: -- hr_utility.set_location('p_lf_evt_ocrd_dt='||p_lf_evt_ocrd_dt,1064);
10589: -- hr_utility.set_location('l_ler_enrt_prclds_chg_flag='||l_ler_enrt_prclds_chg_flag,1064);
10590: -- hr_utility.set_location('l_ler_stl_elig_cant_chg_flag='||l_ler_stl_elig_cant_chg_flag,1064);
10591: -- hr_utility.set_location('l_tco_chg_enrt_cd='||l_tco_chg_enrt_cd,1064);
10592: -- hr_utility.set_location('l_pl_id='||l_pl_id,1064);
10593: -- hr_utility.set_location('l_pgm_id='||l_pgm_id,1064);
10586: -- hr_utility.set_location('l_pl_enrt_rl='||l_pl_enrt_rl,1064);
10587: -- hr_utility.set_location('p_effective_date='||p_effective_date,1064);
10588: -- hr_utility.set_location('p_lf_evt_ocrd_dt='||p_lf_evt_ocrd_dt,1064);
10589: -- hr_utility.set_location('l_ler_enrt_prclds_chg_flag='||l_ler_enrt_prclds_chg_flag,1064);
10590: -- hr_utility.set_location('l_ler_stl_elig_cant_chg_flag='||l_ler_stl_elig_cant_chg_flag,1064);
10591: -- hr_utility.set_location('l_tco_chg_enrt_cd='||l_tco_chg_enrt_cd,1064);
10592: -- hr_utility.set_location('l_pl_id='||l_pl_id,1064);
10593: -- hr_utility.set_location('l_pgm_id='||l_pgm_id,1064);
10594: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,1064);
10587: -- hr_utility.set_location('p_effective_date='||p_effective_date,1064);
10588: -- hr_utility.set_location('p_lf_evt_ocrd_dt='||p_lf_evt_ocrd_dt,1064);
10589: -- hr_utility.set_location('l_ler_enrt_prclds_chg_flag='||l_ler_enrt_prclds_chg_flag,1064);
10590: -- hr_utility.set_location('l_ler_stl_elig_cant_chg_flag='||l_ler_stl_elig_cant_chg_flag,1064);
10591: -- hr_utility.set_location('l_tco_chg_enrt_cd='||l_tco_chg_enrt_cd,1064);
10592: -- hr_utility.set_location('l_pl_id='||l_pl_id,1064);
10593: -- hr_utility.set_location('l_pgm_id='||l_pgm_id,1064);
10594: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,1064);
10595: -- hr_utility.set_location('l_oipl_rec.opt_id='||l_oipl_rec.opt_id,1064);
10588: -- hr_utility.set_location('p_lf_evt_ocrd_dt='||p_lf_evt_ocrd_dt,1064);
10589: -- hr_utility.set_location('l_ler_enrt_prclds_chg_flag='||l_ler_enrt_prclds_chg_flag,1064);
10590: -- hr_utility.set_location('l_ler_stl_elig_cant_chg_flag='||l_ler_stl_elig_cant_chg_flag,1064);
10591: -- hr_utility.set_location('l_tco_chg_enrt_cd='||l_tco_chg_enrt_cd,1064);
10592: -- hr_utility.set_location('l_pl_id='||l_pl_id,1064);
10593: -- hr_utility.set_location('l_pgm_id='||l_pgm_id,1064);
10594: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,1064);
10595: -- hr_utility.set_location('l_oipl_rec.opt_id='||l_oipl_rec.opt_id,1064);
10596: -- hr_utility.set_location('l_plan_rec.pl_typ_id='||l_plan_rec.pl_typ_id,1064);
10589: -- hr_utility.set_location('l_ler_enrt_prclds_chg_flag='||l_ler_enrt_prclds_chg_flag,1064);
10590: -- hr_utility.set_location('l_ler_stl_elig_cant_chg_flag='||l_ler_stl_elig_cant_chg_flag,1064);
10591: -- hr_utility.set_location('l_tco_chg_enrt_cd='||l_tco_chg_enrt_cd,1064);
10592: -- hr_utility.set_location('l_pl_id='||l_pl_id,1064);
10593: -- hr_utility.set_location('l_pgm_id='||l_pgm_id,1064);
10594: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,1064);
10595: -- hr_utility.set_location('l_oipl_rec.opt_id='||l_oipl_rec.opt_id,1064);
10596: -- hr_utility.set_location('l_plan_rec.pl_typ_id='||l_plan_rec.pl_typ_id,1064);
10597: -- hr_utility.set_location('p_business_group_id='||p_business_group_id,1064);
10590: -- hr_utility.set_location('l_ler_stl_elig_cant_chg_flag='||l_ler_stl_elig_cant_chg_flag,1064);
10591: -- hr_utility.set_location('l_tco_chg_enrt_cd='||l_tco_chg_enrt_cd,1064);
10592: -- hr_utility.set_location('l_pl_id='||l_pl_id,1064);
10593: -- hr_utility.set_location('l_pgm_id='||l_pgm_id,1064);
10594: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,1064);
10595: -- hr_utility.set_location('l_oipl_rec.opt_id='||l_oipl_rec.opt_id,1064);
10596: -- hr_utility.set_location('l_plan_rec.pl_typ_id='||l_plan_rec.pl_typ_id,1064);
10597: -- hr_utility.set_location('p_business_group_id='||p_business_group_id,1064);
10598: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10591: -- hr_utility.set_location('l_tco_chg_enrt_cd='||l_tco_chg_enrt_cd,1064);
10592: -- hr_utility.set_location('l_pl_id='||l_pl_id,1064);
10593: -- hr_utility.set_location('l_pgm_id='||l_pgm_id,1064);
10594: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,1064);
10595: -- hr_utility.set_location('l_oipl_rec.opt_id='||l_oipl_rec.opt_id,1064);
10596: -- hr_utility.set_location('l_plan_rec.pl_typ_id='||l_plan_rec.pl_typ_id,1064);
10597: -- hr_utility.set_location('p_business_group_id='||p_business_group_id,1064);
10598: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10599: -- hr_utility.set_location('l_rec_assignment_id='||l_rec_assignment_id,1064);
10592: -- hr_utility.set_location('l_pl_id='||l_pl_id,1064);
10593: -- hr_utility.set_location('l_pgm_id='||l_pgm_id,1064);
10594: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,1064);
10595: -- hr_utility.set_location('l_oipl_rec.opt_id='||l_oipl_rec.opt_id,1064);
10596: -- hr_utility.set_location('l_plan_rec.pl_typ_id='||l_plan_rec.pl_typ_id,1064);
10597: -- hr_utility.set_location('p_business_group_id='||p_business_group_id,1064);
10598: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10599: -- hr_utility.set_location('l_rec_assignment_id='||l_rec_assignment_id,1064);
10600: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10593: -- hr_utility.set_location('l_pgm_id='||l_pgm_id,1064);
10594: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,1064);
10595: -- hr_utility.set_location('l_oipl_rec.opt_id='||l_oipl_rec.opt_id,1064);
10596: -- hr_utility.set_location('l_plan_rec.pl_typ_id='||l_plan_rec.pl_typ_id,1064);
10597: -- hr_utility.set_location('p_business_group_id='||p_business_group_id,1064);
10598: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10599: -- hr_utility.set_location('l_rec_assignment_id='||l_rec_assignment_id,1064);
10600: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10601: if g_debug then
10594: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,1064);
10595: -- hr_utility.set_location('l_oipl_rec.opt_id='||l_oipl_rec.opt_id,1064);
10596: -- hr_utility.set_location('l_plan_rec.pl_typ_id='||l_plan_rec.pl_typ_id,1064);
10597: -- hr_utility.set_location('p_business_group_id='||p_business_group_id,1064);
10598: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10599: -- hr_utility.set_location('l_rec_assignment_id='||l_rec_assignment_id,1064);
10600: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10601: if g_debug then
10602: hr_utility.set_location(' Dn Det 1: ' || l_proc, 10);
10595: -- hr_utility.set_location('l_oipl_rec.opt_id='||l_oipl_rec.opt_id,1064);
10596: -- hr_utility.set_location('l_plan_rec.pl_typ_id='||l_plan_rec.pl_typ_id,1064);
10597: -- hr_utility.set_location('p_business_group_id='||p_business_group_id,1064);
10598: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10599: -- hr_utility.set_location('l_rec_assignment_id='||l_rec_assignment_id,1064);
10600: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10601: if g_debug then
10602: hr_utility.set_location(' Dn Det 1: ' || l_proc, 10);
10603: end if;
10596: -- hr_utility.set_location('l_plan_rec.pl_typ_id='||l_plan_rec.pl_typ_id,1064);
10597: -- hr_utility.set_location('p_business_group_id='||p_business_group_id,1064);
10598: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10599: -- hr_utility.set_location('l_rec_assignment_id='||l_rec_assignment_id,1064);
10600: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10601: if g_debug then
10602: hr_utility.set_location(' Dn Det 1: ' || l_proc, 10);
10603: end if;
10604: -- Bug 2677804
10598: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10599: -- hr_utility.set_location('l_rec_assignment_id='||l_rec_assignment_id,1064);
10600: -- hr_utility.set_location('l_previous_eligibility='||l_previous_eligibility,1064);
10601: if g_debug then
10602: hr_utility.set_location(' Dn Det 1: ' || l_proc, 10);
10603: end if;
10604: -- Bug 2677804
10605: if l_enrt_ovridn_flag = 'Y' then
10606: --
10604: -- Bug 2677804
10605: if l_enrt_ovridn_flag = 'Y' then
10606: --
10607: if g_debug then
10608: hr_utility.set_location(' Electable Due to Override ' ,123);
10609: end if;
10610: l_new_elctbl_flag := 'Y' ;
10611: --
10612: else
10618: ben_determine_dpnt_eligibility.g_egd_table :=
10619: ben_determine_dpnt_eligibility.g_egd_table_temp;
10620: OPEN c_elig_dpnt (l_epe_id);
10621: if g_debug then
10622: hr_utility.set_location('SS Populating g_egd_table',9909);
10623: end if;
10624: LOOP
10625: FETCH c_elig_dpnt INTO l_elig_dpnt;
10626: EXIT WHEN c_elig_dpnt%NOTFOUND;
10664: );
10665: end if ;
10666: --
10667: if g_debug then
10668: hr_utility.set_location(' Dn Det Enr 1: ' || l_proc, 10);
10669: end if;
10670: IF l_new_elctbl_flag = 'Y' THEN
10671: --
10672: -- continue
10686: p_business_group_id => p_business_group_id,
10687: p_ler_id => p_ler_id,
10688: p_effective_date => p_effective_date);
10689: if g_debug then
10690: hr_utility.set_location(' BNI_MN 1: ' || l_proc, 10);
10691: end if;
10692: l_new_elctbl_flag := 'N';
10693: end if;
10694: else
10694: else
10695: l_new_elctbl_flag:='N';
10696: end if;
10697: if g_debug then
10698: hr_utility.set_location(' Bef dflt flag chk: ' || l_proc, 10);
10699: end if;
10700: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10701: --
10702: -- update the choice if it needs it.
10696: end if;
10697: if g_debug then
10698: hr_utility.set_location(' Bef dflt flag chk: ' || l_proc, 10);
10699: end if;
10700: -- hr_utility.set_location('l_new_elctbl_flag='||l_new_elctbl_flag,1064);
10701: --
10702: -- update the choice if it needs it.
10703: --
10704: if g_debug then
10701: --
10702: -- update the choice if it needs it.
10703: --
10704: if g_debug then
10705: hr_utility.set_location('Dflt flag is '|| l_epe_dflt_flag,2121);
10706: hr_utility.set_location('l_dflt_flag is '||l_dflt_flag,2121);
10707: end if;
10708: if l_dflt_flag<> l_epe_dflt_flag or
10709: l_new_elctbl_flag <> l_ELCTBL_FLAG then
10702: -- update the choice if it needs it.
10703: --
10704: if g_debug then
10705: hr_utility.set_location('Dflt flag is '|| l_epe_dflt_flag,2121);
10706: hr_utility.set_location('l_dflt_flag is '||l_dflt_flag,2121);
10707: end if;
10708: if l_dflt_flag<> l_epe_dflt_flag or
10709: l_new_elctbl_flag <> l_ELCTBL_FLAG then
10710: -- hr_utility.set_location('Dflt flag changed to '||l_dflt_flag,2121);
10706: hr_utility.set_location('l_dflt_flag is '||l_dflt_flag,2121);
10707: end if;
10708: if l_dflt_flag<> l_epe_dflt_flag or
10709: l_new_elctbl_flag <> l_ELCTBL_FLAG then
10710: -- hr_utility.set_location('Dflt flag changed to '||l_dflt_flag,2121);
10711: -- hr_utility.set_location('Elct flag changed to '||l_new_elctbl_flag,2121);
10712: -- hr_utility.set_location('l_pl_id='||l_pl_id,2121);
10713: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,2121);
10714: IF p_ler_id IS NOT NULL and
10707: end if;
10708: if l_dflt_flag<> l_epe_dflt_flag or
10709: l_new_elctbl_flag <> l_ELCTBL_FLAG then
10710: -- hr_utility.set_location('Dflt flag changed to '||l_dflt_flag,2121);
10711: -- hr_utility.set_location('Elct flag changed to '||l_new_elctbl_flag,2121);
10712: -- hr_utility.set_location('l_pl_id='||l_pl_id,2121);
10713: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,2121);
10714: IF p_ler_id IS NOT NULL and
10715: l_new_elctbl_flag = 'Y' and
10708: if l_dflt_flag<> l_epe_dflt_flag or
10709: l_new_elctbl_flag <> l_ELCTBL_FLAG then
10710: -- hr_utility.set_location('Dflt flag changed to '||l_dflt_flag,2121);
10711: -- hr_utility.set_location('Elct flag changed to '||l_new_elctbl_flag,2121);
10712: -- hr_utility.set_location('l_pl_id='||l_pl_id,2121);
10713: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,2121);
10714: IF p_ler_id IS NOT NULL and
10715: l_new_elctbl_flag = 'Y' and
10716: l_ELCTBL_FLAG = 'N' THEN
10709: l_new_elctbl_flag <> l_ELCTBL_FLAG then
10710: -- hr_utility.set_location('Dflt flag changed to '||l_dflt_flag,2121);
10711: -- hr_utility.set_location('Elct flag changed to '||l_new_elctbl_flag,2121);
10712: -- hr_utility.set_location('l_pl_id='||l_pl_id,2121);
10713: -- hr_utility.set_location('l_oipl_id='||l_oipl_id,2121);
10714: IF p_ler_id IS NOT NULL and
10715: l_new_elctbl_flag = 'Y' and
10716: l_ELCTBL_FLAG = 'N' THEN
10717: g_electable_choice_created := TRUE;
10716: l_ELCTBL_FLAG = 'N' THEN
10717: g_electable_choice_created := TRUE;
10718: END IF;
10719: if g_debug then
10720: hr_utility.set_location(' BEPECA_UEPEC 1: ' || l_proc, 10);
10721: end if;
10722: ben_elig_per_elc_chc_api.update_perf_elig_per_elc_chc
10723: (p_elig_per_elctbl_chc_id => l_epe_id,
10724: p_dflt_flag => l_dflt_flag,
10730: p_request_id => fnd_global.conc_request_id,
10731: p_program_update_date => sysdate
10732: );
10733: if g_debug then
10734: hr_utility.set_location(' Dn BEPECA_UEPEC 1: ' || l_proc, 10);
10735: end if;
10736: --
10737: --bug#3726552 - update the default flag on benefit row
10738: l_enrt_bnft.enrt_bnft_id := null;
10749: end if;
10750: --
10751: end if;
10752: if g_debug then
10753: hr_utility.set_location(l_proc||' End c_choices loop: ',10);
10754: end if;
10755: end loop;
10756: --
10757: end if;
10755: end loop;
10756: --
10757: end if;
10758: if g_debug then
10759: hr_utility.set_location('Leaving: '||l_proc,10);
10760: end if;
10761: END update_defaults;
10762: -- end of package, below
10763: END ben_enrolment_requirements;