3:
4: ---------------------------------------------------------------------------
5: -- GLOBAL MESSAGE CONSTANTS
6: ---------------------------------------------------------------------------
7: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
8: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
9: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
10: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
11: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
4: ---------------------------------------------------------------------------
5: -- GLOBAL MESSAGE CONSTANTS
6: ---------------------------------------------------------------------------
7: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
8: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
9: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
10: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
11: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
5: -- GLOBAL MESSAGE CONSTANTS
6: ---------------------------------------------------------------------------
7: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
8: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
9: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
10: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
11: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
13: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
6: ---------------------------------------------------------------------------
7: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
8: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
9: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
10: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
11: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
13: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
14: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
7: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
8: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
9: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
10: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
11: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
13: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
14: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
15: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
8: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
9: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
10: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
11: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
13: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
14: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
15: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
16: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
9: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
10: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
11: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
13: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
14: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
15: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
16: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
17:
10: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
11: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
13: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
14: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
15: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
16: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
17:
18: ---------------------------------------------------------------------------
11: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
13: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
14: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
15: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
16: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
17:
18: ---------------------------------------------------------------------------
19: -- GLOBAL VARIABLES
12: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
13: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
14: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
15: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
16: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
17:
18: ---------------------------------------------------------------------------
19: -- GLOBAL VARIABLES
20: ---------------------------------------------------------------------------
18: ---------------------------------------------------------------------------
19: -- GLOBAL VARIABLES
20: ---------------------------------------------------------------------------
21: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_TERMS_TMPL_APPROVAL_PVT';
22: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
23:
24: ------------------------------------------------------------------------------
25: -- GLOBAL CONSTANTS
26: ------------------------------------------------------------------------------
255: IF (tmpl_csr%ISOPEN) THEN
256: CLOSE tmpl_csr;
257: END IF;
258:
259: Okc_Api.Set_Message(G_FND_APP,G_UNABLE_TO_RESERVE_REC);
260: RETURN( G_RET_STS_ERROR );
261: END; -- end inner block
262:
263: IF ( l_row_notfound ) THEN
269: l_row_notfound := lchk_csr%NOTFOUND;
270: CLOSE lchk_csr;
271:
272: IF (l_row_notfound) THEN
273: Okc_Api.Set_Message(G_FND_APP,G_RECORD_DELETED);
274: ELSIF l_object_version_number > p_object_version_number THEN
275: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
276: ELSIF l_object_version_number = -1 THEN
277: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
271:
272: IF (l_row_notfound) THEN
273: Okc_Api.Set_Message(G_FND_APP,G_RECORD_DELETED);
274: ELSIF l_object_version_number > p_object_version_number THEN
275: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
276: ELSIF l_object_version_number = -1 THEN
277: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
278: ELSE -- it can be the only above condition. It can happen after restore version
279: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
273: Okc_Api.Set_Message(G_FND_APP,G_RECORD_DELETED);
274: ELSIF l_object_version_number > p_object_version_number THEN
275: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
276: ELSIF l_object_version_number = -1 THEN
277: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
278: ELSE -- it can be the only above condition. It can happen after restore version
279: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
280: END IF;
281: ELSE
275: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
276: ELSIF l_object_version_number = -1 THEN
277: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
278: ELSE -- it can be the only above condition. It can happen after restore version
279: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
280: END IF;
281: ELSE
282: l_return_status := G_RET_STS_SUCCESS;
283: END IF;
311: FND_LOG.STRING(G_EXCP_LEVEL,
312: G_PKG_NAME, '5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm );
313: END IF;
314:
315: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
316: p_msg_name => G_UNEXPECTED_ERROR,
317: p_token1 => G_SQLCODE_TOKEN,
318: p_token1_value => sqlcode,
319: p_token2 => G_SQLERRM_TOKEN,
456: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
457: FND_LOG.STRING(G_PROC_LEVEL,
458: G_PKG_NAME, '2300: - attribute TEMPLATE_ID is invalid' );
459: END IF;
460: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TEMPLATE_ID');
461: x_return_status := G_RET_STS_ERROR;
462: END IF;
463: CLOSE tmpl_exists_csr;
464: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
480: FND_LOG.STRING(G_PROC_LEVEL,
481: G_PKG_NAME, '2310: - Status not in DRAFT/REJECTED' );
482: END IF;
483:
484: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_APP_INVALID_STATUS','STATUS',okc_util.decode_lookup('OKC_TERMS_TMPL_STATUS',l_tmpl_rec.status_code));
485: x_return_status := G_RET_STS_ERROR;
486: END IF;
487: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
533: FETCH article_exists_cur INTO l_dummy_var;
534: IF article_exists_cur%NOTFOUND THEN
535: IF (l_tmpl_rec.intent = 'S') THEN
536: -- Added new message for sell side template for bug 3699018
537: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_APP_NO_ARTICLE_SELL');
538: ELSE
539: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_APP_NO_ARTICLE');
540: END IF;
541: x_return_status := G_RET_STS_ERROR;
535: IF (l_tmpl_rec.intent = 'S') THEN
536: -- Added new message for sell side template for bug 3699018
537: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_APP_NO_ARTICLE_SELL');
538: ELSE
539: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_APP_NO_ARTICLE');
540: END IF;
541: x_return_status := G_RET_STS_ERROR;
542: END IF;
543: CLOSE article_exists_cur;
576: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
577: FND_LOG.STRING(G_PROC_LEVEL,
578: G_PKG_NAME, '2320: - Errors found in Template QA' );
579: END IF;
580: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_APP_QA_ERROR');
581: x_return_status := G_RET_STS_ERROR;
582: END IF;
583: */
584: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
832:
833: WHEN FND_API.G_EXC_ERROR THEN
834:
835: /*IF (l_debug = 'Y') THEN
836: okc_debug.log('800: Leaving start_approval: OKC_API.G_EXCEPTION_ERROR Exception', 2);
837: END IF;*/
838:
839: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
840: FND_LOG.STRING(G_EXCP_LEVEL,
837: END IF;*/
838:
839: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
840: FND_LOG.STRING(G_EXCP_LEVEL,
841: G_PKG_NAME, '800: Leaving start_approval: OKC_API.G_EXCEPTION_ERROR Exception' );
842: END IF;
843:
844: ROLLBACK TO g_start_approval_pvt;
845: x_return_status := G_RET_STS_ERROR ;
846: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
847:
848: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
849: /*IF (l_debug = 'Y') THEN
850: okc_debug.log('900: Leaving start_approval: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
851: END IF;*/
852:
853: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
854: FND_LOG.STRING(G_EXCP_LEVEL,
851: END IF;*/
852:
853: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
854: FND_LOG.STRING(G_EXCP_LEVEL,
855: G_PKG_NAME, '900: Leaving start_approval: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception' );
856: END IF;
857:
858: ROLLBACK TO g_start_approval_pvt;
859: x_return_status := G_RET_STS_UNEXP_ERROR ;
1627:
1628: WHEN FND_API.G_EXC_ERROR THEN
1629:
1630: /*IF (l_debug = 'Y') THEN
1631: okc_debug.log('800: Leaving change_clause_status: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1632: END IF;*/
1633:
1634: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1635: FND_LOG.STRING(G_EXCP_LEVEL,
1632: END IF;*/
1633:
1634: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1635: FND_LOG.STRING(G_EXCP_LEVEL,
1636: G_PKG_NAME, '800: Leaving change_clause_status: OKC_API.G_EXCEPTION_ERROR Exception' );
1637: END IF;
1638:
1639: IF (l_tmpl_csr%ISOPEN) THEN
1640: CLOSE l_tmpl_csr;
1648: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1649:
1650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1651: /*IF (l_debug = 'Y') THEN
1652: okc_debug.log('900: Leaving change_clause_status: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1653: END IF;*/
1654:
1655: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1656: FND_LOG.STRING(G_EXCP_LEVEL,
1653: END IF;*/
1654:
1655: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1656: FND_LOG.STRING(G_EXCP_LEVEL,
1657: G_PKG_NAME, '900: Leaving change_clause_status: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception' );
1658: END IF;
1659:
1660: IF (l_tmpl_csr%ISOPEN) THEN
1661: CLOSE l_tmpl_csr;
2118:
2119: WHEN FND_API.G_EXC_ERROR THEN
2120:
2121: /*IF (l_debug = 'Y') THEN
2122: okc_debug.log('800: Leaving select_draft_clauses: OKC_API.G_EXCEPTION_ERROR Exception', 2);
2123: END IF;*/
2124:
2125: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2126: FND_LOG.STRING(G_EXCP_LEVEL,
2123: END IF;*/
2124:
2125: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2126: FND_LOG.STRING(G_EXCP_LEVEL,
2127: G_PKG_NAME, '800: Leaving select_draft_clauses: OKC_API.G_EXCEPTION_ERROR Exception' );
2128: END IF;
2129:
2130: ROLLBACK TO change_clause_status_pvt;
2131: x_return_status := G_RET_STS_ERROR ;
2132: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2133:
2134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2135: /*IF (l_debug = 'Y') THEN
2136: okc_debug.log('900: Leaving select_draft_clauses: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2137: END IF;*/
2138:
2139: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2140: FND_LOG.STRING(G_EXCP_LEVEL,
2137: END IF;*/
2138:
2139: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2140: FND_LOG.STRING(G_EXCP_LEVEL,
2141: G_PKG_NAME, '900: Leaving select_draft_clauses: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception' );
2142: END IF;
2143:
2144: ROLLBACK TO change_clause_status_pvt;
2145: x_return_status := G_RET_STS_UNEXP_ERROR ;