15:
16: BEGIN
17:
18: IF (l_debug = 'Y') THEN
19: okc_debug.Set_Indentation(l_proc);
20: okc_debug.Log('10: Entering ',2);
21: END IF;
22:
23: l_ocev_rec.id := p_ocev_rec1.id;
16: BEGIN
17:
18: IF (l_debug = 'Y') THEN
19: okc_debug.Set_Indentation(l_proc);
20: okc_debug.Log('10: Entering ',2);
21: END IF;
22:
23: l_ocev_rec.id := p_ocev_rec1.id;
24: l_ocev_rec.object_version_number := p_ocev_rec1.object_version_number;
54: l_ocev_rec.attribute14 := p_ocev_rec2.attribute14;
55: l_ocev_rec.attribute15 := p_ocev_rec2.attribute15;
56:
57: IF (l_debug = 'Y') THEN
58: okc_debug.Log('1000: Leaving ',2);
59: okc_debug.Reset_Indentation;
60: END IF;
61:
62: RETURN (l_ocev_rec);
55: l_ocev_rec.attribute15 := p_ocev_rec2.attribute15;
56:
57: IF (l_debug = 'Y') THEN
58: okc_debug.Log('1000: Leaving ',2);
59: okc_debug.Reset_Indentation;
60: END IF;
61:
62: RETURN (l_ocev_rec);
63: END migrate_ocev;
72:
73: BEGIN
74:
75: IF (l_debug = 'Y') THEN
76: okc_debug.Set_Indentation(l_proc);
77: okc_debug.Log('10: Entering ',2);
78: END IF;
79:
80:
73: BEGIN
74:
75: IF (l_debug = 'Y') THEN
76: okc_debug.Set_Indentation(l_proc);
77: okc_debug.Log('10: Entering ',2);
78: END IF;
79:
80:
81: l_oatv_rec.id := p_oatv_rec1.id;
93: l_oatv_rec.last_update_login := p_oatv_rec1.last_update_login;
94: l_oatv_rec.value := p_oatv_rec2.value;
95:
96: IF (l_debug = 'Y') THEN
97: okc_debug.Log('1000: Leaving ',2);
98: okc_debug.Reset_Indentation;
99: END IF;
100:
101: RETURN (l_oatv_rec);
94: l_oatv_rec.value := p_oatv_rec2.value;
95:
96: IF (l_debug = 'Y') THEN
97: okc_debug.Log('1000: Leaving ',2);
98: okc_debug.Reset_Indentation;
99: END IF;
100:
101: RETURN (l_oatv_rec);
102: END migrate_oatv;
108:
109: BEGIN
110:
111: IF (l_debug = 'Y') THEN
112: okc_debug.Set_Indentation(l_proc);
113: okc_debug.Log('10: Entering ',2);
114: END IF;
115:
116: okc_outcome_pvt.add_language;
109: BEGIN
110:
111: IF (l_debug = 'Y') THEN
112: okc_debug.Set_Indentation(l_proc);
113: okc_debug.Log('10: Entering ',2);
114: END IF;
115:
116: okc_outcome_pvt.add_language;
117:
115:
116: okc_outcome_pvt.add_language;
117:
118: IF (l_debug = 'Y') THEN
119: okc_debug.Log('1000: Leaving ',2);
120: okc_debug.Reset_Indentation;
121: END IF;
122:
123: END;
116: okc_outcome_pvt.add_language;
117:
118: IF (l_debug = 'Y') THEN
119: okc_debug.Log('1000: Leaving ',2);
120: okc_debug.Reset_Indentation;
121: END IF;
122:
123: END;
124:
142:
143: BEGIN
144:
145: IF (l_debug = 'Y') THEN
146: okc_debug.Set_Indentation(l_proc);
147: okc_debug.Log('10: Entering ',2);
148: END IF;
149:
150: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
143: BEGIN
144:
145: IF (l_debug = 'Y') THEN
146: okc_debug.Set_Indentation(l_proc);
147: okc_debug.Log('10: Entering ',2);
148: END IF;
149:
150: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
151: p_init_msg_list,
176:
177: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
178:
179: IF (l_debug = 'Y') THEN
180: okc_debug.Log('1000: Leaving ',2);
181: okc_debug.Reset_Indentation;
182: END IF;
183:
184: EXCEPTION
177: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
178:
179: IF (l_debug = 'Y') THEN
180: okc_debug.Log('1000: Leaving ',2);
181: okc_debug.Reset_Indentation;
182: END IF;
183:
184: EXCEPTION
185: WHEN OKC_API.G_EXCEPTION_ERROR THEN
190: x_msg_count,
191: x_msg_data,
192: '_PUB');
193: IF (l_debug = 'Y') THEN
194: okc_debug.Log('2000: Leaving ',2);
195: okc_debug.Reset_Indentation;
196: END IF;
197: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
198: x_return_status := OKC_API.HANDLE_EXCEPTIONS
191: x_msg_data,
192: '_PUB');
193: IF (l_debug = 'Y') THEN
194: okc_debug.Log('2000: Leaving ',2);
195: okc_debug.Reset_Indentation;
196: END IF;
197: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
198: x_return_status := OKC_API.HANDLE_EXCEPTIONS
199: (l_api_name,
202: x_msg_count,
203: x_msg_data,
204: '_PUB');
205: IF (l_debug = 'Y') THEN
206: okc_debug.Log('3000: Leaving ',2);
207: okc_debug.Reset_Indentation;
208: END IF;
209: WHEN OTHERS THEN
210: x_return_status := OKC_API.HANDLE_EXCEPTIONS
203: x_msg_data,
204: '_PUB');
205: IF (l_debug = 'Y') THEN
206: okc_debug.Log('3000: Leaving ',2);
207: okc_debug.Reset_Indentation;
208: END IF;
209: WHEN OTHERS THEN
210: x_return_status := OKC_API.HANDLE_EXCEPTIONS
211: (l_api_name,
214: x_msg_count,
215: x_msg_data,
216: '_PUB');
217: IF (l_debug = 'Y') THEN
218: okc_debug.Log('4000: Leaving ',2);
219: okc_debug.Reset_Indentation;
220: END IF;
221: END create_outcomes_args;
222:
215: x_msg_data,
216: '_PUB');
217: IF (l_debug = 'Y') THEN
218: okc_debug.Log('4000: Leaving ',2);
219: okc_debug.Reset_Indentation;
220: END IF;
221: END create_outcomes_args;
222:
223: --Object type procedure for update
242:
243: BEGIN
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.Set_Indentation(l_proc);
247: okc_debug.Log('10: Entering ',2);
248: END IF;
249:
250: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
243: BEGIN
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.Set_Indentation(l_proc);
247: okc_debug.Log('10: Entering ',2);
248: END IF;
249:
250: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
251: p_init_msg_list,
276:
277: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
278:
279: IF (l_debug = 'Y') THEN
280: okc_debug.Log('1000: Leaving ',2);
281: okc_debug.Reset_Indentation;
282: END IF;
283:
284: EXCEPTION
277: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
278:
279: IF (l_debug = 'Y') THEN
280: okc_debug.Log('1000: Leaving ',2);
281: okc_debug.Reset_Indentation;
282: END IF;
283:
284: EXCEPTION
285: WHEN OKC_API.G_EXCEPTION_ERROR THEN
290: x_msg_count,
291: x_msg_data,
292: '_PUB');
293: IF (l_debug = 'Y') THEN
294: okc_debug.Log('2000: Leaving ',2);
295: okc_debug.Reset_Indentation;
296: END IF;
297: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
298: x_return_status := OKC_API.HANDLE_EXCEPTIONS
291: x_msg_data,
292: '_PUB');
293: IF (l_debug = 'Y') THEN
294: okc_debug.Log('2000: Leaving ',2);
295: okc_debug.Reset_Indentation;
296: END IF;
297: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
298: x_return_status := OKC_API.HANDLE_EXCEPTIONS
299: (l_api_name,
302: x_msg_count,
303: x_msg_data,
304: '_PUB');
305: IF (l_debug = 'Y') THEN
306: okc_debug.Log('3000: Leaving ',2);
307: okc_debug.Reset_Indentation;
308: END IF;
309: WHEN OTHERS THEN
310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
303: x_msg_data,
304: '_PUB');
305: IF (l_debug = 'Y') THEN
306: okc_debug.Log('3000: Leaving ',2);
307: okc_debug.Reset_Indentation;
308: END IF;
309: WHEN OTHERS THEN
310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
311: (l_api_name,
314: x_msg_count,
315: x_msg_data,
316: '_PUB');
317: IF (l_debug = 'Y') THEN
318: okc_debug.Log('4000: Leaving ',2);
319: okc_debug.Reset_Indentation;
320: END IF;
321: END update_outcomes_args;
322:
315: x_msg_data,
316: '_PUB');
317: IF (l_debug = 'Y') THEN
318: okc_debug.Log('4000: Leaving ',2);
319: okc_debug.Reset_Indentation;
320: END IF;
321: END update_outcomes_args;
322:
323: --Object type procedure for validate
340:
341: BEGIN
342:
343: IF (l_debug = 'Y') THEN
344: okc_debug.Set_Indentation(l_proc);
345: okc_debug.Log('10: Entering ',2);
346: END IF;
347:
348: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
341: BEGIN
342:
343: IF (l_debug = 'Y') THEN
344: okc_debug.Set_Indentation(l_proc);
345: okc_debug.Log('10: Entering ',2);
346: END IF;
347:
348: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
349: p_init_msg_list,
371:
372: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
373:
374: IF (l_debug = 'Y') THEN
375: okc_debug.Log('1000: Leaving ',2);
376: okc_debug.Reset_Indentation;
377: END IF;
378:
379: EXCEPTION
372: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
373:
374: IF (l_debug = 'Y') THEN
375: okc_debug.Log('1000: Leaving ',2);
376: okc_debug.Reset_Indentation;
377: END IF;
378:
379: EXCEPTION
380: WHEN OKC_API.G_EXCEPTION_ERROR THEN
385: x_msg_count,
386: x_msg_data,
387: '_PUB');
388: IF (l_debug = 'Y') THEN
389: okc_debug.Log('2000: Leaving ',2);
390: okc_debug.Reset_Indentation;
391: END IF;
392: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
393: x_return_status := OKC_API.HANDLE_EXCEPTIONS
386: x_msg_data,
387: '_PUB');
388: IF (l_debug = 'Y') THEN
389: okc_debug.Log('2000: Leaving ',2);
390: okc_debug.Reset_Indentation;
391: END IF;
392: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
393: x_return_status := OKC_API.HANDLE_EXCEPTIONS
394: (l_api_name,
397: x_msg_count,
398: x_msg_data,
399: '_PUB');
400: IF (l_debug = 'Y') THEN
401: okc_debug.Log('3000: Leaving ',2);
402: okc_debug.Reset_Indentation;
403: END IF;
404: WHEN OTHERS THEN
405: x_return_status := OKC_API.HANDLE_EXCEPTIONS
398: x_msg_data,
399: '_PUB');
400: IF (l_debug = 'Y') THEN
401: okc_debug.Log('3000: Leaving ',2);
402: okc_debug.Reset_Indentation;
403: END IF;
404: WHEN OTHERS THEN
405: x_return_status := OKC_API.HANDLE_EXCEPTIONS
406: (l_api_name,
409: x_msg_count,
410: x_msg_data,
411: '_PUB');
412: IF (l_debug = 'Y') THEN
413: okc_debug.Log('4000: Leaving ',2);
414: okc_debug.Reset_Indentation;
415: END IF;
416: END validate_outcomes_args;
417:
410: x_msg_data,
411: '_PUB');
412: IF (l_debug = 'Y') THEN
413: okc_debug.Log('4000: Leaving ',2);
414: okc_debug.Reset_Indentation;
415: END IF;
416: END validate_outcomes_args;
417:
418: --Procedures for Outcomes
435:
436: BEGIN
437:
438: IF (l_debug = 'Y') THEN
439: okc_debug.Set_Indentation(l_proc);
440: okc_debug.Log('10: Entering ',2);
441: END IF;
442:
443: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
436: BEGIN
437:
438: IF (l_debug = 'Y') THEN
439: okc_debug.Set_Indentation(l_proc);
440: okc_debug.Log('10: Entering ',2);
441: END IF;
442:
443: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
444: g_pkg_name,
502: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
503:
504:
505: IF (l_debug = 'Y') THEN
506: okc_debug.Log('1000: Leaving ',2);
507: okc_debug.Reset_Indentation;
508: END IF;
509:
510: EXCEPTION
503:
504:
505: IF (l_debug = 'Y') THEN
506: okc_debug.Log('1000: Leaving ',2);
507: okc_debug.Reset_Indentation;
508: END IF;
509:
510: EXCEPTION
511: WHEN OKC_API.G_EXCEPTION_ERROR THEN
518: x_msg_data,
519: '_PUB'
520: );
521: IF (l_debug = 'Y') THEN
522: okc_debug.Log('2000: Leaving ',2);
523: okc_debug.Reset_Indentation;
524: END IF;
525:
526: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
519: '_PUB'
520: );
521: IF (l_debug = 'Y') THEN
522: okc_debug.Log('2000: Leaving ',2);
523: okc_debug.Reset_Indentation;
524: END IF;
525:
526: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
527: x_return_status := OKC_API.HANDLE_EXCEPTIONS
533: x_msg_data,
534: '_PUB'
535: );
536: IF (l_debug = 'Y') THEN
537: okc_debug.Log('3000: Leaving ',2);
538: okc_debug.Reset_Indentation;
539: END IF;
540:
541: WHEN OTHERS THEN
534: '_PUB'
535: );
536: IF (l_debug = 'Y') THEN
537: okc_debug.Log('3000: Leaving ',2);
538: okc_debug.Reset_Indentation;
539: END IF;
540:
541: WHEN OTHERS THEN
542: x_return_status := OKC_API.HANDLE_EXCEPTIONS
548: x_msg_data,
549: '_PUB'
550: );
551: IF (l_debug = 'Y') THEN
552: okc_debug.Log('4000: Leaving ',2);
553: okc_debug.Reset_Indentation;
554: END IF;
555: END create_outcome;
556:
549: '_PUB'
550: );
551: IF (l_debug = 'Y') THEN
552: okc_debug.Log('4000: Leaving ',2);
553: okc_debug.Reset_Indentation;
554: END IF;
555: END create_outcome;
556:
557: PROCEDURE create_outcome(p_api_version IN NUMBER,
570:
571: BEGIN
572:
573: IF (l_debug = 'Y') THEN
574: okc_debug.Set_Indentation(l_proc);
575: okc_debug.Log('10: Entering ',2);
576: END IF;
577:
578: --Initialize the return status
571: BEGIN
572:
573: IF (l_debug = 'Y') THEN
574: okc_debug.Set_Indentation(l_proc);
575: okc_debug.Log('10: Entering ',2);
576: END IF;
577:
578: --Initialize the return status
579: x_return_status := OKC_API.G_RET_STS_SUCCESS;
602: END LOOP;
603: END IF;
604:
605: IF (l_debug = 'Y') THEN
606: okc_debug.Log('1000: Leaving ',2);
607: okc_debug.Reset_Indentation;
608: END IF;
609:
610: EXCEPTION
603: END IF;
604:
605: IF (l_debug = 'Y') THEN
606: okc_debug.Log('1000: Leaving ',2);
607: okc_debug.Reset_Indentation;
608: END IF;
609:
610: EXCEPTION
611: WHEN G_EXCEPTION_HALT_VALIDATION THEN
610: EXCEPTION
611: WHEN G_EXCEPTION_HALT_VALIDATION THEN
612: NULL;
613: IF (l_debug = 'Y') THEN
614: okc_debug.Log('2000: Leaving ',2);
615: okc_debug.Reset_Indentation;
616: END IF;
617:
618: WHEN OTHERS THEN
611: WHEN G_EXCEPTION_HALT_VALIDATION THEN
612: NULL;
613: IF (l_debug = 'Y') THEN
614: okc_debug.Log('2000: Leaving ',2);
615: okc_debug.Reset_Indentation;
616: END IF;
617:
618: WHEN OTHERS THEN
619: OKC_API.set_message(p_app_name => g_app_name,
623: p_token2 => g_sqlerrm_token,
624: p_token2_value => sqlerrm);
625: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
626: IF (l_debug = 'Y') THEN
627: okc_debug.Log('3000: Leaving ',2);
628: okc_debug.Reset_Indentation;
629: END IF;
630: END create_outcome;
631:
624: p_token2_value => sqlerrm);
625: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
626: IF (l_debug = 'Y') THEN
627: okc_debug.Log('3000: Leaving ',2);
628: okc_debug.Reset_Indentation;
629: END IF;
630: END create_outcome;
631:
632: PROCEDURE lock_outcome(p_api_version IN NUMBER,
645:
646: BEGIN
647:
648: IF (l_debug = 'Y') THEN
649: okc_debug.Set_Indentation(l_proc);
650: okc_debug.Log('10: Entering ',2);
651: END IF;
652:
653: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
646: BEGIN
647:
648: IF (l_debug = 'Y') THEN
649: okc_debug.Set_Indentation(l_proc);
650: okc_debug.Log('10: Entering ',2);
651: END IF;
652:
653: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
654: g_pkg_name,
680: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
681:
682:
683: IF (l_debug = 'Y') THEN
684: okc_debug.Log('1000: Leaving ',2);
685: okc_debug.Reset_Indentation;
686: END IF;
687:
688: EXCEPTION
681:
682:
683: IF (l_debug = 'Y') THEN
684: okc_debug.Log('1000: Leaving ',2);
685: okc_debug.Reset_Indentation;
686: END IF;
687:
688: EXCEPTION
689: WHEN OKC_API.G_EXCEPTION_ERROR THEN
696: x_msg_data,
697: '_PUB'
698: );
699: IF (l_debug = 'Y') THEN
700: okc_debug.Log('2000: Leaving ',2);
701: okc_debug.Reset_Indentation;
702: END IF;
703:
704: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
697: '_PUB'
698: );
699: IF (l_debug = 'Y') THEN
700: okc_debug.Log('2000: Leaving ',2);
701: okc_debug.Reset_Indentation;
702: END IF;
703:
704: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
705: x_return_status := OKC_API.HANDLE_EXCEPTIONS
711: x_msg_data,
712: '_PUB'
713: );
714: IF (l_debug = 'Y') THEN
715: okc_debug.Log('3000: Leaving ',2);
716: okc_debug.Reset_Indentation;
717: END IF;
718:
719: WHEN OTHERS THEN
712: '_PUB'
713: );
714: IF (l_debug = 'Y') THEN
715: okc_debug.Log('3000: Leaving ',2);
716: okc_debug.Reset_Indentation;
717: END IF;
718:
719: WHEN OTHERS THEN
720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
726: x_msg_data,
727: '_PUB'
728: );
729: IF (l_debug = 'Y') THEN
730: okc_debug.Log('4000: Leaving ',2);
731: okc_debug.Reset_Indentation;
732: END IF;
733: end lock_outcome;
734:
727: '_PUB'
728: );
729: IF (l_debug = 'Y') THEN
730: okc_debug.Log('4000: Leaving ',2);
731: okc_debug.Reset_Indentation;
732: END IF;
733: end lock_outcome;
734:
735: PROCEDURE lock_outcome(p_api_version IN NUMBER,
747:
748: BEGIN
749:
750: IF (l_debug = 'Y') THEN
751: okc_debug.Set_Indentation(l_proc);
752: okc_debug.Log('10: Entering ',2);
753: END IF;
754:
755: x_return_status := OKC_API.G_RET_STS_SUCCESS;
748: BEGIN
749:
750: IF (l_debug = 'Y') THEN
751: okc_debug.Set_Indentation(l_proc);
752: okc_debug.Log('10: Entering ',2);
753: END IF;
754:
755: x_return_status := OKC_API.G_RET_STS_SUCCESS;
756: IF p_ocev_tbl.COUNT > 0 THEN
776: END LOOP;
777: END IF;
778:
779: IF (l_debug = 'Y') THEN
780: okc_debug.Log('1000: Leaving ',2);
781: okc_debug.Reset_Indentation;
782: END IF;
783:
784: EXCEPTION
777: END IF;
778:
779: IF (l_debug = 'Y') THEN
780: okc_debug.Log('1000: Leaving ',2);
781: okc_debug.Reset_Indentation;
782: END IF;
783:
784: EXCEPTION
785: WHEN G_EXCEPTION_HALT_VALIDATION THEN
784: EXCEPTION
785: WHEN G_EXCEPTION_HALT_VALIDATION THEN
786: NULL;
787: IF (l_debug = 'Y') THEN
788: okc_debug.Log('2000: Leaving ',2);
789: okc_debug.Reset_Indentation;
790: END IF;
791:
792: WHEN OTHERS THEN
785: WHEN G_EXCEPTION_HALT_VALIDATION THEN
786: NULL;
787: IF (l_debug = 'Y') THEN
788: okc_debug.Log('2000: Leaving ',2);
789: okc_debug.Reset_Indentation;
790: END IF;
791:
792: WHEN OTHERS THEN
793: OKC_API.set_message(p_app_name => g_app_name,
797: p_token2 => g_sqlerrm_token,
798: p_token2_value => sqlerrm);
799: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
800: IF (l_debug = 'Y') THEN
801: okc_debug.Log('3000: Leaving ',2);
802: okc_debug.Reset_Indentation;
803: END IF;
804: END lock_outcome;
805:
798: p_token2_value => sqlerrm);
799: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
800: IF (l_debug = 'Y') THEN
801: okc_debug.Log('3000: Leaving ',2);
802: okc_debug.Reset_Indentation;
803: END IF;
804: END lock_outcome;
805:
806: PROCEDURE update_outcome(p_api_version IN NUMBER,
821:
822: BEGIN
823:
824: IF (l_debug = 'Y') THEN
825: okc_debug.Set_Indentation(l_proc);
826: okc_debug.Log('10: Entering ',2);
827: END IF;
828:
829: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
822: BEGIN
823:
824: IF (l_debug = 'Y') THEN
825: okc_debug.Set_Indentation(l_proc);
826: okc_debug.Log('10: Entering ',2);
827: END IF;
828:
829: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
830: g_pkg_name,
889: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
890:
891:
892: IF (l_debug = 'Y') THEN
893: okc_debug.Log('1000: Leaving ',2);
894: okc_debug.Reset_Indentation;
895: END IF;
896:
897: EXCEPTION
890:
891:
892: IF (l_debug = 'Y') THEN
893: okc_debug.Log('1000: Leaving ',2);
894: okc_debug.Reset_Indentation;
895: END IF;
896:
897: EXCEPTION
898: WHEN OKC_API.G_EXCEPTION_ERROR THEN
905: x_msg_data,
906: '_PUB'
907: );
908: IF (l_debug = 'Y') THEN
909: okc_debug.Log('2000: Leaving ',2);
910: okc_debug.Reset_Indentation;
911: END IF;
912:
913: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
906: '_PUB'
907: );
908: IF (l_debug = 'Y') THEN
909: okc_debug.Log('2000: Leaving ',2);
910: okc_debug.Reset_Indentation;
911: END IF;
912:
913: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
914: x_return_status := OKC_API.HANDLE_EXCEPTIONS
920: x_msg_data,
921: '_PUB'
922: );
923: IF (l_debug = 'Y') THEN
924: okc_debug.Log('3000: Leaving ',2);
925: okc_debug.Reset_Indentation;
926: END IF;
927:
928: WHEN OTHERS THEN
921: '_PUB'
922: );
923: IF (l_debug = 'Y') THEN
924: okc_debug.Log('3000: Leaving ',2);
925: okc_debug.Reset_Indentation;
926: END IF;
927:
928: WHEN OTHERS THEN
929: x_return_status := OKC_API.HANDLE_EXCEPTIONS
935: x_msg_data,
936: '_PUB'
937: );
938: IF (l_debug = 'Y') THEN
939: okc_debug.Log('4000: Leaving ',2);
940: okc_debug.Reset_Indentation;
941: END IF;
942: end update_outcome;
943:
936: '_PUB'
937: );
938: IF (l_debug = 'Y') THEN
939: okc_debug.Log('4000: Leaving ',2);
940: okc_debug.Reset_Indentation;
941: END IF;
942: end update_outcome;
943:
944: PROCEDURE update_outcome(p_api_version IN NUMBER,
957:
958: BEGIN
959:
960: IF (l_debug = 'Y') THEN
961: okc_debug.Set_Indentation(l_proc);
962: okc_debug.Log('10: Entering ',2);
963: END IF;
964:
965: x_return_status := OKC_API.G_RET_STS_SUCCESS;
958: BEGIN
959:
960: IF (l_debug = 'Y') THEN
961: okc_debug.Set_Indentation(l_proc);
962: okc_debug.Log('10: Entering ',2);
963: END IF;
964:
965: x_return_status := OKC_API.G_RET_STS_SUCCESS;
966: IF p_ocev_tbl.COUNT > 0 THEN
987: END LOOP;
988: END IF;
989:
990: IF (l_debug = 'Y') THEN
991: okc_debug.Log('1000: Leaving ',2);
992: okc_debug.Reset_Indentation;
993: END IF;
994:
995: EXCEPTION
988: END IF;
989:
990: IF (l_debug = 'Y') THEN
991: okc_debug.Log('1000: Leaving ',2);
992: okc_debug.Reset_Indentation;
993: END IF;
994:
995: EXCEPTION
996: WHEN G_EXCEPTION_HALT_VALIDATION THEN
995: EXCEPTION
996: WHEN G_EXCEPTION_HALT_VALIDATION THEN
997: NULL;
998: IF (l_debug = 'Y') THEN
999: okc_debug.Log('2000: Leaving ',2);
1000: okc_debug.Reset_Indentation;
1001: END IF;
1002:
1003: WHEN OTHERS THEN
996: WHEN G_EXCEPTION_HALT_VALIDATION THEN
997: NULL;
998: IF (l_debug = 'Y') THEN
999: okc_debug.Log('2000: Leaving ',2);
1000: okc_debug.Reset_Indentation;
1001: END IF;
1002:
1003: WHEN OTHERS THEN
1004: OKC_API.set_message(p_app_name => g_app_name,
1008: p_token2 => g_sqlerrm_token,
1009: p_token2_value => sqlerrm);
1010: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1011: IF (l_debug = 'Y') THEN
1012: okc_debug.Log('3000: Leaving ',2);
1013: okc_debug.Reset_Indentation;
1014: END IF;
1015: END update_outcome;
1016:
1009: p_token2_value => sqlerrm);
1010: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1011: IF (l_debug = 'Y') THEN
1012: okc_debug.Log('3000: Leaving ',2);
1013: okc_debug.Reset_Indentation;
1014: END IF;
1015: END update_outcome;
1016:
1017: PROCEDURE delete_outcome(p_api_version IN NUMBER,
1031:
1032: BEGIN
1033:
1034: IF (l_debug = 'Y') THEN
1035: okc_debug.Set_Indentation(l_proc);
1036: okc_debug.Log('10: Entering ',2);
1037: END IF;
1038:
1039: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1032: BEGIN
1033:
1034: IF (l_debug = 'Y') THEN
1035: okc_debug.Set_Indentation(l_proc);
1036: okc_debug.Log('10: Entering ',2);
1037: END IF;
1038:
1039: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1040: g_pkg_name,
1095: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1096:
1097:
1098: IF (l_debug = 'Y') THEN
1099: okc_debug.Log('1000: Leaving ',2);
1100: okc_debug.Reset_Indentation;
1101: END IF;
1102:
1103: EXCEPTION
1096:
1097:
1098: IF (l_debug = 'Y') THEN
1099: okc_debug.Log('1000: Leaving ',2);
1100: okc_debug.Reset_Indentation;
1101: END IF;
1102:
1103: EXCEPTION
1104: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1111: x_msg_data,
1112: '_PUB'
1113: );
1114: IF (l_debug = 'Y') THEN
1115: okc_debug.Log('2000: Leaving ',2);
1116: okc_debug.Reset_Indentation;
1117: END IF;
1118:
1119: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1112: '_PUB'
1113: );
1114: IF (l_debug = 'Y') THEN
1115: okc_debug.Log('2000: Leaving ',2);
1116: okc_debug.Reset_Indentation;
1117: END IF;
1118:
1119: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1126: x_msg_data,
1127: '_PUB'
1128: );
1129: IF (l_debug = 'Y') THEN
1130: okc_debug.Log('3000: Leaving ',2);
1131: okc_debug.Reset_Indentation;
1132: END IF;
1133:
1134: WHEN OTHERS THEN
1127: '_PUB'
1128: );
1129: IF (l_debug = 'Y') THEN
1130: okc_debug.Log('3000: Leaving ',2);
1131: okc_debug.Reset_Indentation;
1132: END IF;
1133:
1134: WHEN OTHERS THEN
1135: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1141: x_msg_data,
1142: '_PUB'
1143: );
1144: IF (l_debug = 'Y') THEN
1145: okc_debug.Log('4000: Leaving ',2);
1146: okc_debug.Reset_Indentation;
1147: END IF;
1148: end delete_outcome;
1149:
1142: '_PUB'
1143: );
1144: IF (l_debug = 'Y') THEN
1145: okc_debug.Log('4000: Leaving ',2);
1146: okc_debug.Reset_Indentation;
1147: END IF;
1148: end delete_outcome;
1149:
1150: PROCEDURE delete_outcome(p_api_version IN NUMBER,
1162:
1163: BEGIN
1164:
1165: IF (l_debug = 'Y') THEN
1166: okc_debug.Set_Indentation(l_proc);
1167: okc_debug.Log('10: Entering ',2);
1168: END IF;
1169:
1170: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1163: BEGIN
1164:
1165: IF (l_debug = 'Y') THEN
1166: okc_debug.Set_Indentation(l_proc);
1167: okc_debug.Log('10: Entering ',2);
1168: END IF;
1169:
1170: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1171: IF p_ocev_tbl.COUNT > 0 THEN
1191: END LOOP;
1192: END IF;
1193:
1194: IF (l_debug = 'Y') THEN
1195: okc_debug.Log('1000: Leaving ',2);
1196: okc_debug.Reset_Indentation;
1197: END IF;
1198:
1199: EXCEPTION
1192: END IF;
1193:
1194: IF (l_debug = 'Y') THEN
1195: okc_debug.Log('1000: Leaving ',2);
1196: okc_debug.Reset_Indentation;
1197: END IF;
1198:
1199: EXCEPTION
1200: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1199: EXCEPTION
1200: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1201: NULL;
1202: IF (l_debug = 'Y') THEN
1203: okc_debug.Log('2000: Leaving ',2);
1204: okc_debug.Reset_Indentation;
1205: END IF;
1206:
1207: WHEN OTHERS THEN
1200: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1201: NULL;
1202: IF (l_debug = 'Y') THEN
1203: okc_debug.Log('2000: Leaving ',2);
1204: okc_debug.Reset_Indentation;
1205: END IF;
1206:
1207: WHEN OTHERS THEN
1208: OKC_API.set_message(p_app_name => g_app_name,
1212: p_token2 => g_sqlerrm_token,
1213: p_token2_value => sqlerrm);
1214: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1215: IF (l_debug = 'Y') THEN
1216: okc_debug.Log('3000: Leaving ',2);
1217: okc_debug.Reset_Indentation;
1218: END IF;
1219: END delete_outcome;
1220:
1213: p_token2_value => sqlerrm);
1214: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1215: IF (l_debug = 'Y') THEN
1216: okc_debug.Log('3000: Leaving ',2);
1217: okc_debug.Reset_Indentation;
1218: END IF;
1219: END delete_outcome;
1220:
1221: PROCEDURE validate_outcome(p_api_version IN NUMBER,
1235:
1236: BEGIN
1237:
1238: IF (l_debug = 'Y') THEN
1239: okc_debug.Set_Indentation(l_proc);
1240: okc_debug.Log('10: Entering ',2);
1241: END IF;
1242:
1243: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1236: BEGIN
1237:
1238: IF (l_debug = 'Y') THEN
1239: okc_debug.Set_Indentation(l_proc);
1240: okc_debug.Log('10: Entering ',2);
1241: END IF;
1242:
1243: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1244: g_pkg_name,
1300:
1301: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1302:
1303: IF (l_debug = 'Y') THEN
1304: okc_debug.Log('1000: Leaving ',2);
1305: okc_debug.Reset_Indentation;
1306: END IF;
1307:
1308: EXCEPTION
1301: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1302:
1303: IF (l_debug = 'Y') THEN
1304: okc_debug.Log('1000: Leaving ',2);
1305: okc_debug.Reset_Indentation;
1306: END IF;
1307:
1308: EXCEPTION
1309: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1316: x_msg_data,
1317: '_PUB'
1318: );
1319: IF (l_debug = 'Y') THEN
1320: okc_debug.Log('2000: Leaving ',2);
1321: okc_debug.Reset_Indentation;
1322: END IF;
1323:
1324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1317: '_PUB'
1318: );
1319: IF (l_debug = 'Y') THEN
1320: okc_debug.Log('2000: Leaving ',2);
1321: okc_debug.Reset_Indentation;
1322: END IF;
1323:
1324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1325: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1331: x_msg_data,
1332: '_PUB'
1333: );
1334: IF (l_debug = 'Y') THEN
1335: okc_debug.Log('3000: Leaving ',2);
1336: okc_debug.Reset_Indentation;
1337: END IF;
1338:
1339: WHEN OTHERS THEN
1332: '_PUB'
1333: );
1334: IF (l_debug = 'Y') THEN
1335: okc_debug.Log('3000: Leaving ',2);
1336: okc_debug.Reset_Indentation;
1337: END IF;
1338:
1339: WHEN OTHERS THEN
1340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1346: x_msg_data,
1347: '_PUB'
1348: );
1349: IF (l_debug = 'Y') THEN
1350: okc_debug.Log('4000: Leaving ',2);
1351: okc_debug.Reset_Indentation;
1352: END IF;
1353: END validate_outcome;
1354:
1347: '_PUB'
1348: );
1349: IF (l_debug = 'Y') THEN
1350: okc_debug.Log('4000: Leaving ',2);
1351: okc_debug.Reset_Indentation;
1352: END IF;
1353: END validate_outcome;
1354:
1355: PROCEDURE validate_outcome(p_api_version IN NUMBER,
1366:
1367: BEGIN
1368:
1369: IF (l_debug = 'Y') THEN
1370: okc_debug.Set_Indentation(l_proc);
1371: okc_debug.Log('10: Entering ',2);
1372: END IF;
1373:
1374: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1367: BEGIN
1368:
1369: IF (l_debug = 'Y') THEN
1370: okc_debug.Set_Indentation(l_proc);
1371: okc_debug.Log('10: Entering ',2);
1372: END IF;
1373:
1374: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1375: IF p_ocev_tbl.COUNT > 0 THEN
1395: END LOOP;
1396: END IF;
1397:
1398: IF (l_debug = 'Y') THEN
1399: okc_debug.Log('1000: Leaving ',2);
1400: okc_debug.Reset_Indentation;
1401: END IF;
1402:
1403: EXCEPTION
1396: END IF;
1397:
1398: IF (l_debug = 'Y') THEN
1399: okc_debug.Log('1000: Leaving ',2);
1400: okc_debug.Reset_Indentation;
1401: END IF;
1402:
1403: EXCEPTION
1404: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1403: EXCEPTION
1404: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1405: NULL;
1406: IF (l_debug = 'Y') THEN
1407: okc_debug.Log('2000: Leaving ',2);
1408: okc_debug.Reset_Indentation;
1409: END IF;
1410:
1411: WHEN OTHERS THEN
1404: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1405: NULL;
1406: IF (l_debug = 'Y') THEN
1407: okc_debug.Log('2000: Leaving ',2);
1408: okc_debug.Reset_Indentation;
1409: END IF;
1410:
1411: WHEN OTHERS THEN
1412: OKC_API.set_message(p_app_name => g_app_name,
1416: p_token2 => g_sqlerrm_token,
1417: p_token2_value => sqlerrm);
1418: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1419: IF (l_debug = 'Y') THEN
1420: okc_debug.Log('3000: Leaving ',2);
1421: okc_debug.Reset_Indentation;
1422: END IF;
1423: END validate_outcome;
1424:
1417: p_token2_value => sqlerrm);
1418: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1419: IF (l_debug = 'Y') THEN
1420: okc_debug.Log('3000: Leaving ',2);
1421: okc_debug.Reset_Indentation;
1422: END IF;
1423: END validate_outcome;
1424:
1425: --Procedures for Outcome Arguments
1442:
1443: BEGIN
1444:
1445: IF (l_debug = 'Y') THEN
1446: okc_debug.Set_Indentation(l_proc);
1447: okc_debug.Log('10: Entering ',2);
1448: END IF;
1449:
1450: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1443: BEGIN
1444:
1445: IF (l_debug = 'Y') THEN
1446: okc_debug.Set_Indentation(l_proc);
1447: okc_debug.Log('10: Entering ',2);
1448: END IF;
1449:
1450: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1451: g_pkg_name,
1510: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1511:
1512:
1513: IF (l_debug = 'Y') THEN
1514: okc_debug.Log('1000: Leaving ',2);
1515: okc_debug.Reset_Indentation;
1516: END IF;
1517:
1518: EXCEPTION
1511:
1512:
1513: IF (l_debug = 'Y') THEN
1514: okc_debug.Log('1000: Leaving ',2);
1515: okc_debug.Reset_Indentation;
1516: END IF;
1517:
1518: EXCEPTION
1519: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1526: x_msg_data,
1527: '_PUB'
1528: );
1529: IF (l_debug = 'Y') THEN
1530: okc_debug.Log('2000: Leaving ',2);
1531: okc_debug.Reset_Indentation;
1532: END IF;
1533:
1534: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1527: '_PUB'
1528: );
1529: IF (l_debug = 'Y') THEN
1530: okc_debug.Log('2000: Leaving ',2);
1531: okc_debug.Reset_Indentation;
1532: END IF;
1533:
1534: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1535: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1541: x_msg_data,
1542: '_PUB'
1543: );
1544: IF (l_debug = 'Y') THEN
1545: okc_debug.Log('3000: Leaving ',2);
1546: okc_debug.Reset_Indentation;
1547: END IF;
1548:
1549: WHEN OTHERS THEN
1542: '_PUB'
1543: );
1544: IF (l_debug = 'Y') THEN
1545: okc_debug.Log('3000: Leaving ',2);
1546: okc_debug.Reset_Indentation;
1547: END IF;
1548:
1549: WHEN OTHERS THEN
1550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1556: x_msg_data,
1557: '_PUB'
1558: );
1559: IF (l_debug = 'Y') THEN
1560: okc_debug.Log('4000: Leaving ',2);
1561: okc_debug.Reset_Indentation;
1562: END IF;
1563: end create_out_arg;
1564:
1557: '_PUB'
1558: );
1559: IF (l_debug = 'Y') THEN
1560: okc_debug.Log('4000: Leaving ',2);
1561: okc_debug.Reset_Indentation;
1562: END IF;
1563: end create_out_arg;
1564:
1565: PROCEDURE create_out_arg(p_api_version IN NUMBER,
1578:
1579: BEGIN
1580:
1581: IF (l_debug = 'Y') THEN
1582: okc_debug.Set_Indentation(l_proc);
1583: okc_debug.Log('10: Entering ',2);
1584: END IF;
1585:
1586: --Initialize the return status
1579: BEGIN
1580:
1581: IF (l_debug = 'Y') THEN
1582: okc_debug.Set_Indentation(l_proc);
1583: okc_debug.Log('10: Entering ',2);
1584: END IF;
1585:
1586: --Initialize the return status
1587: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1610: END LOOP;
1611: END IF;
1612:
1613: IF (l_debug = 'Y') THEN
1614: okc_debug.Log('1000: Leaving ',2);
1615: okc_debug.Reset_Indentation;
1616: END IF;
1617:
1618: EXCEPTION
1611: END IF;
1612:
1613: IF (l_debug = 'Y') THEN
1614: okc_debug.Log('1000: Leaving ',2);
1615: okc_debug.Reset_Indentation;
1616: END IF;
1617:
1618: EXCEPTION
1619: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1618: EXCEPTION
1619: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1620: NULL;
1621: IF (l_debug = 'Y') THEN
1622: okc_debug.Log('2000: Leaving ',2);
1623: okc_debug.Reset_Indentation;
1624: END IF;
1625:
1626: WHEN OTHERS THEN
1619: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1620: NULL;
1621: IF (l_debug = 'Y') THEN
1622: okc_debug.Log('2000: Leaving ',2);
1623: okc_debug.Reset_Indentation;
1624: END IF;
1625:
1626: WHEN OTHERS THEN
1627: OKC_API.set_message(p_app_name => g_app_name,
1631: p_token2 => g_sqlerrm_token,
1632: p_token2_value => sqlerrm);
1633: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1634: IF (l_debug = 'Y') THEN
1635: okc_debug.Log('3000: Leaving ',2);
1636: okc_debug.Reset_Indentation;
1637: END IF;
1638: END create_out_arg;
1639:
1632: p_token2_value => sqlerrm);
1633: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1634: IF (l_debug = 'Y') THEN
1635: okc_debug.Log('3000: Leaving ',2);
1636: okc_debug.Reset_Indentation;
1637: END IF;
1638: END create_out_arg;
1639:
1640: PROCEDURE lock_out_arg(p_api_version IN NUMBER,
1653:
1654: BEGIN
1655:
1656: IF (l_debug = 'Y') THEN
1657: okc_debug.Set_Indentation(l_proc);
1658: okc_debug.Log('10: Entering ',2);
1659: END IF;
1660:
1661: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1654: BEGIN
1655:
1656: IF (l_debug = 'Y') THEN
1657: okc_debug.Set_Indentation(l_proc);
1658: okc_debug.Log('10: Entering ',2);
1659: END IF;
1660:
1661: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1662: g_pkg_name,
1689: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1690:
1691:
1692: IF (l_debug = 'Y') THEN
1693: okc_debug.Log('1000: Leaving ',2);
1694: okc_debug.Reset_Indentation;
1695: END IF;
1696:
1697: EXCEPTION
1690:
1691:
1692: IF (l_debug = 'Y') THEN
1693: okc_debug.Log('1000: Leaving ',2);
1694: okc_debug.Reset_Indentation;
1695: END IF;
1696:
1697: EXCEPTION
1698: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1705: x_msg_data,
1706: '_PUB'
1707: );
1708: IF (l_debug = 'Y') THEN
1709: okc_debug.Log('2000: Leaving ',2);
1710: okc_debug.Reset_Indentation;
1711: END IF;
1712:
1713: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1706: '_PUB'
1707: );
1708: IF (l_debug = 'Y') THEN
1709: okc_debug.Log('2000: Leaving ',2);
1710: okc_debug.Reset_Indentation;
1711: END IF;
1712:
1713: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1714: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1720: x_msg_data,
1721: '_PUB'
1722: );
1723: IF (l_debug = 'Y') THEN
1724: okc_debug.Log('3000: Leaving ',2);
1725: okc_debug.Reset_Indentation;
1726: END IF;
1727:
1728: WHEN OTHERS THEN
1721: '_PUB'
1722: );
1723: IF (l_debug = 'Y') THEN
1724: okc_debug.Log('3000: Leaving ',2);
1725: okc_debug.Reset_Indentation;
1726: END IF;
1727:
1728: WHEN OTHERS THEN
1729: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1735: x_msg_data,
1736: '_PUB'
1737: );
1738: IF (l_debug = 'Y') THEN
1739: okc_debug.Log('4000: Leaving ',2);
1740: okc_debug.Reset_Indentation;
1741: END IF;
1742: end lock_out_arg;
1743:
1736: '_PUB'
1737: );
1738: IF (l_debug = 'Y') THEN
1739: okc_debug.Log('4000: Leaving ',2);
1740: okc_debug.Reset_Indentation;
1741: END IF;
1742: end lock_out_arg;
1743:
1744: PROCEDURE lock_out_arg(p_api_version IN NUMBER,
1755:
1756: BEGIN
1757:
1758: IF (l_debug = 'Y') THEN
1759: okc_debug.Set_Indentation(l_proc);
1760: okc_debug.Log('10: Entering ',2);
1761: END IF;
1762:
1763: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1756: BEGIN
1757:
1758: IF (l_debug = 'Y') THEN
1759: okc_debug.Set_Indentation(l_proc);
1760: okc_debug.Log('10: Entering ',2);
1761: END IF;
1762:
1763: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1764: IF p_oatv_tbl.COUNT > 0 THEN
1784: END LOOP;
1785: END IF;
1786:
1787: IF (l_debug = 'Y') THEN
1788: okc_debug.Log('1000: Leaving ',2);
1789: okc_debug.Reset_Indentation;
1790: END IF;
1791:
1792: EXCEPTION
1785: END IF;
1786:
1787: IF (l_debug = 'Y') THEN
1788: okc_debug.Log('1000: Leaving ',2);
1789: okc_debug.Reset_Indentation;
1790: END IF;
1791:
1792: EXCEPTION
1793: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1792: EXCEPTION
1793: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1794: NULL;
1795: IF (l_debug = 'Y') THEN
1796: okc_debug.Log('2000: Leaving ',2);
1797: okc_debug.Reset_Indentation;
1798: END IF;
1799:
1800: WHEN OTHERS THEN
1793: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1794: NULL;
1795: IF (l_debug = 'Y') THEN
1796: okc_debug.Log('2000: Leaving ',2);
1797: okc_debug.Reset_Indentation;
1798: END IF;
1799:
1800: WHEN OTHERS THEN
1801: OKC_API.set_message(p_app_name => g_app_name,
1805: p_token2 => g_sqlerrm_token,
1806: p_token2_value => sqlerrm);
1807: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1808: IF (l_debug = 'Y') THEN
1809: okc_debug.Log('3000: Leaving ',2);
1810: okc_debug.Reset_Indentation;
1811: END IF;
1812: End lock_out_arg;
1813:
1806: p_token2_value => sqlerrm);
1807: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1808: IF (l_debug = 'Y') THEN
1809: okc_debug.Log('3000: Leaving ',2);
1810: okc_debug.Reset_Indentation;
1811: END IF;
1812: End lock_out_arg;
1813:
1814: PROCEDURE update_out_arg(p_api_version IN NUMBER,
1829:
1830: BEGIN
1831:
1832: IF (l_debug = 'Y') THEN
1833: okc_debug.Set_Indentation(l_proc);
1834: okc_debug.Log('10: Entering ',2);
1835: END IF;
1836:
1837: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1830: BEGIN
1831:
1832: IF (l_debug = 'Y') THEN
1833: okc_debug.Set_Indentation(l_proc);
1834: okc_debug.Log('10: Entering ',2);
1835: END IF;
1836:
1837: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1838: g_pkg_name,
1895: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1896:
1897:
1898: IF (l_debug = 'Y') THEN
1899: okc_debug.Log('1000: Leaving ',2);
1900: okc_debug.Reset_Indentation;
1901: END IF;
1902:
1903: EXCEPTION
1896:
1897:
1898: IF (l_debug = 'Y') THEN
1899: okc_debug.Log('1000: Leaving ',2);
1900: okc_debug.Reset_Indentation;
1901: END IF;
1902:
1903: EXCEPTION
1904: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1911: x_msg_data,
1912: '_PUB'
1913: );
1914: IF (l_debug = 'Y') THEN
1915: okc_debug.Log('2000: Leaving ',2);
1916: okc_debug.Reset_Indentation;
1917: END IF;
1918:
1919: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1912: '_PUB'
1913: );
1914: IF (l_debug = 'Y') THEN
1915: okc_debug.Log('2000: Leaving ',2);
1916: okc_debug.Reset_Indentation;
1917: END IF;
1918:
1919: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1920: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1926: x_msg_data,
1927: '_PUB'
1928: );
1929: IF (l_debug = 'Y') THEN
1930: okc_debug.Log('3000: Leaving ',2);
1931: okc_debug.Reset_Indentation;
1932: END IF;
1933:
1934: WHEN OTHERS THEN
1927: '_PUB'
1928: );
1929: IF (l_debug = 'Y') THEN
1930: okc_debug.Log('3000: Leaving ',2);
1931: okc_debug.Reset_Indentation;
1932: END IF;
1933:
1934: WHEN OTHERS THEN
1935: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1941: x_msg_data,
1942: '_PUB'
1943: );
1944: IF (l_debug = 'Y') THEN
1945: okc_debug.Log('4000: Leaving ',2);
1946: okc_debug.Reset_Indentation;
1947: END IF;
1948: END update_out_arg;
1949:
1942: '_PUB'
1943: );
1944: IF (l_debug = 'Y') THEN
1945: okc_debug.Log('4000: Leaving ',2);
1946: okc_debug.Reset_Indentation;
1947: END IF;
1948: END update_out_arg;
1949:
1950: PROCEDURE update_out_arg(p_api_version IN NUMBER,
1963:
1964: BEGIN
1965:
1966: IF (l_debug = 'Y') THEN
1967: okc_debug.Set_Indentation(l_proc);
1968: okc_debug.Log('10: Entering ',2);
1969: END IF;
1970:
1971: --Initialize the return status
1964: BEGIN
1965:
1966: IF (l_debug = 'Y') THEN
1967: okc_debug.Set_Indentation(l_proc);
1968: okc_debug.Log('10: Entering ',2);
1969: END IF;
1970:
1971: --Initialize the return status
1972: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1995: END LOOP;
1996: END IF;
1997:
1998: IF (l_debug = 'Y') THEN
1999: okc_debug.Log('1000: Leaving ',2);
2000: okc_debug.Reset_Indentation;
2001: END IF;
2002:
2003: EXCEPTION
1996: END IF;
1997:
1998: IF (l_debug = 'Y') THEN
1999: okc_debug.Log('1000: Leaving ',2);
2000: okc_debug.Reset_Indentation;
2001: END IF;
2002:
2003: EXCEPTION
2004: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2003: EXCEPTION
2004: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2005: NULL;
2006: IF (l_debug = 'Y') THEN
2007: okc_debug.Log('2000: Leaving ',2);
2008: okc_debug.Reset_Indentation;
2009: END IF;
2010:
2011: WHEN OTHERS THEN
2004: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2005: NULL;
2006: IF (l_debug = 'Y') THEN
2007: okc_debug.Log('2000: Leaving ',2);
2008: okc_debug.Reset_Indentation;
2009: END IF;
2010:
2011: WHEN OTHERS THEN
2012: OKC_API.set_message(p_app_name => g_app_name,
2016: p_token2 => g_sqlerrm_token,
2017: p_token2_value => sqlerrm);
2018: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2019: IF (l_debug = 'Y') THEN
2020: okc_debug.Log('3000: Leaving ',2);
2021: okc_debug.Reset_Indentation;
2022: END IF;
2023: END update_out_arg;
2024:
2017: p_token2_value => sqlerrm);
2018: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2019: IF (l_debug = 'Y') THEN
2020: okc_debug.Log('3000: Leaving ',2);
2021: okc_debug.Reset_Indentation;
2022: END IF;
2023: END update_out_arg;
2024:
2025: PROCEDURE delete_out_arg(p_api_version IN NUMBER,
2039:
2040: BEGIN
2041:
2042: IF (l_debug = 'Y') THEN
2043: okc_debug.Set_Indentation(l_proc);
2044: okc_debug.Log('10: Entering ',2);
2045: END IF;
2046:
2047: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2040: BEGIN
2041:
2042: IF (l_debug = 'Y') THEN
2043: okc_debug.Set_Indentation(l_proc);
2044: okc_debug.Log('10: Entering ',2);
2045: END IF;
2046:
2047: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2048: g_pkg_name,
2102:
2103: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2104:
2105: IF (l_debug = 'Y') THEN
2106: okc_debug.Log('1000: Leaving ',2);
2107: okc_debug.Reset_Indentation;
2108: END IF;
2109:
2110: EXCEPTION
2103: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2104:
2105: IF (l_debug = 'Y') THEN
2106: okc_debug.Log('1000: Leaving ',2);
2107: okc_debug.Reset_Indentation;
2108: END IF;
2109:
2110: EXCEPTION
2111: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2118: x_msg_data,
2119: '_PUB'
2120: );
2121: IF (l_debug = 'Y') THEN
2122: okc_debug.Log('2000: Leaving ',2);
2123: okc_debug.Reset_Indentation;
2124: END IF;
2125:
2126: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2119: '_PUB'
2120: );
2121: IF (l_debug = 'Y') THEN
2122: okc_debug.Log('2000: Leaving ',2);
2123: okc_debug.Reset_Indentation;
2124: END IF;
2125:
2126: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2127: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2133: x_msg_data,
2134: '_PUB'
2135: );
2136: IF (l_debug = 'Y') THEN
2137: okc_debug.Log('3000: Leaving ',2);
2138: okc_debug.Reset_Indentation;
2139: END IF;
2140:
2141: WHEN OTHERS THEN
2134: '_PUB'
2135: );
2136: IF (l_debug = 'Y') THEN
2137: okc_debug.Log('3000: Leaving ',2);
2138: okc_debug.Reset_Indentation;
2139: END IF;
2140:
2141: WHEN OTHERS THEN
2142: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2148: x_msg_data,
2149: '_PUB'
2150: );
2151: IF (l_debug = 'Y') THEN
2152: okc_debug.Log('4000: Leaving ',2);
2153: okc_debug.Reset_Indentation;
2154: END IF;
2155: END delete_out_arg;
2156:
2149: '_PUB'
2150: );
2151: IF (l_debug = 'Y') THEN
2152: okc_debug.Log('4000: Leaving ',2);
2153: okc_debug.Reset_Indentation;
2154: END IF;
2155: END delete_out_arg;
2156:
2157: PROCEDURE delete_out_arg(p_api_version IN NUMBER,
2169:
2170: BEGIN
2171:
2172: IF (l_debug = 'Y') THEN
2173: okc_debug.Set_Indentation(l_proc);
2174: okc_debug.Log('10: Entering ',2);
2175: END IF;
2176:
2177: --Initialize the return status
2170: BEGIN
2171:
2172: IF (l_debug = 'Y') THEN
2173: okc_debug.Set_Indentation(l_proc);
2174: okc_debug.Log('10: Entering ',2);
2175: END IF;
2176:
2177: --Initialize the return status
2178: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2200: END LOOP;
2201: END IF;
2202:
2203: IF (l_debug = 'Y') THEN
2204: okc_debug.Log('1000: Leaving ',2);
2205: okc_debug.Reset_Indentation;
2206: END IF;
2207:
2208: EXCEPTION
2201: END IF;
2202:
2203: IF (l_debug = 'Y') THEN
2204: okc_debug.Log('1000: Leaving ',2);
2205: okc_debug.Reset_Indentation;
2206: END IF;
2207:
2208: EXCEPTION
2209: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2208: EXCEPTION
2209: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2210: NULL;
2211: IF (l_debug = 'Y') THEN
2212: okc_debug.Log('2000: Leaving ',2);
2213: okc_debug.Reset_Indentation;
2214: END IF;
2215:
2216: WHEN OTHERS THEN
2209: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2210: NULL;
2211: IF (l_debug = 'Y') THEN
2212: okc_debug.Log('2000: Leaving ',2);
2213: okc_debug.Reset_Indentation;
2214: END IF;
2215:
2216: WHEN OTHERS THEN
2217: OKC_API.set_message(p_app_name => g_app_name,
2221: p_token2 => g_sqlerrm_token,
2222: p_token2_value => sqlerrm);
2223: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2224: IF (l_debug = 'Y') THEN
2225: okc_debug.Log('3000: Leaving ',2);
2226: okc_debug.Reset_Indentation;
2227: END IF;
2228: END delete_out_arg;
2229:
2222: p_token2_value => sqlerrm);
2223: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2224: IF (l_debug = 'Y') THEN
2225: okc_debug.Log('3000: Leaving ',2);
2226: okc_debug.Reset_Indentation;
2227: END IF;
2228: END delete_out_arg;
2229:
2230: PROCEDURE validate_out_arg(p_api_version IN NUMBER,
2244:
2245: BEGIN
2246:
2247: IF (l_debug = 'Y') THEN
2248: okc_debug.Set_Indentation(l_proc);
2249: okc_debug.Log('10: Entering ',2);
2250: END IF;
2251:
2252: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2245: BEGIN
2246:
2247: IF (l_debug = 'Y') THEN
2248: okc_debug.Set_Indentation(l_proc);
2249: okc_debug.Log('10: Entering ',2);
2250: END IF;
2251:
2252: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2253: g_pkg_name,
2308: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2309:
2310:
2311: IF (l_debug = 'Y') THEN
2312: okc_debug.Log('1000: Leaving ',2);
2313: okc_debug.Reset_Indentation;
2314: END IF;
2315:
2316: EXCEPTION
2309:
2310:
2311: IF (l_debug = 'Y') THEN
2312: okc_debug.Log('1000: Leaving ',2);
2313: okc_debug.Reset_Indentation;
2314: END IF;
2315:
2316: EXCEPTION
2317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2324: x_msg_data,
2325: '_PUB'
2326: );
2327: IF (l_debug = 'Y') THEN
2328: okc_debug.Log('2000: Leaving ',2);
2329: okc_debug.Reset_Indentation;
2330: END IF;
2331:
2332: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2325: '_PUB'
2326: );
2327: IF (l_debug = 'Y') THEN
2328: okc_debug.Log('2000: Leaving ',2);
2329: okc_debug.Reset_Indentation;
2330: END IF;
2331:
2332: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2333: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2339: x_msg_data,
2340: '_PUB'
2341: );
2342: IF (l_debug = 'Y') THEN
2343: okc_debug.Log('3000: Leaving ',2);
2344: okc_debug.Reset_Indentation;
2345: END IF;
2346:
2347: WHEN OTHERS THEN
2340: '_PUB'
2341: );
2342: IF (l_debug = 'Y') THEN
2343: okc_debug.Log('3000: Leaving ',2);
2344: okc_debug.Reset_Indentation;
2345: END IF;
2346:
2347: WHEN OTHERS THEN
2348: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2354: x_msg_data,
2355: '_PUB'
2356: );
2357: IF (l_debug = 'Y') THEN
2358: okc_debug.Log('4000: Leaving ',2);
2359: okc_debug.Reset_Indentation;
2360: END IF;
2361: END validate_out_arg;
2362:
2355: '_PUB'
2356: );
2357: IF (l_debug = 'Y') THEN
2358: okc_debug.Log('4000: Leaving ',2);
2359: okc_debug.Reset_Indentation;
2360: END IF;
2361: END validate_out_arg;
2362:
2363: PROCEDURE validate_out_arg(p_api_version IN NUMBER,
2375:
2376: BEGIN
2377:
2378: IF (l_debug = 'Y') THEN
2379: okc_debug.Set_Indentation(l_proc);
2380: okc_debug.Log('10: Entering ',2);
2381: END IF;
2382:
2383: --Initialize the return status
2376: BEGIN
2377:
2378: IF (l_debug = 'Y') THEN
2379: okc_debug.Set_Indentation(l_proc);
2380: okc_debug.Log('10: Entering ',2);
2381: END IF;
2382:
2383: --Initialize the return status
2384: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2406: END LOOP;
2407: END IF;
2408:
2409: IF (l_debug = 'Y') THEN
2410: okc_debug.Log('1000: Leaving ',2);
2411: okc_debug.Reset_Indentation;
2412: END IF;
2413:
2414: EXCEPTION
2407: END IF;
2408:
2409: IF (l_debug = 'Y') THEN
2410: okc_debug.Log('1000: Leaving ',2);
2411: okc_debug.Reset_Indentation;
2412: END IF;
2413:
2414: EXCEPTION
2415: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2414: EXCEPTION
2415: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2416: NULL;
2417: IF (l_debug = 'Y') THEN
2418: okc_debug.Log('2000: Leaving ',2);
2419: okc_debug.Reset_Indentation;
2420: END IF;
2421:
2422: WHEN OTHERS THEN
2415: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2416: NULL;
2417: IF (l_debug = 'Y') THEN
2418: okc_debug.Log('2000: Leaving ',2);
2419: okc_debug.Reset_Indentation;
2420: END IF;
2421:
2422: WHEN OTHERS THEN
2423: OKC_API.set_message(p_app_name => g_app_name,
2427: p_token2 => g_sqlerrm_token,
2428: p_token2_value => sqlerrm);
2429: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2430: IF (l_debug = 'Y') THEN
2431: okc_debug.Log('3000: Leaving ',2);
2432: okc_debug.Reset_Indentation;
2433: END IF;
2434: END validate_out_arg;
2435:
2428: p_token2_value => sqlerrm);
2429: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2430: IF (l_debug = 'Y') THEN
2431: okc_debug.Log('3000: Leaving ',2);
2432: okc_debug.Reset_Indentation;
2433: END IF;
2434: END validate_out_arg;
2435:
2436: END okc_outcome_pub;