32:
33: BEGIN
34:
35: IF (l_debug = 'Y') THEN
36: okc_debug.Set_Indentation('OKC_CHR_PVT');
37: okc_debug.LOG('100: Entered validate_contract_number', 2);
38: END IF;
39:
40: -- initialize return status
33: BEGIN
34:
35: IF (l_debug = 'Y') THEN
36: okc_debug.Set_Indentation('OKC_CHR_PVT');
37: okc_debug.LOG('100: Entered validate_contract_number', 2);
38: END IF;
39:
40: -- initialize return status
41: x_return_status := OKC_API.G_RET_STS_SUCCESS;
55: RAISE G_EXCEPTION_HALT_VALIDATION;
56: END IF;
57:
58: IF (l_debug = 'Y') THEN
59: okc_debug.LOG('200: Exiting validate_contract_number', 2);
60: okc_debug.Reset_Indentation;
61: END IF;
62:
63:
56: END IF;
57:
58: IF (l_debug = 'Y') THEN
59: okc_debug.LOG('200: Exiting validate_contract_number', 2);
60: okc_debug.Reset_Indentation;
61: END IF;
62:
63:
64: EXCEPTION
64: EXCEPTION
65: WHEN G_EXCEPTION_HALT_VALIDATION THEN
66:
67: IF (l_debug = 'Y') THEN
68: okc_debug.LOG('300: Exiting validate_contract_number:G_EXCEPTION_HALT_VALIDATION Exception', 2);
69: okc_debug.Reset_Indentation;
70: END IF;
71:
72: -- no processing necessary; validation can continue with next column
65: WHEN G_EXCEPTION_HALT_VALIDATION THEN
66:
67: IF (l_debug = 'Y') THEN
68: okc_debug.LOG('300: Exiting validate_contract_number:G_EXCEPTION_HALT_VALIDATION Exception', 2);
69: okc_debug.Reset_Indentation;
70: END IF;
71:
72: -- no processing necessary; validation can continue with next column
73: NULL;
74:
75: WHEN OTHERS THEN
76:
77: IF (l_debug = 'Y') THEN
78: okc_debug.LOG('400: Exiting validate_contract_number:OTHERS Exception', 2);
79: okc_debug.Reset_Indentation;
80: END IF;
81:
82: -- store SQL error message on message stack
75: WHEN OTHERS THEN
76:
77: IF (l_debug = 'Y') THEN
78: okc_debug.LOG('400: Exiting validate_contract_number:OTHERS Exception', 2);
79: okc_debug.Reset_Indentation;
80: END IF;
81:
82: -- store SQL error message on message stack
83: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
113: AND nvl(end_date_active, SYSDATE);
114: BEGIN
115:
116: IF (l_debug = 'Y') THEN
117: okc_debug.Set_Indentation('OKC_CHR_PVT');
118: okc_debug.LOG('500: Entered validate_currency_code', 2);
119: END IF;
120:
121: -- initialize return status
114: BEGIN
115:
116: IF (l_debug = 'Y') THEN
117: okc_debug.Set_Indentation('OKC_CHR_PVT');
118: okc_debug.LOG('500: Entered validate_currency_code', 2);
119: END IF;
120:
121: -- initialize return status
122: x_return_status := OKC_API.G_RET_STS_SUCCESS;
154: -- notify caller of an error
155: x_return_status := OKC_API.G_RET_STS_ERROR;
156: END IF;
157: IF (l_debug = 'Y') THEN
158: okc_debug.LOG('600: Exiting validate_currency_code', 2);
159: okc_debug.Reset_Indentation;
160: END IF;
161:
162:
155: x_return_status := OKC_API.G_RET_STS_ERROR;
156: END IF;
157: IF (l_debug = 'Y') THEN
158: okc_debug.LOG('600: Exiting validate_currency_code', 2);
159: okc_debug.Reset_Indentation;
160: END IF;
161:
162:
163: EXCEPTION
163: EXCEPTION
164: WHEN G_EXCEPTION_HALT_VALIDATION THEN
165:
166: IF (l_debug = 'Y') THEN
167: okc_debug.LOG('700: Exiting validate_currency_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
168: okc_debug.Reset_Indentation;
169: END IF;
170:
171: -- no processing necessary; validation can continue with next column
164: WHEN G_EXCEPTION_HALT_VALIDATION THEN
165:
166: IF (l_debug = 'Y') THEN
167: okc_debug.LOG('700: Exiting validate_currency_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
168: okc_debug.Reset_Indentation;
169: END IF;
170:
171: -- no processing necessary; validation can continue with next column
172: NULL;
173:
174: WHEN OTHERS THEN
175:
176: IF (l_debug = 'Y') THEN
177: okc_debug.LOG('800: Exiting validate_currency_code:OTHERS Exception', 2);
178: okc_debug.Reset_Indentation;
179: END IF;
180:
181: -- store SQL error message on message stack
174: WHEN OTHERS THEN
175:
176: IF (l_debug = 'Y') THEN
177: okc_debug.LOG('800: Exiting validate_currency_code:OTHERS Exception', 2);
178: okc_debug.Reset_Indentation;
179: END IF;
180:
181: -- store SQL error message on message stack
182: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
209:
210: BEGIN
211:
212: IF (l_debug = 'Y') THEN
213: okc_debug.Set_Indentation('OKC_CHR_PVT');
214: okc_debug.LOG('900: Entered validate_sfwt_flag', 2);
215: END IF;
216:
217: -- initialize return status
210: BEGIN
211:
212: IF (l_debug = 'Y') THEN
213: okc_debug.Set_Indentation('OKC_CHR_PVT');
214: okc_debug.LOG('900: Entered validate_sfwt_flag', 2);
215: END IF;
216:
217: -- initialize return status
218: x_return_status := OKC_API.G_RET_STS_SUCCESS;
242: x_return_status := OKC_API.G_RET_STS_ERROR;
243: END IF;
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.LOG('1000: Exiting validate_sfwt_flag', 2);
247: okc_debug.Reset_Indentation;
248: END IF;
249:
250:
243: END IF;
244:
245: IF (l_debug = 'Y') THEN
246: okc_debug.LOG('1000: Exiting validate_sfwt_flag', 2);
247: okc_debug.Reset_Indentation;
248: END IF;
249:
250:
251: EXCEPTION
251: EXCEPTION
252: WHEN G_EXCEPTION_HALT_VALIDATION THEN
253:
254: IF (l_debug = 'Y') THEN
255: okc_debug.LOG('1100: Exiting validate_sfwt_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
256: okc_debug.Reset_Indentation;
257: END IF;
258:
259: -- no processing necessary; validation can continue with next column
252: WHEN G_EXCEPTION_HALT_VALIDATION THEN
253:
254: IF (l_debug = 'Y') THEN
255: okc_debug.LOG('1100: Exiting validate_sfwt_flag:G_EXCEPTION_HALT_VALIDATION Exception', 2);
256: okc_debug.Reset_Indentation;
257: END IF;
258:
259: -- no processing necessary; validation can continue with next column
260: NULL;
261:
262: WHEN OTHERS THEN
263:
264: IF (l_debug = 'Y') THEN
265: okc_debug.LOG('1200: Exiting validate_sfwt_flag:OTHERS Exception', 2);
266: okc_debug.Reset_Indentation;
267: END IF;
268:
269: -- store SQL error message on message stack
262: WHEN OTHERS THEN
263:
264: IF (l_debug = 'Y') THEN
265: okc_debug.LOG('1200: Exiting validate_sfwt_flag:OTHERS Exception', 2);
266: okc_debug.Reset_Indentation;
267: END IF;
268:
269: -- store SQL error message on message stack
270: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
302:
303: BEGIN
304:
305: IF (l_debug = 'Y') THEN
306: okc_debug.Set_Indentation('OKC_CHR_PVT');
307: okc_debug.LOG('1300: Entered validate_chr_id_response', 2);
308: END IF;
309:
310: -- initialize return status
303: BEGIN
304:
305: IF (l_debug = 'Y') THEN
306: okc_debug.Set_Indentation('OKC_CHR_PVT');
307: okc_debug.LOG('1300: Entered validate_chr_id_response', 2);
308: END IF;
309:
310: -- initialize return status
311: x_return_status := OKC_API.G_RET_STS_SUCCESS;
331: x_return_status := OKC_API.G_RET_STS_ERROR;
332: END IF;
333: END IF;
334: IF (l_debug = 'Y') THEN
335: okc_debug.LOG('1400: Exiting validate_chr_id_response', 2);
336: okc_debug.Reset_Indentation;
337: END IF;
338:
339:
332: END IF;
333: END IF;
334: IF (l_debug = 'Y') THEN
335: okc_debug.LOG('1400: Exiting validate_chr_id_response', 2);
336: okc_debug.Reset_Indentation;
337: END IF;
338:
339:
340: EXCEPTION
340: EXCEPTION
341: WHEN OTHERS THEN
342:
343: IF (l_debug = 'Y') THEN
344: okc_debug.LOG('1500: Exiting validate_chr_id_response:OTHERS Exception', 2);
345: okc_debug.Reset_Indentation;
346: END IF;
347:
348: -- store SQL error message on message stack
341: WHEN OTHERS THEN
342:
343: IF (l_debug = 'Y') THEN
344: okc_debug.LOG('1500: Exiting validate_chr_id_response:OTHERS Exception', 2);
345: okc_debug.Reset_Indentation;
346: END IF;
347:
348: -- store SQL error message on message stack
349: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
386:
387: BEGIN
388:
389: IF (l_debug = 'Y') THEN
390: okc_debug.Set_Indentation('OKC_CHR_PVT');
391: okc_debug.LOG('1600: Entered validate_chr_id_award', 2);
392: END IF;
393:
394: -- initialize return status
387: BEGIN
388:
389: IF (l_debug = 'Y') THEN
390: okc_debug.Set_Indentation('OKC_CHR_PVT');
391: okc_debug.LOG('1600: Entered validate_chr_id_award', 2);
392: END IF;
393:
394: -- initialize return status
395: x_return_status := OKC_API.G_RET_STS_SUCCESS;
415: x_return_status := OKC_API.G_RET_STS_ERROR;
416: END IF;
417: END IF;
418: IF (l_debug = 'Y') THEN
419: okc_debug.LOG('1700: Exiting validate_chr_id_award', 2);
420: okc_debug.Reset_Indentation;
421: END IF;
422:
423:
416: END IF;
417: END IF;
418: IF (l_debug = 'Y') THEN
419: okc_debug.LOG('1700: Exiting validate_chr_id_award', 2);
420: okc_debug.Reset_Indentation;
421: END IF;
422:
423:
424: EXCEPTION
424: EXCEPTION
425: WHEN OTHERS THEN
426:
427: IF (l_debug = 'Y') THEN
428: okc_debug.LOG('1800: Exiting validate_chr_id_award:OTHERS Exception', 2);
429: okc_debug.Reset_Indentation;
430: END IF;
431:
432: -- store SQL error message on message stack
425: WHEN OTHERS THEN
426:
427: IF (l_debug = 'Y') THEN
428: okc_debug.LOG('1800: Exiting validate_chr_id_award:OTHERS Exception', 2);
429: okc_debug.Reset_Indentation;
430: END IF;
431:
432: -- store SQL error message on message stack
433: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
459: p_chrv_rec IN chrv_rec_type) IS
460: BEGIN
461:
462: IF (l_debug = 'Y') THEN
463: okc_debug.Set_Indentation('OKC_CHR_PVT');
464: okc_debug.LOG('1900: Entered validate_INV_ORGANIZATION_ID', 2);
465: END IF;
466:
467: -- initialize return status
460: BEGIN
461:
462: IF (l_debug = 'Y') THEN
463: okc_debug.Set_Indentation('OKC_CHR_PVT');
464: okc_debug.LOG('1900: Entered validate_INV_ORGANIZATION_ID', 2);
465: END IF;
466:
467: -- initialize return status
468: x_return_status := OKC_API.G_RET_STS_SUCCESS;
481: -- halt validation
482: RAISE G_EXCEPTION_HALT_VALIDATION;
483: END IF;
484: IF (l_debug = 'Y') THEN
485: okc_debug.LOG('2000: Exiting validate_INV_ORGANIZATION_ID', 2);
486: okc_debug.Reset_Indentation;
487: END IF;
488:
489:
482: RAISE G_EXCEPTION_HALT_VALIDATION;
483: END IF;
484: IF (l_debug = 'Y') THEN
485: okc_debug.LOG('2000: Exiting validate_INV_ORGANIZATION_ID', 2);
486: okc_debug.Reset_Indentation;
487: END IF;
488:
489:
490: EXCEPTION
490: EXCEPTION
491: WHEN G_EXCEPTION_HALT_VALIDATION THEN
492:
493: IF (l_debug = 'Y') THEN
494: okc_debug.LOG('2100: Exiting validate_INV_ORGANIZATION_ID:G_EXCEPTION_HALT_VALIDATION Exception', 2);
495: okc_debug.Reset_Indentation;
496: END IF;
497:
498: -- no processing necessary; validation can continue with next column
491: WHEN G_EXCEPTION_HALT_VALIDATION THEN
492:
493: IF (l_debug = 'Y') THEN
494: okc_debug.LOG('2100: Exiting validate_INV_ORGANIZATION_ID:G_EXCEPTION_HALT_VALIDATION Exception', 2);
495: okc_debug.Reset_Indentation;
496: END IF;
497:
498: -- no processing necessary; validation can continue with next column
499: NULL;
500:
501: WHEN OTHERS THEN
502:
503: IF (l_debug = 'Y') THEN
504: okc_debug.LOG('2200: Exiting validate_INV_ORGANIZATION_ID:OTHERS Exception', 2);
505: okc_debug.Reset_Indentation;
506: END IF;
507:
508: -- store SQL error message on message stack
501: WHEN OTHERS THEN
502:
503: IF (l_debug = 'Y') THEN
504: okc_debug.LOG('2200: Exiting validate_INV_ORGANIZATION_ID:OTHERS Exception', 2);
505: okc_debug.Reset_Indentation;
506: END IF;
507:
508: -- store SQL error message on message stack
509: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
534: WHERE okc_statuses_B.code = p_code;
535: BEGIN
536:
537: IF (l_debug = 'Y') THEN
538: okc_debug.Set_Indentation('OKC_CHR_PVT');
539: okc_debug.LOG('2300: Entered validate_sts_code', 2);
540: END IF;
541:
542: -- initialize return status
535: BEGIN
536:
537: IF (l_debug = 'Y') THEN
538: okc_debug.Set_Indentation('OKC_CHR_PVT');
539: okc_debug.LOG('2300: Entered validate_sts_code', 2);
540: END IF;
541:
542: -- initialize return status
543: x_return_status := OKC_API.G_RET_STS_SUCCESS;
576: -- notify caller of an error
577: x_return_status := OKC_API.G_RET_STS_ERROR;
578: END IF;
579: IF (l_debug = 'Y') THEN
580: okc_debug.LOG('2400: Exiting validate_sts_code', 2);
581: okc_debug.Reset_Indentation;
582: END IF;
583:
584:
577: x_return_status := OKC_API.G_RET_STS_ERROR;
578: END IF;
579: IF (l_debug = 'Y') THEN
580: okc_debug.LOG('2400: Exiting validate_sts_code', 2);
581: okc_debug.Reset_Indentation;
582: END IF;
583:
584:
585: EXCEPTION
585: EXCEPTION
586: WHEN G_EXCEPTION_HALT_VALIDATION THEN
587:
588: IF (l_debug = 'Y') THEN
589: okc_debug.LOG('2500: Exiting validate_sts_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
590: okc_debug.Reset_Indentation;
591: END IF;
592:
593: -- no processing necessary; validation can continue with next column
586: WHEN G_EXCEPTION_HALT_VALIDATION THEN
587:
588: IF (l_debug = 'Y') THEN
589: okc_debug.LOG('2500: Exiting validate_sts_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
590: okc_debug.Reset_Indentation;
591: END IF;
592:
593: -- no processing necessary; validation can continue with next column
594: NULL;
595:
596: WHEN OTHERS THEN
597:
598: IF (l_debug = 'Y') THEN
599: okc_debug.LOG('2600: Exiting validate_sts_code:OTHERS Exception', 2);
600: okc_debug.Reset_Indentation;
601: END IF;
602:
603: -- store SQL error message on message stack
596: WHEN OTHERS THEN
597:
598: IF (l_debug = 'Y') THEN
599: okc_debug.LOG('2600: Exiting validate_sts_code:OTHERS Exception', 2);
600: okc_debug.Reset_Indentation;
601: END IF;
602:
603: -- store SQL error message on message stack
604: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
630: WHERE ID = p_chrv_rec.qcl_id;
631: BEGIN
632:
633: IF (l_debug = 'Y') THEN
634: okc_debug.Set_Indentation('OKC_CHR_PVT');
635: okc_debug.LOG('2700: Entered validate_qcl_id', 2);
636: END IF;
637:
638: -- initialize return status
631: BEGIN
632:
633: IF (l_debug = 'Y') THEN
634: okc_debug.Set_Indentation('OKC_CHR_PVT');
635: okc_debug.LOG('2700: Entered validate_qcl_id', 2);
636: END IF;
637:
638: -- initialize return status
639: x_return_status := OKC_API.G_RET_STS_SUCCESS;
660: x_return_status := OKC_API.G_RET_STS_ERROR;
661: END IF;
662: END IF;
663: IF (l_debug = 'Y') THEN
664: okc_debug.LOG('2800: Exiting validate_qcl_id', 2);
665: okc_debug.Reset_Indentation;
666: END IF;
667:
668:
661: END IF;
662: END IF;
663: IF (l_debug = 'Y') THEN
664: okc_debug.LOG('2800: Exiting validate_qcl_id', 2);
665: okc_debug.Reset_Indentation;
666: END IF;
667:
668:
669: EXCEPTION
669: EXCEPTION
670: WHEN OTHERS THEN
671:
672: IF (l_debug = 'Y') THEN
673: okc_debug.LOG('2900: Exiting validate_qcl_id:OTHERS Exception', 2);
674: okc_debug.Reset_Indentation;
675: END IF;
676:
677: -- store SQL error message on message stack
670: WHEN OTHERS THEN
671:
672: IF (l_debug = 'Y') THEN
673: okc_debug.LOG('2900: Exiting validate_qcl_id:OTHERS Exception', 2);
674: okc_debug.Reset_Indentation;
675: END IF;
676:
677: -- store SQL error message on message stack
678: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
704: p_chrv_rec IN chrv_rec_type) IS
705: BEGIN
706:
707: IF (l_debug = 'Y') THEN
708: okc_debug.Set_Indentation('OKC_CHR_PVT');
709: okc_debug.LOG('3000: Entered validate_org_ids', 2);
710: END IF;
711:
712: -- initialize return status
705: BEGIN
706:
707: IF (l_debug = 'Y') THEN
708: okc_debug.Set_Indentation('OKC_CHR_PVT');
709: okc_debug.LOG('3000: Entered validate_org_ids', 2);
710: END IF;
711:
712: -- initialize return status
713: x_return_status := OKC_API.G_RET_STS_SUCCESS;
749: END IF;
750:
751:
752: IF (l_debug = 'Y') THEN
753: okc_debug.LOG('3100: Exiting validate_org_ids', 2);
754: okc_debug.Reset_Indentation;
755: END IF;
756:
757:
750:
751:
752: IF (l_debug = 'Y') THEN
753: okc_debug.LOG('3100: Exiting validate_org_ids', 2);
754: okc_debug.Reset_Indentation;
755: END IF;
756:
757:
758: EXCEPTION
758: EXCEPTION
759: WHEN G_EXCEPTION_HALT_VALIDATION THEN
760:
761: IF (l_debug = 'Y') THEN
762: okc_debug.LOG('3200: Exiting validate_org_ids:G_EXCEPTION_HALT_VALIDATION Exception', 2);
763: okc_debug.Reset_Indentation;
764: END IF;
765:
766: -- no processing necessary; validation can continue with next column
759: WHEN G_EXCEPTION_HALT_VALIDATION THEN
760:
761: IF (l_debug = 'Y') THEN
762: okc_debug.LOG('3200: Exiting validate_org_ids:G_EXCEPTION_HALT_VALIDATION Exception', 2);
763: okc_debug.Reset_Indentation;
764: END IF;
765:
766: -- no processing necessary; validation can continue with next column
767: NULL;
768:
769: WHEN OTHERS THEN
770:
771: IF (l_debug = 'Y') THEN
772: okc_debug.LOG('3300: Exiting validate_org_ids:OTHERS Exception', 2);
773: okc_debug.Reset_Indentation;
774: END IF;
775:
776: -- store SQL error message on message stack
769: WHEN OTHERS THEN
770:
771: IF (l_debug = 'Y') THEN
772: okc_debug.LOG('3300: Exiting validate_org_ids:OTHERS Exception', 2);
773: okc_debug.Reset_Indentation;
774: END IF;
775:
776: -- store SQL error message on message stack
777: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
797: p_chrv_rec IN chrv_rec_type) IS
798: BEGIN
799:
800: IF (l_debug = 'Y') THEN
801: okc_debug.Set_Indentation('OKC_CHR_PVT');
802: okc_debug.LOG('3400: Entered validate_buy_or_sell', 2);
803: END IF;
804:
805: -- initialize return status
798: BEGIN
799:
800: IF (l_debug = 'Y') THEN
801: okc_debug.Set_Indentation('OKC_CHR_PVT');
802: okc_debug.LOG('3400: Entered validate_buy_or_sell', 2);
803: END IF;
804:
805: -- initialize return status
806: x_return_status := OKC_API.G_RET_STS_SUCCESS;
821: RAISE G_EXCEPTION_HALT_VALIDATION;
822: END IF;
823: END IF;
824: IF (l_debug = 'Y') THEN
825: okc_debug.LOG('3500: Exiting validate_buy_or_sell', 2);
826: okc_debug.Reset_Indentation;
827: END IF;
828:
829:
822: END IF;
823: END IF;
824: IF (l_debug = 'Y') THEN
825: okc_debug.LOG('3500: Exiting validate_buy_or_sell', 2);
826: okc_debug.Reset_Indentation;
827: END IF;
828:
829:
830: EXCEPTION
830: EXCEPTION
831: WHEN G_EXCEPTION_HALT_VALIDATION THEN
832:
833: IF (l_debug = 'Y') THEN
834: okc_debug.LOG('3600: Exiting validate_buy_or_sell:G_EXCEPTION_HALT_VALIDATION Exception', 2);
835: okc_debug.Reset_Indentation;
836: END IF;
837:
838: -- no processing necessary; validation can continue with next column
831: WHEN G_EXCEPTION_HALT_VALIDATION THEN
832:
833: IF (l_debug = 'Y') THEN
834: okc_debug.LOG('3600: Exiting validate_buy_or_sell:G_EXCEPTION_HALT_VALIDATION Exception', 2);
835: okc_debug.Reset_Indentation;
836: END IF;
837:
838: -- no processing necessary; validation can continue with next column
839: NULL;
840:
841: WHEN OTHERS THEN
842:
843: IF (l_debug = 'Y') THEN
844: okc_debug.LOG('3700: Exiting validate_buy_or_sell:OTHERS Exception', 2);
845: okc_debug.Reset_Indentation;
846: END IF;
847:
848: -- store SQL error message on message stack
841: WHEN OTHERS THEN
842:
843: IF (l_debug = 'Y') THEN
844: okc_debug.LOG('3700: Exiting validate_buy_or_sell:OTHERS Exception', 2);
845: okc_debug.Reset_Indentation;
846: END IF;
847:
848: -- store SQL error message on message stack
849: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
869: p_chrv_rec IN chrv_rec_type) IS
870: BEGIN
871:
872: IF (l_debug = 'Y') THEN
873: okc_debug.Set_Indentation('OKC_CHR_PVT');
874: okc_debug.LOG('3800: Entered validate_issue_or_receive', 2);
875: END IF;
876:
877: -- initialize return status
870: BEGIN
871:
872: IF (l_debug = 'Y') THEN
873: okc_debug.Set_Indentation('OKC_CHR_PVT');
874: okc_debug.LOG('3800: Entered validate_issue_or_receive', 2);
875: END IF;
876:
877: -- initialize return status
878: x_return_status := OKC_API.G_RET_STS_SUCCESS;
893: RAISE G_EXCEPTION_HALT_VALIDATION;
894: END IF;
895: END IF;
896: IF (l_debug = 'Y') THEN
897: okc_debug.LOG('3900: Exiting validate_issue_or_receive', 2);
898: okc_debug.Reset_Indentation;
899: END IF;
900:
901:
894: END IF;
895: END IF;
896: IF (l_debug = 'Y') THEN
897: okc_debug.LOG('3900: Exiting validate_issue_or_receive', 2);
898: okc_debug.Reset_Indentation;
899: END IF;
900:
901:
902: EXCEPTION
902: EXCEPTION
903: WHEN G_EXCEPTION_HALT_VALIDATION THEN
904:
905: IF (l_debug = 'Y') THEN
906: okc_debug.LOG('4000: Exiting validate_issue_or_receive:G_EXCEPTION_HALT_VALIDATION Exception', 2);
907: okc_debug.Reset_Indentation;
908: END IF;
909:
910: -- no processing necessary; validation can continue with next column
903: WHEN G_EXCEPTION_HALT_VALIDATION THEN
904:
905: IF (l_debug = 'Y') THEN
906: okc_debug.LOG('4000: Exiting validate_issue_or_receive:G_EXCEPTION_HALT_VALIDATION Exception', 2);
907: okc_debug.Reset_Indentation;
908: END IF;
909:
910: -- no processing necessary; validation can continue with next column
911: NULL;
912:
913: WHEN OTHERS THEN
914:
915: IF (l_debug = 'Y') THEN
916: okc_debug.LOG('4100: Exiting validate_issue_or_receive:OTHERS Exception', 2);
917: okc_debug.Reset_Indentation;
918: END IF;
919:
920: -- store SQL error message on message stack
913: WHEN OTHERS THEN
914:
915: IF (l_debug = 'Y') THEN
916: okc_debug.LOG('4100: Exiting validate_issue_or_receive:OTHERS Exception', 2);
917: okc_debug.Reset_Indentation;
918: END IF;
919:
920: -- store SQL error message on message stack
921: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
946: WHERE okc_subclasses_b.code = p_code;
947: BEGIN
948:
949: IF (l_debug = 'Y') THEN
950: okc_debug.Set_Indentation('OKC_CHR_PVT');
951: okc_debug.LOG('4200: Entered validate_scs_code', 2);
952: END IF;
953:
954: -- initialize return status
947: BEGIN
948:
949: IF (l_debug = 'Y') THEN
950: okc_debug.Set_Indentation('OKC_CHR_PVT');
951: okc_debug.LOG('4200: Entered validate_scs_code', 2);
952: END IF;
953:
954: -- initialize return status
955: x_return_status := OKC_API.G_RET_STS_SUCCESS;
988: -- notify caller of an error
989: x_return_status := OKC_API.G_RET_STS_ERROR;
990: END IF;
991: IF (l_debug = 'Y') THEN
992: okc_debug.LOG('4300: Exiting validate_scs_code', 2);
993: okc_debug.Reset_Indentation;
994: END IF;
995:
996:
989: x_return_status := OKC_API.G_RET_STS_ERROR;
990: END IF;
991: IF (l_debug = 'Y') THEN
992: okc_debug.LOG('4300: Exiting validate_scs_code', 2);
993: okc_debug.Reset_Indentation;
994: END IF;
995:
996:
997: EXCEPTION
997: EXCEPTION
998: WHEN G_EXCEPTION_HALT_VALIDATION THEN
999:
1000: IF (l_debug = 'Y') THEN
1001: okc_debug.LOG('4400: Exiting validate_scs_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1002: okc_debug.Reset_Indentation;
1003: END IF;
1004:
1005: -- no processing necessary; validation can continue with next column
998: WHEN G_EXCEPTION_HALT_VALIDATION THEN
999:
1000: IF (l_debug = 'Y') THEN
1001: okc_debug.LOG('4400: Exiting validate_scs_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1002: okc_debug.Reset_Indentation;
1003: END IF;
1004:
1005: -- no processing necessary; validation can continue with next column
1006: NULL;
1007:
1008: WHEN OTHERS THEN
1009:
1010: IF (l_debug = 'Y') THEN
1011: okc_debug.LOG('4500: Exiting validate_scs_code:OTHERS Exception', 2);
1012: okc_debug.Reset_Indentation;
1013: END IF;
1014:
1015: -- store SQL error message on message stack
1008: WHEN OTHERS THEN
1009:
1010: IF (l_debug = 'Y') THEN
1011: okc_debug.LOG('4500: Exiting validate_scs_code:OTHERS Exception', 2);
1012: okc_debug.Reset_Indentation;
1013: END IF;
1014:
1015: -- store SQL error message on message stack
1016: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1036: p_chrv_rec IN chrv_rec_type) IS
1037: BEGIN
1038:
1039: IF (l_debug = 'Y') THEN
1040: okc_debug.Set_Indentation('OKC_CHR_PVT');
1041: okc_debug.LOG('4600: Entered validate_archived_yn', 2);
1042: END IF;
1043:
1044: -- initialize return status
1037: BEGIN
1038:
1039: IF (l_debug = 'Y') THEN
1040: okc_debug.Set_Indentation('OKC_CHR_PVT');
1041: okc_debug.LOG('4600: Entered validate_archived_yn', 2);
1042: END IF;
1043:
1044: -- initialize return status
1045: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1068: -- notify caller of an error
1069: x_return_status := OKC_API.G_RET_STS_ERROR;
1070: END IF;
1071: IF (l_debug = 'Y') THEN
1072: okc_debug.LOG('4700: Exiting validate_archived_yn', 2);
1073: okc_debug.Reset_Indentation;
1074: END IF;
1075:
1076:
1069: x_return_status := OKC_API.G_RET_STS_ERROR;
1070: END IF;
1071: IF (l_debug = 'Y') THEN
1072: okc_debug.LOG('4700: Exiting validate_archived_yn', 2);
1073: okc_debug.Reset_Indentation;
1074: END IF;
1075:
1076:
1077: EXCEPTION
1077: EXCEPTION
1078: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1079:
1080: IF (l_debug = 'Y') THEN
1081: okc_debug.LOG('4800: Exiting validate_archived_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1082: okc_debug.Reset_Indentation;
1083: END IF;
1084:
1085: -- no processing necessary; validation can continue with next column
1078: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1079:
1080: IF (l_debug = 'Y') THEN
1081: okc_debug.LOG('4800: Exiting validate_archived_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1082: okc_debug.Reset_Indentation;
1083: END IF;
1084:
1085: -- no processing necessary; validation can continue with next column
1086: NULL;
1087:
1088: WHEN OTHERS THEN
1089:
1090: IF (l_debug = 'Y') THEN
1091: okc_debug.LOG('4900: Exiting validate_archived_yn:OTHERS Exception', 2);
1092: okc_debug.Reset_Indentation;
1093: END IF;
1094:
1095: -- store SQL error message on message stack
1088: WHEN OTHERS THEN
1089:
1090: IF (l_debug = 'Y') THEN
1091: okc_debug.LOG('4900: Exiting validate_archived_yn:OTHERS Exception', 2);
1092: okc_debug.Reset_Indentation;
1093: END IF;
1094:
1095: -- store SQL error message on message stack
1096: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1116: p_chrv_rec IN chrv_rec_type) IS
1117: BEGIN
1118:
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.Set_Indentation('OKC_CHR_PVT');
1121: okc_debug.LOG('5000: Entered validate_deleted_yn', 2);
1122: END IF;
1123:
1124: -- initialize return status
1117: BEGIN
1118:
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.Set_Indentation('OKC_CHR_PVT');
1121: okc_debug.LOG('5000: Entered validate_deleted_yn', 2);
1122: END IF;
1123:
1124: -- initialize return status
1125: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1148: -- notify caller of an error
1149: x_return_status := OKC_API.G_RET_STS_ERROR;
1150: END IF;
1151: IF (l_debug = 'Y') THEN
1152: okc_debug.LOG('5100: Exiting validate_deleted_yn', 2);
1153: okc_debug.Reset_Indentation;
1154: END IF;
1155:
1156:
1149: x_return_status := OKC_API.G_RET_STS_ERROR;
1150: END IF;
1151: IF (l_debug = 'Y') THEN
1152: okc_debug.LOG('5100: Exiting validate_deleted_yn', 2);
1153: okc_debug.Reset_Indentation;
1154: END IF;
1155:
1156:
1157: EXCEPTION
1157: EXCEPTION
1158: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1159:
1160: IF (l_debug = 'Y') THEN
1161: okc_debug.LOG('5200: Exiting validate_deleted_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1162: okc_debug.Reset_Indentation;
1163: END IF;
1164:
1165: -- no processing necessary; validation can continue with next column
1158: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1159:
1160: IF (l_debug = 'Y') THEN
1161: okc_debug.LOG('5200: Exiting validate_deleted_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1162: okc_debug.Reset_Indentation;
1163: END IF;
1164:
1165: -- no processing necessary; validation can continue with next column
1166: NULL;
1167:
1168: WHEN OTHERS THEN
1169:
1170: IF (l_debug = 'Y') THEN
1171: okc_debug.LOG('5300: Exiting validate_deleted_yn:OTHERS Exception', 2);
1172: okc_debug.Reset_Indentation;
1173: END IF;
1174:
1175: -- store SQL error message on message stack
1168: WHEN OTHERS THEN
1169:
1170: IF (l_debug = 'Y') THEN
1171: okc_debug.LOG('5300: Exiting validate_deleted_yn:OTHERS Exception', 2);
1172: okc_debug.Reset_Indentation;
1173: END IF;
1174:
1175: -- store SQL error message on message stack
1176: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1196: p_chrv_rec IN chrv_rec_type) IS
1197: BEGIN
1198:
1199: IF (l_debug = 'Y') THEN
1200: okc_debug.Set_Indentation('OKC_CHR_PVT');
1201: okc_debug.LOG('5400: Entered validate_cust_po_number_req_yn', 2);
1202: END IF;
1203:
1204: -- initialize return status
1197: BEGIN
1198:
1199: IF (l_debug = 'Y') THEN
1200: okc_debug.Set_Indentation('OKC_CHR_PVT');
1201: okc_debug.LOG('5400: Entered validate_cust_po_number_req_yn', 2);
1202: END IF;
1203:
1204: -- initialize return status
1205: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1220: RAISE G_EXCEPTION_HALT_VALIDATION;
1221: END IF;
1222: END IF;
1223: IF (l_debug = 'Y') THEN
1224: okc_debug.LOG('5500: Exiting validate_cust_po_number_req_yn', 2);
1225: okc_debug.Reset_Indentation;
1226: END IF;
1227:
1228:
1221: END IF;
1222: END IF;
1223: IF (l_debug = 'Y') THEN
1224: okc_debug.LOG('5500: Exiting validate_cust_po_number_req_yn', 2);
1225: okc_debug.Reset_Indentation;
1226: END IF;
1227:
1228:
1229: EXCEPTION
1229: EXCEPTION
1230: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1231:
1232: IF (l_debug = 'Y') THEN
1233: okc_debug.LOG('5600: Exiting validate_cust_po_number_req_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1234: okc_debug.Reset_Indentation;
1235: END IF;
1236:
1237: -- no processing necessary; validation can continue with next column
1230: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1231:
1232: IF (l_debug = 'Y') THEN
1233: okc_debug.LOG('5600: Exiting validate_cust_po_number_req_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1234: okc_debug.Reset_Indentation;
1235: END IF;
1236:
1237: -- no processing necessary; validation can continue with next column
1238: NULL;
1239:
1240: WHEN OTHERS THEN
1241:
1242: IF (l_debug = 'Y') THEN
1243: okc_debug.LOG('5700: Exiting validate_cust_po_number_req_yn:OTHERS Exception', 2);
1244: okc_debug.Reset_Indentation;
1245: END IF;
1246:
1247: -- store SQL error message on message stack
1240: WHEN OTHERS THEN
1241:
1242: IF (l_debug = 'Y') THEN
1243: okc_debug.LOG('5700: Exiting validate_cust_po_number_req_yn:OTHERS Exception', 2);
1244: okc_debug.Reset_Indentation;
1245: END IF;
1246:
1247: -- store SQL error message on message stack
1248: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1268: p_chrv_rec IN chrv_rec_type) IS
1269: BEGIN
1270:
1271: IF (l_debug = 'Y') THEN
1272: okc_debug.Set_Indentation('OKC_CHR_PVT');
1273: okc_debug.LOG('5800: Entered validate_pre_pay_req_yn', 2);
1274: END IF;
1275:
1276: -- initialize return status
1269: BEGIN
1270:
1271: IF (l_debug = 'Y') THEN
1272: okc_debug.Set_Indentation('OKC_CHR_PVT');
1273: okc_debug.LOG('5800: Entered validate_pre_pay_req_yn', 2);
1274: END IF;
1275:
1276: -- initialize return status
1277: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1293: RAISE G_EXCEPTION_HALT_VALIDATION;
1294: END IF;
1295: END IF;
1296: IF (l_debug = 'Y') THEN
1297: okc_debug.LOG('5900: Exiting validate_pre_pay_req_yn', 2);
1298: okc_debug.Reset_Indentation;
1299: END IF;
1300:
1301:
1294: END IF;
1295: END IF;
1296: IF (l_debug = 'Y') THEN
1297: okc_debug.LOG('5900: Exiting validate_pre_pay_req_yn', 2);
1298: okc_debug.Reset_Indentation;
1299: END IF;
1300:
1301:
1302: EXCEPTION
1302: EXCEPTION
1303: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1304:
1305: IF (l_debug = 'Y') THEN
1306: okc_debug.LOG('6000: Exiting validate_pre_pay_req_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1307: okc_debug.Reset_Indentation;
1308: END IF;
1309:
1310: -- no processing necessary; validation can continue with next column
1303: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1304:
1305: IF (l_debug = 'Y') THEN
1306: okc_debug.LOG('6000: Exiting validate_pre_pay_req_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1307: okc_debug.Reset_Indentation;
1308: END IF;
1309:
1310: -- no processing necessary; validation can continue with next column
1311: NULL;
1312:
1313: WHEN OTHERS THEN
1314:
1315: IF (l_debug = 'Y') THEN
1316: okc_debug.LOG('6100: Exiting validate_pre_pay_req_yn:OTHERS Exception', 2);
1317: okc_debug.Reset_Indentation;
1318: END IF;
1319:
1320: -- store SQL error message on message stack
1313: WHEN OTHERS THEN
1314:
1315: IF (l_debug = 'Y') THEN
1316: okc_debug.LOG('6100: Exiting validate_pre_pay_req_yn:OTHERS Exception', 2);
1317: okc_debug.Reset_Indentation;
1318: END IF;
1319:
1320: -- store SQL error message on message stack
1321: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1341: p_chrv_rec IN chrv_rec_type) IS
1342: BEGIN
1343:
1344: IF (l_debug = 'Y') THEN
1345: okc_debug.Set_Indentation('OKC_CHR_PVT');
1346: okc_debug.LOG('6200: Entered validate_template_yn', 2);
1347: END IF;
1348:
1349: -- initialize return status
1342: BEGIN
1343:
1344: IF (l_debug = 'Y') THEN
1345: okc_debug.Set_Indentation('OKC_CHR_PVT');
1346: okc_debug.LOG('6200: Entered validate_template_yn', 2);
1347: END IF;
1348:
1349: -- initialize return status
1350: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1373: -- notify caller of an error
1374: x_return_status := OKC_API.G_RET_STS_ERROR;
1375: END IF;
1376: IF (l_debug = 'Y') THEN
1377: okc_debug.LOG('6300: Exiting validate_template_yn', 2);
1378: okc_debug.Reset_Indentation;
1379: END IF;
1380:
1381:
1374: x_return_status := OKC_API.G_RET_STS_ERROR;
1375: END IF;
1376: IF (l_debug = 'Y') THEN
1377: okc_debug.LOG('6300: Exiting validate_template_yn', 2);
1378: okc_debug.Reset_Indentation;
1379: END IF;
1380:
1381:
1382: EXCEPTION
1382: EXCEPTION
1383: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1384:
1385: IF (l_debug = 'Y') THEN
1386: okc_debug.LOG('6400: Exiting validate_template_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1387: okc_debug.Reset_Indentation;
1388: END IF;
1389:
1390: -- no processing necessary; validation can continue with next column
1383: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1384:
1385: IF (l_debug = 'Y') THEN
1386: okc_debug.LOG('6400: Exiting validate_template_yn:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1387: okc_debug.Reset_Indentation;
1388: END IF;
1389:
1390: -- no processing necessary; validation can continue with next column
1391: NULL;
1392:
1393: WHEN OTHERS THEN
1394:
1395: IF (l_debug = 'Y') THEN
1396: okc_debug.LOG('6500: Exiting validate_template_yn:OTHERS Exception', 2);
1397: okc_debug.Reset_Indentation;
1398: END IF;
1399:
1400: -- store SQL error message on message stack
1393: WHEN OTHERS THEN
1394:
1395: IF (l_debug = 'Y') THEN
1396: okc_debug.LOG('6500: Exiting validate_template_yn:OTHERS Exception', 2);
1397: okc_debug.Reset_Indentation;
1398: END IF;
1399:
1400: -- store SQL error message on message stack
1401: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1421: p_chrv_rec IN chrv_rec_type) IS
1422: BEGIN
1423:
1424: IF (l_debug = 'Y') THEN
1425: okc_debug.Set_Indentation('OKC_CHR_PVT');
1426: okc_debug.LOG('6600: Entered validate_chr_type', 2);
1427: END IF;
1428:
1429: -- initialize return status
1422: BEGIN
1423:
1424: IF (l_debug = 'Y') THEN
1425: okc_debug.Set_Indentation('OKC_CHR_PVT');
1426: okc_debug.LOG('6600: Entered validate_chr_type', 2);
1427: END IF;
1428:
1429: -- initialize return status
1430: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1453: -- notify caller of an error
1454: x_return_status := OKC_API.G_RET_STS_ERROR;
1455: END IF;
1456: IF (l_debug = 'Y') THEN
1457: okc_debug.LOG('6700: Exiting validate_chr_type', 2);
1458: okc_debug.Reset_Indentation;
1459: END IF;
1460:
1461:
1454: x_return_status := OKC_API.G_RET_STS_ERROR;
1455: END IF;
1456: IF (l_debug = 'Y') THEN
1457: okc_debug.LOG('6700: Exiting validate_chr_type', 2);
1458: okc_debug.Reset_Indentation;
1459: END IF;
1460:
1461:
1462: EXCEPTION
1462: EXCEPTION
1463: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1464:
1465: IF (l_debug = 'Y') THEN
1466: okc_debug.LOG('6800: Exiting validate_chr_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1467: okc_debug.Reset_Indentation;
1468: END IF;
1469:
1470: -- no processing necessary; validation can continue with next column
1463: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1464:
1465: IF (l_debug = 'Y') THEN
1466: okc_debug.LOG('6800: Exiting validate_chr_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1467: okc_debug.Reset_Indentation;
1468: END IF;
1469:
1470: -- no processing necessary; validation can continue with next column
1471: NULL;
1472:
1473: WHEN OTHERS THEN
1474:
1475: IF (l_debug = 'Y') THEN
1476: okc_debug.LOG('6900: Exiting validate_chr_type:OTHERS Exception', 2);
1477: okc_debug.Reset_Indentation;
1478: END IF;
1479:
1480: -- store SQL error message on message stack
1473: WHEN OTHERS THEN
1474:
1475: IF (l_debug = 'Y') THEN
1476: okc_debug.LOG('6900: Exiting validate_chr_type:OTHERS Exception', 2);
1477: okc_debug.Reset_Indentation;
1478: END IF;
1479:
1480: -- store SQL error message on message stack
1481: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1502: p_chrv_rec IN chrv_rec_type) is
1503: Begin
1504:
1505: IF (l_debug = 'Y') THEN
1506: okc_debug.Set_Indentation('OKC_CHR_PVT');
1507: okc_debug.log('7000: Entered validate_datetime_cancelled', 2);
1508: END IF;
1509:
1510: -- initialize return status
1503: Begin
1504:
1505: IF (l_debug = 'Y') THEN
1506: okc_debug.Set_Indentation('OKC_CHR_PVT');
1507: okc_debug.log('7000: Entered validate_datetime_cancelled', 2);
1508: END IF;
1509:
1510: -- initialize return status
1511: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1529: p_token1 => g_col_name_token,
1530: p_token1_value => 'datetime_cancelled');
1531: End If;
1532: IF (l_debug = 'Y') THEN
1533: okc_debug.log('7100: Exiting validate_datetime_cancelled', 2);
1534: okc_debug.Reset_Indentation;
1535: END IF;
1536:
1537:
1530: p_token1_value => 'datetime_cancelled');
1531: End If;
1532: IF (l_debug = 'Y') THEN
1533: okc_debug.log('7100: Exiting validate_datetime_cancelled', 2);
1534: okc_debug.Reset_Indentation;
1535: END IF;
1536:
1537:
1538: exception
1538: exception
1539: when OTHERS then
1540:
1541: IF (l_debug = 'Y') THEN
1542: okc_debug.log('7200: Exiting validate_datetime_cancelled:OTHERS Exception', 2);
1543: okc_debug.Reset_Indentation;
1544: END IF;
1545:
1546: -- store SQL error message on message stack
1539: when OTHERS then
1540:
1541: IF (l_debug = 'Y') THEN
1542: okc_debug.log('7200: Exiting validate_datetime_cancelled:OTHERS Exception', 2);
1543: okc_debug.Reset_Indentation;
1544: END IF;
1545:
1546: -- store SQL error message on message stack
1547: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1568: p_chrv_rec IN chrv_rec_type) IS
1569: BEGIN
1570:
1571: IF (l_debug = 'Y') THEN
1572: okc_debug.Set_Indentation('OKC_CHR_PVT');
1573: okc_debug.LOG('7300: Entered validate_keep_on_mail_list', 2);
1574: END IF;
1575:
1576: -- initialize return status
1569: BEGIN
1570:
1571: IF (l_debug = 'Y') THEN
1572: okc_debug.Set_Indentation('OKC_CHR_PVT');
1573: okc_debug.LOG('7300: Entered validate_keep_on_mail_list', 2);
1574: END IF;
1575:
1576: -- initialize return status
1577: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1589: x_return_status := OKC_API.G_RET_STS_ERROR;
1590: END IF;
1591: END IF;
1592: IF (l_debug = 'Y') THEN
1593: okc_debug.LOG('7400: Exiting validate_keep_on_mail_list', 2);
1594: okc_debug.Reset_Indentation;
1595: END IF;
1596:
1597:
1590: END IF;
1591: END IF;
1592: IF (l_debug = 'Y') THEN
1593: okc_debug.LOG('7400: Exiting validate_keep_on_mail_list', 2);
1594: okc_debug.Reset_Indentation;
1595: END IF;
1596:
1597:
1598: EXCEPTION
1598: EXCEPTION
1599: WHEN OTHERS THEN
1600:
1601: IF (l_debug = 'Y') THEN
1602: okc_debug.LOG('7500: Exiting validate_keep_on_mail_list:OTHERS Exception', 2);
1603: okc_debug.Reset_Indentation;
1604: END IF;
1605:
1606: -- store SQL error message on message stack
1599: WHEN OTHERS THEN
1600:
1601: IF (l_debug = 'Y') THEN
1602: okc_debug.LOG('7500: Exiting validate_keep_on_mail_list:OTHERS Exception', 2);
1603: okc_debug.Reset_Indentation;
1604: END IF;
1605:
1606: -- store SQL error message on message stack
1607: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1627: p_chrv_rec IN chrv_rec_type) IS
1628: BEGIN
1629:
1630: IF (l_debug = 'Y') THEN
1631: okc_debug.Set_Indentation('OKC_CHR_PVT');
1632: okc_debug.LOG('7600: Entered validate_set_aside_percent', 2);
1633: END IF;
1634:
1635: -- initialize return status
1628: BEGIN
1629:
1630: IF (l_debug = 'Y') THEN
1631: okc_debug.Set_Indentation('OKC_CHR_PVT');
1632: okc_debug.LOG('7600: Entered validate_set_aside_percent', 2);
1633: END IF;
1634:
1635: -- initialize return status
1636: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1649: x_return_status := OKC_API.G_RET_STS_ERROR;
1650: END IF;
1651:
1652: IF (l_debug = 'Y') THEN
1653: okc_debug.LOG('7700: Exiting validate_set_aside_percent', 2);
1654: okc_debug.Reset_Indentation;
1655: END IF;
1656:
1657:
1650: END IF;
1651:
1652: IF (l_debug = 'Y') THEN
1653: okc_debug.LOG('7700: Exiting validate_set_aside_percent', 2);
1654: okc_debug.Reset_Indentation;
1655: END IF;
1656:
1657:
1658: EXCEPTION
1658: EXCEPTION
1659: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1660:
1661: IF (l_debug = 'Y') THEN
1662: okc_debug.LOG('7800: Exiting validate_set_aside_percent:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1663: okc_debug.Reset_Indentation;
1664: END IF;
1665:
1666: -- no processing necessary; validation can continue with next column
1659: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1660:
1661: IF (l_debug = 'Y') THEN
1662: okc_debug.LOG('7800: Exiting validate_set_aside_percent:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1663: okc_debug.Reset_Indentation;
1664: END IF;
1665:
1666: -- no processing necessary; validation can continue with next column
1667: NULL;
1668:
1669: WHEN OTHERS THEN
1670:
1671: IF (l_debug = 'Y') THEN
1672: okc_debug.LOG('7900: Exiting validate_set_aside_percent:OTHERS Exception', 2);
1673: okc_debug.Reset_Indentation;
1674: END IF;
1675:
1676: -- store SQL error message on message stack
1669: WHEN OTHERS THEN
1670:
1671: IF (l_debug = 'Y') THEN
1672: okc_debug.LOG('7900: Exiting validate_set_aside_percent:OTHERS Exception', 2);
1673: okc_debug.Reset_Indentation;
1674: END IF;
1675:
1676: -- store SQL error message on message stack
1677: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1697: p_chrv_rec IN chrv_rec_type) is
1698: Begin
1699:
1700: IF (l_debug = 'Y') THEN
1701: okc_debug.Set_Indentation('OKC_CHR_PVT');
1702: okc_debug.log('8000: Entered validate_date_terminated', 2);
1703: END IF;
1704:
1705: -- initialize return status
1698: Begin
1699:
1700: IF (l_debug = 'Y') THEN
1701: okc_debug.Set_Indentation('OKC_CHR_PVT');
1702: okc_debug.log('8000: Entered validate_date_terminated', 2);
1703: END IF;
1704:
1705: -- initialize return status
1706: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1727: p_token1 => g_col_name_token,
1728: p_token1_value => 'date_terminated');
1729: End If;
1730: IF (l_debug = 'Y') THEN
1731: okc_debug.log('8100: Exiting validate_date_terminated', 2);
1732: okc_debug.Reset_Indentation;
1733: END IF;
1734:
1735:
1728: p_token1_value => 'date_terminated');
1729: End If;
1730: IF (l_debug = 'Y') THEN
1731: okc_debug.log('8100: Exiting validate_date_terminated', 2);
1732: okc_debug.Reset_Indentation;
1733: END IF;
1734:
1735:
1736: exception
1736: exception
1737: when OTHERS then
1738:
1739: IF (l_debug = 'Y') THEN
1740: okc_debug.log('8200: Exiting validate_date_terminated:OTHERS Exception', 2);
1741: okc_debug.Reset_Indentation;
1742: END IF;
1743:
1744: -- store SQL error message on message stack
1737: when OTHERS then
1738:
1739: IF (l_debug = 'Y') THEN
1740: okc_debug.log('8200: Exiting validate_date_terminated:OTHERS Exception', 2);
1741: okc_debug.Reset_Indentation;
1742: END IF;
1743:
1744: -- store SQL error message on message stack
1745: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1765: p_chrv_rec IN chrv_rec_type) IS
1766: BEGIN
1767:
1768: IF (l_debug = 'Y') THEN
1769: okc_debug.Set_Indentation('OKC_CHR_PVT');
1770: okc_debug.LOG('8300: Entered validate_trn_code', 2);
1771: END IF;
1772:
1773: -- initialize return status
1766: BEGIN
1767:
1768: IF (l_debug = 'Y') THEN
1769: okc_debug.Set_Indentation('OKC_CHR_PVT');
1770: okc_debug.LOG('8300: Entered validate_trn_code', 2);
1771: END IF;
1772:
1773: -- initialize return status
1774: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1792: RAISE G_EXCEPTION_HALT_VALIDATION;
1793: END IF;
1794: END IF;
1795: IF (l_debug = 'Y') THEN
1796: okc_debug.LOG('8400: Exiting validate_trn_code', 2);
1797: okc_debug.Reset_Indentation;
1798: END IF;
1799:
1800:
1793: END IF;
1794: END IF;
1795: IF (l_debug = 'Y') THEN
1796: okc_debug.LOG('8400: Exiting validate_trn_code', 2);
1797: okc_debug.Reset_Indentation;
1798: END IF;
1799:
1800:
1801: EXCEPTION
1801: EXCEPTION
1802: WHEN OTHERS THEN
1803:
1804: IF (l_debug = 'Y') THEN
1805: okc_debug.LOG('8500: Exiting validate_trn_code: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('8500: Exiting validate_trn_code: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,
1838: AND nvl(end_date_active, SYSDATE);
1839: BEGIN
1840:
1841: IF (l_debug = 'Y') THEN
1842: okc_debug.Set_Indentation('OKC_CHR_PVT');
1843: okc_debug.LOG('8600: Entered validate_curr_code_rnwd', 2);
1844: END IF;
1845:
1846: -- initialize return status
1839: BEGIN
1840:
1841: IF (l_debug = 'Y') THEN
1842: okc_debug.Set_Indentation('OKC_CHR_PVT');
1843: okc_debug.LOG('8600: Entered validate_curr_code_rnwd', 2);
1844: END IF;
1845:
1846: -- initialize return status
1847: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1869: x_return_status := OKC_API.G_RET_STS_ERROR;
1870: END IF;
1871: END IF;
1872: IF (l_debug = 'Y') THEN
1873: okc_debug.LOG('8700: Exiting validate_curr_code_rnwd', 2);
1874: okc_debug.Reset_Indentation;
1875: END IF;
1876:
1877:
1870: END IF;
1871: END IF;
1872: IF (l_debug = 'Y') THEN
1873: okc_debug.LOG('8700: Exiting validate_curr_code_rnwd', 2);
1874: okc_debug.Reset_Indentation;
1875: END IF;
1876:
1877:
1878: EXCEPTION
1878: EXCEPTION
1879: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1880:
1881: IF (l_debug = 'Y') THEN
1882: okc_debug.LOG('8800: Exiting validate_curr_code_rnwd:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1883: okc_debug.Reset_Indentation;
1884: END IF;
1885:
1886: -- no processing necessary; validation can continue with next column
1879: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1880:
1881: IF (l_debug = 'Y') THEN
1882: okc_debug.LOG('8800: Exiting validate_curr_code_rnwd:G_EXCEPTION_HALT_VALIDATION Exception', 2);
1883: okc_debug.Reset_Indentation;
1884: END IF;
1885:
1886: -- no processing necessary; validation can continue with next column
1887: NULL;
1888:
1889: WHEN OTHERS THEN
1890:
1891: IF (l_debug = 'Y') THEN
1892: okc_debug.LOG('8900: Exiting validate_curr_code_rnwd:OTHERS Exception', 2);
1893: okc_debug.Reset_Indentation;
1894: END IF;
1895:
1896: -- store SQL error message on message stack
1889: WHEN OTHERS THEN
1890:
1891: IF (l_debug = 'Y') THEN
1892: okc_debug.LOG('8900: Exiting validate_curr_code_rnwd:OTHERS Exception', 2);
1893: okc_debug.Reset_Indentation;
1894: END IF;
1895:
1896: -- store SQL error message on message stack
1897: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1915: p_chrv_rec IN chrv_rec_type) IS
1916: BEGIN
1917:
1918: IF (l_debug = 'Y') THEN
1919: okc_debug.Set_Indentation('OKC_CHR_PVT');
1920: okc_debug.LOG('9000: Entered validate_orig_sys_code', 2);
1921: END IF;
1922:
1923: -- initialize return status
1916: BEGIN
1917:
1918: IF (l_debug = 'Y') THEN
1919: okc_debug.Set_Indentation('OKC_CHR_PVT');
1920: okc_debug.LOG('9000: Entered validate_orig_sys_code', 2);
1921: END IF;
1922:
1923: -- initialize return status
1924: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1942: RAISE G_EXCEPTION_HALT_VALIDATION;
1943: END IF;
1944: END IF;
1945: IF (l_debug = 'Y') THEN
1946: okc_debug.LOG('9100: Exiting validate_orig_sys_code', 2);
1947: okc_debug.Reset_Indentation;
1948: END IF;
1949:
1950:
1943: END IF;
1944: END IF;
1945: IF (l_debug = 'Y') THEN
1946: okc_debug.LOG('9100: Exiting validate_orig_sys_code', 2);
1947: okc_debug.Reset_Indentation;
1948: END IF;
1949:
1950:
1951: EXCEPTION
1951: EXCEPTION
1952: WHEN OTHERS THEN
1953:
1954: IF (l_debug = 'Y') THEN
1955: okc_debug.LOG('9200: Exiting validate_orig_sys_code:OTHERS Exception', 2);
1956: okc_debug.Reset_Indentation;
1957: END IF;
1958:
1959: -- store SQL error message on message stack
1952: WHEN OTHERS THEN
1953:
1954: IF (l_debug = 'Y') THEN
1955: okc_debug.LOG('9200: Exiting validate_orig_sys_code:OTHERS Exception', 2);
1956: okc_debug.Reset_Indentation;
1957: END IF;
1958:
1959: -- store SQL error message on message stack
1960: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2003:
2004: BEGIN
2005:
2006: IF (l_debug = 'Y') THEN
2007: okc_debug.Set_Indentation('OKC_CHR_PVT');
2008: okc_debug.LOG('9300: Entered validate_price_list_id', 2);
2009: END IF;
2010:
2011: -- initialize return status
2004: BEGIN
2005:
2006: IF (l_debug = 'Y') THEN
2007: okc_debug.Set_Indentation('OKC_CHR_PVT');
2008: okc_debug.LOG('9300: Entered validate_price_list_id', 2);
2009: END IF;
2010:
2011: -- initialize return status
2012: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2030: x_return_status := OKC_API.G_RET_STS_ERROR;
2031: END IF;
2032: END IF;
2033: IF (l_debug = 'Y') THEN
2034: okc_debug.LOG('9400: Exiting validate_price_list_id', 2);
2035: okc_debug.Reset_Indentation;
2036: END IF;
2037:
2038:
2031: END IF;
2032: END IF;
2033: IF (l_debug = 'Y') THEN
2034: okc_debug.LOG('9400: Exiting validate_price_list_id', 2);
2035: okc_debug.Reset_Indentation;
2036: END IF;
2037:
2038:
2039: EXCEPTION
2039: EXCEPTION
2040: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2041:
2042: IF (l_debug = 'Y') THEN
2043: okc_debug.LOG('9500: Exiting validate_price_list_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2044: okc_debug.Reset_Indentation;
2045: END IF;
2046:
2047: -- no processing necessary; validation can continue with next column
2040: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2041:
2042: IF (l_debug = 'Y') THEN
2043: okc_debug.LOG('9500: Exiting validate_price_list_id:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2044: okc_debug.Reset_Indentation;
2045: END IF;
2046:
2047: -- no processing necessary; validation can continue with next column
2048: NULL;
2049:
2050: WHEN OTHERS THEN
2051:
2052: IF (l_debug = 'Y') THEN
2053: okc_debug.LOG('9600: Exiting validate_price_list_id:OTHERS Exception', 2);
2054: okc_debug.Reset_Indentation;
2055: END IF;
2056:
2057: -- store SQL error message on message stack
2050: WHEN OTHERS THEN
2051:
2052: IF (l_debug = 'Y') THEN
2053: okc_debug.LOG('9600: Exiting validate_price_list_id:OTHERS Exception', 2);
2054: okc_debug.Reset_Indentation;
2055: END IF;
2056:
2057: -- store SQL error message on message stack
2058: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2124:
2125: BEGIN
2126:
2127: IF (l_debug = 'Y') THEN
2128: okc_debug.Set_Indentation('OKC_CHR_PVT');
2129: okc_debug.LOG('9612: Entered validate_renewal_type_code', 2);
2130: END IF;
2131:
2132: -- initialize return status
2125: BEGIN
2126:
2127: IF (l_debug = 'Y') THEN
2128: okc_debug.Set_Indentation('OKC_CHR_PVT');
2129: okc_debug.LOG('9612: Entered validate_renewal_type_code', 2);
2130: END IF;
2131:
2132: -- initialize return status
2133: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2152: RAISE G_EXCEPTION_HALT_VALIDATION;
2153: END IF;
2154: END IF;
2155: IF (l_debug = 'Y') THEN
2156: okc_debug.LOG('9613: Exiting validate_renewal_type_code', 2);
2157: okc_debug.Reset_Indentation;
2158: END IF;
2159:
2160:
2153: END IF;
2154: END IF;
2155: IF (l_debug = 'Y') THEN
2156: okc_debug.LOG('9613: Exiting validate_renewal_type_code', 2);
2157: okc_debug.Reset_Indentation;
2158: END IF;
2159:
2160:
2161: EXCEPTION
2162:
2163: WHEN OTHERS THEN
2164:
2165: IF (l_debug = 'Y') THEN
2166: okc_debug.LOG('9614: Exiting validate_renewal_type_code:OTHERS Exception', 2);
2167: okc_debug.Reset_Indentation;
2168: END IF;
2169:
2170: -- store SQL error message on message stack
2163: WHEN OTHERS THEN
2164:
2165: IF (l_debug = 'Y') THEN
2166: okc_debug.LOG('9614: Exiting validate_renewal_type_code:OTHERS Exception', 2);
2167: okc_debug.Reset_Indentation;
2168: END IF;
2169:
2170: -- store SQL error message on message stack
2171: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2194:
2195: BEGIN
2196:
2197: IF (l_debug = 'Y') THEN
2198: okc_debug.Set_Indentation('OKC_CHR_PVT');
2199: okc_debug.LOG('9612: Entered validate_oks_renewal_type_code', 2);
2200: END IF;
2201:
2202: -- initialize return status
2195: BEGIN
2196:
2197: IF (l_debug = 'Y') THEN
2198: okc_debug.Set_Indentation('OKC_CHR_PVT');
2199: okc_debug.LOG('9612: Entered validate_oks_renewal_type_code', 2);
2200: END IF;
2201:
2202: -- initialize return status
2203: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2222: RAISE G_EXCEPTION_HALT_VALIDATION;
2223: END IF;
2224: END IF;
2225: IF (l_debug = 'Y') THEN
2226: okc_debug.LOG('9613: Exiting validate_oks_renewal_type_code', 2);
2227: okc_debug.Reset_Indentation;
2228: END IF;
2229:
2230:
2223: END IF;
2224: END IF;
2225: IF (l_debug = 'Y') THEN
2226: okc_debug.LOG('9613: Exiting validate_oks_renewal_type_code', 2);
2227: okc_debug.Reset_Indentation;
2228: END IF;
2229:
2230:
2231: EXCEPTION
2232:
2233: WHEN OTHERS THEN
2234:
2235: IF (l_debug = 'Y') THEN
2236: okc_debug.LOG('9614: Exiting validate_oks_renewal_type_code:OTHERS Exception', 2);
2237: okc_debug.Reset_Indentation;
2238: END IF;
2239:
2240: -- store SQL error message on message stack
2233: WHEN OTHERS THEN
2234:
2235: IF (l_debug = 'Y') THEN
2236: okc_debug.LOG('9614: Exiting validate_oks_renewal_type_code:OTHERS Exception', 2);
2237: okc_debug.Reset_Indentation;
2238: END IF;
2239:
2240: -- store SQL error message on message stack
2241: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2274: AND enabled_flag = 'Y';
2275: BEGIN
2276:
2277: IF (l_debug = 'Y') THEN
2278: okc_debug.Set_Indentation('OKC_CHR_PVT');
2279: okc_debug.LOG('500: Entered validate_approval_type', 2);
2280: END IF;
2281:
2282: -- initialize return status
2275: BEGIN
2276:
2277: IF (l_debug = 'Y') THEN
2278: okc_debug.Set_Indentation('OKC_CHR_PVT');
2279: okc_debug.LOG('500: Entered validate_approval_type', 2);
2280: END IF;
2281:
2282: -- initialize return status
2283: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2306: -- notify caller of an error
2307: x_return_status := OKC_API.G_RET_STS_ERROR;
2308: END IF;
2309: IF (l_debug = 'Y') THEN
2310: okc_debug.LOG('600: Exiting validate_approval_type', 2);
2311: okc_debug.Reset_Indentation;
2312: END IF;
2313: END IF;
2314:
2307: x_return_status := OKC_API.G_RET_STS_ERROR;
2308: END IF;
2309: IF (l_debug = 'Y') THEN
2310: okc_debug.LOG('600: Exiting validate_approval_type', 2);
2311: okc_debug.Reset_Indentation;
2312: END IF;
2313: END IF;
2314:
2315: EXCEPTION
2315: EXCEPTION
2316: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2317:
2318: IF (l_debug = 'Y') THEN
2319: okc_debug.LOG('700: Exiting validate_approval_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2320: okc_debug.Reset_Indentation;
2321: END IF;
2322:
2323: -- no processing necessary; validation can continue with next column
2316: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2317:
2318: IF (l_debug = 'Y') THEN
2319: okc_debug.LOG('700: Exiting validate_approval_type:G_EXCEPTION_HALT_VALIDATION Exception', 2);
2320: okc_debug.Reset_Indentation;
2321: END IF;
2322:
2323: -- no processing necessary; validation can continue with next column
2324: NULL;
2325:
2326: WHEN OTHERS THEN
2327:
2328: IF (l_debug = 'Y') THEN
2329: okc_debug.LOG('800: Exiting validate_approval_type:OTHERS Exception', 2);
2330: okc_debug.Reset_Indentation;
2331: END IF;
2332:
2333: -- store SQL error message on message stack
2326: WHEN OTHERS THEN
2327:
2328: IF (l_debug = 'Y') THEN
2329: okc_debug.LOG('800: Exiting validate_approval_type:OTHERS Exception', 2);
2330: okc_debug.Reset_Indentation;
2331: END IF;
2332:
2333: -- store SQL error message on message stack
2334: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2363:
2364: BEGIN
2365:
2366: IF (l_debug = 'Y') THEN
2367: okc_debug.Set_Indentation('OKC_CHR_PVT');
2368: okc_debug.LOG('9700: Entered get_seq_id', 2);
2369: END IF;
2370:
2371: OPEN l_seq_csr;
2364: BEGIN
2365:
2366: IF (l_debug = 'Y') THEN
2367: okc_debug.Set_Indentation('OKC_CHR_PVT');
2368: okc_debug.LOG('9700: Entered get_seq_id', 2);
2369: END IF;
2370:
2371: OPEN l_seq_csr;
2372: FETCH l_seq_csr INTO l_id;
2372: FETCH l_seq_csr INTO l_id;
2373: CLOSE l_seq_csr;
2374:
2375: IF (l_debug = 'Y') THEN
2376: okc_debug.LOG('9700: Sequence Generated is : '|| l_id, 2);
2377: END IF;
2378:
2379: -- RETURN(okc_p_util.raw_to_number(sys_guid()));
2380: RETURN l_id;
2387: PROCEDURE qc IS
2388: BEGIN
2389:
2390: IF (l_debug = 'Y') THEN
2391: okc_debug.Set_Indentation('OKC_CHR_PVT');
2392: okc_debug.LOG('9800: Entered qc', 2);
2393: END IF;
2394:
2395: NULL;
2388: BEGIN
2389:
2390: IF (l_debug = 'Y') THEN
2391: okc_debug.Set_Indentation('OKC_CHR_PVT');
2392: okc_debug.LOG('9800: Entered qc', 2);
2393: END IF;
2394:
2395: NULL;
2396:
2402: PROCEDURE change_version IS
2403: BEGIN
2404:
2405: IF (l_debug = 'Y') THEN
2406: okc_debug.Set_Indentation('OKC_CHR_PVT');
2407: okc_debug.LOG('9900: Entered change_version', 2);
2408: END IF;
2409:
2410: NULL;
2403: BEGIN
2404:
2405: IF (l_debug = 'Y') THEN
2406: okc_debug.Set_Indentation('OKC_CHR_PVT');
2407: okc_debug.LOG('9900: Entered change_version', 2);
2408: END IF;
2409:
2410: NULL;
2411:
2417: PROCEDURE api_copy IS
2418: BEGIN
2419:
2420: IF (l_debug = 'Y') THEN
2421: okc_debug.Set_Indentation('OKC_CHR_PVT');
2422: okc_debug.LOG('10000: Entered api_copy', 2);
2423: END IF;
2424:
2425: NULL;
2418: BEGIN
2419:
2420: IF (l_debug = 'Y') THEN
2421: okc_debug.Set_Indentation('OKC_CHR_PVT');
2422: okc_debug.LOG('10000: Entered api_copy', 2);
2423: END IF;
2424:
2425: NULL;
2426:
2432: PROCEDURE add_language IS
2433: BEGIN
2434:
2435: IF (l_debug = 'Y') THEN
2436: okc_debug.Set_Indentation('OKC_CHR_PVT');
2437: okc_debug.LOG('10100: Entered add_language', 2);
2438: END IF;
2439:
2440: /* Mar/19/03 requested by Ric Ginsberg */
2433: BEGIN
2434:
2435: IF (l_debug = 'Y') THEN
2436: okc_debug.Set_Indentation('OKC_CHR_PVT');
2437: okc_debug.LOG('10100: Entered add_language', 2);
2438: END IF;
2439:
2440: /* Mar/19/03 requested by Ric Ginsberg */
2441: /* The following delete and update statements are commented out */
2778: l_chr_rec chr_rec_type;
2779: BEGIN
2780:
2781: IF (l_debug = 'Y') THEN
2782: okc_debug.Set_Indentation('OKC_CHR_PVT');
2783: okc_debug.LOG('10200: Entered get_rec', 2);
2784: END IF;
2785:
2786: x_no_data_found := TRUE;
2779: BEGIN
2780:
2781: IF (l_debug = 'Y') THEN
2782: okc_debug.Set_Indentation('OKC_CHR_PVT');
2783: okc_debug.LOG('10200: Entered get_rec', 2);
2784: END IF;
2785:
2786: x_no_data_found := TRUE;
2787: -- Get current database values
2903: l_row_notfound BOOLEAN := TRUE;
2904: BEGIN
2905:
2906: IF (l_debug = 'Y') THEN
2907: okc_debug.Set_Indentation('OKC_CHR_PVT');
2908: okc_debug.LOG('10300: Entered get_rec', 2);
2909: END IF;
2910:
2911: RETURN(get_rec(p_chr_rec, l_row_notfound));
2904: BEGIN
2905:
2906: IF (l_debug = 'Y') THEN
2907: okc_debug.Set_Indentation('OKC_CHR_PVT');
2908: okc_debug.LOG('10300: Entered get_rec', 2);
2909: END IF;
2910:
2911: RETURN(get_rec(p_chr_rec, l_row_notfound));
2912:
2944: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
2945: BEGIN
2946:
2947: IF (l_debug = 'Y') THEN
2948: okc_debug.Set_Indentation('OKC_CHR_PVT');
2949: okc_debug.LOG('10400: Entered get_rec', 2);
2950: END IF;
2951:
2952: x_no_data_found := TRUE;
2945: BEGIN
2946:
2947: IF (l_debug = 'Y') THEN
2948: okc_debug.Set_Indentation('OKC_CHR_PVT');
2949: okc_debug.LOG('10400: Entered get_rec', 2);
2950: END IF;
2951:
2952: x_no_data_found := TRUE;
2953: -- Get current database values
2982: l_row_notfound BOOLEAN := TRUE;
2983: BEGIN
2984:
2985: IF (l_debug = 'Y') THEN
2986: okc_debug.Set_Indentation('OKC_CHR_PVT');
2987: okc_debug.LOG('10500: Entered get_rec', 2);
2988: END IF;
2989:
2990: RETURN(get_rec(p_okc_k_headers_tl_rec, l_row_notfound));
2983: BEGIN
2984:
2985: IF (l_debug = 'Y') THEN
2986: okc_debug.Set_Indentation('OKC_CHR_PVT');
2987: okc_debug.LOG('10500: Entered get_rec', 2);
2988: END IF;
2989:
2990: RETURN(get_rec(p_okc_k_headers_tl_rec, l_row_notfound));
2991:
3119: l_chrv_rec chrv_rec_type;
3120: BEGIN
3121:
3122: IF (l_debug = 'Y') THEN
3123: okc_debug.Set_Indentation('OKC_CHR_PVT');
3124: okc_debug.LOG('10600: Entered get_rec', 2);
3125: END IF;
3126:
3127: x_no_data_found := TRUE;
3120: BEGIN
3121:
3122: IF (l_debug = 'Y') THEN
3123: okc_debug.Set_Indentation('OKC_CHR_PVT');
3124: okc_debug.LOG('10600: Entered get_rec', 2);
3125: END IF;
3126:
3127: x_no_data_found := TRUE;
3128: -- Get current database values
3252: l_row_notfound BOOLEAN := TRUE;
3253: BEGIN
3254:
3255: IF (l_debug = 'Y') THEN
3256: okc_debug.Set_Indentation('OKC_CHR_PVT');
3257: okc_debug.LOG('10700: Entered get_rec', 2);
3258: END IF;
3259:
3260: RETURN(get_rec(p_chrv_rec, l_row_notfound));
3253: BEGIN
3254:
3255: IF (l_debug = 'Y') THEN
3256: okc_debug.Set_Indentation('OKC_CHR_PVT');
3257: okc_debug.LOG('10700: Entered get_rec', 2);
3258: END IF;
3259:
3260: RETURN(get_rec(p_chrv_rec, l_row_notfound));
3261:
3270: l_chrv_rec chrv_rec_type := p_chrv_rec;
3271: BEGIN
3272:
3273: IF (l_debug = 'Y') THEN
3274: okc_debug.Set_Indentation('OKC_CHR_PVT');
3275: okc_debug.LOG('10800: Entered null_out_defaults', 2);
3276: END IF;
3277:
3278: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3271: BEGIN
3272:
3273: IF (l_debug = 'Y') THEN
3274: okc_debug.Set_Indentation('OKC_CHR_PVT');
3275: okc_debug.LOG('10800: Entered null_out_defaults', 2);
3276: END IF;
3277:
3278: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3279: l_chrv_rec.object_version_number := NULL;
3614: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3615: BEGIN
3616:
3617: IF (l_debug = 'Y') THEN
3618: okc_debug.Set_Indentation('OKC_CHR_PVT');
3619: okc_debug.LOG('10900: Entered Validate_Attributes', 2);
3620: END IF;
3621:
3622: /************************ HAND-CODED *********************************/
3615: BEGIN
3616:
3617: IF (l_debug = 'Y') THEN
3618: okc_debug.Set_Indentation('OKC_CHR_PVT');
3619: okc_debug.LOG('10900: Entered Validate_Attributes', 2);
3620: END IF;
3621:
3622: /************************ HAND-CODED *********************************/
3623: validate_contract_number
3957: END IF;
3958: -- R12 Data Model Changes 4485150 End
3959: RETURN(x_return_status);
3960: IF (l_debug = 'Y') THEN
3961: okc_debug.LOG('11000: Exiting Validate_Attributes', 2);
3962: okc_debug.Reset_Indentation;
3963: END IF;
3964:
3965:
3958: -- R12 Data Model Changes 4485150 End
3959: RETURN(x_return_status);
3960: IF (l_debug = 'Y') THEN
3961: okc_debug.LOG('11000: Exiting Validate_Attributes', 2);
3962: okc_debug.Reset_Indentation;
3963: END IF;
3964:
3965:
3966: EXCEPTION
3966: EXCEPTION
3967: WHEN OTHERS THEN
3968:
3969: IF (l_debug = 'Y') THEN
3970: okc_debug.LOG('11100: Exiting Validate_Attributes:OTHERS Exception', 2);
3971: okc_debug.Reset_Indentation;
3972: END IF;
3973:
3974: -- store SQL error message on message stack
3967: WHEN OTHERS THEN
3968:
3969: IF (l_debug = 'Y') THEN
3970: okc_debug.LOG('11100: Exiting Validate_Attributes:OTHERS Exception', 2);
3971: okc_debug.Reset_Indentation;
3972: END IF;
3973:
3974: -- store SQL error message on message stack
3975: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3998: WHERE code = p_code;
3999: BEGIN
4000:
4001: IF (l_debug = 'Y') THEN
4002: okc_debug.Set_Indentation('OKC_CHR_PVT');
4003: okc_debug.LOG('11200: Entered Get_Status_Type', 2);
4004: END IF;
4005:
4006: OPEN l_stsv_csr;
3999: BEGIN
4000:
4001: IF (l_debug = 'Y') THEN
4002: okc_debug.Set_Indentation('OKC_CHR_PVT');
4003: okc_debug.LOG('11200: Entered Get_Status_Type', 2);
4004: END IF;
4005:
4006: OPEN l_stsv_csr;
4007: FETCH l_stsv_csr INTO l_ste_code;
4007: FETCH l_stsv_csr INTO l_ste_code;
4008: CLOSE l_stsv_csr;
4009: RETURN l_ste_code;
4010: IF (l_debug = 'Y') THEN
4011: okc_debug.LOG('11300: Exiting Get_Status_Type', 2);
4012: okc_debug.Reset_Indentation;
4013: END IF;
4014:
4015:
4008: CLOSE l_stsv_csr;
4009: RETURN l_ste_code;
4010: IF (l_debug = 'Y') THEN
4011: okc_debug.LOG('11300: Exiting Get_Status_Type', 2);
4012: okc_debug.Reset_Indentation;
4013: END IF;
4014:
4015:
4016: EXCEPTION
4016: EXCEPTION
4017: WHEN NO_DATA_FOUND THEN
4018:
4019: IF (l_debug = 'Y') THEN
4020: okc_debug.LOG('11400: Exiting Get_Status_Type:NO_DATA_FOUND Exception', 2);
4021: okc_debug.Reset_Indentation;
4022: END IF;
4023:
4024: RETURN l_ste_code;
4017: WHEN NO_DATA_FOUND THEN
4018:
4019: IF (l_debug = 'Y') THEN
4020: okc_debug.LOG('11400: Exiting Get_Status_Type:NO_DATA_FOUND Exception', 2);
4021: okc_debug.Reset_Indentation;
4022: END IF;
4023:
4024: RETURN l_ste_code;
4025: WHEN OTHERS THEN
4024: RETURN l_ste_code;
4025: WHEN OTHERS THEN
4026:
4027: IF (l_debug = 'Y') THEN
4028: okc_debug.LOG('11500: Exiting Get_Status_Type:Others Exception', 2);
4029: okc_debug.Reset_Indentation;
4030: END IF;
4031:
4032: RETURN l_ste_code;
4025: WHEN OTHERS THEN
4026:
4027: IF (l_debug = 'Y') THEN
4028: okc_debug.LOG('11500: Exiting Get_Status_Type:Others Exception', 2);
4029: okc_debug.Reset_Indentation;
4030: END IF;
4031:
4032: RETURN l_ste_code;
4033: END;
4061: l_found BOOLEAN;
4062: BEGIN
4063:
4064: IF (l_debug = 'Y') THEN
4065: okc_debug.Set_Indentation('OKC_CHR_PVT');
4066: okc_debug.LOG('11600: Entered IS_UNIQUE', 2);
4067: END IF;
4068:
4069: -- check for unique CONTRACT_NUMBER + MODIFIER
4062: BEGIN
4063:
4064: IF (l_debug = 'Y') THEN
4065: okc_debug.Set_Indentation('OKC_CHR_PVT');
4066: okc_debug.LOG('11600: Entered IS_UNIQUE', 2);
4067: END IF;
4068:
4069: -- check for unique CONTRACT_NUMBER + MODIFIER
4070: IF (p_chrv_rec.contract_number_modifier IS NULL) THEN
4090: END IF;
4091: RETURN (l_return_status);
4092:
4093: IF (l_debug = 'Y') THEN
4094: okc_debug.LOG('11700: Exiting IS_UNIQUE', 2);
4095: okc_debug.Reset_Indentation;
4096: END IF;
4097:
4098:
4091: RETURN (l_return_status);
4092:
4093: IF (l_debug = 'Y') THEN
4094: okc_debug.LOG('11700: Exiting IS_UNIQUE', 2);
4095: okc_debug.Reset_Indentation;
4096: END IF;
4097:
4098:
4099: EXCEPTION
4099: EXCEPTION
4100: WHEN OTHERS THEN
4101:
4102: IF (l_debug = 'Y') THEN
4103: okc_debug.LOG('11800: Exiting IS_UNIQUE:OTHERS Exception', 2);
4104: okc_debug.Reset_Indentation;
4105: END IF;
4106:
4107: RETURN (l_return_status);
4100: WHEN OTHERS THEN
4101:
4102: IF (l_debug = 'Y') THEN
4103: okc_debug.LOG('11800: Exiting IS_UNIQUE:OTHERS Exception', 2);
4104: okc_debug.Reset_Indentation;
4105: END IF;
4106:
4107: RETURN (l_return_status);
4108:
4146: l_found BOOLEAN;
4147: BEGIN
4148:
4149: IF (l_debug = 'Y') THEN
4150: okc_debug.Set_Indentation('OKC_CHR_PVT');
4151: okc_debug.LOG('11900: Entered Validate_Record', 2);
4152: END IF;
4153:
4154: -- check for unique CONTRACT_NUMBER + MODIFIER
4147: BEGIN
4148:
4149: IF (l_debug = 'Y') THEN
4150: okc_debug.Set_Indentation('OKC_CHR_PVT');
4151: okc_debug.LOG('11900: Entered Validate_Record', 2);
4152: END IF;
4153:
4154: -- check for unique CONTRACT_NUMBER + MODIFIER
4155: /*
4220: END IF;
4221:
4222: RETURN (l_return_status);
4223: IF (l_debug = 'Y') THEN
4224: okc_debug.LOG('12000: Exiting Validate_Record', 2);
4225: okc_debug.Reset_Indentation;
4226: END IF;
4227:
4228:
4221:
4222: RETURN (l_return_status);
4223: IF (l_debug = 'Y') THEN
4224: okc_debug.LOG('12000: Exiting Validate_Record', 2);
4225: okc_debug.Reset_Indentation;
4226: END IF;
4227:
4228:
4229: EXCEPTION
4229: EXCEPTION
4230: WHEN NO_DATA_FOUND THEN
4231:
4232: IF (l_debug = 'Y') THEN
4233: okc_debug.LOG('12100: Exiting Validate_Record:NO_DATA_FOUND Exception', 2);
4234: okc_debug.Reset_Indentation;
4235: END IF;
4236:
4237: NULL;
4230: WHEN NO_DATA_FOUND THEN
4231:
4232: IF (l_debug = 'Y') THEN
4233: okc_debug.LOG('12100: Exiting Validate_Record:NO_DATA_FOUND Exception', 2);
4234: okc_debug.Reset_Indentation;
4235: END IF;
4236:
4237: NULL;
4238:
4247: ) IS
4248: BEGIN
4249:
4250: IF (l_debug = 'Y') THEN
4251: okc_debug.Set_Indentation('OKC_CHR_PVT');
4252: okc_debug.LOG('12200: Entered migrate', 2);
4253: END IF;
4254:
4255: p_to.id := p_from.id;
4248: BEGIN
4249:
4250: IF (l_debug = 'Y') THEN
4251: okc_debug.Set_Indentation('OKC_CHR_PVT');
4252: okc_debug.LOG('12200: Entered migrate', 2);
4253: END IF;
4254:
4255: p_to.id := p_from.id;
4256: p_to.contract_number := p_from.contract_number;
4363: ) IS
4364: BEGIN
4365:
4366: IF (l_debug = 'Y') THEN
4367: okc_debug.Set_Indentation('OKC_CHR_PVT');
4368: okc_debug.LOG('12300: Entered migrate', 2);
4369: END IF;
4370:
4371: p_to.id := p_from.id;
4364: BEGIN
4365:
4366: IF (l_debug = 'Y') THEN
4367: okc_debug.Set_Indentation('OKC_CHR_PVT');
4368: okc_debug.LOG('12300: Entered migrate', 2);
4369: END IF;
4370:
4371: p_to.id := p_from.id;
4372: p_to.contract_number := p_from.contract_number;
4479: ) IS
4480: BEGIN
4481:
4482: IF (l_debug = 'Y') THEN
4483: okc_debug.Set_Indentation('OKC_CHR_PVT');
4484: okc_debug.LOG('12400: Entered migrate', 2);
4485: END IF;
4486:
4487: p_to.id := p_from.id;
4480: BEGIN
4481:
4482: IF (l_debug = 'Y') THEN
4483: okc_debug.Set_Indentation('OKC_CHR_PVT');
4484: okc_debug.LOG('12400: Entered migrate', 2);
4485: END IF;
4486:
4487: p_to.id := p_from.id;
4488: p_to.sfwt_flag := p_from.sfwt_flag;
4506: ) IS
4507: BEGIN
4508:
4509: IF (l_debug = 'Y') THEN
4510: okc_debug.Set_Indentation('OKC_CHR_PVT');
4511: okc_debug.LOG('12500: Entered migrate', 2);
4512: END IF;
4513:
4514: p_to.id := p_from.id;
4507: BEGIN
4508:
4509: IF (l_debug = 'Y') THEN
4510: okc_debug.Set_Indentation('OKC_CHR_PVT');
4511: okc_debug.LOG('12500: Entered migrate', 2);
4512: END IF;
4513:
4514: p_to.id := p_from.id;
4515: p_to.sfwt_flag := p_from.sfwt_flag;
4550: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
4551: BEGIN
4552:
4553: IF (l_debug = 'Y') THEN
4554: okc_debug.Set_Indentation('OKC_CHR_PVT');
4555: okc_debug.LOG('12600: Entered validate_row', 2);
4556: END IF;
4557:
4558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4551: BEGIN
4552:
4553: IF (l_debug = 'Y') THEN
4554: okc_debug.Set_Indentation('OKC_CHR_PVT');
4555: okc_debug.LOG('12600: Entered validate_row', 2);
4556: END IF;
4557:
4558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4559: G_PKG_NAME,
4586: RAISE OKC_API.G_EXCEPTION_ERROR;
4587: END IF;
4588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4589: IF (l_debug = 'Y') THEN
4590: okc_debug.LOG('12700: Exiting validate_row', 2);
4591: okc_debug.Reset_Indentation;
4592: END IF;
4593:
4594:
4587: END IF;
4588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4589: IF (l_debug = 'Y') THEN
4590: okc_debug.LOG('12700: Exiting validate_row', 2);
4591: okc_debug.Reset_Indentation;
4592: END IF;
4593:
4594:
4595: EXCEPTION
4595: EXCEPTION
4596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4597:
4598: IF (l_debug = 'Y') THEN
4599: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4600: okc_debug.Reset_Indentation;
4601: END IF;
4602:
4603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4596: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4597:
4598: IF (l_debug = 'Y') THEN
4599: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4600: okc_debug.Reset_Indentation;
4601: END IF;
4602:
4603: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4604: (
4611: );
4612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4613:
4614: IF (l_debug = 'Y') THEN
4615: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4616: okc_debug.Reset_Indentation;
4617: END IF;
4618:
4619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4612: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4613:
4614: IF (l_debug = 'Y') THEN
4615: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4616: okc_debug.Reset_Indentation;
4617: END IF;
4618:
4619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4620: (
4627: );
4628: WHEN OTHERS THEN
4629:
4630: IF (l_debug = 'Y') THEN
4631: okc_debug.LOG('13000: Exiting validate_row:OTHERS Exception', 2);
4632: okc_debug.Reset_Indentation;
4633: END IF;
4634:
4635: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4628: WHEN OTHERS THEN
4629:
4630: IF (l_debug = 'Y') THEN
4631: okc_debug.LOG('13000: Exiting validate_row:OTHERS Exception', 2);
4632: okc_debug.Reset_Indentation;
4633: END IF;
4634:
4635: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4636: (
4661: i NUMBER := 0;
4662: BEGIN
4663:
4664: IF (l_debug = 'Y') THEN
4665: okc_debug.Set_Indentation('OKC_CHR_PVT');
4666: okc_debug.LOG('13100: Entered validate_row', 2);
4667: END IF;
4668:
4669: OKC_API.init_msg_list(p_init_msg_list);
4662: BEGIN
4663:
4664: IF (l_debug = 'Y') THEN
4665: okc_debug.Set_Indentation('OKC_CHR_PVT');
4666: okc_debug.LOG('13100: Entered validate_row', 2);
4667: END IF;
4668:
4669: OKC_API.init_msg_list(p_init_msg_list);
4670: -- Make sure PL/SQL table has records in it before passing
4692: -- return overall status
4693: x_return_status := l_overall_status;
4694: END IF;
4695: IF (l_debug = 'Y') THEN
4696: okc_debug.LOG('13200: Exiting validate_row', 2);
4697: okc_debug.Reset_Indentation;
4698: END IF;
4699:
4700:
4693: x_return_status := l_overall_status;
4694: END IF;
4695: IF (l_debug = 'Y') THEN
4696: okc_debug.LOG('13200: Exiting validate_row', 2);
4697: okc_debug.Reset_Indentation;
4698: END IF;
4699:
4700:
4701: EXCEPTION
4701: EXCEPTION
4702: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4703:
4704: IF (l_debug = 'Y') THEN
4705: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4706: okc_debug.Reset_Indentation;
4707: END IF;
4708:
4709: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4702: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4703:
4704: IF (l_debug = 'Y') THEN
4705: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4706: okc_debug.Reset_Indentation;
4707: END IF;
4708:
4709: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4710: (
4717: );
4718: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4719:
4720: IF (l_debug = 'Y') THEN
4721: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4722: okc_debug.Reset_Indentation;
4723: END IF;
4724:
4725: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4718: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4719:
4720: IF (l_debug = 'Y') THEN
4721: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4722: okc_debug.Reset_Indentation;
4723: END IF;
4724:
4725: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4726: (
4733: );
4734: WHEN OTHERS THEN
4735:
4736: IF (l_debug = 'Y') THEN
4737: okc_debug.LOG('13500: Exiting validate_row:OTHERS Exception', 2);
4738: okc_debug.Reset_Indentation;
4739: END IF;
4740:
4741: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4734: WHEN OTHERS THEN
4735:
4736: IF (l_debug = 'Y') THEN
4737: okc_debug.LOG('13500: Exiting validate_row:OTHERS Exception', 2);
4738: okc_debug.Reset_Indentation;
4739: END IF;
4740:
4741: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4742: (
4779: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4780: BEGIN
4781:
4782: IF (l_debug = 'Y') THEN
4783: okc_debug.Set_Indentation('OKC_CHR_PVT');
4784: okc_debug.LOG('13600: Entered Set_Attributes', 2);
4785: END IF;
4786:
4787: x_chr_rec := p_chr_rec;
4780: BEGIN
4781:
4782: IF (l_debug = 'Y') THEN
4783: okc_debug.Set_Indentation('OKC_CHR_PVT');
4784: okc_debug.LOG('13600: Entered Set_Attributes', 2);
4785: END IF;
4786:
4787: x_chr_rec := p_chr_rec;
4788: RETURN(l_return_status);
4790: END Set_Attributes;
4791: BEGIN
4792:
4793: IF (l_debug = 'Y') THEN
4794: okc_debug.Set_Indentation('OKC_CHR_PVT');
4795: okc_debug.LOG('13700: Entered insert_row', 2);
4796: END IF;
4797:
4798: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4791: BEGIN
4792:
4793: IF (l_debug = 'Y') THEN
4794: okc_debug.Set_Indentation('OKC_CHR_PVT');
4795: okc_debug.LOG('13700: Entered insert_row', 2);
4796: END IF;
4797:
4798: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4799: p_init_msg_list,
5024: -- Set OUT values
5025: x_chr_rec := l_chr_rec;
5026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5027: IF (l_debug = 'Y') THEN
5028: okc_debug.LOG('13800: Exiting insert_row', 2);
5029: okc_debug.Reset_Indentation;
5030: END IF;
5031:
5032:
5025: x_chr_rec := l_chr_rec;
5026: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5027: IF (l_debug = 'Y') THEN
5028: okc_debug.LOG('13800: Exiting insert_row', 2);
5029: okc_debug.Reset_Indentation;
5030: END IF;
5031:
5032:
5033: EXCEPTION
5033: EXCEPTION
5034: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5035:
5036: IF (l_debug = 'Y') THEN
5037: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5038: okc_debug.Reset_Indentation;
5039: END IF;
5040:
5041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5034: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5035:
5036: IF (l_debug = 'Y') THEN
5037: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5038: okc_debug.Reset_Indentation;
5039: END IF;
5040:
5041: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5042: (
5049: );
5050: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5051:
5052: IF (l_debug = 'Y') THEN
5053: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5054: okc_debug.Reset_Indentation;
5055: END IF;
5056:
5057: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5050: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5051:
5052: IF (l_debug = 'Y') THEN
5053: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5054: okc_debug.Reset_Indentation;
5055: END IF;
5056:
5057: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5058: (
5065: );
5066: WHEN OTHERS THEN
5067:
5068: IF (l_debug = 'Y') THEN
5069: okc_debug.LOG('14100: Exiting insert_row:OTHERS Exception', 2);
5070: okc_debug.Reset_Indentation;
5071: END IF;
5072:
5073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5066: WHEN OTHERS THEN
5067:
5068: IF (l_debug = 'Y') THEN
5069: okc_debug.LOG('14100: Exiting insert_row:OTHERS Exception', 2);
5070: okc_debug.Reset_Indentation;
5071: END IF;
5072:
5073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5074: (
5111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5112: BEGIN
5113:
5114: IF (l_debug = 'Y') THEN
5115: okc_debug.Set_Indentation('OKC_CHR_PVT');
5116: okc_debug.LOG('14200: Entered Set_Attributes', 2);
5117: END IF;
5118:
5119: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
5112: BEGIN
5113:
5114: IF (l_debug = 'Y') THEN
5115: okc_debug.Set_Indentation('OKC_CHR_PVT');
5116: okc_debug.LOG('14200: Entered Set_Attributes', 2);
5117: END IF;
5118:
5119: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
5120: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
5124: END Set_Attributes;
5125: BEGIN
5126:
5127: IF (l_debug = 'Y') THEN
5128: okc_debug.Set_Indentation('OKC_CHR_PVT');
5129: okc_debug.LOG('14300: Entered insert_row', 2);
5130: END IF;
5131:
5132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5125: BEGIN
5126:
5127: IF (l_debug = 'Y') THEN
5128: okc_debug.Set_Indentation('OKC_CHR_PVT');
5129: okc_debug.LOG('14300: Entered insert_row', 2);
5130: END IF;
5131:
5132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5133: p_init_msg_list,
5188: -- Set OUT values
5189: x_okc_k_headers_tl_rec := l_okc_k_headers_tl_rec;
5190: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5191: IF (l_debug = 'Y') THEN
5192: okc_debug.LOG('14400: Exiting insert_row', 2);
5193: okc_debug.Reset_Indentation;
5194: END IF;
5195:
5196:
5189: x_okc_k_headers_tl_rec := l_okc_k_headers_tl_rec;
5190: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5191: IF (l_debug = 'Y') THEN
5192: okc_debug.LOG('14400: Exiting insert_row', 2);
5193: okc_debug.Reset_Indentation;
5194: END IF;
5195:
5196:
5197: EXCEPTION
5197: EXCEPTION
5198: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5199:
5200: IF (l_debug = 'Y') THEN
5201: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5202: okc_debug.Reset_Indentation;
5203: END IF;
5204:
5205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5198: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5199:
5200: IF (l_debug = 'Y') THEN
5201: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5202: okc_debug.Reset_Indentation;
5203: END IF;
5204:
5205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5206: (
5213: );
5214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5215:
5216: IF (l_debug = 'Y') THEN
5217: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5218: okc_debug.Reset_Indentation;
5219: END IF;
5220:
5221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5214: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5215:
5216: IF (l_debug = 'Y') THEN
5217: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5218: okc_debug.Reset_Indentation;
5219: END IF;
5220:
5221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5222: (
5229: );
5230: WHEN OTHERS THEN
5231:
5232: IF (l_debug = 'Y') THEN
5233: okc_debug.LOG('14700: Exiting insert_row:OTHERS Exception', 2);
5234: okc_debug.Reset_Indentation;
5235: END IF;
5236:
5237: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5230: WHEN OTHERS THEN
5231:
5232: IF (l_debug = 'Y') THEN
5233: okc_debug.LOG('14700: Exiting insert_row:OTHERS Exception', 2);
5234: okc_debug.Reset_Indentation;
5235: END IF;
5236:
5237: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5238: (
5275: l_chrv_rec chrv_rec_type := p_chrv_rec;
5276: BEGIN
5277:
5278: IF (l_debug = 'Y') THEN
5279: okc_debug.Set_Indentation('OKC_CHR_PVT');
5280: okc_debug.LOG('14800: Entered fill_who_columns', 2);
5281: END IF;
5282:
5283: l_chrv_rec.CREATION_DATE := SYSDATE;
5276: BEGIN
5277:
5278: IF (l_debug = 'Y') THEN
5279: okc_debug.Set_Indentation('OKC_CHR_PVT');
5280: okc_debug.LOG('14800: Entered fill_who_columns', 2);
5281: END IF;
5282:
5283: l_chrv_rec.CREATION_DATE := SYSDATE;
5284: /*Modified in bugfix for 13079117*/
5305: AND scs.code = p_scs_code;
5306: BEGIN
5307:
5308: IF (l_debug = 'Y') THEN
5309: okc_debug.Set_Indentation('OKC_CHR_PVT');
5310: okc_debug.LOG('14900: Entered Set_Attributes', 2);
5311: END IF;
5312:
5313: x_chrv_rec := p_chrv_rec;
5306: BEGIN
5307:
5308: IF (l_debug = 'Y') THEN
5309: okc_debug.Set_Indentation('OKC_CHR_PVT');
5310: okc_debug.LOG('14900: Entered Set_Attributes', 2);
5311: END IF;
5312:
5313: x_chrv_rec := p_chrv_rec;
5314: x_chrv_rec.OBJECT_VERSION_NUMBER := 1;
5348: END Set_Attributes;
5349: BEGIN
5350:
5351: IF (l_debug = 'Y') THEN
5352: okc_debug.Set_Indentation('OKC_CHR_PVT');
5353: okc_debug.LOG('15000: Entered insert_row', 2);
5354: END IF;
5355:
5356: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5349: BEGIN
5350:
5351: IF (l_debug = 'Y') THEN
5352: okc_debug.Set_Indentation('OKC_CHR_PVT');
5353: okc_debug.LOG('15000: Entered insert_row', 2);
5354: END IF;
5355:
5356: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5357: G_PKG_NAME,
5438: -- Set OUT values
5439: x_chrv_rec := l_def_chrv_rec;
5440: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5441: IF (l_debug = 'Y') THEN
5442: okc_debug.LOG('15100: Exiting insert_row', 2);
5443: okc_debug.Reset_Indentation;
5444: END IF;
5445:
5446:
5439: x_chrv_rec := l_def_chrv_rec;
5440: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5441: IF (l_debug = 'Y') THEN
5442: okc_debug.LOG('15100: Exiting insert_row', 2);
5443: okc_debug.Reset_Indentation;
5444: END IF;
5445:
5446:
5447: EXCEPTION
5447: EXCEPTION
5448: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5449:
5450: IF (l_debug = 'Y') THEN
5451: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5452: okc_debug.Reset_Indentation;
5453: END IF;
5454:
5455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5448: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5449:
5450: IF (l_debug = 'Y') THEN
5451: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5452: okc_debug.Reset_Indentation;
5453: END IF;
5454:
5455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5456: (
5463: );
5464: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5465:
5466: IF (l_debug = 'Y') THEN
5467: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5468: okc_debug.Reset_Indentation;
5469: END IF;
5470:
5471: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5464: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5465:
5466: IF (l_debug = 'Y') THEN
5467: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5468: okc_debug.Reset_Indentation;
5469: END IF;
5470:
5471: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5472: (
5479: );
5480: WHEN OTHERS THEN
5481:
5482: IF (l_debug = 'Y') THEN
5483: okc_debug.LOG('15400: Exiting insert_row:OTHERS Exception', 2);
5484: okc_debug.Reset_Indentation;
5485: END IF;
5486:
5487: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5480: WHEN OTHERS THEN
5481:
5482: IF (l_debug = 'Y') THEN
5483: okc_debug.LOG('15400: Exiting insert_row:OTHERS Exception', 2);
5484: okc_debug.Reset_Indentation;
5485: END IF;
5486:
5487: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5488: (
5515: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5516: BEGIN
5517:
5518: IF (l_debug = 'Y') THEN
5519: okc_debug.Set_Indentation('OKC_CHR_PVT');
5520: okc_debug.LOG('15500: Entered insert_row', 2);
5521: END IF;
5522:
5523: OKC_API.init_msg_list(p_init_msg_list);
5516: BEGIN
5517:
5518: IF (l_debug = 'Y') THEN
5519: okc_debug.Set_Indentation('OKC_CHR_PVT');
5520: okc_debug.LOG('15500: Entered insert_row', 2);
5521: END IF;
5522:
5523: OKC_API.init_msg_list(p_init_msg_list);
5524: -- Make sure PL/SQL table has records in it before passing
5573: -- return overall status
5574: x_return_status := l_overall_status;
5575: END IF;
5576: IF (l_debug = 'Y') THEN
5577: okc_debug.LOG('15600: Exiting insert_row', 2);
5578: okc_debug.Reset_Indentation;
5579: END IF;
5580:
5581:
5574: x_return_status := l_overall_status;
5575: END IF;
5576: IF (l_debug = 'Y') THEN
5577: okc_debug.LOG('15600: Exiting insert_row', 2);
5578: okc_debug.Reset_Indentation;
5579: END IF;
5580:
5581:
5582: EXCEPTION
5582: EXCEPTION
5583: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5584:
5585: IF (l_debug = 'Y') THEN
5586: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5587: okc_debug.Reset_Indentation;
5588: END IF;
5589:
5590: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5583: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5584:
5585: IF (l_debug = 'Y') THEN
5586: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5587: okc_debug.Reset_Indentation;
5588: END IF;
5589:
5590: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5591: (
5598: );
5599: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5600:
5601: IF (l_debug = 'Y') THEN
5602: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5603: okc_debug.Reset_Indentation;
5604: END IF;
5605:
5606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5599: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5600:
5601: IF (l_debug = 'Y') THEN
5602: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5603: okc_debug.Reset_Indentation;
5604: END IF;
5605:
5606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5607: (
5614: );
5615: WHEN OTHERS THEN
5616:
5617: IF (l_debug = 'Y') THEN
5618: okc_debug.LOG('15900: Exiting insert_row:OTHERS Exception', 2);
5619: okc_debug.Reset_Indentation;
5620: END IF;
5621:
5622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5615: WHEN OTHERS THEN
5616:
5617: IF (l_debug = 'Y') THEN
5618: okc_debug.LOG('15900: Exiting insert_row:OTHERS Exception', 2);
5619: okc_debug.Reset_Indentation;
5620: END IF;
5621:
5622: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5623: (
5666: lc_row_notfound BOOLEAN := FALSE;
5667: BEGIN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.Set_Indentation('OKC_CHR_PVT');
5671: okc_debug.LOG('16000: Entered lock_row', 2);
5672: END IF;
5673:
5674: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5667: BEGIN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.Set_Indentation('OKC_CHR_PVT');
5671: okc_debug.LOG('16000: Entered lock_row', 2);
5672: END IF;
5673:
5674: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5675: p_init_msg_list,
5682: END IF;
5683: BEGIN
5684:
5685: IF (l_debug = 'Y') THEN
5686: okc_debug.Set_Indentation('OKC_CHR_PVT');
5687: okc_debug.LOG('16100: Entered lock_row', 2);
5688: END IF;
5689:
5690: OPEN lock_csr(p_chr_rec);
5683: BEGIN
5684:
5685: IF (l_debug = 'Y') THEN
5686: okc_debug.Set_Indentation('OKC_CHR_PVT');
5687: okc_debug.LOG('16100: Entered lock_row', 2);
5688: END IF;
5689:
5690: OPEN lock_csr(p_chr_rec);
5691: FETCH lock_csr INTO l_object_version_number;
5691: FETCH lock_csr INTO l_object_version_number;
5692: l_row_notfound := lock_csr%NOTFOUND;
5693: CLOSE lock_csr;
5694: IF (l_debug = 'Y') THEN
5695: okc_debug.LOG('16200: Exiting lock_row', 2);
5696: okc_debug.Reset_Indentation;
5697: END IF;
5698:
5699:
5692: l_row_notfound := lock_csr%NOTFOUND;
5693: CLOSE lock_csr;
5694: IF (l_debug = 'Y') THEN
5695: okc_debug.LOG('16200: Exiting lock_row', 2);
5696: okc_debug.Reset_Indentation;
5697: END IF;
5698:
5699:
5700: EXCEPTION
5700: EXCEPTION
5701: WHEN E_Resource_Busy THEN
5702:
5703: IF (l_debug = 'Y') THEN
5704: okc_debug.LOG('16300: Exiting lock_row:E_Resource_Busy Exception', 2);
5705: okc_debug.Reset_Indentation;
5706: END IF;
5707:
5708: IF (lock_csr%ISOPEN) THEN
5701: WHEN E_Resource_Busy THEN
5702:
5703: IF (l_debug = 'Y') THEN
5704: okc_debug.LOG('16300: Exiting lock_row:E_Resource_Busy Exception', 2);
5705: okc_debug.Reset_Indentation;
5706: END IF;
5707:
5708: IF (lock_csr%ISOPEN) THEN
5709: CLOSE lock_csr;
5732: RAISE OKC_API.G_EXCEPTION_ERROR;
5733: END IF;
5734: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5735: IF (l_debug = 'Y') THEN
5736: okc_debug.LOG('16400: Exiting lock_row', 2);
5737: okc_debug.Reset_Indentation;
5738: END IF;
5739:
5740:
5733: END IF;
5734: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5735: IF (l_debug = 'Y') THEN
5736: okc_debug.LOG('16400: Exiting lock_row', 2);
5737: okc_debug.Reset_Indentation;
5738: END IF;
5739:
5740:
5741: EXCEPTION
5741: EXCEPTION
5742: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5743:
5744: IF (l_debug = 'Y') THEN
5745: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5746: okc_debug.Reset_Indentation;
5747: END IF;
5748:
5749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5742: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5743:
5744: IF (l_debug = 'Y') THEN
5745: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5746: okc_debug.Reset_Indentation;
5747: END IF;
5748:
5749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5750: (
5757: );
5758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5759:
5760: IF (l_debug = 'Y') THEN
5761: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5762: okc_debug.Reset_Indentation;
5763: END IF;
5764:
5765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5759:
5760: IF (l_debug = 'Y') THEN
5761: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5762: okc_debug.Reset_Indentation;
5763: END IF;
5764:
5765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5766: (
5773: );
5774: WHEN OTHERS THEN
5775:
5776: IF (l_debug = 'Y') THEN
5777: okc_debug.LOG('16700: Exiting lock_row:OTHERS Exception', 2);
5778: okc_debug.Reset_Indentation;
5779: END IF;
5780:
5781: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5774: WHEN OTHERS THEN
5775:
5776: IF (l_debug = 'Y') THEN
5777: okc_debug.LOG('16700: Exiting lock_row:OTHERS Exception', 2);
5778: okc_debug.Reset_Indentation;
5779: END IF;
5780:
5781: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5782: (
5815: lc_row_notfound BOOLEAN := FALSE;
5816: BEGIN
5817:
5818: IF (l_debug = 'Y') THEN
5819: okc_debug.Set_Indentation('OKC_CHR_PVT');
5820: okc_debug.LOG('16800: Entered lock_row', 2);
5821: END IF;
5822:
5823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5816: BEGIN
5817:
5818: IF (l_debug = 'Y') THEN
5819: okc_debug.Set_Indentation('OKC_CHR_PVT');
5820: okc_debug.LOG('16800: Entered lock_row', 2);
5821: END IF;
5822:
5823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5824: p_init_msg_list,
5831: END IF;
5832: BEGIN
5833:
5834: IF (l_debug = 'Y') THEN
5835: okc_debug.Set_Indentation('OKC_CHR_PVT');
5836: okc_debug.LOG('16900: Entered lock_row', 2);
5837: END IF;
5838:
5839: OPEN lock_csr(p_okc_k_headers_tl_rec);
5832: BEGIN
5833:
5834: IF (l_debug = 'Y') THEN
5835: okc_debug.Set_Indentation('OKC_CHR_PVT');
5836: okc_debug.LOG('16900: Entered lock_row', 2);
5837: END IF;
5838:
5839: OPEN lock_csr(p_okc_k_headers_tl_rec);
5840: FETCH lock_csr INTO l_lock_var;
5840: FETCH lock_csr INTO l_lock_var;
5841: l_row_notfound := lock_csr%NOTFOUND;
5842: CLOSE lock_csr;
5843: IF (l_debug = 'Y') THEN
5844: okc_debug.LOG('17000: Exiting lock_row', 2);
5845: okc_debug.Reset_Indentation;
5846: END IF;
5847:
5848:
5841: l_row_notfound := lock_csr%NOTFOUND;
5842: CLOSE lock_csr;
5843: IF (l_debug = 'Y') THEN
5844: okc_debug.LOG('17000: Exiting lock_row', 2);
5845: okc_debug.Reset_Indentation;
5846: END IF;
5847:
5848:
5849: EXCEPTION
5849: EXCEPTION
5850: WHEN E_Resource_Busy THEN
5851:
5852: IF (l_debug = 'Y') THEN
5853: okc_debug.LOG('17100: Exiting lock_row:E_Resource_Busy Exception', 2);
5854: okc_debug.Reset_Indentation;
5855: END IF;
5856:
5857: IF (lock_csr%ISOPEN) THEN
5850: WHEN E_Resource_Busy THEN
5851:
5852: IF (l_debug = 'Y') THEN
5853: okc_debug.LOG('17100: Exiting lock_row:E_Resource_Busy Exception', 2);
5854: okc_debug.Reset_Indentation;
5855: END IF;
5856:
5857: IF (lock_csr%ISOPEN) THEN
5858: CLOSE lock_csr;
5866: RAISE OKC_API.G_EXCEPTION_ERROR;
5867: END IF;
5868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5869: IF (l_debug = 'Y') THEN
5870: okc_debug.LOG('17200: Exiting lock_row', 2);
5871: okc_debug.Reset_Indentation;
5872: END IF;
5873:
5874:
5867: END IF;
5868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5869: IF (l_debug = 'Y') THEN
5870: okc_debug.LOG('17200: Exiting lock_row', 2);
5871: okc_debug.Reset_Indentation;
5872: END IF;
5873:
5874:
5875: EXCEPTION
5875: EXCEPTION
5876: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5877:
5878: IF (l_debug = 'Y') THEN
5879: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5880: okc_debug.Reset_Indentation;
5881: END IF;
5882:
5883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5876: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5877:
5878: IF (l_debug = 'Y') THEN
5879: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5880: okc_debug.Reset_Indentation;
5881: END IF;
5882:
5883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5884: (
5891: );
5892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5893:
5894: IF (l_debug = 'Y') THEN
5895: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5896: okc_debug.Reset_Indentation;
5897: END IF;
5898:
5899: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5893:
5894: IF (l_debug = 'Y') THEN
5895: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5896: okc_debug.Reset_Indentation;
5897: END IF;
5898:
5899: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5900: (
5907: );
5908: WHEN OTHERS THEN
5909:
5910: IF (l_debug = 'Y') THEN
5911: okc_debug.LOG('17500: Exiting lock_row:OTHERS Exception', 2);
5912: okc_debug.Reset_Indentation;
5913: END IF;
5914:
5915: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5908: WHEN OTHERS THEN
5909:
5910: IF (l_debug = 'Y') THEN
5911: okc_debug.LOG('17500: Exiting lock_row:OTHERS Exception', 2);
5912: okc_debug.Reset_Indentation;
5913: END IF;
5914:
5915: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5916: (
5941: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5942: BEGIN
5943:
5944: IF (l_debug = 'Y') THEN
5945: okc_debug.Set_Indentation('OKC_CHR_PVT');
5946: okc_debug.LOG('17600: Entered lock_row', 2);
5947: END IF;
5948:
5949: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5942: BEGIN
5943:
5944: IF (l_debug = 'Y') THEN
5945: okc_debug.Set_Indentation('OKC_CHR_PVT');
5946: okc_debug.LOG('17600: Entered lock_row', 2);
5947: END IF;
5948:
5949: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5950: G_PKG_NAME,
5991: RAISE OKC_API.G_EXCEPTION_ERROR;
5992: END IF;
5993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5994: IF (l_debug = 'Y') THEN
5995: okc_debug.LOG('17700: Exiting lock_row', 2);
5996: okc_debug.Reset_Indentation;
5997: END IF;
5998:
5999:
5992: END IF;
5993: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5994: IF (l_debug = 'Y') THEN
5995: okc_debug.LOG('17700: Exiting lock_row', 2);
5996: okc_debug.Reset_Indentation;
5997: END IF;
5998:
5999:
6000: EXCEPTION
6000: EXCEPTION
6001: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6002:
6003: IF (l_debug = 'Y') THEN
6004: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6005: okc_debug.Reset_Indentation;
6006: END IF;
6007:
6008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6001: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6002:
6003: IF (l_debug = 'Y') THEN
6004: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6005: okc_debug.Reset_Indentation;
6006: END IF;
6007:
6008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6009: (
6016: );
6017: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6018:
6019: IF (l_debug = 'Y') THEN
6020: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6021: okc_debug.Reset_Indentation;
6022: END IF;
6023:
6024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6017: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6018:
6019: IF (l_debug = 'Y') THEN
6020: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6021: okc_debug.Reset_Indentation;
6022: END IF;
6023:
6024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6025: (
6032: );
6033: WHEN OTHERS THEN
6034:
6035: IF (l_debug = 'Y') THEN
6036: okc_debug.LOG('18000: Exiting lock_row:OTHERS Exception', 2);
6037: okc_debug.Reset_Indentation;
6038: END IF;
6039:
6040: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6033: WHEN OTHERS THEN
6034:
6035: IF (l_debug = 'Y') THEN
6036: okc_debug.LOG('18000: Exiting lock_row:OTHERS Exception', 2);
6037: okc_debug.Reset_Indentation;
6038: END IF;
6039:
6040: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6041: (
6066: i NUMBER := 0;
6067: BEGIN
6068:
6069: IF (l_debug = 'Y') THEN
6070: okc_debug.Set_Indentation('OKC_CHR_PVT');
6071: okc_debug.LOG('18100: Entered lock_row', 2);
6072: END IF;
6073:
6074: OKC_API.init_msg_list(p_init_msg_list);
6067: BEGIN
6068:
6069: IF (l_debug = 'Y') THEN
6070: okc_debug.Set_Indentation('OKC_CHR_PVT');
6071: okc_debug.LOG('18100: Entered lock_row', 2);
6072: END IF;
6073:
6074: OKC_API.init_msg_list(p_init_msg_list);
6075: -- Make sure PL/SQL table has records in it before passing
6097: -- return overall status
6098: x_return_status := l_overall_status;
6099: END IF;
6100: IF (l_debug = 'Y') THEN
6101: okc_debug.LOG('18200: Exiting lock_row', 2);
6102: okc_debug.Reset_Indentation;
6103: END IF;
6104:
6105:
6098: x_return_status := l_overall_status;
6099: END IF;
6100: IF (l_debug = 'Y') THEN
6101: okc_debug.LOG('18200: Exiting lock_row', 2);
6102: okc_debug.Reset_Indentation;
6103: END IF;
6104:
6105:
6106: EXCEPTION
6106: EXCEPTION
6107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6108:
6109: IF (l_debug = 'Y') THEN
6110: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6111: okc_debug.Reset_Indentation;
6112: END IF;
6113:
6114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6107: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6108:
6109: IF (l_debug = 'Y') THEN
6110: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6111: okc_debug.Reset_Indentation;
6112: END IF;
6113:
6114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6115: (
6122: );
6123: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6124:
6125: IF (l_debug = 'Y') THEN
6126: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6127: okc_debug.Reset_Indentation;
6128: END IF;
6129:
6130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6123: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6124:
6125: IF (l_debug = 'Y') THEN
6126: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6127: okc_debug.Reset_Indentation;
6128: END IF;
6129:
6130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6131: (
6138: );
6139: WHEN OTHERS THEN
6140:
6141: IF (l_debug = 'Y') THEN
6142: okc_debug.LOG('18500: Exiting lock_row:OTHERS Exception', 2);
6143: okc_debug.Reset_Indentation;
6144: END IF;
6145:
6146: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6139: WHEN OTHERS THEN
6140:
6141: IF (l_debug = 'Y') THEN
6142: okc_debug.LOG('18500: Exiting lock_row:OTHERS Exception', 2);
6143: okc_debug.Reset_Indentation;
6144: END IF;
6145:
6146: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6147: (
6188: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6189: BEGIN
6190:
6191: IF (l_debug = 'Y') THEN
6192: okc_debug.Set_Indentation('OKC_CHR_PVT');
6193: okc_debug.LOG('18600: Entered populate_new_record', 2);
6194: END IF;
6195:
6196: x_chr_rec := p_chr_rec;
6189: BEGIN
6190:
6191: IF (l_debug = 'Y') THEN
6192: okc_debug.Set_Indentation('OKC_CHR_PVT');
6193: okc_debug.LOG('18600: Entered populate_new_record', 2);
6194: END IF;
6195:
6196: x_chr_rec := p_chr_rec;
6197: -- Get current database values
6592: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6593: BEGIN
6594:
6595: IF (l_debug = 'Y') THEN
6596: okc_debug.Set_Indentation('OKC_CHR_PVT');
6597: okc_debug.LOG('18700: Entered Set_Attributes', 2);
6598: END IF;
6599:
6600: x_chr_rec := p_chr_rec;
6593: BEGIN
6594:
6595: IF (l_debug = 'Y') THEN
6596: okc_debug.Set_Indentation('OKC_CHR_PVT');
6597: okc_debug.LOG('18700: Entered Set_Attributes', 2);
6598: END IF;
6599:
6600: x_chr_rec := p_chr_rec;
6601: RETURN(l_return_status);
6603: END Set_Attributes;
6604: BEGIN
6605:
6606: IF (l_debug = 'Y') THEN
6607: okc_debug.Set_Indentation('OKC_CHR_PVT');
6608: okc_debug.LOG('18800: Entered update_row', 2);
6609: END IF;
6610:
6611: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6604: BEGIN
6605:
6606: IF (l_debug = 'Y') THEN
6607: okc_debug.Set_Indentation('OKC_CHR_PVT');
6608: okc_debug.LOG('18800: Entered update_row', 2);
6609: END IF;
6610:
6611: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6612: p_init_msg_list,
6737:
6738: x_chr_rec := l_def_chr_rec;
6739: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6740: IF (l_debug = 'Y') THEN
6741: okc_debug.LOG('18900: Exiting update_row', 2);
6742: okc_debug.Reset_Indentation;
6743: END IF;
6744:
6745:
6738: x_chr_rec := l_def_chr_rec;
6739: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6740: IF (l_debug = 'Y') THEN
6741: okc_debug.LOG('18900: Exiting update_row', 2);
6742: okc_debug.Reset_Indentation;
6743: END IF;
6744:
6745:
6746: EXCEPTION
6746: EXCEPTION
6747: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6748:
6749: IF (l_debug = 'Y') THEN
6750: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6751: okc_debug.Reset_Indentation;
6752: END IF;
6753:
6754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6747: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6748:
6749: IF (l_debug = 'Y') THEN
6750: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6751: okc_debug.Reset_Indentation;
6752: END IF;
6753:
6754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6755: (
6762: );
6763: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6764:
6765: IF (l_debug = 'Y') THEN
6766: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6767: okc_debug.Reset_Indentation;
6768: END IF;
6769:
6770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6763: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6764:
6765: IF (l_debug = 'Y') THEN
6766: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6767: okc_debug.Reset_Indentation;
6768: END IF;
6769:
6770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6771: (
6778: );
6779: WHEN OTHERS THEN
6780:
6781: IF (l_debug = 'Y') THEN
6782: okc_debug.LOG('19200: Exiting update_row:OTHERS Exception', 2);
6783: okc_debug.Reset_Indentation;
6784: END IF;
6785:
6786: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6779: WHEN OTHERS THEN
6780:
6781: IF (l_debug = 'Y') THEN
6782: okc_debug.LOG('19200: Exiting update_row:OTHERS Exception', 2);
6783: okc_debug.Reset_Indentation;
6784: END IF;
6785:
6786: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6787: (
6823: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6824: BEGIN
6825:
6826: IF (l_debug = 'Y') THEN
6827: okc_debug.Set_Indentation('OKC_CHR_PVT');
6828: okc_debug.LOG('19300: Entered populate_new_record', 2);
6829: END IF;
6830:
6831: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6824: BEGIN
6825:
6826: IF (l_debug = 'Y') THEN
6827: okc_debug.Set_Indentation('OKC_CHR_PVT');
6828: okc_debug.LOG('19300: Entered populate_new_record', 2);
6829: END IF;
6830:
6831: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6832: -- Get current database values
6911: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6912: BEGIN
6913:
6914: IF (l_debug = 'Y') THEN
6915: okc_debug.Set_Indentation('OKC_CHR_PVT');
6916: okc_debug.LOG('19400: Entered Set_Attributes', 2);
6917: END IF;
6918:
6919: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6912: BEGIN
6913:
6914: IF (l_debug = 'Y') THEN
6915: okc_debug.Set_Indentation('OKC_CHR_PVT');
6916: okc_debug.LOG('19400: Entered Set_Attributes', 2);
6917: END IF;
6918:
6919: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6920: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
6924: END Set_Attributes;
6925: BEGIN
6926:
6927: IF (l_debug = 'Y') THEN
6928: okc_debug.Set_Indentation('OKC_CHR_PVT');
6929: okc_debug.LOG('19500: Entered update_row', 2);
6930: END IF;
6931:
6932: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6925: BEGIN
6926:
6927: IF (l_debug = 'Y') THEN
6928: okc_debug.Set_Indentation('OKC_CHR_PVT');
6929: okc_debug.LOG('19500: Entered update_row', 2);
6930: END IF;
6931:
6932: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6933: p_init_msg_list,
6978:
6979: x_okc_k_headers_tl_rec := l_def_okc_k_headers_tl_rec;
6980: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6981: IF (l_debug = 'Y') THEN
6982: okc_debug.LOG('19600: Exiting update_row', 2);
6983: okc_debug.Reset_Indentation;
6984: END IF;
6985:
6986:
6979: x_okc_k_headers_tl_rec := l_def_okc_k_headers_tl_rec;
6980: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6981: IF (l_debug = 'Y') THEN
6982: okc_debug.LOG('19600: Exiting update_row', 2);
6983: okc_debug.Reset_Indentation;
6984: END IF;
6985:
6986:
6987: EXCEPTION
6987: EXCEPTION
6988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6989:
6990: IF (l_debug = 'Y') THEN
6991: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6992: okc_debug.Reset_Indentation;
6993: END IF;
6994:
6995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6988: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6989:
6990: IF (l_debug = 'Y') THEN
6991: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6992: okc_debug.Reset_Indentation;
6993: END IF;
6994:
6995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6996: (
7003: );
7004: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7005:
7006: IF (l_debug = 'Y') THEN
7007: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7008: okc_debug.Reset_Indentation;
7009: END IF;
7010:
7011: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7004: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7005:
7006: IF (l_debug = 'Y') THEN
7007: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7008: okc_debug.Reset_Indentation;
7009: END IF;
7010:
7011: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7012: (
7019: );
7020: WHEN OTHERS THEN
7021:
7022: IF (l_debug = 'Y') THEN
7023: okc_debug.LOG('19900: Exiting update_row:OTHERS Exception', 2);
7024: okc_debug.Reset_Indentation;
7025: END IF;
7026:
7027: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7020: WHEN OTHERS THEN
7021:
7022: IF (l_debug = 'Y') THEN
7023: okc_debug.LOG('19900: Exiting update_row:OTHERS Exception', 2);
7024: okc_debug.Reset_Indentation;
7025: END IF;
7026:
7027: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7028: (
7066: l_chrv_rec chrv_rec_type := p_chrv_rec;
7067: BEGIN
7068:
7069: IF (l_debug = 'Y') THEN
7070: okc_debug.Set_Indentation('OKC_CHR_PVT');
7071: okc_debug.LOG('20000: Entered fill_who_columns', 2);
7072: END IF;
7073:
7074: l_chrv_rec.LAST_UPDATE_DATE := SYSDATE;
7067: BEGIN
7068:
7069: IF (l_debug = 'Y') THEN
7070: okc_debug.Set_Indentation('OKC_CHR_PVT');
7071: okc_debug.LOG('20000: Entered fill_who_columns', 2);
7072: END IF;
7073:
7074: l_chrv_rec.LAST_UPDATE_DATE := SYSDATE;
7075: l_chrv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
7089: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7090: BEGIN
7091:
7092: IF (l_debug = 'Y') THEN
7093: okc_debug.Set_Indentation('OKC_CHR_PVT');
7094: okc_debug.LOG('20100: Entered populate_new_record', 2);
7095: END IF;
7096:
7097: x_chrv_rec := p_chrv_rec;
7090: BEGIN
7091:
7092: IF (l_debug = 'Y') THEN
7093: okc_debug.Set_Indentation('OKC_CHR_PVT');
7094: okc_debug.LOG('20100: Entered populate_new_record', 2);
7095: END IF;
7096:
7097: x_chrv_rec := p_chrv_rec;
7098: -- Get current database values
7527: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7528: BEGIN
7529:
7530: IF (l_debug = 'Y') THEN
7531: okc_debug.Set_Indentation('OKC_CHR_PVT');
7532: okc_debug.LOG('20200: Entered Set_Attributes', 2);
7533: END IF;
7534:
7535: x_chrv_rec := p_chrv_rec;
7528: BEGIN
7529:
7530: IF (l_debug = 'Y') THEN
7531: okc_debug.Set_Indentation('OKC_CHR_PVT');
7532: okc_debug.LOG('20200: Entered Set_Attributes', 2);
7533: END IF;
7534:
7535: x_chrv_rec := p_chrv_rec;
7536: x_chrv_rec.OBJECT_VERSION_NUMBER := NVL(x_chrv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
7557: END Set_Attributes;
7558: BEGIN
7559:
7560: IF (l_debug = 'Y') THEN
7561: okc_debug.Set_Indentation('OKC_CHR_PVT');
7562: okc_debug.LOG('20300: Entered update_row', 2);
7563: END IF;
7564:
7565: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7558: BEGIN
7559:
7560: IF (l_debug = 'Y') THEN
7561: okc_debug.Set_Indentation('OKC_CHR_PVT');
7562: okc_debug.LOG('20300: Entered update_row', 2);
7563: END IF;
7564:
7565: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7566: G_PKG_NAME,
7652: migrate(lx_chr_rec, l_def_chrv_rec);
7653: x_chrv_rec := l_def_chrv_rec;
7654: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7655: IF (l_debug = 'Y') THEN
7656: okc_debug.LOG('20400: Exiting update_row', 2);
7657: okc_debug.Reset_Indentation;
7658: END IF;
7659:
7660:
7653: x_chrv_rec := l_def_chrv_rec;
7654: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7655: IF (l_debug = 'Y') THEN
7656: okc_debug.LOG('20400: Exiting update_row', 2);
7657: okc_debug.Reset_Indentation;
7658: END IF;
7659:
7660:
7661: EXCEPTION
7661: EXCEPTION
7662: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7663:
7664: IF (l_debug = 'Y') THEN
7665: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7666: okc_debug.Reset_Indentation;
7667: END IF;
7668:
7669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7662: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7663:
7664: IF (l_debug = 'Y') THEN
7665: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7666: okc_debug.Reset_Indentation;
7667: END IF;
7668:
7669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7670: (
7677: );
7678: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7679:
7680: IF (l_debug = 'Y') THEN
7681: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7682: okc_debug.Reset_Indentation;
7683: END IF;
7684:
7685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7678: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7679:
7680: IF (l_debug = 'Y') THEN
7681: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7682: okc_debug.Reset_Indentation;
7683: END IF;
7684:
7685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7686: (
7693: );
7694: WHEN OTHERS THEN
7695:
7696: IF (l_debug = 'Y') THEN
7697: okc_debug.LOG('20700: Exiting update_row:OTHERS Exception', 2);
7698: okc_debug.Reset_Indentation;
7699: END IF;
7700:
7701: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7694: WHEN OTHERS THEN
7695:
7696: IF (l_debug = 'Y') THEN
7697: okc_debug.LOG('20700: Exiting update_row:OTHERS Exception', 2);
7698: okc_debug.Reset_Indentation;
7699: END IF;
7700:
7701: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7702: (
7729: i NUMBER := 0;
7730: BEGIN
7731:
7732: IF (l_debug = 'Y') THEN
7733: okc_debug.Set_Indentation('OKC_CHR_PVT');
7734: okc_debug.LOG('20800: Entered update_row', 2);
7735: END IF;
7736:
7737: OKC_API.init_msg_list(p_init_msg_list);
7730: BEGIN
7731:
7732: IF (l_debug = 'Y') THEN
7733: okc_debug.Set_Indentation('OKC_CHR_PVT');
7734: okc_debug.LOG('20800: Entered update_row', 2);
7735: END IF;
7736:
7737: OKC_API.init_msg_list(p_init_msg_list);
7738: -- Make sure PL/SQL table has records in it before passing
7762: -- return overall status
7763: x_return_status := l_overall_status;
7764: END IF;
7765: IF (l_debug = 'Y') THEN
7766: okc_debug.LOG('20900: Exiting update_row', 2);
7767: okc_debug.Reset_Indentation;
7768: END IF;
7769:
7770:
7763: x_return_status := l_overall_status;
7764: END IF;
7765: IF (l_debug = 'Y') THEN
7766: okc_debug.LOG('20900: Exiting update_row', 2);
7767: okc_debug.Reset_Indentation;
7768: END IF;
7769:
7770:
7771: EXCEPTION
7771: EXCEPTION
7772: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7773:
7774: IF (l_debug = 'Y') THEN
7775: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7776: okc_debug.Reset_Indentation;
7777: END IF;
7778:
7779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7772: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7773:
7774: IF (l_debug = 'Y') THEN
7775: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7776: okc_debug.Reset_Indentation;
7777: END IF;
7778:
7779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7780: (
7787: );
7788: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7789:
7790: IF (l_debug = 'Y') THEN
7791: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7792: okc_debug.Reset_Indentation;
7793: END IF;
7794:
7795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7788: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7789:
7790: IF (l_debug = 'Y') THEN
7791: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7792: okc_debug.Reset_Indentation;
7793: END IF;
7794:
7795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7796: (
7803: );
7804: WHEN OTHERS THEN
7805:
7806: IF (l_debug = 'Y') THEN
7807: okc_debug.LOG('21200: Exiting update_row:OTHERS Exception', 2);
7808: okc_debug.Reset_Indentation;
7809: END IF;
7810:
7811: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7804: WHEN OTHERS THEN
7805:
7806: IF (l_debug = 'Y') THEN
7807: okc_debug.LOG('21200: Exiting update_row:OTHERS Exception', 2);
7808: okc_debug.Reset_Indentation;
7809: END IF;
7810:
7811: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7812: (
7840: l_row_notfound BOOLEAN := TRUE;
7841: BEGIN
7842:
7843: IF (l_debug = 'Y') THEN
7844: okc_debug.Set_Indentation('OKC_CHR_PVT');
7845: okc_debug.LOG('21300: Entered delete_row', 2);
7846: END IF;
7847:
7848: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7841: BEGIN
7842:
7843: IF (l_debug = 'Y') THEN
7844: okc_debug.Set_Indentation('OKC_CHR_PVT');
7845: okc_debug.LOG('21300: Entered delete_row', 2);
7846: END IF;
7847:
7848: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7849: p_init_msg_list,
7858: WHERE ID = l_chr_rec.id;
7859:
7860: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7861: IF (l_debug = 'Y') THEN
7862: okc_debug.LOG('21400: Exiting delete_row', 2);
7863: okc_debug.Reset_Indentation;
7864: END IF;
7865:
7866:
7859:
7860: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7861: IF (l_debug = 'Y') THEN
7862: okc_debug.LOG('21400: Exiting delete_row', 2);
7863: okc_debug.Reset_Indentation;
7864: END IF;
7865:
7866:
7867: EXCEPTION
7867: EXCEPTION
7868: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7869:
7870: IF (l_debug = 'Y') THEN
7871: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7872: okc_debug.Reset_Indentation;
7873: END IF;
7874:
7875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7868: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7869:
7870: IF (l_debug = 'Y') THEN
7871: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7872: okc_debug.Reset_Indentation;
7873: END IF;
7874:
7875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7876: (
7883: );
7884: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7885:
7886: IF (l_debug = 'Y') THEN
7887: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7888: okc_debug.Reset_Indentation;
7889: END IF;
7890:
7891: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7884: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7885:
7886: IF (l_debug = 'Y') THEN
7887: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7888: okc_debug.Reset_Indentation;
7889: END IF;
7890:
7891: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7892: (
7899: );
7900: WHEN OTHERS THEN
7901:
7902: IF (l_debug = 'Y') THEN
7903: okc_debug.LOG('21700: Exiting delete_row:OTHERS Exception', 2);
7904: okc_debug.Reset_Indentation;
7905: END IF;
7906:
7907: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7900: WHEN OTHERS THEN
7901:
7902: IF (l_debug = 'Y') THEN
7903: okc_debug.LOG('21700: Exiting delete_row:OTHERS Exception', 2);
7904: okc_debug.Reset_Indentation;
7905: END IF;
7906:
7907: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7908: (
7940: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7941: BEGIN
7942:
7943: IF (l_debug = 'Y') THEN
7944: okc_debug.Set_Indentation('OKC_CHR_PVT');
7945: okc_debug.LOG('21800: Entered Set_Attributes', 2);
7946: END IF;
7947:
7948: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
7941: BEGIN
7942:
7943: IF (l_debug = 'Y') THEN
7944: okc_debug.Set_Indentation('OKC_CHR_PVT');
7945: okc_debug.LOG('21800: Entered Set_Attributes', 2);
7946: END IF;
7947:
7948: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
7949: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
7952: END Set_Attributes;
7953: BEGIN
7954:
7955: IF (l_debug = 'Y') THEN
7956: okc_debug.Set_Indentation('OKC_CHR_PVT');
7957: okc_debug.LOG('21900: Entered delete_row', 2);
7958: END IF;
7959:
7960: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7953: BEGIN
7954:
7955: IF (l_debug = 'Y') THEN
7956: okc_debug.Set_Indentation('OKC_CHR_PVT');
7957: okc_debug.LOG('21900: Entered delete_row', 2);
7958: END IF;
7959:
7960: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7961: p_init_msg_list,
7980: WHERE ID = l_okc_k_headers_tl_rec.id;
7981:
7982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7983: IF (l_debug = 'Y') THEN
7984: okc_debug.LOG('22000: Exiting delete_row', 2);
7985: okc_debug.Reset_Indentation;
7986: END IF;
7987:
7988:
7981:
7982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7983: IF (l_debug = 'Y') THEN
7984: okc_debug.LOG('22000: Exiting delete_row', 2);
7985: okc_debug.Reset_Indentation;
7986: END IF;
7987:
7988:
7989: EXCEPTION
7989: EXCEPTION
7990: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7991:
7992: IF (l_debug = 'Y') THEN
7993: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7994: okc_debug.Reset_Indentation;
7995: END IF;
7996:
7997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7990: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7991:
7992: IF (l_debug = 'Y') THEN
7993: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7994: okc_debug.Reset_Indentation;
7995: END IF;
7996:
7997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7998: (
8005: );
8006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8007:
8008: IF (l_debug = 'Y') THEN
8009: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8010: okc_debug.Reset_Indentation;
8011: END IF;
8012:
8013: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8007:
8008: IF (l_debug = 'Y') THEN
8009: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8010: okc_debug.Reset_Indentation;
8011: END IF;
8012:
8013: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8014: (
8021: );
8022: WHEN OTHERS THEN
8023:
8024: IF (l_debug = 'Y') THEN
8025: okc_debug.LOG('22300: Exiting delete_row:OTHERS Exception', 2);
8026: okc_debug.Reset_Indentation;
8027: END IF;
8028:
8029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8022: WHEN OTHERS THEN
8023:
8024: IF (l_debug = 'Y') THEN
8025: okc_debug.LOG('22300: Exiting delete_row:OTHERS Exception', 2);
8026: okc_debug.Reset_Indentation;
8027: END IF;
8028:
8029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8030: (
8056: l_chr_rec chr_rec_type;
8057: BEGIN
8058:
8059: IF (l_debug = 'Y') THEN
8060: okc_debug.Set_Indentation('OKC_CHR_PVT');
8061: okc_debug.LOG('22400: Entered delete_row', 2);
8062: END IF;
8063:
8064: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8057: BEGIN
8058:
8059: IF (l_debug = 'Y') THEN
8060: okc_debug.Set_Indentation('OKC_CHR_PVT');
8061: okc_debug.LOG('22400: Entered delete_row', 2);
8062: END IF;
8063:
8064: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8065: G_PKG_NAME,
8106: RAISE OKC_API.G_EXCEPTION_ERROR;
8107: END IF;
8108: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8109: IF (l_debug = 'Y') THEN
8110: okc_debug.LOG('22500: Exiting delete_row', 2);
8111: okc_debug.Reset_Indentation;
8112: END IF;
8113:
8114:
8107: END IF;
8108: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8109: IF (l_debug = 'Y') THEN
8110: okc_debug.LOG('22500: Exiting delete_row', 2);
8111: okc_debug.Reset_Indentation;
8112: END IF;
8113:
8114:
8115: EXCEPTION
8115: EXCEPTION
8116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8117:
8118: IF (l_debug = 'Y') THEN
8119: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8120: okc_debug.Reset_Indentation;
8121: END IF;
8122:
8123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8116: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8117:
8118: IF (l_debug = 'Y') THEN
8119: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8120: okc_debug.Reset_Indentation;
8121: END IF;
8122:
8123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8124: (
8131: );
8132: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8133:
8134: IF (l_debug = 'Y') THEN
8135: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8136: okc_debug.Reset_Indentation;
8137: END IF;
8138:
8139: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8132: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8133:
8134: IF (l_debug = 'Y') THEN
8135: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8136: okc_debug.Reset_Indentation;
8137: END IF;
8138:
8139: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8140: (
8147: );
8148: WHEN OTHERS THEN
8149:
8150: IF (l_debug = 'Y') THEN
8151: okc_debug.LOG('22800: Exiting delete_row:OTHERS Exception', 2);
8152: okc_debug.Reset_Indentation;
8153: END IF;
8154:
8155: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8148: WHEN OTHERS THEN
8149:
8150: IF (l_debug = 'Y') THEN
8151: okc_debug.LOG('22800: Exiting delete_row:OTHERS Exception', 2);
8152: okc_debug.Reset_Indentation;
8153: END IF;
8154:
8155: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8156: (
8186: WHERE chr_id = p_chrv_tbl(i).id;
8187: BEGIN
8188:
8189: IF (l_debug = 'Y') THEN
8190: okc_debug.Set_Indentation('OKC_CHR_PVT');
8191: okc_debug.LOG('22900: Entered delete_row', 2);
8192: END IF;
8193:
8194: OKC_API.init_msg_list(p_init_msg_list);
8187: BEGIN
8188:
8189: IF (l_debug = 'Y') THEN
8190: okc_debug.Set_Indentation('OKC_CHR_PVT');
8191: okc_debug.LOG('22900: Entered delete_row', 2);
8192: END IF;
8193:
8194: OKC_API.init_msg_list(p_init_msg_list);
8195: -- Make sure PL/SQL table has records in it before passing
8239: -- return overall status
8240: x_return_status := l_overall_status;
8241: END IF;
8242: IF (l_debug = 'Y') THEN
8243: okc_debug.LOG('23000: Exiting delete_row', 2);
8244: okc_debug.Reset_Indentation;
8245: END IF;
8246:
8247:
8240: x_return_status := l_overall_status;
8241: END IF;
8242: IF (l_debug = 'Y') THEN
8243: okc_debug.LOG('23000: Exiting delete_row', 2);
8244: okc_debug.Reset_Indentation;
8245: END IF;
8246:
8247:
8248: EXCEPTION
8248: EXCEPTION
8249: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8250:
8251: IF (l_debug = 'Y') THEN
8252: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8253: okc_debug.Reset_Indentation;
8254: END IF;
8255:
8256: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8249: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8250:
8251: IF (l_debug = 'Y') THEN
8252: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8253: okc_debug.Reset_Indentation;
8254: END IF;
8255:
8256: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8257: (
8264: );
8265: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8266:
8267: IF (l_debug = 'Y') THEN
8268: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8269: okc_debug.Reset_Indentation;
8270: END IF;
8271:
8272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8265: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8266:
8267: IF (l_debug = 'Y') THEN
8268: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8269: okc_debug.Reset_Indentation;
8270: END IF;
8271:
8272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8273: (
8280: );
8281: WHEN OTHERS THEN
8282:
8283: IF (l_debug = 'Y') THEN
8284: okc_debug.LOG('23300: Exiting delete_row:OTHERS Exception', 2);
8285: okc_debug.Reset_Indentation;
8286: END IF;
8287:
8288: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8281: WHEN OTHERS THEN
8282:
8283: IF (l_debug = 'Y') THEN
8284: okc_debug.LOG('23300: Exiting delete_row:OTHERS Exception', 2);
8285: okc_debug.Reset_Indentation;
8286: END IF;
8287:
8288: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8289: (
8423: BEGIN
8424: --Initializing return status
8425: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8426: IF (l_debug = 'Y') THEN
8427: okc_debug.Set_Indentation('OKC_CHR_PVT');
8428: okc_debug.LOG('23400: Entered INSERT_ROW_UPG', 2);
8429: END IF;
8430:
8431:
8424: --Initializing return status
8425: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8426: IF (l_debug = 'Y') THEN
8427: okc_debug.Set_Indentation('OKC_CHR_PVT');
8428: okc_debug.LOG('23400: Entered INSERT_ROW_UPG', 2);
8429: END IF;
8430:
8431:
8432: -- pkoganti 08/26/2000
8843: in_last_update_login(i)
8844: );
8845:
8846: IF (l_debug = 'Y') THEN
8847: okc_debug.LOG('23500: Exiting INSERT_ROW_UPG', 2);
8848: okc_debug.Reset_Indentation;
8849: END IF;
8850:
8851:
8844: );
8845:
8846: IF (l_debug = 'Y') THEN
8847: okc_debug.LOG('23500: Exiting INSERT_ROW_UPG', 2);
8848: okc_debug.Reset_Indentation;
8849: END IF;
8850:
8851:
8852: EXCEPTION
8852: EXCEPTION
8853: WHEN OTHERS THEN
8854:
8855: IF (l_debug = 'Y') THEN
8856: okc_debug.LOG('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
8857: okc_debug.Reset_Indentation;
8858: END IF;
8859: -- Store SQL error message on message stack
8860: OKC_API.SET_MESSAGE(
8853: WHEN OTHERS THEN
8854:
8855: IF (l_debug = 'Y') THEN
8856: okc_debug.LOG('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
8857: okc_debug.Reset_Indentation;
8858: END IF;
8859: -- Store SQL error message on message stack
8860: OKC_API.SET_MESSAGE(
8861: p_app_name => G_APP_NAME,
8884:
8885: BEGIN
8886:
8887: IF (l_debug = 'Y') THEN
8888: okc_debug.Set_Indentation('OKC_CHR_PVT');
8889: okc_debug.LOG('23700: Entered create_version', 2);
8890: END IF;
8891:
8892: INSERT INTO okc_k_headers_all_bh --mmadhavi changed to _ALL for MOAC
8885: BEGIN
8886:
8887: IF (l_debug = 'Y') THEN
8888: okc_debug.Set_Indentation('OKC_CHR_PVT');
8889: okc_debug.LOG('23700: Entered create_version', 2);
8890: END IF;
8891:
8892: INSERT INTO okc_k_headers_all_bh --mmadhavi changed to _ALL for MOAC
8893: (
9146: WHERE id = p_chr_id;
9147:
9148: RETURN l_return_status;
9149: IF (l_debug = 'Y') THEN
9150: okc_debug.LOG('23800: Exiting create_version', 2);
9151: okc_debug.Reset_Indentation;
9152: END IF;
9153:
9154:
9147:
9148: RETURN l_return_status;
9149: IF (l_debug = 'Y') THEN
9150: okc_debug.LOG('23800: Exiting create_version', 2);
9151: okc_debug.Reset_Indentation;
9152: END IF;
9153:
9154:
9155: EXCEPTION
9156: -- other appropriate handlers
9157: WHEN OTHERS THEN
9158:
9159: IF (l_debug = 'Y') THEN
9160: okc_debug.LOG('23900: Exiting create_version:OTHERS Exception', 2);
9161: okc_debug.Reset_Indentation;
9162: END IF;
9163:
9164: -- store SQL error message on message stack
9157: WHEN OTHERS THEN
9158:
9159: IF (l_debug = 'Y') THEN
9160: okc_debug.LOG('23900: Exiting create_version:OTHERS Exception', 2);
9161: okc_debug.Reset_Indentation;
9162: END IF;
9163:
9164: -- store SQL error message on message stack
9165: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
9189:
9190: BEGIN
9191:
9192: IF (l_debug = 'Y') THEN
9193: okc_debug.Set_Indentation('OKC_CHR_PVT');
9194: okc_debug.LOG('24000: Entered restore_version', 2);
9195: END IF;
9196:
9197: INSERT INTO okc_k_headers_tl
9190: BEGIN
9191:
9192: IF (l_debug = 'Y') THEN
9193: okc_debug.Set_Indentation('OKC_CHR_PVT');
9194: okc_debug.LOG('24000: Entered restore_version', 2);
9195: END IF;
9196:
9197: INSERT INTO okc_k_headers_tl
9198: (
9448: AND major_version = p_major_version;
9449:
9450: RETURN l_return_status;
9451: IF (l_debug = 'Y') THEN
9452: okc_debug.LOG('24100: Exiting restore_version', 2);
9453: okc_debug.Reset_Indentation;
9454: END IF;
9455:
9456:
9449:
9450: RETURN l_return_status;
9451: IF (l_debug = 'Y') THEN
9452: okc_debug.LOG('24100: Exiting restore_version', 2);
9453: okc_debug.Reset_Indentation;
9454: END IF;
9455:
9456:
9457: EXCEPTION
9458: -- other appropriate handlers
9459: WHEN OTHERS THEN
9460:
9461: IF (l_debug = 'Y') THEN
9462: okc_debug.LOG('24200: Exiting restore_version:OTHERS Exception', 2);
9463: okc_debug.Reset_Indentation;
9464: END IF;
9465:
9466: -- store SQL error message on message stack
9459: WHEN OTHERS THEN
9460:
9461: IF (l_debug = 'Y') THEN
9462: okc_debug.LOG('24200: Exiting restore_version:OTHERS Exception', 2);
9463: okc_debug.Reset_Indentation;
9464: END IF;
9465:
9466: -- store SQL error message on message stack
9467: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,