11: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
13: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
14:
15: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
16: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
17:
18: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
12: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
13: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
14:
15: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
16: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
17:
18: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
20: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
14:
15: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
16: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
17:
18: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
20: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
21:
22: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
15: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
16: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
17:
18: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
20: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
21:
22: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
23: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
16: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
17:
18: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
19: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
20: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
21:
22: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
23: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
24: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
37: l_message VARCHAR2 (2000);
38: BEGIN
39: FOR i IN 1 .. fnd_msg_pub.count_msg
40: LOOP
41: l_message := fnd_msg_pub.get (i, p_encoded => fnd_api.g_false);
42:
43: IF (LENGTH (l_message) + LENGTH (Nvl(x_message,' '))) <= 2500
44: THEN
45: x_message := x_message || l_message;
113: p_msg_name => 'OKC_NO_DEFAULT_SCN_FOR_CLAUSE',
114: p_token1 => 'P_CLS_TITLE',
115: p_token1_value => l_article_title);
116: x_return_status := G_RET_STS_ERROR;
117: -- RAISE FND_API.G_EXC_ERROR ;
118: END IF;
119:
120: x_section_code := l_section_code;
121:
120: x_section_code := l_section_code;
121:
122: EXCEPTION
123:
124: WHEN FND_API.G_EXC_ERROR THEN
125:
126: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
127: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving update_variable_values: OKC_API.G_EXCEPTION_ERROR Exception');
128: END IF;
130: ROLLBACK TO g_clause_default_section_GRP;
131: x_return_status := G_RET_STS_ERROR ;
132: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => l_msg_count, p_data => l_msg_data );
133:
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
136: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving update_variable_values: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
137: END IF;
138:
153: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => l_msg_count, p_data => l_msg_data );
154:
155: END get_clause_default_section;
156:
157: PROCEDURE upd_mulmod_clause_changes(p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
158: p_multi_mod_req_id IN NUMBER,
159: p_document_type IN VARCHAR2,
160: p_document_id IN NUMBER,
161: p_org_id IN NUMBER,
261: -- Standard Start of API savepoint
262: SAVEPOINT g_upd_clause_changes_GRP;
263:
264: -- Initialize API return status to success
265: x_return_status := FND_API.G_RET_STS_SUCCESS;
266:
267: /*Check if terms are applied on the PO. If no then we cannot progress
268: with adding or deleting or replacing the clauses. Return error.*/
269: OPEN l_tmpl_doc_exist_csr;
271: IF l_tmpl_doc_exist_csr%NOTFOUND THEN
272: --Document does not have a template applied
273: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
274: p_msg_name => 'OKC_TERMS_DOES_NOT_EXIST');
275: x_return_status := FND_API.G_RET_STS_SUCCESS;
276: RAISE FND_API.G_EXC_ERROR ;
277: END IF;
278: CLOSE l_tmpl_doc_exist_csr;
279:
272: --Document does not have a template applied
273: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
274: p_msg_name => 'OKC_TERMS_DOES_NOT_EXIST');
275: x_return_status := FND_API.G_RET_STS_SUCCESS;
276: RAISE FND_API.G_EXC_ERROR ;
277: END IF;
278: CLOSE l_tmpl_doc_exist_csr;
279:
280: l_mode := 'AMEND';
298: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
299: p_msg_name => 'OKC_TERMS_INV_CLS_NAME',
300: p_token1 => 'P_CLS_TITLE',
301: p_token1_value => l_dummy);
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303: --RAISE FND_API.G_EXC_ERROR ;
304: CONTINUE;
305: END IF;
306: CLOSE c_get_article_details_csr;
299: p_msg_name => 'OKC_TERMS_INV_CLS_NAME',
300: p_token1 => 'P_CLS_TITLE',
301: p_token1_value => l_dummy);
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303: --RAISE FND_API.G_EXC_ERROR ;
304: CONTINUE;
305: END IF;
306: CLOSE c_get_article_details_csr;
307: END IF;
357: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
358: p_msg_name => 'OKC_NO_DEFAULT_SCN_FOR_CLAUSE',
359: p_token1 => 'P_CLS_TITLE',
360: p_token1_value => l_dummy);
361: x_return_status := FND_API.G_RET_STS_SUCCESS;
362: -- RAISE FND_API.G_EXC_ERROR ;
363: CONTINUE;
364:
365: END IF; --IF(l_section_code IS NOT NULL AND l_return_status = 'S')
358: p_msg_name => 'OKC_NO_DEFAULT_SCN_FOR_CLAUSE',
359: p_token1 => 'P_CLS_TITLE',
360: p_token1_value => l_dummy);
361: x_return_status := FND_API.G_RET_STS_SUCCESS;
362: -- RAISE FND_API.G_EXC_ERROR ;
363: CONTINUE;
364:
365: END IF; --IF(l_section_code IS NOT NULL AND l_return_status = 'S')
366:
447:
448: /*Update messages in the Concurrent Program Log*/
449: FOR i IN 1 .. fnd_msg_pub.count_msg
450: LOOP
451: l_message := fnd_msg_pub.get (i, p_encoded => fnd_api.g_false);
452: FND_FILE.put_line (FND_FILE.LOG, substrb('OKC' || ': ' || l_message, 1, 2000));
453: END LOOP;
454:
455: EXCEPTION
453: END LOOP;
454:
455: EXCEPTION
456:
457: WHEN FND_API.G_EXC_ERROR THEN
458:
459: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
460: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving update_variable_values: OKC_API.G_EXCEPTION_ERROR Exception');
461: END IF;
479: CLOSE c_get_article_details_csr;
480: END IF;
481:
482: --ROLLBACK TO g_upd_clause_changes_GRP;
483: x_return_status := FND_API.G_RET_STS_SUCCESS;
484: x_updated_yn := l_updated_yn;
485: read_message(x_message => l_msg_data);
486: FND_FILE.PUT_LINE(FND_FILE.LOG,l_msg_data);
487:
484: x_updated_yn := l_updated_yn;
485: read_message(x_message => l_msg_data);
486: FND_FILE.PUT_LINE(FND_FILE.LOG,l_msg_data);
487:
488: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
489: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
490: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving update_variable_values: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
491: END IF;
492:
532:
533: DELETE FROM po_multi_mod_clause_changes
534: WHERE multi_mod_request_id = p_multi_mod_req_id;
535:
536: x_return_status := FND_API.G_RET_STS_SUCCESS;
537:
538: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
539: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'1000: Leaving delete_mulmod_clause_changes');
540: END IF;
540: END IF;
541:
542: EXCEPTION
543:
544: WHEN FND_API.G_EXC_ERROR THEN
545:
546: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
547: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving delete_mulmod_clause_changes: OKC_API.G_EXCEPTION_ERROR Exception');
548: END IF;
550: ROLLBACK TO g_del_clause_changes_GRP;
551: x_return_status := G_RET_STS_ERROR ;
552: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => l_msg_count, p_data => l_msg_data );
553:
554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
555: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
556: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving delete_mulmod_clause_changes: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
557: END IF;
558:
620: x_return_status OUT NOCOPY VARCHAR2
621: ,p_locking_enabled_yn IN VARCHAR2 DEFAULT 'N')
622: IS
623: BEGIN
624: x_return_status := FND_API.G_RET_STS_SUCCESS;
625: END;
626:
627: END okc_po_mod_pkg;