[Home] [Help]
26: p_clev_rec IN clev_rec_type) is
27: Begin
28:
29: IF (l_debug = 'Y') THEN
30: okc_debug.Set_Indentation('OKC_CLE_PVT');
31: okc_debug.log('100: Entered validate_line_number', 2);
32: END IF;
33:
34: -- initialize return status
27: Begin
28:
29: IF (l_debug = 'Y') THEN
30: okc_debug.Set_Indentation('OKC_CLE_PVT');
31: okc_debug.log('100: Entered validate_line_number', 2);
32: END IF;
33:
34: -- initialize return status
35: x_return_status := OKC_API.G_RET_STS_SUCCESS;
49: raise G_EXCEPTION_HALT_VALIDATION;
50: End If;
51:
52: IF (l_debug = 'Y') THEN
53: okc_debug.log('200: Leaving validate_line_number with return status '||x_return_status, 2);
54: okc_debug.Reset_Indentation;
55: END IF;
56:
57: exception
50: End If;
51:
52: IF (l_debug = 'Y') THEN
53: okc_debug.log('200: Leaving validate_line_number with return status '||x_return_status, 2);
54: okc_debug.Reset_Indentation;
55: END IF;
56:
57: exception
58: when G_EXCEPTION_HALT_VALIDATION then
57: exception
58: when G_EXCEPTION_HALT_VALIDATION then
59:
60: IF (l_debug = 'Y') THEN
61: okc_debug.log('300: Exiting validate_line_number:G_EXCEPTION_HALT_VALIDATION Exception', 2);
62: okc_debug.Reset_Indentation;
63: END IF;
64:
65: -- no processing necessary; validation can continue with next column
58: when G_EXCEPTION_HALT_VALIDATION then
59:
60: IF (l_debug = 'Y') THEN
61: okc_debug.log('300: Exiting validate_line_number:G_EXCEPTION_HALT_VALIDATION Exception', 2);
62: okc_debug.Reset_Indentation;
63: END IF;
64:
65: -- no processing necessary; validation can continue with next column
66: null;
67:
68: when OTHERS then
69:
70: IF (l_debug = 'Y') THEN
71: okc_debug.log('400: Exiting validate_line_number:OTHERS Exception', 2);
72: okc_debug.Reset_Indentation;
73: END IF;
74:
75: -- store SQL error message on message stack
68: when OTHERS then
69:
70: IF (l_debug = 'Y') THEN
71: okc_debug.log('400: Exiting validate_line_number:OTHERS Exception', 2);
72: okc_debug.Reset_Indentation;
73: END IF;
74:
75: -- store SQL error message on message stack
76: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
106: where ID = p_clev_rec.chr_id;
107: Begin
108:
109: IF (l_debug = 'Y') THEN
110: okc_debug.Set_Indentation('OKC_CLE_PVT');
111: okc_debug.log('500: Entered validate_chr_id', 2);
112: END IF;
113:
114: -- initialize return status
107: Begin
108:
109: IF (l_debug = 'Y') THEN
110: okc_debug.Set_Indentation('OKC_CLE_PVT');
111: okc_debug.log('500: Entered validate_chr_id', 2);
112: END IF;
113:
114: -- initialize return status
115: x_return_status := OKC_API.G_RET_STS_SUCCESS;
137: End If;
138: End If;
139:
140: IF (l_debug = 'Y') THEN
141: okc_debug.log('600: Leaving validate_chr_id with return status '||x_return_status, 2);
142: okc_debug.Reset_Indentation;
143: END IF;
144:
145: exception
138: End If;
139:
140: IF (l_debug = 'Y') THEN
141: okc_debug.log('600: Leaving validate_chr_id with return status '||x_return_status, 2);
142: okc_debug.Reset_Indentation;
143: END IF;
144:
145: exception
146: when OTHERS then
145: exception
146: when OTHERS then
147:
148: IF (l_debug = 'Y') THEN
149: okc_debug.log('700: Exiting validate_chr_id:OTHERS Exception', 2);
150: okc_debug.Reset_Indentation;
151: END IF;
152:
153: -- store SQL error message on message stack
146: when OTHERS then
147:
148: IF (l_debug = 'Y') THEN
149: okc_debug.log('700: Exiting validate_chr_id:OTHERS Exception', 2);
150: okc_debug.Reset_Indentation;
151: END IF;
152:
153: -- store SQL error message on message stack
154: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
185: where ID = p_clev_rec.cle_id;
186: Begin
187:
188: IF (l_debug = 'Y') THEN
189: okc_debug.Set_Indentation('OKC_CLE_PVT');
190: okc_debug.log('800: Entered validate_cle_id', 2);
191: END IF;
192:
193: -- initialize return status
186: Begin
187:
188: IF (l_debug = 'Y') THEN
189: okc_debug.Set_Indentation('OKC_CLE_PVT');
190: okc_debug.log('800: Entered validate_cle_id', 2);
191: END IF;
192:
193: -- initialize return status
194: x_return_status := OKC_API.G_RET_STS_SUCCESS;
216: End If;
217: End If;
218:
219: IF (l_debug = 'Y') THEN
220: okc_debug.log('900: Leaving validate_cle_id with return status '||x_return_status, 2);
221: okc_debug.Reset_Indentation;
222: END IF;
223:
224: exception
217: End If;
218:
219: IF (l_debug = 'Y') THEN
220: okc_debug.log('900: Leaving validate_cle_id with return status '||x_return_status, 2);
221: okc_debug.Reset_Indentation;
222: END IF;
223:
224: exception
225: when OTHERS then
224: exception
225: when OTHERS then
226:
227: IF (l_debug = 'Y') THEN
228: okc_debug.log('1000: Exiting validate_cle_id:OTHERS Exception', 2);
229: okc_debug.Reset_Indentation;
230: END IF;
231:
232: -- store SQL error message on message stack
225: when OTHERS then
226:
227: IF (l_debug = 'Y') THEN
228: okc_debug.log('1000: Exiting validate_cle_id:OTHERS Exception', 2);
229: okc_debug.Reset_Indentation;
230: END IF;
231:
232: -- store SQL error message on message stack
233: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
277: --
278: Begin
279:
280: IF (l_debug = 'Y') THEN
281: okc_debug.Set_Indentation('OKC_CLE_PVT');
282: okc_debug.log('1100: Entered validate_lse_id', 2);
283: END IF;
284:
285: -- initialize return status
278: Begin
279:
280: IF (l_debug = 'Y') THEN
281: okc_debug.Set_Indentation('OKC_CLE_PVT');
282: okc_debug.log('1100: Entered validate_lse_id', 2);
283: END IF;
284:
285: -- initialize return status
286: x_return_status := OKC_API.G_RET_STS_SUCCESS;
343: -- Rajendra
344: End If; -- if user defined line style
345:
346: IF (l_debug = 'Y') THEN
347: okc_debug.log('1200: Leaving validate_lse_id with return status '||x_return_status, 2);
348: okc_debug.Reset_Indentation;
349: END IF;
350:
351: exception
344: End If; -- if user defined line style
345:
346: IF (l_debug = 'Y') THEN
347: okc_debug.log('1200: Leaving validate_lse_id with return status '||x_return_status, 2);
348: okc_debug.Reset_Indentation;
349: END IF;
350:
351: exception
352: when G_EXCEPTION_HALT_VALIDATION then
351: exception
352: when G_EXCEPTION_HALT_VALIDATION then
353:
354: IF (l_debug = 'Y') THEN
355: okc_debug.log('1300: Exiting validate_lse_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
356: okc_debug.Reset_Indentation;
357: END IF;
358:
359: -- no processing necessary; validation can continue with next column
352: when G_EXCEPTION_HALT_VALIDATION then
353:
354: IF (l_debug = 'Y') THEN
355: okc_debug.log('1300: Exiting validate_lse_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
356: okc_debug.Reset_Indentation;
357: END IF;
358:
359: -- no processing necessary; validation can continue with next column
360: null;
361:
362: when OTHERS then
363:
364: IF (l_debug = 'Y') THEN
365: okc_debug.log('1400: Exiting validate_lse_id:OTHERS Exception', 2);
366: okc_debug.Reset_Indentation;
367: END IF;
368:
369: -- store SQL error message on message stack
362: when OTHERS then
363:
364: IF (l_debug = 'Y') THEN
365: okc_debug.log('1400: Exiting validate_lse_id:OTHERS Exception', 2);
366: okc_debug.Reset_Indentation;
367: END IF;
368:
369: -- store SQL error message on message stack
370: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
395: p_clev_rec IN clev_rec_type) is
396: Begin
397:
398: IF (l_debug = 'Y') THEN
399: okc_debug.Set_Indentation('OKC_CLE_PVT');
400: okc_debug.log('1500: Entered validate_display_sequence', 2);
401: END IF;
402:
403: -- initialize return status
396: Begin
397:
398: IF (l_debug = 'Y') THEN
399: okc_debug.Set_Indentation('OKC_CLE_PVT');
400: okc_debug.log('1500: Entered validate_display_sequence', 2);
401: END IF;
402:
403: -- initialize return status
404: x_return_status := OKC_API.G_RET_STS_SUCCESS;
427: x_return_status := OKC_API.G_RET_STS_ERROR;
428: End If;
429:
430: IF (l_debug = 'Y') THEN
431: okc_debug.log('1600: Leaving validate_display_sequence with return status '||x_return_status, 2);
432: okc_debug.Reset_Indentation;
433: END IF;
434:
435: exception
428: End If;
429:
430: IF (l_debug = 'Y') THEN
431: okc_debug.log('1600: Leaving validate_display_sequence with return status '||x_return_status, 2);
432: okc_debug.Reset_Indentation;
433: END IF;
434:
435: exception
436: when G_EXCEPTION_HALT_VALIDATION then
435: exception
436: when G_EXCEPTION_HALT_VALIDATION then
437:
438: IF (l_debug = 'Y') THEN
439: okc_debug.log('1700: Exiting validate_display_sequence:G_EXCEPTION_HALT_VALIDATION Exception', 2);
440: okc_debug.Reset_Indentation;
441: END IF;
442:
443: -- no processing necessary; validation can continue with next column
436: when G_EXCEPTION_HALT_VALIDATION then
437:
438: IF (l_debug = 'Y') THEN
439: okc_debug.log('1700: Exiting validate_display_sequence:G_EXCEPTION_HALT_VALIDATION Exception', 2);
440: okc_debug.Reset_Indentation;
441: END IF;
442:
443: -- no processing necessary; validation can continue with next column
444: null;
445:
446: when OTHERS then
447:
448: IF (l_debug = 'Y') THEN
449: okc_debug.log('1800: Exiting validate_display_sequence:OTHERS Exception', 2);
450: okc_debug.Reset_Indentation;
451: END IF;
452:
453: -- store SQL error message on message stack
446: when OTHERS then
447:
448: IF (l_debug = 'Y') THEN
449: okc_debug.log('1800: Exiting validate_display_sequence:OTHERS Exception', 2);
450: okc_debug.Reset_Indentation;
451: END IF;
452:
453: -- store SQL error message on message stack
454: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
474: p_clev_rec IN clev_rec_type) is
475: Begin
476:
477: IF (l_debug = 'Y') THEN
478: okc_debug.Set_Indentation('OKC_CLE_PVT');
479: okc_debug.log('1900: Entered validate_trn_code', 2);
480: END IF;
481:
482: -- initialize return status
475: Begin
476:
477: IF (l_debug = 'Y') THEN
478: okc_debug.Set_Indentation('OKC_CLE_PVT');
479: okc_debug.log('1900: Entered validate_trn_code', 2);
480: END IF;
481:
482: -- initialize return status
483: x_return_status := OKC_API.G_RET_STS_SUCCESS;
502: End If;
503: End If;
504:
505: IF (l_debug = 'Y') THEN
506: okc_debug.log('2000: Leaving validate_trn_code with return status '||x_return_status, 2);
507: okc_debug.Reset_Indentation;
508: END IF;
509:
510: exception
503: End If;
504:
505: IF (l_debug = 'Y') THEN
506: okc_debug.log('2000: Leaving validate_trn_code with return status '||x_return_status, 2);
507: okc_debug.Reset_Indentation;
508: END IF;
509:
510: exception
511: when OTHERS then
510: exception
511: when OTHERS then
512:
513: IF (l_debug = 'Y') THEN
514: okc_debug.log('2100: Exiting validate_trn_code:OTHERS Exception', 2);
515: okc_debug.Reset_Indentation;
516: END IF;
517:
518: -- store SQL error message on message stack
511: when OTHERS then
512:
513: IF (l_debug = 'Y') THEN
514: okc_debug.log('2100: Exiting validate_trn_code:OTHERS Exception', 2);
515: okc_debug.Reset_Indentation;
516: END IF;
517:
518: -- store SQL error message on message stack
519: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
549: where ID = p_clev_rec.dnz_chr_id;
550: Begin
551:
552: IF (l_debug = 'Y') THEN
553: okc_debug.Set_Indentation('OKC_CLE_PVT');
554: okc_debug.log('2200: Entered validate_dnz_chr_id', 2);
555: END IF;
556:
557: -- initialize return status
550: Begin
551:
552: IF (l_debug = 'Y') THEN
553: okc_debug.Set_Indentation('OKC_CLE_PVT');
554: okc_debug.log('2200: Entered validate_dnz_chr_id', 2);
555: END IF;
556:
557: -- initialize return status
558: x_return_status := OKC_API.G_RET_STS_SUCCESS;
590: x_return_status := OKC_API.G_RET_STS_ERROR;
591: End If;
592:
593: IF (l_debug = 'Y') THEN
594: okc_debug.log('2300: Leaving validate_dnz_chr_id with return status '||x_return_status, 2);
595: okc_debug.Reset_Indentation;
596: END IF;
597:
598: exception
591: End If;
592:
593: IF (l_debug = 'Y') THEN
594: okc_debug.log('2300: Leaving validate_dnz_chr_id with return status '||x_return_status, 2);
595: okc_debug.Reset_Indentation;
596: END IF;
597:
598: exception
599: when G_EXCEPTION_HALT_VALIDATION then
598: exception
599: when G_EXCEPTION_HALT_VALIDATION then
600:
601: IF (l_debug = 'Y') THEN
602: okc_debug.log('2400: Exiting validate_dnz_chr_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
603: okc_debug.Reset_Indentation;
604: END IF;
605:
606: -- no processing necessary; validation can continue with next column
599: when G_EXCEPTION_HALT_VALIDATION then
600:
601: IF (l_debug = 'Y') THEN
602: okc_debug.log('2400: Exiting validate_dnz_chr_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
603: okc_debug.Reset_Indentation;
604: END IF;
605:
606: -- no processing necessary; validation can continue with next column
607: null;
608:
609: when OTHERS then
610:
611: IF (l_debug = 'Y') THEN
612: okc_debug.log('2500: Exiting validate_dnz_chr_id:OTHERS Exception', 2);
613: okc_debug.Reset_Indentation;
614: END IF;
615:
616: -- store SQL error message on message stack
609: when OTHERS then
610:
611: IF (l_debug = 'Y') THEN
612: okc_debug.log('2500: Exiting validate_dnz_chr_id:OTHERS Exception', 2);
613: okc_debug.Reset_Indentation;
614: END IF;
615:
616: -- store SQL error message on message stack
617: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
642: p_clev_rec IN clev_rec_type) is
643: Begin
644:
645: IF (l_debug = 'Y') THEN
646: okc_debug.Set_Indentation('OKC_CLE_PVT');
647: okc_debug.log('2600: Entered validate_exception_yn', 2);
648: END IF;
649:
650: -- initialize return status
643: Begin
644:
645: IF (l_debug = 'Y') THEN
646: okc_debug.Set_Indentation('OKC_CLE_PVT');
647: okc_debug.log('2600: Entered validate_exception_yn', 2);
648: END IF;
649:
650: -- initialize return status
651: x_return_status := OKC_API.G_RET_STS_SUCCESS;
675: x_return_status := OKC_API.G_RET_STS_ERROR;
676: End If;
677:
678: IF (l_debug = 'Y') THEN
679: okc_debug.log('2700: Leaving validate_exception_yn with return status '||x_return_status, 2);
680: okc_debug.Reset_Indentation;
681: END IF;
682:
683: exception
676: End If;
677:
678: IF (l_debug = 'Y') THEN
679: okc_debug.log('2700: Leaving validate_exception_yn with return status '||x_return_status, 2);
680: okc_debug.Reset_Indentation;
681: END IF;
682:
683: exception
684: when G_EXCEPTION_HALT_VALIDATION then
683: exception
684: when G_EXCEPTION_HALT_VALIDATION then
685:
686: IF (l_debug = 'Y') THEN
687: okc_debug.log('2800: Exiting validate_exception_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
688: okc_debug.Reset_Indentation;
689: END IF;
690:
691: -- no processing necessary; validation can continue with next column
684: when G_EXCEPTION_HALT_VALIDATION then
685:
686: IF (l_debug = 'Y') THEN
687: okc_debug.log('2800: Exiting validate_exception_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
688: okc_debug.Reset_Indentation;
689: END IF;
690:
691: -- no processing necessary; validation can continue with next column
692: null;
693:
694: when OTHERS then
695:
696: IF (l_debug = 'Y') THEN
697: okc_debug.log('2900: Exiting validate_exception_yn:OTHERS Exception', 2);
698: okc_debug.Reset_Indentation;
699: END IF;
700:
701: -- store SQL error message on message stack
694: when OTHERS then
695:
696: IF (l_debug = 'Y') THEN
697: okc_debug.log('2900: Exiting validate_exception_yn:OTHERS Exception', 2);
698: okc_debug.Reset_Indentation;
699: END IF;
700:
701: -- store SQL error message on message stack
702: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
722: p_clev_rec IN clev_rec_type) is
723: Begin
724:
725: IF (l_debug = 'Y') THEN
726: okc_debug.Set_Indentation('OKC_CLE_PVT');
727: okc_debug.log('3000: Entered validate_hidden_ind', 2);
728: END IF;
729:
730: -- initialize return status
723: Begin
724:
725: IF (l_debug = 'Y') THEN
726: okc_debug.Set_Indentation('OKC_CLE_PVT');
727: okc_debug.log('3000: Entered validate_hidden_ind', 2);
728: END IF;
729:
730: -- initialize return status
731: 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_hidden_ind with return status '||x_return_status, 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_hidden_ind with return status '||x_return_status, 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_hidden_ind: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_hidden_ind: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,
780: p_clev_rec IN clev_rec_type) is
781: Begin
782:
783: IF (l_debug = 'Y') THEN
784: okc_debug.Set_Indentation('OKC_CLE_PVT');
785: okc_debug.log('3300: Entered validate_price_level_ind', 2);
786: END IF;
787:
788: -- initialize return status
781: Begin
782:
783: IF (l_debug = 'Y') THEN
784: okc_debug.Set_Indentation('OKC_CLE_PVT');
785: okc_debug.log('3300: Entered validate_price_level_ind', 2);
786: END IF;
787:
788: -- initialize return status
789: x_return_status := OKC_API.G_RET_STS_SUCCESS;
802: End If;
803: End If;
804:
805: IF (l_debug = 'Y') THEN
806: okc_debug.log('3400: Leaving validate_price_level_ind with return status '||x_return_status, 2);
807: okc_debug.Reset_Indentation;
808: END IF;
809:
810: exception
803: End If;
804:
805: IF (l_debug = 'Y') THEN
806: okc_debug.log('3400: Leaving validate_price_level_ind with return status '||x_return_status, 2);
807: okc_debug.Reset_Indentation;
808: END IF;
809:
810: exception
811: when OTHERS then
810: exception
811: when OTHERS then
812:
813: IF (l_debug = 'Y') THEN
814: okc_debug.log('3500: Exiting validate_price_level_ind:OTHERS Exception', 2);
815: okc_debug.Reset_Indentation;
816: END IF;
817:
818: -- store SQL error message on message stack
811: when OTHERS then
812:
813: IF (l_debug = 'Y') THEN
814: okc_debug.log('3500: Exiting validate_price_level_ind:OTHERS Exception', 2);
815: okc_debug.Reset_Indentation;
816: END IF;
817:
818: -- store SQL error message on message stack
819: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
839: p_clev_rec IN clev_rec_type) is
840: Begin
841:
842: IF (l_debug = 'Y') THEN
843: okc_debug.Set_Indentation('OKC_CLE_PVT');
844: okc_debug.log('3600: Entered validate_inv_line_level_ind', 2);
845: END IF;
846:
847: -- initialize return status
840: Begin
841:
842: IF (l_debug = 'Y') THEN
843: okc_debug.Set_Indentation('OKC_CLE_PVT');
844: okc_debug.log('3600: Entered validate_inv_line_level_ind', 2);
845: END IF;
846:
847: -- initialize return status
848: x_return_status := OKC_API.G_RET_STS_SUCCESS;
861: End If;
862: End If;
863:
864: IF (l_debug = 'Y') THEN
865: okc_debug.log('3700: Leaving validate_inv_line_level_ind with return status '||x_return_status, 2);
866: okc_debug.Reset_Indentation;
867: END IF;
868:
869: exception
862: End If;
863:
864: IF (l_debug = 'Y') THEN
865: okc_debug.log('3700: Leaving validate_inv_line_level_ind with return status '||x_return_status, 2);
866: okc_debug.Reset_Indentation;
867: END IF;
868:
869: exception
870: when OTHERS then
869: exception
870: when OTHERS then
871:
872: IF (l_debug = 'Y') THEN
873: okc_debug.log('3800: Exiting validate_inv_line_level_ind:OTHERS Exception', 2);
874: okc_debug.Reset_Indentation;
875: END IF;
876:
877: -- store SQL error message on message stack
870: when OTHERS then
871:
872: IF (l_debug = 'Y') THEN
873: okc_debug.log('3800: Exiting validate_inv_line_level_ind:OTHERS Exception', 2);
874: okc_debug.Reset_Indentation;
875: END IF;
876:
877: -- store SQL error message on message stack
878: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
898: p_clev_rec IN clev_rec_type) is
899: Begin
900:
901: IF (l_debug = 'Y') THEN
902: okc_debug.Set_Indentation('OKC_CLE_PVT');
903: okc_debug.log('3900: Entered validate_price_type', 2);
904: END IF;
905:
906: -- initialize return status
899: Begin
900:
901: IF (l_debug = 'Y') THEN
902: okc_debug.Set_Indentation('OKC_CLE_PVT');
903: okc_debug.log('3900: Entered validate_price_type', 2);
904: END IF;
905:
906: -- initialize return status
907: x_return_status := OKC_API.G_RET_STS_SUCCESS;
925: End If;
926: End If;
927:
928: IF (l_debug = 'Y') THEN
929: okc_debug.log('4000: Leaving validate_price_type with return status '||x_return_status, 2);
930: okc_debug.Reset_Indentation;
931: END IF;
932:
933: exception
926: End If;
927:
928: IF (l_debug = 'Y') THEN
929: okc_debug.log('4000: Leaving validate_price_type with return status '||x_return_status, 2);
930: okc_debug.Reset_Indentation;
931: END IF;
932:
933: exception
934: when G_EXCEPTION_HALT_VALIDATION then
933: exception
934: when G_EXCEPTION_HALT_VALIDATION then
935:
936: IF (l_debug = 'Y') THEN
937: okc_debug.log('4100: Exiting validate_price_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
938: okc_debug.Reset_Indentation;
939: END IF;
940:
941: -- no processing necessary; validation can continue with next column
934: when G_EXCEPTION_HALT_VALIDATION then
935:
936: IF (l_debug = 'Y') THEN
937: okc_debug.log('4100: Exiting validate_price_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
938: okc_debug.Reset_Indentation;
939: END IF;
940:
941: -- no processing necessary; validation can continue with next column
942: null;
943:
944: when OTHERS then
945:
946: IF (l_debug = 'Y') THEN
947: okc_debug.log('4200: Exiting validate_price_type:OTHERS Exception', 2);
948: okc_debug.Reset_Indentation;
949: END IF;
950:
951: -- store SQL error message on message stack
944: when OTHERS then
945:
946: IF (l_debug = 'Y') THEN
947: okc_debug.log('4200: Exiting validate_price_type:OTHERS Exception', 2);
948: okc_debug.Reset_Indentation;
949: END IF;
950:
951: -- store SQL error message on message stack
952: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
977: WHERE okc_statuses_b.code = p_code;
978: Begin
979:
980: IF (l_debug = 'Y') THEN
981: okc_debug.Set_Indentation('OKC_CLE_PVT');
982: okc_debug.log('4300: Entered validate_sts_code', 2);
983: END IF;
984:
985: -- initialize return status
978: Begin
979:
980: IF (l_debug = 'Y') THEN
981: okc_debug.Set_Indentation('OKC_CLE_PVT');
982: okc_debug.log('4300: Entered validate_sts_code', 2);
983: END IF;
984:
985: -- initialize return status
986: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1021:
1022: End If;
1023:
1024: IF (l_debug = 'Y') THEN
1025: okc_debug.log('4400: Leaving validate_sts_code with return status '||x_return_status, 2);
1026: okc_debug.Reset_Indentation;
1027: END IF;
1028:
1029: exception
1022: End If;
1023:
1024: IF (l_debug = 'Y') THEN
1025: okc_debug.log('4400: Leaving validate_sts_code with return status '||x_return_status, 2);
1026: okc_debug.Reset_Indentation;
1027: END IF;
1028:
1029: exception
1030: when G_EXCEPTION_HALT_VALIDATION then
1029: exception
1030: when G_EXCEPTION_HALT_VALIDATION then
1031:
1032: IF (l_debug = 'Y') THEN
1033: okc_debug.log('4500: Exiting validate_sts_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1034: okc_debug.Reset_Indentation;
1035: END IF;
1036:
1037: -- no processing necessary; validation can continue with next column
1030: when G_EXCEPTION_HALT_VALIDATION then
1031:
1032: IF (l_debug = 'Y') THEN
1033: okc_debug.log('4500: Exiting validate_sts_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1034: okc_debug.Reset_Indentation;
1035: END IF;
1036:
1037: -- no processing necessary; validation can continue with next column
1038: null;
1039:
1040: when OTHERS then
1041:
1042: IF (l_debug = 'Y') THEN
1043: okc_debug.log('4600: Exiting validate_sts_code:OTHERS Exception', 2);
1044: okc_debug.Reset_Indentation;
1045: END IF;
1046:
1047: -- store SQL error message on message stack
1040: when OTHERS then
1041:
1042: IF (l_debug = 'Y') THEN
1043: okc_debug.log('4600: Exiting validate_sts_code:OTHERS Exception', 2);
1044: okc_debug.Reset_Indentation;
1045: END IF;
1046:
1047: -- store SQL error message on message stack
1048: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1077: and nvl(end_date_active,sysdate);
1078: Begin
1079:
1080: IF (l_debug = 'Y') THEN
1081: okc_debug.Set_Indentation('OKC_CLE_PVT');
1082: okc_debug.log('4700: Entered validate_currency_code', 2);
1083: END IF;
1084:
1085: -- initialize return status
1078: Begin
1079:
1080: IF (l_debug = 'Y') THEN
1081: okc_debug.Set_Indentation('OKC_CLE_PVT');
1082: okc_debug.log('4700: Entered validate_currency_code', 2);
1083: END IF;
1084:
1085: -- initialize return status
1086: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1108: End If;
1109: End If;
1110:
1111: IF (l_debug = 'Y') THEN
1112: okc_debug.log('4800: Leaving validate_currency_code with return status '||x_return_status, 2);
1113: okc_debug.Reset_Indentation;
1114: END IF;
1115:
1116: exception
1109: End If;
1110:
1111: IF (l_debug = 'Y') THEN
1112: okc_debug.log('4800: Leaving validate_currency_code with return status '||x_return_status, 2);
1113: okc_debug.Reset_Indentation;
1114: END IF;
1115:
1116: exception
1117: when OTHERS then
1116: exception
1117: when OTHERS then
1118:
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.log('4900: Exiting validate_currency_code:OTHERS Exception', 2);
1121: okc_debug.Reset_Indentation;
1122: END IF;
1123:
1124: -- store SQL error message on message stack
1117: when OTHERS then
1118:
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.log('4900: Exiting validate_currency_code:OTHERS Exception', 2);
1121: okc_debug.Reset_Indentation;
1122: END IF;
1123:
1124: -- store SQL error message on message stack
1125: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1170: WHERE ID = p_clev_rec.cle_id;
1171: Begin
1172:
1173: IF (l_debug = 'Y') THEN
1174: okc_debug.Set_Indentation('OKC_CLE_PVT');
1175: okc_debug.log('5000: Entered validate_start_date', 2);
1176: END IF;
1177:
1178: -- initialize return status
1171: Begin
1172:
1173: IF (l_debug = 'Y') THEN
1174: okc_debug.Set_Indentation('OKC_CLE_PVT');
1175: okc_debug.log('5000: Entered validate_start_date', 2);
1176: END IF;
1177:
1178: -- initialize return status
1179: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1227: p_token1_value => 'Line Start Date');
1228: End If;
1229:
1230: IF (l_debug = 'Y') THEN
1231: okc_debug.log('5100: Leaving validate_start_date with return status '||x_return_status, 2);
1232: okc_debug.Reset_Indentation;
1233: END IF;
1234:
1235: exception
1228: End If;
1229:
1230: IF (l_debug = 'Y') THEN
1231: okc_debug.log('5100: Leaving validate_start_date with return status '||x_return_status, 2);
1232: okc_debug.Reset_Indentation;
1233: END IF;
1234:
1235: exception
1236: when NO_HEADER_FOUND then
1235: exception
1236: when NO_HEADER_FOUND then
1237:
1238: IF (l_debug = 'Y') THEN
1239: okc_debug.log('5200: Exiting validate_start_date:NO_HEADER_FOUND Exception', 2);
1240: okc_debug.Reset_Indentation;
1241: END IF;
1242:
1243: -- store SQL error message on message stack
1236: when NO_HEADER_FOUND then
1237:
1238: IF (l_debug = 'Y') THEN
1239: okc_debug.log('5200: Exiting validate_start_date:NO_HEADER_FOUND Exception', 2);
1240: okc_debug.Reset_Indentation;
1241: END IF;
1242:
1243: -- store SQL error message on message stack
1244: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1249: p_token2_value => 'OKC_K_HEADERS_V');
1250: when OTHERS then
1251:
1252: IF (l_debug = 'Y') THEN
1253: okc_debug.log('5300: Exiting validate_start_date:OTHERS Exception', 2);
1254: okc_debug.Reset_Indentation;
1255: END IF;
1256:
1257: -- store SQL error message on message stack
1250: when OTHERS then
1251:
1252: IF (l_debug = 'Y') THEN
1253: okc_debug.log('5300: Exiting validate_start_date:OTHERS Exception', 2);
1254: okc_debug.Reset_Indentation;
1255: END IF;
1256:
1257: -- store SQL error message on message stack
1258: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1298: WHERE ID = p_clev_rec.cle_id;
1299: Begin
1300:
1301: IF (l_debug = 'Y') THEN
1302: okc_debug.Set_Indentation('OKC_CLE_PVT');
1303: okc_debug.log('5400: Entered validate_end_date', 2);
1304: END IF;
1305:
1306: -- initialize return status
1299: Begin
1300:
1301: IF (l_debug = 'Y') THEN
1302: okc_debug.Set_Indentation('OKC_CLE_PVT');
1303: okc_debug.log('5400: Entered validate_end_date', 2);
1304: END IF;
1305:
1306: -- initialize return status
1307: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1350: p_token1_value => 'Line End Date');
1351: End If;
1352:
1353: IF (l_debug = 'Y') THEN
1354: okc_debug.log('5500: Leaving validate_end_date with return status '||x_return_status, 2);
1355: okc_debug.Reset_Indentation;
1356: END IF;
1357:
1358: exception
1351: End If;
1352:
1353: IF (l_debug = 'Y') THEN
1354: okc_debug.log('5500: Leaving validate_end_date with return status '||x_return_status, 2);
1355: okc_debug.Reset_Indentation;
1356: END IF;
1357:
1358: exception
1359: when NO_HEADER_FOUND then
1358: exception
1359: when NO_HEADER_FOUND then
1360:
1361: IF (l_debug = 'Y') THEN
1362: okc_debug.log('5600: Exiting validate_end_date:NO_HEADER_FOUND Exception', 2);
1363: okc_debug.Reset_Indentation;
1364: END IF;
1365:
1366: -- store SQL error message on message stack
1359: when NO_HEADER_FOUND then
1360:
1361: IF (l_debug = 'Y') THEN
1362: okc_debug.log('5600: Exiting validate_end_date:NO_HEADER_FOUND Exception', 2);
1363: okc_debug.Reset_Indentation;
1364: END IF;
1365:
1366: -- store SQL error message on message stack
1367: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1372: p_token2_value => 'OKC_K_HEADERS_V');
1373: when OTHERS then
1374:
1375: IF (l_debug = 'Y') THEN
1376: okc_debug.log('5700: Exiting validate_end_date:OTHERS Exception', 2);
1377: okc_debug.Reset_Indentation;
1378: END IF;
1379:
1380: -- store SQL error message on message stack
1373: when OTHERS then
1374:
1375: IF (l_debug = 'Y') THEN
1376: okc_debug.log('5700: Exiting validate_end_date:OTHERS Exception', 2);
1377: okc_debug.Reset_Indentation;
1378: END IF;
1379:
1380: -- store SQL error message on message stack
1381: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1403:
1404: Begin
1405:
1406: IF (l_debug = 'Y') THEN
1407: okc_debug.Set_Indentation('OKC_CLE_PVT');
1408: okc_debug.log('5711: Entered validate_line_renewal_type', 2);
1409: END IF;
1410:
1411: -- initialize return status
1404: Begin
1405:
1406: IF (l_debug = 'Y') THEN
1407: okc_debug.Set_Indentation('OKC_CLE_PVT');
1408: okc_debug.log('5711: Entered validate_line_renewal_type', 2);
1409: END IF;
1410:
1411: -- initialize return status
1412: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1431: raise G_EXCEPTION_HALT_VALIDATION;
1432: End If;
1433: End IF;
1434: IF (l_debug = 'Y') THEN
1435: okc_debug.log('5712: Exiting validate_line_renewal_type with return status '||x_return_status, 2);
1436: okc_debug.Reset_Indentation;
1437: END IF;
1438:
1439:
1432: End If;
1433: End IF;
1434: IF (l_debug = 'Y') THEN
1435: okc_debug.log('5712: Exiting validate_line_renewal_type with return status '||x_return_status, 2);
1436: okc_debug.Reset_Indentation;
1437: END IF;
1438:
1439:
1440: exception
1441:
1442: when OTHERS then
1443:
1444: IF (l_debug = 'Y') THEN
1445: okc_debug.log('5713: Exiting validate_line_renewal_type:OTHERS Exception', 2);
1446: okc_debug.Reset_Indentation;
1447: END IF;
1448:
1449: -- store SQL error message on message stack
1442: when OTHERS then
1443:
1444: IF (l_debug = 'Y') THEN
1445: okc_debug.log('5713: Exiting validate_line_renewal_type:OTHERS Exception', 2);
1446: okc_debug.Reset_Indentation;
1447: END IF;
1448:
1449: -- store SQL error message on message stack
1450: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1481: l_line_number_n NUMBER;
1482: BEGIN
1483:
1484: IF (l_debug = 'Y') THEN
1485: okc_debug.Set_Indentation('OKC_CLE_PVT');
1486: okc_debug.log('5800: Entered get_next_line_number', 2);
1487: END IF;
1488:
1489: -- initialize return status
1482: BEGIN
1483:
1484: IF (l_debug = 'Y') THEN
1485: okc_debug.Set_Indentation('OKC_CLE_PVT');
1486: okc_debug.log('5800: Entered get_next_line_number', 2);
1487: END IF;
1488:
1489: -- initialize return status
1490: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1496: Loop
1497: Begin
1498:
1499: IF (l_debug = 'Y') THEN
1500: okc_debug.Set_Indentation('OKC_CLE_PVT');
1501: okc_debug.log('5900: Entered get_next_line_number', 2);
1502: END IF;
1503:
1504: l_line_number_n := to_number(l_rec.line_number);
1497: Begin
1498:
1499: IF (l_debug = 'Y') THEN
1500: okc_debug.Set_Indentation('OKC_CLE_PVT');
1501: okc_debug.log('5900: Entered get_next_line_number', 2);
1502: END IF;
1503:
1504: l_line_number_n := to_number(l_rec.line_number);
1505: If (x_line_number < l_line_number_n) Then
1506: x_line_number := l_line_number_n;
1507: End If;
1508:
1509: IF (l_debug = 'Y') THEN
1510: okc_debug.log('6000: Leaving get_next_line_number', 2);
1511: okc_debug.Reset_Indentation;
1512: END IF;
1513:
1514: Exception
1507: End If;
1508:
1509: IF (l_debug = 'Y') THEN
1510: okc_debug.log('6000: Leaving get_next_line_number', 2);
1511: okc_debug.Reset_Indentation;
1512: END IF;
1513:
1514: Exception
1515: When OTHERS Then
1514: Exception
1515: When OTHERS Then
1516:
1517: IF (l_debug = 'Y') THEN
1518: okc_debug.log('6100: Exiting get_next_line_number:OTHERS Exception', 2);
1519: okc_debug.Reset_Indentation;
1520: END IF;
1521:
1522: NULL;
1515: When OTHERS Then
1516:
1517: IF (l_debug = 'Y') THEN
1518: okc_debug.log('6100: Exiting get_next_line_number:OTHERS Exception', 2);
1519: okc_debug.Reset_Indentation;
1520: END IF;
1521:
1522: NULL;
1523: End;
1528: Loop
1529: Begin
1530:
1531: IF (l_debug = 'Y') THEN
1532: okc_debug.Set_Indentation('OKC_CLE_PVT');
1533: okc_debug.log('6200: Entered get_next_line_number', 2);
1534: END IF;
1535:
1536: l_line_number_n := to_number(l_rec.line_number);
1529: Begin
1530:
1531: IF (l_debug = 'Y') THEN
1532: okc_debug.Set_Indentation('OKC_CLE_PVT');
1533: okc_debug.log('6200: Entered get_next_line_number', 2);
1534: END IF;
1535:
1536: l_line_number_n := to_number(l_rec.line_number);
1537: If (x_line_number < l_line_number_n) Then
1538: x_line_number := l_line_number_n;
1539: End If;
1540:
1541: IF (l_debug = 'Y') THEN
1542: okc_debug.log('6300: Leaving get_next_line_number', 2);
1543: okc_debug.Reset_Indentation;
1544: END IF;
1545:
1546:
1539: End If;
1540:
1541: IF (l_debug = 'Y') THEN
1542: okc_debug.log('6300: Leaving get_next_line_number', 2);
1543: okc_debug.Reset_Indentation;
1544: END IF;
1545:
1546:
1547: Exception
1547: Exception
1548: When OTHERS Then
1549:
1550: IF (l_debug = 'Y') THEN
1551: okc_debug.log('6400: Exiting get_next_line_number:OTHERS Exception', 2);
1552: okc_debug.Reset_Indentation;
1553: END IF;
1554:
1555: NULL;
1548: When OTHERS Then
1549:
1550: IF (l_debug = 'Y') THEN
1551: okc_debug.log('6400: Exiting get_next_line_number:OTHERS Exception', 2);
1552: okc_debug.Reset_Indentation;
1553: END IF;
1554:
1555: NULL;
1556: End;
1559:
1560: x_line_number := x_line_number + 1;
1561:
1562: IF (l_debug = 'Y') THEN
1563: okc_debug.log('6500: Leaving get_next_line_number', 2);
1564: okc_debug.Reset_Indentation;
1565: END IF;
1566:
1567: exception
1560: x_line_number := x_line_number + 1;
1561:
1562: IF (l_debug = 'Y') THEN
1563: okc_debug.log('6500: Leaving get_next_line_number', 2);
1564: okc_debug.Reset_Indentation;
1565: END IF;
1566:
1567: exception
1568: when NO_DATA_FOUND then
1567: exception
1568: when NO_DATA_FOUND then
1569:
1570: IF (l_debug = 'Y') THEN
1571: okc_debug.log('6600: Exiting get_next_line_number:NO_DATA_FOUND Exception', 2);
1572: okc_debug.Reset_Indentation;
1573: END IF;
1574:
1575: x_line_number := 1;
1568: when NO_DATA_FOUND then
1569:
1570: IF (l_debug = 'Y') THEN
1571: okc_debug.log('6600: Exiting get_next_line_number:NO_DATA_FOUND Exception', 2);
1572: okc_debug.Reset_Indentation;
1573: END IF;
1574:
1575: x_line_number := 1;
1576: when OTHERS then
1575: x_line_number := 1;
1576: when OTHERS then
1577:
1578: IF (l_debug = 'Y') THEN
1579: okc_debug.log('6700: Exiting get_next_line_number:OTHERS Exception', 2);
1580: okc_debug.Reset_Indentation;
1581: END IF;
1582:
1583: -- store SQL error message on message stack
1576: when OTHERS then
1577:
1578: IF (l_debug = 'Y') THEN
1579: okc_debug.log('6700: Exiting get_next_line_number:OTHERS Exception', 2);
1580: okc_debug.Reset_Indentation;
1581: END IF;
1582:
1583: -- store SQL error message on message stack
1584: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1614: and nvl(end_date_active,sysdate);
1615: Begin
1616:
1617: IF (l_debug = 'Y') THEN
1618: okc_debug.Set_Indentation('OKC_CLE_PVT');
1619: okc_debug.log('6800: Entered validate_curr_code_rnwd', 2);
1620: END IF;
1621:
1622: -- initialize return status
1615: Begin
1616:
1617: IF (l_debug = 'Y') THEN
1618: okc_debug.Set_Indentation('OKC_CLE_PVT');
1619: okc_debug.log('6800: Entered validate_curr_code_rnwd', 2);
1620: END IF;
1621:
1622: -- initialize return status
1623: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1645: End If;
1646: End If;
1647:
1648: IF (l_debug = 'Y') THEN
1649: okc_debug.log('6900: Leaving validate_curr_code_rnwd with return status '||x_return_status, 2);
1650: okc_debug.Reset_Indentation;
1651: END IF;
1652:
1653: exception
1646: End If;
1647:
1648: IF (l_debug = 'Y') THEN
1649: okc_debug.log('6900: Leaving validate_curr_code_rnwd with return status '||x_return_status, 2);
1650: okc_debug.Reset_Indentation;
1651: END IF;
1652:
1653: exception
1654: when OTHERS then
1653: exception
1654: when OTHERS then
1655:
1656: IF (l_debug = 'Y') THEN
1657: okc_debug.log('7000: Exiting validate_curr_code_rnwd:OTHERS Exception', 2);
1658: okc_debug.Reset_Indentation;
1659: END IF;
1660:
1661: -- store SQL error message on message stack
1654: when OTHERS then
1655:
1656: IF (l_debug = 'Y') THEN
1657: okc_debug.log('7000: Exiting validate_curr_code_rnwd:OTHERS Exception', 2);
1658: okc_debug.Reset_Indentation;
1659: END IF;
1660:
1661: -- store SQL error message on message stack
1662: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1685: p_clev_rec IN clev_rec_type) is
1686: Begin
1687:
1688: IF (l_debug = 'Y') THEN
1689: okc_debug.Set_Indentation('OKC_CLE_PVT');
1690: okc_debug.log('7100: Entered validate_orig_sys_code', 2);
1691: END IF;
1692:
1693: -- initialize return status
1686: Begin
1687:
1688: IF (l_debug = 'Y') THEN
1689: okc_debug.Set_Indentation('OKC_CLE_PVT');
1690: okc_debug.log('7100: Entered validate_orig_sys_code', 2);
1691: END IF;
1692:
1693: -- initialize return status
1694: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1713: End If;
1714: End If;
1715:
1716: IF (l_debug = 'Y') THEN
1717: okc_debug.log('7200: Leaving validate_orig_sys_code with return status '||x_return_status , 2);
1718: okc_debug.Reset_Indentation;
1719: END IF;
1720:
1721: exception
1714: End If;
1715:
1716: IF (l_debug = 'Y') THEN
1717: okc_debug.log('7200: Leaving validate_orig_sys_code with return status '||x_return_status , 2);
1718: okc_debug.Reset_Indentation;
1719: END IF;
1720:
1721: exception
1722: when OTHERS then
1721: exception
1722: when OTHERS then
1723:
1724: IF (l_debug = 'Y') THEN
1725: okc_debug.log('7300: Exiting validate_orig_sys_code:OTHERS Exception', 2);
1726: okc_debug.Reset_Indentation;
1727: END IF;
1728:
1729: -- store SQL error message on message stack
1722: when OTHERS then
1723:
1724: IF (l_debug = 'Y') THEN
1725: okc_debug.log('7300: Exiting validate_orig_sys_code:OTHERS Exception', 2);
1726: okc_debug.Reset_Indentation;
1727: END IF;
1728:
1729: -- store SQL error message on message stack
1730: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1758: p_clev_rec IN clev_rec_type) is
1759: Begin
1760:
1761: IF (l_debug = 'Y') THEN
1762: okc_debug.Set_Indentation('OKC_CLE_PVT');
1763: okc_debug.log('7400: Entered validate_config_complete_yn', 2);
1764: END IF;
1765:
1766: -- initialize return status
1759: Begin
1760:
1761: IF (l_debug = 'Y') THEN
1762: okc_debug.Set_Indentation('OKC_CLE_PVT');
1763: okc_debug.log('7400: Entered validate_config_complete_yn', 2);
1764: END IF;
1765:
1766: -- initialize return status
1767: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1783: end if;
1784: End If;
1785:
1786: IF (l_debug = 'Y') THEN
1787: okc_debug.log('7500: Leaving validate_config_complete_yn with return status '||x_return_status, 2);
1788: okc_debug.Reset_Indentation;
1789: END IF;
1790:
1791: exception
1784: End If;
1785:
1786: IF (l_debug = 'Y') THEN
1787: okc_debug.log('7500: Leaving validate_config_complete_yn with return status '||x_return_status, 2);
1788: okc_debug.Reset_Indentation;
1789: END IF;
1790:
1791: exception
1792: when G_EXCEPTION_HALT_VALIDATION then
1791: exception
1792: when G_EXCEPTION_HALT_VALIDATION then
1793:
1794: IF (l_debug = 'Y') THEN
1795: okc_debug.log('7600: Exiting validate_config_complete_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1796: okc_debug.Reset_Indentation;
1797: END IF;
1798:
1799: -- no processing necessary; validation can continue with next column
1792: when G_EXCEPTION_HALT_VALIDATION then
1793:
1794: IF (l_debug = 'Y') THEN
1795: okc_debug.log('7600: Exiting validate_config_complete_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1796: okc_debug.Reset_Indentation;
1797: END IF;
1798:
1799: -- no processing necessary; validation can continue with next column
1800: null;
1801:
1802: when OTHERS then
1803:
1804: IF (l_debug = 'Y') THEN
1805: okc_debug.log('7700: Exiting validate_config_complete_yn:OTHERS Exception', 2);
1806: okc_debug.Reset_Indentation;
1807: END IF;
1808:
1809: -- store SQL error message on message stack
1802: when OTHERS then
1803:
1804: IF (l_debug = 'Y') THEN
1805: okc_debug.log('7700: Exiting validate_config_complete_yn:OTHERS Exception', 2);
1806: okc_debug.Reset_Indentation;
1807: END IF;
1808:
1809: -- store SQL error message on message stack
1810: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1831: p_clev_rec IN clev_rec_type) is
1832: Begin
1833:
1834: IF (l_debug = 'Y') THEN
1835: okc_debug.Set_Indentation('OKC_CLE_PVT');
1836: okc_debug.log('7800: Entered validate_config_valid_yn', 2);
1837: END IF;
1838:
1839: -- initialize return status
1832: Begin
1833:
1834: IF (l_debug = 'Y') THEN
1835: okc_debug.Set_Indentation('OKC_CLE_PVT');
1836: okc_debug.log('7800: Entered validate_config_valid_yn', 2);
1837: END IF;
1838:
1839: -- initialize return status
1840: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1856: end if;
1857: End If;
1858:
1859: IF (l_debug = 'Y') THEN
1860: okc_debug.log('7900: Leaving validate_config_valid_yn with return status '||x_return_status, 2);
1861: okc_debug.Reset_Indentation;
1862: END IF;
1863:
1864: exception
1857: End If;
1858:
1859: IF (l_debug = 'Y') THEN
1860: okc_debug.log('7900: Leaving validate_config_valid_yn with return status '||x_return_status, 2);
1861: okc_debug.Reset_Indentation;
1862: END IF;
1863:
1864: exception
1865: when G_EXCEPTION_HALT_VALIDATION then
1864: exception
1865: when G_EXCEPTION_HALT_VALIDATION then
1866:
1867: IF (l_debug = 'Y') THEN
1868: okc_debug.log('8000: Exiting validate_config_valid_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1869: okc_debug.Reset_Indentation;
1870: END IF;
1871:
1872: -- no processing necessary; validation can continue with next column
1865: when G_EXCEPTION_HALT_VALIDATION then
1866:
1867: IF (l_debug = 'Y') THEN
1868: okc_debug.log('8000: Exiting validate_config_valid_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1869: okc_debug.Reset_Indentation;
1870: END IF;
1871:
1872: -- no processing necessary; validation can continue with next column
1873: null;
1874:
1875: when OTHERS then
1876:
1877: IF (l_debug = 'Y') THEN
1878: okc_debug.log('8100: Exiting validate_config_valid_yn:OTHERS Exception', 2);
1879: okc_debug.Reset_Indentation;
1880: END IF;
1881:
1882: -- store SQL error message on message stack
1875: when OTHERS then
1876:
1877: IF (l_debug = 'Y') THEN
1878: okc_debug.log('8100: Exiting validate_config_valid_yn:OTHERS Exception', 2);
1879: okc_debug.Reset_Indentation;
1880: END IF;
1881:
1882: -- store SQL error message on message stack
1883: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1903: p_clev_rec IN clev_rec_type) is
1904: Begin
1905:
1906: IF (l_debug = 'Y') THEN
1907: okc_debug.Set_Indentation('OKC_CLE_PVT');
1908: okc_debug.log('8200: Entered validate_item_to_price_yn', 2);
1909: END IF;
1910:
1911: -- initialize return status
1904: Begin
1905:
1906: IF (l_debug = 'Y') THEN
1907: okc_debug.Set_Indentation('OKC_CLE_PVT');
1908: okc_debug.log('8200: Entered validate_item_to_price_yn', 2);
1909: END IF;
1910:
1911: -- initialize return status
1912: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1928: end if;
1929: End If;
1930:
1931: IF (l_debug = 'Y') THEN
1932: okc_debug.log('8300: Leaving validate_item_to_price_yn with return status '||x_return_status, 2);
1933: okc_debug.Reset_Indentation;
1934: END IF;
1935:
1936: exception
1929: End If;
1930:
1931: IF (l_debug = 'Y') THEN
1932: okc_debug.log('8300: Leaving validate_item_to_price_yn with return status '||x_return_status, 2);
1933: okc_debug.Reset_Indentation;
1934: END IF;
1935:
1936: exception
1937: when G_EXCEPTION_HALT_VALIDATION then
1936: exception
1937: when G_EXCEPTION_HALT_VALIDATION then
1938:
1939: IF (l_debug = 'Y') THEN
1940: okc_debug.log('8400: Exiting validate_item_to_price_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1941: okc_debug.Reset_Indentation;
1942: END IF;
1943:
1944: -- no processing necessary; validation can continue with next column
1937: when G_EXCEPTION_HALT_VALIDATION then
1938:
1939: IF (l_debug = 'Y') THEN
1940: okc_debug.log('8400: Exiting validate_item_to_price_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1941: okc_debug.Reset_Indentation;
1942: END IF;
1943:
1944: -- no processing necessary; validation can continue with next column
1945: null;
1946:
1947: when OTHERS then
1948:
1949: IF (l_debug = 'Y') THEN
1950: okc_debug.log('8500: Exiting validate_item_to_price_yn:OTHERS Exception', 2);
1951: okc_debug.Reset_Indentation;
1952: END IF;
1953:
1954: -- store SQL error message on message stack
1947: when OTHERS then
1948:
1949: IF (l_debug = 'Y') THEN
1950: okc_debug.log('8500: Exiting validate_item_to_price_yn:OTHERS Exception', 2);
1951: okc_debug.Reset_Indentation;
1952: END IF;
1953:
1954: -- store SQL error message on message stack
1955: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1975: p_clev_rec IN clev_rec_type) is
1976: Begin
1977:
1978: IF (l_debug = 'Y') THEN
1979: okc_debug.Set_Indentation('OKC_CLE_PVT');
1980: okc_debug.log('8600: Entered validate_price_basis_yn', 2);
1981: END IF;
1982:
1983: -- initialize return status
1976: Begin
1977:
1978: IF (l_debug = 'Y') THEN
1979: okc_debug.Set_Indentation('OKC_CLE_PVT');
1980: okc_debug.log('8600: Entered validate_price_basis_yn', 2);
1981: END IF;
1982:
1983: -- initialize return status
1984: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2000: end if;
2001: End If;
2002:
2003: IF (l_debug = 'Y') THEN
2004: okc_debug.log('8700: Leaving validate_price_basis_yn with return status '||x_return_status, 2);
2005: okc_debug.Reset_Indentation;
2006: END IF;
2007:
2008: exception
2001: End If;
2002:
2003: IF (l_debug = 'Y') THEN
2004: okc_debug.log('8700: Leaving validate_price_basis_yn with return status '||x_return_status, 2);
2005: okc_debug.Reset_Indentation;
2006: END IF;
2007:
2008: exception
2009: when G_EXCEPTION_HALT_VALIDATION then
2008: exception
2009: when G_EXCEPTION_HALT_VALIDATION then
2010:
2011: IF (l_debug = 'Y') THEN
2012: okc_debug.log('8800: Exiting validate_price_basis_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2013: okc_debug.Reset_Indentation;
2014: END IF;
2015:
2016: -- no processing necessary; validation can continue with next column
2009: when G_EXCEPTION_HALT_VALIDATION then
2010:
2011: IF (l_debug = 'Y') THEN
2012: okc_debug.log('8800: Exiting validate_price_basis_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2013: okc_debug.Reset_Indentation;
2014: END IF;
2015:
2016: -- no processing necessary; validation can continue with next column
2017: null;
2018:
2019: when OTHERS then
2020:
2021: IF (l_debug = 'Y') THEN
2022: okc_debug.log('8900: Exiting validate_price_basis_yn:OTHERS Exception', 2);
2023: okc_debug.Reset_Indentation;
2024: END IF;
2025:
2026: -- store SQL error message on message stack
2019: when OTHERS then
2020:
2021: IF (l_debug = 'Y') THEN
2022: okc_debug.log('8900: Exiting validate_price_basis_yn:OTHERS Exception', 2);
2023: okc_debug.Reset_Indentation;
2024: END IF;
2025:
2026: -- store SQL error message on message stack
2027: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2047: p_clev_rec IN clev_rec_type) is
2048: Begin
2049:
2050: IF (l_debug = 'Y') THEN
2051: okc_debug.Set_Indentation('OKC_CLE_PVT');
2052: okc_debug.log('9000: Entered validate_config_item_type', 2);
2053: END IF;
2054:
2055: -- initialize return status
2048: Begin
2049:
2050: IF (l_debug = 'Y') THEN
2051: okc_debug.Set_Indentation('OKC_CLE_PVT');
2052: okc_debug.log('9000: Entered validate_config_item_type', 2);
2053: END IF;
2054:
2055: -- initialize return status
2056: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2073: end if;
2074: End If;
2075:
2076: IF (l_debug = 'Y') THEN
2077: okc_debug.log('9100: Leaving validate_config_item_type with return status '||x_return_status, 2);
2078: okc_debug.Reset_Indentation;
2079: END IF;
2080:
2081: exception
2074: End If;
2075:
2076: IF (l_debug = 'Y') THEN
2077: okc_debug.log('9100: Leaving validate_config_item_type with return status '||x_return_status, 2);
2078: okc_debug.Reset_Indentation;
2079: END IF;
2080:
2081: exception
2082: when G_EXCEPTION_HALT_VALIDATION then
2081: exception
2082: when G_EXCEPTION_HALT_VALIDATION then
2083:
2084: IF (l_debug = 'Y') THEN
2085: okc_debug.log('9200: Exiting validate_config_item_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2086: okc_debug.Reset_Indentation;
2087: END IF;
2088:
2089: -- no processing necessary; validation can continue with next column
2082: when G_EXCEPTION_HALT_VALIDATION then
2083:
2084: IF (l_debug = 'Y') THEN
2085: okc_debug.log('9200: Exiting validate_config_item_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2086: okc_debug.Reset_Indentation;
2087: END IF;
2088:
2089: -- no processing necessary; validation can continue with next column
2090: null;
2091:
2092: when OTHERS then
2093:
2094: IF (l_debug = 'Y') THEN
2095: okc_debug.log('9300: Exiting validate_config_item_type:OTHERS Exception', 2);
2096: okc_debug.Reset_Indentation;
2097: END IF;
2098:
2099: -- store SQL error message on message stack
2092: when OTHERS then
2093:
2094: IF (l_debug = 'Y') THEN
2095: okc_debug.log('9300: Exiting validate_config_item_type:OTHERS Exception', 2);
2096: okc_debug.Reset_Indentation;
2097: END IF;
2098:
2099: -- store SQL error message on message stack
2100: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2146: -- and currency_code = p_clev_rec.currency_code;
2147: Begin
2148:
2149: IF (l_debug = 'Y') THEN
2150: okc_debug.Set_Indentation('OKC_CLE_PVT');
2151: okc_debug.log('9400: Entered validate_price_list_id', 2);
2152: END IF;
2153:
2154: -- initialize return status
2147: Begin
2148:
2149: IF (l_debug = 'Y') THEN
2150: okc_debug.Set_Indentation('OKC_CLE_PVT');
2151: okc_debug.log('9400: Entered validate_price_list_id', 2);
2152: END IF;
2153:
2154: -- initialize return status
2155: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2177: End If;
2178: End If;
2179:
2180: IF (l_debug = 'Y') THEN
2181: okc_debug.log('9500: Leaving validate_price_list_id with return status '||x_return_status, 2);
2182: okc_debug.Reset_Indentation;
2183: END IF;
2184:
2185: exception
2178: End If;
2179:
2180: IF (l_debug = 'Y') THEN
2181: okc_debug.log('9500: Leaving validate_price_list_id with return status '||x_return_status, 2);
2182: okc_debug.Reset_Indentation;
2183: END IF;
2184:
2185: exception
2186: when OTHERS then
2185: exception
2186: when OTHERS then
2187:
2188: IF (l_debug = 'Y') THEN
2189: okc_debug.log('9600: Exiting validate_price_list_id:OTHERS Exception', 2);
2190: okc_debug.Reset_Indentation;
2191: END IF;
2192:
2193: -- store SQL error message on message stack
2186: when OTHERS then
2187:
2188: IF (l_debug = 'Y') THEN
2189: okc_debug.log('9600: Exiting validate_price_list_id:OTHERS Exception', 2);
2190: okc_debug.Reset_Indentation;
2191: END IF;
2192:
2193: -- store SQL error message on message stack
2194: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2237:
2238: Begin
2239:
2240: IF (l_debug = 'Y') THEN
2241: okc_debug.Set_Indentation('OKC_CLE_PVT');
2242: okc_debug.log('9700: Entered validate_price_list_line_id', 2);
2243: END IF;
2244:
2245: -- initialize return status
2238: Begin
2239:
2240: IF (l_debug = 'Y') THEN
2241: okc_debug.Set_Indentation('OKC_CLE_PVT');
2242: okc_debug.log('9700: Entered validate_price_list_line_id', 2);
2243: END IF;
2244:
2245: -- initialize return status
2246: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2268: End If;
2269: End If;
2270:
2271: IF (l_debug = 'Y') THEN
2272: okc_debug.log('9800: Leaving validate_price_list_line_id with return status '||x_return_status, 2);
2273: okc_debug.Reset_Indentation;
2274: END IF;
2275:
2276: exception
2269: End If;
2270:
2271: IF (l_debug = 'Y') THEN
2272: okc_debug.log('9800: Leaving validate_price_list_line_id with return status '||x_return_status, 2);
2273: okc_debug.Reset_Indentation;
2274: END IF;
2275:
2276: exception
2277: when OTHERS then
2276: exception
2277: when OTHERS then
2278:
2279: IF (l_debug = 'Y') THEN
2280: okc_debug.log('9900: Exiting validate_price_list_line_id:OTHERS Exception', 2);
2281: okc_debug.Reset_Indentation;
2282: END IF;
2283:
2284: -- store SQL error message on message stack
2277: when OTHERS then
2278:
2279: IF (l_debug = 'Y') THEN
2280: okc_debug.log('9900: Exiting validate_price_list_line_id:OTHERS Exception', 2);
2281: okc_debug.Reset_Indentation;
2282: END IF;
2283:
2284: -- store SQL error message on message stack
2285: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2317: AND CONFIG_ITEM_TYPE = 'TOP_MODEL_LINE';
2318: Begin
2319:
2320: IF (l_debug = 'Y') THEN
2321: okc_debug.Set_Indentation('OKC_CLE_PVT');
2322: okc_debug.log('10000: Entered validate_conf_top_mod_ln_id', 2);
2323: END IF;
2324:
2325: -- initialize return status
2318: Begin
2319:
2320: IF (l_debug = 'Y') THEN
2321: okc_debug.Set_Indentation('OKC_CLE_PVT');
2322: okc_debug.log('10000: Entered validate_conf_top_mod_ln_id', 2);
2323: END IF;
2324:
2325: -- initialize return status
2326: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2348: End If;
2349: End If;
2350:
2351: IF (l_debug = 'Y') THEN
2352: okc_debug.log('10100: Leaving validate_conf_top_mod_ln_id with return status '||x_return_status, 2);
2353: okc_debug.Reset_Indentation;
2354: END IF;
2355:
2356: exception
2349: End If;
2350:
2351: IF (l_debug = 'Y') THEN
2352: okc_debug.log('10100: Leaving validate_conf_top_mod_ln_id with return status '||x_return_status, 2);
2353: okc_debug.Reset_Indentation;
2354: END IF;
2355:
2356: exception
2357: when OTHERS then
2356: exception
2357: when OTHERS then
2358:
2359: IF (l_debug = 'Y') THEN
2360: okc_debug.log('10200: Exiting validate_conf_top_mod_ln_id:OTHERS Exception', 2);
2361: okc_debug.Reset_Indentation;
2362: END IF;
2363:
2364: -- store SQL error message on message stack
2357: when OTHERS then
2358:
2359: IF (l_debug = 'Y') THEN
2360: okc_debug.log('10200: Exiting validate_conf_top_mod_ln_id:OTHERS Exception', 2);
2361: okc_debug.Reset_Indentation;
2362: END IF;
2363:
2364: -- store SQL error message on message stack
2365: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2390: WHERE LOOKUP_CODE = p_clev_rec.ph_pricing_type
2391: AND LOOKUP_TYPE='OKC_PH_LINE_PRICE_TYPE';
2392: BEGIN
2393: IF (l_debug = 'Y') THEN
2394: okc_debug.Set_Indentation('OKC_CLE_PVT');
2395: okc_debug.log('10000: Entered validate_ph_pricing_type', 2);
2396: END IF;
2397:
2398: -- initialize return status
2391: AND LOOKUP_TYPE='OKC_PH_LINE_PRICE_TYPE';
2392: BEGIN
2393: IF (l_debug = 'Y') THEN
2394: okc_debug.Set_Indentation('OKC_CLE_PVT');
2395: okc_debug.log('10000: Entered validate_ph_pricing_type', 2);
2396: END IF;
2397:
2398: -- initialize return status
2399: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2418: END IF;
2419: END IF;
2420:
2421: IF (l_debug = 'Y') THEN
2422: okc_debug.log('10100: Leaving validate_ph_pricing_type with return status '||x_return_status, 2);
2423: okc_debug.Reset_Indentation;
2424: END IF;
2425:
2426: EXCEPTION
2419: END IF;
2420:
2421: IF (l_debug = 'Y') THEN
2422: okc_debug.log('10100: Leaving validate_ph_pricing_type with return status '||x_return_status, 2);
2423: okc_debug.Reset_Indentation;
2424: END IF;
2425:
2426: EXCEPTION
2427: when G_EXCEPTION_HALT_VALIDATION then
2426: EXCEPTION
2427: when G_EXCEPTION_HALT_VALIDATION then
2428:
2429: IF (l_debug = 'Y') THEN
2430: okc_debug.log('8400: Exiting validate_item_to_price_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2431: okc_debug.Reset_Indentation;
2432: END IF;
2433:
2434: -- no processing necessary; validation can continue with next column
2427: when G_EXCEPTION_HALT_VALIDATION then
2428:
2429: IF (l_debug = 'Y') THEN
2430: okc_debug.log('8400: Exiting validate_item_to_price_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2431: okc_debug.Reset_Indentation;
2432: END IF;
2433:
2434: -- no processing necessary; validation can continue with next column
2435: null;
2436:
2437: WHEN OTHERS THEN
2438:
2439: IF (l_debug = 'Y') THEN
2440: okc_debug.log('10200: Exiting validate_ph_pricing_type:OTHERS Exception', 2);
2441: okc_debug.Reset_Indentation;
2442: END IF;
2443:
2444: -- store SQL error message on message stack
2437: WHEN OTHERS THEN
2438:
2439: IF (l_debug = 'Y') THEN
2440: okc_debug.log('10200: Exiting validate_ph_pricing_type:OTHERS Exception', 2);
2441: okc_debug.Reset_Indentation;
2442: END IF;
2443:
2444: -- store SQL error message on message stack
2445: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
2463: WHERE LOOKUP_CODE = p_clev_rec.ph_price_break_basis
2464: AND LOOKUP_TYPE='OKC_PH_PRICE_BREAK_BASIS';
2465: BEGIN
2466: IF (l_debug = 'Y') THEN
2467: okc_debug.Set_Indentation('OKC_CLE_PVT');
2468: okc_debug.log('10000: Entered validate_ph_price_break_basis', 2);
2469: END IF;
2470:
2471: -- initialize return status
2464: AND LOOKUP_TYPE='OKC_PH_PRICE_BREAK_BASIS';
2465: BEGIN
2466: IF (l_debug = 'Y') THEN
2467: okc_debug.Set_Indentation('OKC_CLE_PVT');
2468: okc_debug.log('10000: Entered validate_ph_price_break_basis', 2);
2469: END IF;
2470:
2471: -- initialize return status
2472: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2491: END IF;
2492: END IF;
2493:
2494: IF (l_debug = 'Y') THEN
2495: okc_debug.log('10100: Leaving validate_ph_price_break_basis with return status '||x_return_status, 2);
2496: okc_debug.Reset_Indentation;
2497: END IF;
2498:
2499: EXCEPTION
2492: END IF;
2493:
2494: IF (l_debug = 'Y') THEN
2495: okc_debug.log('10100: Leaving validate_ph_price_break_basis with return status '||x_return_status, 2);
2496: okc_debug.Reset_Indentation;
2497: END IF;
2498:
2499: EXCEPTION
2500: when G_EXCEPTION_HALT_VALIDATION then
2499: EXCEPTION
2500: when G_EXCEPTION_HALT_VALIDATION then
2501:
2502: IF (l_debug = 'Y') THEN
2503: okc_debug.log('8400: Exiting validate_item_to_price_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2504: okc_debug.Reset_Indentation;
2505: END IF;
2506:
2507: -- no processing necessary; validation can continue with next column
2500: when G_EXCEPTION_HALT_VALIDATION then
2501:
2502: IF (l_debug = 'Y') THEN
2503: okc_debug.log('8400: Exiting validate_item_to_price_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2504: okc_debug.Reset_Indentation;
2505: END IF;
2506:
2507: -- no processing necessary; validation can continue with next column
2508: null;
2509:
2510: WHEN OTHERS THEN
2511:
2512: IF (l_debug = 'Y') THEN
2513: okc_debug.log('10200: Exiting validate_ph_price_break_basis:OTHERS Exception', 2);
2514: okc_debug.Reset_Indentation;
2515: END IF;
2516:
2517: -- store SQL error message on message stack
2510: WHEN OTHERS THEN
2511:
2512: IF (l_debug = 'Y') THEN
2513: okc_debug.log('10200: Exiting validate_ph_price_break_basis:OTHERS Exception', 2);
2514: okc_debug.Reset_Indentation;
2515: END IF;
2516:
2517: -- store SQL error message on message stack
2518: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
2539: FROM QP_LIST_LINES
2540: WHERE LIST_LINE_ID = p_clev_rec.ph_qp_reference_id;
2541: BEGIN
2542: IF (l_debug = 'Y') THEN
2543: okc_debug.Set_Indentation('OKC_CLE_PVT');
2544: okc_debug.log('10000: Entered validate_ph_qp_reference_id', 2);
2545: END IF;
2546:
2547: -- initialize return status
2540: WHERE LIST_LINE_ID = p_clev_rec.ph_qp_reference_id;
2541: BEGIN
2542: IF (l_debug = 'Y') THEN
2543: okc_debug.Set_Indentation('OKC_CLE_PVT');
2544: okc_debug.log('10000: Entered validate_ph_qp_reference_id', 2);
2545: END IF;
2546:
2547: -- initialize return status
2548: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2573: END IF;
2574: END IF;
2575:
2576: IF (l_debug = 'Y') THEN
2577: okc_debug.log('10100: Leaving validate_ph_qp_reference_id with return status '||x_return_status, 2);
2578: okc_debug.Reset_Indentation;
2579: END IF;
2580:
2581: EXCEPTION
2574: END IF;
2575:
2576: IF (l_debug = 'Y') THEN
2577: okc_debug.log('10100: Leaving validate_ph_qp_reference_id with return status '||x_return_status, 2);
2578: okc_debug.Reset_Indentation;
2579: END IF;
2580:
2581: EXCEPTION
2582: when G_EXCEPTION_HALT_VALIDATION then
2581: EXCEPTION
2582: when G_EXCEPTION_HALT_VALIDATION then
2583:
2584: IF (l_debug = 'Y') THEN
2585: okc_debug.log('8400: Exiting validate_item_to_price_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2586: okc_debug.Reset_Indentation;
2587: END IF;
2588:
2589: -- no processing necessary; validation can continue with next column
2582: when G_EXCEPTION_HALT_VALIDATION then
2583:
2584: IF (l_debug = 'Y') THEN
2585: okc_debug.log('8400: Exiting validate_item_to_price_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2586: okc_debug.Reset_Indentation;
2587: END IF;
2588:
2589: -- no processing necessary; validation can continue with next column
2590: null;
2591:
2592: WHEN OTHERS THEN
2593:
2594: IF (l_debug = 'Y') THEN
2595: okc_debug.log('10200: Exiting validate_ph_qp_reference_id:OTHERS Exception', 2);
2596: okc_debug.Reset_Indentation;
2597: END IF;
2598:
2599: -- store SQL error message on message stack
2592: WHEN OTHERS THEN
2593:
2594: IF (l_debug = 'Y') THEN
2595: okc_debug.log('10200: Exiting validate_ph_qp_reference_id:OTHERS Exception', 2);
2596: okc_debug.Reset_Indentation;
2597: END IF;
2598:
2599: -- store SQL error message on message stack
2600: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
2613: p_clev_rec IN clev_rec_type) is
2614: Begin
2615:
2616: IF (l_debug = 'Y') THEN
2617: okc_debug.Set_Indentation('OKC_CLE_PVT');
2618: okc_debug.log('8200: Entered validate_ph_enforce_price_list_yn', 2);
2619: END IF;
2620:
2621: -- initialize return status
2614: Begin
2615:
2616: IF (l_debug = 'Y') THEN
2617: okc_debug.Set_Indentation('OKC_CLE_PVT');
2618: okc_debug.log('8200: Entered validate_ph_enforce_price_list_yn', 2);
2619: END IF;
2620:
2621: -- initialize return status
2622: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2638: end if;
2639: End If;
2640:
2641: IF (l_debug = 'Y') THEN
2642: okc_debug.log('8300: Leaving validate_ph_enforce_price_list_yn with return status '||x_return_status, 2);
2643: okc_debug.Reset_Indentation;
2644: END IF;
2645:
2646: exception
2639: End If;
2640:
2641: IF (l_debug = 'Y') THEN
2642: okc_debug.log('8300: Leaving validate_ph_enforce_price_list_yn with return status '||x_return_status, 2);
2643: okc_debug.Reset_Indentation;
2644: END IF;
2645:
2646: exception
2647: when G_EXCEPTION_HALT_VALIDATION then
2646: exception
2647: when G_EXCEPTION_HALT_VALIDATION then
2648:
2649: IF (l_debug = 'Y') THEN
2650: okc_debug.log('8400: Exiting validate_ph_enforce_price_list_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2651: okc_debug.Reset_Indentation;
2652: END IF;
2653:
2654: -- no processing necessary; validation can continue with next column
2647: when G_EXCEPTION_HALT_VALIDATION then
2648:
2649: IF (l_debug = 'Y') THEN
2650: okc_debug.log('8400: Exiting validate_ph_enforce_price_list_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2651: okc_debug.Reset_Indentation;
2652: END IF;
2653:
2654: -- no processing necessary; validation can continue with next column
2655: null;
2656:
2657: when OTHERS then
2658:
2659: IF (l_debug = 'Y') THEN
2660: okc_debug.log('8500: Exiting validate_ph_enforce_price_list_yn:OTHERS Exception', 2);
2661: okc_debug.Reset_Indentation;
2662: END IF;
2663:
2664: -- store SQL error message on message stack
2657: when OTHERS then
2658:
2659: IF (l_debug = 'Y') THEN
2660: okc_debug.log('8500: Exiting validate_ph_enforce_price_list_yn:OTHERS Exception', 2);
2661: okc_debug.Reset_Indentation;
2662: END IF;
2663:
2664: -- store SQL error message on message stack
2665: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2680: p_clev_rec IN clev_rec_type) is
2681: Begin
2682:
2683: IF (l_debug = 'Y') THEN
2684: okc_debug.Set_Indentation('OKC_CLE_PVT');
2685: okc_debug.log('8200: Entered validate_ph_integrated_with_qp', 2);
2686: END IF;
2687:
2688: -- initialize return status
2681: Begin
2682:
2683: IF (l_debug = 'Y') THEN
2684: okc_debug.Set_Indentation('OKC_CLE_PVT');
2685: okc_debug.log('8200: Entered validate_ph_integrated_with_qp', 2);
2686: END IF;
2687:
2688: -- initialize return status
2689: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2705: end if;
2706: End If;
2707:
2708: IF (l_debug = 'Y') THEN
2709: okc_debug.log('8300: Leaving validate_ph_integrated_with_qp with return status '||x_return_status, 2);
2710: okc_debug.Reset_Indentation;
2711: END IF;
2712:
2713: exception
2706: End If;
2707:
2708: IF (l_debug = 'Y') THEN
2709: okc_debug.log('8300: Leaving validate_ph_integrated_with_qp with return status '||x_return_status, 2);
2710: okc_debug.Reset_Indentation;
2711: END IF;
2712:
2713: exception
2714: when G_EXCEPTION_HALT_VALIDATION then
2713: exception
2714: when G_EXCEPTION_HALT_VALIDATION then
2715:
2716: IF (l_debug = 'Y') THEN
2717: okc_debug.log('8400: Exiting validate_ph_integrated_with_qp:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2718: okc_debug.Reset_Indentation;
2719: END IF;
2720:
2721: -- no processing necessary; validation can continue with next column
2714: when G_EXCEPTION_HALT_VALIDATION then
2715:
2716: IF (l_debug = 'Y') THEN
2717: okc_debug.log('8400: Exiting validate_ph_integrated_with_qp:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2718: okc_debug.Reset_Indentation;
2719: END IF;
2720:
2721: -- no processing necessary; validation can continue with next column
2722: null;
2723:
2724: when OTHERS then
2725:
2726: IF (l_debug = 'Y') THEN
2727: okc_debug.log('8500: Exiting validate_ph_integrated_with_qp:OTHERS Exception', 2);
2728: okc_debug.Reset_Indentation;
2729: END IF;
2730:
2731: -- store SQL error message on message stack
2724: when OTHERS then
2725:
2726: IF (l_debug = 'Y') THEN
2727: okc_debug.log('8500: Exiting validate_ph_integrated_with_qp:OTHERS Exception', 2);
2728: okc_debug.Reset_Indentation;
2729: END IF;
2730:
2731: -- store SQL error message on message stack
2732: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2785: PROCEDURE add_language IS
2786: BEGIN
2787:
2788: IF (l_debug = 'Y') THEN
2789: okc_debug.Set_Indentation('OKC_CLE_PVT');
2790: okc_debug.log('10700: Entered add_language', 2);
2791: END IF;
2792:
2793: /* Mar/19/03 requested by Ric Ginsberg */
2786: BEGIN
2787:
2788: IF (l_debug = 'Y') THEN
2789: okc_debug.Set_Indentation('OKC_CLE_PVT');
2790: okc_debug.log('10700: Entered add_language', 2);
2791: END IF;
2792:
2793: /* Mar/19/03 requested by Ric Ginsberg */
2794: /* The following delete and update statements are commented out */
2996: AND t.id IS NULL;
2997:
2998:
2999: IF (l_debug = 'Y') THEN
3000: okc_debug.log('10750: Leaving add_language ', 2);
3001: okc_debug.Reset_Indentation;
3002: END IF;
3003:
3004: END add_language;
2997:
2998:
2999: IF (l_debug = 'Y') THEN
3000: okc_debug.log('10750: Leaving add_language ', 2);
3001: okc_debug.Reset_Indentation;
3002: END IF;
3003:
3004: END add_language;
3005:
3114: l_cle_rec cle_rec_type;
3115: BEGIN
3116:
3117: IF (l_debug = 'Y') THEN
3118: okc_debug.Set_Indentation('OKC_CLE_PVT');
3119: okc_debug.log('10800: Entered get_rec', 2);
3120: END IF;
3121:
3122: x_no_data_found := TRUE;
3115: BEGIN
3116:
3117: IF (l_debug = 'Y') THEN
3118: okc_debug.Set_Indentation('OKC_CLE_PVT');
3119: okc_debug.log('10800: Entered get_rec', 2);
3120: END IF;
3121:
3122: x_no_data_found := TRUE;
3123: -- Get current database values
3222: x_no_data_found := cle_pk_csr%NOTFOUND;
3223: CLOSE cle_pk_csr;
3224:
3225: IF (l_debug = 'Y') THEN
3226: okc_debug.log('10850: Leaving Fn get_rec ', 2);
3227: okc_debug.Reset_Indentation;
3228: END IF;
3229:
3230: RETURN(l_cle_rec);
3223: CLOSE cle_pk_csr;
3224:
3225: IF (l_debug = 'Y') THEN
3226: okc_debug.log('10850: Leaving Fn get_rec ', 2);
3227: okc_debug.Reset_Indentation;
3228: END IF;
3229:
3230: RETURN(l_cle_rec);
3231:
3272: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
3273: BEGIN
3274:
3275: IF (l_debug = 'Y') THEN
3276: okc_debug.Set_Indentation('OKC_CLE_PVT');
3277: okc_debug.log('11000: Entered get_rec', 2);
3278: END IF;
3279:
3280: x_no_data_found := TRUE;
3273: BEGIN
3274:
3275: IF (l_debug = 'Y') THEN
3276: okc_debug.Set_Indentation('OKC_CLE_PVT');
3277: okc_debug.log('11000: Entered get_rec', 2);
3278: END IF;
3279:
3280: x_no_data_found := TRUE;
3281: -- Get current database values
3300: x_no_data_found := cle_pktl_csr%NOTFOUND;
3301: CLOSE cle_pktl_csr;
3302:
3303: IF (l_debug = 'Y') THEN
3304: okc_debug.log('11050: Leaving Fn get_rec ', 2);
3305: okc_debug.Reset_Indentation;
3306: END IF;
3307:
3308: RETURN(l_okc_k_lines_tl_rec);
3301: CLOSE cle_pktl_csr;
3302:
3303: IF (l_debug = 'Y') THEN
3304: okc_debug.log('11050: Leaving Fn get_rec ', 2);
3305: okc_debug.Reset_Indentation;
3306: END IF;
3307:
3308: RETURN(l_okc_k_lines_tl_rec);
3309:
3435: l_clev_rec clev_rec_type;
3436: BEGIN
3437:
3438: IF (l_debug = 'Y') THEN
3439: okc_debug.Set_Indentation('OKC_CLE_PVT');
3440: okc_debug.log('11200: Entered get_rec', 2);
3441: END IF;
3442:
3443: x_no_data_found := TRUE;
3436: BEGIN
3437:
3438: IF (l_debug = 'Y') THEN
3439: okc_debug.Set_Indentation('OKC_CLE_PVT');
3440: okc_debug.log('11200: Entered get_rec', 2);
3441: END IF;
3442:
3443: x_no_data_found := TRUE;
3444: -- Get current database values
3549: x_no_data_found := okc_clev_pk_csr%NOTFOUND;
3550: CLOSE okc_clev_pk_csr;
3551:
3552: IF (l_debug = 'Y') THEN
3553: okc_debug.log('11250: Leaving Fn get_rec ', 2);
3554: okc_debug.Reset_Indentation;
3555: END IF;
3556:
3557: RETURN(l_clev_rec);
3550: CLOSE okc_clev_pk_csr;
3551:
3552: IF (l_debug = 'Y') THEN
3553: okc_debug.log('11250: Leaving Fn get_rec ', 2);
3554: okc_debug.Reset_Indentation;
3555: END IF;
3556:
3557: RETURN(l_clev_rec);
3558:
3577: l_clev_rec clev_rec_type := p_clev_rec;
3578: BEGIN
3579:
3580: IF (l_debug = 'Y') THEN
3581: okc_debug.Set_Indentation('OKC_CLE_PVT');
3582: okc_debug.log('11400: Entered null_out_defaults', 2);
3583: END IF;
3584:
3585: IF (l_clev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3578: BEGIN
3579:
3580: IF (l_debug = 'Y') THEN
3581: okc_debug.Set_Indentation('OKC_CLE_PVT');
3582: okc_debug.log('11400: Entered null_out_defaults', 2);
3583: END IF;
3584:
3585: IF (l_clev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3586: l_clev_rec.object_version_number := NULL;
3885: END IF;
3886:
3887: --
3888: IF (l_debug = 'Y') THEN
3889: okc_debug.log('11450: Leaving Fn null_out_defaults ', 2);
3890: okc_debug.Reset_Indentation;
3891: END IF;
3892:
3893: RETURN(l_clev_rec);
3886:
3887: --
3888: IF (l_debug = 'Y') THEN
3889: okc_debug.log('11450: Leaving Fn null_out_defaults ', 2);
3890: okc_debug.Reset_Indentation;
3891: END IF;
3892:
3893: RETURN(l_clev_rec);
3894:
3916:
3917: BEGIN
3918:
3919: IF (l_debug = 'Y') THEN
3920: okc_debug.Set_Indentation('OKC_CLE_PVT');
3921: okc_debug.log('11500: Entered Validate_Attributes', 2);
3922: END IF;
3923:
3924: /************************ HAND-CODED *********************************/
3917: BEGIN
3918:
3919: IF (l_debug = 'Y') THEN
3920: okc_debug.Set_Indentation('OKC_CLE_PVT');
3921: okc_debug.log('11500: Entered Validate_Attributes', 2);
3922: END IF;
3923:
3924: /************************ HAND-CODED *********************************/
3925: validate_line_number
4263: -- return status to caller
4264: RETURN(x_return_status);
4265:
4266: IF (l_debug = 'Y') THEN
4267: okc_debug.log('11600: Exiting Validate_Attributes', 2);
4268: okc_debug.Reset_Indentation;
4269: END IF;
4270:
4271: exception
4264: RETURN(x_return_status);
4265:
4266: IF (l_debug = 'Y') THEN
4267: okc_debug.log('11600: Exiting Validate_Attributes', 2);
4268: okc_debug.Reset_Indentation;
4269: END IF;
4270:
4271: exception
4272: when OTHERS then
4271: exception
4272: when OTHERS then
4273:
4274: IF (l_debug = 'Y') THEN
4275: okc_debug.log('11700: Exiting Validate_Attributes:OTHERS Exception', 2);
4276: okc_debug.Reset_Indentation;
4277: END IF;
4278:
4279: -- store SQL error message on message stack
4272: when OTHERS then
4273:
4274: IF (l_debug = 'Y') THEN
4275: okc_debug.log('11700: Exiting Validate_Attributes:OTHERS Exception', 2);
4276: okc_debug.Reset_Indentation;
4277: END IF;
4278:
4279: -- store SQL error message on message stack
4280: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
4326: l_end_date DATE;
4327: BEGIN
4328:
4329: IF (l_debug = 'Y') THEN
4330: okc_debug.Set_Indentation('OKC_CLE_PVT');
4331: okc_debug.log('11800: Entered Validate_Record', 2);
4332: END IF;
4333:
4334: /************************ HAND-CODED ****************************/
4327: BEGIN
4328:
4329: IF (l_debug = 'Y') THEN
4330: okc_debug.Set_Indentation('OKC_CLE_PVT');
4331: okc_debug.log('11800: Entered Validate_Record', 2);
4332: END IF;
4333:
4334: /************************ HAND-CODED ****************************/
4335: -- CHR_ID and CLE_ID are mutually exclusive
4370:
4371: /*********************** END HAND-CODED *************************/
4372:
4373: IF (l_debug = 'Y') THEN
4374: okc_debug.log('11850: Exiting Validate_Record ', 2);
4375: okc_debug.Reset_Indentation;
4376: END IF;
4377:
4378: RETURN (l_return_status);
4371: /*********************** END HAND-CODED *************************/
4372:
4373: IF (l_debug = 'Y') THEN
4374: okc_debug.log('11850: Exiting Validate_Record ', 2);
4375: okc_debug.Reset_Indentation;
4376: END IF;
4377:
4378: RETURN (l_return_status);
4379:
4669: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
4670: BEGIN
4671:
4672: IF (l_debug = 'Y') THEN
4673: okc_debug.Set_Indentation('OKC_CLE_PVT');
4674: okc_debug.log('12300: Entered validate_row', 2);
4675: END IF;
4676:
4677: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4670: BEGIN
4671:
4672: IF (l_debug = 'Y') THEN
4673: okc_debug.Set_Indentation('OKC_CLE_PVT');
4674: okc_debug.log('12300: Entered validate_row', 2);
4675: END IF;
4676:
4677: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4678: G_PKG_NAME,
4706: END IF;
4707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4708:
4709: IF (l_debug = 'Y') THEN
4710: okc_debug.log('12400: Exiting validate_row', 2);
4711: okc_debug.Reset_Indentation;
4712: END IF;
4713:
4714: EXCEPTION
4707: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4708:
4709: IF (l_debug = 'Y') THEN
4710: okc_debug.log('12400: Exiting validate_row', 2);
4711: okc_debug.Reset_Indentation;
4712: END IF;
4713:
4714: EXCEPTION
4715: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4714: EXCEPTION
4715: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4716:
4717: IF (l_debug = 'Y') THEN
4718: okc_debug.log('12500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4719: okc_debug.Reset_Indentation;
4720: END IF;
4721:
4722: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4715: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4716:
4717: IF (l_debug = 'Y') THEN
4718: okc_debug.log('12500: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4719: okc_debug.Reset_Indentation;
4720: END IF;
4721:
4722: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4723: (
4730: );
4731: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4732:
4733: IF (l_debug = 'Y') THEN
4734: okc_debug.log('12600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4735: okc_debug.Reset_Indentation;
4736: END IF;
4737:
4738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4731: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4732:
4733: IF (l_debug = 'Y') THEN
4734: okc_debug.log('12600: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4735: okc_debug.Reset_Indentation;
4736: END IF;
4737:
4738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4739: (
4746: );
4747: WHEN OTHERS THEN
4748:
4749: IF (l_debug = 'Y') THEN
4750: okc_debug.log('12700: Exiting validate_row:OTHERS Exception', 2);
4751: okc_debug.Reset_Indentation;
4752: END IF;
4753:
4754: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4747: WHEN OTHERS THEN
4748:
4749: IF (l_debug = 'Y') THEN
4750: okc_debug.log('12700: Exiting validate_row:OTHERS Exception', 2);
4751: okc_debug.Reset_Indentation;
4752: END IF;
4753:
4754: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4755: (
4780: i NUMBER := 0;
4781: BEGIN
4782:
4783: IF (l_debug = 'Y') THEN
4784: okc_debug.Set_Indentation('OKC_CLE_PVT');
4785: okc_debug.log('12800: Entered validate_row', 2);
4786: END IF;
4787:
4788: OKC_API.init_msg_list(p_init_msg_list);
4781: BEGIN
4782:
4783: IF (l_debug = 'Y') THEN
4784: okc_debug.Set_Indentation('OKC_CLE_PVT');
4785: okc_debug.log('12800: Entered validate_row', 2);
4786: END IF;
4787:
4788: OKC_API.init_msg_list(p_init_msg_list);
4789: -- Make sure PL/SQL table has records in it before passing
4812: x_return_status := l_overall_status;
4813: END IF;
4814:
4815: IF (l_debug = 'Y') THEN
4816: okc_debug.log('12900: Exiting validate_row', 2);
4817: okc_debug.Reset_Indentation;
4818: END IF;
4819:
4820: EXCEPTION
4813: END IF;
4814:
4815: IF (l_debug = 'Y') THEN
4816: okc_debug.log('12900: Exiting validate_row', 2);
4817: okc_debug.Reset_Indentation;
4818: END IF;
4819:
4820: EXCEPTION
4821: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4820: EXCEPTION
4821: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4822:
4823: IF (l_debug = 'Y') THEN
4824: okc_debug.log('13000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4825: okc_debug.Reset_Indentation;
4826: END IF;
4827:
4828: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4821: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4822:
4823: IF (l_debug = 'Y') THEN
4824: okc_debug.log('13000: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4825: okc_debug.Reset_Indentation;
4826: END IF;
4827:
4828: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4829: (
4836: );
4837: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4838:
4839: IF (l_debug = 'Y') THEN
4840: okc_debug.log('13100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4841: okc_debug.Reset_Indentation;
4842: END IF;
4843:
4844: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4837: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4838:
4839: IF (l_debug = 'Y') THEN
4840: okc_debug.log('13100: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4841: okc_debug.Reset_Indentation;
4842: END IF;
4843:
4844: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4845: (
4852: );
4853: WHEN OTHERS THEN
4854:
4855: IF (l_debug = 'Y') THEN
4856: okc_debug.log('13200: Exiting validate_row:OTHERS Exception', 2);
4857: okc_debug.Reset_Indentation;
4858: END IF;
4859:
4860: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4853: WHEN OTHERS THEN
4854:
4855: IF (l_debug = 'Y') THEN
4856: okc_debug.log('13200: Exiting validate_row:OTHERS Exception', 2);
4857: okc_debug.Reset_Indentation;
4858: END IF;
4859:
4860: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4861: (
4904: END Set_Attributes;
4905: BEGIN
4906:
4907: IF (l_debug = 'Y') THEN
4908: okc_debug.Set_Indentation('OKC_CLE_PVT');
4909: okc_debug.log('13400: Entered insert_row', 2);
4910: END IF;
4911:
4912: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4905: BEGIN
4906:
4907: IF (l_debug = 'Y') THEN
4908: okc_debug.Set_Indentation('OKC_CLE_PVT');
4909: okc_debug.log('13400: Entered insert_row', 2);
4910: END IF;
4911:
4912: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4913: p_init_msg_list,
5141: x_cle_rec := l_cle_rec;
5142: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5143:
5144: IF (l_debug = 'Y') THEN
5145: okc_debug.log('13500: Exiting insert_row', 2);
5146: okc_debug.Reset_Indentation;
5147: END IF;
5148:
5149: EXCEPTION
5142: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5143:
5144: IF (l_debug = 'Y') THEN
5145: okc_debug.log('13500: Exiting insert_row', 2);
5146: okc_debug.Reset_Indentation;
5147: END IF;
5148:
5149: EXCEPTION
5150: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5149: EXCEPTION
5150: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5151:
5152: IF (l_debug = 'Y') THEN
5153: okc_debug.log('13600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5154: okc_debug.Reset_Indentation;
5155: END IF;
5156:
5157: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5150: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5151:
5152: IF (l_debug = 'Y') THEN
5153: okc_debug.log('13600: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5154: okc_debug.Reset_Indentation;
5155: END IF;
5156:
5157: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5158: (
5165: );
5166: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5167:
5168: IF (l_debug = 'Y') THEN
5169: okc_debug.log('13700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5170: okc_debug.Reset_Indentation;
5171: END IF;
5172:
5173: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5166: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5167:
5168: IF (l_debug = 'Y') THEN
5169: okc_debug.log('13700: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5170: okc_debug.Reset_Indentation;
5171: END IF;
5172:
5173: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5174: (
5181: );
5182: WHEN OTHERS THEN
5183:
5184: IF (l_debug = 'Y') THEN
5185: okc_debug.log('13800: Exiting insert_row:OTHERS Exception', 2);
5186: okc_debug.Reset_Indentation;
5187: END IF;
5188:
5189: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5182: WHEN OTHERS THEN
5183:
5184: IF (l_debug = 'Y') THEN
5185: okc_debug.log('13800: Exiting insert_row:OTHERS Exception', 2);
5186: okc_debug.Reset_Indentation;
5187: END IF;
5188:
5189: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5190: (
5236: END Set_Attributes;
5237: BEGIN
5238:
5239: IF (l_debug = 'Y') THEN
5240: okc_debug.Set_Indentation('OKC_CLE_PVT');
5241: okc_debug.log('14000: Entered insert_row', 2);
5242: END IF;
5243:
5244: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5237: BEGIN
5238:
5239: IF (l_debug = 'Y') THEN
5240: okc_debug.Set_Indentation('OKC_CLE_PVT');
5241: okc_debug.log('14000: Entered insert_row', 2);
5242: END IF;
5243:
5244: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5245: p_init_msg_list,
5299: x_okc_k_lines_tl_rec := l_okc_k_lines_tl_rec;
5300: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5301:
5302: IF (l_debug = 'Y') THEN
5303: okc_debug.log('14100: Exiting insert_row', 2);
5304: okc_debug.Reset_Indentation;
5305: END IF;
5306:
5307: EXCEPTION
5300: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5301:
5302: IF (l_debug = 'Y') THEN
5303: okc_debug.log('14100: Exiting insert_row', 2);
5304: okc_debug.Reset_Indentation;
5305: END IF;
5306:
5307: EXCEPTION
5308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5307: EXCEPTION
5308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5309:
5310: IF (l_debug = 'Y') THEN
5311: okc_debug.log('14200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5312: okc_debug.Reset_Indentation;
5313: END IF;
5314:
5315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5308: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5309:
5310: IF (l_debug = 'Y') THEN
5311: okc_debug.log('14200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5312: okc_debug.Reset_Indentation;
5313: END IF;
5314:
5315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5316: (
5323: );
5324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5325:
5326: IF (l_debug = 'Y') THEN
5327: okc_debug.log('14300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5328: okc_debug.Reset_Indentation;
5329: END IF;
5330:
5331: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5325:
5326: IF (l_debug = 'Y') THEN
5327: okc_debug.log('14300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5328: okc_debug.Reset_Indentation;
5329: END IF;
5330:
5331: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5332: (
5339: );
5340: WHEN OTHERS THEN
5341:
5342: IF (l_debug = 'Y') THEN
5343: okc_debug.log('14400: Exiting insert_row:OTHERS Exception', 2);
5344: okc_debug.Reset_Indentation;
5345: END IF;
5346:
5347: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5340: WHEN OTHERS THEN
5341:
5342: IF (l_debug = 'Y') THEN
5343: okc_debug.log('14400: Exiting insert_row:OTHERS Exception', 2);
5344: okc_debug.Reset_Indentation;
5345: END IF;
5346:
5347: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5348: (
5429: END Set_Attributes;
5430: BEGIN
5431:
5432: IF (l_debug = 'Y') THEN
5433: okc_debug.Set_Indentation('OKC_CLE_PVT');
5434: okc_debug.log('14700: Entered insert_row', 2);
5435: END IF;
5436:
5437:
5430: BEGIN
5431:
5432: IF (l_debug = 'Y') THEN
5433: okc_debug.Set_Indentation('OKC_CLE_PVT');
5434: okc_debug.log('14700: Entered insert_row', 2);
5435: END IF;
5436:
5437:
5438: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5534:
5535: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5536:
5537: IF (l_debug = 'Y') THEN
5538: okc_debug.log('14800: Exiting insert_row', 2);
5539: okc_debug.Reset_Indentation;
5540: END IF;
5541:
5542: EXCEPTION
5535: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5536:
5537: IF (l_debug = 'Y') THEN
5538: okc_debug.log('14800: Exiting insert_row', 2);
5539: okc_debug.Reset_Indentation;
5540: END IF;
5541:
5542: EXCEPTION
5543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5542: EXCEPTION
5543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5544:
5545: IF (l_debug = 'Y') THEN
5546: okc_debug.log('14900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5547: okc_debug.Reset_Indentation;
5548: END IF;
5549:
5550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5544:
5545: IF (l_debug = 'Y') THEN
5546: okc_debug.log('14900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5547: okc_debug.Reset_Indentation;
5548: END IF;
5549:
5550: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5551: (
5558: );
5559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5560:
5561: IF (l_debug = 'Y') THEN
5562: okc_debug.log('15000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5563: okc_debug.Reset_Indentation;
5564: END IF;
5565:
5566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5559: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5560:
5561: IF (l_debug = 'Y') THEN
5562: okc_debug.log('15000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5563: okc_debug.Reset_Indentation;
5564: END IF;
5565:
5566: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5567: (
5574: );
5575: WHEN OTHERS THEN
5576:
5577: IF (l_debug = 'Y') THEN
5578: okc_debug.log('15100: Exiting insert_row:OTHERS Exception', 2);
5579: okc_debug.Reset_Indentation;
5580: END IF;
5581:
5582: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5575: WHEN OTHERS THEN
5576:
5577: IF (l_debug = 'Y') THEN
5578: okc_debug.log('15100: Exiting insert_row:OTHERS Exception', 2);
5579: okc_debug.Reset_Indentation;
5580: END IF;
5581:
5582: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5583: (
5609: i NUMBER := 0;
5610: BEGIN
5611:
5612: IF (l_debug = 'Y') THEN
5613: okc_debug.Set_Indentation('OKC_CLE_PVT');
5614: okc_debug.log('15200: Entered insert_row', 2);
5615: END IF;
5616:
5617: OKC_API.init_msg_list(p_init_msg_list);
5610: BEGIN
5611:
5612: IF (l_debug = 'Y') THEN
5613: okc_debug.Set_Indentation('OKC_CLE_PVT');
5614: okc_debug.log('15200: Entered insert_row', 2);
5615: END IF;
5616:
5617: OKC_API.init_msg_list(p_init_msg_list);
5618: -- Make sure PL/SQL table has records in it before passing
5642: x_return_status := l_overall_status;
5643: END IF;
5644:
5645: IF (l_debug = 'Y') THEN
5646: okc_debug.log('15300: Exiting insert_row', 2);
5647: okc_debug.Reset_Indentation;
5648: END IF;
5649:
5650: EXCEPTION
5643: END IF;
5644:
5645: IF (l_debug = 'Y') THEN
5646: okc_debug.log('15300: Exiting insert_row', 2);
5647: okc_debug.Reset_Indentation;
5648: END IF;
5649:
5650: EXCEPTION
5651: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5650: EXCEPTION
5651: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5652:
5653: IF (l_debug = 'Y') THEN
5654: okc_debug.log('15400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5655: okc_debug.Reset_Indentation;
5656: END IF;
5657:
5658: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5651: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5652:
5653: IF (l_debug = 'Y') THEN
5654: okc_debug.log('15400: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5655: okc_debug.Reset_Indentation;
5656: END IF;
5657:
5658: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5659: (
5666: );
5667: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.log('15500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5671: okc_debug.Reset_Indentation;
5672: END IF;
5673:
5674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5667: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.log('15500: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5671: okc_debug.Reset_Indentation;
5672: END IF;
5673:
5674: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5675: (
5682: );
5683: WHEN OTHERS THEN
5684:
5685: IF (l_debug = 'Y') THEN
5686: okc_debug.log('15600: Exiting insert_row:OTHERS Exception', 2);
5687: okc_debug.Reset_Indentation;
5688: END IF;
5689:
5690: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5683: WHEN OTHERS THEN
5684:
5685: IF (l_debug = 'Y') THEN
5686: okc_debug.log('15600: Exiting insert_row:OTHERS Exception', 2);
5687: okc_debug.Reset_Indentation;
5688: END IF;
5689:
5690: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5691: (
5734: lc_row_notfound BOOLEAN := FALSE;
5735: BEGIN
5736:
5737: IF (l_debug = 'Y') THEN
5738: okc_debug.Set_Indentation('OKC_CLE_PVT');
5739: okc_debug.log('15700: Entered lock_row', 2);
5740: END IF;
5741:
5742: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5735: BEGIN
5736:
5737: IF (l_debug = 'Y') THEN
5738: okc_debug.Set_Indentation('OKC_CLE_PVT');
5739: okc_debug.log('15700: Entered lock_row', 2);
5740: END IF;
5741:
5742: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5743: p_init_msg_list,
5750: END IF;
5751: BEGIN
5752:
5753: IF (l_debug = 'Y') THEN
5754: okc_debug.Set_Indentation('OKC_CLE_PVT');
5755: okc_debug.log('15800: Entered lock_row', 2);
5756: END IF;
5757:
5758: OPEN lock_csr(p_cle_rec);
5751: BEGIN
5752:
5753: IF (l_debug = 'Y') THEN
5754: okc_debug.Set_Indentation('OKC_CLE_PVT');
5755: okc_debug.log('15800: Entered lock_row', 2);
5756: END IF;
5757:
5758: OPEN lock_csr(p_cle_rec);
5759: FETCH lock_csr INTO l_object_version_number;
5760: l_row_notfound := lock_csr%NOTFOUND;
5761: CLOSE lock_csr;
5762:
5763: IF (l_debug = 'Y') THEN
5764: okc_debug.log('15900: Leaving lock_row', 2);
5765: okc_debug.Reset_Indentation;
5766: END IF;
5767:
5768: EXCEPTION
5761: CLOSE lock_csr;
5762:
5763: IF (l_debug = 'Y') THEN
5764: okc_debug.log('15900: Leaving lock_row', 2);
5765: okc_debug.Reset_Indentation;
5766: END IF;
5767:
5768: EXCEPTION
5769: WHEN E_Resource_Busy THEN
5768: EXCEPTION
5769: WHEN E_Resource_Busy THEN
5770:
5771: IF (l_debug = 'Y') THEN
5772: okc_debug.log('16000: Exiting lock_row:E_Resource_Busy Exception', 2);
5773: okc_debug.Reset_Indentation;
5774: END IF;
5775:
5776: IF (lock_csr%ISOPEN) THEN
5769: WHEN E_Resource_Busy THEN
5770:
5771: IF (l_debug = 'Y') THEN
5772: okc_debug.log('16000: Exiting lock_row:E_Resource_Busy Exception', 2);
5773: okc_debug.Reset_Indentation;
5774: END IF;
5775:
5776: IF (lock_csr%ISOPEN) THEN
5777: CLOSE lock_csr;
5801: END IF;
5802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5803:
5804: IF (l_debug = 'Y') THEN
5805: okc_debug.log('16100: Leaving lock_row', 2);
5806: okc_debug.Reset_Indentation;
5807: END IF;
5808:
5809: EXCEPTION
5802: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5803:
5804: IF (l_debug = 'Y') THEN
5805: okc_debug.log('16100: Leaving lock_row', 2);
5806: okc_debug.Reset_Indentation;
5807: END IF;
5808:
5809: EXCEPTION
5810: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5809: EXCEPTION
5810: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5811:
5812: IF (l_debug = 'Y') THEN
5813: okc_debug.log('16200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5814: okc_debug.Reset_Indentation;
5815: END IF;
5816:
5817: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5810: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5811:
5812: IF (l_debug = 'Y') THEN
5813: okc_debug.log('16200: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5814: okc_debug.Reset_Indentation;
5815: END IF;
5816:
5817: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5818: (
5825: );
5826: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5827:
5828: IF (l_debug = 'Y') THEN
5829: okc_debug.log('16300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5830: okc_debug.Reset_Indentation;
5831: END IF;
5832:
5833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5826: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5827:
5828: IF (l_debug = 'Y') THEN
5829: okc_debug.log('16300: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5830: okc_debug.Reset_Indentation;
5831: END IF;
5832:
5833: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5834: (
5841: );
5842: WHEN OTHERS THEN
5843:
5844: IF (l_debug = 'Y') THEN
5845: okc_debug.log('16400: Exiting lock_row:OTHERS Exception', 2);
5846: okc_debug.Reset_Indentation;
5847: END IF;
5848:
5849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5842: WHEN OTHERS THEN
5843:
5844: IF (l_debug = 'Y') THEN
5845: okc_debug.log('16400: Exiting lock_row:OTHERS Exception', 2);
5846: okc_debug.Reset_Indentation;
5847: END IF;
5848:
5849: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5850: (
5883: lc_row_notfound BOOLEAN := FALSE;
5884: BEGIN
5885:
5886: IF (l_debug = 'Y') THEN
5887: okc_debug.Set_Indentation('OKC_CLE_PVT');
5888: okc_debug.log('16500: Entered lock_row', 2);
5889: END IF;
5890:
5891: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5884: BEGIN
5885:
5886: IF (l_debug = 'Y') THEN
5887: okc_debug.Set_Indentation('OKC_CLE_PVT');
5888: okc_debug.log('16500: Entered lock_row', 2);
5889: END IF;
5890:
5891: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5892: p_init_msg_list,
5899: END IF;
5900: BEGIN
5901:
5902: IF (l_debug = 'Y') THEN
5903: okc_debug.Set_Indentation('OKC_CLE_PVT');
5904: okc_debug.log('16600: Entered lock_row', 2);
5905: END IF;
5906:
5907: OPEN lock_csr(p_okc_k_lines_tl_rec);
5900: BEGIN
5901:
5902: IF (l_debug = 'Y') THEN
5903: okc_debug.Set_Indentation('OKC_CLE_PVT');
5904: okc_debug.log('16600: Entered lock_row', 2);
5905: END IF;
5906:
5907: OPEN lock_csr(p_okc_k_lines_tl_rec);
5908: FETCH lock_csr INTO l_lock_var;
5909: l_row_notfound := lock_csr%NOTFOUND;
5910: CLOSE lock_csr;
5911:
5912: IF (l_debug = 'Y') THEN
5913: okc_debug.log('16700: Exiting lock_row', 2);
5914: okc_debug.Reset_Indentation;
5915: END IF;
5916:
5917: EXCEPTION
5910: CLOSE lock_csr;
5911:
5912: IF (l_debug = 'Y') THEN
5913: okc_debug.log('16700: Exiting lock_row', 2);
5914: okc_debug.Reset_Indentation;
5915: END IF;
5916:
5917: EXCEPTION
5918: WHEN E_Resource_Busy THEN
5917: EXCEPTION
5918: WHEN E_Resource_Busy THEN
5919:
5920: IF (l_debug = 'Y') THEN
5921: okc_debug.log('16800: Exiting lock_row:E_Resource_Busy Exception', 2);
5922: okc_debug.Reset_Indentation;
5923: END IF;
5924:
5925: IF (lock_csr%ISOPEN) THEN
5918: WHEN E_Resource_Busy THEN
5919:
5920: IF (l_debug = 'Y') THEN
5921: okc_debug.log('16800: Exiting lock_row:E_Resource_Busy Exception', 2);
5922: okc_debug.Reset_Indentation;
5923: END IF;
5924:
5925: IF (lock_csr%ISOPEN) THEN
5926: CLOSE lock_csr;
5935: END IF;
5936: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5937:
5938: IF (l_debug = 'Y') THEN
5939: okc_debug.log('16900: Exiting lock_row', 2);
5940: okc_debug.Reset_Indentation;
5941: END IF;
5942:
5943: EXCEPTION
5936: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5937:
5938: IF (l_debug = 'Y') THEN
5939: okc_debug.log('16900: Exiting lock_row', 2);
5940: okc_debug.Reset_Indentation;
5941: END IF;
5942:
5943: EXCEPTION
5944: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5943: EXCEPTION
5944: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5945:
5946: IF (l_debug = 'Y') THEN
5947: okc_debug.log('17000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5948: okc_debug.Reset_Indentation;
5949: END IF;
5950:
5951: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5944: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5945:
5946: IF (l_debug = 'Y') THEN
5947: okc_debug.log('17000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5948: okc_debug.Reset_Indentation;
5949: END IF;
5950:
5951: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5952: (
5959: );
5960: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5961:
5962: IF (l_debug = 'Y') THEN
5963: okc_debug.log('17100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5964: okc_debug.Reset_Indentation;
5965: END IF;
5966:
5967: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5960: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5961:
5962: IF (l_debug = 'Y') THEN
5963: okc_debug.log('17100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5964: okc_debug.Reset_Indentation;
5965: END IF;
5966:
5967: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5968: (
5975: );
5976: WHEN OTHERS THEN
5977:
5978: IF (l_debug = 'Y') THEN
5979: okc_debug.log('17200: Exiting lock_row:OTHERS Exception', 2);
5980: okc_debug.Reset_Indentation;
5981: END IF;
5982:
5983: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5976: WHEN OTHERS THEN
5977:
5978: IF (l_debug = 'Y') THEN
5979: okc_debug.log('17200: Exiting lock_row:OTHERS Exception', 2);
5980: okc_debug.Reset_Indentation;
5981: END IF;
5982:
5983: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5984: (
6009: l_okc_k_lines_tl_rec okc_k_lines_tl_rec_type;
6010: BEGIN
6011:
6012: IF (l_debug = 'Y') THEN
6013: okc_debug.Set_Indentation('OKC_CLE_PVT');
6014: okc_debug.log('17300: Entered lock_row', 2);
6015: END IF;
6016:
6017: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6010: BEGIN
6011:
6012: IF (l_debug = 'Y') THEN
6013: okc_debug.Set_Indentation('OKC_CLE_PVT');
6014: okc_debug.log('17300: Entered lock_row', 2);
6015: END IF;
6016:
6017: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6018: G_PKG_NAME,
6060: END IF;
6061: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6062:
6063: IF (l_debug = 'Y') THEN
6064: okc_debug.log('17400: Exiting lock_row', 2);
6065: okc_debug.Reset_Indentation;
6066: END IF;
6067:
6068: EXCEPTION
6061: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6062:
6063: IF (l_debug = 'Y') THEN
6064: okc_debug.log('17400: Exiting lock_row', 2);
6065: okc_debug.Reset_Indentation;
6066: END IF;
6067:
6068: EXCEPTION
6069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6068: EXCEPTION
6069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6070:
6071: IF (l_debug = 'Y') THEN
6072: okc_debug.log('17500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6073: okc_debug.Reset_Indentation;
6074: END IF;
6075:
6076: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6070:
6071: IF (l_debug = 'Y') THEN
6072: okc_debug.log('17500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6073: okc_debug.Reset_Indentation;
6074: END IF;
6075:
6076: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6077: (
6084: );
6085: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6086:
6087: IF (l_debug = 'Y') THEN
6088: okc_debug.log('17600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6089: okc_debug.Reset_Indentation;
6090: END IF;
6091:
6092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6085: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6086:
6087: IF (l_debug = 'Y') THEN
6088: okc_debug.log('17600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6089: okc_debug.Reset_Indentation;
6090: END IF;
6091:
6092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6093: (
6100: );
6101: WHEN OTHERS THEN
6102:
6103: IF (l_debug = 'Y') THEN
6104: okc_debug.log('17700: Exiting lock_row:OTHERS Exception', 2);
6105: okc_debug.Reset_Indentation;
6106: END IF;
6107:
6108: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6101: WHEN OTHERS THEN
6102:
6103: IF (l_debug = 'Y') THEN
6104: okc_debug.log('17700: Exiting lock_row:OTHERS Exception', 2);
6105: okc_debug.Reset_Indentation;
6106: END IF;
6107:
6108: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6109: (
6134: i NUMBER := 0;
6135: BEGIN
6136:
6137: IF (l_debug = 'Y') THEN
6138: okc_debug.Set_Indentation('OKC_CLE_PVT');
6139: okc_debug.log('17800: Entered lock_row', 2);
6140: END IF;
6141:
6142: OKC_API.init_msg_list(p_init_msg_list);
6135: BEGIN
6136:
6137: IF (l_debug = 'Y') THEN
6138: okc_debug.Set_Indentation('OKC_CLE_PVT');
6139: okc_debug.log('17800: Entered lock_row', 2);
6140: END IF;
6141:
6142: OKC_API.init_msg_list(p_init_msg_list);
6143: -- Make sure PL/SQL table has records in it before passing
6166: x_return_status := l_overall_status;
6167: END IF;
6168:
6169: IF (l_debug = 'Y') THEN
6170: okc_debug.log('17900: Exiting lock_row', 2);
6171: okc_debug.Reset_Indentation;
6172: END IF;
6173:
6174: EXCEPTION
6167: END IF;
6168:
6169: IF (l_debug = 'Y') THEN
6170: okc_debug.log('17900: Exiting lock_row', 2);
6171: okc_debug.Reset_Indentation;
6172: END IF;
6173:
6174: EXCEPTION
6175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6174: EXCEPTION
6175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6176:
6177: IF (l_debug = 'Y') THEN
6178: okc_debug.log('18000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6179: okc_debug.Reset_Indentation;
6180: END IF;
6181:
6182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6175: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6176:
6177: IF (l_debug = 'Y') THEN
6178: okc_debug.log('18000: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6179: okc_debug.Reset_Indentation;
6180: END IF;
6181:
6182: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6183: (
6190: );
6191: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6192:
6193: IF (l_debug = 'Y') THEN
6194: okc_debug.log('18100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6195: okc_debug.Reset_Indentation;
6196: END IF;
6197:
6198: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6191: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6192:
6193: IF (l_debug = 'Y') THEN
6194: okc_debug.log('18100: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6195: okc_debug.Reset_Indentation;
6196: END IF;
6197:
6198: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6199: (
6206: );
6207: WHEN OTHERS THEN
6208:
6209: IF (l_debug = 'Y') THEN
6210: okc_debug.log('18200: Exiting lock_row:OTHERS Exception', 2);
6211: okc_debug.Reset_Indentation;
6212: END IF;
6213:
6214: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6207: WHEN OTHERS THEN
6208:
6209: IF (l_debug = 'Y') THEN
6210: okc_debug.log('18200: Exiting lock_row:OTHERS Exception', 2);
6211: okc_debug.Reset_Indentation;
6212: END IF;
6213:
6214: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6215: (
6256: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6257: BEGIN
6258:
6259: IF (l_debug = 'Y') THEN
6260: okc_debug.Set_Indentation('OKC_CLE_PVT');
6261: okc_debug.log('18300: Entered populate_new_record', 2);
6262: END IF;
6263:
6264: x_cle_rec := p_cle_rec;
6257: BEGIN
6258:
6259: IF (l_debug = 'Y') THEN
6260: okc_debug.Set_Indentation('OKC_CLE_PVT');
6261: okc_debug.log('18300: Entered populate_new_record', 2);
6262: END IF;
6263:
6264: x_cle_rec := p_cle_rec;
6265: -- Get current database values
6648: x_cle_rec.payment_instruction_type := l_cle_rec.payment_instruction_type;
6649: END IF;
6650:
6651: IF (l_debug = 'Y') THEN
6652: okc_debug.log('18350: Leaving populate_new_record', 2);
6653: okc_debug.Reset_Indentation;
6654: END IF;
6655:
6656: RETURN(l_return_status);
6649: END IF;
6650:
6651: IF (l_debug = 'Y') THEN
6652: okc_debug.log('18350: Leaving populate_new_record', 2);
6653: okc_debug.Reset_Indentation;
6654: END IF;
6655:
6656: RETURN(l_return_status);
6657:
6672: END Set_Attributes;
6673: BEGIN
6674:
6675: IF (l_debug = 'Y') THEN
6676: okc_debug.Set_Indentation('OKC_CLE_PVT');
6677: okc_debug.log('18500: Entered update_row', 2);
6678: END IF;
6679:
6680: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6673: BEGIN
6674:
6675: IF (l_debug = 'Y') THEN
6676: okc_debug.Set_Indentation('OKC_CLE_PVT');
6677: okc_debug.log('18500: Entered update_row', 2);
6678: END IF;
6679:
6680: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6681: p_init_msg_list,
6806: x_cle_rec := l_def_cle_rec;
6807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6808:
6809: IF (l_debug = 'Y') THEN
6810: okc_debug.log('18600: Exiting update_row', 2);
6811: okc_debug.Reset_Indentation;
6812: END IF;
6813:
6814: EXCEPTION
6807: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6808:
6809: IF (l_debug = 'Y') THEN
6810: okc_debug.log('18600: Exiting update_row', 2);
6811: okc_debug.Reset_Indentation;
6812: END IF;
6813:
6814: EXCEPTION
6815: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6814: EXCEPTION
6815: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6816:
6817: IF (l_debug = 'Y') THEN
6818: okc_debug.log('18700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6819: okc_debug.Reset_Indentation;
6820: END IF;
6821:
6822: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6815: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6816:
6817: IF (l_debug = 'Y') THEN
6818: okc_debug.log('18700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6819: okc_debug.Reset_Indentation;
6820: END IF;
6821:
6822: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6823: (
6830: );
6831: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6832:
6833: IF (l_debug = 'Y') THEN
6834: okc_debug.log('18800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6835: okc_debug.Reset_Indentation;
6836: END IF;
6837:
6838: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6831: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6832:
6833: IF (l_debug = 'Y') THEN
6834: okc_debug.log('18800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6835: okc_debug.Reset_Indentation;
6836: END IF;
6837:
6838: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6839: (
6846: );
6847: WHEN OTHERS THEN
6848:
6849: IF (l_debug = 'Y') THEN
6850: okc_debug.log('18900: Exiting update_row:OTHERS Exception', 2);
6851: okc_debug.Reset_Indentation;
6852: END IF;
6853:
6854: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6847: WHEN OTHERS THEN
6848:
6849: IF (l_debug = 'Y') THEN
6850: okc_debug.log('18900: Exiting update_row:OTHERS Exception', 2);
6851: okc_debug.Reset_Indentation;
6852: END IF;
6853:
6854: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
6855: (
6891: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6892: BEGIN
6893:
6894: IF (l_debug = 'Y') THEN
6895: okc_debug.Set_Indentation('OKC_CLE_PVT');
6896: okc_debug.log('19000: Entered populate_new_record', 2);
6897: END IF;
6898:
6899: x_okc_k_lines_tl_rec := p_okc_k_lines_tl_rec;
6892: BEGIN
6893:
6894: IF (l_debug = 'Y') THEN
6895: okc_debug.Set_Indentation('OKC_CLE_PVT');
6896: okc_debug.log('19000: Entered populate_new_record', 2);
6897: END IF;
6898:
6899: x_okc_k_lines_tl_rec := p_okc_k_lines_tl_rec;
6900: -- Get current database values
6963: x_okc_k_lines_tl_rec.last_update_login := l_okc_k_lines_tl_rec.last_update_login;
6964: END IF;
6965:
6966: IF (l_debug = 'Y') THEN
6967: okc_debug.log('19050: Leaving update_row', 2);
6968: okc_debug.Reset_Indentation;
6969: END IF;
6970:
6971: RETURN(l_return_status);
6964: END IF;
6965:
6966: IF (l_debug = 'Y') THEN
6967: okc_debug.log('19050: Leaving update_row', 2);
6968: okc_debug.Reset_Indentation;
6969: END IF;
6970:
6971: RETURN(l_return_status);
6972:
6990: END Set_Attributes;
6991: BEGIN
6992:
6993: IF (l_debug = 'Y') THEN
6994: okc_debug.Set_Indentation('OKC_CLE_PVT');
6995: okc_debug.log('19200: Entered update_row', 2);
6996: END IF;
6997:
6998: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6991: BEGIN
6992:
6993: IF (l_debug = 'Y') THEN
6994: okc_debug.Set_Indentation('OKC_CLE_PVT');
6995: okc_debug.log('19200: Entered update_row', 2);
6996: END IF;
6997:
6998: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6999: p_init_msg_list,
7044: x_okc_k_lines_tl_rec := l_def_okc_k_lines_tl_rec;
7045: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7046:
7047: IF (l_debug = 'Y') THEN
7048: okc_debug.log('19300: Exiting update_row', 2);
7049: okc_debug.Reset_Indentation;
7050: END IF;
7051:
7052: EXCEPTION
7045: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7046:
7047: IF (l_debug = 'Y') THEN
7048: okc_debug.log('19300: Exiting update_row', 2);
7049: okc_debug.Reset_Indentation;
7050: END IF;
7051:
7052: EXCEPTION
7053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7052: EXCEPTION
7053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7054:
7055: IF (l_debug = 'Y') THEN
7056: okc_debug.log('19400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7057: okc_debug.Reset_Indentation;
7058: END IF;
7059:
7060: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7054:
7055: IF (l_debug = 'Y') THEN
7056: okc_debug.log('19400: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7057: okc_debug.Reset_Indentation;
7058: END IF;
7059:
7060: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7061: (
7068: );
7069: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7070:
7071: IF (l_debug = 'Y') THEN
7072: okc_debug.log('19500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7073: okc_debug.Reset_Indentation;
7074: END IF;
7075:
7076: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7069: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7070:
7071: IF (l_debug = 'Y') THEN
7072: okc_debug.log('19500: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7073: okc_debug.Reset_Indentation;
7074: END IF;
7075:
7076: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7077: (
7084: );
7085: WHEN OTHERS THEN
7086:
7087: IF (l_debug = 'Y') THEN
7088: okc_debug.log('19600: Exiting update_row:OTHERS Exception', 2);
7089: okc_debug.Reset_Indentation;
7090: END IF;
7091:
7092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7085: WHEN OTHERS THEN
7086:
7087: IF (l_debug = 'Y') THEN
7088: okc_debug.log('19600: Exiting update_row:OTHERS Exception', 2);
7089: okc_debug.Reset_Indentation;
7090: END IF;
7091:
7092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7093: (
7149: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7150: BEGIN
7151:
7152: IF (l_debug = 'Y') THEN
7153: okc_debug.Set_Indentation('OKC_CLE_PVT');
7154: okc_debug.log('19800: Entered populate_new_record', 2);
7155: END IF;
7156:
7157: x_clev_rec := p_clev_rec;
7150: BEGIN
7151:
7152: IF (l_debug = 'Y') THEN
7153: okc_debug.Set_Indentation('OKC_CLE_PVT');
7154: okc_debug.log('19800: Entered populate_new_record', 2);
7155: END IF;
7156:
7157: x_clev_rec := p_clev_rec;
7158: -- Get current database values
7535: END IF;
7536:
7537:
7538: IF (l_debug = 'Y') THEN
7539: okc_debug.log('19900: Leaving populate_new_record ', 2);
7540: okc_debug.Reset_Indentation;
7541: END IF;
7542:
7543: RETURN(l_return_status);
7536:
7537:
7538: IF (l_debug = 'Y') THEN
7539: okc_debug.log('19900: Leaving populate_new_record ', 2);
7540: okc_debug.Reset_Indentation;
7541: END IF;
7542:
7543: RETURN(l_return_status);
7544:
7572: END Set_Attributes;
7573: BEGIN
7574:
7575: IF (l_debug = 'Y') THEN
7576: okc_debug.Set_Indentation('OKC_CLE_PVT');
7577: okc_debug.log('20000: Entered update_row', 2);
7578: END IF;
7579:
7580: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7573: BEGIN
7574:
7575: IF (l_debug = 'Y') THEN
7576: okc_debug.Set_Indentation('OKC_CLE_PVT');
7577: okc_debug.log('20000: Entered update_row', 2);
7578: END IF;
7579:
7580: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7581:
7671: x_clev_rec := l_def_clev_rec;
7672: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7673:
7674: IF (l_debug = 'Y') THEN
7675: okc_debug.log('20100: Exiting update_row', 2);
7676: okc_debug.Reset_Indentation;
7677: END IF;
7678:
7679: EXCEPTION
7672: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7673:
7674: IF (l_debug = 'Y') THEN
7675: okc_debug.log('20100: Exiting update_row', 2);
7676: okc_debug.Reset_Indentation;
7677: END IF;
7678:
7679: EXCEPTION
7680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7679: EXCEPTION
7680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7681:
7682: IF (l_debug = 'Y') THEN
7683: okc_debug.log('20200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7684: okc_debug.Reset_Indentation;
7685: END IF;
7686:
7687: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7680: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7681:
7682: IF (l_debug = 'Y') THEN
7683: okc_debug.log('20200: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7684: okc_debug.Reset_Indentation;
7685: END IF;
7686:
7687: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7688: (
7695: );
7696: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7697:
7698: IF (l_debug = 'Y') THEN
7699: okc_debug.log('20300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7700: okc_debug.Reset_Indentation;
7701: END IF;
7702:
7703: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7696: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7697:
7698: IF (l_debug = 'Y') THEN
7699: okc_debug.log('20300: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7700: okc_debug.Reset_Indentation;
7701: END IF;
7702:
7703: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7704: (
7711: );
7712: WHEN OTHERS THEN
7713:
7714: IF (l_debug = 'Y') THEN
7715: okc_debug.log('20400: Exiting update_row:OTHERS Exception', 2);
7716: okc_debug.Reset_Indentation;
7717: END IF;
7718:
7719: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7712: WHEN OTHERS THEN
7713:
7714: IF (l_debug = 'Y') THEN
7715: okc_debug.log('20400: Exiting update_row:OTHERS Exception', 2);
7716: okc_debug.Reset_Indentation;
7717: END IF;
7718:
7719: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7720: (
7747: i NUMBER := 0;
7748: BEGIN
7749:
7750: IF (l_debug = 'Y') THEN
7751: okc_debug.Set_Indentation('OKC_CLE_PVT');
7752: okc_debug.log('20500: Entered update_row', 2);
7753: END IF;
7754:
7755: OKC_API.init_msg_list(p_init_msg_list);
7748: BEGIN
7749:
7750: IF (l_debug = 'Y') THEN
7751: okc_debug.Set_Indentation('OKC_CLE_PVT');
7752: okc_debug.log('20500: Entered update_row', 2);
7753: END IF;
7754:
7755: OKC_API.init_msg_list(p_init_msg_list);
7756: -- Make sure PL/SQL table has records in it before passing
7781: x_return_status := l_overall_status;
7782: END IF;
7783:
7784: IF (l_debug = 'Y') THEN
7785: okc_debug.log('20600: Exiting update_row', 2);
7786: okc_debug.Reset_Indentation;
7787: END IF;
7788:
7789: EXCEPTION
7782: END IF;
7783:
7784: IF (l_debug = 'Y') THEN
7785: okc_debug.log('20600: Exiting update_row', 2);
7786: okc_debug.Reset_Indentation;
7787: END IF;
7788:
7789: EXCEPTION
7790: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7789: EXCEPTION
7790: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7791:
7792: IF (l_debug = 'Y') THEN
7793: okc_debug.log('20700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7794: okc_debug.Reset_Indentation;
7795: END IF;
7796:
7797: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7790: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7791:
7792: IF (l_debug = 'Y') THEN
7793: okc_debug.log('20700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7794: okc_debug.Reset_Indentation;
7795: END IF;
7796:
7797: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7798: (
7805: );
7806: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7807:
7808: IF (l_debug = 'Y') THEN
7809: okc_debug.log('20800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7810: okc_debug.Reset_Indentation;
7811: END IF;
7812:
7813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7806: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7807:
7808: IF (l_debug = 'Y') THEN
7809: okc_debug.log('20800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7810: okc_debug.Reset_Indentation;
7811: END IF;
7812:
7813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7814: (
7821: );
7822: WHEN OTHERS THEN
7823:
7824: IF (l_debug = 'Y') THEN
7825: okc_debug.log('20900: Exiting update_row:OTHERS Exception', 2);
7826: okc_debug.Reset_Indentation;
7827: END IF;
7828:
7829: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7822: WHEN OTHERS THEN
7823:
7824: IF (l_debug = 'Y') THEN
7825: okc_debug.log('20900: Exiting update_row:OTHERS Exception', 2);
7826: okc_debug.Reset_Indentation;
7827: END IF;
7828:
7829: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7830: (
7858: l_row_notfound BOOLEAN := TRUE;
7859: BEGIN
7860:
7861: IF (l_debug = 'Y') THEN
7862: okc_debug.Set_Indentation('OKC_CLE_PVT');
7863: okc_debug.log('21000: Entered delete_row', 2);
7864: END IF;
7865:
7866: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7859: BEGIN
7860:
7861: IF (l_debug = 'Y') THEN
7862: okc_debug.Set_Indentation('OKC_CLE_PVT');
7863: okc_debug.log('21000: Entered delete_row', 2);
7864: END IF;
7865:
7866: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7867: p_init_msg_list,
7877:
7878: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7879:
7880: IF (l_debug = 'Y') THEN
7881: okc_debug.log('21100: Leaving delete_row', 2);
7882: okc_debug.Reset_Indentation;
7883: END IF;
7884:
7885: EXCEPTION
7878: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7879:
7880: IF (l_debug = 'Y') THEN
7881: okc_debug.log('21100: Leaving delete_row', 2);
7882: okc_debug.Reset_Indentation;
7883: END IF;
7884:
7885: EXCEPTION
7886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7885: EXCEPTION
7886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7887:
7888: IF (l_debug = 'Y') THEN
7889: okc_debug.log('21200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7890: okc_debug.Reset_Indentation;
7891: END IF;
7892:
7893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7887:
7888: IF (l_debug = 'Y') THEN
7889: okc_debug.log('21200: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7890: okc_debug.Reset_Indentation;
7891: END IF;
7892:
7893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7894: (
7901: );
7902: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7903:
7904: IF (l_debug = 'Y') THEN
7905: okc_debug.log('21300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7906: okc_debug.Reset_Indentation;
7907: END IF;
7908:
7909: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7902: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7903:
7904: IF (l_debug = 'Y') THEN
7905: okc_debug.log('21300: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7906: okc_debug.Reset_Indentation;
7907: END IF;
7908:
7909: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7910: (
7917: );
7918: WHEN OTHERS THEN
7919:
7920: IF (l_debug = 'Y') THEN
7921: okc_debug.log('21400: Exiting delete_row:OTHERS Exception', 2);
7922: okc_debug.Reset_Indentation;
7923: END IF;
7924:
7925: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7918: WHEN OTHERS THEN
7919:
7920: IF (l_debug = 'Y') THEN
7921: okc_debug.log('21400: Exiting delete_row:OTHERS Exception', 2);
7922: okc_debug.Reset_Indentation;
7923: END IF;
7924:
7925: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
7926: (
7965: END Set_Attributes;
7966: BEGIN
7967:
7968: IF (l_debug = 'Y') THEN
7969: okc_debug.Set_Indentation('OKC_CLE_PVT');
7970: okc_debug.log('21600: Entered delete_row', 2);
7971: END IF;
7972:
7973: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7966: BEGIN
7967:
7968: IF (l_debug = 'Y') THEN
7969: okc_debug.Set_Indentation('OKC_CLE_PVT');
7970: okc_debug.log('21600: Entered delete_row', 2);
7971: END IF;
7972:
7973: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7974: p_init_msg_list,
7994:
7995: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7996:
7997: IF (l_debug = 'Y') THEN
7998: okc_debug.log('21700: Exiting delete_row', 2);
7999: okc_debug.Reset_Indentation;
8000: END IF;
8001:
8002: EXCEPTION
7995: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7996:
7997: IF (l_debug = 'Y') THEN
7998: okc_debug.log('21700: Exiting delete_row', 2);
7999: okc_debug.Reset_Indentation;
8000: END IF;
8001:
8002: EXCEPTION
8003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8002: EXCEPTION
8003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8004:
8005: IF (l_debug = 'Y') THEN
8006: okc_debug.log('21800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8007: okc_debug.Reset_Indentation;
8008: END IF;
8009:
8010: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8004:
8005: IF (l_debug = 'Y') THEN
8006: okc_debug.log('21800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8007: okc_debug.Reset_Indentation;
8008: END IF;
8009:
8010: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8011: (
8018: );
8019: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8020:
8021: IF (l_debug = 'Y') THEN
8022: okc_debug.log('21900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8023: okc_debug.Reset_Indentation;
8024: END IF;
8025:
8026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8019: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8020:
8021: IF (l_debug = 'Y') THEN
8022: okc_debug.log('21900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8023: okc_debug.Reset_Indentation;
8024: END IF;
8025:
8026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8027: (
8034: );
8035: WHEN OTHERS THEN
8036:
8037: IF (l_debug = 'Y') THEN
8038: okc_debug.log('22000: Exiting delete_row:OTHERS Exception', 2);
8039: okc_debug.Reset_Indentation;
8040: END IF;
8041:
8042: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8035: WHEN OTHERS THEN
8036:
8037: IF (l_debug = 'Y') THEN
8038: okc_debug.log('22000: Exiting delete_row:OTHERS Exception', 2);
8039: okc_debug.Reset_Indentation;
8040: END IF;
8041:
8042: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8043: (
8114:
8115: BEGIN
8116:
8117: IF (l_debug = 'Y') THEN
8118: okc_debug.Set_Indentation('OKC_CLE_PVT');
8119: okc_debug.log('22100: Entered delete_row', 2);
8120: END IF;
8121:
8122: -- Check whether the line is updateable or not
8115: BEGIN
8116:
8117: IF (l_debug = 'Y') THEN
8118: okc_debug.Set_Indentation('OKC_CLE_PVT');
8119: okc_debug.log('22100: Entered delete_row', 2);
8120: END IF;
8121:
8122: -- Check whether the line is updateable or not
8123: Open ste_csr;
8273:
8274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8275:
8276: IF (l_debug = 'Y') THEN
8277: okc_debug.log('22200: Exiting delete_row', 2);
8278: okc_debug.Reset_Indentation;
8279: END IF;
8280:
8281: EXCEPTION
8274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8275:
8276: IF (l_debug = 'Y') THEN
8277: okc_debug.log('22200: Exiting delete_row', 2);
8278: okc_debug.Reset_Indentation;
8279: END IF;
8280:
8281: EXCEPTION
8282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8281: EXCEPTION
8282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8283:
8284: IF (l_debug = 'Y') THEN
8285: okc_debug.log('22300: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8286: okc_debug.Reset_Indentation;
8287: END IF;
8288:
8289: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8283:
8284: IF (l_debug = 'Y') THEN
8285: okc_debug.log('22300: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8286: okc_debug.Reset_Indentation;
8287: END IF;
8288:
8289: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8290: (
8297: );
8298: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8299:
8300: IF (l_debug = 'Y') THEN
8301: okc_debug.log('22400: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8302: okc_debug.Reset_Indentation;
8303: END IF;
8304:
8305: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8298: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8299:
8300: IF (l_debug = 'Y') THEN
8301: okc_debug.log('22400: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8302: okc_debug.Reset_Indentation;
8303: END IF;
8304:
8305: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8306: (
8313: );
8314: WHEN OTHERS THEN
8315:
8316: IF (l_debug = 'Y') THEN
8317: okc_debug.log('22500: Exiting delete_row:OTHERS Exception', 2);
8318: okc_debug.Reset_Indentation;
8319: END IF;
8320:
8321: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8314: WHEN OTHERS THEN
8315:
8316: IF (l_debug = 'Y') THEN
8317: okc_debug.log('22500: Exiting delete_row:OTHERS Exception', 2);
8318: okc_debug.Reset_Indentation;
8319: END IF;
8320:
8321: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8322: (
8347: i NUMBER := 0;
8348: BEGIN
8349:
8350: IF (l_debug = 'Y') THEN
8351: okc_debug.Set_Indentation('OKC_CLE_PVT');
8352: okc_debug.log('22600: Entered delete_row', 2);
8353: END IF;
8354:
8355: OKC_API.init_msg_list(p_init_msg_list);
8348: BEGIN
8349:
8350: IF (l_debug = 'Y') THEN
8351: okc_debug.Set_Indentation('OKC_CLE_PVT');
8352: okc_debug.log('22600: Entered delete_row', 2);
8353: END IF;
8354:
8355: OKC_API.init_msg_list(p_init_msg_list);
8356: -- Make sure PL/SQL table has records in it before passing
8379: x_return_status := l_overall_status;
8380: END IF;
8381:
8382: IF (l_debug = 'Y') THEN
8383: okc_debug.log('22700: Exiting delete_row', 2);
8384: okc_debug.Reset_Indentation;
8385: END IF;
8386:
8387: EXCEPTION
8380: END IF;
8381:
8382: IF (l_debug = 'Y') THEN
8383: okc_debug.log('22700: Exiting delete_row', 2);
8384: okc_debug.Reset_Indentation;
8385: END IF;
8386:
8387: EXCEPTION
8388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8387: EXCEPTION
8388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8389:
8390: IF (l_debug = 'Y') THEN
8391: okc_debug.log('22800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8392: okc_debug.Reset_Indentation;
8393: END IF;
8394:
8395: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8388: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8389:
8390: IF (l_debug = 'Y') THEN
8391: okc_debug.log('22800: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8392: okc_debug.Reset_Indentation;
8393: END IF;
8394:
8395: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8396: (
8403: );
8404: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8405:
8406: IF (l_debug = 'Y') THEN
8407: okc_debug.log('22900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8408: okc_debug.Reset_Indentation;
8409: END IF;
8410:
8411: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8404: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8405:
8406: IF (l_debug = 'Y') THEN
8407: okc_debug.log('22900: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8408: okc_debug.Reset_Indentation;
8409: END IF;
8410:
8411: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8412: (
8419: );
8420: WHEN OTHERS THEN
8421:
8422: IF (l_debug = 'Y') THEN
8423: okc_debug.log('23000: Exiting delete_row:OTHERS Exception', 2);
8424: okc_debug.Reset_Indentation;
8425: END IF;
8426:
8427: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8420: WHEN OTHERS THEN
8421:
8422: IF (l_debug = 'Y') THEN
8423: okc_debug.log('23000: Exiting delete_row:OTHERS Exception', 2);
8424: okc_debug.Reset_Indentation;
8425: END IF;
8426:
8427: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
8428: (
8808: BEGIN
8809: -- Initializing return status
8810: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8811: IF (l_debug = 'Y') THEN
8812: okc_debug.Set_Indentation('OKC_CLE_PVT');
8813: okc_debug.log('23100: Entered INSERT_ROW_UPG', 2);
8814: END IF;
8815:
8816: -- pkoganti 08/26/2000
8809: -- Initializing return status
8810: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8811: IF (l_debug = 'Y') THEN
8812: okc_debug.Set_Indentation('OKC_CLE_PVT');
8813: okc_debug.log('23100: Entered INSERT_ROW_UPG', 2);
8814: END IF;
8815:
8816: -- pkoganti 08/26/2000
8817: -- replace for loop with while loop to handle
9188: );
9189: END LOOP;
9190:
9191: IF (l_debug = 'Y') THEN
9192: okc_debug.log('23200: Leaving INSERT_ROW_UPG', 2);
9193: okc_debug.Reset_Indentation;
9194: END IF;
9195:
9196: EXCEPTION
9189: END LOOP;
9190:
9191: IF (l_debug = 'Y') THEN
9192: okc_debug.log('23200: Leaving INSERT_ROW_UPG', 2);
9193: okc_debug.Reset_Indentation;
9194: END IF;
9195:
9196: EXCEPTION
9197: WHEN OTHERS THEN
9196: EXCEPTION
9197: WHEN OTHERS THEN
9198:
9199: IF (l_debug = 'Y') THEN
9200: okc_debug.log('23300: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
9201: okc_debug.Reset_Indentation;
9202: END IF;
9203:
9204: -- store SQL error message on message stack
9197: WHEN OTHERS THEN
9198:
9199: IF (l_debug = 'Y') THEN
9200: okc_debug.log('23300: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
9201: okc_debug.Reset_Indentation;
9202: END IF;
9203:
9204: -- store SQL error message on message stack
9205: OKC_API.SET_MESSAGE(
9228:
9229: BEGIN
9230:
9231: IF (l_debug = 'Y') THEN
9232: okc_debug.Set_Indentation('OKC_CLE_PVT');
9233: okc_debug.log('23400: Entered create_version', 2);
9234: END IF;
9235:
9236: INSERT INTO okc_k_lines_bh
9229: BEGIN
9230:
9231: IF (l_debug = 'Y') THEN
9232: okc_debug.Set_Indentation('OKC_CLE_PVT');
9233: okc_debug.log('23400: Entered create_version', 2);
9234: END IF;
9235:
9236: INSERT INTO okc_k_lines_bh
9237: (
9481: from okc_k_lines_b
9482: where dnz_chr_id = p_chr_id);
9483:
9484: IF (l_debug = 'Y') THEN
9485: okc_debug.log('23500: Exiting create_version', 2);
9486: okc_debug.Reset_Indentation;
9487: END IF;
9488:
9489: RETURN l_return_status;
9482: where dnz_chr_id = p_chr_id);
9483:
9484: IF (l_debug = 'Y') THEN
9485: okc_debug.log('23500: Exiting create_version', 2);
9486: okc_debug.Reset_Indentation;
9487: END IF;
9488:
9489: RETURN l_return_status;
9490:
9492: -- other appropriate handlers
9493: WHEN OTHERS THEN
9494:
9495: IF (l_debug = 'Y') THEN
9496: okc_debug.log('23600: Exiting create_version:OTHERS Exception', 2);
9497: okc_debug.Reset_Indentation;
9498: END IF;
9499:
9500: -- store SQL error message on message stack
9493: WHEN OTHERS THEN
9494:
9495: IF (l_debug = 'Y') THEN
9496: okc_debug.log('23600: Exiting create_version:OTHERS Exception', 2);
9497: okc_debug.Reset_Indentation;
9498: END IF;
9499:
9500: -- store SQL error message on message stack
9501: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
9524:
9525: BEGIN
9526:
9527: IF (l_debug = 'Y') THEN
9528: okc_debug.Set_Indentation('OKC_CLE_PVT');
9529: okc_debug.log('23700: Entered restore_version', 2);
9530: END IF;
9531:
9532: INSERT INTO okc_k_lines_tl
9525: BEGIN
9526:
9527: IF (l_debug = 'Y') THEN
9528: okc_debug.Set_Indentation('OKC_CLE_PVT');
9529: okc_debug.log('23700: Entered restore_version', 2);
9530: END IF;
9531:
9532: INSERT INTO okc_k_lines_tl
9533: (
9776: WHERE dnz_chr_id = p_chr_id
9777: AND major_version = p_major_version;
9778:
9779: IF (l_debug = 'Y') THEN
9780: okc_debug.log('23800: Exiting restore_version', 2);
9781: okc_debug.Reset_Indentation;
9782: END IF;
9783:
9784: RETURN l_return_status;
9777: AND major_version = p_major_version;
9778:
9779: IF (l_debug = 'Y') THEN
9780: okc_debug.log('23800: Exiting restore_version', 2);
9781: okc_debug.Reset_Indentation;
9782: END IF;
9783:
9784: RETURN l_return_status;
9785:
9787: -- other appropriate handlers
9788: WHEN OTHERS THEN
9789:
9790: IF (l_debug = 'Y') THEN
9791: okc_debug.log('23900: Exiting restore_version:OTHERS Exception', 2);
9792: okc_debug.Reset_Indentation;
9793: END IF;
9794:
9795: -- store SQL error message on message stack
9788: WHEN OTHERS THEN
9789:
9790: IF (l_debug = 'Y') THEN
9791: okc_debug.log('23900: Exiting restore_version:OTHERS Exception', 2);
9792: okc_debug.Reset_Indentation;
9793: END IF;
9794:
9795: -- store SQL error message on message stack
9796: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,