[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:
3538: l_11i_row_notfound BOOLEAN := TRUE;--sechawla 8967918
3556: AND short_name = p_rep_code;
3557:
3558: BEGIN
3559:
3560: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3561:
3562: IF(p_tcnv_rec.representation_name IS NOT NULL) AND (p_tcnv_rec.representation_name <> Okc_Api.G_MISS_CHAR)
3563: AND (p_tcnv_rec.representation_code IS NOT NULL) AND (p_tcnv_rec.representation_code <> Okc_Api.G_MISS_CHAR) THEN
3564: OPEN rep_valid_csr(p_rep_name => p_tcnv_rec.representation_name,
3558: BEGIN
3559:
3560: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3561:
3562: IF(p_tcnv_rec.representation_name IS NOT NULL) AND (p_tcnv_rec.representation_name <> Okc_Api.G_MISS_CHAR)
3563: AND (p_tcnv_rec.representation_code IS NOT NULL) AND (p_tcnv_rec.representation_code <> Okc_Api.G_MISS_CHAR) THEN
3564: OPEN rep_valid_csr(p_rep_name => p_tcnv_rec.representation_name,
3565: p_rep_code => p_tcnv_rec.representation_code);
3566: FETCH rep_valid_csr INTO l_dummy;
3559:
3560: x_return_status := Okc_Api.G_RET_STS_SUCCESS;
3561:
3562: IF(p_tcnv_rec.representation_name IS NOT NULL) AND (p_tcnv_rec.representation_name <> Okc_Api.G_MISS_CHAR)
3563: AND (p_tcnv_rec.representation_code IS NOT NULL) AND (p_tcnv_rec.representation_code <> Okc_Api.G_MISS_CHAR) THEN
3564: OPEN rep_valid_csr(p_rep_name => p_tcnv_rec.representation_name,
3565: p_rep_code => p_tcnv_rec.representation_code);
3566: FETCH rep_valid_csr INTO l_dummy;
3567: l_row_notfound := rep_valid_csr%NOTFOUND;
3575: CLOSE rep_valid_csr_11i;
3576:
3577: IF (l_11i_row_notfound) THEN
3578: --sechawla 8967918 : during upgrade, gl_ledgers may not have data. Use gl_sets_of_books_11i in that case : end
3579: Okc_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'REPRESENTATION_CODE');
3580: RAISE item_not_found_error;
3581: END IF;
3582: END IF;
3583: ELSE
3580: RAISE item_not_found_error;
3581: END IF;
3582: END IF;
3583: ELSE
3584: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3585: ,p_msg_name => g_required_value
3586: ,p_token1 => g_col_name_token
3587: ,p_token1_value => 'REPRESENTATION_CODE');
3588: x_return_status := Okc_Api.G_RET_STS_ERROR;
3584: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3585: ,p_msg_name => g_required_value
3586: ,p_token1 => g_col_name_token
3587: ,p_token1_value => 'REPRESENTATION_CODE');
3588: x_return_status := Okc_Api.G_RET_STS_ERROR;
3589: RAISE G_EXCEPTION_HALT_VALIDATION;
3590: END IF;
3591:
3592: EXCEPTION
3595: -- with the next column
3596: NULL;
3597:
3598: WHEN item_not_found_error THEN
3599: x_return_status := Okc_Api.G_RET_STS_ERROR;
3600:
3601: WHEN OTHERS THEN
3602: -- store SQL error message on message stack for caller
3603: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3599: x_return_status := Okc_Api.G_RET_STS_ERROR;
3600:
3601: WHEN OTHERS THEN
3602: -- store SQL error message on message stack for caller
3603: Okc_Api.SET_MESSAGE(p_app_name => g_app_name
3604: ,p_msg_name => g_unexpected_error
3605: ,p_token1 => g_sqlcode_token
3606: ,p_token1_value => SQLCODE
3607: ,p_token2 => g_sqlerrm_token
3607: ,p_token2 => g_sqlerrm_token
3608: ,p_token2_value => SQLERRM);
3609:
3610: -- notify caller of an UNEXPECTED error
3611: x_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
3612:
3613: END Validate_Rep_Name_Code;
3614:
3615:
3629: FUNCTION Validate_Attributes (
3630: p_tcnv_rec IN tcnv_rec_type
3631: ) RETURN VARCHAR2 IS
3632:
3633: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3634: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3635: BEGIN
3636:
3637: -- Validate_Id
3630: p_tcnv_rec IN tcnv_rec_type
3631: ) RETURN VARCHAR2 IS
3632:
3633: x_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3634: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3635: BEGIN
3636:
3637: -- Validate_Id
3638: Validate_Id(p_tcnv_rec, x_return_status);
3635: BEGIN
3636:
3637: -- Validate_Id
3638: Validate_Id(p_tcnv_rec, x_return_status);
3639: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3640: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3641: -- need to exit
3642: l_return_status := x_return_status;
3643: RAISE G_EXCEPTION_HALT_VALIDATION;
3636:
3637: -- Validate_Id
3638: Validate_Id(p_tcnv_rec, x_return_status);
3639: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3640: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3641: -- need to exit
3642: l_return_status := x_return_status;
3643: RAISE G_EXCEPTION_HALT_VALIDATION;
3644: ELSE
3648: END IF;
3649:
3650: -- Validate_Khr_Id
3651: Validate_Khr_Id(p_tcnv_rec, x_return_status);
3652: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3653: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3654: -- need to exit
3655: l_return_status := x_return_status;
3656: RAISE G_EXCEPTION_HALT_VALIDATION;
3649:
3650: -- Validate_Khr_Id
3651: Validate_Khr_Id(p_tcnv_rec, x_return_status);
3652: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3653: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3654: -- need to exit
3655: l_return_status := x_return_status;
3656: RAISE G_EXCEPTION_HALT_VALIDATION;
3657: ELSE
3661: END IF;
3662:
3663: -- Validate_Khr_Id_New
3664: Validate_Khr_Id_New(p_tcnv_rec, x_return_status);
3665: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3666: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3667: -- need to exit
3668: l_return_status := x_return_status;
3669: RAISE G_EXCEPTION_HALT_VALIDATION;
3662:
3663: -- Validate_Khr_Id_New
3664: Validate_Khr_Id_New(p_tcnv_rec, x_return_status);
3665: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3666: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3667: -- need to exit
3668: l_return_status := x_return_status;
3669: RAISE G_EXCEPTION_HALT_VALIDATION;
3670: ELSE
3674: END IF;
3675:
3676: -- Validate_Khr_Id_Old
3677: Validate_Khr_Id_Old(p_tcnv_rec, x_return_status);
3678: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3679: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3680: -- need to exit
3681: l_return_status := x_return_status;
3682: RAISE G_EXCEPTION_HALT_VALIDATION;
3675:
3676: -- Validate_Khr_Id_Old
3677: Validate_Khr_Id_Old(p_tcnv_rec, x_return_status);
3678: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3679: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3680: -- need to exit
3681: l_return_status := x_return_status;
3682: RAISE G_EXCEPTION_HALT_VALIDATION;
3683: ELSE
3688:
3689: -- Added by smereddy for Multi-GAAP project (Bug 7263041) 04-Aug-2007
3690: -- Validate_primary_rep_trx_id
3691: Validate_primary_rep_trx_id(p_tcnv_rec, x_return_status);
3692: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3693: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3694: -- need to exit
3695: l_return_status := x_return_status;
3696: RAISE G_EXCEPTION_HALT_VALIDATION;
3689: -- Added by smereddy for Multi-GAAP project (Bug 7263041) 04-Aug-2007
3690: -- Validate_primary_rep_trx_id
3691: Validate_primary_rep_trx_id(p_tcnv_rec, x_return_status);
3692: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3693: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3694: -- need to exit
3695: l_return_status := x_return_status;
3696: RAISE G_EXCEPTION_HALT_VALIDATION;
3697: ELSE
3701: END IF;
3702:
3703: -- Validate_representation_type
3704: Validate_representation_type(p_tcnv_rec, x_return_status);
3705: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3706: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3707: -- need to exit
3708: l_return_status := x_return_status;
3709: RAISE G_EXCEPTION_HALT_VALIDATION;
3702:
3703: -- Validate_representation_type
3704: Validate_representation_type(p_tcnv_rec, x_return_status);
3705: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3706: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3707: -- need to exit
3708: l_return_status := x_return_status;
3709: RAISE G_EXCEPTION_HALT_VALIDATION;
3710: ELSE
3714: END IF;
3715:
3716: -- Validate_Pvn_Id
3717: Validate_PVN_ID(p_tcnv_rec, x_return_status);
3718: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3719: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3720: -- need to exit
3721: l_return_status := x_return_status;
3722: RAISE G_EXCEPTION_HALT_VALIDATION;
3715:
3716: -- Validate_Pvn_Id
3717: Validate_PVN_ID(p_tcnv_rec, x_return_status);
3718: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3719: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3720: -- need to exit
3721: l_return_status := x_return_status;
3722: RAISE G_EXCEPTION_HALT_VALIDATION;
3723: ELSE
3728:
3729:
3730: -- Validate_PDT_Id
3731: Validate_PDT_ID(p_tcnv_rec, x_return_status);
3732: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3733: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3734: -- need to exit
3735: l_return_status := x_return_status;
3736: RAISE G_EXCEPTION_HALT_VALIDATION;
3729:
3730: -- Validate_PDT_Id
3731: Validate_PDT_ID(p_tcnv_rec, x_return_status);
3732: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3733: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3734: -- need to exit
3735: l_return_status := x_return_status;
3736: RAISE G_EXCEPTION_HALT_VALIDATION;
3737: ELSE
3741: END IF;
3742:
3743: -- Validate_QTE_ID
3744: Validate_QTE_ID(p_tcnv_rec, x_return_status);
3745: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3746: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3747: -- need to exit
3748: l_return_status := x_return_status;
3749: RAISE G_EXCEPTION_HALT_VALIDATION;
3742:
3743: -- Validate_QTE_ID
3744: Validate_QTE_ID(p_tcnv_rec, x_return_status);
3745: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3746: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3747: -- need to exit
3748: l_return_status := x_return_status;
3749: RAISE G_EXCEPTION_HALT_VALIDATION;
3750: ELSE
3754: END IF;
3755:
3756: -- Validate_AES_ID
3757: Validate_AES_ID(p_tcnv_rec, x_return_status);
3758: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3759: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3760: -- need to exit
3761: l_return_status := x_return_status;
3762: RAISE G_EXCEPTION_HALT_VALIDATION;
3755:
3756: -- Validate_AES_ID
3757: Validate_AES_ID(p_tcnv_rec, x_return_status);
3758: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3759: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3760: -- need to exit
3761: l_return_status := x_return_status;
3762: RAISE G_EXCEPTION_HALT_VALIDATION;
3763: ELSE
3768:
3769:
3770: -- Validate_CCID
3771: Validate_CCID(p_tcnv_rec, x_return_status);
3772: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3773: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3774: -- need to exit
3775: l_return_status := x_return_status;
3776: RAISE G_EXCEPTION_HALT_VALIDATION;
3769:
3770: -- Validate_CCID
3771: Validate_CCID(p_tcnv_rec, x_return_status);
3772: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3773: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3774: -- need to exit
3775: l_return_status := x_return_status;
3776: RAISE G_EXCEPTION_HALT_VALIDATION;
3777: ELSE
3781: END IF;
3782:
3783: -- Validate_Object_Version_Number
3784: Validate_Object_Version_Number(p_tcnv_rec, x_return_status);
3785: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3786: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3787: -- need to exit
3788: l_return_status := x_return_status;
3789: RAISE G_EXCEPTION_HALT_VALIDATION;
3782:
3783: -- Validate_Object_Version_Number
3784: Validate_Object_Version_Number(p_tcnv_rec, x_return_status);
3785: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3786: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3787: -- need to exit
3788: l_return_status := x_return_status;
3789: RAISE G_EXCEPTION_HALT_VALIDATION;
3790: ELSE
3794: END IF;
3795:
3796: -- Validate_Tcn_Type
3797: Validate_Tcn_Type(p_tcnv_rec, x_return_status);
3798: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3799: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3800: -- need to exit
3801: l_return_status := x_return_status;
3802: RAISE G_EXCEPTION_HALT_VALIDATION;
3795:
3796: -- Validate_Tcn_Type
3797: Validate_Tcn_Type(p_tcnv_rec, x_return_status);
3798: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3799: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3800: -- need to exit
3801: l_return_status := x_return_status;
3802: RAISE G_EXCEPTION_HALT_VALIDATION;
3803: ELSE
3807: END IF;
3808:
3809: -- Validate_Accrual_Status_YN
3810: Validate_Accrual_Status_YN(p_tcnv_rec, x_return_status);
3811: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3812: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3813: -- need to exit
3814: l_return_status := x_return_status;
3815: RAISE G_EXCEPTION_HALT_VALIDATION;
3808:
3809: -- Validate_Accrual_Status_YN
3810: Validate_Accrual_Status_YN(p_tcnv_rec, x_return_status);
3811: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3812: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3813: -- need to exit
3814: l_return_status := x_return_status;
3815: RAISE G_EXCEPTION_HALT_VALIDATION;
3816: ELSE
3820: END IF;
3821:
3822: -- Validate_Update_Status_YN
3823: Validate_Update_Status_YN(p_tcnv_rec, x_return_status);
3824: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3825: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3826: -- need to exit
3827: l_return_status := x_return_status;
3828: RAISE G_EXCEPTION_HALT_VALIDATION;
3821:
3822: -- Validate_Update_Status_YN
3823: Validate_Update_Status_YN(p_tcnv_rec, x_return_status);
3824: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3825: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3826: -- need to exit
3827: l_return_status := x_return_status;
3828: RAISE G_EXCEPTION_HALT_VALIDATION;
3829: ELSE
3834:
3835: -- Added DJANASWA for SLA project
3836: -- Validate_Account_Reversal_YN
3837: Validate_Account_Reversal_YN (p_tcnv_rec, x_return_status);
3838: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3839: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3840: -- need to exit
3841: l_return_status := x_return_status;
3842: RAISE G_EXCEPTION_HALT_VALIDATION;
3835: -- Added DJANASWA for SLA project
3836: -- Validate_Account_Reversal_YN
3837: Validate_Account_Reversal_YN (p_tcnv_rec, x_return_status);
3838: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3839: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3840: -- need to exit
3841: l_return_status := x_return_status;
3842: RAISE G_EXCEPTION_HALT_VALIDATION;
3843: ELSE
3847: END IF;
3848:
3849: -- Validate_Tax_Deductible_Local
3850: Validate_Tax_Deductible_Local(p_tcnv_rec, x_return_status);
3851: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3853: -- need to exit
3854: l_return_status := x_return_status;
3855: RAISE G_EXCEPTION_HALT_VALIDATION;
3848:
3849: -- Validate_Tax_Deductible_Local
3850: Validate_Tax_Deductible_Local(p_tcnv_rec, x_return_status);
3851: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3852: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3853: -- need to exit
3854: l_return_status := x_return_status;
3855: RAISE G_EXCEPTION_HALT_VALIDATION;
3856: ELSE
3860: END IF;
3861:
3862: -- validate_tax_deductible_corp
3863: validate_tax_deductible_corp(p_tcnv_rec, x_return_status);
3864: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3865: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3866: -- need to exit
3867: l_return_status := x_return_status;
3868: RAISE G_EXCEPTION_HALT_VALIDATION;
3861:
3862: -- validate_tax_deductible_corp
3863: validate_tax_deductible_corp(p_tcnv_rec, x_return_status);
3864: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3865: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3866: -- need to exit
3867: l_return_status := x_return_status;
3868: RAISE G_EXCEPTION_HALT_VALIDATION;
3869: ELSE
3873: END IF;
3874:
3875: -- Validate_currency_code
3876: Validate_currency_code(p_tcnv_rec, x_return_status);
3877: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3878: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3879: -- need to exit
3880: l_return_status := x_return_status;
3881: RAISE G_EXCEPTION_HALT_VALIDATION;
3874:
3875: -- Validate_currency_code
3876: Validate_currency_code(p_tcnv_rec, x_return_status);
3877: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3878: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3879: -- need to exit
3880: l_return_status := x_return_status;
3881: RAISE G_EXCEPTION_HALT_VALIDATION;
3882: ELSE
3886: END IF;
3887:
3888: -- Validate_TRY_ID
3889: Validate_TRY_ID(p_tcnv_rec, x_return_status);
3890: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3891: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3892: -- need to exit
3893: l_return_status := x_return_status;
3894: RAISE G_EXCEPTION_HALT_VALIDATION;
3887:
3888: -- Validate_TRY_ID
3889: Validate_TRY_ID(p_tcnv_rec, x_return_status);
3890: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3891: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3892: -- need to exit
3893: l_return_status := x_return_status;
3894: RAISE G_EXCEPTION_HALT_VALIDATION;
3895: ELSE
3900:
3901:
3902: -- Validate_Date_Transaction
3903: Validate_Date_Transaction(p_tcnv_rec, x_return_status);
3904: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3905: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3906: -- need to exit
3907: l_return_status := x_return_status;
3908: RAISE G_EXCEPTION_HALT_VALIDATION;
3901:
3902: -- Validate_Date_Transaction
3903: Validate_Date_Transaction(p_tcnv_rec, x_return_status);
3904: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3905: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3906: -- need to exit
3907: l_return_status := x_return_status;
3908: RAISE G_EXCEPTION_HALT_VALIDATION;
3909: ELSE
3914:
3915:
3916: -- Validate_RBR_CODE
3917: Validate_RBR_CODE(p_tcnv_rec, x_return_status);
3918: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3919: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3920: -- need to exit
3921: l_return_status := x_return_status;
3922: RAISE G_EXCEPTION_HALT_VALIDATION;
3915:
3916: -- Validate_RBR_CODE
3917: Validate_RBR_CODE(p_tcnv_rec, x_return_status);
3918: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3919: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3920: -- need to exit
3921: l_return_status := x_return_status;
3922: RAISE G_EXCEPTION_HALT_VALIDATION;
3923: ELSE
3927: END IF;
3928:
3929: -- Validate_RPY_CODE
3930: Validate_RPY_CODE(p_tcnv_rec, x_return_status);
3931: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3932: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3933: -- need to exit
3934: l_return_status := x_return_status;
3935: RAISE G_EXCEPTION_HALT_VALIDATION;
3928:
3929: -- Validate_RPY_CODE
3930: Validate_RPY_CODE(p_tcnv_rec, x_return_status);
3931: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3932: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3933: -- need to exit
3934: l_return_status := x_return_status;
3935: RAISE G_EXCEPTION_HALT_VALIDATION;
3936: ELSE
3940: END IF;
3941:
3942: -- Validate_RVN_CODE
3943: Validate_RVN_CODE(p_tcnv_rec, x_return_status);
3944: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3945: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3946: -- need to exit
3947: l_return_status := x_return_status;
3948: RAISE G_EXCEPTION_HALT_VALIDATION;
3941:
3942: -- Validate_RVN_CODE
3943: Validate_RVN_CODE(p_tcnv_rec, x_return_status);
3944: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3945: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3946: -- need to exit
3947: l_return_status := x_return_status;
3948: RAISE G_EXCEPTION_HALT_VALIDATION;
3949: ELSE
3953: END IF;
3954:
3955: -- Validate_TSU_CODE
3956: Validate_TSU_CODE(p_tcnv_rec, x_return_status);
3957: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3958: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3959: -- need to exit
3960: l_return_status := x_return_status;
3961: RAISE G_EXCEPTION_HALT_VALIDATION;
3954:
3955: -- Validate_TSU_CODE
3956: Validate_TSU_CODE(p_tcnv_rec, x_return_status);
3957: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3958: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3959: -- need to exit
3960: l_return_status := x_return_status;
3961: RAISE G_EXCEPTION_HALT_VALIDATION;
3962: ELSE
3966: END IF;
3967:
3968: -- Validate_TRN_CODE
3969: Validate_TRN_CODE(p_tcnv_rec, x_return_status);
3970: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3971: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3972: -- need to exit
3973: l_return_status := x_return_status;
3974: RAISE G_EXCEPTION_HALT_VALIDATION;
3967:
3968: -- Validate_TRN_CODE
3969: Validate_TRN_CODE(p_tcnv_rec, x_return_status);
3970: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3971: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3972: -- need to exit
3973: l_return_status := x_return_status;
3974: RAISE G_EXCEPTION_HALT_VALIDATION;
3975: ELSE
3980:
3981:
3982: -- Validate_Trx_Number
3983: Validate_Trx_Number(p_tcnv_rec, x_return_status);
3984: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3985: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3986: -- need to exit
3987: l_return_status := x_return_status;
3988: RAISE G_EXCEPTION_HALT_VALIDATION;
3981:
3982: -- Validate_Trx_Number
3983: Validate_Trx_Number(p_tcnv_rec, x_return_status);
3984: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3985: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3986: -- need to exit
3987: l_return_status := x_return_status;
3988: RAISE G_EXCEPTION_HALT_VALIDATION;
3989: ELSE
3994:
3995:
3996: -- Validate_Terminate_Attribs
3997: Validate_Terminate_Attribs(p_tcnv_rec, x_return_status);
3998: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3999: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4000: -- need to exit
4001: l_return_status := x_return_status;
4002: RAISE G_EXCEPTION_HALT_VALIDATION;
3995:
3996: -- Validate_Terminate_Attribs
3997: Validate_Terminate_Attribs(p_tcnv_rec, x_return_status);
3998: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
3999: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4000: -- need to exit
4001: l_return_status := x_return_status;
4002: RAISE G_EXCEPTION_HALT_VALIDATION;
4003: ELSE
4010: -- Added New Filed Accrual_Activity. Fixed Bug 2486088
4011:
4012: -- Validate Accrual Activity
4013: Validate_Accrual_Activity(p_tcnv_rec, x_return_status);
4014: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4015: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4016: -- need to exit
4017: l_return_status := x_return_status;
4018: RAISE G_EXCEPTION_HALT_VALIDATION;
4011:
4012: -- Validate Accrual Activity
4013: Validate_Accrual_Activity(p_tcnv_rec, x_return_status);
4014: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4015: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4016: -- need to exit
4017: l_return_status := x_return_status;
4018: RAISE G_EXCEPTION_HALT_VALIDATION;
4019: ELSE
4025: --Added be Keerthi 25-Aug-03
4026: -- Validate_Chr_Id
4027:
4028: Validate_Chr_Id(p_tcnv_rec, x_return_status);
4029: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4030: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4031: -- need to exit
4032: l_return_status := x_return_status;
4033: RAISE G_EXCEPTION_HALT_VALIDATION;
4026: -- Validate_Chr_Id
4027:
4028: Validate_Chr_Id(p_tcnv_rec, x_return_status);
4029: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4030: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4031: -- need to exit
4032: l_return_status := x_return_status;
4033: RAISE G_EXCEPTION_HALT_VALIDATION;
4034: ELSE
4055: --Added be Keerthi for Bug No 3195713
4056: -- Validate_Source_Trx_Id_Type
4057:
4058: Validate_Source_Trx_Id_Type(p_tcnv_rec, x_return_status);
4059: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4060: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4061: -- need to exit
4062: l_return_status := x_return_status;
4063: RAISE G_EXCEPTION_HALT_VALIDATION;
4056: -- Validate_Source_Trx_Id_Type
4057:
4058: Validate_Source_Trx_Id_Type(p_tcnv_rec, x_return_status);
4059: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4060: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4061: -- need to exit
4062: l_return_status := x_return_status;
4063: RAISE G_EXCEPTION_HALT_VALIDATION;
4064: ELSE
4068: END IF;
4069:
4070: -- Added by DJANASWA for SLA project 06-Feb-07
4071: Validate_Accrual_Reversal_Date (p_tcnv_rec, x_return_status);
4072: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4073: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4074: -- need to exit
4075: l_return_status := x_return_status;
4076: RAISE G_EXCEPTION_HALT_VALIDATION;
4069:
4070: -- Added by DJANASWA for SLA project 06-Feb-07
4071: Validate_Accrual_Reversal_Date (p_tcnv_rec, x_return_status);
4072: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4073: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4074: -- need to exit
4075: l_return_status := x_return_status;
4076: RAISE G_EXCEPTION_HALT_VALIDATION;
4077: ELSE
4081: END IF;
4082:
4083: -- Added by zrehman for SLA project 21-Feb-07
4084: Validate_Tmt_Status_Code (p_tcnv_rec, x_return_status);
4085: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4086: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4087: -- need to exit
4088: l_return_status := x_return_status;
4089: RAISE G_EXCEPTION_HALT_VALIDATION;
4082:
4083: -- Added by zrehman for SLA project 21-Feb-07
4084: Validate_Tmt_Status_Code (p_tcnv_rec, x_return_status);
4085: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4086: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4087: -- need to exit
4088: l_return_status := x_return_status;
4089: RAISE G_EXCEPTION_HALT_VALIDATION;
4090: ELSE
4095:
4096: -- Added by nikshah for SLA project (Bug 5707866) 17-Apr-2007
4097: Validate_Upgrade_Status_Flag(x_return_status, p_tcnv_rec);
4098:
4099: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4100: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4101: l_return_status := x_return_Status;
4102: RAISE G_EXCEPTION_HALT_VALIDATION;
4103: ELSE
4096: -- Added by nikshah for SLA project (Bug 5707866) 17-Apr-2007
4097: Validate_Upgrade_Status_Flag(x_return_status, p_tcnv_rec);
4098:
4099: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4100: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4101: l_return_status := x_return_Status;
4102: RAISE G_EXCEPTION_HALT_VALIDATION;
4103: ELSE
4104: l_return_status := x_return_status;
4107:
4108: -- Added by kthiruva for SLA project (Bug 5707866) 10-May-2007
4109: Validate_Rep_Name_Code(p_tcnv_rec,x_return_status);
4110:
4111: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4112: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4113: l_return_status := x_return_Status;
4114: RAISE G_EXCEPTION_HALT_VALIDATION;
4115: ELSE
4108: -- Added by kthiruva for SLA project (Bug 5707866) 10-May-2007
4109: Validate_Rep_Name_Code(p_tcnv_rec,x_return_status);
4110:
4111: IF (x_return_status <> Okc_Api.G_RET_STS_SUCCESS) THEN
4112: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4113: l_return_status := x_return_Status;
4114: RAISE G_EXCEPTION_HALT_VALIDATION;
4115: ELSE
4116: l_return_status := x_return_status;
4126: RETURN (l_return_status);
4127:
4128: WHEN OTHERS THEN
4129: -- store SQL error message on message stack for caller
4130: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
4131: p_msg_name => g_unexpected_error,
4132: p_token1 => g_sqlcode_token,
4133: p_token1_value => SQLCODE,
4134: p_token2 => g_sqlerrm_token,
4133: p_token1_value => SQLCODE,
4134: p_token2 => g_sqlerrm_token,
4135: p_token2_value => SQLERRM);
4136: -- notify caller of an UNEXPECTED error
4137: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
4138: RETURN(l_return_status);
4139:
4140: END Validate_Attributes;
4141:
4154:
4155: FUNCTION Validate_Record (
4156: p_tcnv_rec IN tcnv_rec_type
4157: ) RETURN VARCHAR2 IS
4158: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4159: BEGIN
4160: RETURN(l_return_status);
4161: EXCEPTION
4162: WHEN OTHERS THEN
4160: RETURN(l_return_status);
4161: EXCEPTION
4162: WHEN OTHERS THEN
4163: -- store SQL error message on message stack for caller
4164: Okc_Api.SET_MESSAGE(p_app_name => g_app_name,
4165: p_msg_name => g_unexpected_error,
4166: p_token1 => g_sqlcode_token,
4167: p_token1_value => SQLCODE,
4168: p_token2 => g_sqlerrm_token,
4167: p_token1_value => SQLCODE,
4168: p_token2 => g_sqlerrm_token,
4169: p_token2_value => SQLERRM);
4170: -- notify caller of an UNEXPECTED error
4171: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
4172: RETURN(l_return_status);
4173: END Validate_Record;
4174:
4175: /*********************** END MANUAL CODE **********************************/
4430: p_tcnv_rec IN tcnv_rec_type) IS
4431:
4432: l_api_version CONSTANT NUMBER := 1;
4433: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
4434: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4435: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
4436: l_tcn_rec tcn_rec_type;
4437: BEGIN
4438: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4434: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4435: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
4436: l_tcn_rec tcn_rec_type;
4437: BEGIN
4438: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4439: G_PKG_NAME,
4440: p_init_msg_list,
4441: l_api_version,
4442: p_api_version,
4441: l_api_version,
4442: p_api_version,
4443: '_PVT',
4444: x_return_status);
4445: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4446: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4447: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4448: RAISE Okc_Api.G_EXCEPTION_ERROR;
4449: END IF;
4442: p_api_version,
4443: '_PVT',
4444: x_return_status);
4445: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4446: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4447: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4448: RAISE Okc_Api.G_EXCEPTION_ERROR;
4449: END IF;
4450: --- Validate all non-missing attributes (Item Level Validation)
4443: '_PVT',
4444: x_return_status);
4445: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4446: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4447: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4448: RAISE Okc_Api.G_EXCEPTION_ERROR;
4449: END IF;
4450: --- Validate all non-missing attributes (Item Level Validation)
4451: l_return_status := Validate_Attributes(l_tcnv_rec);
4444: x_return_status);
4445: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4446: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4447: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4448: RAISE Okc_Api.G_EXCEPTION_ERROR;
4449: END IF;
4450: --- Validate all non-missing attributes (Item Level Validation)
4451: l_return_status := Validate_Attributes(l_tcnv_rec);
4452: --- If any errors happen abort API
4449: END IF;
4450: --- Validate all non-missing attributes (Item Level Validation)
4451: l_return_status := Validate_Attributes(l_tcnv_rec);
4452: --- If any errors happen abort API
4453: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4456: RAISE Okc_Api.G_EXCEPTION_ERROR;
4457: END IF;
4450: --- Validate all non-missing attributes (Item Level Validation)
4451: l_return_status := Validate_Attributes(l_tcnv_rec);
4452: --- If any errors happen abort API
4453: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4456: RAISE Okc_Api.G_EXCEPTION_ERROR;
4457: END IF;
4458: l_return_status := Validate_Record(l_tcnv_rec);
4451: l_return_status := Validate_Attributes(l_tcnv_rec);
4452: --- If any errors happen abort API
4453: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4456: RAISE Okc_Api.G_EXCEPTION_ERROR;
4457: END IF;
4458: l_return_status := Validate_Record(l_tcnv_rec);
4459: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4452: --- If any errors happen abort API
4453: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4454: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4456: RAISE Okc_Api.G_EXCEPTION_ERROR;
4457: END IF;
4458: l_return_status := Validate_Record(l_tcnv_rec);
4459: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4460: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4455: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4456: RAISE Okc_Api.G_EXCEPTION_ERROR;
4457: END IF;
4458: l_return_status := Validate_Record(l_tcnv_rec);
4459: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4460: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4461: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4462: RAISE Okc_Api.G_EXCEPTION_ERROR;
4463: END IF;
4456: RAISE Okc_Api.G_EXCEPTION_ERROR;
4457: END IF;
4458: l_return_status := Validate_Record(l_tcnv_rec);
4459: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4460: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4461: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4462: RAISE Okc_Api.G_EXCEPTION_ERROR;
4463: END IF;
4464: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4457: END IF;
4458: l_return_status := Validate_Record(l_tcnv_rec);
4459: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4460: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4461: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4462: RAISE Okc_Api.G_EXCEPTION_ERROR;
4463: END IF;
4464: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4465: EXCEPTION
4458: l_return_status := Validate_Record(l_tcnv_rec);
4459: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4460: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4461: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4462: RAISE Okc_Api.G_EXCEPTION_ERROR;
4463: END IF;
4464: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4465: EXCEPTION
4466: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4460: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4461: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4462: RAISE Okc_Api.G_EXCEPTION_ERROR;
4463: END IF;
4464: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4465: EXCEPTION
4466: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4467: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4468: (
4462: RAISE Okc_Api.G_EXCEPTION_ERROR;
4463: END IF;
4464: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4465: EXCEPTION
4466: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4467: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4468: (
4469: l_api_name,
4470: G_PKG_NAME,
4463: END IF;
4464: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4465: EXCEPTION
4466: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4467: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4468: (
4469: l_api_name,
4470: G_PKG_NAME,
4471: 'OKC_API.G_RET_STS_ERROR',
4467: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4468: (
4469: l_api_name,
4470: G_PKG_NAME,
4471: 'OKC_API.G_RET_STS_ERROR',
4472: x_msg_count,
4473: x_msg_data,
4474: '_PVT'
4475: );
4472: x_msg_count,
4473: x_msg_data,
4474: '_PVT'
4475: );
4476: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4477: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4478: (
4479: l_api_name,
4480: G_PKG_NAME,
4473: x_msg_data,
4474: '_PVT'
4475: );
4476: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4477: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4478: (
4479: l_api_name,
4480: G_PKG_NAME,
4481: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4477: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4478: (
4479: l_api_name,
4480: G_PKG_NAME,
4481: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4482: x_msg_count,
4483: x_msg_data,
4484: '_PVT'
4485: );
4483: x_msg_data,
4484: '_PVT'
4485: );
4486: WHEN OTHERS THEN
4487: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4488: (
4489: l_api_name,
4490: G_PKG_NAME,
4491: 'OTHERS',
4506: p_tcnv_tbl IN tcnv_tbl_type) IS
4507:
4508: l_api_version CONSTANT NUMBER := 1;
4509: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4510: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4511: i NUMBER := 0;
4512: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4513:
4514: BEGIN
4508: l_api_version CONSTANT NUMBER := 1;
4509: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
4510: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4511: i NUMBER := 0;
4512: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4513:
4514: BEGIN
4515: Okc_Api.init_msg_list(p_init_msg_list);
4516: -- Make sure PL/SQL table has records in it before passing
4511: i NUMBER := 0;
4512: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4513:
4514: BEGIN
4515: Okc_Api.init_msg_list(p_init_msg_list);
4516: -- Make sure PL/SQL table has records in it before passing
4517: IF (p_tcnv_tbl.COUNT > 0) THEN
4518: i := p_tcnv_tbl.FIRST;
4519: LOOP
4518: i := p_tcnv_tbl.FIRST;
4519: LOOP
4520: validate_row (
4521: p_api_version => p_api_version,
4522: p_init_msg_list => Okc_Api.G_FALSE,
4523: x_return_status => x_return_status,
4524: x_msg_count => x_msg_count,
4525: x_msg_data => x_msg_data,
4526: p_tcnv_rec => p_tcnv_tbl(i));
4525: x_msg_data => x_msg_data,
4526: p_tcnv_rec => p_tcnv_tbl(i));
4527:
4528: -- store the highest degree of error
4529: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
4530: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
4531: l_overall_status := x_return_status;
4532: END IF;
4533: END IF;
4526: p_tcnv_rec => p_tcnv_tbl(i));
4527:
4528: -- store the highest degree of error
4529: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
4530: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
4531: l_overall_status := x_return_status;
4532: END IF;
4533: END IF;
4534:
4539: x_return_status := l_overall_status;
4540:
4541: END IF;
4542: EXCEPTION
4543: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4544: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4545: (
4546: l_api_name,
4547: G_PKG_NAME,
4540:
4541: END IF;
4542: EXCEPTION
4543: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4544: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4545: (
4546: l_api_name,
4547: G_PKG_NAME,
4548: 'OKC_API.G_RET_STS_ERROR',
4544: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4545: (
4546: l_api_name,
4547: G_PKG_NAME,
4548: 'OKC_API.G_RET_STS_ERROR',
4549: x_msg_count,
4550: x_msg_data,
4551: '_PVT'
4552: );
4549: x_msg_count,
4550: x_msg_data,
4551: '_PVT'
4552: );
4553: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4554: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4555: (
4556: l_api_name,
4557: G_PKG_NAME,
4550: x_msg_data,
4551: '_PVT'
4552: );
4553: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4554: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4555: (
4556: l_api_name,
4557: G_PKG_NAME,
4558: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4554: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4555: (
4556: l_api_name,
4557: G_PKG_NAME,
4558: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4559: x_msg_count,
4560: x_msg_data,
4561: '_PVT'
4562: );
4560: x_msg_data,
4561: '_PVT'
4562: );
4563: WHEN OTHERS THEN
4564: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4565: (
4566: l_api_name,
4567: G_PKG_NAME,
4568: 'OTHERS',
4587: x_tcn_rec OUT NOCOPY tcn_rec_type) IS
4588:
4589: l_api_version CONSTANT NUMBER := 1;
4590: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACTS_insert_row';
4591: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4592: l_tcn_rec tcn_rec_type := p_tcn_rec;
4593: l_def_tcn_rec tcn_rec_type;
4594: ------------------------------------------
4595: -- Set_Attributes for:OKL_TRX_CONTRACTS --
4597: FUNCTION Set_Attributes (
4598: p_tcn_rec IN tcn_rec_type,
4599: x_tcn_rec OUT NOCOPY tcn_rec_type
4600: ) RETURN VARCHAR2 IS
4601: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4602: BEGIN
4603: x_tcn_rec := p_tcn_rec;
4604: RETURN(l_return_status);
4605: END Set_Attributes;
4603: x_tcn_rec := p_tcn_rec;
4604: RETURN(l_return_status);
4605: END Set_Attributes;
4606: BEGIN
4607: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4608: p_init_msg_list,
4609: '_PVT',
4610: x_return_status);
4611: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4607: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4608: p_init_msg_list,
4609: '_PVT',
4610: x_return_status);
4611: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4612: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4613: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4614: RAISE Okc_Api.G_EXCEPTION_ERROR;
4615: END IF;
4608: p_init_msg_list,
4609: '_PVT',
4610: x_return_status);
4611: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4612: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4613: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4614: RAISE Okc_Api.G_EXCEPTION_ERROR;
4615: END IF;
4616: --- Setting item attributes
4609: '_PVT',
4610: x_return_status);
4611: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4612: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4613: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4614: RAISE Okc_Api.G_EXCEPTION_ERROR;
4615: END IF;
4616: --- Setting item attributes
4617: l_return_status := Set_Attributes(
4610: x_return_status);
4611: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4612: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4613: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4614: RAISE Okc_Api.G_EXCEPTION_ERROR;
4615: END IF;
4616: --- Setting item attributes
4617: l_return_status := Set_Attributes(
4618: p_tcn_rec, -- IN
4617: l_return_status := Set_Attributes(
4618: p_tcn_rec, -- IN
4619: l_tcn_rec); -- OUT
4620: --- If any errors happen abort API
4621: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4622: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4623: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4624: RAISE Okc_Api.G_EXCEPTION_ERROR;
4625: END IF;
4618: p_tcn_rec, -- IN
4619: l_tcn_rec); -- OUT
4620: --- If any errors happen abort API
4621: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4622: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4623: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4624: RAISE Okc_Api.G_EXCEPTION_ERROR;
4625: END IF;
4626: INSERT INTO OKL_TRX_CONTRACTS(
4619: l_tcn_rec); -- OUT
4620: --- If any errors happen abort API
4621: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4622: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4623: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4624: RAISE Okc_Api.G_EXCEPTION_ERROR;
4625: END IF;
4626: INSERT INTO OKL_TRX_CONTRACTS(
4627: id,
4620: --- If any errors happen abort API
4621: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4622: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4623: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4624: RAISE Okc_Api.G_EXCEPTION_ERROR;
4625: END IF;
4626: INSERT INTO OKL_TRX_CONTRACTS(
4627: id,
4628: khr_id_new,
4849: );
4850:
4851: -- Set OUT values
4852: x_tcn_rec := l_tcn_rec;
4853: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4854: EXCEPTION
4855: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4856: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4857: (
4851: -- Set OUT values
4852: x_tcn_rec := l_tcn_rec;
4853: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4854: EXCEPTION
4855: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4856: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4857: (
4858: l_api_name,
4859: G_PKG_NAME,
4852: x_tcn_rec := l_tcn_rec;
4853: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
4854: EXCEPTION
4855: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
4856: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4857: (
4858: l_api_name,
4859: G_PKG_NAME,
4860: 'OKC_API.G_RET_STS_ERROR',
4856: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
4857: (
4858: l_api_name,
4859: G_PKG_NAME,
4860: 'OKC_API.G_RET_STS_ERROR',
4861: x_msg_count,
4862: x_msg_data,
4863: '_PVT'
4864: );
4861: x_msg_count,
4862: x_msg_data,
4863: '_PVT'
4864: );
4865: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4866: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4867: (
4868: l_api_name,
4869: G_PKG_NAME,
4862: x_msg_data,
4863: '_PVT'
4864: );
4865: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
4866: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4867: (
4868: l_api_name,
4869: G_PKG_NAME,
4870: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4866: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4867: (
4868: l_api_name,
4869: G_PKG_NAME,
4870: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4871: x_msg_count,
4872: x_msg_data,
4873: '_PVT'
4874: );
4872: x_msg_data,
4873: '_PVT'
4874: );
4875: WHEN OTHERS THEN
4876: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
4877: (
4878: l_api_name,
4879: G_PKG_NAME,
4880: 'OTHERS',
4896: x_tcnv_rec OUT NOCOPY tcnv_rec_type) IS
4897:
4898: l_api_version CONSTANT NUMBER := 1;
4899: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
4900: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4901: l_tcnv_rec tcnv_rec_type;
4902: l_def_tcnv_rec tcnv_rec_type;
4903: l_tcn_rec tcn_rec_type;
4904: lx_tcn_rec tcn_rec_type;
4929: FUNCTION Set_Attributes (
4930: p_tcnv_rec IN tcnv_rec_type,
4931: x_tcnv_rec OUT NOCOPY tcnv_rec_type
4932: ) RETURN VARCHAR2 IS
4933: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
4934: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
4935: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
4936: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
4937: BEGIN
4978:
4979: RETURN(l_return_status);
4980: END Set_Attributes;
4981: BEGIN
4982: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
4983: G_PKG_NAME,
4984: p_init_msg_list,
4985: l_api_version,
4986: p_api_version,
4985: l_api_version,
4986: p_api_version,
4987: '_PVT',
4988: x_return_status);
4989: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4990: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4991: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4992: RAISE Okc_Api.G_EXCEPTION_ERROR;
4993: END IF;
4986: p_api_version,
4987: '_PVT',
4988: x_return_status);
4989: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4990: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4991: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4992: RAISE Okc_Api.G_EXCEPTION_ERROR;
4993: END IF;
4994: l_tcnv_rec := null_out_defaults(p_tcnv_rec);
4987: '_PVT',
4988: x_return_status);
4989: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4990: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4991: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4992: RAISE Okc_Api.G_EXCEPTION_ERROR;
4993: END IF;
4994: l_tcnv_rec := null_out_defaults(p_tcnv_rec);
4995: -- Set primary key value
4988: x_return_status);
4989: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
4990: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
4991: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
4992: RAISE Okc_Api.G_EXCEPTION_ERROR;
4993: END IF;
4994: l_tcnv_rec := null_out_defaults(p_tcnv_rec);
4995: -- Set primary key value
4996: l_tcnv_rec.ID := get_seq_id;
4998: l_return_status := Set_Attributes(
4999: l_tcnv_rec, -- IN
5000: l_def_tcnv_rec); -- OUT
5001: --- If any errors happen abort API
5002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5003: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5004: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5005: RAISE Okc_Api.G_EXCEPTION_ERROR;
5006: END IF;
4999: l_tcnv_rec, -- IN
5000: l_def_tcnv_rec); -- OUT
5001: --- If any errors happen abort API
5002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5003: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5004: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5005: RAISE Okc_Api.G_EXCEPTION_ERROR;
5006: END IF;
5007: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
5000: l_def_tcnv_rec); -- OUT
5001: --- If any errors happen abort API
5002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5003: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5004: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5005: RAISE Okc_Api.G_EXCEPTION_ERROR;
5006: END IF;
5007: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
5008: --- Validate all non-missing attributes (Item Level Validation)
5001: --- If any errors happen abort API
5002: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5003: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5004: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5005: RAISE Okc_Api.G_EXCEPTION_ERROR;
5006: END IF;
5007: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
5008: --- Validate all non-missing attributes (Item Level Validation)
5009: l_return_status := Validate_Attributes(l_def_tcnv_rec);
5007: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
5008: --- Validate all non-missing attributes (Item Level Validation)
5009: l_return_status := Validate_Attributes(l_def_tcnv_rec);
5010: --- If any errors happen abort API
5011: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5012: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5013: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5014: RAISE Okc_Api.G_EXCEPTION_ERROR;
5015: END IF;
5008: --- Validate all non-missing attributes (Item Level Validation)
5009: l_return_status := Validate_Attributes(l_def_tcnv_rec);
5010: --- If any errors happen abort API
5011: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5012: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5013: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5014: RAISE Okc_Api.G_EXCEPTION_ERROR;
5015: END IF;
5016: l_return_status := Validate_Record(l_def_tcnv_rec);
5009: l_return_status := Validate_Attributes(l_def_tcnv_rec);
5010: --- If any errors happen abort API
5011: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5012: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5013: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5014: RAISE Okc_Api.G_EXCEPTION_ERROR;
5015: END IF;
5016: l_return_status := Validate_Record(l_def_tcnv_rec);
5017: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5010: --- If any errors happen abort API
5011: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5012: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5013: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5014: RAISE Okc_Api.G_EXCEPTION_ERROR;
5015: END IF;
5016: l_return_status := Validate_Record(l_def_tcnv_rec);
5017: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5018: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5013: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5014: RAISE Okc_Api.G_EXCEPTION_ERROR;
5015: END IF;
5016: l_return_status := Validate_Record(l_def_tcnv_rec);
5017: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5018: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5019: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5020: RAISE Okc_Api.G_EXCEPTION_ERROR;
5021: END IF;
5014: RAISE Okc_Api.G_EXCEPTION_ERROR;
5015: END IF;
5016: l_return_status := Validate_Record(l_def_tcnv_rec);
5017: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5018: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5019: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5020: RAISE Okc_Api.G_EXCEPTION_ERROR;
5021: END IF;
5022: --------------------------------------
5015: END IF;
5016: l_return_status := Validate_Record(l_def_tcnv_rec);
5017: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5018: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5019: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5020: RAISE Okc_Api.G_EXCEPTION_ERROR;
5021: END IF;
5022: --------------------------------------
5023: -- Move VIEW record to "Child" records
5016: l_return_status := Validate_Record(l_def_tcnv_rec);
5017: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5018: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5019: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5020: RAISE Okc_Api.G_EXCEPTION_ERROR;
5021: END IF;
5022: --------------------------------------
5023: -- Move VIEW record to "Child" records
5024: --------------------------------------
5033: x_msg_data,
5034: l_tcn_rec,
5035: lx_tcn_rec
5036: );
5037: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5038: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5039: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5040: RAISE Okc_Api.G_EXCEPTION_ERROR;
5041: END IF;
5034: l_tcn_rec,
5035: lx_tcn_rec
5036: );
5037: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5038: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5039: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5040: RAISE Okc_Api.G_EXCEPTION_ERROR;
5041: END IF;
5042: migrate(lx_tcn_rec, l_def_tcnv_rec);
5035: lx_tcn_rec
5036: );
5037: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5038: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5039: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5040: RAISE Okc_Api.G_EXCEPTION_ERROR;
5041: END IF;
5042: migrate(lx_tcn_rec, l_def_tcnv_rec);
5043: -- Set OUT values
5036: );
5037: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5038: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5039: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5040: RAISE Okc_Api.G_EXCEPTION_ERROR;
5041: END IF;
5042: migrate(lx_tcn_rec, l_def_tcnv_rec);
5043: -- Set OUT values
5044: x_tcnv_rec := l_def_tcnv_rec;
5041: END IF;
5042: migrate(lx_tcn_rec, l_def_tcnv_rec);
5043: -- Set OUT values
5044: x_tcnv_rec := l_def_tcnv_rec;
5045: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5046: EXCEPTION
5047: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5048: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5049: (
5043: -- Set OUT values
5044: x_tcnv_rec := l_def_tcnv_rec;
5045: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5046: EXCEPTION
5047: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5048: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5049: (
5050: l_api_name,
5051: G_PKG_NAME,
5044: x_tcnv_rec := l_def_tcnv_rec;
5045: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5046: EXCEPTION
5047: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5048: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5049: (
5050: l_api_name,
5051: G_PKG_NAME,
5052: 'OKC_API.G_RET_STS_ERROR',
5048: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5049: (
5050: l_api_name,
5051: G_PKG_NAME,
5052: 'OKC_API.G_RET_STS_ERROR',
5053: x_msg_count,
5054: x_msg_data,
5055: '_PVT'
5056: );
5053: x_msg_count,
5054: x_msg_data,
5055: '_PVT'
5056: );
5057: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5058: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5059: (
5060: l_api_name,
5061: G_PKG_NAME,
5054: x_msg_data,
5055: '_PVT'
5056: );
5057: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5058: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5059: (
5060: l_api_name,
5061: G_PKG_NAME,
5062: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5058: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5059: (
5060: l_api_name,
5061: G_PKG_NAME,
5062: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5063: x_msg_count,
5064: x_msg_data,
5065: '_PVT'
5066: );
5064: x_msg_data,
5065: '_PVT'
5066: );
5067: WHEN OTHERS THEN
5068: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5069: (
5070: l_api_name,
5071: G_PKG_NAME,
5072: 'OTHERS',
5088: x_tcnv_tbl OUT NOCOPY tcnv_tbl_type) IS
5089:
5090: l_api_version CONSTANT NUMBER := 1;
5091: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5092: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5093: i NUMBER := 0;
5094: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5095:
5096: BEGIN
5090: l_api_version CONSTANT NUMBER := 1;
5091: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5092: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5093: i NUMBER := 0;
5094: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5095:
5096: BEGIN
5097: Okc_Api.init_msg_list(p_init_msg_list);
5098: -- Make sure PL/SQL table has records in it before passing
5093: i NUMBER := 0;
5094: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5095:
5096: BEGIN
5097: Okc_Api.init_msg_list(p_init_msg_list);
5098: -- Make sure PL/SQL table has records in it before passing
5099: IF (p_tcnv_tbl.COUNT > 0) THEN
5100: i := p_tcnv_tbl.FIRST;
5101: LOOP
5100: i := p_tcnv_tbl.FIRST;
5101: LOOP
5102: insert_row (
5103: p_api_version => p_api_version,
5104: p_init_msg_list => Okc_Api.G_FALSE,
5105: x_return_status => x_return_status,
5106: x_msg_count => x_msg_count,
5107: x_msg_data => x_msg_data,
5108: p_tcnv_rec => p_tcnv_tbl(i),
5107: x_msg_data => x_msg_data,
5108: p_tcnv_rec => p_tcnv_tbl(i),
5109: x_tcnv_rec => x_tcnv_tbl(i));
5110: -- store the highest degree of error
5111: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
5112: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
5113: l_overall_status := x_return_status;
5114: END IF;
5115: END IF;
5108: p_tcnv_rec => p_tcnv_tbl(i),
5109: x_tcnv_rec => x_tcnv_tbl(i));
5110: -- store the highest degree of error
5111: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
5112: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
5113: l_overall_status := x_return_status;
5114: END IF;
5115: END IF;
5116:
5121: x_return_status := l_overall_status;
5122:
5123: END IF;
5124: EXCEPTION
5125: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5126: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5127: (
5128: l_api_name,
5129: G_PKG_NAME,
5122:
5123: END IF;
5124: EXCEPTION
5125: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5126: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5127: (
5128: l_api_name,
5129: G_PKG_NAME,
5130: 'OKC_API.G_RET_STS_ERROR',
5126: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5127: (
5128: l_api_name,
5129: G_PKG_NAME,
5130: 'OKC_API.G_RET_STS_ERROR',
5131: x_msg_count,
5132: x_msg_data,
5133: '_PVT'
5134: );
5131: x_msg_count,
5132: x_msg_data,
5133: '_PVT'
5134: );
5135: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5136: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5137: (
5138: l_api_name,
5139: G_PKG_NAME,
5132: x_msg_data,
5133: '_PVT'
5134: );
5135: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5136: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5137: (
5138: l_api_name,
5139: G_PKG_NAME,
5140: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5136: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5137: (
5138: l_api_name,
5139: G_PKG_NAME,
5140: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5141: x_msg_count,
5142: x_msg_data,
5143: '_PVT'
5144: );
5142: x_msg_data,
5143: '_PVT'
5144: );
5145: WHEN OTHERS THEN
5146: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5147: (
5148: l_api_name,
5149: G_PKG_NAME,
5150: 'OTHERS',
5181: FROM OKL_TRX_CONTRACTS
5182: WHERE ID = p_tcn_rec.id;
5183: l_api_version CONSTANT NUMBER := 1;
5184: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACTS_lock_row';
5185: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5186: l_object_version_number OKL_TRX_CONTRACTS.OBJECT_VERSION_NUMBER%TYPE;
5187: lc_object_version_number OKL_TRX_CONTRACTS.OBJECT_VERSION_NUMBER%TYPE;
5188: l_row_notfound BOOLEAN := FALSE;
5189: lc_row_notfound BOOLEAN := FALSE;
5187: lc_object_version_number OKL_TRX_CONTRACTS.OBJECT_VERSION_NUMBER%TYPE;
5188: l_row_notfound BOOLEAN := FALSE;
5189: lc_row_notfound BOOLEAN := FALSE;
5190: BEGIN
5191: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5192: p_init_msg_list,
5193: '_PVT',
5194: x_return_status);
5195: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5191: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5192: p_init_msg_list,
5193: '_PVT',
5194: x_return_status);
5195: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5196: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5197: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5198: RAISE Okc_Api.G_EXCEPTION_ERROR;
5199: END IF;
5192: p_init_msg_list,
5193: '_PVT',
5194: x_return_status);
5195: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5196: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5197: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5198: RAISE Okc_Api.G_EXCEPTION_ERROR;
5199: END IF;
5200: BEGIN
5193: '_PVT',
5194: x_return_status);
5195: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5196: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5197: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5198: RAISE Okc_Api.G_EXCEPTION_ERROR;
5199: END IF;
5200: BEGIN
5201: OPEN lock_csr(p_tcn_rec);
5194: x_return_status);
5195: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5196: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5197: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5198: RAISE Okc_Api.G_EXCEPTION_ERROR;
5199: END IF;
5200: BEGIN
5201: OPEN lock_csr(p_tcn_rec);
5202: FETCH lock_csr INTO l_object_version_number;
5206: WHEN E_Resource_Busy THEN
5207: IF (lock_csr%ISOPEN) THEN
5208: CLOSE lock_csr;
5209: END IF;
5210: Okc_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
5211: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
5212: END;
5213:
5214: IF ( l_row_notfound ) THEN
5217: lc_row_notfound := lchk_csr%NOTFOUND;
5218: CLOSE lchk_csr;
5219: END IF;
5220: IF (lc_row_notfound) THEN
5221: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5222: RAISE Okc_Api.G_EXCEPTION_ERROR;
5223: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5224: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5225: RAISE Okc_Api.G_EXCEPTION_ERROR;
5218: CLOSE lchk_csr;
5219: END IF;
5220: IF (lc_row_notfound) THEN
5221: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5222: RAISE Okc_Api.G_EXCEPTION_ERROR;
5223: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5224: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5225: RAISE Okc_Api.G_EXCEPTION_ERROR;
5226: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5220: IF (lc_row_notfound) THEN
5221: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5222: RAISE Okc_Api.G_EXCEPTION_ERROR;
5223: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5224: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5225: RAISE Okc_Api.G_EXCEPTION_ERROR;
5226: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5227: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5228: RAISE Okc_Api.G_EXCEPTION_ERROR;
5221: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
5222: RAISE Okc_Api.G_EXCEPTION_ERROR;
5223: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5224: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5225: RAISE Okc_Api.G_EXCEPTION_ERROR;
5226: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5227: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5228: RAISE Okc_Api.G_EXCEPTION_ERROR;
5229: ELSIF lc_object_version_number = -1 THEN
5223: ELSIF lc_object_version_number > p_tcn_rec.object_version_number THEN
5224: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5225: RAISE Okc_Api.G_EXCEPTION_ERROR;
5226: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5227: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5228: RAISE Okc_Api.G_EXCEPTION_ERROR;
5229: ELSIF lc_object_version_number = -1 THEN
5230: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5231: RAISE Okc_Api.G_EXCEPTION_ERROR;
5224: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5225: RAISE Okc_Api.G_EXCEPTION_ERROR;
5226: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5227: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5228: RAISE Okc_Api.G_EXCEPTION_ERROR;
5229: ELSIF lc_object_version_number = -1 THEN
5230: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5231: RAISE Okc_Api.G_EXCEPTION_ERROR;
5232: END IF;
5226: ELSIF lc_object_version_number <> p_tcn_rec.object_version_number THEN
5227: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5228: RAISE Okc_Api.G_EXCEPTION_ERROR;
5229: ELSIF lc_object_version_number = -1 THEN
5230: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5231: RAISE Okc_Api.G_EXCEPTION_ERROR;
5232: END IF;
5233: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5234: EXCEPTION
5227: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
5228: RAISE Okc_Api.G_EXCEPTION_ERROR;
5229: ELSIF lc_object_version_number = -1 THEN
5230: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5231: RAISE Okc_Api.G_EXCEPTION_ERROR;
5232: END IF;
5233: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5234: EXCEPTION
5235: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5229: ELSIF lc_object_version_number = -1 THEN
5230: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
5231: RAISE Okc_Api.G_EXCEPTION_ERROR;
5232: END IF;
5233: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5234: EXCEPTION
5235: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5236: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5237: (
5231: RAISE Okc_Api.G_EXCEPTION_ERROR;
5232: END IF;
5233: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5234: EXCEPTION
5235: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5236: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5237: (
5238: l_api_name,
5239: G_PKG_NAME,
5232: END IF;
5233: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5234: EXCEPTION
5235: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5236: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5237: (
5238: l_api_name,
5239: G_PKG_NAME,
5240: 'OKC_API.G_RET_STS_ERROR',
5236: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5237: (
5238: l_api_name,
5239: G_PKG_NAME,
5240: 'OKC_API.G_RET_STS_ERROR',
5241: x_msg_count,
5242: x_msg_data,
5243: '_PVT'
5244: );
5241: x_msg_count,
5242: x_msg_data,
5243: '_PVT'
5244: );
5245: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5246: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5247: (
5248: l_api_name,
5249: G_PKG_NAME,
5242: x_msg_data,
5243: '_PVT'
5244: );
5245: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5246: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5247: (
5248: l_api_name,
5249: G_PKG_NAME,
5250: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5246: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5247: (
5248: l_api_name,
5249: G_PKG_NAME,
5250: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5251: x_msg_count,
5252: x_msg_data,
5253: '_PVT'
5254: );
5252: x_msg_data,
5253: '_PVT'
5254: );
5255: WHEN OTHERS THEN
5256: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5257: (
5258: l_api_name,
5259: G_PKG_NAME,
5260: 'OTHERS',
5275: p_tcnv_rec IN tcnv_rec_type) IS
5276:
5277: l_api_version CONSTANT NUMBER := 1;
5278: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
5279: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5280: l_tcn_rec tcn_rec_type;
5281: BEGIN
5282: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5283: G_PKG_NAME,
5278: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
5279: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5280: l_tcn_rec tcn_rec_type;
5281: BEGIN
5282: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5283: G_PKG_NAME,
5284: p_init_msg_list,
5285: l_api_version,
5286: p_api_version,
5285: l_api_version,
5286: p_api_version,
5287: '_PVT',
5288: x_return_status);
5289: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5290: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5291: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5292: RAISE Okc_Api.G_EXCEPTION_ERROR;
5293: END IF;
5286: p_api_version,
5287: '_PVT',
5288: x_return_status);
5289: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5290: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5291: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5292: RAISE Okc_Api.G_EXCEPTION_ERROR;
5293: END IF;
5294: --------------------------------------
5287: '_PVT',
5288: x_return_status);
5289: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5290: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5291: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5292: RAISE Okc_Api.G_EXCEPTION_ERROR;
5293: END IF;
5294: --------------------------------------
5295: -- Move VIEW record to "Child" records
5288: x_return_status);
5289: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5290: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5291: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5292: RAISE Okc_Api.G_EXCEPTION_ERROR;
5293: END IF;
5294: --------------------------------------
5295: -- Move VIEW record to "Child" records
5296: --------------------------------------
5304: x_msg_count,
5305: x_msg_data,
5306: l_tcn_rec
5307: );
5308: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5309: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5310: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5311: RAISE Okc_Api.G_EXCEPTION_ERROR;
5312: END IF;
5305: x_msg_data,
5306: l_tcn_rec
5307: );
5308: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5309: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5310: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5311: RAISE Okc_Api.G_EXCEPTION_ERROR;
5312: END IF;
5313: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5306: l_tcn_rec
5307: );
5308: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5309: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5310: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5311: RAISE Okc_Api.G_EXCEPTION_ERROR;
5312: END IF;
5313: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5314: EXCEPTION
5307: );
5308: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5309: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5310: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5311: RAISE Okc_Api.G_EXCEPTION_ERROR;
5312: END IF;
5313: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5314: EXCEPTION
5315: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5309: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5310: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5311: RAISE Okc_Api.G_EXCEPTION_ERROR;
5312: END IF;
5313: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5314: EXCEPTION
5315: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5316: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5317: (
5311: RAISE Okc_Api.G_EXCEPTION_ERROR;
5312: END IF;
5313: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5314: EXCEPTION
5315: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5316: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5317: (
5318: l_api_name,
5319: G_PKG_NAME,
5312: END IF;
5313: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
5314: EXCEPTION
5315: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5316: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5317: (
5318: l_api_name,
5319: G_PKG_NAME,
5320: 'OKC_API.G_RET_STS_ERROR',
5316: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5317: (
5318: l_api_name,
5319: G_PKG_NAME,
5320: 'OKC_API.G_RET_STS_ERROR',
5321: x_msg_count,
5322: x_msg_data,
5323: '_PVT'
5324: );
5321: x_msg_count,
5322: x_msg_data,
5323: '_PVT'
5324: );
5325: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5326: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5327: (
5328: l_api_name,
5329: G_PKG_NAME,
5322: x_msg_data,
5323: '_PVT'
5324: );
5325: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5326: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5327: (
5328: l_api_name,
5329: G_PKG_NAME,
5330: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5326: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5327: (
5328: l_api_name,
5329: G_PKG_NAME,
5330: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5331: x_msg_count,
5332: x_msg_data,
5333: '_PVT'
5334: );
5332: x_msg_data,
5333: '_PVT'
5334: );
5335: WHEN OTHERS THEN
5336: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5337: (
5338: l_api_name,
5339: G_PKG_NAME,
5340: 'OTHERS',
5355: p_tcnv_tbl IN tcnv_tbl_type) IS
5356:
5357: l_api_version CONSTANT NUMBER := 1;
5358: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
5359: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5360: i NUMBER := 0;
5361: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5362:
5363: BEGIN
5357: l_api_version CONSTANT NUMBER := 1;
5358: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
5359: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5360: i NUMBER := 0;
5361: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5362:
5363: BEGIN
5364: Okc_Api.init_msg_list(p_init_msg_list);
5365: -- Make sure PL/SQL table has records in it before passing
5360: i NUMBER := 0;
5361: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5362:
5363: BEGIN
5364: Okc_Api.init_msg_list(p_init_msg_list);
5365: -- Make sure PL/SQL table has records in it before passing
5366: IF (p_tcnv_tbl.COUNT > 0) THEN
5367: i := p_tcnv_tbl.FIRST;
5368: LOOP
5367: i := p_tcnv_tbl.FIRST;
5368: LOOP
5369: lock_row (
5370: p_api_version => p_api_version,
5371: p_init_msg_list => Okc_Api.G_FALSE,
5372: x_return_status => x_return_status,
5373: x_msg_count => x_msg_count,
5374: x_msg_data => x_msg_data,
5375: p_tcnv_rec => p_tcnv_tbl(i));
5374: x_msg_data => x_msg_data,
5375: p_tcnv_rec => p_tcnv_tbl(i));
5376:
5377: -- store the highest degree of error
5378: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
5379: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
5380: l_overall_status := x_return_status;
5381: END IF;
5382: END IF;
5375: p_tcnv_rec => p_tcnv_tbl(i));
5376:
5377: -- store the highest degree of error
5378: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
5379: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
5380: l_overall_status := x_return_status;
5381: END IF;
5382: END IF;
5383:
5388: x_return_status := l_overall_status;
5389:
5390: END IF;
5391: EXCEPTION
5392: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5393: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5394: (
5395: l_api_name,
5396: G_PKG_NAME,
5389:
5390: END IF;
5391: EXCEPTION
5392: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
5393: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5394: (
5395: l_api_name,
5396: G_PKG_NAME,
5397: 'OKC_API.G_RET_STS_ERROR',
5393: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
5394: (
5395: l_api_name,
5396: G_PKG_NAME,
5397: 'OKC_API.G_RET_STS_ERROR',
5398: x_msg_count,
5399: x_msg_data,
5400: '_PVT'
5401: );
5398: x_msg_count,
5399: x_msg_data,
5400: '_PVT'
5401: );
5402: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5403: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5404: (
5405: l_api_name,
5406: G_PKG_NAME,
5399: x_msg_data,
5400: '_PVT'
5401: );
5402: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
5403: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5404: (
5405: l_api_name,
5406: G_PKG_NAME,
5407: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5403: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5404: (
5405: l_api_name,
5406: G_PKG_NAME,
5407: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5408: x_msg_count,
5409: x_msg_data,
5410: '_PVT'
5411: );
5409: x_msg_data,
5410: '_PVT'
5411: );
5412: WHEN OTHERS THEN
5413: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
5414: (
5415: l_api_name,
5416: G_PKG_NAME,
5417: 'OTHERS',
5436: x_tcn_rec OUT NOCOPY tcn_rec_type) IS
5437:
5438: l_api_version CONSTANT NUMBER := 1;
5439: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACTS_update_row';
5440: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5441: l_tcn_rec tcn_rec_type := p_tcn_rec;
5442: l_def_tcn_rec tcn_rec_type;
5443: l_row_notfound BOOLEAN := TRUE;
5444: ----------------------------------
5449: x_tcn_rec OUT NOCOPY tcn_rec_type
5450: ) RETURN VARCHAR2 IS
5451: l_tcn_rec tcn_rec_type;
5452: l_row_notfound BOOLEAN := TRUE;
5453: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5454: BEGIN
5455: x_tcn_rec := p_tcn_rec;
5456: -- Get current database values
5457: l_tcn_rec := get_rec(p_tcn_rec, l_row_notfound);
5455: x_tcn_rec := p_tcn_rec;
5456: -- Get current database values
5457: l_tcn_rec := get_rec(p_tcn_rec, l_row_notfound);
5458: IF (l_row_notfound) THEN
5459: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
5460: END IF;
5461: IF (x_tcn_rec.id = Okc_Api.G_MISS_NUM)
5462: THEN
5463: x_tcn_rec.id := l_tcn_rec.id;
5457: l_tcn_rec := get_rec(p_tcn_rec, l_row_notfound);
5458: IF (l_row_notfound) THEN
5459: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
5460: END IF;
5461: IF (x_tcn_rec.id = Okc_Api.G_MISS_NUM)
5462: THEN
5463: x_tcn_rec.id := l_tcn_rec.id;
5464: END IF;
5465: IF (x_tcn_rec.khr_id_new = Okc_Api.G_MISS_NUM)
5461: IF (x_tcn_rec.id = Okc_Api.G_MISS_NUM)
5462: THEN
5463: x_tcn_rec.id := l_tcn_rec.id;
5464: END IF;
5465: IF (x_tcn_rec.khr_id_new = Okc_Api.G_MISS_NUM)
5466: THEN
5467: x_tcn_rec.khr_id_new := l_tcn_rec.khr_id_new;
5468: END IF;
5469: IF (x_tcn_rec.pvn_id = Okc_Api.G_MISS_NUM)
5465: IF (x_tcn_rec.khr_id_new = Okc_Api.G_MISS_NUM)
5466: THEN
5467: x_tcn_rec.khr_id_new := l_tcn_rec.khr_id_new;
5468: END IF;
5469: IF (x_tcn_rec.pvn_id = Okc_Api.G_MISS_NUM)
5470: THEN
5471: x_tcn_rec.pvn_id := l_tcn_rec.pvn_id;
5472: END IF;
5473: IF (x_tcn_rec.pdt_id = Okc_Api.G_MISS_NUM)
5469: IF (x_tcn_rec.pvn_id = Okc_Api.G_MISS_NUM)
5470: THEN
5471: x_tcn_rec.pvn_id := l_tcn_rec.pvn_id;
5472: END IF;
5473: IF (x_tcn_rec.pdt_id = Okc_Api.G_MISS_NUM)
5474: THEN
5475: x_tcn_rec.pdt_id := l_tcn_rec.pdt_id;
5476: END IF;
5477: IF (x_tcn_rec.rbr_code = Okc_Api.G_MISS_CHAR)
5473: IF (x_tcn_rec.pdt_id = Okc_Api.G_MISS_NUM)
5474: THEN
5475: x_tcn_rec.pdt_id := l_tcn_rec.pdt_id;
5476: END IF;
5477: IF (x_tcn_rec.rbr_code = Okc_Api.G_MISS_CHAR)
5478: THEN
5479: x_tcn_rec.rbr_code := l_tcn_rec.rbr_code;
5480: END IF;
5481: IF (x_tcn_rec.rpy_code = Okc_Api.G_MISS_CHAR)
5477: IF (x_tcn_rec.rbr_code = Okc_Api.G_MISS_CHAR)
5478: THEN
5479: x_tcn_rec.rbr_code := l_tcn_rec.rbr_code;
5480: END IF;
5481: IF (x_tcn_rec.rpy_code = Okc_Api.G_MISS_CHAR)
5482: THEN
5483: x_tcn_rec.rpy_code := l_tcn_rec.rpy_code;
5484: END IF;
5485: IF (x_tcn_rec.rvn_code = Okc_Api.G_MISS_CHAR)
5481: IF (x_tcn_rec.rpy_code = Okc_Api.G_MISS_CHAR)
5482: THEN
5483: x_tcn_rec.rpy_code := l_tcn_rec.rpy_code;
5484: END IF;
5485: IF (x_tcn_rec.rvn_code = Okc_Api.G_MISS_CHAR)
5486: THEN
5487: x_tcn_rec.rvn_code := l_tcn_rec.rvn_code;
5488: END IF;
5489: IF (x_tcn_rec.trn_code = Okc_Api.G_MISS_CHAR)
5485: IF (x_tcn_rec.rvn_code = Okc_Api.G_MISS_CHAR)
5486: THEN
5487: x_tcn_rec.rvn_code := l_tcn_rec.rvn_code;
5488: END IF;
5489: IF (x_tcn_rec.trn_code = Okc_Api.G_MISS_CHAR)
5490: THEN
5491: x_tcn_rec.trn_code := l_tcn_rec.trn_code;
5492: END IF;
5493: IF (x_tcn_rec.qte_id = Okc_Api.G_MISS_NUM)
5489: IF (x_tcn_rec.trn_code = Okc_Api.G_MISS_CHAR)
5490: THEN
5491: x_tcn_rec.trn_code := l_tcn_rec.trn_code;
5492: END IF;
5493: IF (x_tcn_rec.qte_id = Okc_Api.G_MISS_NUM)
5494: THEN
5495: x_tcn_rec.qte_id := l_tcn_rec.qte_id;
5496: END IF;
5497: IF (x_tcn_rec.aes_id = Okc_Api.G_MISS_NUM)
5493: IF (x_tcn_rec.qte_id = Okc_Api.G_MISS_NUM)
5494: THEN
5495: x_tcn_rec.qte_id := l_tcn_rec.qte_id;
5496: END IF;
5497: IF (x_tcn_rec.aes_id = Okc_Api.G_MISS_NUM)
5498: THEN
5499: x_tcn_rec.aes_id := l_tcn_rec.aes_id;
5500: END IF;
5501: IF (x_tcn_rec.code_combination_id = Okc_Api.G_MISS_NUM)
5497: IF (x_tcn_rec.aes_id = Okc_Api.G_MISS_NUM)
5498: THEN
5499: x_tcn_rec.aes_id := l_tcn_rec.aes_id;
5500: END IF;
5501: IF (x_tcn_rec.code_combination_id = Okc_Api.G_MISS_NUM)
5502: THEN
5503: x_tcn_rec.code_combination_id := l_tcn_rec.code_combination_id;
5504: END IF;
5505:
5502: THEN
5503: x_tcn_rec.code_combination_id := l_tcn_rec.code_combination_id;
5504: END IF;
5505:
5506: IF (x_tcn_rec.tcn_type = Okc_Api.G_MISS_CHAR)
5507: THEN
5508: x_tcn_rec.tcn_type := l_tcn_rec.tcn_type;
5509: END IF;
5510:
5507: THEN
5508: x_tcn_rec.tcn_type := l_tcn_rec.tcn_type;
5509: END IF;
5510:
5511: IF (x_tcn_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
5512: x_tcn_rec.rjn_code := l_tcn_rec.rjn_code;
5513: END IF;
5514:
5515: IF (x_tcn_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
5511: IF (x_tcn_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
5512: x_tcn_rec.rjn_code := l_tcn_rec.rjn_code;
5513: END IF;
5514:
5515: IF (x_tcn_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
5516: x_tcn_rec.party_rel_id1_old := l_tcn_rec.party_rel_id1_old;
5517: END IF;
5518:
5519: IF (x_tcn_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
5515: IF (x_tcn_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
5516: x_tcn_rec.party_rel_id1_old := l_tcn_rec.party_rel_id1_old;
5517: END IF;
5518:
5519: IF (x_tcn_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
5520: x_tcn_rec.party_rel_id2_old := l_tcn_rec.party_rel_id2_old;
5521: END IF;
5522:
5523: IF (x_tcn_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
5519: IF (x_tcn_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
5520: x_tcn_rec.party_rel_id2_old := l_tcn_rec.party_rel_id2_old;
5521: END IF;
5522:
5523: IF (x_tcn_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
5524: x_tcn_rec.party_rel_id1_new := l_tcn_rec.party_rel_id1_new;
5525: END IF;
5526:
5527: IF (x_tcn_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
5523: IF (x_tcn_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
5524: x_tcn_rec.party_rel_id1_new := l_tcn_rec.party_rel_id1_new;
5525: END IF;
5526:
5527: IF (x_tcn_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
5528: x_tcn_rec.party_rel_id2_new := l_tcn_rec.party_rel_id2_new;
5529: END IF;
5530:
5531: IF (x_tcn_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
5527: IF (x_tcn_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
5528: x_tcn_rec.party_rel_id2_new := l_tcn_rec.party_rel_id2_new;
5529: END IF;
5530:
5531: IF (x_tcn_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
5532: x_tcn_rec.complete_transfer_yn := l_tcn_rec.complete_transfer_yn;
5533: END IF;
5534:
5535: IF (x_tcn_rec.object_version_number = Okc_Api.G_MISS_NUM)
5531: IF (x_tcn_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
5532: x_tcn_rec.complete_transfer_yn := l_tcn_rec.complete_transfer_yn;
5533: END IF;
5534:
5535: IF (x_tcn_rec.object_version_number = Okc_Api.G_MISS_NUM)
5536: THEN
5537: x_tcn_rec.object_version_number := l_tcn_rec.object_version_number;
5538: END IF;
5539: IF (x_tcn_rec.created_by = Okc_Api.G_MISS_NUM)
5535: IF (x_tcn_rec.object_version_number = Okc_Api.G_MISS_NUM)
5536: THEN
5537: x_tcn_rec.object_version_number := l_tcn_rec.object_version_number;
5538: END IF;
5539: IF (x_tcn_rec.created_by = Okc_Api.G_MISS_NUM)
5540: THEN
5541: x_tcn_rec.created_by := l_tcn_rec.created_by;
5542: END IF;
5543: IF (x_tcn_rec.creation_date = Okc_Api.G_MISS_DATE)
5539: IF (x_tcn_rec.created_by = Okc_Api.G_MISS_NUM)
5540: THEN
5541: x_tcn_rec.created_by := l_tcn_rec.created_by;
5542: END IF;
5543: IF (x_tcn_rec.creation_date = Okc_Api.G_MISS_DATE)
5544: THEN
5545: x_tcn_rec.creation_date := l_tcn_rec.creation_date;
5546: END IF;
5547: IF (x_tcn_rec.last_updated_by = Okc_Api.G_MISS_NUM)
5543: IF (x_tcn_rec.creation_date = Okc_Api.G_MISS_DATE)
5544: THEN
5545: x_tcn_rec.creation_date := l_tcn_rec.creation_date;
5546: END IF;
5547: IF (x_tcn_rec.last_updated_by = Okc_Api.G_MISS_NUM)
5548: THEN
5549: x_tcn_rec.last_updated_by := l_tcn_rec.last_updated_by;
5550: END IF;
5551: IF (x_tcn_rec.last_update_date = Okc_Api.G_MISS_DATE)
5547: IF (x_tcn_rec.last_updated_by = Okc_Api.G_MISS_NUM)
5548: THEN
5549: x_tcn_rec.last_updated_by := l_tcn_rec.last_updated_by;
5550: END IF;
5551: IF (x_tcn_rec.last_update_date = Okc_Api.G_MISS_DATE)
5552: THEN
5553: x_tcn_rec.last_update_date := l_tcn_rec.last_update_date;
5554: END IF;
5555: IF (x_tcn_rec.date_accrual = Okc_Api.G_MISS_DATE)
5551: IF (x_tcn_rec.last_update_date = Okc_Api.G_MISS_DATE)
5552: THEN
5553: x_tcn_rec.last_update_date := l_tcn_rec.last_update_date;
5554: END IF;
5555: IF (x_tcn_rec.date_accrual = Okc_Api.G_MISS_DATE)
5556: THEN
5557: x_tcn_rec.date_accrual := l_tcn_rec.date_accrual;
5558: END IF;
5559: IF (x_tcn_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
5555: IF (x_tcn_rec.date_accrual = Okc_Api.G_MISS_DATE)
5556: THEN
5557: x_tcn_rec.date_accrual := l_tcn_rec.date_accrual;
5558: END IF;
5559: IF (x_tcn_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
5560: THEN
5561: x_tcn_rec.accrual_status_yn := l_tcn_rec.accrual_status_yn;
5562: END IF;
5563: IF (x_tcn_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
5559: IF (x_tcn_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
5560: THEN
5561: x_tcn_rec.accrual_status_yn := l_tcn_rec.accrual_status_yn;
5562: END IF;
5563: IF (x_tcn_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
5564: THEN
5565: x_tcn_rec.update_status_yn := l_tcn_rec.update_status_yn;
5566: END IF;
5567: IF (x_tcn_rec.org_id = Okc_Api.G_MISS_NUM)
5563: IF (x_tcn_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
5564: THEN
5565: x_tcn_rec.update_status_yn := l_tcn_rec.update_status_yn;
5566: END IF;
5567: IF (x_tcn_rec.org_id = Okc_Api.G_MISS_NUM)
5568: THEN
5569: x_tcn_rec.org_id := l_tcn_rec.org_id;
5570: END IF;
5571: IF (x_tcn_rec.khr_id = Okc_Api.G_MISS_NUM)
5567: IF (x_tcn_rec.org_id = Okc_Api.G_MISS_NUM)
5568: THEN
5569: x_tcn_rec.org_id := l_tcn_rec.org_id;
5570: END IF;
5571: IF (x_tcn_rec.khr_id = Okc_Api.G_MISS_NUM)
5572: THEN
5573: x_tcn_rec.khr_id := l_tcn_rec.khr_id;
5574: END IF;
5575: IF (x_tcn_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
5571: IF (x_tcn_rec.khr_id = Okc_Api.G_MISS_NUM)
5572: THEN
5573: x_tcn_rec.khr_id := l_tcn_rec.khr_id;
5574: END IF;
5575: IF (x_tcn_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
5576: THEN
5577: x_tcn_rec.tax_deductible_local := l_tcn_rec.tax_deductible_local;
5578: END IF;
5579: IF (x_tcn_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
5575: IF (x_tcn_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
5576: THEN
5577: x_tcn_rec.tax_deductible_local := l_tcn_rec.tax_deductible_local;
5578: END IF;
5579: IF (x_tcn_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
5580: THEN
5581: x_tcn_rec.tax_deductible_corporate := l_tcn_rec.tax_deductible_corporate;
5582: END IF;
5583: IF (x_tcn_rec.amount = Okc_Api.G_MISS_NUM)
5579: IF (x_tcn_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
5580: THEN
5581: x_tcn_rec.tax_deductible_corporate := l_tcn_rec.tax_deductible_corporate;
5582: END IF;
5583: IF (x_tcn_rec.amount = Okc_Api.G_MISS_NUM)
5584: THEN
5585: x_tcn_rec.amount := l_tcn_rec.amount;
5586: END IF;
5587: IF (x_tcn_rec.request_id = Okc_Api.G_MISS_NUM)
5583: IF (x_tcn_rec.amount = Okc_Api.G_MISS_NUM)
5584: THEN
5585: x_tcn_rec.amount := l_tcn_rec.amount;
5586: END IF;
5587: IF (x_tcn_rec.request_id = Okc_Api.G_MISS_NUM)
5588: THEN
5589: x_tcn_rec.request_id := l_tcn_rec.request_id;
5590: END IF;
5591: IF (x_tcn_rec.currency_code = Okc_Api.G_MISS_CHAR)
5587: IF (x_tcn_rec.request_id = Okc_Api.G_MISS_NUM)
5588: THEN
5589: x_tcn_rec.request_id := l_tcn_rec.request_id;
5590: END IF;
5591: IF (x_tcn_rec.currency_code = Okc_Api.G_MISS_CHAR)
5592: THEN
5593: x_tcn_rec.currency_code := l_tcn_rec.currency_code;
5594: END IF;
5595: IF (x_tcn_rec.program_application_id = Okc_Api.G_MISS_NUM)
5591: IF (x_tcn_rec.currency_code = Okc_Api.G_MISS_CHAR)
5592: THEN
5593: x_tcn_rec.currency_code := l_tcn_rec.currency_code;
5594: END IF;
5595: IF (x_tcn_rec.program_application_id = Okc_Api.G_MISS_NUM)
5596: THEN
5597: x_tcn_rec.program_application_id := l_tcn_rec.program_application_id;
5598: END IF;
5599: IF (x_tcn_rec.khr_id_old = Okc_Api.G_MISS_NUM)
5595: IF (x_tcn_rec.program_application_id = Okc_Api.G_MISS_NUM)
5596: THEN
5597: x_tcn_rec.program_application_id := l_tcn_rec.program_application_id;
5598: END IF;
5599: IF (x_tcn_rec.khr_id_old = Okc_Api.G_MISS_NUM)
5600: THEN
5601: x_tcn_rec.khr_id_old := l_tcn_rec.khr_id_old;
5602: END IF;
5603: IF (x_tcn_rec.program_id = Okc_Api.G_MISS_NUM)
5599: IF (x_tcn_rec.khr_id_old = Okc_Api.G_MISS_NUM)
5600: THEN
5601: x_tcn_rec.khr_id_old := l_tcn_rec.khr_id_old;
5602: END IF;
5603: IF (x_tcn_rec.program_id = Okc_Api.G_MISS_NUM)
5604: THEN
5605: x_tcn_rec.program_id := l_tcn_rec.program_id;
5606: END IF;
5607: IF (x_tcn_rec.program_update_date = Okc_Api.G_MISS_DATE)
5603: IF (x_tcn_rec.program_id = Okc_Api.G_MISS_NUM)
5604: THEN
5605: x_tcn_rec.program_id := l_tcn_rec.program_id;
5606: END IF;
5607: IF (x_tcn_rec.program_update_date = Okc_Api.G_MISS_DATE)
5608: THEN
5609: x_tcn_rec.program_update_date := l_tcn_rec.program_update_date;
5610: END IF;
5611: IF (x_tcn_rec.attribute_category = Okc_Api.G_MISS_CHAR)
5607: IF (x_tcn_rec.program_update_date = Okc_Api.G_MISS_DATE)
5608: THEN
5609: x_tcn_rec.program_update_date := l_tcn_rec.program_update_date;
5610: END IF;
5611: IF (x_tcn_rec.attribute_category = Okc_Api.G_MISS_CHAR)
5612: THEN
5613: x_tcn_rec.attribute_category := l_tcn_rec.attribute_category;
5614: END IF;
5615: IF (x_tcn_rec.attribute1 = Okc_Api.G_MISS_CHAR)
5611: IF (x_tcn_rec.attribute_category = Okc_Api.G_MISS_CHAR)
5612: THEN
5613: x_tcn_rec.attribute_category := l_tcn_rec.attribute_category;
5614: END IF;
5615: IF (x_tcn_rec.attribute1 = Okc_Api.G_MISS_CHAR)
5616: THEN
5617: x_tcn_rec.attribute1 := l_tcn_rec.attribute1;
5618: END IF;
5619: IF (x_tcn_rec.attribute2 = Okc_Api.G_MISS_CHAR)
5615: IF (x_tcn_rec.attribute1 = Okc_Api.G_MISS_CHAR)
5616: THEN
5617: x_tcn_rec.attribute1 := l_tcn_rec.attribute1;
5618: END IF;
5619: IF (x_tcn_rec.attribute2 = Okc_Api.G_MISS_CHAR)
5620: THEN
5621: x_tcn_rec.attribute2 := l_tcn_rec.attribute2;
5622: END IF;
5623: IF (x_tcn_rec.attribute3 = Okc_Api.G_MISS_CHAR)
5619: IF (x_tcn_rec.attribute2 = Okc_Api.G_MISS_CHAR)
5620: THEN
5621: x_tcn_rec.attribute2 := l_tcn_rec.attribute2;
5622: END IF;
5623: IF (x_tcn_rec.attribute3 = Okc_Api.G_MISS_CHAR)
5624: THEN
5625: x_tcn_rec.attribute3 := l_tcn_rec.attribute3;
5626: END IF;
5627: IF (x_tcn_rec.attribute4 = Okc_Api.G_MISS_CHAR)
5623: IF (x_tcn_rec.attribute3 = Okc_Api.G_MISS_CHAR)
5624: THEN
5625: x_tcn_rec.attribute3 := l_tcn_rec.attribute3;
5626: END IF;
5627: IF (x_tcn_rec.attribute4 = Okc_Api.G_MISS_CHAR)
5628: THEN
5629: x_tcn_rec.attribute4 := l_tcn_rec.attribute4;
5630: END IF;
5631: IF (x_tcn_rec.attribute5 = Okc_Api.G_MISS_CHAR)
5627: IF (x_tcn_rec.attribute4 = Okc_Api.G_MISS_CHAR)
5628: THEN
5629: x_tcn_rec.attribute4 := l_tcn_rec.attribute4;
5630: END IF;
5631: IF (x_tcn_rec.attribute5 = Okc_Api.G_MISS_CHAR)
5632: THEN
5633: x_tcn_rec.attribute5 := l_tcn_rec.attribute5;
5634: END IF;
5635: IF (x_tcn_rec.attribute6 = Okc_Api.G_MISS_CHAR)
5631: IF (x_tcn_rec.attribute5 = Okc_Api.G_MISS_CHAR)
5632: THEN
5633: x_tcn_rec.attribute5 := l_tcn_rec.attribute5;
5634: END IF;
5635: IF (x_tcn_rec.attribute6 = Okc_Api.G_MISS_CHAR)
5636: THEN
5637: x_tcn_rec.attribute6 := l_tcn_rec.attribute6;
5638: END IF;
5639: IF (x_tcn_rec.attribute7 = Okc_Api.G_MISS_CHAR)
5635: IF (x_tcn_rec.attribute6 = Okc_Api.G_MISS_CHAR)
5636: THEN
5637: x_tcn_rec.attribute6 := l_tcn_rec.attribute6;
5638: END IF;
5639: IF (x_tcn_rec.attribute7 = Okc_Api.G_MISS_CHAR)
5640: THEN
5641: x_tcn_rec.attribute7 := l_tcn_rec.attribute7;
5642: END IF;
5643: IF (x_tcn_rec.attribute8 = Okc_Api.G_MISS_CHAR)
5639: IF (x_tcn_rec.attribute7 = Okc_Api.G_MISS_CHAR)
5640: THEN
5641: x_tcn_rec.attribute7 := l_tcn_rec.attribute7;
5642: END IF;
5643: IF (x_tcn_rec.attribute8 = Okc_Api.G_MISS_CHAR)
5644: THEN
5645: x_tcn_rec.attribute8 := l_tcn_rec.attribute8;
5646: END IF;
5647: IF (x_tcn_rec.attribute9 = Okc_Api.G_MISS_CHAR)
5643: IF (x_tcn_rec.attribute8 = Okc_Api.G_MISS_CHAR)
5644: THEN
5645: x_tcn_rec.attribute8 := l_tcn_rec.attribute8;
5646: END IF;
5647: IF (x_tcn_rec.attribute9 = Okc_Api.G_MISS_CHAR)
5648: THEN
5649: x_tcn_rec.attribute9 := l_tcn_rec.attribute9;
5650: END IF;
5651: IF (x_tcn_rec.attribute10 = Okc_Api.G_MISS_CHAR)
5647: IF (x_tcn_rec.attribute9 = Okc_Api.G_MISS_CHAR)
5648: THEN
5649: x_tcn_rec.attribute9 := l_tcn_rec.attribute9;
5650: END IF;
5651: IF (x_tcn_rec.attribute10 = Okc_Api.G_MISS_CHAR)
5652: THEN
5653: x_tcn_rec.attribute10 := l_tcn_rec.attribute10;
5654: END IF;
5655: IF (x_tcn_rec.attribute11 = Okc_Api.G_MISS_CHAR)
5651: IF (x_tcn_rec.attribute10 = Okc_Api.G_MISS_CHAR)
5652: THEN
5653: x_tcn_rec.attribute10 := l_tcn_rec.attribute10;
5654: END IF;
5655: IF (x_tcn_rec.attribute11 = Okc_Api.G_MISS_CHAR)
5656: THEN
5657: x_tcn_rec.attribute11 := l_tcn_rec.attribute11;
5658: END IF;
5659: IF (x_tcn_rec.attribute12 = Okc_Api.G_MISS_CHAR)
5655: IF (x_tcn_rec.attribute11 = Okc_Api.G_MISS_CHAR)
5656: THEN
5657: x_tcn_rec.attribute11 := l_tcn_rec.attribute11;
5658: END IF;
5659: IF (x_tcn_rec.attribute12 = Okc_Api.G_MISS_CHAR)
5660: THEN
5661: x_tcn_rec.attribute12 := l_tcn_rec.attribute12;
5662: END IF;
5663: IF (x_tcn_rec.attribute13 = Okc_Api.G_MISS_CHAR)
5659: IF (x_tcn_rec.attribute12 = Okc_Api.G_MISS_CHAR)
5660: THEN
5661: x_tcn_rec.attribute12 := l_tcn_rec.attribute12;
5662: END IF;
5663: IF (x_tcn_rec.attribute13 = Okc_Api.G_MISS_CHAR)
5664: THEN
5665: x_tcn_rec.attribute13 := l_tcn_rec.attribute13;
5666: END IF;
5667: IF (x_tcn_rec.attribute14 = Okc_Api.G_MISS_CHAR)
5663: IF (x_tcn_rec.attribute13 = Okc_Api.G_MISS_CHAR)
5664: THEN
5665: x_tcn_rec.attribute13 := l_tcn_rec.attribute13;
5666: END IF;
5667: IF (x_tcn_rec.attribute14 = Okc_Api.G_MISS_CHAR)
5668: THEN
5669: x_tcn_rec.attribute14 := l_tcn_rec.attribute14;
5670: END IF;
5671: IF (x_tcn_rec.attribute15 = Okc_Api.G_MISS_CHAR)
5667: IF (x_tcn_rec.attribute14 = Okc_Api.G_MISS_CHAR)
5668: THEN
5669: x_tcn_rec.attribute14 := l_tcn_rec.attribute14;
5670: END IF;
5671: IF (x_tcn_rec.attribute15 = Okc_Api.G_MISS_CHAR)
5672: THEN
5673: x_tcn_rec.attribute15 := l_tcn_rec.attribute15;
5674: END IF;
5675: IF (x_tcn_rec.last_update_login = Okc_Api.G_MISS_NUM)
5671: IF (x_tcn_rec.attribute15 = Okc_Api.G_MISS_CHAR)
5672: THEN
5673: x_tcn_rec.attribute15 := l_tcn_rec.attribute15;
5674: END IF;
5675: IF (x_tcn_rec.last_update_login = Okc_Api.G_MISS_NUM)
5676: THEN
5677: x_tcn_rec.last_update_login := l_tcn_rec.last_update_login;
5678: END IF;
5679:
5676: THEN
5677: x_tcn_rec.last_update_login := l_tcn_rec.last_update_login;
5678: END IF;
5679:
5680: IF (x_tcn_rec.try_id = Okc_Api.G_MISS_NUM)
5681: THEN
5682: x_tcn_rec.try_id := l_tcn_rec.try_id;
5683: END IF;
5684: IF (x_tcn_rec.tsu_code = Okc_Api.G_MISS_CHAR)
5680: IF (x_tcn_rec.try_id = Okc_Api.G_MISS_NUM)
5681: THEN
5682: x_tcn_rec.try_id := l_tcn_rec.try_id;
5683: END IF;
5684: IF (x_tcn_rec.tsu_code = Okc_Api.G_MISS_CHAR)
5685: THEN
5686: x_tcn_rec.tsu_code := l_tcn_rec.tsu_code;
5687: END IF;
5688: IF (x_tcn_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
5684: IF (x_tcn_rec.tsu_code = Okc_Api.G_MISS_CHAR)
5685: THEN
5686: x_tcn_rec.tsu_code := l_tcn_rec.tsu_code;
5687: END IF;
5688: IF (x_tcn_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
5689: THEN
5690: x_tcn_rec.set_of_books_id := l_tcn_rec.set_of_books_id;
5691: END IF;
5692: IF (x_tcn_rec.description = Okc_Api.G_MISS_CHAR)
5688: IF (x_tcn_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
5689: THEN
5690: x_tcn_rec.set_of_books_id := l_tcn_rec.set_of_books_id;
5691: END IF;
5692: IF (x_tcn_rec.description = Okc_Api.G_MISS_CHAR)
5693: THEN
5694: x_tcn_rec.description := l_tcn_rec.description;
5695: END IF;
5696: IF (x_tcn_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE)
5692: IF (x_tcn_rec.description = Okc_Api.G_MISS_CHAR)
5693: THEN
5694: x_tcn_rec.description := l_tcn_rec.description;
5695: END IF;
5696: IF (x_tcn_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE)
5697: THEN
5698: x_tcn_rec.date_transaction_occurred := l_tcn_rec.date_transaction_occurred;
5699: END IF;
5700:
5697: THEN
5698: x_tcn_rec.date_transaction_occurred := l_tcn_rec.date_transaction_occurred;
5699: END IF;
5700:
5701: IF (x_tcn_rec.trx_number = Okc_Api.G_MISS_CHAR)
5702: THEN
5703: x_tcn_rec.trx_number := l_tcn_rec.trx_number;
5704: END IF;
5705:
5702: THEN
5703: x_tcn_rec.trx_number := l_tcn_rec.trx_number;
5704: END IF;
5705:
5706: IF (x_tcn_rec.tmt_evergreen_yn = Okc_Api.G_MISS_CHAR)
5707: THEN
5708: x_tcn_rec.tmt_evergreen_yn := l_tcn_rec.tmt_evergreen_yn;
5709: END IF;
5710:
5707: THEN
5708: x_tcn_rec.tmt_evergreen_yn := l_tcn_rec.tmt_evergreen_yn;
5709: END IF;
5710:
5711: IF (x_tcn_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR)
5712: THEN
5713: x_tcn_rec.tmt_close_balances_yn := l_tcn_rec.tmt_close_balances_yn;
5714: END IF;
5715:
5712: THEN
5713: x_tcn_rec.tmt_close_balances_yn := l_tcn_rec.tmt_close_balances_yn;
5714: END IF;
5715:
5716: IF (x_tcn_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR)
5717: THEN
5718: x_tcn_rec.tmt_accounting_entries_yn := l_tcn_rec.tmt_accounting_entries_yn ;
5719: END IF;
5720:
5717: THEN
5718: x_tcn_rec.tmt_accounting_entries_yn := l_tcn_rec.tmt_accounting_entries_yn ;
5719: END IF;
5720:
5721: IF (x_tcn_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR)
5722: THEN
5723: x_tcn_rec.tmt_cancel_insurance_yn := l_tcn_rec.tmt_cancel_insurance_yn ;
5724: END IF;
5725:
5722: THEN
5723: x_tcn_rec.tmt_cancel_insurance_yn := l_tcn_rec.tmt_cancel_insurance_yn ;
5724: END IF;
5725:
5726: IF (x_tcn_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR)
5727: THEN
5728: x_tcn_rec.tmt_asset_disposition_yn := l_tcn_rec.tmt_asset_disposition_yn ;
5729: END IF;
5730:
5727: THEN
5728: x_tcn_rec.tmt_asset_disposition_yn := l_tcn_rec.tmt_asset_disposition_yn ;
5729: END IF;
5730:
5731: IF (x_tcn_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR)
5732: THEN
5733: x_tcn_rec.tmt_amortization_yn := l_tcn_rec.tmt_amortization_yn ;
5734: END IF;
5735:
5732: THEN
5733: x_tcn_rec.tmt_amortization_yn := l_tcn_rec.tmt_amortization_yn ;
5734: END IF;
5735:
5736: IF (x_tcn_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR)
5737: THEN
5738: x_tcn_rec.tmt_asset_return_yn := l_tcn_rec.tmt_asset_return_yn ;
5739: END IF;
5740:
5737: THEN
5738: x_tcn_rec.tmt_asset_return_yn := l_tcn_rec.tmt_asset_return_yn ;
5739: END IF;
5740:
5741: IF (x_tcn_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR)
5742: THEN
5743: x_tcn_rec.tmt_contract_updated_yn := l_tcn_rec.tmt_contract_updated_yn ;
5744: END IF;
5745:
5742: THEN
5743: x_tcn_rec.tmt_contract_updated_yn := l_tcn_rec.tmt_contract_updated_yn ;
5744: END IF;
5745:
5746: IF (x_tcn_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR)
5747: THEN
5748: x_tcn_rec.tmt_recycle_yn := l_tcn_rec.tmt_recycle_yn ;
5749: END IF;
5750:
5747: THEN
5748: x_tcn_rec.tmt_recycle_yn := l_tcn_rec.tmt_recycle_yn ;
5749: END IF;
5750:
5751: IF (x_tcn_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR)
5752: THEN
5753: x_tcn_rec.tmt_validated_yn := l_tcn_rec.tmt_validated_yn ;
5754: END IF;
5755:
5752: THEN
5753: x_tcn_rec.tmt_validated_yn := l_tcn_rec.tmt_validated_yn ;
5754: END IF;
5755:
5756: IF (x_tcn_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR)
5757: THEN
5758: x_tcn_rec.tmt_streams_updated_yn := l_tcn_rec.tmt_streams_updated_yn ;
5759: END IF;
5760:
5757: THEN
5758: x_tcn_rec.tmt_streams_updated_yn := l_tcn_rec.tmt_streams_updated_yn ;
5759: END IF;
5760:
5761: IF (x_tcn_rec.accrual_activity = Okc_Api.G_MISS_CHAR)
5762: THEN
5763: x_tcn_rec.accrual_activity := l_tcn_rec.accrual_activity ;
5764: END IF;
5765:
5763: x_tcn_rec.accrual_activity := l_tcn_rec.accrual_activity ;
5764: END IF;
5765:
5766: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
5767: IF (x_tcn_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
5768: x_tcn_rec.tmt_split_asset_yn := l_tcn_rec.tmt_split_asset_yn;
5769: END IF;
5770: IF (x_tcn_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
5771: x_tcn_rec.tmt_generic_flag1_yn := l_tcn_rec.tmt_generic_flag1_yn;
5766: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
5767: IF (x_tcn_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
5768: x_tcn_rec.tmt_split_asset_yn := l_tcn_rec.tmt_split_asset_yn;
5769: END IF;
5770: IF (x_tcn_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
5771: x_tcn_rec.tmt_generic_flag1_yn := l_tcn_rec.tmt_generic_flag1_yn;
5772: END IF;
5773: IF (x_tcn_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
5774: x_tcn_rec.tmt_generic_flag2_yn := l_tcn_rec.tmt_generic_flag2_yn;
5769: END IF;
5770: IF (x_tcn_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
5771: x_tcn_rec.tmt_generic_flag1_yn := l_tcn_rec.tmt_generic_flag1_yn;
5772: END IF;
5773: IF (x_tcn_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
5774: x_tcn_rec.tmt_generic_flag2_yn := l_tcn_rec.tmt_generic_flag2_yn;
5775: END IF;
5776: IF (x_tcn_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
5777: x_tcn_rec.tmt_generic_flag3_yn := l_tcn_rec.tmt_generic_flag3_yn;
5772: END IF;
5773: IF (x_tcn_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
5774: x_tcn_rec.tmt_generic_flag2_yn := l_tcn_rec.tmt_generic_flag2_yn;
5775: END IF;
5776: IF (x_tcn_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
5777: x_tcn_rec.tmt_generic_flag3_yn := l_tcn_rec.tmt_generic_flag3_yn;
5778: END IF;
5779: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
5780: IF (x_tcn_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
5776: IF (x_tcn_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
5777: x_tcn_rec.tmt_generic_flag3_yn := l_tcn_rec.tmt_generic_flag3_yn;
5778: END IF;
5779: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
5780: IF (x_tcn_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
5781: x_tcn_rec.currency_conversion_type := l_tcn_rec.currency_conversion_type;
5782: END IF;
5783: IF (x_tcn_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
5784: x_tcn_rec.currency_conversion_rate := l_tcn_rec.currency_conversion_rate;
5779: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
5780: IF (x_tcn_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
5781: x_tcn_rec.currency_conversion_type := l_tcn_rec.currency_conversion_type;
5782: END IF;
5783: IF (x_tcn_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
5784: x_tcn_rec.currency_conversion_rate := l_tcn_rec.currency_conversion_rate;
5785: END IF;
5786: IF (x_tcn_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
5787: x_tcn_rec.currency_conversion_date := l_tcn_rec.currency_conversion_date;
5782: END IF;
5783: IF (x_tcn_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
5784: x_tcn_rec.currency_conversion_rate := l_tcn_rec.currency_conversion_rate;
5785: END IF;
5786: IF (x_tcn_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
5787: x_tcn_rec.currency_conversion_date := l_tcn_rec.currency_conversion_date;
5788: END IF;
5789: --Added by Keerthi 04-SEP-2003
5790: IF (x_tcn_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
5786: IF (x_tcn_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
5787: x_tcn_rec.currency_conversion_date := l_tcn_rec.currency_conversion_date;
5788: END IF;
5789: --Added by Keerthi 04-SEP-2003
5790: IF (x_tcn_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
5791: x_tcn_rec.chr_id := l_tcn_rec.chr_id;
5792: END IF;
5793: --Added by Keerthi for Bug No 3195713
5794: IF (x_tcn_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
5790: IF (x_tcn_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
5791: x_tcn_rec.chr_id := l_tcn_rec.chr_id;
5792: END IF;
5793: --Added by Keerthi for Bug No 3195713
5794: IF (x_tcn_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
5795: x_tcn_rec.source_trx_id := l_tcn_rec.source_trx_id;
5796: END IF;
5797:
5798: IF (x_tcn_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
5794: IF (x_tcn_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
5795: x_tcn_rec.source_trx_id := l_tcn_rec.source_trx_id;
5796: END IF;
5797:
5798: IF (x_tcn_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
5799: x_tcn_rec.source_trx_type := l_tcn_rec.source_trx_type;
5800: END IF;
5801:
5802: IF (x_tcn_rec.canceled_date = Okc_Api.G_MISS_DATE)
5798: IF (x_tcn_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
5799: x_tcn_rec.source_trx_type := l_tcn_rec.source_trx_type;
5800: END IF;
5801:
5802: IF (x_tcn_rec.canceled_date = Okc_Api.G_MISS_DATE)
5803: THEN
5804: x_tcn_rec.canceled_date := l_tcn_rec.canceled_date;
5805: END IF;
5806:
5882: FUNCTION Set_Attributes (
5883: p_tcn_rec IN tcn_rec_type,
5884: x_tcn_rec OUT NOCOPY tcn_rec_type
5885: ) RETURN VARCHAR2 IS
5886: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
5887: BEGIN
5888: x_tcn_rec := p_tcn_rec;
5889: RETURN(l_return_status);
5890: END Set_Attributes;
5888: x_tcn_rec := p_tcn_rec;
5889: RETURN(l_return_status);
5890: END Set_Attributes;
5891: BEGIN
5892: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5893: p_init_msg_list,
5894: '_PVT',
5895: x_return_status);
5896: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5892: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
5893: p_init_msg_list,
5894: '_PVT',
5895: x_return_status);
5896: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5897: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5898: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5899: RAISE Okc_Api.G_EXCEPTION_ERROR;
5900: END IF;
5893: p_init_msg_list,
5894: '_PVT',
5895: x_return_status);
5896: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5897: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5898: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5899: RAISE Okc_Api.G_EXCEPTION_ERROR;
5900: END IF;
5901: --- Setting item attributes
5894: '_PVT',
5895: x_return_status);
5896: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5897: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5898: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5899: RAISE Okc_Api.G_EXCEPTION_ERROR;
5900: END IF;
5901: --- Setting item attributes
5902: l_return_status := Set_Attributes(
5895: x_return_status);
5896: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5897: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5898: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5899: RAISE Okc_Api.G_EXCEPTION_ERROR;
5900: END IF;
5901: --- Setting item attributes
5902: l_return_status := Set_Attributes(
5903: p_tcn_rec, -- IN
5902: l_return_status := Set_Attributes(
5903: p_tcn_rec, -- IN
5904: l_tcn_rec); -- OUT
5905: --- If any errors happen abort API
5906: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5907: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5908: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5909: RAISE Okc_Api.G_EXCEPTION_ERROR;
5910: END IF;
5903: p_tcn_rec, -- IN
5904: l_tcn_rec); -- OUT
5905: --- If any errors happen abort API
5906: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5907: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5908: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5909: RAISE Okc_Api.G_EXCEPTION_ERROR;
5910: END IF;
5911: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5904: l_tcn_rec); -- OUT
5905: --- If any errors happen abort API
5906: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5907: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5908: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5909: RAISE Okc_Api.G_EXCEPTION_ERROR;
5910: END IF;
5911: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5912: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5905: --- If any errors happen abort API
5906: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5907: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5908: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5909: RAISE Okc_Api.G_EXCEPTION_ERROR;
5910: END IF;
5911: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5912: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5913: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5908: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5909: RAISE Okc_Api.G_EXCEPTION_ERROR;
5910: END IF;
5911: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5912: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5913: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5914: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5915: RAISE Okc_Api.G_EXCEPTION_ERROR;
5916: END IF;
5909: RAISE Okc_Api.G_EXCEPTION_ERROR;
5910: END IF;
5911: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5912: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5913: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5914: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5915: RAISE Okc_Api.G_EXCEPTION_ERROR;
5916: END IF;
5917:
5910: END IF;
5911: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5912: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5913: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5914: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5915: RAISE Okc_Api.G_EXCEPTION_ERROR;
5916: END IF;
5917:
5918: UPDATE OKL_TRX_CONTRACTS
5911: l_return_status := populate_new_record(l_tcn_rec, l_def_tcn_rec);
5912: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
5913: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
5914: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
5915: RAISE Okc_Api.G_EXCEPTION_ERROR;
5916: END IF;
5917:
5918: UPDATE OKL_TRX_CONTRACTS
5919: SET KHR_ID_NEW = l_def_tcn_rec.khr_id_new,
6027: TRANSACTION_REVERSAL_DATE = l_def_tcn_rec.TRANSACTION_REVERSAL_DATE
6028: WHERE ID = l_def_tcn_rec.id;
6029:
6030: x_tcn_rec := l_def_tcn_rec;
6031: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6032: EXCEPTION
6033: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6034: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6035: (
6029:
6030: x_tcn_rec := l_def_tcn_rec;
6031: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6032: EXCEPTION
6033: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6034: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6035: (
6036: l_api_name,
6037: G_PKG_NAME,
6030: x_tcn_rec := l_def_tcn_rec;
6031: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6032: EXCEPTION
6033: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6034: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6035: (
6036: l_api_name,
6037: G_PKG_NAME,
6038: 'OKC_API.G_RET_STS_ERROR',
6034: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6035: (
6036: l_api_name,
6037: G_PKG_NAME,
6038: 'OKC_API.G_RET_STS_ERROR',
6039: x_msg_count,
6040: x_msg_data,
6041: '_PVT'
6042: );
6039: x_msg_count,
6040: x_msg_data,
6041: '_PVT'
6042: );
6043: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6044: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6045: (
6046: l_api_name,
6047: G_PKG_NAME,
6040: x_msg_data,
6041: '_PVT'
6042: );
6043: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6044: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6045: (
6046: l_api_name,
6047: G_PKG_NAME,
6048: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6044: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6045: (
6046: l_api_name,
6047: G_PKG_NAME,
6048: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6049: x_msg_count,
6050: x_msg_data,
6051: '_PVT'
6052: );
6050: x_msg_data,
6051: '_PVT'
6052: );
6053: WHEN OTHERS THEN
6054: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6055: (
6056: l_api_name,
6057: G_PKG_NAME,
6058: 'OTHERS',
6074: x_tcnv_rec OUT NOCOPY tcnv_rec_type) IS
6075:
6076: l_api_version CONSTANT NUMBER := 1;
6077: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
6078: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6079: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
6080: l_def_tcnv_rec tcnv_rec_type;
6081: l_tcn_rec tcn_rec_type;
6082: lx_tcn_rec tcn_rec_type;
6101: x_tcnv_rec OUT NOCOPY tcnv_rec_type
6102: ) RETURN VARCHAR2 IS
6103: l_tcnv_rec tcnv_rec_type;
6104: l_row_notfound BOOLEAN := TRUE;
6105: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6106: BEGIN
6107: x_tcnv_rec := p_tcnv_rec;
6108: -- Get current database values
6109: l_tcnv_rec := get_rec(p_tcnv_rec, l_row_notfound);
6107: x_tcnv_rec := p_tcnv_rec;
6108: -- Get current database values
6109: l_tcnv_rec := get_rec(p_tcnv_rec, l_row_notfound);
6110: IF (l_row_notfound) THEN
6111: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
6112: END IF;
6113: IF (x_tcnv_rec.id = Okc_Api.G_MISS_NUM)
6114: THEN
6115: x_tcnv_rec.id := l_tcnv_rec.id;
6109: l_tcnv_rec := get_rec(p_tcnv_rec, l_row_notfound);
6110: IF (l_row_notfound) THEN
6111: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
6112: END IF;
6113: IF (x_tcnv_rec.id = Okc_Api.G_MISS_NUM)
6114: THEN
6115: x_tcnv_rec.id := l_tcnv_rec.id;
6116: END IF;
6117: IF (x_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM)
6113: IF (x_tcnv_rec.id = Okc_Api.G_MISS_NUM)
6114: THEN
6115: x_tcnv_rec.id := l_tcnv_rec.id;
6116: END IF;
6117: IF (x_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM)
6118: THEN
6119: x_tcnv_rec.object_version_number := l_tcnv_rec.object_version_number;
6120: END IF;
6121: IF (x_tcnv_rec.rbr_code = Okc_Api.G_MISS_CHAR)
6117: IF (x_tcnv_rec.object_version_number = Okc_Api.G_MISS_NUM)
6118: THEN
6119: x_tcnv_rec.object_version_number := l_tcnv_rec.object_version_number;
6120: END IF;
6121: IF (x_tcnv_rec.rbr_code = Okc_Api.G_MISS_CHAR)
6122: THEN
6123: x_tcnv_rec.rbr_code := l_tcnv_rec.rbr_code;
6124: END IF;
6125: IF (x_tcnv_rec.rpy_code = Okc_Api.G_MISS_CHAR)
6121: IF (x_tcnv_rec.rbr_code = Okc_Api.G_MISS_CHAR)
6122: THEN
6123: x_tcnv_rec.rbr_code := l_tcnv_rec.rbr_code;
6124: END IF;
6125: IF (x_tcnv_rec.rpy_code = Okc_Api.G_MISS_CHAR)
6126: THEN
6127: x_tcnv_rec.rpy_code := l_tcnv_rec.rpy_code;
6128: END IF;
6129: IF (x_tcnv_rec.rvn_code = Okc_Api.G_MISS_CHAR)
6125: IF (x_tcnv_rec.rpy_code = Okc_Api.G_MISS_CHAR)
6126: THEN
6127: x_tcnv_rec.rpy_code := l_tcnv_rec.rpy_code;
6128: END IF;
6129: IF (x_tcnv_rec.rvn_code = Okc_Api.G_MISS_CHAR)
6130: THEN
6131: x_tcnv_rec.rvn_code := l_tcnv_rec.rvn_code;
6132: END IF;
6133: IF (x_tcnv_rec.trn_code = Okc_Api.G_MISS_CHAR)
6129: IF (x_tcnv_rec.rvn_code = Okc_Api.G_MISS_CHAR)
6130: THEN
6131: x_tcnv_rec.rvn_code := l_tcnv_rec.rvn_code;
6132: END IF;
6133: IF (x_tcnv_rec.trn_code = Okc_Api.G_MISS_CHAR)
6134: THEN
6135: x_tcnv_rec.trn_code := l_tcnv_rec.trn_code;
6136: END IF;
6137: IF (x_tcnv_rec.khr_id_new = Okc_Api.G_MISS_NUM)
6133: IF (x_tcnv_rec.trn_code = Okc_Api.G_MISS_CHAR)
6134: THEN
6135: x_tcnv_rec.trn_code := l_tcnv_rec.trn_code;
6136: END IF;
6137: IF (x_tcnv_rec.khr_id_new = Okc_Api.G_MISS_NUM)
6138: THEN
6139: x_tcnv_rec.khr_id_new := l_tcnv_rec.khr_id_new;
6140: END IF;
6141: IF (x_tcnv_rec.pvn_id = Okc_Api.G_MISS_NUM)
6137: IF (x_tcnv_rec.khr_id_new = Okc_Api.G_MISS_NUM)
6138: THEN
6139: x_tcnv_rec.khr_id_new := l_tcnv_rec.khr_id_new;
6140: END IF;
6141: IF (x_tcnv_rec.pvn_id = Okc_Api.G_MISS_NUM)
6142: THEN
6143: x_tcnv_rec.pvn_id := l_tcnv_rec.pvn_id;
6144: END IF;
6145: IF (x_tcnv_rec.pdt_id = Okc_Api.G_MISS_NUM)
6141: IF (x_tcnv_rec.pvn_id = Okc_Api.G_MISS_NUM)
6142: THEN
6143: x_tcnv_rec.pvn_id := l_tcnv_rec.pvn_id;
6144: END IF;
6145: IF (x_tcnv_rec.pdt_id = Okc_Api.G_MISS_NUM)
6146: THEN
6147: x_tcnv_rec.pdt_id := l_tcnv_rec.pdt_id;
6148: END IF;
6149: IF (x_tcnv_rec.qte_id = Okc_Api.G_MISS_NUM)
6145: IF (x_tcnv_rec.pdt_id = Okc_Api.G_MISS_NUM)
6146: THEN
6147: x_tcnv_rec.pdt_id := l_tcnv_rec.pdt_id;
6148: END IF;
6149: IF (x_tcnv_rec.qte_id = Okc_Api.G_MISS_NUM)
6150: THEN
6151: x_tcnv_rec.qte_id := l_tcnv_rec.qte_id;
6152: END IF;
6153: IF (x_tcnv_rec.aes_id = Okc_Api.G_MISS_NUM)
6149: IF (x_tcnv_rec.qte_id = Okc_Api.G_MISS_NUM)
6150: THEN
6151: x_tcnv_rec.qte_id := l_tcnv_rec.qte_id;
6152: END IF;
6153: IF (x_tcnv_rec.aes_id = Okc_Api.G_MISS_NUM)
6154: THEN
6155: x_tcnv_rec.aes_id := l_tcnv_rec.aes_id;
6156: END IF;
6157: IF (x_tcnv_rec.code_combination_id = Okc_Api.G_MISS_NUM)
6153: IF (x_tcnv_rec.aes_id = Okc_Api.G_MISS_NUM)
6154: THEN
6155: x_tcnv_rec.aes_id := l_tcnv_rec.aes_id;
6156: END IF;
6157: IF (x_tcnv_rec.code_combination_id = Okc_Api.G_MISS_NUM)
6158: THEN
6159: x_tcnv_rec.code_combination_id := l_tcnv_rec.code_combination_id;
6160: END IF;
6161: IF (x_tcnv_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
6157: IF (x_tcnv_rec.code_combination_id = Okc_Api.G_MISS_NUM)
6158: THEN
6159: x_tcnv_rec.code_combination_id := l_tcnv_rec.code_combination_id;
6160: END IF;
6161: IF (x_tcnv_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
6162: THEN
6163: x_tcnv_rec.tax_deductible_local := l_tcnv_rec.tax_deductible_local;
6164: END IF;
6165: IF (x_tcnv_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
6161: IF (x_tcnv_rec.tax_deductible_local = Okc_Api.G_MISS_CHAR)
6162: THEN
6163: x_tcnv_rec.tax_deductible_local := l_tcnv_rec.tax_deductible_local;
6164: END IF;
6165: IF (x_tcnv_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
6166: THEN
6167: x_tcnv_rec.tax_deductible_corporate := l_tcnv_rec.tax_deductible_corporate;
6168: END IF;
6169: IF (x_tcnv_rec.date_accrual = Okc_Api.G_MISS_DATE)
6165: IF (x_tcnv_rec.tax_deductible_corporate = Okc_Api.G_MISS_CHAR)
6166: THEN
6167: x_tcnv_rec.tax_deductible_corporate := l_tcnv_rec.tax_deductible_corporate;
6168: END IF;
6169: IF (x_tcnv_rec.date_accrual = Okc_Api.G_MISS_DATE)
6170: THEN
6171: x_tcnv_rec.date_accrual := l_tcnv_rec.date_accrual;
6172: END IF;
6173: IF (x_tcnv_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
6169: IF (x_tcnv_rec.date_accrual = Okc_Api.G_MISS_DATE)
6170: THEN
6171: x_tcnv_rec.date_accrual := l_tcnv_rec.date_accrual;
6172: END IF;
6173: IF (x_tcnv_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
6174: THEN
6175: x_tcnv_rec.accrual_status_yn := l_tcnv_rec.accrual_status_yn;
6176: END IF;
6177: IF (x_tcnv_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
6173: IF (x_tcnv_rec.accrual_status_yn = Okc_Api.G_MISS_CHAR)
6174: THEN
6175: x_tcnv_rec.accrual_status_yn := l_tcnv_rec.accrual_status_yn;
6176: END IF;
6177: IF (x_tcnv_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
6178: THEN
6179: x_tcnv_rec.update_status_yn := l_tcnv_rec.update_status_yn;
6180: END IF;
6181: IF (x_tcnv_rec.amount = Okc_Api.G_MISS_NUM)
6177: IF (x_tcnv_rec.update_status_yn = Okc_Api.G_MISS_CHAR)
6178: THEN
6179: x_tcnv_rec.update_status_yn := l_tcnv_rec.update_status_yn;
6180: END IF;
6181: IF (x_tcnv_rec.amount = Okc_Api.G_MISS_NUM)
6182: THEN
6183: x_tcnv_rec.amount := l_tcnv_rec.amount;
6184: END IF;
6185: IF (x_tcnv_rec.currency_code = Okc_Api.G_MISS_CHAR)
6181: IF (x_tcnv_rec.amount = Okc_Api.G_MISS_NUM)
6182: THEN
6183: x_tcnv_rec.amount := l_tcnv_rec.amount;
6184: END IF;
6185: IF (x_tcnv_rec.currency_code = Okc_Api.G_MISS_CHAR)
6186: THEN
6187: x_tcnv_rec.currency_code := l_tcnv_rec.currency_code;
6188: END IF;
6189: IF (x_tcnv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
6185: IF (x_tcnv_rec.currency_code = Okc_Api.G_MISS_CHAR)
6186: THEN
6187: x_tcnv_rec.currency_code := l_tcnv_rec.currency_code;
6188: END IF;
6189: IF (x_tcnv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
6190: THEN
6191: x_tcnv_rec.attribute_category := l_tcnv_rec.attribute_category;
6192: END IF;
6193: IF (x_tcnv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
6189: IF (x_tcnv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
6190: THEN
6191: x_tcnv_rec.attribute_category := l_tcnv_rec.attribute_category;
6192: END IF;
6193: IF (x_tcnv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
6194: THEN
6195: x_tcnv_rec.attribute1 := l_tcnv_rec.attribute1;
6196: END IF;
6197: IF (x_tcnv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
6193: IF (x_tcnv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
6194: THEN
6195: x_tcnv_rec.attribute1 := l_tcnv_rec.attribute1;
6196: END IF;
6197: IF (x_tcnv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
6198: THEN
6199: x_tcnv_rec.attribute2 := l_tcnv_rec.attribute2;
6200: END IF;
6201: IF (x_tcnv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
6197: IF (x_tcnv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
6198: THEN
6199: x_tcnv_rec.attribute2 := l_tcnv_rec.attribute2;
6200: END IF;
6201: IF (x_tcnv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
6202: THEN
6203: x_tcnv_rec.attribute3 := l_tcnv_rec.attribute3;
6204: END IF;
6205: IF (x_tcnv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
6201: IF (x_tcnv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
6202: THEN
6203: x_tcnv_rec.attribute3 := l_tcnv_rec.attribute3;
6204: END IF;
6205: IF (x_tcnv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
6206: THEN
6207: x_tcnv_rec.attribute4 := l_tcnv_rec.attribute4;
6208: END IF;
6209: IF (x_tcnv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
6205: IF (x_tcnv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
6206: THEN
6207: x_tcnv_rec.attribute4 := l_tcnv_rec.attribute4;
6208: END IF;
6209: IF (x_tcnv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
6210: THEN
6211: x_tcnv_rec.attribute5 := l_tcnv_rec.attribute5;
6212: END IF;
6213: IF (x_tcnv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
6209: IF (x_tcnv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
6210: THEN
6211: x_tcnv_rec.attribute5 := l_tcnv_rec.attribute5;
6212: END IF;
6213: IF (x_tcnv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
6214: THEN
6215: x_tcnv_rec.attribute6 := l_tcnv_rec.attribute6;
6216: END IF;
6217: IF (x_tcnv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
6213: IF (x_tcnv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
6214: THEN
6215: x_tcnv_rec.attribute6 := l_tcnv_rec.attribute6;
6216: END IF;
6217: IF (x_tcnv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
6218: THEN
6219: x_tcnv_rec.attribute7 := l_tcnv_rec.attribute7;
6220: END IF;
6221: IF (x_tcnv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
6217: IF (x_tcnv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
6218: THEN
6219: x_tcnv_rec.attribute7 := l_tcnv_rec.attribute7;
6220: END IF;
6221: IF (x_tcnv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
6222: THEN
6223: x_tcnv_rec.attribute8 := l_tcnv_rec.attribute8;
6224: END IF;
6225: IF (x_tcnv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
6221: IF (x_tcnv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
6222: THEN
6223: x_tcnv_rec.attribute8 := l_tcnv_rec.attribute8;
6224: END IF;
6225: IF (x_tcnv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
6226: THEN
6227: x_tcnv_rec.attribute9 := l_tcnv_rec.attribute9;
6228: END IF;
6229: IF (x_tcnv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
6225: IF (x_tcnv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
6226: THEN
6227: x_tcnv_rec.attribute9 := l_tcnv_rec.attribute9;
6228: END IF;
6229: IF (x_tcnv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
6230: THEN
6231: x_tcnv_rec.attribute10 := l_tcnv_rec.attribute10;
6232: END IF;
6233: IF (x_tcnv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
6229: IF (x_tcnv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
6230: THEN
6231: x_tcnv_rec.attribute10 := l_tcnv_rec.attribute10;
6232: END IF;
6233: IF (x_tcnv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
6234: THEN
6235: x_tcnv_rec.attribute11 := l_tcnv_rec.attribute11;
6236: END IF;
6237: IF (x_tcnv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
6233: IF (x_tcnv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
6234: THEN
6235: x_tcnv_rec.attribute11 := l_tcnv_rec.attribute11;
6236: END IF;
6237: IF (x_tcnv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
6238: THEN
6239: x_tcnv_rec.attribute12 := l_tcnv_rec.attribute12;
6240: END IF;
6241: IF (x_tcnv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
6237: IF (x_tcnv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
6238: THEN
6239: x_tcnv_rec.attribute12 := l_tcnv_rec.attribute12;
6240: END IF;
6241: IF (x_tcnv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
6242: THEN
6243: x_tcnv_rec.attribute13 := l_tcnv_rec.attribute13;
6244: END IF;
6245: IF (x_tcnv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
6241: IF (x_tcnv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
6242: THEN
6243: x_tcnv_rec.attribute13 := l_tcnv_rec.attribute13;
6244: END IF;
6245: IF (x_tcnv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
6246: THEN
6247: x_tcnv_rec.attribute14 := l_tcnv_rec.attribute14;
6248: END IF;
6249: IF (x_tcnv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
6245: IF (x_tcnv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
6246: THEN
6247: x_tcnv_rec.attribute14 := l_tcnv_rec.attribute14;
6248: END IF;
6249: IF (x_tcnv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
6250: THEN
6251: x_tcnv_rec.attribute15 := l_tcnv_rec.attribute15;
6252: END IF;
6253: IF (x_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR)
6249: IF (x_tcnv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
6250: THEN
6251: x_tcnv_rec.attribute15 := l_tcnv_rec.attribute15;
6252: END IF;
6253: IF (x_tcnv_rec.tcn_type = Okc_Api.G_MISS_CHAR)
6254: THEN
6255: x_tcnv_rec.tcn_type := l_tcnv_rec.tcn_type;
6256: END IF;
6257:
6254: THEN
6255: x_tcnv_rec.tcn_type := l_tcnv_rec.tcn_type;
6256: END IF;
6257:
6258: IF (x_tcnv_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
6259: x_tcnv_rec.rjn_code := l_tcnv_rec.rjn_code;
6260: END IF;
6261:
6262: IF (x_tcnv_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
6258: IF (x_tcnv_rec.rjn_code = Okc_Api.G_MISS_CHAR) THEN
6259: x_tcnv_rec.rjn_code := l_tcnv_rec.rjn_code;
6260: END IF;
6261:
6262: IF (x_tcnv_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
6263: x_tcnv_rec.party_rel_id1_old := l_tcnv_rec.party_rel_id1_old;
6264: END IF;
6265:
6266: IF (x_tcnv_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
6262: IF (x_tcnv_rec.party_rel_id1_old = Okc_Api.G_MISS_NUM) THEN
6263: x_tcnv_rec.party_rel_id1_old := l_tcnv_rec.party_rel_id1_old;
6264: END IF;
6265:
6266: IF (x_tcnv_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
6267: x_tcnv_rec.party_rel_id2_old := l_tcnv_rec.party_rel_id2_old;
6268: END IF;
6269:
6270: IF (x_tcnv_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
6266: IF (x_tcnv_rec.party_rel_id2_old = Okc_Api.G_MISS_CHAR) THEN
6267: x_tcnv_rec.party_rel_id2_old := l_tcnv_rec.party_rel_id2_old;
6268: END IF;
6269:
6270: IF (x_tcnv_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
6271: x_tcnv_rec.party_rel_id1_new := l_tcnv_rec.party_rel_id1_new;
6272: END IF;
6273:
6274: IF (x_tcnv_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
6270: IF (x_tcnv_rec.party_rel_id1_new = Okc_Api.G_MISS_NUM) THEN
6271: x_tcnv_rec.party_rel_id1_new := l_tcnv_rec.party_rel_id1_new;
6272: END IF;
6273:
6274: IF (x_tcnv_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
6275: x_tcnv_rec.party_rel_id2_new := l_tcnv_rec.party_rel_id2_new;
6276: END IF;
6277:
6278: IF (x_tcnv_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
6274: IF (x_tcnv_rec.party_rel_id2_new = Okc_Api.G_MISS_CHAR) THEN
6275: x_tcnv_rec.party_rel_id2_new := l_tcnv_rec.party_rel_id2_new;
6276: END IF;
6277:
6278: IF (x_tcnv_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
6279: x_tcnv_rec.complete_transfer_yn := l_tcnv_rec.complete_transfer_yn;
6280: END IF;
6281:
6282: IF (x_tcnv_rec.org_id = Okc_Api.G_MISS_NUM)
6278: IF (x_tcnv_rec.complete_transfer_yn = Okc_Api.G_MISS_CHAR) THEN
6279: x_tcnv_rec.complete_transfer_yn := l_tcnv_rec.complete_transfer_yn;
6280: END IF;
6281:
6282: IF (x_tcnv_rec.org_id = Okc_Api.G_MISS_NUM)
6283: THEN
6284: x_tcnv_rec.org_id := l_tcnv_rec.org_id;
6285: END IF;
6286: IF (x_tcnv_rec.khr_id = Okc_Api.G_MISS_NUM)
6282: IF (x_tcnv_rec.org_id = Okc_Api.G_MISS_NUM)
6283: THEN
6284: x_tcnv_rec.org_id := l_tcnv_rec.org_id;
6285: END IF;
6286: IF (x_tcnv_rec.khr_id = Okc_Api.G_MISS_NUM)
6287: THEN
6288: x_tcnv_rec.khr_id := l_tcnv_rec.khr_id;
6289: END IF;
6290: IF (x_tcnv_rec.request_id = Okc_Api.G_MISS_NUM)
6286: IF (x_tcnv_rec.khr_id = Okc_Api.G_MISS_NUM)
6287: THEN
6288: x_tcnv_rec.khr_id := l_tcnv_rec.khr_id;
6289: END IF;
6290: IF (x_tcnv_rec.request_id = Okc_Api.G_MISS_NUM)
6291: THEN
6292: x_tcnv_rec.request_id := l_tcnv_rec.request_id;
6293: END IF;
6294: IF (x_tcnv_rec.program_application_id = Okc_Api.G_MISS_NUM)
6290: IF (x_tcnv_rec.request_id = Okc_Api.G_MISS_NUM)
6291: THEN
6292: x_tcnv_rec.request_id := l_tcnv_rec.request_id;
6293: END IF;
6294: IF (x_tcnv_rec.program_application_id = Okc_Api.G_MISS_NUM)
6295: THEN
6296: x_tcnv_rec.program_application_id := l_tcnv_rec.program_application_id;
6297: END IF;
6298: IF (x_tcnv_rec.khr_id_old = Okc_Api.G_MISS_NUM)
6294: IF (x_tcnv_rec.program_application_id = Okc_Api.G_MISS_NUM)
6295: THEN
6296: x_tcnv_rec.program_application_id := l_tcnv_rec.program_application_id;
6297: END IF;
6298: IF (x_tcnv_rec.khr_id_old = Okc_Api.G_MISS_NUM)
6299: THEN
6300: x_tcnv_rec.khr_id_old := l_tcnv_rec.khr_id_old;
6301: END IF;
6302: IF (x_tcnv_rec.program_id = Okc_Api.G_MISS_NUM)
6298: IF (x_tcnv_rec.khr_id_old = Okc_Api.G_MISS_NUM)
6299: THEN
6300: x_tcnv_rec.khr_id_old := l_tcnv_rec.khr_id_old;
6301: END IF;
6302: IF (x_tcnv_rec.program_id = Okc_Api.G_MISS_NUM)
6303: THEN
6304: x_tcnv_rec.program_id := l_tcnv_rec.program_id;
6305: END IF;
6306: IF (x_tcnv_rec.program_update_date = Okc_Api.G_MISS_DATE)
6302: IF (x_tcnv_rec.program_id = Okc_Api.G_MISS_NUM)
6303: THEN
6304: x_tcnv_rec.program_id := l_tcnv_rec.program_id;
6305: END IF;
6306: IF (x_tcnv_rec.program_update_date = Okc_Api.G_MISS_DATE)
6307: THEN
6308: x_tcnv_rec.program_update_date := l_tcnv_rec.program_update_date;
6309: END IF;
6310: IF (x_tcnv_rec.created_by = Okc_Api.G_MISS_NUM)
6306: IF (x_tcnv_rec.program_update_date = Okc_Api.G_MISS_DATE)
6307: THEN
6308: x_tcnv_rec.program_update_date := l_tcnv_rec.program_update_date;
6309: END IF;
6310: IF (x_tcnv_rec.created_by = Okc_Api.G_MISS_NUM)
6311: THEN
6312: x_tcnv_rec.created_by := l_tcnv_rec.created_by;
6313: END IF;
6314: IF (x_tcnv_rec.creation_date = Okc_Api.G_MISS_DATE)
6310: IF (x_tcnv_rec.created_by = Okc_Api.G_MISS_NUM)
6311: THEN
6312: x_tcnv_rec.created_by := l_tcnv_rec.created_by;
6313: END IF;
6314: IF (x_tcnv_rec.creation_date = Okc_Api.G_MISS_DATE)
6315: THEN
6316: x_tcnv_rec.creation_date := l_tcnv_rec.creation_date;
6317: END IF;
6318: IF (x_tcnv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
6314: IF (x_tcnv_rec.creation_date = Okc_Api.G_MISS_DATE)
6315: THEN
6316: x_tcnv_rec.creation_date := l_tcnv_rec.creation_date;
6317: END IF;
6318: IF (x_tcnv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
6319: THEN
6320: x_tcnv_rec.last_updated_by := l_tcnv_rec.last_updated_by;
6321: END IF;
6322: IF (x_tcnv_rec.last_update_date = Okc_Api.G_MISS_DATE)
6318: IF (x_tcnv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
6319: THEN
6320: x_tcnv_rec.last_updated_by := l_tcnv_rec.last_updated_by;
6321: END IF;
6322: IF (x_tcnv_rec.last_update_date = Okc_Api.G_MISS_DATE)
6323: THEN
6324: x_tcnv_rec.last_update_date := l_tcnv_rec.last_update_date;
6325: END IF;
6326: IF (x_tcnv_rec.last_update_login = Okc_Api.G_MISS_NUM)
6322: IF (x_tcnv_rec.last_update_date = Okc_Api.G_MISS_DATE)
6323: THEN
6324: x_tcnv_rec.last_update_date := l_tcnv_rec.last_update_date;
6325: END IF;
6326: IF (x_tcnv_rec.last_update_login = Okc_Api.G_MISS_NUM)
6327: THEN
6328: x_tcnv_rec.last_update_login := l_tcnv_rec.last_update_login;
6329: END IF;
6330:
6327: THEN
6328: x_tcnv_rec.last_update_login := l_tcnv_rec.last_update_login;
6329: END IF;
6330:
6331: IF (x_tcnv_rec.try_id = Okc_Api.G_MISS_NUM)
6332: THEN
6333: x_tcnv_rec.try_id := l_tcnv_rec.try_id;
6334: END IF;
6335: IF (x_tcnv_rec.tsu_code = Okc_Api.G_MISS_CHAR)
6331: IF (x_tcnv_rec.try_id = Okc_Api.G_MISS_NUM)
6332: THEN
6333: x_tcnv_rec.try_id := l_tcnv_rec.try_id;
6334: END IF;
6335: IF (x_tcnv_rec.tsu_code = Okc_Api.G_MISS_CHAR)
6336: THEN
6337: x_tcnv_rec.tsu_code := l_tcnv_rec.tsu_code;
6338: END IF;
6339: IF (x_tcnv_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
6335: IF (x_tcnv_rec.tsu_code = Okc_Api.G_MISS_CHAR)
6336: THEN
6337: x_tcnv_rec.tsu_code := l_tcnv_rec.tsu_code;
6338: END IF;
6339: IF (x_tcnv_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
6340: THEN
6341: x_tcnv_rec.set_of_books_id := l_tcnv_rec.set_of_books_id;
6342: END IF;
6343: IF (x_tcnv_rec.description = Okc_Api.G_MISS_CHAR)
6339: IF (x_tcnv_rec.set_of_books_id = Okc_Api.G_MISS_NUM)
6340: THEN
6341: x_tcnv_rec.set_of_books_id := l_tcnv_rec.set_of_books_id;
6342: END IF;
6343: IF (x_tcnv_rec.description = Okc_Api.G_MISS_CHAR)
6344: THEN
6345: x_tcnv_rec.description := l_tcnv_rec.description;
6346: END IF;
6347: IF (x_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE)
6343: IF (x_tcnv_rec.description = Okc_Api.G_MISS_CHAR)
6344: THEN
6345: x_tcnv_rec.description := l_tcnv_rec.description;
6346: END IF;
6347: IF (x_tcnv_rec.date_transaction_occurred = Okc_Api.G_MISS_DATE)
6348: THEN
6349: x_tcnv_rec.date_transaction_occurred := l_tcnv_rec.date_transaction_occurred;
6350: END IF;
6351:
6348: THEN
6349: x_tcnv_rec.date_transaction_occurred := l_tcnv_rec.date_transaction_occurred;
6350: END IF;
6351:
6352: IF (x_tcnv_rec.trx_number = Okc_Api.G_MISS_CHAR)
6353: THEN
6354: x_tcnv_rec.trx_number := l_tcnv_rec.trx_number;
6355: END IF;
6356:
6353: THEN
6354: x_tcnv_rec.trx_number := l_tcnv_rec.trx_number;
6355: END IF;
6356:
6357: IF (x_tcnv_rec.tmt_evergreen_yn = Okc_Api.G_MISS_CHAR) THEN
6358: x_tcnv_rec.tmt_evergreen_yn := l_tcnv_rec.tmt_evergreen_yn;
6359: END IF;
6360:
6361: IF (x_tcnv_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR) THEN
6357: IF (x_tcnv_rec.tmt_evergreen_yn = Okc_Api.G_MISS_CHAR) THEN
6358: x_tcnv_rec.tmt_evergreen_yn := l_tcnv_rec.tmt_evergreen_yn;
6359: END IF;
6360:
6361: IF (x_tcnv_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR) THEN
6362: x_tcnv_rec.tmt_close_balances_yn := l_tcnv_rec.tmt_close_balances_yn;
6363: END IF;
6364:
6365: IF (x_tcnv_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR) THEN
6361: IF (x_tcnv_rec.tmt_close_balances_yn = Okc_Api.G_MISS_CHAR) THEN
6362: x_tcnv_rec.tmt_close_balances_yn := l_tcnv_rec.tmt_close_balances_yn;
6363: END IF;
6364:
6365: IF (x_tcnv_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR) THEN
6366: x_tcnv_rec.tmt_accounting_entries_yn := l_tcnv_rec.tmt_accounting_entries_yn;
6367: END IF;
6368:
6369: IF (x_tcnv_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR) THEN
6365: IF (x_tcnv_rec.tmt_accounting_entries_yn = Okc_Api.G_MISS_CHAR) THEN
6366: x_tcnv_rec.tmt_accounting_entries_yn := l_tcnv_rec.tmt_accounting_entries_yn;
6367: END IF;
6368:
6369: IF (x_tcnv_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR) THEN
6370: x_tcnv_rec.tmt_cancel_insurance_yn := l_tcnv_rec.tmt_cancel_insurance_yn;
6371: END IF;
6372:
6373: IF (x_tcnv_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR) THEN
6369: IF (x_tcnv_rec.tmt_cancel_insurance_yn = Okc_Api.G_MISS_CHAR) THEN
6370: x_tcnv_rec.tmt_cancel_insurance_yn := l_tcnv_rec.tmt_cancel_insurance_yn;
6371: END IF;
6372:
6373: IF (x_tcnv_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR) THEN
6374: x_tcnv_rec.tmt_asset_disposition_yn := l_tcnv_rec.tmt_asset_disposition_yn;
6375: END IF;
6376:
6377: IF (x_tcnv_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR) THEN
6373: IF (x_tcnv_rec.tmt_asset_disposition_yn = Okc_Api.G_MISS_CHAR) THEN
6374: x_tcnv_rec.tmt_asset_disposition_yn := l_tcnv_rec.tmt_asset_disposition_yn;
6375: END IF;
6376:
6377: IF (x_tcnv_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR) THEN
6378: x_tcnv_rec.tmt_amortization_yn := l_tcnv_rec.tmt_amortization_yn;
6379: END IF;
6380:
6381: IF (x_tcnv_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR) THEN
6377: IF (x_tcnv_rec.tmt_amortization_yn = Okc_Api.G_MISS_CHAR) THEN
6378: x_tcnv_rec.tmt_amortization_yn := l_tcnv_rec.tmt_amortization_yn;
6379: END IF;
6380:
6381: IF (x_tcnv_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR) THEN
6382: x_tcnv_rec.tmt_asset_return_yn := l_tcnv_rec.tmt_asset_return_yn;
6383: END IF;
6384:
6385: IF (x_tcnv_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6381: IF (x_tcnv_rec.tmt_asset_return_yn = Okc_Api.G_MISS_CHAR) THEN
6382: x_tcnv_rec.tmt_asset_return_yn := l_tcnv_rec.tmt_asset_return_yn;
6383: END IF;
6384:
6385: IF (x_tcnv_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6386: x_tcnv_rec.tmt_contract_updated_yn := l_tcnv_rec.tmt_contract_updated_yn;
6387: END IF;
6388:
6389: IF (x_tcnv_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR) THEN
6385: IF (x_tcnv_rec.tmt_contract_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6386: x_tcnv_rec.tmt_contract_updated_yn := l_tcnv_rec.tmt_contract_updated_yn;
6387: END IF;
6388:
6389: IF (x_tcnv_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR) THEN
6390: x_tcnv_rec.tmt_recycle_yn := l_tcnv_rec.tmt_recycle_yn;
6391: END IF;
6392:
6393: IF (x_tcnv_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR) THEN
6389: IF (x_tcnv_rec.tmt_recycle_yn = Okc_Api.G_MISS_CHAR) THEN
6390: x_tcnv_rec.tmt_recycle_yn := l_tcnv_rec.tmt_recycle_yn;
6391: END IF;
6392:
6393: IF (x_tcnv_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR) THEN
6394: x_tcnv_rec.tmt_validated_yn := l_tcnv_rec.tmt_validated_yn;
6395: END IF;
6396:
6397: IF (x_tcnv_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6393: IF (x_tcnv_rec.tmt_validated_yn = Okc_Api.G_MISS_CHAR) THEN
6394: x_tcnv_rec.tmt_validated_yn := l_tcnv_rec.tmt_validated_yn;
6395: END IF;
6396:
6397: IF (x_tcnv_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6398: x_tcnv_rec.tmt_streams_updated_yn := l_tcnv_rec.tmt_streams_updated_yn;
6399: END IF;
6400:
6401: IF (x_tcnv_rec.accrual_activity = Okc_Api.G_MISS_CHAR) THEN
6397: IF (x_tcnv_rec.tmt_streams_updated_yn = Okc_Api.G_MISS_CHAR) THEN
6398: x_tcnv_rec.tmt_streams_updated_yn := l_tcnv_rec.tmt_streams_updated_yn;
6399: END IF;
6400:
6401: IF (x_tcnv_rec.accrual_activity = Okc_Api.G_MISS_CHAR) THEN
6402: x_tcnv_rec.accrual_activity := l_tcnv_rec.accrual_activity;
6403: END IF;
6404:
6405: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
6402: x_tcnv_rec.accrual_activity := l_tcnv_rec.accrual_activity;
6403: END IF;
6404:
6405: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
6406: IF (x_tcnv_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
6407: x_tcnv_rec.tmt_split_asset_yn := l_tcnv_rec.tmt_split_asset_yn;
6408: END IF;
6409: IF (x_tcnv_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
6410: x_tcnv_rec.tmt_generic_flag1_yn := l_tcnv_rec.tmt_generic_flag1_yn;
6405: -- Added by Santonyr 11-NOV-2002. Fixed bug 2660517
6406: IF (x_tcnv_rec.tmt_split_asset_yn = Okc_Api.G_MISS_CHAR) THEN
6407: x_tcnv_rec.tmt_split_asset_yn := l_tcnv_rec.tmt_split_asset_yn;
6408: END IF;
6409: IF (x_tcnv_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
6410: x_tcnv_rec.tmt_generic_flag1_yn := l_tcnv_rec.tmt_generic_flag1_yn;
6411: END IF;
6412: IF (x_tcnv_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
6413: x_tcnv_rec.tmt_generic_flag2_yn := l_tcnv_rec.tmt_generic_flag2_yn;
6408: END IF;
6409: IF (x_tcnv_rec.tmt_generic_flag1_yn = Okc_Api.G_MISS_CHAR) THEN
6410: x_tcnv_rec.tmt_generic_flag1_yn := l_tcnv_rec.tmt_generic_flag1_yn;
6411: END IF;
6412: IF (x_tcnv_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
6413: x_tcnv_rec.tmt_generic_flag2_yn := l_tcnv_rec.tmt_generic_flag2_yn;
6414: END IF;
6415: IF (x_tcnv_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
6416: x_tcnv_rec.tmt_generic_flag3_yn := l_tcnv_rec.tmt_generic_flag3_yn;
6411: END IF;
6412: IF (x_tcnv_rec.tmt_generic_flag2_yn = Okc_Api.G_MISS_CHAR) THEN
6413: x_tcnv_rec.tmt_generic_flag2_yn := l_tcnv_rec.tmt_generic_flag2_yn;
6414: END IF;
6415: IF (x_tcnv_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
6416: x_tcnv_rec.tmt_generic_flag3_yn := l_tcnv_rec.tmt_generic_flag3_yn;
6417: END IF;
6418: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
6419: IF (x_tcnv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
6415: IF (x_tcnv_rec.tmt_generic_flag3_yn = Okc_Api.G_MISS_CHAR) THEN
6416: x_tcnv_rec.tmt_generic_flag3_yn := l_tcnv_rec.tmt_generic_flag3_yn;
6417: END IF;
6418: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
6419: IF (x_tcnv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
6420: x_tcnv_rec.currency_conversion_type := l_tcnv_rec.currency_conversion_type;
6421: END IF;
6422: IF (x_tcnv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
6423: x_tcnv_rec.currency_conversion_rate := l_tcnv_rec.currency_conversion_rate;
6418: -- Added by HKPATEL 14-NOV-2002. Multi-Currency Changes
6419: IF (x_tcnv_rec.currency_conversion_type = Okc_Api.G_MISS_CHAR) THEN
6420: x_tcnv_rec.currency_conversion_type := l_tcnv_rec.currency_conversion_type;
6421: END IF;
6422: IF (x_tcnv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
6423: x_tcnv_rec.currency_conversion_rate := l_tcnv_rec.currency_conversion_rate;
6424: END IF;
6425: IF (x_tcnv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
6426: x_tcnv_rec.currency_conversion_date := l_tcnv_rec.currency_conversion_date;
6421: END IF;
6422: IF (x_tcnv_rec.currency_conversion_rate = Okc_Api.G_MISS_NUM) THEN
6423: x_tcnv_rec.currency_conversion_rate := l_tcnv_rec.currency_conversion_rate;
6424: END IF;
6425: IF (x_tcnv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
6426: x_tcnv_rec.currency_conversion_date := l_tcnv_rec.currency_conversion_date;
6427: END IF;
6428: -- Added be Keerthi 04-SEP-2003
6429: IF (x_tcnv_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
6425: IF (x_tcnv_rec.currency_conversion_date = Okc_Api.G_MISS_DATE) THEN
6426: x_tcnv_rec.currency_conversion_date := l_tcnv_rec.currency_conversion_date;
6427: END IF;
6428: -- Added be Keerthi 04-SEP-2003
6429: IF (x_tcnv_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
6430: x_tcnv_rec.chr_id := l_tcnv_rec.chr_id;
6431: END IF;
6432: -- Added be Keerthi for Bug No 3195713
6433: IF (x_tcnv_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
6429: IF (x_tcnv_rec.chr_id = Okc_Api.G_MISS_NUM) THEN
6430: x_tcnv_rec.chr_id := l_tcnv_rec.chr_id;
6431: END IF;
6432: -- Added be Keerthi for Bug No 3195713
6433: IF (x_tcnv_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
6434: x_tcnv_rec.source_trx_id := l_tcnv_rec.source_trx_id;
6435: END IF;
6436:
6437: IF (x_tcnv_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
6433: IF (x_tcnv_rec.source_trx_id = Okc_Api.G_MISS_NUM) THEN
6434: x_tcnv_rec.source_trx_id := l_tcnv_rec.source_trx_id;
6435: END IF;
6436:
6437: IF (x_tcnv_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
6438: x_tcnv_rec.source_trx_type := l_tcnv_rec.source_trx_type;
6439: END IF;
6440:
6441: IF (x_tcnv_rec.canceled_date = Okc_Api.G_MISS_DATE) THEN
6437: IF (x_tcnv_rec.source_trx_type = Okc_Api.G_MISS_CHAR) THEN
6438: x_tcnv_rec.source_trx_type := l_tcnv_rec.source_trx_type;
6439: END IF;
6440:
6441: IF (x_tcnv_rec.canceled_date = Okc_Api.G_MISS_DATE) THEN
6442: x_tcnv_rec.canceled_date := l_tcnv_rec.canceled_date;
6443: END IF;
6444:
6445: --Added by dpsingh for LE Uptake
6509: FUNCTION Set_Attributes (
6510: p_tcnv_rec IN tcnv_rec_type,
6511: x_tcnv_rec OUT NOCOPY tcnv_rec_type
6512: ) RETURN VARCHAR2 IS
6513: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6514: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
6515: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
6516: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
6517: BEGIN
6530:
6531: RETURN(l_return_status);
6532: END Set_Attributes;
6533: BEGIN
6534: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6535: G_PKG_NAME,
6536: p_init_msg_list,
6537: l_api_version,
6538: p_api_version,
6538: p_api_version,
6539: '_PVT',
6540: x_return_status);
6541:
6542: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6543: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6544: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6545: RAISE Okc_Api.G_EXCEPTION_ERROR;
6546: END IF;
6539: '_PVT',
6540: x_return_status);
6541:
6542: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6543: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6544: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6545: RAISE Okc_Api.G_EXCEPTION_ERROR;
6546: END IF;
6547: --- Setting item attributes
6540: x_return_status);
6541:
6542: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6543: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6544: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6545: RAISE Okc_Api.G_EXCEPTION_ERROR;
6546: END IF;
6547: --- Setting item attributes
6548: l_return_status := Set_Attributes(
6541:
6542: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6543: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6544: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6545: RAISE Okc_Api.G_EXCEPTION_ERROR;
6546: END IF;
6547: --- Setting item attributes
6548: l_return_status := Set_Attributes(
6549: p_tcnv_rec, -- IN
6548: l_return_status := Set_Attributes(
6549: p_tcnv_rec, -- IN
6550: l_tcnv_rec); -- OUT
6551: --- If any errors happen abort API
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: p_tcnv_rec, -- IN
6550: l_tcnv_rec); -- OUT
6551: --- If any errors happen abort API
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: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6550: l_tcnv_rec); -- OUT
6551: --- If any errors happen abort API
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: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6558: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6551: --- If any errors happen abort API
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: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6558: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6559: 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: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6558: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6559: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6560: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6561: RAISE Okc_Api.G_EXCEPTION_ERROR;
6562: END IF;
6555: RAISE Okc_Api.G_EXCEPTION_ERROR;
6556: END IF;
6557: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6558: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6559: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6560: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6561: RAISE Okc_Api.G_EXCEPTION_ERROR;
6562: END IF;
6563: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
6556: END IF;
6557: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6558: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6559: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6560: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6561: RAISE Okc_Api.G_EXCEPTION_ERROR;
6562: END IF;
6563: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
6564: --- Validate all non-missing attributes (Item Level Validation)
6557: l_return_status := populate_new_record(l_tcnv_rec, l_def_tcnv_rec);
6558: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6559: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6560: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6561: RAISE Okc_Api.G_EXCEPTION_ERROR;
6562: END IF;
6563: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
6564: --- Validate all non-missing attributes (Item Level Validation)
6565: l_return_status := Validate_Attributes(l_def_tcnv_rec);
6563: l_def_tcnv_rec := fill_who_columns(l_def_tcnv_rec);
6564: --- Validate all non-missing attributes (Item Level Validation)
6565: l_return_status := Validate_Attributes(l_def_tcnv_rec);
6566: --- If any errors happen abort API
6567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6568: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6569: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6570: RAISE Okc_Api.G_EXCEPTION_ERROR;
6571: END IF;
6564: --- Validate all non-missing attributes (Item Level Validation)
6565: l_return_status := Validate_Attributes(l_def_tcnv_rec);
6566: --- If any errors happen abort API
6567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6568: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6569: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6570: RAISE Okc_Api.G_EXCEPTION_ERROR;
6571: END IF;
6572: l_return_status := Validate_Record(l_def_tcnv_rec);
6565: l_return_status := Validate_Attributes(l_def_tcnv_rec);
6566: --- If any errors happen abort API
6567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6568: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6569: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6570: RAISE Okc_Api.G_EXCEPTION_ERROR;
6571: END IF;
6572: l_return_status := Validate_Record(l_def_tcnv_rec);
6573: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6566: --- If any errors happen abort API
6567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6568: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6569: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6570: RAISE Okc_Api.G_EXCEPTION_ERROR;
6571: END IF;
6572: l_return_status := Validate_Record(l_def_tcnv_rec);
6573: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6574: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6569: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6570: RAISE Okc_Api.G_EXCEPTION_ERROR;
6571: END IF;
6572: l_return_status := Validate_Record(l_def_tcnv_rec);
6573: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6574: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6576: RAISE Okc_Api.G_EXCEPTION_ERROR;
6577: END IF;
6570: RAISE Okc_Api.G_EXCEPTION_ERROR;
6571: END IF;
6572: l_return_status := Validate_Record(l_def_tcnv_rec);
6573: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6574: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6576: RAISE Okc_Api.G_EXCEPTION_ERROR;
6577: END IF;
6578:
6571: END IF;
6572: l_return_status := Validate_Record(l_def_tcnv_rec);
6573: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6574: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6576: RAISE Okc_Api.G_EXCEPTION_ERROR;
6577: END IF;
6578:
6579: --------------------------------------
6572: l_return_status := Validate_Record(l_def_tcnv_rec);
6573: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6574: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6575: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6576: RAISE Okc_Api.G_EXCEPTION_ERROR;
6577: END IF;
6578:
6579: --------------------------------------
6580: -- Move VIEW record to "Child" records
6590: x_msg_data,
6591: l_tcn_rec,
6592: lx_tcn_rec
6593: );
6594: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6595: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6596: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6597: RAISE Okc_Api.G_EXCEPTION_ERROR;
6598: END IF;
6591: l_tcn_rec,
6592: lx_tcn_rec
6593: );
6594: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6595: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6596: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6597: RAISE Okc_Api.G_EXCEPTION_ERROR;
6598: END IF;
6599: migrate(lx_tcn_rec, l_def_tcnv_rec);
6592: lx_tcn_rec
6593: );
6594: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6595: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6596: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6597: RAISE Okc_Api.G_EXCEPTION_ERROR;
6598: END IF;
6599: migrate(lx_tcn_rec, l_def_tcnv_rec);
6600: x_tcnv_rec := l_def_tcnv_rec;
6593: );
6594: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6595: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6596: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6597: RAISE Okc_Api.G_EXCEPTION_ERROR;
6598: END IF;
6599: migrate(lx_tcn_rec, l_def_tcnv_rec);
6600: x_tcnv_rec := l_def_tcnv_rec;
6601: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6597: RAISE Okc_Api.G_EXCEPTION_ERROR;
6598: END IF;
6599: migrate(lx_tcn_rec, l_def_tcnv_rec);
6600: x_tcnv_rec := l_def_tcnv_rec;
6601: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6602: EXCEPTION
6603: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6604: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6605: (
6599: migrate(lx_tcn_rec, l_def_tcnv_rec);
6600: x_tcnv_rec := l_def_tcnv_rec;
6601: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6602: EXCEPTION
6603: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6604: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6605: (
6606: l_api_name,
6607: G_PKG_NAME,
6600: x_tcnv_rec := l_def_tcnv_rec;
6601: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6602: EXCEPTION
6603: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6604: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6605: (
6606: l_api_name,
6607: G_PKG_NAME,
6608: 'OKC_API.G_RET_STS_ERROR',
6604: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6605: (
6606: l_api_name,
6607: G_PKG_NAME,
6608: 'OKC_API.G_RET_STS_ERROR',
6609: x_msg_count,
6610: x_msg_data,
6611: '_PVT'
6612: );
6609: x_msg_count,
6610: x_msg_data,
6611: '_PVT'
6612: );
6613: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6614: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6615: (
6616: l_api_name,
6617: G_PKG_NAME,
6610: x_msg_data,
6611: '_PVT'
6612: );
6613: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6614: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6615: (
6616: l_api_name,
6617: G_PKG_NAME,
6618: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6614: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6615: (
6616: l_api_name,
6617: G_PKG_NAME,
6618: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6619: x_msg_count,
6620: x_msg_data,
6621: '_PVT'
6622: );
6620: x_msg_data,
6621: '_PVT'
6622: );
6623: WHEN OTHERS THEN
6624: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6625: (
6626: l_api_name,
6627: G_PKG_NAME,
6628: 'OTHERS',
6644: x_tcnv_tbl OUT NOCOPY tcnv_tbl_type) IS
6645:
6646: l_api_version CONSTANT NUMBER := 1;
6647: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
6648: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6649: i NUMBER := 0;
6650: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6651:
6652: BEGIN
6646: l_api_version CONSTANT NUMBER := 1;
6647: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
6648: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6649: i NUMBER := 0;
6650: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6651:
6652: BEGIN
6653: Okc_Api.init_msg_list(p_init_msg_list);
6654: -- Make sure PL/SQL table has records in it before passing
6649: i NUMBER := 0;
6650: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6651:
6652: BEGIN
6653: Okc_Api.init_msg_list(p_init_msg_list);
6654: -- Make sure PL/SQL table has records in it before passing
6655: IF (p_tcnv_tbl.COUNT > 0) THEN
6656: i := p_tcnv_tbl.FIRST;
6657: LOOP
6656: i := p_tcnv_tbl.FIRST;
6657: LOOP
6658: update_row (
6659: p_api_version => p_api_version,
6660: p_init_msg_list => Okc_Api.G_FALSE,
6661: x_return_status => x_return_status,
6662: x_msg_count => x_msg_count,
6663: x_msg_data => x_msg_data,
6664: p_tcnv_rec => p_tcnv_tbl(i),
6664: p_tcnv_rec => p_tcnv_tbl(i),
6665: x_tcnv_rec => x_tcnv_tbl(i));
6666:
6667: -- store the highest degree of error
6668: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
6669: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
6670: l_overall_status := x_return_status;
6671: END IF;
6672: END IF;
6665: x_tcnv_rec => x_tcnv_tbl(i));
6666:
6667: -- store the highest degree of error
6668: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
6669: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
6670: l_overall_status := x_return_status;
6671: END IF;
6672: END IF;
6673:
6678: x_return_status := l_overall_status;
6679:
6680: END IF;
6681: EXCEPTION
6682: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6683: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6684: (
6685: l_api_name,
6686: G_PKG_NAME,
6679:
6680: END IF;
6681: EXCEPTION
6682: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6683: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6684: (
6685: l_api_name,
6686: G_PKG_NAME,
6687: 'OKC_API.G_RET_STS_ERROR',
6683: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6684: (
6685: l_api_name,
6686: G_PKG_NAME,
6687: 'OKC_API.G_RET_STS_ERROR',
6688: x_msg_count,
6689: x_msg_data,
6690: '_PVT'
6691: );
6688: x_msg_count,
6689: x_msg_data,
6690: '_PVT'
6691: );
6692: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6693: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6694: (
6695: l_api_name,
6696: G_PKG_NAME,
6689: x_msg_data,
6690: '_PVT'
6691: );
6692: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6693: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6694: (
6695: l_api_name,
6696: G_PKG_NAME,
6697: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6693: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6694: (
6695: l_api_name,
6696: G_PKG_NAME,
6697: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6698: x_msg_count,
6699: x_msg_data,
6700: '_PVT'
6701: );
6699: x_msg_data,
6700: '_PVT'
6701: );
6702: WHEN OTHERS THEN
6703: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6704: (
6705: l_api_name,
6706: G_PKG_NAME,
6707: 'OTHERS',
6725: p_tcn_rec IN tcn_rec_type) IS
6726:
6727: l_api_version CONSTANT NUMBER := 1;
6728: l_api_name CONSTANT VARCHAR2(30) := 'CONTRACTS_delete_row';
6729: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6730: l_tcn_rec tcn_rec_type:= p_tcn_rec;
6731: l_row_notfound BOOLEAN := TRUE;
6732: BEGIN
6733: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6729: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6730: l_tcn_rec tcn_rec_type:= p_tcn_rec;
6731: l_row_notfound BOOLEAN := TRUE;
6732: BEGIN
6733: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6734: p_init_msg_list,
6735: '_PVT',
6736: x_return_status);
6737: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6733: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6734: p_init_msg_list,
6735: '_PVT',
6736: x_return_status);
6737: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6738: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6739: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6740: RAISE Okc_Api.G_EXCEPTION_ERROR;
6741: END IF;
6734: p_init_msg_list,
6735: '_PVT',
6736: x_return_status);
6737: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6738: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6739: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6740: RAISE Okc_Api.G_EXCEPTION_ERROR;
6741: END IF;
6742: DELETE FROM OKL_TRX_CONTRACTS
6735: '_PVT',
6736: x_return_status);
6737: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6738: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6739: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6740: RAISE Okc_Api.G_EXCEPTION_ERROR;
6741: END IF;
6742: DELETE FROM OKL_TRX_CONTRACTS
6743: WHERE ID = l_tcn_rec.id;
6736: x_return_status);
6737: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6738: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6739: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6740: RAISE Okc_Api.G_EXCEPTION_ERROR;
6741: END IF;
6742: DELETE FROM OKL_TRX_CONTRACTS
6743: WHERE ID = l_tcn_rec.id;
6744:
6741: END IF;
6742: DELETE FROM OKL_TRX_CONTRACTS
6743: WHERE ID = l_tcn_rec.id;
6744:
6745: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6746: EXCEPTION
6747: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6748: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6749: (
6743: WHERE ID = l_tcn_rec.id;
6744:
6745: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6746: EXCEPTION
6747: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6748: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6749: (
6750: l_api_name,
6751: G_PKG_NAME,
6744:
6745: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6746: EXCEPTION
6747: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6748: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6749: (
6750: l_api_name,
6751: G_PKG_NAME,
6752: 'OKC_API.G_RET_STS_ERROR',
6748: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6749: (
6750: l_api_name,
6751: G_PKG_NAME,
6752: 'OKC_API.G_RET_STS_ERROR',
6753: x_msg_count,
6754: x_msg_data,
6755: '_PVT'
6756: );
6753: x_msg_count,
6754: x_msg_data,
6755: '_PVT'
6756: );
6757: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6758: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6759: (
6760: l_api_name,
6761: G_PKG_NAME,
6754: x_msg_data,
6755: '_PVT'
6756: );
6757: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6758: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6759: (
6760: l_api_name,
6761: G_PKG_NAME,
6762: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6758: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6759: (
6760: l_api_name,
6761: G_PKG_NAME,
6762: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6763: x_msg_count,
6764: x_msg_data,
6765: '_PVT'
6766: );
6764: x_msg_data,
6765: '_PVT'
6766: );
6767: WHEN OTHERS THEN
6768: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6769: (
6770: l_api_name,
6771: G_PKG_NAME,
6772: 'OTHERS',
6787: p_tcnv_rec IN tcnv_rec_type) IS
6788:
6789: l_api_version CONSTANT NUMBER := 1;
6790: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
6791: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6792: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
6793: l_tcn_rec tcn_rec_type;
6794: BEGIN
6795: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6791: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6792: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
6793: l_tcn_rec tcn_rec_type;
6794: BEGIN
6795: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
6796: G_PKG_NAME,
6797: p_init_msg_list,
6798: l_api_version,
6799: p_api_version,
6798: l_api_version,
6799: p_api_version,
6800: '_PVT',
6801: x_return_status);
6802: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6803: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6804: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6805: RAISE Okc_Api.G_EXCEPTION_ERROR;
6806: END IF;
6799: p_api_version,
6800: '_PVT',
6801: x_return_status);
6802: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6803: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6804: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6805: RAISE Okc_Api.G_EXCEPTION_ERROR;
6806: END IF;
6807: --------------------------------------
6800: '_PVT',
6801: x_return_status);
6802: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6803: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6804: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6805: RAISE Okc_Api.G_EXCEPTION_ERROR;
6806: END IF;
6807: --------------------------------------
6808: -- Move VIEW record to "Child" records
6801: x_return_status);
6802: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6803: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6804: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6805: RAISE Okc_Api.G_EXCEPTION_ERROR;
6806: END IF;
6807: --------------------------------------
6808: -- Move VIEW record to "Child" records
6809: --------------------------------------
6817: x_msg_count,
6818: x_msg_data,
6819: l_tcn_rec
6820: );
6821: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6822: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6823: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6824: RAISE Okc_Api.G_EXCEPTION_ERROR;
6825: END IF;
6818: x_msg_data,
6819: l_tcn_rec
6820: );
6821: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6822: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6823: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6824: RAISE Okc_Api.G_EXCEPTION_ERROR;
6825: END IF;
6826: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6819: l_tcn_rec
6820: );
6821: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6822: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6823: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6824: RAISE Okc_Api.G_EXCEPTION_ERROR;
6825: END IF;
6826: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6827: EXCEPTION
6820: );
6821: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
6822: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6823: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6824: RAISE Okc_Api.G_EXCEPTION_ERROR;
6825: END IF;
6826: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6827: EXCEPTION
6828: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6822: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
6823: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
6824: RAISE Okc_Api.G_EXCEPTION_ERROR;
6825: END IF;
6826: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6827: EXCEPTION
6828: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6829: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6830: (
6824: RAISE Okc_Api.G_EXCEPTION_ERROR;
6825: END IF;
6826: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6827: EXCEPTION
6828: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6829: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6830: (
6831: l_api_name,
6832: G_PKG_NAME,
6825: END IF;
6826: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
6827: EXCEPTION
6828: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6829: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6830: (
6831: l_api_name,
6832: G_PKG_NAME,
6833: 'OKC_API.G_RET_STS_ERROR',
6829: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6830: (
6831: l_api_name,
6832: G_PKG_NAME,
6833: 'OKC_API.G_RET_STS_ERROR',
6834: x_msg_count,
6835: x_msg_data,
6836: '_PVT'
6837: );
6834: x_msg_count,
6835: x_msg_data,
6836: '_PVT'
6837: );
6838: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6839: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6840: (
6841: l_api_name,
6842: G_PKG_NAME,
6835: x_msg_data,
6836: '_PVT'
6837: );
6838: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6839: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6840: (
6841: l_api_name,
6842: G_PKG_NAME,
6843: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6839: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6840: (
6841: l_api_name,
6842: G_PKG_NAME,
6843: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6844: x_msg_count,
6845: x_msg_data,
6846: '_PVT'
6847: );
6845: x_msg_data,
6846: '_PVT'
6847: );
6848: WHEN OTHERS THEN
6849: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6850: (
6851: l_api_name,
6852: G_PKG_NAME,
6853: 'OTHERS',
6868: p_tcnv_tbl IN tcnv_tbl_type) IS
6869:
6870: l_api_version CONSTANT NUMBER := 1;
6871: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
6872: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6873: i NUMBER := 0;
6874: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6875:
6876: BEGIN
6870: l_api_version CONSTANT NUMBER := 1;
6871: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
6872: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6873: i NUMBER := 0;
6874: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6875:
6876: BEGIN
6877: Okc_Api.init_msg_list(p_init_msg_list);
6878: -- Make sure PL/SQL table has records in it before passing
6873: i NUMBER := 0;
6874: l_overall_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
6875:
6876: BEGIN
6877: Okc_Api.init_msg_list(p_init_msg_list);
6878: -- Make sure PL/SQL table has records in it before passing
6879: IF (p_tcnv_tbl.COUNT > 0) THEN
6880: i := p_tcnv_tbl.FIRST;
6881: LOOP
6880: i := p_tcnv_tbl.FIRST;
6881: LOOP
6882: delete_row (
6883: p_api_version => p_api_version,
6884: p_init_msg_list => Okc_Api.G_FALSE,
6885: x_return_status => x_return_status,
6886: x_msg_count => x_msg_count,
6887: x_msg_data => x_msg_data,
6888: p_tcnv_rec => p_tcnv_tbl(i));
6887: x_msg_data => x_msg_data,
6888: p_tcnv_rec => p_tcnv_tbl(i));
6889:
6890: -- store the highest degree of error
6891: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
6892: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
6893: l_overall_status := x_return_status;
6894: END IF;
6895: END IF;
6888: p_tcnv_rec => p_tcnv_tbl(i));
6889:
6890: -- store the highest degree of error
6891: IF x_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
6892: IF l_overall_status <> Okc_Api.G_RET_STS_UNEXP_ERROR THEN
6893: l_overall_status := x_return_status;
6894: END IF;
6895: END IF;
6896:
6901: x_return_status := l_overall_status;
6902:
6903: END IF;
6904: EXCEPTION
6905: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6906: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6907: (
6908: l_api_name,
6909: G_PKG_NAME,
6902:
6903: END IF;
6904: EXCEPTION
6905: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
6906: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6907: (
6908: l_api_name,
6909: G_PKG_NAME,
6910: 'OKC_API.G_RET_STS_ERROR',
6906: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
6907: (
6908: l_api_name,
6909: G_PKG_NAME,
6910: 'OKC_API.G_RET_STS_ERROR',
6911: x_msg_count,
6912: x_msg_data,
6913: '_PVT'
6914: );
6911: x_msg_count,
6912: x_msg_data,
6913: '_PVT'
6914: );
6915: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6916: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6917: (
6918: l_api_name,
6919: G_PKG_NAME,
6912: x_msg_data,
6913: '_PVT'
6914: );
6915: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
6916: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6917: (
6918: l_api_name,
6919: G_PKG_NAME,
6920: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6916: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6917: (
6918: l_api_name,
6919: G_PKG_NAME,
6920: 'OKC_API.G_RET_STS_UNEXP_ERROR',
6921: x_msg_count,
6922: x_msg_data,
6923: '_PVT'
6924: );
6922: x_msg_data,
6923: '_PVT'
6924: );
6925: WHEN OTHERS THEN
6926: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
6927: (
6928: l_api_name,
6929: G_PKG_NAME,
6930: 'OTHERS',