[Home] [Help]
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:
3114: l_chrv_rec chrv_rec_type;
3115: BEGIN
3116:
3117: IF (l_debug = 'Y') THEN
3118: okc_debug.Set_Indentation('OKC_CHR_PVT');
3119: okc_debug.LOG('10600: Entered get_rec', 2);
3120: END IF;
3121:
3122: x_no_data_found := TRUE;
3115: BEGIN
3116:
3117: IF (l_debug = 'Y') THEN
3118: okc_debug.Set_Indentation('OKC_CHR_PVT');
3119: okc_debug.LOG('10600: Entered get_rec', 2);
3120: END IF;
3121:
3122: x_no_data_found := TRUE;
3123: -- Get current database values
3247: l_row_notfound BOOLEAN := TRUE;
3248: BEGIN
3249:
3250: IF (l_debug = 'Y') THEN
3251: okc_debug.Set_Indentation('OKC_CHR_PVT');
3252: okc_debug.LOG('10700: Entered get_rec', 2);
3253: END IF;
3254:
3255: RETURN(get_rec(p_chrv_rec, l_row_notfound));
3248: BEGIN
3249:
3250: IF (l_debug = 'Y') THEN
3251: okc_debug.Set_Indentation('OKC_CHR_PVT');
3252: okc_debug.LOG('10700: Entered get_rec', 2);
3253: END IF;
3254:
3255: RETURN(get_rec(p_chrv_rec, l_row_notfound));
3256:
3265: l_chrv_rec chrv_rec_type := p_chrv_rec;
3266: BEGIN
3267:
3268: IF (l_debug = 'Y') THEN
3269: okc_debug.Set_Indentation('OKC_CHR_PVT');
3270: okc_debug.LOG('10800: Entered null_out_defaults', 2);
3271: END IF;
3272:
3273: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3266: BEGIN
3267:
3268: IF (l_debug = 'Y') THEN
3269: okc_debug.Set_Indentation('OKC_CHR_PVT');
3270: okc_debug.LOG('10800: Entered null_out_defaults', 2);
3271: END IF;
3272:
3273: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3274: l_chrv_rec.object_version_number := NULL;
3609: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3610: BEGIN
3611:
3612: IF (l_debug = 'Y') THEN
3613: okc_debug.Set_Indentation('OKC_CHR_PVT');
3614: okc_debug.LOG('10900: Entered Validate_Attributes', 2);
3615: END IF;
3616:
3617: /************************ HAND-CODED *********************************/
3610: BEGIN
3611:
3612: IF (l_debug = 'Y') THEN
3613: okc_debug.Set_Indentation('OKC_CHR_PVT');
3614: okc_debug.LOG('10900: Entered Validate_Attributes', 2);
3615: END IF;
3616:
3617: /************************ HAND-CODED *********************************/
3618: validate_contract_number
3952: END IF;
3953: -- R12 Data Model Changes 4485150 End
3954: RETURN(x_return_status);
3955: IF (l_debug = 'Y') THEN
3956: okc_debug.LOG('11000: Exiting Validate_Attributes', 2);
3957: okc_debug.Reset_Indentation;
3958: END IF;
3959:
3960:
3953: -- R12 Data Model Changes 4485150 End
3954: RETURN(x_return_status);
3955: IF (l_debug = 'Y') THEN
3956: okc_debug.LOG('11000: Exiting Validate_Attributes', 2);
3957: okc_debug.Reset_Indentation;
3958: END IF;
3959:
3960:
3961: EXCEPTION
3961: EXCEPTION
3962: WHEN OTHERS THEN
3963:
3964: IF (l_debug = 'Y') THEN
3965: okc_debug.LOG('11100: Exiting Validate_Attributes:OTHERS Exception', 2);
3966: okc_debug.Reset_Indentation;
3967: END IF;
3968:
3969: -- store SQL error message on message stack
3962: WHEN OTHERS THEN
3963:
3964: IF (l_debug = 'Y') THEN
3965: okc_debug.LOG('11100: Exiting Validate_Attributes:OTHERS Exception', 2);
3966: okc_debug.Reset_Indentation;
3967: END IF;
3968:
3969: -- store SQL error message on message stack
3970: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
3993: WHERE code = p_code;
3994: BEGIN
3995:
3996: IF (l_debug = 'Y') THEN
3997: okc_debug.Set_Indentation('OKC_CHR_PVT');
3998: okc_debug.LOG('11200: Entered Get_Status_Type', 2);
3999: END IF;
4000:
4001: OPEN l_stsv_csr;
3994: BEGIN
3995:
3996: IF (l_debug = 'Y') THEN
3997: okc_debug.Set_Indentation('OKC_CHR_PVT');
3998: okc_debug.LOG('11200: Entered Get_Status_Type', 2);
3999: END IF;
4000:
4001: OPEN l_stsv_csr;
4002: FETCH l_stsv_csr INTO l_ste_code;
4002: FETCH l_stsv_csr INTO l_ste_code;
4003: CLOSE l_stsv_csr;
4004: RETURN l_ste_code;
4005: IF (l_debug = 'Y') THEN
4006: okc_debug.LOG('11300: Exiting Get_Status_Type', 2);
4007: okc_debug.Reset_Indentation;
4008: END IF;
4009:
4010:
4003: CLOSE l_stsv_csr;
4004: RETURN l_ste_code;
4005: IF (l_debug = 'Y') THEN
4006: okc_debug.LOG('11300: Exiting Get_Status_Type', 2);
4007: okc_debug.Reset_Indentation;
4008: END IF;
4009:
4010:
4011: EXCEPTION
4011: EXCEPTION
4012: WHEN NO_DATA_FOUND THEN
4013:
4014: IF (l_debug = 'Y') THEN
4015: okc_debug.LOG('11400: Exiting Get_Status_Type:NO_DATA_FOUND Exception', 2);
4016: okc_debug.Reset_Indentation;
4017: END IF;
4018:
4019: RETURN l_ste_code;
4012: WHEN NO_DATA_FOUND THEN
4013:
4014: IF (l_debug = 'Y') THEN
4015: okc_debug.LOG('11400: Exiting Get_Status_Type:NO_DATA_FOUND Exception', 2);
4016: okc_debug.Reset_Indentation;
4017: END IF;
4018:
4019: RETURN l_ste_code;
4020: WHEN OTHERS THEN
4019: RETURN l_ste_code;
4020: WHEN OTHERS THEN
4021:
4022: IF (l_debug = 'Y') THEN
4023: okc_debug.LOG('11500: Exiting Get_Status_Type:Others Exception', 2);
4024: okc_debug.Reset_Indentation;
4025: END IF;
4026:
4027: RETURN l_ste_code;
4020: WHEN OTHERS THEN
4021:
4022: IF (l_debug = 'Y') THEN
4023: okc_debug.LOG('11500: Exiting Get_Status_Type:Others Exception', 2);
4024: okc_debug.Reset_Indentation;
4025: END IF;
4026:
4027: RETURN l_ste_code;
4028: END;
4056: l_found BOOLEAN;
4057: BEGIN
4058:
4059: IF (l_debug = 'Y') THEN
4060: okc_debug.Set_Indentation('OKC_CHR_PVT');
4061: okc_debug.LOG('11600: Entered IS_UNIQUE', 2);
4062: END IF;
4063:
4064: -- check for unique CONTRACT_NUMBER + MODIFIER
4057: BEGIN
4058:
4059: IF (l_debug = 'Y') THEN
4060: okc_debug.Set_Indentation('OKC_CHR_PVT');
4061: okc_debug.LOG('11600: Entered IS_UNIQUE', 2);
4062: END IF;
4063:
4064: -- check for unique CONTRACT_NUMBER + MODIFIER
4065: IF (p_chrv_rec.contract_number_modifier IS NULL) THEN
4085: END IF;
4086: RETURN (l_return_status);
4087:
4088: IF (l_debug = 'Y') THEN
4089: okc_debug.LOG('11700: Exiting IS_UNIQUE', 2);
4090: okc_debug.Reset_Indentation;
4091: END IF;
4092:
4093:
4086: RETURN (l_return_status);
4087:
4088: IF (l_debug = 'Y') THEN
4089: okc_debug.LOG('11700: Exiting IS_UNIQUE', 2);
4090: okc_debug.Reset_Indentation;
4091: END IF;
4092:
4093:
4094: EXCEPTION
4094: EXCEPTION
4095: WHEN OTHERS THEN
4096:
4097: IF (l_debug = 'Y') THEN
4098: okc_debug.LOG('11800: Exiting IS_UNIQUE:OTHERS Exception', 2);
4099: okc_debug.Reset_Indentation;
4100: END IF;
4101:
4102: RETURN (l_return_status);
4095: WHEN OTHERS THEN
4096:
4097: IF (l_debug = 'Y') THEN
4098: okc_debug.LOG('11800: Exiting IS_UNIQUE:OTHERS Exception', 2);
4099: okc_debug.Reset_Indentation;
4100: END IF;
4101:
4102: RETURN (l_return_status);
4103:
4141: l_found BOOLEAN;
4142: BEGIN
4143:
4144: IF (l_debug = 'Y') THEN
4145: okc_debug.Set_Indentation('OKC_CHR_PVT');
4146: okc_debug.LOG('11900: Entered Validate_Record', 2);
4147: END IF;
4148:
4149: -- check for unique CONTRACT_NUMBER + MODIFIER
4142: BEGIN
4143:
4144: IF (l_debug = 'Y') THEN
4145: okc_debug.Set_Indentation('OKC_CHR_PVT');
4146: okc_debug.LOG('11900: Entered Validate_Record', 2);
4147: END IF;
4148:
4149: -- check for unique CONTRACT_NUMBER + MODIFIER
4150: /*
4215: END IF;
4216:
4217: RETURN (l_return_status);
4218: IF (l_debug = 'Y') THEN
4219: okc_debug.LOG('12000: Exiting Validate_Record', 2);
4220: okc_debug.Reset_Indentation;
4221: END IF;
4222:
4223:
4216:
4217: RETURN (l_return_status);
4218: IF (l_debug = 'Y') THEN
4219: okc_debug.LOG('12000: Exiting Validate_Record', 2);
4220: okc_debug.Reset_Indentation;
4221: END IF;
4222:
4223:
4224: EXCEPTION
4224: EXCEPTION
4225: WHEN NO_DATA_FOUND THEN
4226:
4227: IF (l_debug = 'Y') THEN
4228: okc_debug.LOG('12100: Exiting Validate_Record:NO_DATA_FOUND Exception', 2);
4229: okc_debug.Reset_Indentation;
4230: END IF;
4231:
4232: NULL;
4225: WHEN NO_DATA_FOUND THEN
4226:
4227: IF (l_debug = 'Y') THEN
4228: okc_debug.LOG('12100: Exiting Validate_Record:NO_DATA_FOUND Exception', 2);
4229: okc_debug.Reset_Indentation;
4230: END IF;
4231:
4232: NULL;
4233:
4242: ) IS
4243: BEGIN
4244:
4245: IF (l_debug = 'Y') THEN
4246: okc_debug.Set_Indentation('OKC_CHR_PVT');
4247: okc_debug.LOG('12200: Entered migrate', 2);
4248: END IF;
4249:
4250: p_to.id := p_from.id;
4243: BEGIN
4244:
4245: IF (l_debug = 'Y') THEN
4246: okc_debug.Set_Indentation('OKC_CHR_PVT');
4247: okc_debug.LOG('12200: Entered migrate', 2);
4248: END IF;
4249:
4250: p_to.id := p_from.id;
4251: p_to.contract_number := p_from.contract_number;
4358: ) IS
4359: BEGIN
4360:
4361: IF (l_debug = 'Y') THEN
4362: okc_debug.Set_Indentation('OKC_CHR_PVT');
4363: okc_debug.LOG('12300: Entered migrate', 2);
4364: END IF;
4365:
4366: p_to.id := p_from.id;
4359: BEGIN
4360:
4361: IF (l_debug = 'Y') THEN
4362: okc_debug.Set_Indentation('OKC_CHR_PVT');
4363: okc_debug.LOG('12300: Entered migrate', 2);
4364: END IF;
4365:
4366: p_to.id := p_from.id;
4367: p_to.contract_number := p_from.contract_number;
4474: ) IS
4475: BEGIN
4476:
4477: IF (l_debug = 'Y') THEN
4478: okc_debug.Set_Indentation('OKC_CHR_PVT');
4479: okc_debug.LOG('12400: Entered migrate', 2);
4480: END IF;
4481:
4482: p_to.id := p_from.id;
4475: BEGIN
4476:
4477: IF (l_debug = 'Y') THEN
4478: okc_debug.Set_Indentation('OKC_CHR_PVT');
4479: okc_debug.LOG('12400: Entered migrate', 2);
4480: END IF;
4481:
4482: p_to.id := p_from.id;
4483: p_to.sfwt_flag := p_from.sfwt_flag;
4501: ) IS
4502: BEGIN
4503:
4504: IF (l_debug = 'Y') THEN
4505: okc_debug.Set_Indentation('OKC_CHR_PVT');
4506: okc_debug.LOG('12500: Entered migrate', 2);
4507: END IF;
4508:
4509: p_to.id := p_from.id;
4502: BEGIN
4503:
4504: IF (l_debug = 'Y') THEN
4505: okc_debug.Set_Indentation('OKC_CHR_PVT');
4506: okc_debug.LOG('12500: Entered migrate', 2);
4507: END IF;
4508:
4509: p_to.id := p_from.id;
4510: p_to.sfwt_flag := p_from.sfwt_flag;
4545: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
4546: BEGIN
4547:
4548: IF (l_debug = 'Y') THEN
4549: okc_debug.Set_Indentation('OKC_CHR_PVT');
4550: okc_debug.LOG('12600: Entered validate_row', 2);
4551: END IF;
4552:
4553: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4546: BEGIN
4547:
4548: IF (l_debug = 'Y') THEN
4549: okc_debug.Set_Indentation('OKC_CHR_PVT');
4550: okc_debug.LOG('12600: Entered validate_row', 2);
4551: END IF;
4552:
4553: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4554: G_PKG_NAME,
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4584: IF (l_debug = 'Y') THEN
4585: okc_debug.LOG('12700: Exiting validate_row', 2);
4586: okc_debug.Reset_Indentation;
4587: END IF;
4588:
4589:
4582: END IF;
4583: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4584: IF (l_debug = 'Y') THEN
4585: okc_debug.LOG('12700: Exiting validate_row', 2);
4586: okc_debug.Reset_Indentation;
4587: END IF;
4588:
4589:
4590: EXCEPTION
4590: EXCEPTION
4591: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4592:
4593: IF (l_debug = 'Y') THEN
4594: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4595: okc_debug.Reset_Indentation;
4596: END IF;
4597:
4598: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4591: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4592:
4593: IF (l_debug = 'Y') THEN
4594: okc_debug.LOG('12800: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4595: okc_debug.Reset_Indentation;
4596: END IF;
4597:
4598: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4599: (
4606: );
4607: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4608:
4609: IF (l_debug = 'Y') THEN
4610: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4611: okc_debug.Reset_Indentation;
4612: END IF;
4613:
4614: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4607: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4608:
4609: IF (l_debug = 'Y') THEN
4610: okc_debug.LOG('12900: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4611: okc_debug.Reset_Indentation;
4612: END IF;
4613:
4614: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4615: (
4622: );
4623: WHEN OTHERS THEN
4624:
4625: IF (l_debug = 'Y') THEN
4626: okc_debug.LOG('13000: Exiting validate_row:OTHERS Exception', 2);
4627: okc_debug.Reset_Indentation;
4628: END IF;
4629:
4630: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4623: WHEN OTHERS THEN
4624:
4625: IF (l_debug = 'Y') THEN
4626: okc_debug.LOG('13000: Exiting validate_row:OTHERS Exception', 2);
4627: okc_debug.Reset_Indentation;
4628: END IF;
4629:
4630: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4631: (
4656: i NUMBER := 0;
4657: BEGIN
4658:
4659: IF (l_debug = 'Y') THEN
4660: okc_debug.Set_Indentation('OKC_CHR_PVT');
4661: okc_debug.LOG('13100: Entered validate_row', 2);
4662: END IF;
4663:
4664: OKC_API.init_msg_list(p_init_msg_list);
4657: BEGIN
4658:
4659: IF (l_debug = 'Y') THEN
4660: okc_debug.Set_Indentation('OKC_CHR_PVT');
4661: okc_debug.LOG('13100: Entered validate_row', 2);
4662: END IF;
4663:
4664: OKC_API.init_msg_list(p_init_msg_list);
4665: -- Make sure PL/SQL table has records in it before passing
4687: -- return overall status
4688: x_return_status := l_overall_status;
4689: END IF;
4690: IF (l_debug = 'Y') THEN
4691: okc_debug.LOG('13200: Exiting validate_row', 2);
4692: okc_debug.Reset_Indentation;
4693: END IF;
4694:
4695:
4688: x_return_status := l_overall_status;
4689: END IF;
4690: IF (l_debug = 'Y') THEN
4691: okc_debug.LOG('13200: Exiting validate_row', 2);
4692: okc_debug.Reset_Indentation;
4693: END IF;
4694:
4695:
4696: EXCEPTION
4696: EXCEPTION
4697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4698:
4699: IF (l_debug = 'Y') THEN
4700: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4701: okc_debug.Reset_Indentation;
4702: END IF;
4703:
4704: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4697: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4698:
4699: IF (l_debug = 'Y') THEN
4700: okc_debug.LOG('13300: Exiting validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4701: okc_debug.Reset_Indentation;
4702: END IF;
4703:
4704: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4705: (
4712: );
4713: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4714:
4715: IF (l_debug = 'Y') THEN
4716: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4717: okc_debug.Reset_Indentation;
4718: END IF;
4719:
4720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4713: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4714:
4715: IF (l_debug = 'Y') THEN
4716: okc_debug.LOG('13400: Exiting validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4717: okc_debug.Reset_Indentation;
4718: END IF;
4719:
4720: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4721: (
4728: );
4729: WHEN OTHERS THEN
4730:
4731: IF (l_debug = 'Y') THEN
4732: okc_debug.LOG('13500: Exiting validate_row:OTHERS Exception', 2);
4733: okc_debug.Reset_Indentation;
4734: END IF;
4735:
4736: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4729: WHEN OTHERS THEN
4730:
4731: IF (l_debug = 'Y') THEN
4732: okc_debug.LOG('13500: Exiting validate_row:OTHERS Exception', 2);
4733: okc_debug.Reset_Indentation;
4734: END IF;
4735:
4736: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4737: (
4774: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4775: BEGIN
4776:
4777: IF (l_debug = 'Y') THEN
4778: okc_debug.Set_Indentation('OKC_CHR_PVT');
4779: okc_debug.LOG('13600: Entered Set_Attributes', 2);
4780: END IF;
4781:
4782: x_chr_rec := p_chr_rec;
4775: BEGIN
4776:
4777: IF (l_debug = 'Y') THEN
4778: okc_debug.Set_Indentation('OKC_CHR_PVT');
4779: okc_debug.LOG('13600: Entered Set_Attributes', 2);
4780: END IF;
4781:
4782: x_chr_rec := p_chr_rec;
4783: RETURN(l_return_status);
4785: END Set_Attributes;
4786: BEGIN
4787:
4788: IF (l_debug = 'Y') THEN
4789: okc_debug.Set_Indentation('OKC_CHR_PVT');
4790: okc_debug.LOG('13700: Entered insert_row', 2);
4791: END IF;
4792:
4793: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4786: BEGIN
4787:
4788: IF (l_debug = 'Y') THEN
4789: okc_debug.Set_Indentation('OKC_CHR_PVT');
4790: okc_debug.LOG('13700: Entered insert_row', 2);
4791: END IF;
4792:
4793: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4794: p_init_msg_list,
5019: -- Set OUT values
5020: x_chr_rec := l_chr_rec;
5021: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5022: IF (l_debug = 'Y') THEN
5023: okc_debug.LOG('13800: Exiting insert_row', 2);
5024: okc_debug.Reset_Indentation;
5025: END IF;
5026:
5027:
5020: x_chr_rec := l_chr_rec;
5021: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5022: IF (l_debug = 'Y') THEN
5023: okc_debug.LOG('13800: Exiting insert_row', 2);
5024: okc_debug.Reset_Indentation;
5025: END IF;
5026:
5027:
5028: EXCEPTION
5028: EXCEPTION
5029: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5030:
5031: IF (l_debug = 'Y') THEN
5032: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5033: okc_debug.Reset_Indentation;
5034: END IF;
5035:
5036: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5029: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5030:
5031: IF (l_debug = 'Y') THEN
5032: okc_debug.LOG('13900: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5033: okc_debug.Reset_Indentation;
5034: END IF;
5035:
5036: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5037: (
5044: );
5045: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5046:
5047: IF (l_debug = 'Y') THEN
5048: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5049: okc_debug.Reset_Indentation;
5050: END IF;
5051:
5052: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5045: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5046:
5047: IF (l_debug = 'Y') THEN
5048: okc_debug.LOG('14000: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5049: okc_debug.Reset_Indentation;
5050: END IF;
5051:
5052: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5053: (
5060: );
5061: WHEN OTHERS THEN
5062:
5063: IF (l_debug = 'Y') THEN
5064: okc_debug.LOG('14100: Exiting insert_row:OTHERS Exception', 2);
5065: okc_debug.Reset_Indentation;
5066: END IF;
5067:
5068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5061: WHEN OTHERS THEN
5062:
5063: IF (l_debug = 'Y') THEN
5064: okc_debug.LOG('14100: Exiting insert_row:OTHERS Exception', 2);
5065: okc_debug.Reset_Indentation;
5066: END IF;
5067:
5068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5069: (
5106: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5107: BEGIN
5108:
5109: IF (l_debug = 'Y') THEN
5110: okc_debug.Set_Indentation('OKC_CHR_PVT');
5111: okc_debug.LOG('14200: Entered Set_Attributes', 2);
5112: END IF;
5113:
5114: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
5107: BEGIN
5108:
5109: IF (l_debug = 'Y') THEN
5110: okc_debug.Set_Indentation('OKC_CHR_PVT');
5111: okc_debug.LOG('14200: Entered Set_Attributes', 2);
5112: END IF;
5113:
5114: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
5115: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
5119: END Set_Attributes;
5120: BEGIN
5121:
5122: IF (l_debug = 'Y') THEN
5123: okc_debug.Set_Indentation('OKC_CHR_PVT');
5124: okc_debug.LOG('14300: Entered insert_row', 2);
5125: END IF;
5126:
5127: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5120: BEGIN
5121:
5122: IF (l_debug = 'Y') THEN
5123: okc_debug.Set_Indentation('OKC_CHR_PVT');
5124: okc_debug.LOG('14300: Entered insert_row', 2);
5125: END IF;
5126:
5127: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5128: p_init_msg_list,
5183: -- Set OUT values
5184: x_okc_k_headers_tl_rec := l_okc_k_headers_tl_rec;
5185: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5186: IF (l_debug = 'Y') THEN
5187: okc_debug.LOG('14400: Exiting insert_row', 2);
5188: okc_debug.Reset_Indentation;
5189: END IF;
5190:
5191:
5184: x_okc_k_headers_tl_rec := l_okc_k_headers_tl_rec;
5185: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5186: IF (l_debug = 'Y') THEN
5187: okc_debug.LOG('14400: Exiting insert_row', 2);
5188: okc_debug.Reset_Indentation;
5189: END IF;
5190:
5191:
5192: EXCEPTION
5192: EXCEPTION
5193: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5194:
5195: IF (l_debug = 'Y') THEN
5196: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5197: okc_debug.Reset_Indentation;
5198: END IF;
5199:
5200: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5193: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5194:
5195: IF (l_debug = 'Y') THEN
5196: okc_debug.LOG('14500: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5197: okc_debug.Reset_Indentation;
5198: END IF;
5199:
5200: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5201: (
5208: );
5209: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5210:
5211: IF (l_debug = 'Y') THEN
5212: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5213: okc_debug.Reset_Indentation;
5214: END IF;
5215:
5216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5209: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5210:
5211: IF (l_debug = 'Y') THEN
5212: okc_debug.LOG('14600: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5213: okc_debug.Reset_Indentation;
5214: END IF;
5215:
5216: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5217: (
5224: );
5225: WHEN OTHERS THEN
5226:
5227: IF (l_debug = 'Y') THEN
5228: okc_debug.LOG('14700: Exiting insert_row:OTHERS Exception', 2);
5229: okc_debug.Reset_Indentation;
5230: END IF;
5231:
5232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5225: WHEN OTHERS THEN
5226:
5227: IF (l_debug = 'Y') THEN
5228: okc_debug.LOG('14700: Exiting insert_row:OTHERS Exception', 2);
5229: okc_debug.Reset_Indentation;
5230: END IF;
5231:
5232: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5233: (
5270: l_chrv_rec chrv_rec_type := p_chrv_rec;
5271: BEGIN
5272:
5273: IF (l_debug = 'Y') THEN
5274: okc_debug.Set_Indentation('OKC_CHR_PVT');
5275: okc_debug.LOG('14800: Entered fill_who_columns', 2);
5276: END IF;
5277:
5278: l_chrv_rec.CREATION_DATE := SYSDATE;
5271: BEGIN
5272:
5273: IF (l_debug = 'Y') THEN
5274: okc_debug.Set_Indentation('OKC_CHR_PVT');
5275: okc_debug.LOG('14800: Entered fill_who_columns', 2);
5276: END IF;
5277:
5278: l_chrv_rec.CREATION_DATE := SYSDATE;
5279: l_chrv_rec.CREATED_BY := FND_GLOBAL.USER_ID;
5298: AND scs.code = p_scs_code;
5299: BEGIN
5300:
5301: IF (l_debug = 'Y') THEN
5302: okc_debug.Set_Indentation('OKC_CHR_PVT');
5303: okc_debug.LOG('14900: Entered Set_Attributes', 2);
5304: END IF;
5305:
5306: x_chrv_rec := p_chrv_rec;
5299: BEGIN
5300:
5301: IF (l_debug = 'Y') THEN
5302: okc_debug.Set_Indentation('OKC_CHR_PVT');
5303: okc_debug.LOG('14900: Entered Set_Attributes', 2);
5304: END IF;
5305:
5306: x_chrv_rec := p_chrv_rec;
5307: x_chrv_rec.OBJECT_VERSION_NUMBER := 1;
5332: END Set_Attributes;
5333: BEGIN
5334:
5335: IF (l_debug = 'Y') THEN
5336: okc_debug.Set_Indentation('OKC_CHR_PVT');
5337: okc_debug.LOG('15000: Entered insert_row', 2);
5338: END IF;
5339:
5340: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5333: BEGIN
5334:
5335: IF (l_debug = 'Y') THEN
5336: okc_debug.Set_Indentation('OKC_CHR_PVT');
5337: okc_debug.LOG('15000: Entered insert_row', 2);
5338: END IF;
5339:
5340: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5341: G_PKG_NAME,
5422: -- Set OUT values
5423: x_chrv_rec := l_def_chrv_rec;
5424: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5425: IF (l_debug = 'Y') THEN
5426: okc_debug.LOG('15100: Exiting insert_row', 2);
5427: okc_debug.Reset_Indentation;
5428: END IF;
5429:
5430:
5423: x_chrv_rec := l_def_chrv_rec;
5424: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5425: IF (l_debug = 'Y') THEN
5426: okc_debug.LOG('15100: Exiting insert_row', 2);
5427: okc_debug.Reset_Indentation;
5428: END IF;
5429:
5430:
5431: EXCEPTION
5431: EXCEPTION
5432: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5433:
5434: IF (l_debug = 'Y') THEN
5435: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5436: okc_debug.Reset_Indentation;
5437: END IF;
5438:
5439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5432: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5433:
5434: IF (l_debug = 'Y') THEN
5435: okc_debug.LOG('15200: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5436: okc_debug.Reset_Indentation;
5437: END IF;
5438:
5439: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5440: (
5447: );
5448: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5449:
5450: IF (l_debug = 'Y') THEN
5451: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
5449:
5450: IF (l_debug = 'Y') THEN
5451: okc_debug.LOG('15300: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5452: okc_debug.Reset_Indentation;
5453: END IF;
5454:
5455: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5456: (
5463: );
5464: WHEN OTHERS THEN
5465:
5466: IF (l_debug = 'Y') THEN
5467: okc_debug.LOG('15400: Exiting insert_row:OTHERS Exception', 2);
5468: okc_debug.Reset_Indentation;
5469: END IF;
5470:
5471: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5464: WHEN OTHERS THEN
5465:
5466: IF (l_debug = 'Y') THEN
5467: okc_debug.LOG('15400: Exiting insert_row:OTHERS Exception', 2);
5468: okc_debug.Reset_Indentation;
5469: END IF;
5470:
5471: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5472: (
5499: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5500: BEGIN
5501:
5502: IF (l_debug = 'Y') THEN
5503: okc_debug.Set_Indentation('OKC_CHR_PVT');
5504: okc_debug.LOG('15500: Entered insert_row', 2);
5505: END IF;
5506:
5507: OKC_API.init_msg_list(p_init_msg_list);
5500: BEGIN
5501:
5502: IF (l_debug = 'Y') THEN
5503: okc_debug.Set_Indentation('OKC_CHR_PVT');
5504: okc_debug.LOG('15500: Entered insert_row', 2);
5505: END IF;
5506:
5507: OKC_API.init_msg_list(p_init_msg_list);
5508: -- Make sure PL/SQL table has records in it before passing
5557: -- return overall status
5558: x_return_status := l_overall_status;
5559: END IF;
5560: IF (l_debug = 'Y') THEN
5561: okc_debug.LOG('15600: Exiting insert_row', 2);
5562: okc_debug.Reset_Indentation;
5563: END IF;
5564:
5565:
5558: x_return_status := l_overall_status;
5559: END IF;
5560: IF (l_debug = 'Y') THEN
5561: okc_debug.LOG('15600: Exiting insert_row', 2);
5562: okc_debug.Reset_Indentation;
5563: END IF;
5564:
5565:
5566: EXCEPTION
5566: EXCEPTION
5567: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5568:
5569: IF (l_debug = 'Y') THEN
5570: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5571: okc_debug.Reset_Indentation;
5572: END IF;
5573:
5574: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5567: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5568:
5569: IF (l_debug = 'Y') THEN
5570: okc_debug.LOG('15700: Exiting insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5571: okc_debug.Reset_Indentation;
5572: END IF;
5573:
5574: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5575: (
5582: );
5583: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5584:
5585: IF (l_debug = 'Y') THEN
5586: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
5584:
5585: IF (l_debug = 'Y') THEN
5586: okc_debug.LOG('15800: Exiting insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5587: okc_debug.Reset_Indentation;
5588: END IF;
5589:
5590: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5591: (
5598: );
5599: WHEN OTHERS THEN
5600:
5601: IF (l_debug = 'Y') THEN
5602: okc_debug.LOG('15900: Exiting insert_row:OTHERS Exception', 2);
5603: okc_debug.Reset_Indentation;
5604: END IF;
5605:
5606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5599: WHEN OTHERS THEN
5600:
5601: IF (l_debug = 'Y') THEN
5602: okc_debug.LOG('15900: Exiting insert_row:OTHERS Exception', 2);
5603: okc_debug.Reset_Indentation;
5604: END IF;
5605:
5606: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5607: (
5650: lc_row_notfound BOOLEAN := FALSE;
5651: BEGIN
5652:
5653: IF (l_debug = 'Y') THEN
5654: okc_debug.Set_Indentation('OKC_CHR_PVT');
5655: okc_debug.LOG('16000: Entered lock_row', 2);
5656: END IF;
5657:
5658: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5651: BEGIN
5652:
5653: IF (l_debug = 'Y') THEN
5654: okc_debug.Set_Indentation('OKC_CHR_PVT');
5655: okc_debug.LOG('16000: Entered lock_row', 2);
5656: END IF;
5657:
5658: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5659: p_init_msg_list,
5666: END IF;
5667: BEGIN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.Set_Indentation('OKC_CHR_PVT');
5671: okc_debug.LOG('16100: Entered lock_row', 2);
5672: END IF;
5673:
5674: OPEN lock_csr(p_chr_rec);
5667: BEGIN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.Set_Indentation('OKC_CHR_PVT');
5671: okc_debug.LOG('16100: Entered lock_row', 2);
5672: END IF;
5673:
5674: OPEN lock_csr(p_chr_rec);
5675: FETCH lock_csr INTO l_object_version_number;
5675: FETCH lock_csr INTO l_object_version_number;
5676: l_row_notfound := lock_csr%NOTFOUND;
5677: CLOSE lock_csr;
5678: IF (l_debug = 'Y') THEN
5679: okc_debug.LOG('16200: Exiting lock_row', 2);
5680: okc_debug.Reset_Indentation;
5681: END IF;
5682:
5683:
5676: l_row_notfound := lock_csr%NOTFOUND;
5677: CLOSE lock_csr;
5678: IF (l_debug = 'Y') THEN
5679: okc_debug.LOG('16200: Exiting lock_row', 2);
5680: okc_debug.Reset_Indentation;
5681: END IF;
5682:
5683:
5684: EXCEPTION
5684: EXCEPTION
5685: WHEN E_Resource_Busy THEN
5686:
5687: IF (l_debug = 'Y') THEN
5688: okc_debug.LOG('16300: Exiting lock_row:E_Resource_Busy Exception', 2);
5689: okc_debug.Reset_Indentation;
5690: END IF;
5691:
5692: IF (lock_csr%ISOPEN) THEN
5685: WHEN E_Resource_Busy THEN
5686:
5687: IF (l_debug = 'Y') THEN
5688: okc_debug.LOG('16300: Exiting lock_row:E_Resource_Busy Exception', 2);
5689: okc_debug.Reset_Indentation;
5690: END IF;
5691:
5692: IF (lock_csr%ISOPEN) THEN
5693: CLOSE lock_csr;
5716: RAISE OKC_API.G_EXCEPTION_ERROR;
5717: END IF;
5718: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5719: IF (l_debug = 'Y') THEN
5720: okc_debug.LOG('16400: Exiting lock_row', 2);
5721: okc_debug.Reset_Indentation;
5722: END IF;
5723:
5724:
5717: END IF;
5718: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5719: IF (l_debug = 'Y') THEN
5720: okc_debug.LOG('16400: Exiting lock_row', 2);
5721: okc_debug.Reset_Indentation;
5722: END IF;
5723:
5724:
5725: EXCEPTION
5725: EXCEPTION
5726: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5727:
5728: IF (l_debug = 'Y') THEN
5729: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5730: okc_debug.Reset_Indentation;
5731: END IF;
5732:
5733: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5726: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5727:
5728: IF (l_debug = 'Y') THEN
5729: okc_debug.LOG('16500: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5730: okc_debug.Reset_Indentation;
5731: END IF;
5732:
5733: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5734: (
5741: );
5742: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5743:
5744: IF (l_debug = 'Y') THEN
5745: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
5743:
5744: IF (l_debug = 'Y') THEN
5745: okc_debug.LOG('16600: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5746: okc_debug.Reset_Indentation;
5747: END IF;
5748:
5749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5750: (
5757: );
5758: WHEN OTHERS THEN
5759:
5760: IF (l_debug = 'Y') THEN
5761: okc_debug.LOG('16700: Exiting lock_row:OTHERS Exception', 2);
5762: okc_debug.Reset_Indentation;
5763: END IF;
5764:
5765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5758: WHEN OTHERS THEN
5759:
5760: IF (l_debug = 'Y') THEN
5761: okc_debug.LOG('16700: Exiting lock_row:OTHERS Exception', 2);
5762: okc_debug.Reset_Indentation;
5763: END IF;
5764:
5765: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5766: (
5799: lc_row_notfound BOOLEAN := FALSE;
5800: BEGIN
5801:
5802: IF (l_debug = 'Y') THEN
5803: okc_debug.Set_Indentation('OKC_CHR_PVT');
5804: okc_debug.LOG('16800: Entered lock_row', 2);
5805: END IF;
5806:
5807: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5800: BEGIN
5801:
5802: IF (l_debug = 'Y') THEN
5803: okc_debug.Set_Indentation('OKC_CHR_PVT');
5804: okc_debug.LOG('16800: Entered lock_row', 2);
5805: END IF;
5806:
5807: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5808: p_init_msg_list,
5815: END IF;
5816: BEGIN
5817:
5818: IF (l_debug = 'Y') THEN
5819: okc_debug.Set_Indentation('OKC_CHR_PVT');
5820: okc_debug.LOG('16900: Entered lock_row', 2);
5821: END IF;
5822:
5823: OPEN lock_csr(p_okc_k_headers_tl_rec);
5816: BEGIN
5817:
5818: IF (l_debug = 'Y') THEN
5819: okc_debug.Set_Indentation('OKC_CHR_PVT');
5820: okc_debug.LOG('16900: Entered lock_row', 2);
5821: END IF;
5822:
5823: OPEN lock_csr(p_okc_k_headers_tl_rec);
5824: FETCH lock_csr INTO l_lock_var;
5824: FETCH lock_csr INTO l_lock_var;
5825: l_row_notfound := lock_csr%NOTFOUND;
5826: CLOSE lock_csr;
5827: IF (l_debug = 'Y') THEN
5828: okc_debug.LOG('17000: Exiting lock_row', 2);
5829: okc_debug.Reset_Indentation;
5830: END IF;
5831:
5832:
5825: l_row_notfound := lock_csr%NOTFOUND;
5826: CLOSE lock_csr;
5827: IF (l_debug = 'Y') THEN
5828: okc_debug.LOG('17000: Exiting lock_row', 2);
5829: okc_debug.Reset_Indentation;
5830: END IF;
5831:
5832:
5833: EXCEPTION
5833: EXCEPTION
5834: WHEN E_Resource_Busy THEN
5835:
5836: IF (l_debug = 'Y') THEN
5837: okc_debug.LOG('17100: Exiting lock_row:E_Resource_Busy Exception', 2);
5838: okc_debug.Reset_Indentation;
5839: END IF;
5840:
5841: IF (lock_csr%ISOPEN) THEN
5834: WHEN E_Resource_Busy THEN
5835:
5836: IF (l_debug = 'Y') THEN
5837: okc_debug.LOG('17100: Exiting lock_row:E_Resource_Busy Exception', 2);
5838: okc_debug.Reset_Indentation;
5839: END IF;
5840:
5841: IF (lock_csr%ISOPEN) THEN
5842: CLOSE lock_csr;
5850: RAISE OKC_API.G_EXCEPTION_ERROR;
5851: END IF;
5852: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5853: IF (l_debug = 'Y') THEN
5854: okc_debug.LOG('17200: Exiting lock_row', 2);
5855: okc_debug.Reset_Indentation;
5856: END IF;
5857:
5858:
5851: END IF;
5852: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5853: IF (l_debug = 'Y') THEN
5854: okc_debug.LOG('17200: Exiting lock_row', 2);
5855: okc_debug.Reset_Indentation;
5856: END IF;
5857:
5858:
5859: EXCEPTION
5859: EXCEPTION
5860: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5861:
5862: IF (l_debug = 'Y') THEN
5863: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5864: okc_debug.Reset_Indentation;
5865: END IF;
5866:
5867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5860: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5861:
5862: IF (l_debug = 'Y') THEN
5863: okc_debug.LOG('17300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5864: okc_debug.Reset_Indentation;
5865: END IF;
5866:
5867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5868: (
5875: );
5876: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5877:
5878: IF (l_debug = 'Y') THEN
5879: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
5877:
5878: IF (l_debug = 'Y') THEN
5879: okc_debug.LOG('17400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5880: okc_debug.Reset_Indentation;
5881: END IF;
5882:
5883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5884: (
5891: );
5892: WHEN OTHERS THEN
5893:
5894: IF (l_debug = 'Y') THEN
5895: okc_debug.LOG('17500: Exiting lock_row:OTHERS Exception', 2);
5896: okc_debug.Reset_Indentation;
5897: END IF;
5898:
5899: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5892: WHEN OTHERS THEN
5893:
5894: IF (l_debug = 'Y') THEN
5895: okc_debug.LOG('17500: Exiting lock_row:OTHERS Exception', 2);
5896: okc_debug.Reset_Indentation;
5897: END IF;
5898:
5899: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5900: (
5925: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5926: BEGIN
5927:
5928: IF (l_debug = 'Y') THEN
5929: okc_debug.Set_Indentation('OKC_CHR_PVT');
5930: okc_debug.LOG('17600: Entered lock_row', 2);
5931: END IF;
5932:
5933: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5926: BEGIN
5927:
5928: IF (l_debug = 'Y') THEN
5929: okc_debug.Set_Indentation('OKC_CHR_PVT');
5930: okc_debug.LOG('17600: Entered lock_row', 2);
5931: END IF;
5932:
5933: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5934: G_PKG_NAME,
5975: RAISE OKC_API.G_EXCEPTION_ERROR;
5976: END IF;
5977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5978: IF (l_debug = 'Y') THEN
5979: okc_debug.LOG('17700: Exiting lock_row', 2);
5980: okc_debug.Reset_Indentation;
5981: END IF;
5982:
5983:
5976: END IF;
5977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
5978: IF (l_debug = 'Y') THEN
5979: okc_debug.LOG('17700: Exiting lock_row', 2);
5980: okc_debug.Reset_Indentation;
5981: END IF;
5982:
5983:
5984: EXCEPTION
5984: EXCEPTION
5985: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5986:
5987: IF (l_debug = 'Y') THEN
5988: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5989: okc_debug.Reset_Indentation;
5990: END IF;
5991:
5992: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5985: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5986:
5987: IF (l_debug = 'Y') THEN
5988: okc_debug.LOG('17800: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
5989: okc_debug.Reset_Indentation;
5990: END IF;
5991:
5992: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5993: (
6000: );
6001: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6002:
6003: IF (l_debug = 'Y') THEN
6004: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
6002:
6003: IF (l_debug = 'Y') THEN
6004: okc_debug.LOG('17900: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6005: okc_debug.Reset_Indentation;
6006: END IF;
6007:
6008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6009: (
6016: );
6017: WHEN OTHERS THEN
6018:
6019: IF (l_debug = 'Y') THEN
6020: okc_debug.LOG('18000: Exiting lock_row:OTHERS Exception', 2);
6021: okc_debug.Reset_Indentation;
6022: END IF;
6023:
6024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6017: WHEN OTHERS THEN
6018:
6019: IF (l_debug = 'Y') THEN
6020: okc_debug.LOG('18000: Exiting lock_row:OTHERS Exception', 2);
6021: okc_debug.Reset_Indentation;
6022: END IF;
6023:
6024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6025: (
6050: i NUMBER := 0;
6051: BEGIN
6052:
6053: IF (l_debug = 'Y') THEN
6054: okc_debug.Set_Indentation('OKC_CHR_PVT');
6055: okc_debug.LOG('18100: Entered lock_row', 2);
6056: END IF;
6057:
6058: OKC_API.init_msg_list(p_init_msg_list);
6051: BEGIN
6052:
6053: IF (l_debug = 'Y') THEN
6054: okc_debug.Set_Indentation('OKC_CHR_PVT');
6055: okc_debug.LOG('18100: Entered lock_row', 2);
6056: END IF;
6057:
6058: OKC_API.init_msg_list(p_init_msg_list);
6059: -- Make sure PL/SQL table has records in it before passing
6081: -- return overall status
6082: x_return_status := l_overall_status;
6083: END IF;
6084: IF (l_debug = 'Y') THEN
6085: okc_debug.LOG('18200: Exiting lock_row', 2);
6086: okc_debug.Reset_Indentation;
6087: END IF;
6088:
6089:
6082: x_return_status := l_overall_status;
6083: END IF;
6084: IF (l_debug = 'Y') THEN
6085: okc_debug.LOG('18200: Exiting lock_row', 2);
6086: okc_debug.Reset_Indentation;
6087: END IF;
6088:
6089:
6090: EXCEPTION
6090: EXCEPTION
6091: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6092:
6093: IF (l_debug = 'Y') THEN
6094: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6095: okc_debug.Reset_Indentation;
6096: END IF;
6097:
6098: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6091: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6092:
6093: IF (l_debug = 'Y') THEN
6094: okc_debug.LOG('18300: Exiting lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6095: okc_debug.Reset_Indentation;
6096: END IF;
6097:
6098: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6099: (
6106: );
6107: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6108:
6109: IF (l_debug = 'Y') THEN
6110: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
6108:
6109: IF (l_debug = 'Y') THEN
6110: okc_debug.LOG('18400: Exiting lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6111: okc_debug.Reset_Indentation;
6112: END IF;
6113:
6114: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6115: (
6122: );
6123: WHEN OTHERS THEN
6124:
6125: IF (l_debug = 'Y') THEN
6126: okc_debug.LOG('18500: Exiting lock_row:OTHERS Exception', 2);
6127: okc_debug.Reset_Indentation;
6128: END IF;
6129:
6130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6123: WHEN OTHERS THEN
6124:
6125: IF (l_debug = 'Y') THEN
6126: okc_debug.LOG('18500: Exiting lock_row:OTHERS Exception', 2);
6127: okc_debug.Reset_Indentation;
6128: END IF;
6129:
6130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6131: (
6172: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6173: BEGIN
6174:
6175: IF (l_debug = 'Y') THEN
6176: okc_debug.Set_Indentation('OKC_CHR_PVT');
6177: okc_debug.LOG('18600: Entered populate_new_record', 2);
6178: END IF;
6179:
6180: x_chr_rec := p_chr_rec;
6173: BEGIN
6174:
6175: IF (l_debug = 'Y') THEN
6176: okc_debug.Set_Indentation('OKC_CHR_PVT');
6177: okc_debug.LOG('18600: Entered populate_new_record', 2);
6178: END IF;
6179:
6180: x_chr_rec := p_chr_rec;
6181: -- Get current database values
6576: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6577: BEGIN
6578:
6579: IF (l_debug = 'Y') THEN
6580: okc_debug.Set_Indentation('OKC_CHR_PVT');
6581: okc_debug.LOG('18700: Entered Set_Attributes', 2);
6582: END IF;
6583:
6584: x_chr_rec := p_chr_rec;
6577: BEGIN
6578:
6579: IF (l_debug = 'Y') THEN
6580: okc_debug.Set_Indentation('OKC_CHR_PVT');
6581: okc_debug.LOG('18700: Entered Set_Attributes', 2);
6582: END IF;
6583:
6584: x_chr_rec := p_chr_rec;
6585: RETURN(l_return_status);
6587: END Set_Attributes;
6588: BEGIN
6589:
6590: IF (l_debug = 'Y') THEN
6591: okc_debug.Set_Indentation('OKC_CHR_PVT');
6592: okc_debug.LOG('18800: Entered update_row', 2);
6593: END IF;
6594:
6595: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6588: BEGIN
6589:
6590: IF (l_debug = 'Y') THEN
6591: okc_debug.Set_Indentation('OKC_CHR_PVT');
6592: okc_debug.LOG('18800: Entered update_row', 2);
6593: END IF;
6594:
6595: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6596: p_init_msg_list,
6721:
6722: x_chr_rec := l_def_chr_rec;
6723: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6724: IF (l_debug = 'Y') THEN
6725: okc_debug.LOG('18900: Exiting update_row', 2);
6726: okc_debug.Reset_Indentation;
6727: END IF;
6728:
6729:
6722: x_chr_rec := l_def_chr_rec;
6723: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6724: IF (l_debug = 'Y') THEN
6725: okc_debug.LOG('18900: Exiting update_row', 2);
6726: okc_debug.Reset_Indentation;
6727: END IF;
6728:
6729:
6730: EXCEPTION
6730: EXCEPTION
6731: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6732:
6733: IF (l_debug = 'Y') THEN
6734: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6735: okc_debug.Reset_Indentation;
6736: END IF;
6737:
6738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6731: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6732:
6733: IF (l_debug = 'Y') THEN
6734: okc_debug.LOG('19000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6735: okc_debug.Reset_Indentation;
6736: END IF;
6737:
6738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6739: (
6746: );
6747: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6748:
6749: IF (l_debug = 'Y') THEN
6750: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
6748:
6749: IF (l_debug = 'Y') THEN
6750: okc_debug.LOG('19100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6751: okc_debug.Reset_Indentation;
6752: END IF;
6753:
6754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6755: (
6762: );
6763: WHEN OTHERS THEN
6764:
6765: IF (l_debug = 'Y') THEN
6766: okc_debug.LOG('19200: Exiting update_row:OTHERS Exception', 2);
6767: okc_debug.Reset_Indentation;
6768: END IF;
6769:
6770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6763: WHEN OTHERS THEN
6764:
6765: IF (l_debug = 'Y') THEN
6766: okc_debug.LOG('19200: Exiting update_row:OTHERS Exception', 2);
6767: okc_debug.Reset_Indentation;
6768: END IF;
6769:
6770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6771: (
6807: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6808: BEGIN
6809:
6810: IF (l_debug = 'Y') THEN
6811: okc_debug.Set_Indentation('OKC_CHR_PVT');
6812: okc_debug.LOG('19300: Entered populate_new_record', 2);
6813: END IF;
6814:
6815: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6808: BEGIN
6809:
6810: IF (l_debug = 'Y') THEN
6811: okc_debug.Set_Indentation('OKC_CHR_PVT');
6812: okc_debug.LOG('19300: Entered populate_new_record', 2);
6813: END IF;
6814:
6815: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6816: -- Get current database values
6895: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6896: BEGIN
6897:
6898: IF (l_debug = 'Y') THEN
6899: okc_debug.Set_Indentation('OKC_CHR_PVT');
6900: okc_debug.LOG('19400: Entered Set_Attributes', 2);
6901: END IF;
6902:
6903: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6896: BEGIN
6897:
6898: IF (l_debug = 'Y') THEN
6899: okc_debug.Set_Indentation('OKC_CHR_PVT');
6900: okc_debug.LOG('19400: Entered Set_Attributes', 2);
6901: END IF;
6902:
6903: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6904: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
6908: END Set_Attributes;
6909: BEGIN
6910:
6911: IF (l_debug = 'Y') THEN
6912: okc_debug.Set_Indentation('OKC_CHR_PVT');
6913: okc_debug.LOG('19500: Entered update_row', 2);
6914: END IF;
6915:
6916: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6909: BEGIN
6910:
6911: IF (l_debug = 'Y') THEN
6912: okc_debug.Set_Indentation('OKC_CHR_PVT');
6913: okc_debug.LOG('19500: Entered update_row', 2);
6914: END IF;
6915:
6916: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6917: p_init_msg_list,
6962:
6963: x_okc_k_headers_tl_rec := l_def_okc_k_headers_tl_rec;
6964: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6965: IF (l_debug = 'Y') THEN
6966: okc_debug.LOG('19600: Exiting update_row', 2);
6967: okc_debug.Reset_Indentation;
6968: END IF;
6969:
6970:
6963: x_okc_k_headers_tl_rec := l_def_okc_k_headers_tl_rec;
6964: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
6965: IF (l_debug = 'Y') THEN
6966: okc_debug.LOG('19600: Exiting update_row', 2);
6967: okc_debug.Reset_Indentation;
6968: END IF;
6969:
6970:
6971: EXCEPTION
6971: EXCEPTION
6972: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6973:
6974: IF (l_debug = 'Y') THEN
6975: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6976: okc_debug.Reset_Indentation;
6977: END IF;
6978:
6979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6972: WHEN OKC_API.G_EXCEPTION_ERROR THEN
6973:
6974: IF (l_debug = 'Y') THEN
6975: okc_debug.LOG('19700: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
6976: okc_debug.Reset_Indentation;
6977: END IF;
6978:
6979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6980: (
6987: );
6988: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6989:
6990: IF (l_debug = 'Y') THEN
6991: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
6989:
6990: IF (l_debug = 'Y') THEN
6991: okc_debug.LOG('19800: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6992: okc_debug.Reset_Indentation;
6993: END IF;
6994:
6995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
6996: (
7003: );
7004: WHEN OTHERS THEN
7005:
7006: IF (l_debug = 'Y') THEN
7007: okc_debug.LOG('19900: Exiting update_row:OTHERS Exception', 2);
7008: okc_debug.Reset_Indentation;
7009: END IF;
7010:
7011: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7004: WHEN OTHERS THEN
7005:
7006: IF (l_debug = 'Y') THEN
7007: okc_debug.LOG('19900: Exiting update_row:OTHERS Exception', 2);
7008: okc_debug.Reset_Indentation;
7009: END IF;
7010:
7011: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7012: (
7050: l_chrv_rec chrv_rec_type := p_chrv_rec;
7051: BEGIN
7052:
7053: IF (l_debug = 'Y') THEN
7054: okc_debug.Set_Indentation('OKC_CHR_PVT');
7055: okc_debug.LOG('20000: Entered fill_who_columns', 2);
7056: END IF;
7057:
7058: l_chrv_rec.LAST_UPDATE_DATE := SYSDATE;
7051: BEGIN
7052:
7053: IF (l_debug = 'Y') THEN
7054: okc_debug.Set_Indentation('OKC_CHR_PVT');
7055: okc_debug.LOG('20000: Entered fill_who_columns', 2);
7056: END IF;
7057:
7058: l_chrv_rec.LAST_UPDATE_DATE := SYSDATE;
7059: l_chrv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
7073: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7074: BEGIN
7075:
7076: IF (l_debug = 'Y') THEN
7077: okc_debug.Set_Indentation('OKC_CHR_PVT');
7078: okc_debug.LOG('20100: Entered populate_new_record', 2);
7079: END IF;
7080:
7081: x_chrv_rec := p_chrv_rec;
7074: BEGIN
7075:
7076: IF (l_debug = 'Y') THEN
7077: okc_debug.Set_Indentation('OKC_CHR_PVT');
7078: okc_debug.LOG('20100: Entered populate_new_record', 2);
7079: END IF;
7080:
7081: x_chrv_rec := p_chrv_rec;
7082: -- Get current database values
7511: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7512: BEGIN
7513:
7514: IF (l_debug = 'Y') THEN
7515: okc_debug.Set_Indentation('OKC_CHR_PVT');
7516: okc_debug.LOG('20200: Entered Set_Attributes', 2);
7517: END IF;
7518:
7519: x_chrv_rec := p_chrv_rec;
7512: BEGIN
7513:
7514: IF (l_debug = 'Y') THEN
7515: okc_debug.Set_Indentation('OKC_CHR_PVT');
7516: okc_debug.LOG('20200: Entered Set_Attributes', 2);
7517: END IF;
7518:
7519: x_chrv_rec := p_chrv_rec;
7520: x_chrv_rec.OBJECT_VERSION_NUMBER := NVL(x_chrv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
7541: END Set_Attributes;
7542: BEGIN
7543:
7544: IF (l_debug = 'Y') THEN
7545: okc_debug.Set_Indentation('OKC_CHR_PVT');
7546: okc_debug.LOG('20300: Entered update_row', 2);
7547: END IF;
7548:
7549: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7542: BEGIN
7543:
7544: IF (l_debug = 'Y') THEN
7545: okc_debug.Set_Indentation('OKC_CHR_PVT');
7546: okc_debug.LOG('20300: Entered update_row', 2);
7547: END IF;
7548:
7549: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7550: G_PKG_NAME,
7636: migrate(lx_chr_rec, l_def_chrv_rec);
7637: x_chrv_rec := l_def_chrv_rec;
7638: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7639: IF (l_debug = 'Y') THEN
7640: okc_debug.LOG('20400: Exiting update_row', 2);
7641: okc_debug.Reset_Indentation;
7642: END IF;
7643:
7644:
7637: x_chrv_rec := l_def_chrv_rec;
7638: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7639: IF (l_debug = 'Y') THEN
7640: okc_debug.LOG('20400: Exiting update_row', 2);
7641: okc_debug.Reset_Indentation;
7642: END IF;
7643:
7644:
7645: EXCEPTION
7645: EXCEPTION
7646: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7647:
7648: IF (l_debug = 'Y') THEN
7649: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7650: okc_debug.Reset_Indentation;
7651: END IF;
7652:
7653: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7646: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7647:
7648: IF (l_debug = 'Y') THEN
7649: okc_debug.LOG('20500: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7650: okc_debug.Reset_Indentation;
7651: END IF;
7652:
7653: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7654: (
7661: );
7662: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7663:
7664: IF (l_debug = 'Y') THEN
7665: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
7663:
7664: IF (l_debug = 'Y') THEN
7665: okc_debug.LOG('20600: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7666: okc_debug.Reset_Indentation;
7667: END IF;
7668:
7669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7670: (
7677: );
7678: WHEN OTHERS THEN
7679:
7680: IF (l_debug = 'Y') THEN
7681: okc_debug.LOG('20700: Exiting update_row:OTHERS Exception', 2);
7682: okc_debug.Reset_Indentation;
7683: END IF;
7684:
7685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7678: WHEN OTHERS THEN
7679:
7680: IF (l_debug = 'Y') THEN
7681: okc_debug.LOG('20700: Exiting update_row:OTHERS Exception', 2);
7682: okc_debug.Reset_Indentation;
7683: END IF;
7684:
7685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7686: (
7713: i NUMBER := 0;
7714: BEGIN
7715:
7716: IF (l_debug = 'Y') THEN
7717: okc_debug.Set_Indentation('OKC_CHR_PVT');
7718: okc_debug.LOG('20800: Entered update_row', 2);
7719: END IF;
7720:
7721: OKC_API.init_msg_list(p_init_msg_list);
7714: BEGIN
7715:
7716: IF (l_debug = 'Y') THEN
7717: okc_debug.Set_Indentation('OKC_CHR_PVT');
7718: okc_debug.LOG('20800: Entered update_row', 2);
7719: END IF;
7720:
7721: OKC_API.init_msg_list(p_init_msg_list);
7722: -- Make sure PL/SQL table has records in it before passing
7746: -- return overall status
7747: x_return_status := l_overall_status;
7748: END IF;
7749: IF (l_debug = 'Y') THEN
7750: okc_debug.LOG('20900: Exiting update_row', 2);
7751: okc_debug.Reset_Indentation;
7752: END IF;
7753:
7754:
7747: x_return_status := l_overall_status;
7748: END IF;
7749: IF (l_debug = 'Y') THEN
7750: okc_debug.LOG('20900: Exiting update_row', 2);
7751: okc_debug.Reset_Indentation;
7752: END IF;
7753:
7754:
7755: EXCEPTION
7755: EXCEPTION
7756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7757:
7758: IF (l_debug = 'Y') THEN
7759: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7760: okc_debug.Reset_Indentation;
7761: END IF;
7762:
7763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7757:
7758: IF (l_debug = 'Y') THEN
7759: okc_debug.LOG('21000: Exiting update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7760: okc_debug.Reset_Indentation;
7761: END IF;
7762:
7763: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7764: (
7771: );
7772: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7773:
7774: IF (l_debug = 'Y') THEN
7775: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
7773:
7774: IF (l_debug = 'Y') THEN
7775: okc_debug.LOG('21100: Exiting update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7776: okc_debug.Reset_Indentation;
7777: END IF;
7778:
7779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7780: (
7787: );
7788: WHEN OTHERS THEN
7789:
7790: IF (l_debug = 'Y') THEN
7791: okc_debug.LOG('21200: Exiting update_row:OTHERS Exception', 2);
7792: okc_debug.Reset_Indentation;
7793: END IF;
7794:
7795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7788: WHEN OTHERS THEN
7789:
7790: IF (l_debug = 'Y') THEN
7791: okc_debug.LOG('21200: Exiting update_row:OTHERS Exception', 2);
7792: okc_debug.Reset_Indentation;
7793: END IF;
7794:
7795: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7796: (
7824: l_row_notfound BOOLEAN := TRUE;
7825: BEGIN
7826:
7827: IF (l_debug = 'Y') THEN
7828: okc_debug.Set_Indentation('OKC_CHR_PVT');
7829: okc_debug.LOG('21300: Entered delete_row', 2);
7830: END IF;
7831:
7832: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7825: BEGIN
7826:
7827: IF (l_debug = 'Y') THEN
7828: okc_debug.Set_Indentation('OKC_CHR_PVT');
7829: okc_debug.LOG('21300: Entered delete_row', 2);
7830: END IF;
7831:
7832: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7833: p_init_msg_list,
7842: WHERE ID = l_chr_rec.id;
7843:
7844: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7845: IF (l_debug = 'Y') THEN
7846: okc_debug.LOG('21400: Exiting delete_row', 2);
7847: okc_debug.Reset_Indentation;
7848: END IF;
7849:
7850:
7843:
7844: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7845: IF (l_debug = 'Y') THEN
7846: okc_debug.LOG('21400: Exiting delete_row', 2);
7847: okc_debug.Reset_Indentation;
7848: END IF;
7849:
7850:
7851: EXCEPTION
7851: EXCEPTION
7852: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7853:
7854: IF (l_debug = 'Y') THEN
7855: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7856: okc_debug.Reset_Indentation;
7857: END IF;
7858:
7859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7852: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7853:
7854: IF (l_debug = 'Y') THEN
7855: okc_debug.LOG('21500: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7856: okc_debug.Reset_Indentation;
7857: END IF;
7858:
7859: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7860: (
7867: );
7868: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7869:
7870: IF (l_debug = 'Y') THEN
7871: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
7869:
7870: IF (l_debug = 'Y') THEN
7871: okc_debug.LOG('21600: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7872: okc_debug.Reset_Indentation;
7873: END IF;
7874:
7875: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7876: (
7883: );
7884: WHEN OTHERS THEN
7885:
7886: IF (l_debug = 'Y') THEN
7887: okc_debug.LOG('21700: Exiting delete_row:OTHERS Exception', 2);
7888: okc_debug.Reset_Indentation;
7889: END IF;
7890:
7891: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7884: WHEN OTHERS THEN
7885:
7886: IF (l_debug = 'Y') THEN
7887: okc_debug.LOG('21700: Exiting delete_row:OTHERS Exception', 2);
7888: okc_debug.Reset_Indentation;
7889: END IF;
7890:
7891: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7892: (
7924: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7925: BEGIN
7926:
7927: IF (l_debug = 'Y') THEN
7928: okc_debug.Set_Indentation('OKC_CHR_PVT');
7929: okc_debug.LOG('21800: Entered Set_Attributes', 2);
7930: END IF;
7931:
7932: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
7925: BEGIN
7926:
7927: IF (l_debug = 'Y') THEN
7928: okc_debug.Set_Indentation('OKC_CHR_PVT');
7929: okc_debug.LOG('21800: Entered Set_Attributes', 2);
7930: END IF;
7931:
7932: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
7933: x_okc_k_headers_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
7936: END Set_Attributes;
7937: BEGIN
7938:
7939: IF (l_debug = 'Y') THEN
7940: okc_debug.Set_Indentation('OKC_CHR_PVT');
7941: okc_debug.LOG('21900: Entered delete_row', 2);
7942: END IF;
7943:
7944: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7937: BEGIN
7938:
7939: IF (l_debug = 'Y') THEN
7940: okc_debug.Set_Indentation('OKC_CHR_PVT');
7941: okc_debug.LOG('21900: Entered delete_row', 2);
7942: END IF;
7943:
7944: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7945: p_init_msg_list,
7964: WHERE ID = l_okc_k_headers_tl_rec.id;
7965:
7966: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7967: IF (l_debug = 'Y') THEN
7968: okc_debug.LOG('22000: Exiting delete_row', 2);
7969: okc_debug.Reset_Indentation;
7970: END IF;
7971:
7972:
7965:
7966: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
7967: IF (l_debug = 'Y') THEN
7968: okc_debug.LOG('22000: Exiting delete_row', 2);
7969: okc_debug.Reset_Indentation;
7970: END IF;
7971:
7972:
7973: EXCEPTION
7973: EXCEPTION
7974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7975:
7976: IF (l_debug = 'Y') THEN
7977: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7978: okc_debug.Reset_Indentation;
7979: END IF;
7980:
7981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
7975:
7976: IF (l_debug = 'Y') THEN
7977: okc_debug.LOG('22100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
7978: okc_debug.Reset_Indentation;
7979: END IF;
7980:
7981: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7982: (
7989: );
7990: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7991:
7992: IF (l_debug = 'Y') THEN
7993: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
7991:
7992: IF (l_debug = 'Y') THEN
7993: okc_debug.LOG('22200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7994: okc_debug.Reset_Indentation;
7995: END IF;
7996:
7997: x_return_status := OKC_API.HANDLE_EXCEPTIONS
7998: (
8005: );
8006: WHEN OTHERS THEN
8007:
8008: IF (l_debug = 'Y') THEN
8009: okc_debug.LOG('22300: Exiting delete_row:OTHERS Exception', 2);
8010: okc_debug.Reset_Indentation;
8011: END IF;
8012:
8013: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8006: WHEN OTHERS THEN
8007:
8008: IF (l_debug = 'Y') THEN
8009: okc_debug.LOG('22300: Exiting delete_row:OTHERS Exception', 2);
8010: okc_debug.Reset_Indentation;
8011: END IF;
8012:
8013: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8014: (
8040: l_chr_rec chr_rec_type;
8041: BEGIN
8042:
8043: IF (l_debug = 'Y') THEN
8044: okc_debug.Set_Indentation('OKC_CHR_PVT');
8045: okc_debug.LOG('22400: Entered delete_row', 2);
8046: END IF;
8047:
8048: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8041: BEGIN
8042:
8043: IF (l_debug = 'Y') THEN
8044: okc_debug.Set_Indentation('OKC_CHR_PVT');
8045: okc_debug.LOG('22400: Entered delete_row', 2);
8046: END IF;
8047:
8048: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8049: G_PKG_NAME,
8090: RAISE OKC_API.G_EXCEPTION_ERROR;
8091: END IF;
8092: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8093: IF (l_debug = 'Y') THEN
8094: okc_debug.LOG('22500: Exiting delete_row', 2);
8095: okc_debug.Reset_Indentation;
8096: END IF;
8097:
8098:
8091: END IF;
8092: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
8093: IF (l_debug = 'Y') THEN
8094: okc_debug.LOG('22500: Exiting delete_row', 2);
8095: okc_debug.Reset_Indentation;
8096: END IF;
8097:
8098:
8099: EXCEPTION
8099: EXCEPTION
8100: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8101:
8102: IF (l_debug = 'Y') THEN
8103: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8104: okc_debug.Reset_Indentation;
8105: END IF;
8106:
8107: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8100: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8101:
8102: IF (l_debug = 'Y') THEN
8103: okc_debug.LOG('22600: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8104: okc_debug.Reset_Indentation;
8105: END IF;
8106:
8107: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8108: (
8115: );
8116: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8117:
8118: IF (l_debug = 'Y') THEN
8119: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
8117:
8118: IF (l_debug = 'Y') THEN
8119: okc_debug.LOG('22700: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8120: okc_debug.Reset_Indentation;
8121: END IF;
8122:
8123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8124: (
8131: );
8132: WHEN OTHERS THEN
8133:
8134: IF (l_debug = 'Y') THEN
8135: okc_debug.LOG('22800: Exiting delete_row:OTHERS Exception', 2);
8136: okc_debug.Reset_Indentation;
8137: END IF;
8138:
8139: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8132: WHEN OTHERS THEN
8133:
8134: IF (l_debug = 'Y') THEN
8135: okc_debug.LOG('22800: Exiting delete_row:OTHERS Exception', 2);
8136: okc_debug.Reset_Indentation;
8137: END IF;
8138:
8139: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8140: (
8170: WHERE chr_id = p_chrv_tbl(i).id;
8171: BEGIN
8172:
8173: IF (l_debug = 'Y') THEN
8174: okc_debug.Set_Indentation('OKC_CHR_PVT');
8175: okc_debug.LOG('22900: Entered delete_row', 2);
8176: END IF;
8177:
8178: OKC_API.init_msg_list(p_init_msg_list);
8171: BEGIN
8172:
8173: IF (l_debug = 'Y') THEN
8174: okc_debug.Set_Indentation('OKC_CHR_PVT');
8175: okc_debug.LOG('22900: Entered delete_row', 2);
8176: END IF;
8177:
8178: OKC_API.init_msg_list(p_init_msg_list);
8179: -- Make sure PL/SQL table has records in it before passing
8223: -- return overall status
8224: x_return_status := l_overall_status;
8225: END IF;
8226: IF (l_debug = 'Y') THEN
8227: okc_debug.LOG('23000: Exiting delete_row', 2);
8228: okc_debug.Reset_Indentation;
8229: END IF;
8230:
8231:
8224: x_return_status := l_overall_status;
8225: END IF;
8226: IF (l_debug = 'Y') THEN
8227: okc_debug.LOG('23000: Exiting delete_row', 2);
8228: okc_debug.Reset_Indentation;
8229: END IF;
8230:
8231:
8232: EXCEPTION
8232: EXCEPTION
8233: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8234:
8235: IF (l_debug = 'Y') THEN
8236: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8237: okc_debug.Reset_Indentation;
8238: END IF;
8239:
8240: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8233: WHEN OKC_API.G_EXCEPTION_ERROR THEN
8234:
8235: IF (l_debug = 'Y') THEN
8236: okc_debug.LOG('23100: Exiting delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
8237: okc_debug.Reset_Indentation;
8238: END IF;
8239:
8240: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8241: (
8248: );
8249: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
8250:
8251: IF (l_debug = 'Y') THEN
8252: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_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_UNEXPECTED_ERROR THEN
8250:
8251: IF (l_debug = 'Y') THEN
8252: okc_debug.LOG('23200: Exiting delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8253: okc_debug.Reset_Indentation;
8254: END IF;
8255:
8256: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8257: (
8264: );
8265: WHEN OTHERS THEN
8266:
8267: IF (l_debug = 'Y') THEN
8268: okc_debug.LOG('23300: Exiting delete_row:OTHERS Exception', 2);
8269: okc_debug.Reset_Indentation;
8270: END IF;
8271:
8272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8265: WHEN OTHERS THEN
8266:
8267: IF (l_debug = 'Y') THEN
8268: okc_debug.LOG('23300: Exiting delete_row:OTHERS Exception', 2);
8269: okc_debug.Reset_Indentation;
8270: END IF;
8271:
8272: x_return_status := OKC_API.HANDLE_EXCEPTIONS
8273: (
8407: BEGIN
8408: --Initializing return status
8409: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8410: IF (l_debug = 'Y') THEN
8411: okc_debug.Set_Indentation('OKC_CHR_PVT');
8412: okc_debug.LOG('23400: Entered INSERT_ROW_UPG', 2);
8413: END IF;
8414:
8415:
8408: --Initializing return status
8409: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8410: IF (l_debug = 'Y') THEN
8411: okc_debug.Set_Indentation('OKC_CHR_PVT');
8412: okc_debug.LOG('23400: Entered INSERT_ROW_UPG', 2);
8413: END IF;
8414:
8415:
8416: -- pkoganti 08/26/2000
8827: in_last_update_login(i)
8828: );
8829:
8830: IF (l_debug = 'Y') THEN
8831: okc_debug.LOG('23500: Exiting INSERT_ROW_UPG', 2);
8832: okc_debug.Reset_Indentation;
8833: END IF;
8834:
8835:
8828: );
8829:
8830: IF (l_debug = 'Y') THEN
8831: okc_debug.LOG('23500: Exiting INSERT_ROW_UPG', 2);
8832: okc_debug.Reset_Indentation;
8833: END IF;
8834:
8835:
8836: EXCEPTION
8836: EXCEPTION
8837: WHEN OTHERS THEN
8838:
8839: IF (l_debug = 'Y') THEN
8840: okc_debug.LOG('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
8841: okc_debug.Reset_Indentation;
8842: END IF;
8843: -- Store SQL error message on message stack
8844: OKC_API.SET_MESSAGE(
8837: WHEN OTHERS THEN
8838:
8839: IF (l_debug = 'Y') THEN
8840: okc_debug.LOG('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
8841: okc_debug.Reset_Indentation;
8842: END IF;
8843: -- Store SQL error message on message stack
8844: OKC_API.SET_MESSAGE(
8845: p_app_name => G_APP_NAME,
8868:
8869: BEGIN
8870:
8871: IF (l_debug = 'Y') THEN
8872: okc_debug.Set_Indentation('OKC_CHR_PVT');
8873: okc_debug.LOG('23700: Entered create_version', 2);
8874: END IF;
8875:
8876: INSERT INTO okc_k_headers_all_bh --mmadhavi changed to _ALL for MOAC
8869: BEGIN
8870:
8871: IF (l_debug = 'Y') THEN
8872: okc_debug.Set_Indentation('OKC_CHR_PVT');
8873: okc_debug.LOG('23700: Entered create_version', 2);
8874: END IF;
8875:
8876: INSERT INTO okc_k_headers_all_bh --mmadhavi changed to _ALL for MOAC
8877: (
9130: WHERE id = p_chr_id;
9131:
9132: RETURN l_return_status;
9133: IF (l_debug = 'Y') THEN
9134: okc_debug.LOG('23800: Exiting create_version', 2);
9135: okc_debug.Reset_Indentation;
9136: END IF;
9137:
9138:
9131:
9132: RETURN l_return_status;
9133: IF (l_debug = 'Y') THEN
9134: okc_debug.LOG('23800: Exiting create_version', 2);
9135: okc_debug.Reset_Indentation;
9136: END IF;
9137:
9138:
9139: EXCEPTION
9140: -- other appropriate handlers
9141: WHEN OTHERS THEN
9142:
9143: IF (l_debug = 'Y') THEN
9144: okc_debug.LOG('23900: Exiting create_version:OTHERS Exception', 2);
9145: okc_debug.Reset_Indentation;
9146: END IF;
9147:
9148: -- store SQL error message on message stack
9141: WHEN OTHERS THEN
9142:
9143: IF (l_debug = 'Y') THEN
9144: okc_debug.LOG('23900: Exiting create_version:OTHERS Exception', 2);
9145: okc_debug.Reset_Indentation;
9146: END IF;
9147:
9148: -- store SQL error message on message stack
9149: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
9173:
9174: BEGIN
9175:
9176: IF (l_debug = 'Y') THEN
9177: okc_debug.Set_Indentation('OKC_CHR_PVT');
9178: okc_debug.LOG('24000: Entered restore_version', 2);
9179: END IF;
9180:
9181: INSERT INTO okc_k_headers_tl
9174: BEGIN
9175:
9176: IF (l_debug = 'Y') THEN
9177: okc_debug.Set_Indentation('OKC_CHR_PVT');
9178: okc_debug.LOG('24000: Entered restore_version', 2);
9179: END IF;
9180:
9181: INSERT INTO okc_k_headers_tl
9182: (
9432: AND major_version = p_major_version;
9433:
9434: RETURN l_return_status;
9435: IF (l_debug = 'Y') THEN
9436: okc_debug.LOG('24100: Exiting restore_version', 2);
9437: okc_debug.Reset_Indentation;
9438: END IF;
9439:
9440:
9433:
9434: RETURN l_return_status;
9435: IF (l_debug = 'Y') THEN
9436: okc_debug.LOG('24100: Exiting restore_version', 2);
9437: okc_debug.Reset_Indentation;
9438: END IF;
9439:
9440:
9441: EXCEPTION
9442: -- other appropriate handlers
9443: WHEN OTHERS THEN
9444:
9445: IF (l_debug = 'Y') THEN
9446: okc_debug.LOG('24200: Exiting restore_version:OTHERS Exception', 2);
9447: okc_debug.Reset_Indentation;
9448: END IF;
9449:
9450: -- store SQL error message on message stack
9443: WHEN OTHERS THEN
9444:
9445: IF (l_debug = 'Y') THEN
9446: okc_debug.LOG('24200: Exiting restore_version:OTHERS Exception', 2);
9447: okc_debug.Reset_Indentation;
9448: END IF;
9449:
9450: -- store SQL error message on message stack
9451: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,