475:
476: BEGIN
477:
478: IF (l_debug = 'Y') THEN
479: okc_debug.Set_Indentation('OKS_BRL_PVT');
480: okc_debug.log('500: Entered validate_credit_option', 2);
481: END IF;
482:
483: x_return_status := OKC_API.G_RET_STS_SUCCESS;
476: BEGIN
477:
478: IF (l_debug = 'Y') THEN
479: okc_debug.Set_Indentation('OKS_BRL_PVT');
480: okc_debug.log('500: Entered validate_credit_option', 2);
481: END IF;
482:
483: x_return_status := OKC_API.G_RET_STS_SUCCESS;
484: IF (p_credit_option = OKC_API.G_MISS_CHAR OR
512: -- notify caller of an error
513: x_return_status := OKC_API.G_RET_STS_ERROR;
514: End If;
515: IF (l_debug = 'Y') THEN
516: okc_debug.log('600: Exiting validate_credit_option', 2);
517: okc_debug.Reset_Indentation;
518: END IF;
519: END IF;
520: EXCEPTION
513: x_return_status := OKC_API.G_RET_STS_ERROR;
514: End If;
515: IF (l_debug = 'Y') THEN
516: okc_debug.log('600: Exiting validate_credit_option', 2);
517: okc_debug.Reset_Indentation;
518: END IF;
519: END IF;
520: EXCEPTION
521: when G_EXCEPTION_HALT_VALIDATION then
520: EXCEPTION
521: when G_EXCEPTION_HALT_VALIDATION then
522:
523: IF (l_debug = 'Y') THEN
524: okc_debug.log('1100: Exiting validate_credit_option:G_EXCEPTION_HALT_VALIDATION Exception', 2);
525: okc_debug.Reset_Indentation;
526: END IF;
527:
528: -- no processing necessary; validation can continue with next column
521: when G_EXCEPTION_HALT_VALIDATION then
522:
523: IF (l_debug = 'Y') THEN
524: okc_debug.log('1100: Exiting validate_credit_option:G_EXCEPTION_HALT_VALIDATION Exception', 2);
525: okc_debug.Reset_Indentation;
526: END IF;
527:
528: -- no processing necessary; validation can continue with next column
529: null;
528: -- no processing necessary; validation can continue with next column
529: null;
530:
531: IF (l_debug = 'Y') THEN
532: okc_debug.log('700: Exiting validate_credit_option:G_EXCEPTION_HALT_VALIDATION Exception', 2);
533: okc_debug.Reset_Indentation;
534: END IF;
535:
536: -- no processing necessary; validation can continue with next column
529: null;
530:
531: IF (l_debug = 'Y') THEN
532: okc_debug.log('700: Exiting validate_credit_option:G_EXCEPTION_HALT_VALIDATION Exception', 2);
533: okc_debug.Reset_Indentation;
534: END IF;
535:
536: -- no processing necessary; validation can continue with next column
537: null;
538:
539: when OTHERS then
540:
541: IF (l_debug = 'Y') THEN
542: okc_debug.log('800: Exiting validate_credit_option:OTHERS Exception', 2);
543: okc_debug.Reset_Indentation;
544: END IF;
545:
546: -- store SQL error message on message stack
539: when OTHERS then
540:
541: IF (l_debug = 'Y') THEN
542: okc_debug.log('800: Exiting validate_credit_option:OTHERS Exception', 2);
543: okc_debug.Reset_Indentation;
544: END IF;
545:
546: -- store SQL error message on message stack
547: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
591:
592: BEGIN
593:
594: IF (l_debug = 'Y') THEN
595: okc_debug.Set_Indentation('OKS_BRL_PVT');
596: okc_debug.log('500: Entered validate_termination_reason_code', 2);
597: END IF;
598:
599: x_return_status := OKC_API.G_RET_STS_SUCCESS;
592: BEGIN
593:
594: IF (l_debug = 'Y') THEN
595: okc_debug.Set_Indentation('OKS_BRL_PVT');
596: okc_debug.log('500: Entered validate_termination_reason_code', 2);
597: END IF;
598:
599: x_return_status := OKC_API.G_RET_STS_SUCCESS;
600: IF (p_termination_reason_code = OKC_API.G_MISS_CHAR OR
628: -- notify caller of an error
629: x_return_status := OKC_API.G_RET_STS_ERROR;
630: End If;
631: IF (l_debug = 'Y') THEN
632: okc_debug.log('600: Exiting validate_termination_reason_code', 2);
633: okc_debug.Reset_Indentation;
634: END IF;
635: END IF;
636: EXCEPTION
629: x_return_status := OKC_API.G_RET_STS_ERROR;
630: End If;
631: IF (l_debug = 'Y') THEN
632: okc_debug.log('600: Exiting validate_termination_reason_code', 2);
633: okc_debug.Reset_Indentation;
634: END IF;
635: END IF;
636: EXCEPTION
637: when G_EXCEPTION_HALT_VALIDATION then
636: EXCEPTION
637: when G_EXCEPTION_HALT_VALIDATION then
638:
639: IF (l_debug = 'Y') THEN
640: okc_debug.log('1100: Exiting validate_termination_reason_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
641: okc_debug.Reset_Indentation;
642: END IF;
643:
644: -- no processing necessary; validation can continue with next column
637: when G_EXCEPTION_HALT_VALIDATION then
638:
639: IF (l_debug = 'Y') THEN
640: okc_debug.log('1100: Exiting validate_termination_reason_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
641: okc_debug.Reset_Indentation;
642: END IF;
643:
644: -- no processing necessary; validation can continue with next column
645: null;
644: -- no processing necessary; validation can continue with next column
645: null;
646:
647: IF (l_debug = 'Y') THEN
648: okc_debug.log('700: Exiting validate_termination_reason_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
649: okc_debug.Reset_Indentation;
650: END IF;
651:
652: -- no processing necessary; validation can continue with next column
645: null;
646:
647: IF (l_debug = 'Y') THEN
648: okc_debug.log('700: Exiting validate_termination_reason_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
649: okc_debug.Reset_Indentation;
650: END IF;
651:
652: -- no processing necessary; validation can continue with next column
653: null;
654:
655: when OTHERS then
656:
657: IF (l_debug = 'Y') THEN
658: okc_debug.log('800: Exiting validate_termination_reason_code:OTHERS Exception', 2);
659: okc_debug.Reset_Indentation;
660: END IF;
661:
662: -- store SQL error message on message stack
655: when OTHERS then
656:
657: IF (l_debug = 'Y') THEN
658: okc_debug.log('800: Exiting validate_termination_reason_code:OTHERS Exception', 2);
659: okc_debug.Reset_Indentation;
660: END IF;
661:
662: -- store SQL error message on message stack
663: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
709:
710: BEGIN
711:
712: IF (l_debug = 'Y') THEN
713: okc_debug.Set_Indentation('OKS_BRL_PVT');
714: okc_debug.log('500: Entered validate_transfer_option_code', 2);
715: END IF;
716:
717: x_return_status := OKC_API.G_RET_STS_SUCCESS;
710: BEGIN
711:
712: IF (l_debug = 'Y') THEN
713: okc_debug.Set_Indentation('OKS_BRL_PVT');
714: okc_debug.log('500: Entered validate_transfer_option_code', 2);
715: END IF;
716:
717: x_return_status := OKC_API.G_RET_STS_SUCCESS;
718: IF (p_transfer_option_code = OKC_API.G_MISS_CHAR OR
746: -- notify caller of an error
747: x_return_status := OKC_API.G_RET_STS_ERROR;
748: End If;
749: IF (l_debug = 'Y') THEN
750: okc_debug.log('600: Exiting validate_transfer_option_code', 2);
751: okc_debug.Reset_Indentation;
752: END IF;
753: END IF;
754: EXCEPTION
747: x_return_status := OKC_API.G_RET_STS_ERROR;
748: End If;
749: IF (l_debug = 'Y') THEN
750: okc_debug.log('600: Exiting validate_transfer_option_code', 2);
751: okc_debug.Reset_Indentation;
752: END IF;
753: END IF;
754: EXCEPTION
755: when G_EXCEPTION_HALT_VALIDATION then
754: EXCEPTION
755: when G_EXCEPTION_HALT_VALIDATION then
756:
757: IF (l_debug = 'Y') THEN
758: okc_debug.log('1100: Exiting validate_transfer_option_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
759: okc_debug.Reset_Indentation;
760: END IF;
761:
762: -- no processing necessary; validation can continue with next column
755: when G_EXCEPTION_HALT_VALIDATION then
756:
757: IF (l_debug = 'Y') THEN
758: okc_debug.log('1100: Exiting validate_transfer_option_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
759: okc_debug.Reset_Indentation;
760: END IF;
761:
762: -- no processing necessary; validation can continue with next column
763: null;
762: -- no processing necessary; validation can continue with next column
763: null;
764:
765: IF (l_debug = 'Y') THEN
766: okc_debug.log('700: Exiting validate_transfer_option_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
767: okc_debug.Reset_Indentation;
768: END IF;
769:
770: -- no processing necessary; validation can continue with next column
763: null;
764:
765: IF (l_debug = 'Y') THEN
766: okc_debug.log('700: Exiting validate_transfer_option_code:G_EXCEPTION_HALT_VALIDATION Exception', 2);
767: okc_debug.Reset_Indentation;
768: END IF;
769:
770: -- no processing necessary; validation can continue with next column
771: null;
772:
773: when OTHERS then
774:
775: IF (l_debug = 'Y') THEN
776: okc_debug.log('800: Exiting validate_transfer_option_code:OTHERS Exception', 2);
777: okc_debug.Reset_Indentation;
778: END IF;
779:
780: -- store SQL error message on message stack
773: when OTHERS then
774:
775: IF (l_debug = 'Y') THEN
776: okc_debug.log('800: Exiting validate_transfer_option_code:OTHERS Exception', 2);
777: okc_debug.Reset_Indentation;
778: END IF;
779:
780: -- store SQL error message on message stack
781: OKC_API.SET_MESSAGE(p_app_name => g_app_name,