[Home] [Help]
592: p_lsmv_rec IN lsmv_rec_type
593: ) RETURN lsmv_rec_type IS
594: l_lsmv_rec lsmv_rec_type := p_lsmv_rec;
595: BEGIN
596: IF (l_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
597: l_lsmv_rec.object_version_number := NULL;
598: END IF;
599: IF (l_lsmv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR) THEN
600: l_lsmv_rec.sfwt_flag := NULL;
595: BEGIN
596: IF (l_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
597: l_lsmv_rec.object_version_number := NULL;
598: END IF;
599: IF (l_lsmv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR) THEN
600: l_lsmv_rec.sfwt_flag := NULL;
601: END IF;
602: IF (l_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM) THEN
603: l_lsmv_rec.lln_id := NULL;
598: END IF;
599: IF (l_lsmv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR) THEN
600: l_lsmv_rec.sfwt_flag := NULL;
601: END IF;
602: IF (l_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM) THEN
603: l_lsmv_rec.lln_id := NULL;
604: END IF;
605: IF (l_lsmv_rec.kle_id = Okc_Api.G_MISS_NUM) THEN
606: l_lsmv_rec.kle_id := NULL;
601: END IF;
602: IF (l_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM) THEN
603: l_lsmv_rec.lln_id := NULL;
604: END IF;
605: IF (l_lsmv_rec.kle_id = Okc_Api.G_MISS_NUM) THEN
606: l_lsmv_rec.kle_id := NULL;
607: END IF;
608: IF (l_lsmv_rec.khr_id = Okc_Api.G_MISS_NUM) THEN
609: l_lsmv_rec.khr_id := NULL;
604: END IF;
605: IF (l_lsmv_rec.kle_id = Okc_Api.G_MISS_NUM) THEN
606: l_lsmv_rec.kle_id := NULL;
607: END IF;
608: IF (l_lsmv_rec.khr_id = Okc_Api.G_MISS_NUM) THEN
609: l_lsmv_rec.khr_id := NULL;
610: END IF;
611: IF (l_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM) THEN
612: l_lsmv_rec.sty_id := NULL;
607: END IF;
608: IF (l_lsmv_rec.khr_id = Okc_Api.G_MISS_NUM) THEN
609: l_lsmv_rec.khr_id := NULL;
610: END IF;
611: IF (l_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM) THEN
612: l_lsmv_rec.sty_id := NULL;
613: END IF;
614: IF (l_lsmv_rec.amount = Okc_Api.G_MISS_NUM) THEN
615: l_lsmv_rec.amount := NULL;
610: END IF;
611: IF (l_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM) THEN
612: l_lsmv_rec.sty_id := NULL;
613: END IF;
614: IF (l_lsmv_rec.amount = Okc_Api.G_MISS_NUM) THEN
615: l_lsmv_rec.amount := NULL;
616: END IF;
617: IF (l_lsmv_rec.receivables_invoice_id = Okc_Api.G_MISS_NUM) THEN
618: l_lsmv_rec.receivables_invoice_id := NULL;
613: END IF;
614: IF (l_lsmv_rec.amount = Okc_Api.G_MISS_NUM) THEN
615: l_lsmv_rec.amount := NULL;
616: END IF;
617: IF (l_lsmv_rec.receivables_invoice_id = Okc_Api.G_MISS_NUM) THEN
618: l_lsmv_rec.receivables_invoice_id := NULL;
619: END IF;
620: IF (l_lsmv_rec.tax_amount = Okc_Api.G_MISS_NUM) THEN
621: l_lsmv_rec.tax_amount := NULL;
616: END IF;
617: IF (l_lsmv_rec.receivables_invoice_id = Okc_Api.G_MISS_NUM) THEN
618: l_lsmv_rec.receivables_invoice_id := NULL;
619: END IF;
620: IF (l_lsmv_rec.tax_amount = Okc_Api.G_MISS_NUM) THEN
621: l_lsmv_rec.tax_amount := NULL;
622: END IF;
623: -- Block Addition
624: IF (l_lsmv_rec.LATE_CHARGE_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
620: IF (l_lsmv_rec.tax_amount = Okc_Api.G_MISS_NUM) THEN
621: l_lsmv_rec.tax_amount := NULL;
622: END IF;
623: -- Block Addition
624: IF (l_lsmv_rec.LATE_CHARGE_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
625: l_lsmv_rec.LATE_CHARGE_ASS_YN := NULL;
626: END IF;
627: IF (l_lsmv_rec.LATE_INT_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
628: l_lsmv_rec.LATE_INT_ASSESS_DATE := NULL;
623: -- Block Addition
624: IF (l_lsmv_rec.LATE_CHARGE_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
625: l_lsmv_rec.LATE_CHARGE_ASS_YN := NULL;
626: END IF;
627: IF (l_lsmv_rec.LATE_INT_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
628: l_lsmv_rec.LATE_INT_ASSESS_DATE := NULL;
629: END IF;
630: IF (l_lsmv_rec.LATE_CHARGE_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
631: l_lsmv_rec.LATE_CHARGE_ASSESS_DATE := NULL;
626: END IF;
627: IF (l_lsmv_rec.LATE_INT_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
628: l_lsmv_rec.LATE_INT_ASSESS_DATE := NULL;
629: END IF;
630: IF (l_lsmv_rec.LATE_CHARGE_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
631: l_lsmv_rec.LATE_CHARGE_ASSESS_DATE := NULL;
632: END IF;
633: IF (l_lsmv_rec.LATE_INT_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
634: l_lsmv_rec.LATE_INT_ASS_YN := NULL;
629: END IF;
630: IF (l_lsmv_rec.LATE_CHARGE_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
631: l_lsmv_rec.LATE_CHARGE_ASSESS_DATE := NULL;
632: END IF;
633: IF (l_lsmv_rec.LATE_INT_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
634: l_lsmv_rec.LATE_INT_ASS_YN := NULL;
635: END IF;
636: -- End Block Addition
637: IF (l_lsmv_rec.pay_status_code = Okc_Api.G_MISS_CHAR) THEN
633: IF (l_lsmv_rec.LATE_INT_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
634: l_lsmv_rec.LATE_INT_ASS_YN := NULL;
635: END IF;
636: -- End Block Addition
637: IF (l_lsmv_rec.pay_status_code = Okc_Api.G_MISS_CHAR) THEN
638: l_lsmv_rec.pay_status_code := NULL;
639: END IF;
640:
641: IF (l_lsmv_rec.date_disbursed = Okc_Api.G_MISS_DATE) THEN
637: IF (l_lsmv_rec.pay_status_code = Okc_Api.G_MISS_CHAR) THEN
638: l_lsmv_rec.pay_status_code := NULL;
639: END IF;
640:
641: IF (l_lsmv_rec.date_disbursed = Okc_Api.G_MISS_DATE) THEN
642: l_lsmv_rec.date_disbursed := NULL;
643: END IF;
644:
645: IF (l_lsmv_rec.investor_disb_status = Okc_Api.G_MISS_CHAR) THEN
641: IF (l_lsmv_rec.date_disbursed = Okc_Api.G_MISS_DATE) THEN
642: l_lsmv_rec.date_disbursed := NULL;
643: END IF;
644:
645: IF (l_lsmv_rec.investor_disb_status = Okc_Api.G_MISS_CHAR) THEN
646: l_lsmv_rec.investor_disb_status := NULL;
647: END IF;
648: IF (l_lsmv_rec.investor_disb_err_mg = Okc_Api.G_MISS_CHAR) THEN
649: l_lsmv_rec.investor_disb_err_mg := NULL;
644:
645: IF (l_lsmv_rec.investor_disb_status = Okc_Api.G_MISS_CHAR) THEN
646: l_lsmv_rec.investor_disb_status := NULL;
647: END IF;
648: IF (l_lsmv_rec.investor_disb_err_mg = Okc_Api.G_MISS_CHAR) THEN
649: l_lsmv_rec.investor_disb_err_mg := NULL;
650: END IF;
651:
652: IF (l_lsmv_rec.sel_id = Okc_Api.G_MISS_NUM) THEN
648: IF (l_lsmv_rec.investor_disb_err_mg = Okc_Api.G_MISS_CHAR) THEN
649: l_lsmv_rec.investor_disb_err_mg := NULL;
650: END IF;
651:
652: IF (l_lsmv_rec.sel_id = Okc_Api.G_MISS_NUM) THEN
653: l_lsmv_rec.sel_id := NULL;
654: END IF;
655:
656: IF (l_lsmv_rec.attribute_category = Okc_Api.G_MISS_CHAR) THEN
652: IF (l_lsmv_rec.sel_id = Okc_Api.G_MISS_NUM) THEN
653: l_lsmv_rec.sel_id := NULL;
654: END IF;
655:
656: IF (l_lsmv_rec.attribute_category = Okc_Api.G_MISS_CHAR) THEN
657: l_lsmv_rec.attribute_category := NULL;
658: END IF;
659: IF (l_lsmv_rec.attribute1 = Okc_Api.G_MISS_CHAR) THEN
660: l_lsmv_rec.attribute1 := NULL;
655:
656: IF (l_lsmv_rec.attribute_category = Okc_Api.G_MISS_CHAR) THEN
657: l_lsmv_rec.attribute_category := NULL;
658: END IF;
659: IF (l_lsmv_rec.attribute1 = Okc_Api.G_MISS_CHAR) THEN
660: l_lsmv_rec.attribute1 := NULL;
661: END IF;
662: IF (l_lsmv_rec.attribute2 = Okc_Api.G_MISS_CHAR) THEN
663: l_lsmv_rec.attribute2 := NULL;
658: END IF;
659: IF (l_lsmv_rec.attribute1 = Okc_Api.G_MISS_CHAR) THEN
660: l_lsmv_rec.attribute1 := NULL;
661: END IF;
662: IF (l_lsmv_rec.attribute2 = Okc_Api.G_MISS_CHAR) THEN
663: l_lsmv_rec.attribute2 := NULL;
664: END IF;
665: IF (l_lsmv_rec.attribute3 = Okc_Api.G_MISS_CHAR) THEN
666: l_lsmv_rec.attribute3 := NULL;
661: END IF;
662: IF (l_lsmv_rec.attribute2 = Okc_Api.G_MISS_CHAR) THEN
663: l_lsmv_rec.attribute2 := NULL;
664: END IF;
665: IF (l_lsmv_rec.attribute3 = Okc_Api.G_MISS_CHAR) THEN
666: l_lsmv_rec.attribute3 := NULL;
667: END IF;
668: IF (l_lsmv_rec.attribute4 = Okc_Api.G_MISS_CHAR) THEN
669: l_lsmv_rec.attribute4 := NULL;
664: END IF;
665: IF (l_lsmv_rec.attribute3 = Okc_Api.G_MISS_CHAR) THEN
666: l_lsmv_rec.attribute3 := NULL;
667: END IF;
668: IF (l_lsmv_rec.attribute4 = Okc_Api.G_MISS_CHAR) THEN
669: l_lsmv_rec.attribute4 := NULL;
670: END IF;
671: IF (l_lsmv_rec.attribute5 = Okc_Api.G_MISS_CHAR) THEN
672: l_lsmv_rec.attribute5 := NULL;
667: END IF;
668: IF (l_lsmv_rec.attribute4 = Okc_Api.G_MISS_CHAR) THEN
669: l_lsmv_rec.attribute4 := NULL;
670: END IF;
671: IF (l_lsmv_rec.attribute5 = Okc_Api.G_MISS_CHAR) THEN
672: l_lsmv_rec.attribute5 := NULL;
673: END IF;
674: IF (l_lsmv_rec.attribute6 = Okc_Api.G_MISS_CHAR) THEN
675: l_lsmv_rec.attribute6 := NULL;
670: END IF;
671: IF (l_lsmv_rec.attribute5 = Okc_Api.G_MISS_CHAR) THEN
672: l_lsmv_rec.attribute5 := NULL;
673: END IF;
674: IF (l_lsmv_rec.attribute6 = Okc_Api.G_MISS_CHAR) THEN
675: l_lsmv_rec.attribute6 := NULL;
676: END IF;
677: IF (l_lsmv_rec.attribute7 = Okc_Api.G_MISS_CHAR) THEN
678: l_lsmv_rec.attribute7 := NULL;
673: END IF;
674: IF (l_lsmv_rec.attribute6 = Okc_Api.G_MISS_CHAR) THEN
675: l_lsmv_rec.attribute6 := NULL;
676: END IF;
677: IF (l_lsmv_rec.attribute7 = Okc_Api.G_MISS_CHAR) THEN
678: l_lsmv_rec.attribute7 := NULL;
679: END IF;
680: IF (l_lsmv_rec.attribute8 = Okc_Api.G_MISS_CHAR) THEN
681: l_lsmv_rec.attribute8 := NULL;
676: END IF;
677: IF (l_lsmv_rec.attribute7 = Okc_Api.G_MISS_CHAR) THEN
678: l_lsmv_rec.attribute7 := NULL;
679: END IF;
680: IF (l_lsmv_rec.attribute8 = Okc_Api.G_MISS_CHAR) THEN
681: l_lsmv_rec.attribute8 := NULL;
682: END IF;
683: IF (l_lsmv_rec.attribute9 = Okc_Api.G_MISS_CHAR) THEN
684: l_lsmv_rec.attribute9 := NULL;
679: END IF;
680: IF (l_lsmv_rec.attribute8 = Okc_Api.G_MISS_CHAR) THEN
681: l_lsmv_rec.attribute8 := NULL;
682: END IF;
683: IF (l_lsmv_rec.attribute9 = Okc_Api.G_MISS_CHAR) THEN
684: l_lsmv_rec.attribute9 := NULL;
685: END IF;
686: IF (l_lsmv_rec.attribute10 = Okc_Api.G_MISS_CHAR) THEN
687: l_lsmv_rec.attribute10 := NULL;
682: END IF;
683: IF (l_lsmv_rec.attribute9 = Okc_Api.G_MISS_CHAR) THEN
684: l_lsmv_rec.attribute9 := NULL;
685: END IF;
686: IF (l_lsmv_rec.attribute10 = Okc_Api.G_MISS_CHAR) THEN
687: l_lsmv_rec.attribute10 := NULL;
688: END IF;
689: IF (l_lsmv_rec.attribute11 = Okc_Api.G_MISS_CHAR) THEN
690: l_lsmv_rec.attribute11 := NULL;
685: END IF;
686: IF (l_lsmv_rec.attribute10 = Okc_Api.G_MISS_CHAR) THEN
687: l_lsmv_rec.attribute10 := NULL;
688: END IF;
689: IF (l_lsmv_rec.attribute11 = Okc_Api.G_MISS_CHAR) THEN
690: l_lsmv_rec.attribute11 := NULL;
691: END IF;
692: IF (l_lsmv_rec.attribute12 = Okc_Api.G_MISS_CHAR) THEN
693: l_lsmv_rec.attribute12 := NULL;
688: END IF;
689: IF (l_lsmv_rec.attribute11 = Okc_Api.G_MISS_CHAR) THEN
690: l_lsmv_rec.attribute11 := NULL;
691: END IF;
692: IF (l_lsmv_rec.attribute12 = Okc_Api.G_MISS_CHAR) THEN
693: l_lsmv_rec.attribute12 := NULL;
694: END IF;
695: IF (l_lsmv_rec.attribute13 = Okc_Api.G_MISS_CHAR) THEN
696: l_lsmv_rec.attribute13 := NULL;
691: END IF;
692: IF (l_lsmv_rec.attribute12 = Okc_Api.G_MISS_CHAR) THEN
693: l_lsmv_rec.attribute12 := NULL;
694: END IF;
695: IF (l_lsmv_rec.attribute13 = Okc_Api.G_MISS_CHAR) THEN
696: l_lsmv_rec.attribute13 := NULL;
697: END IF;
698: IF (l_lsmv_rec.attribute14 = Okc_Api.G_MISS_CHAR) THEN
699: l_lsmv_rec.attribute14 := NULL;
694: END IF;
695: IF (l_lsmv_rec.attribute13 = Okc_Api.G_MISS_CHAR) THEN
696: l_lsmv_rec.attribute13 := NULL;
697: END IF;
698: IF (l_lsmv_rec.attribute14 = Okc_Api.G_MISS_CHAR) THEN
699: l_lsmv_rec.attribute14 := NULL;
700: END IF;
701: IF (l_lsmv_rec.attribute15 = Okc_Api.G_MISS_CHAR) THEN
702: l_lsmv_rec.attribute15 := NULL;
697: END IF;
698: IF (l_lsmv_rec.attribute14 = Okc_Api.G_MISS_CHAR) THEN
699: l_lsmv_rec.attribute14 := NULL;
700: END IF;
701: IF (l_lsmv_rec.attribute15 = Okc_Api.G_MISS_CHAR) THEN
702: l_lsmv_rec.attribute15 := NULL;
703: END IF;
704: IF (l_lsmv_rec.request_id = Okc_Api.G_MISS_NUM) THEN
705: l_lsmv_rec.request_id := NULL;
700: END IF;
701: IF (l_lsmv_rec.attribute15 = Okc_Api.G_MISS_CHAR) THEN
702: l_lsmv_rec.attribute15 := NULL;
703: END IF;
704: IF (l_lsmv_rec.request_id = Okc_Api.G_MISS_NUM) THEN
705: l_lsmv_rec.request_id := NULL;
706: END IF;
707: IF (l_lsmv_rec.program_application_id = Okc_Api.G_MISS_NUM) THEN
708: l_lsmv_rec.program_application_id := NULL;
703: END IF;
704: IF (l_lsmv_rec.request_id = Okc_Api.G_MISS_NUM) THEN
705: l_lsmv_rec.request_id := NULL;
706: END IF;
707: IF (l_lsmv_rec.program_application_id = Okc_Api.G_MISS_NUM) THEN
708: l_lsmv_rec.program_application_id := NULL;
709: END IF;
710: IF (l_lsmv_rec.program_id = Okc_Api.G_MISS_NUM) THEN
711: l_lsmv_rec.program_id := NULL;
706: END IF;
707: IF (l_lsmv_rec.program_application_id = Okc_Api.G_MISS_NUM) THEN
708: l_lsmv_rec.program_application_id := NULL;
709: END IF;
710: IF (l_lsmv_rec.program_id = Okc_Api.G_MISS_NUM) THEN
711: l_lsmv_rec.program_id := NULL;
712: END IF;
713: IF (l_lsmv_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
714: l_lsmv_rec.program_update_date := NULL;
709: END IF;
710: IF (l_lsmv_rec.program_id = Okc_Api.G_MISS_NUM) THEN
711: l_lsmv_rec.program_id := NULL;
712: END IF;
713: IF (l_lsmv_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
714: l_lsmv_rec.program_update_date := NULL;
715: END IF;
716: IF (l_lsmv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
717: l_lsmv_rec.org_id := NULL;
712: END IF;
713: IF (l_lsmv_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
714: l_lsmv_rec.program_update_date := NULL;
715: END IF;
716: IF (l_lsmv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
717: l_lsmv_rec.org_id := NULL;
718: END IF;
719: IF (l_lsmv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
720: l_lsmv_rec.created_by := NULL;
715: END IF;
716: IF (l_lsmv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
717: l_lsmv_rec.org_id := NULL;
718: END IF;
719: IF (l_lsmv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
720: l_lsmv_rec.created_by := NULL;
721: END IF;
722: IF (l_lsmv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
723: l_lsmv_rec.creation_date := NULL;
718: END IF;
719: IF (l_lsmv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
720: l_lsmv_rec.created_by := NULL;
721: END IF;
722: IF (l_lsmv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
723: l_lsmv_rec.creation_date := NULL;
724: END IF;
725: IF (l_lsmv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
726: l_lsmv_rec.last_updated_by := NULL;
721: END IF;
722: IF (l_lsmv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
723: l_lsmv_rec.creation_date := NULL;
724: END IF;
725: IF (l_lsmv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
726: l_lsmv_rec.last_updated_by := NULL;
727: END IF;
728: IF (l_lsmv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
729: l_lsmv_rec.last_update_date := NULL;
724: END IF;
725: IF (l_lsmv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
726: l_lsmv_rec.last_updated_by := NULL;
727: END IF;
728: IF (l_lsmv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
729: l_lsmv_rec.last_update_date := NULL;
730: END IF;
731: IF (l_lsmv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
732: l_lsmv_rec.last_update_login := NULL;
727: END IF;
728: IF (l_lsmv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
729: l_lsmv_rec.last_update_date := NULL;
730: END IF;
731: IF (l_lsmv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
732: l_lsmv_rec.last_update_login := NULL;
733: END IF;
734: RETURN(l_lsmv_rec);
735: END null_out_defaults;
741: --------------------------------------------------
742: FUNCTION Validate_Attributes (
743: p_lsmv_rec IN lsmv_rec_type
744: ) RETURN VARCHAR2 IS
745: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
746: -- Added 04/19/2001 -- Sunil Mathew
747: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
748:
749: BEGIN
806: l_return_status := x_return_status; -- record that there was an error
807: END IF;
808: END IF;
809:
810: IF p_lsmv_rec.id = Okc_Api.G_MISS_NUM OR
811: p_lsmv_rec.id IS NULL
812: THEN
813: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
814: l_return_status := Okc_Api.G_RET_STS_ERROR;
809:
810: IF p_lsmv_rec.id = Okc_Api.G_MISS_NUM OR
811: p_lsmv_rec.id IS NULL
812: THEN
813: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
814: l_return_status := Okc_Api.G_RET_STS_ERROR;
815: ELSIF p_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
816: p_lsmv_rec.object_version_number IS NULL
817: THEN
810: IF p_lsmv_rec.id = Okc_Api.G_MISS_NUM OR
811: p_lsmv_rec.id IS NULL
812: THEN
813: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
814: l_return_status := Okc_Api.G_RET_STS_ERROR;
815: ELSIF p_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
816: p_lsmv_rec.object_version_number IS NULL
817: THEN
818: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
811: p_lsmv_rec.id IS NULL
812: THEN
813: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
814: l_return_status := Okc_Api.G_RET_STS_ERROR;
815: ELSIF p_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
816: p_lsmv_rec.object_version_number IS NULL
817: THEN
818: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
819: l_return_status := Okc_Api.G_RET_STS_ERROR;
814: l_return_status := Okc_Api.G_RET_STS_ERROR;
815: ELSIF p_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
816: p_lsmv_rec.object_version_number IS NULL
817: THEN
818: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
819: l_return_status := Okc_Api.G_RET_STS_ERROR;
820: ELSIF p_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM OR
821: p_lsmv_rec.lln_id IS NULL
822: THEN
815: ELSIF p_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
816: p_lsmv_rec.object_version_number IS NULL
817: THEN
818: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
819: l_return_status := Okc_Api.G_RET_STS_ERROR;
820: ELSIF p_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM OR
821: p_lsmv_rec.lln_id IS NULL
822: THEN
823: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lln_id');
816: p_lsmv_rec.object_version_number IS NULL
817: THEN
818: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
819: l_return_status := Okc_Api.G_RET_STS_ERROR;
820: ELSIF p_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM OR
821: p_lsmv_rec.lln_id IS NULL
822: THEN
823: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lln_id');
824: l_return_status := Okc_Api.G_RET_STS_ERROR;
819: l_return_status := Okc_Api.G_RET_STS_ERROR;
820: ELSIF p_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM OR
821: p_lsmv_rec.lln_id IS NULL
822: THEN
823: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lln_id');
824: l_return_status := Okc_Api.G_RET_STS_ERROR;
825: ELSIF p_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM OR
826: p_lsmv_rec.sty_id IS NULL
827: THEN
820: ELSIF p_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM OR
821: p_lsmv_rec.lln_id IS NULL
822: THEN
823: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lln_id');
824: l_return_status := Okc_Api.G_RET_STS_ERROR;
825: ELSIF p_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM OR
826: p_lsmv_rec.sty_id IS NULL
827: THEN
828: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sty_id');
821: p_lsmv_rec.lln_id IS NULL
822: THEN
823: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lln_id');
824: l_return_status := Okc_Api.G_RET_STS_ERROR;
825: ELSIF p_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM OR
826: p_lsmv_rec.sty_id IS NULL
827: THEN
828: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sty_id');
829: l_return_status := Okc_Api.G_RET_STS_ERROR;
824: l_return_status := Okc_Api.G_RET_STS_ERROR;
825: ELSIF p_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM OR
826: p_lsmv_rec.sty_id IS NULL
827: THEN
828: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sty_id');
829: l_return_status := Okc_Api.G_RET_STS_ERROR;
830: END IF;
831: RETURN(l_return_status);
832: END Validate_Attributes;
825: ELSIF p_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM OR
826: p_lsmv_rec.sty_id IS NULL
827: THEN
828: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sty_id');
829: l_return_status := Okc_Api.G_RET_STS_ERROR;
830: END IF;
831: RETURN(l_return_status);
832: END Validate_Attributes;
833:
839: ----------------------------------------------
840: FUNCTION Validate_Record (
841: p_lsmv_rec IN lsmv_rec_type
842: ) RETURN VARCHAR2 IS
843: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
844: BEGIN
845: RETURN (l_return_status);
846: END Validate_Record;
847:
982: -- validate_row for:OKL_CNSLD_AR_STRMS_V --
983: -------------------------------------------
984: PROCEDURE validate_row(
985: p_api_version IN NUMBER,
986: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
987: x_return_status OUT NOCOPY VARCHAR2,
988: x_msg_count OUT NOCOPY NUMBER,
989: x_msg_data OUT NOCOPY VARCHAR2,
990: p_lsmv_rec IN lsmv_rec_type) IS
990: p_lsmv_rec IN lsmv_rec_type) IS
991:
992: l_api_version CONSTANT NUMBER := 1;
993: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
994: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
995: l_lsmv_rec lsmv_rec_type := p_lsmv_rec;
996: l_lsm_rec lsm_rec_type;
997: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type;
998: BEGIN
995: l_lsmv_rec lsmv_rec_type := p_lsmv_rec;
996: l_lsm_rec lsm_rec_type;
997: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type;
998: BEGIN
999: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1000: G_PKG_NAME,
1001: p_init_msg_list,
1002: l_api_version,
1003: p_api_version,
1002: l_api_version,
1003: p_api_version,
1004: '_PVT',
1005: x_return_status);
1006: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1009: RAISE Okc_Api.G_EXCEPTION_ERROR;
1010: END IF;
1003: p_api_version,
1004: '_PVT',
1005: x_return_status);
1006: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1009: RAISE Okc_Api.G_EXCEPTION_ERROR;
1010: END IF;
1011: --- Validate all non-missing attributes (Item Level Validation)
1004: '_PVT',
1005: x_return_status);
1006: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1009: RAISE Okc_Api.G_EXCEPTION_ERROR;
1010: END IF;
1011: --- Validate all non-missing attributes (Item Level Validation)
1012: l_return_status := Validate_Attributes(l_lsmv_rec);
1005: x_return_status);
1006: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1007: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1008: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1009: RAISE Okc_Api.G_EXCEPTION_ERROR;
1010: END IF;
1011: --- Validate all non-missing attributes (Item Level Validation)
1012: l_return_status := Validate_Attributes(l_lsmv_rec);
1013: --- If any errors happen abort API
1010: END IF;
1011: --- Validate all non-missing attributes (Item Level Validation)
1012: l_return_status := Validate_Attributes(l_lsmv_rec);
1013: --- If any errors happen abort API
1014: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1015: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1016: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1017: RAISE Okc_Api.G_EXCEPTION_ERROR;
1018: END IF;
1011: --- Validate all non-missing attributes (Item Level Validation)
1012: l_return_status := Validate_Attributes(l_lsmv_rec);
1013: --- If any errors happen abort API
1014: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1015: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1016: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1017: RAISE Okc_Api.G_EXCEPTION_ERROR;
1018: END IF;
1019: l_return_status := Validate_Record(l_lsmv_rec);
1012: l_return_status := Validate_Attributes(l_lsmv_rec);
1013: --- If any errors happen abort API
1014: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1015: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1016: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1017: RAISE Okc_Api.G_EXCEPTION_ERROR;
1018: END IF;
1019: l_return_status := Validate_Record(l_lsmv_rec);
1020: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1013: --- If any errors happen abort API
1014: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1015: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1016: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1017: RAISE Okc_Api.G_EXCEPTION_ERROR;
1018: END IF;
1019: l_return_status := Validate_Record(l_lsmv_rec);
1020: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1016: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1017: RAISE Okc_Api.G_EXCEPTION_ERROR;
1018: END IF;
1019: l_return_status := Validate_Record(l_lsmv_rec);
1020: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1022: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1023: RAISE Okc_Api.G_EXCEPTION_ERROR;
1024: END IF;
1017: RAISE Okc_Api.G_EXCEPTION_ERROR;
1018: END IF;
1019: l_return_status := Validate_Record(l_lsmv_rec);
1020: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1022: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1023: RAISE Okc_Api.G_EXCEPTION_ERROR;
1024: END IF;
1025: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1018: END IF;
1019: l_return_status := Validate_Record(l_lsmv_rec);
1020: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1022: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1023: RAISE Okc_Api.G_EXCEPTION_ERROR;
1024: END IF;
1025: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1026: EXCEPTION
1019: l_return_status := Validate_Record(l_lsmv_rec);
1020: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1022: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1023: RAISE Okc_Api.G_EXCEPTION_ERROR;
1024: END IF;
1025: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1026: EXCEPTION
1027: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1021: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1022: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1023: RAISE Okc_Api.G_EXCEPTION_ERROR;
1024: END IF;
1025: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1026: EXCEPTION
1027: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1028: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1029: (
1023: RAISE Okc_Api.G_EXCEPTION_ERROR;
1024: END IF;
1025: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1026: EXCEPTION
1027: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1028: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1029: (
1030: l_api_name,
1031: G_PKG_NAME,
1024: END IF;
1025: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1026: EXCEPTION
1027: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1028: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1029: (
1030: l_api_name,
1031: G_PKG_NAME,
1032: 'OKC_API.G_RET_STS_ERROR',
1028: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1029: (
1030: l_api_name,
1031: G_PKG_NAME,
1032: 'OKC_API.G_RET_STS_ERROR',
1033: x_msg_count,
1034: x_msg_data,
1035: '_PVT'
1036: );
1033: x_msg_count,
1034: x_msg_data,
1035: '_PVT'
1036: );
1037: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1038: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1039: (
1040: l_api_name,
1041: G_PKG_NAME,
1034: x_msg_data,
1035: '_PVT'
1036: );
1037: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1038: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1039: (
1040: l_api_name,
1041: G_PKG_NAME,
1042: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1038: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1039: (
1040: l_api_name,
1041: G_PKG_NAME,
1042: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1043: x_msg_count,
1044: x_msg_data,
1045: '_PVT'
1046: );
1044: x_msg_data,
1045: '_PVT'
1046: );
1047: WHEN OTHERS THEN
1048: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1049: (
1050: l_api_name,
1051: G_PKG_NAME,
1052: 'OTHERS',
1059: -- PL/SQL TBL validate_row for:LSMV_TBL --
1060: ------------------------------------------
1061: PROCEDURE validate_row(
1062: p_api_version IN NUMBER,
1063: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1064: x_return_status OUT NOCOPY VARCHAR2,
1065: x_msg_count OUT NOCOPY NUMBER,
1066: x_msg_data OUT NOCOPY VARCHAR2,
1067: p_lsmv_tbl IN lsmv_tbl_type) IS
1067: p_lsmv_tbl IN lsmv_tbl_type) IS
1068:
1069: l_api_version CONSTANT NUMBER := 1;
1070: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1071: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1072: -- Begin Post-Generation Change
1073: -- overall error status
1074: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1075: -- End Post-Generation Change
1075: -- End Post-Generation Change
1076:
1077: i NUMBER := 0;
1078: BEGIN
1079: Okc_Api.init_msg_list(p_init_msg_list);
1080: -- Make sure PL/SQL table has records in it before passing
1081: IF (p_lsmv_tbl.COUNT > 0) THEN
1082: i := p_lsmv_tbl.FIRST;
1083: LOOP
1082: i := p_lsmv_tbl.FIRST;
1083: LOOP
1084: validate_row (
1085: p_api_version => p_api_version,
1086: p_init_msg_list => Okc_Api.G_FALSE,
1087: x_return_status => x_return_status,
1088: x_msg_count => x_msg_count,
1089: x_msg_data => x_msg_data,
1090: p_lsmv_rec => p_lsmv_tbl(i));
1105: x_return_status := l_overall_status;
1106: -- End Post-Generation Change
1107: END IF;
1108: EXCEPTION
1109: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1110: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,
1106: -- End Post-Generation Change
1107: END IF;
1108: EXCEPTION
1109: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1110: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,
1114: 'OKC_API.G_RET_STS_ERROR',
1110: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,
1114: 'OKC_API.G_RET_STS_ERROR',
1115: x_msg_count,
1116: x_msg_data,
1117: '_PVT'
1118: );
1115: x_msg_count,
1116: x_msg_data,
1117: '_PVT'
1118: );
1119: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1120: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1116: x_msg_data,
1117: '_PVT'
1118: );
1119: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1120: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1120: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1125: x_msg_count,
1126: x_msg_data,
1127: '_PVT'
1128: );
1126: x_msg_data,
1127: '_PVT'
1128: );
1129: WHEN OTHERS THEN
1130: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1131: (
1132: l_api_name,
1133: G_PKG_NAME,
1134: 'OTHERS',
1144: -----------------------------------------
1145: -- insert_row for:OKL_CNSLD_AR_STRMS_B --
1146: -----------------------------------------
1147: PROCEDURE insert_row(
1148: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1149: x_return_status OUT NOCOPY VARCHAR2,
1150: x_msg_count OUT NOCOPY NUMBER,
1151: x_msg_data OUT NOCOPY VARCHAR2,
1152: p_lsm_rec IN lsm_rec_type,
1153: x_lsm_rec OUT NOCOPY lsm_rec_type) IS
1154:
1155: l_api_version CONSTANT NUMBER := 1;
1156: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1157: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1158: l_lsm_rec lsm_rec_type := p_lsm_rec;
1159: l_def_lsm_rec lsm_rec_type;
1160: ---------------------------------------------
1161: -- Set_Attributes for:OKL_CNSLD_AR_STRMS_B --
1163: FUNCTION Set_Attributes (
1164: p_lsm_rec IN lsm_rec_type,
1165: x_lsm_rec OUT NOCOPY lsm_rec_type
1166: ) RETURN VARCHAR2 IS
1167: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1168: BEGIN
1169: x_lsm_rec := p_lsm_rec;
1170: RETURN(l_return_status);
1171: END Set_Attributes;
1169: x_lsm_rec := p_lsm_rec;
1170: RETURN(l_return_status);
1171: END Set_Attributes;
1172: BEGIN
1173: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1174: p_init_msg_list,
1175: '_PVT',
1176: x_return_status);
1177: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1173: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1174: p_init_msg_list,
1175: '_PVT',
1176: x_return_status);
1177: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1180: RAISE Okc_Api.G_EXCEPTION_ERROR;
1181: END IF;
1174: p_init_msg_list,
1175: '_PVT',
1176: x_return_status);
1177: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1180: RAISE Okc_Api.G_EXCEPTION_ERROR;
1181: END IF;
1182: --- Setting item attributes
1175: '_PVT',
1176: x_return_status);
1177: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1180: RAISE Okc_Api.G_EXCEPTION_ERROR;
1181: END IF;
1182: --- Setting item attributes
1183: l_return_status := Set_Attributes(
1176: x_return_status);
1177: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1179: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1180: RAISE Okc_Api.G_EXCEPTION_ERROR;
1181: END IF;
1182: --- Setting item attributes
1183: l_return_status := Set_Attributes(
1184: p_lsm_rec, -- IN
1183: l_return_status := Set_Attributes(
1184: p_lsm_rec, -- IN
1185: l_lsm_rec); -- OUT
1186: --- If any errors happen abort API
1187: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1188: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1189: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1190: RAISE Okc_Api.G_EXCEPTION_ERROR;
1191: END IF;
1184: p_lsm_rec, -- IN
1185: l_lsm_rec); -- OUT
1186: --- If any errors happen abort API
1187: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1188: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1189: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1190: RAISE Okc_Api.G_EXCEPTION_ERROR;
1191: END IF;
1192: INSERT INTO OKL_CNSLD_AR_STRMS_B(
1185: l_lsm_rec); -- OUT
1186: --- If any errors happen abort API
1187: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1188: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1189: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1190: RAISE Okc_Api.G_EXCEPTION_ERROR;
1191: END IF;
1192: INSERT INTO OKL_CNSLD_AR_STRMS_B(
1193: id,
1186: --- If any errors happen abort API
1187: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1188: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1189: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1190: RAISE Okc_Api.G_EXCEPTION_ERROR;
1191: END IF;
1192: INSERT INTO OKL_CNSLD_AR_STRMS_B(
1193: id,
1194: lln_id,
1280: l_lsm_rec.last_update_date,
1281: l_lsm_rec.last_update_login);
1282: -- Set OUT values
1283: x_lsm_rec := l_lsm_rec;
1284: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1285: EXCEPTION
1286: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1287: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1288: (
1282: -- Set OUT values
1283: x_lsm_rec := l_lsm_rec;
1284: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1285: EXCEPTION
1286: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1287: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1288: (
1289: l_api_name,
1290: G_PKG_NAME,
1283: x_lsm_rec := l_lsm_rec;
1284: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1285: EXCEPTION
1286: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1287: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1288: (
1289: l_api_name,
1290: G_PKG_NAME,
1291: 'OKC_API.G_RET_STS_ERROR',
1287: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1288: (
1289: l_api_name,
1290: G_PKG_NAME,
1291: 'OKC_API.G_RET_STS_ERROR',
1292: x_msg_count,
1293: x_msg_data,
1294: '_PVT'
1295: );
1292: x_msg_count,
1293: x_msg_data,
1294: '_PVT'
1295: );
1296: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1297: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1298: (
1299: l_api_name,
1300: G_PKG_NAME,
1293: x_msg_data,
1294: '_PVT'
1295: );
1296: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1297: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1298: (
1299: l_api_name,
1300: G_PKG_NAME,
1301: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1297: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1298: (
1299: l_api_name,
1300: G_PKG_NAME,
1301: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1302: x_msg_count,
1303: x_msg_data,
1304: '_PVT'
1305: );
1303: x_msg_data,
1304: '_PVT'
1305: );
1306: WHEN OTHERS THEN
1307: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1308: (
1309: l_api_name,
1310: G_PKG_NAME,
1311: 'OTHERS',
1317: ------------------------------------------
1318: -- insert_row for:OKL_CNSLD_AR_STRMS_TL --
1319: ------------------------------------------
1320: PROCEDURE insert_row(
1321: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1322: x_return_status OUT NOCOPY VARCHAR2,
1323: x_msg_count OUT NOCOPY NUMBER,
1324: x_msg_data OUT NOCOPY VARCHAR2,
1325: p_okl_cnsld_ar_strms_tl_rec IN okl_cnsld_ar_strms_tl_rec_type,
1326: x_okl_cnsld_ar_strms_tl_rec OUT NOCOPY okl_cnsld_ar_strms_tl_rec_type) IS
1327:
1328: l_api_version CONSTANT NUMBER := 1;
1329: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1330: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1331: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type := p_okl_cnsld_ar_strms_tl_rec;
1332: ldefoklcnsldarstrmstlrec okl_cnsld_ar_strms_tl_rec_type;
1333: CURSOR get_languages IS
1334: SELECT *
1340: FUNCTION Set_Attributes (
1341: p_okl_cnsld_ar_strms_tl_rec IN okl_cnsld_ar_strms_tl_rec_type,
1342: x_okl_cnsld_ar_strms_tl_rec OUT NOCOPY okl_cnsld_ar_strms_tl_rec_type
1343: ) RETURN VARCHAR2 IS
1344: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1345: BEGIN
1346: x_okl_cnsld_ar_strms_tl_rec := p_okl_cnsld_ar_strms_tl_rec;
1347: x_okl_cnsld_ar_strms_tl_rec.LANGUAGE := USERENV('LANG');
1348: x_okl_cnsld_ar_strms_tl_rec.SOURCE_LANG := USERENV('LANG');
1348: x_okl_cnsld_ar_strms_tl_rec.SOURCE_LANG := USERENV('LANG');
1349: RETURN(l_return_status);
1350: END Set_Attributes;
1351: BEGIN
1352: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1353: p_init_msg_list,
1354: '_PVT',
1355: x_return_status);
1356: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1352: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1353: p_init_msg_list,
1354: '_PVT',
1355: x_return_status);
1356: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1359: RAISE Okc_Api.G_EXCEPTION_ERROR;
1360: END IF;
1353: p_init_msg_list,
1354: '_PVT',
1355: x_return_status);
1356: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1359: RAISE Okc_Api.G_EXCEPTION_ERROR;
1360: END IF;
1361: --- Setting item attributes
1354: '_PVT',
1355: x_return_status);
1356: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1359: RAISE Okc_Api.G_EXCEPTION_ERROR;
1360: END IF;
1361: --- Setting item attributes
1362: l_return_status := Set_Attributes(
1355: x_return_status);
1356: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1357: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1358: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1359: RAISE Okc_Api.G_EXCEPTION_ERROR;
1360: END IF;
1361: --- Setting item attributes
1362: l_return_status := Set_Attributes(
1363: p_okl_cnsld_ar_strms_tl_rec, -- IN
1362: l_return_status := Set_Attributes(
1363: p_okl_cnsld_ar_strms_tl_rec, -- IN
1364: l_okl_cnsld_ar_strms_tl_rec); -- OUT
1365: --- If any errors happen abort API
1366: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1367: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1368: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1369: RAISE Okc_Api.G_EXCEPTION_ERROR;
1370: END IF;
1363: p_okl_cnsld_ar_strms_tl_rec, -- IN
1364: l_okl_cnsld_ar_strms_tl_rec); -- OUT
1365: --- If any errors happen abort API
1366: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1367: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1368: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1369: RAISE Okc_Api.G_EXCEPTION_ERROR;
1370: END IF;
1371: FOR l_lang_rec IN get_languages LOOP
1364: l_okl_cnsld_ar_strms_tl_rec); -- OUT
1365: --- If any errors happen abort API
1366: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1367: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1368: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1369: RAISE Okc_Api.G_EXCEPTION_ERROR;
1370: END IF;
1371: FOR l_lang_rec IN get_languages LOOP
1372: l_okl_cnsld_ar_strms_tl_rec.LANGUAGE := l_lang_rec.language_code;
1365: --- If any errors happen abort API
1366: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1367: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1368: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1369: RAISE Okc_Api.G_EXCEPTION_ERROR;
1370: END IF;
1371: FOR l_lang_rec IN get_languages LOOP
1372: l_okl_cnsld_ar_strms_tl_rec.LANGUAGE := l_lang_rec.language_code;
1373: INSERT INTO OKL_CNSLD_AR_STRMS_TL(
1392: l_okl_cnsld_ar_strms_tl_rec.last_update_login);
1393: END LOOP;
1394: -- Set OUT values
1395: x_okl_cnsld_ar_strms_tl_rec := l_okl_cnsld_ar_strms_tl_rec;
1396: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1397: EXCEPTION
1398: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1399: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1400: (
1394: -- Set OUT values
1395: x_okl_cnsld_ar_strms_tl_rec := l_okl_cnsld_ar_strms_tl_rec;
1396: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1397: EXCEPTION
1398: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1399: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1395: x_okl_cnsld_ar_strms_tl_rec := l_okl_cnsld_ar_strms_tl_rec;
1396: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1397: EXCEPTION
1398: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1399: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1403: 'OKC_API.G_RET_STS_ERROR',
1399: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1400: (
1401: l_api_name,
1402: G_PKG_NAME,
1403: 'OKC_API.G_RET_STS_ERROR',
1404: x_msg_count,
1405: x_msg_data,
1406: '_PVT'
1407: );
1404: x_msg_count,
1405: x_msg_data,
1406: '_PVT'
1407: );
1408: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1409: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1410: (
1411: l_api_name,
1412: G_PKG_NAME,
1405: x_msg_data,
1406: '_PVT'
1407: );
1408: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1409: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1410: (
1411: l_api_name,
1412: G_PKG_NAME,
1413: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1409: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1410: (
1411: l_api_name,
1412: G_PKG_NAME,
1413: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1414: x_msg_count,
1415: x_msg_data,
1416: '_PVT'
1417: );
1415: x_msg_data,
1416: '_PVT'
1417: );
1418: WHEN OTHERS THEN
1419: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1420: (
1421: l_api_name,
1422: G_PKG_NAME,
1423: 'OTHERS',
1430: -- insert_row for:OKL_CNSLD_AR_STRMS_V --
1431: -----------------------------------------
1432: PROCEDURE insert_row(
1433: p_api_version IN NUMBER,
1434: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1435: x_return_status OUT NOCOPY VARCHAR2,
1436: x_msg_count OUT NOCOPY NUMBER,
1437: x_msg_data OUT NOCOPY VARCHAR2,
1438: p_lsmv_rec IN lsmv_rec_type,
1439: x_lsmv_rec OUT NOCOPY lsmv_rec_type) IS
1440:
1441: l_api_version CONSTANT NUMBER := 1;
1442: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1443: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1444: l_lsmv_rec lsmv_rec_type;
1445: l_def_lsmv_rec lsmv_rec_type;
1446: l_lsm_rec lsm_rec_type;
1447: lx_lsm_rec lsm_rec_type;
1468: FUNCTION Set_Attributes (
1469: p_lsmv_rec IN lsmv_rec_type,
1470: x_lsmv_rec OUT NOCOPY lsmv_rec_type
1471: ) RETURN VARCHAR2 IS
1472: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1473: BEGIN
1474: x_lsmv_rec := p_lsmv_rec;
1475: x_lsmv_rec.OBJECT_VERSION_NUMBER := 1;
1476: x_lsmv_rec.SFWT_FLAG := 'N';
1491:
1492: RETURN(l_return_status);
1493: END Set_Attributes;
1494: BEGIN
1495: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1496: G_PKG_NAME,
1497: p_init_msg_list,
1498: l_api_version,
1499: p_api_version,
1498: l_api_version,
1499: p_api_version,
1500: '_PVT',
1501: x_return_status);
1502: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1505: RAISE Okc_Api.G_EXCEPTION_ERROR;
1506: END IF;
1499: p_api_version,
1500: '_PVT',
1501: x_return_status);
1502: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1505: RAISE Okc_Api.G_EXCEPTION_ERROR;
1506: END IF;
1507: l_lsmv_rec := null_out_defaults(p_lsmv_rec);
1500: '_PVT',
1501: x_return_status);
1502: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1505: RAISE Okc_Api.G_EXCEPTION_ERROR;
1506: END IF;
1507: l_lsmv_rec := null_out_defaults(p_lsmv_rec);
1508: -- Set primary key value
1501: x_return_status);
1502: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1505: RAISE Okc_Api.G_EXCEPTION_ERROR;
1506: END IF;
1507: l_lsmv_rec := null_out_defaults(p_lsmv_rec);
1508: -- Set primary key value
1509: l_lsmv_rec.ID := get_seq_id;
1511: l_return_status := Set_Attributes(
1512: l_lsmv_rec, -- IN
1513: l_def_lsmv_rec); -- OUT
1514: --- If any errors happen abort API
1515: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1516: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1517: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1518: RAISE Okc_Api.G_EXCEPTION_ERROR;
1519: END IF;
1512: l_lsmv_rec, -- IN
1513: l_def_lsmv_rec); -- OUT
1514: --- If any errors happen abort API
1515: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1516: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1517: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1518: RAISE Okc_Api.G_EXCEPTION_ERROR;
1519: END IF;
1520: l_def_lsmv_rec := fill_who_columns(l_def_lsmv_rec);
1513: l_def_lsmv_rec); -- OUT
1514: --- If any errors happen abort API
1515: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1516: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1517: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1518: RAISE Okc_Api.G_EXCEPTION_ERROR;
1519: END IF;
1520: l_def_lsmv_rec := fill_who_columns(l_def_lsmv_rec);
1521: --- Validate all non-missing attributes (Item Level Validation)
1514: --- If any errors happen abort API
1515: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1516: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1517: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1518: RAISE Okc_Api.G_EXCEPTION_ERROR;
1519: END IF;
1520: l_def_lsmv_rec := fill_who_columns(l_def_lsmv_rec);
1521: --- Validate all non-missing attributes (Item Level Validation)
1522: l_return_status := Validate_Attributes(l_def_lsmv_rec);
1520: l_def_lsmv_rec := fill_who_columns(l_def_lsmv_rec);
1521: --- Validate all non-missing attributes (Item Level Validation)
1522: l_return_status := Validate_Attributes(l_def_lsmv_rec);
1523: --- If any errors happen abort API
1524: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1527: RAISE Okc_Api.G_EXCEPTION_ERROR;
1528: END IF;
1521: --- Validate all non-missing attributes (Item Level Validation)
1522: l_return_status := Validate_Attributes(l_def_lsmv_rec);
1523: --- If any errors happen abort API
1524: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1527: RAISE Okc_Api.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_lsmv_rec);
1522: l_return_status := Validate_Attributes(l_def_lsmv_rec);
1523: --- If any errors happen abort API
1524: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1527: RAISE Okc_Api.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_lsmv_rec);
1530: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1523: --- If any errors happen abort API
1524: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1527: RAISE Okc_Api.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_lsmv_rec);
1530: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1527: RAISE Okc_Api.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_lsmv_rec);
1530: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1533: RAISE Okc_Api.G_EXCEPTION_ERROR;
1534: END IF;
1527: RAISE Okc_Api.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_lsmv_rec);
1530: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1533: RAISE Okc_Api.G_EXCEPTION_ERROR;
1534: END IF;
1535: --------------------------------------
1528: END IF;
1529: l_return_status := Validate_Record(l_def_lsmv_rec);
1530: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1533: RAISE Okc_Api.G_EXCEPTION_ERROR;
1534: END IF;
1535: --------------------------------------
1536: -- Move VIEW record to "Child" records
1529: l_return_status := Validate_Record(l_def_lsmv_rec);
1530: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1533: RAISE Okc_Api.G_EXCEPTION_ERROR;
1534: END IF;
1535: --------------------------------------
1536: -- Move VIEW record to "Child" records
1537: --------------------------------------
1547: x_msg_data,
1548: l_lsm_rec,
1549: lx_lsm_rec
1550: );
1551: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1552: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1553: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1554: RAISE Okc_Api.G_EXCEPTION_ERROR;
1555: END IF;
1548: l_lsm_rec,
1549: lx_lsm_rec
1550: );
1551: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1552: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1553: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1554: RAISE Okc_Api.G_EXCEPTION_ERROR;
1555: END IF;
1556: migrate(lx_lsm_rec, l_def_lsmv_rec);
1549: lx_lsm_rec
1550: );
1551: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1552: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1553: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1554: RAISE Okc_Api.G_EXCEPTION_ERROR;
1555: END IF;
1556: migrate(lx_lsm_rec, l_def_lsmv_rec);
1557: insert_row(
1550: );
1551: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1552: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1553: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1554: RAISE Okc_Api.G_EXCEPTION_ERROR;
1555: END IF;
1556: migrate(lx_lsm_rec, l_def_lsmv_rec);
1557: insert_row(
1558: p_init_msg_list,
1561: x_msg_data,
1562: l_okl_cnsld_ar_strms_tl_rec,
1563: lx_okl_cnsld_ar_strms_tl_rec
1564: );
1565: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1566: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1567: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1568: RAISE Okc_Api.G_EXCEPTION_ERROR;
1569: END IF;
1562: l_okl_cnsld_ar_strms_tl_rec,
1563: lx_okl_cnsld_ar_strms_tl_rec
1564: );
1565: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1566: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1567: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1568: RAISE Okc_Api.G_EXCEPTION_ERROR;
1569: END IF;
1570: migrate(lx_okl_cnsld_ar_strms_tl_rec, l_def_lsmv_rec);
1563: lx_okl_cnsld_ar_strms_tl_rec
1564: );
1565: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1566: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1567: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1568: RAISE Okc_Api.G_EXCEPTION_ERROR;
1569: END IF;
1570: migrate(lx_okl_cnsld_ar_strms_tl_rec, l_def_lsmv_rec);
1571: -- Set OUT values
1564: );
1565: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1566: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1567: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1568: RAISE Okc_Api.G_EXCEPTION_ERROR;
1569: END IF;
1570: migrate(lx_okl_cnsld_ar_strms_tl_rec, l_def_lsmv_rec);
1571: -- Set OUT values
1572: x_lsmv_rec := l_def_lsmv_rec;
1569: END IF;
1570: migrate(lx_okl_cnsld_ar_strms_tl_rec, l_def_lsmv_rec);
1571: -- Set OUT values
1572: x_lsmv_rec := l_def_lsmv_rec;
1573: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1574: EXCEPTION
1575: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1576: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1577: (
1571: -- Set OUT values
1572: x_lsmv_rec := l_def_lsmv_rec;
1573: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1574: EXCEPTION
1575: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1576: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1577: (
1578: l_api_name,
1579: G_PKG_NAME,
1572: x_lsmv_rec := l_def_lsmv_rec;
1573: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1574: EXCEPTION
1575: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1576: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1577: (
1578: l_api_name,
1579: G_PKG_NAME,
1580: 'OKC_API.G_RET_STS_ERROR',
1576: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1577: (
1578: l_api_name,
1579: G_PKG_NAME,
1580: 'OKC_API.G_RET_STS_ERROR',
1581: x_msg_count,
1582: x_msg_data,
1583: '_PVT'
1584: );
1581: x_msg_count,
1582: x_msg_data,
1583: '_PVT'
1584: );
1585: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1586: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1587: (
1588: l_api_name,
1589: G_PKG_NAME,
1582: x_msg_data,
1583: '_PVT'
1584: );
1585: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1586: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1587: (
1588: l_api_name,
1589: G_PKG_NAME,
1590: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1586: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1587: (
1588: l_api_name,
1589: G_PKG_NAME,
1590: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1591: x_msg_count,
1592: x_msg_data,
1593: '_PVT'
1594: );
1592: x_msg_data,
1593: '_PVT'
1594: );
1595: WHEN OTHERS THEN
1596: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1597: (
1598: l_api_name,
1599: G_PKG_NAME,
1600: 'OTHERS',
1607: -- PL/SQL TBL insert_row for:LSMV_TBL --
1608: ----------------------------------------
1609: PROCEDURE insert_row(
1610: p_api_version IN NUMBER,
1611: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1612: x_return_status OUT NOCOPY VARCHAR2,
1613: x_msg_count OUT NOCOPY NUMBER,
1614: x_msg_data OUT NOCOPY VARCHAR2,
1615: p_lsmv_tbl IN lsmv_tbl_type,
1616: x_lsmv_tbl OUT NOCOPY lsmv_tbl_type) IS
1617:
1618: l_api_version CONSTANT NUMBER := 1;
1619: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1620: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1621: -- Begin Post-Generation Change
1622: -- overall error status
1623: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1624: -- End Post-Generation Change
1624: -- End Post-Generation Change
1625:
1626: i NUMBER := 0;
1627: BEGIN
1628: Okc_Api.init_msg_list(p_init_msg_list);
1629: -- Make sure PL/SQL table has records in it before passing
1630: IF (p_lsmv_tbl.COUNT > 0) THEN
1631: i := p_lsmv_tbl.FIRST;
1632: LOOP
1631: i := p_lsmv_tbl.FIRST;
1632: LOOP
1633: insert_row (
1634: p_api_version => p_api_version,
1635: p_init_msg_list => Okc_Api.G_FALSE,
1636: x_return_status => x_return_status,
1637: x_msg_count => x_msg_count,
1638: x_msg_data => x_msg_data,
1639: p_lsmv_rec => p_lsmv_tbl(i),
1655: -- End Post-Generation Change
1656:
1657: END IF;
1658: EXCEPTION
1659: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1660: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1661: (
1662: l_api_name,
1663: G_PKG_NAME,
1656:
1657: END IF;
1658: EXCEPTION
1659: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1660: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1661: (
1662: l_api_name,
1663: G_PKG_NAME,
1664: 'OKC_API.G_RET_STS_ERROR',
1660: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1661: (
1662: l_api_name,
1663: G_PKG_NAME,
1664: 'OKC_API.G_RET_STS_ERROR',
1665: x_msg_count,
1666: x_msg_data,
1667: '_PVT'
1668: );
1665: x_msg_count,
1666: x_msg_data,
1667: '_PVT'
1668: );
1669: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1670: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1671: (
1672: l_api_name,
1673: G_PKG_NAME,
1666: x_msg_data,
1667: '_PVT'
1668: );
1669: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1670: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1671: (
1672: l_api_name,
1673: G_PKG_NAME,
1674: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1670: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1671: (
1672: l_api_name,
1673: G_PKG_NAME,
1674: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1675: x_msg_count,
1676: x_msg_data,
1677: '_PVT'
1678: );
1676: x_msg_data,
1677: '_PVT'
1678: );
1679: WHEN OTHERS THEN
1680: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1681: (
1682: l_api_name,
1683: G_PKG_NAME,
1684: 'OTHERS',
1694: ---------------------------------------
1695: -- lock_row for:OKL_CNSLD_AR_STRMS_B --
1696: ---------------------------------------
1697: PROCEDURE lock_row(
1698: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1699: x_return_status OUT NOCOPY VARCHAR2,
1700: x_msg_count OUT NOCOPY NUMBER,
1701: x_msg_data OUT NOCOPY VARCHAR2,
1702: p_lsm_rec IN lsm_rec_type) IS
1715: FROM OKL_CNSLD_AR_STRMS_B
1716: WHERE ID = p_lsm_rec.id;
1717: l_api_version CONSTANT NUMBER := 1;
1718: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1719: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1720: l_object_version_number OKL_CNSLD_AR_STRMS_B.OBJECT_VERSION_NUMBER%TYPE;
1721: lc_object_version_number OKL_CNSLD_AR_STRMS_B.OBJECT_VERSION_NUMBER%TYPE;
1722: l_row_notfound BOOLEAN := FALSE;
1723: lc_row_notfound BOOLEAN := FALSE;
1721: lc_object_version_number OKL_CNSLD_AR_STRMS_B.OBJECT_VERSION_NUMBER%TYPE;
1722: l_row_notfound BOOLEAN := FALSE;
1723: lc_row_notfound BOOLEAN := FALSE;
1724: BEGIN
1725: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1726: p_init_msg_list,
1727: '_PVT',
1728: x_return_status);
1729: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1725: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1726: p_init_msg_list,
1727: '_PVT',
1728: x_return_status);
1729: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1730: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1731: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1732: RAISE Okc_Api.G_EXCEPTION_ERROR;
1733: END IF;
1726: p_init_msg_list,
1727: '_PVT',
1728: x_return_status);
1729: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1730: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1731: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1732: RAISE Okc_Api.G_EXCEPTION_ERROR;
1733: END IF;
1734: BEGIN
1727: '_PVT',
1728: x_return_status);
1729: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1730: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1731: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1732: RAISE Okc_Api.G_EXCEPTION_ERROR;
1733: END IF;
1734: BEGIN
1735: OPEN lock_csr(p_lsm_rec);
1728: x_return_status);
1729: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1730: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1731: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1732: RAISE Okc_Api.G_EXCEPTION_ERROR;
1733: END IF;
1734: BEGIN
1735: OPEN lock_csr(p_lsm_rec);
1736: FETCH lock_csr INTO l_object_version_number;
1740: WHEN E_Resource_Busy THEN
1741: IF (lock_csr%ISOPEN) THEN
1742: CLOSE lock_csr;
1743: END IF;
1744: Okc_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1745: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1746: END;
1747:
1748: IF ( l_row_notfound ) THEN
1751: lc_row_notfound := lchk_csr%NOTFOUND;
1752: CLOSE lchk_csr;
1753: END IF;
1754: IF (lc_row_notfound) THEN
1755: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: ELSIF lc_object_version_number > p_lsm_rec.object_version_number THEN
1758: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE Okc_Api.G_EXCEPTION_ERROR;
1752: CLOSE lchk_csr;
1753: END IF;
1754: IF (lc_row_notfound) THEN
1755: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: ELSIF lc_object_version_number > p_lsm_rec.object_version_number THEN
1758: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE Okc_Api.G_EXCEPTION_ERROR;
1760: ELSIF lc_object_version_number <> p_lsm_rec.object_version_number THEN
1754: IF (lc_row_notfound) THEN
1755: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: ELSIF lc_object_version_number > p_lsm_rec.object_version_number THEN
1758: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE Okc_Api.G_EXCEPTION_ERROR;
1760: ELSIF lc_object_version_number <> p_lsm_rec.object_version_number THEN
1761: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1755: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1756: RAISE Okc_Api.G_EXCEPTION_ERROR;
1757: ELSIF lc_object_version_number > p_lsm_rec.object_version_number THEN
1758: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE Okc_Api.G_EXCEPTION_ERROR;
1760: ELSIF lc_object_version_number <> p_lsm_rec.object_version_number THEN
1761: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: ELSIF lc_object_version_number = -1 THEN
1757: ELSIF lc_object_version_number > p_lsm_rec.object_version_number THEN
1758: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE Okc_Api.G_EXCEPTION_ERROR;
1760: ELSIF lc_object_version_number <> p_lsm_rec.object_version_number THEN
1761: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: ELSIF lc_object_version_number = -1 THEN
1764: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1765: RAISE Okc_Api.G_EXCEPTION_ERROR;
1758: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE Okc_Api.G_EXCEPTION_ERROR;
1760: ELSIF lc_object_version_number <> p_lsm_rec.object_version_number THEN
1761: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: ELSIF lc_object_version_number = -1 THEN
1764: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1765: RAISE Okc_Api.G_EXCEPTION_ERROR;
1766: END IF;
1760: ELSIF lc_object_version_number <> p_lsm_rec.object_version_number THEN
1761: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: ELSIF lc_object_version_number = -1 THEN
1764: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1765: RAISE Okc_Api.G_EXCEPTION_ERROR;
1766: END IF;
1767: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1768: EXCEPTION
1761: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1762: RAISE Okc_Api.G_EXCEPTION_ERROR;
1763: ELSIF lc_object_version_number = -1 THEN
1764: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1765: RAISE Okc_Api.G_EXCEPTION_ERROR;
1766: END IF;
1767: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1768: EXCEPTION
1769: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1763: ELSIF lc_object_version_number = -1 THEN
1764: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1765: RAISE Okc_Api.G_EXCEPTION_ERROR;
1766: END IF;
1767: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1768: EXCEPTION
1769: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1770: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1771: (
1765: RAISE Okc_Api.G_EXCEPTION_ERROR;
1766: END IF;
1767: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1768: EXCEPTION
1769: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1770: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1771: (
1772: l_api_name,
1773: G_PKG_NAME,
1766: END IF;
1767: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1768: EXCEPTION
1769: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1770: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1771: (
1772: l_api_name,
1773: G_PKG_NAME,
1774: 'OKC_API.G_RET_STS_ERROR',
1770: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1771: (
1772: l_api_name,
1773: G_PKG_NAME,
1774: 'OKC_API.G_RET_STS_ERROR',
1775: x_msg_count,
1776: x_msg_data,
1777: '_PVT'
1778: );
1775: x_msg_count,
1776: x_msg_data,
1777: '_PVT'
1778: );
1779: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1780: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1781: (
1782: l_api_name,
1783: G_PKG_NAME,
1776: x_msg_data,
1777: '_PVT'
1778: );
1779: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1780: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1781: (
1782: l_api_name,
1783: G_PKG_NAME,
1784: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1780: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1781: (
1782: l_api_name,
1783: G_PKG_NAME,
1784: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1785: x_msg_count,
1786: x_msg_data,
1787: '_PVT'
1788: );
1786: x_msg_data,
1787: '_PVT'
1788: );
1789: WHEN OTHERS THEN
1790: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1791: (
1792: l_api_name,
1793: G_PKG_NAME,
1794: 'OTHERS',
1800: ----------------------------------------
1801: -- lock_row for:OKL_CNSLD_AR_STRMS_TL --
1802: ----------------------------------------
1803: PROCEDURE lock_row(
1804: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1805: x_return_status OUT NOCOPY VARCHAR2,
1806: x_msg_count OUT NOCOPY NUMBER,
1807: x_msg_data OUT NOCOPY VARCHAR2,
1808: p_okl_cnsld_ar_strms_tl_rec IN okl_cnsld_ar_strms_tl_rec_type) IS
1816: FOR UPDATE NOWAIT;
1817:
1818: l_api_version CONSTANT NUMBER := 1;
1819: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1820: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1821: l_lock_var lock_csr%ROWTYPE;
1822: l_row_notfound BOOLEAN := FALSE;
1823: lc_row_notfound BOOLEAN := FALSE;
1824: BEGIN
1821: l_lock_var lock_csr%ROWTYPE;
1822: l_row_notfound BOOLEAN := FALSE;
1823: lc_row_notfound BOOLEAN := FALSE;
1824: BEGIN
1825: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1826: p_init_msg_list,
1827: '_PVT',
1828: x_return_status);
1829: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1825: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1826: p_init_msg_list,
1827: '_PVT',
1828: x_return_status);
1829: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1830: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1831: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1832: RAISE Okc_Api.G_EXCEPTION_ERROR;
1833: END IF;
1826: p_init_msg_list,
1827: '_PVT',
1828: x_return_status);
1829: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1830: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1831: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1832: RAISE Okc_Api.G_EXCEPTION_ERROR;
1833: END IF;
1834: BEGIN
1827: '_PVT',
1828: x_return_status);
1829: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1830: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1831: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1832: RAISE Okc_Api.G_EXCEPTION_ERROR;
1833: END IF;
1834: BEGIN
1835: OPEN lock_csr(p_okl_cnsld_ar_strms_tl_rec);
1828: x_return_status);
1829: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1830: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1831: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1832: RAISE Okc_Api.G_EXCEPTION_ERROR;
1833: END IF;
1834: BEGIN
1835: OPEN lock_csr(p_okl_cnsld_ar_strms_tl_rec);
1836: FETCH lock_csr INTO l_lock_var;
1840: WHEN E_Resource_Busy THEN
1841: IF (lock_csr%ISOPEN) THEN
1842: CLOSE lock_csr;
1843: END IF;
1844: Okc_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1845: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1846: END;
1847:
1848: IF ( l_row_notfound ) THEN
1845: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1846: END;
1847:
1848: IF ( l_row_notfound ) THEN
1849: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1850: RAISE Okc_Api.G_EXCEPTION_ERROR;
1851: END IF;
1852: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1853: EXCEPTION
1846: END;
1847:
1848: IF ( l_row_notfound ) THEN
1849: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1850: RAISE Okc_Api.G_EXCEPTION_ERROR;
1851: END IF;
1852: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1853: EXCEPTION
1854: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1848: IF ( l_row_notfound ) THEN
1849: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1850: RAISE Okc_Api.G_EXCEPTION_ERROR;
1851: END IF;
1852: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1853: EXCEPTION
1854: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1855: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1856: (
1850: RAISE Okc_Api.G_EXCEPTION_ERROR;
1851: END IF;
1852: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1853: EXCEPTION
1854: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1855: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1856: (
1857: l_api_name,
1858: G_PKG_NAME,
1851: END IF;
1852: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1853: EXCEPTION
1854: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1855: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1856: (
1857: l_api_name,
1858: G_PKG_NAME,
1859: 'OKC_API.G_RET_STS_ERROR',
1855: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1856: (
1857: l_api_name,
1858: G_PKG_NAME,
1859: 'OKC_API.G_RET_STS_ERROR',
1860: x_msg_count,
1861: x_msg_data,
1862: '_PVT'
1863: );
1860: x_msg_count,
1861: x_msg_data,
1862: '_PVT'
1863: );
1864: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1865: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1866: (
1867: l_api_name,
1868: G_PKG_NAME,
1861: x_msg_data,
1862: '_PVT'
1863: );
1864: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1865: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1866: (
1867: l_api_name,
1868: G_PKG_NAME,
1869: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1865: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1866: (
1867: l_api_name,
1868: G_PKG_NAME,
1869: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1870: x_msg_count,
1871: x_msg_data,
1872: '_PVT'
1873: );
1871: x_msg_data,
1872: '_PVT'
1873: );
1874: WHEN OTHERS THEN
1875: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1876: (
1877: l_api_name,
1878: G_PKG_NAME,
1879: 'OTHERS',
1886: -- lock_row for:OKL_CNSLD_AR_STRMS_V --
1887: ---------------------------------------
1888: PROCEDURE lock_row(
1889: p_api_version IN NUMBER,
1890: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1891: x_return_status OUT NOCOPY VARCHAR2,
1892: x_msg_count OUT NOCOPY NUMBER,
1893: x_msg_data OUT NOCOPY VARCHAR2,
1894: p_lsmv_rec IN lsmv_rec_type) IS
1894: p_lsmv_rec IN lsmv_rec_type) IS
1895:
1896: l_api_version CONSTANT NUMBER := 1;
1897: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1898: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1899: l_lsm_rec lsm_rec_type;
1900: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type;
1901: BEGIN
1902: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1898: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1899: l_lsm_rec lsm_rec_type;
1900: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type;
1901: BEGIN
1902: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1903: G_PKG_NAME,
1904: p_init_msg_list,
1905: l_api_version,
1906: p_api_version,
1905: l_api_version,
1906: p_api_version,
1907: '_PVT',
1908: x_return_status);
1909: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1910: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1911: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1912: RAISE Okc_Api.G_EXCEPTION_ERROR;
1913: END IF;
1906: p_api_version,
1907: '_PVT',
1908: x_return_status);
1909: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1910: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1911: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1912: RAISE Okc_Api.G_EXCEPTION_ERROR;
1913: END IF;
1914: --------------------------------------
1907: '_PVT',
1908: x_return_status);
1909: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1910: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1911: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1912: RAISE Okc_Api.G_EXCEPTION_ERROR;
1913: END IF;
1914: --------------------------------------
1915: -- Move VIEW record to "Child" records
1908: x_return_status);
1909: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1910: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1911: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1912: RAISE Okc_Api.G_EXCEPTION_ERROR;
1913: END IF;
1914: --------------------------------------
1915: -- Move VIEW record to "Child" records
1916: --------------------------------------
1925: x_msg_count,
1926: x_msg_data,
1927: l_lsm_rec
1928: );
1929: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1930: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1931: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1932: RAISE Okc_Api.G_EXCEPTION_ERROR;
1933: END IF;
1926: x_msg_data,
1927: l_lsm_rec
1928: );
1929: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1930: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1931: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1932: RAISE Okc_Api.G_EXCEPTION_ERROR;
1933: END IF;
1934: lock_row(
1927: l_lsm_rec
1928: );
1929: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1930: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1931: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1932: RAISE Okc_Api.G_EXCEPTION_ERROR;
1933: END IF;
1934: lock_row(
1935: p_init_msg_list,
1928: );
1929: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1930: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1931: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1932: RAISE Okc_Api.G_EXCEPTION_ERROR;
1933: END IF;
1934: lock_row(
1935: p_init_msg_list,
1936: x_return_status,
1937: x_msg_count,
1938: x_msg_data,
1939: l_okl_cnsld_ar_strms_tl_rec
1940: );
1941: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1944: RAISE Okc_Api.G_EXCEPTION_ERROR;
1945: END IF;
1938: x_msg_data,
1939: l_okl_cnsld_ar_strms_tl_rec
1940: );
1941: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1944: RAISE Okc_Api.G_EXCEPTION_ERROR;
1945: END IF;
1946: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1939: l_okl_cnsld_ar_strms_tl_rec
1940: );
1941: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1944: RAISE Okc_Api.G_EXCEPTION_ERROR;
1945: END IF;
1946: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1947: EXCEPTION
1940: );
1941: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1942: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1944: RAISE Okc_Api.G_EXCEPTION_ERROR;
1945: END IF;
1946: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1947: EXCEPTION
1948: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1942: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1943: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1944: RAISE Okc_Api.G_EXCEPTION_ERROR;
1945: END IF;
1946: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1947: EXCEPTION
1948: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1949: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1950: (
1944: RAISE Okc_Api.G_EXCEPTION_ERROR;
1945: END IF;
1946: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1947: EXCEPTION
1948: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1949: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1950: (
1951: l_api_name,
1952: G_PKG_NAME,
1945: END IF;
1946: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1947: EXCEPTION
1948: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1949: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1950: (
1951: l_api_name,
1952: G_PKG_NAME,
1953: 'OKC_API.G_RET_STS_ERROR',
1949: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1950: (
1951: l_api_name,
1952: G_PKG_NAME,
1953: 'OKC_API.G_RET_STS_ERROR',
1954: x_msg_count,
1955: x_msg_data,
1956: '_PVT'
1957: );
1954: x_msg_count,
1955: x_msg_data,
1956: '_PVT'
1957: );
1958: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1959: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1960: (
1961: l_api_name,
1962: G_PKG_NAME,
1955: x_msg_data,
1956: '_PVT'
1957: );
1958: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1959: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1960: (
1961: l_api_name,
1962: G_PKG_NAME,
1963: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1959: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1960: (
1961: l_api_name,
1962: G_PKG_NAME,
1963: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1964: x_msg_count,
1965: x_msg_data,
1966: '_PVT'
1967: );
1965: x_msg_data,
1966: '_PVT'
1967: );
1968: WHEN OTHERS THEN
1969: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1970: (
1971: l_api_name,
1972: G_PKG_NAME,
1973: 'OTHERS',
1980: -- PL/SQL TBL lock_row for:LSMV_TBL --
1981: --------------------------------------
1982: PROCEDURE lock_row(
1983: p_api_version IN NUMBER,
1984: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1985: x_return_status OUT NOCOPY VARCHAR2,
1986: x_msg_count OUT NOCOPY NUMBER,
1987: x_msg_data OUT NOCOPY VARCHAR2,
1988: p_lsmv_tbl IN lsmv_tbl_type) IS
1988: p_lsmv_tbl IN lsmv_tbl_type) IS
1989:
1990: l_api_version CONSTANT NUMBER := 1;
1991: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1992: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1993: -- Begin Post-Generation Change
1994: -- overall error status
1995: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1996: -- End Post-Generation Change
1996: -- End Post-Generation Change
1997:
1998: i NUMBER := 0;
1999: BEGIN
2000: Okc_Api.init_msg_list(p_init_msg_list);
2001: -- Make sure PL/SQL table has records in it before passing
2002: IF (p_lsmv_tbl.COUNT > 0) THEN
2003: i := p_lsmv_tbl.FIRST;
2004: LOOP
2003: i := p_lsmv_tbl.FIRST;
2004: LOOP
2005: lock_row (
2006: p_api_version => p_api_version,
2007: p_init_msg_list => Okc_Api.G_FALSE,
2008: x_return_status => x_return_status,
2009: x_msg_count => x_msg_count,
2010: x_msg_data => x_msg_data,
2011: p_lsmv_rec => p_lsmv_tbl(i));
2027: x_return_status := l_overall_status;
2028: -- End Post-Generation Change
2029: END IF;
2030: EXCEPTION
2031: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2032: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2033: (
2034: l_api_name,
2035: G_PKG_NAME,
2028: -- End Post-Generation Change
2029: END IF;
2030: EXCEPTION
2031: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2032: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2033: (
2034: l_api_name,
2035: G_PKG_NAME,
2036: 'OKC_API.G_RET_STS_ERROR',
2032: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2033: (
2034: l_api_name,
2035: G_PKG_NAME,
2036: 'OKC_API.G_RET_STS_ERROR',
2037: x_msg_count,
2038: x_msg_data,
2039: '_PVT'
2040: );
2037: x_msg_count,
2038: x_msg_data,
2039: '_PVT'
2040: );
2041: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2042: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2043: (
2044: l_api_name,
2045: G_PKG_NAME,
2038: x_msg_data,
2039: '_PVT'
2040: );
2041: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2042: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2043: (
2044: l_api_name,
2045: G_PKG_NAME,
2046: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2042: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2043: (
2044: l_api_name,
2045: G_PKG_NAME,
2046: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2047: x_msg_count,
2048: x_msg_data,
2049: '_PVT'
2050: );
2048: x_msg_data,
2049: '_PVT'
2050: );
2051: WHEN OTHERS THEN
2052: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2053: (
2054: l_api_name,
2055: G_PKG_NAME,
2056: 'OTHERS',
2066: -----------------------------------------
2067: -- update_row for:OKL_CNSLD_AR_STRMS_B --
2068: -----------------------------------------
2069: PROCEDURE update_row(
2070: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2071: x_return_status OUT NOCOPY VARCHAR2,
2072: x_msg_count OUT NOCOPY NUMBER,
2073: x_msg_data OUT NOCOPY VARCHAR2,
2074: p_lsm_rec IN lsm_rec_type,
2075: x_lsm_rec OUT NOCOPY lsm_rec_type) IS
2076:
2077: l_api_version CONSTANT NUMBER := 1;
2078: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2079: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2080: l_lsm_rec lsm_rec_type := p_lsm_rec;
2081: l_def_lsm_rec lsm_rec_type;
2082: l_row_notfound BOOLEAN := TRUE;
2083: ----------------------------------
2088: x_lsm_rec OUT NOCOPY lsm_rec_type
2089: ) RETURN VARCHAR2 IS
2090: l_lsm_rec lsm_rec_type;
2091: l_row_notfound BOOLEAN := TRUE;
2092: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2093: BEGIN
2094: x_lsm_rec := p_lsm_rec;
2095: -- Get current database values
2096: l_lsm_rec := get_rec(p_lsm_rec, l_row_notfound);
2094: x_lsm_rec := p_lsm_rec;
2095: -- Get current database values
2096: l_lsm_rec := get_rec(p_lsm_rec, l_row_notfound);
2097: IF (l_row_notfound) THEN
2098: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2099: END IF;
2100: IF (x_lsm_rec.id = Okc_Api.G_MISS_NUM)
2101: THEN
2102: x_lsm_rec.id := l_lsm_rec.id;
2096: l_lsm_rec := get_rec(p_lsm_rec, l_row_notfound);
2097: IF (l_row_notfound) THEN
2098: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2099: END IF;
2100: IF (x_lsm_rec.id = Okc_Api.G_MISS_NUM)
2101: THEN
2102: x_lsm_rec.id := l_lsm_rec.id;
2103: END IF;
2104: IF (x_lsm_rec.lln_id = Okc_Api.G_MISS_NUM)
2100: IF (x_lsm_rec.id = Okc_Api.G_MISS_NUM)
2101: THEN
2102: x_lsm_rec.id := l_lsm_rec.id;
2103: END IF;
2104: IF (x_lsm_rec.lln_id = Okc_Api.G_MISS_NUM)
2105: THEN
2106: x_lsm_rec.lln_id := l_lsm_rec.lln_id;
2107: END IF;
2108: IF (x_lsm_rec.sty_id = Okc_Api.G_MISS_NUM)
2104: IF (x_lsm_rec.lln_id = Okc_Api.G_MISS_NUM)
2105: THEN
2106: x_lsm_rec.lln_id := l_lsm_rec.lln_id;
2107: END IF;
2108: IF (x_lsm_rec.sty_id = Okc_Api.G_MISS_NUM)
2109: THEN
2110: x_lsm_rec.sty_id := l_lsm_rec.sty_id;
2111: END IF;
2112: IF (x_lsm_rec.kle_id = Okc_Api.G_MISS_NUM)
2108: IF (x_lsm_rec.sty_id = Okc_Api.G_MISS_NUM)
2109: THEN
2110: x_lsm_rec.sty_id := l_lsm_rec.sty_id;
2111: END IF;
2112: IF (x_lsm_rec.kle_id = Okc_Api.G_MISS_NUM)
2113: THEN
2114: x_lsm_rec.kle_id := l_lsm_rec.kle_id;
2115: END IF;
2116: IF (x_lsm_rec.khr_id = Okc_Api.G_MISS_NUM)
2112: IF (x_lsm_rec.kle_id = Okc_Api.G_MISS_NUM)
2113: THEN
2114: x_lsm_rec.kle_id := l_lsm_rec.kle_id;
2115: END IF;
2116: IF (x_lsm_rec.khr_id = Okc_Api.G_MISS_NUM)
2117: THEN
2118: x_lsm_rec.khr_id := l_lsm_rec.khr_id;
2119: END IF;
2120: IF (x_lsm_rec.amount = Okc_Api.G_MISS_NUM)
2116: IF (x_lsm_rec.khr_id = Okc_Api.G_MISS_NUM)
2117: THEN
2118: x_lsm_rec.khr_id := l_lsm_rec.khr_id;
2119: END IF;
2120: IF (x_lsm_rec.amount = Okc_Api.G_MISS_NUM)
2121: THEN
2122: x_lsm_rec.amount := l_lsm_rec.amount;
2123: END IF;
2124: IF (x_lsm_rec.object_version_number = Okc_Api.G_MISS_NUM)
2120: IF (x_lsm_rec.amount = Okc_Api.G_MISS_NUM)
2121: THEN
2122: x_lsm_rec.amount := l_lsm_rec.amount;
2123: END IF;
2124: IF (x_lsm_rec.object_version_number = Okc_Api.G_MISS_NUM)
2125: THEN
2126: x_lsm_rec.object_version_number := l_lsm_rec.object_version_number;
2127: END IF;
2128: IF (x_lsm_rec.receivables_invoice_id = Okc_Api.G_MISS_NUM)
2124: IF (x_lsm_rec.object_version_number = Okc_Api.G_MISS_NUM)
2125: THEN
2126: x_lsm_rec.object_version_number := l_lsm_rec.object_version_number;
2127: END IF;
2128: IF (x_lsm_rec.receivables_invoice_id = Okc_Api.G_MISS_NUM)
2129: THEN
2130: x_lsm_rec.receivables_invoice_id := l_lsm_rec.receivables_invoice_id;
2131: END IF;
2132: IF (x_lsm_rec.request_id = Okc_Api.G_MISS_NUM)
2128: IF (x_lsm_rec.receivables_invoice_id = Okc_Api.G_MISS_NUM)
2129: THEN
2130: x_lsm_rec.receivables_invoice_id := l_lsm_rec.receivables_invoice_id;
2131: END IF;
2132: IF (x_lsm_rec.request_id = Okc_Api.G_MISS_NUM)
2133: THEN
2134: x_lsm_rec.request_id := l_lsm_rec.request_id;
2135: END IF;
2136: IF (x_lsm_rec.program_application_id = Okc_Api.G_MISS_NUM)
2132: IF (x_lsm_rec.request_id = Okc_Api.G_MISS_NUM)
2133: THEN
2134: x_lsm_rec.request_id := l_lsm_rec.request_id;
2135: END IF;
2136: IF (x_lsm_rec.program_application_id = Okc_Api.G_MISS_NUM)
2137: THEN
2138: x_lsm_rec.program_application_id := l_lsm_rec.program_application_id;
2139: END IF;
2140: IF (x_lsm_rec.program_id = Okc_Api.G_MISS_NUM)
2136: IF (x_lsm_rec.program_application_id = Okc_Api.G_MISS_NUM)
2137: THEN
2138: x_lsm_rec.program_application_id := l_lsm_rec.program_application_id;
2139: END IF;
2140: IF (x_lsm_rec.program_id = Okc_Api.G_MISS_NUM)
2141: THEN
2142: x_lsm_rec.program_id := l_lsm_rec.program_id;
2143: END IF;
2144: IF (x_lsm_rec.program_update_date = Okc_Api.G_MISS_DATE)
2140: IF (x_lsm_rec.program_id = Okc_Api.G_MISS_NUM)
2141: THEN
2142: x_lsm_rec.program_id := l_lsm_rec.program_id;
2143: END IF;
2144: IF (x_lsm_rec.program_update_date = Okc_Api.G_MISS_DATE)
2145: THEN
2146: x_lsm_rec.program_update_date := l_lsm_rec.program_update_date;
2147: END IF;
2148: IF (x_lsm_rec.org_id = Okc_Api.G_MISS_NUM)
2144: IF (x_lsm_rec.program_update_date = Okc_Api.G_MISS_DATE)
2145: THEN
2146: x_lsm_rec.program_update_date := l_lsm_rec.program_update_date;
2147: END IF;
2148: IF (x_lsm_rec.org_id = Okc_Api.G_MISS_NUM)
2149: THEN
2150: x_lsm_rec.org_id := l_lsm_rec.org_id;
2151: END IF;
2152: IF (x_lsm_rec.tax_amount = Okc_Api.G_MISS_NUM)
2148: IF (x_lsm_rec.org_id = Okc_Api.G_MISS_NUM)
2149: THEN
2150: x_lsm_rec.org_id := l_lsm_rec.org_id;
2151: END IF;
2152: IF (x_lsm_rec.tax_amount = Okc_Api.G_MISS_NUM)
2153: THEN
2154: x_lsm_rec.tax_amount := l_lsm_rec.tax_amount;
2155: END IF;
2156: -- Block Addition
2153: THEN
2154: x_lsm_rec.tax_amount := l_lsm_rec.tax_amount;
2155: END IF;
2156: -- Block Addition
2157: IF (x_lsm_rec.LATE_CHARGE_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2158: x_lsm_rec.LATE_CHARGE_ASS_YN := NULL;
2159: END IF;
2160: IF (x_lsm_rec.LATE_INT_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2161: x_lsm_rec.LATE_INT_ASSESS_DATE := NULL;
2156: -- Block Addition
2157: IF (x_lsm_rec.LATE_CHARGE_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2158: x_lsm_rec.LATE_CHARGE_ASS_YN := NULL;
2159: END IF;
2160: IF (x_lsm_rec.LATE_INT_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2161: x_lsm_rec.LATE_INT_ASSESS_DATE := NULL;
2162: END IF;
2163: IF (x_lsm_rec.LATE_CHARGE_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2164: x_lsm_rec.LATE_CHARGE_ASSESS_DATE := NULL;
2159: END IF;
2160: IF (x_lsm_rec.LATE_INT_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2161: x_lsm_rec.LATE_INT_ASSESS_DATE := NULL;
2162: END IF;
2163: IF (x_lsm_rec.LATE_CHARGE_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2164: x_lsm_rec.LATE_CHARGE_ASSESS_DATE := NULL;
2165: END IF;
2166: IF (x_lsm_rec.LATE_INT_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2167: x_lsm_rec.LATE_INT_ASS_YN := NULL;
2162: END IF;
2163: IF (x_lsm_rec.LATE_CHARGE_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2164: x_lsm_rec.LATE_CHARGE_ASSESS_DATE := NULL;
2165: END IF;
2166: IF (x_lsm_rec.LATE_INT_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2167: x_lsm_rec.LATE_INT_ASS_YN := NULL;
2168: END IF;
2169: -- End Block Addition
2170: IF (x_lsm_rec.pay_status_code = Okc_Api.G_MISS_CHAR)
2166: IF (x_lsm_rec.LATE_INT_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2167: x_lsm_rec.LATE_INT_ASS_YN := NULL;
2168: END IF;
2169: -- End Block Addition
2170: IF (x_lsm_rec.pay_status_code = Okc_Api.G_MISS_CHAR)
2171: THEN
2172: x_lsm_rec.pay_status_code := l_lsm_rec.pay_status_code;
2173: END IF;
2174:
2171: THEN
2172: x_lsm_rec.pay_status_code := l_lsm_rec.pay_status_code;
2173: END IF;
2174:
2175: IF (x_lsm_rec.DATE_DISBURSED = Okc_Api.G_MISS_DATE) THEN
2176: x_lsm_rec.DATE_DISBURSED := NULL;
2177: END IF;
2178:
2179: IF (x_lsm_rec.investor_disb_status = Okc_Api.G_MISS_CHAR)
2175: IF (x_lsm_rec.DATE_DISBURSED = Okc_Api.G_MISS_DATE) THEN
2176: x_lsm_rec.DATE_DISBURSED := NULL;
2177: END IF;
2178:
2179: IF (x_lsm_rec.investor_disb_status = Okc_Api.G_MISS_CHAR)
2180: THEN
2181: x_lsm_rec.investor_disb_status := l_lsm_rec.investor_disb_status;
2182: END IF;
2183:
2180: THEN
2181: x_lsm_rec.investor_disb_status := l_lsm_rec.investor_disb_status;
2182: END IF;
2183:
2184: IF (x_lsm_rec.investor_disb_err_mg = Okc_Api.G_MISS_CHAR)
2185: THEN
2186: x_lsm_rec.investor_disb_err_mg := l_lsm_rec.investor_disb_err_mg;
2187: END IF;
2188:
2185: THEN
2186: x_lsm_rec.investor_disb_err_mg := l_lsm_rec.investor_disb_err_mg;
2187: END IF;
2188:
2189: IF (x_lsm_rec.sel_id = Okc_Api.G_MISS_NUM)
2190: THEN
2191: x_lsm_rec.sel_id := l_lsm_rec.sel_id;
2192: END IF;
2193:
2190: THEN
2191: x_lsm_rec.sel_id := l_lsm_rec.sel_id;
2192: END IF;
2193:
2194: IF (x_lsm_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2195: THEN
2196: x_lsm_rec.attribute_category := l_lsm_rec.attribute_category;
2197: END IF;
2198: IF (x_lsm_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2194: IF (x_lsm_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2195: THEN
2196: x_lsm_rec.attribute_category := l_lsm_rec.attribute_category;
2197: END IF;
2198: IF (x_lsm_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2199: THEN
2200: x_lsm_rec.attribute1 := l_lsm_rec.attribute1;
2201: END IF;
2202: IF (x_lsm_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2198: IF (x_lsm_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2199: THEN
2200: x_lsm_rec.attribute1 := l_lsm_rec.attribute1;
2201: END IF;
2202: IF (x_lsm_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2203: THEN
2204: x_lsm_rec.attribute2 := l_lsm_rec.attribute2;
2205: END IF;
2206: IF (x_lsm_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2202: IF (x_lsm_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2203: THEN
2204: x_lsm_rec.attribute2 := l_lsm_rec.attribute2;
2205: END IF;
2206: IF (x_lsm_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2207: THEN
2208: x_lsm_rec.attribute3 := l_lsm_rec.attribute3;
2209: END IF;
2210: IF (x_lsm_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2206: IF (x_lsm_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2207: THEN
2208: x_lsm_rec.attribute3 := l_lsm_rec.attribute3;
2209: END IF;
2210: IF (x_lsm_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2211: THEN
2212: x_lsm_rec.attribute4 := l_lsm_rec.attribute4;
2213: END IF;
2214: IF (x_lsm_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2210: IF (x_lsm_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2211: THEN
2212: x_lsm_rec.attribute4 := l_lsm_rec.attribute4;
2213: END IF;
2214: IF (x_lsm_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2215: THEN
2216: x_lsm_rec.attribute5 := l_lsm_rec.attribute5;
2217: END IF;
2218: IF (x_lsm_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2214: IF (x_lsm_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2215: THEN
2216: x_lsm_rec.attribute5 := l_lsm_rec.attribute5;
2217: END IF;
2218: IF (x_lsm_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2219: THEN
2220: x_lsm_rec.attribute6 := l_lsm_rec.attribute6;
2221: END IF;
2222: IF (x_lsm_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2218: IF (x_lsm_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2219: THEN
2220: x_lsm_rec.attribute6 := l_lsm_rec.attribute6;
2221: END IF;
2222: IF (x_lsm_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2223: THEN
2224: x_lsm_rec.attribute7 := l_lsm_rec.attribute7;
2225: END IF;
2226: IF (x_lsm_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2222: IF (x_lsm_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2223: THEN
2224: x_lsm_rec.attribute7 := l_lsm_rec.attribute7;
2225: END IF;
2226: IF (x_lsm_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2227: THEN
2228: x_lsm_rec.attribute8 := l_lsm_rec.attribute8;
2229: END IF;
2230: IF (x_lsm_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2226: IF (x_lsm_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2227: THEN
2228: x_lsm_rec.attribute8 := l_lsm_rec.attribute8;
2229: END IF;
2230: IF (x_lsm_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2231: THEN
2232: x_lsm_rec.attribute9 := l_lsm_rec.attribute9;
2233: END IF;
2234: IF (x_lsm_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2230: IF (x_lsm_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2231: THEN
2232: x_lsm_rec.attribute9 := l_lsm_rec.attribute9;
2233: END IF;
2234: IF (x_lsm_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2235: THEN
2236: x_lsm_rec.attribute10 := l_lsm_rec.attribute10;
2237: END IF;
2238: IF (x_lsm_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2234: IF (x_lsm_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2235: THEN
2236: x_lsm_rec.attribute10 := l_lsm_rec.attribute10;
2237: END IF;
2238: IF (x_lsm_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2239: THEN
2240: x_lsm_rec.attribute11 := l_lsm_rec.attribute11;
2241: END IF;
2242: IF (x_lsm_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2238: IF (x_lsm_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2239: THEN
2240: x_lsm_rec.attribute11 := l_lsm_rec.attribute11;
2241: END IF;
2242: IF (x_lsm_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2243: THEN
2244: x_lsm_rec.attribute12 := l_lsm_rec.attribute12;
2245: END IF;
2246: IF (x_lsm_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2242: IF (x_lsm_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2243: THEN
2244: x_lsm_rec.attribute12 := l_lsm_rec.attribute12;
2245: END IF;
2246: IF (x_lsm_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2247: THEN
2248: x_lsm_rec.attribute13 := l_lsm_rec.attribute13;
2249: END IF;
2250: IF (x_lsm_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2246: IF (x_lsm_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2247: THEN
2248: x_lsm_rec.attribute13 := l_lsm_rec.attribute13;
2249: END IF;
2250: IF (x_lsm_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2251: THEN
2252: x_lsm_rec.attribute14 := l_lsm_rec.attribute14;
2253: END IF;
2254: IF (x_lsm_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2250: IF (x_lsm_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2251: THEN
2252: x_lsm_rec.attribute14 := l_lsm_rec.attribute14;
2253: END IF;
2254: IF (x_lsm_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2255: THEN
2256: x_lsm_rec.attribute15 := l_lsm_rec.attribute15;
2257: END IF;
2258: IF (x_lsm_rec.created_by = Okc_Api.G_MISS_NUM)
2254: IF (x_lsm_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2255: THEN
2256: x_lsm_rec.attribute15 := l_lsm_rec.attribute15;
2257: END IF;
2258: IF (x_lsm_rec.created_by = Okc_Api.G_MISS_NUM)
2259: THEN
2260: x_lsm_rec.created_by := l_lsm_rec.created_by;
2261: END IF;
2262: IF (x_lsm_rec.creation_date = Okc_Api.G_MISS_DATE)
2258: IF (x_lsm_rec.created_by = Okc_Api.G_MISS_NUM)
2259: THEN
2260: x_lsm_rec.created_by := l_lsm_rec.created_by;
2261: END IF;
2262: IF (x_lsm_rec.creation_date = Okc_Api.G_MISS_DATE)
2263: THEN
2264: x_lsm_rec.creation_date := l_lsm_rec.creation_date;
2265: END IF;
2266: IF (x_lsm_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2262: IF (x_lsm_rec.creation_date = Okc_Api.G_MISS_DATE)
2263: THEN
2264: x_lsm_rec.creation_date := l_lsm_rec.creation_date;
2265: END IF;
2266: IF (x_lsm_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2267: THEN
2268: x_lsm_rec.last_updated_by := l_lsm_rec.last_updated_by;
2269: END IF;
2270: IF (x_lsm_rec.last_update_date = Okc_Api.G_MISS_DATE)
2266: IF (x_lsm_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2267: THEN
2268: x_lsm_rec.last_updated_by := l_lsm_rec.last_updated_by;
2269: END IF;
2270: IF (x_lsm_rec.last_update_date = Okc_Api.G_MISS_DATE)
2271: THEN
2272: x_lsm_rec.last_update_date := l_lsm_rec.last_update_date;
2273: END IF;
2274: IF (x_lsm_rec.last_update_login = Okc_Api.G_MISS_NUM)
2270: IF (x_lsm_rec.last_update_date = Okc_Api.G_MISS_DATE)
2271: THEN
2272: x_lsm_rec.last_update_date := l_lsm_rec.last_update_date;
2273: END IF;
2274: IF (x_lsm_rec.last_update_login = Okc_Api.G_MISS_NUM)
2275: THEN
2276: x_lsm_rec.last_update_login := l_lsm_rec.last_update_login;
2277: END IF;
2278: RETURN(l_return_status);
2283: FUNCTION Set_Attributes (
2284: p_lsm_rec IN lsm_rec_type,
2285: x_lsm_rec OUT NOCOPY lsm_rec_type
2286: ) RETURN VARCHAR2 IS
2287: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2288: BEGIN
2289: x_lsm_rec := p_lsm_rec;
2290: RETURN(l_return_status);
2291: END Set_Attributes;
2289: x_lsm_rec := p_lsm_rec;
2290: RETURN(l_return_status);
2291: END Set_Attributes;
2292: BEGIN
2293: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2294: p_init_msg_list,
2295: '_PVT',
2296: x_return_status);
2297: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2293: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2294: p_init_msg_list,
2295: '_PVT',
2296: x_return_status);
2297: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2300: RAISE Okc_Api.G_EXCEPTION_ERROR;
2301: END IF;
2294: p_init_msg_list,
2295: '_PVT',
2296: x_return_status);
2297: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2300: RAISE Okc_Api.G_EXCEPTION_ERROR;
2301: END IF;
2302: --- Setting item attributes
2295: '_PVT',
2296: x_return_status);
2297: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2300: RAISE Okc_Api.G_EXCEPTION_ERROR;
2301: END IF;
2302: --- Setting item attributes
2303: l_return_status := Set_Attributes(
2296: x_return_status);
2297: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2300: RAISE Okc_Api.G_EXCEPTION_ERROR;
2301: END IF;
2302: --- Setting item attributes
2303: l_return_status := Set_Attributes(
2304: p_lsm_rec, -- IN
2303: l_return_status := Set_Attributes(
2304: p_lsm_rec, -- IN
2305: l_lsm_rec); -- OUT
2306: --- If any errors happen abort API
2307: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2308: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2309: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2310: RAISE Okc_Api.G_EXCEPTION_ERROR;
2311: END IF;
2304: p_lsm_rec, -- IN
2305: l_lsm_rec); -- OUT
2306: --- If any errors happen abort API
2307: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2308: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2309: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2310: RAISE Okc_Api.G_EXCEPTION_ERROR;
2311: END IF;
2312: l_return_status := populate_new_record(l_lsm_rec, l_def_lsm_rec);
2305: l_lsm_rec); -- OUT
2306: --- If any errors happen abort API
2307: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2308: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2309: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2310: RAISE Okc_Api.G_EXCEPTION_ERROR;
2311: END IF;
2312: l_return_status := populate_new_record(l_lsm_rec, l_def_lsm_rec);
2313: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2306: --- If any errors happen abort API
2307: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2308: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2309: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2310: RAISE Okc_Api.G_EXCEPTION_ERROR;
2311: END IF;
2312: l_return_status := populate_new_record(l_lsm_rec, l_def_lsm_rec);
2313: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2314: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2309: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2310: RAISE Okc_Api.G_EXCEPTION_ERROR;
2311: END IF;
2312: l_return_status := populate_new_record(l_lsm_rec, l_def_lsm_rec);
2313: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2314: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2315: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2316: RAISE Okc_Api.G_EXCEPTION_ERROR;
2317: END IF;
2310: RAISE Okc_Api.G_EXCEPTION_ERROR;
2311: END IF;
2312: l_return_status := populate_new_record(l_lsm_rec, l_def_lsm_rec);
2313: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2314: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2315: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2316: RAISE Okc_Api.G_EXCEPTION_ERROR;
2317: END IF;
2318: UPDATE OKL_CNSLD_AR_STRMS_B
2311: END IF;
2312: l_return_status := populate_new_record(l_lsm_rec, l_def_lsm_rec);
2313: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2314: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2315: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2316: RAISE Okc_Api.G_EXCEPTION_ERROR;
2317: END IF;
2318: UPDATE OKL_CNSLD_AR_STRMS_B
2319: SET LLN_ID = l_def_lsm_rec.lln_id,
2312: l_return_status := populate_new_record(l_lsm_rec, l_def_lsm_rec);
2313: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2314: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2315: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2316: RAISE Okc_Api.G_EXCEPTION_ERROR;
2317: END IF;
2318: UPDATE OKL_CNSLD_AR_STRMS_B
2319: SET LLN_ID = l_def_lsm_rec.lln_id,
2320: STY_ID = l_def_lsm_rec.sty_id,
2361: LAST_UPDATE_LOGIN = l_def_lsm_rec.last_update_login
2362: WHERE ID = l_def_lsm_rec.id;
2363:
2364: x_lsm_rec := l_def_lsm_rec;
2365: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2366: EXCEPTION
2367: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2368: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2369: (
2363:
2364: x_lsm_rec := l_def_lsm_rec;
2365: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2366: EXCEPTION
2367: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2368: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2369: (
2370: l_api_name,
2371: G_PKG_NAME,
2364: x_lsm_rec := l_def_lsm_rec;
2365: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2366: EXCEPTION
2367: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2368: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2369: (
2370: l_api_name,
2371: G_PKG_NAME,
2372: 'OKC_API.G_RET_STS_ERROR',
2368: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2369: (
2370: l_api_name,
2371: G_PKG_NAME,
2372: 'OKC_API.G_RET_STS_ERROR',
2373: x_msg_count,
2374: x_msg_data,
2375: '_PVT'
2376: );
2373: x_msg_count,
2374: x_msg_data,
2375: '_PVT'
2376: );
2377: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2378: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2379: (
2380: l_api_name,
2381: G_PKG_NAME,
2374: x_msg_data,
2375: '_PVT'
2376: );
2377: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2378: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2379: (
2380: l_api_name,
2381: G_PKG_NAME,
2382: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2378: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2379: (
2380: l_api_name,
2381: G_PKG_NAME,
2382: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2383: x_msg_count,
2384: x_msg_data,
2385: '_PVT'
2386: );
2384: x_msg_data,
2385: '_PVT'
2386: );
2387: WHEN OTHERS THEN
2388: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2389: (
2390: l_api_name,
2391: G_PKG_NAME,
2392: 'OTHERS',
2398: ------------------------------------------
2399: -- update_row for:OKL_CNSLD_AR_STRMS_TL --
2400: ------------------------------------------
2401: PROCEDURE update_row(
2402: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2403: x_return_status OUT NOCOPY VARCHAR2,
2404: x_msg_count OUT NOCOPY NUMBER,
2405: x_msg_data OUT NOCOPY VARCHAR2,
2406: p_okl_cnsld_ar_strms_tl_rec IN okl_cnsld_ar_strms_tl_rec_type,
2407: x_okl_cnsld_ar_strms_tl_rec OUT NOCOPY okl_cnsld_ar_strms_tl_rec_type) IS
2408:
2409: l_api_version CONSTANT NUMBER := 1;
2410: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2411: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2412: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type := p_okl_cnsld_ar_strms_tl_rec;
2413: ldefoklcnsldarstrmstlrec okl_cnsld_ar_strms_tl_rec_type;
2414: l_row_notfound BOOLEAN := TRUE;
2415: ----------------------------------
2420: x_okl_cnsld_ar_strms_tl_rec OUT NOCOPY okl_cnsld_ar_strms_tl_rec_type
2421: ) RETURN VARCHAR2 IS
2422: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type;
2423: l_row_notfound BOOLEAN := TRUE;
2424: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2425: BEGIN
2426: x_okl_cnsld_ar_strms_tl_rec := p_okl_cnsld_ar_strms_tl_rec;
2427: -- Get current database values
2428: l_okl_cnsld_ar_strms_tl_rec := get_rec(p_okl_cnsld_ar_strms_tl_rec, l_row_notfound);
2426: x_okl_cnsld_ar_strms_tl_rec := p_okl_cnsld_ar_strms_tl_rec;
2427: -- Get current database values
2428: l_okl_cnsld_ar_strms_tl_rec := get_rec(p_okl_cnsld_ar_strms_tl_rec, l_row_notfound);
2429: IF (l_row_notfound) THEN
2430: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2431: END IF;
2432: IF (x_okl_cnsld_ar_strms_tl_rec.id = Okc_Api.G_MISS_NUM)
2433: THEN
2434: x_okl_cnsld_ar_strms_tl_rec.id := l_okl_cnsld_ar_strms_tl_rec.id;
2428: l_okl_cnsld_ar_strms_tl_rec := get_rec(p_okl_cnsld_ar_strms_tl_rec, l_row_notfound);
2429: IF (l_row_notfound) THEN
2430: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2431: END IF;
2432: IF (x_okl_cnsld_ar_strms_tl_rec.id = Okc_Api.G_MISS_NUM)
2433: THEN
2434: x_okl_cnsld_ar_strms_tl_rec.id := l_okl_cnsld_ar_strms_tl_rec.id;
2435: END IF;
2436: IF (x_okl_cnsld_ar_strms_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2432: IF (x_okl_cnsld_ar_strms_tl_rec.id = Okc_Api.G_MISS_NUM)
2433: THEN
2434: x_okl_cnsld_ar_strms_tl_rec.id := l_okl_cnsld_ar_strms_tl_rec.id;
2435: END IF;
2436: IF (x_okl_cnsld_ar_strms_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2437: THEN
2438: x_okl_cnsld_ar_strms_tl_rec.LANGUAGE := l_okl_cnsld_ar_strms_tl_rec.LANGUAGE;
2439: END IF;
2440: IF (x_okl_cnsld_ar_strms_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2436: IF (x_okl_cnsld_ar_strms_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2437: THEN
2438: x_okl_cnsld_ar_strms_tl_rec.LANGUAGE := l_okl_cnsld_ar_strms_tl_rec.LANGUAGE;
2439: END IF;
2440: IF (x_okl_cnsld_ar_strms_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2441: THEN
2442: x_okl_cnsld_ar_strms_tl_rec.source_lang := l_okl_cnsld_ar_strms_tl_rec.source_lang;
2443: END IF;
2444: IF (x_okl_cnsld_ar_strms_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2440: IF (x_okl_cnsld_ar_strms_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2441: THEN
2442: x_okl_cnsld_ar_strms_tl_rec.source_lang := l_okl_cnsld_ar_strms_tl_rec.source_lang;
2443: END IF;
2444: IF (x_okl_cnsld_ar_strms_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2445: THEN
2446: x_okl_cnsld_ar_strms_tl_rec.sfwt_flag := l_okl_cnsld_ar_strms_tl_rec.sfwt_flag;
2447: END IF;
2448: IF (x_okl_cnsld_ar_strms_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2444: IF (x_okl_cnsld_ar_strms_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2445: THEN
2446: x_okl_cnsld_ar_strms_tl_rec.sfwt_flag := l_okl_cnsld_ar_strms_tl_rec.sfwt_flag;
2447: END IF;
2448: IF (x_okl_cnsld_ar_strms_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2449: THEN
2450: x_okl_cnsld_ar_strms_tl_rec.created_by := l_okl_cnsld_ar_strms_tl_rec.created_by;
2451: END IF;
2452: IF (x_okl_cnsld_ar_strms_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2448: IF (x_okl_cnsld_ar_strms_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2449: THEN
2450: x_okl_cnsld_ar_strms_tl_rec.created_by := l_okl_cnsld_ar_strms_tl_rec.created_by;
2451: END IF;
2452: IF (x_okl_cnsld_ar_strms_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2453: THEN
2454: x_okl_cnsld_ar_strms_tl_rec.creation_date := l_okl_cnsld_ar_strms_tl_rec.creation_date;
2455: END IF;
2456: IF (x_okl_cnsld_ar_strms_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2452: IF (x_okl_cnsld_ar_strms_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2453: THEN
2454: x_okl_cnsld_ar_strms_tl_rec.creation_date := l_okl_cnsld_ar_strms_tl_rec.creation_date;
2455: END IF;
2456: IF (x_okl_cnsld_ar_strms_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2457: THEN
2458: x_okl_cnsld_ar_strms_tl_rec.last_updated_by := l_okl_cnsld_ar_strms_tl_rec.last_updated_by;
2459: END IF;
2460: IF (x_okl_cnsld_ar_strms_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2456: IF (x_okl_cnsld_ar_strms_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2457: THEN
2458: x_okl_cnsld_ar_strms_tl_rec.last_updated_by := l_okl_cnsld_ar_strms_tl_rec.last_updated_by;
2459: END IF;
2460: IF (x_okl_cnsld_ar_strms_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2461: THEN
2462: x_okl_cnsld_ar_strms_tl_rec.last_update_date := l_okl_cnsld_ar_strms_tl_rec.last_update_date;
2463: END IF;
2464: IF (x_okl_cnsld_ar_strms_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2460: IF (x_okl_cnsld_ar_strms_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2461: THEN
2462: x_okl_cnsld_ar_strms_tl_rec.last_update_date := l_okl_cnsld_ar_strms_tl_rec.last_update_date;
2463: END IF;
2464: IF (x_okl_cnsld_ar_strms_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2465: THEN
2466: x_okl_cnsld_ar_strms_tl_rec.last_update_login := l_okl_cnsld_ar_strms_tl_rec.last_update_login;
2467: END IF;
2468: RETURN(l_return_status);
2473: FUNCTION Set_Attributes (
2474: p_okl_cnsld_ar_strms_tl_rec IN okl_cnsld_ar_strms_tl_rec_type,
2475: x_okl_cnsld_ar_strms_tl_rec OUT NOCOPY okl_cnsld_ar_strms_tl_rec_type
2476: ) RETURN VARCHAR2 IS
2477: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2478: BEGIN
2479: x_okl_cnsld_ar_strms_tl_rec := p_okl_cnsld_ar_strms_tl_rec;
2480: x_okl_cnsld_ar_strms_tl_rec.LANGUAGE := USERENV('LANG');
2481: x_okl_cnsld_ar_strms_tl_rec.SOURCE_LANG := USERENV('LANG');
2481: x_okl_cnsld_ar_strms_tl_rec.SOURCE_LANG := USERENV('LANG');
2482: RETURN(l_return_status);
2483: END Set_Attributes;
2484: BEGIN
2485: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2486: p_init_msg_list,
2487: '_PVT',
2488: x_return_status);
2489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2485: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2486: p_init_msg_list,
2487: '_PVT',
2488: x_return_status);
2489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2490: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2491: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2492: RAISE Okc_Api.G_EXCEPTION_ERROR;
2493: END IF;
2486: p_init_msg_list,
2487: '_PVT',
2488: x_return_status);
2489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2490: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2491: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2492: RAISE Okc_Api.G_EXCEPTION_ERROR;
2493: END IF;
2494: --- Setting item attributes
2487: '_PVT',
2488: x_return_status);
2489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2490: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2491: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2492: RAISE Okc_Api.G_EXCEPTION_ERROR;
2493: END IF;
2494: --- Setting item attributes
2495: l_return_status := Set_Attributes(
2488: x_return_status);
2489: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2490: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2491: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2492: RAISE Okc_Api.G_EXCEPTION_ERROR;
2493: END IF;
2494: --- Setting item attributes
2495: l_return_status := Set_Attributes(
2496: p_okl_cnsld_ar_strms_tl_rec, -- IN
2495: l_return_status := Set_Attributes(
2496: p_okl_cnsld_ar_strms_tl_rec, -- IN
2497: l_okl_cnsld_ar_strms_tl_rec); -- OUT
2498: --- If any errors happen abort API
2499: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2502: RAISE Okc_Api.G_EXCEPTION_ERROR;
2503: END IF;
2496: p_okl_cnsld_ar_strms_tl_rec, -- IN
2497: l_okl_cnsld_ar_strms_tl_rec); -- OUT
2498: --- If any errors happen abort API
2499: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2502: RAISE Okc_Api.G_EXCEPTION_ERROR;
2503: END IF;
2504: l_return_status := populate_new_record(l_okl_cnsld_ar_strms_tl_rec, ldefoklcnsldarstrmstlrec);
2497: l_okl_cnsld_ar_strms_tl_rec); -- OUT
2498: --- If any errors happen abort API
2499: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2502: RAISE Okc_Api.G_EXCEPTION_ERROR;
2503: END IF;
2504: l_return_status := populate_new_record(l_okl_cnsld_ar_strms_tl_rec, ldefoklcnsldarstrmstlrec);
2505: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2498: --- If any errors happen abort API
2499: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2500: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2502: RAISE Okc_Api.G_EXCEPTION_ERROR;
2503: END IF;
2504: l_return_status := populate_new_record(l_okl_cnsld_ar_strms_tl_rec, ldefoklcnsldarstrmstlrec);
2505: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2501: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2502: RAISE Okc_Api.G_EXCEPTION_ERROR;
2503: END IF;
2504: l_return_status := populate_new_record(l_okl_cnsld_ar_strms_tl_rec, ldefoklcnsldarstrmstlrec);
2505: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2508: RAISE Okc_Api.G_EXCEPTION_ERROR;
2509: END IF;
2502: RAISE Okc_Api.G_EXCEPTION_ERROR;
2503: END IF;
2504: l_return_status := populate_new_record(l_okl_cnsld_ar_strms_tl_rec, ldefoklcnsldarstrmstlrec);
2505: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2508: RAISE Okc_Api.G_EXCEPTION_ERROR;
2509: END IF;
2510: UPDATE OKL_CNSLD_AR_STRMS_TL
2503: END IF;
2504: l_return_status := populate_new_record(l_okl_cnsld_ar_strms_tl_rec, ldefoklcnsldarstrmstlrec);
2505: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2508: RAISE Okc_Api.G_EXCEPTION_ERROR;
2509: END IF;
2510: UPDATE OKL_CNSLD_AR_STRMS_TL
2511: SET CREATED_BY = ldefoklcnsldarstrmstlrec.created_by,
2504: l_return_status := populate_new_record(l_okl_cnsld_ar_strms_tl_rec, ldefoklcnsldarstrmstlrec);
2505: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2508: RAISE Okc_Api.G_EXCEPTION_ERROR;
2509: END IF;
2510: UPDATE OKL_CNSLD_AR_STRMS_TL
2511: SET CREATED_BY = ldefoklcnsldarstrmstlrec.created_by,
2512: CREATION_DATE = ldefoklcnsldarstrmstlrec.creation_date,
2522: WHERE ID = ldefoklcnsldarstrmstlrec.id
2523: AND SOURCE_LANG <> USERENV('LANG');
2524:
2525: x_okl_cnsld_ar_strms_tl_rec := ldefoklcnsldarstrmstlrec;
2526: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2527: EXCEPTION
2528: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2529: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2530: (
2524:
2525: x_okl_cnsld_ar_strms_tl_rec := ldefoklcnsldarstrmstlrec;
2526: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2527: EXCEPTION
2528: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2529: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2530: (
2531: l_api_name,
2532: G_PKG_NAME,
2525: x_okl_cnsld_ar_strms_tl_rec := ldefoklcnsldarstrmstlrec;
2526: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2527: EXCEPTION
2528: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2529: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2530: (
2531: l_api_name,
2532: G_PKG_NAME,
2533: 'OKC_API.G_RET_STS_ERROR',
2529: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2530: (
2531: l_api_name,
2532: G_PKG_NAME,
2533: 'OKC_API.G_RET_STS_ERROR',
2534: x_msg_count,
2535: x_msg_data,
2536: '_PVT'
2537: );
2534: x_msg_count,
2535: x_msg_data,
2536: '_PVT'
2537: );
2538: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2539: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2540: (
2541: l_api_name,
2542: G_PKG_NAME,
2535: x_msg_data,
2536: '_PVT'
2537: );
2538: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2539: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2540: (
2541: l_api_name,
2542: G_PKG_NAME,
2543: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2539: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2540: (
2541: l_api_name,
2542: G_PKG_NAME,
2543: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2544: x_msg_count,
2545: x_msg_data,
2546: '_PVT'
2547: );
2545: x_msg_data,
2546: '_PVT'
2547: );
2548: WHEN OTHERS THEN
2549: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2550: (
2551: l_api_name,
2552: G_PKG_NAME,
2553: 'OTHERS',
2560: -- update_row for:OKL_CNSLD_AR_STRMS_V --
2561: -----------------------------------------
2562: PROCEDURE update_row(
2563: p_api_version IN NUMBER,
2564: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2565: x_return_status OUT NOCOPY VARCHAR2,
2566: x_msg_count OUT NOCOPY NUMBER,
2567: x_msg_data OUT NOCOPY VARCHAR2,
2568: p_lsmv_rec IN lsmv_rec_type,
2569: x_lsmv_rec OUT NOCOPY lsmv_rec_type) IS
2570:
2571: l_api_version CONSTANT NUMBER := 1;
2572: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2573: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2574: l_lsmv_rec lsmv_rec_type := p_lsmv_rec;
2575: l_def_lsmv_rec lsmv_rec_type;
2576: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type;
2577: lx_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type;
2598: x_lsmv_rec OUT NOCOPY lsmv_rec_type
2599: ) RETURN VARCHAR2 IS
2600: l_lsmv_rec lsmv_rec_type;
2601: l_row_notfound BOOLEAN := TRUE;
2602: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2603: BEGIN
2604: x_lsmv_rec := p_lsmv_rec;
2605: -- Get current database values
2606: l_lsmv_rec := get_rec(p_lsmv_rec, l_row_notfound);
2604: x_lsmv_rec := p_lsmv_rec;
2605: -- Get current database values
2606: l_lsmv_rec := get_rec(p_lsmv_rec, l_row_notfound);
2607: IF (l_row_notfound) THEN
2608: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2609: END IF;
2610: IF (x_lsmv_rec.id = Okc_Api.G_MISS_NUM)
2611: THEN
2612: x_lsmv_rec.id := l_lsmv_rec.id;
2606: l_lsmv_rec := get_rec(p_lsmv_rec, l_row_notfound);
2607: IF (l_row_notfound) THEN
2608: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2609: END IF;
2610: IF (x_lsmv_rec.id = Okc_Api.G_MISS_NUM)
2611: THEN
2612: x_lsmv_rec.id := l_lsmv_rec.id;
2613: END IF;
2614: IF (x_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM)
2610: IF (x_lsmv_rec.id = Okc_Api.G_MISS_NUM)
2611: THEN
2612: x_lsmv_rec.id := l_lsmv_rec.id;
2613: END IF;
2614: IF (x_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM)
2615: THEN
2616: x_lsmv_rec.object_version_number := l_lsmv_rec.object_version_number;
2617: END IF;
2618: IF (x_lsmv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2614: IF (x_lsmv_rec.object_version_number = Okc_Api.G_MISS_NUM)
2615: THEN
2616: x_lsmv_rec.object_version_number := l_lsmv_rec.object_version_number;
2617: END IF;
2618: IF (x_lsmv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2619: THEN
2620: x_lsmv_rec.sfwt_flag := l_lsmv_rec.sfwt_flag;
2621: END IF;
2622: IF (x_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM)
2618: IF (x_lsmv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2619: THEN
2620: x_lsmv_rec.sfwt_flag := l_lsmv_rec.sfwt_flag;
2621: END IF;
2622: IF (x_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM)
2623: THEN
2624: x_lsmv_rec.lln_id := l_lsmv_rec.lln_id;
2625: END IF;
2626: IF (x_lsmv_rec.kle_id = Okc_Api.G_MISS_NUM)
2622: IF (x_lsmv_rec.lln_id = Okc_Api.G_MISS_NUM)
2623: THEN
2624: x_lsmv_rec.lln_id := l_lsmv_rec.lln_id;
2625: END IF;
2626: IF (x_lsmv_rec.kle_id = Okc_Api.G_MISS_NUM)
2627: THEN
2628: x_lsmv_rec.kle_id := l_lsmv_rec.kle_id;
2629: END IF;
2630: IF (x_lsmv_rec.khr_id = Okc_Api.G_MISS_NUM)
2626: IF (x_lsmv_rec.kle_id = Okc_Api.G_MISS_NUM)
2627: THEN
2628: x_lsmv_rec.kle_id := l_lsmv_rec.kle_id;
2629: END IF;
2630: IF (x_lsmv_rec.khr_id = Okc_Api.G_MISS_NUM)
2631: THEN
2632: x_lsmv_rec.khr_id := l_lsmv_rec.khr_id;
2633: END IF;
2634: IF (x_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM)
2630: IF (x_lsmv_rec.khr_id = Okc_Api.G_MISS_NUM)
2631: THEN
2632: x_lsmv_rec.khr_id := l_lsmv_rec.khr_id;
2633: END IF;
2634: IF (x_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM)
2635: THEN
2636: x_lsmv_rec.sty_id := l_lsmv_rec.sty_id;
2637: END IF;
2638: IF (x_lsmv_rec.amount = Okc_Api.G_MISS_NUM)
2634: IF (x_lsmv_rec.sty_id = Okc_Api.G_MISS_NUM)
2635: THEN
2636: x_lsmv_rec.sty_id := l_lsmv_rec.sty_id;
2637: END IF;
2638: IF (x_lsmv_rec.amount = Okc_Api.G_MISS_NUM)
2639: THEN
2640: x_lsmv_rec.amount := l_lsmv_rec.amount;
2641: END IF;
2642: IF (x_lsmv_rec.receivables_invoice_id = Okc_Api.G_MISS_NUM)
2638: IF (x_lsmv_rec.amount = Okc_Api.G_MISS_NUM)
2639: THEN
2640: x_lsmv_rec.amount := l_lsmv_rec.amount;
2641: END IF;
2642: IF (x_lsmv_rec.receivables_invoice_id = Okc_Api.G_MISS_NUM)
2643: THEN
2644: x_lsmv_rec.receivables_invoice_id := l_lsmv_rec.receivables_invoice_id;
2645: END IF;
2646: IF (x_lsmv_rec.tax_amount = Okc_Api.G_MISS_NUM)
2642: IF (x_lsmv_rec.receivables_invoice_id = Okc_Api.G_MISS_NUM)
2643: THEN
2644: x_lsmv_rec.receivables_invoice_id := l_lsmv_rec.receivables_invoice_id;
2645: END IF;
2646: IF (x_lsmv_rec.tax_amount = Okc_Api.G_MISS_NUM)
2647: THEN
2648: x_lsmv_rec.tax_amount := l_lsmv_rec.tax_amount;
2649: END IF;
2650: -- Block Addition
2647: THEN
2648: x_lsmv_rec.tax_amount := l_lsmv_rec.tax_amount;
2649: END IF;
2650: -- Block Addition
2651: IF (x_lsmv_rec.LATE_CHARGE_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2652: x_lsmv_rec.LATE_CHARGE_ASS_YN := NULL;
2653: END IF;
2654: IF (x_lsmv_rec.LATE_INT_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2655: x_lsmv_rec.LATE_INT_ASSESS_DATE := NULL;
2650: -- Block Addition
2651: IF (x_lsmv_rec.LATE_CHARGE_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2652: x_lsmv_rec.LATE_CHARGE_ASS_YN := NULL;
2653: END IF;
2654: IF (x_lsmv_rec.LATE_INT_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2655: x_lsmv_rec.LATE_INT_ASSESS_DATE := NULL;
2656: END IF;
2657: IF (x_lsmv_rec.LATE_CHARGE_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2658: x_lsmv_rec.LATE_CHARGE_ASSESS_DATE := NULL;
2653: END IF;
2654: IF (x_lsmv_rec.LATE_INT_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2655: x_lsmv_rec.LATE_INT_ASSESS_DATE := NULL;
2656: END IF;
2657: IF (x_lsmv_rec.LATE_CHARGE_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2658: x_lsmv_rec.LATE_CHARGE_ASSESS_DATE := NULL;
2659: END IF;
2660: IF (x_lsmv_rec.LATE_INT_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2661: x_lsmv_rec.LATE_INT_ASS_YN := NULL;
2656: END IF;
2657: IF (x_lsmv_rec.LATE_CHARGE_ASSESS_DATE = Okc_Api.G_MISS_DATE) THEN
2658: x_lsmv_rec.LATE_CHARGE_ASSESS_DATE := NULL;
2659: END IF;
2660: IF (x_lsmv_rec.LATE_INT_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2661: x_lsmv_rec.LATE_INT_ASS_YN := NULL;
2662: END IF;
2663: -- End Block Addition
2664: IF (x_lsmv_rec.pay_status_code = Okc_Api.G_MISS_CHAR)
2660: IF (x_lsmv_rec.LATE_INT_ASS_YN = Okc_Api.G_MISS_CHAR) THEN
2661: x_lsmv_rec.LATE_INT_ASS_YN := NULL;
2662: END IF;
2663: -- End Block Addition
2664: IF (x_lsmv_rec.pay_status_code = Okc_Api.G_MISS_CHAR)
2665: THEN
2666: x_lsmv_rec.pay_status_code := l_lsmv_rec.pay_status_code;
2667: END IF;
2668:
2665: THEN
2666: x_lsmv_rec.pay_status_code := l_lsmv_rec.pay_status_code;
2667: END IF;
2668:
2669: IF (x_lsmv_rec.DATE_DISBURSED = Okc_Api.G_MISS_DATE) THEN
2670: x_lsmv_rec.DATE_DISBURSED := NULL;
2671: END IF;
2672:
2673: IF (x_lsmv_rec.investor_disb_status = Okc_Api.G_MISS_CHAR)
2669: IF (x_lsmv_rec.DATE_DISBURSED = Okc_Api.G_MISS_DATE) THEN
2670: x_lsmv_rec.DATE_DISBURSED := NULL;
2671: END IF;
2672:
2673: IF (x_lsmv_rec.investor_disb_status = Okc_Api.G_MISS_CHAR)
2674: THEN
2675: x_lsmv_rec.investor_disb_status := l_lsmv_rec.investor_disb_status;
2676: END IF;
2677:
2674: THEN
2675: x_lsmv_rec.investor_disb_status := l_lsmv_rec.investor_disb_status;
2676: END IF;
2677:
2678: IF (x_lsmv_rec.investor_disb_err_mg = Okc_Api.G_MISS_CHAR)
2679: THEN
2680: x_lsmv_rec.investor_disb_err_mg := l_lsmv_rec.investor_disb_err_mg;
2681: END IF;
2682:
2679: THEN
2680: x_lsmv_rec.investor_disb_err_mg := l_lsmv_rec.investor_disb_err_mg;
2681: END IF;
2682:
2683: IF (x_lsmv_rec.sel_id = Okc_Api.G_MISS_NUM)
2684: THEN
2685: x_lsmv_rec.sel_id := l_lsmv_rec.sel_id;
2686: END IF;
2687:
2684: THEN
2685: x_lsmv_rec.sel_id := l_lsmv_rec.sel_id;
2686: END IF;
2687:
2688: IF (x_lsmv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2689: THEN
2690: x_lsmv_rec.attribute_category := l_lsmv_rec.attribute_category;
2691: END IF;
2692: IF (x_lsmv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2688: IF (x_lsmv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2689: THEN
2690: x_lsmv_rec.attribute_category := l_lsmv_rec.attribute_category;
2691: END IF;
2692: IF (x_lsmv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2693: THEN
2694: x_lsmv_rec.attribute1 := l_lsmv_rec.attribute1;
2695: END IF;
2696: IF (x_lsmv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2692: IF (x_lsmv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2693: THEN
2694: x_lsmv_rec.attribute1 := l_lsmv_rec.attribute1;
2695: END IF;
2696: IF (x_lsmv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2697: THEN
2698: x_lsmv_rec.attribute2 := l_lsmv_rec.attribute2;
2699: END IF;
2700: IF (x_lsmv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2696: IF (x_lsmv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2697: THEN
2698: x_lsmv_rec.attribute2 := l_lsmv_rec.attribute2;
2699: END IF;
2700: IF (x_lsmv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2701: THEN
2702: x_lsmv_rec.attribute3 := l_lsmv_rec.attribute3;
2703: END IF;
2704: IF (x_lsmv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2700: IF (x_lsmv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2701: THEN
2702: x_lsmv_rec.attribute3 := l_lsmv_rec.attribute3;
2703: END IF;
2704: IF (x_lsmv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2705: THEN
2706: x_lsmv_rec.attribute4 := l_lsmv_rec.attribute4;
2707: END IF;
2708: IF (x_lsmv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2704: IF (x_lsmv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2705: THEN
2706: x_lsmv_rec.attribute4 := l_lsmv_rec.attribute4;
2707: END IF;
2708: IF (x_lsmv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2709: THEN
2710: x_lsmv_rec.attribute5 := l_lsmv_rec.attribute5;
2711: END IF;
2712: IF (x_lsmv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2708: IF (x_lsmv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2709: THEN
2710: x_lsmv_rec.attribute5 := l_lsmv_rec.attribute5;
2711: END IF;
2712: IF (x_lsmv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2713: THEN
2714: x_lsmv_rec.attribute6 := l_lsmv_rec.attribute6;
2715: END IF;
2716: IF (x_lsmv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2712: IF (x_lsmv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2713: THEN
2714: x_lsmv_rec.attribute6 := l_lsmv_rec.attribute6;
2715: END IF;
2716: IF (x_lsmv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2717: THEN
2718: x_lsmv_rec.attribute7 := l_lsmv_rec.attribute7;
2719: END IF;
2720: IF (x_lsmv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2716: IF (x_lsmv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2717: THEN
2718: x_lsmv_rec.attribute7 := l_lsmv_rec.attribute7;
2719: END IF;
2720: IF (x_lsmv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2721: THEN
2722: x_lsmv_rec.attribute8 := l_lsmv_rec.attribute8;
2723: END IF;
2724: IF (x_lsmv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2720: IF (x_lsmv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2721: THEN
2722: x_lsmv_rec.attribute8 := l_lsmv_rec.attribute8;
2723: END IF;
2724: IF (x_lsmv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2725: THEN
2726: x_lsmv_rec.attribute9 := l_lsmv_rec.attribute9;
2727: END IF;
2728: IF (x_lsmv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2724: IF (x_lsmv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2725: THEN
2726: x_lsmv_rec.attribute9 := l_lsmv_rec.attribute9;
2727: END IF;
2728: IF (x_lsmv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2729: THEN
2730: x_lsmv_rec.attribute10 := l_lsmv_rec.attribute10;
2731: END IF;
2732: IF (x_lsmv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2728: IF (x_lsmv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2729: THEN
2730: x_lsmv_rec.attribute10 := l_lsmv_rec.attribute10;
2731: END IF;
2732: IF (x_lsmv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2733: THEN
2734: x_lsmv_rec.attribute11 := l_lsmv_rec.attribute11;
2735: END IF;
2736: IF (x_lsmv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2732: IF (x_lsmv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2733: THEN
2734: x_lsmv_rec.attribute11 := l_lsmv_rec.attribute11;
2735: END IF;
2736: IF (x_lsmv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2737: THEN
2738: x_lsmv_rec.attribute12 := l_lsmv_rec.attribute12;
2739: END IF;
2740: IF (x_lsmv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2736: IF (x_lsmv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2737: THEN
2738: x_lsmv_rec.attribute12 := l_lsmv_rec.attribute12;
2739: END IF;
2740: IF (x_lsmv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2741: THEN
2742: x_lsmv_rec.attribute13 := l_lsmv_rec.attribute13;
2743: END IF;
2744: IF (x_lsmv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2740: IF (x_lsmv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2741: THEN
2742: x_lsmv_rec.attribute13 := l_lsmv_rec.attribute13;
2743: END IF;
2744: IF (x_lsmv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2745: THEN
2746: x_lsmv_rec.attribute14 := l_lsmv_rec.attribute14;
2747: END IF;
2748: IF (x_lsmv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2744: IF (x_lsmv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2745: THEN
2746: x_lsmv_rec.attribute14 := l_lsmv_rec.attribute14;
2747: END IF;
2748: IF (x_lsmv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2749: THEN
2750: x_lsmv_rec.attribute15 := l_lsmv_rec.attribute15;
2751: END IF;
2752: IF (x_lsmv_rec.request_id = Okc_Api.G_MISS_NUM)
2748: IF (x_lsmv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2749: THEN
2750: x_lsmv_rec.attribute15 := l_lsmv_rec.attribute15;
2751: END IF;
2752: IF (x_lsmv_rec.request_id = Okc_Api.G_MISS_NUM)
2753: THEN
2754: x_lsmv_rec.request_id := l_lsmv_rec.request_id;
2755: END IF;
2756: IF (x_lsmv_rec.program_application_id = Okc_Api.G_MISS_NUM)
2752: IF (x_lsmv_rec.request_id = Okc_Api.G_MISS_NUM)
2753: THEN
2754: x_lsmv_rec.request_id := l_lsmv_rec.request_id;
2755: END IF;
2756: IF (x_lsmv_rec.program_application_id = Okc_Api.G_MISS_NUM)
2757: THEN
2758: x_lsmv_rec.program_application_id := l_lsmv_rec.program_application_id;
2759: END IF;
2760: IF (x_lsmv_rec.program_id = Okc_Api.G_MISS_NUM)
2756: IF (x_lsmv_rec.program_application_id = Okc_Api.G_MISS_NUM)
2757: THEN
2758: x_lsmv_rec.program_application_id := l_lsmv_rec.program_application_id;
2759: END IF;
2760: IF (x_lsmv_rec.program_id = Okc_Api.G_MISS_NUM)
2761: THEN
2762: x_lsmv_rec.program_id := l_lsmv_rec.program_id;
2763: END IF;
2764: IF (x_lsmv_rec.program_update_date = Okc_Api.G_MISS_DATE)
2760: IF (x_lsmv_rec.program_id = Okc_Api.G_MISS_NUM)
2761: THEN
2762: x_lsmv_rec.program_id := l_lsmv_rec.program_id;
2763: END IF;
2764: IF (x_lsmv_rec.program_update_date = Okc_Api.G_MISS_DATE)
2765: THEN
2766: x_lsmv_rec.program_update_date := l_lsmv_rec.program_update_date;
2767: END IF;
2768: IF (x_lsmv_rec.org_id = Okc_Api.G_MISS_NUM)
2764: IF (x_lsmv_rec.program_update_date = Okc_Api.G_MISS_DATE)
2765: THEN
2766: x_lsmv_rec.program_update_date := l_lsmv_rec.program_update_date;
2767: END IF;
2768: IF (x_lsmv_rec.org_id = Okc_Api.G_MISS_NUM)
2769: THEN
2770: x_lsmv_rec.org_id := l_lsmv_rec.org_id;
2771: END IF;
2772: IF (x_lsmv_rec.created_by = Okc_Api.G_MISS_NUM)
2768: IF (x_lsmv_rec.org_id = Okc_Api.G_MISS_NUM)
2769: THEN
2770: x_lsmv_rec.org_id := l_lsmv_rec.org_id;
2771: END IF;
2772: IF (x_lsmv_rec.created_by = Okc_Api.G_MISS_NUM)
2773: THEN
2774: x_lsmv_rec.created_by := l_lsmv_rec.created_by;
2775: END IF;
2776: IF (x_lsmv_rec.creation_date = Okc_Api.G_MISS_DATE)
2772: IF (x_lsmv_rec.created_by = Okc_Api.G_MISS_NUM)
2773: THEN
2774: x_lsmv_rec.created_by := l_lsmv_rec.created_by;
2775: END IF;
2776: IF (x_lsmv_rec.creation_date = Okc_Api.G_MISS_DATE)
2777: THEN
2778: x_lsmv_rec.creation_date := l_lsmv_rec.creation_date;
2779: END IF;
2780: IF (x_lsmv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2776: IF (x_lsmv_rec.creation_date = Okc_Api.G_MISS_DATE)
2777: THEN
2778: x_lsmv_rec.creation_date := l_lsmv_rec.creation_date;
2779: END IF;
2780: IF (x_lsmv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2781: THEN
2782: x_lsmv_rec.last_updated_by := l_lsmv_rec.last_updated_by;
2783: END IF;
2784: IF (x_lsmv_rec.last_update_date = Okc_Api.G_MISS_DATE)
2780: IF (x_lsmv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2781: THEN
2782: x_lsmv_rec.last_updated_by := l_lsmv_rec.last_updated_by;
2783: END IF;
2784: IF (x_lsmv_rec.last_update_date = Okc_Api.G_MISS_DATE)
2785: THEN
2786: x_lsmv_rec.last_update_date := l_lsmv_rec.last_update_date;
2787: END IF;
2788: IF (x_lsmv_rec.last_update_login = Okc_Api.G_MISS_NUM)
2784: IF (x_lsmv_rec.last_update_date = Okc_Api.G_MISS_DATE)
2785: THEN
2786: x_lsmv_rec.last_update_date := l_lsmv_rec.last_update_date;
2787: END IF;
2788: IF (x_lsmv_rec.last_update_login = Okc_Api.G_MISS_NUM)
2789: THEN
2790: x_lsmv_rec.last_update_login := l_lsmv_rec.last_update_login;
2791: END IF;
2792: RETURN(l_return_status);
2797: FUNCTION Set_Attributes (
2798: p_lsmv_rec IN lsmv_rec_type,
2799: x_lsmv_rec OUT NOCOPY lsmv_rec_type
2800: ) RETURN VARCHAR2 IS
2801: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2802: BEGIN
2803: x_lsmv_rec := p_lsmv_rec;
2804: x_lsmv_rec.OBJECT_VERSION_NUMBER := NVL(x_lsmv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2805:
2825:
2826: RETURN(l_return_status);
2827: END Set_Attributes;
2828: BEGIN
2829: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2830: G_PKG_NAME,
2831: p_init_msg_list,
2832: l_api_version,
2833: p_api_version,
2832: l_api_version,
2833: p_api_version,
2834: '_PVT',
2835: x_return_status);
2836: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2837: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2838: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2839: RAISE Okc_Api.G_EXCEPTION_ERROR;
2840: END IF;
2833: p_api_version,
2834: '_PVT',
2835: x_return_status);
2836: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2837: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2838: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2839: RAISE Okc_Api.G_EXCEPTION_ERROR;
2840: END IF;
2841: --- Setting item attributes
2834: '_PVT',
2835: x_return_status);
2836: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2837: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2838: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2839: RAISE Okc_Api.G_EXCEPTION_ERROR;
2840: END IF;
2841: --- Setting item attributes
2842: l_return_status := Set_Attributes(
2835: x_return_status);
2836: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2837: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2838: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2839: RAISE Okc_Api.G_EXCEPTION_ERROR;
2840: END IF;
2841: --- Setting item attributes
2842: l_return_status := Set_Attributes(
2843: p_lsmv_rec, -- IN
2842: l_return_status := Set_Attributes(
2843: p_lsmv_rec, -- IN
2844: l_lsmv_rec); -- OUT
2845: --- If any errors happen abort API
2846: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2847: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2848: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2849: RAISE Okc_Api.G_EXCEPTION_ERROR;
2850: END IF;
2843: p_lsmv_rec, -- IN
2844: l_lsmv_rec); -- OUT
2845: --- If any errors happen abort API
2846: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2847: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2848: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2849: RAISE Okc_Api.G_EXCEPTION_ERROR;
2850: END IF;
2851: l_return_status := populate_new_record(l_lsmv_rec, l_def_lsmv_rec);
2844: l_lsmv_rec); -- OUT
2845: --- If any errors happen abort API
2846: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2847: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2848: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2849: RAISE Okc_Api.G_EXCEPTION_ERROR;
2850: END IF;
2851: l_return_status := populate_new_record(l_lsmv_rec, l_def_lsmv_rec);
2852: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2845: --- If any errors happen abort API
2846: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2847: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2848: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2849: RAISE Okc_Api.G_EXCEPTION_ERROR;
2850: END IF;
2851: l_return_status := populate_new_record(l_lsmv_rec, l_def_lsmv_rec);
2852: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2848: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2849: RAISE Okc_Api.G_EXCEPTION_ERROR;
2850: END IF;
2851: l_return_status := populate_new_record(l_lsmv_rec, l_def_lsmv_rec);
2852: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2854: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2855: RAISE Okc_Api.G_EXCEPTION_ERROR;
2856: END IF;
2849: RAISE Okc_Api.G_EXCEPTION_ERROR;
2850: END IF;
2851: l_return_status := populate_new_record(l_lsmv_rec, l_def_lsmv_rec);
2852: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2854: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2855: RAISE Okc_Api.G_EXCEPTION_ERROR;
2856: END IF;
2857: l_def_lsmv_rec := fill_who_columns(l_def_lsmv_rec);
2850: END IF;
2851: l_return_status := populate_new_record(l_lsmv_rec, l_def_lsmv_rec);
2852: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2854: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2855: RAISE Okc_Api.G_EXCEPTION_ERROR;
2856: END IF;
2857: l_def_lsmv_rec := fill_who_columns(l_def_lsmv_rec);
2858: --- Validate all non-missing attributes (Item Level Validation)
2851: l_return_status := populate_new_record(l_lsmv_rec, l_def_lsmv_rec);
2852: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2853: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2854: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2855: RAISE Okc_Api.G_EXCEPTION_ERROR;
2856: END IF;
2857: l_def_lsmv_rec := fill_who_columns(l_def_lsmv_rec);
2858: --- Validate all non-missing attributes (Item Level Validation)
2859: l_return_status := Validate_Attributes(l_def_lsmv_rec);
2857: l_def_lsmv_rec := fill_who_columns(l_def_lsmv_rec);
2858: --- Validate all non-missing attributes (Item Level Validation)
2859: l_return_status := Validate_Attributes(l_def_lsmv_rec);
2860: --- If any errors happen abort API
2861: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2862: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2864: RAISE Okc_Api.G_EXCEPTION_ERROR;
2865: END IF;
2858: --- Validate all non-missing attributes (Item Level Validation)
2859: l_return_status := Validate_Attributes(l_def_lsmv_rec);
2860: --- If any errors happen abort API
2861: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2862: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2864: RAISE Okc_Api.G_EXCEPTION_ERROR;
2865: END IF;
2866: l_return_status := Validate_Record(l_def_lsmv_rec);
2859: l_return_status := Validate_Attributes(l_def_lsmv_rec);
2860: --- If any errors happen abort API
2861: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2862: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2864: RAISE Okc_Api.G_EXCEPTION_ERROR;
2865: END IF;
2866: l_return_status := Validate_Record(l_def_lsmv_rec);
2867: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2860: --- If any errors happen abort API
2861: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2862: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2864: RAISE Okc_Api.G_EXCEPTION_ERROR;
2865: END IF;
2866: l_return_status := Validate_Record(l_def_lsmv_rec);
2867: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2863: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2864: RAISE Okc_Api.G_EXCEPTION_ERROR;
2865: END IF;
2866: l_return_status := Validate_Record(l_def_lsmv_rec);
2867: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2870: RAISE Okc_Api.G_EXCEPTION_ERROR;
2871: END IF;
2864: RAISE Okc_Api.G_EXCEPTION_ERROR;
2865: END IF;
2866: l_return_status := Validate_Record(l_def_lsmv_rec);
2867: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2870: RAISE Okc_Api.G_EXCEPTION_ERROR;
2871: END IF;
2872:
2865: END IF;
2866: l_return_status := Validate_Record(l_def_lsmv_rec);
2867: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2870: RAISE Okc_Api.G_EXCEPTION_ERROR;
2871: END IF;
2872:
2873: --------------------------------------
2866: l_return_status := Validate_Record(l_def_lsmv_rec);
2867: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2868: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2869: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2870: RAISE Okc_Api.G_EXCEPTION_ERROR;
2871: END IF;
2872:
2873: --------------------------------------
2874: -- Move VIEW record to "Child" records
2885: x_msg_data,
2886: l_okl_cnsld_ar_strms_tl_rec,
2887: lx_okl_cnsld_ar_strms_tl_rec
2888: );
2889: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2891: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2892: RAISE Okc_Api.G_EXCEPTION_ERROR;
2893: END IF;
2886: l_okl_cnsld_ar_strms_tl_rec,
2887: lx_okl_cnsld_ar_strms_tl_rec
2888: );
2889: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2891: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2892: RAISE Okc_Api.G_EXCEPTION_ERROR;
2893: END IF;
2894: migrate(lx_okl_cnsld_ar_strms_tl_rec, l_def_lsmv_rec);
2887: lx_okl_cnsld_ar_strms_tl_rec
2888: );
2889: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2891: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2892: RAISE Okc_Api.G_EXCEPTION_ERROR;
2893: END IF;
2894: migrate(lx_okl_cnsld_ar_strms_tl_rec, l_def_lsmv_rec);
2895: update_row(
2888: );
2889: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2890: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2891: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2892: RAISE Okc_Api.G_EXCEPTION_ERROR;
2893: END IF;
2894: migrate(lx_okl_cnsld_ar_strms_tl_rec, l_def_lsmv_rec);
2895: update_row(
2896: p_init_msg_list,
2899: x_msg_data,
2900: l_lsm_rec,
2901: lx_lsm_rec
2902: );
2903: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2904: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2905: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2906: RAISE Okc_Api.G_EXCEPTION_ERROR;
2907: END IF;
2900: l_lsm_rec,
2901: lx_lsm_rec
2902: );
2903: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2904: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2905: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2906: RAISE Okc_Api.G_EXCEPTION_ERROR;
2907: END IF;
2908: migrate(lx_lsm_rec, l_def_lsmv_rec);
2901: lx_lsm_rec
2902: );
2903: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2904: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2905: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2906: RAISE Okc_Api.G_EXCEPTION_ERROR;
2907: END IF;
2908: migrate(lx_lsm_rec, l_def_lsmv_rec);
2909: x_lsmv_rec := l_def_lsmv_rec;
2902: );
2903: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2904: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2905: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2906: RAISE Okc_Api.G_EXCEPTION_ERROR;
2907: END IF;
2908: migrate(lx_lsm_rec, l_def_lsmv_rec);
2909: x_lsmv_rec := l_def_lsmv_rec;
2910: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2906: RAISE Okc_Api.G_EXCEPTION_ERROR;
2907: END IF;
2908: migrate(lx_lsm_rec, l_def_lsmv_rec);
2909: x_lsmv_rec := l_def_lsmv_rec;
2910: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2911: EXCEPTION
2912: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2913: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2914: (
2908: migrate(lx_lsm_rec, l_def_lsmv_rec);
2909: x_lsmv_rec := l_def_lsmv_rec;
2910: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2911: EXCEPTION
2912: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2913: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2914: (
2915: l_api_name,
2916: G_PKG_NAME,
2909: x_lsmv_rec := l_def_lsmv_rec;
2910: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2911: EXCEPTION
2912: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2913: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2914: (
2915: l_api_name,
2916: G_PKG_NAME,
2917: 'OKC_API.G_RET_STS_ERROR',
2913: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2914: (
2915: l_api_name,
2916: G_PKG_NAME,
2917: 'OKC_API.G_RET_STS_ERROR',
2918: x_msg_count,
2919: x_msg_data,
2920: '_PVT'
2921: );
2918: x_msg_count,
2919: x_msg_data,
2920: '_PVT'
2921: );
2922: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2923: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2924: (
2925: l_api_name,
2926: G_PKG_NAME,
2919: x_msg_data,
2920: '_PVT'
2921: );
2922: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2923: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2924: (
2925: l_api_name,
2926: G_PKG_NAME,
2927: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2923: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2924: (
2925: l_api_name,
2926: G_PKG_NAME,
2927: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2928: x_msg_count,
2929: x_msg_data,
2930: '_PVT'
2931: );
2929: x_msg_data,
2930: '_PVT'
2931: );
2932: WHEN OTHERS THEN
2933: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2934: (
2935: l_api_name,
2936: G_PKG_NAME,
2937: 'OTHERS',
2944: -- PL/SQL TBL update_row for:LSMV_TBL --
2945: ----------------------------------------
2946: PROCEDURE update_row(
2947: p_api_version IN NUMBER,
2948: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2949: x_return_status OUT NOCOPY VARCHAR2,
2950: x_msg_count OUT NOCOPY NUMBER,
2951: x_msg_data OUT NOCOPY VARCHAR2,
2952: p_lsmv_tbl IN lsmv_tbl_type,
2953: x_lsmv_tbl OUT NOCOPY lsmv_tbl_type) IS
2954:
2955: l_api_version CONSTANT NUMBER := 1;
2956: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2957: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2958: -- Begin Post-Generation Change
2959: -- overall error status
2960: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2961: -- End Post-Generation Change
2961: -- End Post-Generation Change
2962:
2963: i NUMBER := 0;
2964: BEGIN
2965: Okc_Api.init_msg_list(p_init_msg_list);
2966: -- Make sure PL/SQL table has records in it before passing
2967: IF (p_lsmv_tbl.COUNT > 0) THEN
2968: i := p_lsmv_tbl.FIRST;
2969: LOOP
2968: i := p_lsmv_tbl.FIRST;
2969: LOOP
2970: update_row (
2971: p_api_version => p_api_version,
2972: p_init_msg_list => Okc_Api.G_FALSE,
2973: x_return_status => x_return_status,
2974: x_msg_count => x_msg_count,
2975: x_msg_data => x_msg_data,
2976: p_lsmv_rec => p_lsmv_tbl(i),
2993: x_return_status := l_overall_status;
2994: -- End Post-Generation Change
2995: END IF;
2996: EXCEPTION
2997: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2998: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2999: (
3000: l_api_name,
3001: G_PKG_NAME,
2994: -- End Post-Generation Change
2995: END IF;
2996: EXCEPTION
2997: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2998: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2999: (
3000: l_api_name,
3001: G_PKG_NAME,
3002: 'OKC_API.G_RET_STS_ERROR',
2998: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2999: (
3000: l_api_name,
3001: G_PKG_NAME,
3002: 'OKC_API.G_RET_STS_ERROR',
3003: x_msg_count,
3004: x_msg_data,
3005: '_PVT'
3006: );
3003: x_msg_count,
3004: x_msg_data,
3005: '_PVT'
3006: );
3007: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3008: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3009: (
3010: l_api_name,
3011: G_PKG_NAME,
3004: x_msg_data,
3005: '_PVT'
3006: );
3007: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3008: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3009: (
3010: l_api_name,
3011: G_PKG_NAME,
3012: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3008: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3009: (
3010: l_api_name,
3011: G_PKG_NAME,
3012: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3013: x_msg_count,
3014: x_msg_data,
3015: '_PVT'
3016: );
3014: x_msg_data,
3015: '_PVT'
3016: );
3017: WHEN OTHERS THEN
3018: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3019: (
3020: l_api_name,
3021: G_PKG_NAME,
3022: 'OTHERS',
3032: -----------------------------------------
3033: -- delete_row for:OKL_CNSLD_AR_STRMS_B --
3034: -----------------------------------------
3035: PROCEDURE delete_row(
3036: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3037: x_return_status OUT NOCOPY VARCHAR2,
3038: x_msg_count OUT NOCOPY NUMBER,
3039: x_msg_data OUT NOCOPY VARCHAR2,
3040: p_lsm_rec IN lsm_rec_type) IS
3040: p_lsm_rec IN lsm_rec_type) IS
3041:
3042: l_api_version CONSTANT NUMBER := 1;
3043: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3044: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3045: l_lsm_rec lsm_rec_type:= p_lsm_rec;
3046: l_row_notfound BOOLEAN := TRUE;
3047: BEGIN
3048: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3044: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3045: l_lsm_rec lsm_rec_type:= p_lsm_rec;
3046: l_row_notfound BOOLEAN := TRUE;
3047: BEGIN
3048: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3049: p_init_msg_list,
3050: '_PVT',
3051: x_return_status);
3052: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3048: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3049: p_init_msg_list,
3050: '_PVT',
3051: x_return_status);
3052: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3053: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3055: RAISE Okc_Api.G_EXCEPTION_ERROR;
3056: END IF;
3049: p_init_msg_list,
3050: '_PVT',
3051: x_return_status);
3052: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3053: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3055: RAISE Okc_Api.G_EXCEPTION_ERROR;
3056: END IF;
3057: DELETE FROM OKL_CNSLD_AR_STRMS_B
3050: '_PVT',
3051: x_return_status);
3052: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3053: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3055: RAISE Okc_Api.G_EXCEPTION_ERROR;
3056: END IF;
3057: DELETE FROM OKL_CNSLD_AR_STRMS_B
3058: WHERE ID = l_lsm_rec.id;
3051: x_return_status);
3052: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3053: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3054: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3055: RAISE Okc_Api.G_EXCEPTION_ERROR;
3056: END IF;
3057: DELETE FROM OKL_CNSLD_AR_STRMS_B
3058: WHERE ID = l_lsm_rec.id;
3059:
3056: END IF;
3057: DELETE FROM OKL_CNSLD_AR_STRMS_B
3058: WHERE ID = l_lsm_rec.id;
3059:
3060: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3061: EXCEPTION
3062: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3063: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3064: (
3058: WHERE ID = l_lsm_rec.id;
3059:
3060: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3061: EXCEPTION
3062: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3063: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3064: (
3065: l_api_name,
3066: G_PKG_NAME,
3059:
3060: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3061: EXCEPTION
3062: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3063: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3064: (
3065: l_api_name,
3066: G_PKG_NAME,
3067: 'OKC_API.G_RET_STS_ERROR',
3063: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3064: (
3065: l_api_name,
3066: G_PKG_NAME,
3067: 'OKC_API.G_RET_STS_ERROR',
3068: x_msg_count,
3069: x_msg_data,
3070: '_PVT'
3071: );
3068: x_msg_count,
3069: x_msg_data,
3070: '_PVT'
3071: );
3072: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3073: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3069: x_msg_data,
3070: '_PVT'
3071: );
3072: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3073: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3077: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3073: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3077: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3078: x_msg_count,
3079: x_msg_data,
3080: '_PVT'
3081: );
3079: x_msg_data,
3080: '_PVT'
3081: );
3082: WHEN OTHERS THEN
3083: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3084: (
3085: l_api_name,
3086: G_PKG_NAME,
3087: 'OTHERS',
3093: ------------------------------------------
3094: -- delete_row for:OKL_CNSLD_AR_STRMS_TL --
3095: ------------------------------------------
3096: PROCEDURE delete_row(
3097: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3098: x_return_status OUT NOCOPY VARCHAR2,
3099: x_msg_count OUT NOCOPY NUMBER,
3100: x_msg_data OUT NOCOPY VARCHAR2,
3101: p_okl_cnsld_ar_strms_tl_rec IN okl_cnsld_ar_strms_tl_rec_type) IS
3101: p_okl_cnsld_ar_strms_tl_rec IN okl_cnsld_ar_strms_tl_rec_type) IS
3102:
3103: l_api_version CONSTANT NUMBER := 1;
3104: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3105: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3106: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type:= p_okl_cnsld_ar_strms_tl_rec;
3107: l_row_notfound BOOLEAN := TRUE;
3108: ----------------------------------------------
3109: -- Set_Attributes for:OKL_CNSLD_AR_STRMS_TL --
3111: FUNCTION Set_Attributes (
3112: p_okl_cnsld_ar_strms_tl_rec IN okl_cnsld_ar_strms_tl_rec_type,
3113: x_okl_cnsld_ar_strms_tl_rec OUT NOCOPY okl_cnsld_ar_strms_tl_rec_type
3114: ) RETURN VARCHAR2 IS
3115: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3116: BEGIN
3117: x_okl_cnsld_ar_strms_tl_rec := p_okl_cnsld_ar_strms_tl_rec;
3118: x_okl_cnsld_ar_strms_tl_rec.LANGUAGE := USERENV('LANG');
3119: RETURN(l_return_status);
3118: x_okl_cnsld_ar_strms_tl_rec.LANGUAGE := USERENV('LANG');
3119: RETURN(l_return_status);
3120: END Set_Attributes;
3121: BEGIN
3122: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3123: p_init_msg_list,
3124: '_PVT',
3125: x_return_status);
3126: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3122: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3123: p_init_msg_list,
3124: '_PVT',
3125: x_return_status);
3126: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3127: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3128: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3129: RAISE Okc_Api.G_EXCEPTION_ERROR;
3130: END IF;
3123: p_init_msg_list,
3124: '_PVT',
3125: x_return_status);
3126: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3127: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3128: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3129: RAISE Okc_Api.G_EXCEPTION_ERROR;
3130: END IF;
3131: --- Setting item attributes
3124: '_PVT',
3125: x_return_status);
3126: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3127: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3128: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3129: RAISE Okc_Api.G_EXCEPTION_ERROR;
3130: END IF;
3131: --- Setting item attributes
3132: l_return_status := Set_Attributes(
3125: x_return_status);
3126: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3127: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3128: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3129: RAISE Okc_Api.G_EXCEPTION_ERROR;
3130: END IF;
3131: --- Setting item attributes
3132: l_return_status := Set_Attributes(
3133: p_okl_cnsld_ar_strms_tl_rec, -- IN
3132: l_return_status := Set_Attributes(
3133: p_okl_cnsld_ar_strms_tl_rec, -- IN
3134: l_okl_cnsld_ar_strms_tl_rec); -- OUT
3135: --- If any errors happen abort API
3136: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3139: RAISE Okc_Api.G_EXCEPTION_ERROR;
3140: END IF;
3133: p_okl_cnsld_ar_strms_tl_rec, -- IN
3134: l_okl_cnsld_ar_strms_tl_rec); -- OUT
3135: --- If any errors happen abort API
3136: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3139: RAISE Okc_Api.G_EXCEPTION_ERROR;
3140: END IF;
3141: DELETE FROM OKL_CNSLD_AR_STRMS_TL
3134: l_okl_cnsld_ar_strms_tl_rec); -- OUT
3135: --- If any errors happen abort API
3136: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3139: RAISE Okc_Api.G_EXCEPTION_ERROR;
3140: END IF;
3141: DELETE FROM OKL_CNSLD_AR_STRMS_TL
3142: WHERE ID = l_okl_cnsld_ar_strms_tl_rec.id;
3135: --- If any errors happen abort API
3136: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3139: RAISE Okc_Api.G_EXCEPTION_ERROR;
3140: END IF;
3141: DELETE FROM OKL_CNSLD_AR_STRMS_TL
3142: WHERE ID = l_okl_cnsld_ar_strms_tl_rec.id;
3143:
3140: END IF;
3141: DELETE FROM OKL_CNSLD_AR_STRMS_TL
3142: WHERE ID = l_okl_cnsld_ar_strms_tl_rec.id;
3143:
3144: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3145: EXCEPTION
3146: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3147: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3148: (
3142: WHERE ID = l_okl_cnsld_ar_strms_tl_rec.id;
3143:
3144: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3145: EXCEPTION
3146: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3147: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3148: (
3149: l_api_name,
3150: G_PKG_NAME,
3143:
3144: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3145: EXCEPTION
3146: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3147: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3148: (
3149: l_api_name,
3150: G_PKG_NAME,
3151: 'OKC_API.G_RET_STS_ERROR',
3147: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3148: (
3149: l_api_name,
3150: G_PKG_NAME,
3151: 'OKC_API.G_RET_STS_ERROR',
3152: x_msg_count,
3153: x_msg_data,
3154: '_PVT'
3155: );
3152: x_msg_count,
3153: x_msg_data,
3154: '_PVT'
3155: );
3156: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3157: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3158: (
3159: l_api_name,
3160: G_PKG_NAME,
3153: x_msg_data,
3154: '_PVT'
3155: );
3156: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3157: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3158: (
3159: l_api_name,
3160: G_PKG_NAME,
3161: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3157: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3158: (
3159: l_api_name,
3160: G_PKG_NAME,
3161: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3162: x_msg_count,
3163: x_msg_data,
3164: '_PVT'
3165: );
3163: x_msg_data,
3164: '_PVT'
3165: );
3166: WHEN OTHERS THEN
3167: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3168: (
3169: l_api_name,
3170: G_PKG_NAME,
3171: 'OTHERS',
3178: -- delete_row for:OKL_CNSLD_AR_STRMS_V --
3179: -----------------------------------------
3180: PROCEDURE delete_row(
3181: p_api_version IN NUMBER,
3182: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3183: x_return_status OUT NOCOPY VARCHAR2,
3184: x_msg_count OUT NOCOPY NUMBER,
3185: x_msg_data OUT NOCOPY VARCHAR2,
3186: p_lsmv_rec IN lsmv_rec_type) IS
3186: p_lsmv_rec IN lsmv_rec_type) IS
3187:
3188: l_api_version CONSTANT NUMBER := 1;
3189: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3190: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3191: l_lsmv_rec lsmv_rec_type := p_lsmv_rec;
3192: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type;
3193: l_lsm_rec lsm_rec_type;
3194: BEGIN
3191: l_lsmv_rec lsmv_rec_type := p_lsmv_rec;
3192: l_okl_cnsld_ar_strms_tl_rec okl_cnsld_ar_strms_tl_rec_type;
3193: l_lsm_rec lsm_rec_type;
3194: BEGIN
3195: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3196: G_PKG_NAME,
3197: p_init_msg_list,
3198: l_api_version,
3199: p_api_version,
3198: l_api_version,
3199: p_api_version,
3200: '_PVT',
3201: x_return_status);
3202: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3203: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3204: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3205: RAISE Okc_Api.G_EXCEPTION_ERROR;
3206: END IF;
3199: p_api_version,
3200: '_PVT',
3201: x_return_status);
3202: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3203: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3204: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3205: RAISE Okc_Api.G_EXCEPTION_ERROR;
3206: END IF;
3207: --------------------------------------
3200: '_PVT',
3201: x_return_status);
3202: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3203: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3204: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3205: RAISE Okc_Api.G_EXCEPTION_ERROR;
3206: END IF;
3207: --------------------------------------
3208: -- Move VIEW record to "Child" records
3201: x_return_status);
3202: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3203: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3204: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3205: RAISE Okc_Api.G_EXCEPTION_ERROR;
3206: END IF;
3207: --------------------------------------
3208: -- Move VIEW record to "Child" records
3209: --------------------------------------
3218: x_msg_count,
3219: x_msg_data,
3220: l_okl_cnsld_ar_strms_tl_rec
3221: );
3222: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3223: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3224: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3225: RAISE Okc_Api.G_EXCEPTION_ERROR;
3226: END IF;
3219: x_msg_data,
3220: l_okl_cnsld_ar_strms_tl_rec
3221: );
3222: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3223: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3224: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3225: RAISE Okc_Api.G_EXCEPTION_ERROR;
3226: END IF;
3227: delete_row(
3220: l_okl_cnsld_ar_strms_tl_rec
3221: );
3222: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3223: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3224: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3225: RAISE Okc_Api.G_EXCEPTION_ERROR;
3226: END IF;
3227: delete_row(
3228: p_init_msg_list,
3221: );
3222: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3223: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3224: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3225: RAISE Okc_Api.G_EXCEPTION_ERROR;
3226: END IF;
3227: delete_row(
3228: p_init_msg_list,
3229: x_return_status,
3230: x_msg_count,
3231: x_msg_data,
3232: l_lsm_rec
3233: );
3234: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3235: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3236: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3237: RAISE Okc_Api.G_EXCEPTION_ERROR;
3238: END IF;
3231: x_msg_data,
3232: l_lsm_rec
3233: );
3234: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3235: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3236: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3237: RAISE Okc_Api.G_EXCEPTION_ERROR;
3238: END IF;
3239: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3232: l_lsm_rec
3233: );
3234: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3235: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3236: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3237: RAISE Okc_Api.G_EXCEPTION_ERROR;
3238: END IF;
3239: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3240: EXCEPTION
3233: );
3234: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3235: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3236: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3237: RAISE Okc_Api.G_EXCEPTION_ERROR;
3238: END IF;
3239: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3240: EXCEPTION
3241: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3235: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3236: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3237: RAISE Okc_Api.G_EXCEPTION_ERROR;
3238: END IF;
3239: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3240: EXCEPTION
3241: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3242: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3243: (
3237: RAISE Okc_Api.G_EXCEPTION_ERROR;
3238: END IF;
3239: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3240: EXCEPTION
3241: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3242: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3243: (
3244: l_api_name,
3245: G_PKG_NAME,
3238: END IF;
3239: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3240: EXCEPTION
3241: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3242: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3243: (
3244: l_api_name,
3245: G_PKG_NAME,
3246: 'OKC_API.G_RET_STS_ERROR',
3242: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3243: (
3244: l_api_name,
3245: G_PKG_NAME,
3246: 'OKC_API.G_RET_STS_ERROR',
3247: x_msg_count,
3248: x_msg_data,
3249: '_PVT'
3250: );
3247: x_msg_count,
3248: x_msg_data,
3249: '_PVT'
3250: );
3251: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3252: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3253: (
3254: l_api_name,
3255: G_PKG_NAME,
3248: x_msg_data,
3249: '_PVT'
3250: );
3251: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3252: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3253: (
3254: l_api_name,
3255: G_PKG_NAME,
3256: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3252: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3253: (
3254: l_api_name,
3255: G_PKG_NAME,
3256: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3257: x_msg_count,
3258: x_msg_data,
3259: '_PVT'
3260: );
3258: x_msg_data,
3259: '_PVT'
3260: );
3261: WHEN OTHERS THEN
3262: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3263: (
3264: l_api_name,
3265: G_PKG_NAME,
3266: 'OTHERS',
3273: -- PL/SQL TBL delete_row for:LSMV_TBL --
3274: ----------------------------------------
3275: PROCEDURE delete_row(
3276: p_api_version IN NUMBER,
3277: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3278: x_return_status OUT NOCOPY VARCHAR2,
3279: x_msg_count OUT NOCOPY NUMBER,
3280: x_msg_data OUT NOCOPY VARCHAR2,
3281: p_lsmv_tbl IN lsmv_tbl_type) IS
3281: p_lsmv_tbl IN lsmv_tbl_type) IS
3282:
3283: l_api_version CONSTANT NUMBER := 1;
3284: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3285: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3286: i NUMBER := 0;
3287: BEGIN
3288: Okc_Api.init_msg_list(p_init_msg_list);
3289: -- Make sure PL/SQL table has records in it before passing
3284: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3285: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3286: i NUMBER := 0;
3287: BEGIN
3288: Okc_Api.init_msg_list(p_init_msg_list);
3289: -- Make sure PL/SQL table has records in it before passing
3290: IF (p_lsmv_tbl.COUNT > 0) THEN
3291: i := p_lsmv_tbl.FIRST;
3292: LOOP
3291: i := p_lsmv_tbl.FIRST;
3292: LOOP
3293: delete_row (
3294: p_api_version => p_api_version,
3295: p_init_msg_list => Okc_Api.G_FALSE,
3296: x_return_status => x_return_status,
3297: x_msg_count => x_msg_count,
3298: x_msg_data => x_msg_data,
3299: p_lsmv_rec => p_lsmv_tbl(i));
3301: i := p_lsmv_tbl.NEXT(i);
3302: END LOOP;
3303: END IF;
3304: EXCEPTION
3305: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3306: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3307: (
3308: l_api_name,
3309: G_PKG_NAME,
3302: END LOOP;
3303: END IF;
3304: EXCEPTION
3305: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3306: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3307: (
3308: l_api_name,
3309: G_PKG_NAME,
3310: 'OKC_API.G_RET_STS_ERROR',
3306: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3307: (
3308: l_api_name,
3309: G_PKG_NAME,
3310: 'OKC_API.G_RET_STS_ERROR',
3311: x_msg_count,
3312: x_msg_data,
3313: '_PVT'
3314: );
3311: x_msg_count,
3312: x_msg_data,
3313: '_PVT'
3314: );
3315: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3316: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3317: (
3318: l_api_name,
3319: G_PKG_NAME,
3312: x_msg_data,
3313: '_PVT'
3314: );
3315: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3316: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3317: (
3318: l_api_name,
3319: G_PKG_NAME,
3320: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3316: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3317: (
3318: l_api_name,
3319: G_PKG_NAME,
3320: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3321: x_msg_count,
3322: x_msg_data,
3323: '_PVT'
3324: );
3322: x_msg_data,
3323: '_PVT'
3324: );
3325: WHEN OTHERS THEN
3326: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3327: (
3328: l_api_name,
3329: G_PKG_NAME,
3330: 'OTHERS',