[Home] [Help]
98: Begin
99: --
100: hr_utility.set_location('Entering: '||l_proc,5);
101: --
102: l_api_updating := ben_pep_shd.api_updating
103: (p_effective_date => p_effective_date,
104: p_elig_per_id => p_elig_per_id,
105: p_object_version_number => p_object_version_number);
106: --
105: p_object_version_number => p_object_version_number);
106: --
107: if (l_api_updating
108: and nvl(p_elig_per_id, hr_api.g_number)
109: <> ben_pep_shd.g_old_rec.elig_per_id) then
110: --
111: -- raise error as PK as changed
112: --
113: ben_pep_shd.constraint_error('BEN_ELIG_PER_F_PK');
109: <> ben_pep_shd.g_old_rec.elig_per_id) then
110: --
111: -- raise error as PK as changed
112: --
113: ben_pep_shd.constraint_error('BEN_ELIG_PER_F_PK');
114: --
115: elsif not l_api_updating then
116: --
117: --check if PK is null
119: if p_elig_per_id is not null then
120: --
121: -- raise error as PK is not null
122: --
123: ben_pep_shd.constraint_error('BEN_ELIG_PER_F_PK');
124: --
125: end if;
126: --
127: end if;
197: fnd_message.raise_error;
198: --
199: end if;
200: --
201: l_api_updating:= ben_pep_shd.api_updating
202: (p_elig_per_id => p_elig_per_id,
203: p_effective_date => p_effective_date,
204: p_object_version_number => p_object_version_number);
205: --
204: p_object_version_number => p_object_version_number);
205: --
206: if (l_api_updating
207: and p_comp_ref_uom
208: <> nvl(ben_pep_shd.g_old_rec.comp_ref_uom,hr_api.g_varchar2)
209: or not l_api_updating) and p_comp_ref_uom IS NOT NULL then
210: --
211: -- check if comp_ref_uom value exists in hr_lookups table
212: --
219: --
220: --raise error as FK does not relate to PK in hr_lookups
221: --table.
222: --
223: ben_pep_shd.constraint_error('BEN_ELIG_PER_HL1');
224: --
225: end if;
226: --
227: close c1;
229: end if;
230: --
231: if (l_api_updating
232: and p_rt_comp_ref_uom
233: <> nvl(ben_pep_shd.g_old_rec.rt_comp_ref_uom,hr_api.g_varchar2)
234: or not l_api_updating) and p_rt_comp_ref_uom IS NOT NULL then
235: --
236: -- check if rt_comp_ref_uom value exists in hr_lookups table
237: --
244: --
245: --raise error as FK does not relate to PK in hr_lookups
246: --table.
247: --
248: ben_pep_shd.constraint_error('BEN_ELIG_PER_HL1');
249: --
250: end if;
251: --
252: close c2;
385: fnd_message.raise_error;
386: --
387: end if;
388: --
389: l_api_updating := ben_pep_shd.api_updating
390: (p_elig_per_id => p_elig_per_id,
391: p_effective_date => p_effective_date,
392: p_object_version_number => p_object_version_number);
393: --
392: p_object_version_number => p_object_version_number);
393: --
394: if (l_api_updating
395: and nvl(p_wv_prtn_rsn_cd,hr_api.g_varchar2)
396: <> nvl(ben_pep_shd.g_old_rec.wv_prtn_rsn_cd,hr_api.g_varchar2)
397: or not l_api_updating) and p_wv_prtn_rsn_cd IS NOT NULL then
398: --
399: -- check if value of lookup falls within lookup type.
400: --
456: Begin
457: --
458: hr_utility.set_location('Entering:'||l_proc, 5);
459: --
460: l_api_updating := ben_pep_shd.api_updating
461: (p_elig_per_id => p_elig_per_id,
462: p_effective_date => p_effective_date,
463: p_object_version_number => p_object_version_number);
464: --
463: p_object_version_number => p_object_version_number);
464: --
465: if (l_api_updating
466: and nvl(p_hrs_wkd_bndry_perd_cd,hr_api.g_varchar2)
467: <> nvl(ben_pep_shd.g_old_rec.hrs_wkd_bndry_perd_cd,hr_api.g_varchar2)
468: or not l_api_updating) and p_hrs_wkd_bndry_perd_cd IS NOT NULL then
469: --
470: -- check if value of lookup falls within lookup type.
471: --
487: end if;
488: --
489: if (l_api_updating
490: and nvl(p_rt_hrs_wkd_bndry_perd_cd,hr_api.g_varchar2)
491: <> nvl(ben_pep_shd.g_old_rec.rt_hrs_wkd_bndry_perd_cd,hr_api.g_varchar2)
492: or not l_api_updating) and p_rt_hrs_wkd_bndry_perd_cd IS NOT NULL then
493: --
494: -- check if value of lookup falls within lookup type.
495: --
606: fnd_message.set_name('BEN','BEN_91280_ELIG_PER_PRD_FLD_WV');
607: fnd_message.raise_error;
608: end if;
609: --
610: l_api_updating := ben_pep_shd.api_updating
611: (p_elig_per_id => p_elig_per_id,
612: p_effective_date => p_effective_date,
613: p_object_version_number => p_object_version_number);
614: --
613: p_object_version_number => p_object_version_number);
614: --
615: if (l_api_updating
616: and p_wv_ctfn_typ_cd
617: <> nvl(ben_pep_shd.g_old_rec.wv_ctfn_typ_cd,hr_api.g_varchar2)
618: or not l_api_updating) and p_wv_ctfn_typ_cd IS NOT NULL then
619: --
620: -- check if value of lookup falls within lookup type.
621: --
685: fnd_message.set_name('BEN','BEN_91279_ELIG_PER_PRD_FLD_OVR');
686: fnd_message.raise_error;
687: end if;*/
688: --
689: l_api_updating := ben_pep_shd.api_updating
690: (p_elig_per_id => p_elig_per_id,
691: p_effective_date => p_effective_date,
692: p_object_version_number => p_object_version_number);
693: --
692: p_object_version_number => p_object_version_number);
693: --
694: if (l_api_updating
695: and p_prtn_ovridn_rsn_cd
696: <> nvl(ben_pep_shd.g_old_rec.prtn_ovridn_rsn_cd,hr_api.g_varchar2)
697: or not l_api_updating) and p_prtn_ovridn_rsn_cd IS NOT NULL then
698: --
699: -- check if value of lookup falls within lookup type.
700: --
774: fnd_message.raise_error;
775: --
776: end if;
777: --
778: l_api_updating := ben_pep_shd.api_updating
779: (p_elig_per_id => p_elig_per_id,
780: p_effective_date => p_effective_date,
781: p_object_version_number => p_object_version_number);
782: --
781: p_object_version_number => p_object_version_number);
782: --
783: if (l_api_updating
784: and p_age_uom
785: <> nvl(ben_pep_shd.g_old_rec.age_uom,hr_api.g_varchar2)
786: or not l_api_updating) and p_age_uom IS NOT NULL then
787: --
788: -- check if value of lookup falls within lookup type.
789: --
804: end if;
805: --
806: if (l_api_updating
807: and p_rt_age_uom
808: <> nvl(ben_pep_shd.g_old_rec.rt_age_uom,hr_api.g_varchar2)
809: or not l_api_updating) and p_rt_age_uom IS NOT NULL then
810: --
811: -- check if value of lookup falls within lookup type.
812: --
886: fnd_message.raise_error;
887: --
888: end if;
889: --
890: l_api_updating := ben_pep_shd.api_updating
891: (p_elig_per_id => p_elig_per_id,
892: p_effective_date => p_effective_date,
893: p_object_version_number => p_object_version_number);
894: --
893: p_object_version_number => p_object_version_number);
894: --
895: if (l_api_updating
896: and p_los_uom
897: <> nvl(ben_pep_shd.g_old_rec.los_uom,hr_api.g_varchar2)
898: or not l_api_updating) and p_los_uom IS NOT NULL then
899: --
900: -- check if value of lookup falls within lookup type.
901: --
916: end if;
917: --
918: if (l_api_updating
919: and p_rt_los_uom
920: <> nvl(ben_pep_shd.g_old_rec.rt_los_uom,hr_api.g_varchar2)
921: or not l_api_updating) and p_rt_los_uom IS NOT NULL then
922: --
923: -- check if value of lookup falls within lookup type.
924: --
981: begin
982: --
983: hr_utility.set_location('Entering: '||l_proc,5);
984: --
985: l_api_updating := ben_pep_shd.api_updating
986: (p_elig_per_id => p_elig_per_id,
987: p_effective_date => p_effective_date,
988: p_object_version_number => p_object_version_number);
989: --
987: p_effective_date => p_effective_date,
988: p_object_version_number => p_object_version_number);
989: --
990: if (l_api_updating and p_once_r_cntug_cd
991: <> nvl(ben_pep_shd.g_old_rec.once_r_cntug_cd,hr_api.g_varchar2)
992: or not l_api_updating)
993: and p_once_r_cntug_cd is not null then
994: --
995: -- check if value of lookup falls within lookup type.
1052: begin
1053: --
1054: hr_utility.set_location('Entering: '||l_proc,5);
1055: --
1056: l_api_updating := ben_pep_shd.api_updating
1057: (p_elig_per_id => p_elig_per_id,
1058: p_effective_date => p_effective_date,
1059: p_object_version_number => p_object_version_number);
1060: --
1058: p_effective_date => p_effective_date,
1059: p_object_version_number => p_object_version_number);
1060: --
1061: if (l_api_updating and p_no_mx_prtn_ovrid_thru_flag
1062: <> nvl(ben_pep_shd.g_old_rec.no_mx_prtn_ovrid_thru_flag,hr_api.g_varchar2)
1063: or not l_api_updating)
1064: and p_no_mx_prtn_ovrid_thru_flag is not null then
1065: --
1066: -- check if value of lookup falls within lookup type.
1127: /*
1128: hr_utility.set_location('Entering: '||l_proc,5);
1129: */
1130: --
1131: l_api_updating := ben_pep_shd.api_updating
1132: (p_elig_per_id => p_elig_per_id,
1133: p_effective_date => p_effective_date,
1134: p_object_version_number => p_object_version_number);
1135: --
1133: p_effective_date => p_effective_date,
1134: p_object_version_number => p_object_version_number);
1135: --
1136: if (l_api_updating and p_frz_comb_age_and_los_flag
1137: <> nvl(ben_pep_shd.g_old_rec.frz_comb_age_and_los_flag,hr_api.g_varchar2)
1138: or not l_api_updating)
1139: and p_frz_comb_age_and_los_flag is not null then
1140: --
1141: -- check if value of lookup falls within lookup type.
1162: --
1163: end if;
1164: --
1165: if (l_api_updating and p_rt_frz_comb_age_and_los_flag
1166: <> nvl(ben_pep_shd.g_old_rec.rt_frz_comb_age_and_los_flag,hr_api.g_varchar2)
1167: or not l_api_updating)
1168: and p_rt_frz_comb_age_and_los_flag is not null then
1169: --
1170: -- check if value of lookup falls within lookup type.
1239: /*
1240: hr_utility.set_location('Entering: '||l_proc,5);
1241: */
1242: --
1243: l_api_updating := ben_pep_shd.api_updating
1244: (p_elig_per_id => p_elig_per_id,
1245: p_effective_date => p_effective_date,
1246: p_object_version_number => p_object_version_number);
1247: --
1245: p_effective_date => p_effective_date,
1246: p_object_version_number => p_object_version_number);
1247: --
1248: if (l_api_updating and p_dpnt_othr_pl_cvrd_rl_flag
1249: <> nvl(ben_pep_shd.g_old_rec.dpnt_othr_pl_cvrd_rl_flag,hr_api.g_varchar2)
1250: or not l_api_updating)
1251: and p_dpnt_othr_pl_cvrd_rl_flag is not null then
1252: --
1253: -- check if value of lookup falls within lookup type.
1311: Begin
1312: --
1313: hr_utility.set_location('Entering: '||l_proc,5);
1314: --
1315: l_api_updating := ben_pep_shd.api_updating
1316: (p_elig_per_id => p_elig_per_id,
1317: p_effective_date => p_effective_date,
1318: p_object_version_number => p_object_version_number);
1319: --
1317: p_effective_date => p_effective_date,
1318: p_object_version_number => p_object_version_number);
1319: --
1320: if (l_api_updating and p_pl_key_ee_flag
1321: <> nvl(ben_pep_shd.g_old_rec.pl_key_ee_flag, hr_api.g_varchar2)
1322: or not l_api_updating)
1323: and p_pl_key_ee_flag is not null then
1324: --
1325: -- check if value of lookup falls within lookup type.
1383: Begin
1384: --
1385: hr_utility.set_location('Entering: '||l_proc,5);
1386: --
1387: l_api_updating := ben_pep_shd.api_updating
1388: (p_elig_per_id => p_elig_per_id,
1389: p_effective_date => p_effective_date,
1390: p_object_version_number => p_object_version_number);
1391: --
1389: p_effective_date => p_effective_date,
1390: p_object_version_number => p_object_version_number);
1391: --
1392: if (l_api_updating and p_prtn_ovridn_flag
1393: <> nvl(ben_pep_shd.g_old_rec.prtn_ovridn_flag,hr_api.g_varchar2)
1394: or not l_api_updating)
1395: and p_prtn_ovridn_flag is not null then
1396: --
1397: -- check if value of lookup falls within lookup type.
1455: Begin
1456: --
1457: hr_utility.set_location('Entering: '||l_proc,5);
1458: --
1459: l_api_updating := ben_pep_shd.api_updating
1460: (p_elig_per_id => p_elig_per_id,
1461: p_effective_date => p_effective_date,
1462: p_object_version_number => p_object_version_number);
1463: --
1461: p_effective_date => p_effective_date,
1462: p_object_version_number => p_object_version_number);
1463: --
1464: if (l_api_updating and p_pl_hghly_compd_flag
1465: <> nvl(ben_pep_shd.g_old_rec.pl_hghly_compd_flag,hr_api.g_varchar2)
1466: or not l_api_updating)
1467: and p_pl_hghly_compd_flag is not null then
1468: --
1469: -- check if value of lookup falls within lookup type.
1532: /*
1533: hr_utility.set_location('Entering: '||l_proc,5);
1534: */
1535: --
1536: l_api_updating := ben_pep_shd.api_updating
1537: (p_elig_per_id => p_elig_per_id,
1538: p_effective_date => p_effective_date,
1539: p_object_version_number => p_object_version_number);
1540: --
1538: p_effective_date => p_effective_date,
1539: p_object_version_number => p_object_version_number);
1540: --
1541: if (l_api_updating and p_frz_los_flag
1542: <> nvl(ben_pep_shd.g_old_rec.frz_los_flag,hr_api.g_varchar2)
1543: or not l_api_updating)
1544: and p_frz_los_flag is not null then
1545: --
1546: -- check if value of lookup falls within lookup type.
1567: --
1568: end if;
1569: --
1570: if (l_api_updating and p_rt_frz_los_flag
1571: <> nvl(ben_pep_shd.g_old_rec.rt_frz_los_flag,hr_api.g_varchar2)
1572: or not l_api_updating)
1573: and p_rt_frz_los_flag is not null then
1574: --
1575: -- check if value of lookup falls within lookup type.
1644: /*
1645: hr_utility.set_location('Entering: '||l_proc,5);
1646: */
1647: --
1648: l_api_updating := ben_pep_shd.api_updating
1649: (p_elig_per_id => p_elig_per_id,
1650: p_effective_date => p_effective_date,
1651: p_object_version_number => p_object_version_number);
1652: --
1650: p_effective_date => p_effective_date,
1651: p_object_version_number => p_object_version_number);
1652: --
1653: if (l_api_updating and p_frz_age_flag
1654: <> nvl(ben_pep_shd.g_old_rec.frz_age_flag,hr_api.g_varchar2)
1655: or not l_api_updating)
1656: and p_frz_age_flag is not null then
1657: --
1658: -- check if value of lookup falls within lookup type.
1679: --
1680: end if;
1681: --
1682: if (l_api_updating and p_rt_frz_age_flag
1683: <> nvl(ben_pep_shd.g_old_rec.rt_frz_age_flag,hr_api.g_varchar2)
1684: or not l_api_updating)
1685: and p_rt_frz_age_flag is not null then
1686: --
1687: -- check if value of lookup falls within lookup type.
1756: /*
1757: hr_utility.set_location('Entering: '||l_proc,5);
1758: */
1759: --
1760: l_api_updating := ben_pep_shd.api_updating
1761: (p_elig_per_id => p_elig_per_id,
1762: p_effective_date => p_effective_date,
1763: p_object_version_number => p_object_version_number);
1764: --
1762: p_effective_date => p_effective_date,
1763: p_object_version_number => p_object_version_number);
1764: --
1765: if (l_api_updating and p_frz_cmp_lvl_flag
1766: <> nvl(ben_pep_shd.g_old_rec.frz_cmp_lvl_flag,hr_api.g_varchar2)
1767: or not l_api_updating)
1768: and p_frz_cmp_lvl_flag is not null then
1769: --
1770: -- check if value of lookup falls within lookup type.
1791: --
1792: end if;
1793: --
1794: if (l_api_updating and p_rt_frz_cmp_lvl_flag
1795: <> nvl(ben_pep_shd.g_old_rec.rt_frz_cmp_lvl_flag,hr_api.g_varchar2)
1796: or not l_api_updating)
1797: and p_rt_frz_cmp_lvl_flag is not null then
1798: --
1799: -- check if value of lookup falls within lookup type.
1868: /*
1869: hr_utility.set_location('Entering: '||l_proc,5);
1870: */
1871: --
1872: l_api_updating := ben_pep_shd.api_updating
1873: (p_elig_per_id => p_elig_per_id,
1874: p_effective_date => p_effective_date,
1875: p_object_version_number => p_object_version_number);
1876: --
1874: p_effective_date => p_effective_date,
1875: p_object_version_number => p_object_version_number);
1876: --
1877: if (l_api_updating and p_frz_pct_fl_tm_flag
1878: <> nvl(ben_pep_shd.g_old_rec.frz_pct_fl_tm_flag,hr_api.g_varchar2)
1879: or not l_api_updating)
1880: and p_frz_pct_fl_tm_flag is not null then
1881: --
1882: -- check if value of lookup falls within lookup type.
1903: --
1904: end if;
1905: --
1906: if (l_api_updating and p_rt_frz_pct_fl_tm_flag
1907: <> nvl(ben_pep_shd.g_old_rec.rt_frz_pct_fl_tm_flag,hr_api.g_varchar2)
1908: or not l_api_updating)
1909: and p_rt_frz_pct_fl_tm_flag is not null then
1910: --
1911: -- check if value of lookup falls within lookup type.
1978: Begin
1979: --
1980: hr_utility.set_location('Entering: '||l_proc,5);
1981: --
1982: l_api_updating := ben_pep_shd.api_updating
1983: (p_elig_per_id => p_elig_per_id,
1984: p_effective_date => p_effective_date,
1985: p_object_version_number => p_object_version_number);
1986: --
1984: p_effective_date => p_effective_date,
1985: p_object_version_number => p_object_version_number);
1986: --
1987: if (l_api_updating and p_frz_hrs_wkd_flag
1988: <> nvl(ben_pep_shd.g_old_rec.frz_hrs_wkd_flag,hr_api.g_varchar2)
1989: or not l_api_updating)
1990: and p_frz_hrs_wkd_flag is not null then
1991: --
1992: -- check if value of lookup falls within lookup type.
2009: --
2010: end if;
2011: --
2012: if (l_api_updating and p_rt_frz_hrs_wkd_flag
2013: <> nvl(ben_pep_shd.g_old_rec.rt_frz_hrs_wkd_flag,hr_api.g_varchar2)
2014: or not l_api_updating)
2015: and p_rt_frz_hrs_wkd_flag is not null then
2016: --
2017: -- check if value of lookup falls within lookup type.
2075: Begin
2076: --
2077: hr_utility.set_location('Entering: '||l_proc,5);
2078: --
2079: l_api_updating := ben_pep_shd.api_updating
2080: (p_elig_per_id => p_elig_per_id,
2081: p_effective_date => p_effective_date,
2082: p_object_version_number => p_object_version_number);
2083: --
2081: p_effective_date => p_effective_date,
2082: p_object_version_number => p_object_version_number);
2083: --
2084: if (l_api_updating and p_dstr_rstcn_flag
2085: <> nvl(ben_pep_shd.g_old_rec.dstr_rstcn_flag,hr_api.g_varchar2)
2086: or not l_api_updating)
2087: and p_dstr_rstcn_flag is not null then
2088: --
2089: -- check if value of lookup falls within lookup type.
2147: Begin
2148: --
2149: hr_utility.set_location('Entering: '||l_proc,5);
2150: --
2151: l_api_updating := ben_pep_shd.api_updating
2152: (p_elig_per_id => p_elig_per_id,
2153: p_effective_date => p_effective_date,
2154: p_object_version_number => p_object_version_number);
2155: --
2153: p_effective_date => p_effective_date,
2154: p_object_version_number => p_object_version_number);
2155: --
2156: if (l_api_updating and p_elig_flag
2157: <> nvl(ben_pep_shd.g_old_rec.elig_flag,hr_api.g_varchar2)
2158: or not l_api_updating)
2159: and p_elig_flag is not null then
2160: --
2161: -- check if value of lookup falls within lookup type.
2219: Begin
2220: --
2221: hr_utility.set_location('Entering: '||l_proc,5);
2222: --
2223: l_api_updating := ben_pep_shd.api_updating
2224: (p_elig_per_id => p_elig_per_id,
2225: p_effective_date => p_effective_date,
2226: p_object_version_number => p_object_version_number);
2227: --
2225: p_effective_date => p_effective_date,
2226: p_object_version_number => p_object_version_number);
2227: --
2228: if (l_api_updating and p_inelg_rsn_cd
2229: <> nvl(ben_pep_shd.g_old_rec.inelg_rsn_cd,hr_api.g_varchar2)
2230: or not l_api_updating)
2231: and p_inelg_rsn_cd is not null then
2232: --
2233: -- check if value of lookup falls within lookup type.
2291: Begin
2292: --
2293: hr_utility.set_location('Entering: '||l_proc,5);
2294: --
2295: l_api_updating := ben_pep_shd.api_updating
2296: (p_elig_per_id => p_elig_per_id,
2297: p_effective_date => p_effective_date,
2298: p_object_version_number => p_object_version_number);
2299: --
2297: p_effective_date => p_effective_date,
2298: p_object_version_number => p_object_version_number);
2299: --
2300: if (l_api_updating and p_pl_wvd_flag
2301: <> nvl(ben_pep_shd.g_old_rec.pl_wvd_flag,hr_api.g_varchar2)
2302: or not l_api_updating)
2303: and p_pl_wvd_flag is not null then
2304: --
2305: -- check if value of lookup falls within lookup type.
2583: -- ----------------------------------------------------------------------------
2584: -- |---------------------------< insert_validate >----------------------------|
2585: -- ----------------------------------------------------------------------------
2586: Procedure insert_validate
2587: (p_rec in ben_pep_shd.g_rec_type,
2588: p_effective_date in date,
2589: p_datetrack_mode in varchar2,
2590: p_validation_start_date in date,
2591: p_validation_end_date in date) is
2780: -- ----------------------------------------------------------------------------
2781: -- |---------------------------< update_validate >----------------------------|
2782: -- ----------------------------------------------------------------------------
2783: Procedure update_validate
2784: (p_rec in ben_pep_shd.g_rec_type,
2785: p_effective_date in date,
2786: p_datetrack_mode in varchar2,
2787: p_validation_start_date in date,
2788: p_validation_end_date in date) is
2989: -- ----------------------------------------------------------------------------
2990: -- |---------------------------< delete_validate >----------------------------|
2991: -- ----------------------------------------------------------------------------
2992: Procedure delete_validate
2993: (p_rec in ben_pep_shd.g_rec_type,
2994: p_effective_date in date,
2995: p_datetrack_mode in varchar2,
2996: p_validation_start_date in date,
2997: p_validation_end_date in date) is