973: p_type => p_type,
974: p_mode => p_mode
975: );
976:
977: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
978: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
980: raise OKC_API.G_EXCEPTION_ERROR;
981: End If;
974: p_mode => p_mode
975: );
976:
977: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
978: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
980: raise OKC_API.G_EXCEPTION_ERROR;
981: End If;
982:
975: );
976:
977: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
978: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
980: raise OKC_API.G_EXCEPTION_ERROR;
981: End If;
982:
983: EXIT WHEN (i = p_rulv_tbl.LAST);
976:
977: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
978: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
979: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
980: raise OKC_API.G_EXCEPTION_ERROR;
981: End If;
982:
983: EXIT WHEN (i = p_rulv_tbl.LAST);
984: i := p_rulv_tbl.NEXT(i);
1087: p_type => 'ACTIVATION',
1088: p_mode => G_INSERT_MODE
1089: );
1090:
1091: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1092: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1094: raise OKC_API.G_EXCEPTION_ERROR;
1095: End If;
1088: p_mode => G_INSERT_MODE
1089: );
1090:
1091: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1092: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1094: raise OKC_API.G_EXCEPTION_ERROR;
1095: End If;
1096:
1089: );
1090:
1091: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1092: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1094: raise OKC_API.G_EXCEPTION_ERROR;
1095: End If;
1096:
1097: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1090:
1091: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1092: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1094: raise OKC_API.G_EXCEPTION_ERROR;
1095: End If;
1096:
1097: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1098: -- validation
1105: x_msg_data => x_msg_data,
1106: p_rulv_tbl => lp_rulv_tbl,
1107: x_rulv_tbl => lx_rulv_tbl);
1108:
1109: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1110: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1111: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1112: raise OKC_API.G_EXCEPTION_ERROR;
1113: End If;
1106: p_rulv_tbl => lp_rulv_tbl,
1107: x_rulv_tbl => lx_rulv_tbl);
1108:
1109: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1110: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1111: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1112: raise OKC_API.G_EXCEPTION_ERROR;
1113: End If;
1114:
1107: x_rulv_tbl => lx_rulv_tbl);
1108:
1109: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1110: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1111: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1112: raise OKC_API.G_EXCEPTION_ERROR;
1113: End If;
1114:
1115: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
1108:
1109: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1110: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1111: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1112: raise OKC_API.G_EXCEPTION_ERROR;
1113: End If;
1114:
1115: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
1116: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
1230: p_type => 'ACTIVATION',
1231: p_mode => G_UPDATE_MODE
1232: );
1233:
1234: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1235: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1236: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1237: raise OKC_API.G_EXCEPTION_ERROR;
1238: End If;
1231: p_mode => G_UPDATE_MODE
1232: );
1233:
1234: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1235: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1236: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1237: raise OKC_API.G_EXCEPTION_ERROR;
1238: End If;
1239:
1232: );
1233:
1234: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1235: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1236: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1237: raise OKC_API.G_EXCEPTION_ERROR;
1238: End If;
1239:
1240: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1233:
1234: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1235: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1236: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1237: raise OKC_API.G_EXCEPTION_ERROR;
1238: End If;
1239:
1240: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1241: -- validation
1248: x_msg_data => x_msg_data,
1249: p_rulv_tbl => lp_rulv_tbl,
1250: x_rulv_tbl => lx_rulv_tbl);
1251:
1252: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1253: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1255: raise OKC_API.G_EXCEPTION_ERROR;
1256: End If;
1249: p_rulv_tbl => lp_rulv_tbl,
1250: x_rulv_tbl => lx_rulv_tbl);
1251:
1252: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1253: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1255: raise OKC_API.G_EXCEPTION_ERROR;
1256: End If;
1257:
1250: x_rulv_tbl => lx_rulv_tbl);
1251:
1252: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1253: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1255: raise OKC_API.G_EXCEPTION_ERROR;
1256: End If;
1257:
1258: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
1251:
1252: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1253: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1254: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1255: raise OKC_API.G_EXCEPTION_ERROR;
1256: End If;
1257:
1258: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
1259: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
1371: p_type => null,
1372: p_mode => G_DELETE_MODE
1373: );
1374:
1375: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1376: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1377: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1378: raise OKC_API.G_EXCEPTION_ERROR;
1379: End If;
1372: p_mode => G_DELETE_MODE
1373: );
1374:
1375: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1376: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1377: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1378: raise OKC_API.G_EXCEPTION_ERROR;
1379: End If;
1380:
1373: );
1374:
1375: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1376: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1377: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1378: raise OKC_API.G_EXCEPTION_ERROR;
1379: End If;
1380:
1381: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1374:
1375: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1376: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1377: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1378: raise OKC_API.G_EXCEPTION_ERROR;
1379: End If;
1380:
1381: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1382:
1387: x_msg_count => x_msg_count,
1388: x_msg_data => x_msg_data,
1389: p_rulv_tbl => lp_rulv_tbl);
1390:
1391: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1392: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1394: raise OKC_API.G_EXCEPTION_ERROR;
1395: End If;
1388: x_msg_data => x_msg_data,
1389: p_rulv_tbl => lp_rulv_tbl);
1390:
1391: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1392: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1394: raise OKC_API.G_EXCEPTION_ERROR;
1395: End If;
1396:
1389: p_rulv_tbl => lp_rulv_tbl);
1390:
1391: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1392: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1394: raise OKC_API.G_EXCEPTION_ERROR;
1395: End If;
1396:
1397: /*** End API body ******************************************************/
1390:
1391: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1392: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1394: raise OKC_API.G_EXCEPTION_ERROR;
1395: End If;
1396:
1397: /*** End API body ******************************************************/
1398:
1515: x_msg_data => x_msg_data,
1516: p_rulv_tbl => lp_rulv_tbl,
1517: x_rulv_tbl => lx_rulv_tbl);
1518:
1519: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1521: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: End If;
1516: p_rulv_tbl => lp_rulv_tbl,
1517: x_rulv_tbl => lx_rulv_tbl);
1518:
1519: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1521: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: End If;
1524:
1517: x_rulv_tbl => lx_rulv_tbl);
1518:
1519: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1521: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: End If;
1524:
1525: /*** End API body ******************************************************/
1518:
1519: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1520: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1521: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1522: raise OKC_API.G_EXCEPTION_ERROR;
1523: End If;
1524:
1525: /*** End API body ******************************************************/
1526:
1722: lp_rulv_rec.id := p_rulv_rec.id;
1723:
1724: -- effective from
1725: IF (p_rulv_rec.rule_information1 IS NOT NULL AND
1726: p_rulv_rec.rule_information1 <> TO_CHAR(OKC_API.G_MISS_DATE,G_UI_DATE_MASK) ) THEN
1727: lp_rulv_rec.rule_information1 := FND_DATE.date_to_canonical(to_date(p_rulv_rec.rule_information1,G_UI_DATE_MASK));
1728: END IF;
1729:
1730: -- effective to
1728: END IF;
1729:
1730: -- effective to
1731: IF (p_rulv_rec.rule_information2 IS NOT NULL AND
1732: p_rulv_rec.rule_information2 <> TO_CHAR(OKC_API.G_MISS_DATE,G_UI_DATE_MASK) ) THEN
1733: lp_rulv_rec.rule_information2 := FND_DATE.date_to_canonical(to_date(p_rulv_rec.rule_information2,G_UI_DATE_MASK));
1734: END IF;
1735:
1736: -- status
1734: END IF;
1735:
1736: -- status
1737: IF (p_rulv_rec.rule_information3 IS NOT NULL AND
1738: p_rulv_rec.rule_information3 <> OKC_API.G_MISS_CHAR ) THEN
1739: lp_rulv_rec.rule_information3 := p_rulv_rec.rule_information3;
1740: END IF;
1741:
1742: lp_rulv_rec.rule_information4 := p_rulv_rec.rule_information4; -- description
1752: x_msg_data => x_msg_data,
1753: p_rulv_rec => lp_rulv_rec,
1754: x_rulv_rec => lx_rulv_rec);
1755:
1756: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1757: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1758: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1759: raise OKC_API.G_EXCEPTION_ERROR;
1760: End If;
1753: p_rulv_rec => lp_rulv_rec,
1754: x_rulv_rec => lx_rulv_rec);
1755:
1756: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1757: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1758: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1759: raise OKC_API.G_EXCEPTION_ERROR;
1760: End If;
1761:
1754: x_rulv_rec => lx_rulv_rec);
1755:
1756: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1757: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1758: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1759: raise OKC_API.G_EXCEPTION_ERROR;
1760: End If;
1761:
1762: --
1755:
1756: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1757: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1758: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1759: raise OKC_API.G_EXCEPTION_ERROR;
1760: End If;
1761:
1762: --
1763: -- validate after image
1877: p_type => 'FUNDING',
1878: p_mode => G_UPDATE_MODE
1879: );
1880:
1881: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1882: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1884: raise OKC_API.G_EXCEPTION_ERROR;
1885: End If;
1878: p_mode => G_UPDATE_MODE
1879: );
1880:
1881: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1882: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1884: raise OKC_API.G_EXCEPTION_ERROR;
1885: End If;
1886:
1879: );
1880:
1881: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1882: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1884: raise OKC_API.G_EXCEPTION_ERROR;
1885: End If;
1886:
1887: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1880:
1881: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1882: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1883: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1884: raise OKC_API.G_EXCEPTION_ERROR;
1885: End If;
1886:
1887: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
1888: -- validation
1895: x_msg_data => x_msg_data,
1896: p_rulv_tbl => lp_rulv_tbl,
1897: x_rulv_tbl => lx_rulv_tbl);
1898:
1899: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1902: raise OKC_API.G_EXCEPTION_ERROR;
1903: End If;
1896: p_rulv_tbl => lp_rulv_tbl,
1897: x_rulv_tbl => lx_rulv_tbl);
1898:
1899: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1902: raise OKC_API.G_EXCEPTION_ERROR;
1903: End If;
1904:
1897: x_rulv_tbl => lx_rulv_tbl);
1898:
1899: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1902: raise OKC_API.G_EXCEPTION_ERROR;
1903: End If;
1904:
1905: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
1898:
1899: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1900: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
1902: raise OKC_API.G_EXCEPTION_ERROR;
1903: End If;
1904:
1905: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
1906: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
2031: x_msg_data => x_msg_data,
2032: p_rulv_rec => lp_rulv_rec,
2033: x_rulv_rec => lx_rulv_rec);
2034:
2035: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2036: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2038: raise OKC_API.G_EXCEPTION_ERROR;
2039: End If;
2032: p_rulv_rec => lp_rulv_rec,
2033: x_rulv_rec => lx_rulv_rec);
2034:
2035: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2036: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2038: raise OKC_API.G_EXCEPTION_ERROR;
2039: End If;
2040:
2033: x_rulv_rec => lx_rulv_rec);
2034:
2035: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2036: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2038: raise OKC_API.G_EXCEPTION_ERROR;
2039: End If;
2040:
2041: /*** End API body ******************************************************/
2034:
2035: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2036: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2037: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2038: raise OKC_API.G_EXCEPTION_ERROR;
2039: End If;
2040:
2041: /*** End API body ******************************************************/
2042:
2143: p_type => 'FUNDING',
2144: p_mode => G_INSERT_MODE
2145: );
2146:
2147: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2148: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2150: raise OKC_API.G_EXCEPTION_ERROR;
2151: End If;
2144: p_mode => G_INSERT_MODE
2145: );
2146:
2147: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2148: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2150: raise OKC_API.G_EXCEPTION_ERROR;
2151: End If;
2152:
2145: );
2146:
2147: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2148: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2150: raise OKC_API.G_EXCEPTION_ERROR;
2151: End If;
2152:
2153: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
2146:
2147: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2148: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2149: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2150: raise OKC_API.G_EXCEPTION_ERROR;
2151: End If;
2152:
2153: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
2154: -- validation
2161: x_msg_data => x_msg_data,
2162: p_rulv_tbl => lp_rulv_tbl,
2163: x_rulv_tbl => lx_rulv_tbl);
2164:
2165: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2166: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2167: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2168: raise OKC_API.G_EXCEPTION_ERROR;
2169: End If;
2162: p_rulv_tbl => lp_rulv_tbl,
2163: x_rulv_tbl => lx_rulv_tbl);
2164:
2165: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2166: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2167: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2168: raise OKC_API.G_EXCEPTION_ERROR;
2169: End If;
2170:
2163: x_rulv_tbl => lx_rulv_tbl);
2164:
2165: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2166: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2167: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2168: raise OKC_API.G_EXCEPTION_ERROR;
2169: End If;
2170:
2171: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
2164:
2165: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2166: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2167: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2168: raise OKC_API.G_EXCEPTION_ERROR;
2169: End If;
2170:
2171: --start: May-10-2005 cklee okl.h Lease Application ER for Authoring
2172: l_return_status := validate_dup_item(p_rulv_rec => p_rulv_tbl(p_rulv_tbl.FIRST),
2283: p_type => null,
2284: p_mode => G_DELETE_MODE
2285: );
2286:
2287: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2288: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2290: raise OKC_API.G_EXCEPTION_ERROR;
2291: End If;
2284: p_mode => G_DELETE_MODE
2285: );
2286:
2287: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2288: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2290: raise OKC_API.G_EXCEPTION_ERROR;
2291: End If;
2292:
2285: );
2286:
2287: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2288: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2290: raise OKC_API.G_EXCEPTION_ERROR;
2291: End If;
2292:
2293: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
2286:
2287: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2288: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2289: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2290: raise OKC_API.G_EXCEPTION_ERROR;
2291: End If;
2292:
2293: --DBMS_OUTPUT.PUT_LINE('after copy_rulv_tbl');
2294: okl_rule_pub.delete_rule(
2298: x_msg_count => x_msg_count,
2299: x_msg_data => x_msg_data,
2300: p_rulv_tbl => lp_rulv_tbl);
2301:
2302: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2303: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2304: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2305: raise OKC_API.G_EXCEPTION_ERROR;
2306: End If;
2299: x_msg_data => x_msg_data,
2300: p_rulv_tbl => lp_rulv_tbl);
2301:
2302: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2303: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2304: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2305: raise OKC_API.G_EXCEPTION_ERROR;
2306: End If;
2307:
2300: p_rulv_tbl => lp_rulv_tbl);
2301:
2302: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2303: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2304: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2305: raise OKC_API.G_EXCEPTION_ERROR;
2306: End If;
2307:
2308: /*** End API body ******************************************************/
2301:
2302: If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
2303: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2304: Elsif (x_return_status = OKC_API.G_RET_STS_ERROR) then
2305: raise OKC_API.G_EXCEPTION_ERROR;
2306: End If;
2307:
2308: /*** End API body ******************************************************/
2309: