1718: --
1719: -- Contract header specific validation
1720: --
1721: x_return_status := validate_header_attributes(p_secAgreement_rec, 'C');
1722: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1723: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1724: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1725: RAISE OKC_API.G_EXCEPTION_ERROR;
1726: END IF;
1719: -- Contract header specific validation
1720: --
1721: x_return_status := validate_header_attributes(p_secAgreement_rec, 'C');
1722: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1723: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1724: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1725: RAISE OKC_API.G_EXCEPTION_ERROR;
1726: END IF;
1727:
1720: --
1721: x_return_status := validate_header_attributes(p_secAgreement_rec, 'C');
1722: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1723: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1724: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1725: RAISE OKC_API.G_EXCEPTION_ERROR;
1726: END IF;
1727:
1728: OKL_CONTRACT_PUB.validate_contract_header(
1721: x_return_status := validate_header_attributes(p_secAgreement_rec, 'C');
1722: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1723: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1724: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1725: RAISE OKC_API.G_EXCEPTION_ERROR;
1726: END IF;
1727:
1728: OKL_CONTRACT_PUB.validate_contract_header(
1729: p_api_version => p_api_version,
1733: x_msg_data => x_msg_data,
1734: p_chrv_rec => lp_chrv_rec,
1735: p_khrv_rec => lp_khrv_rec);
1736:
1737: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1738: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1739: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1740: RAISE OKC_API.G_EXCEPTION_ERROR;
1741: END IF;
1734: p_chrv_rec => lp_chrv_rec,
1735: p_khrv_rec => lp_khrv_rec);
1736:
1737: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1738: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1739: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1740: RAISE OKC_API.G_EXCEPTION_ERROR;
1741: END IF;
1742:
1735: p_khrv_rec => lp_khrv_rec);
1736:
1737: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1738: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1739: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1740: RAISE OKC_API.G_EXCEPTION_ERROR;
1741: END IF;
1742:
1743: OKL_CONTRACT_PUB.create_contract_header(
1736:
1737: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1738: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1739: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1740: RAISE OKC_API.G_EXCEPTION_ERROR;
1741: END IF;
1742:
1743: OKL_CONTRACT_PUB.create_contract_header(
1744: p_api_version => p_api_version,
1750: p_khrv_rec => lp_khrv_rec,
1751: x_chrv_rec => lx_chrv_rec,
1752: x_khrv_rec => lx_khrv_rec);
1753:
1754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1751: x_chrv_rec => lx_chrv_rec,
1752: x_khrv_rec => lx_khrv_rec);
1753:
1754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759:
1752: x_khrv_rec => lx_khrv_rec);
1753:
1754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759:
1760: x_secAgreement_rec.ID := lx_chrv_rec.id;
1753:
1754: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759:
1760: x_secAgreement_rec.ID := lx_chrv_rec.id;
1761:
1766: -- x_chr_id := lx_chrv_rec.id;
1767:
1768: -- now we attach the party to the header
1769: lp_cplv_rec.object_version_number := 1.0;
1770: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
1771: lp_cplv_rec.dnz_chr_id := lx_chrv_rec.id;
1772: lp_cplv_rec.chr_id := lx_chrv_rec.id;
1773: lp_cplv_rec.cle_id := NULL;
1774: lp_cplv_rec.object1_id1 := lp_chrv_rec.authoring_org_id;
1785: x_msg_data => x_msg_data,
1786: p_cplv_rec => lp_cplv_rec);
1787:
1788:
1789: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1792: RAISE OKC_API.G_EXCEPTION_ERROR;
1793: END IF;
1786: p_cplv_rec => lp_cplv_rec);
1787:
1788:
1789: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1792: RAISE OKC_API.G_EXCEPTION_ERROR;
1793: END IF;
1794:
1787:
1788:
1789: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1792: RAISE OKC_API.G_EXCEPTION_ERROR;
1793: END IF;
1794:
1795: ----- Changes by Kanti
1788:
1789: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1792: RAISE OKC_API.G_EXCEPTION_ERROR;
1793: END IF;
1794:
1795: ----- Changes by Kanti
1796: ----- Validate the JTOT Object code, ID1 and ID2
1801:
1802: IF (l_access_level = 'S') THEN
1803:
1804: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
1805: p_init_msg_list => OKC_API.G_FALSE,
1806: x_return_status => x_return_status,
1807: x_msg_count => x_msg_count,
1808: x_msg_data => x_msg_data,
1809: p_object_name => lp_cplv_rec.jtot_object1_code,
1808: x_msg_data => x_msg_data,
1809: p_object_name => lp_cplv_rec.jtot_object1_code,
1810: p_id1 => lp_cplv_rec.object1_id1,
1811: p_id2 => lp_cplv_rec.object1_id2);
1812: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1814: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1815: RAISE OKC_API.G_EXCEPTION_ERROR;
1816: END IF;
1809: p_object_name => lp_cplv_rec.jtot_object1_code,
1810: p_id1 => lp_cplv_rec.object1_id1,
1811: p_id2 => lp_cplv_rec.object1_id2);
1812: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1814: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1815: RAISE OKC_API.G_EXCEPTION_ERROR;
1816: END IF;
1817:
1810: p_id1 => lp_cplv_rec.object1_id1,
1811: p_id2 => lp_cplv_rec.object1_id2);
1812: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1814: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1815: RAISE OKC_API.G_EXCEPTION_ERROR;
1816: END IF;
1817:
1818: END IF;
1811: p_id2 => lp_cplv_rec.object1_id2);
1812: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1814: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1815: RAISE OKC_API.G_EXCEPTION_ERROR;
1816: END IF;
1817:
1818: END IF;
1819:
1829: x_msg_data => x_msg_data,
1830: p_cplv_rec => lp_cplv_rec,
1831: x_cplv_rec => lx_cplv_rec);
1832:
1833: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1835: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_ERROR;
1837: END IF;
1830: p_cplv_rec => lp_cplv_rec,
1831: x_cplv_rec => lx_cplv_rec);
1832:
1833: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1835: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_ERROR;
1837: END IF;
1838:
1831: x_cplv_rec => lx_cplv_rec);
1832:
1833: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1835: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_ERROR;
1837: END IF;
1838:
1839: --
1832:
1833: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1835: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1836: RAISE OKC_API.G_EXCEPTION_ERROR;
1837: END IF;
1838:
1839: --
1840: -- ************************************************************
1846: -- x_chr_id := lx_chrv_rec.id;
1847:
1848: -- now we attach the party to the header
1849: lp_cplv_rec.object_version_number := 1.0;
1850: lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
1851: lp_cplv_rec.dnz_chr_id := lx_chrv_rec.id;
1852: lp_cplv_rec.chr_id := lx_chrv_rec.id;
1853: lp_cplv_rec.cle_id := NULL;
1854: lp_cplv_rec.object1_id1 := p_secAgreement_rec.trustee_object1_id1;
1865: x_msg_data => x_msg_data,
1866: p_cplv_rec => lp_cplv_rec);
1867:
1868:
1869: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_ERROR;
1873: END IF;
1866: p_cplv_rec => lp_cplv_rec);
1867:
1868:
1869: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_ERROR;
1873: END IF;
1874:
1867:
1868:
1869: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_ERROR;
1873: END IF;
1874:
1875: ----- Changes by Kanti
1868:
1869: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1871: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_ERROR;
1873: END IF;
1874:
1875: ----- Changes by Kanti
1876: ----- Validate the JTOT Object code, ID1 and ID2
1882:
1883: IF (l_access_level = 'S') THEN
1884:
1885: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
1886: p_init_msg_list => OKC_API.G_FALSE,
1887: x_return_status => x_return_status,
1888: x_msg_count => x_msg_count,
1889: x_msg_data => x_msg_data,
1890: p_object_name => lp_cplv_rec.jtot_object1_code,
1889: x_msg_data => x_msg_data,
1890: p_object_name => lp_cplv_rec.jtot_object1_code,
1891: p_id1 => lp_cplv_rec.object1_id1,
1892: p_id2 => lp_cplv_rec.object1_id2);
1893: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1890: p_object_name => lp_cplv_rec.jtot_object1_code,
1891: p_id1 => lp_cplv_rec.object1_id1,
1892: p_id2 => lp_cplv_rec.object1_id2);
1893: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898:
1891: p_id1 => lp_cplv_rec.object1_id1,
1892: p_id2 => lp_cplv_rec.object1_id2);
1893: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898:
1899: END IF;
1892: p_id2 => lp_cplv_rec.object1_id2);
1893: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898:
1899: END IF;
1900:
1909: x_msg_data => x_msg_data,
1910: p_cplv_rec => lp_cplv_rec,
1911: x_cplv_rec => lx_cplv_rec);
1912:
1913: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1914: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1915: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1916: RAISE OKC_API.G_EXCEPTION_ERROR;
1917: END IF;
1910: p_cplv_rec => lp_cplv_rec,
1911: x_cplv_rec => lx_cplv_rec);
1912:
1913: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1914: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1915: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1916: RAISE OKC_API.G_EXCEPTION_ERROR;
1917: END IF;
1918:
1911: x_cplv_rec => lx_cplv_rec);
1912:
1913: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1914: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1915: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1916: RAISE OKC_API.G_EXCEPTION_ERROR;
1917: END IF;
1918:
1919: --
1912:
1913: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1914: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1915: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1916: RAISE OKC_API.G_EXCEPTION_ERROR;
1917: END IF;
1918:
1919: --
1920: -- ************************************************************
2136: --
2137: -- Contract header specific validation
2138: --
2139: x_return_status := validate_header_attributes(p_secAgreement_rec, 'U');
2140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2143: RAISE OKC_API.G_EXCEPTION_ERROR;
2144: END IF;
2137: -- Contract header specific validation
2138: --
2139: x_return_status := validate_header_attributes(p_secAgreement_rec, 'U');
2140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2143: RAISE OKC_API.G_EXCEPTION_ERROR;
2144: END IF;
2145:
2138: --
2139: x_return_status := validate_header_attributes(p_secAgreement_rec, 'U');
2140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2143: RAISE OKC_API.G_EXCEPTION_ERROR;
2144: END IF;
2145:
2146: OKL_CONTRACT_PUB.update_contract_header(
2139: x_return_status := validate_header_attributes(p_secAgreement_rec, 'U');
2140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2143: RAISE OKC_API.G_EXCEPTION_ERROR;
2144: END IF;
2145:
2146: OKL_CONTRACT_PUB.update_contract_header(
2147: p_api_version => p_api_version,
2153: p_khrv_rec => lp_khrv_rec,
2154: x_chrv_rec => lx_chrv_rec,
2155: x_khrv_rec => lx_khrv_rec);
2156:
2157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2154: x_chrv_rec => lx_chrv_rec,
2155: x_khrv_rec => lx_khrv_rec);
2156:
2157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2162:
2155: x_khrv_rec => lx_khrv_rec);
2156:
2157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2162:
2163: -- copy back to x_secAgreement_rec
2156:
2157: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2158: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2159: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2160: RAISE OKC_API.G_EXCEPTION_ERROR;
2161: END IF;
2162:
2163: -- copy back to x_secAgreement_rec
2164:
2190: -- x_chr_id := lx_chrv_rec.id;
2191:
2192: -- now we attach the party to the header
2193: -- lp_cplv_rec.object_version_number := 1.0;
2194: -- lp_cplv_rec.sfwt_flag := OKC_API.G_FALSE;
2195:
2196: -- lp_cplv_rec.dnz_chr_id := lx_chrv_rec.id;
2197: -- lp_cplv_rec.chr_id := lx_chrv_rec.id;
2198: -- lp_cplv_rec.cle_id := null;
2210: x_msg_data => x_msg_data,
2211: p_cplv_rec => lp_cplv_rec);
2212:
2213:
2214: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2216: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2217: RAISE OKC_API.G_EXCEPTION_ERROR;
2218: END IF;
2211: p_cplv_rec => lp_cplv_rec);
2212:
2213:
2214: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2216: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2217: RAISE OKC_API.G_EXCEPTION_ERROR;
2218: END IF;
2219:
2212:
2213:
2214: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2216: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2217: RAISE OKC_API.G_EXCEPTION_ERROR;
2218: END IF;
2219:
2220: ----- Changes by Kanti
2213:
2214: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2215: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2216: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2217: RAISE OKC_API.G_EXCEPTION_ERROR;
2218: END IF;
2219:
2220: ----- Changes by Kanti
2221: ----- Validate the JTOT Object code, ID1 and ID2
2226:
2227: IF (l_access_level = 'S') THEN
2228:
2229: okl_la_validation_util_pvt.VALIDATE_ROLE_JTOT (p_api_version => p_api_version,
2230: p_init_msg_list => OKC_API.G_FALSE,
2231: x_return_status => x_return_status,
2232: x_msg_count => x_msg_count,
2233: x_msg_data => x_msg_data,
2234: p_object_name => lp_cplv_rec.jtot_object1_code,
2233: x_msg_data => x_msg_data,
2234: p_object_name => lp_cplv_rec.jtot_object1_code,
2235: p_id1 => lp_cplv_rec.object1_id1,
2236: p_id2 => lp_cplv_rec.object1_id2);
2237: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2239: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2240: RAISE OKC_API.G_EXCEPTION_ERROR;
2241: END IF;
2234: p_object_name => lp_cplv_rec.jtot_object1_code,
2235: p_id1 => lp_cplv_rec.object1_id1,
2236: p_id2 => lp_cplv_rec.object1_id2);
2237: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2239: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2240: RAISE OKC_API.G_EXCEPTION_ERROR;
2241: END IF;
2242:
2235: p_id1 => lp_cplv_rec.object1_id1,
2236: p_id2 => lp_cplv_rec.object1_id2);
2237: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2239: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2240: RAISE OKC_API.G_EXCEPTION_ERROR;
2241: END IF;
2242:
2243: END IF;
2236: p_id2 => lp_cplv_rec.object1_id2);
2237: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2239: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2240: RAISE OKC_API.G_EXCEPTION_ERROR;
2241: END IF;
2242:
2243: END IF;
2244:
2252: x_msg_data => x_msg_data,
2253: p_cplv_rec => lp_cplv_rec,
2254: x_cplv_rec => lx_cplv_rec);
2255:
2256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2253: p_cplv_rec => lp_cplv_rec,
2254: x_cplv_rec => lx_cplv_rec);
2255:
2256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2261:
2254: x_cplv_rec => lx_cplv_rec);
2255:
2256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2261:
2262: -- copy back to x_secAgreement_rec
2255:
2256: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2258: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2259: RAISE OKC_API.G_EXCEPTION_ERROR;
2260: END IF;
2261:
2262: -- copy back to x_secAgreement_rec
2263: x_secAgreement_rec.trustee_party_roles_id := lx_cplv_rec.id;