[Home] [Help]
42: l_api_updating boolean;
43: --
44: Begin
45: --
46: hr_utility.set_location('Entering:'||l_proc, 5);
47: --
48: l_api_updating := ben_vpf_shd.api_updating
49: (p_effective_date => p_effective_date,
50: p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
71: end if;
72: --
73: end if;
74: --
75: hr_utility.set_location('Leaving:'||l_proc, 10);
76: --
77: End chk_vrbl_rt_prfl_id;
78: --
79: -- ----------------------------------------------------------------------------
117: l_api_updating boolean;
118: --
119: Begin
120: --
121: hr_utility.set_location('Entering:'||l_proc, 5);
122: --
123: l_api_updating := ben_vpf_shd.api_updating
124: (p_effective_date => p_effective_date,
125: p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
177: fnd_message.set_token('RATE_TYPE','Actual Premium');
178: fnd_message.raise_error;
179: --
180: end if;
181: hr_utility.set_location('Reaced here',9999);
182: --
183: End If;
184: --
185: end if;
183: End If;
184: --
185: end if;
186: --
187: hr_utility.set_location('Leaving:'||l_proc, 10);
188: --
189: End chk_vrbl_usg_cd_dependencies;
190: --
191: -- ----------------------------------------------------------------------------
317: and name = p_name
318: and business_group_id = p_business_group_id;
319: --
320: Begin
321: hr_utility.set_location('Entering:'||l_proc, 5);
322: --
323: open c1;
324: fetch c1 into l_dummy;
325: if c1%found then
327: fnd_message.set_name('BEN','BEN_91009_NAME_NOT_UNIQUE');
328: fnd_message.raise_error;
329: end if;
330: --
331: hr_utility.set_location('Leaving:'||l_proc, 15);
332: End chk_name_unique;
333: --
334: -- ----------------------------------------------------------------------------
335: -- |---------------------< chk_lwr_lmt_val_and_rl >---------------------------|
363: l_proc varchar2(72) := g_package||'chk_lwr_lmt_val_and_rl';
364: --
365: Begin
366: --
367: hr_utility.set_location('Entering:'||l_proc, 5);
368: --
369: -- Lower Limit Value and Lower Limit Value Rule fields must be
370: -- mutually exclusive.
371: if (p_lwr_lmt_val is not null and p_lwr_lmt_calc_rl is not null)
412: l_proc varchar2(72) := g_package||'chk_ultmt_lwr_lmt_val_and_rl';
413: --
414: Begin
415: --
416: hr_utility.set_location('Entering:'||l_proc, 5);
417: --
418: -- Lower Limit Value and Lower Limit Value Rule fields must be
419: -- mutually exclusive.
420: if (p_ultmt_lwr_lmt is not null and p_ultmt_lwr_lmt_calc_rl is not null)
460: l_proc varchar2(72) := g_package||'chk_upr_lmt_val_and_rl';
461: --
462: Begin
463: --
464: hr_utility.set_location('Entering:'||l_proc, 5);
465: --
466: -- Upper Limit Value and Upper Limit Value Rule fields must be
467: -- mutually exclusive.
468: if (p_upr_lmt_val is not null and p_upr_lmt_calc_rl is not null)
509: l_proc varchar2(72) := g_package||'chk_ultmt_upr_lmt_val_and_rl';
510: --
511: Begin
512: --
513: hr_utility.set_location('Entering:'||l_proc, 5);
514: --
515: -- Upper Limit Value and Upper Limit Value Rule fields must be
516: -- mutually exclusive.
517: if (p_ultmt_upr_lmt is not null and p_ultmt_upr_lmt_calc_rl is not null)
560: l_api_updating boolean;
561: --
562: Begin
563: --
564: hr_utility.set_location('Entering:'||l_proc, 5);
565: --
566: l_api_updating := ben_vpf_shd.api_updating
567: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
568: p_effective_date => p_effective_date,
582: p_effective_date => p_effective_date) then
583: --
584: -- raise error as does not exist as lookup
585: --
586: hr_utility.set_message(801,'LOOKUP vrbl_rt_prfl_stat_EXIST');
587: hr_utility.raise_error;
588: --
589: end if;
590: --
583: --
584: -- raise error as does not exist as lookup
585: --
586: hr_utility.set_message(801,'LOOKUP vrbl_rt_prfl_stat_EXIST');
587: hr_utility.raise_error;
588: --
589: end if;
590: --
591: end if;
589: end if;
590: --
591: end if;
592: --
593: hr_utility.set_location('Leaving:'||l_proc,10);
594: --
595: end chk_vrbl_rt_prfl_stat_cd;
596: --
597: -- ----------------------------------------------------------------------------
646: and ff.effective_end_date;
647: --
648: Begin
649: --
650: hr_utility.set_location('Entering:'||l_proc, 5);
651: --
652: l_api_updating := ben_vpf_shd.api_updating
653: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
654: p_effective_date => p_effective_date,
673: close c1;
674: --
675: -- raise error
676: --
677: hr_utility.set_message(801,'FORMULA_DOES_NOT_EXIST');
678: hr_utility.raise_error;
679: --
680: end if;
681: --
674: --
675: -- raise error
676: --
677: hr_utility.set_message(801,'FORMULA_DOES_NOT_EXIST');
678: hr_utility.raise_error;
679: --
680: end if;
681: --
682: close c1;
682: close c1;
683: --
684: end if;
685: --
686: hr_utility.set_location('Leaving:'||l_proc,10);
687: --
688: end chk_val_calc_rl;
689: --
690: -- ----------------------------------------------------------------------------
739: and ff.effective_end_date;
740: --
741: Begin
742: --
743: hr_utility.set_location('Entering:'||l_proc, 5);
744: --
745: l_api_updating := ben_vpf_shd.api_updating
746: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
747: p_effective_date => p_effective_date,
766: close c1;
767: --
768: -- raise error
769: --
770: hr_utility.set_message('BEN','BEN_91042_INVALID_RNDG_RL');
771: hr_utility.raise_error;
772: --
773: end if;
774: --
767: --
768: -- raise error
769: --
770: hr_utility.set_message('BEN','BEN_91042_INVALID_RNDG_RL');
771: hr_utility.raise_error;
772: --
773: end if;
774: --
775: close c1;
775: close c1;
776: --
777: end if;
778: --
779: hr_utility.set_location('Leaving:'||l_proc,10);
780: --
781: end chk_rndg_rl;
782: --
783: -- ----------------------------------------------------------------------------
832: and ff.effective_end_date;
833: --
834: Begin
835: --
836: hr_utility.set_location('Entering:'||l_proc, 5);
837: --
838: l_api_updating := ben_vpf_shd.api_updating
839: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
840: p_effective_date => p_effective_date,
859: close c1;
860: --
861: -- raise error
862: --
863: hr_utility.set_message('BEN','BEN_91815_INVALID_LWR_LMT_RL');
864: hr_utility.raise_error;
865: --
866: end if;
867: --
860: --
861: -- raise error
862: --
863: hr_utility.set_message('BEN','BEN_91815_INVALID_LWR_LMT_RL');
864: hr_utility.raise_error;
865: --
866: end if;
867: --
868: close c1;
868: close c1;
869: --
870: end if;
871: --
872: hr_utility.set_location('Leaving:'||l_proc,10);
873: --
874: end chk_lwr_lmt_calc_rl;
875:
876:
926: and ff.effective_end_date;
927: --
928: Begin
929: --
930: hr_utility.set_location('Entering:'||l_proc, 5);
931: --
932: l_api_updating := ben_vpf_shd.api_updating
933: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
934: p_effective_date => p_effective_date,
954: close c1;
955: --
956: -- raise error
957: --
958: hr_utility.set_message('BEN','BEN_91815_INVALID_LWR_LMT_RL');
959: hr_utility.raise_error;
960: --
961: end if;
962: --
955: --
956: -- raise error
957: --
958: hr_utility.set_message('BEN','BEN_91815_INVALID_LWR_LMT_RL');
959: hr_utility.raise_error;
960: --
961: end if;
962: --
963: close c1;
963: close c1;
964: --
965: end if;
966: --
967: hr_utility.set_location('Leaving:'||l_proc,10);
968: --
969: end chk_ultmt_lwr_lmt_calc_rl;
970:
971:
1023: and ff.effective_end_date;
1024: --
1025: Begin
1026: --
1027: hr_utility.set_location('Entering:'||l_proc, 5);
1028: --
1029: l_api_updating := ben_vpf_shd.api_updating
1030: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1031: p_effective_date => p_effective_date,
1050: close c1;
1051: --
1052: -- raise error
1053: --
1054: hr_utility.set_message('BEN','BEN_91823_INVALID_UPR_LMT_RL');
1055: hr_utility.raise_error;
1056: --
1057: end if;
1058: --
1051: --
1052: -- raise error
1053: --
1054: hr_utility.set_message('BEN','BEN_91823_INVALID_UPR_LMT_RL');
1055: hr_utility.raise_error;
1056: --
1057: end if;
1058: --
1059: close c1;
1059: close c1;
1060: --
1061: end if;
1062: --
1063: hr_utility.set_location('Leaving:'||l_proc,10);
1064: --
1065: end chk_upr_lmt_calc_rl;
1066:
1067:
1117: and ff.effective_end_date;
1118: --
1119: Begin
1120: --
1121: hr_utility.set_location('Entering:'||l_proc, 5);
1122: --
1123: l_api_updating := ben_vpf_shd.api_updating
1124: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1125: p_effective_date => p_effective_date,
1144: close c1;
1145: --
1146: -- raise error
1147: --
1148: hr_utility.set_message('BEN','BEN_91823_INVALID_UPR_LMT_RL');
1149: hr_utility.raise_error;
1150: --
1151: end if;
1152: --
1145: --
1146: -- raise error
1147: --
1148: hr_utility.set_message('BEN','BEN_91823_INVALID_UPR_LMT_RL');
1149: hr_utility.raise_error;
1150: --
1151: end if;
1152: --
1153: close c1;
1153: close c1;
1154: --
1155: end if;
1156: --
1157: hr_utility.set_location('Leaving:'||l_proc,10);
1158: --
1159: end chk_ultmt_upr_lmt_calc_rl;
1160:
1161:
1199: l_api_updating boolean;
1200: --
1201: Begin
1202: --
1203: hr_utility.set_location('Entering:'||l_proc, 5);
1204: --
1205: l_api_updating := ben_vpf_shd.api_updating
1206: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1207: p_effective_date => p_effective_date,
1221: p_effective_date => p_effective_date) then
1222: --
1223: -- raise error as does not exist as lookup
1224: --
1225: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: no_mx_elcn_val');
1226: hr_utility.raise_error;
1227: --
1228: end if;
1229: --
1222: --
1223: -- raise error as does not exist as lookup
1224: --
1225: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: no_mx_elcn_val');
1226: hr_utility.raise_error;
1227: --
1228: end if;
1229: --
1230: end if;
1228: end if;
1229: --
1230: end if;
1231: --
1232: hr_utility.set_location('Leaving:'||l_proc,10);
1233: --
1234: end chk_no_mx_elcn_val_dfnd_flag;
1235: --
1236: -- ----------------------------------------------------------------------------
1269: l_api_updating boolean;
1270: --
1271: Begin
1272: --
1273: hr_utility.set_location('Entering:'||l_proc, 5);
1274: --
1275: l_api_updating := ben_vpf_shd.api_updating
1276: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1277: p_effective_date => p_effective_date,
1291: p_effective_date => p_effective_date) then
1292: --
1293: -- raise error as does not exist as lookup
1294: --
1295: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: no_mn_elcn_val');
1296: hr_utility.raise_error;
1297: --
1298: end if;
1299: --
1292: --
1293: -- raise error as does not exist as lookup
1294: --
1295: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: no_mn_elcn_val');
1296: hr_utility.raise_error;
1297: --
1298: end if;
1299: --
1300: end if;
1298: end if;
1299: --
1300: end if;
1301: --
1302: hr_utility.set_location('Leaving:'||l_proc,10);
1303: --
1304: end chk_no_mn_elcn_val_dfnd_flag;
1305: --
1306: -- ----------------------------------------------------------------------------
1339: l_api_updating boolean;
1340: --
1341: Begin
1342: --
1343: hr_utility.set_location('Entering:'||l_proc, 5);
1344: --
1345: l_api_updating := ben_vpf_shd.api_updating
1346: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1347: p_effective_date => p_effective_date,
1361: p_effective_date => p_effective_date) then
1362: --
1363: -- raise error as does not exist as lookup
1364: --
1365: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: alwys_sum_all_cvg');
1366: hr_utility.raise_error;
1367: --
1368: end if;
1369: --
1362: --
1363: -- raise error as does not exist as lookup
1364: --
1365: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: alwys_sum_all_cvg');
1366: hr_utility.raise_error;
1367: --
1368: end if;
1369: --
1370: end if;
1368: end if;
1369: --
1370: end if;
1371: --
1372: hr_utility.set_location('Leaving:'||l_proc,10);
1373: --
1374: end chk_alwys_sum_all_cvg_flag;
1375: --
1376: -- ----------------------------------------------------------------------------
1409: l_api_updating boolean;
1410: --
1411: Begin
1412: --
1413: hr_utility.set_location('Entering:'||l_proc, 5);
1414: --
1415: l_api_updating := ben_vpf_shd.api_updating
1416: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1417: p_effective_date => p_effective_date,
1431: p_effective_date => p_effective_date) then
1432: --
1433: -- raise error as does not exist as lookup
1434: --
1435: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: alwys_cnt_all_prt');
1436: hr_utility.raise_error;
1437: --
1438: end if;
1439: --
1432: --
1433: -- raise error as does not exist as lookup
1434: --
1435: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: alwys_cnt_all_prt');
1436: hr_utility.raise_error;
1437: --
1438: end if;
1439: --
1440: end if;
1438: end if;
1439: --
1440: end if;
1441: --
1442: hr_utility.set_location('Leaving:'||l_proc,10);
1443: --
1444: end chk_alwys_cnt_all_prtts_flag;
1445: --
1446: -- ----------------------------------------------------------------------------
1480: l_lookup_code varchar2(20);
1481: --
1482: Begin
1483: --
1484: hr_utility.set_location('Entering:'||l_proc, 5);
1485: --
1486: l_api_updating := ben_vpf_shd.api_updating
1487: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1488: p_effective_date => p_effective_date,
1526: end if;
1527: --
1528: end if;
1529: --
1530: hr_utility.set_location('Leaving:'||l_proc,10);
1531: --
1532: end chk_mlt_cd;
1533: --
1534: -- ----------------------------------------------------------------------------
1566: l_api_updating boolean;
1567: --
1568: Begin
1569: --
1570: hr_utility.set_location('Entering:'||l_proc, 5);
1571: --
1572: l_api_updating := ben_vpf_shd.api_updating
1573: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1574: p_effective_date => p_effective_date,
1588: p_effective_date => p_effective_date) then
1589: --
1590: -- raise error as does not exist as lookup
1591: --
1592: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: vrbl_usg_cd');
1593: hr_utility.raise_error;
1594: --
1595: end if;
1596: --
1589: --
1590: -- raise error as does not exist as lookup
1591: --
1592: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: vrbl_usg_cd');
1593: hr_utility.raise_error;
1594: --
1595: end if;
1596: --
1597: end if;
1595: end if;
1596: --
1597: end if;
1598: --
1599: hr_utility.set_location('Leaving:'||l_proc,10);
1600: --
1601: end chk_vrbl_usg_cd;
1602: --
1603: -- ----------------------------------------------------------------------------
1635: l_api_updating boolean;
1636: --
1637: Begin
1638: --
1639: hr_utility.set_location('Entering:'||l_proc, 5);
1640: --
1641: l_api_updating := ben_vpf_shd.api_updating
1642: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1643: p_effective_date => p_effective_date,
1666: end if;
1667: --
1668: end if;
1669: --
1670: hr_utility.set_location('Leaving:'||l_proc,10);
1671: --
1672: end chk_asmt_to_use_cd;
1673: --
1674: -- ----------------------------------------------------------------------------
1706: l_api_updating boolean;
1707: --
1708: Begin
1709: --
1710: hr_utility.set_location('Entering:'||l_proc, 5);
1711: --
1712: l_api_updating := ben_vpf_shd.api_updating
1713: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1714: p_effective_date => p_effective_date,
1729: p_effective_date => p_effective_date) then
1730: --
1731: -- raise error as does not exist as lookup
1732: --
1733: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: rndg_cd ');
1734: hr_utility.raise_error;
1735: --
1736: end if;
1737: --
1730: --
1731: -- raise error as does not exist as lookup
1732: --
1733: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: rndg_cd ');
1734: hr_utility.raise_error;
1735: --
1736: end if;
1737: --
1738: end if;
1737: --
1738: end if;
1739: end if;
1740: --
1741: hr_utility.set_location('Leaving:'||l_proc,10);
1742: --
1743: end chk_rndg_cd;
1744: --
1745: -- ----------------------------------------------------------------------------
1775: l_proc varchar2(72) := g_package||'chk_rndg_cd_rl';
1776: --
1777: Begin
1778: --
1779: hr_utility.set_location('Entering:'||l_proc, 5);
1780: --
1781: -- check dependency of Code and Rule.
1782: --
1783: if (p_rndg_cd <> 'RL' and
1793:
1794: --
1795: -- Leaving Procedure.
1796: --
1797: hr_utility.set_location('Leaving:'||l_proc,10);
1798: --
1799: end chk_rndg_cd_rl;
1800: --
1801: -- ----------------------------------------------------------------------------
1833: l_api_updating boolean;
1834: --
1835: Begin
1836: --
1837: hr_utility.set_location('Entering:'||l_proc, 5);
1838: --
1839: l_api_updating := ben_vpf_shd.api_updating
1840: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
1841: p_effective_date => p_effective_date,
1855: p_effective_date => p_effective_date) then
1856: --
1857: -- raise error as does not exist as lookup
1858: --
1859: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: acty_ref_perd');
1860: hr_utility.raise_error;
1861: --
1862: end if;
1863: --
1856: --
1857: -- raise error as does not exist as lookup
1858: --
1859: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: acty_ref_perd');
1860: hr_utility.raise_error;
1861: --
1862: end if;
1863: --
1864: end if;
1862: end if;
1863: --
1864: end if;
1865: --
1866: hr_utility.set_location('Leaving:'||l_proc,10);
1867: --
1868: end chk_acty_ref_perd_cd;
1869: --
1870: -- ----------------------------------------------------------------------------
1897: l_proc varchar2(72) := g_package||'chk_ref_perd_usg_cd';
1898: --
1899: Begin
1900: --
1901: hr_utility.set_location('Entering:'||l_proc, 5);
1902: --
1903: if p_vrbl_usg_cd = 'ACP' then
1904: if p_acty_ref_perd_cd <> 'MO' then
1905: --
1911: end if;
1912: --
1913: end if;
1914: --
1915: hr_utility.set_location('Leaving:'||l_proc,10);
1916: --
1917: end chk_ref_perd_usg_cd;
1918: --
1919: -- ----------------------------------------------------------------------------
1949: l_proc varchar2(72) := g_package||'chk_val_othr_val';
1950: --
1951: Begin
1952: --
1953: hr_utility.set_location('Entering:'||l_proc, 5);
1954: --
1955: -- FLFXPCL uses both p_val and p_mn_elcn_val.
1956: --
1957: if p_val is not null and p_mlt_cd <> 'FLFXPCL' then
1981: end if;
1982: --
1983: end if;
1984: --
1985: hr_utility.set_location('Leaving:'||l_proc,10);
1986: --
1987: end chk_val_othr_val;
1988: --
1989: -- ----------------------------------------------------------------------------
2021: l_api_updating boolean;
2022: --
2023: Begin
2024: --
2025: hr_utility.set_location('Entering:'||l_proc, 5);
2026: --
2027: l_api_updating := ben_vpf_shd.api_updating
2028: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
2029: p_effective_date => p_effective_date,
2043: p_effective_date => p_effective_date) then
2044: --
2045: -- raise error as does not exist as lookup
2046: --
2047: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: rt_trmnt');
2048: hr_utility.raise_error;
2049: --
2050: end if;
2051: --
2044: --
2045: -- raise error as does not exist as lookup
2046: --
2047: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: rt_trmnt');
2048: hr_utility.raise_error;
2049: --
2050: end if;
2051: --
2052: end if;
2050: end if;
2051: --
2052: end if;
2053: --
2054: hr_utility.set_location('Leaving:'||l_proc,10);
2055: --
2056: end chk_vrbl_rt_trtmt_cd;
2057: --
2058: -- ----------------------------------------------------------------------------
2090: l_api_updating boolean;
2091: --
2092: Begin
2093: --
2094: hr_utility.set_location('Entering:'||l_proc, 5);
2095: --
2096: l_api_updating := ben_vpf_shd.api_updating
2097: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
2098: p_effective_date => p_effective_date,
2105: --
2106: -- check if value of lookup falls within lookup type.
2107: --
2108: --
2109: hr_utility.set_location('lookup code is'||p_tx_typ_cd,20);
2110: if hr_api.not_exists_in_hr_lookups
2111: (p_lookup_type => 'BEN_TX_TYP',
2112: p_lookup_code => p_tx_typ_cd,
2113: p_effective_date => p_effective_date) then
2113: p_effective_date => p_effective_date) then
2114: --
2115: -- raise error as does not exist as lookup
2116: --
2117: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: tx_typ');
2118: hr_utility.raise_error;
2119: --
2120: end if;
2121: --
2114: --
2115: -- raise error as does not exist as lookup
2116: --
2117: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: tx_typ');
2118: hr_utility.raise_error;
2119: --
2120: end if;
2121: --
2122: end if;
2120: end if;
2121: --
2122: end if;
2123: --
2124: hr_utility.set_location('Leaving:'||l_proc,10);
2125: --
2126: end chk_tx_typ_cd;
2127: --
2128: -- ----------------------------------------------------------------------------
2160: l_api_updating boolean;
2161: --
2162: Begin
2163: --
2164: hr_utility.set_location('Entering:'||l_proc, 5);
2165: --
2166: l_api_updating := ben_vpf_shd.api_updating
2167: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
2168: p_effective_date => p_effective_date,
2182: p_effective_date => p_effective_date) then
2183: --
2184: -- raise error as does not exist as lookup
2185: --
2186: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: bnft_rt_typ');
2187: hr_utility.raise_error;
2188: --
2189: end if;
2190: --
2183: --
2184: -- raise error as does not exist as lookup
2185: --
2186: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: bnft_rt_typ');
2187: hr_utility.raise_error;
2188: --
2189: end if;
2190: --
2191: end if;
2189: end if;
2190: --
2191: end if;
2192: --
2193: hr_utility.set_location('Leaving:'||l_proc,10);
2194: --
2195: end chk_bnft_rt_typ_cd;
2196: --
2197: -- ----------------------------------------------------------------------------
2229: l_api_updating boolean;
2230: --
2231: Begin
2232: --
2233: hr_utility.set_location('Entering:'||l_proc, 5);
2234: --
2235: l_api_updating := ben_vpf_shd.api_updating
2236: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
2237: p_effective_date => p_effective_date,
2251: p_effective_date => p_effective_date) then
2252: --
2253: -- raise error as does not exist as lookup
2254: --
2255: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: rt_typ');
2256: hr_utility.raise_error;
2257: --
2258: end if;
2259: --
2252: --
2253: -- raise error as does not exist as lookup
2254: --
2255: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: rt_typ');
2256: hr_utility.raise_error;
2257: --
2258: end if;
2259: --
2260: end if;
2258: end if;
2259: --
2260: end if;
2261: --
2262: hr_utility.set_location('Leaving:'||l_proc,10);
2263: --
2264: end chk_rt_typ_cd;
2265: --
2266: -- ----------------------------------------------------------------------------
2298: l_api_updating boolean;
2299: --
2300: Begin
2301: --
2302: hr_utility.set_location('Entering:'||l_proc, 5);
2303: --
2304: l_api_updating := ben_vpf_shd.api_updating
2305: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
2306: p_effective_date => p_effective_date,
2321: p_effective_date => p_effective_date) then
2322: --
2323: -- raise error as does not exist as lookup
2324: --
2325: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: acty_typ');
2326: hr_utility.raise_error;
2327: --
2328: end if;
2329: --
2322: --
2323: -- raise error as does not exist as lookup
2324: --
2325: hr_utility.set_message(801,'LOOKUP_NOT_EXIST: acty_typ');
2326: hr_utility.raise_error;
2327: --
2328: end if;
2329: --
2330: end if;
2328: end if;
2329: --
2330: end if;
2331: --
2332: hr_utility.set_location('Leaving:'||l_proc,10);
2333: --
2334: end chk_acty_typ_cd;
2335: --
2336: -- ----------------------------------------------------------------------------
2375: and effective_end_date;
2376: --
2377: Begin
2378: --
2379: hr_utility.set_location('Entering:'||l_proc, 5);
2380: --
2381: If p_alwys_cnt_all_prtts_flag = 'Y' then
2382: open c1;
2383: fetch c1 into l_dummy;
2390: close c1;
2391: --
2392: end if;
2393: --
2394: hr_utility.set_location('Leaving:'||l_proc,10);
2395: --
2396: end chk_alwys_cnt_all_prtts_def;
2397: --
2398: -- ----------------------------------------------------------------------------
2444: and p_effective_date between etp.effective_start_date and etp.effective_end_date;
2445: --
2446: Begin
2447: --
2448: hr_utility.set_location('Entering:'||l_proc, 5);
2449: --
2450: If p_alwys_cnt_all_prtts_flag = 'Y' then
2451: open c1;
2452: fetch c1 into l_dummy;
2459: close c1;
2460: --
2461: end if;
2462: --
2463: hr_utility.set_location('Leaving:'||l_proc,10);
2464: --
2465: end chk_elig_alwys_cnt_all_prtt_df;
2466:
2467:
2508: and effective_end_date;
2509: --
2510: Begin
2511: --
2512: hr_utility.set_location('Entering:'||l_proc, 5);
2513: --
2514: If p_alwys_sum_all_cvg_flag = 'Y' then
2515: open c1;
2516: fetch c1 into l_dummy;
2523: close c1;
2524: --
2525: end if;
2526: --
2527: hr_utility.set_location('Leaving:'||l_proc,10);
2528: --
2529: end chk_alwys_sum_all_cvg_def;
2530: --
2531: -- ----------------------------------------------------------------------------
2576: and p_effective_date between etc.effective_start_date and etc.effective_end_date;
2577: --
2578: Begin
2579: --
2580: hr_utility.set_location('Entering:'||l_proc, 5);
2581: --
2582: If p_alwys_sum_all_cvg_flag = 'Y' then
2583: open c1;
2584: fetch c1 into l_dummy;
2591: close c1;
2592: --
2593: end if;
2594: --
2595: hr_utility.set_location('Leaving:'||l_proc,10);
2596: --
2597: end chk_elig_alwys_sum_all_cvg_def;
2598:
2599: --
2631: l_proc varchar2(72) := g_package||'chk_usg_acty_tx_for_prem';
2632: --
2633: Begin
2634: --
2635: hr_utility.set_location('Entering:'||l_proc, 5);
2636: --
2637: If p_vrbl_usg_cd = 'ACP' then
2638: if p_tx_typ_cd <> 'NOTAPPLICABLE' then
2639: fnd_message.set_name('BEN','BEN_92260_TX_TYP_MUST_NOTAPP');
2643: fnd_message.set_name('BEN','BEN_92261_ACTY_TYP_RQD');
2644: fnd_message.raise_error;
2645: end if;
2646: --
2647: hr_utility.set_location('Leaving:'||l_proc,10);
2648: --
2649: end chk_usg_acty_tx_for_prem;
2650: --
2651: -- ----------------------------------------------------------------------------
2678: l_proc varchar2(72) := g_package||'chk_alwys_flag_one_def';
2679: --
2680: Begin
2681: --
2682: hr_utility.set_location('Entering:'||l_proc, 5);
2683: --
2684: If p_alwys_cnt_all_prtts_flag = 'Y' and p_alwys_sum_all_cvg_flag = 'Y' then
2685: -- Only one flag can be set to Y
2686: fnd_message.set_name('BEN','BEN_92262_ONE_FLAG_ALWD_SET');
2687: fnd_message.raise_error;
2688: --
2689: end if;
2690: --
2691: hr_utility.set_location('Leaving:'||l_proc,10);
2692: --
2693: end chk_alwys_flag_one_def;
2694: --
2695: -- ----------------------------------------------------------------------------
2748: and a.effective_end_date;
2749: --
2750: Begin
2751: --
2752: hr_utility.set_location('Entering:'||l_proc, 5);
2753: --
2754: if p_mlt_cd <> 'TTLPRTT' then
2755: --
2756: --
2796: close c1;
2797: --
2798: end if;
2799: --
2800: hr_utility.set_location('Leaving:'||l_proc, 10);
2801: --
2802: End chk_ttlprtt_mtl_cd;
2803: --
2804: --
2863: --
2864:
2865: Begin
2866: --
2867: hr_utility.set_location('Entering:'||l_proc, 5);
2868: --
2869: if p_mlt_cd <> 'TTLPRTT' then
2870: --
2871: open c2;
2901: close c1;
2902: --
2903: end if;
2904: --
2905: hr_utility.set_location('Leaving:'||l_proc, 10);
2906: --
2907: End chk_elig_ttlprtt_mtl_cd;
2908: --
2909: --
3031: l_api_updating boolean;
3032: --
3033: Begin
3034: --
3035: hr_utility.set_location('Entering:'||l_proc, 5);
3036: --
3037: if hr_api.not_exists_in_hr_lookups
3038: (p_lookup_type => 'YES_NO',
3039: p_lookup_code => p_rt_hrly_slrd_flag,
3846: fnd_message.raise_error;
3847: --
3848: end if;
3849: --
3850: hr_utility.set_location('Leaving:'||l_proc,10);
3851: --
3852: end chk_profile_flags;
3853: --
3854: -- ----------------------------------------------------------------------------
3892: l_integrity_error Exception;
3893: l_table_name all_tables.table_name%TYPE;
3894: --
3895: Begin
3896: hr_utility.set_location('Entering:'||l_proc, 5);
3897: --
3898: -- Ensure that the p_datetrack_mode argument is not null
3899: --
3900: hr_api.mandatory_arg_error
3951: End If;
3952: --
3953: End If;
3954: --
3955: hr_utility.set_location(' Leaving:'||l_proc, 10);
3956: Exception
3957: When l_integrity_error Then
3958: --
3959: -- A referential integrity check was violated therefore
3958: --
3959: -- A referential integrity check was violated therefore
3960: -- we must error
3961: --
3962: hr_utility.set_message(801, 'HR_7216_DT_UPD_INTEGRITY_ERR');
3963: hr_utility.set_message_token('TABLE_NAME', l_table_name);
3964: hr_utility.raise_error;
3965: When Others Then
3966: --
3959: -- A referential integrity check was violated therefore
3960: -- we must error
3961: --
3962: hr_utility.set_message(801, 'HR_7216_DT_UPD_INTEGRITY_ERR');
3963: hr_utility.set_message_token('TABLE_NAME', l_table_name);
3964: hr_utility.raise_error;
3965: When Others Then
3966: --
3967: -- An unhandled or unexpected error has occurred which
3960: -- we must error
3961: --
3962: hr_utility.set_message(801, 'HR_7216_DT_UPD_INTEGRITY_ERR');
3963: hr_utility.set_message_token('TABLE_NAME', l_table_name);
3964: hr_utility.raise_error;
3965: When Others Then
3966: --
3967: -- An unhandled or unexpected error has occurred which
3968: -- we must report
3966: --
3967: -- An unhandled or unexpected error has occurred which
3968: -- we must report
3969: --
3970: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3971: hr_utility.set_message_token('PROCEDURE', l_proc);
3972: hr_utility.set_message_token('STEP','15');
3973: hr_utility.raise_error;
3974: End dt_update_validate;
3967: -- An unhandled or unexpected error has occurred which
3968: -- we must report
3969: --
3970: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3971: hr_utility.set_message_token('PROCEDURE', l_proc);
3972: hr_utility.set_message_token('STEP','15');
3973: hr_utility.raise_error;
3974: End dt_update_validate;
3975: --
3968: -- we must report
3969: --
3970: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3971: hr_utility.set_message_token('PROCEDURE', l_proc);
3972: hr_utility.set_message_token('STEP','15');
3973: hr_utility.raise_error;
3974: End dt_update_validate;
3975: --
3976: -- ----------------------------------------------------------------------------
3969: --
3970: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3971: hr_utility.set_message_token('PROCEDURE', l_proc);
3972: hr_utility.set_message_token('STEP','15');
3973: hr_utility.raise_error;
3974: End dt_update_validate;
3975: --
3976: -- ----------------------------------------------------------------------------
3977: -- |--------------------------< dt_delete_validate >--------------------------|
4020: l_criteria_rows_exist EXCEPTION;
4021: l_table_name all_tables.table_name%TYPE;
4022: --
4023: Begin
4024: hr_utility.set_location('Entering:'||l_proc, 5);
4025: --
4026: -- Ensure that the p_datetrack_mode argument is not null
4027: --
4028: hr_api.mandatory_arg_error
4668: --
4669: --
4670: End If;
4671: --
4672: hr_utility.set_location(' Leaving:'||l_proc, 10);
4673: Exception
4674: When l_criteria_rows_exist Then
4675: --
4676: -- A referential integrity check was violated therefore
4693: --
4694: -- An unhandled or unexpected error has occurred which
4695: -- we must report
4696: --
4697: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4698: hr_utility.set_message_token('PROCEDURE', l_proc);
4699: hr_utility.set_message_token('STEP','15');
4700: hr_utility.raise_error;
4701: End dt_delete_validate;
4694: -- An unhandled or unexpected error has occurred which
4695: -- we must report
4696: --
4697: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4698: hr_utility.set_message_token('PROCEDURE', l_proc);
4699: hr_utility.set_message_token('STEP','15');
4700: hr_utility.raise_error;
4701: End dt_delete_validate;
4702: --
4695: -- we must report
4696: --
4697: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4698: hr_utility.set_message_token('PROCEDURE', l_proc);
4699: hr_utility.set_message_token('STEP','15');
4700: hr_utility.raise_error;
4701: End dt_delete_validate;
4702: --
4703: -- ----------------------------------------------------------------------------
4696: --
4697: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4698: hr_utility.set_message_token('PROCEDURE', l_proc);
4699: hr_utility.set_message_token('STEP','15');
4700: hr_utility.raise_error;
4701: End dt_delete_validate;
4702: --
4703: -- ----------------------------------------------------------------------------
4704: -- |------< chk_mlt_cd_dependencies >------|
4747: l_api_updating boolean;
4748: --
4749: Begin
4750: --
4751: hr_utility.set_location('Entering:'||l_proc, 5);
4752: --
4753: l_api_updating := ben_vpf_shd.api_updating
4754: (p_vrbl_rt_prfl_id => p_vrbl_rt_prfl_id,
4755: p_effective_date => p_effective_date,
4908: --
4909: end if;
4910:
4911: --
4912: hr_utility.set_location('Leaving:'||l_proc,10);
4913: --
4914: end chk_mlt_cd_dependencies;
4915: --
4916: --
4926: --
4927: l_proc varchar2(72) := g_package||'insert_validate';
4928: --
4929: Begin
4930: hr_utility.set_location('Entering:'||l_proc, 5);
4931: --
4932: -- Call all supporting business operations
4933: --
4934: --
5208: --
5209: END IF;
5210: --
5211:
5212: hr_utility.set_location(' Leaving:'||l_proc, 10);
5213: End insert_validate;
5214: --
5215: -- ----------------------------------------------------------------------------
5216: -- |---------------------------< update_validate >----------------------------|
5224: --
5225: l_proc varchar2(72) := g_package||'update_validate';
5226: --
5227: Begin
5228: hr_utility.set_location('Entering:'||l_proc, 5);
5229: --
5230: -- Call all supporting business operations
5231: --
5232: --
5524: p_datetrack_mode => p_datetrack_mode,
5525: p_validation_start_date => p_validation_start_date,
5526: p_validation_end_date => p_validation_end_date);
5527: --
5528: hr_utility.set_location(' Leaving:'||l_proc, 10);
5529:
5530: --
5531: End update_validate;
5532: --
5552: --
5553: l_vpf_name ben_vrbl_rt_prfl_f.name%type;
5554: --
5555: Begin
5556: hr_utility.set_location('Entering:'||l_proc, 5);
5557: --
5558: OPEN c_vpf_name;
5559: --
5560: FETCH c_vpf_name INTO l_vpf_name;
5569: p_validation_end_date => p_validation_end_date,
5570: p_name => l_vpf_name,
5571: p_vrbl_rt_prfl_id => p_rec.vrbl_rt_prfl_id);
5572: --
5573: hr_utility.set_location(' Leaving:'||l_proc, 10);
5574: End delete_validate;
5575: --
5576: --
5577: -- ---------------------------------------------------------------------------
5596: l_proc varchar2(72) := g_package||'return_legislation_code';
5597: --
5598: begin
5599: --
5600: hr_utility.set_location('Entering:'|| l_proc, 10);
5601: --
5602: -- Ensure that all the mandatory parameter are not null
5603: --
5604: hr_api.mandatory_arg_error(p_api_name => l_proc,
5614: close csr_leg_code;
5615: --
5616: -- The primary key is invalid therefore we must error
5617: --
5618: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
5619: hr_utility.raise_error;
5620: --
5621: end if;
5622: --
5615: --
5616: -- The primary key is invalid therefore we must error
5617: --
5618: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
5619: hr_utility.raise_error;
5620: --
5621: end if;
5622: --
5623: close csr_leg_code;
5621: end if;
5622: --
5623: close csr_leg_code;
5624: --
5625: hr_utility.set_location(' Leaving:'|| l_proc, 20);
5626: --
5627: return l_legislation_code;
5628: --
5629: end return_legislation_code;