[Home] [Help]
44: Begin
45: --
46: hr_utility.set_location('Entering:'||l_proc, 5);
47: --
48: l_api_updating := ben_pln_shd.api_updating
49: (p_effective_date => p_effective_date,
50: p_pl_id => p_pl_id,
51: p_object_version_number => p_object_version_number);
52: --
51: p_object_version_number => p_object_version_number);
52: --
53: if (l_api_updating
54: and nvl(p_pl_id,hr_api.g_number)
55: <> ben_pln_shd.g_old_rec.pl_id) then
56: --
57: -- raise error as PK has changed
58: --
59: ben_pln_shd.constraint_error('BEN_PL_F_PK');
55: <> ben_pln_shd.g_old_rec.pl_id) then
56: --
57: -- raise error as PK has changed
58: --
59: ben_pln_shd.constraint_error('BEN_PL_F_PK');
60: --
61: elsif not l_api_updating then
62: --
63: -- check if PK is null
65: if p_pl_id is not null then
66: --
67: -- raise error as PK is not null
68: --
69: ben_pln_shd.constraint_error('BEN_PL_F_PK');
70: --
71: end if;
72: --
73: end if;
144: Begin
145: --
146: hr_utility.set_location('Entering:'||l_proc, 5);
147: --
148: l_api_updating := ben_pln_shd.api_updating
149: (p_pl_id => p_pl_id,
150: p_effective_date => p_effective_date,
151: p_object_version_number => p_object_version_number);
152: --
150: p_effective_date => p_effective_date,
151: p_object_version_number => p_object_version_number);
152: --
153: if (l_api_updating
154: and p_pl_typ_id <> nvl(ben_pln_shd.g_old_rec.pl_typ_id,hr_api.g_number) )
155: then
156: --
157: -- Get Option Code for old plan type
158: --
155: then
156: --
157: -- Get Option Code for old plan type
158: --
159: open c_get_ptp_opt_typ_cd(ben_pln_shd.g_old_rec.pl_typ_id);
160: fetch c_get_ptp_opt_typ_cd into l_old_opt_typ_cd;
161: --
162: if c_get_ptp_opt_typ_cd%found and l_old_opt_typ_cd = 'COMP'
163: then
226: Begin
227: --
228: hr_utility.set_location('Entering:'||l_proc, 5);
229: --
230: l_api_updating := ben_pln_shd.api_updating
231: (p_effective_date => p_effective_date,
232: p_pl_id => p_pl_id,
233: p_object_version_number => p_object_version_number);
234: --
232: p_pl_id => p_pl_id,
233: p_object_version_number => p_object_version_number);
234: --
235: if (l_api_updating
236: and ben_pln_shd.g_old_rec.cmpr_clms_to_cvg_or_bal_cd is not null
237: and nvl(p_cmpr_clms_to_cvg_or_bal_cd,'zzz') <>
238: ben_pln_shd.g_old_rec.cmpr_clms_to_cvg_or_bal_cd )
239: then
240: --
234: --
235: if (l_api_updating
236: and ben_pln_shd.g_old_rec.cmpr_clms_to_cvg_or_bal_cd is not null
237: and nvl(p_cmpr_clms_to_cvg_or_bal_cd,'zzz') <>
238: ben_pln_shd.g_old_rec.cmpr_clms_to_cvg_or_bal_cd )
239: then
240: --
241: open c1;
242: fetch c1 into l_dummy;
391: end if ;
392:
393: end if ;
394: -- if the type got changed from cwb to non cwb validate the child
395: if ben_pln_shd.g_old_rec.group_pl_id is not null and p_group_pl_id is null then
396: chk_pl_group_child(p_pl_id => p_pl_id ,
397: p_opt_typ_cd => 'CWB' ,
398: p_effective_date => p_effective_date,
399: p_name => p_name) ;
453: Begin
454: --
455: hr_utility.set_location('Entering:'||l_proc, 5);
456: --
457: l_api_updating := ben_pln_shd.api_updating
458: (p_effective_date => p_effective_date,
459: p_pl_id => p_pl_id,
460: p_object_version_number => p_object_version_number);
461: --
460: p_object_version_number => p_object_version_number);
461: --
462: if (l_api_updating
463: and nvl(p_name,hr_api.g_varchar2)
464: <> ben_pln_shd.g_old_rec.name
465: or not l_api_updating) then
466: --
467: -- Check if plan name is unique.
468: --
582: Begin
583: --
584: hr_utility.set_location('Entering:'||l_proc, 5555);
585: --
586: l_api_updating := ben_pln_shd.api_updating
587: (p_effective_date => p_effective_date,
588: p_pl_id => p_pl_id,
589: p_object_version_number => p_object_version_number);
590: --
588: p_pl_id => p_pl_id,
589: p_object_version_number => p_object_version_number);
590: --
591: if (l_api_updating
592: and p_pl_typ_id <> nvl(ben_pln_shd.g_old_rec.pl_typ_id,hr_api.g_number) ) then
593: --
594: open c_epe_exist;
595: --
596: fetch c_epe_exist into l_dummy;
865: Begin
866: --
867: hr_utility.set_location('Entering:'||l_proc, 5);
868: --
869: l_api_updating := ben_pln_shd.api_updating
870: (p_effective_date => p_effective_date,
871: p_pl_id => p_pl_id,
872: p_object_version_number => p_object_version_number);
873: --
872: p_object_version_number => p_object_version_number);
873: --
874: if ( (l_api_updating
875: and nvl(p_dflt_to_asn_pndg_ctfn_cd,hr_api.g_varchar2)
876: <> nvl(ben_pln_shd.g_old_rec.dflt_to_asn_pndg_ctfn_cd, '***'))
877: or not l_api_updating)
878: and p_dflt_to_asn_pndg_ctfn_cd is not null then
879: --
880: if (instr(p_dflt_to_asn_pndg_ctfn_cd,'NL'))>0 then
1079: Begin
1080: --
1081: hr_utility.set_location('Entering:'||l_proc, 5);
1082: --
1083: l_api_updating := ben_pln_shd.api_updating
1084: (p_effective_date => p_effective_date,
1085: p_pl_id => p_pl_id,
1086: p_object_version_number => p_object_version_number);
1087: --
1086: p_object_version_number => p_object_version_number);
1087: --
1088: if (l_api_updating
1089: and nvl(p_vrfy_fmly_mmbr_rl,hr_api.g_number)
1090: <> ben_pln_shd.g_old_rec.vrfy_fmly_mmbr_rl
1091: or not l_api_updating)
1092: and p_vrfy_fmly_mmbr_rl is not null then
1093: --
1094: -- check if value of formula rule is valid.
1187: Begin
1188: --
1189: hr_utility.set_location('Entering:'||l_proc, 5);
1190: --
1191: l_api_updating := ben_pln_shd.api_updating
1192: (p_pl_id => p_pl_id,
1193: p_effective_date => p_effective_date,
1194: p_object_version_number => p_object_version_number);
1195: --
1194: p_object_version_number => p_object_version_number);
1195: --
1196: if (l_api_updating
1197: and p_vrfy_fmly_mmbr_cd
1198: <> nvl(ben_pln_shd.g_old_rec.vrfy_fmly_mmbr_cd,hr_api.g_varchar2)
1199: or not l_api_updating)
1200: and p_vrfy_fmly_mmbr_cd is not null
1201: then
1202: --
1235: --
1236: --
1237: begin
1238: hr_utility.set_location('Entering:'||l_proc, 5);
1239: l_api_updating := ben_pln_shd.api_updating
1240: (p_pl_id => p_pl_id,
1241: p_effective_date => p_effective_date,
1242: p_object_version_number => p_object_version_number);
1243: --
1242: p_object_version_number => p_object_version_number);
1243: --
1244: if (l_api_updating
1245: and p_use_csd_rsd_prccng_cd
1246: <> nvl(ben_pln_shd.g_old_rec.use_csd_rsd_prccng_cd,hr_api.g_varchar2)
1247: or not l_api_updating)
1248: and p_use_csd_rsd_prccng_cd is not null
1249: then
1250: --
1546: Begin
1547: --
1548: hr_utility.set_location('Entering:'||l_proc, 5);
1549: --
1550: l_api_updating := ben_pln_shd.api_updating
1551: (p_effective_date => p_effective_date,
1552: p_pl_id => p_pl_id,
1553: p_object_version_number => p_object_version_number);
1554: --
1626: Begin
1627: --
1628: hr_utility.set_location('Entering:'||l_proc, 5);
1629: --
1630: l_api_updating := ben_pln_shd.api_updating
1631: (p_effective_date => p_effective_date,
1632: p_pl_id => p_pl_id,
1633: p_object_version_number => p_object_version_number);
1634: --
1770: Begin
1771: --
1772: hr_utility.set_location('Entering:'||l_proc, 5);
1773: --
1774: l_api_updating := ben_pln_shd.api_updating
1775: (p_pl_id => p_pl_id,
1776: p_effective_date => p_effective_date,
1777: p_object_version_number => p_object_version_number);
1778: --
1777: p_object_version_number => p_object_version_number);
1778: --
1779: if (l_api_updating
1780: and p_alws_qdro_flag
1781: <> nvl(ben_pln_shd.g_old_rec.alws_qdro_flag,hr_api.g_varchar2)
1782: or not l_api_updating)
1783: and p_alws_qdro_flag is not null then
1784: --
1785: -- check if value of lookup falls within lookup type.
1799: end if;
1800: --
1801: if (l_api_updating
1802: and p_alws_qmcso_flag
1803: <> nvl(ben_pln_shd.g_old_rec.alws_qmcso_flag,hr_api.g_varchar2)
1804: or not l_api_updating)
1805: and p_alws_qmcso_flag is not null then
1806: --
1807: -- check if value of lookup falls within lookup type.
1821: end if;
1822: --
1823: if (l_api_updating
1824: and p_enrt_pl_opt_flag
1825: <> nvl(ben_pln_shd.g_old_rec.enrt_pl_opt_flag,hr_api.g_varchar2)
1826: or not l_api_updating)
1827: and p_enrt_pl_opt_flag is not null then
1828: --
1829: -- check if value of lookup falls within lookup type.
1843: end if;
1844: --
1845: if (l_api_updating
1846: and p_alws_reimbmts_flag
1847: <> nvl(ben_pln_shd.g_old_rec.alws_reimbmts_flag,hr_api.g_varchar2)
1848: or not l_api_updating)
1849: and p_alws_reimbmts_flag is not null then
1850: --
1851: -- check if value of lookup falls within lookup type.
1865: end if;
1866: --
1867: if (l_api_updating
1868: and p_bnf_addl_instn_txt_alwd_flag
1869: <> nvl(ben_pln_shd.g_old_rec.bnf_addl_instn_txt_alwd_flag,hr_api.g_varchar2)
1870: or not l_api_updating)
1871: and p_bnf_addl_instn_txt_alwd_flag is not null then
1872: --
1873: -- check if value of lookup falls within lookup type.
1887: end if;
1888: --
1889: if (l_api_updating
1890: and p_bnf_adrs_rqd_flag
1891: <> nvl(ben_pln_shd.g_old_rec.bnf_adrs_rqd_flag,hr_api.g_varchar2)
1892: or not l_api_updating)
1893: and p_bnf_adrs_rqd_flag is not null then
1894: --
1895: -- check if value of lookup falls within lookup type.
1909: end if;
1910: --
1911: if (l_api_updating
1912: and p_bnf_cntngt_bnfs_alwd_flag
1913: <> nvl(ben_pln_shd.g_old_rec.bnf_cntngt_bnfs_alwd_flag,hr_api.g_varchar2)
1914: or not l_api_updating)
1915: and p_bnf_cntngt_bnfs_alwd_flag is not null then
1916: --
1917: -- check if value of lookup falls within lookup type.
1931: end if;
1932: --
1933: if (l_api_updating
1934: and p_bnf_ctfn_rqd_flag
1935: <> nvl(ben_pln_shd.g_old_rec.bnf_ctfn_rqd_flag,hr_api.g_varchar2)
1936: or not l_api_updating)
1937: and p_bnf_ctfn_rqd_flag is not null then
1938: --
1939: -- check if value of lookup falls within lookup type.
1953: end if;
1954: --
1955: if (l_api_updating
1956: and p_bnf_dob_rqd_flag
1957: <> nvl(ben_pln_shd.g_old_rec.bnf_dob_rqd_flag,hr_api.g_varchar2)
1958: or not l_api_updating)
1959: and p_bnf_dob_rqd_flag is not null then
1960: --
1961: -- check if value of lookup falls within lookup type.
1975: end if;
1976: --
1977: if (l_api_updating
1978: and p_bnf_dsge_mnr_ttee_rqd_flag
1979: <> nvl(ben_pln_shd.g_old_rec.bnf_dsge_mnr_ttee_rqd_flag,hr_api.g_varchar2)
1980: or not l_api_updating)
1981: and p_bnf_dsge_mnr_ttee_rqd_flag is not null then
1982: --
1983: -- check if value of lookup falls within lookup type.
1997: end if;
1998: --
1999: if (l_api_updating
2000: and p_bnf_legv_id_rqd_flag
2001: <> nvl(ben_pln_shd.g_old_rec.bnf_legv_id_rqd_flag,hr_api.g_varchar2)
2002: or not l_api_updating)
2003: and p_bnf_legv_id_rqd_flag is not null then
2004: --
2005: -- check if value of lookup falls within lookup type.
2019: end if;
2020: --
2021: if (l_api_updating
2022: and p_bnf_may_dsgt_org_flag
2023: <> nvl(ben_pln_shd.g_old_rec.bnf_may_dsgt_org_flag,hr_api.g_varchar2)
2024: or not l_api_updating)
2025: and p_bnf_may_dsgt_org_flag is not null then
2026: --
2027: -- check if value of lookup falls within lookup type.
2041: end if;
2042: --
2043: if (l_api_updating
2044: and p_bnf_qdro_rl_apls_flag
2045: <> nvl(ben_pln_shd.g_old_rec.bnf_qdro_rl_apls_flag,hr_api.g_varchar2)
2046: or not l_api_updating)
2047: and p_bnf_qdro_rl_apls_flag is not null then
2048: --
2049: -- check if value of lookup falls within lookup type.
2063: end if;
2064: --
2065: if (l_api_updating
2066: and p_drvbl_fctr_apls_rts_flag
2067: <> nvl(ben_pln_shd.g_old_rec.drvbl_fctr_apls_rts_flag,hr_api.g_varchar2)
2068: or not l_api_updating)
2069: and p_drvbl_fctr_apls_rts_flag is not null then
2070: --
2071: -- check if value of lookup falls within lookup type.
2085: end if;
2086: --
2087: if (l_api_updating
2088: and p_drvbl_fctr_prtn_elig_flag
2089: <> nvl(ben_pln_shd.g_old_rec.drvbl_fctr_prtn_elig_flag,hr_api.g_varchar2)
2090: or not l_api_updating)
2091: and p_drvbl_fctr_prtn_elig_flag is not null then
2092: --
2093: -- check if value of lookup falls within lookup type.
2107: end if;
2108: --
2109: if (l_api_updating
2110: and p_elig_apls_flag
2111: <> nvl(ben_pln_shd.g_old_rec.elig_apls_flag,hr_api.g_varchar2)
2112: or not l_api_updating)
2113: and p_elig_apls_flag is not null then
2114: --
2115: -- check if value of lookup falls within lookup type.
2129: end if;
2130: --
2131: if (l_api_updating
2132: and p_invk_dcln_prtn_pl_flag
2133: <> nvl(ben_pln_shd.g_old_rec.invk_dcln_prtn_pl_flag,hr_api.g_varchar2)
2134: or not l_api_updating)
2135: and p_invk_dcln_prtn_pl_flag is not null then
2136: --
2137: -- check if value of lookup falls within lookup type.
2151: end if;
2152: --
2153: if (l_api_updating
2154: and p_invk_flx_cr_pl_flag
2155: <> nvl(ben_pln_shd.g_old_rec.invk_flx_cr_pl_flag,hr_api.g_varchar2)
2156: or not l_api_updating)
2157: and p_invk_flx_cr_pl_flag is not null then
2158: --
2159: -- check if value of lookup falls within lookup type.
2173: end if;
2174: --
2175: if (l_api_updating
2176: and p_drvbl_dpnt_elig_flag
2177: <> nvl(ben_pln_shd.g_old_rec.drvbl_dpnt_elig_flag,hr_api.g_varchar2)
2178: or not l_api_updating)
2179: and p_drvbl_dpnt_elig_flag is not null then
2180: --
2181: -- check if value of lookup falls within lookup type.
2195: end if;
2196: --
2197: if (l_api_updating
2198: and p_dpnt_adrs_rqd_flag
2199: <> nvl(ben_pln_shd.g_old_rec.dpnt_adrs_rqd_flag,hr_api.g_varchar2)
2200: or not l_api_updating)
2201: and p_dpnt_adrs_rqd_flag is not null then
2202: --
2203: -- check if value of lookup falls within lookup type.
2217: end if;
2218: --
2219: if (l_api_updating
2220: and p_trk_inelig_per_flag
2221: <> nvl(ben_pln_shd.g_old_rec.trk_inelig_per_flag,hr_api.g_varchar2)
2222: or not l_api_updating)
2223: and p_trk_inelig_per_flag is not null then
2224: --
2225: -- check if value of lookup falls within lookup type.
2239: end if;
2240: --
2241: if (l_api_updating
2242: and p_svgs_pl_flag
2243: <> nvl(ben_pln_shd.g_old_rec.svgs_pl_flag,hr_api.g_varchar2)
2244: or not l_api_updating)
2245: and p_svgs_pl_flag is not null then
2246: --
2247: -- check if value of lookup falls within lookup type.
2261: end if;
2262: --
2263: if (l_api_updating
2264: and p_dpnt_cvd_by_othr_apls_flag
2265: <> nvl(ben_pln_shd.g_old_rec.dpnt_cvd_by_othr_apls_flag,hr_api.g_varchar2)
2266: or not l_api_updating)
2267: and p_dpnt_cvd_by_othr_apls_flag is not null then
2268: --
2269: -- check if value of lookup falls within lookup type.
2283: end if;
2284: --
2285: if (l_api_updating
2286: and p_frfs_aply_flag
2287: <> nvl(ben_pln_shd.g_old_rec.frfs_aply_flag,hr_api.g_varchar2)
2288: or not l_api_updating)
2289: and p_frfs_aply_flag is not null then
2290: --
2291: -- check if value of lookup falls within lookup type.
2305: end if;
2306: --
2307: if (l_api_updating
2308: and p_hc_pl_subj_hcfa_aprvl_flag
2309: <> nvl(ben_pln_shd.g_old_rec.hc_pl_subj_hcfa_aprvl_flag,hr_api.g_varchar2)
2310: or not l_api_updating)
2311: and p_hc_pl_subj_hcfa_aprvl_flag is not null then
2312: --
2313: -- check if value of lookup falls within lookup type.
2327: end if;
2328: --
2329: if (l_api_updating
2330: and p_hghly_cmpd_rl_apls_flag
2331: <> nvl(ben_pln_shd.g_old_rec.hghly_cmpd_rl_apls_flag,hr_api.g_varchar2)
2332: or not l_api_updating)
2333: and p_hghly_cmpd_rl_apls_flag is not null then
2334: --
2335: -- check if value of lookup falls within lookup type.
2349: end if;
2350: --
2351: if (l_api_updating
2352: and p_dpnt_leg_id_rqd_flag
2353: <> nvl(ben_pln_shd.g_old_rec.dpnt_leg_id_rqd_flag,hr_api.g_varchar2)
2354: or not l_api_updating)
2355: and p_dpnt_leg_id_rqd_flag is not null then
2356: --
2357: -- check if value of lookup falls within lookup type.
2371: end if;
2372: --
2373: if (l_api_updating
2374: and p_dpnt_dob_rqd_flag
2375: <> nvl(ben_pln_shd.g_old_rec.dpnt_dob_rqd_flag,hr_api.g_varchar2)
2376: or not l_api_updating)
2377: and p_dpnt_dob_rqd_flag is not null then
2378: --
2379: -- check if value of lookup falls within lookup type.
2393: end if;
2394: --
2395: if (l_api_updating
2396: and p_dpnt_no_ctfn_rqd_flag
2397: <> nvl(ben_pln_shd.g_old_rec.dpnt_no_ctfn_rqd_flag,hr_api.g_varchar2)
2398: or not l_api_updating)
2399: and p_dpnt_no_ctfn_rqd_flag is not null then
2400: --
2401: -- check if value of lookup falls within lookup type.
2415: end if;
2416: --
2417: if (l_api_updating
2418: and p_no_mn_cvg_amt_apls_flag
2419: <> nvl(ben_pln_shd.g_old_rec.no_mn_cvg_amt_apls_flag,hr_api.g_varchar2)
2420: or not l_api_updating)
2421: and p_no_mn_cvg_amt_apls_flag is not null then
2422: --
2423: -- check if value of lookup falls within lookup type.
2437: end if;
2438: --
2439: if (l_api_updating
2440: and p_no_mn_cvg_incr_apls_flag
2441: <> nvl(ben_pln_shd.g_old_rec.no_mn_cvg_incr_apls_flag,hr_api.g_varchar2)
2442: or not l_api_updating)
2443: and p_no_mn_cvg_incr_apls_flag is not null then
2444: --
2445: -- check if value of lookup falls within lookup type.
2459: end if;
2460: --
2461: if (l_api_updating
2462: and p_no_mn_opts_num_apls_flag
2463: <> nvl(ben_pln_shd.g_old_rec.no_mn_opts_num_apls_flag,hr_api.g_varchar2)
2464: or not l_api_updating)
2465: and p_no_mn_opts_num_apls_flag is not null then
2466: --
2467: -- check if value of lookup falls within lookup type.
2481: end if;
2482: --
2483: if (l_api_updating
2484: and p_no_mx_cvg_amt_apls_flag
2485: <> nvl(ben_pln_shd.g_old_rec.no_mx_cvg_amt_apls_flag,hr_api.g_varchar2)
2486: or not l_api_updating)
2487: and p_no_mx_cvg_amt_apls_flag is not null then
2488: --
2489: -- check if value of lookup falls within lookup type.
2503: end if;
2504: --
2505: if (l_api_updating
2506: and p_no_mx_cvg_incr_apls_flag
2507: <> nvl(ben_pln_shd.g_old_rec.no_mx_cvg_incr_apls_flag,hr_api.g_varchar2)
2508: or not l_api_updating)
2509: and p_no_mx_cvg_incr_apls_flag is not null then
2510: --
2511: -- check if value of lookup falls within lookup type.
2525: end if;
2526: --
2527: if (l_api_updating
2528: and p_no_mx_opts_num_apls_flag
2529: <> nvl(ben_pln_shd.g_old_rec.no_mx_opts_num_apls_flag,hr_api.g_varchar2)
2530: or not l_api_updating)
2531: and p_no_mx_opts_num_apls_flag is not null then
2532: --
2533: -- check if value of lookup falls within lookup type.
2547: end if;
2548: --
2549: if (l_api_updating
2550: and p_prtn_elig_ovrid_alwd_flag
2551: <> nvl(ben_pln_shd.g_old_rec.prtn_elig_ovrid_alwd_flag,hr_api.g_varchar2)
2552: or not l_api_updating)
2553: and p_prtn_elig_ovrid_alwd_flag is not null then
2554: --
2555: -- check if value of lookup falls within lookup type.
2569: end if;
2570: --
2571: if (l_api_updating
2572: and p_subj_to_imptd_incm_typ_cd
2573: <> nvl(ben_pln_shd.g_old_rec.subj_to_imptd_incm_typ_cd,hr_api.g_varchar2)
2574: or not l_api_updating)
2575: and p_subj_to_imptd_incm_typ_cd is not null then
2576: --
2577: -- check if value of lookup falls within lookup type.
2593: end if;
2594: --
2595: if (l_api_updating
2596: and p_use_all_asnts_elig_flag
2597: <> nvl(ben_pln_shd.g_old_rec.use_all_asnts_elig_flag,hr_api.g_varchar2)
2598: or not l_api_updating)
2599: and p_use_all_asnts_elig_flag is not null then
2600: --
2601: -- check if value of lookup falls within lookup type.
2615: end if;
2616: --
2617: if (l_api_updating
2618: and p_use_all_asnts_for_rt_flag
2619: <> nvl(ben_pln_shd.g_old_rec.use_all_asnts_for_rt_flag,hr_api.g_varchar2)
2620: or not l_api_updating)
2621: and p_use_all_asnts_for_rt_flag is not null then
2622: --
2623: -- check if value of lookup falls within lookup type.
2637: end if;
2638: --
2639: if (l_api_updating
2640: and p_vstg_apls_flag
2641: <> nvl(ben_pln_shd.g_old_rec.vstg_apls_flag,hr_api.g_varchar2)
2642: or not l_api_updating)
2643: and p_vstg_apls_flag is not null then
2644: --
2645: -- check if value of lookup falls within lookup type.
2659: end if;
2660: --
2661: if (l_api_updating
2662: and p_wvbl_flag
2663: <> nvl(ben_pln_shd.g_old_rec.wvbl_flag,hr_api.g_varchar2)
2664: or not l_api_updating)
2665: and p_wvbl_flag is not null then
2666: --
2667: -- check if value of lookup falls within lookup type.
2830: Begin
2831: --
2832: hr_utility.set_location('Entering:'||l_proc, 5);
2833: --
2834: l_api_updating := ben_pln_shd.api_updating
2835: (p_pl_id => p_pl_id,
2836: p_effective_date => p_effective_date,
2837: p_object_version_number => p_object_version_number);
2838: --
2837: p_object_version_number => p_object_version_number);
2838: --
2839: if (l_api_updating
2840: and p_bnf_dflt_bnf_cd
2841: <> nvl(ben_pln_shd.g_old_rec.bnf_dflt_bnf_cd,hr_api.g_varchar2)
2842: or not l_api_updating)
2843: and p_bnf_dflt_bnf_cd is not null then
2844: --
2845: -- check if value of lookup falls within lookup type.
2861: end if;
2862: --
2863: if (l_api_updating
2864: and p_bnf_pct_amt_alwd_cd
2865: <> nvl(ben_pln_shd.g_old_rec.bnf_pct_amt_alwd_cd,hr_api.g_varchar2)
2866: or not l_api_updating)
2867: and p_bnf_pct_amt_alwd_cd is not null then
2868: --
2869: -- check if value of lookup falls within lookup type.
2885: end if;
2886: --
2887: if (l_api_updating
2888: and p_dpnt_dsgn_cd
2889: <> nvl(ben_pln_shd.g_old_rec.dpnt_dsgn_cd,hr_api.g_varchar2)
2890: or not l_api_updating)
2891: and p_dpnt_dsgn_cd is not null then
2892: --
2893: -- check if value of lookup falls within lookup type.
2909: end if;
2910: --
2911: if (l_api_updating
2912: and p_pl_cd
2913: <> nvl(ben_pln_shd.g_old_rec.pl_cd,hr_api.g_varchar2)
2914: or not l_api_updating)
2915: and p_pl_cd is not null then
2916: --
2917: -- check if value of lookup falls within lookup type.
2933: end if;
2934: --
2935: if (l_api_updating
2936: and p_cmpr_clms_to_cvg_or_bal_cd
2937: <> nvl(ben_pln_shd.g_old_rec.cmpr_clms_to_cvg_or_bal_cd,hr_api.g_varchar2)
2938: or not l_api_updating)
2939: and p_cmpr_clms_to_cvg_or_bal_cd is not null then
2940: --
2941: -- check if value of lookup falls within lookup type.
2957: end if;
2958: --
2959: if (l_api_updating
2960: and p_enrt_mthd_cd
2961: <> nvl(ben_pln_shd.g_old_rec.enrt_mthd_cd,hr_api.g_varchar2)
2962: or not l_api_updating)
2963: and p_enrt_mthd_cd is not null then
2964: --
2965: -- check if value of lookup falls within lookup type.
2981: end if;
2982: --
2983: if (l_api_updating
2984: and p_enrt_cd
2985: <> nvl(ben_pln_shd.g_old_rec.enrt_cd,hr_api.g_varchar2)
2986: or not l_api_updating)
2987: and p_enrt_cd is not null then
2988: --
2989: -- check if value of lookup falls within lookup type.
3005: end if;
3006: --
3007: if (l_api_updating
3008: and p_dflt_to_asn_pndg_ctfn_cd
3009: <> nvl(ben_pln_shd.g_old_rec.dflt_to_asn_pndg_ctfn_cd,hr_api.g_varchar2)
3010: or not l_api_updating)
3011: and p_dflt_to_asn_pndg_ctfn_cd is not null then
3012: --
3013: -- check if value of lookup falls within lookup type.
3029: end if;
3030: --
3031: if (l_api_updating
3032: and p_enrt_cvg_strt_dt_cd
3033: <> nvl(ben_pln_shd.g_old_rec.enrt_cvg_strt_dt_cd,hr_api.g_varchar2)
3034: or not l_api_updating)
3035: and p_enrt_cvg_strt_dt_cd is not null then
3036: --
3037: -- check if value of lookup falls within lookup type.
3053: end if;
3054: --
3055: if (l_api_updating
3056: and p_enrt_cvg_end_dt_cd
3057: <> nvl(ben_pln_shd.g_old_rec.enrt_cvg_end_dt_cd,hr_api.g_varchar2)
3058: or not l_api_updating)
3059: and p_enrt_cvg_end_dt_cd is not null then
3060: --
3061: -- check if value of lookup falls within lookup type.
3077: end if;
3078: --
3079: if (l_api_updating
3080: and p_mx_wtg_perd_prte_uom
3081: <> nvl(ben_pln_shd.g_old_rec.mx_wtg_perd_prte_uom,hr_api.g_varchar2)
3082: or not l_api_updating)
3083: and p_mx_wtg_perd_prte_uom is not null then
3084: --
3085: -- check if value of lookup falls within lookup type.
3101: end if;
3102: --
3103: if (l_api_updating
3104: and p_nip_dflt_enrt_cd
3105: <> nvl(ben_pln_shd.g_old_rec.nip_dflt_enrt_cd,hr_api.g_varchar2)
3106: or not l_api_updating)
3107: and p_nip_dflt_enrt_cd is not null then
3108: --
3109: -- check if value of lookup falls within lookup type.
3125: end if;
3126: --
3127: if (l_api_updating
3128: and p_dpnt_cvg_end_dt_cd
3129: <> nvl(ben_pln_shd.g_old_rec.dpnt_cvg_end_dt_cd,hr_api.g_varchar2)
3130: or not l_api_updating)
3131: and p_dpnt_cvg_end_dt_cd is not null then
3132: --
3133: -- check if value of lookup falls within lookup type.
3149: end if;
3150: --
3151: if (l_api_updating
3152: and p_dpnt_cvg_strt_dt_cd
3153: <> nvl(ben_pln_shd.g_old_rec.dpnt_cvg_strt_dt_cd,hr_api.g_varchar2)
3154: or not l_api_updating)
3155: and p_dpnt_cvg_strt_dt_cd is not null then
3156: --
3157: -- check if value of lookup falls within lookup type.
3173: end if;
3174: --
3175: if (l_api_updating
3176: and p_nip_pl_uom
3177: <> nvl(ben_pln_shd.g_old_rec.nip_pl_uom,hr_api.g_varchar2)
3178: or not l_api_updating)
3179: and p_nip_pl_uom is not null then
3180: --
3181: -- check if value of lookup falls within fnd_currencies.
3195: --
3196:
3197: if (l_api_updating
3198: and p_nip_acty_ref_perd_cd
3199: <> nvl(ben_pln_shd.g_old_rec.nip_acty_ref_perd_cd,hr_api.g_varchar2)
3200: or not l_api_updating)
3201: and p_nip_acty_ref_perd_cd is not null then
3202: --
3203: -- check if value of lookup falls within lookup type.
3219: end if;
3220: --
3221: if (l_api_updating
3222: and p_nip_enrt_info_rt_freq_cd
3223: <> nvl(ben_pln_shd.g_old_rec.nip_enrt_info_rt_freq_cd,hr_api.g_varchar2)
3224: or not l_api_updating)
3225: and p_nip_enrt_info_rt_freq_cd is not null then
3226: --
3227: -- check if value of lookup falls within lookup type.
3243: end if;
3244: --
3245: if (l_api_updating
3246: and p_prort_prtl_yr_cvg_rstrn_cd
3247: <> nvl(ben_pln_shd.g_old_rec.prort_prtl_yr_cvg_rstrn_cd,hr_api.g_varchar2)
3248: or not l_api_updating)
3249: and p_prort_prtl_yr_cvg_rstrn_cd is not null then
3250: --
3251: -- check if value of lookup falls within lookup type.
3267: end if;
3268: --
3269: if (l_api_updating
3270: and p_hc_svc_typ_cd
3271: <> nvl(ben_pln_shd.g_old_rec.hc_svc_typ_cd,hr_api.g_varchar2)
3272: or not l_api_updating)
3273: and p_hc_svc_typ_cd is not null then
3274: --
3275: -- check if value of lookup falls within lookup type.
3291: end if;
3292: --
3293: if (l_api_updating
3294: and p_pl_stat_cd
3295: <> nvl(ben_pln_shd.g_old_rec.pl_stat_cd,hr_api.g_varchar2)
3296: or not l_api_updating)
3297: and p_pl_stat_cd is not null then
3298: --
3299: -- check if value of lookup falls within lookup type.
3315: end if;
3316: --
3317: if (l_api_updating
3318: and p_prmry_fndg_mthd_cd
3319: <> nvl(ben_pln_shd.g_old_rec.prmry_fndg_mthd_cd,hr_api.g_varchar2)
3320: or not l_api_updating)
3321: and p_prmry_fndg_mthd_cd is not null then
3322: --
3323: -- check if value of lookup falls within lookup type.
3339: end if;
3340: --
3341: if (l_api_updating
3342: and p_rt_end_dt_cd
3343: <> nvl(ben_pln_shd.g_old_rec.rt_end_dt_cd,hr_api.g_varchar2)
3344: or not l_api_updating)
3345: and p_rt_end_dt_cd is not null then
3346: --
3347: -- check if value of lookup falls within lookup type.
3363: end if;
3364: --
3365: if (l_api_updating
3366: and p_rt_strt_dt_cd
3367: <> nvl(ben_pln_shd.g_old_rec.rt_strt_dt_cd,hr_api.g_varchar2)
3368: or not l_api_updating)
3369: and p_rt_strt_dt_cd is not null then
3370: --
3371: -- check if value of lookup falls within lookup type.
3387: end if;
3388: --
3389: if (l_api_updating
3390: and p_bnf_dsgn_cd
3391: <> nvl(ben_pln_shd.g_old_rec.bnf_dsgn_cd,hr_api.g_varchar2)
3392: or not l_api_updating)
3393: and p_bnf_dsgn_cd is not null then
3394: --
3395: -- check if value of lookup falls within lookup type.
3411: end if;
3412: --
3413: if (l_api_updating
3414: and p_per_cvrd_cd
3415: <> nvl(ben_pln_shd.g_old_rec.per_cvrd_cd,hr_api.g_varchar2)
3416: or not l_api_updating)
3417: and p_per_cvrd_cd is not null then
3418: --
3419: -- check if value of lookup falls within lookup type.
3435: end if;
3436: --
3437: if (l_api_updating
3438: and p_mx_wtg_dt_to_use_cd
3439: <> nvl(ben_pln_shd.g_old_rec.mx_wtg_dt_to_use_cd,hr_api.g_varchar2)
3440: or not l_api_updating)
3441: and p_mx_wtg_dt_to_use_cd is not null then
3442: --
3443: -- check if value of lookup falls within lookup type.
3459: end if;
3460: --
3461: if (l_api_updating
3462: and p_BNFT_OR_OPTION_RSTRCTN_cd
3463: <> nvl(ben_pln_shd.g_old_rec.BNFT_OR_OPTION_RSTRCTN_cd,hr_api.g_varchar2)
3464: or not l_api_updating)
3465: and p_BNFT_OR_OPTION_RSTRCTN_cd is not null then
3466: --
3467: -- check if value of lookup falls within lookup type.
3482: --
3483: end if;
3484: if (l_api_updating
3485: and p_CVG_INCR_R_DECR_ONLY_cd
3486: <> nvl(ben_pln_shd.g_old_rec.CVG_INCR_R_DECR_ONLY_cd,hr_api.g_varchar2)
3487: or not l_api_updating)
3488: and p_CVG_INCR_R_DECR_ONLY_cd is not null then
3489: --
3490: -- check if value of lookup falls within lookup type.
3505: --
3506: end if;
3507: if (l_api_updating
3508: and p_unsspnd_enrt_cd
3509: <> nvl(ben_pln_shd.g_old_rec.unsspnd_enrt_cd,hr_api.g_varchar2)
3510: or not l_api_updating)
3511: and p_unsspnd_enrt_cd is not null then
3512: --
3513: -- check if value of lookup falls within lookup type.
3529: end if;
3530: --
3531: if (l_api_updating
3532: and p_imptd_incm_calc_cd
3533: <> nvl(ben_pln_shd.g_old_rec.imptd_incm_calc_cd,hr_api.g_varchar2)
3534: or not l_api_updating)
3535: and p_imptd_incm_calc_cd is not null then
3536: --
3537: -- check if value of lookup falls within lookup type.
3630: Begin
3631: --
3632: hr_utility.set_location('Entering:'||l_proc, 5);
3633: --
3634: l_api_updating := ben_pln_shd.api_updating
3635: (p_pl_id => p_pl_id,
3636: p_effective_date => p_effective_date,
3637: p_object_version_number => p_object_version_number);
3638: --
3637: p_object_version_number => p_object_version_number);
3638: --
3639: if (l_api_updating
3640: and nvl(p_auto_enrt_mthd_rl,hr_api.g_number)
3641: <> ben_pln_shd.g_old_rec.auto_enrt_mthd_rl
3642: or not l_api_updating)
3643: and p_auto_enrt_mthd_rl is not null then
3644: --
3645: -- check if value of formula rule is valid.
3668: end if;
3669: --
3670: if (l_api_updating
3671: and nvl(p_mn_cvg_rl,hr_api.g_number)
3672: <> ben_pln_shd.g_old_rec.mn_cvg_rl
3673: or not l_api_updating)
3674: and p_mn_cvg_rl is not null then
3675: --
3676: -- check if value of formula rule is valid.
3699: end if;
3700: --
3701: if (l_api_updating
3702: and nvl(p_mx_cvg_rl,hr_api.g_number)
3703: <> ben_pln_shd.g_old_rec.mx_cvg_rl
3704: or not l_api_updating)
3705: and p_mx_cvg_rl is not null then
3706: --
3707: -- check if value of formula rule is valid.
3730: end if;
3731: --
3732: if (l_api_updating
3733: and nvl(p_mx_wtg_perd_rl,hr_api.g_number)
3734: <> ben_pln_shd.g_old_rec.mx_wtg_perd_rl
3735: or not l_api_updating)
3736: and p_mx_wtg_perd_rl is not null then
3737: --
3738: -- check if value of formula rule is valid.
3761: end if;
3762: --
3763: if (l_api_updating
3764: and nvl(p_rqd_perd_enrt_nenrt_rl,hr_api.g_number)
3765: <> ben_pln_shd.g_old_rec.rqd_perd_enrt_nenrt_rl
3766: or not l_api_updating)
3767: and p_rqd_perd_enrt_nenrt_rl is not null then
3768: --
3769: -- check if value of formula rule is valid.
3792: end if;
3793: --
3794: if (l_api_updating
3795: and nvl(p_nip_dflt_enrt_det_rl,hr_api.g_number)
3796: <> ben_pln_shd.g_old_rec.nip_dflt_enrt_det_rl
3797: or not l_api_updating)
3798: and p_nip_dflt_enrt_det_rl is not null then
3799: --
3800: -- check if value of formula rule is valid.
3823: end if;
3824: --
3825: if (l_api_updating
3826: and nvl(p_dpnt_cvg_end_dt_rl,hr_api.g_number)
3827: <> ben_pln_shd.g_old_rec.dpnt_cvg_end_dt_rl
3828: or not l_api_updating)
3829: and p_dpnt_cvg_end_dt_rl is not null then
3830: --
3831: -- check if value of formula rule is valid.
3854: end if;
3855: --
3856: if (l_api_updating
3857: and nvl(p_dpnt_cvg_strt_dt_rl,hr_api.g_number)
3858: <> ben_pln_shd.g_old_rec.dpnt_cvg_strt_dt_rl
3859: or not l_api_updating)
3860: and p_dpnt_cvg_strt_dt_rl is not null then
3861: --
3862: -- check if value of formula rule is valid.
3885: end if;
3886: --
3887: if (l_api_updating
3888: and nvl(p_dflt_to_asn_pndg_ctfn_rl,hr_api.g_number)
3889: <> ben_pln_shd.g_old_rec.dflt_to_asn_pndg_ctfn_rl
3890: or not l_api_updating)
3891: and p_dflt_to_asn_pndg_ctfn_rl is not null then
3892: --
3893: -- check if value of formula rule is valid.
3916: end if;
3917: --
3918: if (l_api_updating
3919: and nvl(p_postelcn_edit_rl,hr_api.g_number)
3920: <> ben_pln_shd.g_old_rec.postelcn_edit_rl
3921: or not l_api_updating)
3922: and p_postelcn_edit_rl is not null then
3923: --
3924: -- check if value of formula rule is valid.
3947: end if;
3948: --
3949: if (l_api_updating
3950: and nvl(p_prort_prtl_yr_cvg_rstrn_rl,hr_api.g_number)
3951: <> ben_pln_shd.g_old_rec.prort_prtl_yr_cvg_rstrn_rl
3952: or not l_api_updating)
3953: and p_prort_prtl_yr_cvg_rstrn_rl is not null then
3954: --
3955: -- check if value of formula rule is valid.
3978: end if;
3979: --
3980: if (l_api_updating
3981: and nvl(p_rt_end_dt_rl,hr_api.g_number)
3982: <> ben_pln_shd.g_old_rec.rt_end_dt_rl
3983: or not l_api_updating)
3984: and p_rt_end_dt_rl is not null then
3985: --
3986: -- check if value of formula rule is valid.
4009: end if;
4010: --
4011: if (l_api_updating
4012: and nvl(p_rt_strt_dt_rl,hr_api.g_number)
4013: <> ben_pln_shd.g_old_rec.rt_strt_dt_rl
4014: or not l_api_updating)
4015: and p_rt_strt_dt_rl is not null then
4016: --
4017: -- check if value of formula rule is valid.
4040: end if;
4041: --
4042: if (l_api_updating
4043: and nvl(p_mx_wtg_dt_to_use_rl,hr_api.g_number)
4044: <> ben_pln_shd.g_old_rec.mx_wtg_dt_to_use_rl
4045: or not l_api_updating)
4046: and p_mx_wtg_dt_to_use_rl is not null then
4047: --
4048: -- check if value of formula rule is valid.
4071: end if;
4072: --
4073: if (l_api_updating
4074: and nvl(p_enrt_cvg_strt_dt_rl,hr_api.g_number)
4075: <> ben_pln_shd.g_old_rec.enrt_cvg_strt_dt_rl
4076: or not l_api_updating)
4077: and p_enrt_cvg_strt_dt_rl is not null then
4078: --
4079: -- check if value of formula rule is valid.
4102: end if;
4103: --
4104: if (l_api_updating
4105: and nvl(p_enrt_cvg_end_dt_rl,hr_api.g_number)
4106: <> ben_pln_shd.g_old_rec.enrt_cvg_end_dt_rl
4107: or not l_api_updating)
4108: and p_enrt_cvg_end_dt_rl is not null then
4109: --
4110: -- check if value of formula rule is valid.
4133: end if;
4134: --
4135: if (l_api_updating
4136: and nvl(p_enrt_rl,hr_api.g_number)
4137: <> ben_pln_shd.g_old_rec.enrt_rl
4138: or not l_api_updating)
4139: and p_enrt_rl is not null then
4140: --
4141: -- check if value of formula rule is valid.
4479: Begin
4480: --
4481: hr_utility.set_location('Entering:'||l_proc, 5);
4482: --
4483: l_api_updating := ben_pln_shd.api_updating
4484: (p_effective_date => p_effective_date,
4485: p_pl_id => p_pl_id,
4486: p_object_version_number => p_object_version_number);
4487: --
4676: Begin
4677: --
4678: hr_utility.set_location('Entering:'||l_proc,5);
4679: --
4680: l_api_updating := ben_pln_shd.api_updating
4681: (p_effective_date => p_effective_date,
4682: p_pl_id => p_pl_id,
4683: p_object_version_number => p_object_version_number);
4684: --
4683: p_object_version_number => p_object_version_number);
4684: --
4685: if (l_api_updating
4686: and ((p_imptd_incm_calc_cd is not null and
4687: ben_pln_shd.g_old_rec.imptd_incm_calc_cd is null) or
4688: (p_invk_flx_cr_pl_flag = 'Y' and
4689: ben_pln_shd.g_old_rec.invk_flx_cr_pl_flag = 'N'))) then
4690: --
4691: open c1;
4685: if (l_api_updating
4686: and ((p_imptd_incm_calc_cd is not null and
4687: ben_pln_shd.g_old_rec.imptd_incm_calc_cd is null) or
4688: (p_invk_flx_cr_pl_flag = 'Y' and
4689: ben_pln_shd.g_old_rec.invk_flx_cr_pl_flag = 'N'))) then
4690: --
4691: open c1;
4692: fetch c1 into l_exists;
4693: if c1%found then
5457: -- ----------------------------------------------------------------------------
5458: -- |---------------------------< insert_validate >----------------------------|
5459: -- ----------------------------------------------------------------------------
5460: Procedure insert_validate
5461: (p_rec in ben_pln_shd.g_rec_type,
5462: p_effective_date in date,
5463: p_datetrack_mode in varchar2,
5464: p_validation_start_date in date,
5465: p_validation_end_date in date) is
5751: -- ----------------------------------------------------------------------------
5752: -- |---------------------------< update_validate >----------------------------|
5753: -- ----------------------------------------------------------------------------
5754: Procedure update_validate
5755: (p_rec in ben_pln_shd.g_rec_type,
5756: p_effective_date in date,
5757: p_datetrack_mode in varchar2,
5758: p_validation_start_date in date,
5759: p_validation_end_date in date) is
6115: -- ----------------------------------------------------------------------------
6116: -- |---------------------------< delete_validate >----------------------------|
6117: -- ----------------------------------------------------------------------------
6118: Procedure delete_validate
6119: (p_rec in ben_pln_shd.g_rec_type,
6120: p_effective_date in date,
6121: p_datetrack_mode in varchar2,
6122: p_validation_start_date in date,
6123: p_validation_end_date in date) is