91: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
92: G_MODULE||l_api_name,
93: 'Invalid Contract Id: '|| p_contract_id);
94: END IF;
95: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
96: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
97: p_token1 => G_CONTRACT_ID_TOKEN,
98: p_token1_value => to_char(p_contract_id));
99: RAISE FND_API.G_EXC_ERROR;
141: 'OKC_REP_UTIL_PVT.change_contract_status return status is: '
142: || x_return_status);
143: END IF;
144: -----------------------------------------------------
145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
146: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
148: RAISE OKC_API.G_EXCEPTION_ERROR;
149: END IF;
142: || x_return_status);
143: END IF;
144: -----------------------------------------------------
145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
146: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
148: RAISE OKC_API.G_EXCEPTION_ERROR;
149: END IF;
150: --------------------------------------------------------
143: END IF;
144: -----------------------------------------------------
145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
146: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
148: RAISE OKC_API.G_EXCEPTION_ERROR;
149: END IF;
150: --------------------------------------------------------
151:
144: -----------------------------------------------------
145: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
146: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
147: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
148: RAISE OKC_API.G_EXCEPTION_ERROR;
149: END IF;
150: --------------------------------------------------------
151:
152:
171: 'OKC_REP_UTIL_PVT.add_approval_hist_record return status is: '
172: || x_return_status);
173: END IF;
174: -------------------------------------------------------
175: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
178: RAISE OKC_API.G_EXCEPTION_ERROR;
179: END IF;
172: || x_return_status);
173: END IF;
174: -------------------------------------------------------
175: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
178: RAISE OKC_API.G_EXCEPTION_ERROR;
179: END IF;
180: --------------------------------------------------------
173: END IF;
174: -------------------------------------------------------
175: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
178: RAISE OKC_API.G_EXCEPTION_ERROR;
179: END IF;
180: --------------------------------------------------------
181: -- Get the user key
174: -------------------------------------------------------
175: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
177: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
178: RAISE OKC_API.G_EXCEPTION_ERROR;
179: END IF;
180: --------------------------------------------------------
181: -- Get the user key
182: l_user_key := l_contract_number || ':' ||l_contract_type || ':' ||l_org_id|| ':' || l_wf_sequence;
312: 'okc_rep_app_wf_code_hook.launch_custom_app_wf return status is: '
313: || x_return_status);
314: END IF;
315: -------------------------------------------------------
316: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
319: RAISE OKC_API.G_EXCEPTION_ERROR;
320: END IF;
313: || x_return_status);
314: END IF;
315: -------------------------------------------------------
316: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
319: RAISE OKC_API.G_EXCEPTION_ERROR;
320: END IF;
321:
314: END IF;
315: -------------------------------------------------------
316: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
319: RAISE OKC_API.G_EXCEPTION_ERROR;
320: END IF;
321:
322:
315: -------------------------------------------------------
316: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
317: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
318: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
319: RAISE OKC_API.G_EXCEPTION_ERROR;
320: END IF;
321:
322:
323: COMMIT WORK;
377: --close cursors
378: IF (contract_csr%ISOPEN) THEN
379: CLOSE contract_csr ;
380: END IF;
381: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
382: p_msg_name => G_UNEXPECTED_ERROR,
383: p_token1 => G_SQLCODE_TOKEN,
384: p_token1_value => sqlcode,
385: p_token2 => G_SQLERRM_TOKEN,
499: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
500: g_module || l_api_name,
501: 'Leaving delete_contacts because of EXCEPTION: ' || sqlerrm);
502: END IF;
503: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
504: p_msg_name => G_UNEXPECTED_ERROR,
505: p_token1 => G_SQLCODE_TOKEN,
506: p_token1_value => sqlcode,
507: p_token2 => G_SQLERRM_TOKEN,
618: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
619: g_module || l_api_name,
620: 'Leaving delete_parties because of EXCEPTION: ' || sqlerrm);
621: END IF;
622: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
623: p_msg_name => G_UNEXPECTED_ERROR,
624: p_token1 => G_SQLCODE_TOKEN,
625: p_token1_value => sqlcode,
626: p_token2 => G_SQLERRM_TOKEN,
702: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
703: G_MODULE||l_api_name,
704: 'Invalid Contract Id: '|| p_contract_id);
705: END IF;
706: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
707: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
708: p_token1 => G_CONTRACT_ID_TOKEN,
709: p_token1_value => to_char(p_contract_id));
710: RAISE FND_API.G_EXC_ERROR;
775: --close cursors
776: IF (contract_csr%ISOPEN) THEN
777: CLOSE contract_csr ;
778: END IF;
779: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
780: p_msg_name => G_UNEXPECTED_ERROR,
781: p_token1 => G_SQLCODE_TOKEN,
782: p_token1_value => sqlcode,
783: p_token2 => G_SQLERRM_TOKEN,
861: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
862: G_MODULE||l_api_name,
863: 'Invalid Contract Id: '|| p_contract_id);
864: END IF;
865: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
866: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
867: p_token1 => G_CONTRACT_ID_TOKEN,
868: p_token1_value => to_char(p_contract_id));
869: RAISE FND_API.G_EXC_ERROR;
922: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
923: g_module || l_api_name,
924: 'Leaving delete_related_contracts because of EXCEPTION: ' || sqlerrm);
925: END IF;
926: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
927: p_msg_name => G_UNEXPECTED_ERROR,
928: p_token1 => G_SQLCODE_TOKEN,
929: p_token1_value => sqlcode,
930: p_token2 => G_SQLERRM_TOKEN,
1040: x_success => x_success, -- return param. 'T' or 'F'
1041: x_errcode => x_errcode );
1042: -----------------------------------------------------
1043: IF (x_success = 'F' AND x_errcode < 0 ) THEN
1044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: ELSIF (x_success = 'F' AND x_errcode > 0) THEN
1046: RAISE OKC_API.G_EXCEPTION_ERROR;
1047: END IF;
1048: --------------------------------------------------------
1042: -----------------------------------------------------
1043: IF (x_success = 'F' AND x_errcode < 0 ) THEN
1044: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1045: ELSIF (x_success = 'F' AND x_errcode > 0) THEN
1046: RAISE OKC_API.G_EXCEPTION_ERROR;
1047: END IF;
1048: --------------------------------------------------------
1049: END LOOP;
1050: -- Standard check of p_commit
1103: END IF;
1104: IF (acl_csr%ISOPEN) THEN
1105: CLOSE acl_csr ;
1106: END IF;
1107: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1108: p_msg_name => G_UNEXPECTED_ERROR,
1109: p_token1 => G_SQLCODE_TOKEN,
1110: p_token1_value => sqlcode,
1111: p_token2 => G_SQLERRM_TOKEN,
1229: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1230: g_module || l_api_name,
1231: 'Leaving delete_status_history because of EXCEPTION: ' || sqlerrm);
1232: END IF;
1233: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1234: p_msg_name => G_UNEXPECTED_ERROR,
1235: p_token1 => G_SQLCODE_TOKEN,
1236: p_token1_value => sqlcode,
1237: p_token2 => G_SQLERRM_TOKEN,
1358: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1359: g_module || l_api_name,
1360: 'Leaving delete_approval_history because of EXCEPTION: ' || sqlerrm);
1361: END IF;
1362: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1363: p_msg_name => G_UNEXPECTED_ERROR,
1364: p_token1 => G_SQLCODE_TOKEN,
1365: p_token1_value => sqlcode,
1366: p_token2 => G_SQLERRM_TOKEN,
1484: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
1485: g_module || l_api_name,
1486: 'Leaving delete_bookmarks because of EXCEPTION: ' || sqlerrm);
1487: END IF;
1488: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1489: p_msg_name => G_UNEXPECTED_ERROR,
1490: p_token1 => G_SQLCODE_TOKEN,
1491: p_token1_value => sqlcode,
1492: p_token2 => G_SQLERRM_TOKEN,
1556:
1557: IF (lock_csr%ISOPEN) THEN
1558: CLOSE lock_csr;
1559: END IF;
1560: Okc_Api.Set_Message(G_FND_APP,G_UNABLE_TO_RESERVE_REC);
1561: RETURN(FND_API.G_RET_STS_ERROR );
1562: END;
1563:
1564: IF ( l_row_notfound ) THEN
1569: l_row_notfound := lchk_csr%NOTFOUND;
1570: CLOSE lchk_csr;
1571:
1572: IF (l_row_notfound) THEN
1573: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_DELETED);
1574: ELSIF l_object_version_number > p_object_version_number THEN
1575: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
1576: ELSIF l_object_version_number = -1 THEN
1577: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1571:
1572: IF (l_row_notfound) THEN
1573: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_DELETED);
1574: ELSIF l_object_version_number > p_object_version_number THEN
1575: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
1576: ELSIF l_object_version_number = -1 THEN
1577: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1578: ELSE -- it can be the only above condition. It can happen after restore version
1579: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
1573: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_DELETED);
1574: ELSIF l_object_version_number > p_object_version_number THEN
1575: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
1576: ELSIF l_object_version_number = -1 THEN
1577: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1578: ELSE -- it can be the only above condition. It can happen after restore version
1579: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
1580: END IF;
1581: ELSE
1575: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
1576: ELSIF l_object_version_number = -1 THEN
1577: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1578: ELSE -- it can be the only above condition. It can happen after restore version
1579: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
1580: END IF;
1581: ELSE
1582: l_return_status :=FND_API.G_RET_STS_SUCCESS;
1583: END IF;
1605: g_module || l_api_name,
1606: 'Leaving Function Lock_Contract_Header because of EXCEPTION: '||sqlerrm);
1607: END IF;
1608:
1609: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1610: p_msg_name => G_UNEXPECTED_ERROR,
1611: p_token1 => G_SQLCODE_TOKEN,
1612: p_token1_value => sqlcode,
1613: p_token2 => G_SQLERRM_TOKEN,
1693: g_module || l_api_name,
1694: 'Leaving Lock_Contract_Header because of EXCEPTION: '||sqlerrm);
1695: END IF;
1696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1697: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1698: p_msg_name => G_UNEXPECTED_ERROR,
1699: p_token1 => G_SQLCODE_TOKEN,
1700: p_token1_value => sqlcode,
1701: p_token2 => G_SQLERRM_TOKEN,
1792: 'OKC_REP_CONTRACT_PROCESS_PVT.Lock_Contract_Header return status is: '
1793: || x_return_status);
1794: END IF;
1795: -----------------------------------------------------
1796: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1797: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1798: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1799: RAISE OKC_API.G_EXCEPTION_ERROR;
1800: END IF;
1793: || x_return_status);
1794: END IF;
1795: -----------------------------------------------------
1796: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1797: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1798: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1799: RAISE OKC_API.G_EXCEPTION_ERROR;
1800: END IF;
1801: -----------------------------------------------------
1794: END IF;
1795: -----------------------------------------------------
1796: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1797: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1798: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1799: RAISE OKC_API.G_EXCEPTION_ERROR;
1800: END IF;
1801: -----------------------------------------------------
1802:
1795: -----------------------------------------------------
1796: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1797: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1798: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1799: RAISE OKC_API.G_EXCEPTION_ERROR;
1800: END IF;
1801: -----------------------------------------------------
1802:
1803: -- The contract version
1809: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
1810: G_MODULE||l_api_name,
1811: 'Invalid Contract Id: '|| p_contract_id);
1812: END IF;
1813: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1814: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
1815: p_token1 => G_CONTRACT_ID_TOKEN,
1816: p_token1_value => to_char(p_contract_id));
1817: RAISE FND_API.G_EXC_ERROR;
1837: 'OKC_REP_CONTRACT_PROCESS_PVT.delete_contacts return status is: '
1838: || x_return_status);
1839: END IF;
1840: -----------------------------------------------------
1841: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1842: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1843: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1844: RAISE OKC_API.G_EXCEPTION_ERROR;
1845: END IF;
1838: || x_return_status);
1839: END IF;
1840: -----------------------------------------------------
1841: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1842: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1843: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1844: RAISE OKC_API.G_EXCEPTION_ERROR;
1845: END IF;
1846: -----------------------------------------------------
1839: END IF;
1840: -----------------------------------------------------
1841: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1842: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1843: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1844: RAISE OKC_API.G_EXCEPTION_ERROR;
1845: END IF;
1846: -----------------------------------------------------
1847:
1840: -----------------------------------------------------
1841: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1842: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1843: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1844: RAISE OKC_API.G_EXCEPTION_ERROR;
1845: END IF;
1846: -----------------------------------------------------
1847:
1848:
1863: 'OKC_REP_CONTRACT_PROCESS_PVT.delete_parties return status is: '
1864: || x_return_status);
1865: END IF;
1866: -----------------------------------------------------
1867: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1868: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1869: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_ERROR;
1871: END IF;
1864: || x_return_status);
1865: END IF;
1866: -----------------------------------------------------
1867: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1868: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1869: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_ERROR;
1871: END IF;
1872: --------------------------------------------------------
1865: END IF;
1866: -----------------------------------------------------
1867: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1868: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1869: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_ERROR;
1871: END IF;
1872: --------------------------------------------------------
1873:
1866: -----------------------------------------------------
1867: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1868: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1869: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1870: RAISE OKC_API.G_EXCEPTION_ERROR;
1871: END IF;
1872: --------------------------------------------------------
1873:
1874:
1889: 'OKC_REP_CONTRACT_PROCESS_PVT.delete_risks return status is: '
1890: || x_return_status);
1891: END IF;
1892: -----------------------------------------------------
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: || x_return_status);
1891: END IF;
1892: -----------------------------------------------------
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: END IF;
1892: -----------------------------------------------------
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:
1892: -----------------------------------------------------
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:
1900:
1915: 'OKC_REP_CONTRACT_PROCESS_PVT.delete_ACL return status is: '
1916: || x_return_status);
1917: END IF;
1918: -----------------------------------------------------
1919: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1920: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1921: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1922: RAISE OKC_API.G_EXCEPTION_ERROR;
1923: END IF;
1916: || x_return_status);
1917: END IF;
1918: -----------------------------------------------------
1919: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1920: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1921: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1922: RAISE OKC_API.G_EXCEPTION_ERROR;
1923: END IF;
1924: --------------------------------------------------------
1917: END IF;
1918: -----------------------------------------------------
1919: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1920: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1921: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1922: RAISE OKC_API.G_EXCEPTION_ERROR;
1923: END IF;
1924: --------------------------------------------------------
1925:
1918: -----------------------------------------------------
1919: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1920: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1921: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1922: RAISE OKC_API.G_EXCEPTION_ERROR;
1923: END IF;
1924: --------------------------------------------------------
1925:
1926:
1942: 'OKC_REP_CONTRACT_PROCESS_PVT.delete_status_history return status is: '
1943: || x_return_status);
1944: END IF;
1945: -----------------------------------------------------
1946: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1948: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_ERROR;
1950: END IF;
1943: || x_return_status);
1944: END IF;
1945: -----------------------------------------------------
1946: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1948: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_ERROR;
1950: END IF;
1951: --------------------------------------------------------
1944: END IF;
1945: -----------------------------------------------------
1946: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1948: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_ERROR;
1950: END IF;
1951: --------------------------------------------------------
1952:
1945: -----------------------------------------------------
1946: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1948: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_ERROR;
1950: END IF;
1951: --------------------------------------------------------
1952:
1953:
1969: 'OKC_REP_CONTRACT_PROCESS_PVT.delete_approval_history return status is: '
1970: || x_return_status);
1971: END IF;
1972: -----------------------------------------------------
1973: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1975: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1976: RAISE OKC_API.G_EXCEPTION_ERROR;
1977: END IF;
1970: || x_return_status);
1971: END IF;
1972: -----------------------------------------------------
1973: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1975: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1976: RAISE OKC_API.G_EXCEPTION_ERROR;
1977: END IF;
1978: --------------------------------------------------------
1971: END IF;
1972: -----------------------------------------------------
1973: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1975: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1976: RAISE OKC_API.G_EXCEPTION_ERROR;
1977: END IF;
1978: --------------------------------------------------------
1979:
1972: -----------------------------------------------------
1973: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1974: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1975: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1976: RAISE OKC_API.G_EXCEPTION_ERROR;
1977: END IF;
1978: --------------------------------------------------------
1979:
1980:
1996: 'OKC_REP_CONTRACT_PROCESS_PVT.delete_bookmarks return status is: '
1997: || x_return_status);
1998: END IF;
1999: -----------------------------------------------------
2000: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2002: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2003: RAISE OKC_API.G_EXCEPTION_ERROR;
2004: END IF;
1997: || x_return_status);
1998: END IF;
1999: -----------------------------------------------------
2000: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2002: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2003: RAISE OKC_API.G_EXCEPTION_ERROR;
2004: END IF;
2005: --------------------------------------------------------
1998: END IF;
1999: -----------------------------------------------------
2000: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2002: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2003: RAISE OKC_API.G_EXCEPTION_ERROR;
2004: END IF;
2005: --------------------------------------------------------
2006:
1999: -----------------------------------------------------
2000: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2002: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2003: RAISE OKC_API.G_EXCEPTION_ERROR;
2004: END IF;
2005: --------------------------------------------------------
2006:
2007: END IF; -- (contract_rec.contract_version_num = 1)
2025: 'OKC_REP_CONTRACT_PROCESS_PVT.delete_related_contracts return status is: '
2026: || x_return_status);
2027: END IF;
2028: -----------------------------------------------------
2029: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_ERROR;
2033: END IF;
2026: || x_return_status);
2027: END IF;
2028: -----------------------------------------------------
2029: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_ERROR;
2033: END IF;
2034: --------------------------------------------------------
2027: END IF;
2028: -----------------------------------------------------
2029: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_ERROR;
2033: END IF;
2034: --------------------------------------------------------
2035:
2028: -----------------------------------------------------
2029: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_ERROR;
2033: END IF;
2034: --------------------------------------------------------
2035:
2036:
2054: 'OKC_CONTRACT_DOCS_GRP.Delete_Ver_Attachments return status is : '
2055: || x_return_status);
2056: END IF;
2057: -----------------------------------------------------
2058: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2060: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2061: RAISE OKC_API.G_EXCEPTION_ERROR;
2062: END IF;
2055: || x_return_status);
2056: END IF;
2057: -----------------------------------------------------
2058: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2060: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2061: RAISE OKC_API.G_EXCEPTION_ERROR;
2062: END IF;
2063: --------------------------------------------------------
2056: END IF;
2057: -----------------------------------------------------
2058: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2060: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2061: RAISE OKC_API.G_EXCEPTION_ERROR;
2062: END IF;
2063: --------------------------------------------------------
2064:
2057: -----------------------------------------------------
2058: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2059: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2060: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2061: RAISE OKC_API.G_EXCEPTION_ERROR;
2062: END IF;
2063: --------------------------------------------------------
2064:
2065: /* 14543447 - kkolukul - Uda Integration */
2080: 'OKC_REP_CONTRACT_PROCESS_PVT.delete_uda_attribute_values return status is: '
2081: || x_return_status);
2082: END IF;
2083: -----------------------------------------------------
2084: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2087: RAISE OKC_API.G_EXCEPTION_ERROR;
2088: END IF;
2081: || x_return_status);
2082: END IF;
2083: -----------------------------------------------------
2084: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2087: RAISE OKC_API.G_EXCEPTION_ERROR;
2088: END IF;
2089: --------------------------------------------------------
2082: END IF;
2083: -----------------------------------------------------
2084: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2087: RAISE OKC_API.G_EXCEPTION_ERROR;
2088: END IF;
2089: --------------------------------------------------------
2090:
2083: -----------------------------------------------------
2084: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2086: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2087: RAISE OKC_API.G_EXCEPTION_ERROR;
2088: END IF;
2089: --------------------------------------------------------
2090:
2091: IF (contract_rec.contract_version_num > 1) THEN
2111: || x_return_status);
2112: END IF;
2113:
2114: -----------------------------------------------------
2115: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2117: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2118: RAISE OKC_API.G_EXCEPTION_ERROR;
2119: END IF;
2112: END IF;
2113:
2114: -----------------------------------------------------
2115: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2117: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2118: RAISE OKC_API.G_EXCEPTION_ERROR;
2119: END IF;
2120: --------------------------------------------------------
2113:
2114: -----------------------------------------------------
2115: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2117: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2118: RAISE OKC_API.G_EXCEPTION_ERROR;
2119: END IF;
2120: --------------------------------------------------------
2121:
2114: -----------------------------------------------------
2115: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2116: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2117: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2118: RAISE OKC_API.G_EXCEPTION_ERROR;
2119: END IF;
2120: --------------------------------------------------------
2121:
2122: END IF;
2137: p_doc_type => contract_rec.contract_type,
2138: p_doc_id => p_contract_id
2139: );
2140: --------------------------------------------
2141: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2138: p_doc_id => p_contract_id
2139: );
2140: --------------------------------------------
2141: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146:
2139: );
2140: --------------------------------------------
2141: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146:
2147: ELSE
2140: --------------------------------------------
2141: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146:
2147: ELSE
2148:
2156: p_doc_id => p_contract_id,
2157: p_version_number => contract_rec.contract_version_num - 1
2158: );
2159: --------------------------------------------
2160: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2157: p_version_number => contract_rec.contract_version_num - 1
2158: );
2159: --------------------------------------------
2160: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: -- Deletes the previous version's terms details in the history table
2158: );
2159: --------------------------------------------
2160: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: -- Deletes the previous version's terms details in the history table
2166: OKC_TERMS_VERSION_PVT.Delete_Doc_Version(
2159: --------------------------------------------
2160: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: -- Deletes the previous version's terms details in the history table
2166: OKC_TERMS_VERSION_PVT.Delete_Doc_Version(
2167: x_return_status => x_return_status,
2169: p_doc_id => p_contract_id,
2170: p_version_number => contract_rec.contract_version_num - 1
2171: );
2172: --------------------------------------------
2173: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2174: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2175: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_ERROR;
2177: END IF;
2170: p_version_number => contract_rec.contract_version_num - 1
2171: );
2172: --------------------------------------------
2173: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2174: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2175: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_ERROR;
2177: END IF;
2178:
2171: );
2172: --------------------------------------------
2173: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2174: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2175: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_ERROR;
2177: END IF;
2178:
2179: -- Changes for Bug# 6902073 Ends
2172: --------------------------------------------
2173: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2174: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2175: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_ERROR;
2177: END IF;
2178:
2179: -- Changes for Bug# 6902073 Ends
2180: END IF;
2232: || x_return_status);
2233: END IF;
2234:
2235: -----------------------------------------------------
2236: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2233: END IF;
2234:
2235: -----------------------------------------------------
2236: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: --------------------------------------------------------
2234:
2235: -----------------------------------------------------
2236: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: --------------------------------------------------------
2242:
2235: -----------------------------------------------------
2236: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: --------------------------------------------------------
2242:
2243:
2452: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
2453: g_module || l_api_name,
2454: 'Leaving delete_contract because of EXCEPTION: ' || sqlerrm);
2455: END IF;
2456: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2457: p_msg_name => G_UNEXPECTED_ERROR,
2458: p_token1 => G_SQLCODE_TOKEN,
2459: p_token1_value => sqlcode,
2460: p_token2 => G_SQLERRM_TOKEN,
2635: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
2636: g_module || l_api_name,
2637: 'Leaving copy_contacts because of EXCEPTION: ' || sqlerrm);
2638: END IF;
2639: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2640: p_msg_name => G_UNEXPECTED_ERROR,
2641: p_token1 => G_SQLCODE_TOKEN,
2642: p_token1_value => sqlcode,
2643: p_token2 => G_SQLERRM_TOKEN,
2805: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
2806: g_module || l_api_name,
2807: 'Leaving copy_parties because of EXCEPTION: ' || sqlerrm);
2808: END IF;
2809: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2810: p_msg_name => G_UNEXPECTED_ERROR,
2811: p_token1 => G_SQLCODE_TOKEN,
2812: p_token1_value => sqlcode,
2813: p_token2 => G_SQLERRM_TOKEN,
2917: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
2918: G_MODULE||l_api_name,
2919: 'Invalid Contract Id: '|| p_source_contract_id);
2920: END IF;
2921: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2922: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
2923: p_token1 => G_CONTRACT_ID_TOKEN,
2924: p_token1_value => to_char(p_source_contract_id));
2925: RAISE FND_API.G_EXC_ERROR;
3044: --close cursors
3045: IF (contract_csr%ISOPEN) THEN
3046: CLOSE contract_csr ;
3047: END IF;
3048: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3049: p_msg_name => G_UNEXPECTED_ERROR,
3050: p_token1 => G_SQLCODE_TOKEN,
3051: p_token1_value => sqlcode,
3052: p_token2 => G_SQLERRM_TOKEN,
3179: x_success => x_success, -- return param. 'T' or 'F'
3180: x_errorcode => x_errorcode );
3181: -----------------------------------------------------
3182: IF (x_success = 'F' AND x_errorcode < 0 ) THEN
3183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3184: ELSIF (x_success = 'F' AND x_errorcode > 0) THEN
3185: RAISE OKC_API.G_EXCEPTION_ERROR;
3186: END IF;
3187: --------------------------------------------------------
3181: -----------------------------------------------------
3182: IF (x_success = 'F' AND x_errorcode < 0 ) THEN
3183: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3184: ELSIF (x_success = 'F' AND x_errorcode > 0) THEN
3185: RAISE OKC_API.G_EXCEPTION_ERROR;
3186: END IF;
3187: --------------------------------------------------------
3188: END LOOP;
3189: -- Standard check of p_commit
3232: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
3233: g_module || l_api_name,
3234: 'Leaving copy_ACL because of EXCEPTION: ' || sqlerrm);
3235: END IF;
3236: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3237: p_msg_name => G_UNEXPECTED_ERROR,
3238: p_token1 => G_SQLCODE_TOKEN,
3239: p_token1_value => sqlcode,
3240: p_token2 => G_SQLERRM_TOKEN,
3357: 'OKC_REP_CONTRACT_PROCESS_PVT.copy_parties return status is: '
3358: || x_return_status);
3359: END IF;
3360: ----------------------------------------------------
3361: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3363: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3364: RAISE OKC_API.G_EXCEPTION_ERROR;
3365: END IF;
3358: || x_return_status);
3359: END IF;
3360: ----------------------------------------------------
3361: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3363: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3364: RAISE OKC_API.G_EXCEPTION_ERROR;
3365: END IF;
3366: --------------------------------------------------------
3359: END IF;
3360: ----------------------------------------------------
3361: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3363: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3364: RAISE OKC_API.G_EXCEPTION_ERROR;
3365: END IF;
3366: --------------------------------------------------------
3367:
3360: ----------------------------------------------------
3361: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3362: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3363: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3364: RAISE OKC_API.G_EXCEPTION_ERROR;
3365: END IF;
3366: --------------------------------------------------------
3367:
3368:
3384: 'OKC_REP_CONTRACT_PROCESS_PVT.copy_contacts return status is: '
3385: || x_return_status);
3386: END IF;
3387: -----------------------------------------------------
3388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3391: RAISE OKC_API.G_EXCEPTION_ERROR;
3392: END IF;
3385: || x_return_status);
3386: END IF;
3387: -----------------------------------------------------
3388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3391: RAISE OKC_API.G_EXCEPTION_ERROR;
3392: END IF;
3393: -----------------------------------------------------
3386: END IF;
3387: -----------------------------------------------------
3388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3391: RAISE OKC_API.G_EXCEPTION_ERROR;
3392: END IF;
3393: -----------------------------------------------------
3394:
3387: -----------------------------------------------------
3388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3391: RAISE OKC_API.G_EXCEPTION_ERROR;
3392: END IF;
3393: -----------------------------------------------------
3394:
3395: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3410: 'OKC_REP_CONTRACT_PROCESS_PVT.copy_risks return status is: '
3411: || x_return_status);
3412: END IF;
3413: -----------------------------------------------------
3414: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3416: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3417: RAISE OKC_API.G_EXCEPTION_ERROR;
3418: END IF;
3411: || x_return_status);
3412: END IF;
3413: -----------------------------------------------------
3414: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3416: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3417: RAISE OKC_API.G_EXCEPTION_ERROR;
3418: END IF;
3419: --------------------------------------------------------
3412: END IF;
3413: -----------------------------------------------------
3414: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3416: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3417: RAISE OKC_API.G_EXCEPTION_ERROR;
3418: END IF;
3419: --------------------------------------------------------
3420:
3413: -----------------------------------------------------
3414: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3415: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3416: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3417: RAISE OKC_API.G_EXCEPTION_ERROR;
3418: END IF;
3419: --------------------------------------------------------
3420:
3421: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3436: 'OKC_REP_CONTRACT_PROCESS_PVT.copy_ACL return status is: '
3437: || x_return_status);
3438: END IF;
3439: -----------------------------------------------------
3440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3443: RAISE OKC_API.G_EXCEPTION_ERROR;
3444: END IF;
3437: || x_return_status);
3438: END IF;
3439: -----------------------------------------------------
3440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3443: RAISE OKC_API.G_EXCEPTION_ERROR;
3444: END IF;
3445: -----------------------------------------------------
3438: END IF;
3439: -----------------------------------------------------
3440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3443: RAISE OKC_API.G_EXCEPTION_ERROR;
3444: END IF;
3445: -----------------------------------------------------
3446:
3439: -----------------------------------------------------
3440: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3441: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3442: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3443: RAISE OKC_API.G_EXCEPTION_ERROR;
3444: END IF;
3445: -----------------------------------------------------
3446:
3447: --14543447 - kkolukul- UDA Integration
3464: 'OKC_REP_CONTRACT_PROCESS_PVT.copy_uda_attribute_values return status is: '
3465: || x_return_status);
3466: END IF;
3467: -----------------------------------------------------
3468: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3469: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3470: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3471: RAISE OKC_API.G_EXCEPTION_ERROR;
3472: END IF;
3465: || x_return_status);
3466: END IF;
3467: -----------------------------------------------------
3468: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3469: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3470: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3471: RAISE OKC_API.G_EXCEPTION_ERROR;
3472: END IF;
3473: -----------------------------------------------------
3466: END IF;
3467: -----------------------------------------------------
3468: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3469: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3470: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3471: RAISE OKC_API.G_EXCEPTION_ERROR;
3472: END IF;
3473: -----------------------------------------------------
3474:
3467: -----------------------------------------------------
3468: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3469: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3470: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3471: RAISE OKC_API.G_EXCEPTION_ERROR;
3472: END IF;
3473: -----------------------------------------------------
3474:
3475: -- Get contract_type of source contract, required for deliverables and documents APIs
3480: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
3481: G_MODULE||l_api_name,
3482: 'Invalid Contract Id: '|| p_source_contract_id);
3483: END IF;
3484: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3485: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
3486: p_token1 => G_CONTRACT_ID_TOKEN,
3487: p_token1_value => to_char(p_source_contract_id));
3488: RAISE FND_API.G_EXC_ERROR;
3520: 'OKC_CONTRACT_DOCS_GRP.Copy_Attachments return status is : '
3521: || x_return_status);
3522: END IF;
3523: -----------------------------------------------------
3524: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3526: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3527: RAISE OKC_API.G_EXCEPTION_ERROR;
3528: END IF;
3521: || x_return_status);
3522: END IF;
3523: -----------------------------------------------------
3524: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3526: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3527: RAISE OKC_API.G_EXCEPTION_ERROR;
3528: END IF;
3529: --------------------------------------------------------
3522: END IF;
3523: -----------------------------------------------------
3524: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3526: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3527: RAISE OKC_API.G_EXCEPTION_ERROR;
3528: END IF;
3529: --------------------------------------------------------
3530:
3523: -----------------------------------------------------
3524: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3526: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3527: RAISE OKC_API.G_EXCEPTION_ERROR;
3528: END IF;
3529: --------------------------------------------------------
3530:
3531: -- Repository Enhancement 12.1(For Duplicate Action)
3556: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3557: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_TERMS_COPY_PVT.copy_tc, return status : '||x_return_status);
3558: END IF;
3559:
3560: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3563: RAISE OKC_API.G_EXCEPTION_ERROR;
3564: END IF;
3557: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_TERMS_COPY_PVT.copy_tc, return status : '||x_return_status);
3558: END IF;
3559:
3560: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3563: RAISE OKC_API.G_EXCEPTION_ERROR;
3564: END IF;
3565: -- Repository Enhancement 12.1 ends(For Duplicate Action)
3558: END IF;
3559:
3560: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3563: RAISE OKC_API.G_EXCEPTION_ERROR;
3564: END IF;
3565: -- Repository Enhancement 12.1 ends(For Duplicate Action)
3566:
3559:
3560: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3562: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3563: RAISE OKC_API.G_EXCEPTION_ERROR;
3564: END IF;
3565: -- Repository Enhancement 12.1 ends(For Duplicate Action)
3566:
3567:
3591: 'OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables return status is : '
3592: || x_return_status);
3593: END IF;
3594: -----------------------------------------------------
3595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_ERROR;
3599: END IF;
3592: || x_return_status);
3593: END IF;
3594: -----------------------------------------------------
3595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_ERROR;
3599: END IF;
3600: --------------------------------------------------------
3593: END IF;
3594: -----------------------------------------------------
3595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_ERROR;
3599: END IF;
3600: --------------------------------------------------------
3601:
3594: -----------------------------------------------------
3595: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3596: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3597: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3598: RAISE OKC_API.G_EXCEPTION_ERROR;
3599: END IF;
3600: --------------------------------------------------------
3601:
3602: -- close open cursors
3663: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
3664: g_module || l_api_name,
3665: 'Leaving copy_contract_details because of EXCEPTION: ' || sqlerrm);
3666: END IF;
3667: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3668: p_msg_name => G_UNEXPECTED_ERROR,
3669: p_token1 => G_SQLCODE_TOKEN,
3670: p_token1_value => sqlcode,
3671: p_token2 => G_SQLERRM_TOKEN,
3779: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
3780: G_MODULE||l_api_name,
3781: 'Invalid Contract Id: '|| p_contract_id);
3782: END IF;
3783: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3784: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
3785: p_token1 => G_CONTRACT_ID_TOKEN,
3786: p_token1_value => to_char(p_contract_id));
3787: RAISE FND_API.G_EXC_ERROR;
3914: --close cursors
3915: IF (contract_csr%ISOPEN) THEN
3916: CLOSE contract_csr ;
3917: END IF;
3918: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3919: p_msg_name => G_UNEXPECTED_ERROR,
3920: p_token1 => G_SQLCODE_TOKEN,
3921: p_token1_value => sqlcode,
3922: p_token2 => G_SQLERRM_TOKEN,
4018: 'OKC_REP_CONTRACT_PROCESS_PVT.Lock_Contract_Header return status is: '
4019: || x_return_status);
4020: END IF;
4021: -----------------------------------------------------
4022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4025: RAISE OKC_API.G_EXCEPTION_ERROR;
4026: END IF;
4019: || x_return_status);
4020: END IF;
4021: -----------------------------------------------------
4022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4025: RAISE OKC_API.G_EXCEPTION_ERROR;
4026: END IF;
4027: -----------------------------------------------------
4020: END IF;
4021: -----------------------------------------------------
4022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4025: RAISE OKC_API.G_EXCEPTION_ERROR;
4026: END IF;
4027: -----------------------------------------------------
4028:
4021: -----------------------------------------------------
4022: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4023: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4024: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4025: RAISE OKC_API.G_EXCEPTION_ERROR;
4026: END IF;
4027: -----------------------------------------------------
4028:
4029: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4178: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
4179: G_MODULE||l_api_name,
4180: 'Invalid Contract Id: '|| p_contract_id);
4181: END IF;
4182: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4183: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
4184: p_token1 => G_CONTRACT_ID_TOKEN,
4185: p_token1_value => to_char(p_contract_id));
4186: RAISE FND_API.G_EXC_ERROR;
4209: 'OKC_CONTRACT_DOCS_GRP.Version_Attachments return status is : '
4210: || x_return_status);
4211: END IF;
4212: -----------------------------------------------------
4213: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4214: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4215: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4216: RAISE OKC_API.G_EXCEPTION_ERROR;
4217: END IF;
4210: || x_return_status);
4211: END IF;
4212: -----------------------------------------------------
4213: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4214: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4215: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4216: RAISE OKC_API.G_EXCEPTION_ERROR;
4217: END IF;
4218: --------------------------------------------------------
4211: END IF;
4212: -----------------------------------------------------
4213: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4214: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4215: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4216: RAISE OKC_API.G_EXCEPTION_ERROR;
4217: END IF;
4218: --------------------------------------------------------
4219:
4212: -----------------------------------------------------
4213: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4214: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4215: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4216: RAISE OKC_API.G_EXCEPTION_ERROR;
4217: END IF;
4218: --------------------------------------------------------
4219:
4220: -- Repository Enhancement 12.1 (For Create New Version Action)
4247: p_doc_id => p_contract_id,
4248: p_version_number => contract_rec.contract_version_num
4249: );
4250: --------------------------------------------
4251: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4253: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4254: RAISE FND_API.G_EXC_ERROR ;
4255: END IF;
4249: );
4250: --------------------------------------------
4251: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4253: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4254: RAISE FND_API.G_EXC_ERROR ;
4255: END IF;
4256:
4257: ELSIF l_contract_source = 'ATTACHED' THEN
4269: p_doc_id => p_contract_id,
4270: p_major_version => contract_rec.contract_version_num
4271: );
4272: --------------------------------------------
4273: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4275: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4276: RAISE FND_API.G_EXC_ERROR ;
4277: END IF;
4271: );
4272: --------------------------------------------
4273: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4275: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4276: RAISE FND_API.G_EXC_ERROR ;
4277: END IF;
4278:
4279: END IF;
4305: 'OKC_DELIVERABLE_PROCESS_PVT.version_deliverables return status is : '
4306: || x_return_status);
4307: END IF;
4308: -----------------------------------------------------
4309: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4312: RAISE OKC_API.G_EXCEPTION_ERROR;
4313: END IF;
4306: || x_return_status);
4307: END IF;
4308: -----------------------------------------------------
4309: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4312: RAISE OKC_API.G_EXCEPTION_ERROR;
4313: END IF;
4314: --------------------------------------------------------
4307: END IF;
4308: -----------------------------------------------------
4309: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4312: RAISE OKC_API.G_EXCEPTION_ERROR;
4313: END IF;
4314: --------------------------------------------------------
4315: END IF; -- contract_rec.contract_status_code <> G_STATUS_SIGNED
4308: -----------------------------------------------------
4309: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4312: RAISE OKC_API.G_EXCEPTION_ERROR;
4313: END IF;
4314: --------------------------------------------------------
4315: END IF; -- contract_rec.contract_status_code <> G_STATUS_SIGNED
4316:
4333: 'OKC_DELIVERABLE_PROCESS_PVT.clear_amendment_operation return status is : '
4334: || x_return_status);
4335: END IF;
4336: -----------------------------------------------------
4337: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4338: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4339: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4340: RAISE OKC_API.G_EXCEPTION_ERROR;
4341: END IF;
4334: || x_return_status);
4335: END IF;
4336: -----------------------------------------------------
4337: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4338: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4339: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4340: RAISE OKC_API.G_EXCEPTION_ERROR;
4341: END IF;
4342: --------------------------------------------------------
4335: END IF;
4336: -----------------------------------------------------
4337: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4338: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4339: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4340: RAISE OKC_API.G_EXCEPTION_ERROR;
4341: END IF;
4342: --------------------------------------------------------
4343: -- 14543447 - kkolukul- version uda attribte values
4336: -----------------------------------------------------
4337: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4338: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4339: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4340: RAISE OKC_API.G_EXCEPTION_ERROR;
4341: END IF;
4342: --------------------------------------------------------
4343: -- 14543447 - kkolukul- version uda attribte values
4344: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4361: 'OKC_CONTRACT_PROCESS_PVT.version_uda_attribute_values return status is : '
4362: || x_return_status);
4363: END IF;
4364: -----------------------------------------------------
4365: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: RAISE OKC_API.G_EXCEPTION_ERROR;
4369: END IF;
4362: || x_return_status);
4363: END IF;
4364: -----------------------------------------------------
4365: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: RAISE OKC_API.G_EXCEPTION_ERROR;
4369: END IF;
4370: --------------------------------------------------------
4363: END IF;
4364: -----------------------------------------------------
4365: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: RAISE OKC_API.G_EXCEPTION_ERROR;
4369: END IF;
4370: --------------------------------------------------------
4371:
4364: -----------------------------------------------------
4365: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4367: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4368: RAISE OKC_API.G_EXCEPTION_ERROR;
4369: END IF;
4370: --------------------------------------------------------
4371:
4372: ---Version the relationships information
4384: 'OKC_CONTRACT_PROCESS_PVT.version_contract_usages return status is : '
4385: || x_return_status);
4386: END IF;
4387: -----------------------------------------------------
4388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4391: RAISE OKC_API.G_EXCEPTION_ERROR;
4392: END IF;
4385: || x_return_status);
4386: END IF;
4387: -----------------------------------------------------
4388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4391: RAISE OKC_API.G_EXCEPTION_ERROR;
4392: END IF;
4393: --------------------------------------------------------
4386: END IF;
4387: -----------------------------------------------------
4388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4391: RAISE OKC_API.G_EXCEPTION_ERROR;
4392: END IF;
4393: --------------------------------------------------------
4394:
4387: -----------------------------------------------------
4388: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4389: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4390: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4391: RAISE OKC_API.G_EXCEPTION_ERROR;
4392: END IF;
4393: --------------------------------------------------------
4394:
4395:
4461: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
4462: g_module || l_api_name,
4463: 'Leaving version_contract_details because of EXCEPTION: ' || sqlerrm);
4464: END IF;
4465: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4466: p_msg_name => G_UNEXPECTED_ERROR,
4467: p_token1 => G_SQLCODE_TOKEN,
4468: p_token1_value => sqlcode,
4469: p_token2 => G_SQLERRM_TOKEN,
4569: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
4570: G_MODULE||l_api_name,
4571: 'Invalid Contract Id: '|| p_contract_id);
4572: END IF;
4573: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4574: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
4575: p_token1 => G_CONTRACT_ID_TOKEN,
4576: p_token1_value => to_char(p_contract_id));
4577: RAISE FND_API.G_EXC_ERROR;
4594: 'OKC_REP_CONTRACT_PROCESS_PVT.Lock_Contract_Header return status is: '
4595: || x_return_status);
4596: END IF;
4597: -----------------------------------------------------
4598: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4601: RAISE OKC_API.G_EXCEPTION_ERROR;
4602: END IF;
4595: || x_return_status);
4596: END IF;
4597: -----------------------------------------------------
4598: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4601: RAISE OKC_API.G_EXCEPTION_ERROR;
4602: END IF;
4603: -----------------------------------------------------
4596: END IF;
4597: -----------------------------------------------------
4598: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4601: RAISE OKC_API.G_EXCEPTION_ERROR;
4602: END IF;
4603: -----------------------------------------------------
4604:
4597: -----------------------------------------------------
4598: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4599: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4600: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4601: RAISE OKC_API.G_EXCEPTION_ERROR;
4602: END IF;
4603: -----------------------------------------------------
4604:
4605: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4623: g_module || l_api_name,
4624: 'Completed OKC_REP_UTIL_PVT.change_contract_status with return status: ' || x_return_status);
4625: END IF;
4626: -----------------------------------------------------
4627: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4629: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4630: RAISE OKC_API.G_EXCEPTION_ERROR;
4631: END IF;
4624: 'Completed OKC_REP_UTIL_PVT.change_contract_status with return status: ' || x_return_status);
4625: END IF;
4626: -----------------------------------------------------
4627: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4629: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4630: RAISE OKC_API.G_EXCEPTION_ERROR;
4631: END IF;
4632: ------------------------------------------------------
4625: END IF;
4626: -----------------------------------------------------
4627: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4629: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4630: RAISE OKC_API.G_EXCEPTION_ERROR;
4631: END IF;
4632: ------------------------------------------------------
4633:
4626: -----------------------------------------------------
4627: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4629: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4630: RAISE OKC_API.G_EXCEPTION_ERROR;
4631: END IF;
4632: ------------------------------------------------------
4633:
4634: -- We need to first version the deliverables
4651: 'OKC_DELIVERABLE_PROCESS_PVT.version_deliverables return status is : '
4652: || x_return_status);
4653: END IF;
4654: -----------------------------------------------------
4655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4658: RAISE OKC_API.G_EXCEPTION_ERROR;
4659: END IF;
4652: || x_return_status);
4653: END IF;
4654: -----------------------------------------------------
4655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4658: RAISE OKC_API.G_EXCEPTION_ERROR;
4659: END IF;
4660: --------------------------------------------------------
4653: END IF;
4654: -----------------------------------------------------
4655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4658: RAISE OKC_API.G_EXCEPTION_ERROR;
4659: END IF;
4660: --------------------------------------------------------
4661:
4654: -----------------------------------------------------
4655: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4657: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4658: RAISE OKC_API.G_EXCEPTION_ERROR;
4659: END IF;
4660: --------------------------------------------------------
4661:
4662: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4703: 'OKC_DELIVERABLE_PROCESS_PVT.activateDeliverables return status is : '
4704: || x_return_status);
4705: END IF;
4706: -----------------------------------------------------
4707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4710: RAISE OKC_API.G_EXCEPTION_ERROR;
4711: END IF;
4704: || x_return_status);
4705: END IF;
4706: -----------------------------------------------------
4707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4710: RAISE OKC_API.G_EXCEPTION_ERROR;
4711: END IF;
4712: --------------------------------------------------------
4705: END IF;
4706: -----------------------------------------------------
4707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4710: RAISE OKC_API.G_EXCEPTION_ERROR;
4711: END IF;
4712: --------------------------------------------------------
4713:
4706: -----------------------------------------------------
4707: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4709: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4710: RAISE OKC_API.G_EXCEPTION_ERROR;
4711: END IF;
4712: --------------------------------------------------------
4713:
4714: -- Checking if we need to call deliverable's APIs for synch-ing
4722: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
4723: G_MODULE||l_api_name,
4724: 'Invalid Contract Id: '|| p_contract_id);
4725: END IF;
4726: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4727: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
4728: p_token1 => G_CONTRACT_ID_TOKEN,
4729: p_token1_value => to_char(p_contract_id));
4730: RAISE FND_API.G_EXC_ERROR;
4779: 'OKC_DELIVERABLE_PROCESS_PVT.updateDeliverables return status is : '
4780: || x_return_status);
4781: END IF;
4782: -----------------------------------------------------
4783: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4784: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4785: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4786: RAISE OKC_API.G_EXCEPTION_ERROR;
4787: END IF;
4780: || x_return_status);
4781: END IF;
4782: -----------------------------------------------------
4783: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4784: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4785: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4786: RAISE OKC_API.G_EXCEPTION_ERROR;
4787: END IF;
4788: --------------------------------------------------------
4781: END IF;
4782: -----------------------------------------------------
4783: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4784: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4785: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4786: RAISE OKC_API.G_EXCEPTION_ERROR;
4787: END IF;
4788: --------------------------------------------------------
4789: END IF; -- expiration date comparision
4782: -----------------------------------------------------
4783: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4784: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4785: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4786: RAISE OKC_API.G_EXCEPTION_ERROR;
4787: END IF;
4788: --------------------------------------------------------
4789: END IF; -- expiration date comparision
4790: -- Disable prev. version deliverables
4808: 'OKC_DELIVERABLE_PROCESS_PVT.disableDeliverables return status is : '
4809: || x_return_status);
4810: END IF;
4811: -----------------------------------------------------
4812: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4815: RAISE OKC_API.G_EXCEPTION_ERROR;
4816: END IF;
4809: || x_return_status);
4810: END IF;
4811: -----------------------------------------------------
4812: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4815: RAISE OKC_API.G_EXCEPTION_ERROR;
4816: END IF;
4817: --------------------------------------------------------
4810: END IF;
4811: -----------------------------------------------------
4812: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4815: RAISE OKC_API.G_EXCEPTION_ERROR;
4816: END IF;
4817: --------------------------------------------------------
4818: END IF; -- (l_sync_flag = 'Y')
4811: -----------------------------------------------------
4812: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4813: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4815: RAISE OKC_API.G_EXCEPTION_ERROR;
4816: END IF;
4817: --------------------------------------------------------
4818: END IF; -- (l_sync_flag = 'Y')
4819: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4884: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
4885: g_module || l_api_name,
4886: 'Leaving sign_contract because of EXCEPTION: ' || sqlerrm);
4887: END IF;
4888: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4889: p_msg_name => G_UNEXPECTED_ERROR,
4890: p_token1 => G_SQLCODE_TOKEN,
4891: p_token1_value => sqlcode,
4892: p_token2 => G_SQLERRM_TOKEN,
5004: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
5005: G_MODULE||l_api_name,
5006: 'Invalid Contract Id: '|| p_contract_id);
5007: END IF;
5008: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5009: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
5010: p_token1 => G_CONTRACT_ID_TOKEN,
5011: p_token1_value => to_char(p_contract_id));
5012: RAISE FND_API.G_EXC_ERROR;
5027: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
5028: G_MODULE||l_api_name,
5029: 'Workflow not associated for the Document');
5030: END IF;
5031: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5032: p_msg_name => 'OKC_REP_INV_E_SIGN'
5033: );
5034: RAISE FND_API.G_EXC_ERROR;
5035:
5059: 'OKC_REP_UTIL_PVT.change_contract_status return status is: '
5060: || x_return_status);
5061: END IF;
5062: -----------------------------------------------------
5063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5066: RAISE OKC_API.G_EXCEPTION_ERROR;
5067: END IF;
5060: || x_return_status);
5061: END IF;
5062: -----------------------------------------------------
5063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5066: RAISE OKC_API.G_EXCEPTION_ERROR;
5067: END IF;
5068: --------------------------------------------------------
5061: END IF;
5062: -----------------------------------------------------
5063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5066: RAISE OKC_API.G_EXCEPTION_ERROR;
5067: END IF;
5068: --------------------------------------------------------
5069:
5062: -----------------------------------------------------
5063: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5064: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5065: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5066: RAISE OKC_API.G_EXCEPTION_ERROR;
5067: END IF;
5068: --------------------------------------------------------
5069:
5070: /*
5093: 'OKC_REP_UTIL_PVT.add_signature_hist_record return status is: '
5094: || x_return_status);
5095: END IF;
5096: -------------------------------------------------------
5097: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5098: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5099: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5100: RAISE OKC_API.G_EXCEPTION_ERROR;
5101: END IF; */
5094: || x_return_status);
5095: END IF;
5096: -------------------------------------------------------
5097: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5098: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5099: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5100: RAISE OKC_API.G_EXCEPTION_ERROR;
5101: END IF; */
5102: --------------------------------------------------------
5095: END IF;
5096: -------------------------------------------------------
5097: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5098: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5099: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5100: RAISE OKC_API.G_EXCEPTION_ERROR;
5101: END IF; */
5102: --------------------------------------------------------
5103:
5096: -------------------------------------------------------
5097: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5098: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5099: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5100: RAISE OKC_API.G_EXCEPTION_ERROR;
5101: END IF; */
5102: --------------------------------------------------------
5103:
5104: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5284: --close cursors
5285: IF (contract_csr%ISOPEN) THEN
5286: CLOSE contract_csr ;
5287: END IF;
5288: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5289: p_msg_name => G_UNEXPECTED_ERROR,
5290: p_token1 => G_SQLCODE_TOKEN,
5291: p_token1_value => sqlcode,
5292: p_token2 => G_SQLERRM_TOKEN,
5382: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION ,
5383: G_MODULE||l_api_name,
5384: 'Invalid Contract Id: '|| p_contract_id);
5385: END IF;
5386: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5387: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
5388: p_token1 => G_CONTRACT_ID_TOKEN,
5389: p_token1_value => to_char(p_contract_id));
5390: RAISE FND_API.G_EXC_ERROR;
5407: 'OKC_REP_CONTRACT_PROCESS_PVT.Lock_Contract_Header return status is: '
5408: || x_return_status);
5409: END IF;
5410: -----------------------------------------------------
5411: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5412: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5413: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5414: RAISE OKC_API.G_EXCEPTION_ERROR;
5415: END IF;
5408: || x_return_status);
5409: END IF;
5410: -----------------------------------------------------
5411: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5412: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5413: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5414: RAISE OKC_API.G_EXCEPTION_ERROR;
5415: END IF;
5416: -----------------------------------------------------
5409: END IF;
5410: -----------------------------------------------------
5411: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5412: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5413: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5414: RAISE OKC_API.G_EXCEPTION_ERROR;
5415: END IF;
5416: -----------------------------------------------------
5417: IF (trunc(p_termination_date) <= trunc(sysdate)) THEN
5410: -----------------------------------------------------
5411: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5412: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5413: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5414: RAISE OKC_API.G_EXCEPTION_ERROR;
5415: END IF;
5416: -----------------------------------------------------
5417: IF (trunc(p_termination_date) <= trunc(sysdate)) THEN
5418: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5437: g_module || l_api_name,
5438: 'Completed OKC_REP_UTIL_PVT.change_contract_status with return status: ' || x_return_status);
5439: END IF;
5440: -----------------------------------------------------
5441: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5442: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5443: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5444: RAISE OKC_API.G_EXCEPTION_ERROR;
5445: END IF;
5438: 'Completed OKC_REP_UTIL_PVT.change_contract_status with return status: ' || x_return_status);
5439: END IF;
5440: -----------------------------------------------------
5441: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5442: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5443: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5444: RAISE OKC_API.G_EXCEPTION_ERROR;
5445: END IF;
5446: ------------------------------------------------------
5439: END IF;
5440: -----------------------------------------------------
5441: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5442: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5443: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5444: RAISE OKC_API.G_EXCEPTION_ERROR;
5445: END IF;
5446: ------------------------------------------------------
5447:
5440: -----------------------------------------------------
5441: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5442: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5443: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5444: RAISE OKC_API.G_EXCEPTION_ERROR;
5445: END IF;
5446: ------------------------------------------------------
5447:
5448: END IF; -- (p_termination_date <= sysdate)
5477: 'OKC_DELIVERABLE_PROCESS_PVT.activateCloseOutDeliverables return status is : '
5478: || x_return_status);
5479: END IF;
5480: -----------------------------------------------------
5481: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5483: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5484: RAISE OKC_API.G_EXCEPTION_ERROR;
5485: END IF;
5478: || x_return_status);
5479: END IF;
5480: -----------------------------------------------------
5481: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5483: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5484: RAISE OKC_API.G_EXCEPTION_ERROR;
5485: END IF;
5486: --------------------------------------------------------
5479: END IF;
5480: -----------------------------------------------------
5481: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5483: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5484: RAISE OKC_API.G_EXCEPTION_ERROR;
5485: END IF;
5486: --------------------------------------------------------
5487: ELSE
5480: -----------------------------------------------------
5481: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5482: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5483: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5484: RAISE OKC_API.G_EXCEPTION_ERROR;
5485: END IF;
5486: --------------------------------------------------------
5487: ELSE
5488: IF (trunc(contract_rec.termination_date) <> trunc(p_termination_date)) THEN
5510: 'OKC_DELIVERABLE_PROCESS_PVT.updateDeliverables return status is : '
5511: || x_return_status);
5512: END IF;
5513: -----------------------------------------------------
5514: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5515: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5516: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5517: RAISE OKC_API.G_EXCEPTION_ERROR;
5518: END IF;
5511: || x_return_status);
5512: END IF;
5513: -----------------------------------------------------
5514: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5515: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5516: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5517: RAISE OKC_API.G_EXCEPTION_ERROR;
5518: END IF;
5519: --------------------------------------------------------
5512: END IF;
5513: -----------------------------------------------------
5514: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5515: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5516: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5517: RAISE OKC_API.G_EXCEPTION_ERROR;
5518: END IF;
5519: --------------------------------------------------------
5520: END IF; -- contract_rec.termination_date <> p_termination_date
5513: -----------------------------------------------------
5514: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
5515: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
5516: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
5517: RAISE OKC_API.G_EXCEPTION_ERROR;
5518: END IF;
5519: --------------------------------------------------------
5520: END IF; -- contract_rec.termination_date <> p_termination_date
5521: END IF; -- contract_rec.termination_date = null
5576: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
5577: g_module || l_api_name,
5578: 'Leaving terminate_contract because of EXCEPTION: ' || sqlerrm);
5579: END IF;
5580: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5581: p_msg_name => G_UNEXPECTED_ERROR,
5582: p_token1 => G_SQLCODE_TOKEN,
5583: p_token1_value => sqlcode,
5584: p_token2 => G_SQLERRM_TOKEN,
5917:
5918: --set message text, one message for already expired contract
5919: --and one for contract about to expire
5920: IF (p_expired_flag = 'Y') THEN
5921: l_doc_type := OKC_API.get_contract_type(p_contract_id);
5922: l_resolved_msg_name := OKC_API.resolve_message(l_message_code_expired,l_doc_type);
5923: l_resolved_token := OKC_API.resolve_hdr_token(l_doc_type);
5924:
5925: l_msg_code := l_resolved_msg_name;
5918: --set message text, one message for already expired contract
5919: --and one for contract about to expire
5920: IF (p_expired_flag = 'Y') THEN
5921: l_doc_type := OKC_API.get_contract_type(p_contract_id);
5922: l_resolved_msg_name := OKC_API.resolve_message(l_message_code_expired,l_doc_type);
5923: l_resolved_token := OKC_API.resolve_hdr_token(l_doc_type);
5924:
5925: l_msg_code := l_resolved_msg_name;
5926: ELSE
5919: --and one for contract about to expire
5920: IF (p_expired_flag = 'Y') THEN
5921: l_doc_type := OKC_API.get_contract_type(p_contract_id);
5922: l_resolved_msg_name := OKC_API.resolve_message(l_message_code_expired,l_doc_type);
5923: l_resolved_token := OKC_API.resolve_hdr_token(l_doc_type);
5924:
5925: l_msg_code := l_resolved_msg_name;
5926: ELSE
5927: --Acq Plan Message Cleanup
5924:
5925: l_msg_code := l_resolved_msg_name;
5926: ELSE
5927: --Acq Plan Message Cleanup
5928: l_doc_type := OKC_API.get_contract_type(p_contract_id);
5929: l_resolved_msg_name := OKC_API.resolve_message(l_message_code_about_to_expire,l_doc_type);
5930: l_resolved_token := OKC_API.resolve_hdr_token(l_doc_type);
5931: --l_msg_code := l_message_code_about_to_expire;
5932: l_msg_code := l_resolved_msg_name;
5925: l_msg_code := l_resolved_msg_name;
5926: ELSE
5927: --Acq Plan Message Cleanup
5928: l_doc_type := OKC_API.get_contract_type(p_contract_id);
5929: l_resolved_msg_name := OKC_API.resolve_message(l_message_code_about_to_expire,l_doc_type);
5930: l_resolved_token := OKC_API.resolve_hdr_token(l_doc_type);
5931: --l_msg_code := l_message_code_about_to_expire;
5932: l_msg_code := l_resolved_msg_name;
5933: END IF;
5926: ELSE
5927: --Acq Plan Message Cleanup
5928: l_doc_type := OKC_API.get_contract_type(p_contract_id);
5929: l_resolved_msg_name := OKC_API.resolve_message(l_message_code_about_to_expire,l_doc_type);
5930: l_resolved_token := OKC_API.resolve_hdr_token(l_doc_type);
5931: --l_msg_code := l_message_code_about_to_expire;
5932: l_msg_code := l_resolved_msg_name;
5933: END IF;
5934:
6061: FND_LOG.LEVEL_EXCEPTION,
6062: g_module || l_api_name,
6063: 'Leaving repository_notifier because of EXCEPTION: ' || sqlerrm);
6064: END IF;
6065: Okc_Api.Set_Message(
6066: p_app_name => G_APP_NAME,
6067: p_msg_name => G_UNEXPECTED_ERROR,
6068: p_token1 => G_SQLCODE_TOKEN,
6069: p_token1_value => SQLCODE,
6170: G_MODULE||l_api_name,
6171: 'Invalid Contract Id: '|| p_contract_id);
6172: END IF;
6173: CLOSE contract_csr;
6174: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6175: p_msg_name => G_INVALID_CONTRACT_ID_MSG,
6176: p_token1 => G_CONTRACT_ID_TOKEN,
6177: p_token1_value => to_char(p_contract_id));
6178: RAISE FND_API.G_EXC_ERROR;
6224: END IF;
6225: ELSE
6226:
6227: -- Show an error message
6228: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6229: p_msg_name => G_CANEL_APPROVAL_ERROR_MSG,
6230: p_token1 => G_CONTRACT_NUM_TOKEN,
6231: p_token1_value => l_contract_number);
6232: RAISE FND_API.G_EXC_ERROR;
6256: 'OKC_REP_UTIL_PVT.change_contract_status return status is: '
6257: || x_return_status);
6258: END IF;
6259: -----------------------------------------------------
6260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6262: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6263: RAISE OKC_API.G_EXCEPTION_ERROR;
6264: END IF;
6257: || x_return_status);
6258: END IF;
6259: -----------------------------------------------------
6260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6262: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6263: RAISE OKC_API.G_EXCEPTION_ERROR;
6264: END IF;
6265: --------------------------------------------------------
6258: END IF;
6259: -----------------------------------------------------
6260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6262: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6263: RAISE OKC_API.G_EXCEPTION_ERROR;
6264: END IF;
6265: --------------------------------------------------------
6266:
6259: -----------------------------------------------------
6260: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6261: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6262: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6263: RAISE OKC_API.G_EXCEPTION_ERROR;
6264: END IF;
6265: --------------------------------------------------------
6266:
6267:
6287: 'OKC_REP_UTIL_PVT.add_approval_hist_record return status is: '
6288: || x_return_status);
6289: END IF;
6290: -------------------------------------------------------
6291: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6292: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6294: RAISE OKC_API.G_EXCEPTION_ERROR;
6295: END IF;
6288: || x_return_status);
6289: END IF;
6290: -------------------------------------------------------
6291: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6292: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6294: RAISE OKC_API.G_EXCEPTION_ERROR;
6295: END IF;
6296: --------------------------------------------------------
6289: END IF;
6290: -------------------------------------------------------
6291: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6292: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6294: RAISE OKC_API.G_EXCEPTION_ERROR;
6295: END IF;
6296: --------------------------------------------------------
6297:
6290: -------------------------------------------------------
6291: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
6292: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6293: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
6294: RAISE OKC_API.G_EXCEPTION_ERROR;
6295: END IF;
6296: --------------------------------------------------------
6297:
6298: COMMIT WORK;
6349: --close cursors
6350: IF (contract_csr%ISOPEN) THEN
6351: CLOSE contract_csr ;
6352: END IF;
6353: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6354: p_msg_name => G_UNEXPECTED_ERROR,
6355: p_token1 => G_SQLCODE_TOKEN,
6356: p_token1_value => sqlcode,
6357: p_token2 => G_SQLERRM_TOKEN,
6553: NULL; -- dups do not exist.
6554: ELSE
6555: -- Show duplicate Contract number error message
6556:
6557: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6558: p_msg_name => G_INVALID_CONTRACT_NUMBER_MSG);
6559: RAISE FND_API.G_EXC_ERROR;
6560:
6561: END IF;
6632: IF (l_get_sob_csr%ISOPEN) THEN
6633: CLOSE l_get_sob_csr ;
6634: END IF;
6635:
6636: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6637: p_msg_name => G_UNEXPECTED_ERROR,
6638: p_token1 => G_SQLCODE_TOKEN,
6639: p_token1_value => sqlcode,
6640: p_token2 => G_SQLERRM_TOKEN,
7103: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7104: g_module || l_api_name,
7105: 'Leaving delete_uda_attribute_values because of EXCEPTION: ' || sqlerrm);
7106: END IF;
7107: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7108: p_msg_name => G_UNEXPECTED_ERROR,
7109: p_token1 => G_SQLCODE_TOKEN,
7110: p_token1_value => sqlcode,
7111: p_token2 => G_SQLERRM_TOKEN,
7351: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7352: g_module || l_api_name,
7353: 'Leaving copy_uda_attribute_values because of EXCEPTION: ' || sqlerrm);
7354: END IF;
7355: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7356: p_msg_name => G_UNEXPECTED_ERROR,
7357: p_token1 => G_SQLCODE_TOKEN,
7358: p_token1_value => sqlcode,
7359: p_token2 => G_SQLERRM_TOKEN,
7818: fnd_log.string(FND_LOG.LEVEL_EXCEPTION,
7819: g_module || l_api_name,
7820: 'Leaving version_uda_attribute_values because of EXCEPTION: ' || sqlerrm);
7821: END IF;
7822: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7823: p_msg_name => G_UNEXPECTED_ERROR,
7824: p_token1 => G_SQLCODE_TOKEN,
7825: p_token1_value => sqlcode,
7826: p_token2 => G_SQLERRM_TOKEN,