26: lx_qtev_rec qtev_rec_type;
27:
28: -- for debug logging
29: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'insert_trx_quotes';
30: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
31: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
32: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
33:
34: BEGIN
27:
28: -- for debug logging
29: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'insert_trx_quotes';
30: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
31: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
32: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
33:
34: BEGIN
35:
28: -- for debug logging
29: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'insert_trx_quotes';
30: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
31: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
32: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
33:
34: BEGIN
35:
36:
34: BEGIN
35:
36:
37: IF (is_debug_procedure_on) THEN
38: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
39: END IF;
40:
41:
42: SAVEPOINT trx_quotes_insert;
52:
53:
54:
55: IF (is_debug_statement_on) THEN
56: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
57: 'before call to okl_qte_pvt.insert_row :'||l_return_status);
58: END IF;
59:
60:
67: ,lp_qtev_rec
68: ,lx_qtev_rec);
69:
70: IF (is_debug_statement_on) THEN
71: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
72: 'after call to okl_qte_pvt.insert_row :'||l_return_status);
73: END IF;
74:
75: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
91: x_msg_count := l_msg_count ;
92: x_msg_data := l_msg_data ;
93:
94: IF (is_debug_procedure_on) THEN
95: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
96: END IF;
97:
98: EXCEPTION
99:
115: ,p_data => x_msg_data);
116: WHEN OTHERS THEN
117:
118: IF (is_debug_exception_on) THEN
119: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
120: || sqlcode || ' , SQLERRM : ' || sqlerrm);
121: END IF;
122: ROLLBACK TO trx_quotes_insert;
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
147: lx_qtev_tbl qtev_tbl_type;
148:
149: -- for debug logging
150: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'insert_trx_quotes';
151: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
154:
155: BEGIN
148:
149: -- for debug logging
150: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'insert_trx_quotes';
151: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
154:
155: BEGIN
156:
149: -- for debug logging
150: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'insert_trx_quotes';
151: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
152: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
153: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
154:
155: BEGIN
156:
157:
155: BEGIN
156:
157:
158: IF (is_debug_procedure_on) THEN
159: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
160: END IF;
161:
162:
163: SAVEPOINT trx_quotes_insert;
172: lx_qtev_tbl := x_qtev_tbl;
173:
174:
175: IF (is_debug_statement_on) THEN
176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
177: 'before call to okl_qte_pvt.insert_row :'||l_return_status);
178: END IF;
179:
180: okl_qte_pvt.insert_row(
186: ,lp_qtev_tbl
187: ,lx_qtev_tbl);
188:
189: IF (is_debug_statement_on) THEN
190: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
191: 'after call to okl_qte_pvt.insert_row :'||l_return_status);
192: END IF;
193:
194:
209: x_msg_count := l_msg_count ;
210: x_msg_data := l_msg_data ;
211:
212: IF (is_debug_procedure_on) THEN
213: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
214: END IF;
215:
216:
217: EXCEPTION
233: p_count => x_msg_count
234: ,p_data => x_msg_data);
235: WHEN OTHERS THEN
236: IF (is_debug_exception_on) THEN
237: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
238: || sqlcode || ' , SQLERRM : ' || sqlerrm);
239: END IF;
240: ROLLBACK TO trx_quotes_insert;
241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
256: ,p_qtev_rec IN qtev_rec_type) IS
257:
258: -- for debug logging
259: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'lock_trx_quotes';
260: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
261: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
262: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
263:
264: BEGIN
257:
258: -- for debug logging
259: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'lock_trx_quotes';
260: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
261: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
262: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
263:
264: BEGIN
265:
258: -- for debug logging
259: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'lock_trx_quotes';
260: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
261: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
262: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
263:
264: BEGIN
265:
266:
264: BEGIN
265:
266:
267: IF (is_debug_procedure_on) THEN
268: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
269: END IF;
270:
271: IF (is_debug_statement_on) THEN
272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
268: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
269: END IF;
270:
271: IF (is_debug_statement_on) THEN
272: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
273: 'before call to okl_qte_pvt.lock_row :'||x_return_status);
274: END IF;
275: okl_qte_pvt.lock_row(
276: p_api_version,
280: x_msg_data,
281: p_qtev_rec);
282:
283: IF (is_debug_statement_on) THEN
284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
285: 'after call to okl_qte_pvt.lock_row :'||x_return_status);
286: END IF;
287:
288:
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: END IF;
294:
295: IF (is_debug_procedure_on) THEN
296: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
297: END IF;
298:
299: EXCEPTION
300:
307: p_count => x_msg_count
308: ,p_data => x_msg_data);
309: WHEN OTHERS THEN
310: IF (is_debug_exception_on) THEN
311: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
312: || sqlcode || ' , SQLERRM : ' || sqlerrm);
313: END IF;
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: FND_MSG_PUB.ADD_EXC_MSG('OKL_TRX_QUOTES_PUB','lock_trx_quotes');
327: ,p_qtev_tbl IN qtev_tbl_type) IS
328:
329: -- for debug logging
330: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'lock_trx_quotes';
331: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
332: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
333: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
334:
335: BEGIN
328:
329: -- for debug logging
330: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'lock_trx_quotes';
331: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
332: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
333: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
334:
335: BEGIN
336:
329: -- for debug logging
330: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'lock_trx_quotes';
331: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
332: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
333: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
334:
335: BEGIN
336:
337:
335: BEGIN
336:
337:
338: IF (is_debug_procedure_on) THEN
339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
340: END IF;
341:
342: IF (is_debug_statement_on) THEN
343: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
339: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
340: END IF;
341:
342: IF (is_debug_statement_on) THEN
343: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
344: 'before call to okl_qte_pvt.lock_row :'||x_return_status);
345: END IF;
346:
347: okl_qte_pvt.lock_row(
351: x_msg_count,
352: x_msg_data,
353: p_qtev_tbl);
354: IF (is_debug_statement_on) THEN
355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
356: 'after call to okl_qte_pvt.lock_row :'||x_return_status);
357: END IF;
358:
359:
367: EXCEPTION
368:
369: WHEN FND_API.G_EXC_ERROR THEN
370: IF (is_debug_exception_on) THEN
371: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
372: END IF;
373: FND_MSG_PUB.count_and_get(
374: p_count => x_msg_count
375: ,p_data => x_msg_data);
374: p_count => x_msg_count
375: ,p_data => x_msg_data);
376: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
377: IF (is_debug_exception_on) THEN
378: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
379: END IF;
380:
381: FND_MSG_PUB.count_and_get(
382: p_count => x_msg_count
383: ,p_data => x_msg_data);
384: WHEN OTHERS THEN
385:
386: IF (is_debug_exception_on) THEN
387: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
388: || sqlcode || ' , SQLERRM : ' || sqlerrm);
389: END IF;
390:
391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
413: lx_qtev_rec qtev_rec_type;
414:
415: -- for debug logging
416: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_trx_quotes';
417: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
418: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
419: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
420:
421:
414:
415: -- for debug logging
416: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_trx_quotes';
417: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
418: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
419: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
420:
421:
422: BEGIN
415: -- for debug logging
416: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_trx_quotes';
417: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
418: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
419: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
420:
421:
422: BEGIN
423:
421:
422: BEGIN
423:
424: IF (is_debug_procedure_on) THEN
425: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
426: END IF;
427:
428:
429: SAVEPOINT trx_quotes_update;
439:
440:
441:
442: IF (is_debug_statement_on) THEN
443: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
444: 'before call to okl_qte_pvt.update_row :'||l_return_status);
445: END IF;
446:
447: okl_qte_pvt.update_row(
452: ,l_msg_data
453: ,lp_qtev_rec
454: ,lx_qtev_rec);
455: IF (is_debug_statement_on) THEN
456: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
457: 'after call to okl_qte_pvt.update_row :'||l_return_status);
458: END IF;
459: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
460: RAISE FND_API.G_EXC_ERROR;
474: x_msg_count := l_msg_count ;
475: x_msg_data := l_msg_data ;
476:
477: IF (is_debug_procedure_on) THEN
478: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
479: END IF;
480:
481: EXCEPTION
482:
481: EXCEPTION
482:
483: WHEN FND_API.G_EXC_ERROR THEN
484: IF (is_debug_exception_on) THEN
485: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
486: END IF;
487:
488: ROLLBACK TO trx_quotes_update;
489: x_return_status := FND_API.G_RET_STS_ERROR;
493: p_count => x_msg_count
494: ,p_data => x_msg_data);
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496: IF (is_debug_exception_on) THEN
497: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
498: END IF;
499:
500: ROLLBACK TO trx_quotes_update;
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: ,p_data => x_msg_data);
507: WHEN OTHERS THEN
508:
509: IF (is_debug_exception_on) THEN
510: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
511: || sqlcode || ' , SQLERRM : ' || sqlerrm);
512: END IF;
513:
514: ROLLBACK TO trx_quotes_update;
539: lx_qtev_tbl qtev_tbl_type;
540:
541: -- for debug logging
542: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_trx_quotes';
543: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
544: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
545: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
546:
547: BEGIN
540:
541: -- for debug logging
542: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_trx_quotes';
543: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
544: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
545: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
546:
547: BEGIN
548:
541: -- for debug logging
542: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_trx_quotes';
543: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
544: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
545: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
546:
547: BEGIN
548:
549: IF (is_debug_procedure_on) THEN
546:
547: BEGIN
548:
549: IF (is_debug_procedure_on) THEN
550: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
551: END IF;
552:
553: SAVEPOINT trx_quotes_update;
554:
562:
563:
564:
565: IF (is_debug_statement_on) THEN
566: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
567: 'after call to okl_qte_pvt.update_row :'||l_return_status);
568: END IF;
569:
570: okl_qte_pvt.update_row(
576: ,lp_qtev_tbl
577: ,lx_qtev_tbl);
578:
579: IF (is_debug_statement_on) THEN
580: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
581: 'after call to okl_qte_pvt.update_row :'||l_return_status);
582: END IF;
583:
584:
599: x_msg_count := l_msg_count ;
600: x_msg_data := l_msg_data ;
601:
602: IF (is_debug_procedure_on) THEN
603: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
604: END IF;
605:
606:
607: EXCEPTION
608:
609: WHEN FND_API.G_EXC_ERROR THEN
610:
611: IF (is_debug_exception_on) THEN
612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
613: END IF;
614:
615: ROLLBACK TO trx_quotes_update;
616: x_return_status := FND_API.G_RET_STS_ERROR;
621: ,p_data => x_msg_data);
622: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
623:
624: IF (is_debug_exception_on) THEN
625: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
626: END IF;
627: ROLLBACK TO trx_quotes_update;
628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
629: x_msg_count := l_msg_count ;
633: ,p_data => x_msg_data);
634: WHEN OTHERS THEN
635:
636: IF (is_debug_exception_on) THEN
637: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
638: || sqlcode || ' , SQLERRM : ' || sqlerrm);
639: END IF;
640:
641: ROLLBACK TO trx_quotes_update;
667: lx_qtev_rec qtev_rec_type;
668:
669: -- for debug logging
670: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'delete_trx_quotes';
671: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
672: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
673: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
674:
675: BEGIN
668:
669: -- for debug logging
670: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'delete_trx_quotes';
671: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
672: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
673: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
674:
675: BEGIN
676:
669: -- for debug logging
670: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'delete_trx_quotes';
671: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
672: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
673: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
674:
675: BEGIN
676:
677: IF (is_debug_procedure_on) THEN
674:
675: BEGIN
676:
677: IF (is_debug_procedure_on) THEN
678: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
679: END IF;
680:
681: SAVEPOINT trx_quotes_delete_rec;
682:
689: lx_qtev_rec := p_qtev_rec;
690:
691:
692: IF (is_debug_statement_on) THEN
693: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
694: 'before call to okl_qte_pvt.delete_row :'||l_return_status);
695: END IF;
696:
697: --Delete the Master
703: ,l_msg_data
704: ,lp_qtev_rec);
705:
706: IF (is_debug_statement_on) THEN
707: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
708: 'after call to okl_qte_pvt.delete_row :'||l_return_status);
709: END IF;
710:
711: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
723: x_msg_data := l_msg_data ;
724: x_return_status := l_return_status ;
725:
726: IF (is_debug_procedure_on) THEN
727: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
728: END IF;
729:
730: EXCEPTION
731:
730: EXCEPTION
731:
732: WHEN FND_API.G_EXC_ERROR THEN
733: IF (is_debug_exception_on) THEN
734: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
735: END IF;
736:
737: ROLLBACK TO trx_quotes_delete_rec;
738: x_return_status := FND_API.G_RET_STS_ERROR;
743: ,p_data => x_msg_data);
744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
745:
746: IF (is_debug_exception_on) THEN
747: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
748: END IF;
749: ROLLBACK TO trx_quotes_delete_rec;
750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
751: x_msg_count := l_msg_count ;
754: p_count => x_msg_count
755: ,p_data => x_msg_data);
756: WHEN OTHERS THEN
757: IF (is_debug_exception_on) THEN
758: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
759: || sqlcode || ' , SQLERRM : ' || sqlerrm);
760: END IF;
761:
762: ROLLBACK TO trx_quotes_delete_rec;
787: lx_qtev_tbl qtev_tbl_type;
788:
789: -- for debug logging
790: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'delete_trx_quotes';
791: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
792: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
793: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
794:
795: BEGIN
788:
789: -- for debug logging
790: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'delete_trx_quotes';
791: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
792: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
793: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
794:
795: BEGIN
796:
789: -- for debug logging
790: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'delete_trx_quotes';
791: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
792: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
793: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
794:
795: BEGIN
796:
797: IF (is_debug_procedure_on) THEN
794:
795: BEGIN
796:
797: IF (is_debug_procedure_on) THEN
798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
799: END IF;
800:
801: SAVEPOINT trx_quotes_delete_tbl;
802:
826: ,l_msg_data
827: ,lp_qtev_tbl(i));
828:
829: IF (is_debug_statement_on) THEN
830: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
831: 'after call to delete_trx_quotes :'||l_return_status);
832: END IF;
833: EXIT WHEN (i = lp_qtev_tbl.LAST);
834: i := p_qtev_tbl.NEXT(i);
852:
853: x_return_status := l_return_status ;
854:
855: IF (is_debug_procedure_on) THEN
856: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
857: END IF;
858:
859: EXCEPTION
860:
860:
861: WHEN FND_API.G_EXC_ERROR THEN
862:
863: IF (is_debug_exception_on) THEN
864: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
865: END IF;
866:
867: ROLLBACK TO trx_quotes_delete_tbl;
868: x_return_status := FND_API.G_RET_STS_ERROR;
872: p_count => x_msg_count
873: ,p_data => x_msg_data);
874: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
875: IF (is_debug_exception_on) THEN
876: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
877: END IF;
878:
879: ROLLBACK TO trx_quotes_delete_tbl;
880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
885: ,p_data => x_msg_data);
886: WHEN OTHERS THEN
887:
888: IF (is_debug_exception_on) THEN
889: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
890: || sqlcode || ' , SQLERRM : ' || sqlerrm);
891: END IF;
892:
893: ROLLBACK TO trx_quotes_delete_tbl;
917: l_return_status VARCHAR2(1);
918:
919: -- for debug logging
920: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_trx_quotes';
921: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
922: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
923: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
924:
925: BEGIN
918:
919: -- for debug logging
920: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_trx_quotes';
921: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
922: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
923: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
924:
925: BEGIN
926:
919: -- for debug logging
920: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_trx_quotes';
921: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
922: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
923: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
924:
925: BEGIN
926:
927:
925: BEGIN
926:
927:
928: IF (is_debug_procedure_on) THEN
929: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
930: END IF;
931:
932: SAVEPOINT trx_quotes_validate;
933:
940: lx_qtev_rec := p_qtev_rec;
941:
942:
943: IF (is_debug_statement_on) THEN
944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
945: 'before call to okl_qte_pvt.validate_row :'||l_return_status);
946: END IF;
947:
948: okl_qte_pvt.validate_row(
953: ,l_msg_data
954: ,lp_qtev_rec);
955:
956: IF (is_debug_statement_on) THEN
957: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
958: 'after call to okl_qte_pvt.validate_row :'||l_return_status);
959: END IF;
960:
961: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
973:
974: x_return_status := l_return_status ;
975:
976: IF (is_debug_procedure_on) THEN
977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
978: END IF;
979:
980:
981: EXCEPTION
981: EXCEPTION
982:
983: WHEN FND_API.G_EXC_ERROR THEN
984: IF (is_debug_exception_on) THEN
985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
986: END IF;
987: ROLLBACK TO trx_quotes_validate;
988: x_return_status := FND_API.G_RET_STS_ERROR;
989: x_msg_count := l_msg_count ;
993: ,p_data => x_msg_data);
994: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
995:
996: IF (is_debug_exception_on) THEN
997: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
998: END IF;
999:
1000: ROLLBACK TO trx_quotes_validate;
1001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1005: p_count => x_msg_count
1006: ,p_data => x_msg_data);
1007: WHEN OTHERS THEN
1008: IF (is_debug_exception_on) THEN
1009: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1010: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1011: END IF;
1012: ROLLBACK TO trx_quotes_validate;
1013: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1035: l_return_status VARCHAR2(1);
1036:
1037: -- for debug logging
1038: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_trx_quotes';
1039: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1040: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1041: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1042:
1043: BEGIN
1036:
1037: -- for debug logging
1038: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_trx_quotes';
1039: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1040: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1041: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1042:
1043: BEGIN
1044:
1037: -- for debug logging
1038: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_trx_quotes';
1039: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1040: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1041: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1042:
1043: BEGIN
1044:
1045:
1043: BEGIN
1044:
1045:
1046: IF (is_debug_procedure_on) THEN
1047: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1048: END IF;
1049:
1050: SAVEPOINT trx_quotes_validate;
1051:
1057: lp_qtev_tbl := p_qtev_tbl;
1058: lx_qtev_tbl := p_qtev_tbl;
1059:
1060: IF (is_debug_statement_on) THEN
1061: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1062: 'before call to okl_qte_pvt.validate_row :'||l_return_status);
1063: END IF;
1064:
1065:
1071: ,x_msg_data
1072: ,lp_qtev_tbl);
1073:
1074: IF (is_debug_statement_on) THEN
1075: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
1076: 'after call to okl_qte_pvt.validate_row :'||l_return_status);
1077: END IF;
1078:
1079: IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1091:
1092: x_return_status := l_return_status ;
1093:
1094: IF (is_debug_procedure_on) THEN
1095: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1096: END IF;
1097:
1098: EXCEPTION
1099:
1098: EXCEPTION
1099:
1100: WHEN FND_API.G_EXC_ERROR THEN
1101: IF (is_debug_exception_on) THEN
1102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
1103: END IF;
1104: ROLLBACK TO trx_quotes_validate;
1105: x_return_status := FND_API.G_RET_STS_ERROR;
1106: x_msg_count := l_msg_count ;
1110: ,p_data => x_msg_data);
1111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1112:
1113: IF (is_debug_exception_on) THEN
1114: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'UNEXPECTED');
1115: END IF;
1116:
1117: ROLLBACK TO trx_quotes_validate;
1118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1122: p_count => x_msg_count
1123: ,p_data => x_msg_data);
1124: WHEN OTHERS THEN
1125: IF (is_debug_exception_on) THEN
1126: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1127: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1128: END IF;
1129: ROLLBACK TO trx_quotes_validate;
1130: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;