27: p_olev_rec IN olev_rec_type) is
28: Begin
29:
30: IF (l_debug = 'Y') THEN
31: okc_debug.Set_Indentation('OKC_OLE_PVT');
32: okc_debug.log('100: Entered validate_select_yn', 2);
33: END IF;
34:
35: -- initialize return status
28: Begin
29:
30: IF (l_debug = 'Y') THEN
31: okc_debug.Set_Indentation('OKC_OLE_PVT');
32: okc_debug.log('100: Entered validate_select_yn', 2);
33: END IF;
34:
35: -- initialize return status
36: x_return_status := OKC_API.G_RET_STS_SUCCESS;
66: End If;
67: End If;
68:
69: IF (l_debug = 'Y') THEN
70: okc_debug.log('200: Leaving validate_select_yn', 2);
71: okc_debug.Reset_Indentation;
72: END IF;
73:
74: exception
67: End If;
68:
69: IF (l_debug = 'Y') THEN
70: okc_debug.log('200: Leaving validate_select_yn', 2);
71: okc_debug.Reset_Indentation;
72: END IF;
73:
74: exception
75: when G_EXCEPTION_HALT_VALIDATION then
74: exception
75: when G_EXCEPTION_HALT_VALIDATION then
76:
77: IF (l_debug = 'Y') THEN
78: okc_debug.log('300: Exiting validate_select_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
79: okc_debug.Reset_Indentation;
80: END IF;
81:
82: -- no processing necessary; validation can continue with next column
75: when G_EXCEPTION_HALT_VALIDATION then
76:
77: IF (l_debug = 'Y') THEN
78: okc_debug.log('300: Exiting validate_select_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
79: okc_debug.Reset_Indentation;
80: END IF;
81:
82: -- no processing necessary; validation can continue with next column
83: null;
84:
85: when OTHERS then
86:
87: IF (l_debug = 'Y') THEN
88: okc_debug.log('400: Exiting validate_select_yn:OTHERS Exception', 2);
89: okc_debug.Reset_Indentation;
90: END IF;
91:
92: -- store SQL error message on message stack
85: when OTHERS then
86:
87: IF (l_debug = 'Y') THEN
88: okc_debug.log('400: Exiting validate_select_yn:OTHERS Exception', 2);
89: okc_debug.Reset_Indentation;
90: END IF;
91:
92: -- store SQL error message on message stack
93: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
113: p_olev_rec IN olev_rec_type) is
114: Begin
115:
116: IF (l_debug = 'Y') THEN
117: okc_debug.Set_Indentation('OKC_OLE_PVT');
118: okc_debug.log('500: Entered validate_active_yn', 2);
119: END IF;
120:
121: -- initialize return status
114: Begin
115:
116: IF (l_debug = 'Y') THEN
117: okc_debug.Set_Indentation('OKC_OLE_PVT');
118: okc_debug.log('500: Entered validate_active_yn', 2);
119: END IF;
120:
121: -- initialize return status
122: x_return_status := OKC_API.G_RET_STS_SUCCESS;
152: End If;
153: End If;
154:
155: IF (l_debug = 'Y') THEN
156: okc_debug.log('600: Leaving validate_active_yn ', 2);
157: okc_debug.Reset_Indentation;
158: END IF;
159:
160: exception
153: End If;
154:
155: IF (l_debug = 'Y') THEN
156: okc_debug.log('600: Leaving validate_active_yn ', 2);
157: okc_debug.Reset_Indentation;
158: END IF;
159:
160: exception
161: when G_EXCEPTION_HALT_VALIDATION then
160: exception
161: when G_EXCEPTION_HALT_VALIDATION then
162:
163: IF (l_debug = 'Y') THEN
164: okc_debug.log('700: Exiting validate_active_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
165: okc_debug.Reset_Indentation;
166: END IF;
167:
168: -- no processing necessary; validation can continue with next column
161: when G_EXCEPTION_HALT_VALIDATION then
162:
163: IF (l_debug = 'Y') THEN
164: okc_debug.log('700: Exiting validate_active_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
165: okc_debug.Reset_Indentation;
166: END IF;
167:
168: -- no processing necessary; validation can continue with next column
169: null;
170:
171: when OTHERS then
172:
173: IF (l_debug = 'Y') THEN
174: okc_debug.log('800: Exiting validate_active_yn:OTHERS Exception', 2);
175: okc_debug.Reset_Indentation;
176: END IF;
177:
178: -- store SQL error message on message stack
171: when OTHERS then
172:
173: IF (l_debug = 'Y') THEN
174: okc_debug.log('800: Exiting validate_active_yn:OTHERS Exception', 2);
175: okc_debug.Reset_Indentation;
176: END IF;
177:
178: -- store SQL error message on message stack
179: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
199: p_olev_rec IN olev_rec_type) is
200: Begin
201:
202: IF (l_debug = 'Y') THEN
203: okc_debug.Set_Indentation('OKC_OLE_PVT');
204: okc_debug.log('900: Entered validate_process_flag', 2);
205: END IF;
206:
207: -- initialize return status
200: Begin
201:
202: IF (l_debug = 'Y') THEN
203: okc_debug.Set_Indentation('OKC_OLE_PVT');
204: okc_debug.log('900: Entered validate_process_flag', 2);
205: END IF;
206:
207: -- initialize return status
208: x_return_status := OKC_API.G_RET_STS_SUCCESS;
232: End If;
233: End If;
234:
235: IF (l_debug = 'Y') THEN
236: okc_debug.log('1000: Leaving validate_process_flag', 2);
237: okc_debug.Reset_Indentation;
238: END IF;
239:
240: exception
233: End If;
234:
235: IF (l_debug = 'Y') THEN
236: okc_debug.log('1000: Leaving validate_process_flag', 2);
237: okc_debug.Reset_Indentation;
238: END IF;
239:
240: exception
241: when G_EXCEPTION_HALT_VALIDATION then
240: exception
241: when G_EXCEPTION_HALT_VALIDATION then
242:
243: IF (l_debug = 'Y') THEN
244: okc_debug.log('1100: Exiting validate_process_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
245: okc_debug.Reset_Indentation;
246: END IF;
247:
248: -- no processing necessary; validation can continue with next column
241: when G_EXCEPTION_HALT_VALIDATION then
242:
243: IF (l_debug = 'Y') THEN
244: okc_debug.log('1100: Exiting validate_process_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
245: okc_debug.Reset_Indentation;
246: END IF;
247:
248: -- no processing necessary; validation can continue with next column
249: null;
250:
251: when OTHERS then
252:
253: IF (l_debug = 'Y') THEN
254: okc_debug.log('1200: Exiting validate_process_flag:OTHERS Exception', 2);
255: okc_debug.Reset_Indentation;
256: END IF;
257:
258: -- store SQL error message on message stack
251: when OTHERS then
252:
253: IF (l_debug = 'Y') THEN
254: okc_debug.log('1200: Exiting validate_process_flag:OTHERS Exception', 2);
255: okc_debug.Reset_Indentation;
256: END IF;
257:
258: -- store SQL error message on message stack
259: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
284: WHERE id = p_oie_id;
285: Begin
286:
287: IF (l_debug = 'Y') THEN
288: okc_debug.Set_Indentation('OKC_OLE_PVT');
289: okc_debug.log('1300: Entered validate_oie_id', 2);
290: END IF;
291:
292: -- initialize return status
285: Begin
286:
287: IF (l_debug = 'Y') THEN
288: okc_debug.Set_Indentation('OKC_OLE_PVT');
289: okc_debug.log('1300: Entered validate_oie_id', 2);
290: END IF;
291:
292: -- initialize return status
293: x_return_status := OKC_API.G_RET_STS_SUCCESS;
327: x_return_status := OKC_API.G_RET_STS_ERROR;
328: End If;
329:
330: IF (l_debug = 'Y') THEN
331: okc_debug.log('1400: Leaving validate_oie_id', 2);
332: okc_debug.Reset_Indentation;
333: END IF;
334:
335: exception
328: End If;
329:
330: IF (l_debug = 'Y') THEN
331: okc_debug.log('1400: Leaving validate_oie_id', 2);
332: okc_debug.Reset_Indentation;
333: END IF;
334:
335: exception
336: when G_EXCEPTION_HALT_VALIDATION then
335: exception
336: when G_EXCEPTION_HALT_VALIDATION then
337:
338: IF (l_debug = 'Y') THEN
339: okc_debug.log('1500: Exiting validate_oie_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
340: okc_debug.Reset_Indentation;
341: END IF;
342:
343: -- no processing necessary; validation can continue with next column
336: when G_EXCEPTION_HALT_VALIDATION then
337:
338: IF (l_debug = 'Y') THEN
339: okc_debug.log('1500: Exiting validate_oie_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
340: okc_debug.Reset_Indentation;
341: END IF;
342:
343: -- no processing necessary; validation can continue with next column
344: null;
345:
346: when OTHERS then
347:
348: IF (l_debug = 'Y') THEN
349: okc_debug.log('1600: Exiting validate_oie_id:OTHERS Exception', 2);
350: okc_debug.Reset_Indentation;
351: END IF;
352:
353: -- store SQL error message on message stack
346: when OTHERS then
347:
348: IF (l_debug = 'Y') THEN
349: okc_debug.log('1600: Exiting validate_oie_id:OTHERS Exception', 2);
350: okc_debug.Reset_Indentation;
351: END IF;
352:
353: -- store SQL error message on message stack
354: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
381:
382: Begin
383:
384: IF (l_debug = 'Y') THEN
385: okc_debug.Set_Indentation('OKC_OLE_PVT');
386: okc_debug.log('1700: Entered validate_parent_ole_id', 2);
387: END IF;
388:
389: -- initialize return status
382: Begin
383:
384: IF (l_debug = 'Y') THEN
385: okc_debug.Set_Indentation('OKC_OLE_PVT');
386: okc_debug.log('1700: Entered validate_parent_ole_id', 2);
387: END IF;
388:
389: -- initialize return status
390: x_return_status := OKC_API.G_RET_STS_SUCCESS;
411: End If;
412: End If;
413:
414: IF (l_debug = 'Y') THEN
415: okc_debug.log('1800: Leaving validate_parent_ole_id', 2);
416: okc_debug.Reset_Indentation;
417: END IF;
418:
419: exception
412: End If;
413:
414: IF (l_debug = 'Y') THEN
415: okc_debug.log('1800: Leaving validate_parent_ole_id', 2);
416: okc_debug.Reset_Indentation;
417: END IF;
418:
419: exception
420: when OTHERS then
419: exception
420: when OTHERS then
421:
422: IF (l_debug = 'Y') THEN
423: okc_debug.log('1900: Exiting validate_parent_ole_id:OTHERS Exception', 2);
424: okc_debug.Reset_Indentation;
425: END IF;
426:
427: -- store SQL error message on message stack
420: when OTHERS then
421:
422: IF (l_debug = 'Y') THEN
423: okc_debug.log('1900: Exiting validate_parent_ole_id:OTHERS Exception', 2);
424: okc_debug.Reset_Indentation;
425: END IF;
426:
427: -- store SQL error message on message stack
428: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
458: WHERE id = p_subject_chr_id;
459: Begin
460:
461: IF (l_debug = 'Y') THEN
462: okc_debug.Set_Indentation('OKC_OLE_PVT');
463: okc_debug.log('2000: Entered validate_subject_chr_id', 2);
464: END IF;
465:
466: -- initialize return status
459: Begin
460:
461: IF (l_debug = 'Y') THEN
462: okc_debug.Set_Indentation('OKC_OLE_PVT');
463: okc_debug.log('2000: Entered validate_subject_chr_id', 2);
464: END IF;
465:
466: -- initialize return status
467: x_return_status := OKC_API.G_RET_STS_SUCCESS;
501: x_return_status := OKC_API.G_RET_STS_ERROR;
502: End If;
503:
504: IF (l_debug = 'Y') THEN
505: okc_debug.log('2100: Leaving validate_subject_chr_id', 2);
506: okc_debug.Reset_Indentation;
507: END IF;
508:
509: exception
502: End If;
503:
504: IF (l_debug = 'Y') THEN
505: okc_debug.log('2100: Leaving validate_subject_chr_id', 2);
506: okc_debug.Reset_Indentation;
507: END IF;
508:
509: exception
510: when G_EXCEPTION_HALT_VALIDATION then
509: exception
510: when G_EXCEPTION_HALT_VALIDATION then
511:
512: IF (l_debug = 'Y') THEN
513: okc_debug.log('2200: Exiting validate_subject_chr_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
514: okc_debug.Reset_Indentation;
515: END IF;
516:
517: -- no processing necessary; validation can continue with next column
510: when G_EXCEPTION_HALT_VALIDATION then
511:
512: IF (l_debug = 'Y') THEN
513: okc_debug.log('2200: Exiting validate_subject_chr_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
514: okc_debug.Reset_Indentation;
515: END IF;
516:
517: -- no processing necessary; validation can continue with next column
518: null;
519:
520: when OTHERS then
521:
522: IF (l_debug = 'Y') THEN
523: okc_debug.log('2300: Exiting validate_subject_chr_id:OTHERS Exception', 2);
524: okc_debug.Reset_Indentation;
525: END IF;
526:
527: -- store SQL error message on message stack
520: when OTHERS then
521:
522: IF (l_debug = 'Y') THEN
523: okc_debug.log('2300: Exiting validate_subject_chr_id:OTHERS Exception', 2);
524: okc_debug.Reset_Indentation;
525: END IF;
526:
527: -- store SQL error message on message stack
528: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
555:
556: Begin
557:
558: IF (l_debug = 'Y') THEN
559: okc_debug.Set_Indentation('OKC_OLE_PVT');
560: okc_debug.log('2400: Entered validate_object_chr_id', 2);
561: END IF;
562:
563: -- initialize return status
556: Begin
557:
558: IF (l_debug = 'Y') THEN
559: okc_debug.Set_Indentation('OKC_OLE_PVT');
560: okc_debug.log('2400: Entered validate_object_chr_id', 2);
561: END IF;
562:
563: -- initialize return status
564: x_return_status := OKC_API.G_RET_STS_SUCCESS;
585: End If;
586: End If;
587:
588: IF (l_debug = 'Y') THEN
589: okc_debug.log('2500: Leaving validate_object_chr_id', 2);
590: okc_debug.Reset_Indentation;
591: END IF;
592:
593: exception
586: End If;
587:
588: IF (l_debug = 'Y') THEN
589: okc_debug.log('2500: Leaving validate_object_chr_id', 2);
590: okc_debug.Reset_Indentation;
591: END IF;
592:
593: exception
594: when OTHERS then
593: exception
594: when OTHERS then
595:
596: IF (l_debug = 'Y') THEN
597: okc_debug.log('2600: Exiting validate_object_chr_id:OTHERS Exception', 2);
598: okc_debug.Reset_Indentation;
599: END IF;
600:
601: -- store SQL error message on message stack
594: when OTHERS then
595:
596: IF (l_debug = 'Y') THEN
597: okc_debug.log('2600: Exiting validate_object_chr_id:OTHERS Exception', 2);
598: okc_debug.Reset_Indentation;
599: END IF;
600:
601: -- store SQL error message on message stack
602: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
634:
635: Begin
636:
637: IF (l_debug = 'Y') THEN
638: okc_debug.Set_Indentation('OKC_OLE_PVT');
639: okc_debug.log('2700: Entered validate_object_cle_id', 2);
640: END IF;
641:
642: -- initialize return status
635: Begin
636:
637: IF (l_debug = 'Y') THEN
638: okc_debug.Set_Indentation('OKC_OLE_PVT');
639: okc_debug.log('2700: Entered validate_object_cle_id', 2);
640: END IF;
641:
642: -- initialize return status
643: x_return_status := OKC_API.G_RET_STS_SUCCESS;
664: End If;
665: End If;
666:
667: IF (l_debug = 'Y') THEN
668: okc_debug.log('2800: Leaving validate_object_cle_id', 2);
669: okc_debug.Reset_Indentation;
670: END IF;
671:
672: exception
665: End If;
666:
667: IF (l_debug = 'Y') THEN
668: okc_debug.log('2800: Leaving validate_object_cle_id', 2);
669: okc_debug.Reset_Indentation;
670: END IF;
671:
672: exception
673: when OTHERS then
672: exception
673: when OTHERS then
674:
675: IF (l_debug = 'Y') THEN
676: okc_debug.log('2900: Exiting validate_object_cle_id:OTHERS Exception', 2);
677: okc_debug.Reset_Indentation;
678: END IF;
679:
680: -- store SQL error message on message stack
673: when OTHERS then
674:
675: IF (l_debug = 'Y') THEN
676: okc_debug.log('2900: Exiting validate_object_cle_id:OTHERS Exception', 2);
677: okc_debug.Reset_Indentation;
678: END IF;
679:
680: -- store SQL error message on message stack
681: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
713:
714: Begin
715:
716: IF (l_debug = 'Y') THEN
717: okc_debug.Set_Indentation('OKC_OLE_PVT');
718: okc_debug.log('3000: Entered validate_subject_cle_id', 2);
719: END IF;
720:
721: -- initialize return status
714: Begin
715:
716: IF (l_debug = 'Y') THEN
717: okc_debug.Set_Indentation('OKC_OLE_PVT');
718: okc_debug.log('3000: Entered validate_subject_cle_id', 2);
719: END IF;
720:
721: -- initialize return status
722: x_return_status := OKC_API.G_RET_STS_SUCCESS;
743: End If;
744: End If;
745:
746: IF (l_debug = 'Y') THEN
747: okc_debug.log('3100: Leaving validate_subject_cle_id', 2);
748: okc_debug.Reset_Indentation;
749: END IF;
750:
751: exception
744: End If;
745:
746: IF (l_debug = 'Y') THEN
747: okc_debug.log('3100: Leaving validate_subject_cle_id', 2);
748: okc_debug.Reset_Indentation;
749: END IF;
750:
751: exception
752: when OTHERS then
751: exception
752: when OTHERS then
753:
754: IF (l_debug = 'Y') THEN
755: okc_debug.log('3200: Exiting validate_subject_cle_id:OTHERS Exception', 2);
756: okc_debug.Reset_Indentation;
757: END IF;
758:
759: -- store SQL error message on message stack
752: when OTHERS then
753:
754: IF (l_debug = 'Y') THEN
755: okc_debug.log('3200: Exiting validate_subject_cle_id:OTHERS Exception', 2);
756: okc_debug.Reset_Indentation;
757: END IF;
758:
759: -- store SQL error message on message stack
760: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
777: p_olev_rec IN olev_rec_type) is
778: Begin
779:
780: IF (l_debug = 'Y') THEN
781: okc_debug.Set_Indentation('OKC_OLE_PVT');
782: okc_debug.log('3300: Entered validate_message_code', 2);
783: END IF;
784:
785: -- initialize return message
778: Begin
779:
780: IF (l_debug = 'Y') THEN
781: okc_debug.Set_Indentation('OKC_OLE_PVT');
782: okc_debug.log('3300: Entered validate_message_code', 2);
783: END IF;
784:
785: -- initialize return message
786: x_return_status := OKC_API.G_RET_STS_SUCCESS;
806: End If;
807: End If;
808:
809: IF (l_debug = 'Y') THEN
810: okc_debug.log('3400: Leaving validate_message_code', 2);
811: okc_debug.Reset_Indentation;
812: END IF;
813:
814: EXCEPTION
807: End If;
808:
809: IF (l_debug = 'Y') THEN
810: okc_debug.log('3400: Leaving validate_message_code', 2);
811: okc_debug.Reset_Indentation;
812: END IF;
813:
814: EXCEPTION
815: when OTHERS then
814: EXCEPTION
815: when OTHERS then
816:
817: IF (l_debug = 'Y') THEN
818: okc_debug.log('3500: Exiting validate_message_code:OTHERS Exception', 2);
819: okc_debug.Reset_Indentation;
820: END IF;
821:
822: -- store SQL error message on message stack
815: when OTHERS then
816:
817: IF (l_debug = 'Y') THEN
818: okc_debug.log('3500: Exiting validate_message_code:OTHERS Exception', 2);
819: okc_debug.Reset_Indentation;
820: END IF;
821:
822: -- store SQL error message on message stack
823: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
919: l_ole_rec ole_rec_type;
920: BEGIN
921:
922: IF (l_debug = 'Y') THEN
923: okc_debug.Set_Indentation('OKC_OLE_PVT');
924: okc_debug.log('4000: Entered get_rec', 2);
925: END IF;
926:
927: x_no_data_found := TRUE;
920: BEGIN
921:
922: IF (l_debug = 'Y') THEN
923: okc_debug.Set_Indentation('OKC_OLE_PVT');
924: okc_debug.log('4000: Entered get_rec', 2);
925: END IF;
926:
927: x_no_data_found := TRUE;
928: -- Get current database values
952: x_no_data_found := okc_operation_lines_pk_csr%NOTFOUND;
953: CLOSE okc_operation_lines_pk_csr;
954:
955: IF (l_debug = 'Y') THEN
956: okc_debug.log('4050: Leaving Fn Get_Rec ', 2);
957: okc_debug.Reset_Indentation;
958: END IF;
959:
960: RETURN(l_ole_rec);
953: CLOSE okc_operation_lines_pk_csr;
954:
955: IF (l_debug = 'Y') THEN
956: okc_debug.log('4050: Leaving Fn Get_Rec ', 2);
957: okc_debug.Reset_Indentation;
958: END IF;
959:
960: RETURN(l_ole_rec);
961:
1006: l_olev_rec olev_rec_type;
1007: BEGIN
1008:
1009: IF (l_debug = 'Y') THEN
1010: okc_debug.Set_Indentation('OKC_OLE_PVT');
1011: okc_debug.log('4200: Entered get_rec', 2);
1012: END IF;
1013:
1014: x_no_data_found := TRUE;
1007: BEGIN
1008:
1009: IF (l_debug = 'Y') THEN
1010: okc_debug.Set_Indentation('OKC_OLE_PVT');
1011: okc_debug.log('4200: Entered get_rec', 2);
1012: END IF;
1013:
1014: x_no_data_found := TRUE;
1015: -- Get current database values
1039: x_no_data_found := okc_operation_lines_v_pk_csr%NOTFOUND;
1040: CLOSE okc_operation_lines_v_pk_csr;
1041:
1042: IF (l_debug = 'Y') THEN
1043: okc_debug.log('4250: Leaving Fn Get_Rec ', 2);
1044: okc_debug.Reset_Indentation;
1045: END IF;
1046:
1047: RETURN(l_olev_rec);
1040: CLOSE okc_operation_lines_v_pk_csr;
1041:
1042: IF (l_debug = 'Y') THEN
1043: okc_debug.log('4250: Leaving Fn Get_Rec ', 2);
1044: okc_debug.Reset_Indentation;
1045: END IF;
1046:
1047: RETURN(l_olev_rec);
1048:
1067: l_olev_rec olev_rec_type := p_olev_rec;
1068: BEGIN
1069:
1070: IF (l_debug = 'Y') THEN
1071: okc_debug.Set_Indentation('OKC_OLE_PVT');
1072: okc_debug.log('4400: Entered null_out_defaults', 2);
1073: END IF;
1074:
1075: IF (l_olev_rec.select_yn = OKC_API.G_MISS_CHAR) THEN
1068: BEGIN
1069:
1070: IF (l_debug = 'Y') THEN
1071: okc_debug.Set_Indentation('OKC_OLE_PVT');
1072: okc_debug.log('4400: Entered null_out_defaults', 2);
1073: END IF;
1074:
1075: IF (l_olev_rec.select_yn = OKC_API.G_MISS_CHAR) THEN
1076: l_olev_rec.select_yn := NULL;
1133: l_olev_rec.message_code := NULL;
1134: END IF;
1135:
1136: IF (l_debug = 'Y') THEN
1137: okc_debug.log('4450: Leaving null_out_defaults ', 2);
1138: okc_debug.Reset_Indentation;
1139: END IF;
1140:
1141: RETURN(l_olev_rec);
1134: END IF;
1135:
1136: IF (l_debug = 'Y') THEN
1137: okc_debug.log('4450: Leaving null_out_defaults ', 2);
1138: okc_debug.Reset_Indentation;
1139: END IF;
1140:
1141: RETURN(l_olev_rec);
1142: END null_out_defaults;
1153: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1154: BEGIN
1155:
1156: IF (l_debug = 'Y') THEN
1157: okc_debug.Set_Indentation('OKC_OLE_PVT');
1158: okc_debug.log('4500: Entered Validate_Attributes', 2);
1159: END IF;
1160:
1161:
1154: BEGIN
1155:
1156: IF (l_debug = 'Y') THEN
1157: okc_debug.Set_Indentation('OKC_OLE_PVT');
1158: okc_debug.log('4500: Entered Validate_Attributes', 2);
1159: END IF;
1160:
1161:
1162: validate_select_yn(x_return_status => l_return_status,
1259: End If;
1260: End If;
1261:
1262: IF (l_debug = 'Y') THEN
1263: okc_debug.log('4550: Leaving Validate_Attributes ', 2);
1264: okc_debug.Reset_Indentation;
1265: END IF;
1266:
1267: RETURN(x_return_status);
1260: End If;
1261:
1262: IF (l_debug = 'Y') THEN
1263: okc_debug.log('4550: Leaving Validate_Attributes ', 2);
1264: okc_debug.Reset_Indentation;
1265: END IF;
1266:
1267: RETURN(x_return_status);
1268:
1368: l_ole_rec ole_rec_type;
1369: BEGIN
1370:
1371: IF (l_debug = 'Y') THEN
1372: okc_debug.Set_Indentation('OKC_OLE_PVT');
1373: okc_debug.log('4900: Entered validate_row', 2);
1374: END IF;
1375:
1376: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1369: BEGIN
1370:
1371: IF (l_debug = 'Y') THEN
1372: okc_debug.Set_Indentation('OKC_OLE_PVT');
1373: okc_debug.log('4900: Entered validate_row', 2);
1374: END IF;
1375:
1376: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1377: G_PKG_NAME,
1401: END IF;
1402: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1403:
1404: IF (l_debug = 'Y') THEN
1405: okc_debug.log('5000: Leaving validate_row', 2);
1406: okc_debug.Reset_Indentation;
1407: END IF;
1408:
1409: EXCEPTION
1402: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1403:
1404: IF (l_debug = 'Y') THEN
1405: okc_debug.log('5000: Leaving validate_row', 2);
1406: okc_debug.Reset_Indentation;
1407: END IF;
1408:
1409: EXCEPTION
1410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1409: EXCEPTION
1410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1411:
1412: IF (l_debug = 'Y') THEN
1413: okc_debug.log('5100: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1414: okc_debug.Reset_Indentation;
1415: END IF;
1416:
1417: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1410: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1411:
1412: IF (l_debug = 'Y') THEN
1413: okc_debug.log('5100: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1414: okc_debug.Reset_Indentation;
1415: END IF;
1416:
1417: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1418: (
1425: );
1426: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1427:
1428: IF (l_debug = 'Y') THEN
1429: okc_debug.log('5200: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1430: okc_debug.Reset_Indentation;
1431: END IF;
1432:
1433: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1426: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1427:
1428: IF (l_debug = 'Y') THEN
1429: okc_debug.log('5200: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1430: okc_debug.Reset_Indentation;
1431: END IF;
1432:
1433: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1434: (
1441: );
1442: WHEN OTHERS THEN
1443:
1444: IF (l_debug = 'Y') THEN
1445: okc_debug.log('5300: Exiting validate_row:OTHERS Exception', 2);
1446: okc_debug.Reset_Indentation;
1447: END IF;
1448:
1449: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1442: WHEN OTHERS THEN
1443:
1444: IF (l_debug = 'Y') THEN
1445: okc_debug.log('5300: Exiting validate_row:OTHERS Exception', 2);
1446: okc_debug.Reset_Indentation;
1447: END IF;
1448:
1449: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1450: (
1475: i NUMBER := 0;
1476: BEGIN
1477:
1478: IF (l_debug = 'Y') THEN
1479: okc_debug.Set_Indentation('OKC_OLE_PVT');
1480: okc_debug.log('5400: Entered validate_row', 2);
1481: END IF;
1482:
1483: OKC_API.init_msg_list(p_init_msg_list);
1476: BEGIN
1477:
1478: IF (l_debug = 'Y') THEN
1479: okc_debug.Set_Indentation('OKC_OLE_PVT');
1480: okc_debug.log('5400: Entered validate_row', 2);
1481: END IF;
1482:
1483: OKC_API.init_msg_list(p_init_msg_list);
1484: -- Make sure PL/SQL table has records in it before passing
1510: EXCEPTION
1511: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1512:
1513: IF (l_debug = 'Y') THEN
1514: okc_debug.log('5600: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1515: okc_debug.Reset_Indentation;
1516: END IF;
1517:
1518: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1511: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1512:
1513: IF (l_debug = 'Y') THEN
1514: okc_debug.log('5600: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1515: okc_debug.Reset_Indentation;
1516: END IF;
1517:
1518: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1519: (
1526: );
1527: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1528:
1529: IF (l_debug = 'Y') THEN
1530: okc_debug.log('5700: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1531: okc_debug.Reset_Indentation;
1532: END IF;
1533:
1534: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1527: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1528:
1529: IF (l_debug = 'Y') THEN
1530: okc_debug.log('5700: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1531: okc_debug.Reset_Indentation;
1532: END IF;
1533:
1534: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1535: (
1542: );
1543: WHEN OTHERS THEN
1544:
1545: IF (l_debug = 'Y') THEN
1546: okc_debug.log('5800: Exiting validate_row:OTHERS Exception', 2);
1547: okc_debug.Reset_Indentation;
1548: END IF;
1549:
1550: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1543: WHEN OTHERS THEN
1544:
1545: IF (l_debug = 'Y') THEN
1546: okc_debug.log('5800: Exiting validate_row:OTHERS Exception', 2);
1547: okc_debug.Reset_Indentation;
1548: END IF;
1549:
1550: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1551: (
1556: x_msg_data,
1557: '_PVT'
1558: );
1559: IF (l_debug = 'Y') THEN
1560: okc_debug.log('5650: Leaving validate_row', 2);
1561: okc_debug.Reset_Indentation;
1562: END IF;
1563:
1564: END validate_row;
1557: '_PVT'
1558: );
1559: IF (l_debug = 'Y') THEN
1560: okc_debug.log('5650: Leaving validate_row', 2);
1561: okc_debug.Reset_Indentation;
1562: END IF;
1563:
1564: END validate_row;
1565:
1598: END Set_Attributes;
1599: BEGIN
1600:
1601: IF (l_debug = 'Y') THEN
1602: okc_debug.Set_Indentation('OKC_OLE_PVT');
1603: okc_debug.log('6000: Entered insert_row', 2);
1604: END IF;
1605:
1606: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1599: BEGIN
1600:
1601: IF (l_debug = 'Y') THEN
1602: okc_debug.Set_Indentation('OKC_OLE_PVT');
1603: okc_debug.log('6000: Entered insert_row', 2);
1604: END IF;
1605:
1606: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1607: p_init_msg_list,
1670: x_ole_rec := l_ole_rec;
1671: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1672:
1673: IF (l_debug = 'Y') THEN
1674: okc_debug.log('6100: Leaving insert_row', 2);
1675: okc_debug.Reset_Indentation;
1676: END IF;
1677:
1678: EXCEPTION
1671: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1672:
1673: IF (l_debug = 'Y') THEN
1674: okc_debug.log('6100: Leaving insert_row', 2);
1675: okc_debug.Reset_Indentation;
1676: END IF;
1677:
1678: EXCEPTION
1679: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1678: EXCEPTION
1679: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1680:
1681: IF (l_debug = 'Y') THEN
1682: okc_debug.log('6200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1683: okc_debug.Reset_Indentation;
1684: END IF;
1685:
1686: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1679: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1680:
1681: IF (l_debug = 'Y') THEN
1682: okc_debug.log('6200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1683: okc_debug.Reset_Indentation;
1684: END IF;
1685:
1686: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1687: (
1694: );
1695: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1696:
1697: IF (l_debug = 'Y') THEN
1698: okc_debug.log('6300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1699: okc_debug.Reset_Indentation;
1700: END IF;
1701:
1702: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1695: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1696:
1697: IF (l_debug = 'Y') THEN
1698: okc_debug.log('6300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1699: okc_debug.Reset_Indentation;
1700: END IF;
1701:
1702: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1703: (
1710: );
1711: WHEN OTHERS THEN
1712:
1713: IF (l_debug = 'Y') THEN
1714: okc_debug.log('6400: Exiting insert_row:OTHERS Exception', 2);
1715: okc_debug.Reset_Indentation;
1716: END IF;
1717:
1718: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1711: WHEN OTHERS THEN
1712:
1713: IF (l_debug = 'Y') THEN
1714: okc_debug.log('6400: Exiting insert_row:OTHERS Exception', 2);
1715: okc_debug.Reset_Indentation;
1716: END IF;
1717:
1718: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1719: (
1782: END Set_Attributes;
1783: BEGIN
1784:
1785: IF (l_debug = 'Y') THEN
1786: okc_debug.Set_Indentation('OKC_OLE_PVT');
1787: okc_debug.log('6700: Entered insert_row', 2);
1788: END IF;
1789:
1790: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1783: BEGIN
1784:
1785: IF (l_debug = 'Y') THEN
1786: okc_debug.Set_Indentation('OKC_OLE_PVT');
1787: okc_debug.log('6700: Entered insert_row', 2);
1788: END IF;
1789:
1790: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1791: G_PKG_NAME,
1852: x_olev_rec := l_def_olev_rec;
1853: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1854:
1855: IF (l_debug = 'Y') THEN
1856: okc_debug.log('6800: Leaving insert_row', 2);
1857: okc_debug.Reset_Indentation;
1858: END IF;
1859:
1860: EXCEPTION
1853: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1854:
1855: IF (l_debug = 'Y') THEN
1856: okc_debug.log('6800: Leaving insert_row', 2);
1857: okc_debug.Reset_Indentation;
1858: END IF;
1859:
1860: EXCEPTION
1861: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1860: EXCEPTION
1861: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1862:
1863: IF (l_debug = 'Y') THEN
1864: okc_debug.log('6900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1865: okc_debug.Reset_Indentation;
1866: END IF;
1867:
1868: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1861: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1862:
1863: IF (l_debug = 'Y') THEN
1864: okc_debug.log('6900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1865: okc_debug.Reset_Indentation;
1866: END IF;
1867:
1868: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1869: (
1876: );
1877: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1878:
1879: IF (l_debug = 'Y') THEN
1880: okc_debug.log('7000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1881: okc_debug.Reset_Indentation;
1882: END IF;
1883:
1884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1877: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1878:
1879: IF (l_debug = 'Y') THEN
1880: okc_debug.log('7000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1881: okc_debug.Reset_Indentation;
1882: END IF;
1883:
1884: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1885: (
1892: );
1893: WHEN OTHERS THEN
1894:
1895: IF (l_debug = 'Y') THEN
1896: okc_debug.log('7100: Exiting insert_row:OTHERS Exception', 2);
1897: okc_debug.Reset_Indentation;
1898: END IF;
1899:
1900: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1893: WHEN OTHERS THEN
1894:
1895: IF (l_debug = 'Y') THEN
1896: okc_debug.log('7100: Exiting insert_row:OTHERS Exception', 2);
1897: okc_debug.Reset_Indentation;
1898: END IF;
1899:
1900: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1901: (
1927: i NUMBER := 0;
1928: BEGIN
1929:
1930: IF (l_debug = 'Y') THEN
1931: okc_debug.Set_Indentation('OKC_OLE_PVT');
1932: okc_debug.log('7200: Entered insert_row', 2);
1933: END IF;
1934:
1935: OKC_API.init_msg_list(p_init_msg_list);
1928: BEGIN
1929:
1930: IF (l_debug = 'Y') THEN
1931: okc_debug.Set_Indentation('OKC_OLE_PVT');
1932: okc_debug.log('7200: Entered insert_row', 2);
1933: END IF;
1934:
1935: OKC_API.init_msg_list(p_init_msg_list);
1936: -- Make sure PL/SQL table has records in it before passing
1960: x_return_status := l_overall_status;
1961: END IF;
1962:
1963: IF (l_debug = 'Y') THEN
1964: okc_debug.log('7300: Leaving insert_row', 2);
1965: okc_debug.Reset_Indentation;
1966: END IF;
1967:
1968: EXCEPTION
1961: END IF;
1962:
1963: IF (l_debug = 'Y') THEN
1964: okc_debug.log('7300: Leaving insert_row', 2);
1965: okc_debug.Reset_Indentation;
1966: END IF;
1967:
1968: EXCEPTION
1969: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1968: EXCEPTION
1969: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1970:
1971: IF (l_debug = 'Y') THEN
1972: okc_debug.log('7400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1973: okc_debug.Reset_Indentation;
1974: END IF;
1975:
1976: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1969: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1970:
1971: IF (l_debug = 'Y') THEN
1972: okc_debug.log('7400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1973: okc_debug.Reset_Indentation;
1974: END IF;
1975:
1976: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1977: (
1984: );
1985: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1986:
1987: IF (l_debug = 'Y') THEN
1988: okc_debug.log('7500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1989: okc_debug.Reset_Indentation;
1990: END IF;
1991:
1992: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1985: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1986:
1987: IF (l_debug = 'Y') THEN
1988: okc_debug.log('7500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1989: okc_debug.Reset_Indentation;
1990: END IF;
1991:
1992: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1993: (
2000: );
2001: WHEN OTHERS THEN
2002:
2003: IF (l_debug = 'Y') THEN
2004: okc_debug.log('7600: Exiting insert_row:OTHERS Exception', 2);
2005: okc_debug.Reset_Indentation;
2006: END IF;
2007:
2008: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2001: WHEN OTHERS THEN
2002:
2003: IF (l_debug = 'Y') THEN
2004: okc_debug.log('7600: Exiting insert_row:OTHERS Exception', 2);
2005: okc_debug.Reset_Indentation;
2006: END IF;
2007:
2008: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2009: (
2052: lc_row_notfound BOOLEAN := FALSE;
2053: BEGIN
2054:
2055: IF (l_debug = 'Y') THEN
2056: okc_debug.Set_Indentation('OKC_OLE_PVT');
2057: okc_debug.log('7700: Entered lock_row', 2);
2058: END IF;
2059:
2060: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2053: BEGIN
2054:
2055: IF (l_debug = 'Y') THEN
2056: okc_debug.Set_Indentation('OKC_OLE_PVT');
2057: okc_debug.log('7700: Entered lock_row', 2);
2058: END IF;
2059:
2060: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2061: p_init_msg_list,
2071:
2072: BEGIN
2073:
2074: IF (l_debug = 'Y') THEN
2075: okc_debug.Set_Indentation('OKC_OLE_PVT');
2076: okc_debug.log('7800: Entered lock_row', 2);
2077: END IF;
2078:
2079: OPEN lock_csr(p_ole_rec);
2072: BEGIN
2073:
2074: IF (l_debug = 'Y') THEN
2075: okc_debug.Set_Indentation('OKC_OLE_PVT');
2076: okc_debug.log('7800: Entered lock_row', 2);
2077: END IF;
2078:
2079: OPEN lock_csr(p_ole_rec);
2080: FETCH lock_csr INTO l_object_version_number;
2081: l_row_notfound := lock_csr%NOTFOUND;
2082: CLOSE lock_csr;
2083:
2084: IF (l_debug = 'Y') THEN
2085: okc_debug.log('7900: Leaving lock_row', 2);
2086: okc_debug.Reset_Indentation;
2087: END IF;
2088:
2089: EXCEPTION
2082: CLOSE lock_csr;
2083:
2084: IF (l_debug = 'Y') THEN
2085: okc_debug.log('7900: Leaving lock_row', 2);
2086: okc_debug.Reset_Indentation;
2087: END IF;
2088:
2089: EXCEPTION
2090: WHEN E_Resource_Busy THEN
2089: EXCEPTION
2090: WHEN E_Resource_Busy THEN
2091:
2092: IF (l_debug = 'Y') THEN
2093: okc_debug.log('8000: Exiting lock_row:E_Resource_Busy Exception', 2);
2094: okc_debug.Reset_Indentation;
2095: END IF;
2096:
2097: IF (lock_csr%ISOPEN) THEN
2090: WHEN E_Resource_Busy THEN
2091:
2092: IF (l_debug = 'Y') THEN
2093: okc_debug.log('8000: Exiting lock_row:E_Resource_Busy Exception', 2);
2094: okc_debug.Reset_Indentation;
2095: END IF;
2096:
2097: IF (lock_csr%ISOPEN) THEN
2098: CLOSE lock_csr;
2124: END IF;
2125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2126:
2127: IF (l_debug = 'Y') THEN
2128: okc_debug.log('8100: Leaving lock_row', 2);
2129: okc_debug.Reset_Indentation;
2130: END IF;
2131:
2132: EXCEPTION
2125: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2126:
2127: IF (l_debug = 'Y') THEN
2128: okc_debug.log('8100: Leaving lock_row', 2);
2129: okc_debug.Reset_Indentation;
2130: END IF;
2131:
2132: EXCEPTION
2133: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2132: EXCEPTION
2133: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2134:
2135: IF (l_debug = 'Y') THEN
2136: okc_debug.log('8200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2137: okc_debug.Reset_Indentation;
2138: END IF;
2139:
2140: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2133: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2134:
2135: IF (l_debug = 'Y') THEN
2136: okc_debug.log('8200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2137: okc_debug.Reset_Indentation;
2138: END IF;
2139:
2140: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2141: (
2148: );
2149: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2150:
2151: IF (l_debug = 'Y') THEN
2152: okc_debug.log('8300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2153: okc_debug.Reset_Indentation;
2154: END IF;
2155:
2156: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2149: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2150:
2151: IF (l_debug = 'Y') THEN
2152: okc_debug.log('8300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2153: okc_debug.Reset_Indentation;
2154: END IF;
2155:
2156: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2157: (
2164: );
2165: WHEN OTHERS THEN
2166:
2167: IF (l_debug = 'Y') THEN
2168: okc_debug.log('8400: Exiting lock_row:OTHERS Exception', 2);
2169: okc_debug.Reset_Indentation;
2170: END IF;
2171:
2172: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2165: WHEN OTHERS THEN
2166:
2167: IF (l_debug = 'Y') THEN
2168: okc_debug.log('8400: Exiting lock_row:OTHERS Exception', 2);
2169: okc_debug.Reset_Indentation;
2170: END IF;
2171:
2172: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2173: (
2197: l_ole_rec ole_rec_type;
2198: BEGIN
2199:
2200: IF (l_debug = 'Y') THEN
2201: okc_debug.Set_Indentation('OKC_OLE_PVT');
2202: okc_debug.log('8500: Entered lock_row', 2);
2203: END IF;
2204:
2205: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2198: BEGIN
2199:
2200: IF (l_debug = 'Y') THEN
2201: okc_debug.Set_Indentation('OKC_OLE_PVT');
2202: okc_debug.log('8500: Entered lock_row', 2);
2203: END IF;
2204:
2205: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2206: G_PKG_NAME,
2235: END IF;
2236: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2237:
2238: IF (l_debug = 'Y') THEN
2239: okc_debug.log('8600: Leaving lock_row', 2);
2240: okc_debug.Reset_Indentation;
2241: END IF;
2242:
2243: EXCEPTION
2236: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2237:
2238: IF (l_debug = 'Y') THEN
2239: okc_debug.log('8600: Leaving lock_row', 2);
2240: okc_debug.Reset_Indentation;
2241: END IF;
2242:
2243: EXCEPTION
2244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2243: EXCEPTION
2244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2245:
2246: IF (l_debug = 'Y') THEN
2247: okc_debug.log('8700: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2248: okc_debug.Reset_Indentation;
2249: END IF;
2250:
2251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2245:
2246: IF (l_debug = 'Y') THEN
2247: okc_debug.log('8700: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2248: okc_debug.Reset_Indentation;
2249: END IF;
2250:
2251: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2252: (
2259: );
2260: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2261:
2262: IF (l_debug = 'Y') THEN
2263: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2264: okc_debug.Reset_Indentation;
2265: END IF;
2266:
2267: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2260: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2261:
2262: IF (l_debug = 'Y') THEN
2263: okc_debug.log('8800: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2264: okc_debug.Reset_Indentation;
2265: END IF;
2266:
2267: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2268: (
2275: );
2276: WHEN OTHERS THEN
2277:
2278: IF (l_debug = 'Y') THEN
2279: okc_debug.log('8900: Exiting lock_row:OTHERS Exception', 2);
2280: okc_debug.Reset_Indentation;
2281: END IF;
2282:
2283: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2276: WHEN OTHERS THEN
2277:
2278: IF (l_debug = 'Y') THEN
2279: okc_debug.log('8900: Exiting lock_row:OTHERS Exception', 2);
2280: okc_debug.Reset_Indentation;
2281: END IF;
2282:
2283: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2284: (
2309: i NUMBER := 0;
2310: BEGIN
2311:
2312: IF (l_debug = 'Y') THEN
2313: okc_debug.Set_Indentation('OKC_OLE_PVT');
2314: okc_debug.log('9000: Entered lock_row', 2);
2315: END IF;
2316:
2317: OKC_API.init_msg_list(p_init_msg_list);
2310: BEGIN
2311:
2312: IF (l_debug = 'Y') THEN
2313: okc_debug.Set_Indentation('OKC_OLE_PVT');
2314: okc_debug.log('9000: Entered lock_row', 2);
2315: END IF;
2316:
2317: OKC_API.init_msg_list(p_init_msg_list);
2318: -- Make sure PL/SQL table has records in it before passing
2341: x_return_status := l_overall_status;
2342: END IF;
2343:
2344: IF (l_debug = 'Y') THEN
2345: okc_debug.log('9100: Leaving lock_row', 2);
2346: okc_debug.Reset_Indentation;
2347: END IF;
2348:
2349: EXCEPTION
2342: END IF;
2343:
2344: IF (l_debug = 'Y') THEN
2345: okc_debug.log('9100: Leaving lock_row', 2);
2346: okc_debug.Reset_Indentation;
2347: END IF;
2348:
2349: EXCEPTION
2350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2349: EXCEPTION
2350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2351:
2352: IF (l_debug = 'Y') THEN
2353: okc_debug.log('9200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2354: okc_debug.Reset_Indentation;
2355: END IF;
2356:
2357: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2350: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2351:
2352: IF (l_debug = 'Y') THEN
2353: okc_debug.log('9200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2354: okc_debug.Reset_Indentation;
2355: END IF;
2356:
2357: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2358: (
2365: );
2366: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2367:
2368: IF (l_debug = 'Y') THEN
2369: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2370: okc_debug.Reset_Indentation;
2371: END IF;
2372:
2373: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2366: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2367:
2368: IF (l_debug = 'Y') THEN
2369: okc_debug.log('9300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2370: okc_debug.Reset_Indentation;
2371: END IF;
2372:
2373: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2374: (
2381: );
2382: WHEN OTHERS THEN
2383:
2384: IF (l_debug = 'Y') THEN
2385: okc_debug.log('9400: Exiting lock_row:OTHERS Exception', 2);
2386: okc_debug.Reset_Indentation;
2387: END IF;
2388:
2389: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2382: WHEN OTHERS THEN
2383:
2384: IF (l_debug = 'Y') THEN
2385: okc_debug.log('9400: Exiting lock_row:OTHERS Exception', 2);
2386: okc_debug.Reset_Indentation;
2387: END IF;
2388:
2389: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2390: (
2430: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2431: BEGIN
2432:
2433: IF (l_debug = 'Y') THEN
2434: okc_debug.Set_Indentation('OKC_OLE_PVT');
2435: okc_debug.log('9500: Entered populate_new_record', 2);
2436: END IF;
2437:
2438: x_ole_rec := p_ole_rec;
2431: BEGIN
2432:
2433: IF (l_debug = 'Y') THEN
2434: okc_debug.Set_Indentation('OKC_OLE_PVT');
2435: okc_debug.log('9500: Entered populate_new_record', 2);
2436: END IF;
2437:
2438: x_ole_rec := p_ole_rec;
2439: -- Get current database values
2526: x_ole_rec.message_code := l_ole_rec.message_code;
2527: END IF;
2528:
2529: IF (l_debug = 'Y') THEN
2530: okc_debug.log('9600: Leaving populate_new_record ', 2);
2531: okc_debug.Reset_Indentation;
2532: END IF;
2533:
2534: RETURN(l_return_status);
2527: END IF;
2528:
2529: IF (l_debug = 'Y') THEN
2530: okc_debug.log('9600: Leaving populate_new_record ', 2);
2531: okc_debug.Reset_Indentation;
2532: END IF;
2533:
2534: RETURN(l_return_status);
2535:
2550: END Set_Attributes;
2551: BEGIN
2552:
2553: IF (l_debug = 'Y') THEN
2554: okc_debug.Set_Indentation('OKC_OLE_PVT');
2555: okc_debug.log('9700: Entered update_row', 2);
2556: END IF;
2557:
2558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2551: BEGIN
2552:
2553: IF (l_debug = 'Y') THEN
2554: okc_debug.Set_Indentation('OKC_OLE_PVT');
2555: okc_debug.log('9700: Entered update_row', 2);
2556: END IF;
2557:
2558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2559: p_init_msg_list,
2606: x_ole_rec := l_def_ole_rec;
2607: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2608:
2609: IF (l_debug = 'Y') THEN
2610: okc_debug.log('9800: Leaving update_row', 2);
2611: okc_debug.Reset_Indentation;
2612: END IF;
2613:
2614: EXCEPTION
2607: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2608:
2609: IF (l_debug = 'Y') THEN
2610: okc_debug.log('9800: Leaving update_row', 2);
2611: okc_debug.Reset_Indentation;
2612: END IF;
2613:
2614: EXCEPTION
2615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2614: EXCEPTION
2615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2616:
2617: IF (l_debug = 'Y') THEN
2618: okc_debug.log('9900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2619: okc_debug.Reset_Indentation;
2620: END IF;
2621:
2622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2615: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2616:
2617: IF (l_debug = 'Y') THEN
2618: okc_debug.log('9900: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2619: okc_debug.Reset_Indentation;
2620: END IF;
2621:
2622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2623: (
2630: );
2631: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2632:
2633: IF (l_debug = 'Y') THEN
2634: okc_debug.log('10000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2635: okc_debug.Reset_Indentation;
2636: END IF;
2637:
2638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2631: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2632:
2633: IF (l_debug = 'Y') THEN
2634: okc_debug.log('10000: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2635: okc_debug.Reset_Indentation;
2636: END IF;
2637:
2638: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2639: (
2646: );
2647: WHEN OTHERS THEN
2648:
2649: IF (l_debug = 'Y') THEN
2650: okc_debug.log('10100: Exiting update_row:OTHERS Exception', 2);
2651: okc_debug.Reset_Indentation;
2652: END IF;
2653:
2654: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2647: WHEN OTHERS THEN
2648:
2649: IF (l_debug = 'Y') THEN
2650: okc_debug.log('10100: Exiting update_row:OTHERS Exception', 2);
2651: okc_debug.Reset_Indentation;
2652: END IF;
2653:
2654: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2655: (
2708: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2709: BEGIN
2710:
2711: IF (l_debug = 'Y') THEN
2712: okc_debug.Set_Indentation('OKC_OLE_PVT');
2713: okc_debug.log('10300: Entered populate_new_record', 2);
2714: END IF;
2715:
2716: x_olev_rec := p_olev_rec;
2709: BEGIN
2710:
2711: IF (l_debug = 'Y') THEN
2712: okc_debug.Set_Indentation('OKC_OLE_PVT');
2713: okc_debug.log('10300: Entered populate_new_record', 2);
2714: END IF;
2715:
2716: x_olev_rec := p_olev_rec;
2717: -- Get current database values
2804: x_olev_rec.message_code := l_olev_rec.message_code;
2805: END IF;
2806:
2807: IF (l_debug = 'Y') THEN
2808: okc_debug.log('10400: Leaving populate_new_record ', 2);
2809: okc_debug.Reset_Indentation;
2810: END IF;
2811:
2812: RETURN(l_return_status);
2805: END IF;
2806:
2807: IF (l_debug = 'Y') THEN
2808: okc_debug.log('10400: Leaving populate_new_record ', 2);
2809: okc_debug.Reset_Indentation;
2810: END IF;
2811:
2812: RETURN(l_return_status);
2813:
2832: END Set_Attributes;
2833: BEGIN
2834:
2835: IF (l_debug = 'Y') THEN
2836: okc_debug.Set_Indentation('OKC_OLE_PVT');
2837: okc_debug.log('10500: Entered update_row', 2);
2838: END IF;
2839:
2840: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2833: BEGIN
2834:
2835: IF (l_debug = 'Y') THEN
2836: okc_debug.Set_Indentation('OKC_OLE_PVT');
2837: okc_debug.log('10500: Entered update_row', 2);
2838: END IF;
2839:
2840: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2841: G_PKG_NAME,
2905: x_olev_rec := l_def_olev_rec;
2906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2907:
2908: IF (l_debug = 'Y') THEN
2909: okc_debug.log('10600: Leaving update_row', 2);
2910: okc_debug.Reset_Indentation;
2911: END IF;
2912:
2913: EXCEPTION
2906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2907:
2908: IF (l_debug = 'Y') THEN
2909: okc_debug.log('10600: Leaving update_row', 2);
2910: okc_debug.Reset_Indentation;
2911: END IF;
2912:
2913: EXCEPTION
2914: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2913: EXCEPTION
2914: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2915:
2916: IF (l_debug = 'Y') THEN
2917: okc_debug.log('10700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2918: okc_debug.Reset_Indentation;
2919: END IF;
2920:
2921: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2914: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2915:
2916: IF (l_debug = 'Y') THEN
2917: okc_debug.log('10700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2918: okc_debug.Reset_Indentation;
2919: END IF;
2920:
2921: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2922: (
2929: );
2930: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2931:
2932: IF (l_debug = 'Y') THEN
2933: okc_debug.log('10800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2934: okc_debug.Reset_Indentation;
2935: END IF;
2936:
2937: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2930: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2931:
2932: IF (l_debug = 'Y') THEN
2933: okc_debug.log('10800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2934: okc_debug.Reset_Indentation;
2935: END IF;
2936:
2937: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2938: (
2945: );
2946: WHEN OTHERS THEN
2947:
2948: IF (l_debug = 'Y') THEN
2949: okc_debug.log('10900: Exiting update_row:OTHERS Exception', 2);
2950: okc_debug.Reset_Indentation;
2951: END IF;
2952:
2953: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2946: WHEN OTHERS THEN
2947:
2948: IF (l_debug = 'Y') THEN
2949: okc_debug.log('10900: Exiting update_row:OTHERS Exception', 2);
2950: okc_debug.Reset_Indentation;
2951: END IF;
2952:
2953: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2954: (
2980: i NUMBER := 0;
2981: BEGIN
2982:
2983: IF (l_debug = 'Y') THEN
2984: okc_debug.Set_Indentation('OKC_OLE_PVT');
2985: okc_debug.log('11000: Entered update_row', 2);
2986: END IF;
2987:
2988: OKC_API.init_msg_list(p_init_msg_list);
2981: BEGIN
2982:
2983: IF (l_debug = 'Y') THEN
2984: okc_debug.Set_Indentation('OKC_OLE_PVT');
2985: okc_debug.log('11000: Entered update_row', 2);
2986: END IF;
2987:
2988: OKC_API.init_msg_list(p_init_msg_list);
2989: -- Make sure PL/SQL table has records in it before passing
3013: x_return_status := l_overall_status;
3014: END IF;
3015:
3016: IF (l_debug = 'Y') THEN
3017: okc_debug.log('11100: Leaving update_row', 2);
3018: okc_debug.Reset_Indentation;
3019: END IF;
3020:
3021: EXCEPTION
3014: END IF;
3015:
3016: IF (l_debug = 'Y') THEN
3017: okc_debug.log('11100: Leaving update_row', 2);
3018: okc_debug.Reset_Indentation;
3019: END IF;
3020:
3021: EXCEPTION
3022: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3021: EXCEPTION
3022: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3023:
3024: IF (l_debug = 'Y') THEN
3025: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3026: okc_debug.Reset_Indentation;
3027: END IF;
3028:
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3022: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3023:
3024: IF (l_debug = 'Y') THEN
3025: okc_debug.log('11200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3026: okc_debug.Reset_Indentation;
3027: END IF;
3028:
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3030: (
3037: );
3038: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3039:
3040: IF (l_debug = 'Y') THEN
3041: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3042: okc_debug.Reset_Indentation;
3043: END IF;
3044:
3045: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3038: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3039:
3040: IF (l_debug = 'Y') THEN
3041: okc_debug.log('11300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3042: okc_debug.Reset_Indentation;
3043: END IF;
3044:
3045: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3046: (
3053: );
3054: WHEN OTHERS THEN
3055:
3056: IF (l_debug = 'Y') THEN
3057: okc_debug.log('11400: Exiting update_row:OTHERS Exception', 2);
3058: okc_debug.Reset_Indentation;
3059: END IF;
3060:
3061: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3054: WHEN OTHERS THEN
3055:
3056: IF (l_debug = 'Y') THEN
3057: okc_debug.log('11400: Exiting update_row:OTHERS Exception', 2);
3058: okc_debug.Reset_Indentation;
3059: END IF;
3060:
3061: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3062: (
3090: l_row_notfound BOOLEAN := TRUE;
3091: BEGIN
3092:
3093: IF (l_debug = 'Y') THEN
3094: okc_debug.Set_Indentation('OKC_OLE_PVT');
3095: okc_debug.log('11500: Entered delete_row', 2);
3096: END IF;
3097:
3098: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3091: BEGIN
3092:
3093: IF (l_debug = 'Y') THEN
3094: okc_debug.Set_Indentation('OKC_OLE_PVT');
3095: okc_debug.log('11500: Entered delete_row', 2);
3096: END IF;
3097:
3098: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3099: p_init_msg_list,
3109:
3110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3111:
3112: IF (l_debug = 'Y') THEN
3113: okc_debug.log('11600: Leaving delete_row', 2);
3114: okc_debug.Reset_Indentation;
3115: END IF;
3116:
3117: EXCEPTION
3110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3111:
3112: IF (l_debug = 'Y') THEN
3113: okc_debug.log('11600: Leaving delete_row', 2);
3114: okc_debug.Reset_Indentation;
3115: END IF;
3116:
3117: EXCEPTION
3118: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3117: EXCEPTION
3118: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3119:
3120: IF (l_debug = 'Y') THEN
3121: okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3122: okc_debug.Reset_Indentation;
3123: END IF;
3124:
3125: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3118: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3119:
3120: IF (l_debug = 'Y') THEN
3121: okc_debug.log('11700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3122: okc_debug.Reset_Indentation;
3123: END IF;
3124:
3125: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3126: (
3133: );
3134: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3135:
3136: IF (l_debug = 'Y') THEN
3137: okc_debug.log('11800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3138: okc_debug.Reset_Indentation;
3139: END IF;
3140:
3141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3134: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3135:
3136: IF (l_debug = 'Y') THEN
3137: okc_debug.log('11800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3138: okc_debug.Reset_Indentation;
3139: END IF;
3140:
3141: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3142: (
3149: );
3150: WHEN OTHERS THEN
3151:
3152: IF (l_debug = 'Y') THEN
3153: okc_debug.log('11900: Exiting delete_row:OTHERS Exception', 2);
3154: okc_debug.Reset_Indentation;
3155: END IF;
3156:
3157: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3150: WHEN OTHERS THEN
3151:
3152: IF (l_debug = 'Y') THEN
3153: okc_debug.log('11900: Exiting delete_row:OTHERS Exception', 2);
3154: okc_debug.Reset_Indentation;
3155: END IF;
3156:
3157: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3158: (
3183: l_ole_rec ole_rec_type;
3184: BEGIN
3185:
3186: IF (l_debug = 'Y') THEN
3187: okc_debug.Set_Indentation('OKC_OLE_PVT');
3188: okc_debug.log('12000: Entered delete_row', 2);
3189: END IF;
3190:
3191: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3184: BEGIN
3185:
3186: IF (l_debug = 'Y') THEN
3187: okc_debug.Set_Indentation('OKC_OLE_PVT');
3188: okc_debug.log('12000: Entered delete_row', 2);
3189: END IF;
3190:
3191: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3192: G_PKG_NAME,
3221: END IF;
3222: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3223:
3224: IF (l_debug = 'Y') THEN
3225: okc_debug.log('12100: Leaving delete_row', 2);
3226: okc_debug.Reset_Indentation;
3227: END IF;
3228:
3229: EXCEPTION
3222: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3223:
3224: IF (l_debug = 'Y') THEN
3225: okc_debug.log('12100: Leaving delete_row', 2);
3226: okc_debug.Reset_Indentation;
3227: END IF;
3228:
3229: EXCEPTION
3230: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3229: EXCEPTION
3230: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3231:
3232: IF (l_debug = 'Y') THEN
3233: okc_debug.log('12200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3234: okc_debug.Reset_Indentation;
3235: END IF;
3236:
3237: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3230: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3231:
3232: IF (l_debug = 'Y') THEN
3233: okc_debug.log('12200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3234: okc_debug.Reset_Indentation;
3235: END IF;
3236:
3237: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3238: (
3245: );
3246: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3247:
3248: IF (l_debug = 'Y') THEN
3249: okc_debug.log('12300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3250: okc_debug.Reset_Indentation;
3251: END IF;
3252:
3253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3246: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3247:
3248: IF (l_debug = 'Y') THEN
3249: okc_debug.log('12300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3250: okc_debug.Reset_Indentation;
3251: END IF;
3252:
3253: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3254: (
3261: );
3262: WHEN OTHERS THEN
3263:
3264: IF (l_debug = 'Y') THEN
3265: okc_debug.log('12400: Exiting delete_row:OTHERS Exception', 2);
3266: okc_debug.Reset_Indentation;
3267: END IF;
3268:
3269: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3262: WHEN OTHERS THEN
3263:
3264: IF (l_debug = 'Y') THEN
3265: okc_debug.log('12400: Exiting delete_row:OTHERS Exception', 2);
3266: okc_debug.Reset_Indentation;
3267: END IF;
3268:
3269: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3270: (
3295: i NUMBER := 0;
3296: BEGIN
3297:
3298: IF (l_debug = 'Y') THEN
3299: okc_debug.Set_Indentation('OKC_OLE_PVT');
3300: okc_debug.log('12500: Entered delete_row', 2);
3301: END IF;
3302:
3303: OKC_API.init_msg_list(p_init_msg_list);
3296: BEGIN
3297:
3298: IF (l_debug = 'Y') THEN
3299: okc_debug.Set_Indentation('OKC_OLE_PVT');
3300: okc_debug.log('12500: Entered delete_row', 2);
3301: END IF;
3302:
3303: OKC_API.init_msg_list(p_init_msg_list);
3304: -- Make sure PL/SQL table has records in it before passing
3327: x_return_status := l_overall_status;
3328: END IF;
3329:
3330: IF (l_debug = 'Y') THEN
3331: okc_debug.log('12600: Leaving delete_row', 2);
3332: okc_debug.Reset_Indentation;
3333: END IF;
3334:
3335: EXCEPTION
3328: END IF;
3329:
3330: IF (l_debug = 'Y') THEN
3331: okc_debug.log('12600: Leaving delete_row', 2);
3332: okc_debug.Reset_Indentation;
3333: END IF;
3334:
3335: EXCEPTION
3336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3335: EXCEPTION
3336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3337:
3338: IF (l_debug = 'Y') THEN
3339: okc_debug.log('12700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3340: okc_debug.Reset_Indentation;
3341: END IF;
3342:
3343: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3337:
3338: IF (l_debug = 'Y') THEN
3339: okc_debug.log('12700: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3340: okc_debug.Reset_Indentation;
3341: END IF;
3342:
3343: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3344: (
3351: );
3352: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3353:
3354: IF (l_debug = 'Y') THEN
3355: okc_debug.log('12800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3356: okc_debug.Reset_Indentation;
3357: END IF;
3358:
3359: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3352: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3353:
3354: IF (l_debug = 'Y') THEN
3355: okc_debug.log('12800: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3356: okc_debug.Reset_Indentation;
3357: END IF;
3358:
3359: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3360: (
3367: );
3368: WHEN OTHERS THEN
3369:
3370: IF (l_debug = 'Y') THEN
3371: okc_debug.log('12900: Exiting delete_row:OTHERS Exception', 2);
3372: okc_debug.Reset_Indentation;
3373: END IF;
3374:
3375: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3368: WHEN OTHERS THEN
3369:
3370: IF (l_debug = 'Y') THEN
3371: okc_debug.log('12900: Exiting delete_row:OTHERS Exception', 2);
3372: okc_debug.Reset_Indentation;
3373: END IF;
3374:
3375: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3376: (