14: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
17: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_OC_INT_PUB';
18: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
19: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
21: G_API_TYPE VARCHAR2(30) := '_PROCESS';
22:
15: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
17: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_OC_INT_PUB';
18: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
19: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
21: G_API_TYPE VARCHAR2(30) := '_PROCESS';
22:
23: L_LOG_ENABLED VARCHAR2(200);
16: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
17: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_OC_INT_PUB';
18: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
19: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
20: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
21: G_API_TYPE VARCHAR2(30) := '_PROCESS';
22:
23: L_LOG_ENABLED VARCHAR2(200);
24:
51: --
52: -- call full version of create_quote_from_k
53: --
54: OKC_OC_INT_PUB.create_quote_from_k(p_api_version => l_api_version
55: ,p_init_msg_list => OKC_API.G_TRUE
56: ,p_commit => OKC_API.G_TRUE
57: ,x_return_status => x_return_status
58: ,x_msg_count => x_msg_count
59: ,x_msg_data => x_msg_data
52: -- call full version of create_quote_from_k
53: --
54: OKC_OC_INT_PUB.create_quote_from_k(p_api_version => l_api_version
55: ,p_init_msg_list => OKC_API.G_TRUE
56: ,p_commit => OKC_API.G_TRUE
57: ,x_return_status => x_return_status
58: ,x_msg_count => x_msg_count
59: ,x_msg_data => x_msg_data
60: --
88: ) IS
89:
90: l_api_version CONSTANT NUMBER := 1;
91: lx_quote_id okx_quote_headers_v.id1%TYPE := NULL;
92: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
93: lx_msg_count NUMBER := 0;
94: lx_msg_data VARCHAR2(2000);
95: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
96:
91: lx_quote_id okx_quote_headers_v.id1%TYPE := NULL;
92: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
93: lx_msg_count NUMBER := 0;
94: lx_msg_data VARCHAR2(2000);
95: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
96:
97: BEGIN
98: --
99: -- call full version of create_quote_from_k
97: BEGIN
98: --
99: -- call full version of create_quote_from_k
100: --
101: IF p_trace_mode = OKC_API.G_MISS_CHAR OR p_trace_mode IS NULL THEN
102: l_trace_mode:=OKC_API.G_TRUE;
103: ELSE
104: l_trace_mode:=p_trace_mode;
105: END IF;
98: --
99: -- call full version of create_quote_from_k
100: --
101: IF p_trace_mode = OKC_API.G_MISS_CHAR OR p_trace_mode IS NULL THEN
102: l_trace_mode:=OKC_API.G_TRUE;
103: ELSE
104: l_trace_mode:=p_trace_mode;
105: END IF;
106: OKC_OC_INT_PUB.create_quote_from_k(p_api_version => l_api_version
103: ELSE
104: l_trace_mode:=p_trace_mode;
105: END IF;
106: OKC_OC_INT_PUB.create_quote_from_k(p_api_version => l_api_version
107: ,p_init_msg_list => OKC_API.G_TRUE
108: ,p_commit => OKC_API.G_TRUE
109: ,x_return_status => lx_return_status
110: ,x_msg_count => lx_msg_count
111: ,x_msg_data => lx_msg_data
104: l_trace_mode:=p_trace_mode;
105: END IF;
106: OKC_OC_INT_PUB.create_quote_from_k(p_api_version => l_api_version
107: ,p_init_msg_list => OKC_API.G_TRUE
108: ,p_commit => OKC_API.G_TRUE
109: ,x_return_status => lx_return_status
110: ,x_msg_count => lx_msg_count
111: ,x_msg_data => lx_msg_data
112: --
117: ,x_quote_id => lx_quote_id);
118:
119: -- no need to check for errors, message stack should be set,
120: -- nothing to return to caller
121: IF lx_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
122: IF lx_quote_id IS NULL THEN
123: RETCODE := 2;
124: ELSE
125: RETCODE := 1;
149: ) IS
150:
151: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_Q_FROM_K';
152: l_api_version CONSTANT NUMBER := 1;
153: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
154: lx_msg_count NUMBER := 0;
155: lx_msg_data VARCHAR2(2000);
156: l_trace_mode VARCHAR2(1);
157:
157:
158: BEGIN
159: -- call START_ACTIVITY to create savepoint, check compatibility
160: -- and initialize message list
161: lx_return_status := OKC_API.START_ACTIVITY(
162: p_api_name => l_api_name,
163: p_pkg_name => g_pkg_name,
164: p_init_msg_list => p_init_msg_list,
165: l_api_version => l_api_version,
167: p_api_type => g_api_type,
168: x_return_status => lx_return_status);
169:
170: -- check if activity started successfully
171: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
172: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
173: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
174: RAISE OKC_API.G_EXCEPTION_ERROR;
175: END IF;
168: x_return_status => lx_return_status);
169:
170: -- check if activity started successfully
171: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
172: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
173: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
174: RAISE OKC_API.G_EXCEPTION_ERROR;
175: END IF;
176:
169:
170: -- check if activity started successfully
171: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
172: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
173: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
174: RAISE OKC_API.G_EXCEPTION_ERROR;
175: END IF;
176:
177: -- call before user hooks
170: -- check if activity started successfully
171: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
172: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
173: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
174: RAISE OKC_API.G_EXCEPTION_ERROR;
175: END IF;
176:
177: -- call before user hooks
178: null;
177: -- call before user hooks
178: null;
179:
180: -- trace mode initialization turned ON
181: IF p_trace_mode = okc_api.g_true OR
182: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' OR
183: p_trace_mode = okc_oc_int_ktq_pvt.g_support THEN
184: l_trace_mode := okc_api.g_true;
185: okc_util.init_trace;
180: -- trace mode initialization turned ON
181: IF p_trace_mode = okc_api.g_true OR
182: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' OR
183: p_trace_mode = okc_oc_int_ktq_pvt.g_support THEN
184: l_trace_mode := okc_api.g_true;
185: okc_util.init_trace;
186: ELSE
187: -- Bug 2234902
188: okc_util.set_trace_context(FND_GLOBAL.conc_request_id, lx_return_status);
186: ELSE
187: -- Bug 2234902
188: okc_util.set_trace_context(FND_GLOBAL.conc_request_id, lx_return_status);
189: okc_util.l_output_flag :=TRUE;
190: lx_return_status := OKC_API.G_RET_STS_SUCCESS;
191: -- End Bug 2234902
192: l_trace_mode := okc_api.g_false;
193: END IF;
194:
188: okc_util.set_trace_context(FND_GLOBAL.conc_request_id, lx_return_status);
189: okc_util.l_output_flag :=TRUE;
190: lx_return_status := OKC_API.G_RET_STS_SUCCESS;
191: -- End Bug 2234902
192: l_trace_mode := okc_api.g_false;
193: END IF;
194:
195: -- call the main routine
196: OKC_OC_INT_KTQ_PVT.create_quote_from_k(p_api_version => l_api_version
193: END IF;
194:
195: -- call the main routine
196: OKC_OC_INT_KTQ_PVT.create_quote_from_k(p_api_version => l_api_version
197: ,p_init_msg_list => OKC_API.G_FALSE
198: ,x_return_status => lx_return_status
199: ,x_msg_count => lx_msg_count
200: ,x_msg_data => lx_msg_data
201: --
206: ,x_quote_id => x_quote_id
207: );
208:
209: -- trace mode initialization turned OFF
210: IF l_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
211: okc_util.stop_trace;
212: END IF;
213:
214: -- check return status
211: okc_util.stop_trace;
212: END IF;
213:
214: -- check return status
215: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
216: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
218: RAISE OKC_API.G_EXCEPTION_ERROR;
219: END IF;
212: END IF;
213:
214: -- check return status
215: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
216: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
218: RAISE OKC_API.G_EXCEPTION_ERROR;
219: END IF;
220:
213:
214: -- check return status
215: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
216: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
218: RAISE OKC_API.G_EXCEPTION_ERROR;
219: END IF;
220:
221: -- call AFTER user hook
214: -- check return status
215: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
216: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
217: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
218: RAISE OKC_API.G_EXCEPTION_ERROR;
219: END IF;
220:
221: -- call AFTER user hook
222: null;
223:
224: -- if we got this far, then we are successful
225: IF p_trace_mode <> okc_oc_int_ktq_pvt.g_support OR
226: p_trace_mode IS NULL THEN
227: IF p_commit = OKC_API.G_TRUE THEN
228: COMMIT;
229: END IF;
230: END IF;
231:
230: END IF;
231:
232:
233: -- end activity
234: OKC_API.END_ACTIVITY( x_msg_count => lx_msg_count,
235: x_msg_data => lx_msg_data);
236:
237: x_return_status := lx_return_status;
238: x_msg_count := lx_msg_count;
238: x_msg_count := lx_msg_count;
239: x_msg_data := lx_msg_data;
240:
241: EXCEPTION
242: when OKC_API.G_EXCEPTION_ERROR then
243: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
244: p_api_name => l_api_name,
245: p_pkg_name => g_pkg_name,
246: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
239: x_msg_data := lx_msg_data;
240:
241: EXCEPTION
242: when OKC_API.G_EXCEPTION_ERROR then
243: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
244: p_api_name => l_api_name,
245: p_pkg_name => g_pkg_name,
246: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
247: x_msg_count => x_msg_count,
242: when OKC_API.G_EXCEPTION_ERROR then
243: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
244: p_api_name => l_api_name,
245: p_pkg_name => g_pkg_name,
246: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
247: x_msg_count => x_msg_count,
248: x_msg_data => x_msg_data,
249: p_api_type => g_api_type);
250:
247: x_msg_count => x_msg_count,
248: x_msg_data => x_msg_data,
249: p_api_type => g_api_type);
250:
251: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
252: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
253: p_api_name => l_api_name,
254: p_pkg_name => g_pkg_name,
255: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
248: x_msg_data => x_msg_data,
249: p_api_type => g_api_type);
250:
251: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
252: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
253: p_api_name => l_api_name,
254: p_pkg_name => g_pkg_name,
255: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
256: x_msg_count => x_msg_count,
251: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
252: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
253: p_api_name => l_api_name,
254: p_pkg_name => g_pkg_name,
255: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
256: x_msg_count => x_msg_count,
257: x_msg_data => x_msg_data,
258: p_api_type => g_api_type);
259:
257: x_msg_data => x_msg_data,
258: p_api_type => g_api_type);
259:
260: when OTHERS then
261: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
262: p_api_name => l_api_name,
263: p_pkg_name => g_pkg_name,
264: p_exc_name => 'OTHERS',
265: x_msg_count => x_msg_count,
289:
290: ) IS
291:
292: l_api_version CONSTANT NUMBER := 1;
293: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
294: --
295: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
296: lx_msg_count NUMBER := 0;
297: lx_msg_data VARCHAR2(2000);
291:
292: l_api_version CONSTANT NUMBER := 1;
293: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
294: --
295: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
296: lx_msg_count NUMBER := 0;
297: lx_msg_data VARCHAR2(2000);
298:
299: BEGIN
299: BEGIN
300: --
301: -- call full version of update_quote_from_k
302: --
303: IF p_trace_mode = OKC_API.G_MISS_CHAR OR p_trace_mode IS NULL THEN
304: l_trace_mode:=OKC_API.G_TRUE;
305: ELSE
306: l_trace_mode:=p_trace_mode;
307: END IF;
300: --
301: -- call full version of update_quote_from_k
302: --
303: IF p_trace_mode = OKC_API.G_MISS_CHAR OR p_trace_mode IS NULL THEN
304: l_trace_mode:=OKC_API.G_TRUE;
305: ELSE
306: l_trace_mode:=p_trace_mode;
307: END IF;
308: OKC_OC_INT_PUB.update_quote_from_k(p_api_version => l_api_version
305: ELSE
306: l_trace_mode:=p_trace_mode;
307: END IF;
308: OKC_OC_INT_PUB.update_quote_from_k(p_api_version => l_api_version
309: ,p_init_msg_list => OKC_API.G_FALSE
310: ,p_commit => OKC_API.G_FALSE
311: --
312: ,p_quote_id => p_quote_number
313: ,p_contract_id => p_contract_number
306: l_trace_mode:=p_trace_mode;
307: END IF;
308: OKC_OC_INT_PUB.update_quote_from_k(p_api_version => l_api_version
309: ,p_init_msg_list => OKC_API.G_FALSE
310: ,p_commit => OKC_API.G_FALSE
311: --
312: ,p_quote_id => p_quote_number
313: ,p_contract_id => p_contract_number
314: --
320:
321:
322: -- no need to check for errors, message stack should be set,
323: -- nothing to return to caller
324: IF lx_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
325: -- IF lx_quote_id IS NULL THEN
326: -- RETCODE := 2;
327: -- ELSE
328: -- RETCODE := 1;
355: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_Q_FROM_K';
356: l_api_version CONSTANT NUMBER := 1;
357: l_trace_mode VARCHAR2(1);
358: --
359: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
360: lx_msg_count NUMBER := 0;
361: lx_msg_data VARCHAR2(2000);
362:
363: BEGIN
375: ** quote from a contract..
376: ** Date: 09/13/2001
377: ** -- call START_ACTIVITY to create savepoint, check compatibility
378: ** -- and initialize message list
379: ** lx_return_status := OKC_API.START_ACTIVITY(
380: ** p_api_name => l_api_name,
381: ** p_pkg_name => g_pkg_name,
382: ** p_init_msg_list => p_init_msg_list,
383: ** l_api_version => l_api_version,
385: ** p_api_type => g_api_type,
386: ** x_return_status => lx_return_status);
387: **
388: ** -- check if activity started successfully
389: ** IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
390: ** RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
391: ** ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
392: ** RAISE OKC_API.G_EXCEPTION_ERROR;
393: ** END IF;
386: ** x_return_status => lx_return_status);
387: **
388: ** -- check if activity started successfully
389: ** IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
390: ** RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
391: ** ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
392: ** RAISE OKC_API.G_EXCEPTION_ERROR;
393: ** END IF;
394: **
387: **
388: ** -- check if activity started successfully
389: ** IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
390: ** RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
391: ** ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
392: ** RAISE OKC_API.G_EXCEPTION_ERROR;
393: ** END IF;
394: **
395: ** -- call before user hooks
388: ** -- check if activity started successfully
389: ** IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
390: ** RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
391: ** ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
392: ** RAISE OKC_API.G_EXCEPTION_ERROR;
393: ** END IF;
394: **
395: ** -- call before user hooks
396: ** null;
395: ** -- call before user hooks
396: ** null;
397: **
398: ** -- trace mode initialization turned ON
399: ** IF p_trace_mode = okc_api.g_true OR
400: ** FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' OR
401: ** p_trace_mode = okc_oc_int_ktq_pvt.g_support THEN
402: ** l_trace_mode := okc_api.g_true;
403: ** okc_util.init_trace;
398: ** -- trace mode initialization turned ON
399: ** IF p_trace_mode = okc_api.g_true OR
400: ** FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' OR
401: ** p_trace_mode = okc_oc_int_ktq_pvt.g_support THEN
402: ** l_trace_mode := okc_api.g_true;
403: ** okc_util.init_trace;
404: ** ELSE
405: ** l_trace_mode := okc_api.g_false;
406: ** END IF;
401: ** p_trace_mode = okc_oc_int_ktq_pvt.g_support THEN
402: ** l_trace_mode := okc_api.g_true;
403: ** okc_util.init_trace;
404: ** ELSE
405: ** l_trace_mode := okc_api.g_false;
406: ** END IF;
407: **
408: ** -- call the main routine
409: ** OKC_OC_INT_KTQ_PVT.update_quote_from_k(
407: **
408: ** -- call the main routine
409: ** OKC_OC_INT_KTQ_PVT.update_quote_from_k(
410: ** p_api_version => l_api_version
411: ** ,p_init_msg_list => OKC_API.G_FALSE
412: ** --
413: ** ,p_quote_id => p_quote_id
414: ** ,p_contract_id => p_contract_id
415: ** --
419: ** ,x_msg_count => lx_msg_count
420: ** ,x_msg_data => lx_msg_data );
421: **
422: ** -- trace mode initialization turned OFF
423: ** IF l_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
424: ** okc_util.stop_trace;
425: ** END IF;
426: **
427: ** -- check return status
424: ** okc_util.stop_trace;
425: ** END IF;
426: **
427: ** -- check return status
428: ** IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
429: ** RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
430: ** ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
431: ** RAISE OKC_API.G_EXCEPTION_ERROR;
432: ** END IF;
425: ** END IF;
426: **
427: ** -- check return status
428: ** IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
429: ** RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
430: ** ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
431: ** RAISE OKC_API.G_EXCEPTION_ERROR;
432: ** END IF;
433: **
426: **
427: ** -- check return status
428: ** IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
429: ** RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
430: ** ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
431: ** RAISE OKC_API.G_EXCEPTION_ERROR;
432: ** END IF;
433: **
434: ** -- call AFTER user hook
427: ** -- check return status
428: ** IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
429: ** RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
430: ** ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
431: ** RAISE OKC_API.G_EXCEPTION_ERROR;
432: ** END IF;
433: **
434: ** -- call AFTER user hook
435: ** null;
436: **
437: ** -- if we got this far, then we are successful
438: ** IF p_trace_mode <> okc_oc_int_ktq_pvt.g_support OR
439: ** p_trace_mode IS NULL THEN
440: ** IF p_commit = OKC_API.G_TRUE THEN
441: ** COMMIT;
442: ** END IF;
443: ** END IF;
444: **
443: ** END IF;
444: **
445: **
446: ** -- end activity
447: ** OKC_API.END_ACTIVITY( x_msg_count => lx_msg_count,
448: ** x_msg_data => lx_msg_data);
449: **
450: */
451: x_return_status := lx_return_status;
452: x_msg_count := lx_msg_count;
453: x_msg_data := lx_msg_data;
454:
455: EXCEPTION
456: when OKC_API.G_EXCEPTION_ERROR then
457: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
458: p_api_name => l_api_name,
459: p_pkg_name => g_pkg_name,
460: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
453: x_msg_data := lx_msg_data;
454:
455: EXCEPTION
456: when OKC_API.G_EXCEPTION_ERROR then
457: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
458: p_api_name => l_api_name,
459: p_pkg_name => g_pkg_name,
460: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
461: x_msg_count => x_msg_count,
456: when OKC_API.G_EXCEPTION_ERROR then
457: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
458: p_api_name => l_api_name,
459: p_pkg_name => g_pkg_name,
460: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
461: x_msg_count => x_msg_count,
462: x_msg_data => x_msg_data,
463: p_api_type => g_api_type);
464:
461: x_msg_count => x_msg_count,
462: x_msg_data => x_msg_data,
463: p_api_type => g_api_type);
464:
465: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
466: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
467: p_api_name => l_api_name,
468: p_pkg_name => g_pkg_name,
469: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
462: x_msg_data => x_msg_data,
463: p_api_type => g_api_type);
464:
465: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
466: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
467: p_api_name => l_api_name,
468: p_pkg_name => g_pkg_name,
469: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
470: x_msg_count => x_msg_count,
465: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
466: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
467: p_api_name => l_api_name,
468: p_pkg_name => g_pkg_name,
469: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
470: x_msg_count => x_msg_count,
471: x_msg_data => x_msg_data,
472: p_api_type => g_api_type);
473:
471: x_msg_data => x_msg_data,
472: p_api_type => g_api_type);
473:
474: when OTHERS then
475: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
476: p_api_name => l_api_name,
477: p_pkg_name => g_pkg_name,
478: p_exc_name => 'OTHERS',
479: x_msg_count => x_msg_count,
507: ) IS
508:
509: l_api_version CONSTANT NUMBER := 1;
510: lx_order_id okx_order_headers_v.id1%TYPE := NULL;
511: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
512: lx_msg_count NUMBER := 0;
513: lx_msg_data VARCHAR2(2000);
514: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
515:
510: lx_order_id okx_order_headers_v.id1%TYPE := NULL;
511: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
512: lx_msg_count NUMBER := 0;
513: lx_msg_data VARCHAR2(2000);
514: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
515:
516: BEGIN
517: --
518: -- call full version of create_order_from_k
516: BEGIN
517: --
518: -- call full version of create_order_from_k
519: --
520: IF p_trace_mode = OKC_API.G_MISS_CHAR OR p_trace_mode IS NULL THEN
521: l_trace_mode:=OKC_API.G_TRUE;
522: ELSE
523: l_trace_mode:=p_trace_mode;
524: END IF;
517: --
518: -- call full version of create_order_from_k
519: --
520: IF p_trace_mode = OKC_API.G_MISS_CHAR OR p_trace_mode IS NULL THEN
521: l_trace_mode:=OKC_API.G_TRUE;
522: ELSE
523: l_trace_mode:=p_trace_mode;
524: END IF;
525: OKC_OC_INT_PUB.create_order_from_k(p_api_version => l_api_version
522: ELSE
523: l_trace_mode:=p_trace_mode;
524: END IF;
525: OKC_OC_INT_PUB.create_order_from_k(p_api_version => l_api_version
526: ,p_init_msg_list => OKC_API.G_TRUE
527: ,p_commit => OKC_API.G_TRUE
528: ,x_return_status => lx_return_status
529: ,x_msg_count => lx_msg_count
530: ,x_msg_data => lx_msg_data
523: l_trace_mode:=p_trace_mode;
524: END IF;
525: OKC_OC_INT_PUB.create_order_from_k(p_api_version => l_api_version
526: ,p_init_msg_list => OKC_API.G_TRUE
527: ,p_commit => OKC_API.G_TRUE
528: ,x_return_status => lx_return_status
529: ,x_msg_count => lx_msg_count
530: ,x_msg_data => lx_msg_data
531: --
536: ,x_order_id => lx_order_id);
537:
538: -- no need to check for errors, message stack should be set,
539: -- nothing to return to caller
540: IF lx_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
541: IF lx_order_id IS NULL THEN
542: RETCODE := 2;
543: ELSE
544: RETCODE := 1;
568: ) IS
569:
570: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_O_FROM_K';
571: l_api_version CONSTANT NUMBER := 1;
572: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
573: lx_msg_count NUMBER := 0;
574: lx_msg_data VARCHAR2(2000);
575: l_trace_mode VARCHAR2(1);
576:
576:
577: BEGIN
578: -- call START_ACTIVITY to create savepoint, check compatibility
579: -- and initialize message list
580: lx_return_status := OKC_API.START_ACTIVITY(
581: p_api_name => l_api_name,
582: p_pkg_name => g_pkg_name,
583: p_init_msg_list => p_init_msg_list,
584: l_api_version => l_api_version,
586: p_api_type => g_api_type,
587: x_return_status => lx_return_status);
588:
589: -- check if activity started successfully
590: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
592: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
593: RAISE OKC_API.G_EXCEPTION_ERROR;
594: END IF;
587: x_return_status => lx_return_status);
588:
589: -- check if activity started successfully
590: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
592: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
593: RAISE OKC_API.G_EXCEPTION_ERROR;
594: END IF;
595:
588:
589: -- check if activity started successfully
590: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
592: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
593: RAISE OKC_API.G_EXCEPTION_ERROR;
594: END IF;
595:
596: -- call before user hooks
589: -- check if activity started successfully
590: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
592: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
593: RAISE OKC_API.G_EXCEPTION_ERROR;
594: END IF;
595:
596: -- call before user hooks
597: null;
596: -- call before user hooks
597: null;
598:
599: -- trace mode initialization turned ON
600: IF p_trace_mode = okc_api.g_true OR
601: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' OR
602: p_trace_mode = okc_oc_int_ktq_pvt.g_support THEN
603: l_trace_mode := okc_api.g_true;
604: okc_util.init_trace;
599: -- trace mode initialization turned ON
600: IF p_trace_mode = okc_api.g_true OR
601: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' OR
602: p_trace_mode = okc_oc_int_ktq_pvt.g_support THEN
603: l_trace_mode := okc_api.g_true;
604: okc_util.init_trace;
605: ELSE
606: -- Bug 2234902
607: okc_util.set_trace_context(FND_GLOBAL.conc_request_id, lx_return_status);
605: ELSE
606: -- Bug 2234902
607: okc_util.set_trace_context(FND_GLOBAL.conc_request_id, lx_return_status);
608: okc_util.l_output_flag :=TRUE;
609: lx_return_status := OKC_API.G_RET_STS_SUCCESS;
610: -- End Bug 2234902
611: l_trace_mode := okc_api.g_false;
612: END IF;
613:
607: okc_util.set_trace_context(FND_GLOBAL.conc_request_id, lx_return_status);
608: okc_util.l_output_flag :=TRUE;
609: lx_return_status := OKC_API.G_RET_STS_SUCCESS;
610: -- End Bug 2234902
611: l_trace_mode := okc_api.g_false;
612: END IF;
613:
614: -- call the main routine
615: OKC_OC_INT_KTO_PVT.create_order_from_k(p_api_version => l_api_version
612: END IF;
613:
614: -- call the main routine
615: OKC_OC_INT_KTO_PVT.create_order_from_k(p_api_version => l_api_version
616: ,p_init_msg_list => OKC_API.G_FALSE
617: ,x_return_status => lx_return_status
618: ,x_msg_count => lx_msg_count
619: ,x_msg_data => lx_msg_data
620: --
625: ,x_order_id => x_order_id
626: );
627:
628: -- trace mode initialization turned OFF
629: IF l_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
630: okc_util.stop_trace;
631: END IF;
632:
633: -- check return status
630: okc_util.stop_trace;
631: END IF;
632:
633: -- check return status
634: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
636: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
637: RAISE OKC_API.G_EXCEPTION_ERROR;
638: END IF;
631: END IF;
632:
633: -- check return status
634: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
636: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
637: RAISE OKC_API.G_EXCEPTION_ERROR;
638: END IF;
639:
632:
633: -- check return status
634: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
636: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
637: RAISE OKC_API.G_EXCEPTION_ERROR;
638: END IF;
639:
640: -- call AFTER user hook
633: -- check return status
634: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
636: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
637: RAISE OKC_API.G_EXCEPTION_ERROR;
638: END IF;
639:
640: -- call AFTER user hook
641: null;
642:
643: -- if we got this far, then we are successful
644: IF p_trace_mode <> okc_oc_int_ktq_pvt.g_support OR
645: p_trace_mode IS NULL THEN
646: IF p_commit = OKC_API.G_TRUE THEN
647: COMMIT;
648: END IF;
649: END IF;
650:
649: END IF;
650:
651:
652: -- end activity
653: OKC_API.END_ACTIVITY( x_msg_count => lx_msg_count,
654: x_msg_data => lx_msg_data);
655:
656: x_return_status := lx_return_status;
657: x_msg_count := lx_msg_count;
657: x_msg_count := lx_msg_count;
658: x_msg_data := lx_msg_data;
659:
660: EXCEPTION
661: when OKC_API.G_EXCEPTION_ERROR then
662: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
663: p_api_name => l_api_name,
664: p_pkg_name => g_pkg_name,
665: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
658: x_msg_data := lx_msg_data;
659:
660: EXCEPTION
661: when OKC_API.G_EXCEPTION_ERROR then
662: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
663: p_api_name => l_api_name,
664: p_pkg_name => g_pkg_name,
665: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
666: x_msg_count => x_msg_count,
661: when OKC_API.G_EXCEPTION_ERROR then
662: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
663: p_api_name => l_api_name,
664: p_pkg_name => g_pkg_name,
665: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
666: x_msg_count => x_msg_count,
667: x_msg_data => x_msg_data,
668: p_api_type => g_api_type);
669:
666: x_msg_count => x_msg_count,
667: x_msg_data => x_msg_data,
668: p_api_type => g_api_type);
669:
670: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
671: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
672: p_api_name => l_api_name,
673: p_pkg_name => g_pkg_name,
674: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
667: x_msg_data => x_msg_data,
668: p_api_type => g_api_type);
669:
670: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
671: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
672: p_api_name => l_api_name,
673: p_pkg_name => g_pkg_name,
674: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
675: x_msg_count => x_msg_count,
670: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
671: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
672: p_api_name => l_api_name,
673: p_pkg_name => g_pkg_name,
674: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
675: x_msg_count => x_msg_count,
676: x_msg_data => x_msg_data,
677: p_api_type => g_api_type);
678:
676: x_msg_data => x_msg_data,
677: p_api_type => g_api_type);
678:
679: when OTHERS then
680: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
681: p_api_name => l_api_name,
682: p_pkg_name => g_pkg_name,
683: p_exc_name => 'OTHERS',
684: x_msg_count => x_msg_count,
712:
713: l_api_version CONSTANT NUMBER := 1;
714: lx_contract_id okc_k_headers_b.id%TYPE := NULL;
715: lx_contract_number VARCHAR2(1000) := NULL;
716: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
717: lx_msg_count NUMBER := 0;
718: lx_msg_data VARCHAR2(2000);
719: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
720:
715: lx_contract_number VARCHAR2(1000) := NULL;
716: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
717: lx_msg_count NUMBER := 0;
718: lx_msg_data VARCHAR2(2000);
719: l_trace_mode VARCHAR2(1) := OKC_API.G_TRUE;
720:
721: BEGIN
722: --
723: -- call full version of create_quote_from_k
721: BEGIN
722: --
723: -- call full version of create_quote_from_k
724: --
725: IF p_trace_mode = OKC_API.G_MISS_CHAR OR p_trace_mode IS NULL THEN
726: l_trace_mode:=OKC_API.G_TRUE;
727: ELSE
728: l_trace_mode:=p_trace_mode;
729: END IF;
722: --
723: -- call full version of create_quote_from_k
724: --
725: IF p_trace_mode = OKC_API.G_MISS_CHAR OR p_trace_mode IS NULL THEN
726: l_trace_mode:=OKC_API.G_TRUE;
727: ELSE
728: l_trace_mode:=p_trace_mode;
729: END IF;
730: OKC_OC_INT_PUB.create_k_from_quote(p_api_version => l_api_version
727: ELSE
728: l_trace_mode:=p_trace_mode;
729: END IF;
730: OKC_OC_INT_PUB.create_k_from_quote(p_api_version => l_api_version
731: ,p_init_msg_list => OKC_API.G_TRUE
732: ,p_commit => OKC_API.G_TRUE
733: ,p_quote_id => p_quote_id
734: ,p_template_id => p_template_id
735: ,p_template_version => p_template_version
728: l_trace_mode:=p_trace_mode;
729: END IF;
730: OKC_OC_INT_PUB.create_k_from_quote(p_api_version => l_api_version
731: ,p_init_msg_list => OKC_API.G_TRUE
732: ,p_commit => OKC_API.G_TRUE
733: ,p_quote_id => p_quote_id
734: ,p_template_id => p_template_id
735: ,p_template_version => p_template_version
736: ,p_rel_type => p_rel_type
733: ,p_quote_id => p_quote_id
734: ,p_template_id => p_template_id
735: ,p_template_version => p_template_version
736: ,p_rel_type => p_rel_type
737: ,p_terms_agreed_flag => OKC_API.G_FALSE
738: ,p_trace_mode => l_trace_mode
739: ,x_contract_id => lx_contract_id
740: ,x_contract_number => lx_contract_number
741: ,x_return_status => lx_return_status
743: ,x_msg_data => lx_msg_data);
744:
745: -- no need to check for errors, message stack should be set,
746: -- nothing to return to caller
747: IF lx_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
748: IF lx_contract_id IS NULL THEN
749: RETCODE := 2;
750: ELSE
751: RETCODE := 1;
784: ) IS
785:
786: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_FROM_Q';
787: l_api_version CONSTANT NUMBER := 1;
788: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
789: lx_msg_count NUMBER := 0;
790: lx_msg_data VARCHAR2(2000);
791:
792: BEGIN
789: lx_msg_count NUMBER := 0;
790: lx_msg_data VARCHAR2(2000);
791:
792: BEGIN
793: lx_return_status := OKC_API.START_ACTIVITY(
794: p_api_name => l_api_name,
795: p_pkg_name => g_pkg_name,
796: p_init_msg_list => p_init_msg_list,
797: l_api_version => l_api_version,
798: p_api_version => p_api_version,
799: p_api_type => g_api_type,
800: x_return_status => lx_return_status);
801:
802: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
805: RAISE OKC_API.G_EXCEPTION_ERROR;
806: END IF;
799: p_api_type => g_api_type,
800: x_return_status => lx_return_status);
801:
802: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
805: RAISE OKC_API.G_EXCEPTION_ERROR;
806: END IF;
807:
800: x_return_status => lx_return_status);
801:
802: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
805: RAISE OKC_API.G_EXCEPTION_ERROR;
806: END IF;
807:
808: -- call before user hooks
801:
802: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
804: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
805: RAISE OKC_API.G_EXCEPTION_ERROR;
806: END IF;
807:
808: -- call before user hooks
809: null;
808: -- call before user hooks
809: null;
810:
811: -- trace mode initialization turned ON
812: IF p_trace_mode = okc_api.g_true OR
813: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
814: okc_util.init_trace;
815: END IF;
816:
815: END IF;
816:
817: -- call the main routine
818: OKC_OC_INT_QTK_PVT.create_k_from_quote(p_api_version => l_api_version
819: ,p_init_msg_list => OKC_API.G_FALSE
820: ,p_quote_id => p_quote_id
821: ,p_template_id => p_template_id
822: ,p_template_version => p_template_version
823: ,p_rel_type => p_rel_type
829: ,x_msg_data => lx_msg_data
830: );
831:
832: -- trace mode initialization turned OFF
833: IF p_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
834: okc_util.stop_trace;
835: END IF;
836:
837: -- check return status
834: okc_util.stop_trace;
835: END IF;
836:
837: -- check return status
838: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
840: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
841: RAISE OKC_API.G_EXCEPTION_ERROR;
842: END IF;
835: END IF;
836:
837: -- check return status
838: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
840: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
841: RAISE OKC_API.G_EXCEPTION_ERROR;
842: END IF;
843:
836:
837: -- check return status
838: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
840: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
841: RAISE OKC_API.G_EXCEPTION_ERROR;
842: END IF;
843:
844: -- call AFTER user hook
837: -- check return status
838: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
840: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
841: RAISE OKC_API.G_EXCEPTION_ERROR;
842: END IF;
843:
844: -- call AFTER user hook
845: null;
844: -- call AFTER user hook
845: null;
846:
847: -- if we got this far, then we are successful
848: IF p_commit = OKC_API.G_TRUE THEN
849: COMMIT;
850: END IF;
851:
852: -- end activity
849: COMMIT;
850: END IF;
851:
852: -- end activity
853: OKC_API.END_ACTIVITY( x_msg_count => lx_msg_count,
854: x_msg_data => lx_msg_data);
855:
856: x_return_status := lx_return_status;
857: x_msg_count := lx_msg_count;
857: x_msg_count := lx_msg_count;
858: x_msg_data := lx_msg_data;
859:
860: EXCEPTION
861: when OKC_API.G_EXCEPTION_ERROR then
862: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
863: p_api_name => l_api_name,
864: p_pkg_name => g_pkg_name,
865: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
858: x_msg_data := lx_msg_data;
859:
860: EXCEPTION
861: when OKC_API.G_EXCEPTION_ERROR then
862: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
863: p_api_name => l_api_name,
864: p_pkg_name => g_pkg_name,
865: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
866: x_msg_count => x_msg_count,
861: when OKC_API.G_EXCEPTION_ERROR then
862: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
863: p_api_name => l_api_name,
864: p_pkg_name => g_pkg_name,
865: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
866: x_msg_count => x_msg_count,
867: x_msg_data => x_msg_data,
868: p_api_type => g_api_type);
869:
866: x_msg_count => x_msg_count,
867: x_msg_data => x_msg_data,
868: p_api_type => g_api_type);
869:
870: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
871: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
872: p_api_name => l_api_name,
873: p_pkg_name => g_pkg_name,
874: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
867: x_msg_data => x_msg_data,
868: p_api_type => g_api_type);
869:
870: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
871: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
872: p_api_name => l_api_name,
873: p_pkg_name => g_pkg_name,
874: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
875: x_msg_count => x_msg_count,
870: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
871: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
872: p_api_name => l_api_name,
873: p_pkg_name => g_pkg_name,
874: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
875: x_msg_count => x_msg_count,
876: x_msg_data => x_msg_data,
877: p_api_type => g_api_type);
878:
876: x_msg_data => x_msg_data,
877: p_api_type => g_api_type);
878:
879: when OTHERS then
880: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
881: p_api_name => l_api_name,
882: p_pkg_name => g_pkg_name,
883: p_exc_name => 'OTHERS',
884: x_msg_count => x_msg_count,
918: BEGIN
919:
920: -- call the main routine
921: create_k_from_quote(p_api_version => l_api_version
922: ,p_init_msg_list => OKC_API.G_FALSE
923: ,p_commit => p_commit
924: ,p_quote_id => p_quote_id
925: ,p_template_id => p_template_id
926: ,p_template_version => p_template_version
924: ,p_quote_id => p_quote_id
925: ,p_template_id => p_template_id
926: ,p_template_version => p_template_version
927: ,p_rel_type => p_rel_type
928: ,p_terms_agreed_flag => OKC_API.G_FALSE
929: ,x_contract_id => x_contract_id
930: ,p_trace_mode => p_trace_mode
931: ,x_contract_number => x_contract_number
932: ,x_return_status => x_return_status
955: ,x_msg_data OUT NOCOPY VARCHAR2) IS
956:
957: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_K_REL';
958: l_api_version CONSTANT NUMBER := 1;
959: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
960: lx_msg_count NUMBER := 0;
961: lx_msg_data VARCHAR2(2000);
962: l_trace_mode VARCHAR2(1);
963:
962: l_trace_mode VARCHAR2(1);
963:
964: BEGIN
965: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
966: lx_return_status := OKC_API.START_ACTIVITY(
967: p_api_name => l_api_name,
968: p_pkg_name => g_pkg_name,
969: p_init_msg_list => p_init_msg_list,
970: l_api_version => l_api_version,
972: p_api_type => g_api_type,
973: x_return_status => lx_return_status);
974:
975: -- check if activity started successfully
976: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
978: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
979: RAISE OKC_API.G_EXCEPTION_ERROR;
980: END IF;
973: x_return_status => lx_return_status);
974:
975: -- check if activity started successfully
976: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
978: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
979: RAISE OKC_API.G_EXCEPTION_ERROR;
980: END IF;
981:
974:
975: -- check if activity started successfully
976: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
978: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
979: RAISE OKC_API.G_EXCEPTION_ERROR;
980: END IF;
981:
982: -- call before user hooks
975: -- check if activity started successfully
976: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
978: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
979: RAISE OKC_API.G_EXCEPTION_ERROR;
980: END IF;
981:
982: -- call before user hooks
983: null;
982: -- call before user hooks
983: null;
984:
985: -- trace mode initialization turned ON
986: IF p_trace_mode = okc_api.g_true OR
987: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
988: THEN
989: l_trace_mode := okc_api.g_true;
990: okc_util.init_trace;
985: -- trace mode initialization turned ON
986: IF p_trace_mode = okc_api.g_true OR
987: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
988: THEN
989: l_trace_mode := okc_api.g_true;
990: okc_util.init_trace;
991: ELSE
992: l_trace_mode := okc_api.g_false;
993: END IF;
988: THEN
989: l_trace_mode := okc_api.g_true;
990: okc_util.init_trace;
991: ELSE
992: l_trace_mode := okc_api.g_false;
993: END IF;
994:
995: -- call the main routine
996: OKC_OC_INT_KTO_PVT.create_k_relationships(p_api_version => l_api_version
993: END IF;
994:
995: -- call the main routine
996: OKC_OC_INT_KTO_PVT.create_k_relationships(p_api_version => l_api_version
997: ,p_init_msg_list => OKC_API.G_FALSE
998: ,p_sales_contract_id => p_sales_contract_id
999: ,p_service_contract_id => p_service_contract_id
1000: ,p_quote_id => p_quote_id
1001: ,p_quote_line_tab => p_quote_line_tab
1007: );
1008:
1009:
1010: -- trace mode initialization turned OFF
1011: IF l_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
1012: okc_util.stop_trace;
1013: END IF;
1014:
1015: -- check return status
1012: okc_util.stop_trace;
1013: END IF;
1014:
1015: -- check return status
1016: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1018: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1019: RAISE OKC_API.G_EXCEPTION_ERROR;
1020: END IF;
1013: END IF;
1014:
1015: -- check return status
1016: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1018: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1019: RAISE OKC_API.G_EXCEPTION_ERROR;
1020: END IF;
1021:
1014:
1015: -- check return status
1016: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1018: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1019: RAISE OKC_API.G_EXCEPTION_ERROR;
1020: END IF;
1021:
1022: -- call AFTER user hook
1015: -- check return status
1016: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1018: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1019: RAISE OKC_API.G_EXCEPTION_ERROR;
1020: END IF;
1021:
1022: -- call AFTER user hook
1023: null;
1022: -- call AFTER user hook
1023: null;
1024:
1025: -- commit if necessary
1026: IF p_commit = OKC_API.G_TRUE THEN
1027: COMMIT;
1028: END IF;
1029:
1030: -- end activity
1027: COMMIT;
1028: END IF;
1029:
1030: -- end activity
1031: OKC_API.END_ACTIVITY( x_msg_count => lx_msg_count,
1032: x_msg_data => lx_msg_data);
1033:
1034: x_return_status := lx_return_status;
1035: x_msg_count := lx_msg_count;
1035: x_msg_count := lx_msg_count;
1036: x_msg_data := lx_msg_data;
1037:
1038: EXCEPTION
1039: when OKC_API.G_EXCEPTION_ERROR then
1040: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1041: p_api_name => l_api_name,
1042: p_pkg_name => g_pkg_name,
1043: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1036: x_msg_data := lx_msg_data;
1037:
1038: EXCEPTION
1039: when OKC_API.G_EXCEPTION_ERROR then
1040: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1041: p_api_name => l_api_name,
1042: p_pkg_name => g_pkg_name,
1043: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1044: x_msg_count => x_msg_count,
1039: when OKC_API.G_EXCEPTION_ERROR then
1040: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1041: p_api_name => l_api_name,
1042: p_pkg_name => g_pkg_name,
1043: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1044: x_msg_count => x_msg_count,
1045: x_msg_data => x_msg_data,
1046: p_api_type => g_api_type);
1047:
1044: x_msg_count => x_msg_count,
1045: x_msg_data => x_msg_data,
1046: p_api_type => g_api_type);
1047:
1048: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1049: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1050: p_api_name => l_api_name,
1051: p_pkg_name => g_pkg_name,
1052: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1045: x_msg_data => x_msg_data,
1046: p_api_type => g_api_type);
1047:
1048: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1049: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1050: p_api_name => l_api_name,
1051: p_pkg_name => g_pkg_name,
1052: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1053: x_msg_count => x_msg_count,
1048: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1049: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1050: p_api_name => l_api_name,
1051: p_pkg_name => g_pkg_name,
1052: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1053: x_msg_count => x_msg_count,
1054: x_msg_data => x_msg_data,
1055: p_api_type => g_api_type);
1056:
1054: x_msg_data => x_msg_data,
1055: p_api_type => g_api_type);
1056:
1057: when OTHERS then
1058: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1059: p_api_name => l_api_name,
1060: p_pkg_name => g_pkg_name,
1061: p_exc_name => 'OTHERS',
1062: x_msg_count => x_msg_count,
1097: -- a trace file
1098: --
1099: -- Out Parameters: x_return_status Final status of notification
1100: -- sending API:
1101: -- -OKC_API.G_RET_STS_SUCCESS
1102: -- -OKC_API.G_RET_STS_ERROR
1103: -- -OKC_API.G_RET_STS_UNEXP_ERROR
1104: -- x_msg_count Number of messages set on the stack
1105: -- x_msg_data Message info id x_msg_count = 1
1098: --
1099: -- Out Parameters: x_return_status Final status of notification
1100: -- sending API:
1101: -- -OKC_API.G_RET_STS_SUCCESS
1102: -- -OKC_API.G_RET_STS_ERROR
1103: -- -OKC_API.G_RET_STS_UNEXP_ERROR
1104: -- x_msg_count Number of messages set on the stack
1105: -- x_msg_data Message info id x_msg_count = 1
1106: --
1099: -- Out Parameters: x_return_status Final status of notification
1100: -- sending API:
1101: -- -OKC_API.G_RET_STS_SUCCESS
1102: -- -OKC_API.G_RET_STS_ERROR
1103: -- -OKC_API.G_RET_STS_UNEXP_ERROR
1104: -- x_msg_count Number of messages set on the stack
1105: -- x_msg_data Message info id x_msg_count = 1
1106: --
1107: -- THIS IS A WRAPPER FOR OKC_OC_INT_QTK_PVT.create_interaction_history
1121:
1122:
1123: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INTHIST';
1124: l_api_version CONSTANT NUMBER := 1;
1125: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1126: lx_msg_count NUMBER := 0;
1127: lx_msg_data VARCHAR2(2000);
1128: l_trace_mode VARCHAR2(1);
1129:
1128: l_trace_mode VARCHAR2(1);
1129:
1130: BEGIN
1131: -- call START_ACTIVITY to create savepoint, check compatibility and initialize message list
1132: lx_return_status := OKC_API.START_ACTIVITY(
1133: p_api_name => l_api_name,
1134: p_pkg_name => g_pkg_name,
1135: p_init_msg_list => p_init_msg_list,
1136: l_api_version => l_api_version,
1138: p_api_type => g_api_type,
1139: x_return_status => lx_return_status);
1140:
1141: -- check if activity started successfully
1142: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1143: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1144: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1145: RAISE OKC_API.G_EXCEPTION_ERROR;
1146: END IF;
1139: x_return_status => lx_return_status);
1140:
1141: -- check if activity started successfully
1142: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1143: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1144: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1145: RAISE OKC_API.G_EXCEPTION_ERROR;
1146: END IF;
1147:
1140:
1141: -- check if activity started successfully
1142: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1143: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1144: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1145: RAISE OKC_API.G_EXCEPTION_ERROR;
1146: END IF;
1147:
1148: -- call before user hooks
1141: -- check if activity started successfully
1142: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1143: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1144: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1145: RAISE OKC_API.G_EXCEPTION_ERROR;
1146: END IF;
1147:
1148: -- call before user hooks
1149: null;
1148: -- call before user hooks
1149: null;
1150:
1151: -- trace mode initialization turned ON
1152: IF p_trace_mode = okc_api.g_true OR
1153: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
1154: THEN
1155: l_trace_mode := okc_api.g_true;
1156: okc_util.init_trace;
1151: -- trace mode initialization turned ON
1152: IF p_trace_mode = okc_api.g_true OR
1153: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
1154: THEN
1155: l_trace_mode := okc_api.g_true;
1156: okc_util.init_trace;
1157: ELSE
1158: l_trace_mode := okc_api.g_false;
1159: END IF;
1154: THEN
1155: l_trace_mode := okc_api.g_true;
1156: okc_util.init_trace;
1157: ELSE
1158: l_trace_mode := okc_api.g_false;
1159: END IF;
1160:
1161: -- call the main routine
1162: OKC_OC_INT_QTK_PVT.create_interaction_history(
1160:
1161: -- call the main routine
1162: OKC_OC_INT_QTK_PVT.create_interaction_history(
1163: p_api_version => l_api_version
1164: ,p_init_msg_list => OKC_API.G_FALSE
1165: ,p_contract_id => p_contract_id
1166: ,p_party_id => p_party_id
1167: ,p_interaction_subject => p_interaction_subject
1168: ,p_interaction_body => p_interaction_body
1171: ,x_msg_data => lx_msg_data
1172: );
1173:
1174: -- trace mode initialization turned OFF
1175: IF l_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
1176: okc_util.stop_trace;
1177: END IF;
1178:
1179: -- check return status
1176: okc_util.stop_trace;
1177: END IF;
1178:
1179: -- check return status
1180: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1182: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1184: END IF;
1177: END IF;
1178:
1179: -- check return status
1180: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1182: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1184: END IF;
1185:
1178:
1179: -- check return status
1180: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1182: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1184: END IF;
1185:
1186: -- call AFTER user hook
1179: -- check return status
1180: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1182: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1183: RAISE OKC_API.G_EXCEPTION_ERROR;
1184: END IF;
1185:
1186: -- call AFTER user hook
1187: null;
1186: -- call AFTER user hook
1187: null;
1188:
1189: -- commit if necessary
1190: IF p_commit = OKC_API.G_TRUE THEN
1191: COMMIT;
1192: END IF;
1193:
1194: -- end activity
1191: COMMIT;
1192: END IF;
1193:
1194: -- end activity
1195: OKC_API.END_ACTIVITY( x_msg_count => lx_msg_count,
1196: x_msg_data => lx_msg_data);
1197:
1198: x_return_status := lx_return_status;
1199: x_msg_count := lx_msg_count;
1199: x_msg_count := lx_msg_count;
1200: x_msg_data := lx_msg_data;
1201:
1202: EXCEPTION
1203: when OKC_API.G_EXCEPTION_ERROR then
1204: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1205: p_api_name => l_api_name,
1206: p_pkg_name => g_pkg_name,
1207: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1200: x_msg_data := lx_msg_data;
1201:
1202: EXCEPTION
1203: when OKC_API.G_EXCEPTION_ERROR then
1204: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1205: p_api_name => l_api_name,
1206: p_pkg_name => g_pkg_name,
1207: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1208: x_msg_count => x_msg_count,
1203: when OKC_API.G_EXCEPTION_ERROR then
1204: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1205: p_api_name => l_api_name,
1206: p_pkg_name => g_pkg_name,
1207: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1208: x_msg_count => x_msg_count,
1209: x_msg_data => x_msg_data,
1210: p_api_type => g_api_type);
1211:
1208: x_msg_count => x_msg_count,
1209: x_msg_data => x_msg_data,
1210: p_api_type => g_api_type);
1211:
1212: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1213: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1214: p_api_name => l_api_name,
1215: p_pkg_name => g_pkg_name,
1216: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1209: x_msg_data => x_msg_data,
1210: p_api_type => g_api_type);
1211:
1212: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1213: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1214: p_api_name => l_api_name,
1215: p_pkg_name => g_pkg_name,
1216: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1217: x_msg_count => x_msg_count,
1212: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1213: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1214: p_api_name => l_api_name,
1215: p_pkg_name => g_pkg_name,
1216: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1217: x_msg_count => x_msg_count,
1218: x_msg_data => x_msg_data,
1219: p_api_type => g_api_type);
1220:
1218: x_msg_data => x_msg_data,
1219: p_api_type => g_api_type);
1220:
1221: when OTHERS then
1222: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1223: p_api_name => l_api_name,
1224: p_pkg_name => g_pkg_name,
1225: p_exc_name => 'OTHERS',
1226: x_msg_count => x_msg_count,
1259: ,x_msg_data OUT NOCOPY VARCHAR2) IS
1260:
1261: l_api_name CONSTANT VARCHAR2(30) := 'NOTIFY_K_ADM';
1262: l_api_version CONSTANT NUMBER :=1;
1263: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1264: lx_msg_count NUMBER ;
1265: lx_msg_data FND_NEW_MESSAGES.message_text%TYPE;
1266:
1267: BEGIN
1264: lx_msg_count NUMBER ;
1265: lx_msg_data FND_NEW_MESSAGES.message_text%TYPE;
1266:
1267: BEGIN
1268: lx_return_status := OKC_API.START_ACTIVITY(
1269: p_api_name => l_api_name,
1270: p_pkg_name => g_pkg_name,
1271: p_init_msg_list => p_init_msg_list,
1272: l_api_version => l_api_version,
1273: p_api_version => p_api_version,
1274: p_api_type => g_api_type,
1275: x_return_status => lx_return_status);
1276:
1277: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1274: p_api_type => g_api_type,
1275: x_return_status => lx_return_status);
1276:
1277: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282:
1275: x_return_status => lx_return_status);
1276:
1277: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282:
1283: -- call before user hooks
1276:
1277: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282:
1283: -- call before user hooks
1284: null;
1283: -- call before user hooks
1284: null;
1285:
1286: -- trace mode initialization turned ON
1287: IF p_trace_mode = okc_api.g_true OR
1288: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
1289: THEN
1290: okc_util.init_trace;
1291: END IF;
1298: -- Fix: calls of notify_k_adm procedure were changed to pass 'contract ID'
1299:
1300: okc_oc_int_qtk_pvt.notify_k_adm(
1301: p_api_version => l_api_version
1302: ,p_init_msg_list => OKC_API.G_FALSE
1303: ,p_application_name => p_application_name
1304: ,p_message_subject => p_message_subject
1305: ,p_message_body => p_message_body
1306: ,p_message_body_token1 => p_message_body_token1
1316: ,x_msg_data => lx_msg_data
1317: );
1318:
1319: -- trace mode initialization turned OFF
1320: IF p_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
1321: okc_util.stop_trace;
1322: END IF;
1323:
1324:
1322: END IF;
1323:
1324:
1325: -- check return status
1326: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1328: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1329: RAISE OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1323:
1324:
1325: -- check return status
1326: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1328: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1329: RAISE OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1331:
1324:
1325: -- check return status
1326: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1328: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1329: RAISE OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1331:
1332: -- call AFTER user hook
1325: -- check return status
1326: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1327: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1328: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1329: RAISE OKC_API.G_EXCEPTION_ERROR;
1330: END IF;
1331:
1332: -- call AFTER user hook
1333: null;
1332: -- call AFTER user hook
1333: null;
1334:
1335: -- if we got this far, then we are successful
1336: IF p_commit = OKC_API.G_TRUE THEN
1337: COMMIT;
1338: END IF;
1339:
1340: -- end activity
1337: COMMIT;
1338: END IF;
1339:
1340: -- end activity
1341: OKC_API.END_ACTIVITY(x_msg_count => lx_msg_count,
1342: x_msg_data => lx_msg_data);
1343:
1344: x_return_status := lx_return_status;
1345: x_msg_count := lx_msg_count;
1345: x_msg_count := lx_msg_count;
1346: x_msg_data := lx_msg_data;
1347:
1348: EXCEPTION
1349: when OKC_API.G_EXCEPTION_ERROR then
1350: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1351: p_api_name => l_api_name,
1352: p_pkg_name => g_pkg_name,
1353: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1346: x_msg_data := lx_msg_data;
1347:
1348: EXCEPTION
1349: when OKC_API.G_EXCEPTION_ERROR then
1350: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1351: p_api_name => l_api_name,
1352: p_pkg_name => g_pkg_name,
1353: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1354: x_msg_count => lx_msg_count,
1349: when OKC_API.G_EXCEPTION_ERROR then
1350: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1351: p_api_name => l_api_name,
1352: p_pkg_name => g_pkg_name,
1353: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1354: x_msg_count => lx_msg_count,
1355: x_msg_data => lx_msg_data,
1356: p_api_type => g_api_type);
1357:
1354: x_msg_count => lx_msg_count,
1355: x_msg_data => lx_msg_data,
1356: p_api_type => g_api_type);
1357:
1358: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1359: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1360: p_api_name => l_api_name,
1361: p_pkg_name => g_pkg_name,
1362: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1355: x_msg_data => lx_msg_data,
1356: p_api_type => g_api_type);
1357:
1358: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1359: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1360: p_api_name => l_api_name,
1361: p_pkg_name => g_pkg_name,
1362: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1363: x_msg_count => lx_msg_count,
1358: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1359: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1360: p_api_name => l_api_name,
1361: p_pkg_name => g_pkg_name,
1362: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1363: x_msg_count => lx_msg_count,
1364: x_msg_data => lx_msg_data,
1365: p_api_type => g_api_type);
1366:
1364: x_msg_data => lx_msg_data,
1365: p_api_type => g_api_type);
1366:
1367: when OTHERS then
1368: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1369: p_api_name => l_api_name,
1370: p_pkg_name => g_pkg_name,
1371: p_exc_name => 'OTHERS',
1372: x_msg_count => lx_msg_count,
1397: ,x_msg_count OUT NOCOPY NUMBER
1398: ,x_msg_data OUT NOCOPY VARCHAR2) IS
1399: l_api_name CONSTANT VARCHAR2(30) := 'NOTIFY_SALES_REP';
1400: l_api_version CONSTANT NUMBER :=1;
1401: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1402: lx_msg_count NUMBER ;
1403: lx_msg_data FND_NEW_MESSAGES.message_text%TYPE;
1404:
1405: BEGIN
1402: lx_msg_count NUMBER ;
1403: lx_msg_data FND_NEW_MESSAGES.message_text%TYPE;
1404:
1405: BEGIN
1406: lx_return_status := OKC_API.START_ACTIVITY(
1407: p_api_name => l_api_name,
1408: p_pkg_name => g_pkg_name,
1409: p_init_msg_list => p_init_msg_list,
1410: l_api_version => l_api_version,
1414: --end npalepu
1415: p_api_type => g_api_type,
1416: x_return_status => lx_return_status);
1417:
1418: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1421: RAISE OKC_API.G_EXCEPTION_ERROR;
1422: END IF;
1415: p_api_type => g_api_type,
1416: x_return_status => lx_return_status);
1417:
1418: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1421: RAISE OKC_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1416: x_return_status => lx_return_status);
1417:
1418: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1421: RAISE OKC_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1424: -- call before user hooks
1417:
1418: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1421: RAISE OKC_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1424: -- call before user hooks
1425: null;
1424: -- call before user hooks
1425: null;
1426:
1427: -- trace mode initialization turned ON
1428: IF p_trace_mode = okc_api.g_true OR
1429: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
1430: THEN
1431: okc_util.init_trace;
1432: END IF;
1434: -- call the main routine
1435:
1436: okc_oc_int_qtk_pvt.notify_sales_rep(
1437: p_api_version => l_api_version
1438: ,p_init_msg_list => OKC_API.G_FALSE
1439: ,p_contract_id => p_contract_id
1440: ,p_contract_status => p_contract_status
1441: ,x_return_status => lx_return_status
1442: ,x_msg_count => lx_msg_count
1443: ,x_msg_data => lx_msg_data
1444: );
1445:
1446: -- trace mode initialization turned OFF
1447: IF p_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
1448: okc_util.stop_trace;
1449: END IF;
1450:
1451:
1449: END IF;
1450:
1451:
1452: -- check return status
1453: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1455: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1456: RAISE OKC_API.G_EXCEPTION_ERROR;
1457: END IF;
1450:
1451:
1452: -- check return status
1453: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1455: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1456: RAISE OKC_API.G_EXCEPTION_ERROR;
1457: END IF;
1458:
1451:
1452: -- check return status
1453: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1455: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1456: RAISE OKC_API.G_EXCEPTION_ERROR;
1457: END IF;
1458:
1459: -- call AFTER user hook
1452: -- check return status
1453: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1454: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1455: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1456: RAISE OKC_API.G_EXCEPTION_ERROR;
1457: END IF;
1458:
1459: -- call AFTER user hook
1460: null;
1459: -- call AFTER user hook
1460: null;
1461:
1462: -- if we got this far, then we are successful
1463: IF p_commit = OKC_API.G_TRUE THEN
1464: COMMIT;
1465: END IF;
1466:
1467: -- end activity
1464: COMMIT;
1465: END IF;
1466:
1467: -- end activity
1468: OKC_API.END_ACTIVITY(x_msg_count => lx_msg_count,
1469: x_msg_data => lx_msg_data);
1470:
1471: x_return_status := lx_return_status;
1472: x_msg_count := lx_msg_count;
1472: x_msg_count := lx_msg_count;
1473: x_msg_data := lx_msg_data;
1474:
1475: EXCEPTION
1476: when OKC_API.G_EXCEPTION_ERROR then
1477: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1478: p_api_name => l_api_name,
1479: p_pkg_name => g_pkg_name,
1480: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1473: x_msg_data := lx_msg_data;
1474:
1475: EXCEPTION
1476: when OKC_API.G_EXCEPTION_ERROR then
1477: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1478: p_api_name => l_api_name,
1479: p_pkg_name => g_pkg_name,
1480: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1481: x_msg_count => lx_msg_count,
1476: when OKC_API.G_EXCEPTION_ERROR then
1477: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1478: p_api_name => l_api_name,
1479: p_pkg_name => g_pkg_name,
1480: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1481: x_msg_count => lx_msg_count,
1482: x_msg_data => lx_msg_data,
1483: p_api_type => g_api_type);
1484:
1481: x_msg_count => lx_msg_count,
1482: x_msg_data => lx_msg_data,
1483: p_api_type => g_api_type);
1484:
1485: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1486: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1487: p_api_name => l_api_name,
1488: p_pkg_name => g_pkg_name,
1489: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1482: x_msg_data => lx_msg_data,
1483: p_api_type => g_api_type);
1484:
1485: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1486: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1487: p_api_name => l_api_name,
1488: p_pkg_name => g_pkg_name,
1489: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1490: x_msg_count => lx_msg_count,
1485: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1486: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1487: p_api_name => l_api_name,
1488: p_pkg_name => g_pkg_name,
1489: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1490: x_msg_count => lx_msg_count,
1491: x_msg_data => lx_msg_data,
1492: p_api_type => g_api_type);
1493:
1491: x_msg_data => lx_msg_data,
1492: p_api_type => g_api_type);
1493:
1494: when OTHERS then
1495: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1496: p_api_name => l_api_name,
1497: p_pkg_name => g_pkg_name,
1498: p_exc_name => 'OTHERS',
1499: x_msg_count => lx_msg_count,
1517: ,x_msg_data OUT NOCOPY VARCHAR2) IS
1518:
1519: l_api_name CONSTANT VARCHAR2(30) := 'GET_K_NUMBER';
1520: l_api_version CONSTANT NUMBER := 1;
1521: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1522: lx_msg_count NUMBER := 0;
1523: lx_msg_data VARCHAR2(50) := 'msg';
1524:
1525: BEGIN
1522: lx_msg_count NUMBER := 0;
1523: lx_msg_data VARCHAR2(50) := 'msg';
1524:
1525: BEGIN
1526: lx_return_status := OKC_API.START_ACTIVITY(
1527: p_api_name => l_api_name,
1528: p_pkg_name => g_pkg_name,
1529: p_init_msg_list => p_init_msg_list,
1530: l_api_version => l_api_version,
1531: p_api_version => p_api_version,
1532: p_api_type => g_api_type,
1533: x_return_status => lx_return_status);
1534:
1535: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1532: p_api_type => g_api_type,
1533: x_return_status => lx_return_status);
1534:
1535: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1540:
1533: x_return_status => lx_return_status);
1534:
1535: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1540:
1541: -- call before user hooks
1534:
1535: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1536: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1537: ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1538: RAISE OKC_API.G_EXCEPTION_ERROR;
1539: END IF;
1540:
1541: -- call before user hooks
1542: null;
1541: -- call before user hooks
1542: null;
1543:
1544: -- trace mode initialization turned ON
1545: IF p_trace_mode = okc_api.g_true OR
1546: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
1547: THEN
1548: okc_util.init_trace;
1549: END IF;
1551: -- call the main routine
1552:
1553: okc_oc_int_qtk_pvt.get_k_number(
1554: p_api_version => l_api_version
1555: ,p_init_msg_list => OKC_API.G_FALSE
1556: ,p_contract_id => p_contract_id
1557: ,x_contract_number => x_contract_number
1558: ,x_contract_number_modifier => x_contract_number_modifier
1559: ,x_return_status => lx_return_status
1561: ,x_msg_data => lx_msg_data
1562: );
1563:
1564: -- trace mode initialization turned OFF
1565: IF p_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
1566: okc_util.stop_trace;
1567: END IF;
1568:
1569:
1567: END IF;
1568:
1569:
1570: -- check return status
1571: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1573: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1575: END IF;
1568:
1569:
1570: -- check return status
1571: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1573: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1575: END IF;
1576:
1569:
1570: -- check return status
1571: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1573: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1575: END IF;
1576:
1577: -- call AFTER user hook
1570: -- check return status
1571: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1572: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1573: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1574: RAISE OKC_API.G_EXCEPTION_ERROR;
1575: END IF;
1576:
1577: -- call AFTER user hook
1578: null;
1577: -- call AFTER user hook
1578: null;
1579:
1580: -- if we got this far, then we are successful
1581: IF p_commit = OKC_API.G_TRUE THEN
1582: COMMIT;
1583: END IF;
1584:
1585: -- end activity
1582: COMMIT;
1583: END IF;
1584:
1585: -- end activity
1586: OKC_API.END_ACTIVITY(x_msg_count => lx_msg_count,
1587: x_msg_data => lx_msg_data);
1588:
1589: x_return_status := lx_return_status;
1590: x_msg_count := lx_msg_count;
1590: x_msg_count := lx_msg_count;
1591: x_msg_data := lx_msg_data;
1592:
1593: EXCEPTION
1594: when OKC_API.G_EXCEPTION_ERROR then
1595: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1596: p_api_name => l_api_name,
1597: p_pkg_name => g_pkg_name,
1598: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1591: x_msg_data := lx_msg_data;
1592:
1593: EXCEPTION
1594: when OKC_API.G_EXCEPTION_ERROR then
1595: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1596: p_api_name => l_api_name,
1597: p_pkg_name => g_pkg_name,
1598: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1599: x_msg_count => lx_msg_count,
1594: when OKC_API.G_EXCEPTION_ERROR then
1595: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1596: p_api_name => l_api_name,
1597: p_pkg_name => g_pkg_name,
1598: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1599: x_msg_count => lx_msg_count,
1600: x_msg_data => lx_msg_data,
1601: p_api_type => g_api_type);
1602:
1599: x_msg_count => lx_msg_count,
1600: x_msg_data => lx_msg_data,
1601: p_api_type => g_api_type);
1602:
1603: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1604: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1605: p_api_name => l_api_name,
1606: p_pkg_name => g_pkg_name,
1607: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1600: x_msg_data => lx_msg_data,
1601: p_api_type => g_api_type);
1602:
1603: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1604: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1605: p_api_name => l_api_name,
1606: p_pkg_name => g_pkg_name,
1607: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1608: x_msg_count => lx_msg_count,
1603: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1604: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1605: p_api_name => l_api_name,
1606: p_pkg_name => g_pkg_name,
1607: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1608: x_msg_count => lx_msg_count,
1609: x_msg_data => lx_msg_data,
1610: p_api_type => g_api_type);
1611:
1609: x_msg_data => lx_msg_data,
1610: p_api_type => g_api_type);
1611:
1612: when OTHERS then
1613: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1614: p_api_name => l_api_name,
1615: p_pkg_name => g_pkg_name,
1616: p_exc_name => 'OTHERS',
1617: x_msg_count => lx_msg_count,
1638: -- In Parameters: p_party_id Contract header id
1639: -- p_date_signed Signing date of the contract
1640: --
1641: -- Out Parameters: x_return_status Final status of the contract status update
1642: -- -OKC_API.G_RET_STS_SUCCESS
1643: -- -OKC_API.G_RET_STS_ERROR
1644: -- -OKC_API.G_RET_STS_UNEXP_ERROR
1645: --
1646: -- THIS IS A PLAIN BARE-BONES WRAPPER FOR OKC_CONTRACT_APPROVAL_PUB.k_signed
1639: -- p_date_signed Signing date of the contract
1640: --
1641: -- Out Parameters: x_return_status Final status of the contract status update
1642: -- -OKC_API.G_RET_STS_SUCCESS
1643: -- -OKC_API.G_RET_STS_ERROR
1644: -- -OKC_API.G_RET_STS_UNEXP_ERROR
1645: --
1646: -- THIS IS A PLAIN BARE-BONES WRAPPER FOR OKC_CONTRACT_APPROVAL_PUB.k_signed
1647:
1640: --
1641: -- Out Parameters: x_return_status Final status of the contract status update
1642: -- -OKC_API.G_RET_STS_SUCCESS
1643: -- -OKC_API.G_RET_STS_ERROR
1644: -- -OKC_API.G_RET_STS_UNEXP_ERROR
1645: --
1646: -- THIS IS A PLAIN BARE-BONES WRAPPER FOR OKC_CONTRACT_APPROVAL_PUB.k_signed
1647:
1648: PROCEDURE k_signed(p_api_version IN NUMBER
1656: ,x_msg_data OUT NOCOPY VARCHAR2) IS
1657:
1658: l_api_name CONSTANT VARCHAR2(30) := 'K_SIGNED';
1659: l_api_version CONSTANT NUMBER := 1;
1660: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1661: lx_msg_count NUMBER := 0;
1662: lx_msg_data VARCHAR2(50) := 'msg';
1663:
1664: BEGIN
1666: -- call before user hooks
1667: null;
1668:
1669: -- trace mode initialization turned ON
1670: IF p_trace_mode = okc_api.g_true OR
1671: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
1672: THEN
1673: okc_util.init_trace;
1674: END IF;
1679: ,p_date_signed => p_date_signed
1680: ,x_return_status => lx_return_status);
1681:
1682: -- trace mode initialization turned OFF
1683: IF p_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
1684: okc_util.stop_trace;
1685: END IF;
1686:
1687: -- check return status
1684: okc_util.stop_trace;
1685: END IF;
1686:
1687: -- check return status
1688: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1685: END IF;
1686:
1687: -- check return status
1688: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693:
1686:
1687: -- check return status
1688: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693:
1694: -- call AFTER user hook
1687: -- check return status
1688: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1689: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1690: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693:
1694: -- call AFTER user hook
1695: null;
1694: -- call AFTER user hook
1695: null;
1696:
1697: -- if we got this far, then we are successful
1698: IF p_commit = OKC_API.G_TRUE THEN
1699: COMMIT;
1700: END IF;
1701:
1702: -- end activity
1699: COMMIT;
1700: END IF;
1701:
1702: -- end activity
1703: OKC_API.END_ACTIVITY(x_msg_count => lx_msg_count,
1704: x_msg_data => lx_msg_data);
1705:
1706: x_return_status := lx_return_status;
1707: x_msg_count := lx_msg_count;
1707: x_msg_count := lx_msg_count;
1708: x_msg_data := lx_msg_data;
1709:
1710: EXCEPTION
1711: when OKC_API.G_EXCEPTION_ERROR then
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1713: p_api_name => l_api_name,
1714: p_pkg_name => g_pkg_name,
1715: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1708: x_msg_data := lx_msg_data;
1709:
1710: EXCEPTION
1711: when OKC_API.G_EXCEPTION_ERROR then
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1713: p_api_name => l_api_name,
1714: p_pkg_name => g_pkg_name,
1715: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1716: x_msg_count => lx_msg_count,
1711: when OKC_API.G_EXCEPTION_ERROR then
1712: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1713: p_api_name => l_api_name,
1714: p_pkg_name => g_pkg_name,
1715: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1716: x_msg_count => lx_msg_count,
1717: x_msg_data => lx_msg_data,
1718: p_api_type => g_api_type);
1719:
1716: x_msg_count => lx_msg_count,
1717: x_msg_data => lx_msg_data,
1718: p_api_type => g_api_type);
1719:
1720: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1721: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1722: p_api_name => l_api_name,
1723: p_pkg_name => g_pkg_name,
1724: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1717: x_msg_data => lx_msg_data,
1718: p_api_type => g_api_type);
1719:
1720: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1721: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1722: p_api_name => l_api_name,
1723: p_pkg_name => g_pkg_name,
1724: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1725: x_msg_count => lx_msg_count,
1720: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1721: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1722: p_api_name => l_api_name,
1723: p_pkg_name => g_pkg_name,
1724: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1725: x_msg_count => lx_msg_count,
1726: x_msg_data => lx_msg_data,
1727: p_api_type => g_api_type);
1728:
1726: x_msg_data => lx_msg_data,
1727: p_api_type => g_api_type);
1728:
1729: when OTHERS then
1730: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1731: p_api_name => l_api_name,
1732: p_pkg_name => g_pkg_name,
1733: p_exc_name => 'OTHERS',
1734: x_msg_count => lx_msg_count,
1751: ,x_msg_data OUT NOCOPY VARCHAR2) IS
1752:
1753: l_api_name CONSTANT VARCHAR2(30) := 'K_ERASE_APPROV';
1754: l_api_version CONSTANT NUMBER :=1;
1755: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1756: lx_msg_count NUMBER := 0;
1757: lx_msg_data VARCHAR2(50) := 'msg';
1758:
1759: lx_contract_number OKC_K_HEADERS_B.contract_number%TYPE; -- new contract number
1765: -- call before user hooks
1766: null;
1767:
1768: -- trace mode initialization turned ON
1769: IF p_trace_mode = okc_api.g_true OR
1770: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
1771: THEN
1772: okc_util.init_trace;
1773: END IF;
1777: OKC_CONTRACT_APPROVAL_PUB.k_erase_approved(p_contract_id => p_contract_id
1778: ,x_return_status => lx_return_status);
1779:
1780: -- check return status
1781: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1783: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1784: RAISE OKC_API.G_EXCEPTION_ERROR;
1785: END IF;
1778: ,x_return_status => lx_return_status);
1779:
1780: -- check return status
1781: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1783: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1784: RAISE OKC_API.G_EXCEPTION_ERROR;
1785: END IF;
1786:
1779:
1780: -- check return status
1781: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1783: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1784: RAISE OKC_API.G_EXCEPTION_ERROR;
1785: END IF;
1786:
1787: -- call the another routine
1780: -- check return status
1781: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1782: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1783: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1784: RAISE OKC_API.G_EXCEPTION_ERROR;
1785: END IF;
1786:
1787: -- call the another routine
1788: OKC_OC_INT_PUB.get_k_number (
1786:
1787: -- call the another routine
1788: OKC_OC_INT_PUB.get_k_number (
1789: p_api_version => 1
1790: ,p_init_msg_list => OKC_API.g_false
1791: ,p_commit => OKC_API.g_false
1792: ,p_contract_id => p_contract_id
1793: ,p_trace_mode => OKC_API.g_false
1794: ,x_contract_number => lx_contract_number
1787: -- call the another routine
1788: OKC_OC_INT_PUB.get_k_number (
1789: p_api_version => 1
1790: ,p_init_msg_list => OKC_API.g_false
1791: ,p_commit => OKC_API.g_false
1792: ,p_contract_id => p_contract_id
1793: ,p_trace_mode => OKC_API.g_false
1794: ,x_contract_number => lx_contract_number
1795: ,x_contract_number_modifier => lx_contract_number_modifier
1789: p_api_version => 1
1790: ,p_init_msg_list => OKC_API.g_false
1791: ,p_commit => OKC_API.g_false
1792: ,p_contract_id => p_contract_id
1793: ,p_trace_mode => OKC_API.g_false
1794: ,x_contract_number => lx_contract_number
1795: ,x_contract_number_modifier => lx_contract_number_modifier
1796: ,x_return_status => lx_return_status
1797: ,x_msg_count => lx_msg_count
1797: ,x_msg_count => lx_msg_count
1798: ,x_msg_data => lx_msg_data);
1799:
1800: -- check return status
1801: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1804: RAISE OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1798: ,x_msg_data => lx_msg_data);
1799:
1800: -- check return status
1801: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1804: RAISE OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1806:
1799:
1800: -- check return status
1801: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1804: RAISE OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1806:
1807: -- call another main routine
1800: -- check return status
1801: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1803: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1804: RAISE OKC_API.G_EXCEPTION_ERROR;
1805: END IF;
1806:
1807: -- call another main routine
1808: OKC_OC_INT_PUB.notify_k_adm(
1806:
1807: -- call another main routine
1808: OKC_OC_INT_PUB.notify_k_adm(
1809: p_api_version =>1,
1810: p_init_msg_list => OKC_API.g_false,
1811: p_commit => OKC_API.g_false,
1812: p_application_name=> OKC_API.g_app_name,
1813: -- p_message_subject => 'OKC_Q2K_KAENOTIF_SUBJ', Bug#2449811
1814: p_message_subject => 'OKC_Q2K_KAENOTIF_SUBJECT',
1807: -- call another main routine
1808: OKC_OC_INT_PUB.notify_k_adm(
1809: p_api_version =>1,
1810: p_init_msg_list => OKC_API.g_false,
1811: p_commit => OKC_API.g_false,
1812: p_application_name=> OKC_API.g_app_name,
1813: -- p_message_subject => 'OKC_Q2K_KAENOTIF_SUBJ', Bug#2449811
1814: p_message_subject => 'OKC_Q2K_KAENOTIF_SUBJECT',
1815: p_message_body => 'OKC_Q2K_KAENOTIF_BODY',
1808: OKC_OC_INT_PUB.notify_k_adm(
1809: p_api_version =>1,
1810: p_init_msg_list => OKC_API.g_false,
1811: p_commit => OKC_API.g_false,
1812: p_application_name=> OKC_API.g_app_name,
1813: -- p_message_subject => 'OKC_Q2K_KAENOTIF_SUBJ', Bug#2449811
1814: p_message_subject => 'OKC_Q2K_KAENOTIF_SUBJECT',
1815: p_message_body => 'OKC_Q2K_KAENOTIF_BODY',
1816: p_message_body_token1 => 'KNUMBER',
1817: p_message_body_token1_value => lx_contract_number,
1818: p_message_body_token2 => 'KNUMMODIFIER',
1819: -- p_message_body_token2_value => lx_contract_number_modifier, Bug#2454456
1820: p_message_body_token2_value => Nvl(lx_contract_number_modifier,' '),
1821: p_trace_mode => OKC_API.g_false,
1822: x_k_admin_user_name => lx_k_admin_user_name,
1823: x_return_status => lx_return_status,
1824: x_msg_count => lx_msg_count,
1825: x_msg_data => lx_msg_data);
1823: x_return_status => lx_return_status,
1824: x_msg_count => lx_msg_count,
1825: x_msg_data => lx_msg_data);
1826:
1827: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1828: lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1829: okc_api.set_message(p_app_name => g_app_name,
1830: p_msg_name => 'OKC_Q2K_NOTIFFAILURE',
1831: p_token1 => 'KNUMBER',
1824: x_msg_count => lx_msg_count,
1825: x_msg_data => lx_msg_data);
1826:
1827: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1828: lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1829: okc_api.set_message(p_app_name => g_app_name,
1830: p_msg_name => 'OKC_Q2K_NOTIFFAILURE',
1831: p_token1 => 'KNUMBER',
1832: p_token1_value => lx_contract_number,
1825: x_msg_data => lx_msg_data);
1826:
1827: IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1828: lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1829: okc_api.set_message(p_app_name => g_app_name,
1830: p_msg_name => 'OKC_Q2K_NOTIFFAILURE',
1831: p_token1 => 'KNUMBER',
1832: p_token1_value => lx_contract_number,
1833: p_token2 => 'KADMINUSERNAME',
1834: p_token2_value => lx_k_admin_user_name);
1835: END IF;
1836:
1837: -- check return status
1838: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1840: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1835: END IF;
1836:
1837: -- check return status
1838: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1840: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1843:
1836:
1837: -- check return status
1838: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1840: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1843:
1844: -- trace mode initialization turned OFF
1837: -- check return status
1838: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1839: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1840: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1843:
1844: -- trace mode initialization turned OFF
1845: IF p_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1843:
1844: -- trace mode initialization turned OFF
1845: IF p_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
1846: okc_util.stop_trace;
1847: END IF;
1848:
1849: -- call AFTER user hook
1849: -- call AFTER user hook
1850: null;
1851:
1852: -- if we got this far, then we are successful
1853: IF p_commit = OKC_API.G_TRUE THEN
1854: COMMIT;
1855: END IF;
1856:
1857: -- end activity
1854: COMMIT;
1855: END IF;
1856:
1857: -- end activity
1858: OKC_API.END_ACTIVITY(x_msg_count => lx_msg_count,
1859: x_msg_data => lx_msg_data);
1860:
1861: x_return_status := lx_return_status;
1862: x_msg_count := lx_msg_count;
1862: x_msg_count := lx_msg_count;
1863: x_msg_data := lx_msg_data;
1864:
1865: EXCEPTION
1866: when OKC_API.G_EXCEPTION_ERROR then
1867: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1868: p_api_name => l_api_name,
1869: p_pkg_name => g_pkg_name,
1870: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1863: x_msg_data := lx_msg_data;
1864:
1865: EXCEPTION
1866: when OKC_API.G_EXCEPTION_ERROR then
1867: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1868: p_api_name => l_api_name,
1869: p_pkg_name => g_pkg_name,
1870: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1871: x_msg_count => lx_msg_count,
1866: when OKC_API.G_EXCEPTION_ERROR then
1867: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1868: p_api_name => l_api_name,
1869: p_pkg_name => g_pkg_name,
1870: p_exc_name => 'OKC_API.G_RET_STS_ERROR',
1871: x_msg_count => lx_msg_count,
1872: x_msg_data => lx_msg_data,
1873: p_api_type => g_api_type);
1874:
1871: x_msg_count => lx_msg_count,
1872: x_msg_data => lx_msg_data,
1873: p_api_type => g_api_type);
1874:
1875: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1876: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1877: p_api_name => l_api_name,
1878: p_pkg_name => g_pkg_name,
1879: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1872: x_msg_data => lx_msg_data,
1873: p_api_type => g_api_type);
1874:
1875: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1876: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1877: p_api_name => l_api_name,
1878: p_pkg_name => g_pkg_name,
1879: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1880: x_msg_count => lx_msg_count,
1875: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
1876: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1877: p_api_name => l_api_name,
1878: p_pkg_name => g_pkg_name,
1879: p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
1880: x_msg_count => lx_msg_count,
1881: x_msg_data => lx_msg_data,
1882: p_api_type => g_api_type);
1883:
1881: x_msg_data => lx_msg_data,
1882: p_api_type => g_api_type);
1883:
1884: when OTHERS then
1885: x_return_status := OKC_API.HANDLE_EXCEPTIONS(
1886: p_api_name => l_api_name,
1887: p_pkg_name => g_pkg_name,
1888: p_exc_name => 'OTHERS',
1889: x_msg_count => lx_msg_count,
1911: ,x_msg_data OUT NOCOPY VARCHAR2) IS
1912:
1913: l_api_name CONSTANT VARCHAR2(30) := 'GET_ARTICLES';
1914: l_api_version CONSTANT NUMBER :=1;
1915: lx_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1916: lx_msg_count NUMBER := 0;
1917: lx_msg_data VARCHAR2(50) := 'msg';
1918:
1919: BEGIN
1918:
1919: BEGIN
1920: /* Removing Start and End activity because system could not read the LOB
1921: -- data from the calling program --Guna
1922: --lx_return_status := OKC_API.START_ACTIVITY(
1923: -- p_api_name => l_api_name,
1924: -- p_pkg_name => g_pkg_name,
1925: -- p_init_msg_list => p_init_msg_list,
1926: -- l_api_version => l_api_version,
1927: -- p_api_version => p_api_version,
1928: -- p_api_type => g_api_type,
1929: -- x_return_status => lx_return_status);
1930: --
1931: -- IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1932: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1933: -- ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1934: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1935: -- END IF;
1928: -- p_api_type => g_api_type,
1929: -- x_return_status => lx_return_status);
1930: --
1931: -- IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1932: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1933: -- ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1934: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1935: -- END IF;
1936: --
1929: -- x_return_status => lx_return_status);
1930: --
1931: -- IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1932: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1933: -- ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1934: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1935: -- END IF;
1936: --
1937: */
1930: --
1931: -- IF (lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1932: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1933: -- ELSIF (lx_return_status = OKC_API.G_RET_STS_ERROR) THEN
1934: -- RAISE OKC_API.G_EXCEPTION_ERROR;
1935: -- END IF;
1936: --
1937: */
1938:
1939: -- call before user hooks
1940: null;
1941:
1942: -- trace mode initialization turned ON
1943: IF p_trace_mode = okc_api.g_true OR
1944: FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y'
1945: THEN
1946: okc_util.init_trace;
1947: END IF;
1949: -- call the main routine
1950:
1951: okc_oc_int_qtk_pvt.get_articles(
1952: p_api_version => l_api_version
1953: ,p_init_msg_list => OKC_API.G_FALSE
1954: ,p_contract_id => p_contract_id
1955: ,p_release_id => p_release_id
1956: ,x_articles => x_articles
1957: ,x_return_status => lx_return_status
1959: ,x_msg_data => lx_msg_data
1960: );
1961:
1962: -- trace mode initialization turned OFF
1963: IF p_trace_mode = okc_api.g_true OR FND_PROFILE.VALUE('AFLOG_ENABLED') = 'Y' THEN
1964: okc_util.stop_trace;
1965: END IF;
1966:
1967:
1965: END IF;
1966:
1967:
1968: -- check return status
1969: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1971: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1972: RAISE OKC_API.G_EXCEPTION_ERROR;
1973: END IF;
1966:
1967:
1968: -- check return status
1969: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1971: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1972: RAISE OKC_API.G_EXCEPTION_ERROR;
1973: END IF;
1974:
1967:
1968: -- check return status
1969: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1971: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1972: RAISE OKC_API.G_EXCEPTION_ERROR;
1973: END IF;
1974:
1975: -- call AFTER user hook
1968: -- check return status
1969: IF lx_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1970: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1971: ELSIF lx_return_status = OKC_API.G_RET_STS_ERROR THEN
1972: RAISE OKC_API.G_EXCEPTION_ERROR;
1973: END IF;
1974:
1975: -- call AFTER user hook
1976: null;
1975: -- call AFTER user hook
1976: null;
1977:
1978: -- if we got this far, then we are successful
1979: IF p_commit = OKC_API.G_TRUE THEN
1980: COMMIT;
1981: END IF;
1982:
1983: /*
1981: END IF;
1982:
1983: /*
1984: -- end activity
1985: -- OKC_API.END_ACTIVITY(x_msg_count => lx_msg_count,
1986: -- x_msg_data => lx_msg_data);
1987: */
1988:
1989: x_return_status := lx_return_status;
1990: x_msg_count := lx_msg_count;
1991: x_msg_data := lx_msg_data;
1992:
1993: -- Bug 1835096
1994: -- Replaced okc_api.handle_exceptions with the following exception
1995: -- logic to avoid rolling back to a savepoint that was not set
1996: -- because usage of CLOB API's prevented us from using set_activity
1997: -- which was setting the savepoint.
1998: EXCEPTION
1995: -- logic to avoid rolling back to a savepoint that was not set
1996: -- because usage of CLOB API's prevented us from using set_activity
1997: -- which was setting the savepoint.
1998: EXCEPTION
1999: when OKC_API.G_EXCEPTION_ERROR then
2000: FND_MSG_PUB.Count_And_Get
2001: (
2002: p_count => x_msg_count,
2003: p_data => x_msg_data
2001: (
2002: p_count => x_msg_count,
2003: p_data => x_msg_data
2004: );
2005: x_return_status := OKC_API.G_RET_STS_ERROR;
2006:
2007: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2008: FND_MSG_PUB.Count_And_Get
2009: (
2003: p_data => x_msg_data
2004: );
2005: x_return_status := OKC_API.G_RET_STS_ERROR;
2006:
2007: when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
2008: FND_MSG_PUB.Count_And_Get
2009: (
2010: p_count => x_msg_count,
2011: p_data => x_msg_data
2009: (
2010: p_count => x_msg_count,
2011: p_data => x_msg_data
2012: );
2013: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2014:
2015: when OTHERS then
2016: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2017: THEN
2025: (
2026: p_count => x_msg_count,
2027: p_data => x_msg_data
2028: );
2029: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2030: END get_articles;
2031:
2032:
2033: -- Procedure: Submit_Request
2201: END IF;
2202:
2203: IF ( l_request_id <> 0 ) THEN
2204: -- Successfully submitted conc request
2205: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2206: IF (l_debug = 'Y') THEN
2207: okc_debug.Log('30: Conc Req ' || to_char(l_request_id) || ' successfully submitted',2);
2208: END IF;
2209: OKC_API.set_message(G_APP_NAME
2205: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2206: IF (l_debug = 'Y') THEN
2207: okc_debug.Log('30: Conc Req ' || to_char(l_request_id) || ' successfully submitted',2);
2208: END IF;
2209: OKC_API.set_message(G_APP_NAME
2210: ,'OKC_SUBMIT_REQUEST_SUCCESS'
2211: ,'REQUEST_ID'
2212: ,to_char(l_request_id));
2213:
2212: ,to_char(l_request_id));
2213:
2214: ELSE
2215: -- Error in submitting conc request
2216: x_return_status := OKC_API.G_RET_STS_ERROR;
2217: IF (l_debug = 'Y') THEN
2218: okc_debug.Log('30: Conc Req failed' || to_char(l_request_id),2);
2219: END IF;
2220: OKC_API.set_message(G_APP_NAME
2216: x_return_status := OKC_API.G_RET_STS_ERROR;
2217: IF (l_debug = 'Y') THEN
2218: okc_debug.Log('30: Conc Req failed' || to_char(l_request_id),2);
2219: END IF;
2220: OKC_API.set_message(G_APP_NAME
2221: ,G_UNEXPECTED_ERROR
2222: ,G_SQLCODE_TOKEN
2223: ,SQLCODE
2224: ,G_SQLERRM_TOKEN
2230: END IF;
2231:
2232: EXCEPTION WHEN others THEN
2233: x_msg_data := SQLERRM;
2234: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2235: OKC_API.set_message(G_APP_NAME
2236: ,G_UNEXPECTED_ERROR
2237: ,G_SQLCODE_TOKEN
2238: ,SQLCODE
2231:
2232: EXCEPTION WHEN others THEN
2233: x_msg_data := SQLERRM;
2234: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2235: OKC_API.set_message(G_APP_NAME
2236: ,G_UNEXPECTED_ERROR
2237: ,G_SQLCODE_TOKEN
2238: ,SQLCODE
2239: ,G_SQLERRM_TOKEN