[Home] [Help]
543: p_tcnv_rec IN tcnv_rec_type
544: ) RETURN tcnv_rec_type IS
545: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
546: BEGIN
547: IF (l_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
548: l_tcnv_rec.object_version_number := NULL;
549: END IF;
550: IF (l_tcnv_rec.rbr_code = Okc_Api.G_MISS_CHAR) THEN
551: l_tcnv_rec.rbr_code := NULL;
546: BEGIN
547: IF (l_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
548: l_tcnv_rec.object_version_number := NULL;
549: END IF;
550: IF (l_tcnv_rec.rbr_code = Okc_Api.G_MISS_CHAR) THEN
551: l_tcnv_rec.rbr_code := NULL;
552: END IF;
553: IF (l_tcnv_rec.rpy_code = Okc_Api.G_MISS_CHAR) THEN
554: l_tcnv_rec.rpy_code := NULL;
549: END IF;
550: IF (l_tcnv_rec.rbr_code = Okc_Api.G_MISS_CHAR) THEN
551: l_tcnv_rec.rbr_code := NULL;
552: END IF;
553: IF (l_tcnv_rec.rpy_code = Okc_Api.G_MISS_CHAR) THEN
554: l_tcnv_rec.rpy_code := NULL;
555: END IF;
556: IF (l_tcnv_rec.rvn_code = Okc_Api.G_MISS_CHAR) THEN
557: l_tcnv_rec.rvn_code := NULL;
552: END IF;
553: IF (l_tcnv_rec.rpy_code = Okc_Api.G_MISS_CHAR) THEN
554: l_tcnv_rec.rpy_code := NULL;
555: END IF;
556: IF (l_tcnv_rec.rvn_code = Okc_Api.G_MISS_CHAR) THEN
557: l_tcnv_rec.rvn_code := NULL;
558: END IF;
559: IF (l_tcnv_rec.trn_code = Okc_Api.G_MISS_CHAR) THEN
560: l_tcnv_rec.trn_code := NULL;
555: END IF;
556: IF (l_tcnv_rec.rvn_code = Okc_Api.G_MISS_CHAR) THEN
557: l_tcnv_rec.rvn_code := NULL;
558: END IF;
559: IF (l_tcnv_rec.trn_code = Okc_Api.G_MISS_CHAR) THEN
560: l_tcnv_rec.trn_code := NULL;
561: END IF;
562: IF (l_tcnv_rec.khr_id_new = Okc_Api.G_MISS_NUM) THEN
563: l_tcnv_rec.khr_id_new := NULL;
558: END IF;
559: IF (l_tcnv_rec.trn_code = Okc_Api.G_MISS_CHAR) THEN
560: l_tcnv_rec.trn_code := NULL;
561: END IF;
562: IF (l_tcnv_rec.khr_id_new = Okc_Api.G_MISS_NUM) THEN
563: l_tcnv_rec.khr_id_new := NULL;
564: END IF;
565: IF (l_tcnv_rec.pvn_id = Okc_Api.G_MISS_NUM) THEN
566: l_tcnv_rec.pvn_id := NULL;
561: END IF;
562: IF (l_tcnv_rec.khr_id_new = Okc_Api.G_MISS_NUM) THEN
563: l_tcnv_rec.khr_id_new := NULL;
564: END IF;
565: IF (l_tcnv_rec.pvn_id = Okc_Api.G_MISS_NUM) THEN
566: l_tcnv_rec.pvn_id := NULL;
567: END IF;
568: IF (l_tcnv_rec.pdt_id = Okc_Api.G_MISS_NUM) THEN
569: l_tcnv_rec.pdt_id := NULL;
564: END IF;
565: IF (l_tcnv_rec.pvn_id = Okc_Api.G_MISS_NUM) THEN
566: l_tcnv_rec.pvn_id := NULL;
567: END IF;
568: IF (l_tcnv_rec.pdt_id = Okc_Api.G_MISS_NUM) THEN
569: l_tcnv_rec.pdt_id := NULL;
570: END IF;
571: IF (l_tcnv_rec.qte_id = Okc_Api.G_MISS_NUM) THEN
572: l_tcnv_rec.qte_id := NULL;
567: END IF;
568: IF (l_tcnv_rec.pdt_id = Okc_Api.G_MISS_NUM) THEN
569: l_tcnv_rec.pdt_id := NULL;
570: END IF;
571: IF (l_tcnv_rec.qte_id = Okc_Api.G_MISS_NUM) THEN
572: l_tcnv_rec.qte_id := NULL;
573: END IF;
574: IF (l_tcnv_rec.aes_id = Okc_Api.G_MISS_NUM) THEN
575: l_tcnv_rec.aes_id := NULL;
570: END IF;
571: IF (l_tcnv_rec.qte_id = Okc_Api.G_MISS_NUM) THEN
572: l_tcnv_rec.qte_id := NULL;
573: END IF;
574: IF (l_tcnv_rec.aes_id = Okc_Api.G_MISS_NUM) THEN
575: l_tcnv_rec.aes_id := NULL;
576: END IF;
577: IF (l_tcnv_rec.code_combination_id = Okc_Api.G_MISS_NUM) THEN
578: l_tcnv_rec.code_combination_id := NULL;
573: END IF;
574: IF (l_tcnv_rec.aes_id = Okc_Api.G_MISS_NUM) THEN
575: l_tcnv_rec.aes_id := NULL;
576: END IF;
577: IF (l_tcnv_rec.code_combination_id = Okc_Api.G_MISS_NUM) THEN
578: l_tcnv_rec.code_combination_id := NULL;
579: END IF;
580: IF (l_tcnv_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR) THEN
581: l_tcnv_rec.tax_deductible_local := NULL;
576: END IF;
577: IF (l_tcnv_rec.code_combination_id = Okc_Api.G_MISS_NUM) THEN
578: l_tcnv_rec.code_combination_id := NULL;
579: END IF;
580: IF (l_tcnv_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR) THEN
581: l_tcnv_rec.tax_deductible_local := NULL;
582: END IF;
583: IF (l_tcnv_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR) THEN
584: l_tcnv_rec.tax_deductible_corporate := NULL;
579: END IF;
580: IF (l_tcnv_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR) THEN
581: l_tcnv_rec.tax_deductible_local := NULL;
582: END IF;
583: IF (l_tcnv_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR) THEN
584: l_tcnv_rec.tax_deductible_corporate := NULL;
585: END IF;
586: IF (l_tcnv_rec.date_accrual = Okc_Api.G_MISS_DATE) THEN
587: l_tcnv_rec.date_accrual := NULL;
582: END IF;
583: IF (l_tcnv_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR) THEN
584: l_tcnv_rec.tax_deductible_corporate := NULL;
585: END IF;
586: IF (l_tcnv_rec.date_accrual = Okc_Api.G_MISS_DATE) THEN
587: l_tcnv_rec.date_accrual := NULL;
588: END IF;
589: IF (l_tcnv_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR) THEN
590: l_tcnv_rec.accrual_status_yn := NULL;
585: END IF;
586: IF (l_tcnv_rec.date_accrual = Okc_Api.G_MISS_DATE) THEN
587: l_tcnv_rec.date_accrual := NULL;
588: END IF;
589: IF (l_tcnv_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR) THEN
590: l_tcnv_rec.accrual_status_yn := NULL;
591: END IF;
592: IF (l_tcnv_rec.update_status_yn = Okc_Api.G_MISS_CHAR) THEN
593: l_tcnv_rec.update_status_yn := NULL;
588: END IF;
589: IF (l_tcnv_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR) THEN
590: l_tcnv_rec.accrual_status_yn := NULL;
591: END IF;
592: IF (l_tcnv_rec.update_status_yn = Okc_Api.G_MISS_CHAR) THEN
593: l_tcnv_rec.update_status_yn := NULL;
594: END IF;
595: IF (l_tcnv_rec.amount = Okc_Api.G_MISS_NUM) THEN
596: l_tcnv_rec.amount := NULL;
591: END IF;
592: IF (l_tcnv_rec.update_status_yn = Okc_Api.G_MISS_CHAR) THEN
593: l_tcnv_rec.update_status_yn := NULL;
594: END IF;
595: IF (l_tcnv_rec.amount = Okc_Api.G_MISS_NUM) THEN
596: l_tcnv_rec.amount := NULL;
597: END IF;
598: IF (l_tcnv_rec.currency_code = Okc_Api.G_MISS_CHAR) THEN
599: l_tcnv_rec.currency_code := NULL;
594: END IF;
595: IF (l_tcnv_rec.amount = Okc_Api.G_MISS_NUM) THEN
596: l_tcnv_rec.amount := NULL;
597: END IF;
598: IF (l_tcnv_rec.currency_code = Okc_Api.G_MISS_CHAR) THEN
599: l_tcnv_rec.currency_code := NULL;
600: END IF;
601: IF (l_tcnv_rec.attribute_category = Okc_Api.G_MISS_CHAR) THEN
602: l_tcnv_rec.attribute_category := NULL;
597: END IF;
598: IF (l_tcnv_rec.currency_code = Okc_Api.G_MISS_CHAR) THEN
599: l_tcnv_rec.currency_code := NULL;
600: END IF;
601: IF (l_tcnv_rec.attribute_category = Okc_Api.G_MISS_CHAR) THEN
602: l_tcnv_rec.attribute_category := NULL;
603: END IF;
604: IF (l_tcnv_rec.attribute1 = Okc_Api.G_MISS_CHAR) THEN
605: l_tcnv_rec.attribute1 := NULL;
600: END IF;
601: IF (l_tcnv_rec.attribute_category = Okc_Api.G_MISS_CHAR) THEN
602: l_tcnv_rec.attribute_category := NULL;
603: END IF;
604: IF (l_tcnv_rec.attribute1 = Okc_Api.G_MISS_CHAR) THEN
605: l_tcnv_rec.attribute1 := NULL;
606: END IF;
607: IF (l_tcnv_rec.attribute2 = Okc_Api.G_MISS_CHAR) THEN
608: l_tcnv_rec.attribute2 := NULL;
603: END IF;
604: IF (l_tcnv_rec.attribute1 = Okc_Api.G_MISS_CHAR) THEN
605: l_tcnv_rec.attribute1 := NULL;
606: END IF;
607: IF (l_tcnv_rec.attribute2 = Okc_Api.G_MISS_CHAR) THEN
608: l_tcnv_rec.attribute2 := NULL;
609: END IF;
610: IF (l_tcnv_rec.attribute3 = Okc_Api.G_MISS_CHAR) THEN
611: l_tcnv_rec.attribute3 := NULL;
606: END IF;
607: IF (l_tcnv_rec.attribute2 = Okc_Api.G_MISS_CHAR) THEN
608: l_tcnv_rec.attribute2 := NULL;
609: END IF;
610: IF (l_tcnv_rec.attribute3 = Okc_Api.G_MISS_CHAR) THEN
611: l_tcnv_rec.attribute3 := NULL;
612: END IF;
613: IF (l_tcnv_rec.attribute4 = Okc_Api.G_MISS_CHAR) THEN
614: l_tcnv_rec.attribute4 := NULL;
609: END IF;
610: IF (l_tcnv_rec.attribute3 = Okc_Api.G_MISS_CHAR) THEN
611: l_tcnv_rec.attribute3 := NULL;
612: END IF;
613: IF (l_tcnv_rec.attribute4 = Okc_Api.G_MISS_CHAR) THEN
614: l_tcnv_rec.attribute4 := NULL;
615: END IF;
616: IF (l_tcnv_rec.attribute5 = Okc_Api.G_MISS_CHAR) THEN
617: l_tcnv_rec.attribute5 := NULL;
612: END IF;
613: IF (l_tcnv_rec.attribute4 = Okc_Api.G_MISS_CHAR) THEN
614: l_tcnv_rec.attribute4 := NULL;
615: END IF;
616: IF (l_tcnv_rec.attribute5 = Okc_Api.G_MISS_CHAR) THEN
617: l_tcnv_rec.attribute5 := NULL;
618: END IF;
619: IF (l_tcnv_rec.attribute6 = Okc_Api.G_MISS_CHAR) THEN
620: l_tcnv_rec.attribute6 := NULL;
615: END IF;
616: IF (l_tcnv_rec.attribute5 = Okc_Api.G_MISS_CHAR) THEN
617: l_tcnv_rec.attribute5 := NULL;
618: END IF;
619: IF (l_tcnv_rec.attribute6 = Okc_Api.G_MISS_CHAR) THEN
620: l_tcnv_rec.attribute6 := NULL;
621: END IF;
622: IF (l_tcnv_rec.attribute7 = Okc_Api.G_MISS_CHAR) THEN
623: l_tcnv_rec.attribute7 := NULL;
618: END IF;
619: IF (l_tcnv_rec.attribute6 = Okc_Api.G_MISS_CHAR) THEN
620: l_tcnv_rec.attribute6 := NULL;
621: END IF;
622: IF (l_tcnv_rec.attribute7 = Okc_Api.G_MISS_CHAR) THEN
623: l_tcnv_rec.attribute7 := NULL;
624: END IF;
625: IF (l_tcnv_rec.attribute8 = Okc_Api.G_MISS_CHAR) THEN
626: l_tcnv_rec.attribute8 := NULL;
621: END IF;
622: IF (l_tcnv_rec.attribute7 = Okc_Api.G_MISS_CHAR) THEN
623: l_tcnv_rec.attribute7 := NULL;
624: END IF;
625: IF (l_tcnv_rec.attribute8 = Okc_Api.G_MISS_CHAR) THEN
626: l_tcnv_rec.attribute8 := NULL;
627: END IF;
628: IF (l_tcnv_rec.attribute9 = Okc_Api.G_MISS_CHAR) THEN
629: l_tcnv_rec.attribute9 := NULL;
624: END IF;
625: IF (l_tcnv_rec.attribute8 = Okc_Api.G_MISS_CHAR) THEN
626: l_tcnv_rec.attribute8 := NULL;
627: END IF;
628: IF (l_tcnv_rec.attribute9 = Okc_Api.G_MISS_CHAR) THEN
629: l_tcnv_rec.attribute9 := NULL;
630: END IF;
631: IF (l_tcnv_rec.attribute10 = Okc_Api.G_MISS_CHAR) THEN
632: l_tcnv_rec.attribute10 := NULL;
627: END IF;
628: IF (l_tcnv_rec.attribute9 = Okc_Api.G_MISS_CHAR) THEN
629: l_tcnv_rec.attribute9 := NULL;
630: END IF;
631: IF (l_tcnv_rec.attribute10 = Okc_Api.G_MISS_CHAR) THEN
632: l_tcnv_rec.attribute10 := NULL;
633: END IF;
634: IF (l_tcnv_rec.attribute11 = Okc_Api.G_MISS_CHAR) THEN
635: l_tcnv_rec.attribute11 := NULL;
630: END IF;
631: IF (l_tcnv_rec.attribute10 = Okc_Api.G_MISS_CHAR) THEN
632: l_tcnv_rec.attribute10 := NULL;
633: END IF;
634: IF (l_tcnv_rec.attribute11 = Okc_Api.G_MISS_CHAR) THEN
635: l_tcnv_rec.attribute11 := NULL;
636: END IF;
637: IF (l_tcnv_rec.attribute12 = Okc_Api.G_MISS_CHAR) THEN
638: l_tcnv_rec.attribute12 := NULL;
633: END IF;
634: IF (l_tcnv_rec.attribute11 = Okc_Api.G_MISS_CHAR) THEN
635: l_tcnv_rec.attribute11 := NULL;
636: END IF;
637: IF (l_tcnv_rec.attribute12 = Okc_Api.G_MISS_CHAR) THEN
638: l_tcnv_rec.attribute12 := NULL;
639: END IF;
640: IF (l_tcnv_rec.attribute13 = Okc_Api.G_MISS_CHAR) THEN
641: l_tcnv_rec.attribute13 := NULL;
636: END IF;
637: IF (l_tcnv_rec.attribute12 = Okc_Api.G_MISS_CHAR) THEN
638: l_tcnv_rec.attribute12 := NULL;
639: END IF;
640: IF (l_tcnv_rec.attribute13 = Okc_Api.G_MISS_CHAR) THEN
641: l_tcnv_rec.attribute13 := NULL;
642: END IF;
643: IF (l_tcnv_rec.attribute14 = Okc_Api.G_MISS_CHAR) THEN
644: l_tcnv_rec.attribute14 := NULL;
639: END IF;
640: IF (l_tcnv_rec.attribute13 = Okc_Api.G_MISS_CHAR) THEN
641: l_tcnv_rec.attribute13 := NULL;
642: END IF;
643: IF (l_tcnv_rec.attribute14 = Okc_Api.G_MISS_CHAR) THEN
644: l_tcnv_rec.attribute14 := NULL;
645: END IF;
646: IF (l_tcnv_rec.attribute15 = Okc_Api.G_MISS_CHAR) THEN
647: l_tcnv_rec.attribute15 := NULL;
642: END IF;
643: IF (l_tcnv_rec.attribute14 = Okc_Api.G_MISS_CHAR) THEN
644: l_tcnv_rec.attribute14 := NULL;
645: END IF;
646: IF (l_tcnv_rec.attribute15 = Okc_Api.G_MISS_CHAR) THEN
647: l_tcnv_rec.attribute15 := NULL;
648: END IF;
649: IF (l_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR) THEN
650: l_tcnv_rec.tcn_type := NULL;
645: END IF;
646: IF (l_tcnv_rec.attribute15 = Okc_Api.G_MISS_CHAR) THEN
647: l_tcnv_rec.attribute15 := NULL;
648: END IF;
649: IF (l_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR) THEN
650: l_tcnv_rec.tcn_type := NULL;
651: END IF;
652:
653: IF (l_tcnv_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
649: IF (l_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR) THEN
650: l_tcnv_rec.tcn_type := NULL;
651: END IF;
652:
653: IF (l_tcnv_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
654: l_tcnv_rec.rjn_code := NULL;
655: END IF;
656:
657: IF (l_tcnv_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
653: IF (l_tcnv_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
654: l_tcnv_rec.rjn_code := NULL;
655: END IF;
656:
657: IF (l_tcnv_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
658: l_tcnv_rec.party_rel_id1_old := NULL;
659: END IF;
660:
661: IF (l_tcnv_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
657: IF (l_tcnv_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
658: l_tcnv_rec.party_rel_id1_old := NULL;
659: END IF;
660:
661: IF (l_tcnv_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
662: l_tcnv_rec.party_rel_id2_old := NULL;
663: END IF;
664:
665: IF (l_tcnv_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
661: IF (l_tcnv_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
662: l_tcnv_rec.party_rel_id2_old := NULL;
663: END IF;
664:
665: IF (l_tcnv_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
666: l_tcnv_rec.party_rel_id1_new := NULL;
667: END IF;
668:
669: IF (l_tcnv_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
665: IF (l_tcnv_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
666: l_tcnv_rec.party_rel_id1_new := NULL;
667: END IF;
668:
669: IF (l_tcnv_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
670: l_tcnv_rec.party_rel_id2_new := NULL;
671: END IF;
672:
673: IF (l_tcnv_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
669: IF (l_tcnv_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
670: l_tcnv_rec.party_rel_id2_new := NULL;
671: END IF;
672:
673: IF (l_tcnv_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
674: l_tcnv_rec.complete_transfer_yn := NULL;
675: END IF;
676:
677: IF (l_tcnv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
673: IF (l_tcnv_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
674: l_tcnv_rec.complete_transfer_yn := NULL;
675: END IF;
676:
677: IF (l_tcnv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
678: l_tcnv_rec.org_id := NULL;
679: END IF;
680: IF (l_tcnv_rec.khr_id = Okc_Api.G_MISS_NUM) THEN
681: l_tcnv_rec.khr_id := NULL;
676:
677: IF (l_tcnv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
678: l_tcnv_rec.org_id := NULL;
679: END IF;
680: IF (l_tcnv_rec.khr_id = Okc_Api.G_MISS_NUM) THEN
681: l_tcnv_rec.khr_id := NULL;
682: END IF;
683: IF (l_tcnv_rec.request_id = Okc_Api.G_MISS_NUM) THEN
684: l_tcnv_rec.request_id := NULL;
679: END IF;
680: IF (l_tcnv_rec.khr_id = Okc_Api.G_MISS_NUM) THEN
681: l_tcnv_rec.khr_id := NULL;
682: END IF;
683: IF (l_tcnv_rec.request_id = Okc_Api.G_MISS_NUM) THEN
684: l_tcnv_rec.request_id := NULL;
685: END IF;
686: IF (l_tcnv_rec.program_application_id = Okc_Api.G_MISS_NUM) THEN
687: l_tcnv_rec.program_application_id := NULL;
682: END IF;
683: IF (l_tcnv_rec.request_id = Okc_Api.G_MISS_NUM) THEN
684: l_tcnv_rec.request_id := NULL;
685: END IF;
686: IF (l_tcnv_rec.program_application_id = Okc_Api.G_MISS_NUM) THEN
687: l_tcnv_rec.program_application_id := NULL;
688: END IF;
689: IF (l_tcnv_rec.program_id = Okc_Api.G_MISS_NUM) THEN
690: l_tcnv_rec.program_id := NULL;
685: END IF;
686: IF (l_tcnv_rec.program_application_id = Okc_Api.G_MISS_NUM) THEN
687: l_tcnv_rec.program_application_id := NULL;
688: END IF;
689: IF (l_tcnv_rec.program_id = Okc_Api.G_MISS_NUM) THEN
690: l_tcnv_rec.program_id := NULL;
691: END IF;
692: IF (l_tcnv_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
693: l_tcnv_rec.program_update_date := NULL;
688: END IF;
689: IF (l_tcnv_rec.program_id = Okc_Api.G_MISS_NUM) THEN
690: l_tcnv_rec.program_id := NULL;
691: END IF;
692: IF (l_tcnv_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
693: l_tcnv_rec.program_update_date := NULL;
694: END IF;
695: IF (l_tcnv_rec.khr_id_old = Okc_Api.G_MISS_NUM) THEN
696: l_tcnv_rec.khr_id_old := NULL;
691: END IF;
692: IF (l_tcnv_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
693: l_tcnv_rec.program_update_date := NULL;
694: END IF;
695: IF (l_tcnv_rec.khr_id_old = Okc_Api.G_MISS_NUM) THEN
696: l_tcnv_rec.khr_id_old := NULL;
697: END IF;
698: IF (l_tcnv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
699: l_tcnv_rec.created_by := NULL;
694: END IF;
695: IF (l_tcnv_rec.khr_id_old = Okc_Api.G_MISS_NUM) THEN
696: l_tcnv_rec.khr_id_old := NULL;
697: END IF;
698: IF (l_tcnv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
699: l_tcnv_rec.created_by := NULL;
700: END IF;
701: IF (l_tcnv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
702: l_tcnv_rec.creation_date := NULL;
697: END IF;
698: IF (l_tcnv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
699: l_tcnv_rec.created_by := NULL;
700: END IF;
701: IF (l_tcnv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
702: l_tcnv_rec.creation_date := NULL;
703: END IF;
704: IF (l_tcnv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
705: l_tcnv_rec.last_updated_by := NULL;
700: END IF;
701: IF (l_tcnv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
702: l_tcnv_rec.creation_date := NULL;
703: END IF;
704: IF (l_tcnv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
705: l_tcnv_rec.last_updated_by := NULL;
706: END IF;
707: IF (l_tcnv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
708: l_tcnv_rec.last_update_date := NULL;
703: END IF;
704: IF (l_tcnv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
705: l_tcnv_rec.last_updated_by := NULL;
706: END IF;
707: IF (l_tcnv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
708: l_tcnv_rec.last_update_date := NULL;
709: END IF;
710: IF (l_tcnv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
711: l_tcnv_rec.last_update_login := NULL;
706: END IF;
707: IF (l_tcnv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
708: l_tcnv_rec.last_update_date := NULL;
709: END IF;
710: IF (l_tcnv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
711: l_tcnv_rec.last_update_login := NULL;
712: END IF;
713:
714: IF (l_tcnv_rec.try_id = Okc_Api.G_MISS_NUM) THEN
710: IF (l_tcnv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
711: l_tcnv_rec.last_update_login := NULL;
712: END IF;
713:
714: IF (l_tcnv_rec.try_id = Okc_Api.G_MISS_NUM) THEN
715: l_tcnv_rec.try_id := NULL;
716: END IF;
717: IF (l_tcnv_rec.tsu_code = Okc_Api.G_MISS_CHAR) THEN
718: l_tcnv_rec.tsu_code := NULL;
713:
714: IF (l_tcnv_rec.try_id = Okc_Api.G_MISS_NUM) THEN
715: l_tcnv_rec.try_id := NULL;
716: END IF;
717: IF (l_tcnv_rec.tsu_code = Okc_Api.G_MISS_CHAR) THEN
718: l_tcnv_rec.tsu_code := NULL;
719: END IF;
720: IF (l_tcnv_rec.set_of_books_id = Okc_Api.G_MISS_NUM) THEN
721: l_tcnv_rec.set_of_books_id := NULL;
716: END IF;
717: IF (l_tcnv_rec.tsu_code = Okc_Api.G_MISS_CHAR) THEN
718: l_tcnv_rec.tsu_code := NULL;
719: END IF;
720: IF (l_tcnv_rec.set_of_books_id = Okc_Api.G_MISS_NUM) THEN
721: l_tcnv_rec.set_of_books_id := NULL;
722: END IF;
723: IF (l_tcnv_rec.description = Okc_Api.G_MISS_CHAR) THEN
724: l_tcnv_rec.description := NULL;
719: END IF;
720: IF (l_tcnv_rec.set_of_books_id = Okc_Api.G_MISS_NUM) THEN
721: l_tcnv_rec.set_of_books_id := NULL;
722: END IF;
723: IF (l_tcnv_rec.description = Okc_Api.G_MISS_CHAR) THEN
724: l_tcnv_rec.description := NULL;
725: END IF;
726: IF (l_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE) THEN
727: l_tcnv_rec.date_transaction_occurred := NULL;
722: END IF;
723: IF (l_tcnv_rec.description = Okc_Api.G_MISS_CHAR) THEN
724: l_tcnv_rec.description := NULL;
725: END IF;
726: IF (l_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE) THEN
727: l_tcnv_rec.date_transaction_occurred := NULL;
728: END IF;
729: IF (l_tcnv_rec.trx_number = Okc_Api.G_MISS_CHAR) THEN
730: l_tcnv_rec.trx_number := NULL;
725: END IF;
726: IF (l_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE) THEN
727: l_tcnv_rec.date_transaction_occurred := NULL;
728: END IF;
729: IF (l_tcnv_rec.trx_number = Okc_Api.G_MISS_CHAR) THEN
730: l_tcnv_rec.trx_number := NULL;
731: END IF;
732: IF (l_tcnv_rec.tmt_evergreen_yn = Okc_Api.G_MISS_CHAR) THEN
733: l_tcnv_rec.tmt_evergreen_yn := NULL;
728: END IF;
729: IF (l_tcnv_rec.trx_number = Okc_Api.G_MISS_CHAR) THEN
730: l_tcnv_rec.trx_number := NULL;
731: END IF;
732: IF (l_tcnv_rec.tmt_evergreen_yn = Okc_Api.G_MISS_CHAR) THEN
733: l_tcnv_rec.tmt_evergreen_yn := NULL;
734: END IF;
735: IF (l_tcnv_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR) THEN
736: l_tcnv_rec.tmt_close_balances_yn := NULL;
731: END IF;
732: IF (l_tcnv_rec.tmt_evergreen_yn = Okc_Api.G_MISS_CHAR) THEN
733: l_tcnv_rec.tmt_evergreen_yn := NULL;
734: END IF;
735: IF (l_tcnv_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR) THEN
736: l_tcnv_rec.tmt_close_balances_yn := NULL;
737: END IF;
738: IF (l_tcnv_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR) THEN
739: l_tcnv_rec.tmt_accounting_entries_yn := NULL;
734: END IF;
735: IF (l_tcnv_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR) THEN
736: l_tcnv_rec.tmt_close_balances_yn := NULL;
737: END IF;
738: IF (l_tcnv_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR) THEN
739: l_tcnv_rec.tmt_accounting_entries_yn := NULL;
740: END IF;
741: IF (l_tcnv_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR) THEN
742: l_tcnv_rec.tmt_cancel_insurance_yn := NULL;
737: END IF;
738: IF (l_tcnv_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR) THEN
739: l_tcnv_rec.tmt_accounting_entries_yn := NULL;
740: END IF;
741: IF (l_tcnv_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR) THEN
742: l_tcnv_rec.tmt_cancel_insurance_yn := NULL;
743: END IF;
744: IF (l_tcnv_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR) THEN
745: l_tcnv_rec.tmt_asset_disposition_yn := NULL;
740: END IF;
741: IF (l_tcnv_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR) THEN
742: l_tcnv_rec.tmt_cancel_insurance_yn := NULL;
743: END IF;
744: IF (l_tcnv_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR) THEN
745: l_tcnv_rec.tmt_asset_disposition_yn := NULL;
746: END IF;
747: IF (l_tcnv_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR) THEN
748: l_tcnv_rec.tmt_amortization_yn := NULL;
743: END IF;
744: IF (l_tcnv_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR) THEN
745: l_tcnv_rec.tmt_asset_disposition_yn := NULL;
746: END IF;
747: IF (l_tcnv_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR) THEN
748: l_tcnv_rec.tmt_amortization_yn := NULL;
749: END IF;
750: IF (l_tcnv_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR) THEN
751: l_tcnv_rec.tmt_asset_return_yn := NULL;
746: END IF;
747: IF (l_tcnv_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR) THEN
748: l_tcnv_rec.tmt_amortization_yn := NULL;
749: END IF;
750: IF (l_tcnv_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR) THEN
751: l_tcnv_rec.tmt_asset_return_yn := NULL;
752: END IF;
753: IF (l_tcnv_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR) THEN
754: l_tcnv_rec.tmt_contract_updated_yn := NULL;
749: END IF;
750: IF (l_tcnv_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR) THEN
751: l_tcnv_rec.tmt_asset_return_yn := NULL;
752: END IF;
753: IF (l_tcnv_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR) THEN
754: l_tcnv_rec.tmt_contract_updated_yn := NULL;
755: END IF;
756: IF (l_tcnv_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR) THEN
757: l_tcnv_rec.tmt_recycle_yn := NULL;
752: END IF;
753: IF (l_tcnv_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR) THEN
754: l_tcnv_rec.tmt_contract_updated_yn := NULL;
755: END IF;
756: IF (l_tcnv_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR) THEN
757: l_tcnv_rec.tmt_recycle_yn := NULL;
758: END IF;
759: IF (l_tcnv_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR) THEN
760: l_tcnv_rec.tmt_validated_yn := NULL;
755: END IF;
756: IF (l_tcnv_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR) THEN
757: l_tcnv_rec.tmt_recycle_yn := NULL;
758: END IF;
759: IF (l_tcnv_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR) THEN
760: l_tcnv_rec.tmt_validated_yn := NULL;
761: END IF;
762: IF (l_tcnv_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR) THEN
763: l_tcnv_rec.tmt_streams_updated_yn := NULL;
758: END IF;
759: IF (l_tcnv_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR) THEN
760: l_tcnv_rec.tmt_validated_yn := NULL;
761: END IF;
762: IF (l_tcnv_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR) THEN
763: l_tcnv_rec.tmt_streams_updated_yn := NULL;
764: END IF;
765: IF (l_tcnv_rec.accrual_activity = Okc_Api.G_MISS_CHAR) THEN
766: l_tcnv_rec.accrual_activity := NULL;
761: END IF;
762: IF (l_tcnv_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR) THEN
763: l_tcnv_rec.tmt_streams_updated_yn := NULL;
764: END IF;
765: IF (l_tcnv_rec.accrual_activity = Okc_Api.G_MISS_CHAR) THEN
766: l_tcnv_rec.accrual_activity := NULL;
767: END IF;
768:
769: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
767: END IF;
768:
769: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
770:
771: IF (l_tcnv_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
772: l_tcnv_rec.tmt_split_asset_yn := NULL;
773: END IF;
774: IF (l_tcnv_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
775: l_tcnv_rec.tmt_generic_flag1_yn := NULL;
770:
771: IF (l_tcnv_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
772: l_tcnv_rec.tmt_split_asset_yn := NULL;
773: END IF;
774: IF (l_tcnv_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
775: l_tcnv_rec.tmt_generic_flag1_yn := NULL;
776: END IF;
777: IF (l_tcnv_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
778: l_tcnv_rec.tmt_generic_flag2_yn := NULL;
773: END IF;
774: IF (l_tcnv_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
775: l_tcnv_rec.tmt_generic_flag1_yn := NULL;
776: END IF;
777: IF (l_tcnv_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
778: l_tcnv_rec.tmt_generic_flag2_yn := NULL;
779: END IF;
780: IF (l_tcnv_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
781: l_tcnv_rec.tmt_generic_flag3_yn := NULL;
776: END IF;
777: IF (l_tcnv_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
778: l_tcnv_rec.tmt_generic_flag2_yn := NULL;
779: END IF;
780: IF (l_tcnv_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
781: l_tcnv_rec.tmt_generic_flag3_yn := NULL;
782: END IF;
783:
784: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
782: END IF;
783:
784: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
785:
786: IF (l_tcnv_rec.CURRENCY_CONVERSION_TYPE = Okc_Api.G_MISS_CHAR) THEN
787: l_tcnv_rec.CURRENCY_CONVERSION_TYPE := NULL;
788: END IF;
789: IF (l_tcnv_rec.CURRENCY_CONVERSION_RATE = Okc_Api.G_MISS_NUM) THEN
790: l_tcnv_rec.CURRENCY_CONVERSION_RATE := NULL;
785:
786: IF (l_tcnv_rec.CURRENCY_CONVERSION_TYPE = Okc_Api.G_MISS_CHAR) THEN
787: l_tcnv_rec.CURRENCY_CONVERSION_TYPE := NULL;
788: END IF;
789: IF (l_tcnv_rec.CURRENCY_CONVERSION_RATE = Okc_Api.G_MISS_NUM) THEN
790: l_tcnv_rec.CURRENCY_CONVERSION_RATE := NULL;
791: END IF;
792: IF (l_tcnv_rec.CURRENCY_CONVERSION_DATE = Okc_Api.G_MISS_DATE) THEN
793: l_tcnv_rec.CURRENCY_CONVERSION_DATE := NULL;
788: END IF;
789: IF (l_tcnv_rec.CURRENCY_CONVERSION_RATE = Okc_Api.G_MISS_NUM) THEN
790: l_tcnv_rec.CURRENCY_CONVERSION_RATE := NULL;
791: END IF;
792: IF (l_tcnv_rec.CURRENCY_CONVERSION_DATE = Okc_Api.G_MISS_DATE) THEN
793: l_tcnv_rec.CURRENCY_CONVERSION_DATE := NULL;
794: END IF;
795:
796: -- Added by Keerthi 04-SEP-2003
793: l_tcnv_rec.CURRENCY_CONVERSION_DATE := NULL;
794: END IF;
795:
796: -- Added by Keerthi 04-SEP-2003
797: IF (l_tcnv_rec.CHR_ID = Okc_Api.G_MISS_NUM) THEN
798: l_tcnv_rec.CHR_ID := NULL;
799: END IF;
800:
801: -- Added by Keerthi for Bug No 3195713
799: END IF;
800:
801: -- Added by Keerthi for Bug No 3195713
802:
803: IF (l_tcnv_rec.SOURCE_TRX_ID = Okc_Api.G_MISS_NUM) THEN
804: l_tcnv_rec.SOURCE_TRX_ID := NULL;
805: END IF;
806:
807: IF (l_tcnv_rec.SOURCE_TRX_TYPE = Okc_Api.G_MISS_CHAR) THEN
803: IF (l_tcnv_rec.SOURCE_TRX_ID = Okc_Api.G_MISS_NUM) THEN
804: l_tcnv_rec.SOURCE_TRX_ID := NULL;
805: END IF;
806:
807: IF (l_tcnv_rec.SOURCE_TRX_TYPE = Okc_Api.G_MISS_CHAR) THEN
808: l_tcnv_rec.SOURCE_TRX_TYPE := NULL;
809: END IF;
810:
811: -- Added by kmotepal for Bug 3621485
808: l_tcnv_rec.SOURCE_TRX_TYPE := NULL;
809: END IF;
810:
811: -- Added by kmotepal for Bug 3621485
812: IF (l_tcnv_rec.CANCELED_DATE = Okc_Api.G_MISS_DATE) THEN
813: l_tcnv_rec.CANCELED_DATE := NULL;
814: END IF;
815:
816: --Added by dpsingh for LE Uptake
878: -------------------------------------------------
879: FUNCTION Validate_Attributes (
880: p_tcnv_rec IN tcnv_rec_type
881: ) RETURN VARCHAR2 IS
882: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
883: BEGIN
884: IF p_tcnv_rec.id = OKC_API.G_MISS_NUM OR
885: p_tcnv_rec.id IS NULL
886: THEN
880: p_tcnv_rec IN tcnv_rec_type
881: ) RETURN VARCHAR2 IS
882: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
883: BEGIN
884: IF p_tcnv_rec.id = OKC_API.G_MISS_NUM OR
885: p_tcnv_rec.id IS NULL
886: THEN
887: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
888: l_return_status := OKC_API.G_RET_STS_ERROR;
883: BEGIN
884: IF p_tcnv_rec.id = OKC_API.G_MISS_NUM OR
885: p_tcnv_rec.id IS NULL
886: THEN
887: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
888: l_return_status := OKC_API.G_RET_STS_ERROR;
889: ELSIF p_tcnv_rec.object_version_number = OKC_API.G_MISS_NUM OR
890: p_tcnv_rec.object_version_number IS NULL
891: THEN
884: IF p_tcnv_rec.id = OKC_API.G_MISS_NUM OR
885: p_tcnv_rec.id IS NULL
886: THEN
887: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
888: l_return_status := OKC_API.G_RET_STS_ERROR;
889: ELSIF p_tcnv_rec.object_version_number = OKC_API.G_MISS_NUM OR
890: p_tcnv_rec.object_version_number IS NULL
891: THEN
892: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
885: p_tcnv_rec.id IS NULL
886: THEN
887: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
888: l_return_status := OKC_API.G_RET_STS_ERROR;
889: ELSIF p_tcnv_rec.object_version_number = OKC_API.G_MISS_NUM OR
890: p_tcnv_rec.object_version_number IS NULL
891: THEN
892: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
893: l_return_status := OKC_API.G_RET_STS_ERROR;
888: l_return_status := OKC_API.G_RET_STS_ERROR;
889: ELSIF p_tcnv_rec.object_version_number = OKC_API.G_MISS_NUM OR
890: p_tcnv_rec.object_version_number IS NULL
891: THEN
892: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
893: l_return_status := OKC_API.G_RET_STS_ERROR;
894: ELSIF p_tcnv_rec.tcn_type = OKC_API.G_MISS_CHAR OR
895: p_tcnv_rec.tcn_type IS NULL
896: THEN
889: ELSIF p_tcnv_rec.object_version_number = OKC_API.G_MISS_NUM OR
890: p_tcnv_rec.object_version_number IS NULL
891: THEN
892: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
893: l_return_status := OKC_API.G_RET_STS_ERROR;
894: ELSIF p_tcnv_rec.tcn_type = OKC_API.G_MISS_CHAR OR
895: p_tcnv_rec.tcn_type IS NULL
896: THEN
897: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tcn_type');
890: p_tcnv_rec.object_version_number IS NULL
891: THEN
892: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
893: l_return_status := OKC_API.G_RET_STS_ERROR;
894: ELSIF p_tcnv_rec.tcn_type = OKC_API.G_MISS_CHAR OR
895: p_tcnv_rec.tcn_type IS NULL
896: THEN
897: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tcn_type');
898: l_return_status := OKC_API.G_RET_STS_ERROR;
893: l_return_status := OKC_API.G_RET_STS_ERROR;
894: ELSIF p_tcnv_rec.tcn_type = OKC_API.G_MISS_CHAR OR
895: p_tcnv_rec.tcn_type IS NULL
896: THEN
897: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tcn_type');
898: l_return_status := OKC_API.G_RET_STS_ERROR;
899: END IF;
900: RETURN(l_return_status);
901: END Validate_Attributes;
894: ELSIF p_tcnv_rec.tcn_type = OKC_API.G_MISS_CHAR OR
895: p_tcnv_rec.tcn_type IS NULL
896: THEN
897: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tcn_type');
898: l_return_status := OKC_API.G_RET_STS_ERROR;
899: END IF;
900: RETURN(l_return_status);
901: END Validate_Attributes;
902:
908: ---------------------------------------------
909: FUNCTION Validate_Record (
910: p_tcnv_rec IN tcnv_rec_type
911: ) RETURN VARCHAR2 IS
912: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
913: BEGIN
914: RETURN (l_return_status);
915: END Validate_Record;
916: */
930: ---------------------------------------------------------------------------
931: PROCEDURE Validate_Id (p_tcnv_rec IN tcnv_rec_type
932: ,x_return_status OUT NOCOPY VARCHAR2)
933: IS
934: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
935:
936: BEGIN
937: -- initialize return status
938: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
934: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
935:
936: BEGIN
937: -- initialize return status
938: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
939:
940: -- check for data before processing
941: IF (p_tcnv_rec.id IS NULL) OR
942: (p_tcnv_rec.id = Okc_Api.G_MISS_NUM) THEN
938: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
939:
940: -- check for data before processing
941: IF (p_tcnv_rec.id IS NULL) OR
942: (p_tcnv_rec.id = Okc_Api.G_MISS_NUM) THEN
943: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
944: ,p_msg_name => g_required_value
945: ,p_token1 => g_col_name_token
946: ,p_token1_value => 'id');
939:
940: -- check for data before processing
941: IF (p_tcnv_rec.id IS NULL) OR
942: (p_tcnv_rec.id = Okc_Api.G_MISS_NUM) THEN
943: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
944: ,p_msg_name => g_required_value
945: ,p_token1 => g_col_name_token
946: ,p_token1_value => 'id');
947: x_return_status := Okc_Api.G_RET_STS_ERROR;
943: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
944: ,p_msg_name => g_required_value
945: ,p_token1 => g_col_name_token
946: ,p_token1_value => 'id');
947: x_return_status := Okc_Api.G_RET_STS_ERROR;
948: RAISE G_EXCEPTION_HALT_VALIDATION;
949: END IF;
950:
951: EXCEPTION
955: NULL;
956:
957: WHEN OTHERS THEN
958: -- store SQL error message on message stack for caller
959: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
960: ,p_msg_name => g_unexpected_error
961: ,p_token1 => g_sqlcode_token
962: ,p_token1_value => SQLCODE
963: ,p_token2 => g_sqlerrm_token
963: ,p_token2 => g_sqlerrm_token
964: ,p_token2_value => SQLERRM);
965:
966: -- notify caller of an UNEXPECTED error
967: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
968:
969: END Validate_Id;
970:
971: ---------------------------------------------------------------------------
982: ---------------------------------------------------------------------------
983: PROCEDURE Validate_Khr_Id (p_tcnv_rec IN tcnv_rec_type
984: ,x_return_status OUT NOCOPY VARCHAR2)
985: IS
986: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
987: l_dummy VARCHAR2(1);
988: l_row_notfound BOOLEAN := TRUE;
989: item_not_found_error EXCEPTION;
990:
995:
996:
997: BEGIN
998:
999: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1000:
1001: IF (p_tcnv_rec.khr_id IS NOT NULL) AND
1002: (p_tcnv_rec.khr_id <> Okc_Api.G_MISS_NUM) THEN
1003:
998:
999: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1000:
1001: IF (p_tcnv_rec.khr_id IS NOT NULL) AND
1002: (p_tcnv_rec.khr_id <> Okc_Api.G_MISS_NUM) THEN
1003:
1004: OPEN okl_tcnv_fk_csr(p_tcnv_rec.KHR_ID);
1005: FETCH okl_tcnv_fk_csr INTO l_dummy;
1006: l_row_notfound := okl_tcnv_fk_csr%NOTFOUND;
1005: FETCH okl_tcnv_fk_csr INTO l_dummy;
1006: l_row_notfound := okl_tcnv_fk_csr%NOTFOUND;
1007: CLOSE okl_tcnv_fk_csr;
1008: IF (l_row_notfound) THEN
1009: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'KHR_ID');
1010: RAISE item_not_found_error;
1011: END IF;
1012: END IF;
1013:
1017: -- with the next column
1018: NULL;
1019:
1020: WHEN item_not_found_error THEN
1021: x_return_status := Okc_Api.G_RET_STS_ERROR;
1022:
1023: WHEN OTHERS THEN
1024: -- store SQL error message on message stack for caller
1025: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1021: x_return_status := Okc_Api.G_RET_STS_ERROR;
1022:
1023: WHEN OTHERS THEN
1024: -- store SQL error message on message stack for caller
1025: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1026: ,p_msg_name => g_unexpected_error
1027: ,p_token1 => g_sqlcode_token
1028: ,p_token1_value => SQLCODE
1029: ,p_token2 => g_sqlerrm_token
1029: ,p_token2 => g_sqlerrm_token
1030: ,p_token2_value => SQLERRM);
1031:
1032: -- notify caller of an UNEXPECTED error
1033: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1034:
1035: END Validate_Khr_Id;
1036:
1037:
1047: ---------------------------------------------------------------------------
1048: PROCEDURE Validate_Khr_Id_New (p_tcnv_rec IN tcnv_rec_type
1049: ,x_return_status OUT NOCOPY VARCHAR2)
1050: IS
1051: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1052: l_dummy VARCHAR2(1);
1053: l_row_notfound BOOLEAN := TRUE;
1054: item_not_found_error EXCEPTION;
1055:
1060:
1061:
1062: BEGIN
1063:
1064: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1065:
1066: IF (p_tcnv_rec.khr_id_New IS NOT NULL) AND
1067: (p_tcnv_rec.khr_id_New <> Okc_Api.G_MISS_NUM) THEN
1068:
1063:
1064: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1065:
1066: IF (p_tcnv_rec.khr_id_New IS NOT NULL) AND
1067: (p_tcnv_rec.khr_id_New <> Okc_Api.G_MISS_NUM) THEN
1068:
1069: OPEN okl_tcnv_fk_csr(p_tcnv_rec.KHR_ID_NEW);
1070: FETCH okl_tcnv_fk_csr INTO l_dummy;
1071: l_row_notfound := okl_tcnv_fk_csr%NOTFOUND;
1070: FETCH okl_tcnv_fk_csr INTO l_dummy;
1071: l_row_notfound := okl_tcnv_fk_csr%NOTFOUND;
1072: CLOSE okl_tcnv_fk_csr;
1073: IF (l_row_notfound) THEN
1074: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'KHR_ID_NEW');
1075: RAISE item_not_found_error;
1076: END IF;
1077: END IF;
1078:
1082: -- with the next column
1083: NULL;
1084:
1085: WHEN item_not_found_error THEN
1086: x_return_status := Okc_Api.G_RET_STS_ERROR;
1087:
1088: WHEN OTHERS THEN
1089: -- store SQL error message on message stack for caller
1090: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1086: x_return_status := Okc_Api.G_RET_STS_ERROR;
1087:
1088: WHEN OTHERS THEN
1089: -- store SQL error message on message stack for caller
1090: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1091: ,p_msg_name => g_unexpected_error
1092: ,p_token1 => g_sqlcode_token
1093: ,p_token1_value => SQLCODE
1094: ,p_token2 => g_sqlerrm_token
1094: ,p_token2 => g_sqlerrm_token
1095: ,p_token2_value => SQLERRM);
1096:
1097: -- notify caller of an UNEXPECTED error
1098: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1099:
1100: END Validate_Khr_Id_New;
1101:
1102: ---------------------------------------------------------------------------
1113: ---------------------------------------------------------------------------
1114: PROCEDURE Validate_Khr_Id_Old (p_tcnv_rec IN tcnv_rec_type
1115: ,x_return_status OUT NOCOPY VARCHAR2)
1116: IS
1117: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1118: l_dummy VARCHAR2(1);
1119: l_row_notfound BOOLEAN := TRUE;
1120: item_not_found_error EXCEPTION;
1121:
1126:
1127:
1128: BEGIN
1129:
1130: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1131:
1132: IF (p_tcnv_rec.khr_id_Old IS NOT NULL) AND
1133: (p_tcnv_rec.khr_id_Old <> Okc_Api.G_MISS_NUM) THEN
1134:
1129:
1130: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1131:
1132: IF (p_tcnv_rec.khr_id_Old IS NOT NULL) AND
1133: (p_tcnv_rec.khr_id_Old <> Okc_Api.G_MISS_NUM) THEN
1134:
1135: OPEN okl_tcnv_fk_csr(p_tcnv_rec.KHR_ID_OLD);
1136: FETCH okl_tcnv_fk_csr INTO l_dummy;
1137: l_row_notfound := okl_tcnv_fk_csr%NOTFOUND;
1136: FETCH okl_tcnv_fk_csr INTO l_dummy;
1137: l_row_notfound := okl_tcnv_fk_csr%NOTFOUND;
1138: CLOSE okl_tcnv_fk_csr;
1139: IF (l_row_notfound) THEN
1140: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'KHR_ID_OLD');
1141: RAISE item_not_found_error;
1142: END IF;
1143: END IF;
1144:
1148: -- with the next column
1149: NULL;
1150:
1151: WHEN item_not_found_error THEN
1152: x_return_status := Okc_Api.G_RET_STS_ERROR;
1153:
1154: WHEN OTHERS THEN
1155: -- store SQL error message on message stack for caller
1156: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1152: x_return_status := Okc_Api.G_RET_STS_ERROR;
1153:
1154: WHEN OTHERS THEN
1155: -- store SQL error message on message stack for caller
1156: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1157: ,p_msg_name => g_unexpected_error
1158: ,p_token1 => g_sqlcode_token
1159: ,p_token1_value => SQLCODE
1160: ,p_token2 => g_sqlerrm_token
1160: ,p_token2 => g_sqlerrm_token
1161: ,p_token2_value => SQLERRM);
1162:
1163: -- notify caller of an UNEXPECTED error
1164: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1165:
1166: END Validate_Khr_Id_Old;
1167:
1168:
1180: ---------------------------------------------------------------------------
1181: PROCEDURE Validate_Pvn_Id (p_tcnv_rec IN tcnv_rec_type
1182: ,x_return_status OUT NOCOPY VARCHAR2)
1183: IS
1184: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1185: l_dummy VARCHAR2(1);
1186: l_row_notfound BOOLEAN := TRUE;
1187: item_not_found_error EXCEPTION;
1188:
1193:
1194:
1195: BEGIN
1196:
1197: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1198:
1199: IF (p_tcnv_rec.pvn_id IS NOT NULL) AND
1200: (p_tcnv_rec.pvn_id <> Okc_Api.G_MISS_NUM) THEN
1201:
1196:
1197: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1198:
1199: IF (p_tcnv_rec.pvn_id IS NOT NULL) AND
1200: (p_tcnv_rec.pvn_id <> Okc_Api.G_MISS_NUM) THEN
1201:
1202: OPEN pvn_csr(p_tcnv_rec.PVN_ID);
1203: FETCH pvn_csr INTO l_dummy;
1204: l_row_notfound := pvn_csr%NOTFOUND;
1203: FETCH pvn_csr INTO l_dummy;
1204: l_row_notfound := pvn_csr%NOTFOUND;
1205: CLOSE pvn_csr;
1206: IF (l_row_notfound) THEN
1207: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PVN_ID');
1208: RAISE item_not_found_error;
1209: END IF;
1210: END IF;
1211:
1215: -- with the next column
1216: NULL;
1217:
1218: WHEN item_not_found_error THEN
1219: x_return_status := Okc_Api.G_RET_STS_ERROR;
1220:
1221: WHEN OTHERS THEN
1222: -- store SQL error message on message stack for caller
1223: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1219: x_return_status := Okc_Api.G_RET_STS_ERROR;
1220:
1221: WHEN OTHERS THEN
1222: -- store SQL error message on message stack for caller
1223: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1224: ,p_msg_name => g_unexpected_error
1225: ,p_token1 => g_sqlcode_token
1226: ,p_token1_value => SQLCODE
1227: ,p_token2 => g_sqlerrm_token
1227: ,p_token2 => g_sqlerrm_token
1228: ,p_token2_value => SQLERRM);
1229:
1230: -- notify caller of an UNEXPECTED error
1231: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1232:
1233: END Validate_PVN_Id;
1234:
1235: ---------------------------------------------------------------------------
1246: ---------------------------------------------------------------------------
1247: PROCEDURE Validate_Pdt_Id (p_tcnv_rec IN tcnv_rec_type
1248: ,x_return_status OUT NOCOPY VARCHAR2)
1249: IS
1250: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1251: l_dummy VARCHAR2(1);
1252: l_row_notfound BOOLEAN := TRUE;
1253: item_not_found_error EXCEPTION;
1254:
1259:
1260:
1261: BEGIN
1262:
1263: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1264:
1265: IF (p_tcnv_rec.pdt_id IS NOT NULL) AND
1266: (p_tcnv_rec.pdt_id <> Okc_Api.G_MISS_NUM) THEN
1267:
1262:
1263: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1264:
1265: IF (p_tcnv_rec.pdt_id IS NOT NULL) AND
1266: (p_tcnv_rec.pdt_id <> Okc_Api.G_MISS_NUM) THEN
1267:
1268: OPEN pdt_csr(p_tcnv_rec.PDT_ID);
1269: FETCH pdt_csr INTO l_dummy;
1270: l_row_notfound := pdt_csr%NOTFOUND;
1269: FETCH pdt_csr INTO l_dummy;
1270: l_row_notfound := pdt_csr%NOTFOUND;
1271: CLOSE pdt_csr;
1272: IF (l_row_notfound) THEN
1273: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PDT_ID');
1274: RAISE item_not_found_error;
1275: END IF;
1276: END IF;
1277:
1281: -- with the next column
1282: NULL;
1283:
1284: WHEN item_not_found_error THEN
1285: x_return_status := Okc_Api.G_RET_STS_ERROR;
1286:
1287: WHEN OTHERS THEN
1288: -- store SQL error message on message stack for caller
1289: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1285: x_return_status := Okc_Api.G_RET_STS_ERROR;
1286:
1287: WHEN OTHERS THEN
1288: -- store SQL error message on message stack for caller
1289: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1290: ,p_msg_name => g_unexpected_error
1291: ,p_token1 => g_sqlcode_token
1292: ,p_token1_value => SQLCODE
1293: ,p_token2 => g_sqlerrm_token
1293: ,p_token2 => g_sqlerrm_token
1294: ,p_token2_value => SQLERRM);
1295:
1296: -- notify caller of an UNEXPECTED error
1297: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1298:
1299: END Validate_PDT_Id;
1300:
1301:
1313: ---------------------------------------------------------------------------
1314: PROCEDURE Validate_Qte_Id (p_tcnv_rec IN tcnv_rec_type
1315: ,x_return_status OUT NOCOPY VARCHAR2)
1316: IS
1317: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1318: l_dummy VARCHAR2(1);
1319: l_row_notfound BOOLEAN := TRUE;
1320: item_not_found_error EXCEPTION;
1321:
1326:
1327:
1328: BEGIN
1329:
1330: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1331:
1332: IF (p_tcnv_rec.qte_id IS NOT NULL) AND
1333: (p_tcnv_rec.qte_id <> Okc_Api.G_MISS_NUM) THEN
1334:
1329:
1330: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1331:
1332: IF (p_tcnv_rec.qte_id IS NOT NULL) AND
1333: (p_tcnv_rec.qte_id <> Okc_Api.G_MISS_NUM) THEN
1334:
1335: OPEN qte_csr(p_tcnv_rec.QTE_ID);
1336: FETCH qte_csr INTO l_dummy;
1337: l_row_notfound := qte_csr%NOTFOUND;
1336: FETCH qte_csr INTO l_dummy;
1337: l_row_notfound := qte_csr%NOTFOUND;
1338: CLOSE qte_csr;
1339: IF (l_row_notfound) THEN
1340: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'QTE_ID');
1341: RAISE item_not_found_error;
1342: END IF;
1343: END IF;
1344:
1348: -- with the next column
1349: NULL;
1350:
1351: WHEN item_not_found_error THEN
1352: x_return_status := Okc_Api.G_RET_STS_ERROR;
1353:
1354: WHEN OTHERS THEN
1355: -- store SQL error message on message stack for caller
1356: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1352: x_return_status := Okc_Api.G_RET_STS_ERROR;
1353:
1354: WHEN OTHERS THEN
1355: -- store SQL error message on message stack for caller
1356: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1357: ,p_msg_name => g_unexpected_error
1358: ,p_token1 => g_sqlcode_token
1359: ,p_token1_value => SQLCODE
1360: ,p_token2 => g_sqlerrm_token
1360: ,p_token2 => g_sqlerrm_token
1361: ,p_token2_value => SQLERRM);
1362:
1363: -- notify caller of an UNEXPECTED error
1364: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1365:
1366: END Validate_Qte_Id;
1367:
1368: --Added by dpsingh for LE Uptake
1409: x_return_status := Okl_Api.G_RET_STS_ERROR;
1410:
1411: WHEN OTHERS THEN
1412: -- store SQL error message on message stack for caller
1413: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1414: ,p_msg_name => g_unexpected_error
1415: ,p_token1 => g_sqlcode_token
1416: ,p_token1_value => SQLCODE
1417: ,p_token2 => g_sqlerrm_token
1436: ---------------------------------------------------------------------------
1437: PROCEDURE Validate_AES_Id (p_tcnv_rec IN tcnv_rec_type
1438: ,x_return_status OUT NOCOPY VARCHAR2)
1439: IS
1440: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1441: l_dummy VARCHAR2(1);
1442: l_row_notfound BOOLEAN := TRUE;
1443: item_not_found_error EXCEPTION;
1444:
1449:
1450:
1451: BEGIN
1452:
1453: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1454:
1455: IF (p_tcnv_rec.aes_id IS NOT NULL) AND
1456: (p_tcnv_rec.aes_id <> Okc_Api.G_MISS_NUM) THEN
1457:
1452:
1453: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1454:
1455: IF (p_tcnv_rec.aes_id IS NOT NULL) AND
1456: (p_tcnv_rec.aes_id <> Okc_Api.G_MISS_NUM) THEN
1457:
1458: OPEN aes_csr(p_tcnv_rec.AES_ID);
1459: FETCH aes_csr INTO l_dummy;
1460: l_row_notfound := aes_csr%NOTFOUND;
1459: FETCH aes_csr INTO l_dummy;
1460: l_row_notfound := aes_csr%NOTFOUND;
1461: CLOSE aes_csr;
1462: IF (l_row_notfound) THEN
1463: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'AES_ID');
1464: RAISE item_not_found_error;
1465: END IF;
1466: END IF;
1467:
1471: -- with the next column
1472: NULL;
1473:
1474: WHEN item_not_found_error THEN
1475: x_return_status := Okc_Api.G_RET_STS_ERROR;
1476:
1477: WHEN OTHERS THEN
1478: -- store SQL error message on message stack for caller
1479: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1475: x_return_status := Okc_Api.G_RET_STS_ERROR;
1476:
1477: WHEN OTHERS THEN
1478: -- store SQL error message on message stack for caller
1479: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1480: ,p_msg_name => g_unexpected_error
1481: ,p_token1 => g_sqlcode_token
1482: ,p_token1_value => SQLCODE
1483: ,p_token2 => g_sqlerrm_token
1483: ,p_token2 => g_sqlerrm_token
1484: ,p_token2_value => SQLERRM);
1485:
1486: -- notify caller of an UNEXPECTED error
1487: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1488:
1489: END Validate_AES_Id;
1490:
1491: ---------------------------------------------------------------------------
1502: ---------------------------------------------------------------------------
1503: PROCEDURE Validate_Object_Version_Number (p_tcnv_rec IN tcnv_rec_type
1504: ,x_return_status OUT NOCOPY VARCHAR2)
1505: IS
1506: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1507:
1508: BEGIN
1509: -- initialize return status
1510: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1506: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1507:
1508: BEGIN
1509: -- initialize return status
1510: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1511:
1512: -- check for data before processing
1513: IF (p_tcnv_rec.object_version_number IS NULL) OR
1514: (p_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
1510: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1511:
1512: -- check for data before processing
1513: IF (p_tcnv_rec.object_version_number IS NULL) OR
1514: (p_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
1515: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1516: ,p_msg_name => g_required_value
1517: ,p_token1 => g_col_name_token
1518: ,p_token1_value => 'object_version_number');
1511:
1512: -- check for data before processing
1513: IF (p_tcnv_rec.object_version_number IS NULL) OR
1514: (p_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
1515: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1516: ,p_msg_name => g_required_value
1517: ,p_token1 => g_col_name_token
1518: ,p_token1_value => 'object_version_number');
1519: x_return_status := Okc_Api.G_RET_STS_ERROR;
1515: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1516: ,p_msg_name => g_required_value
1517: ,p_token1 => g_col_name_token
1518: ,p_token1_value => 'object_version_number');
1519: x_return_status := Okc_Api.G_RET_STS_ERROR;
1520: RAISE G_EXCEPTION_HALT_VALIDATION;
1521: END IF;
1522:
1523: EXCEPTION
1527: NULL;
1528:
1529: WHEN OTHERS THEN
1530: -- store SQL error message on message stack for caller
1531: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1532: ,p_msg_name => g_unexpected_error
1533: ,p_token1 => g_sqlcode_token
1534: ,p_token1_value => SQLCODE
1535: ,p_token2 => g_sqlerrm_token
1535: ,p_token2 => g_sqlerrm_token
1536: ,p_token2_value => SQLERRM);
1537:
1538: -- notify caller of an UNEXPECTED error
1539: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1540:
1541: END Validate_Object_Version_Number;
1542:
1543: ---------------------------------------------------------------------------
1558: l_dummy VARCHAR2(1) := OKL_API.G_FALSE;
1559:
1560: BEGIN
1561: -- initialize return status
1562: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1563:
1564: -- check for data before processing
1565: IF (p_tcnv_rec.tcn_type IS NULL) OR
1566: (p_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR) THEN
1562: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1563:
1564: -- check for data before processing
1565: IF (p_tcnv_rec.tcn_type IS NULL) OR
1566: (p_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR) THEN
1567: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1568: ,p_msg_name => g_required_value
1569: ,p_token1 => g_col_name_token
1570: ,p_token1_value => 'tcn_type');
1563:
1564: -- check for data before processing
1565: IF (p_tcnv_rec.tcn_type IS NULL) OR
1566: (p_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR) THEN
1567: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1568: ,p_msg_name => g_required_value
1569: ,p_token1 => g_col_name_token
1570: ,p_token1_value => 'tcn_type');
1571: x_return_status := Okc_Api.G_RET_STS_ERROR;
1567: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1568: ,p_msg_name => g_required_value
1569: ,p_token1 => g_col_name_token
1570: ,p_token1_value => 'tcn_type');
1571: x_return_status := Okc_Api.G_RET_STS_ERROR;
1572: RAISE G_EXCEPTION_HALT_VALIDATION;
1573: END IF;
1574:
1575: -- check in fnd_lookups for validity
1578: (p_lookup_type => 'OKL_TCN_TYPE',
1579: p_lookup_code => p_tcnv_rec.tcn_type);
1580:
1581: IF (l_dummy = OKL_API.G_FALSE) THEN
1582: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1583: ,p_msg_name => g_invalid_value
1584: ,p_token1 => g_col_name_token
1585: ,p_token1_value => 'tcn_type');
1586: x_return_status := Okc_Api.G_RET_STS_ERROR;
1582: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1583: ,p_msg_name => g_invalid_value
1584: ,p_token1 => g_col_name_token
1585: ,p_token1_value => 'tcn_type');
1586: x_return_status := Okc_Api.G_RET_STS_ERROR;
1587: RAISE G_EXCEPTION_HALT_VALIDATION;
1588: END IF;
1589:
1590: EXCEPTION
1594: NULL;
1595:
1596: WHEN OTHERS THEN
1597: -- store SQL error message on message stack for caller
1598: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1599: ,p_msg_name => g_unexpected_error
1600: ,p_token1 => g_sqlcode_token
1601: ,p_token1_value => SQLCODE
1602: ,p_token2 => g_sqlerrm_token
1602: ,p_token2 => g_sqlerrm_token
1603: ,p_token2_value => SQLERRM);
1604:
1605: -- notify caller of an UNEXPECTED error
1606: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1607: END Validate_Tcn_Type;
1608:
1609:
1610: ---------------------------------------------------------------------------
1625: l_dummy VARCHAR2(1) := OKL_API.G_FALSE;
1626:
1627: BEGIN
1628: -- initialize return status
1629: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1630:
1631: -- check in fnd_lookups for validity
1632:
1633: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
1634: (p_lookup_type => 'OKL_REJECTION_REASON',
1635: p_lookup_code => p_tcnv_rec.rjn_code);
1636:
1637: IF (l_dummy = OKL_API.G_FALSE) THEN
1638: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1639: ,p_msg_name => g_invalid_value
1640: ,p_token1 => g_col_name_token
1641: ,p_token1_value => 'rjn_code');
1642: x_return_status := Okc_Api.G_RET_STS_ERROR;
1638: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1639: ,p_msg_name => g_invalid_value
1640: ,p_token1 => g_col_name_token
1641: ,p_token1_value => 'rjn_code');
1642: x_return_status := Okc_Api.G_RET_STS_ERROR;
1643: RAISE G_EXCEPTION_HALT_VALIDATION;
1644: END IF;
1645:
1646: EXCEPTION
1650: NULL;
1651:
1652: WHEN OTHERS THEN
1653: -- store SQL error message on message stack for caller
1654: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1655: ,p_msg_name => g_unexpected_error
1656: ,p_token1 => g_sqlcode_token
1657: ,p_token1_value => SQLCODE
1658: ,p_token2 => g_sqlerrm_token
1658: ,p_token2 => g_sqlerrm_token
1659: ,p_token2_value => SQLERRM);
1660:
1661: -- notify caller of an UNEXPECTED error
1662: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1663:
1664: END Validate_Rjn_Code;
1665:
1666:
1683: l_dummy VARCHAR2(1) := OKL_API.G_FALSE;
1684:
1685: BEGIN
1686: -- initialize return status
1687: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1688:
1689: -- check for data before processing
1690: IF (p_tcnv_rec.code_combination_id IS NOT NULL) AND
1691: (p_tcnv_rec.code_combination_id <> Okc_Api.G_MISS_NUM) THEN
1687: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1688:
1689: -- check for data before processing
1690: IF (p_tcnv_rec.code_combination_id IS NOT NULL) AND
1691: (p_tcnv_rec.code_combination_id <> Okc_Api.G_MISS_NUM) THEN
1692:
1693: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_GL_CCID(p_tcnv_rec.Code_Combination_Id);
1694:
1695: IF (l_dummy = OKL_API.G_FALSE) THEN
1692:
1693: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_GL_CCID(p_tcnv_rec.Code_Combination_Id);
1694:
1695: IF (l_dummy = OKL_API.G_FALSE) THEN
1696: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1697: ,p_msg_name => g_invalid_value
1698: ,p_token1 => g_col_name_token
1699: ,p_token1_value => 'code_Combination_id');
1700: x_return_status := Okc_Api.G_RET_STS_ERROR;
1696: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1697: ,p_msg_name => g_invalid_value
1698: ,p_token1 => g_col_name_token
1699: ,p_token1_value => 'code_Combination_id');
1700: x_return_status := Okc_Api.G_RET_STS_ERROR;
1701: RAISE G_EXCEPTION_HALT_VALIDATION;
1702: END IF;
1703: END IF;
1704:
1709: NULL;
1710:
1711: WHEN OTHERS THEN
1712: -- store SQL error message on message stack for caller
1713: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1714: ,p_msg_name => g_unexpected_error
1715: ,p_token1 => g_sqlcode_token
1716: ,p_token1_value => SQLCODE
1717: ,p_token2 => g_sqlerrm_token
1717: ,p_token2 => g_sqlerrm_token
1718: ,p_token2_value => SQLERRM);
1719:
1720: -- notify caller of an UNEXPECTED error
1721: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1722:
1723: END Validate_CCID;
1724:
1725:
1739: PROCEDURE Validate_Accrual_Status_YN(p_tcnv_rec IN tcnv_rec_type
1740: ,x_return_status OUT NOCOPY VARCHAR2)
1741: IS
1742:
1743: l_dummy VARCHAR2(1) := Okc_Api.G_FALSE;
1744: l_app_id NUMBER := 0;
1745: l_view_app_id NUMBER := 0;
1746:
1747: BEGIN
1745: l_view_app_id NUMBER := 0;
1746:
1747: BEGIN
1748: -- initialize return status
1749: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1750:
1751: -- check for data before processing
1752: IF (p_tcnv_rec.accrual_status_yn IS NOT NULL) AND
1753: (p_tcnv_rec.accrual_status_yn <> Okc_Api.G_MISS_CHAR) THEN
1749: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1750:
1751: -- check for data before processing
1752: IF (p_tcnv_rec.accrual_status_yn IS NOT NULL) AND
1753: (p_tcnv_rec.accrual_status_yn <> Okc_Api.G_MISS_CHAR) THEN
1754: -- check in fnd_lookups for validity
1755: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
1756: (p_lookup_type => 'YES_NO',
1757: p_lookup_code => p_tcnv_rec.accrual_status_yn,
1757: p_lookup_code => p_tcnv_rec.accrual_status_yn,
1758: p_app_id => l_app_id,
1759: p_view_app_id => l_view_app_id);
1760: IF (l_dummy = OKL_API.G_FALSE) THEN
1761: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1762: ,p_msg_name => g_invalid_value
1763: ,p_token1 => g_col_name_token
1764: ,p_token1_value => 'accrual_status_yn');
1765: x_return_status := Okc_Api.G_RET_STS_ERROR;
1761: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1762: ,p_msg_name => g_invalid_value
1763: ,p_token1 => g_col_name_token
1764: ,p_token1_value => 'accrual_status_yn');
1765: x_return_status := Okc_Api.G_RET_STS_ERROR;
1766: RAISE G_EXCEPTION_HALT_VALIDATION;
1767: END IF;
1768: END IF;
1769:
1774: NULL;
1775:
1776: WHEN OTHERS THEN
1777: -- store SQL error message on message stack for caller
1778: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1779: p_msg_name => g_unexpected_error,
1780: p_token1 => g_sqlcode_token,
1781: p_token1_value => SQLCODE,
1782: p_token2 => g_sqlerrm_token,
1782: p_token2 => g_sqlerrm_token,
1783: p_token2_value => SQLERRM);
1784:
1785: -- notify caller of an UNEXPECTED error
1786: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1787:
1788: END Validate_Accrual_Status_YN;
1789:
1790: ---------------------------------------------------------------------------
1802: PROCEDURE Validate_Update_Status_YN(p_tcnv_rec IN tcnv_rec_type
1803: ,x_return_status OUT NOCOPY VARCHAR2)
1804: IS
1805:
1806: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1807: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
1808: l_app_id NUMBER := 0;
1809: l_view_app_id NUMBER := 0;
1810:
1803: ,x_return_status OUT NOCOPY VARCHAR2)
1804: IS
1805:
1806: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1807: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
1808: l_app_id NUMBER := 0;
1809: l_view_app_id NUMBER := 0;
1810:
1811:
1810:
1811:
1812: BEGIN
1813: -- initialize return status
1814: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1815:
1816: -- check for data before processing
1817: IF (p_tcnv_rec.update_status_yn IS NOT NULL) AND
1818: (p_tcnv_rec.update_status_yn <> Okc_Api.G_MISS_CHAR) THEN
1814: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1815:
1816: -- check for data before processing
1817: IF (p_tcnv_rec.update_status_yn IS NOT NULL) AND
1818: (p_tcnv_rec.update_status_yn <> Okc_Api.G_MISS_CHAR) THEN
1819: -- check in fnd_lookups for validity
1820: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
1821: (p_lookup_type => 'YES_NO',
1822: p_lookup_code => p_tcnv_rec.update_status_yn,
1823: p_app_id => l_app_id,
1824: p_view_app_id => l_view_app_id);
1825:
1826: IF (l_dummy = OKL_API.G_FALSE) THEN
1827: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1828: ,p_msg_name => g_invalid_value
1829: ,p_token1 => g_col_name_token
1830: ,p_token1_value => 'update_status_yn');
1831: x_return_status := Okc_Api.G_RET_STS_ERROR;
1827: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1828: ,p_msg_name => g_invalid_value
1829: ,p_token1 => g_col_name_token
1830: ,p_token1_value => 'update_status_yn');
1831: x_return_status := Okc_Api.G_RET_STS_ERROR;
1832: RAISE G_EXCEPTION_HALT_VALIDATION;
1833: END IF;
1834:
1835: END IF;
1842: NULL;
1843:
1844: WHEN OTHERS THEN
1845: -- store SQL error message on message stack for caller
1846: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1847: p_msg_name => g_unexpected_error,
1848: p_token1 => g_sqlcode_token,
1849: p_token1_value => SQLCODE,
1850: p_token2 => g_sqlerrm_token,
1850: p_token2 => g_sqlerrm_token,
1851: p_token2_value => SQLERRM);
1852:
1853: -- notify caller of an UNEXPECTED error
1854: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1855:
1856: END Validate_Update_Status_YN;
1857:
1858: -- Added DJANASWA 02-Feb-2007 SLA project begin
1871: PROCEDURE Validate_Account_Reversal_YN (p_tcnv_rec IN tcnv_rec_type
1872: ,x_return_status OUT NOCOPY VARCHAR2)
1873: IS
1874:
1875: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1876: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
1877: l_app_id NUMBER := 0;
1878: l_view_app_id NUMBER := 0;
1879:
1872: ,x_return_status OUT NOCOPY VARCHAR2)
1873: IS
1874:
1875: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1876: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
1877: l_app_id NUMBER := 0;
1878: l_view_app_id NUMBER := 0;
1879:
1880:
1879:
1880:
1881: BEGIN
1882: -- initialize return status
1883: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1884:
1885: -- check for data before processing
1886: IF (p_tcnv_rec.Accounting_Reversal_YN IS NOT NULL) AND
1887: (p_tcnv_rec.Accounting_Reversal_YN <> Okc_Api.G_MISS_CHAR) THEN
1883: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1884:
1885: -- check for data before processing
1886: IF (p_tcnv_rec.Accounting_Reversal_YN IS NOT NULL) AND
1887: (p_tcnv_rec.Accounting_Reversal_YN <> Okc_Api.G_MISS_CHAR) THEN
1888: -- check in fnd_lookups for validity
1889: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
1890: (p_lookup_type => 'YES_NO',
1891: p_lookup_code => p_tcnv_rec.Accounting_Reversal_YN,
1892: p_app_id => l_app_id,
1893: p_view_app_id => l_view_app_id);
1894:
1895: IF (l_dummy = OKL_API.G_FALSE) THEN
1896: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1897: ,p_msg_name => g_invalid_value
1898: ,p_token1 => g_col_name_token
1899: ,p_token1_value => 'Accounting_Reversal_YN');
1900: x_return_status := Okc_Api.G_RET_STS_ERROR;
1896: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1897: ,p_msg_name => g_invalid_value
1898: ,p_token1 => g_col_name_token
1899: ,p_token1_value => 'Accounting_Reversal_YN');
1900: x_return_status := Okc_Api.G_RET_STS_ERROR;
1901: RAISE G_EXCEPTION_HALT_VALIDATION;
1902: END IF;
1903:
1904: END IF;
1911: NULL;
1912:
1913: WHEN OTHERS THEN
1914: -- store SQL error message on message stack for caller
1915: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1916: p_msg_name => g_unexpected_error,
1917: p_token1 => g_sqlcode_token,
1918: p_token1_value => SQLCODE,
1919: p_token2 => g_sqlerrm_token,
1919: p_token2 => g_sqlerrm_token,
1920: p_token2_value => SQLERRM);
1921:
1922: -- notify caller of an UNEXPECTED error
1923: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1924:
1925: END Validate_Account_Reversal_YN;
1926: -- Added DJANASWA 02-Feb-2007 SLA project end
1927:
1940: PROCEDURE Validate_Tax_Deductible_Local(p_tcnv_rec IN tcnv_rec_type
1941: ,x_return_status OUT NOCOPY VARCHAR2)
1942: IS
1943:
1944: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
1945: l_app_id NUMBER := 0;
1946: l_view_app_id NUMBER := 0;
1947:
1948: BEGIN
1946: l_view_app_id NUMBER := 0;
1947:
1948: BEGIN
1949: -- initialize return status
1950: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1951:
1952: -- check for data before processing
1953: IF (p_tcnv_rec.tax_deductible_local IS NOT NULL) AND
1954: (p_tcnv_rec.tax_deductible_local <> Okc_Api.G_MISS_CHAR) THEN
1950: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
1951:
1952: -- check for data before processing
1953: IF (p_tcnv_rec.tax_deductible_local IS NOT NULL) AND
1954: (p_tcnv_rec.tax_deductible_local <> Okc_Api.G_MISS_CHAR) THEN
1955: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
1956: (p_lookup_type => 'YES_NO',
1957: p_lookup_code => p_tcnv_rec.tax_deductible_local,
1958: p_app_id => l_app_id,
1958: p_app_id => l_app_id,
1959: p_view_app_id => l_view_app_id);
1960:
1961: IF (l_dummy = OKL_API.G_FALSE) THEN
1962: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1963: ,p_msg_name => g_invalid_value
1964: ,p_token1 => g_col_name_token
1965: ,p_token1_value => 'tax_deductible_local');
1966: x_return_status := Okc_Api.G_RET_STS_ERROR;
1962: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
1963: ,p_msg_name => g_invalid_value
1964: ,p_token1 => g_col_name_token
1965: ,p_token1_value => 'tax_deductible_local');
1966: x_return_status := Okc_Api.G_RET_STS_ERROR;
1967: RAISE G_EXCEPTION_HALT_VALIDATION;
1968: END IF;
1969:
1970: END IF;
1977: NULL;
1978:
1979: WHEN OTHERS THEN
1980: -- store SQL error message on message stack for caller
1981: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
1982: p_msg_name => g_unexpected_error,
1983: p_token1 => g_sqlcode_token,
1984: p_token1_value => SQLCODE,
1985: p_token2 => g_sqlerrm_token,
1985: p_token2 => g_sqlerrm_token,
1986: p_token2_value => SQLERRM);
1987:
1988: -- notify caller of an UNEXPECTED error
1989: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
1990:
1991: END Validate_Tax_Deductible_Local;
1992:
1993:
2006: PROCEDURE validate_tax_deductible_corp(p_tcnv_rec IN tcnv_rec_type
2007: ,x_return_status OUT NOCOPY VARCHAR2)
2008: IS
2009:
2010: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2011: l_app_id NUMBER := 0;
2012: l_view_app_id NUMBER := 0;
2013:
2014: BEGIN
2012: l_view_app_id NUMBER := 0;
2013:
2014: BEGIN
2015: -- initialize return status
2016: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2017:
2018: -- check for data before processing
2019:
2020: IF (p_tcnv_rec.tax_deductible_corporate IS NOT NULL) AND
2017:
2018: -- check for data before processing
2019:
2020: IF (p_tcnv_rec.tax_deductible_corporate IS NOT NULL) AND
2021: (p_tcnv_rec.tax_deductible_corporate <> Okc_Api.G_MISS_CHAR) THEN
2022:
2023: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2024: (p_lookup_type => 'YES_NO',
2025: p_lookup_code => p_tcnv_rec.tax_deductible_corporate,
2026: p_app_id => l_app_id,
2027: p_view_app_id => l_view_app_id);
2028:
2029: IF (l_dummy = OKL_API.G_FALSE) THEN
2030: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2031: ,p_msg_name => g_invalid_value
2032: ,p_token1 => g_col_name_token
2033: ,p_token1_value => 'tax_deductible_corporate');
2034: x_return_status := Okc_Api.G_RET_STS_ERROR;
2030: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2031: ,p_msg_name => g_invalid_value
2032: ,p_token1 => g_col_name_token
2033: ,p_token1_value => 'tax_deductible_corporate');
2034: x_return_status := Okc_Api.G_RET_STS_ERROR;
2035: RAISE G_EXCEPTION_HALT_VALIDATION;
2036:
2037: END IF;
2038:
2046: NULL;
2047:
2048: WHEN OTHERS THEN
2049: -- store SQL error message on message stack for caller
2050: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2051: p_msg_name => g_unexpected_error,
2052: p_token1 => g_sqlcode_token,
2053: p_token1_value => SQLCODE,
2054: p_token2 => g_sqlerrm_token,
2054: p_token2 => g_sqlerrm_token,
2055: p_token2_value => SQLERRM);
2056:
2057: -- notify caller of an UNEXPECTED error
2058: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2059:
2060: END validate_tax_deductible_corp;
2061:
2062:
2075: PROCEDURE Validate_RBR_Code(p_tcnv_rec IN tcnv_rec_type
2076: ,x_return_status OUT NOCOPY VARCHAR2)
2077: IS
2078:
2079: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2080:
2081: BEGIN
2082: -- initialize return status
2083: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2079: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2080:
2081: BEGIN
2082: -- initialize return status
2083: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2084:
2085: -- check for data before processing
2086:
2087: IF (p_tcnv_rec.RBR_CODE IS NOT NULL) AND
2084:
2085: -- check for data before processing
2086:
2087: IF (p_tcnv_rec.RBR_CODE IS NOT NULL) AND
2088: (p_tcnv_rec.RBR_CODE <> Okc_Api.G_MISS_CHAR) THEN
2089:
2090: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2091: (p_lookup_type => 'OKL_REBOOK_REASON',
2092: p_lookup_code => p_tcnv_rec.RBR_CODE);
2091: (p_lookup_type => 'OKL_REBOOK_REASON',
2092: p_lookup_code => p_tcnv_rec.RBR_CODE);
2093:
2094: IF (l_dummy = OKL_API.G_FALSE) THEN
2095: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2096: ,p_msg_name => g_invalid_value
2097: ,p_token1 => g_col_name_token
2098: ,p_token1_value => 'RBR_CODE');
2099: x_return_status := Okc_Api.G_RET_STS_ERROR;
2095: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2096: ,p_msg_name => g_invalid_value
2097: ,p_token1 => g_col_name_token
2098: ,p_token1_value => 'RBR_CODE');
2099: x_return_status := Okc_Api.G_RET_STS_ERROR;
2100: RAISE G_EXCEPTION_HALT_VALIDATION;
2101:
2102: END IF;
2103:
2111: NULL;
2112:
2113: WHEN OTHERS THEN
2114: -- store SQL error message on message stack for caller
2115: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2116: p_msg_name => g_unexpected_error,
2117: p_token1 => g_sqlcode_token,
2118: p_token1_value => SQLCODE,
2119: p_token2 => g_sqlerrm_token,
2119: p_token2 => g_sqlerrm_token,
2120: p_token2_value => SQLERRM);
2121:
2122: -- notify caller of an UNEXPECTED error
2123: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2124:
2125: END Validate_RBR_Code;
2126:
2127:
2140: PROCEDURE Validate_RPY_Code(p_tcnv_rec IN tcnv_rec_type
2141: ,x_return_status OUT NOCOPY VARCHAR2)
2142: IS
2143:
2144: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2145:
2146: BEGIN
2147: -- initialize return status
2148: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2144: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2145:
2146: BEGIN
2147: -- initialize return status
2148: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2149:
2150: -- check for data before processing
2151:
2152: IF (p_tcnv_rec.RPY_CODE IS NOT NULL) AND
2149:
2150: -- check for data before processing
2151:
2152: IF (p_tcnv_rec.RPY_CODE IS NOT NULL) AND
2153: (p_tcnv_rec.RPY_CODE <> Okc_Api.G_MISS_CHAR) THEN
2154:
2155: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2156: (p_lookup_type => 'OKL_REBOOK_PROCESS_TYPE',
2157: p_lookup_code => p_tcnv_rec.RPY_CODE);
2156: (p_lookup_type => 'OKL_REBOOK_PROCESS_TYPE',
2157: p_lookup_code => p_tcnv_rec.RPY_CODE);
2158:
2159: IF (l_dummy = OKL_API.G_FALSE) THEN
2160: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2161: ,p_msg_name => g_invalid_value
2162: ,p_token1 => g_col_name_token
2163: ,p_token1_value => 'RPY_CODE');
2164: x_return_status := Okc_Api.G_RET_STS_ERROR;
2160: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2161: ,p_msg_name => g_invalid_value
2162: ,p_token1 => g_col_name_token
2163: ,p_token1_value => 'RPY_CODE');
2164: x_return_status := Okc_Api.G_RET_STS_ERROR;
2165: RAISE G_EXCEPTION_HALT_VALIDATION;
2166:
2167: END IF;
2168:
2176: NULL;
2177:
2178: WHEN OTHERS THEN
2179: -- store SQL error message on message stack for caller
2180: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2181: p_msg_name => g_unexpected_error,
2182: p_token1 => g_sqlcode_token,
2183: p_token1_value => SQLCODE,
2184: p_token2 => g_sqlerrm_token,
2184: p_token2 => g_sqlerrm_token,
2185: p_token2_value => SQLERRM);
2186:
2187: -- notify caller of an UNEXPECTED error
2188: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2189:
2190: END Validate_RPY_Code;
2191:
2192: ---------------------------------------------------------------------------
2204: PROCEDURE Validate_RVN_Code(p_tcnv_rec IN tcnv_rec_type
2205: ,x_return_status OUT NOCOPY VARCHAR2)
2206: IS
2207:
2208: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2209:
2210: BEGIN
2211: -- initialize return status
2212: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2208: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2209:
2210: BEGIN
2211: -- initialize return status
2212: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2213:
2214: -- check for data before processing
2215:
2216: IF (p_tcnv_rec.RVN_CODE IS NOT NULL) AND
2213:
2214: -- check for data before processing
2215:
2216: IF (p_tcnv_rec.RVN_CODE IS NOT NULL) AND
2217: (p_tcnv_rec.RVN_CODE <> Okc_Api.G_MISS_CHAR) THEN
2218:
2219: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2220: (p_lookup_type => 'OKL_REVERSE_REASON',
2221: p_lookup_code => p_tcnv_rec.RVN_CODE);
2220: (p_lookup_type => 'OKL_REVERSE_REASON',
2221: p_lookup_code => p_tcnv_rec.RVN_CODE);
2222:
2223: IF (l_dummy = OKL_API.G_FALSE) THEN
2224: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2225: ,p_msg_name => g_invalid_value
2226: ,p_token1 => g_col_name_token
2227: ,p_token1_value => 'RVN_CODE');
2228: x_return_status := Okc_Api.G_RET_STS_ERROR;
2224: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2225: ,p_msg_name => g_invalid_value
2226: ,p_token1 => g_col_name_token
2227: ,p_token1_value => 'RVN_CODE');
2228: x_return_status := Okc_Api.G_RET_STS_ERROR;
2229: RAISE G_EXCEPTION_HALT_VALIDATION;
2230:
2231: END IF;
2232:
2240: NULL;
2241:
2242: WHEN OTHERS THEN
2243: -- store SQL error message on message stack for caller
2244: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2245: p_msg_name => g_unexpected_error,
2246: p_token1 => g_sqlcode_token,
2247: p_token1_value => SQLCODE,
2248: p_token2 => g_sqlerrm_token,
2248: p_token2 => g_sqlerrm_token,
2249: p_token2_value => SQLERRM);
2250:
2251: -- notify caller of an UNEXPECTED error
2252: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2253:
2254: END Validate_RVN_Code;
2255:
2256:
2269: PROCEDURE Validate_TSU_Code(p_tcnv_rec IN tcnv_rec_type
2270: ,x_return_status OUT NOCOPY VARCHAR2)
2271: IS
2272:
2273: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2274:
2275: BEGIN
2276: -- initialize return status
2277: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2273: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2274:
2275: BEGIN
2276: -- initialize return status
2277: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2278:
2279: -- check for data before processing
2280: IF (p_tcnv_rec.tsu_code IS NULL) OR
2281: (p_tcnv_rec.tsu_code = OKC_API.G_MISS_CHAR) THEN
2277: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2278:
2279: -- check for data before processing
2280: IF (p_tcnv_rec.tsu_code IS NULL) OR
2281: (p_tcnv_rec.tsu_code = OKC_API.G_MISS_CHAR) THEN
2282: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2283: p_msg_name => g_required_value,
2284: p_token1 => g_col_name_token,
2285: p_token1_value => 'TSU_CODE');
2278:
2279: -- check for data before processing
2280: IF (p_tcnv_rec.tsu_code IS NULL) OR
2281: (p_tcnv_rec.tsu_code = OKC_API.G_MISS_CHAR) THEN
2282: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2283: p_msg_name => g_required_value,
2284: p_token1 => g_col_name_token,
2285: p_token1_value => 'TSU_CODE');
2286:
2283: p_msg_name => g_required_value,
2284: p_token1 => g_col_name_token,
2285: p_token1_value => 'TSU_CODE');
2286:
2287: x_return_status := OKC_API.G_RET_STS_ERROR;
2288: RAISE G_EXCEPTION_HALT_VALIDATION;
2289: END IF;
2290:
2291: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2292: (p_lookup_type => 'OKL_TRANSACTION_STATUS',
2293: p_lookup_code => p_tcnv_rec.TSU_CODE);
2294:
2295: IF (l_dummy = OKL_API.G_FALSE) THEN
2296: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2297: ,p_msg_name => g_invalid_value
2298: ,p_token1 => g_col_name_token
2299: ,p_token1_value => 'TSU_CODE');
2300: x_return_status := Okc_Api.G_RET_STS_ERROR;
2296: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2297: ,p_msg_name => g_invalid_value
2298: ,p_token1 => g_col_name_token
2299: ,p_token1_value => 'TSU_CODE');
2300: x_return_status := Okc_Api.G_RET_STS_ERROR;
2301: RAISE G_EXCEPTION_HALT_VALIDATION;
2302:
2303: END IF;
2304:
2310: NULL;
2311:
2312: WHEN OTHERS THEN
2313: -- store SQL error message on message stack for caller
2314: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2315: p_msg_name => g_unexpected_error,
2316: p_token1 => g_sqlcode_token,
2317: p_token1_value => SQLCODE,
2318: p_token2 => g_sqlerrm_token,
2318: p_token2 => g_sqlerrm_token,
2319: p_token2_value => SQLERRM);
2320:
2321: -- notify caller of an UNEXPECTED error
2322: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2323:
2324: END Validate_TSU_Code;
2325:
2326:
2339: PROCEDURE Validate_TRN_Code(p_tcnv_rec IN tcnv_rec_type
2340: ,x_return_status OUT NOCOPY VARCHAR2)
2341: IS
2342:
2343: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2344: l_app_id NUMBER := 510;
2345: l_view_app_id NUMBER := 0;
2346:
2347: BEGIN
2345: l_view_app_id NUMBER := 0;
2346:
2347: BEGIN
2348: -- initialize return status
2349: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2350:
2351: -- check for data before processing
2352:
2353: IF (p_tcnv_rec.TRN_CODE IS NOT NULL) AND
2350:
2351: -- check for data before processing
2352:
2353: IF (p_tcnv_rec.TRN_CODE IS NOT NULL) AND
2354: (p_tcnv_rec.TRN_CODE <> Okc_Api.G_MISS_CHAR) THEN
2355:
2356: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2357: (p_lookup_type => 'OKC_TERMINATION_REASON',
2358: p_lookup_code => p_tcnv_rec.TRN_CODE,
2359: p_app_id => l_app_id,
2360: p_view_app_id => l_view_app_id);
2361:
2362: IF (l_dummy = OKL_API.G_FALSE) THEN
2363: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2364: ,p_msg_name => g_invalid_value
2365: ,p_token1 => g_col_name_token
2366: ,p_token1_value => 'TRN_CODE');
2367: x_return_status := Okc_Api.G_RET_STS_ERROR;
2363: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2364: ,p_msg_name => g_invalid_value
2365: ,p_token1 => g_col_name_token
2366: ,p_token1_value => 'TRN_CODE');
2367: x_return_status := Okc_Api.G_RET_STS_ERROR;
2368: RAISE G_EXCEPTION_HALT_VALIDATION;
2369:
2370: END IF;
2371:
2379: NULL;
2380:
2381: WHEN OTHERS THEN
2382: -- store SQL error message on message stack for caller
2383: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2384: p_msg_name => g_unexpected_error,
2385: p_token1 => g_sqlcode_token,
2386: p_token1_value => SQLCODE,
2387: p_token2 => g_sqlerrm_token,
2387: p_token2 => g_sqlerrm_token,
2388: p_token2_value => SQLERRM);
2389:
2390: -- notify caller of an UNEXPECTED error
2391: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2392:
2393: END Validate_TRN_Code;
2394:
2395: ---------------------------------------------------------------------------
2411: l_Dummy VARCHAR2(1) := OKL_API.G_FALSE;
2412:
2413: BEGIN
2414: -- initialize return status
2415: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2416:
2417: -- check for data before processing
2418: IF (p_tcnv_rec.currency_code IS NULL) OR
2419: (p_tcnv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
2415: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2416:
2417: -- check for data before processing
2418: IF (p_tcnv_rec.currency_code IS NULL) OR
2419: (p_tcnv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
2420: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2421: p_msg_name => g_required_value,
2422: p_token1 => g_col_name_token,
2423: p_token1_value => 'CURRENCY_CODE');
2416:
2417: -- check for data before processing
2418: IF (p_tcnv_rec.currency_code IS NULL) OR
2419: (p_tcnv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
2420: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2421: p_msg_name => g_required_value,
2422: p_token1 => g_col_name_token,
2423: p_token1_value => 'CURRENCY_CODE');
2424:
2421: p_msg_name => g_required_value,
2422: p_token1 => g_col_name_token,
2423: p_token1_value => 'CURRENCY_CODE');
2424:
2425: x_return_status := OKC_API.G_RET_STS_ERROR;
2426: RAISE G_EXCEPTION_HALT_VALIDATION;
2427: END IF;
2428:
2429: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_CURRENCY_CODE (p_tcnv_rec.currency_code);
2428:
2429: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_CURRENCY_CODE (p_tcnv_rec.currency_code);
2430:
2431: IF (l_dummy = okl_api.g_false) THEN
2432: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2433: p_msg_name => g_invalid_value,
2434: p_token1 => g_col_name_token,
2435: p_token1_value => 'CURRENCY_CODE');
2436: x_return_status := Okc_Api.G_RET_STS_ERROR;
2432: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2433: p_msg_name => g_invalid_value,
2434: p_token1 => g_col_name_token,
2435: p_token1_value => 'CURRENCY_CODE');
2436: x_return_status := Okc_Api.G_RET_STS_ERROR;
2437: RAISE G_EXCEPTION_HALT_VALIDATION;
2438: END IF;
2439:
2440:
2445: NULL;
2446:
2447: WHEN OTHERS THEN
2448: -- store SQL error message on message stack for caller
2449: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2450: p_msg_name => g_unexpected_error,
2451: p_token1 => g_sqlcode_token,
2452: p_token1_value => SQLCODE,
2453: p_token2 => g_sqlerrm_token,
2453: p_token2 => g_sqlerrm_token,
2454: p_token2_value => SQLERRM);
2455:
2456: -- notify caller of an UNEXPECTED error
2457: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2458:
2459: END Validate_currency_code;
2460:
2461:
2485:
2486:
2487: BEGIN
2488: -- initialize return status
2489: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2490:
2491: -- check for data before processing
2492: IF (p_tcnv_rec.Try_id IS NULL) OR
2493: (p_tcnv_rec.TRY_id = Okc_Api.G_MISS_NUM) THEN
2489: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2490:
2491: -- check for data before processing
2492: IF (p_tcnv_rec.Try_id IS NULL) OR
2493: (p_tcnv_rec.TRY_id = Okc_Api.G_MISS_NUM) THEN
2494: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2495: ,p_msg_name => g_required_value
2496: ,p_token1 => g_col_name_token
2497: ,p_token1_value => 'TRY_ID');
2490:
2491: -- check for data before processing
2492: IF (p_tcnv_rec.Try_id IS NULL) OR
2493: (p_tcnv_rec.TRY_id = Okc_Api.G_MISS_NUM) THEN
2494: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2495: ,p_msg_name => g_required_value
2496: ,p_token1 => g_col_name_token
2497: ,p_token1_value => 'TRY_ID');
2498: x_return_status := Okc_Api.G_RET_STS_ERROR;
2494: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2495: ,p_msg_name => g_required_value
2496: ,p_token1 => g_col_name_token
2497: ,p_token1_value => 'TRY_ID');
2498: x_return_status := Okc_Api.G_RET_STS_ERROR;
2499: RAISE G_EXCEPTION_HALT_VALIDATION;
2500: END IF;
2501:
2502: OPEN try_csr(p_tcnv_rec.TRY_ID);
2501:
2502: OPEN try_csr(p_tcnv_rec.TRY_ID);
2503: FETCH try_csr INTO l_dummy;
2504: IF (try_csr%NOTFOUND) THEN
2505: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2506: ,p_msg_name => g_invalid_value
2507: ,p_token1 => g_col_name_token
2508: ,p_token1_value => 'TRY_ID');
2509: x_return_status := Okc_Api.G_RET_STS_ERROR;
2505: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2506: ,p_msg_name => g_invalid_value
2507: ,p_token1 => g_col_name_token
2508: ,p_token1_value => 'TRY_ID');
2509: x_return_status := Okc_Api.G_RET_STS_ERROR;
2510: CLOSE try_csr;
2511: RAISE G_EXCEPTION_HALT_VALIDATION;
2512: END IF;
2513: CLOSE try_csr;
2520: NULL;
2521:
2522: WHEN OTHERS THEN
2523: -- store SQL error message on message stack for caller
2524: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2525: ,p_msg_name => g_unexpected_error
2526: ,p_token1 => g_sqlcode_token
2527: ,p_token1_value => SQLCODE
2528: ,p_token2 => g_sqlerrm_token
2528: ,p_token2 => g_sqlerrm_token
2529: ,p_token2_value => SQLERRM);
2530:
2531: -- notify caller of an UNEXPECTED error
2532: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2533:
2534: END Validate_TRY_Id;
2535:
2536:
2548: ---------------------------------------------------------------------------
2549: PROCEDURE Validate_Date_Transaction (p_tcnv_rec IN tcnv_rec_type
2550: ,x_return_status OUT NOCOPY VARCHAR2)
2551: IS
2552: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2553:
2554: BEGIN
2555: -- initialize return status
2556: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2552: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2553:
2554: BEGIN
2555: -- initialize return status
2556: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2557:
2558: -- check for data before processing
2559: IF (p_tcnv_rec.date_transaction_occurred IS NULL) OR
2560: (p_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE) THEN
2556: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2557:
2558: -- check for data before processing
2559: IF (p_tcnv_rec.date_transaction_occurred IS NULL) OR
2560: (p_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE) THEN
2561: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2562: ,p_msg_name => g_required_value
2563: ,p_token1 => g_col_name_token
2564: ,p_token1_value => 'Date_Transaction_Occurred');
2557:
2558: -- check for data before processing
2559: IF (p_tcnv_rec.date_transaction_occurred IS NULL) OR
2560: (p_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE) THEN
2561: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2562: ,p_msg_name => g_required_value
2563: ,p_token1 => g_col_name_token
2564: ,p_token1_value => 'Date_Transaction_Occurred');
2565: x_return_status := Okc_Api.G_RET_STS_ERROR;
2561: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2562: ,p_msg_name => g_required_value
2563: ,p_token1 => g_col_name_token
2564: ,p_token1_value => 'Date_Transaction_Occurred');
2565: x_return_status := Okc_Api.G_RET_STS_ERROR;
2566: RAISE G_EXCEPTION_HALT_VALIDATION;
2567: END IF;
2568:
2569: EXCEPTION
2573: NULL;
2574:
2575: WHEN OTHERS THEN
2576: -- store SQL error message on message stack for caller
2577: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2578: ,p_msg_name => g_unexpected_error
2579: ,p_token1 => g_sqlcode_token
2580: ,p_token1_value => SQLCODE
2581: ,p_token2 => g_sqlerrm_token
2581: ,p_token2 => g_sqlerrm_token
2582: ,p_token2_value => SQLERRM);
2583:
2584: -- notify caller of an UNEXPECTED error
2585: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2586:
2587: END Validate_Date_Transaction;
2588:
2589:
2601: ---------------------------------------------------------------------------
2602: PROCEDURE Validate_Trx_number (p_tcnv_rec IN tcnv_rec_type
2603: ,x_return_status OUT NOCOPY VARCHAR2)
2604: IS
2605: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2606: l_trx_number OKL_TRX_CONTRACTS.TRX_NUMBER%TYPE;
2607:
2608: CURSOR tcn_csr(v_trx_number VARCHAR2,
2609: v_id NUMBER, v_rep_code VARCHAR2) IS
2614: AND id <> v_id;
2615:
2616: BEGIN
2617: -- initialize return status
2618: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2619:
2620: -- check for data before processing
2621: IF (p_tcnv_rec.trx_number IS NULL) OR
2622: (p_tcnv_rec.trx_number = Okc_Api.G_MISS_CHAR) THEN
2618: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2619:
2620: -- check for data before processing
2621: IF (p_tcnv_rec.trx_number IS NULL) OR
2622: (p_tcnv_rec.trx_number = Okc_Api.G_MISS_CHAR) THEN
2623: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2624: ,p_msg_name => g_required_value
2625: ,p_token1 => g_col_name_token
2626: ,p_token1_value => 'trx_number');
2619:
2620: -- check for data before processing
2621: IF (p_tcnv_rec.trx_number IS NULL) OR
2622: (p_tcnv_rec.trx_number = Okc_Api.G_MISS_CHAR) THEN
2623: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2624: ,p_msg_name => g_required_value
2625: ,p_token1 => g_col_name_token
2626: ,p_token1_value => 'trx_number');
2627: x_return_status := Okc_Api.G_RET_STS_ERROR;
2623: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2624: ,p_msg_name => g_required_value
2625: ,p_token1 => g_col_name_token
2626: ,p_token1_value => 'trx_number');
2627: x_return_status := Okc_Api.G_RET_STS_ERROR;
2628: RAISE G_EXCEPTION_HALT_VALIDATION;
2629: END IF;
2630:
2631: OPEN tcn_csr(p_tcnv_rec.trx_number,
2631: OPEN tcn_csr(p_tcnv_rec.trx_number,
2632: p_tcnv_rec.ID, p_tcnv_rec.representation_code);
2633: FETCH tcn_csr INTO l_trx_number;
2634: IF (tcn_csr%FOUND) THEN
2635: OKC_API.SET_MESSAGE(p_app_name => 'OKL' ,
2636: p_msg_name => 'OKL_TRX_NUM_NOT_UNIQUE',
2637: p_token1 => 'TRX_NUMBER',
2638: p_token1_value => p_tcnv_rec.trx_number);
2639:
2636: p_msg_name => 'OKL_TRX_NUM_NOT_UNIQUE',
2637: p_token1 => 'TRX_NUMBER',
2638: p_token1_value => p_tcnv_rec.trx_number);
2639:
2640: x_return_status := Okc_Api.G_RET_STS_ERROR;
2641: CLOSE tcn_csr;
2642: RAISE G_EXCEPTION_HALT_VALIDATION;
2643: END IF;
2644: CLOSE tcn_csr;
2650: NULL;
2651:
2652: WHEN OTHERS THEN
2653: -- store SQL error message on message stack for caller
2654: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2655: ,p_msg_name => g_unexpected_error
2656: ,p_token1 => g_sqlcode_token
2657: ,p_token1_value => SQLCODE
2658: ,p_token2 => g_sqlerrm_token
2658: ,p_token2 => g_sqlerrm_token
2659: ,p_token2_value => SQLERRM);
2660:
2661: -- notify caller of an UNEXPECTED error
2662: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2663:
2664: END Validate_trx_number;
2665:
2666:
2680: PROCEDURE Validate_Terminate_Attribs(p_tcnv_rec IN tcnv_rec_type
2681: ,x_return_status OUT NOCOPY VARCHAR2)
2682: IS
2683:
2684: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
2685: l_app_id NUMBER := 0;
2686: l_view_app_id NUMBER := 0;
2687:
2688: BEGIN
2686: l_view_app_id NUMBER := 0;
2687:
2688: BEGIN
2689: -- initialize return status
2690: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2691:
2692: -- check for data before processing
2693:
2694: IF (p_tcnv_rec.TMT_EVERGREEN_YN IS NOT NULL) AND
2691:
2692: -- check for data before processing
2693:
2694: IF (p_tcnv_rec.TMT_EVERGREEN_YN IS NOT NULL) AND
2695: (p_tcnv_rec.TMT_EVERGREEN_YN <> Okc_Api.G_MISS_CHAR) THEN
2696:
2697: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2698: (p_lookup_type => 'YES_NO',
2699: p_lookup_code => p_tcnv_rec.TMT_EVERGREEN_YN,
2700: p_app_id => l_app_id,
2701: p_view_app_id => l_view_app_id);
2702:
2703: IF (l_dummy = OKL_API.G_FALSE) THEN
2704: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2705: ,p_msg_name => g_invalid_value
2706: ,p_token1 => g_col_name_token
2707: ,p_token1_value => 'TMT_EVERGREEN_YN');
2708: x_return_status := Okc_Api.G_RET_STS_ERROR;
2704: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2705: ,p_msg_name => g_invalid_value
2706: ,p_token1 => g_col_name_token
2707: ,p_token1_value => 'TMT_EVERGREEN_YN');
2708: x_return_status := Okc_Api.G_RET_STS_ERROR;
2709:
2710: END IF;
2711:
2712: END IF;
2712: END IF;
2713:
2714:
2715: IF (p_tcnv_rec.TMT_CLOSE_BALANCES_YN IS NOT NULL) AND
2716: (p_tcnv_rec.TMT_CLOSE_BALANCES_YN <> Okc_Api.G_MISS_CHAR) THEN
2717:
2718: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2719: (p_lookup_type => 'YES_NO',
2720: p_lookup_code => p_tcnv_rec.TMT_CLOSE_BALANCES_YN,
2721: p_app_id => l_app_id,
2722: p_view_app_id => l_view_app_id);
2723:
2724: IF (l_dummy = OKL_API.G_FALSE) THEN
2725: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2726: ,p_msg_name => g_invalid_value
2727: ,p_token1 => g_col_name_token
2728: ,p_token1_value => 'TMT_CLOSE_BALANCES_YN');
2729: x_return_status := Okc_Api.G_RET_STS_ERROR;
2725: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2726: ,p_msg_name => g_invalid_value
2727: ,p_token1 => g_col_name_token
2728: ,p_token1_value => 'TMT_CLOSE_BALANCES_YN');
2729: x_return_status := Okc_Api.G_RET_STS_ERROR;
2730:
2731: END IF;
2732:
2733: END IF;
2733: END IF;
2734:
2735:
2736: IF (p_tcnv_rec.TMT_ACCOUNTING_ENTRIES_YN IS NOT NULL) AND
2737: (p_tcnv_rec.TMT_ACCOUNTING_ENTRIES_YN <> Okc_Api.G_MISS_CHAR) THEN
2738:
2739: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2740: (p_lookup_type => 'YES_NO',
2741: p_lookup_code => p_tcnv_rec.TMT_ACCOUNTING_ENTRIES_YN,
2742: p_app_id => l_app_id,
2743: p_view_app_id => l_view_app_id);
2744:
2745: IF (l_dummy = OKL_API.G_FALSE) THEN
2746: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2747: ,p_msg_name => g_invalid_value
2748: ,p_token1 => g_col_name_token
2749: ,p_token1_value => 'TMT_ACCOUNTING_ENTRIES_YN');
2750: x_return_status := Okc_Api.G_RET_STS_ERROR;
2746: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2747: ,p_msg_name => g_invalid_value
2748: ,p_token1 => g_col_name_token
2749: ,p_token1_value => 'TMT_ACCOUNTING_ENTRIES_YN');
2750: x_return_status := Okc_Api.G_RET_STS_ERROR;
2751:
2752: END IF;
2753:
2754: END IF;
2754: END IF;
2755:
2756:
2757: IF (p_tcnv_rec.TMT_CANCEL_INSURANCE_YN IS NOT NULL) AND
2758: (p_tcnv_rec.TMT_CANCEL_INSURANCE_YN <> Okc_Api.G_MISS_CHAR) THEN
2759:
2760: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2761: (p_lookup_type => 'YES_NO',
2762: p_lookup_code => p_tcnv_rec.TMT_CANCEL_INSURANCE_YN,
2763: p_app_id => l_app_id,
2764: p_view_app_id => l_view_app_id);
2765:
2766: IF (l_dummy = OKL_API.G_FALSE) THEN
2767: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2768: ,p_msg_name => g_invalid_value
2769: ,p_token1 => g_col_name_token
2770: ,p_token1_value => 'TMT_CANCEL_INSURANCE_YN');
2771: x_return_status := Okc_Api.G_RET_STS_ERROR;
2767: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2768: ,p_msg_name => g_invalid_value
2769: ,p_token1 => g_col_name_token
2770: ,p_token1_value => 'TMT_CANCEL_INSURANCE_YN');
2771: x_return_status := Okc_Api.G_RET_STS_ERROR;
2772:
2773: END IF;
2774:
2775: END IF;
2774:
2775: END IF;
2776:
2777: IF (p_tcnv_rec.TMT_ASSET_DISPOSITION_YN IS NOT NULL) AND
2778: (p_tcnv_rec.TMT_ASSET_DISPOSITION_YN <> Okc_Api.G_MISS_CHAR) THEN
2779:
2780: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2781: (p_lookup_type => 'YES_NO',
2782: p_lookup_code => p_tcnv_rec.TMT_ASSET_DISPOSITION_YN,
2783: p_app_id => l_app_id,
2784: p_view_app_id => l_view_app_id);
2785:
2786: IF (l_dummy = OKL_API.G_FALSE) THEN
2787: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2788: ,p_msg_name => g_invalid_value
2789: ,p_token1 => g_col_name_token
2790: ,p_token1_value => 'TMT_ASSET_DISPOSITION_YN');
2791: x_return_status := Okc_Api.G_RET_STS_ERROR;
2787: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2788: ,p_msg_name => g_invalid_value
2789: ,p_token1 => g_col_name_token
2790: ,p_token1_value => 'TMT_ASSET_DISPOSITION_YN');
2791: x_return_status := Okc_Api.G_RET_STS_ERROR;
2792:
2793: END IF;
2794:
2795: END IF;
2795: END IF;
2796:
2797:
2798: IF (p_tcnv_rec.TMT_AMORTIZATION_YN IS NOT NULL) AND
2799: (p_tcnv_rec.TMT_AMORTIZATION_YN <> Okc_Api.G_MISS_CHAR) THEN
2800:
2801: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2802: (p_lookup_type => 'YES_NO',
2803: p_lookup_code => p_tcnv_rec.TMT_AMORTIZATION_YN,
2804: p_app_id => l_app_id,
2805: p_view_app_id => l_view_app_id);
2806:
2807: IF (l_dummy = OKL_API.G_FALSE) THEN
2808: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2809: ,p_msg_name => g_invalid_value
2810: ,p_token1 => g_col_name_token
2811: ,p_token1_value => 'TMT_AMORTIZATION_YN');
2812: x_return_status := Okc_Api.G_RET_STS_ERROR;
2808: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2809: ,p_msg_name => g_invalid_value
2810: ,p_token1 => g_col_name_token
2811: ,p_token1_value => 'TMT_AMORTIZATION_YN');
2812: x_return_status := Okc_Api.G_RET_STS_ERROR;
2813:
2814: END IF;
2815:
2816: END IF;
2815:
2816: END IF;
2817:
2818: IF (p_tcnv_rec.TMT_ASSET_RETURN_YN IS NOT NULL) AND
2819: (p_tcnv_rec.TMT_ASSET_RETURN_YN <> Okc_Api.G_MISS_CHAR) THEN
2820:
2821: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2822: (p_lookup_type => 'YES_NO',
2823: p_lookup_code => p_tcnv_rec.TMT_ASSET_RETURN_YN,
2824: p_app_id => l_app_id,
2825: p_view_app_id => l_view_app_id);
2826:
2827: IF (l_dummy = OKL_API.G_FALSE) THEN
2828: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2829: ,p_msg_name => g_invalid_value
2830: ,p_token1 => g_col_name_token
2831: ,p_token1_value => 'TMT_ASSET_RETURN_YN');
2832: x_return_status := Okc_Api.G_RET_STS_ERROR;
2828: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2829: ,p_msg_name => g_invalid_value
2830: ,p_token1 => g_col_name_token
2831: ,p_token1_value => 'TMT_ASSET_RETURN_YN');
2832: x_return_status := Okc_Api.G_RET_STS_ERROR;
2833:
2834: END IF;
2835:
2836: END IF;
2835:
2836: END IF;
2837:
2838: IF (p_tcnv_rec.TMT_CONTRACT_UPDATED_YN IS NOT NULL) AND
2839: (p_tcnv_rec.TMT_CONTRACT_UPDATED_YN <> Okc_Api.G_MISS_CHAR) THEN
2840:
2841: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2842: (p_lookup_type => 'YES_NO',
2843: p_lookup_code => p_tcnv_rec.TMT_CONTRACT_UPDATED_YN,
2844: p_app_id => l_app_id,
2845: p_view_app_id => l_view_app_id);
2846:
2847: IF (l_dummy = OKL_API.G_FALSE) THEN
2848: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2849: ,p_msg_name => g_invalid_value
2850: ,p_token1 => g_col_name_token
2851: ,p_token1_value => 'TMT_CONTRACT_UPDATED_YN');
2852: x_return_status := Okc_Api.G_RET_STS_ERROR;
2848: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2849: ,p_msg_name => g_invalid_value
2850: ,p_token1 => g_col_name_token
2851: ,p_token1_value => 'TMT_CONTRACT_UPDATED_YN');
2852: x_return_status := Okc_Api.G_RET_STS_ERROR;
2853:
2854: END IF;
2855:
2856: END IF;
2855:
2856: END IF;
2857:
2858: IF (p_tcnv_rec.TMT_RECYCLE_YN IS NOT NULL) AND
2859: (p_tcnv_rec.TMT_RECYCLE_YN <> Okc_Api.G_MISS_CHAR) THEN
2860:
2861: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2862: (p_lookup_type => 'YES_NO',
2863: p_lookup_code => p_tcnv_rec.TMT_RECYCLE_YN,
2864: p_app_id => l_app_id,
2865: p_view_app_id => l_view_app_id);
2866:
2867: IF (l_dummy = OKL_API.G_FALSE) THEN
2868: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2869: ,p_msg_name => g_invalid_value
2870: ,p_token1 => g_col_name_token
2871: ,p_token1_value => 'TMT_RECYCLE_YN');
2872: x_return_status := Okc_Api.G_RET_STS_ERROR;
2868: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2869: ,p_msg_name => g_invalid_value
2870: ,p_token1 => g_col_name_token
2871: ,p_token1_value => 'TMT_RECYCLE_YN');
2872: x_return_status := Okc_Api.G_RET_STS_ERROR;
2873:
2874: END IF;
2875:
2876: END IF;
2875:
2876: END IF;
2877:
2878: IF (p_tcnv_rec.TMT_VALIDATED_YN IS NOT NULL) AND
2879: (p_tcnv_rec.TMT_VALIDATED_YN <> Okc_Api.G_MISS_CHAR) THEN
2880:
2881: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2882: (p_lookup_type => 'YES_NO',
2883: p_lookup_code => p_tcnv_rec.TMT_VALIDATED_YN,
2884: p_app_id => l_app_id,
2885: p_view_app_id => l_view_app_id);
2886:
2887: IF (l_dummy = OKL_API.G_FALSE) THEN
2888: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2889: ,p_msg_name => g_invalid_value
2890: ,p_token1 => g_col_name_token
2891: ,p_token1_value => 'TMT_VALIDATED_YN');
2892: x_return_status := Okc_Api.G_RET_STS_ERROR;
2888: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2889: ,p_msg_name => g_invalid_value
2890: ,p_token1 => g_col_name_token
2891: ,p_token1_value => 'TMT_VALIDATED_YN');
2892: x_return_status := Okc_Api.G_RET_STS_ERROR;
2893:
2894: END IF;
2895:
2896: END IF;
2895:
2896: END IF;
2897:
2898: IF (p_tcnv_rec.TMT_STREAMS_UPDATED_YN IS NOT NULL) AND
2899: (p_tcnv_rec.TMT_STREAMS_UPDATED_YN <> Okc_Api.G_MISS_CHAR) THEN
2900:
2901: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2902: (p_lookup_type => 'YES_NO',
2903: p_lookup_code => p_tcnv_rec.TMT_STREAMS_UPDATED_YN,
2904: p_app_id => l_app_id,
2905: p_view_app_id => l_view_app_id);
2906:
2907: IF (l_dummy = OKL_API.G_FALSE) THEN
2908: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2909: ,p_msg_name => g_invalid_value
2910: ,p_token1 => g_col_name_token
2911: ,p_token1_value => 'TMT_STREAMS_UPDATED_YN');
2912: x_return_status := Okc_Api.G_RET_STS_ERROR;
2908: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2909: ,p_msg_name => g_invalid_value
2910: ,p_token1 => g_col_name_token
2911: ,p_token1_value => 'TMT_STREAMS_UPDATED_YN');
2912: x_return_status := Okc_Api.G_RET_STS_ERROR;
2913:
2914: END IF;
2915:
2916: END IF;
2923: NULL;
2924:
2925: WHEN OTHERS THEN
2926: -- store SQL error message on message stack for caller
2927: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
2928: p_msg_name => g_unexpected_error,
2929: p_token1 => g_sqlcode_token,
2930: p_token1_value => SQLCODE,
2931: p_token2 => g_sqlerrm_token,
2931: p_token2 => g_sqlerrm_token,
2932: p_token2_value => SQLERRM);
2933:
2934: -- notify caller of an UNEXPECTED error
2935: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2936:
2937: END Validate_Terminate_Attribs;
2938:
2939: -- Added by Santonyr 31-Jul-2002 Added New Filed Accrual_Activity
2957: l_dummy VARCHAR2(1) := OKL_API.G_FALSE;
2958:
2959: BEGIN
2960: -- initialize return status
2961: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
2962:
2963: -- check in fnd_lookups for validity
2964: IF p_tcnv_rec.accrual_activity IS NOT NULL THEN
2965: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
2966: (p_lookup_type => 'OKL_ACCRUAL_ACTIVITY',
2967: p_lookup_code => p_tcnv_rec.accrual_activity);
2968:
2969: IF (l_dummy = OKL_API.G_FALSE) THEN
2970: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2971: ,p_msg_name => g_invalid_value
2972: ,p_token1 => g_col_name_token
2973: ,p_token1_value => 'Accrual Activity');
2974: x_return_status := Okc_Api.G_RET_STS_ERROR;
2970: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2971: ,p_msg_name => g_invalid_value
2972: ,p_token1 => g_col_name_token
2973: ,p_token1_value => 'Accrual Activity');
2974: x_return_status := Okc_Api.G_RET_STS_ERROR;
2975: RAISE G_EXCEPTION_HALT_VALIDATION;
2976: END IF;
2977: END IF;
2978:
2984: NULL;
2985:
2986: WHEN OTHERS THEN
2987: -- store SQL error message on message stack for caller
2988: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
2989: ,p_msg_name => g_unexpected_error
2990: ,p_token1 => g_sqlcode_token
2991: ,p_token1_value => SQLCODE
2992: ,p_token2 => g_sqlerrm_token
2992: ,p_token2 => g_sqlerrm_token
2993: ,p_token2_value => SQLERRM);
2994:
2995: -- notify caller of an UNEXPECTED error
2996: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2997:
2998: END Validate_Accrual_Activity;
2999:
3000:
3013: ---------------------------------------------------------------------------
3014: PROCEDURE Validate_Chr_Id (p_tcnv_rec IN tcnv_rec_type
3015: ,x_return_status OUT NOCOPY VARCHAR2)
3016: IS
3017: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3018: l_dummy VARCHAR2(1);
3019: l_row_notfound BOOLEAN := TRUE;
3020: item_not_found_error EXCEPTION;
3021:
3026:
3027:
3028: BEGIN
3029:
3030: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3031:
3032: IF (p_tcnv_rec.chr_id IS NOT NULL) AND
3033: (p_tcnv_rec.chr_id <> Okc_Api.G_MISS_NUM) THEN
3034:
3029:
3030: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3031:
3032: IF (p_tcnv_rec.chr_id IS NOT NULL) AND
3033: (p_tcnv_rec.chr_id <> Okc_Api.G_MISS_NUM) THEN
3034:
3035: OPEN okl_tcn_chrid_csr(p_tcnv_rec.CHR_ID);
3036: FETCH okl_tcn_chrid_csr INTO l_dummy;
3037: l_row_notfound := okl_tcn_chrid_csr%NOTFOUND;
3036: FETCH okl_tcn_chrid_csr INTO l_dummy;
3037: l_row_notfound := okl_tcn_chrid_csr%NOTFOUND;
3038: CLOSE okl_tcn_chrid_csr;
3039: IF (l_row_notfound) THEN
3040: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CHR_ID');
3041: RAISE item_not_found_error;
3042: END IF;
3043: END IF;
3044:
3048: -- with the next column
3049: NULL;
3050:
3051: WHEN item_not_found_error THEN
3052: x_return_status := Okc_Api.G_RET_STS_ERROR;
3053:
3054: WHEN OTHERS THEN
3055: -- store SQL error message on message stack for caller
3056: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3052: x_return_status := Okc_Api.G_RET_STS_ERROR;
3053:
3054: WHEN OTHERS THEN
3055: -- store SQL error message on message stack for caller
3056: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3057: ,p_msg_name => g_unexpected_error
3058: ,p_token1 => g_sqlcode_token
3059: ,p_token1_value => SQLCODE
3060: ,p_token2 => g_sqlerrm_token
3060: ,p_token2 => g_sqlerrm_token
3061: ,p_token2_value => SQLERRM);
3062:
3063: -- notify caller of an UNEXPECTED error
3064: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3065:
3066: END Validate_Chr_Id;
3067:
3068:
3081: ---------------------------------------------------------------------------
3082: PROCEDURE Validate_Source_Trx_Id_Type (p_tcnv_rec IN tcnv_rec_type
3083: ,x_return_status OUT NOCOPY VARCHAR2)
3084: IS
3085: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3086: l_dummy VARCHAR2(1);
3087: l_row_notfound BOOLEAN := TRUE;
3088: item_not_found_error EXCEPTION;
3089:
3105: WHERE qte.id = p_source_id;
3106:
3107: BEGIN
3108: -- initialize return status
3109: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3110: -- check for data before processing
3111:
3112: IF (p_tcnv_rec.source_trx_type IS NOT NULL) THEN
3113: IF (p_tcnv_rec.source_trx_id IS NULL) THEN
3110: -- check for data before processing
3111:
3112: IF (p_tcnv_rec.source_trx_type IS NOT NULL) THEN
3113: IF (p_tcnv_rec.source_trx_id IS NULL) THEN
3114: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3115: ,p_msg_name => g_invalid_value
3116: ,p_token1 => g_col_name_token
3117: ,p_token1_value => 'SOURCE_TRX_ID');
3118: x_return_status := Okc_Api.G_RET_STS_ERROR;
3114: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3115: ,p_msg_name => g_invalid_value
3116: ,p_token1 => g_col_name_token
3117: ,p_token1_value => 'SOURCE_TRX_ID');
3118: x_return_status := Okc_Api.G_RET_STS_ERROR;
3119: RAISE G_EXCEPTION_HALT_VALIDATION;
3120: ELSE
3121: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_SOURCE_TRX_TYPE',
3122: p_lookup_code => p_tcnv_rec.source_trx_type);
3120: ELSE
3121: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_SOURCE_TRX_TYPE',
3122: p_lookup_code => p_tcnv_rec.source_trx_type);
3123:
3124: IF (l_dummy = Okc_Api.G_FALSE) THEN
3125: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3126: ,p_msg_name => g_invalid_value
3127: ,p_token1 => g_col_name_token
3128: ,p_token1_value => 'SOURCE_TRX_TYPE');
3121: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE(p_lookup_type => 'OKL_SOURCE_TRX_TYPE',
3122: p_lookup_code => p_tcnv_rec.source_trx_type);
3123:
3124: IF (l_dummy = Okc_Api.G_FALSE) THEN
3125: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3126: ,p_msg_name => g_invalid_value
3127: ,p_token1 => g_col_name_token
3128: ,p_token1_value => 'SOURCE_TRX_TYPE');
3129: x_return_status := Okc_Api.G_RET_STS_ERROR;
3125: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3126: ,p_msg_name => g_invalid_value
3127: ,p_token1 => g_col_name_token
3128: ,p_token1_value => 'SOURCE_TRX_TYPE');
3129: x_return_status := Okc_Api.G_RET_STS_ERROR;
3130: RAISE G_EXCEPTION_HALT_VALIDATION;
3131: ELSE
3132:
3133: IF (p_tcnv_rec.source_trx_type = 'TCN') THEN
3135: FETCH okl_tcn_csr INTO l_dummy;
3136: l_row_notfound := okl_tcn_csr%NOTFOUND;
3137: CLOSE okl_tcn_csr;
3138: IF (l_row_notfound) THEN
3139: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SOURCE_TRX_ID');
3140: RAISE item_not_found_error;
3141: END IF;
3142:
3143: ELSIF (p_tcnv_rec.source_trx_type = 'TAS') THEN
3145: FETCH okl_tas_csr INTO l_dummy;
3146: l_row_notfound := okl_tas_csr%NOTFOUND;
3147: CLOSE okl_tas_csr;
3148: IF (l_row_notfound) THEN
3149: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SOURCE_TRX_ID');
3150: RAISE item_not_found_error;
3151: END IF;
3152: -- rmunjulu bug 6736148
3153: ELSIF (p_tcnv_rec.source_trx_type = 'QTE') THEN
3156: FETCH okl_qte_csr INTO l_dummy;
3157: l_row_notfound := okl_qte_csr%NOTFOUND;
3158: CLOSE okl_qte_csr;
3159: IF (l_row_notfound) THEN
3160: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SOURCE_TRX_ID');
3161: RAISE item_not_found_error;
3162: END IF;
3163: END IF;
3164: END IF;
3164: END IF;
3165: END IF;
3166: ELSE
3167: IF (p_tcnv_rec.source_trx_id IS NOT NULL) THEN
3168: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3169: ,p_msg_name => g_invalid_value
3170: ,p_token1 => g_col_name_token
3171: ,p_token1_value => 'SOURCE_TRX_ID');
3172: x_return_status := Okc_Api.G_RET_STS_ERROR;
3168: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3169: ,p_msg_name => g_invalid_value
3170: ,p_token1 => g_col_name_token
3171: ,p_token1_value => 'SOURCE_TRX_ID');
3172: x_return_status := Okc_Api.G_RET_STS_ERROR;
3173: RAISE G_EXCEPTION_HALT_VALIDATION;
3174: END IF;
3175: END IF;
3176:
3183: NULL;
3184:
3185: WHEN OTHERS THEN
3186: -- store SQL error message on message stack for caller
3187: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
3188: p_msg_name => g_unexpected_error,
3189: p_token1 => g_sqlcode_token,
3190: p_token1_value => SQLCODE,
3191: p_token2 => g_sqlerrm_token,
3191: p_token2 => g_sqlerrm_token,
3192: p_token2_value => SQLERRM);
3193:
3194: -- notify caller of an UNEXPECTED error
3195: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3196:
3197: END Validate_Source_Trx_Id_Type;
3198:
3199: -- added by DJANASWA 06-Feb-07 SLA project
3213:
3214: PROCEDURE Validate_Accrual_Reversal_Date (p_tcnv_rec IN tcnv_rec_type,
3215: x_return_status OUT NOCOPY VARCHAR2)
3216: IS
3217: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3218: l_date_transaction_occurred DATE := Okc_Api.G_MISS_DATE;
3219: BEGIN
3220: -- initialize return status
3221: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3214: PROCEDURE Validate_Accrual_Reversal_Date (p_tcnv_rec IN tcnv_rec_type,
3215: x_return_status OUT NOCOPY VARCHAR2)
3216: IS
3217: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3218: l_date_transaction_occurred DATE := Okc_Api.G_MISS_DATE;
3219: BEGIN
3220: -- initialize return status
3221: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3222: l_date_transaction_occurred := p_tcnv_rec.date_transaction_occurred;
3217: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3218: l_date_transaction_occurred DATE := Okc_Api.G_MISS_DATE;
3219: BEGIN
3220: -- initialize return status
3221: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3222: l_date_transaction_occurred := p_tcnv_rec.date_transaction_occurred;
3223: -- check for data before processing
3224: IF p_tcnv_rec.accrual_reversal_date <> OKC_API.G_MISS_DATE
3225: OR p_tcnv_rec.accrual_reversal_date IS NOT NULL
3220: -- initialize return status
3221: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3222: l_date_transaction_occurred := p_tcnv_rec.date_transaction_occurred;
3223: -- check for data before processing
3224: IF p_tcnv_rec.accrual_reversal_date <> OKC_API.G_MISS_DATE
3225: OR p_tcnv_rec.accrual_reversal_date IS NOT NULL
3226: THEN
3227: IF p_tcnv_rec.accrual_reversal_date < l_date_transaction_occurred
3228: THEN
3225: OR p_tcnv_rec.accrual_reversal_date IS NOT NULL
3226: THEN
3227: IF p_tcnv_rec.accrual_reversal_date < l_date_transaction_occurred
3228: THEN
3229: Okc_Api.SET_MESSAGE( p_app_name => g_app_name,
3230: p_msg_name => g_invalid_value,
3231: p_token1 => g_col_name_token,
3232: p_token1_value => 'ACCRUAL_REVERSAL_DATE' );
3233: x_return_status := OKC_API.G_RET_STS_ERROR;
3229: Okc_Api.SET_MESSAGE( p_app_name => g_app_name,
3230: p_msg_name => g_invalid_value,
3231: p_token1 => g_col_name_token,
3232: p_token1_value => 'ACCRUAL_REVERSAL_DATE' );
3233: x_return_status := OKC_API.G_RET_STS_ERROR;
3234: RAISE G_EXCEPTION_HALT_VALIDATION;
3235: END IF;
3236: END IF;
3237:
3242: NULL;
3243:
3244: WHEN OTHERS THEN
3245: -- store SQL error message on message stack for caller
3246: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
3247: p_msg_name => g_unexpected_error,
3248: p_token1 => g_sqlcode_token,
3249: p_token1_value => SQLCODE,
3250: p_token2 => g_sqlerrm_token,
3251: p_token2_value => SQLERRM);
3252:
3253: -- notify caller of an UNEXPECTED error
3254:
3255: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3256: END Validate_Accrual_Reversal_Date;
3257:
3258: -- Added by zrehman for SLA project (Bug 5707866) 21-Feb-2007
3259: ---------------------------------------------------------------------------
3271: PROCEDURE Validate_Tmt_Status_Code(p_tcnv_rec IN tcnv_rec_type
3272: ,x_return_status OUT NOCOPY VARCHAR2)
3273: IS
3274:
3275: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
3276:
3277: BEGIN
3278: -- initialize return status
3279: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3275: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
3276:
3277: BEGIN
3278: -- initialize return status
3279: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3280:
3281: -- check for data before processing
3282: IF (p_tcnv_rec.tmt_status_code IS NOT NULL) AND (p_tcnv_rec.tmt_status_code <> OKC_API.G_MISS_CHAR) THEN
3283:
3278: -- initialize return status
3279: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3280:
3281: -- check for data before processing
3282: IF (p_tcnv_rec.tmt_status_code IS NOT NULL) AND (p_tcnv_rec.tmt_status_code <> OKC_API.G_MISS_CHAR) THEN
3283:
3284: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
3285: (p_lookup_type => 'OKL_TRANSACTION_STATUS',
3286: p_lookup_code => p_tcnv_rec.TMT_STATUS_CODE);
3285: (p_lookup_type => 'OKL_TRANSACTION_STATUS',
3286: p_lookup_code => p_tcnv_rec.TMT_STATUS_CODE);
3287:
3288: IF (l_dummy = OKL_API.G_FALSE) THEN
3289: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3290: ,p_msg_name => g_invalid_value
3291: ,p_token1 => g_col_name_token
3292: ,p_token1_value => 'TMT_STATUS_CODE');
3293: x_return_status := Okc_Api.G_RET_STS_ERROR;
3289: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3290: ,p_msg_name => g_invalid_value
3291: ,p_token1 => g_col_name_token
3292: ,p_token1_value => 'TMT_STATUS_CODE');
3293: x_return_status := Okc_Api.G_RET_STS_ERROR;
3294: RAISE G_EXCEPTION_HALT_VALIDATION;
3295: END IF;
3296: END IF;
3297:
3303: NULL;
3304:
3305: WHEN OTHERS THEN
3306: -- store SQL error message on message stack for caller
3307: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
3308: p_msg_name => g_unexpected_error,
3309: p_token1 => g_sqlcode_token,
3310: p_token1_value => SQLCODE,
3311: p_token2 => g_sqlerrm_token,
3311: p_token2 => g_sqlerrm_token,
3312: p_token2_value => SQLERRM);
3313:
3314: -- notify caller of an UNEXPECTED error
3315: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3316:
3317: END Validate_Tmt_Status_Code;
3318:
3319: -- Added by nikshah for SLA project (Bug 5707866) 17-Apr-2007
3331: ---------------------------------------------------------------------------
3332: PROCEDURE Validate_Upgrade_Status_Flag (x_return_status OUT NOCOPY VARCHAR2, p_tcnv_rec IN tcnv_rec_type)
3333: IS
3334:
3335: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3336: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
3337:
3338: BEGIN
3339: -- initialize return status
3332: PROCEDURE Validate_Upgrade_Status_Flag (x_return_status OUT NOCOPY VARCHAR2, p_tcnv_rec IN tcnv_rec_type)
3333: IS
3334:
3335: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3336: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
3337:
3338: BEGIN
3339: -- initialize return status
3340: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3336: l_dummy VARCHAR2(1) := OKC_API.G_FALSE;
3337:
3338: BEGIN
3339: -- initialize return status
3340: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3341:
3342: -- check for data before processing
3343: IF (p_tcnv_rec.UPGRADE_STATUS_FLAG IS NOT NULL) AND
3344: (p_tcnv_rec.UPGRADE_STATUS_FLAG <> Okc_Api.G_MISS_CHAR) THEN
3340: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3341:
3342: -- check for data before processing
3343: IF (p_tcnv_rec.UPGRADE_STATUS_FLAG IS NOT NULL) AND
3344: (p_tcnv_rec.UPGRADE_STATUS_FLAG <> Okc_Api.G_MISS_CHAR) THEN
3345: -- check in fnd_lookups for validity
3346: l_dummy := OKL_ACCOUNTING_UTIL.VALIDATE_LOOKUP_CODE
3347: (p_lookup_type => 'OKL_YES_NO',
3348: p_lookup_code => p_tcnv_rec.UPGRADE_STATUS_FLAG);
3347: (p_lookup_type => 'OKL_YES_NO',
3348: p_lookup_code => p_tcnv_rec.UPGRADE_STATUS_FLAG);
3349:
3350: IF (l_dummy = OKL_API.G_FALSE) THEN
3351: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3352: ,p_msg_name => g_invalid_value
3353: ,p_token1 => g_col_name_token
3354: ,p_token1_value => 'UPGRADE_STATUS_FLAG');
3355: x_return_status := Okc_Api.G_RET_STS_ERROR;
3351: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3352: ,p_msg_name => g_invalid_value
3353: ,p_token1 => g_col_name_token
3354: ,p_token1_value => 'UPGRADE_STATUS_FLAG');
3355: x_return_status := Okc_Api.G_RET_STS_ERROR;
3356: RAISE G_EXCEPTION_HALT_VALIDATION;
3357: END IF;
3358:
3359: END IF;
3366: NULL;
3367:
3368: WHEN OTHERS THEN
3369: -- store SQL error message on message stack for caller
3370: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
3371: p_msg_name => g_unexpected_error,
3372: p_token1 => g_sqlcode_token,
3373: p_token1_value => SQLCODE,
3374: p_token2 => g_sqlerrm_token,
3374: p_token2 => g_sqlerrm_token,
3375: p_token2_value => SQLERRM);
3376:
3377: -- notify caller of an UNEXPECTED error
3378: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3379:
3380: END Validate_Upgrade_Status_Flag;
3381:
3382: -- Added by smereddy for Multi-GAAP project (Bug 7263041) 04-Aug-2007
3394: ---------------------------------------------------------------------------
3395: PROCEDURE Validate_primary_rep_trx_id (p_tcnv_rec IN tcnv_rec_type, x_return_status OUT NOCOPY VARCHAR2)
3396: IS
3397:
3398: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3399: l_dummy VARCHAR2(1);
3400: l_row_notfound BOOLEAN := TRUE;
3401: item_not_found_error EXCEPTION;
3402:
3408: and okl_trx_contracts.khr_id = p_chr_id;
3409:
3410: BEGIN
3411:
3412: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3413:
3414: IF (p_tcnv_rec.primary_rep_trx_id IS NOT NULL AND
3415: p_tcnv_rec.primary_rep_trx_id <> Okc_Api.G_MISS_NUM AND
3416: p_tcnv_rec.khr_id IS NOT NULL AND
3411:
3412: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3413:
3414: IF (p_tcnv_rec.primary_rep_trx_id IS NOT NULL AND
3415: p_tcnv_rec.primary_rep_trx_id <> Okc_Api.G_MISS_NUM AND
3416: p_tcnv_rec.khr_id IS NOT NULL AND
3417: p_tcnv_rec.khr_id <> Okc_Api.G_MISS_NUM) THEN
3418:
3419: OPEN okl_tcn_id_csr(p_tcnv_rec.primary_rep_trx_id,p_tcnv_rec.khr_id );
3413:
3414: IF (p_tcnv_rec.primary_rep_trx_id IS NOT NULL AND
3415: p_tcnv_rec.primary_rep_trx_id <> Okc_Api.G_MISS_NUM AND
3416: p_tcnv_rec.khr_id IS NOT NULL AND
3417: p_tcnv_rec.khr_id <> Okc_Api.G_MISS_NUM) THEN
3418:
3419: OPEN okl_tcn_id_csr(p_tcnv_rec.primary_rep_trx_id,p_tcnv_rec.khr_id );
3420: FETCH okl_tcn_id_csr INTO l_dummy;
3421: l_row_notfound := okl_tcn_id_csr%NOTFOUND;
3420: FETCH okl_tcn_id_csr INTO l_dummy;
3421: l_row_notfound := okl_tcn_id_csr%NOTFOUND;
3422: CLOSE okl_tcn_id_csr;
3423: IF (l_row_notfound) THEN
3424: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
3425: RAISE item_not_found_error;
3426: END IF;
3427: END IF;
3428:
3432: -- with the next column
3433: NULL;
3434:
3435: WHEN item_not_found_error THEN
3436: x_return_status := Okc_Api.G_RET_STS_ERROR;
3437:
3438: WHEN OTHERS THEN
3439: -- store SQL error message on message stack for caller
3440: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3436: x_return_status := Okc_Api.G_RET_STS_ERROR;
3437:
3438: WHEN OTHERS THEN
3439: -- store SQL error message on message stack for caller
3440: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3441: ,p_msg_name => g_unexpected_error
3442: ,p_token1 => g_sqlcode_token
3443: ,p_token1_value => SQLCODE
3444: ,p_token2 => g_sqlerrm_token
3444: ,p_token2 => g_sqlerrm_token
3445: ,p_token2_value => SQLERRM);
3446:
3447: -- notify caller of an UNEXPECTED error
3448: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3449:
3450: END Validate_primary_rep_trx_id;
3451:
3452: -- Added by smereddy for Multi-GAAP project (Bug 7263041) 04-Aug-2007
3464: ---------------------------------------------------------------------------
3465: PROCEDURE Validate_representation_type (p_tcnv_rec IN tcnv_rec_type, x_return_status OUT NOCOPY VARCHAR2)
3466: IS
3467:
3468: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3469: l_dummy VARCHAR2(1);
3470: l_row_notfound BOOLEAN := TRUE;
3471: item_not_found_error EXCEPTION;
3472:
3476: where lkp.lookup_type = 'OKL_REPRESENTATION_TYPE'
3477: and lkp.lookup_code = p_rep_code;
3478: BEGIN
3479:
3480: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3481:
3482: IF (p_tcnv_rec.representation_type IS NOT NULL AND
3483: p_tcnv_rec.representation_type <> Okc_Api.G_MISS_CHAR) THEN
3484:
3479:
3480: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3481:
3482: IF (p_tcnv_rec.representation_type IS NOT NULL AND
3483: p_tcnv_rec.representation_type <> Okc_Api.G_MISS_CHAR) THEN
3484:
3485: OPEN rep_type_csr(p_tcnv_rec.representation_type);
3486: FETCH rep_type_csr INTO l_dummy;
3487: l_row_notfound := rep_type_csr%NOTFOUND;
3486: FETCH rep_type_csr INTO l_dummy;
3487: l_row_notfound := rep_type_csr%NOTFOUND;
3488: CLOSE rep_type_csr;
3489: IF (l_row_notfound) THEN
3490: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN,'ID');
3491: RAISE item_not_found_error;
3492: END IF;
3493: END IF;
3494:
3498: -- with the next column
3499: NULL;
3500:
3501: WHEN item_not_found_error THEN
3502: x_return_status := Okc_Api.G_RET_STS_ERROR;
3503:
3504: WHEN OTHERS THEN
3505: -- store SQL error message on message stack for caller
3506: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3502: x_return_status := Okc_Api.G_RET_STS_ERROR;
3503:
3504: WHEN OTHERS THEN
3505: -- store SQL error message on message stack for caller
3506: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3507: ,p_msg_name => g_unexpected_error
3508: ,p_token1 => g_sqlcode_token
3509: ,p_token1_value => SQLCODE
3510: ,p_token2 => g_sqlerrm_token
3510: ,p_token2 => g_sqlerrm_token
3511: ,p_token2_value => SQLERRM);
3512:
3513: -- notify caller of an UNEXPECTED error
3514: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3515:
3516: END Validate_representation_type;
3517:
3518:
3530: ---------------------------------------------------------------------------
3531: PROCEDURE Validate_Rep_Name_Code (p_tcnv_rec IN tcnv_rec_type
3532: ,x_return_status OUT NOCOPY VARCHAR2)
3533: IS
3534: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3535: l_dummy VARCHAR2(1);
3536: l_row_notfound BOOLEAN := TRUE;
3537: item_not_found_error EXCEPTION;
3538:
3545: AND short_name = p_rep_code;
3546:
3547: BEGIN
3548:
3549: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3550:
3551: IF(p_tcnv_rec.representation_name IS NOT NULL) AND (p_tcnv_rec.representation_name <> Okc_Api.G_MISS_CHAR)
3552: AND (p_tcnv_rec.representation_code IS NOT NULL) AND (p_tcnv_rec.representation_code <> Okc_Api.G_MISS_CHAR) THEN
3553: OPEN rep_valid_csr(p_rep_name => p_tcnv_rec.representation_name,
3547: BEGIN
3548:
3549: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3550:
3551: IF(p_tcnv_rec.representation_name IS NOT NULL) AND (p_tcnv_rec.representation_name <> Okc_Api.G_MISS_CHAR)
3552: AND (p_tcnv_rec.representation_code IS NOT NULL) AND (p_tcnv_rec.representation_code <> Okc_Api.G_MISS_CHAR) THEN
3553: OPEN rep_valid_csr(p_rep_name => p_tcnv_rec.representation_name,
3554: p_rep_code => p_tcnv_rec.representation_code);
3555: FETCH rep_valid_csr INTO l_dummy;
3548:
3549: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3550:
3551: IF(p_tcnv_rec.representation_name IS NOT NULL) AND (p_tcnv_rec.representation_name <> Okc_Api.G_MISS_CHAR)
3552: AND (p_tcnv_rec.representation_code IS NOT NULL) AND (p_tcnv_rec.representation_code <> Okc_Api.G_MISS_CHAR) THEN
3553: OPEN rep_valid_csr(p_rep_name => p_tcnv_rec.representation_name,
3554: p_rep_code => p_tcnv_rec.representation_code);
3555: FETCH rep_valid_csr INTO l_dummy;
3556: l_row_notfound := rep_valid_csr%NOTFOUND;
3555: FETCH rep_valid_csr INTO l_dummy;
3556: l_row_notfound := rep_valid_csr%NOTFOUND;
3557: CLOSE rep_valid_csr;
3558: IF (l_row_notfound) THEN
3559: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REPRESENTATION_CODE');
3560: RAISE item_not_found_error;
3561: END IF;
3562: ELSE
3563: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3559: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REPRESENTATION_CODE');
3560: RAISE item_not_found_error;
3561: END IF;
3562: ELSE
3563: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3564: ,p_msg_name => g_required_value
3565: ,p_token1 => g_col_name_token
3566: ,p_token1_value => 'REPRESENTATION_CODE');
3567: x_return_status := Okc_Api.G_RET_STS_ERROR;
3563: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3564: ,p_msg_name => g_required_value
3565: ,p_token1 => g_col_name_token
3566: ,p_token1_value => 'REPRESENTATION_CODE');
3567: x_return_status := Okc_Api.G_RET_STS_ERROR;
3568: RAISE G_EXCEPTION_HALT_VALIDATION;
3569: END IF;
3570:
3571: EXCEPTION
3574: -- with the next column
3575: NULL;
3576:
3577: WHEN item_not_found_error THEN
3578: x_return_status := Okc_Api.G_RET_STS_ERROR;
3579:
3580: WHEN OTHERS THEN
3581: -- store SQL error message on message stack for caller
3582: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3578: x_return_status := Okc_Api.G_RET_STS_ERROR;
3579:
3580: WHEN OTHERS THEN
3581: -- store SQL error message on message stack for caller
3582: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3583: ,p_msg_name => g_unexpected_error
3584: ,p_token1 => g_sqlcode_token
3585: ,p_token1_value => SQLCODE
3586: ,p_token2 => g_sqlerrm_token
3586: ,p_token2 => g_sqlerrm_token
3587: ,p_token2_value => SQLERRM);
3588:
3589: -- notify caller of an UNEXPECTED error
3590: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3591:
3592: END Validate_Rep_Name_Code;
3593:
3594:
3608: FUNCTION Validate_Attributes (
3609: p_tcnv_rec IN tcnv_rec_type
3610: ) RETURN VARCHAR2 IS
3611:
3612: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3613: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3614: BEGIN
3615:
3616: -- Validate_Id
3609: p_tcnv_rec IN tcnv_rec_type
3610: ) RETURN VARCHAR2 IS
3611:
3612: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3613: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3614: BEGIN
3615:
3616: -- Validate_Id
3617: Validate_Id(p_tcnv_rec, x_return_status);
3614: BEGIN
3615:
3616: -- Validate_Id
3617: Validate_Id(p_tcnv_rec, x_return_status);
3618: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3619: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3620: -- need to exit
3621: l_return_status := x_return_status;
3622: RAISE G_EXCEPTION_HALT_VALIDATION;
3615:
3616: -- Validate_Id
3617: Validate_Id(p_tcnv_rec, x_return_status);
3618: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3619: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3620: -- need to exit
3621: l_return_status := x_return_status;
3622: RAISE G_EXCEPTION_HALT_VALIDATION;
3623: ELSE
3627: END IF;
3628:
3629: -- Validate_Khr_Id
3630: Validate_Khr_Id(p_tcnv_rec, x_return_status);
3631: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3632: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3633: -- need to exit
3634: l_return_status := x_return_status;
3635: RAISE G_EXCEPTION_HALT_VALIDATION;
3628:
3629: -- Validate_Khr_Id
3630: Validate_Khr_Id(p_tcnv_rec, x_return_status);
3631: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3632: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3633: -- need to exit
3634: l_return_status := x_return_status;
3635: RAISE G_EXCEPTION_HALT_VALIDATION;
3636: ELSE
3640: END IF;
3641:
3642: -- Validate_Khr_Id_New
3643: Validate_Khr_Id_New(p_tcnv_rec, x_return_status);
3644: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3645: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3646: -- need to exit
3647: l_return_status := x_return_status;
3648: RAISE G_EXCEPTION_HALT_VALIDATION;
3641:
3642: -- Validate_Khr_Id_New
3643: Validate_Khr_Id_New(p_tcnv_rec, x_return_status);
3644: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3645: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3646: -- need to exit
3647: l_return_status := x_return_status;
3648: RAISE G_EXCEPTION_HALT_VALIDATION;
3649: ELSE
3653: END IF;
3654:
3655: -- Validate_Khr_Id_Old
3656: Validate_Khr_Id_Old(p_tcnv_rec, x_return_status);
3657: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3658: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3659: -- need to exit
3660: l_return_status := x_return_status;
3661: RAISE G_EXCEPTION_HALT_VALIDATION;
3654:
3655: -- Validate_Khr_Id_Old
3656: Validate_Khr_Id_Old(p_tcnv_rec, x_return_status);
3657: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3658: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3659: -- need to exit
3660: l_return_status := x_return_status;
3661: RAISE G_EXCEPTION_HALT_VALIDATION;
3662: ELSE
3667:
3668: -- Added by smereddy for Multi-GAAP project (Bug 7263041) 04-Aug-2007
3669: -- Validate_primary_rep_trx_id
3670: Validate_primary_rep_trx_id(p_tcnv_rec, x_return_status);
3671: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3672: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3673: -- need to exit
3674: l_return_status := x_return_status;
3675: RAISE G_EXCEPTION_HALT_VALIDATION;
3668: -- Added by smereddy for Multi-GAAP project (Bug 7263041) 04-Aug-2007
3669: -- Validate_primary_rep_trx_id
3670: Validate_primary_rep_trx_id(p_tcnv_rec, x_return_status);
3671: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3672: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3673: -- need to exit
3674: l_return_status := x_return_status;
3675: RAISE G_EXCEPTION_HALT_VALIDATION;
3676: ELSE
3680: END IF;
3681:
3682: -- Validate_representation_type
3683: Validate_representation_type(p_tcnv_rec, x_return_status);
3684: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3685: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3686: -- need to exit
3687: l_return_status := x_return_status;
3688: RAISE G_EXCEPTION_HALT_VALIDATION;
3681:
3682: -- Validate_representation_type
3683: Validate_representation_type(p_tcnv_rec, x_return_status);
3684: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3685: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3686: -- need to exit
3687: l_return_status := x_return_status;
3688: RAISE G_EXCEPTION_HALT_VALIDATION;
3689: ELSE
3693: END IF;
3694:
3695: -- Validate_Pvn_Id
3696: Validate_PVN_ID(p_tcnv_rec, x_return_status);
3697: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3698: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3699: -- need to exit
3700: l_return_status := x_return_status;
3701: RAISE G_EXCEPTION_HALT_VALIDATION;
3694:
3695: -- Validate_Pvn_Id
3696: Validate_PVN_ID(p_tcnv_rec, x_return_status);
3697: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3698: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3699: -- need to exit
3700: l_return_status := x_return_status;
3701: RAISE G_EXCEPTION_HALT_VALIDATION;
3702: ELSE
3707:
3708:
3709: -- Validate_PDT_Id
3710: Validate_PDT_ID(p_tcnv_rec, x_return_status);
3711: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3712: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3713: -- need to exit
3714: l_return_status := x_return_status;
3715: RAISE G_EXCEPTION_HALT_VALIDATION;
3708:
3709: -- Validate_PDT_Id
3710: Validate_PDT_ID(p_tcnv_rec, x_return_status);
3711: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3712: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3713: -- need to exit
3714: l_return_status := x_return_status;
3715: RAISE G_EXCEPTION_HALT_VALIDATION;
3716: ELSE
3720: END IF;
3721:
3722: -- Validate_QTE_ID
3723: Validate_QTE_ID(p_tcnv_rec, x_return_status);
3724: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3725: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3726: -- need to exit
3727: l_return_status := x_return_status;
3728: RAISE G_EXCEPTION_HALT_VALIDATION;
3721:
3722: -- Validate_QTE_ID
3723: Validate_QTE_ID(p_tcnv_rec, x_return_status);
3724: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3725: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3726: -- need to exit
3727: l_return_status := x_return_status;
3728: RAISE G_EXCEPTION_HALT_VALIDATION;
3729: ELSE
3733: END IF;
3734:
3735: -- Validate_AES_ID
3736: Validate_AES_ID(p_tcnv_rec, x_return_status);
3737: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3738: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3739: -- need to exit
3740: l_return_status := x_return_status;
3741: RAISE G_EXCEPTION_HALT_VALIDATION;
3734:
3735: -- Validate_AES_ID
3736: Validate_AES_ID(p_tcnv_rec, x_return_status);
3737: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3738: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3739: -- need to exit
3740: l_return_status := x_return_status;
3741: RAISE G_EXCEPTION_HALT_VALIDATION;
3742: ELSE
3747:
3748:
3749: -- Validate_CCID
3750: Validate_CCID(p_tcnv_rec, x_return_status);
3751: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3752: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3753: -- need to exit
3754: l_return_status := x_return_status;
3755: RAISE G_EXCEPTION_HALT_VALIDATION;
3748:
3749: -- Validate_CCID
3750: Validate_CCID(p_tcnv_rec, x_return_status);
3751: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3752: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3753: -- need to exit
3754: l_return_status := x_return_status;
3755: RAISE G_EXCEPTION_HALT_VALIDATION;
3756: ELSE
3760: END IF;
3761:
3762: -- Validate_Object_Version_Number
3763: Validate_Object_Version_Number(p_tcnv_rec, x_return_status);
3764: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3765: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3766: -- need to exit
3767: l_return_status := x_return_status;
3768: RAISE G_EXCEPTION_HALT_VALIDATION;
3761:
3762: -- Validate_Object_Version_Number
3763: Validate_Object_Version_Number(p_tcnv_rec, x_return_status);
3764: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3765: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3766: -- need to exit
3767: l_return_status := x_return_status;
3768: RAISE G_EXCEPTION_HALT_VALIDATION;
3769: ELSE
3773: END IF;
3774:
3775: -- Validate_Tcn_Type
3776: Validate_Tcn_Type(p_tcnv_rec, x_return_status);
3777: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3778: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3779: -- need to exit
3780: l_return_status := x_return_status;
3781: RAISE G_EXCEPTION_HALT_VALIDATION;
3774:
3775: -- Validate_Tcn_Type
3776: Validate_Tcn_Type(p_tcnv_rec, x_return_status);
3777: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3778: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3779: -- need to exit
3780: l_return_status := x_return_status;
3781: RAISE G_EXCEPTION_HALT_VALIDATION;
3782: ELSE
3786: END IF;
3787:
3788: -- Validate_Accrual_Status_YN
3789: Validate_Accrual_Status_YN(p_tcnv_rec, x_return_status);
3790: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3791: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3792: -- need to exit
3793: l_return_status := x_return_status;
3794: RAISE G_EXCEPTION_HALT_VALIDATION;
3787:
3788: -- Validate_Accrual_Status_YN
3789: Validate_Accrual_Status_YN(p_tcnv_rec, x_return_status);
3790: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3791: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3792: -- need to exit
3793: l_return_status := x_return_status;
3794: RAISE G_EXCEPTION_HALT_VALIDATION;
3795: ELSE
3799: END IF;
3800:
3801: -- Validate_Update_Status_YN
3802: Validate_Update_Status_YN(p_tcnv_rec, x_return_status);
3803: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3804: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3805: -- need to exit
3806: l_return_status := x_return_status;
3807: RAISE G_EXCEPTION_HALT_VALIDATION;
3800:
3801: -- Validate_Update_Status_YN
3802: Validate_Update_Status_YN(p_tcnv_rec, x_return_status);
3803: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3804: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3805: -- need to exit
3806: l_return_status := x_return_status;
3807: RAISE G_EXCEPTION_HALT_VALIDATION;
3808: ELSE
3813:
3814: -- Added DJANASWA for SLA project
3815: -- Validate_Account_Reversal_YN
3816: Validate_Account_Reversal_YN (p_tcnv_rec, x_return_status);
3817: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3818: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3819: -- need to exit
3820: l_return_status := x_return_status;
3821: RAISE G_EXCEPTION_HALT_VALIDATION;
3814: -- Added DJANASWA for SLA project
3815: -- Validate_Account_Reversal_YN
3816: Validate_Account_Reversal_YN (p_tcnv_rec, x_return_status);
3817: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3818: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3819: -- need to exit
3820: l_return_status := x_return_status;
3821: RAISE G_EXCEPTION_HALT_VALIDATION;
3822: ELSE
3826: END IF;
3827:
3828: -- Validate_Tax_Deductible_Local
3829: Validate_Tax_Deductible_Local(p_tcnv_rec, x_return_status);
3830: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3831: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3832: -- need to exit
3833: l_return_status := x_return_status;
3834: RAISE G_EXCEPTION_HALT_VALIDATION;
3827:
3828: -- Validate_Tax_Deductible_Local
3829: Validate_Tax_Deductible_Local(p_tcnv_rec, x_return_status);
3830: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3831: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3832: -- need to exit
3833: l_return_status := x_return_status;
3834: RAISE G_EXCEPTION_HALT_VALIDATION;
3835: ELSE
3839: END IF;
3840:
3841: -- validate_tax_deductible_corp
3842: validate_tax_deductible_corp(p_tcnv_rec, x_return_status);
3843: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3844: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3845: -- need to exit
3846: l_return_status := x_return_status;
3847: RAISE G_EXCEPTION_HALT_VALIDATION;
3840:
3841: -- validate_tax_deductible_corp
3842: validate_tax_deductible_corp(p_tcnv_rec, x_return_status);
3843: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3844: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3845: -- need to exit
3846: l_return_status := x_return_status;
3847: RAISE G_EXCEPTION_HALT_VALIDATION;
3848: ELSE
3852: END IF;
3853:
3854: -- Validate_currency_code
3855: Validate_currency_code(p_tcnv_rec, x_return_status);
3856: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3857: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3858: -- need to exit
3859: l_return_status := x_return_status;
3860: RAISE G_EXCEPTION_HALT_VALIDATION;
3853:
3854: -- Validate_currency_code
3855: Validate_currency_code(p_tcnv_rec, x_return_status);
3856: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3857: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3858: -- need to exit
3859: l_return_status := x_return_status;
3860: RAISE G_EXCEPTION_HALT_VALIDATION;
3861: ELSE
3865: END IF;
3866:
3867: -- Validate_TRY_ID
3868: Validate_TRY_ID(p_tcnv_rec, x_return_status);
3869: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3870: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3871: -- need to exit
3872: l_return_status := x_return_status;
3873: RAISE G_EXCEPTION_HALT_VALIDATION;
3866:
3867: -- Validate_TRY_ID
3868: Validate_TRY_ID(p_tcnv_rec, x_return_status);
3869: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3870: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3871: -- need to exit
3872: l_return_status := x_return_status;
3873: RAISE G_EXCEPTION_HALT_VALIDATION;
3874: ELSE
3879:
3880:
3881: -- Validate_Date_Transaction
3882: Validate_Date_Transaction(p_tcnv_rec, x_return_status);
3883: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3884: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3885: -- need to exit
3886: l_return_status := x_return_status;
3887: RAISE G_EXCEPTION_HALT_VALIDATION;
3880:
3881: -- Validate_Date_Transaction
3882: Validate_Date_Transaction(p_tcnv_rec, x_return_status);
3883: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3884: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3885: -- need to exit
3886: l_return_status := x_return_status;
3887: RAISE G_EXCEPTION_HALT_VALIDATION;
3888: ELSE
3893:
3894:
3895: -- Validate_RBR_CODE
3896: Validate_RBR_CODE(p_tcnv_rec, x_return_status);
3897: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3898: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3899: -- need to exit
3900: l_return_status := x_return_status;
3901: RAISE G_EXCEPTION_HALT_VALIDATION;
3894:
3895: -- Validate_RBR_CODE
3896: Validate_RBR_CODE(p_tcnv_rec, x_return_status);
3897: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3898: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3899: -- need to exit
3900: l_return_status := x_return_status;
3901: RAISE G_EXCEPTION_HALT_VALIDATION;
3902: ELSE
3906: END IF;
3907:
3908: -- Validate_RPY_CODE
3909: Validate_RPY_CODE(p_tcnv_rec, x_return_status);
3910: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3911: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3912: -- need to exit
3913: l_return_status := x_return_status;
3914: RAISE G_EXCEPTION_HALT_VALIDATION;
3907:
3908: -- Validate_RPY_CODE
3909: Validate_RPY_CODE(p_tcnv_rec, x_return_status);
3910: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3911: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3912: -- need to exit
3913: l_return_status := x_return_status;
3914: RAISE G_EXCEPTION_HALT_VALIDATION;
3915: ELSE
3919: END IF;
3920:
3921: -- Validate_RVN_CODE
3922: Validate_RVN_CODE(p_tcnv_rec, x_return_status);
3923: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3924: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3925: -- need to exit
3926: l_return_status := x_return_status;
3927: RAISE G_EXCEPTION_HALT_VALIDATION;
3920:
3921: -- Validate_RVN_CODE
3922: Validate_RVN_CODE(p_tcnv_rec, x_return_status);
3923: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3924: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3925: -- need to exit
3926: l_return_status := x_return_status;
3927: RAISE G_EXCEPTION_HALT_VALIDATION;
3928: ELSE
3932: END IF;
3933:
3934: -- Validate_TSU_CODE
3935: Validate_TSU_CODE(p_tcnv_rec, x_return_status);
3936: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3937: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3938: -- need to exit
3939: l_return_status := x_return_status;
3940: RAISE G_EXCEPTION_HALT_VALIDATION;
3933:
3934: -- Validate_TSU_CODE
3935: Validate_TSU_CODE(p_tcnv_rec, x_return_status);
3936: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3937: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3938: -- need to exit
3939: l_return_status := x_return_status;
3940: RAISE G_EXCEPTION_HALT_VALIDATION;
3941: ELSE
3945: END IF;
3946:
3947: -- Validate_TRN_CODE
3948: Validate_TRN_CODE(p_tcnv_rec, x_return_status);
3949: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3950: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3951: -- need to exit
3952: l_return_status := x_return_status;
3953: RAISE G_EXCEPTION_HALT_VALIDATION;
3946:
3947: -- Validate_TRN_CODE
3948: Validate_TRN_CODE(p_tcnv_rec, x_return_status);
3949: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3950: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3951: -- need to exit
3952: l_return_status := x_return_status;
3953: RAISE G_EXCEPTION_HALT_VALIDATION;
3954: ELSE
3959:
3960:
3961: -- Validate_Trx_Number
3962: Validate_Trx_Number(p_tcnv_rec, x_return_status);
3963: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3964: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3965: -- need to exit
3966: l_return_status := x_return_status;
3967: RAISE G_EXCEPTION_HALT_VALIDATION;
3960:
3961: -- Validate_Trx_Number
3962: Validate_Trx_Number(p_tcnv_rec, x_return_status);
3963: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3964: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3965: -- need to exit
3966: l_return_status := x_return_status;
3967: RAISE G_EXCEPTION_HALT_VALIDATION;
3968: ELSE
3973:
3974:
3975: -- Validate_Terminate_Attribs
3976: Validate_Terminate_Attribs(p_tcnv_rec, x_return_status);
3977: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3978: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3979: -- need to exit
3980: l_return_status := x_return_status;
3981: RAISE G_EXCEPTION_HALT_VALIDATION;
3974:
3975: -- Validate_Terminate_Attribs
3976: Validate_Terminate_Attribs(p_tcnv_rec, x_return_status);
3977: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3978: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3979: -- need to exit
3980: l_return_status := x_return_status;
3981: RAISE G_EXCEPTION_HALT_VALIDATION;
3982: ELSE
3989: -- Added New Filed Accrual_Activity. Fixed Bug 2486088
3990:
3991: -- Validate Accrual Activity
3992: Validate_Accrual_Activity(p_tcnv_rec, x_return_status);
3993: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3994: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3995: -- need to exit
3996: l_return_status := x_return_status;
3997: RAISE G_EXCEPTION_HALT_VALIDATION;
3990:
3991: -- Validate Accrual Activity
3992: Validate_Accrual_Activity(p_tcnv_rec, x_return_status);
3993: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3994: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3995: -- need to exit
3996: l_return_status := x_return_status;
3997: RAISE G_EXCEPTION_HALT_VALIDATION;
3998: ELSE
4004: --Added be Keerthi 25-Aug-03
4005: -- Validate_Chr_Id
4006:
4007: Validate_Chr_Id(p_tcnv_rec, x_return_status);
4008: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4009: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4010: -- need to exit
4011: l_return_status := x_return_status;
4012: RAISE G_EXCEPTION_HALT_VALIDATION;
4005: -- Validate_Chr_Id
4006:
4007: Validate_Chr_Id(p_tcnv_rec, x_return_status);
4008: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4009: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4010: -- need to exit
4011: l_return_status := x_return_status;
4012: RAISE G_EXCEPTION_HALT_VALIDATION;
4013: ELSE
4034: --Added be Keerthi for Bug No 3195713
4035: -- Validate_Source_Trx_Id_Type
4036:
4037: Validate_Source_Trx_Id_Type(p_tcnv_rec, x_return_status);
4038: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4039: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4040: -- need to exit
4041: l_return_status := x_return_status;
4042: RAISE G_EXCEPTION_HALT_VALIDATION;
4035: -- Validate_Source_Trx_Id_Type
4036:
4037: Validate_Source_Trx_Id_Type(p_tcnv_rec, x_return_status);
4038: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4039: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4040: -- need to exit
4041: l_return_status := x_return_status;
4042: RAISE G_EXCEPTION_HALT_VALIDATION;
4043: ELSE
4047: END IF;
4048:
4049: -- Added by DJANASWA for SLA project 06-Feb-07
4050: Validate_Accrual_Reversal_Date (p_tcnv_rec, x_return_status);
4051: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4052: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4053: -- need to exit
4054: l_return_status := x_return_status;
4055: RAISE G_EXCEPTION_HALT_VALIDATION;
4048:
4049: -- Added by DJANASWA for SLA project 06-Feb-07
4050: Validate_Accrual_Reversal_Date (p_tcnv_rec, x_return_status);
4051: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4052: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4053: -- need to exit
4054: l_return_status := x_return_status;
4055: RAISE G_EXCEPTION_HALT_VALIDATION;
4056: ELSE
4060: END IF;
4061:
4062: -- Added by zrehman for SLA project 21-Feb-07
4063: Validate_Tmt_Status_Code (p_tcnv_rec, x_return_status);
4064: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4065: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4066: -- need to exit
4067: l_return_status := x_return_status;
4068: RAISE G_EXCEPTION_HALT_VALIDATION;
4061:
4062: -- Added by zrehman for SLA project 21-Feb-07
4063: Validate_Tmt_Status_Code (p_tcnv_rec, x_return_status);
4064: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4065: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4066: -- need to exit
4067: l_return_status := x_return_status;
4068: RAISE G_EXCEPTION_HALT_VALIDATION;
4069: ELSE
4074:
4075: -- Added by nikshah for SLA project (Bug 5707866) 17-Apr-2007
4076: Validate_Upgrade_Status_Flag(x_return_status, p_tcnv_rec);
4077:
4078: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4079: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4080: l_return_status := x_return_Status;
4081: RAISE G_EXCEPTION_HALT_VALIDATION;
4082: ELSE
4075: -- Added by nikshah for SLA project (Bug 5707866) 17-Apr-2007
4076: Validate_Upgrade_Status_Flag(x_return_status, p_tcnv_rec);
4077:
4078: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4079: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4080: l_return_status := x_return_Status;
4081: RAISE G_EXCEPTION_HALT_VALIDATION;
4082: ELSE
4083: l_return_status := x_return_status;
4086:
4087: -- Added by kthiruva for SLA project (Bug 5707866) 10-May-2007
4088: Validate_Rep_Name_Code(p_tcnv_rec,x_return_status);
4089:
4090: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4091: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4092: l_return_status := x_return_Status;
4093: RAISE G_EXCEPTION_HALT_VALIDATION;
4094: ELSE
4087: -- Added by kthiruva for SLA project (Bug 5707866) 10-May-2007
4088: Validate_Rep_Name_Code(p_tcnv_rec,x_return_status);
4089:
4090: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4091: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4092: l_return_status := x_return_Status;
4093: RAISE G_EXCEPTION_HALT_VALIDATION;
4094: ELSE
4095: l_return_status := x_return_status;
4105: RETURN (l_return_status);
4106:
4107: WHEN OTHERS THEN
4108: -- store SQL error message on message stack for caller
4109: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
4110: p_msg_name => g_unexpected_error,
4111: p_token1 => g_sqlcode_token,
4112: p_token1_value => SQLCODE,
4113: p_token2 => g_sqlerrm_token,
4112: p_token1_value => SQLCODE,
4113: p_token2 => g_sqlerrm_token,
4114: p_token2_value => SQLERRM);
4115: -- notify caller of an UNEXPECTED error
4116: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
4117: RETURN(l_return_status);
4118:
4119: END Validate_Attributes;
4120:
4133:
4134: FUNCTION Validate_Record (
4135: p_tcnv_rec IN tcnv_rec_type
4136: ) RETURN VARCHAR2 IS
4137: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4138: BEGIN
4139: RETURN(l_return_status);
4140: EXCEPTION
4141: WHEN OTHERS THEN
4139: RETURN(l_return_status);
4140: EXCEPTION
4141: WHEN OTHERS THEN
4142: -- store SQL error message on message stack for caller
4143: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
4144: p_msg_name => g_unexpected_error,
4145: p_token1 => g_sqlcode_token,
4146: p_token1_value => SQLCODE,
4147: p_token2 => g_sqlerrm_token,
4146: p_token1_value => SQLCODE,
4147: p_token2 => g_sqlerrm_token,
4148: p_token2_value => SQLERRM);
4149: -- notify caller of an UNEXPECTED error
4150: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
4151: RETURN(l_return_status);
4152: END Validate_Record;
4153:
4154: /*********************** END MANUAL CODE **********************************/
4409: p_tcnv_rec IN tcnv_rec_type) IS
4410:
4411: l_api_version CONSTANT NUMBER := 1;
4412: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
4413: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4414: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
4415: l_tcn_rec tcn_rec_type;
4416: BEGIN
4417: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4413: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4414: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
4415: l_tcn_rec tcn_rec_type;
4416: BEGIN
4417: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4418: G_PKG_NAME,
4419: p_init_msg_list,
4420: l_api_version,
4421: p_api_version,
4420: l_api_version,
4421: p_api_version,
4422: '_PVT',
4423: x_return_status);
4424: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4425: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4426: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4427: RAISE Okc_Api.G_EXCEPTION_ERROR;
4428: END IF;
4421: p_api_version,
4422: '_PVT',
4423: x_return_status);
4424: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4425: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4426: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4427: RAISE Okc_Api.G_EXCEPTION_ERROR;
4428: END IF;
4429: --- Validate all non-missing attributes (Item Level Validation)
4422: '_PVT',
4423: x_return_status);
4424: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4425: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4426: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4427: RAISE Okc_Api.G_EXCEPTION_ERROR;
4428: END IF;
4429: --- Validate all non-missing attributes (Item Level Validation)
4430: l_return_status := Validate_Attributes(l_tcnv_rec);
4423: x_return_status);
4424: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4425: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4426: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4427: RAISE Okc_Api.G_EXCEPTION_ERROR;
4428: END IF;
4429: --- Validate all non-missing attributes (Item Level Validation)
4430: l_return_status := Validate_Attributes(l_tcnv_rec);
4431: --- If any errors happen abort API
4428: END IF;
4429: --- Validate all non-missing attributes (Item Level Validation)
4430: l_return_status := Validate_Attributes(l_tcnv_rec);
4431: --- If any errors happen abort API
4432: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4433: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4435: RAISE Okc_Api.G_EXCEPTION_ERROR;
4436: END IF;
4429: --- Validate all non-missing attributes (Item Level Validation)
4430: l_return_status := Validate_Attributes(l_tcnv_rec);
4431: --- If any errors happen abort API
4432: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4433: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4435: RAISE Okc_Api.G_EXCEPTION_ERROR;
4436: END IF;
4437: l_return_status := Validate_Record(l_tcnv_rec);
4430: l_return_status := Validate_Attributes(l_tcnv_rec);
4431: --- If any errors happen abort API
4432: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4433: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4435: RAISE Okc_Api.G_EXCEPTION_ERROR;
4436: END IF;
4437: l_return_status := Validate_Record(l_tcnv_rec);
4438: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4431: --- If any errors happen abort API
4432: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4433: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4435: RAISE Okc_Api.G_EXCEPTION_ERROR;
4436: END IF;
4437: l_return_status := Validate_Record(l_tcnv_rec);
4438: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4434: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4435: RAISE Okc_Api.G_EXCEPTION_ERROR;
4436: END IF;
4437: l_return_status := Validate_Record(l_tcnv_rec);
4438: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4440: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4441: RAISE Okc_Api.G_EXCEPTION_ERROR;
4442: END IF;
4435: RAISE Okc_Api.G_EXCEPTION_ERROR;
4436: END IF;
4437: l_return_status := Validate_Record(l_tcnv_rec);
4438: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4440: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4441: RAISE Okc_Api.G_EXCEPTION_ERROR;
4442: END IF;
4443: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4436: END IF;
4437: l_return_status := Validate_Record(l_tcnv_rec);
4438: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4440: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4441: RAISE Okc_Api.G_EXCEPTION_ERROR;
4442: END IF;
4443: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4444: EXCEPTION
4437: l_return_status := Validate_Record(l_tcnv_rec);
4438: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4439: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4440: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4441: RAISE Okc_Api.G_EXCEPTION_ERROR;
4442: END IF;
4443: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4444: EXCEPTION
4445: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4439: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4440: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4441: RAISE Okc_Api.G_EXCEPTION_ERROR;
4442: END IF;
4443: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4444: EXCEPTION
4445: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4446: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4447: (
4441: RAISE Okc_Api.G_EXCEPTION_ERROR;
4442: END IF;
4443: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4444: EXCEPTION
4445: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4446: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4447: (
4448: l_api_name,
4449: G_PKG_NAME,
4442: END IF;
4443: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4444: EXCEPTION
4445: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4446: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4447: (
4448: l_api_name,
4449: G_PKG_NAME,
4450: 'OKC_API.G_RET_STS_ERROR',
4446: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4447: (
4448: l_api_name,
4449: G_PKG_NAME,
4450: 'OKC_API.G_RET_STS_ERROR',
4451: x_msg_count,
4452: x_msg_data,
4453: '_PVT'
4454: );
4451: x_msg_count,
4452: x_msg_data,
4453: '_PVT'
4454: );
4455: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4456: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4457: (
4458: l_api_name,
4459: G_PKG_NAME,
4452: x_msg_data,
4453: '_PVT'
4454: );
4455: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4456: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4457: (
4458: l_api_name,
4459: G_PKG_NAME,
4460: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4456: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4457: (
4458: l_api_name,
4459: G_PKG_NAME,
4460: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4461: x_msg_count,
4462: x_msg_data,
4463: '_PVT'
4464: );
4462: x_msg_data,
4463: '_PVT'
4464: );
4465: WHEN OTHERS THEN
4466: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4467: (
4468: l_api_name,
4469: G_PKG_NAME,
4470: 'OTHERS',
4485: p_tcnv_tbl IN tcnv_tbl_type) IS
4486:
4487: l_api_version CONSTANT NUMBER := 1;
4488: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4489: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4490: i NUMBER := 0;
4491: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4492:
4493: BEGIN
4487: l_api_version CONSTANT NUMBER := 1;
4488: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4489: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4490: i NUMBER := 0;
4491: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4492:
4493: BEGIN
4494: Okc_Api.init_msg_list(p_init_msg_list);
4495: -- Make sure PL/SQL table has records in it before passing
4490: i NUMBER := 0;
4491: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4492:
4493: BEGIN
4494: Okc_Api.init_msg_list(p_init_msg_list);
4495: -- Make sure PL/SQL table has records in it before passing
4496: IF (p_tcnv_tbl.COUNT > 0) THEN
4497: i := p_tcnv_tbl.FIRST;
4498: LOOP
4497: i := p_tcnv_tbl.FIRST;
4498: LOOP
4499: validate_row (
4500: p_api_version => p_api_version,
4501: p_init_msg_list => Okc_Api.G_FALSE,
4502: x_return_status => x_return_status,
4503: x_msg_count => x_msg_count,
4504: x_msg_data => x_msg_data,
4505: p_tcnv_rec => p_tcnv_tbl(i));
4504: x_msg_data => x_msg_data,
4505: p_tcnv_rec => p_tcnv_tbl(i));
4506:
4507: -- store the highest degree of error
4508: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
4509: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
4510: l_overall_status := x_return_status;
4511: END IF;
4512: END IF;
4505: p_tcnv_rec => p_tcnv_tbl(i));
4506:
4507: -- store the highest degree of error
4508: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
4509: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
4510: l_overall_status := x_return_status;
4511: END IF;
4512: END IF;
4513:
4518: x_return_status := l_overall_status;
4519:
4520: END IF;
4521: EXCEPTION
4522: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4523: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4524: (
4525: l_api_name,
4526: G_PKG_NAME,
4519:
4520: END IF;
4521: EXCEPTION
4522: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4523: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4524: (
4525: l_api_name,
4526: G_PKG_NAME,
4527: 'OKC_API.G_RET_STS_ERROR',
4523: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4524: (
4525: l_api_name,
4526: G_PKG_NAME,
4527: 'OKC_API.G_RET_STS_ERROR',
4528: x_msg_count,
4529: x_msg_data,
4530: '_PVT'
4531: );
4528: x_msg_count,
4529: x_msg_data,
4530: '_PVT'
4531: );
4532: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4533: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4534: (
4535: l_api_name,
4536: G_PKG_NAME,
4529: x_msg_data,
4530: '_PVT'
4531: );
4532: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4533: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4534: (
4535: l_api_name,
4536: G_PKG_NAME,
4537: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4533: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4534: (
4535: l_api_name,
4536: G_PKG_NAME,
4537: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4538: x_msg_count,
4539: x_msg_data,
4540: '_PVT'
4541: );
4539: x_msg_data,
4540: '_PVT'
4541: );
4542: WHEN OTHERS THEN
4543: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4544: (
4545: l_api_name,
4546: G_PKG_NAME,
4547: 'OTHERS',
4566: x_tcn_rec OUT NOCOPY tcn_rec_type) IS
4567:
4568: l_api_version CONSTANT NUMBER := 1;
4569: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACTS_insert_row';
4570: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4571: l_tcn_rec tcn_rec_type := p_tcn_rec;
4572: l_def_tcn_rec tcn_rec_type;
4573: ------------------------------------------
4574: -- Set_Attributes for:OKL_TRX_CONTRACTS --
4576: FUNCTION Set_Attributes (
4577: p_tcn_rec IN tcn_rec_type,
4578: x_tcn_rec OUT NOCOPY tcn_rec_type
4579: ) RETURN VARCHAR2 IS
4580: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4581: BEGIN
4582: x_tcn_rec := p_tcn_rec;
4583: RETURN(l_return_status);
4584: END Set_Attributes;
4582: x_tcn_rec := p_tcn_rec;
4583: RETURN(l_return_status);
4584: END Set_Attributes;
4585: BEGIN
4586: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4587: p_init_msg_list,
4588: '_PVT',
4589: x_return_status);
4590: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4586: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4587: p_init_msg_list,
4588: '_PVT',
4589: x_return_status);
4590: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4591: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4592: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4593: RAISE Okc_Api.G_EXCEPTION_ERROR;
4594: END IF;
4587: p_init_msg_list,
4588: '_PVT',
4589: x_return_status);
4590: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4591: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4592: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4593: RAISE Okc_Api.G_EXCEPTION_ERROR;
4594: END IF;
4595: --- Setting item attributes
4588: '_PVT',
4589: x_return_status);
4590: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4591: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4592: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4593: RAISE Okc_Api.G_EXCEPTION_ERROR;
4594: END IF;
4595: --- Setting item attributes
4596: l_return_status := Set_Attributes(
4589: x_return_status);
4590: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4591: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4592: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4593: RAISE Okc_Api.G_EXCEPTION_ERROR;
4594: END IF;
4595: --- Setting item attributes
4596: l_return_status := Set_Attributes(
4597: p_tcn_rec, -- IN
4596: l_return_status := Set_Attributes(
4597: p_tcn_rec, -- IN
4598: l_tcn_rec); -- OUT
4599: --- If any errors happen abort API
4600: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4601: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4602: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4603: RAISE Okc_Api.G_EXCEPTION_ERROR;
4604: END IF;
4597: p_tcn_rec, -- IN
4598: l_tcn_rec); -- OUT
4599: --- If any errors happen abort API
4600: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4601: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4602: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4603: RAISE Okc_Api.G_EXCEPTION_ERROR;
4604: END IF;
4605: INSERT INTO OKL_TRX_CONTRACTS(
4598: l_tcn_rec); -- OUT
4599: --- If any errors happen abort API
4600: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4601: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4602: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4603: RAISE Okc_Api.G_EXCEPTION_ERROR;
4604: END IF;
4605: INSERT INTO OKL_TRX_CONTRACTS(
4606: id,
4599: --- If any errors happen abort API
4600: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4601: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4602: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4603: RAISE Okc_Api.G_EXCEPTION_ERROR;
4604: END IF;
4605: INSERT INTO OKL_TRX_CONTRACTS(
4606: id,
4607: khr_id_new,
4828: );
4829:
4830: -- Set OUT values
4831: x_tcn_rec := l_tcn_rec;
4832: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4833: EXCEPTION
4834: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4835: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4836: (
4830: -- Set OUT values
4831: x_tcn_rec := l_tcn_rec;
4832: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4833: EXCEPTION
4834: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4835: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4836: (
4837: l_api_name,
4838: G_PKG_NAME,
4831: x_tcn_rec := l_tcn_rec;
4832: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4833: EXCEPTION
4834: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4835: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4836: (
4837: l_api_name,
4838: G_PKG_NAME,
4839: 'OKC_API.G_RET_STS_ERROR',
4835: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4836: (
4837: l_api_name,
4838: G_PKG_NAME,
4839: 'OKC_API.G_RET_STS_ERROR',
4840: x_msg_count,
4841: x_msg_data,
4842: '_PVT'
4843: );
4840: x_msg_count,
4841: x_msg_data,
4842: '_PVT'
4843: );
4844: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4845: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4846: (
4847: l_api_name,
4848: G_PKG_NAME,
4841: x_msg_data,
4842: '_PVT'
4843: );
4844: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4845: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4846: (
4847: l_api_name,
4848: G_PKG_NAME,
4849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4845: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4846: (
4847: l_api_name,
4848: G_PKG_NAME,
4849: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4850: x_msg_count,
4851: x_msg_data,
4852: '_PVT'
4853: );
4851: x_msg_data,
4852: '_PVT'
4853: );
4854: WHEN OTHERS THEN
4855: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4856: (
4857: l_api_name,
4858: G_PKG_NAME,
4859: 'OTHERS',
4875: x_tcnv_rec OUT NOCOPY tcnv_rec_type) IS
4876:
4877: l_api_version CONSTANT NUMBER := 1;
4878: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
4879: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4880: l_tcnv_rec tcnv_rec_type;
4881: l_def_tcnv_rec tcnv_rec_type;
4882: l_tcn_rec tcn_rec_type;
4883: lx_tcn_rec tcn_rec_type;
4908: FUNCTION Set_Attributes (
4909: p_tcnv_rec IN tcnv_rec_type,
4910: x_tcnv_rec OUT NOCOPY tcnv_rec_type
4911: ) RETURN VARCHAR2 IS
4912: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4913: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
4914: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
4915: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
4916: BEGIN
4957:
4958: RETURN(l_return_status);
4959: END Set_Attributes;
4960: BEGIN
4961: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4962: G_PKG_NAME,
4963: p_init_msg_list,
4964: l_api_version,
4965: p_api_version,
4964: l_api_version,
4965: p_api_version,
4966: '_PVT',
4967: x_return_status);
4968: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4969: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4970: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4971: RAISE Okc_Api.G_EXCEPTION_ERROR;
4972: END IF;
4965: p_api_version,
4966: '_PVT',
4967: x_return_status);
4968: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4969: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4970: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4971: RAISE Okc_Api.G_EXCEPTION_ERROR;
4972: END IF;
4973: l_tcnv_rec := null_out_defaults(p_tcnv_rec);
4966: '_PVT',
4967: x_return_status);
4968: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4969: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4970: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4971: RAISE Okc_Api.G_EXCEPTION_ERROR;
4972: END IF;
4973: l_tcnv_rec := null_out_defaults(p_tcnv_rec);
4974: -- Set primary key value
4967: x_return_status);
4968: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4969: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4970: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4971: RAISE Okc_Api.G_EXCEPTION_ERROR;
4972: END IF;
4973: l_tcnv_rec := null_out_defaults(p_tcnv_rec);
4974: -- Set primary key value
4975: l_tcnv_rec.ID := get_seq_id;
4977: l_return_status := Set_Attributes(
4978: l_tcnv_rec, -- IN
4979: l_def_tcnv_rec); -- OUT
4980: --- If any errors happen abort API
4981: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4982: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4983: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4984: RAISE Okc_Api.G_EXCEPTION_ERROR;
4985: END IF;
4978: l_tcnv_rec, -- IN
4979: l_def_tcnv_rec); -- OUT
4980: --- If any errors happen abort API
4981: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4982: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4983: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4984: RAISE Okc_Api.G_EXCEPTION_ERROR;
4985: END IF;
4986: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
4979: l_def_tcnv_rec); -- OUT
4980: --- If any errors happen abort API
4981: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4982: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4983: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4984: RAISE Okc_Api.G_EXCEPTION_ERROR;
4985: END IF;
4986: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
4987: --- Validate all non-missing attributes (Item Level Validation)
4980: --- If any errors happen abort API
4981: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4982: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4983: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4984: RAISE Okc_Api.G_EXCEPTION_ERROR;
4985: END IF;
4986: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
4987: --- Validate all non-missing attributes (Item Level Validation)
4988: l_return_status := Validate_Attributes(l_def_tcnv_rec);
4986: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
4987: --- Validate all non-missing attributes (Item Level Validation)
4988: l_return_status := Validate_Attributes(l_def_tcnv_rec);
4989: --- If any errors happen abort API
4990: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4991: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4992: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4993: RAISE Okc_Api.G_EXCEPTION_ERROR;
4994: END IF;
4987: --- Validate all non-missing attributes (Item Level Validation)
4988: l_return_status := Validate_Attributes(l_def_tcnv_rec);
4989: --- If any errors happen abort API
4990: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4991: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4992: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4993: RAISE Okc_Api.G_EXCEPTION_ERROR;
4994: END IF;
4995: l_return_status := Validate_Record(l_def_tcnv_rec);
4988: l_return_status := Validate_Attributes(l_def_tcnv_rec);
4989: --- If any errors happen abort API
4990: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4991: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4992: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4993: RAISE Okc_Api.G_EXCEPTION_ERROR;
4994: END IF;
4995: l_return_status := Validate_Record(l_def_tcnv_rec);
4996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4989: --- If any errors happen abort API
4990: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4991: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4992: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4993: RAISE Okc_Api.G_EXCEPTION_ERROR;
4994: END IF;
4995: l_return_status := Validate_Record(l_def_tcnv_rec);
4996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4997: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4992: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4993: RAISE Okc_Api.G_EXCEPTION_ERROR;
4994: END IF;
4995: l_return_status := Validate_Record(l_def_tcnv_rec);
4996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4997: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4998: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4999: RAISE Okc_Api.G_EXCEPTION_ERROR;
5000: END IF;
4993: RAISE Okc_Api.G_EXCEPTION_ERROR;
4994: END IF;
4995: l_return_status := Validate_Record(l_def_tcnv_rec);
4996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4997: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4998: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4999: RAISE Okc_Api.G_EXCEPTION_ERROR;
5000: END IF;
5001: --------------------------------------
4994: END IF;
4995: l_return_status := Validate_Record(l_def_tcnv_rec);
4996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4997: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4998: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4999: RAISE Okc_Api.G_EXCEPTION_ERROR;
5000: END IF;
5001: --------------------------------------
5002: -- Move VIEW record to "Child" records
4995: l_return_status := Validate_Record(l_def_tcnv_rec);
4996: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4997: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4998: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4999: RAISE Okc_Api.G_EXCEPTION_ERROR;
5000: END IF;
5001: --------------------------------------
5002: -- Move VIEW record to "Child" records
5003: --------------------------------------
5012: x_msg_data,
5013: l_tcn_rec,
5014: lx_tcn_rec
5015: );
5016: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5019: RAISE Okc_Api.G_EXCEPTION_ERROR;
5020: END IF;
5013: l_tcn_rec,
5014: lx_tcn_rec
5015: );
5016: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5019: RAISE Okc_Api.G_EXCEPTION_ERROR;
5020: END IF;
5021: migrate(lx_tcn_rec, l_def_tcnv_rec);
5014: lx_tcn_rec
5015: );
5016: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5019: RAISE Okc_Api.G_EXCEPTION_ERROR;
5020: END IF;
5021: migrate(lx_tcn_rec, l_def_tcnv_rec);
5022: -- Set OUT values
5015: );
5016: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5017: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5018: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5019: RAISE Okc_Api.G_EXCEPTION_ERROR;
5020: END IF;
5021: migrate(lx_tcn_rec, l_def_tcnv_rec);
5022: -- Set OUT values
5023: x_tcnv_rec := l_def_tcnv_rec;
5020: END IF;
5021: migrate(lx_tcn_rec, l_def_tcnv_rec);
5022: -- Set OUT values
5023: x_tcnv_rec := l_def_tcnv_rec;
5024: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5025: EXCEPTION
5026: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5027: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5028: (
5022: -- Set OUT values
5023: x_tcnv_rec := l_def_tcnv_rec;
5024: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5025: EXCEPTION
5026: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5027: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5028: (
5029: l_api_name,
5030: G_PKG_NAME,
5023: x_tcnv_rec := l_def_tcnv_rec;
5024: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5025: EXCEPTION
5026: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5027: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5028: (
5029: l_api_name,
5030: G_PKG_NAME,
5031: 'OKC_API.G_RET_STS_ERROR',
5027: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5028: (
5029: l_api_name,
5030: G_PKG_NAME,
5031: 'OKC_API.G_RET_STS_ERROR',
5032: x_msg_count,
5033: x_msg_data,
5034: '_PVT'
5035: );
5032: x_msg_count,
5033: x_msg_data,
5034: '_PVT'
5035: );
5036: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5037: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5038: (
5039: l_api_name,
5040: G_PKG_NAME,
5033: x_msg_data,
5034: '_PVT'
5035: );
5036: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5037: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5038: (
5039: l_api_name,
5040: G_PKG_NAME,
5041: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5037: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5038: (
5039: l_api_name,
5040: G_PKG_NAME,
5041: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5042: x_msg_count,
5043: x_msg_data,
5044: '_PVT'
5045: );
5043: x_msg_data,
5044: '_PVT'
5045: );
5046: WHEN OTHERS THEN
5047: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5048: (
5049: l_api_name,
5050: G_PKG_NAME,
5051: 'OTHERS',
5067: x_tcnv_tbl OUT NOCOPY tcnv_tbl_type) IS
5068:
5069: l_api_version CONSTANT NUMBER := 1;
5070: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5071: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5072: i NUMBER := 0;
5073: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5074:
5075: BEGIN
5069: l_api_version CONSTANT NUMBER := 1;
5070: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5071: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5072: i NUMBER := 0;
5073: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5074:
5075: BEGIN
5076: Okc_Api.init_msg_list(p_init_msg_list);
5077: -- Make sure PL/SQL table has records in it before passing
5072: i NUMBER := 0;
5073: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5074:
5075: BEGIN
5076: Okc_Api.init_msg_list(p_init_msg_list);
5077: -- Make sure PL/SQL table has records in it before passing
5078: IF (p_tcnv_tbl.COUNT > 0) THEN
5079: i := p_tcnv_tbl.FIRST;
5080: LOOP
5079: i := p_tcnv_tbl.FIRST;
5080: LOOP
5081: insert_row (
5082: p_api_version => p_api_version,
5083: p_init_msg_list => Okc_Api.G_FALSE,
5084: x_return_status => x_return_status,
5085: x_msg_count => x_msg_count,
5086: x_msg_data => x_msg_data,
5087: p_tcnv_rec => p_tcnv_tbl(i),
5086: x_msg_data => x_msg_data,
5087: p_tcnv_rec => p_tcnv_tbl(i),
5088: x_tcnv_rec => x_tcnv_tbl(i));
5089: -- store the highest degree of error
5090: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
5091: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
5092: l_overall_status := x_return_status;
5093: END IF;
5094: END IF;
5087: p_tcnv_rec => p_tcnv_tbl(i),
5088: x_tcnv_rec => x_tcnv_tbl(i));
5089: -- store the highest degree of error
5090: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
5091: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
5092: l_overall_status := x_return_status;
5093: END IF;
5094: END IF;
5095:
5100: x_return_status := l_overall_status;
5101:
5102: END IF;
5103: EXCEPTION
5104: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5105: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5106: (
5107: l_api_name,
5108: G_PKG_NAME,
5101:
5102: END IF;
5103: EXCEPTION
5104: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5105: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5106: (
5107: l_api_name,
5108: G_PKG_NAME,
5109: 'OKC_API.G_RET_STS_ERROR',
5105: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5106: (
5107: l_api_name,
5108: G_PKG_NAME,
5109: 'OKC_API.G_RET_STS_ERROR',
5110: x_msg_count,
5111: x_msg_data,
5112: '_PVT'
5113: );
5110: x_msg_count,
5111: x_msg_data,
5112: '_PVT'
5113: );
5114: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5115: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5116: (
5117: l_api_name,
5118: G_PKG_NAME,
5111: x_msg_data,
5112: '_PVT'
5113: );
5114: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5115: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5116: (
5117: l_api_name,
5118: G_PKG_NAME,
5119: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5115: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5116: (
5117: l_api_name,
5118: G_PKG_NAME,
5119: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5120: x_msg_count,
5121: x_msg_data,
5122: '_PVT'
5123: );
5121: x_msg_data,
5122: '_PVT'
5123: );
5124: WHEN OTHERS THEN
5125: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5126: (
5127: l_api_name,
5128: G_PKG_NAME,
5129: 'OTHERS',
5160: FROM OKL_TRX_CONTRACTS
5161: WHERE ID = p_tcn_rec.id;
5162: l_api_version CONSTANT NUMBER := 1;
5163: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACTS_lock_row';
5164: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5165: l_object_version_number OKL_TRX_CONTRACTS.OBJECT_VERSION_NUMBER%TYPE;
5166: lc_object_version_number OKL_TRX_CONTRACTS.OBJECT_VERSION_NUMBER%TYPE;
5167: l_row_notfound BOOLEAN := FALSE;
5168: lc_row_notfound BOOLEAN := FALSE;
5166: lc_object_version_number OKL_TRX_CONTRACTS.OBJECT_VERSION_NUMBER%TYPE;
5167: l_row_notfound BOOLEAN := FALSE;
5168: lc_row_notfound BOOLEAN := FALSE;
5169: BEGIN
5170: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5171: p_init_msg_list,
5172: '_PVT',
5173: x_return_status);
5174: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5170: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5171: p_init_msg_list,
5172: '_PVT',
5173: x_return_status);
5174: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5175: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5176: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5177: RAISE Okc_Api.G_EXCEPTION_ERROR;
5178: END IF;
5171: p_init_msg_list,
5172: '_PVT',
5173: x_return_status);
5174: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5175: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5176: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5177: RAISE Okc_Api.G_EXCEPTION_ERROR;
5178: END IF;
5179: BEGIN
5172: '_PVT',
5173: x_return_status);
5174: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5175: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5176: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5177: RAISE Okc_Api.G_EXCEPTION_ERROR;
5178: END IF;
5179: BEGIN
5180: OPEN lock_csr(p_tcn_rec);
5173: x_return_status);
5174: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5175: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5176: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5177: RAISE Okc_Api.G_EXCEPTION_ERROR;
5178: END IF;
5179: BEGIN
5180: OPEN lock_csr(p_tcn_rec);
5181: FETCH lock_csr INTO l_object_version_number;
5185: WHEN E_Resource_Busy THEN
5186: IF (lock_csr%ISOPEN) THEN
5187: CLOSE lock_csr;
5188: END IF;
5189: Okc_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
5190: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
5191: END;
5192:
5193: IF ( l_row_notfound ) THEN
5196: lc_row_notfound := lchk_csr%NOTFOUND;
5197: CLOSE lchk_csr;
5198: END IF;
5199: IF (lc_row_notfound) THEN
5200: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5201: RAISE Okc_Api.G_EXCEPTION_ERROR;
5202: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5203: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5204: RAISE Okc_Api.G_EXCEPTION_ERROR;
5197: CLOSE lchk_csr;
5198: END IF;
5199: IF (lc_row_notfound) THEN
5200: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5201: RAISE Okc_Api.G_EXCEPTION_ERROR;
5202: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5203: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5204: RAISE Okc_Api.G_EXCEPTION_ERROR;
5205: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5199: IF (lc_row_notfound) THEN
5200: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5201: RAISE Okc_Api.G_EXCEPTION_ERROR;
5202: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5203: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5204: RAISE Okc_Api.G_EXCEPTION_ERROR;
5205: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5206: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5207: RAISE Okc_Api.G_EXCEPTION_ERROR;
5200: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5201: RAISE Okc_Api.G_EXCEPTION_ERROR;
5202: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5203: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5204: RAISE Okc_Api.G_EXCEPTION_ERROR;
5205: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5206: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5207: RAISE Okc_Api.G_EXCEPTION_ERROR;
5208: ELSIF lc_object_version_number = -1 THEN
5202: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5203: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5204: RAISE Okc_Api.G_EXCEPTION_ERROR;
5205: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5206: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5207: RAISE Okc_Api.G_EXCEPTION_ERROR;
5208: ELSIF lc_object_version_number = -1 THEN
5209: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5210: RAISE Okc_Api.G_EXCEPTION_ERROR;
5203: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5204: RAISE Okc_Api.G_EXCEPTION_ERROR;
5205: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5206: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5207: RAISE Okc_Api.G_EXCEPTION_ERROR;
5208: ELSIF lc_object_version_number = -1 THEN
5209: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5210: RAISE Okc_Api.G_EXCEPTION_ERROR;
5211: END IF;
5205: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5206: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5207: RAISE Okc_Api.G_EXCEPTION_ERROR;
5208: ELSIF lc_object_version_number = -1 THEN
5209: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5210: RAISE Okc_Api.G_EXCEPTION_ERROR;
5211: END IF;
5212: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5213: EXCEPTION
5206: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5207: RAISE Okc_Api.G_EXCEPTION_ERROR;
5208: ELSIF lc_object_version_number = -1 THEN
5209: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5210: RAISE Okc_Api.G_EXCEPTION_ERROR;
5211: END IF;
5212: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5213: EXCEPTION
5214: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5208: ELSIF lc_object_version_number = -1 THEN
5209: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5210: RAISE Okc_Api.G_EXCEPTION_ERROR;
5211: END IF;
5212: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5213: EXCEPTION
5214: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5215: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5216: (
5210: RAISE Okc_Api.G_EXCEPTION_ERROR;
5211: END IF;
5212: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5213: EXCEPTION
5214: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5215: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5216: (
5217: l_api_name,
5218: G_PKG_NAME,
5211: END IF;
5212: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5213: EXCEPTION
5214: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5215: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5216: (
5217: l_api_name,
5218: G_PKG_NAME,
5219: 'OKC_API.G_RET_STS_ERROR',
5215: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5216: (
5217: l_api_name,
5218: G_PKG_NAME,
5219: 'OKC_API.G_RET_STS_ERROR',
5220: x_msg_count,
5221: x_msg_data,
5222: '_PVT'
5223: );
5220: x_msg_count,
5221: x_msg_data,
5222: '_PVT'
5223: );
5224: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5225: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5226: (
5227: l_api_name,
5228: G_PKG_NAME,
5221: x_msg_data,
5222: '_PVT'
5223: );
5224: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5225: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5226: (
5227: l_api_name,
5228: G_PKG_NAME,
5229: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5225: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5226: (
5227: l_api_name,
5228: G_PKG_NAME,
5229: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5230: x_msg_count,
5231: x_msg_data,
5232: '_PVT'
5233: );
5231: x_msg_data,
5232: '_PVT'
5233: );
5234: WHEN OTHERS THEN
5235: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5236: (
5237: l_api_name,
5238: G_PKG_NAME,
5239: 'OTHERS',
5254: p_tcnv_rec IN tcnv_rec_type) IS
5255:
5256: l_api_version CONSTANT NUMBER := 1;
5257: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
5258: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5259: l_tcn_rec tcn_rec_type;
5260: BEGIN
5261: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5262: G_PKG_NAME,
5257: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
5258: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5259: l_tcn_rec tcn_rec_type;
5260: BEGIN
5261: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5262: G_PKG_NAME,
5263: p_init_msg_list,
5264: l_api_version,
5265: p_api_version,
5264: l_api_version,
5265: p_api_version,
5266: '_PVT',
5267: x_return_status);
5268: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5269: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5270: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5271: RAISE Okc_Api.G_EXCEPTION_ERROR;
5272: END IF;
5265: p_api_version,
5266: '_PVT',
5267: x_return_status);
5268: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5269: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5270: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5271: RAISE Okc_Api.G_EXCEPTION_ERROR;
5272: END IF;
5273: --------------------------------------
5266: '_PVT',
5267: x_return_status);
5268: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5269: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5270: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5271: RAISE Okc_Api.G_EXCEPTION_ERROR;
5272: END IF;
5273: --------------------------------------
5274: -- Move VIEW record to "Child" records
5267: x_return_status);
5268: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5269: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5270: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5271: RAISE Okc_Api.G_EXCEPTION_ERROR;
5272: END IF;
5273: --------------------------------------
5274: -- Move VIEW record to "Child" records
5275: --------------------------------------
5283: x_msg_count,
5284: x_msg_data,
5285: l_tcn_rec
5286: );
5287: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5288: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5289: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5290: RAISE Okc_Api.G_EXCEPTION_ERROR;
5291: END IF;
5284: x_msg_data,
5285: l_tcn_rec
5286: );
5287: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5288: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5289: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5290: RAISE Okc_Api.G_EXCEPTION_ERROR;
5291: END IF;
5292: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5285: l_tcn_rec
5286: );
5287: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5288: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5289: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5290: RAISE Okc_Api.G_EXCEPTION_ERROR;
5291: END IF;
5292: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5293: EXCEPTION
5286: );
5287: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5288: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5289: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5290: RAISE Okc_Api.G_EXCEPTION_ERROR;
5291: END IF;
5292: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5293: EXCEPTION
5294: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5288: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5289: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5290: RAISE Okc_Api.G_EXCEPTION_ERROR;
5291: END IF;
5292: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5293: EXCEPTION
5294: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5295: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5296: (
5290: RAISE Okc_Api.G_EXCEPTION_ERROR;
5291: END IF;
5292: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5293: EXCEPTION
5294: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5295: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5296: (
5297: l_api_name,
5298: G_PKG_NAME,
5291: END IF;
5292: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5293: EXCEPTION
5294: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5295: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5296: (
5297: l_api_name,
5298: G_PKG_NAME,
5299: 'OKC_API.G_RET_STS_ERROR',
5295: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5296: (
5297: l_api_name,
5298: G_PKG_NAME,
5299: 'OKC_API.G_RET_STS_ERROR',
5300: x_msg_count,
5301: x_msg_data,
5302: '_PVT'
5303: );
5300: x_msg_count,
5301: x_msg_data,
5302: '_PVT'
5303: );
5304: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5305: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5306: (
5307: l_api_name,
5308: G_PKG_NAME,
5301: x_msg_data,
5302: '_PVT'
5303: );
5304: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5305: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5306: (
5307: l_api_name,
5308: G_PKG_NAME,
5309: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5305: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5306: (
5307: l_api_name,
5308: G_PKG_NAME,
5309: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5310: x_msg_count,
5311: x_msg_data,
5312: '_PVT'
5313: );
5311: x_msg_data,
5312: '_PVT'
5313: );
5314: WHEN OTHERS THEN
5315: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5316: (
5317: l_api_name,
5318: G_PKG_NAME,
5319: 'OTHERS',
5334: p_tcnv_tbl IN tcnv_tbl_type) IS
5335:
5336: l_api_version CONSTANT NUMBER := 1;
5337: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
5338: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5339: i NUMBER := 0;
5340: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5341:
5342: BEGIN
5336: l_api_version CONSTANT NUMBER := 1;
5337: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
5338: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5339: i NUMBER := 0;
5340: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5341:
5342: BEGIN
5343: Okc_Api.init_msg_list(p_init_msg_list);
5344: -- Make sure PL/SQL table has records in it before passing
5339: i NUMBER := 0;
5340: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5341:
5342: BEGIN
5343: Okc_Api.init_msg_list(p_init_msg_list);
5344: -- Make sure PL/SQL table has records in it before passing
5345: IF (p_tcnv_tbl.COUNT > 0) THEN
5346: i := p_tcnv_tbl.FIRST;
5347: LOOP
5346: i := p_tcnv_tbl.FIRST;
5347: LOOP
5348: lock_row (
5349: p_api_version => p_api_version,
5350: p_init_msg_list => Okc_Api.G_FALSE,
5351: x_return_status => x_return_status,
5352: x_msg_count => x_msg_count,
5353: x_msg_data => x_msg_data,
5354: p_tcnv_rec => p_tcnv_tbl(i));
5353: x_msg_data => x_msg_data,
5354: p_tcnv_rec => p_tcnv_tbl(i));
5355:
5356: -- store the highest degree of error
5357: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
5358: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
5359: l_overall_status := x_return_status;
5360: END IF;
5361: END IF;
5354: p_tcnv_rec => p_tcnv_tbl(i));
5355:
5356: -- store the highest degree of error
5357: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
5358: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
5359: l_overall_status := x_return_status;
5360: END IF;
5361: END IF;
5362:
5367: x_return_status := l_overall_status;
5368:
5369: END IF;
5370: EXCEPTION
5371: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5372: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5373: (
5374: l_api_name,
5375: G_PKG_NAME,
5368:
5369: END IF;
5370: EXCEPTION
5371: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5372: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5373: (
5374: l_api_name,
5375: G_PKG_NAME,
5376: 'OKC_API.G_RET_STS_ERROR',
5372: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5373: (
5374: l_api_name,
5375: G_PKG_NAME,
5376: 'OKC_API.G_RET_STS_ERROR',
5377: x_msg_count,
5378: x_msg_data,
5379: '_PVT'
5380: );
5377: x_msg_count,
5378: x_msg_data,
5379: '_PVT'
5380: );
5381: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5382: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5383: (
5384: l_api_name,
5385: G_PKG_NAME,
5378: x_msg_data,
5379: '_PVT'
5380: );
5381: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5382: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5383: (
5384: l_api_name,
5385: G_PKG_NAME,
5386: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5382: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5383: (
5384: l_api_name,
5385: G_PKG_NAME,
5386: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5387: x_msg_count,
5388: x_msg_data,
5389: '_PVT'
5390: );
5388: x_msg_data,
5389: '_PVT'
5390: );
5391: WHEN OTHERS THEN
5392: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5393: (
5394: l_api_name,
5395: G_PKG_NAME,
5396: 'OTHERS',
5415: x_tcn_rec OUT NOCOPY tcn_rec_type) IS
5416:
5417: l_api_version CONSTANT NUMBER := 1;
5418: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACTS_update_row';
5419: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5420: l_tcn_rec tcn_rec_type := p_tcn_rec;
5421: l_def_tcn_rec tcn_rec_type;
5422: l_row_notfound BOOLEAN := TRUE;
5423: ----------------------------------
5428: x_tcn_rec OUT NOCOPY tcn_rec_type
5429: ) RETURN VARCHAR2 IS
5430: l_tcn_rec tcn_rec_type;
5431: l_row_notfound BOOLEAN := TRUE;
5432: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5433: BEGIN
5434: x_tcn_rec := p_tcn_rec;
5435: -- Get current database values
5436: l_tcn_rec := get_rec(p_tcn_rec, l_row_notfound);
5434: x_tcn_rec := p_tcn_rec;
5435: -- Get current database values
5436: l_tcn_rec := get_rec(p_tcn_rec, l_row_notfound);
5437: IF (l_row_notfound) THEN
5438: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
5439: END IF;
5440: IF (x_tcn_rec.id = Okc_Api.G_MISS_NUM)
5441: THEN
5442: x_tcn_rec.id := l_tcn_rec.id;
5436: l_tcn_rec := get_rec(p_tcn_rec, l_row_notfound);
5437: IF (l_row_notfound) THEN
5438: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
5439: END IF;
5440: IF (x_tcn_rec.id = Okc_Api.G_MISS_NUM)
5441: THEN
5442: x_tcn_rec.id := l_tcn_rec.id;
5443: END IF;
5444: IF (x_tcn_rec.khr_id_new = Okc_Api.G_MISS_NUM)
5440: IF (x_tcn_rec.id = Okc_Api.G_MISS_NUM)
5441: THEN
5442: x_tcn_rec.id := l_tcn_rec.id;
5443: END IF;
5444: IF (x_tcn_rec.khr_id_new = Okc_Api.G_MISS_NUM)
5445: THEN
5446: x_tcn_rec.khr_id_new := l_tcn_rec.khr_id_new;
5447: END IF;
5448: IF (x_tcn_rec.pvn_id = Okc_Api.G_MISS_NUM)
5444: IF (x_tcn_rec.khr_id_new = Okc_Api.G_MISS_NUM)
5445: THEN
5446: x_tcn_rec.khr_id_new := l_tcn_rec.khr_id_new;
5447: END IF;
5448: IF (x_tcn_rec.pvn_id = Okc_Api.G_MISS_NUM)
5449: THEN
5450: x_tcn_rec.pvn_id := l_tcn_rec.pvn_id;
5451: END IF;
5452: IF (x_tcn_rec.pdt_id = Okc_Api.G_MISS_NUM)
5448: IF (x_tcn_rec.pvn_id = Okc_Api.G_MISS_NUM)
5449: THEN
5450: x_tcn_rec.pvn_id := l_tcn_rec.pvn_id;
5451: END IF;
5452: IF (x_tcn_rec.pdt_id = Okc_Api.G_MISS_NUM)
5453: THEN
5454: x_tcn_rec.pdt_id := l_tcn_rec.pdt_id;
5455: END IF;
5456: IF (x_tcn_rec.rbr_code = Okc_Api.G_MISS_CHAR)
5452: IF (x_tcn_rec.pdt_id = Okc_Api.G_MISS_NUM)
5453: THEN
5454: x_tcn_rec.pdt_id := l_tcn_rec.pdt_id;
5455: END IF;
5456: IF (x_tcn_rec.rbr_code = Okc_Api.G_MISS_CHAR)
5457: THEN
5458: x_tcn_rec.rbr_code := l_tcn_rec.rbr_code;
5459: END IF;
5460: IF (x_tcn_rec.rpy_code = Okc_Api.G_MISS_CHAR)
5456: IF (x_tcn_rec.rbr_code = Okc_Api.G_MISS_CHAR)
5457: THEN
5458: x_tcn_rec.rbr_code := l_tcn_rec.rbr_code;
5459: END IF;
5460: IF (x_tcn_rec.rpy_code = Okc_Api.G_MISS_CHAR)
5461: THEN
5462: x_tcn_rec.rpy_code := l_tcn_rec.rpy_code;
5463: END IF;
5464: IF (x_tcn_rec.rvn_code = Okc_Api.G_MISS_CHAR)
5460: IF (x_tcn_rec.rpy_code = Okc_Api.G_MISS_CHAR)
5461: THEN
5462: x_tcn_rec.rpy_code := l_tcn_rec.rpy_code;
5463: END IF;
5464: IF (x_tcn_rec.rvn_code = Okc_Api.G_MISS_CHAR)
5465: THEN
5466: x_tcn_rec.rvn_code := l_tcn_rec.rvn_code;
5467: END IF;
5468: IF (x_tcn_rec.trn_code = Okc_Api.G_MISS_CHAR)
5464: IF (x_tcn_rec.rvn_code = Okc_Api.G_MISS_CHAR)
5465: THEN
5466: x_tcn_rec.rvn_code := l_tcn_rec.rvn_code;
5467: END IF;
5468: IF (x_tcn_rec.trn_code = Okc_Api.G_MISS_CHAR)
5469: THEN
5470: x_tcn_rec.trn_code := l_tcn_rec.trn_code;
5471: END IF;
5472: IF (x_tcn_rec.qte_id = Okc_Api.G_MISS_NUM)
5468: IF (x_tcn_rec.trn_code = Okc_Api.G_MISS_CHAR)
5469: THEN
5470: x_tcn_rec.trn_code := l_tcn_rec.trn_code;
5471: END IF;
5472: IF (x_tcn_rec.qte_id = Okc_Api.G_MISS_NUM)
5473: THEN
5474: x_tcn_rec.qte_id := l_tcn_rec.qte_id;
5475: END IF;
5476: IF (x_tcn_rec.aes_id = Okc_Api.G_MISS_NUM)
5472: IF (x_tcn_rec.qte_id = Okc_Api.G_MISS_NUM)
5473: THEN
5474: x_tcn_rec.qte_id := l_tcn_rec.qte_id;
5475: END IF;
5476: IF (x_tcn_rec.aes_id = Okc_Api.G_MISS_NUM)
5477: THEN
5478: x_tcn_rec.aes_id := l_tcn_rec.aes_id;
5479: END IF;
5480: IF (x_tcn_rec.code_combination_id = Okc_Api.G_MISS_NUM)
5476: IF (x_tcn_rec.aes_id = Okc_Api.G_MISS_NUM)
5477: THEN
5478: x_tcn_rec.aes_id := l_tcn_rec.aes_id;
5479: END IF;
5480: IF (x_tcn_rec.code_combination_id = Okc_Api.G_MISS_NUM)
5481: THEN
5482: x_tcn_rec.code_combination_id := l_tcn_rec.code_combination_id;
5483: END IF;
5484:
5481: THEN
5482: x_tcn_rec.code_combination_id := l_tcn_rec.code_combination_id;
5483: END IF;
5484:
5485: IF (x_tcn_rec.tcn_type = Okc_Api.G_MISS_CHAR)
5486: THEN
5487: x_tcn_rec.tcn_type := l_tcn_rec.tcn_type;
5488: END IF;
5489:
5486: THEN
5487: x_tcn_rec.tcn_type := l_tcn_rec.tcn_type;
5488: END IF;
5489:
5490: IF (x_tcn_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
5491: x_tcn_rec.rjn_code := l_tcn_rec.rjn_code;
5492: END IF;
5493:
5494: IF (x_tcn_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
5490: IF (x_tcn_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
5491: x_tcn_rec.rjn_code := l_tcn_rec.rjn_code;
5492: END IF;
5493:
5494: IF (x_tcn_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
5495: x_tcn_rec.party_rel_id1_old := l_tcn_rec.party_rel_id1_old;
5496: END IF;
5497:
5498: IF (x_tcn_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
5494: IF (x_tcn_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
5495: x_tcn_rec.party_rel_id1_old := l_tcn_rec.party_rel_id1_old;
5496: END IF;
5497:
5498: IF (x_tcn_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
5499: x_tcn_rec.party_rel_id2_old := l_tcn_rec.party_rel_id2_old;
5500: END IF;
5501:
5502: IF (x_tcn_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
5498: IF (x_tcn_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
5499: x_tcn_rec.party_rel_id2_old := l_tcn_rec.party_rel_id2_old;
5500: END IF;
5501:
5502: IF (x_tcn_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
5503: x_tcn_rec.party_rel_id1_new := l_tcn_rec.party_rel_id1_new;
5504: END IF;
5505:
5506: IF (x_tcn_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
5502: IF (x_tcn_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
5503: x_tcn_rec.party_rel_id1_new := l_tcn_rec.party_rel_id1_new;
5504: END IF;
5505:
5506: IF (x_tcn_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
5507: x_tcn_rec.party_rel_id2_new := l_tcn_rec.party_rel_id2_new;
5508: END IF;
5509:
5510: IF (x_tcn_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
5506: IF (x_tcn_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
5507: x_tcn_rec.party_rel_id2_new := l_tcn_rec.party_rel_id2_new;
5508: END IF;
5509:
5510: IF (x_tcn_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
5511: x_tcn_rec.complete_transfer_yn := l_tcn_rec.complete_transfer_yn;
5512: END IF;
5513:
5514: IF (x_tcn_rec.object_version_number = Okc_Api.G_MISS_NUM)
5510: IF (x_tcn_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
5511: x_tcn_rec.complete_transfer_yn := l_tcn_rec.complete_transfer_yn;
5512: END IF;
5513:
5514: IF (x_tcn_rec.object_version_number = Okc_Api.G_MISS_NUM)
5515: THEN
5516: x_tcn_rec.object_version_number := l_tcn_rec.object_version_number;
5517: END IF;
5518: IF (x_tcn_rec.created_by = Okc_Api.G_MISS_NUM)
5514: IF (x_tcn_rec.object_version_number = Okc_Api.G_MISS_NUM)
5515: THEN
5516: x_tcn_rec.object_version_number := l_tcn_rec.object_version_number;
5517: END IF;
5518: IF (x_tcn_rec.created_by = Okc_Api.G_MISS_NUM)
5519: THEN
5520: x_tcn_rec.created_by := l_tcn_rec.created_by;
5521: END IF;
5522: IF (x_tcn_rec.creation_date = Okc_Api.G_MISS_DATE)
5518: IF (x_tcn_rec.created_by = Okc_Api.G_MISS_NUM)
5519: THEN
5520: x_tcn_rec.created_by := l_tcn_rec.created_by;
5521: END IF;
5522: IF (x_tcn_rec.creation_date = Okc_Api.G_MISS_DATE)
5523: THEN
5524: x_tcn_rec.creation_date := l_tcn_rec.creation_date;
5525: END IF;
5526: IF (x_tcn_rec.last_updated_by = Okc_Api.G_MISS_NUM)
5522: IF (x_tcn_rec.creation_date = Okc_Api.G_MISS_DATE)
5523: THEN
5524: x_tcn_rec.creation_date := l_tcn_rec.creation_date;
5525: END IF;
5526: IF (x_tcn_rec.last_updated_by = Okc_Api.G_MISS_NUM)
5527: THEN
5528: x_tcn_rec.last_updated_by := l_tcn_rec.last_updated_by;
5529: END IF;
5530: IF (x_tcn_rec.last_update_date = Okc_Api.G_MISS_DATE)
5526: IF (x_tcn_rec.last_updated_by = Okc_Api.G_MISS_NUM)
5527: THEN
5528: x_tcn_rec.last_updated_by := l_tcn_rec.last_updated_by;
5529: END IF;
5530: IF (x_tcn_rec.last_update_date = Okc_Api.G_MISS_DATE)
5531: THEN
5532: x_tcn_rec.last_update_date := l_tcn_rec.last_update_date;
5533: END IF;
5534: IF (x_tcn_rec.date_accrual = Okc_Api.G_MISS_DATE)
5530: IF (x_tcn_rec.last_update_date = Okc_Api.G_MISS_DATE)
5531: THEN
5532: x_tcn_rec.last_update_date := l_tcn_rec.last_update_date;
5533: END IF;
5534: IF (x_tcn_rec.date_accrual = Okc_Api.G_MISS_DATE)
5535: THEN
5536: x_tcn_rec.date_accrual := l_tcn_rec.date_accrual;
5537: END IF;
5538: IF (x_tcn_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
5534: IF (x_tcn_rec.date_accrual = Okc_Api.G_MISS_DATE)
5535: THEN
5536: x_tcn_rec.date_accrual := l_tcn_rec.date_accrual;
5537: END IF;
5538: IF (x_tcn_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
5539: THEN
5540: x_tcn_rec.accrual_status_yn := l_tcn_rec.accrual_status_yn;
5541: END IF;
5542: IF (x_tcn_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
5538: IF (x_tcn_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
5539: THEN
5540: x_tcn_rec.accrual_status_yn := l_tcn_rec.accrual_status_yn;
5541: END IF;
5542: IF (x_tcn_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
5543: THEN
5544: x_tcn_rec.update_status_yn := l_tcn_rec.update_status_yn;
5545: END IF;
5546: IF (x_tcn_rec.org_id = Okc_Api.G_MISS_NUM)
5542: IF (x_tcn_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
5543: THEN
5544: x_tcn_rec.update_status_yn := l_tcn_rec.update_status_yn;
5545: END IF;
5546: IF (x_tcn_rec.org_id = Okc_Api.G_MISS_NUM)
5547: THEN
5548: x_tcn_rec.org_id := l_tcn_rec.org_id;
5549: END IF;
5550: IF (x_tcn_rec.khr_id = Okc_Api.G_MISS_NUM)
5546: IF (x_tcn_rec.org_id = Okc_Api.G_MISS_NUM)
5547: THEN
5548: x_tcn_rec.org_id := l_tcn_rec.org_id;
5549: END IF;
5550: IF (x_tcn_rec.khr_id = Okc_Api.G_MISS_NUM)
5551: THEN
5552: x_tcn_rec.khr_id := l_tcn_rec.khr_id;
5553: END IF;
5554: IF (x_tcn_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
5550: IF (x_tcn_rec.khr_id = Okc_Api.G_MISS_NUM)
5551: THEN
5552: x_tcn_rec.khr_id := l_tcn_rec.khr_id;
5553: END IF;
5554: IF (x_tcn_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
5555: THEN
5556: x_tcn_rec.tax_deductible_local := l_tcn_rec.tax_deductible_local;
5557: END IF;
5558: IF (x_tcn_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
5554: IF (x_tcn_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
5555: THEN
5556: x_tcn_rec.tax_deductible_local := l_tcn_rec.tax_deductible_local;
5557: END IF;
5558: IF (x_tcn_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
5559: THEN
5560: x_tcn_rec.tax_deductible_corporate := l_tcn_rec.tax_deductible_corporate;
5561: END IF;
5562: IF (x_tcn_rec.amount = Okc_Api.G_MISS_NUM)
5558: IF (x_tcn_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
5559: THEN
5560: x_tcn_rec.tax_deductible_corporate := l_tcn_rec.tax_deductible_corporate;
5561: END IF;
5562: IF (x_tcn_rec.amount = Okc_Api.G_MISS_NUM)
5563: THEN
5564: x_tcn_rec.amount := l_tcn_rec.amount;
5565: END IF;
5566: IF (x_tcn_rec.request_id = Okc_Api.G_MISS_NUM)
5562: IF (x_tcn_rec.amount = Okc_Api.G_MISS_NUM)
5563: THEN
5564: x_tcn_rec.amount := l_tcn_rec.amount;
5565: END IF;
5566: IF (x_tcn_rec.request_id = Okc_Api.G_MISS_NUM)
5567: THEN
5568: x_tcn_rec.request_id := l_tcn_rec.request_id;
5569: END IF;
5570: IF (x_tcn_rec.currency_code = Okc_Api.G_MISS_CHAR)
5566: IF (x_tcn_rec.request_id = Okc_Api.G_MISS_NUM)
5567: THEN
5568: x_tcn_rec.request_id := l_tcn_rec.request_id;
5569: END IF;
5570: IF (x_tcn_rec.currency_code = Okc_Api.G_MISS_CHAR)
5571: THEN
5572: x_tcn_rec.currency_code := l_tcn_rec.currency_code;
5573: END IF;
5574: IF (x_tcn_rec.program_application_id = Okc_Api.G_MISS_NUM)
5570: IF (x_tcn_rec.currency_code = Okc_Api.G_MISS_CHAR)
5571: THEN
5572: x_tcn_rec.currency_code := l_tcn_rec.currency_code;
5573: END IF;
5574: IF (x_tcn_rec.program_application_id = Okc_Api.G_MISS_NUM)
5575: THEN
5576: x_tcn_rec.program_application_id := l_tcn_rec.program_application_id;
5577: END IF;
5578: IF (x_tcn_rec.khr_id_old = Okc_Api.G_MISS_NUM)
5574: IF (x_tcn_rec.program_application_id = Okc_Api.G_MISS_NUM)
5575: THEN
5576: x_tcn_rec.program_application_id := l_tcn_rec.program_application_id;
5577: END IF;
5578: IF (x_tcn_rec.khr_id_old = Okc_Api.G_MISS_NUM)
5579: THEN
5580: x_tcn_rec.khr_id_old := l_tcn_rec.khr_id_old;
5581: END IF;
5582: IF (x_tcn_rec.program_id = Okc_Api.G_MISS_NUM)
5578: IF (x_tcn_rec.khr_id_old = Okc_Api.G_MISS_NUM)
5579: THEN
5580: x_tcn_rec.khr_id_old := l_tcn_rec.khr_id_old;
5581: END IF;
5582: IF (x_tcn_rec.program_id = Okc_Api.G_MISS_NUM)
5583: THEN
5584: x_tcn_rec.program_id := l_tcn_rec.program_id;
5585: END IF;
5586: IF (x_tcn_rec.program_update_date = Okc_Api.G_MISS_DATE)
5582: IF (x_tcn_rec.program_id = Okc_Api.G_MISS_NUM)
5583: THEN
5584: x_tcn_rec.program_id := l_tcn_rec.program_id;
5585: END IF;
5586: IF (x_tcn_rec.program_update_date = Okc_Api.G_MISS_DATE)
5587: THEN
5588: x_tcn_rec.program_update_date := l_tcn_rec.program_update_date;
5589: END IF;
5590: IF (x_tcn_rec.attribute_category = Okc_Api.G_MISS_CHAR)
5586: IF (x_tcn_rec.program_update_date = Okc_Api.G_MISS_DATE)
5587: THEN
5588: x_tcn_rec.program_update_date := l_tcn_rec.program_update_date;
5589: END IF;
5590: IF (x_tcn_rec.attribute_category = Okc_Api.G_MISS_CHAR)
5591: THEN
5592: x_tcn_rec.attribute_category := l_tcn_rec.attribute_category;
5593: END IF;
5594: IF (x_tcn_rec.attribute1 = Okc_Api.G_MISS_CHAR)
5590: IF (x_tcn_rec.attribute_category = Okc_Api.G_MISS_CHAR)
5591: THEN
5592: x_tcn_rec.attribute_category := l_tcn_rec.attribute_category;
5593: END IF;
5594: IF (x_tcn_rec.attribute1 = Okc_Api.G_MISS_CHAR)
5595: THEN
5596: x_tcn_rec.attribute1 := l_tcn_rec.attribute1;
5597: END IF;
5598: IF (x_tcn_rec.attribute2 = Okc_Api.G_MISS_CHAR)
5594: IF (x_tcn_rec.attribute1 = Okc_Api.G_MISS_CHAR)
5595: THEN
5596: x_tcn_rec.attribute1 := l_tcn_rec.attribute1;
5597: END IF;
5598: IF (x_tcn_rec.attribute2 = Okc_Api.G_MISS_CHAR)
5599: THEN
5600: x_tcn_rec.attribute2 := l_tcn_rec.attribute2;
5601: END IF;
5602: IF (x_tcn_rec.attribute3 = Okc_Api.G_MISS_CHAR)
5598: IF (x_tcn_rec.attribute2 = Okc_Api.G_MISS_CHAR)
5599: THEN
5600: x_tcn_rec.attribute2 := l_tcn_rec.attribute2;
5601: END IF;
5602: IF (x_tcn_rec.attribute3 = Okc_Api.G_MISS_CHAR)
5603: THEN
5604: x_tcn_rec.attribute3 := l_tcn_rec.attribute3;
5605: END IF;
5606: IF (x_tcn_rec.attribute4 = Okc_Api.G_MISS_CHAR)
5602: IF (x_tcn_rec.attribute3 = Okc_Api.G_MISS_CHAR)
5603: THEN
5604: x_tcn_rec.attribute3 := l_tcn_rec.attribute3;
5605: END IF;
5606: IF (x_tcn_rec.attribute4 = Okc_Api.G_MISS_CHAR)
5607: THEN
5608: x_tcn_rec.attribute4 := l_tcn_rec.attribute4;
5609: END IF;
5610: IF (x_tcn_rec.attribute5 = Okc_Api.G_MISS_CHAR)
5606: IF (x_tcn_rec.attribute4 = Okc_Api.G_MISS_CHAR)
5607: THEN
5608: x_tcn_rec.attribute4 := l_tcn_rec.attribute4;
5609: END IF;
5610: IF (x_tcn_rec.attribute5 = Okc_Api.G_MISS_CHAR)
5611: THEN
5612: x_tcn_rec.attribute5 := l_tcn_rec.attribute5;
5613: END IF;
5614: IF (x_tcn_rec.attribute6 = Okc_Api.G_MISS_CHAR)
5610: IF (x_tcn_rec.attribute5 = Okc_Api.G_MISS_CHAR)
5611: THEN
5612: x_tcn_rec.attribute5 := l_tcn_rec.attribute5;
5613: END IF;
5614: IF (x_tcn_rec.attribute6 = Okc_Api.G_MISS_CHAR)
5615: THEN
5616: x_tcn_rec.attribute6 := l_tcn_rec.attribute6;
5617: END IF;
5618: IF (x_tcn_rec.attribute7 = Okc_Api.G_MISS_CHAR)
5614: IF (x_tcn_rec.attribute6 = Okc_Api.G_MISS_CHAR)
5615: THEN
5616: x_tcn_rec.attribute6 := l_tcn_rec.attribute6;
5617: END IF;
5618: IF (x_tcn_rec.attribute7 = Okc_Api.G_MISS_CHAR)
5619: THEN
5620: x_tcn_rec.attribute7 := l_tcn_rec.attribute7;
5621: END IF;
5622: IF (x_tcn_rec.attribute8 = Okc_Api.G_MISS_CHAR)
5618: IF (x_tcn_rec.attribute7 = Okc_Api.G_MISS_CHAR)
5619: THEN
5620: x_tcn_rec.attribute7 := l_tcn_rec.attribute7;
5621: END IF;
5622: IF (x_tcn_rec.attribute8 = Okc_Api.G_MISS_CHAR)
5623: THEN
5624: x_tcn_rec.attribute8 := l_tcn_rec.attribute8;
5625: END IF;
5626: IF (x_tcn_rec.attribute9 = Okc_Api.G_MISS_CHAR)
5622: IF (x_tcn_rec.attribute8 = Okc_Api.G_MISS_CHAR)
5623: THEN
5624: x_tcn_rec.attribute8 := l_tcn_rec.attribute8;
5625: END IF;
5626: IF (x_tcn_rec.attribute9 = Okc_Api.G_MISS_CHAR)
5627: THEN
5628: x_tcn_rec.attribute9 := l_tcn_rec.attribute9;
5629: END IF;
5630: IF (x_tcn_rec.attribute10 = Okc_Api.G_MISS_CHAR)
5626: IF (x_tcn_rec.attribute9 = Okc_Api.G_MISS_CHAR)
5627: THEN
5628: x_tcn_rec.attribute9 := l_tcn_rec.attribute9;
5629: END IF;
5630: IF (x_tcn_rec.attribute10 = Okc_Api.G_MISS_CHAR)
5631: THEN
5632: x_tcn_rec.attribute10 := l_tcn_rec.attribute10;
5633: END IF;
5634: IF (x_tcn_rec.attribute11 = Okc_Api.G_MISS_CHAR)
5630: IF (x_tcn_rec.attribute10 = Okc_Api.G_MISS_CHAR)
5631: THEN
5632: x_tcn_rec.attribute10 := l_tcn_rec.attribute10;
5633: END IF;
5634: IF (x_tcn_rec.attribute11 = Okc_Api.G_MISS_CHAR)
5635: THEN
5636: x_tcn_rec.attribute11 := l_tcn_rec.attribute11;
5637: END IF;
5638: IF (x_tcn_rec.attribute12 = Okc_Api.G_MISS_CHAR)
5634: IF (x_tcn_rec.attribute11 = Okc_Api.G_MISS_CHAR)
5635: THEN
5636: x_tcn_rec.attribute11 := l_tcn_rec.attribute11;
5637: END IF;
5638: IF (x_tcn_rec.attribute12 = Okc_Api.G_MISS_CHAR)
5639: THEN
5640: x_tcn_rec.attribute12 := l_tcn_rec.attribute12;
5641: END IF;
5642: IF (x_tcn_rec.attribute13 = Okc_Api.G_MISS_CHAR)
5638: IF (x_tcn_rec.attribute12 = Okc_Api.G_MISS_CHAR)
5639: THEN
5640: x_tcn_rec.attribute12 := l_tcn_rec.attribute12;
5641: END IF;
5642: IF (x_tcn_rec.attribute13 = Okc_Api.G_MISS_CHAR)
5643: THEN
5644: x_tcn_rec.attribute13 := l_tcn_rec.attribute13;
5645: END IF;
5646: IF (x_tcn_rec.attribute14 = Okc_Api.G_MISS_CHAR)
5642: IF (x_tcn_rec.attribute13 = Okc_Api.G_MISS_CHAR)
5643: THEN
5644: x_tcn_rec.attribute13 := l_tcn_rec.attribute13;
5645: END IF;
5646: IF (x_tcn_rec.attribute14 = Okc_Api.G_MISS_CHAR)
5647: THEN
5648: x_tcn_rec.attribute14 := l_tcn_rec.attribute14;
5649: END IF;
5650: IF (x_tcn_rec.attribute15 = Okc_Api.G_MISS_CHAR)
5646: IF (x_tcn_rec.attribute14 = Okc_Api.G_MISS_CHAR)
5647: THEN
5648: x_tcn_rec.attribute14 := l_tcn_rec.attribute14;
5649: END IF;
5650: IF (x_tcn_rec.attribute15 = Okc_Api.G_MISS_CHAR)
5651: THEN
5652: x_tcn_rec.attribute15 := l_tcn_rec.attribute15;
5653: END IF;
5654: IF (x_tcn_rec.last_update_login = Okc_Api.G_MISS_NUM)
5650: IF (x_tcn_rec.attribute15 = Okc_Api.G_MISS_CHAR)
5651: THEN
5652: x_tcn_rec.attribute15 := l_tcn_rec.attribute15;
5653: END IF;
5654: IF (x_tcn_rec.last_update_login = Okc_Api.G_MISS_NUM)
5655: THEN
5656: x_tcn_rec.last_update_login := l_tcn_rec.last_update_login;
5657: END IF;
5658:
5655: THEN
5656: x_tcn_rec.last_update_login := l_tcn_rec.last_update_login;
5657: END IF;
5658:
5659: IF (x_tcn_rec.try_id = Okc_Api.G_MISS_NUM)
5660: THEN
5661: x_tcn_rec.try_id := l_tcn_rec.try_id;
5662: END IF;
5663: IF (x_tcn_rec.tsu_code = Okc_Api.G_MISS_CHAR)
5659: IF (x_tcn_rec.try_id = Okc_Api.G_MISS_NUM)
5660: THEN
5661: x_tcn_rec.try_id := l_tcn_rec.try_id;
5662: END IF;
5663: IF (x_tcn_rec.tsu_code = Okc_Api.G_MISS_CHAR)
5664: THEN
5665: x_tcn_rec.tsu_code := l_tcn_rec.tsu_code;
5666: END IF;
5667: IF (x_tcn_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
5663: IF (x_tcn_rec.tsu_code = Okc_Api.G_MISS_CHAR)
5664: THEN
5665: x_tcn_rec.tsu_code := l_tcn_rec.tsu_code;
5666: END IF;
5667: IF (x_tcn_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
5668: THEN
5669: x_tcn_rec.set_of_books_id := l_tcn_rec.set_of_books_id;
5670: END IF;
5671: IF (x_tcn_rec.description = Okc_Api.G_MISS_CHAR)
5667: IF (x_tcn_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
5668: THEN
5669: x_tcn_rec.set_of_books_id := l_tcn_rec.set_of_books_id;
5670: END IF;
5671: IF (x_tcn_rec.description = Okc_Api.G_MISS_CHAR)
5672: THEN
5673: x_tcn_rec.description := l_tcn_rec.description;
5674: END IF;
5675: IF (x_tcn_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE)
5671: IF (x_tcn_rec.description = Okc_Api.G_MISS_CHAR)
5672: THEN
5673: x_tcn_rec.description := l_tcn_rec.description;
5674: END IF;
5675: IF (x_tcn_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE)
5676: THEN
5677: x_tcn_rec.date_transaction_occurred := l_tcn_rec.date_transaction_occurred;
5678: END IF;
5679:
5676: THEN
5677: x_tcn_rec.date_transaction_occurred := l_tcn_rec.date_transaction_occurred;
5678: END IF;
5679:
5680: IF (x_tcn_rec.trx_number = Okc_Api.G_MISS_CHAR)
5681: THEN
5682: x_tcn_rec.trx_number := l_tcn_rec.trx_number;
5683: END IF;
5684:
5681: THEN
5682: x_tcn_rec.trx_number := l_tcn_rec.trx_number;
5683: END IF;
5684:
5685: IF (x_tcn_rec.tmt_evergreen_yn = Okc_Api.G_MISS_CHAR)
5686: THEN
5687: x_tcn_rec.tmt_evergreen_yn := l_tcn_rec.tmt_evergreen_yn;
5688: END IF;
5689:
5686: THEN
5687: x_tcn_rec.tmt_evergreen_yn := l_tcn_rec.tmt_evergreen_yn;
5688: END IF;
5689:
5690: IF (x_tcn_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR)
5691: THEN
5692: x_tcn_rec.tmt_close_balances_yn := l_tcn_rec.tmt_close_balances_yn;
5693: END IF;
5694:
5691: THEN
5692: x_tcn_rec.tmt_close_balances_yn := l_tcn_rec.tmt_close_balances_yn;
5693: END IF;
5694:
5695: IF (x_tcn_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR)
5696: THEN
5697: x_tcn_rec.tmt_accounting_entries_yn := l_tcn_rec.tmt_accounting_entries_yn ;
5698: END IF;
5699:
5696: THEN
5697: x_tcn_rec.tmt_accounting_entries_yn := l_tcn_rec.tmt_accounting_entries_yn ;
5698: END IF;
5699:
5700: IF (x_tcn_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR)
5701: THEN
5702: x_tcn_rec.tmt_cancel_insurance_yn := l_tcn_rec.tmt_cancel_insurance_yn ;
5703: END IF;
5704:
5701: THEN
5702: x_tcn_rec.tmt_cancel_insurance_yn := l_tcn_rec.tmt_cancel_insurance_yn ;
5703: END IF;
5704:
5705: IF (x_tcn_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR)
5706: THEN
5707: x_tcn_rec.tmt_asset_disposition_yn := l_tcn_rec.tmt_asset_disposition_yn ;
5708: END IF;
5709:
5706: THEN
5707: x_tcn_rec.tmt_asset_disposition_yn := l_tcn_rec.tmt_asset_disposition_yn ;
5708: END IF;
5709:
5710: IF (x_tcn_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR)
5711: THEN
5712: x_tcn_rec.tmt_amortization_yn := l_tcn_rec.tmt_amortization_yn ;
5713: END IF;
5714:
5711: THEN
5712: x_tcn_rec.tmt_amortization_yn := l_tcn_rec.tmt_amortization_yn ;
5713: END IF;
5714:
5715: IF (x_tcn_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR)
5716: THEN
5717: x_tcn_rec.tmt_asset_return_yn := l_tcn_rec.tmt_asset_return_yn ;
5718: END IF;
5719:
5716: THEN
5717: x_tcn_rec.tmt_asset_return_yn := l_tcn_rec.tmt_asset_return_yn ;
5718: END IF;
5719:
5720: IF (x_tcn_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR)
5721: THEN
5722: x_tcn_rec.tmt_contract_updated_yn := l_tcn_rec.tmt_contract_updated_yn ;
5723: END IF;
5724:
5721: THEN
5722: x_tcn_rec.tmt_contract_updated_yn := l_tcn_rec.tmt_contract_updated_yn ;
5723: END IF;
5724:
5725: IF (x_tcn_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR)
5726: THEN
5727: x_tcn_rec.tmt_recycle_yn := l_tcn_rec.tmt_recycle_yn ;
5728: END IF;
5729:
5726: THEN
5727: x_tcn_rec.tmt_recycle_yn := l_tcn_rec.tmt_recycle_yn ;
5728: END IF;
5729:
5730: IF (x_tcn_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR)
5731: THEN
5732: x_tcn_rec.tmt_validated_yn := l_tcn_rec.tmt_validated_yn ;
5733: END IF;
5734:
5731: THEN
5732: x_tcn_rec.tmt_validated_yn := l_tcn_rec.tmt_validated_yn ;
5733: END IF;
5734:
5735: IF (x_tcn_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR)
5736: THEN
5737: x_tcn_rec.tmt_streams_updated_yn := l_tcn_rec.tmt_streams_updated_yn ;
5738: END IF;
5739:
5736: THEN
5737: x_tcn_rec.tmt_streams_updated_yn := l_tcn_rec.tmt_streams_updated_yn ;
5738: END IF;
5739:
5740: IF (x_tcn_rec.accrual_activity = Okc_Api.G_MISS_CHAR)
5741: THEN
5742: x_tcn_rec.accrual_activity := l_tcn_rec.accrual_activity ;
5743: END IF;
5744:
5742: x_tcn_rec.accrual_activity := l_tcn_rec.accrual_activity ;
5743: END IF;
5744:
5745: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
5746: IF (x_tcn_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
5747: x_tcn_rec.tmt_split_asset_yn := l_tcn_rec.tmt_split_asset_yn;
5748: END IF;
5749: IF (x_tcn_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
5750: x_tcn_rec.tmt_generic_flag1_yn := l_tcn_rec.tmt_generic_flag1_yn;
5745: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
5746: IF (x_tcn_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
5747: x_tcn_rec.tmt_split_asset_yn := l_tcn_rec.tmt_split_asset_yn;
5748: END IF;
5749: IF (x_tcn_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
5750: x_tcn_rec.tmt_generic_flag1_yn := l_tcn_rec.tmt_generic_flag1_yn;
5751: END IF;
5752: IF (x_tcn_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
5753: x_tcn_rec.tmt_generic_flag2_yn := l_tcn_rec.tmt_generic_flag2_yn;
5748: END IF;
5749: IF (x_tcn_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
5750: x_tcn_rec.tmt_generic_flag1_yn := l_tcn_rec.tmt_generic_flag1_yn;
5751: END IF;
5752: IF (x_tcn_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
5753: x_tcn_rec.tmt_generic_flag2_yn := l_tcn_rec.tmt_generic_flag2_yn;
5754: END IF;
5755: IF (x_tcn_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
5756: x_tcn_rec.tmt_generic_flag3_yn := l_tcn_rec.tmt_generic_flag3_yn;
5751: END IF;
5752: IF (x_tcn_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
5753: x_tcn_rec.tmt_generic_flag2_yn := l_tcn_rec.tmt_generic_flag2_yn;
5754: END IF;
5755: IF (x_tcn_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
5756: x_tcn_rec.tmt_generic_flag3_yn := l_tcn_rec.tmt_generic_flag3_yn;
5757: END IF;
5758: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
5759: IF (x_tcn_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
5755: IF (x_tcn_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
5756: x_tcn_rec.tmt_generic_flag3_yn := l_tcn_rec.tmt_generic_flag3_yn;
5757: END IF;
5758: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
5759: IF (x_tcn_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
5760: x_tcn_rec.currency_conversion_type := l_tcn_rec.currency_conversion_type;
5761: END IF;
5762: IF (x_tcn_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
5763: x_tcn_rec.currency_conversion_rate := l_tcn_rec.currency_conversion_rate;
5758: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
5759: IF (x_tcn_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
5760: x_tcn_rec.currency_conversion_type := l_tcn_rec.currency_conversion_type;
5761: END IF;
5762: IF (x_tcn_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
5763: x_tcn_rec.currency_conversion_rate := l_tcn_rec.currency_conversion_rate;
5764: END IF;
5765: IF (x_tcn_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
5766: x_tcn_rec.currency_conversion_date := l_tcn_rec.currency_conversion_date;
5761: END IF;
5762: IF (x_tcn_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
5763: x_tcn_rec.currency_conversion_rate := l_tcn_rec.currency_conversion_rate;
5764: END IF;
5765: IF (x_tcn_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
5766: x_tcn_rec.currency_conversion_date := l_tcn_rec.currency_conversion_date;
5767: END IF;
5768: --Added by Keerthi 04-SEP-2003
5769: IF (x_tcn_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
5765: IF (x_tcn_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
5766: x_tcn_rec.currency_conversion_date := l_tcn_rec.currency_conversion_date;
5767: END IF;
5768: --Added by Keerthi 04-SEP-2003
5769: IF (x_tcn_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
5770: x_tcn_rec.chr_id := l_tcn_rec.chr_id;
5771: END IF;
5772: --Added by Keerthi for Bug No 3195713
5773: IF (x_tcn_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
5769: IF (x_tcn_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
5770: x_tcn_rec.chr_id := l_tcn_rec.chr_id;
5771: END IF;
5772: --Added by Keerthi for Bug No 3195713
5773: IF (x_tcn_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
5774: x_tcn_rec.source_trx_id := l_tcn_rec.source_trx_id;
5775: END IF;
5776:
5777: IF (x_tcn_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
5773: IF (x_tcn_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
5774: x_tcn_rec.source_trx_id := l_tcn_rec.source_trx_id;
5775: END IF;
5776:
5777: IF (x_tcn_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
5778: x_tcn_rec.source_trx_type := l_tcn_rec.source_trx_type;
5779: END IF;
5780:
5781: IF (x_tcn_rec.canceled_date = Okc_Api.G_MISS_DATE)
5777: IF (x_tcn_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
5778: x_tcn_rec.source_trx_type := l_tcn_rec.source_trx_type;
5779: END IF;
5780:
5781: IF (x_tcn_rec.canceled_date = Okc_Api.G_MISS_DATE)
5782: THEN
5783: x_tcn_rec.canceled_date := l_tcn_rec.canceled_date;
5784: END IF;
5785:
5861: FUNCTION Set_Attributes (
5862: p_tcn_rec IN tcn_rec_type,
5863: x_tcn_rec OUT NOCOPY tcn_rec_type
5864: ) RETURN VARCHAR2 IS
5865: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5866: BEGIN
5867: x_tcn_rec := p_tcn_rec;
5868: RETURN(l_return_status);
5869: END Set_Attributes;
5867: x_tcn_rec := p_tcn_rec;
5868: RETURN(l_return_status);
5869: END Set_Attributes;
5870: BEGIN
5871: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5872: p_init_msg_list,
5873: '_PVT',
5874: x_return_status);
5875: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5871: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5872: p_init_msg_list,
5873: '_PVT',
5874: x_return_status);
5875: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5876: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5877: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5878: RAISE Okc_Api.G_EXCEPTION_ERROR;
5879: END IF;
5872: p_init_msg_list,
5873: '_PVT',
5874: x_return_status);
5875: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5876: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5877: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5878: RAISE Okc_Api.G_EXCEPTION_ERROR;
5879: END IF;
5880: --- Setting item attributes
5873: '_PVT',
5874: x_return_status);
5875: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5876: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5877: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5878: RAISE Okc_Api.G_EXCEPTION_ERROR;
5879: END IF;
5880: --- Setting item attributes
5881: l_return_status := Set_Attributes(
5874: x_return_status);
5875: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5876: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5877: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5878: RAISE Okc_Api.G_EXCEPTION_ERROR;
5879: END IF;
5880: --- Setting item attributes
5881: l_return_status := Set_Attributes(
5882: p_tcn_rec, -- IN
5881: l_return_status := Set_Attributes(
5882: p_tcn_rec, -- IN
5883: l_tcn_rec); -- OUT
5884: --- If any errors happen abort API
5885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5886: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5887: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5888: RAISE Okc_Api.G_EXCEPTION_ERROR;
5889: END IF;
5882: p_tcn_rec, -- IN
5883: l_tcn_rec); -- OUT
5884: --- If any errors happen abort API
5885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5886: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5887: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5888: RAISE Okc_Api.G_EXCEPTION_ERROR;
5889: END IF;
5890: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5883: l_tcn_rec); -- OUT
5884: --- If any errors happen abort API
5885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5886: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5887: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5888: RAISE Okc_Api.G_EXCEPTION_ERROR;
5889: END IF;
5890: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5891: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5884: --- If any errors happen abort API
5885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5886: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5887: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5888: RAISE Okc_Api.G_EXCEPTION_ERROR;
5889: END IF;
5890: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5891: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5892: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5887: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5888: RAISE Okc_Api.G_EXCEPTION_ERROR;
5889: END IF;
5890: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5891: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5892: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5893: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5894: RAISE Okc_Api.G_EXCEPTION_ERROR;
5895: END IF;
5888: RAISE Okc_Api.G_EXCEPTION_ERROR;
5889: END IF;
5890: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5891: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5892: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5893: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5894: RAISE Okc_Api.G_EXCEPTION_ERROR;
5895: END IF;
5896:
5889: END IF;
5890: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5891: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5892: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5893: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5894: RAISE Okc_Api.G_EXCEPTION_ERROR;
5895: END IF;
5896:
5897: UPDATE OKL_TRX_CONTRACTS
5890: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5891: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5892: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5893: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5894: RAISE Okc_Api.G_EXCEPTION_ERROR;
5895: END IF;
5896:
5897: UPDATE OKL_TRX_CONTRACTS
5898: SET KHR_ID_NEW = l_def_tcn_rec.khr_id_new,
6006: TRANSACTION_REVERSAL_DATE = l_def_tcn_rec.TRANSACTION_REVERSAL_DATE
6007: WHERE ID = l_def_tcn_rec.id;
6008:
6009: x_tcn_rec := l_def_tcn_rec;
6010: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6011: EXCEPTION
6012: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6013: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6014: (
6008:
6009: x_tcn_rec := l_def_tcn_rec;
6010: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6011: EXCEPTION
6012: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6013: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6014: (
6015: l_api_name,
6016: G_PKG_NAME,
6009: x_tcn_rec := l_def_tcn_rec;
6010: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6011: EXCEPTION
6012: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6013: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6014: (
6015: l_api_name,
6016: G_PKG_NAME,
6017: 'OKC_API.G_RET_STS_ERROR',
6013: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6014: (
6015: l_api_name,
6016: G_PKG_NAME,
6017: 'OKC_API.G_RET_STS_ERROR',
6018: x_msg_count,
6019: x_msg_data,
6020: '_PVT'
6021: );
6018: x_msg_count,
6019: x_msg_data,
6020: '_PVT'
6021: );
6022: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6023: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6024: (
6025: l_api_name,
6026: G_PKG_NAME,
6019: x_msg_data,
6020: '_PVT'
6021: );
6022: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6023: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6024: (
6025: l_api_name,
6026: G_PKG_NAME,
6027: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6023: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6024: (
6025: l_api_name,
6026: G_PKG_NAME,
6027: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6028: x_msg_count,
6029: x_msg_data,
6030: '_PVT'
6031: );
6029: x_msg_data,
6030: '_PVT'
6031: );
6032: WHEN OTHERS THEN
6033: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6034: (
6035: l_api_name,
6036: G_PKG_NAME,
6037: 'OTHERS',
6053: x_tcnv_rec OUT NOCOPY tcnv_rec_type) IS
6054:
6055: l_api_version CONSTANT NUMBER := 1;
6056: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
6057: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6058: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
6059: l_def_tcnv_rec tcnv_rec_type;
6060: l_tcn_rec tcn_rec_type;
6061: lx_tcn_rec tcn_rec_type;
6080: x_tcnv_rec OUT NOCOPY tcnv_rec_type
6081: ) RETURN VARCHAR2 IS
6082: l_tcnv_rec tcnv_rec_type;
6083: l_row_notfound BOOLEAN := TRUE;
6084: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6085: BEGIN
6086: x_tcnv_rec := p_tcnv_rec;
6087: -- Get current database values
6088: l_tcnv_rec := get_rec(p_tcnv_rec, l_row_notfound);
6086: x_tcnv_rec := p_tcnv_rec;
6087: -- Get current database values
6088: l_tcnv_rec := get_rec(p_tcnv_rec, l_row_notfound);
6089: IF (l_row_notfound) THEN
6090: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
6091: END IF;
6092: IF (x_tcnv_rec.id = Okc_Api.G_MISS_NUM)
6093: THEN
6094: x_tcnv_rec.id := l_tcnv_rec.id;
6088: l_tcnv_rec := get_rec(p_tcnv_rec, l_row_notfound);
6089: IF (l_row_notfound) THEN
6090: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
6091: END IF;
6092: IF (x_tcnv_rec.id = Okc_Api.G_MISS_NUM)
6093: THEN
6094: x_tcnv_rec.id := l_tcnv_rec.id;
6095: END IF;
6096: IF (x_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM)
6092: IF (x_tcnv_rec.id = Okc_Api.G_MISS_NUM)
6093: THEN
6094: x_tcnv_rec.id := l_tcnv_rec.id;
6095: END IF;
6096: IF (x_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM)
6097: THEN
6098: x_tcnv_rec.object_version_number := l_tcnv_rec.object_version_number;
6099: END IF;
6100: IF (x_tcnv_rec.rbr_code = Okc_Api.G_MISS_CHAR)
6096: IF (x_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM)
6097: THEN
6098: x_tcnv_rec.object_version_number := l_tcnv_rec.object_version_number;
6099: END IF;
6100: IF (x_tcnv_rec.rbr_code = Okc_Api.G_MISS_CHAR)
6101: THEN
6102: x_tcnv_rec.rbr_code := l_tcnv_rec.rbr_code;
6103: END IF;
6104: IF (x_tcnv_rec.rpy_code = Okc_Api.G_MISS_CHAR)
6100: IF (x_tcnv_rec.rbr_code = Okc_Api.G_MISS_CHAR)
6101: THEN
6102: x_tcnv_rec.rbr_code := l_tcnv_rec.rbr_code;
6103: END IF;
6104: IF (x_tcnv_rec.rpy_code = Okc_Api.G_MISS_CHAR)
6105: THEN
6106: x_tcnv_rec.rpy_code := l_tcnv_rec.rpy_code;
6107: END IF;
6108: IF (x_tcnv_rec.rvn_code = Okc_Api.G_MISS_CHAR)
6104: IF (x_tcnv_rec.rpy_code = Okc_Api.G_MISS_CHAR)
6105: THEN
6106: x_tcnv_rec.rpy_code := l_tcnv_rec.rpy_code;
6107: END IF;
6108: IF (x_tcnv_rec.rvn_code = Okc_Api.G_MISS_CHAR)
6109: THEN
6110: x_tcnv_rec.rvn_code := l_tcnv_rec.rvn_code;
6111: END IF;
6112: IF (x_tcnv_rec.trn_code = Okc_Api.G_MISS_CHAR)
6108: IF (x_tcnv_rec.rvn_code = Okc_Api.G_MISS_CHAR)
6109: THEN
6110: x_tcnv_rec.rvn_code := l_tcnv_rec.rvn_code;
6111: END IF;
6112: IF (x_tcnv_rec.trn_code = Okc_Api.G_MISS_CHAR)
6113: THEN
6114: x_tcnv_rec.trn_code := l_tcnv_rec.trn_code;
6115: END IF;
6116: IF (x_tcnv_rec.khr_id_new = Okc_Api.G_MISS_NUM)
6112: IF (x_tcnv_rec.trn_code = Okc_Api.G_MISS_CHAR)
6113: THEN
6114: x_tcnv_rec.trn_code := l_tcnv_rec.trn_code;
6115: END IF;
6116: IF (x_tcnv_rec.khr_id_new = Okc_Api.G_MISS_NUM)
6117: THEN
6118: x_tcnv_rec.khr_id_new := l_tcnv_rec.khr_id_new;
6119: END IF;
6120: IF (x_tcnv_rec.pvn_id = Okc_Api.G_MISS_NUM)
6116: IF (x_tcnv_rec.khr_id_new = Okc_Api.G_MISS_NUM)
6117: THEN
6118: x_tcnv_rec.khr_id_new := l_tcnv_rec.khr_id_new;
6119: END IF;
6120: IF (x_tcnv_rec.pvn_id = Okc_Api.G_MISS_NUM)
6121: THEN
6122: x_tcnv_rec.pvn_id := l_tcnv_rec.pvn_id;
6123: END IF;
6124: IF (x_tcnv_rec.pdt_id = Okc_Api.G_MISS_NUM)
6120: IF (x_tcnv_rec.pvn_id = Okc_Api.G_MISS_NUM)
6121: THEN
6122: x_tcnv_rec.pvn_id := l_tcnv_rec.pvn_id;
6123: END IF;
6124: IF (x_tcnv_rec.pdt_id = Okc_Api.G_MISS_NUM)
6125: THEN
6126: x_tcnv_rec.pdt_id := l_tcnv_rec.pdt_id;
6127: END IF;
6128: IF (x_tcnv_rec.qte_id = Okc_Api.G_MISS_NUM)
6124: IF (x_tcnv_rec.pdt_id = Okc_Api.G_MISS_NUM)
6125: THEN
6126: x_tcnv_rec.pdt_id := l_tcnv_rec.pdt_id;
6127: END IF;
6128: IF (x_tcnv_rec.qte_id = Okc_Api.G_MISS_NUM)
6129: THEN
6130: x_tcnv_rec.qte_id := l_tcnv_rec.qte_id;
6131: END IF;
6132: IF (x_tcnv_rec.aes_id = Okc_Api.G_MISS_NUM)
6128: IF (x_tcnv_rec.qte_id = Okc_Api.G_MISS_NUM)
6129: THEN
6130: x_tcnv_rec.qte_id := l_tcnv_rec.qte_id;
6131: END IF;
6132: IF (x_tcnv_rec.aes_id = Okc_Api.G_MISS_NUM)
6133: THEN
6134: x_tcnv_rec.aes_id := l_tcnv_rec.aes_id;
6135: END IF;
6136: IF (x_tcnv_rec.code_combination_id = Okc_Api.G_MISS_NUM)
6132: IF (x_tcnv_rec.aes_id = Okc_Api.G_MISS_NUM)
6133: THEN
6134: x_tcnv_rec.aes_id := l_tcnv_rec.aes_id;
6135: END IF;
6136: IF (x_tcnv_rec.code_combination_id = Okc_Api.G_MISS_NUM)
6137: THEN
6138: x_tcnv_rec.code_combination_id := l_tcnv_rec.code_combination_id;
6139: END IF;
6140: IF (x_tcnv_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
6136: IF (x_tcnv_rec.code_combination_id = Okc_Api.G_MISS_NUM)
6137: THEN
6138: x_tcnv_rec.code_combination_id := l_tcnv_rec.code_combination_id;
6139: END IF;
6140: IF (x_tcnv_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
6141: THEN
6142: x_tcnv_rec.tax_deductible_local := l_tcnv_rec.tax_deductible_local;
6143: END IF;
6144: IF (x_tcnv_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
6140: IF (x_tcnv_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
6141: THEN
6142: x_tcnv_rec.tax_deductible_local := l_tcnv_rec.tax_deductible_local;
6143: END IF;
6144: IF (x_tcnv_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
6145: THEN
6146: x_tcnv_rec.tax_deductible_corporate := l_tcnv_rec.tax_deductible_corporate;
6147: END IF;
6148: IF (x_tcnv_rec.date_accrual = Okc_Api.G_MISS_DATE)
6144: IF (x_tcnv_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
6145: THEN
6146: x_tcnv_rec.tax_deductible_corporate := l_tcnv_rec.tax_deductible_corporate;
6147: END IF;
6148: IF (x_tcnv_rec.date_accrual = Okc_Api.G_MISS_DATE)
6149: THEN
6150: x_tcnv_rec.date_accrual := l_tcnv_rec.date_accrual;
6151: END IF;
6152: IF (x_tcnv_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
6148: IF (x_tcnv_rec.date_accrual = Okc_Api.G_MISS_DATE)
6149: THEN
6150: x_tcnv_rec.date_accrual := l_tcnv_rec.date_accrual;
6151: END IF;
6152: IF (x_tcnv_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
6153: THEN
6154: x_tcnv_rec.accrual_status_yn := l_tcnv_rec.accrual_status_yn;
6155: END IF;
6156: IF (x_tcnv_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
6152: IF (x_tcnv_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
6153: THEN
6154: x_tcnv_rec.accrual_status_yn := l_tcnv_rec.accrual_status_yn;
6155: END IF;
6156: IF (x_tcnv_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
6157: THEN
6158: x_tcnv_rec.update_status_yn := l_tcnv_rec.update_status_yn;
6159: END IF;
6160: IF (x_tcnv_rec.amount = Okc_Api.G_MISS_NUM)
6156: IF (x_tcnv_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
6157: THEN
6158: x_tcnv_rec.update_status_yn := l_tcnv_rec.update_status_yn;
6159: END IF;
6160: IF (x_tcnv_rec.amount = Okc_Api.G_MISS_NUM)
6161: THEN
6162: x_tcnv_rec.amount := l_tcnv_rec.amount;
6163: END IF;
6164: IF (x_tcnv_rec.currency_code = Okc_Api.G_MISS_CHAR)
6160: IF (x_tcnv_rec.amount = Okc_Api.G_MISS_NUM)
6161: THEN
6162: x_tcnv_rec.amount := l_tcnv_rec.amount;
6163: END IF;
6164: IF (x_tcnv_rec.currency_code = Okc_Api.G_MISS_CHAR)
6165: THEN
6166: x_tcnv_rec.currency_code := l_tcnv_rec.currency_code;
6167: END IF;
6168: IF (x_tcnv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
6164: IF (x_tcnv_rec.currency_code = Okc_Api.G_MISS_CHAR)
6165: THEN
6166: x_tcnv_rec.currency_code := l_tcnv_rec.currency_code;
6167: END IF;
6168: IF (x_tcnv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
6169: THEN
6170: x_tcnv_rec.attribute_category := l_tcnv_rec.attribute_category;
6171: END IF;
6172: IF (x_tcnv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
6168: IF (x_tcnv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
6169: THEN
6170: x_tcnv_rec.attribute_category := l_tcnv_rec.attribute_category;
6171: END IF;
6172: IF (x_tcnv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
6173: THEN
6174: x_tcnv_rec.attribute1 := l_tcnv_rec.attribute1;
6175: END IF;
6176: IF (x_tcnv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
6172: IF (x_tcnv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
6173: THEN
6174: x_tcnv_rec.attribute1 := l_tcnv_rec.attribute1;
6175: END IF;
6176: IF (x_tcnv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
6177: THEN
6178: x_tcnv_rec.attribute2 := l_tcnv_rec.attribute2;
6179: END IF;
6180: IF (x_tcnv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
6176: IF (x_tcnv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
6177: THEN
6178: x_tcnv_rec.attribute2 := l_tcnv_rec.attribute2;
6179: END IF;
6180: IF (x_tcnv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
6181: THEN
6182: x_tcnv_rec.attribute3 := l_tcnv_rec.attribute3;
6183: END IF;
6184: IF (x_tcnv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
6180: IF (x_tcnv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
6181: THEN
6182: x_tcnv_rec.attribute3 := l_tcnv_rec.attribute3;
6183: END IF;
6184: IF (x_tcnv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
6185: THEN
6186: x_tcnv_rec.attribute4 := l_tcnv_rec.attribute4;
6187: END IF;
6188: IF (x_tcnv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
6184: IF (x_tcnv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
6185: THEN
6186: x_tcnv_rec.attribute4 := l_tcnv_rec.attribute4;
6187: END IF;
6188: IF (x_tcnv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
6189: THEN
6190: x_tcnv_rec.attribute5 := l_tcnv_rec.attribute5;
6191: END IF;
6192: IF (x_tcnv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
6188: IF (x_tcnv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
6189: THEN
6190: x_tcnv_rec.attribute5 := l_tcnv_rec.attribute5;
6191: END IF;
6192: IF (x_tcnv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
6193: THEN
6194: x_tcnv_rec.attribute6 := l_tcnv_rec.attribute6;
6195: END IF;
6196: IF (x_tcnv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
6192: IF (x_tcnv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
6193: THEN
6194: x_tcnv_rec.attribute6 := l_tcnv_rec.attribute6;
6195: END IF;
6196: IF (x_tcnv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
6197: THEN
6198: x_tcnv_rec.attribute7 := l_tcnv_rec.attribute7;
6199: END IF;
6200: IF (x_tcnv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
6196: IF (x_tcnv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
6197: THEN
6198: x_tcnv_rec.attribute7 := l_tcnv_rec.attribute7;
6199: END IF;
6200: IF (x_tcnv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
6201: THEN
6202: x_tcnv_rec.attribute8 := l_tcnv_rec.attribute8;
6203: END IF;
6204: IF (x_tcnv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
6200: IF (x_tcnv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
6201: THEN
6202: x_tcnv_rec.attribute8 := l_tcnv_rec.attribute8;
6203: END IF;
6204: IF (x_tcnv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
6205: THEN
6206: x_tcnv_rec.attribute9 := l_tcnv_rec.attribute9;
6207: END IF;
6208: IF (x_tcnv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
6204: IF (x_tcnv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
6205: THEN
6206: x_tcnv_rec.attribute9 := l_tcnv_rec.attribute9;
6207: END IF;
6208: IF (x_tcnv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
6209: THEN
6210: x_tcnv_rec.attribute10 := l_tcnv_rec.attribute10;
6211: END IF;
6212: IF (x_tcnv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
6208: IF (x_tcnv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
6209: THEN
6210: x_tcnv_rec.attribute10 := l_tcnv_rec.attribute10;
6211: END IF;
6212: IF (x_tcnv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
6213: THEN
6214: x_tcnv_rec.attribute11 := l_tcnv_rec.attribute11;
6215: END IF;
6216: IF (x_tcnv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
6212: IF (x_tcnv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
6213: THEN
6214: x_tcnv_rec.attribute11 := l_tcnv_rec.attribute11;
6215: END IF;
6216: IF (x_tcnv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
6217: THEN
6218: x_tcnv_rec.attribute12 := l_tcnv_rec.attribute12;
6219: END IF;
6220: IF (x_tcnv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
6216: IF (x_tcnv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
6217: THEN
6218: x_tcnv_rec.attribute12 := l_tcnv_rec.attribute12;
6219: END IF;
6220: IF (x_tcnv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
6221: THEN
6222: x_tcnv_rec.attribute13 := l_tcnv_rec.attribute13;
6223: END IF;
6224: IF (x_tcnv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
6220: IF (x_tcnv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
6221: THEN
6222: x_tcnv_rec.attribute13 := l_tcnv_rec.attribute13;
6223: END IF;
6224: IF (x_tcnv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
6225: THEN
6226: x_tcnv_rec.attribute14 := l_tcnv_rec.attribute14;
6227: END IF;
6228: IF (x_tcnv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
6224: IF (x_tcnv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
6225: THEN
6226: x_tcnv_rec.attribute14 := l_tcnv_rec.attribute14;
6227: END IF;
6228: IF (x_tcnv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
6229: THEN
6230: x_tcnv_rec.attribute15 := l_tcnv_rec.attribute15;
6231: END IF;
6232: IF (x_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR)
6228: IF (x_tcnv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
6229: THEN
6230: x_tcnv_rec.attribute15 := l_tcnv_rec.attribute15;
6231: END IF;
6232: IF (x_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR)
6233: THEN
6234: x_tcnv_rec.tcn_type := l_tcnv_rec.tcn_type;
6235: END IF;
6236:
6233: THEN
6234: x_tcnv_rec.tcn_type := l_tcnv_rec.tcn_type;
6235: END IF;
6236:
6237: IF (x_tcnv_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
6238: x_tcnv_rec.rjn_code := l_tcnv_rec.rjn_code;
6239: END IF;
6240:
6241: IF (x_tcnv_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
6237: IF (x_tcnv_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
6238: x_tcnv_rec.rjn_code := l_tcnv_rec.rjn_code;
6239: END IF;
6240:
6241: IF (x_tcnv_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
6242: x_tcnv_rec.party_rel_id1_old := l_tcnv_rec.party_rel_id1_old;
6243: END IF;
6244:
6245: IF (x_tcnv_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
6241: IF (x_tcnv_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
6242: x_tcnv_rec.party_rel_id1_old := l_tcnv_rec.party_rel_id1_old;
6243: END IF;
6244:
6245: IF (x_tcnv_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
6246: x_tcnv_rec.party_rel_id2_old := l_tcnv_rec.party_rel_id2_old;
6247: END IF;
6248:
6249: IF (x_tcnv_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
6245: IF (x_tcnv_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
6246: x_tcnv_rec.party_rel_id2_old := l_tcnv_rec.party_rel_id2_old;
6247: END IF;
6248:
6249: IF (x_tcnv_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
6250: x_tcnv_rec.party_rel_id1_new := l_tcnv_rec.party_rel_id1_new;
6251: END IF;
6252:
6253: IF (x_tcnv_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
6249: IF (x_tcnv_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
6250: x_tcnv_rec.party_rel_id1_new := l_tcnv_rec.party_rel_id1_new;
6251: END IF;
6252:
6253: IF (x_tcnv_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
6254: x_tcnv_rec.party_rel_id2_new := l_tcnv_rec.party_rel_id2_new;
6255: END IF;
6256:
6257: IF (x_tcnv_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
6253: IF (x_tcnv_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
6254: x_tcnv_rec.party_rel_id2_new := l_tcnv_rec.party_rel_id2_new;
6255: END IF;
6256:
6257: IF (x_tcnv_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
6258: x_tcnv_rec.complete_transfer_yn := l_tcnv_rec.complete_transfer_yn;
6259: END IF;
6260:
6261: IF (x_tcnv_rec.org_id = Okc_Api.G_MISS_NUM)
6257: IF (x_tcnv_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
6258: x_tcnv_rec.complete_transfer_yn := l_tcnv_rec.complete_transfer_yn;
6259: END IF;
6260:
6261: IF (x_tcnv_rec.org_id = Okc_Api.G_MISS_NUM)
6262: THEN
6263: x_tcnv_rec.org_id := l_tcnv_rec.org_id;
6264: END IF;
6265: IF (x_tcnv_rec.khr_id = Okc_Api.G_MISS_NUM)
6261: IF (x_tcnv_rec.org_id = Okc_Api.G_MISS_NUM)
6262: THEN
6263: x_tcnv_rec.org_id := l_tcnv_rec.org_id;
6264: END IF;
6265: IF (x_tcnv_rec.khr_id = Okc_Api.G_MISS_NUM)
6266: THEN
6267: x_tcnv_rec.khr_id := l_tcnv_rec.khr_id;
6268: END IF;
6269: IF (x_tcnv_rec.request_id = Okc_Api.G_MISS_NUM)
6265: IF (x_tcnv_rec.khr_id = Okc_Api.G_MISS_NUM)
6266: THEN
6267: x_tcnv_rec.khr_id := l_tcnv_rec.khr_id;
6268: END IF;
6269: IF (x_tcnv_rec.request_id = Okc_Api.G_MISS_NUM)
6270: THEN
6271: x_tcnv_rec.request_id := l_tcnv_rec.request_id;
6272: END IF;
6273: IF (x_tcnv_rec.program_application_id = Okc_Api.G_MISS_NUM)
6269: IF (x_tcnv_rec.request_id = Okc_Api.G_MISS_NUM)
6270: THEN
6271: x_tcnv_rec.request_id := l_tcnv_rec.request_id;
6272: END IF;
6273: IF (x_tcnv_rec.program_application_id = Okc_Api.G_MISS_NUM)
6274: THEN
6275: x_tcnv_rec.program_application_id := l_tcnv_rec.program_application_id;
6276: END IF;
6277: IF (x_tcnv_rec.khr_id_old = Okc_Api.G_MISS_NUM)
6273: IF (x_tcnv_rec.program_application_id = Okc_Api.G_MISS_NUM)
6274: THEN
6275: x_tcnv_rec.program_application_id := l_tcnv_rec.program_application_id;
6276: END IF;
6277: IF (x_tcnv_rec.khr_id_old = Okc_Api.G_MISS_NUM)
6278: THEN
6279: x_tcnv_rec.khr_id_old := l_tcnv_rec.khr_id_old;
6280: END IF;
6281: IF (x_tcnv_rec.program_id = Okc_Api.G_MISS_NUM)
6277: IF (x_tcnv_rec.khr_id_old = Okc_Api.G_MISS_NUM)
6278: THEN
6279: x_tcnv_rec.khr_id_old := l_tcnv_rec.khr_id_old;
6280: END IF;
6281: IF (x_tcnv_rec.program_id = Okc_Api.G_MISS_NUM)
6282: THEN
6283: x_tcnv_rec.program_id := l_tcnv_rec.program_id;
6284: END IF;
6285: IF (x_tcnv_rec.program_update_date = Okc_Api.G_MISS_DATE)
6281: IF (x_tcnv_rec.program_id = Okc_Api.G_MISS_NUM)
6282: THEN
6283: x_tcnv_rec.program_id := l_tcnv_rec.program_id;
6284: END IF;
6285: IF (x_tcnv_rec.program_update_date = Okc_Api.G_MISS_DATE)
6286: THEN
6287: x_tcnv_rec.program_update_date := l_tcnv_rec.program_update_date;
6288: END IF;
6289: IF (x_tcnv_rec.created_by = Okc_Api.G_MISS_NUM)
6285: IF (x_tcnv_rec.program_update_date = Okc_Api.G_MISS_DATE)
6286: THEN
6287: x_tcnv_rec.program_update_date := l_tcnv_rec.program_update_date;
6288: END IF;
6289: IF (x_tcnv_rec.created_by = Okc_Api.G_MISS_NUM)
6290: THEN
6291: x_tcnv_rec.created_by := l_tcnv_rec.created_by;
6292: END IF;
6293: IF (x_tcnv_rec.creation_date = Okc_Api.G_MISS_DATE)
6289: IF (x_tcnv_rec.created_by = Okc_Api.G_MISS_NUM)
6290: THEN
6291: x_tcnv_rec.created_by := l_tcnv_rec.created_by;
6292: END IF;
6293: IF (x_tcnv_rec.creation_date = Okc_Api.G_MISS_DATE)
6294: THEN
6295: x_tcnv_rec.creation_date := l_tcnv_rec.creation_date;
6296: END IF;
6297: IF (x_tcnv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
6293: IF (x_tcnv_rec.creation_date = Okc_Api.G_MISS_DATE)
6294: THEN
6295: x_tcnv_rec.creation_date := l_tcnv_rec.creation_date;
6296: END IF;
6297: IF (x_tcnv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
6298: THEN
6299: x_tcnv_rec.last_updated_by := l_tcnv_rec.last_updated_by;
6300: END IF;
6301: IF (x_tcnv_rec.last_update_date = Okc_Api.G_MISS_DATE)
6297: IF (x_tcnv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
6298: THEN
6299: x_tcnv_rec.last_updated_by := l_tcnv_rec.last_updated_by;
6300: END IF;
6301: IF (x_tcnv_rec.last_update_date = Okc_Api.G_MISS_DATE)
6302: THEN
6303: x_tcnv_rec.last_update_date := l_tcnv_rec.last_update_date;
6304: END IF;
6305: IF (x_tcnv_rec.last_update_login = Okc_Api.G_MISS_NUM)
6301: IF (x_tcnv_rec.last_update_date = Okc_Api.G_MISS_DATE)
6302: THEN
6303: x_tcnv_rec.last_update_date := l_tcnv_rec.last_update_date;
6304: END IF;
6305: IF (x_tcnv_rec.last_update_login = Okc_Api.G_MISS_NUM)
6306: THEN
6307: x_tcnv_rec.last_update_login := l_tcnv_rec.last_update_login;
6308: END IF;
6309:
6306: THEN
6307: x_tcnv_rec.last_update_login := l_tcnv_rec.last_update_login;
6308: END IF;
6309:
6310: IF (x_tcnv_rec.try_id = Okc_Api.G_MISS_NUM)
6311: THEN
6312: x_tcnv_rec.try_id := l_tcnv_rec.try_id;
6313: END IF;
6314: IF (x_tcnv_rec.tsu_code = Okc_Api.G_MISS_CHAR)
6310: IF (x_tcnv_rec.try_id = Okc_Api.G_MISS_NUM)
6311: THEN
6312: x_tcnv_rec.try_id := l_tcnv_rec.try_id;
6313: END IF;
6314: IF (x_tcnv_rec.tsu_code = Okc_Api.G_MISS_CHAR)
6315: THEN
6316: x_tcnv_rec.tsu_code := l_tcnv_rec.tsu_code;
6317: END IF;
6318: IF (x_tcnv_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
6314: IF (x_tcnv_rec.tsu_code = Okc_Api.G_MISS_CHAR)
6315: THEN
6316: x_tcnv_rec.tsu_code := l_tcnv_rec.tsu_code;
6317: END IF;
6318: IF (x_tcnv_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
6319: THEN
6320: x_tcnv_rec.set_of_books_id := l_tcnv_rec.set_of_books_id;
6321: END IF;
6322: IF (x_tcnv_rec.description = Okc_Api.G_MISS_CHAR)
6318: IF (x_tcnv_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
6319: THEN
6320: x_tcnv_rec.set_of_books_id := l_tcnv_rec.set_of_books_id;
6321: END IF;
6322: IF (x_tcnv_rec.description = Okc_Api.G_MISS_CHAR)
6323: THEN
6324: x_tcnv_rec.description := l_tcnv_rec.description;
6325: END IF;
6326: IF (x_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE)
6322: IF (x_tcnv_rec.description = Okc_Api.G_MISS_CHAR)
6323: THEN
6324: x_tcnv_rec.description := l_tcnv_rec.description;
6325: END IF;
6326: IF (x_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE)
6327: THEN
6328: x_tcnv_rec.date_transaction_occurred := l_tcnv_rec.date_transaction_occurred;
6329: END IF;
6330:
6327: THEN
6328: x_tcnv_rec.date_transaction_occurred := l_tcnv_rec.date_transaction_occurred;
6329: END IF;
6330:
6331: IF (x_tcnv_rec.trx_number = Okc_Api.G_MISS_CHAR)
6332: THEN
6333: x_tcnv_rec.trx_number := l_tcnv_rec.trx_number;
6334: END IF;
6335:
6332: THEN
6333: x_tcnv_rec.trx_number := l_tcnv_rec.trx_number;
6334: END IF;
6335:
6336: IF (x_tcnv_rec.tmt_evergreen_yn = Okc_Api.G_MISS_CHAR) THEN
6337: x_tcnv_rec.tmt_evergreen_yn := l_tcnv_rec.tmt_evergreen_yn;
6338: END IF;
6339:
6340: IF (x_tcnv_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR) THEN
6336: IF (x_tcnv_rec.tmt_evergreen_yn = Okc_Api.G_MISS_CHAR) THEN
6337: x_tcnv_rec.tmt_evergreen_yn := l_tcnv_rec.tmt_evergreen_yn;
6338: END IF;
6339:
6340: IF (x_tcnv_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR) THEN
6341: x_tcnv_rec.tmt_close_balances_yn := l_tcnv_rec.tmt_close_balances_yn;
6342: END IF;
6343:
6344: IF (x_tcnv_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR) THEN
6340: IF (x_tcnv_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR) THEN
6341: x_tcnv_rec.tmt_close_balances_yn := l_tcnv_rec.tmt_close_balances_yn;
6342: END IF;
6343:
6344: IF (x_tcnv_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR) THEN
6345: x_tcnv_rec.tmt_accounting_entries_yn := l_tcnv_rec.tmt_accounting_entries_yn;
6346: END IF;
6347:
6348: IF (x_tcnv_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR) THEN
6344: IF (x_tcnv_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR) THEN
6345: x_tcnv_rec.tmt_accounting_entries_yn := l_tcnv_rec.tmt_accounting_entries_yn;
6346: END IF;
6347:
6348: IF (x_tcnv_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR) THEN
6349: x_tcnv_rec.tmt_cancel_insurance_yn := l_tcnv_rec.tmt_cancel_insurance_yn;
6350: END IF;
6351:
6352: IF (x_tcnv_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR) THEN
6348: IF (x_tcnv_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR) THEN
6349: x_tcnv_rec.tmt_cancel_insurance_yn := l_tcnv_rec.tmt_cancel_insurance_yn;
6350: END IF;
6351:
6352: IF (x_tcnv_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR) THEN
6353: x_tcnv_rec.tmt_asset_disposition_yn := l_tcnv_rec.tmt_asset_disposition_yn;
6354: END IF;
6355:
6356: IF (x_tcnv_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR) THEN
6352: IF (x_tcnv_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR) THEN
6353: x_tcnv_rec.tmt_asset_disposition_yn := l_tcnv_rec.tmt_asset_disposition_yn;
6354: END IF;
6355:
6356: IF (x_tcnv_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR) THEN
6357: x_tcnv_rec.tmt_amortization_yn := l_tcnv_rec.tmt_amortization_yn;
6358: END IF;
6359:
6360: IF (x_tcnv_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR) THEN
6356: IF (x_tcnv_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR) THEN
6357: x_tcnv_rec.tmt_amortization_yn := l_tcnv_rec.tmt_amortization_yn;
6358: END IF;
6359:
6360: IF (x_tcnv_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR) THEN
6361: x_tcnv_rec.tmt_asset_return_yn := l_tcnv_rec.tmt_asset_return_yn;
6362: END IF;
6363:
6364: IF (x_tcnv_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6360: IF (x_tcnv_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR) THEN
6361: x_tcnv_rec.tmt_asset_return_yn := l_tcnv_rec.tmt_asset_return_yn;
6362: END IF;
6363:
6364: IF (x_tcnv_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6365: x_tcnv_rec.tmt_contract_updated_yn := l_tcnv_rec.tmt_contract_updated_yn;
6366: END IF;
6367:
6368: IF (x_tcnv_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR) THEN
6364: IF (x_tcnv_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6365: x_tcnv_rec.tmt_contract_updated_yn := l_tcnv_rec.tmt_contract_updated_yn;
6366: END IF;
6367:
6368: IF (x_tcnv_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR) THEN
6369: x_tcnv_rec.tmt_recycle_yn := l_tcnv_rec.tmt_recycle_yn;
6370: END IF;
6371:
6372: IF (x_tcnv_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR) THEN
6368: IF (x_tcnv_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR) THEN
6369: x_tcnv_rec.tmt_recycle_yn := l_tcnv_rec.tmt_recycle_yn;
6370: END IF;
6371:
6372: IF (x_tcnv_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR) THEN
6373: x_tcnv_rec.tmt_validated_yn := l_tcnv_rec.tmt_validated_yn;
6374: END IF;
6375:
6376: IF (x_tcnv_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6372: IF (x_tcnv_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR) THEN
6373: x_tcnv_rec.tmt_validated_yn := l_tcnv_rec.tmt_validated_yn;
6374: END IF;
6375:
6376: IF (x_tcnv_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6377: x_tcnv_rec.tmt_streams_updated_yn := l_tcnv_rec.tmt_streams_updated_yn;
6378: END IF;
6379:
6380: IF (x_tcnv_rec.accrual_activity = Okc_Api.G_MISS_CHAR) THEN
6376: IF (x_tcnv_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6377: x_tcnv_rec.tmt_streams_updated_yn := l_tcnv_rec.tmt_streams_updated_yn;
6378: END IF;
6379:
6380: IF (x_tcnv_rec.accrual_activity = Okc_Api.G_MISS_CHAR) THEN
6381: x_tcnv_rec.accrual_activity := l_tcnv_rec.accrual_activity;
6382: END IF;
6383:
6384: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
6381: x_tcnv_rec.accrual_activity := l_tcnv_rec.accrual_activity;
6382: END IF;
6383:
6384: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
6385: IF (x_tcnv_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
6386: x_tcnv_rec.tmt_split_asset_yn := l_tcnv_rec.tmt_split_asset_yn;
6387: END IF;
6388: IF (x_tcnv_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
6389: x_tcnv_rec.tmt_generic_flag1_yn := l_tcnv_rec.tmt_generic_flag1_yn;
6384: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
6385: IF (x_tcnv_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
6386: x_tcnv_rec.tmt_split_asset_yn := l_tcnv_rec.tmt_split_asset_yn;
6387: END IF;
6388: IF (x_tcnv_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
6389: x_tcnv_rec.tmt_generic_flag1_yn := l_tcnv_rec.tmt_generic_flag1_yn;
6390: END IF;
6391: IF (x_tcnv_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
6392: x_tcnv_rec.tmt_generic_flag2_yn := l_tcnv_rec.tmt_generic_flag2_yn;
6387: END IF;
6388: IF (x_tcnv_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
6389: x_tcnv_rec.tmt_generic_flag1_yn := l_tcnv_rec.tmt_generic_flag1_yn;
6390: END IF;
6391: IF (x_tcnv_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
6392: x_tcnv_rec.tmt_generic_flag2_yn := l_tcnv_rec.tmt_generic_flag2_yn;
6393: END IF;
6394: IF (x_tcnv_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
6395: x_tcnv_rec.tmt_generic_flag3_yn := l_tcnv_rec.tmt_generic_flag3_yn;
6390: END IF;
6391: IF (x_tcnv_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
6392: x_tcnv_rec.tmt_generic_flag2_yn := l_tcnv_rec.tmt_generic_flag2_yn;
6393: END IF;
6394: IF (x_tcnv_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
6395: x_tcnv_rec.tmt_generic_flag3_yn := l_tcnv_rec.tmt_generic_flag3_yn;
6396: END IF;
6397: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
6398: IF (x_tcnv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
6394: IF (x_tcnv_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
6395: x_tcnv_rec.tmt_generic_flag3_yn := l_tcnv_rec.tmt_generic_flag3_yn;
6396: END IF;
6397: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
6398: IF (x_tcnv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
6399: x_tcnv_rec.currency_conversion_type := l_tcnv_rec.currency_conversion_type;
6400: END IF;
6401: IF (x_tcnv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
6402: x_tcnv_rec.currency_conversion_rate := l_tcnv_rec.currency_conversion_rate;
6397: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
6398: IF (x_tcnv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
6399: x_tcnv_rec.currency_conversion_type := l_tcnv_rec.currency_conversion_type;
6400: END IF;
6401: IF (x_tcnv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
6402: x_tcnv_rec.currency_conversion_rate := l_tcnv_rec.currency_conversion_rate;
6403: END IF;
6404: IF (x_tcnv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
6405: x_tcnv_rec.currency_conversion_date := l_tcnv_rec.currency_conversion_date;
6400: END IF;
6401: IF (x_tcnv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
6402: x_tcnv_rec.currency_conversion_rate := l_tcnv_rec.currency_conversion_rate;
6403: END IF;
6404: IF (x_tcnv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
6405: x_tcnv_rec.currency_conversion_date := l_tcnv_rec.currency_conversion_date;
6406: END IF;
6407: -- Added be Keerthi 04-SEP-2003
6408: IF (x_tcnv_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
6404: IF (x_tcnv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
6405: x_tcnv_rec.currency_conversion_date := l_tcnv_rec.currency_conversion_date;
6406: END IF;
6407: -- Added be Keerthi 04-SEP-2003
6408: IF (x_tcnv_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
6409: x_tcnv_rec.chr_id := l_tcnv_rec.chr_id;
6410: END IF;
6411: -- Added be Keerthi for Bug No 3195713
6412: IF (x_tcnv_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
6408: IF (x_tcnv_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
6409: x_tcnv_rec.chr_id := l_tcnv_rec.chr_id;
6410: END IF;
6411: -- Added be Keerthi for Bug No 3195713
6412: IF (x_tcnv_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
6413: x_tcnv_rec.source_trx_id := l_tcnv_rec.source_trx_id;
6414: END IF;
6415:
6416: IF (x_tcnv_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
6412: IF (x_tcnv_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
6413: x_tcnv_rec.source_trx_id := l_tcnv_rec.source_trx_id;
6414: END IF;
6415:
6416: IF (x_tcnv_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
6417: x_tcnv_rec.source_trx_type := l_tcnv_rec.source_trx_type;
6418: END IF;
6419:
6420: IF (x_tcnv_rec.canceled_date = Okc_Api.G_MISS_DATE) THEN
6416: IF (x_tcnv_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
6417: x_tcnv_rec.source_trx_type := l_tcnv_rec.source_trx_type;
6418: END IF;
6419:
6420: IF (x_tcnv_rec.canceled_date = Okc_Api.G_MISS_DATE) THEN
6421: x_tcnv_rec.canceled_date := l_tcnv_rec.canceled_date;
6422: END IF;
6423:
6424: --Added by dpsingh for LE Uptake
6488: FUNCTION Set_Attributes (
6489: p_tcnv_rec IN tcnv_rec_type,
6490: x_tcnv_rec OUT NOCOPY tcnv_rec_type
6491: ) RETURN VARCHAR2 IS
6492: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6493: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
6494: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
6495: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
6496: BEGIN
6509:
6510: RETURN(l_return_status);
6511: END Set_Attributes;
6512: BEGIN
6513: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6514: G_PKG_NAME,
6515: p_init_msg_list,
6516: l_api_version,
6517: p_api_version,
6517: p_api_version,
6518: '_PVT',
6519: x_return_status);
6520:
6521: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6522: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6523: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6524: RAISE Okc_Api.G_EXCEPTION_ERROR;
6525: END IF;
6518: '_PVT',
6519: x_return_status);
6520:
6521: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6522: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6523: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6524: RAISE Okc_Api.G_EXCEPTION_ERROR;
6525: END IF;
6526: --- Setting item attributes
6519: x_return_status);
6520:
6521: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6522: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6523: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6524: RAISE Okc_Api.G_EXCEPTION_ERROR;
6525: END IF;
6526: --- Setting item attributes
6527: l_return_status := Set_Attributes(
6520:
6521: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6522: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6523: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6524: RAISE Okc_Api.G_EXCEPTION_ERROR;
6525: END IF;
6526: --- Setting item attributes
6527: l_return_status := Set_Attributes(
6528: p_tcnv_rec, -- IN
6527: l_return_status := Set_Attributes(
6528: p_tcnv_rec, -- IN
6529: l_tcnv_rec); -- OUT
6530: --- If any errors happen abort API
6531: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6532: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6533: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6534: RAISE Okc_Api.G_EXCEPTION_ERROR;
6535: END IF;
6528: p_tcnv_rec, -- IN
6529: l_tcnv_rec); -- OUT
6530: --- If any errors happen abort API
6531: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6532: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6533: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6534: RAISE Okc_Api.G_EXCEPTION_ERROR;
6535: END IF;
6536: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6529: l_tcnv_rec); -- OUT
6530: --- If any errors happen abort API
6531: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6532: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6533: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6534: RAISE Okc_Api.G_EXCEPTION_ERROR;
6535: END IF;
6536: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6537: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6530: --- If any errors happen abort API
6531: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6532: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6533: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6534: RAISE Okc_Api.G_EXCEPTION_ERROR;
6535: END IF;
6536: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6537: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6538: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6533: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6534: RAISE Okc_Api.G_EXCEPTION_ERROR;
6535: END IF;
6536: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6537: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6538: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6539: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6540: RAISE Okc_Api.G_EXCEPTION_ERROR;
6541: END IF;
6534: RAISE Okc_Api.G_EXCEPTION_ERROR;
6535: END IF;
6536: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6537: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6538: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6539: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6540: RAISE Okc_Api.G_EXCEPTION_ERROR;
6541: END IF;
6542: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
6535: END IF;
6536: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6537: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6538: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6539: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6540: RAISE Okc_Api.G_EXCEPTION_ERROR;
6541: END IF;
6542: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
6543: --- Validate all non-missing attributes (Item Level Validation)
6536: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6537: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6538: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6539: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6540: RAISE Okc_Api.G_EXCEPTION_ERROR;
6541: END IF;
6542: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
6543: --- Validate all non-missing attributes (Item Level Validation)
6544: l_return_status := Validate_Attributes(l_def_tcnv_rec);
6542: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
6543: --- Validate all non-missing attributes (Item Level Validation)
6544: l_return_status := Validate_Attributes(l_def_tcnv_rec);
6545: --- If any errors happen abort API
6546: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6547: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6548: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6549: RAISE Okc_Api.G_EXCEPTION_ERROR;
6550: END IF;
6543: --- Validate all non-missing attributes (Item Level Validation)
6544: l_return_status := Validate_Attributes(l_def_tcnv_rec);
6545: --- If any errors happen abort API
6546: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6547: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6548: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6549: RAISE Okc_Api.G_EXCEPTION_ERROR;
6550: END IF;
6551: l_return_status := Validate_Record(l_def_tcnv_rec);
6544: l_return_status := Validate_Attributes(l_def_tcnv_rec);
6545: --- If any errors happen abort API
6546: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6547: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6548: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6549: RAISE Okc_Api.G_EXCEPTION_ERROR;
6550: END IF;
6551: l_return_status := Validate_Record(l_def_tcnv_rec);
6552: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6545: --- If any errors happen abort API
6546: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6547: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6548: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6549: RAISE Okc_Api.G_EXCEPTION_ERROR;
6550: END IF;
6551: l_return_status := Validate_Record(l_def_tcnv_rec);
6552: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6553: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6548: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6549: RAISE Okc_Api.G_EXCEPTION_ERROR;
6550: END IF;
6551: l_return_status := Validate_Record(l_def_tcnv_rec);
6552: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6553: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6554: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6555: RAISE Okc_Api.G_EXCEPTION_ERROR;
6556: END IF;
6549: RAISE Okc_Api.G_EXCEPTION_ERROR;
6550: END IF;
6551: l_return_status := Validate_Record(l_def_tcnv_rec);
6552: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6553: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6554: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6555: RAISE Okc_Api.G_EXCEPTION_ERROR;
6556: END IF;
6557:
6550: END IF;
6551: l_return_status := Validate_Record(l_def_tcnv_rec);
6552: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6553: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6554: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6555: RAISE Okc_Api.G_EXCEPTION_ERROR;
6556: END IF;
6557:
6558: --------------------------------------
6551: l_return_status := Validate_Record(l_def_tcnv_rec);
6552: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6553: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6554: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6555: RAISE Okc_Api.G_EXCEPTION_ERROR;
6556: END IF;
6557:
6558: --------------------------------------
6559: -- Move VIEW record to "Child" records
6569: x_msg_data,
6570: l_tcn_rec,
6571: lx_tcn_rec
6572: );
6573: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6574: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6576: RAISE Okc_Api.G_EXCEPTION_ERROR;
6577: END IF;
6570: l_tcn_rec,
6571: lx_tcn_rec
6572: );
6573: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6574: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6576: RAISE Okc_Api.G_EXCEPTION_ERROR;
6577: END IF;
6578: migrate(lx_tcn_rec, l_def_tcnv_rec);
6571: lx_tcn_rec
6572: );
6573: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6574: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6576: RAISE Okc_Api.G_EXCEPTION_ERROR;
6577: END IF;
6578: migrate(lx_tcn_rec, l_def_tcnv_rec);
6579: x_tcnv_rec := l_def_tcnv_rec;
6572: );
6573: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6574: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6576: RAISE Okc_Api.G_EXCEPTION_ERROR;
6577: END IF;
6578: migrate(lx_tcn_rec, l_def_tcnv_rec);
6579: x_tcnv_rec := l_def_tcnv_rec;
6580: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6576: RAISE Okc_Api.G_EXCEPTION_ERROR;
6577: END IF;
6578: migrate(lx_tcn_rec, l_def_tcnv_rec);
6579: x_tcnv_rec := l_def_tcnv_rec;
6580: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6581: EXCEPTION
6582: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6583: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6584: (
6578: migrate(lx_tcn_rec, l_def_tcnv_rec);
6579: x_tcnv_rec := l_def_tcnv_rec;
6580: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6581: EXCEPTION
6582: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6583: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6584: (
6585: l_api_name,
6586: G_PKG_NAME,
6579: x_tcnv_rec := l_def_tcnv_rec;
6580: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6581: EXCEPTION
6582: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6583: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6584: (
6585: l_api_name,
6586: G_PKG_NAME,
6587: 'OKC_API.G_RET_STS_ERROR',
6583: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6584: (
6585: l_api_name,
6586: G_PKG_NAME,
6587: 'OKC_API.G_RET_STS_ERROR',
6588: x_msg_count,
6589: x_msg_data,
6590: '_PVT'
6591: );
6588: x_msg_count,
6589: x_msg_data,
6590: '_PVT'
6591: );
6592: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6593: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6594: (
6595: l_api_name,
6596: G_PKG_NAME,
6589: x_msg_data,
6590: '_PVT'
6591: );
6592: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6593: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6594: (
6595: l_api_name,
6596: G_PKG_NAME,
6597: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6593: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6594: (
6595: l_api_name,
6596: G_PKG_NAME,
6597: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6598: x_msg_count,
6599: x_msg_data,
6600: '_PVT'
6601: );
6599: x_msg_data,
6600: '_PVT'
6601: );
6602: WHEN OTHERS THEN
6603: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6604: (
6605: l_api_name,
6606: G_PKG_NAME,
6607: 'OTHERS',
6623: x_tcnv_tbl OUT NOCOPY tcnv_tbl_type) IS
6624:
6625: l_api_version CONSTANT NUMBER := 1;
6626: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
6627: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6628: i NUMBER := 0;
6629: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6630:
6631: BEGIN
6625: l_api_version CONSTANT NUMBER := 1;
6626: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
6627: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6628: i NUMBER := 0;
6629: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6630:
6631: BEGIN
6632: Okc_Api.init_msg_list(p_init_msg_list);
6633: -- Make sure PL/SQL table has records in it before passing
6628: i NUMBER := 0;
6629: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6630:
6631: BEGIN
6632: Okc_Api.init_msg_list(p_init_msg_list);
6633: -- Make sure PL/SQL table has records in it before passing
6634: IF (p_tcnv_tbl.COUNT > 0) THEN
6635: i := p_tcnv_tbl.FIRST;
6636: LOOP
6635: i := p_tcnv_tbl.FIRST;
6636: LOOP
6637: update_row (
6638: p_api_version => p_api_version,
6639: p_init_msg_list => Okc_Api.G_FALSE,
6640: x_return_status => x_return_status,
6641: x_msg_count => x_msg_count,
6642: x_msg_data => x_msg_data,
6643: p_tcnv_rec => p_tcnv_tbl(i),
6643: p_tcnv_rec => p_tcnv_tbl(i),
6644: x_tcnv_rec => x_tcnv_tbl(i));
6645:
6646: -- store the highest degree of error
6647: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
6648: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
6649: l_overall_status := x_return_status;
6650: END IF;
6651: END IF;
6644: x_tcnv_rec => x_tcnv_tbl(i));
6645:
6646: -- store the highest degree of error
6647: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
6648: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
6649: l_overall_status := x_return_status;
6650: END IF;
6651: END IF;
6652:
6657: x_return_status := l_overall_status;
6658:
6659: END IF;
6660: EXCEPTION
6661: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6662: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6663: (
6664: l_api_name,
6665: G_PKG_NAME,
6658:
6659: END IF;
6660: EXCEPTION
6661: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6662: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6663: (
6664: l_api_name,
6665: G_PKG_NAME,
6666: 'OKC_API.G_RET_STS_ERROR',
6662: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6663: (
6664: l_api_name,
6665: G_PKG_NAME,
6666: 'OKC_API.G_RET_STS_ERROR',
6667: x_msg_count,
6668: x_msg_data,
6669: '_PVT'
6670: );
6667: x_msg_count,
6668: x_msg_data,
6669: '_PVT'
6670: );
6671: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6672: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6673: (
6674: l_api_name,
6675: G_PKG_NAME,
6668: x_msg_data,
6669: '_PVT'
6670: );
6671: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6672: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6673: (
6674: l_api_name,
6675: G_PKG_NAME,
6676: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6672: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6673: (
6674: l_api_name,
6675: G_PKG_NAME,
6676: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6677: x_msg_count,
6678: x_msg_data,
6679: '_PVT'
6680: );
6678: x_msg_data,
6679: '_PVT'
6680: );
6681: WHEN OTHERS THEN
6682: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6683: (
6684: l_api_name,
6685: G_PKG_NAME,
6686: 'OTHERS',
6704: p_tcn_rec IN tcn_rec_type) IS
6705:
6706: l_api_version CONSTANT NUMBER := 1;
6707: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACTS_delete_row';
6708: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6709: l_tcn_rec tcn_rec_type:= p_tcn_rec;
6710: l_row_notfound BOOLEAN := TRUE;
6711: BEGIN
6712: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6708: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6709: l_tcn_rec tcn_rec_type:= p_tcn_rec;
6710: l_row_notfound BOOLEAN := TRUE;
6711: BEGIN
6712: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6713: p_init_msg_list,
6714: '_PVT',
6715: x_return_status);
6716: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6712: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6713: p_init_msg_list,
6714: '_PVT',
6715: x_return_status);
6716: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6717: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6718: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6719: RAISE Okc_Api.G_EXCEPTION_ERROR;
6720: END IF;
6713: p_init_msg_list,
6714: '_PVT',
6715: x_return_status);
6716: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6717: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6718: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6719: RAISE Okc_Api.G_EXCEPTION_ERROR;
6720: END IF;
6721: DELETE FROM OKL_TRX_CONTRACTS
6714: '_PVT',
6715: x_return_status);
6716: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6717: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6718: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6719: RAISE Okc_Api.G_EXCEPTION_ERROR;
6720: END IF;
6721: DELETE FROM OKL_TRX_CONTRACTS
6722: WHERE ID = l_tcn_rec.id;
6715: x_return_status);
6716: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6717: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6718: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6719: RAISE Okc_Api.G_EXCEPTION_ERROR;
6720: END IF;
6721: DELETE FROM OKL_TRX_CONTRACTS
6722: WHERE ID = l_tcn_rec.id;
6723:
6720: END IF;
6721: DELETE FROM OKL_TRX_CONTRACTS
6722: WHERE ID = l_tcn_rec.id;
6723:
6724: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6725: EXCEPTION
6726: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6727: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6728: (
6722: WHERE ID = l_tcn_rec.id;
6723:
6724: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6725: EXCEPTION
6726: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6727: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6728: (
6729: l_api_name,
6730: G_PKG_NAME,
6723:
6724: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6725: EXCEPTION
6726: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6727: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6728: (
6729: l_api_name,
6730: G_PKG_NAME,
6731: 'OKC_API.G_RET_STS_ERROR',
6727: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6728: (
6729: l_api_name,
6730: G_PKG_NAME,
6731: 'OKC_API.G_RET_STS_ERROR',
6732: x_msg_count,
6733: x_msg_data,
6734: '_PVT'
6735: );
6732: x_msg_count,
6733: x_msg_data,
6734: '_PVT'
6735: );
6736: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6737: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6738: (
6739: l_api_name,
6740: G_PKG_NAME,
6733: x_msg_data,
6734: '_PVT'
6735: );
6736: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6737: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6738: (
6739: l_api_name,
6740: G_PKG_NAME,
6741: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6737: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6738: (
6739: l_api_name,
6740: G_PKG_NAME,
6741: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6742: x_msg_count,
6743: x_msg_data,
6744: '_PVT'
6745: );
6743: x_msg_data,
6744: '_PVT'
6745: );
6746: WHEN OTHERS THEN
6747: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6748: (
6749: l_api_name,
6750: G_PKG_NAME,
6751: 'OTHERS',
6766: p_tcnv_rec IN tcnv_rec_type) IS
6767:
6768: l_api_version CONSTANT NUMBER := 1;
6769: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
6770: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6771: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
6772: l_tcn_rec tcn_rec_type;
6773: BEGIN
6774: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6770: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6771: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
6772: l_tcn_rec tcn_rec_type;
6773: BEGIN
6774: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6775: G_PKG_NAME,
6776: p_init_msg_list,
6777: l_api_version,
6778: p_api_version,
6777: l_api_version,
6778: p_api_version,
6779: '_PVT',
6780: x_return_status);
6781: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6782: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6783: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6784: RAISE Okc_Api.G_EXCEPTION_ERROR;
6785: END IF;
6778: p_api_version,
6779: '_PVT',
6780: x_return_status);
6781: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6782: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6783: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6784: RAISE Okc_Api.G_EXCEPTION_ERROR;
6785: END IF;
6786: --------------------------------------
6779: '_PVT',
6780: x_return_status);
6781: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6782: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6783: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6784: RAISE Okc_Api.G_EXCEPTION_ERROR;
6785: END IF;
6786: --------------------------------------
6787: -- Move VIEW record to "Child" records
6780: x_return_status);
6781: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6782: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6783: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6784: RAISE Okc_Api.G_EXCEPTION_ERROR;
6785: END IF;
6786: --------------------------------------
6787: -- Move VIEW record to "Child" records
6788: --------------------------------------
6796: x_msg_count,
6797: x_msg_data,
6798: l_tcn_rec
6799: );
6800: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6801: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6802: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6803: RAISE Okc_Api.G_EXCEPTION_ERROR;
6804: END IF;
6797: x_msg_data,
6798: l_tcn_rec
6799: );
6800: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6801: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6802: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6803: RAISE Okc_Api.G_EXCEPTION_ERROR;
6804: END IF;
6805: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6798: l_tcn_rec
6799: );
6800: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6801: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6802: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6803: RAISE Okc_Api.G_EXCEPTION_ERROR;
6804: END IF;
6805: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6806: EXCEPTION
6799: );
6800: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6801: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6802: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6803: RAISE Okc_Api.G_EXCEPTION_ERROR;
6804: END IF;
6805: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6806: EXCEPTION
6807: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6801: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6802: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6803: RAISE Okc_Api.G_EXCEPTION_ERROR;
6804: END IF;
6805: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6806: EXCEPTION
6807: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6808: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6809: (
6803: RAISE Okc_Api.G_EXCEPTION_ERROR;
6804: END IF;
6805: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6806: EXCEPTION
6807: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6808: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6809: (
6810: l_api_name,
6811: G_PKG_NAME,
6804: END IF;
6805: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6806: EXCEPTION
6807: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6808: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6809: (
6810: l_api_name,
6811: G_PKG_NAME,
6812: 'OKC_API.G_RET_STS_ERROR',
6808: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6809: (
6810: l_api_name,
6811: G_PKG_NAME,
6812: 'OKC_API.G_RET_STS_ERROR',
6813: x_msg_count,
6814: x_msg_data,
6815: '_PVT'
6816: );
6813: x_msg_count,
6814: x_msg_data,
6815: '_PVT'
6816: );
6817: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6818: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6819: (
6820: l_api_name,
6821: G_PKG_NAME,
6814: x_msg_data,
6815: '_PVT'
6816: );
6817: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6818: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6819: (
6820: l_api_name,
6821: G_PKG_NAME,
6822: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6818: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6819: (
6820: l_api_name,
6821: G_PKG_NAME,
6822: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6823: x_msg_count,
6824: x_msg_data,
6825: '_PVT'
6826: );
6824: x_msg_data,
6825: '_PVT'
6826: );
6827: WHEN OTHERS THEN
6828: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6829: (
6830: l_api_name,
6831: G_PKG_NAME,
6832: 'OTHERS',
6847: p_tcnv_tbl IN tcnv_tbl_type) IS
6848:
6849: l_api_version CONSTANT NUMBER := 1;
6850: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
6851: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6852: i NUMBER := 0;
6853: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6854:
6855: BEGIN
6849: l_api_version CONSTANT NUMBER := 1;
6850: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
6851: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6852: i NUMBER := 0;
6853: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6854:
6855: BEGIN
6856: Okc_Api.init_msg_list(p_init_msg_list);
6857: -- Make sure PL/SQL table has records in it before passing
6852: i NUMBER := 0;
6853: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6854:
6855: BEGIN
6856: Okc_Api.init_msg_list(p_init_msg_list);
6857: -- Make sure PL/SQL table has records in it before passing
6858: IF (p_tcnv_tbl.COUNT > 0) THEN
6859: i := p_tcnv_tbl.FIRST;
6860: LOOP
6859: i := p_tcnv_tbl.FIRST;
6860: LOOP
6861: delete_row (
6862: p_api_version => p_api_version,
6863: p_init_msg_list => Okc_Api.G_FALSE,
6864: x_return_status => x_return_status,
6865: x_msg_count => x_msg_count,
6866: x_msg_data => x_msg_data,
6867: p_tcnv_rec => p_tcnv_tbl(i));
6866: x_msg_data => x_msg_data,
6867: p_tcnv_rec => p_tcnv_tbl(i));
6868:
6869: -- store the highest degree of error
6870: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
6871: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
6872: l_overall_status := x_return_status;
6873: END IF;
6874: END IF;
6867: p_tcnv_rec => p_tcnv_tbl(i));
6868:
6869: -- store the highest degree of error
6870: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
6871: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
6872: l_overall_status := x_return_status;
6873: END IF;
6874: END IF;
6875:
6880: x_return_status := l_overall_status;
6881:
6882: END IF;
6883: EXCEPTION
6884: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6885: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6886: (
6887: l_api_name,
6888: G_PKG_NAME,
6881:
6882: END IF;
6883: EXCEPTION
6884: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6885: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6886: (
6887: l_api_name,
6888: G_PKG_NAME,
6889: 'OKC_API.G_RET_STS_ERROR',
6885: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6886: (
6887: l_api_name,
6888: G_PKG_NAME,
6889: 'OKC_API.G_RET_STS_ERROR',
6890: x_msg_count,
6891: x_msg_data,
6892: '_PVT'
6893: );
6890: x_msg_count,
6891: x_msg_data,
6892: '_PVT'
6893: );
6894: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6895: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6896: (
6897: l_api_name,
6898: G_PKG_NAME,
6891: x_msg_data,
6892: '_PVT'
6893: );
6894: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6895: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6896: (
6897: l_api_name,
6898: G_PKG_NAME,
6899: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6895: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6896: (
6897: l_api_name,
6898: G_PKG_NAME,
6899: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6900: x_msg_count,
6901: x_msg_data,
6902: '_PVT'
6903: );
6901: x_msg_data,
6902: '_PVT'
6903: );
6904: WHEN OTHERS THEN
6905: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6906: (
6907: l_api_name,
6908: G_PKG_NAME,
6909: 'OTHERS',