13: ------------------------------------------------------------------------------
14: -- GLOBAL CONSTANTS
15: ------------------------------------------------------------------------------
16: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
17: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
18: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
19:
20: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
21: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
14: -- GLOBAL CONSTANTS
15: ------------------------------------------------------------------------------
16: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
17: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
18: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
19:
20: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
21: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
22: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
16: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
17: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
18: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
19:
20: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
21: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
22: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
23:
24: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
17: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
18: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
19:
20: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
21: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
22: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
23:
24: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
25: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
18: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
19:
20: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
21: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
22: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
23:
24: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
25: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
26: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
39: p_contract_rec IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_rec_type,
40: p_contract_parties_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_parties_tbl_type,
41: p_party_contacts_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.party_contacts_tbl_type,
42: p_risks_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_risks_tbl_type,
43: p_create_contract IN VARCHAR2 := fnd_api.g_true,
44: p_commit IN VARCHAR2 := fnd_api.g_false,
45: x_msg_data OUT NOCOPY VARCHAR2,
46: x_msg_count OUT NOCOPY NUMBER,
47: x_return_status OUT NOCOPY VARCHAR2
40: p_contract_parties_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_parties_tbl_type,
41: p_party_contacts_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.party_contacts_tbl_type,
42: p_risks_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_risks_tbl_type,
43: p_create_contract IN VARCHAR2 := fnd_api.g_true,
44: p_commit IN VARCHAR2 := fnd_api.g_false,
45: x_msg_data OUT NOCOPY VARCHAR2,
46: x_msg_count OUT NOCOPY NUMBER,
47: x_return_status OUT NOCOPY VARCHAR2
48: )
59: 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
60: END IF;
61:
62: -- Standard call to check for call compatibility.
63: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: OKC_REP_CONTRACT_IMP_PVT.create_contract( p_api_version => p_api_version,
60: END IF;
61:
62: -- Standard call to check for call compatibility.
63: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66:
67: OKC_REP_CONTRACT_IMP_PVT.create_contract( p_api_version => p_api_version,
68: p_contract_rec => p_contract_rec,
85: END create_contract;
86:
87: Procedure delete_contract(p_api_version IN NUMBER,
88: p_contract_id IN NUMBER,
89: p_commit IN VARCHAR2 := fnd_api.g_false,
90: x_msg_data OUT NOCOPY VARCHAR2,
91: x_msg_count OUT NOCOPY NUMBER,
92: x_return_status OUT NOCOPY VARCHAR2
93: )
104: 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
105: END IF;
106:
107: -- Standard call to check for call compatibility.
108: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110: END IF;
111:
112: OKC_REP_CONTRACT_IMP_PVT.delete_contract( p_api_version => p_api_version,
105: END IF;
106:
107: -- Standard call to check for call compatibility.
108: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110: END IF;
111:
112: OKC_REP_CONTRACT_IMP_PVT.delete_contract( p_api_version => p_api_version,
113: p_contract_id => p_contract_id,
129: p_contract_rec IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_rec_type,
130: p_contract_parties_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_parties_tbl_type,
131: p_party_contacts_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.party_contacts_tbl_type,
132: p_risks_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_risks_tbl_type,
133: p_commit IN VARCHAR2 := fnd_api.g_false,
134: x_msg_data OUT NOCOPY VARCHAR2,
135: x_msg_count OUT NOCOPY NUMBER,
136: x_return_status OUT NOCOPY VARCHAR2
137: ) IS
147: 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
148: END IF;
149:
150: -- Standard call to check for call compatibility.
151: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: END IF;
154:
155: OKC_REP_CONTRACT_IMP_PVT.create_contract( p_api_version => p_api_version,
148: END IF;
149:
150: -- Standard call to check for call compatibility.
151: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153: END IF;
154:
155: OKC_REP_CONTRACT_IMP_PVT.create_contract( p_api_version => p_api_version,
156: p_document_rec => p_document_rec,
180: Procedure delete_contract(p_api_version IN NUMBER,
181: p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
182: p_contract_type IN VARCHAR2 DEFAULT NULL,
183: p_contract_id IN NUMBER DEFAULT NULL,
184: p_commit IN VARCHAR2 := fnd_api.g_false,
185: x_msg_data OUT NOCOPY VARCHAR2,
186: x_msg_count OUT NOCOPY NUMBER,
187: x_return_status OUT NOCOPY VARCHAR2
188: )
199: 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
200: END IF;
201:
202: -- Standard call to check for call compatibility.
203: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
205: END IF;
206:
207: OKC_REP_CONTRACT_IMP_PVT.delete_contract( p_api_version => p_api_version,
200: END IF;
201:
202: -- Standard call to check for call compatibility.
203: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
205: END IF;
206:
207: OKC_REP_CONTRACT_IMP_PVT.delete_contract( p_api_version => p_api_version,
208: p_document_rec => p_document_rec,
227: */
228:
229: Procedure create_new_contract_version(p_api_version IN NUMBER,
230: p_contract_id IN NUMBER,
231: p_commit IN VARCHAR2 := fnd_api.g_false,
232: x_msg_data OUT NOCOPY VARCHAR2,
233: x_msg_count OUT NOCOPY NUMBER,
234: x_return_status OUT NOCOPY VARCHAR2
235: )
252: 'p_commit : '||p_commit);
253: END IF;
254:
255: -- Standard call to check for call compatibility.
256: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: END IF;
259:
260: SELECT okc_rep_import_run_id_s.NEXTVAL INTO l_run_id FROM dual;
253: END IF;
254:
255: -- Standard call to check for call compatibility.
256: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258: END IF;
259:
260: SELECT okc_rep_import_run_id_s.NEXTVAL INTO l_run_id FROM dual;
261:
292: Procedure create_new_contract_version(p_api_version IN NUMBER,
293: p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
294: p_contract_type IN VARCHAR2 DEFAULT NULL,
295: p_contract_id IN NUMBER DEFAULT NULL,
296: p_commit IN VARCHAR2 := fnd_api.g_false,
297: x_msg_data OUT NOCOPY VARCHAR2,
298: x_msg_count OUT NOCOPY NUMBER,
299: x_return_status OUT NOCOPY VARCHAR2
300: )
318: 'p_commit : '||p_commit);
319: END IF;
320:
321: -- Standard call to check for call compatibility.
322: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324: END IF;
325:
326: SELECT okc_rep_import_run_id_s.NEXTVAL INTO l_run_id FROM dual;
319: END IF;
320:
321: -- Standard call to check for call compatibility.
322: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324: END IF;
325:
326: SELECT okc_rep_import_run_id_s.NEXTVAL INTO l_run_id FROM dual;
327:
376: 'p_document_rec.business_document_version '||p_document_rec.business_document_version);
377: END IF;
378:
379: -- Standard call to check for call compatibility.
380: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: END IF;
383:
384: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
377: END IF;
378:
379: -- Standard call to check for call compatibility.
380: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: END IF;
383:
384: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
385: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
430: 'p_document_rec.business_document_version '||p_document_rec.business_document_version);
431: END IF;
432:
433: -- Standard call to check for call compatibility.
434: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437:
438: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
431: END IF;
432:
433: -- Standard call to check for call compatibility.
434: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436: END IF;
437:
438: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
439: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
465: Procedure cancel_contract(p_api_version IN NUMBER,
466: p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
467: p_contract_type IN VARCHAR2 DEFAULT NULL,
468: p_contract_id IN NUMBER DEFAULT NULL,
469: p_commit IN VARCHAR2 := fnd_api.g_false,
470: x_msg_data OUT NOCOPY VARCHAR2,
471: x_msg_count OUT NOCOPY NUMBER,
472: x_return_status OUT NOCOPY VARCHAR2
473: )
492: 'p_document_rec.business_document_version '||p_document_rec.business_document_version);
493: END IF;
494:
495: -- Standard call to check for call compatibility.
496: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498: END IF;
499:
500: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
493: END IF;
494:
495: -- Standard call to check for call compatibility.
496: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498: END IF;
499:
500: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
501: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
522: Cancels the Contract for the given document type.
523: */
524:
525: Procedure cancel_contract(p_api_version IN NUMBER,
526: p_commit IN VARCHAR2 := fnd_api.g_false,
527: p_contract_id IN NUMBER,
528: x_msg_data OUT NOCOPY VARCHAR2,
529: x_msg_count OUT NOCOPY NUMBER,
530: x_return_status OUT NOCOPY VARCHAR2)
545: 'p_contract_id '||p_contract_id);
546: END IF;
547:
548: -- Standard call to check for call compatibility.
549: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
551: END IF;
552:
553: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
546: END IF;
547:
548: -- Standard call to check for call compatibility.
549: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
550: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
551: END IF;
552:
553: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
554: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
572: Cancels the Contract for the given document type.
573: */
574:
575: Procedure delete_cancel_contract(p_api_version IN NUMBER,
576: p_commit IN VARCHAR2 := fnd_api.g_false,
577: p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
578: p_contract_type IN VARCHAR2 DEFAULT NULL,
579: p_contract_id IN NUMBER DEFAULT NULL,
580: x_msg_data OUT NOCOPY VARCHAR2,
600: 'p_document_rec.business_document_version '||p_document_rec.business_document_version);
601: END IF;
602:
603: -- Standard call to check for call compatibility.
604: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: END IF;
607:
608: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
601: END IF;
602:
603: -- Standard call to check for call compatibility.
604: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606: END IF;
607:
608: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
609: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,