16: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
19: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_OC_INT_PUB';
20: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
21: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
22: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
23: G_API_TYPE VARCHAR2(30) := '_PROCESS';
24:
17: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
19: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_OC_INT_PUB';
20: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
21: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
22: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
23: G_API_TYPE VARCHAR2(30) := '_PROCESS';
24:
25: L_LOG_ENABLED VARCHAR2(200);
18: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
19: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_OC_INT_PUB';
20: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
21: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
22: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
23: G_API_TYPE VARCHAR2(30) := '_PROCESS';
24:
25: L_LOG_ENABLED VARCHAR2(200);
26:
44: ) IS
45:
46: l_api_version CONSTANT NUMBER := 1;
47: lx_order_id okx_order_headers_v.id1%TYPE := NULL;
48: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
49: lx_msg_count NUMBER := 0;
50: lx_msg_data VARCHAR2(2000);
51: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
52: l_contract_id number;
47: lx_order_id okx_order_headers_v.id1%TYPE := NULL;
48: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
49: lx_msg_count NUMBER := 0;
50: lx_msg_data VARCHAR2(2000);
51: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
52: l_contract_id number;
53:
54:
55:
59: --
60:
61: --errorout('1');
62: OKS_KTO_INSREL_PUB.create_instance_rel(p_api_version => l_api_version
63: ,p_init_msg_list => OKC_API.G_TRUE
64: ,p_commit => OKC_API.G_TRUE
65: ,x_return_status => lx_return_status
66: ,x_msg_count => lx_msg_count
67: ,x_msg_data => lx_msg_data
60:
61: --errorout('1');
62: OKS_KTO_INSREL_PUB.create_instance_rel(p_api_version => l_api_version
63: ,p_init_msg_list => OKC_API.G_TRUE
64: ,p_commit => OKC_API.G_TRUE
65: ,x_return_status => lx_return_status
66: ,x_msg_count => lx_msg_count
67: ,x_msg_data => lx_msg_data
68: ,p_contract_id => p_contract_id);
69: --errorout('10');
70:
71: -- no need to check for errors, message stack should be set,
72: -- nothing to return to caller
73: IF lx_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
74: IF lx_order_id IS NULL THEN
75: RETCODE := 2;
76: ELSE
77: RETCODE := 1;
185: l_txn_rec.split_reason_code := '';
186:
187: csi_ii_relationships_pub.create_relationship(
188: p_api_version => 1.0,
189: p_init_msg_list => OKC_API.G_FALSE,
190: p_commit => l_commit,
191: p_validation_level=> l_validation_level,
192: x_return_status => l_return_status,
193: x_msg_count => l_msg_count,
201: i:=i+1;
202:
203: --errorout('return_status='||l_return_status);
204:
205: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
208: RAISE OKC_API.G_EXCEPTION_ERROR;
209: END IF;
202:
203: --errorout('return_status='||l_return_status);
204:
205: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
208: RAISE OKC_API.G_EXCEPTION_ERROR;
209: END IF;
210:
203: --errorout('return_status='||l_return_status);
204:
205: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
208: RAISE OKC_API.G_EXCEPTION_ERROR;
209: END IF;
210:
211:
204:
205: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
207: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
208: RAISE OKC_API.G_EXCEPTION_ERROR;
209: END IF;
210:
211:
212: END LOOP;
215: -- check return status
216:
217:
218: EXCEPTION
219: when OKC_API.G_EXCEPTION_ERROR then
220: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
221: p_api_name => l_api_name,
222: p_pkg_name => g_pkg_name,
223: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
216:
217:
218: EXCEPTION
219: when OKC_API.G_EXCEPTION_ERROR then
220: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
221: p_api_name => l_api_name,
222: p_pkg_name => g_pkg_name,
223: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
224: x_msg_count => x_msg_count,
219: when OKC_API.G_EXCEPTION_ERROR then
220: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
221: p_api_name => l_api_name,
222: p_pkg_name => g_pkg_name,
223: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
224: x_msg_count => x_msg_count,
225: x_msg_data => x_msg_data,
226: p_api_type => g_api_type);
227:
224: x_msg_count => x_msg_count,
225: x_msg_data => x_msg_data,
226: p_api_type => g_api_type);
227:
228: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
229: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
230: p_api_name => l_api_name,
231: p_pkg_name => g_pkg_name,
232: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
225: x_msg_data => x_msg_data,
226: p_api_type => g_api_type);
227:
228: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
229: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
230: p_api_name => l_api_name,
231: p_pkg_name => g_pkg_name,
232: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
233: x_msg_count => x_msg_count,
228: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
229: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
230: p_api_name => l_api_name,
231: p_pkg_name => g_pkg_name,
232: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
233: x_msg_count => x_msg_count,
234: x_msg_data => x_msg_data,
235: p_api_type => g_api_type);
236:
234: x_msg_data => x_msg_data,
235: p_api_type => g_api_type);
236:
237: when OTHERS then
238: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
239: p_api_name => l_api_name,
240: p_pkg_name => g_pkg_name,
241: p_exc_name => 'OTHERS',
242: x_msg_count => x_msg_count,