[Home] [Help]
710: p_llnv_rec IN llnv_rec_type
711: ) RETURN llnv_rec_type IS
712: l_llnv_rec llnv_rec_type := p_llnv_rec;
713: BEGIN
714: IF (l_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
715: l_llnv_rec.object_version_number := NULL;
716: END IF;
717: IF (l_llnv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR) THEN
718: l_llnv_rec.sfwt_flag := NULL;
713: BEGIN
714: IF (l_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM) THEN
715: l_llnv_rec.object_version_number := NULL;
716: END IF;
717: IF (l_llnv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR) THEN
718: l_llnv_rec.sfwt_flag := NULL;
719: END IF;
720: IF (l_llnv_rec.khr_id = Okc_Api.G_MISS_NUM) THEN
721: l_llnv_rec.khr_id := NULL;
716: END IF;
717: IF (l_llnv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR) THEN
718: l_llnv_rec.sfwt_flag := NULL;
719: END IF;
720: IF (l_llnv_rec.khr_id = Okc_Api.G_MISS_NUM) THEN
721: l_llnv_rec.khr_id := NULL;
722: END IF;
723: IF (l_llnv_rec.cnr_id = Okc_Api.G_MISS_NUM) THEN
724: l_llnv_rec.cnr_id := NULL;
719: END IF;
720: IF (l_llnv_rec.khr_id = Okc_Api.G_MISS_NUM) THEN
721: l_llnv_rec.khr_id := NULL;
722: END IF;
723: IF (l_llnv_rec.cnr_id = Okc_Api.G_MISS_NUM) THEN
724: l_llnv_rec.cnr_id := NULL;
725: END IF;
726: IF (l_llnv_rec.kle_id = Okc_Api.G_MISS_NUM) THEN
727: l_llnv_rec.kle_id := NULL;
722: END IF;
723: IF (l_llnv_rec.cnr_id = Okc_Api.G_MISS_NUM) THEN
724: l_llnv_rec.cnr_id := NULL;
725: END IF;
726: IF (l_llnv_rec.kle_id = Okc_Api.G_MISS_NUM) THEN
727: l_llnv_rec.kle_id := NULL;
728: END IF;
729: IF (l_llnv_rec.lln_id_parent = Okc_Api.G_MISS_NUM) THEN
730: l_llnv_rec.lln_id_parent := NULL;
725: END IF;
726: IF (l_llnv_rec.kle_id = Okc_Api.G_MISS_NUM) THEN
727: l_llnv_rec.kle_id := NULL;
728: END IF;
729: IF (l_llnv_rec.lln_id_parent = Okc_Api.G_MISS_NUM) THEN
730: l_llnv_rec.lln_id_parent := NULL;
731: END IF;
732: IF (l_llnv_rec.ilt_id = Okc_Api.G_MISS_NUM) THEN
733: l_llnv_rec.ilt_id := NULL;
728: END IF;
729: IF (l_llnv_rec.lln_id_parent = Okc_Api.G_MISS_NUM) THEN
730: l_llnv_rec.lln_id_parent := NULL;
731: END IF;
732: IF (l_llnv_rec.ilt_id = Okc_Api.G_MISS_NUM) THEN
733: l_llnv_rec.ilt_id := NULL;
734: END IF;
735: IF (l_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM) THEN
736: l_llnv_rec.sequence_number := NULL;
731: END IF;
732: IF (l_llnv_rec.ilt_id = Okc_Api.G_MISS_NUM) THEN
733: l_llnv_rec.ilt_id := NULL;
734: END IF;
735: IF (l_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM) THEN
736: l_llnv_rec.sequence_number := NULL;
737: END IF;
738: IF (l_llnv_rec.amount = Okc_Api.G_MISS_NUM) THEN
739: l_llnv_rec.amount := NULL;
734: END IF;
735: IF (l_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM) THEN
736: l_llnv_rec.sequence_number := NULL;
737: END IF;
738: IF (l_llnv_rec.amount = Okc_Api.G_MISS_NUM) THEN
739: l_llnv_rec.amount := NULL;
740: END IF;
741: IF (l_llnv_rec.tax_amount = Okc_Api.G_MISS_NUM) THEN
742: l_llnv_rec.tax_amount := NULL;
737: END IF;
738: IF (l_llnv_rec.amount = Okc_Api.G_MISS_NUM) THEN
739: l_llnv_rec.amount := NULL;
740: END IF;
741: IF (l_llnv_rec.tax_amount = Okc_Api.G_MISS_NUM) THEN
742: l_llnv_rec.tax_amount := NULL;
743: END IF;
744: IF (l_llnv_rec.attribute_category = Okc_Api.G_MISS_CHAR) THEN
745: l_llnv_rec.attribute_category := NULL;
740: END IF;
741: IF (l_llnv_rec.tax_amount = Okc_Api.G_MISS_NUM) THEN
742: l_llnv_rec.tax_amount := NULL;
743: END IF;
744: IF (l_llnv_rec.attribute_category = Okc_Api.G_MISS_CHAR) THEN
745: l_llnv_rec.attribute_category := NULL;
746: END IF;
747: IF (l_llnv_rec.attribute1 = Okc_Api.G_MISS_CHAR) THEN
748: l_llnv_rec.attribute1 := NULL;
743: END IF;
744: IF (l_llnv_rec.attribute_category = Okc_Api.G_MISS_CHAR) THEN
745: l_llnv_rec.attribute_category := NULL;
746: END IF;
747: IF (l_llnv_rec.attribute1 = Okc_Api.G_MISS_CHAR) THEN
748: l_llnv_rec.attribute1 := NULL;
749: END IF;
750: IF (l_llnv_rec.attribute2 = Okc_Api.G_MISS_CHAR) THEN
751: l_llnv_rec.attribute2 := NULL;
746: END IF;
747: IF (l_llnv_rec.attribute1 = Okc_Api.G_MISS_CHAR) THEN
748: l_llnv_rec.attribute1 := NULL;
749: END IF;
750: IF (l_llnv_rec.attribute2 = Okc_Api.G_MISS_CHAR) THEN
751: l_llnv_rec.attribute2 := NULL;
752: END IF;
753: IF (l_llnv_rec.attribute3 = Okc_Api.G_MISS_CHAR) THEN
754: l_llnv_rec.attribute3 := NULL;
749: END IF;
750: IF (l_llnv_rec.attribute2 = Okc_Api.G_MISS_CHAR) THEN
751: l_llnv_rec.attribute2 := NULL;
752: END IF;
753: IF (l_llnv_rec.attribute3 = Okc_Api.G_MISS_CHAR) THEN
754: l_llnv_rec.attribute3 := NULL;
755: END IF;
756: IF (l_llnv_rec.attribute4 = Okc_Api.G_MISS_CHAR) THEN
757: l_llnv_rec.attribute4 := NULL;
752: END IF;
753: IF (l_llnv_rec.attribute3 = Okc_Api.G_MISS_CHAR) THEN
754: l_llnv_rec.attribute3 := NULL;
755: END IF;
756: IF (l_llnv_rec.attribute4 = Okc_Api.G_MISS_CHAR) THEN
757: l_llnv_rec.attribute4 := NULL;
758: END IF;
759: IF (l_llnv_rec.attribute5 = Okc_Api.G_MISS_CHAR) THEN
760: l_llnv_rec.attribute5 := NULL;
755: END IF;
756: IF (l_llnv_rec.attribute4 = Okc_Api.G_MISS_CHAR) THEN
757: l_llnv_rec.attribute4 := NULL;
758: END IF;
759: IF (l_llnv_rec.attribute5 = Okc_Api.G_MISS_CHAR) THEN
760: l_llnv_rec.attribute5 := NULL;
761: END IF;
762: IF (l_llnv_rec.attribute6 = Okc_Api.G_MISS_CHAR) THEN
763: l_llnv_rec.attribute6 := NULL;
758: END IF;
759: IF (l_llnv_rec.attribute5 = Okc_Api.G_MISS_CHAR) THEN
760: l_llnv_rec.attribute5 := NULL;
761: END IF;
762: IF (l_llnv_rec.attribute6 = Okc_Api.G_MISS_CHAR) THEN
763: l_llnv_rec.attribute6 := NULL;
764: END IF;
765: IF (l_llnv_rec.attribute7 = Okc_Api.G_MISS_CHAR) THEN
766: l_llnv_rec.attribute7 := NULL;
761: END IF;
762: IF (l_llnv_rec.attribute6 = Okc_Api.G_MISS_CHAR) THEN
763: l_llnv_rec.attribute6 := NULL;
764: END IF;
765: IF (l_llnv_rec.attribute7 = Okc_Api.G_MISS_CHAR) THEN
766: l_llnv_rec.attribute7 := NULL;
767: END IF;
768: IF (l_llnv_rec.attribute8 = Okc_Api.G_MISS_CHAR) THEN
769: l_llnv_rec.attribute8 := NULL;
764: END IF;
765: IF (l_llnv_rec.attribute7 = Okc_Api.G_MISS_CHAR) THEN
766: l_llnv_rec.attribute7 := NULL;
767: END IF;
768: IF (l_llnv_rec.attribute8 = Okc_Api.G_MISS_CHAR) THEN
769: l_llnv_rec.attribute8 := NULL;
770: END IF;
771: IF (l_llnv_rec.attribute9 = Okc_Api.G_MISS_CHAR) THEN
772: l_llnv_rec.attribute9 := NULL;
767: END IF;
768: IF (l_llnv_rec.attribute8 = Okc_Api.G_MISS_CHAR) THEN
769: l_llnv_rec.attribute8 := NULL;
770: END IF;
771: IF (l_llnv_rec.attribute9 = Okc_Api.G_MISS_CHAR) THEN
772: l_llnv_rec.attribute9 := NULL;
773: END IF;
774: IF (l_llnv_rec.attribute10 = Okc_Api.G_MISS_CHAR) THEN
775: l_llnv_rec.attribute10 := NULL;
770: END IF;
771: IF (l_llnv_rec.attribute9 = Okc_Api.G_MISS_CHAR) THEN
772: l_llnv_rec.attribute9 := NULL;
773: END IF;
774: IF (l_llnv_rec.attribute10 = Okc_Api.G_MISS_CHAR) THEN
775: l_llnv_rec.attribute10 := NULL;
776: END IF;
777: IF (l_llnv_rec.attribute11 = Okc_Api.G_MISS_CHAR) THEN
778: l_llnv_rec.attribute11 := NULL;
773: END IF;
774: IF (l_llnv_rec.attribute10 = Okc_Api.G_MISS_CHAR) THEN
775: l_llnv_rec.attribute10 := NULL;
776: END IF;
777: IF (l_llnv_rec.attribute11 = Okc_Api.G_MISS_CHAR) THEN
778: l_llnv_rec.attribute11 := NULL;
779: END IF;
780: IF (l_llnv_rec.attribute12 = Okc_Api.G_MISS_CHAR) THEN
781: l_llnv_rec.attribute12 := NULL;
776: END IF;
777: IF (l_llnv_rec.attribute11 = Okc_Api.G_MISS_CHAR) THEN
778: l_llnv_rec.attribute11 := NULL;
779: END IF;
780: IF (l_llnv_rec.attribute12 = Okc_Api.G_MISS_CHAR) THEN
781: l_llnv_rec.attribute12 := NULL;
782: END IF;
783: IF (l_llnv_rec.attribute13 = Okc_Api.G_MISS_CHAR) THEN
784: l_llnv_rec.attribute13 := NULL;
779: END IF;
780: IF (l_llnv_rec.attribute12 = Okc_Api.G_MISS_CHAR) THEN
781: l_llnv_rec.attribute12 := NULL;
782: END IF;
783: IF (l_llnv_rec.attribute13 = Okc_Api.G_MISS_CHAR) THEN
784: l_llnv_rec.attribute13 := NULL;
785: END IF;
786: IF (l_llnv_rec.attribute14 = Okc_Api.G_MISS_CHAR) THEN
787: l_llnv_rec.attribute14 := NULL;
782: END IF;
783: IF (l_llnv_rec.attribute13 = Okc_Api.G_MISS_CHAR) THEN
784: l_llnv_rec.attribute13 := NULL;
785: END IF;
786: IF (l_llnv_rec.attribute14 = Okc_Api.G_MISS_CHAR) THEN
787: l_llnv_rec.attribute14 := NULL;
788: END IF;
789: IF (l_llnv_rec.attribute15 = Okc_Api.G_MISS_CHAR) THEN
790: l_llnv_rec.attribute15 := NULL;
785: END IF;
786: IF (l_llnv_rec.attribute14 = Okc_Api.G_MISS_CHAR) THEN
787: l_llnv_rec.attribute14 := NULL;
788: END IF;
789: IF (l_llnv_rec.attribute15 = Okc_Api.G_MISS_CHAR) THEN
790: l_llnv_rec.attribute15 := NULL;
791: END IF;
792: IF (l_llnv_rec.line_type = Okc_Api.G_MISS_CHAR) THEN
793: l_llnv_rec.line_type := NULL;
788: END IF;
789: IF (l_llnv_rec.attribute15 = Okc_Api.G_MISS_CHAR) THEN
790: l_llnv_rec.attribute15 := NULL;
791: END IF;
792: IF (l_llnv_rec.line_type = Okc_Api.G_MISS_CHAR) THEN
793: l_llnv_rec.line_type := NULL;
794: END IF;
795: IF (l_llnv_rec.request_id = Okc_Api.G_MISS_NUM) THEN
796: l_llnv_rec.request_id := NULL;
791: END IF;
792: IF (l_llnv_rec.line_type = Okc_Api.G_MISS_CHAR) THEN
793: l_llnv_rec.line_type := NULL;
794: END IF;
795: IF (l_llnv_rec.request_id = Okc_Api.G_MISS_NUM) THEN
796: l_llnv_rec.request_id := NULL;
797: END IF;
798: IF (l_llnv_rec.program_application_id = Okc_Api.G_MISS_NUM) THEN
799: l_llnv_rec.program_application_id := NULL;
794: END IF;
795: IF (l_llnv_rec.request_id = Okc_Api.G_MISS_NUM) THEN
796: l_llnv_rec.request_id := NULL;
797: END IF;
798: IF (l_llnv_rec.program_application_id = Okc_Api.G_MISS_NUM) THEN
799: l_llnv_rec.program_application_id := NULL;
800: END IF;
801: IF (l_llnv_rec.program_id = Okc_Api.G_MISS_NUM) THEN
802: l_llnv_rec.program_id := NULL;
797: END IF;
798: IF (l_llnv_rec.program_application_id = Okc_Api.G_MISS_NUM) THEN
799: l_llnv_rec.program_application_id := NULL;
800: END IF;
801: IF (l_llnv_rec.program_id = Okc_Api.G_MISS_NUM) THEN
802: l_llnv_rec.program_id := NULL;
803: END IF;
804: IF (l_llnv_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
805: l_llnv_rec.program_update_date := NULL;
800: END IF;
801: IF (l_llnv_rec.program_id = Okc_Api.G_MISS_NUM) THEN
802: l_llnv_rec.program_id := NULL;
803: END IF;
804: IF (l_llnv_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
805: l_llnv_rec.program_update_date := NULL;
806: END IF;
807: IF (l_llnv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
808: l_llnv_rec.org_id := NULL;
803: END IF;
804: IF (l_llnv_rec.program_update_date = Okc_Api.G_MISS_DATE) THEN
805: l_llnv_rec.program_update_date := NULL;
806: END IF;
807: IF (l_llnv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
808: l_llnv_rec.org_id := NULL;
809: END IF;
810: IF (l_llnv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
811: l_llnv_rec.created_by := NULL;
806: END IF;
807: IF (l_llnv_rec.org_id = Okc_Api.G_MISS_NUM) THEN
808: l_llnv_rec.org_id := NULL;
809: END IF;
810: IF (l_llnv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
811: l_llnv_rec.created_by := NULL;
812: END IF;
813: IF (l_llnv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
814: l_llnv_rec.creation_date := NULL;
809: END IF;
810: IF (l_llnv_rec.created_by = Okc_Api.G_MISS_NUM) THEN
811: l_llnv_rec.created_by := NULL;
812: END IF;
813: IF (l_llnv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
814: l_llnv_rec.creation_date := NULL;
815: END IF;
816: IF (l_llnv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
817: l_llnv_rec.last_updated_by := NULL;
812: END IF;
813: IF (l_llnv_rec.creation_date = Okc_Api.G_MISS_DATE) THEN
814: l_llnv_rec.creation_date := NULL;
815: END IF;
816: IF (l_llnv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
817: l_llnv_rec.last_updated_by := NULL;
818: END IF;
819: IF (l_llnv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
820: l_llnv_rec.last_update_date := NULL;
815: END IF;
816: IF (l_llnv_rec.last_updated_by = Okc_Api.G_MISS_NUM) THEN
817: l_llnv_rec.last_updated_by := NULL;
818: END IF;
819: IF (l_llnv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
820: l_llnv_rec.last_update_date := NULL;
821: END IF;
822: IF (l_llnv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
823: l_llnv_rec.last_update_login := NULL;
818: END IF;
819: IF (l_llnv_rec.last_update_date = Okc_Api.G_MISS_DATE) THEN
820: l_llnv_rec.last_update_date := NULL;
821: END IF;
822: IF (l_llnv_rec.last_update_login = Okc_Api.G_MISS_NUM) THEN
823: l_llnv_rec.last_update_login := NULL;
824: END IF;
825: RETURN(l_llnv_rec);
826: END null_out_defaults;
832: --------------------------------------------------
833: FUNCTION Validate_Attributes (
834: p_llnv_rec IN llnv_rec_type
835: ) RETURN VARCHAR2 IS
836: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
837: -- Added 04/19/2001 -- Sunil Mathew
838: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
839: BEGIN
840: -- Added 04/19/2001 Sunil Mathew
950: END IF;
951:
952: -- End Addition 04/19/2001 Sunil Mathew
953:
954: IF p_llnv_rec.id = Okc_Api.G_MISS_NUM OR
955: p_llnv_rec.id IS NULL
956: THEN
957: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
958: l_return_status := Okc_Api.G_RET_STS_ERROR;
953:
954: IF p_llnv_rec.id = Okc_Api.G_MISS_NUM OR
955: p_llnv_rec.id IS NULL
956: THEN
957: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
958: l_return_status := Okc_Api.G_RET_STS_ERROR;
959: ELSIF p_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
960: p_llnv_rec.object_version_number IS NULL
961: THEN
954: IF p_llnv_rec.id = Okc_Api.G_MISS_NUM OR
955: p_llnv_rec.id IS NULL
956: THEN
957: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
958: l_return_status := Okc_Api.G_RET_STS_ERROR;
959: ELSIF p_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
960: p_llnv_rec.object_version_number IS NULL
961: THEN
962: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
955: p_llnv_rec.id IS NULL
956: THEN
957: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
958: l_return_status := Okc_Api.G_RET_STS_ERROR;
959: ELSIF p_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
960: p_llnv_rec.object_version_number IS NULL
961: THEN
962: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
963: l_return_status := Okc_Api.G_RET_STS_ERROR;
958: l_return_status := Okc_Api.G_RET_STS_ERROR;
959: ELSIF p_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
960: p_llnv_rec.object_version_number IS NULL
961: THEN
962: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
963: l_return_status := Okc_Api.G_RET_STS_ERROR;
964: ELSIF p_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM OR
965: p_llnv_rec.sequence_number IS NULL
966: THEN
959: ELSIF p_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM OR
960: p_llnv_rec.object_version_number IS NULL
961: THEN
962: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
963: l_return_status := Okc_Api.G_RET_STS_ERROR;
964: ELSIF p_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM OR
965: p_llnv_rec.sequence_number IS NULL
966: THEN
967: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
960: p_llnv_rec.object_version_number IS NULL
961: THEN
962: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
963: l_return_status := Okc_Api.G_RET_STS_ERROR;
964: ELSIF p_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM OR
965: p_llnv_rec.sequence_number IS NULL
966: THEN
967: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
968: l_return_status := Okc_Api.G_RET_STS_ERROR;
963: l_return_status := Okc_Api.G_RET_STS_ERROR;
964: ELSIF p_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM OR
965: p_llnv_rec.sequence_number IS NULL
966: THEN
967: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
968: l_return_status := Okc_Api.G_RET_STS_ERROR;
969: ELSIF p_llnv_rec.line_type = Okc_Api.G_MISS_CHAR OR
970: p_llnv_rec.line_type IS NULL
971: THEN
964: ELSIF p_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM OR
965: p_llnv_rec.sequence_number IS NULL
966: THEN
967: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
968: l_return_status := Okc_Api.G_RET_STS_ERROR;
969: ELSIF p_llnv_rec.line_type = Okc_Api.G_MISS_CHAR OR
970: p_llnv_rec.line_type IS NULL
971: THEN
972: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_type');
965: p_llnv_rec.sequence_number IS NULL
966: THEN
967: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'sequence_number');
968: l_return_status := Okc_Api.G_RET_STS_ERROR;
969: ELSIF p_llnv_rec.line_type = Okc_Api.G_MISS_CHAR OR
970: p_llnv_rec.line_type IS NULL
971: THEN
972: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_type');
973: l_return_status := Okc_Api.G_RET_STS_ERROR;
968: l_return_status := Okc_Api.G_RET_STS_ERROR;
969: ELSIF p_llnv_rec.line_type = Okc_Api.G_MISS_CHAR OR
970: p_llnv_rec.line_type IS NULL
971: THEN
972: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_type');
973: l_return_status := Okc_Api.G_RET_STS_ERROR;
974: END IF;
975: RETURN(l_return_status);
976: END Validate_Attributes;
969: ELSIF p_llnv_rec.line_type = Okc_Api.G_MISS_CHAR OR
970: p_llnv_rec.line_type IS NULL
971: THEN
972: Okc_Api.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'line_type');
973: l_return_status := Okc_Api.G_RET_STS_ERROR;
974: END IF;
975: RETURN(l_return_status);
976: END Validate_Attributes;
977:
983: ----------------------------------------------
984: FUNCTION Validate_Record (
985: p_llnv_rec IN llnv_rec_type
986: ) RETURN VARCHAR2 IS
987: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
988: BEGIN
989: RETURN (l_return_status);
990: END Validate_Record;
991:
1112: -- validate_row for:OKL_CNSLD_AR_LINES_V --
1113: -------------------------------------------
1114: PROCEDURE validate_row(
1115: p_api_version IN NUMBER,
1116: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1117: x_return_status OUT NOCOPY VARCHAR2,
1118: x_msg_count OUT NOCOPY NUMBER,
1119: x_msg_data OUT NOCOPY VARCHAR2,
1120: p_llnv_rec IN llnv_rec_type) IS
1120: p_llnv_rec IN llnv_rec_type) IS
1121:
1122: l_api_version CONSTANT NUMBER := 1;
1123: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1124: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1125: l_llnv_rec llnv_rec_type := p_llnv_rec;
1126: l_lln_rec lln_rec_type;
1127: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type;
1128: BEGIN
1125: l_llnv_rec llnv_rec_type := p_llnv_rec;
1126: l_lln_rec lln_rec_type;
1127: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type;
1128: BEGIN
1129: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1130: G_PKG_NAME,
1131: p_init_msg_list,
1132: l_api_version,
1133: p_api_version,
1132: l_api_version,
1133: p_api_version,
1134: '_PVT',
1135: x_return_status);
1136: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1137: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1139: RAISE Okc_Api.G_EXCEPTION_ERROR;
1140: END IF;
1133: p_api_version,
1134: '_PVT',
1135: x_return_status);
1136: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1137: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1139: RAISE Okc_Api.G_EXCEPTION_ERROR;
1140: END IF;
1141: --- Validate all non-missing attributes (Item Level Validation)
1134: '_PVT',
1135: x_return_status);
1136: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1137: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1139: RAISE Okc_Api.G_EXCEPTION_ERROR;
1140: END IF;
1141: --- Validate all non-missing attributes (Item Level Validation)
1142: l_return_status := Validate_Attributes(l_llnv_rec);
1135: x_return_status);
1136: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1137: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1138: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1139: RAISE Okc_Api.G_EXCEPTION_ERROR;
1140: END IF;
1141: --- Validate all non-missing attributes (Item Level Validation)
1142: l_return_status := Validate_Attributes(l_llnv_rec);
1143: --- If any errors happen abort API
1140: END IF;
1141: --- Validate all non-missing attributes (Item Level Validation)
1142: l_return_status := Validate_Attributes(l_llnv_rec);
1143: --- If any errors happen abort API
1144: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okc_Api.G_EXCEPTION_ERROR;
1148: END IF;
1141: --- Validate all non-missing attributes (Item Level Validation)
1142: l_return_status := Validate_Attributes(l_llnv_rec);
1143: --- If any errors happen abort API
1144: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okc_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149: l_return_status := Validate_Record(l_llnv_rec);
1142: l_return_status := Validate_Attributes(l_llnv_rec);
1143: --- If any errors happen abort API
1144: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okc_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149: l_return_status := Validate_Record(l_llnv_rec);
1150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1143: --- If any errors happen abort API
1144: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1145: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okc_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149: l_return_status := Validate_Record(l_llnv_rec);
1150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1147: RAISE Okc_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149: l_return_status := Validate_Record(l_llnv_rec);
1150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1153: RAISE Okc_Api.G_EXCEPTION_ERROR;
1154: END IF;
1147: RAISE Okc_Api.G_EXCEPTION_ERROR;
1148: END IF;
1149: l_return_status := Validate_Record(l_llnv_rec);
1150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1153: RAISE Okc_Api.G_EXCEPTION_ERROR;
1154: END IF;
1155: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1148: END IF;
1149: l_return_status := Validate_Record(l_llnv_rec);
1150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1153: RAISE Okc_Api.G_EXCEPTION_ERROR;
1154: END IF;
1155: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1156: EXCEPTION
1149: l_return_status := Validate_Record(l_llnv_rec);
1150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1153: RAISE Okc_Api.G_EXCEPTION_ERROR;
1154: END IF;
1155: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1156: EXCEPTION
1157: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1152: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1153: RAISE Okc_Api.G_EXCEPTION_ERROR;
1154: END IF;
1155: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1156: EXCEPTION
1157: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1158: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1159: (
1153: RAISE Okc_Api.G_EXCEPTION_ERROR;
1154: END IF;
1155: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1156: EXCEPTION
1157: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1158: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1159: (
1160: l_api_name,
1161: G_PKG_NAME,
1154: END IF;
1155: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1156: EXCEPTION
1157: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1158: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1159: (
1160: l_api_name,
1161: G_PKG_NAME,
1162: 'OKC_API.G_RET_STS_ERROR',
1158: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1159: (
1160: l_api_name,
1161: G_PKG_NAME,
1162: 'OKC_API.G_RET_STS_ERROR',
1163: x_msg_count,
1164: x_msg_data,
1165: '_PVT'
1166: );
1163: x_msg_count,
1164: x_msg_data,
1165: '_PVT'
1166: );
1167: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1168: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1169: (
1170: l_api_name,
1171: G_PKG_NAME,
1164: x_msg_data,
1165: '_PVT'
1166: );
1167: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1168: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1169: (
1170: l_api_name,
1171: G_PKG_NAME,
1172: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1168: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1169: (
1170: l_api_name,
1171: G_PKG_NAME,
1172: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1173: x_msg_count,
1174: x_msg_data,
1175: '_PVT'
1176: );
1174: x_msg_data,
1175: '_PVT'
1176: );
1177: WHEN OTHERS THEN
1178: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1179: (
1180: l_api_name,
1181: G_PKG_NAME,
1182: 'OTHERS',
1189: -- PL/SQL TBL validate_row for:LLNV_TBL --
1190: ------------------------------------------
1191: PROCEDURE validate_row(
1192: p_api_version IN NUMBER,
1193: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1194: x_return_status OUT NOCOPY VARCHAR2,
1195: x_msg_count OUT NOCOPY NUMBER,
1196: x_msg_data OUT NOCOPY VARCHAR2,
1197: p_llnv_tbl IN llnv_tbl_type) IS
1197: p_llnv_tbl IN llnv_tbl_type) IS
1198:
1199: l_api_version CONSTANT NUMBER := 1;
1200: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1201: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1202:
1203: -- Begin Post-Generation Change
1204: -- overall error status
1205: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1206: -- End Post-Generation Change
1207:
1208: i NUMBER := 0;
1209: BEGIN
1210: Okc_Api.init_msg_list(p_init_msg_list);
1211: -- Make sure PL/SQL table has records in it before passing
1212: IF (p_llnv_tbl.COUNT > 0) THEN
1213: i := p_llnv_tbl.FIRST;
1214: LOOP
1213: i := p_llnv_tbl.FIRST;
1214: LOOP
1215: validate_row (
1216: p_api_version => p_api_version,
1217: p_init_msg_list => Okc_Api.G_FALSE,
1218: x_return_status => x_return_status,
1219: x_msg_count => x_msg_count,
1220: x_msg_data => x_msg_data,
1221: p_llnv_rec => p_llnv_tbl(i));
1237: x_return_status := l_overall_status;
1238: -- End Post-Generation Change
1239: END IF;
1240: EXCEPTION
1241: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1242: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1243: (
1244: l_api_name,
1245: G_PKG_NAME,
1238: -- End Post-Generation Change
1239: END IF;
1240: EXCEPTION
1241: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1242: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1243: (
1244: l_api_name,
1245: G_PKG_NAME,
1246: 'OKC_API.G_RET_STS_ERROR',
1242: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1243: (
1244: l_api_name,
1245: G_PKG_NAME,
1246: 'OKC_API.G_RET_STS_ERROR',
1247: x_msg_count,
1248: x_msg_data,
1249: '_PVT'
1250: );
1247: x_msg_count,
1248: x_msg_data,
1249: '_PVT'
1250: );
1251: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1252: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1253: (
1254: l_api_name,
1255: G_PKG_NAME,
1248: x_msg_data,
1249: '_PVT'
1250: );
1251: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1252: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1253: (
1254: l_api_name,
1255: G_PKG_NAME,
1256: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1252: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1253: (
1254: l_api_name,
1255: G_PKG_NAME,
1256: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1257: x_msg_count,
1258: x_msg_data,
1259: '_PVT'
1260: );
1258: x_msg_data,
1259: '_PVT'
1260: );
1261: WHEN OTHERS THEN
1262: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1263: (
1264: l_api_name,
1265: G_PKG_NAME,
1266: 'OTHERS',
1276: -----------------------------------------
1277: -- insert_row for:OKL_CNSLD_AR_LINES_B --
1278: -----------------------------------------
1279: PROCEDURE insert_row(
1280: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1281: x_return_status OUT NOCOPY VARCHAR2,
1282: x_msg_count OUT NOCOPY NUMBER,
1283: x_msg_data OUT NOCOPY VARCHAR2,
1284: p_lln_rec IN lln_rec_type,
1285: x_lln_rec OUT NOCOPY lln_rec_type) IS
1286:
1287: l_api_version CONSTANT NUMBER := 1;
1288: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1289: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1290: l_lln_rec lln_rec_type := p_lln_rec;
1291: l_def_lln_rec lln_rec_type;
1292: ---------------------------------------------
1293: -- Set_Attributes for:OKL_CNSLD_AR_LINES_B --
1295: FUNCTION Set_Attributes (
1296: p_lln_rec IN lln_rec_type,
1297: x_lln_rec OUT NOCOPY lln_rec_type
1298: ) RETURN VARCHAR2 IS
1299: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1300: BEGIN
1301: x_lln_rec := p_lln_rec;
1302: RETURN(l_return_status);
1303: END Set_Attributes;
1301: x_lln_rec := p_lln_rec;
1302: RETURN(l_return_status);
1303: END Set_Attributes;
1304: BEGIN
1305: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1306: p_init_msg_list,
1307: '_PVT',
1308: x_return_status);
1309: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1305: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1306: p_init_msg_list,
1307: '_PVT',
1308: x_return_status);
1309: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1310: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1311: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1312: RAISE Okc_Api.G_EXCEPTION_ERROR;
1313: END IF;
1306: p_init_msg_list,
1307: '_PVT',
1308: x_return_status);
1309: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1310: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1311: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1312: RAISE Okc_Api.G_EXCEPTION_ERROR;
1313: END IF;
1314: --- Setting item attributes
1307: '_PVT',
1308: x_return_status);
1309: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1310: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1311: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1312: RAISE Okc_Api.G_EXCEPTION_ERROR;
1313: END IF;
1314: --- Setting item attributes
1315: l_return_status := Set_Attributes(
1308: x_return_status);
1309: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1310: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1311: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1312: RAISE Okc_Api.G_EXCEPTION_ERROR;
1313: END IF;
1314: --- Setting item attributes
1315: l_return_status := Set_Attributes(
1316: p_lln_rec, -- IN
1315: l_return_status := Set_Attributes(
1316: p_lln_rec, -- IN
1317: l_lln_rec); -- OUT
1318: --- If any errors happen abort API
1319: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1322: RAISE Okc_Api.G_EXCEPTION_ERROR;
1323: END IF;
1316: p_lln_rec, -- IN
1317: l_lln_rec); -- OUT
1318: --- If any errors happen abort API
1319: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1322: RAISE Okc_Api.G_EXCEPTION_ERROR;
1323: END IF;
1324: INSERT INTO OKL_CNSLD_AR_LINES_B(
1317: l_lln_rec); -- OUT
1318: --- If any errors happen abort API
1319: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1322: RAISE Okc_Api.G_EXCEPTION_ERROR;
1323: END IF;
1324: INSERT INTO OKL_CNSLD_AR_LINES_B(
1325: id,
1318: --- If any errors happen abort API
1319: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1320: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1321: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1322: RAISE Okc_Api.G_EXCEPTION_ERROR;
1323: END IF;
1324: INSERT INTO OKL_CNSLD_AR_LINES_B(
1325: id,
1326: sequence_number,
1398: l_lln_rec.last_update_date,
1399: l_lln_rec.last_update_login);
1400: -- Set OUT values
1401: x_lln_rec := l_lln_rec;
1402: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1403: EXCEPTION
1404: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1405: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1406: (
1400: -- Set OUT values
1401: x_lln_rec := l_lln_rec;
1402: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1403: EXCEPTION
1404: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1405: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1406: (
1407: l_api_name,
1408: G_PKG_NAME,
1401: x_lln_rec := l_lln_rec;
1402: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1403: EXCEPTION
1404: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1405: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1406: (
1407: l_api_name,
1408: G_PKG_NAME,
1409: 'OKC_API.G_RET_STS_ERROR',
1405: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1406: (
1407: l_api_name,
1408: G_PKG_NAME,
1409: 'OKC_API.G_RET_STS_ERROR',
1410: x_msg_count,
1411: x_msg_data,
1412: '_PVT'
1413: );
1410: x_msg_count,
1411: x_msg_data,
1412: '_PVT'
1413: );
1414: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1415: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1416: (
1417: l_api_name,
1418: G_PKG_NAME,
1411: x_msg_data,
1412: '_PVT'
1413: );
1414: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1415: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1416: (
1417: l_api_name,
1418: G_PKG_NAME,
1419: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1415: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1416: (
1417: l_api_name,
1418: G_PKG_NAME,
1419: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1420: x_msg_count,
1421: x_msg_data,
1422: '_PVT'
1423: );
1421: x_msg_data,
1422: '_PVT'
1423: );
1424: WHEN OTHERS THEN
1425: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1426: (
1427: l_api_name,
1428: G_PKG_NAME,
1429: 'OTHERS',
1435: ------------------------------------------
1436: -- insert_row for:OKL_CNSLD_AR_LINES_TL --
1437: ------------------------------------------
1438: PROCEDURE insert_row(
1439: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1440: x_return_status OUT NOCOPY VARCHAR2,
1441: x_msg_count OUT NOCOPY NUMBER,
1442: x_msg_data OUT NOCOPY VARCHAR2,
1443: p_okl_cnsld_ar_lines_tl_rec IN okl_cnsld_ar_lines_tl_rec_type,
1444: x_okl_cnsld_ar_lines_tl_rec OUT NOCOPY okl_cnsld_ar_lines_tl_rec_type) IS
1445:
1446: l_api_version CONSTANT NUMBER := 1;
1447: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1448: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1449: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type := p_okl_cnsld_ar_lines_tl_rec;
1450: ldefoklcnsldarlinestlrec okl_cnsld_ar_lines_tl_rec_type;
1451: CURSOR get_languages IS
1452: SELECT *
1458: FUNCTION Set_Attributes (
1459: p_okl_cnsld_ar_lines_tl_rec IN okl_cnsld_ar_lines_tl_rec_type,
1460: x_okl_cnsld_ar_lines_tl_rec OUT NOCOPY okl_cnsld_ar_lines_tl_rec_type
1461: ) RETURN VARCHAR2 IS
1462: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1463: BEGIN
1464: x_okl_cnsld_ar_lines_tl_rec := p_okl_cnsld_ar_lines_tl_rec;
1465: x_okl_cnsld_ar_lines_tl_rec.LANGUAGE := USERENV('LANG');
1466: x_okl_cnsld_ar_lines_tl_rec.SOURCE_LANG := USERENV('LANG');
1466: x_okl_cnsld_ar_lines_tl_rec.SOURCE_LANG := USERENV('LANG');
1467: RETURN(l_return_status);
1468: END Set_Attributes;
1469: BEGIN
1470: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1471: p_init_msg_list,
1472: '_PVT',
1473: x_return_status);
1474: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1470: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1471: p_init_msg_list,
1472: '_PVT',
1473: x_return_status);
1474: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1477: RAISE Okc_Api.G_EXCEPTION_ERROR;
1478: END IF;
1471: p_init_msg_list,
1472: '_PVT',
1473: x_return_status);
1474: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1477: RAISE Okc_Api.G_EXCEPTION_ERROR;
1478: END IF;
1479: --- Setting item attributes
1472: '_PVT',
1473: x_return_status);
1474: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1477: RAISE Okc_Api.G_EXCEPTION_ERROR;
1478: END IF;
1479: --- Setting item attributes
1480: l_return_status := Set_Attributes(
1473: x_return_status);
1474: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1475: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1476: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1477: RAISE Okc_Api.G_EXCEPTION_ERROR;
1478: END IF;
1479: --- Setting item attributes
1480: l_return_status := Set_Attributes(
1481: p_okl_cnsld_ar_lines_tl_rec, -- IN
1480: l_return_status := Set_Attributes(
1481: p_okl_cnsld_ar_lines_tl_rec, -- IN
1482: l_okl_cnsld_ar_lines_tl_rec); -- OUT
1483: --- If any errors happen abort API
1484: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1487: RAISE Okc_Api.G_EXCEPTION_ERROR;
1488: END IF;
1481: p_okl_cnsld_ar_lines_tl_rec, -- IN
1482: l_okl_cnsld_ar_lines_tl_rec); -- OUT
1483: --- If any errors happen abort API
1484: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1487: RAISE Okc_Api.G_EXCEPTION_ERROR;
1488: END IF;
1489: FOR l_lang_rec IN get_languages LOOP
1482: l_okl_cnsld_ar_lines_tl_rec); -- OUT
1483: --- If any errors happen abort API
1484: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1487: RAISE Okc_Api.G_EXCEPTION_ERROR;
1488: END IF;
1489: FOR l_lang_rec IN get_languages LOOP
1490: l_okl_cnsld_ar_lines_tl_rec.LANGUAGE := l_lang_rec.language_code;
1483: --- If any errors happen abort API
1484: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1485: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1486: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1487: RAISE Okc_Api.G_EXCEPTION_ERROR;
1488: END IF;
1489: FOR l_lang_rec IN get_languages LOOP
1490: l_okl_cnsld_ar_lines_tl_rec.LANGUAGE := l_lang_rec.language_code;
1491: INSERT INTO OKL_CNSLD_AR_LINES_TL(
1510: l_okl_cnsld_ar_lines_tl_rec.last_update_login);
1511: END LOOP;
1512: -- Set OUT values
1513: x_okl_cnsld_ar_lines_tl_rec := l_okl_cnsld_ar_lines_tl_rec;
1514: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1515: EXCEPTION
1516: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1517: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1518: (
1512: -- Set OUT values
1513: x_okl_cnsld_ar_lines_tl_rec := l_okl_cnsld_ar_lines_tl_rec;
1514: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1515: EXCEPTION
1516: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1517: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1518: (
1519: l_api_name,
1520: G_PKG_NAME,
1513: x_okl_cnsld_ar_lines_tl_rec := l_okl_cnsld_ar_lines_tl_rec;
1514: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1515: EXCEPTION
1516: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1517: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1518: (
1519: l_api_name,
1520: G_PKG_NAME,
1521: 'OKC_API.G_RET_STS_ERROR',
1517: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1518: (
1519: l_api_name,
1520: G_PKG_NAME,
1521: 'OKC_API.G_RET_STS_ERROR',
1522: x_msg_count,
1523: x_msg_data,
1524: '_PVT'
1525: );
1522: x_msg_count,
1523: x_msg_data,
1524: '_PVT'
1525: );
1526: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1527: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1528: (
1529: l_api_name,
1530: G_PKG_NAME,
1523: x_msg_data,
1524: '_PVT'
1525: );
1526: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1527: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1528: (
1529: l_api_name,
1530: G_PKG_NAME,
1531: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1527: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1528: (
1529: l_api_name,
1530: G_PKG_NAME,
1531: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1532: x_msg_count,
1533: x_msg_data,
1534: '_PVT'
1535: );
1533: x_msg_data,
1534: '_PVT'
1535: );
1536: WHEN OTHERS THEN
1537: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1538: (
1539: l_api_name,
1540: G_PKG_NAME,
1541: 'OTHERS',
1548: -- insert_row for:OKL_CNSLD_AR_LINES_V --
1549: -----------------------------------------
1550: PROCEDURE insert_row(
1551: p_api_version IN NUMBER,
1552: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1553: x_return_status OUT NOCOPY VARCHAR2,
1554: x_msg_count OUT NOCOPY NUMBER,
1555: x_msg_data OUT NOCOPY VARCHAR2,
1556: p_llnv_rec IN llnv_rec_type,
1557: x_llnv_rec OUT NOCOPY llnv_rec_type) IS
1558:
1559: l_api_version CONSTANT NUMBER := 1;
1560: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1561: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1562: l_llnv_rec llnv_rec_type;
1563: l_def_llnv_rec llnv_rec_type;
1564: l_lln_rec lln_rec_type;
1565: lx_lln_rec lln_rec_type;
1586: FUNCTION Set_Attributes (
1587: p_llnv_rec IN llnv_rec_type,
1588: x_llnv_rec OUT NOCOPY llnv_rec_type
1589: ) RETURN VARCHAR2 IS
1590: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1591: BEGIN
1592: x_llnv_rec := p_llnv_rec;
1593: x_llnv_rec.OBJECT_VERSION_NUMBER := 1;
1594: x_llnv_rec.SFWT_FLAG := 'N';
1610:
1611: RETURN(l_return_status);
1612: END Set_Attributes;
1613: BEGIN
1614: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1615: G_PKG_NAME,
1616: p_init_msg_list,
1617: l_api_version,
1618: p_api_version,
1617: l_api_version,
1618: p_api_version,
1619: '_PVT',
1620: x_return_status);
1621: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1624: RAISE Okc_Api.G_EXCEPTION_ERROR;
1625: END IF;
1618: p_api_version,
1619: '_PVT',
1620: x_return_status);
1621: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1624: RAISE Okc_Api.G_EXCEPTION_ERROR;
1625: END IF;
1626: l_llnv_rec := null_out_defaults(p_llnv_rec);
1619: '_PVT',
1620: x_return_status);
1621: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1624: RAISE Okc_Api.G_EXCEPTION_ERROR;
1625: END IF;
1626: l_llnv_rec := null_out_defaults(p_llnv_rec);
1627: -- Set primary key value
1620: x_return_status);
1621: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1624: RAISE Okc_Api.G_EXCEPTION_ERROR;
1625: END IF;
1626: l_llnv_rec := null_out_defaults(p_llnv_rec);
1627: -- Set primary key value
1628: l_llnv_rec.ID := get_seq_id;
1630: l_return_status := Set_Attributes(
1631: l_llnv_rec, -- IN
1632: l_def_llnv_rec); -- OUT
1633: --- If any errors happen abort API
1634: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1636: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1637: RAISE Okc_Api.G_EXCEPTION_ERROR;
1638: END IF;
1631: l_llnv_rec, -- IN
1632: l_def_llnv_rec); -- OUT
1633: --- If any errors happen abort API
1634: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1636: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1637: RAISE Okc_Api.G_EXCEPTION_ERROR;
1638: END IF;
1639: l_def_llnv_rec := fill_who_columns(l_def_llnv_rec);
1632: l_def_llnv_rec); -- OUT
1633: --- If any errors happen abort API
1634: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1636: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1637: RAISE Okc_Api.G_EXCEPTION_ERROR;
1638: END IF;
1639: l_def_llnv_rec := fill_who_columns(l_def_llnv_rec);
1640: --- Validate all non-missing attributes (Item Level Validation)
1633: --- If any errors happen abort API
1634: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1636: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1637: RAISE Okc_Api.G_EXCEPTION_ERROR;
1638: END IF;
1639: l_def_llnv_rec := fill_who_columns(l_def_llnv_rec);
1640: --- Validate all non-missing attributes (Item Level Validation)
1641: l_return_status := Validate_Attributes(l_def_llnv_rec);
1639: l_def_llnv_rec := fill_who_columns(l_def_llnv_rec);
1640: --- Validate all non-missing attributes (Item Level Validation)
1641: l_return_status := Validate_Attributes(l_def_llnv_rec);
1642: --- If any errors happen abort API
1643: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1646: RAISE Okc_Api.G_EXCEPTION_ERROR;
1647: END IF;
1640: --- Validate all non-missing attributes (Item Level Validation)
1641: l_return_status := Validate_Attributes(l_def_llnv_rec);
1642: --- If any errors happen abort API
1643: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1646: RAISE Okc_Api.G_EXCEPTION_ERROR;
1647: END IF;
1648: l_return_status := Validate_Record(l_def_llnv_rec);
1641: l_return_status := Validate_Attributes(l_def_llnv_rec);
1642: --- If any errors happen abort API
1643: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1646: RAISE Okc_Api.G_EXCEPTION_ERROR;
1647: END IF;
1648: l_return_status := Validate_Record(l_def_llnv_rec);
1649: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1642: --- If any errors happen abort API
1643: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1644: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1646: RAISE Okc_Api.G_EXCEPTION_ERROR;
1647: END IF;
1648: l_return_status := Validate_Record(l_def_llnv_rec);
1649: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1645: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1646: RAISE Okc_Api.G_EXCEPTION_ERROR;
1647: END IF;
1648: l_return_status := Validate_Record(l_def_llnv_rec);
1649: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1652: RAISE Okc_Api.G_EXCEPTION_ERROR;
1653: END IF;
1646: RAISE Okc_Api.G_EXCEPTION_ERROR;
1647: END IF;
1648: l_return_status := Validate_Record(l_def_llnv_rec);
1649: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1652: RAISE Okc_Api.G_EXCEPTION_ERROR;
1653: END IF;
1654: --------------------------------------
1647: END IF;
1648: l_return_status := Validate_Record(l_def_llnv_rec);
1649: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1652: RAISE Okc_Api.G_EXCEPTION_ERROR;
1653: END IF;
1654: --------------------------------------
1655: -- Move VIEW record to "Child" records
1648: l_return_status := Validate_Record(l_def_llnv_rec);
1649: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1650: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1651: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1652: RAISE Okc_Api.G_EXCEPTION_ERROR;
1653: END IF;
1654: --------------------------------------
1655: -- Move VIEW record to "Child" records
1656: --------------------------------------
1666: x_msg_data,
1667: l_lln_rec,
1668: lx_lln_rec
1669: );
1670: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1671: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1673: RAISE Okc_Api.G_EXCEPTION_ERROR;
1674: END IF;
1667: l_lln_rec,
1668: lx_lln_rec
1669: );
1670: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1671: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1673: RAISE Okc_Api.G_EXCEPTION_ERROR;
1674: END IF;
1675: migrate(lx_lln_rec, l_def_llnv_rec);
1668: lx_lln_rec
1669: );
1670: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1671: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1673: RAISE Okc_Api.G_EXCEPTION_ERROR;
1674: END IF;
1675: migrate(lx_lln_rec, l_def_llnv_rec);
1676: insert_row(
1669: );
1670: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1671: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1672: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1673: RAISE Okc_Api.G_EXCEPTION_ERROR;
1674: END IF;
1675: migrate(lx_lln_rec, l_def_llnv_rec);
1676: insert_row(
1677: p_init_msg_list,
1680: x_msg_data,
1681: l_okl_cnsld_ar_lines_tl_rec,
1682: lx_okl_cnsld_ar_lines_tl_rec
1683: );
1684: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1687: RAISE Okc_Api.G_EXCEPTION_ERROR;
1688: END IF;
1681: l_okl_cnsld_ar_lines_tl_rec,
1682: lx_okl_cnsld_ar_lines_tl_rec
1683: );
1684: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1687: RAISE Okc_Api.G_EXCEPTION_ERROR;
1688: END IF;
1689: migrate(lx_okl_cnsld_ar_lines_tl_rec, l_def_llnv_rec);
1682: lx_okl_cnsld_ar_lines_tl_rec
1683: );
1684: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1687: RAISE Okc_Api.G_EXCEPTION_ERROR;
1688: END IF;
1689: migrate(lx_okl_cnsld_ar_lines_tl_rec, l_def_llnv_rec);
1690: -- Set OUT values
1683: );
1684: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1687: RAISE Okc_Api.G_EXCEPTION_ERROR;
1688: END IF;
1689: migrate(lx_okl_cnsld_ar_lines_tl_rec, l_def_llnv_rec);
1690: -- Set OUT values
1691: x_llnv_rec := l_def_llnv_rec;
1688: END IF;
1689: migrate(lx_okl_cnsld_ar_lines_tl_rec, l_def_llnv_rec);
1690: -- Set OUT values
1691: x_llnv_rec := l_def_llnv_rec;
1692: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1693: EXCEPTION
1694: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1695: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1696: (
1690: -- Set OUT values
1691: x_llnv_rec := l_def_llnv_rec;
1692: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1693: EXCEPTION
1694: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1695: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1691: x_llnv_rec := l_def_llnv_rec;
1692: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1693: EXCEPTION
1694: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1695: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'OKC_API.G_RET_STS_ERROR',
1695: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'OKC_API.G_RET_STS_ERROR',
1700: x_msg_count,
1701: x_msg_data,
1702: '_PVT'
1703: );
1700: x_msg_count,
1701: x_msg_data,
1702: '_PVT'
1703: );
1704: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1705: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1701: x_msg_data,
1702: '_PVT'
1703: );
1704: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1705: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1705: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1710: x_msg_count,
1711: x_msg_data,
1712: '_PVT'
1713: );
1711: x_msg_data,
1712: '_PVT'
1713: );
1714: WHEN OTHERS THEN
1715: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1716: (
1717: l_api_name,
1718: G_PKG_NAME,
1719: 'OTHERS',
1726: -- PL/SQL TBL insert_row for:LLNV_TBL --
1727: ----------------------------------------
1728: PROCEDURE insert_row(
1729: p_api_version IN NUMBER,
1730: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1731: x_return_status OUT NOCOPY VARCHAR2,
1732: x_msg_count OUT NOCOPY NUMBER,
1733: x_msg_data OUT NOCOPY VARCHAR2,
1734: p_llnv_tbl IN llnv_tbl_type,
1735: x_llnv_tbl OUT NOCOPY llnv_tbl_type) IS
1736:
1737: l_api_version CONSTANT NUMBER := 1;
1738: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1739: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1740: -- Begin Post-Generation Change
1741: -- overall error status
1742: l_overall_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1743: -- End Post-Generation Change
1743: -- End Post-Generation Change
1744:
1745: i NUMBER := 0;
1746: BEGIN
1747: Okc_Api.init_msg_list(p_init_msg_list);
1748: -- Make sure PL/SQL table has records in it before passing
1749: IF (p_llnv_tbl.COUNT > 0) THEN
1750: i := p_llnv_tbl.FIRST;
1751: LOOP
1750: i := p_llnv_tbl.FIRST;
1751: LOOP
1752: insert_row (
1753: p_api_version => p_api_version,
1754: p_init_msg_list => Okc_Api.G_FALSE,
1755: x_return_status => x_return_status,
1756: x_msg_count => x_msg_count,
1757: x_msg_data => x_msg_data,
1758: p_llnv_rec => p_llnv_tbl(i),
1773: x_return_status := l_overall_status;
1774: -- End Post-Generation Change
1775: END IF;
1776: EXCEPTION
1777: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1778: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1779: (
1780: l_api_name,
1781: G_PKG_NAME,
1774: -- End Post-Generation Change
1775: END IF;
1776: EXCEPTION
1777: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1778: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1779: (
1780: l_api_name,
1781: G_PKG_NAME,
1782: 'OKC_API.G_RET_STS_ERROR',
1778: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1779: (
1780: l_api_name,
1781: G_PKG_NAME,
1782: 'OKC_API.G_RET_STS_ERROR',
1783: x_msg_count,
1784: x_msg_data,
1785: '_PVT'
1786: );
1783: x_msg_count,
1784: x_msg_data,
1785: '_PVT'
1786: );
1787: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1788: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1789: (
1790: l_api_name,
1791: G_PKG_NAME,
1784: x_msg_data,
1785: '_PVT'
1786: );
1787: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1788: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1789: (
1790: l_api_name,
1791: G_PKG_NAME,
1792: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1788: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1789: (
1790: l_api_name,
1791: G_PKG_NAME,
1792: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1793: x_msg_count,
1794: x_msg_data,
1795: '_PVT'
1796: );
1794: x_msg_data,
1795: '_PVT'
1796: );
1797: WHEN OTHERS THEN
1798: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1799: (
1800: l_api_name,
1801: G_PKG_NAME,
1802: 'OTHERS',
1812: ---------------------------------------
1813: -- lock_row for:OKL_CNSLD_AR_LINES_B --
1814: ---------------------------------------
1815: PROCEDURE lock_row(
1816: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1817: x_return_status OUT NOCOPY VARCHAR2,
1818: x_msg_count OUT NOCOPY NUMBER,
1819: x_msg_data OUT NOCOPY VARCHAR2,
1820: p_lln_rec IN lln_rec_type) IS
1833: FROM OKL_CNSLD_AR_LINES_B
1834: WHERE ID = p_lln_rec.id;
1835: l_api_version CONSTANT NUMBER := 1;
1836: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1837: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1838: l_object_version_number OKL_CNSLD_AR_LINES_B.OBJECT_VERSION_NUMBER%TYPE;
1839: lc_object_version_number OKL_CNSLD_AR_LINES_B.OBJECT_VERSION_NUMBER%TYPE;
1840: l_row_notfound BOOLEAN := FALSE;
1841: lc_row_notfound BOOLEAN := FALSE;
1839: lc_object_version_number OKL_CNSLD_AR_LINES_B.OBJECT_VERSION_NUMBER%TYPE;
1840: l_row_notfound BOOLEAN := FALSE;
1841: lc_row_notfound BOOLEAN := FALSE;
1842: BEGIN
1843: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1844: p_init_msg_list,
1845: '_PVT',
1846: x_return_status);
1847: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1843: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1844: p_init_msg_list,
1845: '_PVT',
1846: x_return_status);
1847: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1850: RAISE Okc_Api.G_EXCEPTION_ERROR;
1851: END IF;
1844: p_init_msg_list,
1845: '_PVT',
1846: x_return_status);
1847: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1850: RAISE Okc_Api.G_EXCEPTION_ERROR;
1851: END IF;
1852: BEGIN
1845: '_PVT',
1846: x_return_status);
1847: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1850: RAISE Okc_Api.G_EXCEPTION_ERROR;
1851: END IF;
1852: BEGIN
1853: OPEN lock_csr(p_lln_rec);
1846: x_return_status);
1847: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1848: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1849: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1850: RAISE Okc_Api.G_EXCEPTION_ERROR;
1851: END IF;
1852: BEGIN
1853: OPEN lock_csr(p_lln_rec);
1854: FETCH lock_csr INTO l_object_version_number;
1858: WHEN E_Resource_Busy THEN
1859: IF (lock_csr%ISOPEN) THEN
1860: CLOSE lock_csr;
1861: END IF;
1862: Okc_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1863: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1864: END;
1865:
1866: IF ( l_row_notfound ) THEN
1869: lc_row_notfound := lchk_csr%NOTFOUND;
1870: CLOSE lchk_csr;
1871: END IF;
1872: IF (lc_row_notfound) THEN
1873: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE Okc_Api.G_EXCEPTION_ERROR;
1875: ELSIF lc_object_version_number > p_lln_rec.object_version_number THEN
1876: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE Okc_Api.G_EXCEPTION_ERROR;
1870: CLOSE lchk_csr;
1871: END IF;
1872: IF (lc_row_notfound) THEN
1873: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE Okc_Api.G_EXCEPTION_ERROR;
1875: ELSIF lc_object_version_number > p_lln_rec.object_version_number THEN
1876: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE Okc_Api.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_lln_rec.object_version_number THEN
1872: IF (lc_row_notfound) THEN
1873: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE Okc_Api.G_EXCEPTION_ERROR;
1875: ELSIF lc_object_version_number > p_lln_rec.object_version_number THEN
1876: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE Okc_Api.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_lln_rec.object_version_number THEN
1879: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okc_Api.G_EXCEPTION_ERROR;
1873: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE Okc_Api.G_EXCEPTION_ERROR;
1875: ELSIF lc_object_version_number > p_lln_rec.object_version_number THEN
1876: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE Okc_Api.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_lln_rec.object_version_number THEN
1879: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okc_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1875: ELSIF lc_object_version_number > p_lln_rec.object_version_number THEN
1876: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE Okc_Api.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_lln_rec.object_version_number THEN
1879: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okc_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1882: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1876: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE Okc_Api.G_EXCEPTION_ERROR;
1878: ELSIF lc_object_version_number <> p_lln_rec.object_version_number THEN
1879: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okc_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1882: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1878: ELSIF lc_object_version_number <> p_lln_rec.object_version_number THEN
1879: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okc_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1882: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1885: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1879: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1880: RAISE Okc_Api.G_EXCEPTION_ERROR;
1881: ELSIF lc_object_version_number = -1 THEN
1882: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1885: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1887: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1881: ELSIF lc_object_version_number = -1 THEN
1882: Okc_Api.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1885: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1887: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1888: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1889: (
1883: RAISE Okc_Api.G_EXCEPTION_ERROR;
1884: END IF;
1885: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1887: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1888: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1884: END IF;
1885: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1886: EXCEPTION
1887: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1888: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1892: 'OKC_API.G_RET_STS_ERROR',
1888: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1889: (
1890: l_api_name,
1891: G_PKG_NAME,
1892: 'OKC_API.G_RET_STS_ERROR',
1893: x_msg_count,
1894: x_msg_data,
1895: '_PVT'
1896: );
1893: x_msg_count,
1894: x_msg_data,
1895: '_PVT'
1896: );
1897: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1898: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1894: x_msg_data,
1895: '_PVT'
1896: );
1897: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1898: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1902: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1898: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1899: (
1900: l_api_name,
1901: G_PKG_NAME,
1902: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1903: x_msg_count,
1904: x_msg_data,
1905: '_PVT'
1906: );
1904: x_msg_data,
1905: '_PVT'
1906: );
1907: WHEN OTHERS THEN
1908: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1909: (
1910: l_api_name,
1911: G_PKG_NAME,
1912: 'OTHERS',
1918: ----------------------------------------
1919: -- lock_row for:OKL_CNSLD_AR_LINES_TL --
1920: ----------------------------------------
1921: PROCEDURE lock_row(
1922: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
1923: x_return_status OUT NOCOPY VARCHAR2,
1924: x_msg_count OUT NOCOPY NUMBER,
1925: x_msg_data OUT NOCOPY VARCHAR2,
1926: p_okl_cnsld_ar_lines_tl_rec IN okl_cnsld_ar_lines_tl_rec_type) IS
1934: FOR UPDATE NOWAIT;
1935:
1936: l_api_version CONSTANT NUMBER := 1;
1937: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1938: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1939: l_lock_var lock_csr%ROWTYPE;
1940: l_row_notfound BOOLEAN := FALSE;
1941: lc_row_notfound BOOLEAN := FALSE;
1942: BEGIN
1939: l_lock_var lock_csr%ROWTYPE;
1940: l_row_notfound BOOLEAN := FALSE;
1941: lc_row_notfound BOOLEAN := FALSE;
1942: BEGIN
1943: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1944: p_init_msg_list,
1945: '_PVT',
1946: x_return_status);
1947: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1943: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
1944: p_init_msg_list,
1945: '_PVT',
1946: x_return_status);
1947: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1948: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1949: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1950: RAISE Okc_Api.G_EXCEPTION_ERROR;
1951: END IF;
1944: p_init_msg_list,
1945: '_PVT',
1946: x_return_status);
1947: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1948: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1949: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1950: RAISE Okc_Api.G_EXCEPTION_ERROR;
1951: END IF;
1952: BEGIN
1945: '_PVT',
1946: x_return_status);
1947: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1948: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1949: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1950: RAISE Okc_Api.G_EXCEPTION_ERROR;
1951: END IF;
1952: BEGIN
1953: OPEN lock_csr(p_okl_cnsld_ar_lines_tl_rec);
1946: x_return_status);
1947: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
1948: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1949: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
1950: RAISE Okc_Api.G_EXCEPTION_ERROR;
1951: END IF;
1952: BEGIN
1953: OPEN lock_csr(p_okl_cnsld_ar_lines_tl_rec);
1954: FETCH lock_csr INTO l_lock_var;
1958: WHEN E_Resource_Busy THEN
1959: IF (lock_csr%ISOPEN) THEN
1960: CLOSE lock_csr;
1961: END IF;
1962: Okc_Api.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1963: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1964: END;
1965:
1966: IF ( l_row_notfound ) THEN
1963: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
1964: END;
1965:
1966: IF ( l_row_notfound ) THEN
1967: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1968: RAISE Okc_Api.G_EXCEPTION_ERROR;
1969: END IF;
1970: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1971: EXCEPTION
1964: END;
1965:
1966: IF ( l_row_notfound ) THEN
1967: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1968: RAISE Okc_Api.G_EXCEPTION_ERROR;
1969: END IF;
1970: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1971: EXCEPTION
1972: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1966: IF ( l_row_notfound ) THEN
1967: Okc_Api.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1968: RAISE Okc_Api.G_EXCEPTION_ERROR;
1969: END IF;
1970: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1971: EXCEPTION
1972: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1973: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1974: (
1968: RAISE Okc_Api.G_EXCEPTION_ERROR;
1969: END IF;
1970: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1971: EXCEPTION
1972: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1973: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1974: (
1975: l_api_name,
1976: G_PKG_NAME,
1969: END IF;
1970: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
1971: EXCEPTION
1972: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
1973: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1974: (
1975: l_api_name,
1976: G_PKG_NAME,
1977: 'OKC_API.G_RET_STS_ERROR',
1973: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
1974: (
1975: l_api_name,
1976: G_PKG_NAME,
1977: 'OKC_API.G_RET_STS_ERROR',
1978: x_msg_count,
1979: x_msg_data,
1980: '_PVT'
1981: );
1978: x_msg_count,
1979: x_msg_data,
1980: '_PVT'
1981: );
1982: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1983: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1984: (
1985: l_api_name,
1986: G_PKG_NAME,
1979: x_msg_data,
1980: '_PVT'
1981: );
1982: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1983: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1984: (
1985: l_api_name,
1986: G_PKG_NAME,
1987: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1983: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1984: (
1985: l_api_name,
1986: G_PKG_NAME,
1987: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1988: x_msg_count,
1989: x_msg_data,
1990: '_PVT'
1991: );
1989: x_msg_data,
1990: '_PVT'
1991: );
1992: WHEN OTHERS THEN
1993: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
1994: (
1995: l_api_name,
1996: G_PKG_NAME,
1997: 'OTHERS',
2004: -- lock_row for:OKL_CNSLD_AR_LINES_V --
2005: ---------------------------------------
2006: PROCEDURE lock_row(
2007: p_api_version IN NUMBER,
2008: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2009: x_return_status OUT NOCOPY VARCHAR2,
2010: x_msg_count OUT NOCOPY NUMBER,
2011: x_msg_data OUT NOCOPY VARCHAR2,
2012: p_llnv_rec IN llnv_rec_type) IS
2012: p_llnv_rec IN llnv_rec_type) IS
2013:
2014: l_api_version CONSTANT NUMBER := 1;
2015: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2016: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2017: l_lln_rec lln_rec_type;
2018: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type;
2019: BEGIN
2020: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2016: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2017: l_lln_rec lln_rec_type;
2018: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type;
2019: BEGIN
2020: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2021: G_PKG_NAME,
2022: p_init_msg_list,
2023: l_api_version,
2024: p_api_version,
2023: l_api_version,
2024: p_api_version,
2025: '_PVT',
2026: x_return_status);
2027: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2030: RAISE Okc_Api.G_EXCEPTION_ERROR;
2031: END IF;
2024: p_api_version,
2025: '_PVT',
2026: x_return_status);
2027: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2030: RAISE Okc_Api.G_EXCEPTION_ERROR;
2031: END IF;
2032: --------------------------------------
2025: '_PVT',
2026: x_return_status);
2027: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2030: RAISE Okc_Api.G_EXCEPTION_ERROR;
2031: END IF;
2032: --------------------------------------
2033: -- Move VIEW record to "Child" records
2026: x_return_status);
2027: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2028: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2029: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2030: RAISE Okc_Api.G_EXCEPTION_ERROR;
2031: END IF;
2032: --------------------------------------
2033: -- Move VIEW record to "Child" records
2034: --------------------------------------
2043: x_msg_count,
2044: x_msg_data,
2045: l_lln_rec
2046: );
2047: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2050: RAISE Okc_Api.G_EXCEPTION_ERROR;
2051: END IF;
2044: x_msg_data,
2045: l_lln_rec
2046: );
2047: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2050: RAISE Okc_Api.G_EXCEPTION_ERROR;
2051: END IF;
2052: lock_row(
2045: l_lln_rec
2046: );
2047: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2050: RAISE Okc_Api.G_EXCEPTION_ERROR;
2051: END IF;
2052: lock_row(
2053: p_init_msg_list,
2046: );
2047: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2050: RAISE Okc_Api.G_EXCEPTION_ERROR;
2051: END IF;
2052: lock_row(
2053: p_init_msg_list,
2054: x_return_status,
2055: x_msg_count,
2056: x_msg_data,
2057: l_okl_cnsld_ar_lines_tl_rec
2058: );
2059: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2060: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2061: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2062: RAISE Okc_Api.G_EXCEPTION_ERROR;
2063: END IF;
2056: x_msg_data,
2057: l_okl_cnsld_ar_lines_tl_rec
2058: );
2059: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2060: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2061: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2062: RAISE Okc_Api.G_EXCEPTION_ERROR;
2063: END IF;
2064: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2057: l_okl_cnsld_ar_lines_tl_rec
2058: );
2059: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2060: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2061: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2062: RAISE Okc_Api.G_EXCEPTION_ERROR;
2063: END IF;
2064: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2065: EXCEPTION
2058: );
2059: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2060: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2061: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2062: RAISE Okc_Api.G_EXCEPTION_ERROR;
2063: END IF;
2064: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2065: EXCEPTION
2066: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2060: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2061: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2062: RAISE Okc_Api.G_EXCEPTION_ERROR;
2063: END IF;
2064: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2065: EXCEPTION
2066: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2067: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2068: (
2062: RAISE Okc_Api.G_EXCEPTION_ERROR;
2063: END IF;
2064: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2065: EXCEPTION
2066: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2067: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2068: (
2069: l_api_name,
2070: G_PKG_NAME,
2063: END IF;
2064: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2065: EXCEPTION
2066: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2067: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2068: (
2069: l_api_name,
2070: G_PKG_NAME,
2071: 'OKC_API.G_RET_STS_ERROR',
2067: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2068: (
2069: l_api_name,
2070: G_PKG_NAME,
2071: 'OKC_API.G_RET_STS_ERROR',
2072: x_msg_count,
2073: x_msg_data,
2074: '_PVT'
2075: );
2072: x_msg_count,
2073: x_msg_data,
2074: '_PVT'
2075: );
2076: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2077: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2078: (
2079: l_api_name,
2080: G_PKG_NAME,
2073: x_msg_data,
2074: '_PVT'
2075: );
2076: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2077: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2078: (
2079: l_api_name,
2080: G_PKG_NAME,
2081: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2077: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2078: (
2079: l_api_name,
2080: G_PKG_NAME,
2081: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2082: x_msg_count,
2083: x_msg_data,
2084: '_PVT'
2085: );
2083: x_msg_data,
2084: '_PVT'
2085: );
2086: WHEN OTHERS THEN
2087: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2088: (
2089: l_api_name,
2090: G_PKG_NAME,
2091: 'OTHERS',
2098: -- PL/SQL TBL lock_row for:LLNV_TBL --
2099: --------------------------------------
2100: PROCEDURE lock_row(
2101: p_api_version IN NUMBER,
2102: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2103: x_return_status OUT NOCOPY VARCHAR2,
2104: x_msg_count OUT NOCOPY NUMBER,
2105: x_msg_data OUT NOCOPY VARCHAR2,
2106: p_llnv_tbl IN llnv_tbl_type) IS
2106: p_llnv_tbl IN llnv_tbl_type) IS
2107:
2108: l_api_version CONSTANT NUMBER := 1;
2109: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2110: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2111: i NUMBER := 0;
2112: BEGIN
2113: Okc_Api.init_msg_list(p_init_msg_list);
2114: -- Make sure PL/SQL table has records in it before passing
2109: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2110: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2111: i NUMBER := 0;
2112: BEGIN
2113: Okc_Api.init_msg_list(p_init_msg_list);
2114: -- Make sure PL/SQL table has records in it before passing
2115: IF (p_llnv_tbl.COUNT > 0) THEN
2116: i := p_llnv_tbl.FIRST;
2117: LOOP
2116: i := p_llnv_tbl.FIRST;
2117: LOOP
2118: lock_row (
2119: p_api_version => p_api_version,
2120: p_init_msg_list => Okc_Api.G_FALSE,
2121: x_return_status => x_return_status,
2122: x_msg_count => x_msg_count,
2123: x_msg_data => x_msg_data,
2124: p_llnv_rec => p_llnv_tbl(i));
2126: i := p_llnv_tbl.NEXT(i);
2127: END LOOP;
2128: END IF;
2129: EXCEPTION
2130: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2131: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2127: END LOOP;
2128: END IF;
2129: EXCEPTION
2130: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2131: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2135: 'OKC_API.G_RET_STS_ERROR',
2131: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2135: 'OKC_API.G_RET_STS_ERROR',
2136: x_msg_count,
2137: x_msg_data,
2138: '_PVT'
2139: );
2136: x_msg_count,
2137: x_msg_data,
2138: '_PVT'
2139: );
2140: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2141: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2137: x_msg_data,
2138: '_PVT'
2139: );
2140: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2141: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2141: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2146: x_msg_count,
2147: x_msg_data,
2148: '_PVT'
2149: );
2147: x_msg_data,
2148: '_PVT'
2149: );
2150: WHEN OTHERS THEN
2151: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2155: 'OTHERS',
2165: -----------------------------------------
2166: -- update_row for:OKL_CNSLD_AR_LINES_B --
2167: -----------------------------------------
2168: PROCEDURE update_row(
2169: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2170: x_return_status OUT NOCOPY VARCHAR2,
2171: x_msg_count OUT NOCOPY NUMBER,
2172: x_msg_data OUT NOCOPY VARCHAR2,
2173: p_lln_rec IN lln_rec_type,
2174: x_lln_rec OUT NOCOPY lln_rec_type) IS
2175:
2176: l_api_version CONSTANT NUMBER := 1;
2177: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2178: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2179: l_lln_rec lln_rec_type := p_lln_rec;
2180: l_def_lln_rec lln_rec_type;
2181: l_row_notfound BOOLEAN := TRUE;
2182: ----------------------------------
2187: x_lln_rec OUT NOCOPY lln_rec_type
2188: ) RETURN VARCHAR2 IS
2189: l_lln_rec lln_rec_type;
2190: l_row_notfound BOOLEAN := TRUE;
2191: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2192: BEGIN
2193: x_lln_rec := p_lln_rec;
2194: -- Get current database values
2195: l_lln_rec := get_rec(p_lln_rec, l_row_notfound);
2193: x_lln_rec := p_lln_rec;
2194: -- Get current database values
2195: l_lln_rec := get_rec(p_lln_rec, l_row_notfound);
2196: IF (l_row_notfound) THEN
2197: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2198: END IF;
2199: IF (x_lln_rec.id = Okc_Api.G_MISS_NUM)
2200: THEN
2201: x_lln_rec.id := l_lln_rec.id;
2195: l_lln_rec := get_rec(p_lln_rec, l_row_notfound);
2196: IF (l_row_notfound) THEN
2197: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2198: END IF;
2199: IF (x_lln_rec.id = Okc_Api.G_MISS_NUM)
2200: THEN
2201: x_lln_rec.id := l_lln_rec.id;
2202: END IF;
2203: IF (x_lln_rec.sequence_number = Okc_Api.G_MISS_NUM)
2199: IF (x_lln_rec.id = Okc_Api.G_MISS_NUM)
2200: THEN
2201: x_lln_rec.id := l_lln_rec.id;
2202: END IF;
2203: IF (x_lln_rec.sequence_number = Okc_Api.G_MISS_NUM)
2204: THEN
2205: x_lln_rec.sequence_number := l_lln_rec.sequence_number;
2206: END IF;
2207: IF (x_lln_rec.lln_id_parent = Okc_Api.G_MISS_NUM)
2203: IF (x_lln_rec.sequence_number = Okc_Api.G_MISS_NUM)
2204: THEN
2205: x_lln_rec.sequence_number := l_lln_rec.sequence_number;
2206: END IF;
2207: IF (x_lln_rec.lln_id_parent = Okc_Api.G_MISS_NUM)
2208: THEN
2209: x_lln_rec.lln_id_parent := l_lln_rec.lln_id_parent;
2210: END IF;
2211: IF (x_lln_rec.kle_id = Okc_Api.G_MISS_NUM)
2207: IF (x_lln_rec.lln_id_parent = Okc_Api.G_MISS_NUM)
2208: THEN
2209: x_lln_rec.lln_id_parent := l_lln_rec.lln_id_parent;
2210: END IF;
2211: IF (x_lln_rec.kle_id = Okc_Api.G_MISS_NUM)
2212: THEN
2213: x_lln_rec.kle_id := l_lln_rec.kle_id;
2214: END IF;
2215: IF (x_lln_rec.khr_id = Okc_Api.G_MISS_NUM)
2211: IF (x_lln_rec.kle_id = Okc_Api.G_MISS_NUM)
2212: THEN
2213: x_lln_rec.kle_id := l_lln_rec.kle_id;
2214: END IF;
2215: IF (x_lln_rec.khr_id = Okc_Api.G_MISS_NUM)
2216: THEN
2217: x_lln_rec.khr_id := l_lln_rec.khr_id;
2218: END IF;
2219: IF (x_lln_rec.cnr_id = Okc_Api.G_MISS_NUM)
2215: IF (x_lln_rec.khr_id = Okc_Api.G_MISS_NUM)
2216: THEN
2217: x_lln_rec.khr_id := l_lln_rec.khr_id;
2218: END IF;
2219: IF (x_lln_rec.cnr_id = Okc_Api.G_MISS_NUM)
2220: THEN
2221: x_lln_rec.cnr_id := l_lln_rec.cnr_id;
2222: END IF;
2223: IF (x_lln_rec.ilt_id = Okc_Api.G_MISS_NUM)
2219: IF (x_lln_rec.cnr_id = Okc_Api.G_MISS_NUM)
2220: THEN
2221: x_lln_rec.cnr_id := l_lln_rec.cnr_id;
2222: END IF;
2223: IF (x_lln_rec.ilt_id = Okc_Api.G_MISS_NUM)
2224: THEN
2225: x_lln_rec.ilt_id := l_lln_rec.ilt_id;
2226: END IF;
2227: IF (x_lln_rec.line_type = Okc_Api.G_MISS_CHAR)
2223: IF (x_lln_rec.ilt_id = Okc_Api.G_MISS_NUM)
2224: THEN
2225: x_lln_rec.ilt_id := l_lln_rec.ilt_id;
2226: END IF;
2227: IF (x_lln_rec.line_type = Okc_Api.G_MISS_CHAR)
2228: THEN
2229: x_lln_rec.line_type := l_lln_rec.line_type;
2230: END IF;
2231: IF (x_lln_rec.amount = Okc_Api.G_MISS_NUM)
2227: IF (x_lln_rec.line_type = Okc_Api.G_MISS_CHAR)
2228: THEN
2229: x_lln_rec.line_type := l_lln_rec.line_type;
2230: END IF;
2231: IF (x_lln_rec.amount = Okc_Api.G_MISS_NUM)
2232: THEN
2233: x_lln_rec.amount := l_lln_rec.amount;
2234: END IF;
2235: IF (x_lln_rec.object_version_number = Okc_Api.G_MISS_NUM)
2231: IF (x_lln_rec.amount = Okc_Api.G_MISS_NUM)
2232: THEN
2233: x_lln_rec.amount := l_lln_rec.amount;
2234: END IF;
2235: IF (x_lln_rec.object_version_number = Okc_Api.G_MISS_NUM)
2236: THEN
2237: x_lln_rec.object_version_number := l_lln_rec.object_version_number;
2238: END IF;
2239: IF (x_lln_rec.request_id = Okc_Api.G_MISS_NUM)
2235: IF (x_lln_rec.object_version_number = Okc_Api.G_MISS_NUM)
2236: THEN
2237: x_lln_rec.object_version_number := l_lln_rec.object_version_number;
2238: END IF;
2239: IF (x_lln_rec.request_id = Okc_Api.G_MISS_NUM)
2240: THEN
2241: x_lln_rec.request_id := l_lln_rec.request_id;
2242: END IF;
2243: IF (x_lln_rec.program_application_id = Okc_Api.G_MISS_NUM)
2239: IF (x_lln_rec.request_id = Okc_Api.G_MISS_NUM)
2240: THEN
2241: x_lln_rec.request_id := l_lln_rec.request_id;
2242: END IF;
2243: IF (x_lln_rec.program_application_id = Okc_Api.G_MISS_NUM)
2244: THEN
2245: x_lln_rec.program_application_id := l_lln_rec.program_application_id;
2246: END IF;
2247: IF (x_lln_rec.program_id = Okc_Api.G_MISS_NUM)
2243: IF (x_lln_rec.program_application_id = Okc_Api.G_MISS_NUM)
2244: THEN
2245: x_lln_rec.program_application_id := l_lln_rec.program_application_id;
2246: END IF;
2247: IF (x_lln_rec.program_id = Okc_Api.G_MISS_NUM)
2248: THEN
2249: x_lln_rec.program_id := l_lln_rec.program_id;
2250: END IF;
2251: IF (x_lln_rec.program_update_date = Okc_Api.G_MISS_DATE)
2247: IF (x_lln_rec.program_id = Okc_Api.G_MISS_NUM)
2248: THEN
2249: x_lln_rec.program_id := l_lln_rec.program_id;
2250: END IF;
2251: IF (x_lln_rec.program_update_date = Okc_Api.G_MISS_DATE)
2252: THEN
2253: x_lln_rec.program_update_date := l_lln_rec.program_update_date;
2254: END IF;
2255: IF (x_lln_rec.org_id = Okc_Api.G_MISS_NUM)
2251: IF (x_lln_rec.program_update_date = Okc_Api.G_MISS_DATE)
2252: THEN
2253: x_lln_rec.program_update_date := l_lln_rec.program_update_date;
2254: END IF;
2255: IF (x_lln_rec.org_id = Okc_Api.G_MISS_NUM)
2256: THEN
2257: x_lln_rec.org_id := l_lln_rec.org_id;
2258: END IF;
2259: IF (x_lln_rec.tax_amount = Okc_Api.G_MISS_NUM)
2255: IF (x_lln_rec.org_id = Okc_Api.G_MISS_NUM)
2256: THEN
2257: x_lln_rec.org_id := l_lln_rec.org_id;
2258: END IF;
2259: IF (x_lln_rec.tax_amount = Okc_Api.G_MISS_NUM)
2260: THEN
2261: x_lln_rec.tax_amount := l_lln_rec.tax_amount;
2262: END IF;
2263: IF (x_lln_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2259: IF (x_lln_rec.tax_amount = Okc_Api.G_MISS_NUM)
2260: THEN
2261: x_lln_rec.tax_amount := l_lln_rec.tax_amount;
2262: END IF;
2263: IF (x_lln_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2264: THEN
2265: x_lln_rec.attribute_category := l_lln_rec.attribute_category;
2266: END IF;
2267: IF (x_lln_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2263: IF (x_lln_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2264: THEN
2265: x_lln_rec.attribute_category := l_lln_rec.attribute_category;
2266: END IF;
2267: IF (x_lln_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2268: THEN
2269: x_lln_rec.attribute1 := l_lln_rec.attribute1;
2270: END IF;
2271: IF (x_lln_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2267: IF (x_lln_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2268: THEN
2269: x_lln_rec.attribute1 := l_lln_rec.attribute1;
2270: END IF;
2271: IF (x_lln_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2272: THEN
2273: x_lln_rec.attribute2 := l_lln_rec.attribute2;
2274: END IF;
2275: IF (x_lln_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2271: IF (x_lln_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2272: THEN
2273: x_lln_rec.attribute2 := l_lln_rec.attribute2;
2274: END IF;
2275: IF (x_lln_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2276: THEN
2277: x_lln_rec.attribute3 := l_lln_rec.attribute3;
2278: END IF;
2279: IF (x_lln_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2275: IF (x_lln_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2276: THEN
2277: x_lln_rec.attribute3 := l_lln_rec.attribute3;
2278: END IF;
2279: IF (x_lln_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2280: THEN
2281: x_lln_rec.attribute4 := l_lln_rec.attribute4;
2282: END IF;
2283: IF (x_lln_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2279: IF (x_lln_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2280: THEN
2281: x_lln_rec.attribute4 := l_lln_rec.attribute4;
2282: END IF;
2283: IF (x_lln_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2284: THEN
2285: x_lln_rec.attribute5 := l_lln_rec.attribute5;
2286: END IF;
2287: IF (x_lln_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2283: IF (x_lln_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2284: THEN
2285: x_lln_rec.attribute5 := l_lln_rec.attribute5;
2286: END IF;
2287: IF (x_lln_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2288: THEN
2289: x_lln_rec.attribute6 := l_lln_rec.attribute6;
2290: END IF;
2291: IF (x_lln_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2287: IF (x_lln_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2288: THEN
2289: x_lln_rec.attribute6 := l_lln_rec.attribute6;
2290: END IF;
2291: IF (x_lln_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2292: THEN
2293: x_lln_rec.attribute7 := l_lln_rec.attribute7;
2294: END IF;
2295: IF (x_lln_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2291: IF (x_lln_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2292: THEN
2293: x_lln_rec.attribute7 := l_lln_rec.attribute7;
2294: END IF;
2295: IF (x_lln_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2296: THEN
2297: x_lln_rec.attribute8 := l_lln_rec.attribute8;
2298: END IF;
2299: IF (x_lln_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2295: IF (x_lln_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2296: THEN
2297: x_lln_rec.attribute8 := l_lln_rec.attribute8;
2298: END IF;
2299: IF (x_lln_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2300: THEN
2301: x_lln_rec.attribute9 := l_lln_rec.attribute9;
2302: END IF;
2303: IF (x_lln_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2299: IF (x_lln_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2300: THEN
2301: x_lln_rec.attribute9 := l_lln_rec.attribute9;
2302: END IF;
2303: IF (x_lln_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2304: THEN
2305: x_lln_rec.attribute10 := l_lln_rec.attribute10;
2306: END IF;
2307: IF (x_lln_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2303: IF (x_lln_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2304: THEN
2305: x_lln_rec.attribute10 := l_lln_rec.attribute10;
2306: END IF;
2307: IF (x_lln_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2308: THEN
2309: x_lln_rec.attribute11 := l_lln_rec.attribute11;
2310: END IF;
2311: IF (x_lln_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2307: IF (x_lln_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2308: THEN
2309: x_lln_rec.attribute11 := l_lln_rec.attribute11;
2310: END IF;
2311: IF (x_lln_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2312: THEN
2313: x_lln_rec.attribute12 := l_lln_rec.attribute12;
2314: END IF;
2315: IF (x_lln_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2311: IF (x_lln_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2312: THEN
2313: x_lln_rec.attribute12 := l_lln_rec.attribute12;
2314: END IF;
2315: IF (x_lln_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2316: THEN
2317: x_lln_rec.attribute13 := l_lln_rec.attribute13;
2318: END IF;
2319: IF (x_lln_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2315: IF (x_lln_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2316: THEN
2317: x_lln_rec.attribute13 := l_lln_rec.attribute13;
2318: END IF;
2319: IF (x_lln_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2320: THEN
2321: x_lln_rec.attribute14 := l_lln_rec.attribute14;
2322: END IF;
2323: IF (x_lln_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2319: IF (x_lln_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2320: THEN
2321: x_lln_rec.attribute14 := l_lln_rec.attribute14;
2322: END IF;
2323: IF (x_lln_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2324: THEN
2325: x_lln_rec.attribute15 := l_lln_rec.attribute15;
2326: END IF;
2327: IF (x_lln_rec.created_by = Okc_Api.G_MISS_NUM)
2323: IF (x_lln_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2324: THEN
2325: x_lln_rec.attribute15 := l_lln_rec.attribute15;
2326: END IF;
2327: IF (x_lln_rec.created_by = Okc_Api.G_MISS_NUM)
2328: THEN
2329: x_lln_rec.created_by := l_lln_rec.created_by;
2330: END IF;
2331: IF (x_lln_rec.creation_date = Okc_Api.G_MISS_DATE)
2327: IF (x_lln_rec.created_by = Okc_Api.G_MISS_NUM)
2328: THEN
2329: x_lln_rec.created_by := l_lln_rec.created_by;
2330: END IF;
2331: IF (x_lln_rec.creation_date = Okc_Api.G_MISS_DATE)
2332: THEN
2333: x_lln_rec.creation_date := l_lln_rec.creation_date;
2334: END IF;
2335: IF (x_lln_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2331: IF (x_lln_rec.creation_date = Okc_Api.G_MISS_DATE)
2332: THEN
2333: x_lln_rec.creation_date := l_lln_rec.creation_date;
2334: END IF;
2335: IF (x_lln_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2336: THEN
2337: x_lln_rec.last_updated_by := l_lln_rec.last_updated_by;
2338: END IF;
2339: IF (x_lln_rec.last_update_date = Okc_Api.G_MISS_DATE)
2335: IF (x_lln_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2336: THEN
2337: x_lln_rec.last_updated_by := l_lln_rec.last_updated_by;
2338: END IF;
2339: IF (x_lln_rec.last_update_date = Okc_Api.G_MISS_DATE)
2340: THEN
2341: x_lln_rec.last_update_date := l_lln_rec.last_update_date;
2342: END IF;
2343: IF (x_lln_rec.last_update_login = Okc_Api.G_MISS_NUM)
2339: IF (x_lln_rec.last_update_date = Okc_Api.G_MISS_DATE)
2340: THEN
2341: x_lln_rec.last_update_date := l_lln_rec.last_update_date;
2342: END IF;
2343: IF (x_lln_rec.last_update_login = Okc_Api.G_MISS_NUM)
2344: THEN
2345: x_lln_rec.last_update_login := l_lln_rec.last_update_login;
2346: END IF;
2347: RETURN(l_return_status);
2352: FUNCTION Set_Attributes (
2353: p_lln_rec IN lln_rec_type,
2354: x_lln_rec OUT NOCOPY lln_rec_type
2355: ) RETURN VARCHAR2 IS
2356: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2357: BEGIN
2358: x_lln_rec := p_lln_rec;
2359: RETURN(l_return_status);
2360: END Set_Attributes;
2358: x_lln_rec := p_lln_rec;
2359: RETURN(l_return_status);
2360: END Set_Attributes;
2361: BEGIN
2362: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2363: p_init_msg_list,
2364: '_PVT',
2365: x_return_status);
2366: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2362: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2363: p_init_msg_list,
2364: '_PVT',
2365: x_return_status);
2366: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2369: RAISE Okc_Api.G_EXCEPTION_ERROR;
2370: END IF;
2363: p_init_msg_list,
2364: '_PVT',
2365: x_return_status);
2366: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2369: RAISE Okc_Api.G_EXCEPTION_ERROR;
2370: END IF;
2371: --- Setting item attributes
2364: '_PVT',
2365: x_return_status);
2366: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2369: RAISE Okc_Api.G_EXCEPTION_ERROR;
2370: END IF;
2371: --- Setting item attributes
2372: l_return_status := Set_Attributes(
2365: x_return_status);
2366: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2367: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2368: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2369: RAISE Okc_Api.G_EXCEPTION_ERROR;
2370: END IF;
2371: --- Setting item attributes
2372: l_return_status := Set_Attributes(
2373: p_lln_rec, -- IN
2372: l_return_status := Set_Attributes(
2373: p_lln_rec, -- IN
2374: l_lln_rec); -- OUT
2375: --- If any errors happen abort API
2376: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2377: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2378: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2379: RAISE Okc_Api.G_EXCEPTION_ERROR;
2380: END IF;
2373: p_lln_rec, -- IN
2374: l_lln_rec); -- OUT
2375: --- If any errors happen abort API
2376: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2377: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2378: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2379: RAISE Okc_Api.G_EXCEPTION_ERROR;
2380: END IF;
2381: l_return_status := populate_new_record(l_lln_rec, l_def_lln_rec);
2374: l_lln_rec); -- OUT
2375: --- If any errors happen abort API
2376: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2377: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2378: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2379: RAISE Okc_Api.G_EXCEPTION_ERROR;
2380: END IF;
2381: l_return_status := populate_new_record(l_lln_rec, l_def_lln_rec);
2382: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2375: --- If any errors happen abort API
2376: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2377: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2378: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2379: RAISE Okc_Api.G_EXCEPTION_ERROR;
2380: END IF;
2381: l_return_status := populate_new_record(l_lln_rec, l_def_lln_rec);
2382: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2383: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2378: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2379: RAISE Okc_Api.G_EXCEPTION_ERROR;
2380: END IF;
2381: l_return_status := populate_new_record(l_lln_rec, l_def_lln_rec);
2382: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2383: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2384: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2385: RAISE Okc_Api.G_EXCEPTION_ERROR;
2386: END IF;
2379: RAISE Okc_Api.G_EXCEPTION_ERROR;
2380: END IF;
2381: l_return_status := populate_new_record(l_lln_rec, l_def_lln_rec);
2382: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2383: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2384: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2385: RAISE Okc_Api.G_EXCEPTION_ERROR;
2386: END IF;
2387: UPDATE OKL_CNSLD_AR_LINES_B
2380: END IF;
2381: l_return_status := populate_new_record(l_lln_rec, l_def_lln_rec);
2382: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2383: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2384: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2385: RAISE Okc_Api.G_EXCEPTION_ERROR;
2386: END IF;
2387: UPDATE OKL_CNSLD_AR_LINES_B
2388: SET SEQUENCE_NUMBER = l_def_lln_rec.sequence_number,
2381: l_return_status := populate_new_record(l_lln_rec, l_def_lln_rec);
2382: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2383: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2384: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2385: RAISE Okc_Api.G_EXCEPTION_ERROR;
2386: END IF;
2387: UPDATE OKL_CNSLD_AR_LINES_B
2388: SET SEQUENCE_NUMBER = l_def_lln_rec.sequence_number,
2389: LLN_ID_PARENT = l_def_lln_rec.lln_id_parent,
2423: LAST_UPDATE_LOGIN = l_def_lln_rec.last_update_login
2424: WHERE ID = l_def_lln_rec.id;
2425:
2426: x_lln_rec := l_def_lln_rec;
2427: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2428: EXCEPTION
2429: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2430: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2431: (
2425:
2426: x_lln_rec := l_def_lln_rec;
2427: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2428: EXCEPTION
2429: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2430: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2431: (
2432: l_api_name,
2433: G_PKG_NAME,
2426: x_lln_rec := l_def_lln_rec;
2427: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2428: EXCEPTION
2429: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2430: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2431: (
2432: l_api_name,
2433: G_PKG_NAME,
2434: 'OKC_API.G_RET_STS_ERROR',
2430: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2431: (
2432: l_api_name,
2433: G_PKG_NAME,
2434: 'OKC_API.G_RET_STS_ERROR',
2435: x_msg_count,
2436: x_msg_data,
2437: '_PVT'
2438: );
2435: x_msg_count,
2436: x_msg_data,
2437: '_PVT'
2438: );
2439: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2440: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2441: (
2442: l_api_name,
2443: G_PKG_NAME,
2436: x_msg_data,
2437: '_PVT'
2438: );
2439: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2440: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2441: (
2442: l_api_name,
2443: G_PKG_NAME,
2444: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2440: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2441: (
2442: l_api_name,
2443: G_PKG_NAME,
2444: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2445: x_msg_count,
2446: x_msg_data,
2447: '_PVT'
2448: );
2446: x_msg_data,
2447: '_PVT'
2448: );
2449: WHEN OTHERS THEN
2450: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2451: (
2452: l_api_name,
2453: G_PKG_NAME,
2454: 'OTHERS',
2460: ------------------------------------------
2461: -- update_row for:OKL_CNSLD_AR_LINES_TL --
2462: ------------------------------------------
2463: PROCEDURE update_row(
2464: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2465: x_return_status OUT NOCOPY VARCHAR2,
2466: x_msg_count OUT NOCOPY NUMBER,
2467: x_msg_data OUT NOCOPY VARCHAR2,
2468: p_okl_cnsld_ar_lines_tl_rec IN okl_cnsld_ar_lines_tl_rec_type,
2469: x_okl_cnsld_ar_lines_tl_rec OUT NOCOPY okl_cnsld_ar_lines_tl_rec_type) IS
2470:
2471: l_api_version CONSTANT NUMBER := 1;
2472: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2473: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2474: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type := p_okl_cnsld_ar_lines_tl_rec;
2475: ldefoklcnsldarlinestlrec okl_cnsld_ar_lines_tl_rec_type;
2476: l_row_notfound BOOLEAN := TRUE;
2477: ----------------------------------
2482: x_okl_cnsld_ar_lines_tl_rec OUT NOCOPY okl_cnsld_ar_lines_tl_rec_type
2483: ) RETURN VARCHAR2 IS
2484: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type;
2485: l_row_notfound BOOLEAN := TRUE;
2486: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2487: BEGIN
2488: x_okl_cnsld_ar_lines_tl_rec := p_okl_cnsld_ar_lines_tl_rec;
2489: -- Get current database values
2490: l_okl_cnsld_ar_lines_tl_rec := get_rec(p_okl_cnsld_ar_lines_tl_rec, l_row_notfound);
2488: x_okl_cnsld_ar_lines_tl_rec := p_okl_cnsld_ar_lines_tl_rec;
2489: -- Get current database values
2490: l_okl_cnsld_ar_lines_tl_rec := get_rec(p_okl_cnsld_ar_lines_tl_rec, l_row_notfound);
2491: IF (l_row_notfound) THEN
2492: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2493: END IF;
2494: IF (x_okl_cnsld_ar_lines_tl_rec.id = Okc_Api.G_MISS_NUM)
2495: THEN
2496: x_okl_cnsld_ar_lines_tl_rec.id := l_okl_cnsld_ar_lines_tl_rec.id;
2490: l_okl_cnsld_ar_lines_tl_rec := get_rec(p_okl_cnsld_ar_lines_tl_rec, l_row_notfound);
2491: IF (l_row_notfound) THEN
2492: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2493: END IF;
2494: IF (x_okl_cnsld_ar_lines_tl_rec.id = Okc_Api.G_MISS_NUM)
2495: THEN
2496: x_okl_cnsld_ar_lines_tl_rec.id := l_okl_cnsld_ar_lines_tl_rec.id;
2497: END IF;
2498: IF (x_okl_cnsld_ar_lines_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2494: IF (x_okl_cnsld_ar_lines_tl_rec.id = Okc_Api.G_MISS_NUM)
2495: THEN
2496: x_okl_cnsld_ar_lines_tl_rec.id := l_okl_cnsld_ar_lines_tl_rec.id;
2497: END IF;
2498: IF (x_okl_cnsld_ar_lines_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2499: THEN
2500: x_okl_cnsld_ar_lines_tl_rec.LANGUAGE := l_okl_cnsld_ar_lines_tl_rec.LANGUAGE;
2501: END IF;
2502: IF (x_okl_cnsld_ar_lines_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2498: IF (x_okl_cnsld_ar_lines_tl_rec.LANGUAGE = Okc_Api.G_MISS_CHAR)
2499: THEN
2500: x_okl_cnsld_ar_lines_tl_rec.LANGUAGE := l_okl_cnsld_ar_lines_tl_rec.LANGUAGE;
2501: END IF;
2502: IF (x_okl_cnsld_ar_lines_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2503: THEN
2504: x_okl_cnsld_ar_lines_tl_rec.source_lang := l_okl_cnsld_ar_lines_tl_rec.source_lang;
2505: END IF;
2506: IF (x_okl_cnsld_ar_lines_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2502: IF (x_okl_cnsld_ar_lines_tl_rec.source_lang = Okc_Api.G_MISS_CHAR)
2503: THEN
2504: x_okl_cnsld_ar_lines_tl_rec.source_lang := l_okl_cnsld_ar_lines_tl_rec.source_lang;
2505: END IF;
2506: IF (x_okl_cnsld_ar_lines_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2507: THEN
2508: x_okl_cnsld_ar_lines_tl_rec.sfwt_flag := l_okl_cnsld_ar_lines_tl_rec.sfwt_flag;
2509: END IF;
2510: IF (x_okl_cnsld_ar_lines_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2506: IF (x_okl_cnsld_ar_lines_tl_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2507: THEN
2508: x_okl_cnsld_ar_lines_tl_rec.sfwt_flag := l_okl_cnsld_ar_lines_tl_rec.sfwt_flag;
2509: END IF;
2510: IF (x_okl_cnsld_ar_lines_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2511: THEN
2512: x_okl_cnsld_ar_lines_tl_rec.created_by := l_okl_cnsld_ar_lines_tl_rec.created_by;
2513: END IF;
2514: IF (x_okl_cnsld_ar_lines_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2510: IF (x_okl_cnsld_ar_lines_tl_rec.created_by = Okc_Api.G_MISS_NUM)
2511: THEN
2512: x_okl_cnsld_ar_lines_tl_rec.created_by := l_okl_cnsld_ar_lines_tl_rec.created_by;
2513: END IF;
2514: IF (x_okl_cnsld_ar_lines_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2515: THEN
2516: x_okl_cnsld_ar_lines_tl_rec.creation_date := l_okl_cnsld_ar_lines_tl_rec.creation_date;
2517: END IF;
2518: IF (x_okl_cnsld_ar_lines_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2514: IF (x_okl_cnsld_ar_lines_tl_rec.creation_date = Okc_Api.G_MISS_DATE)
2515: THEN
2516: x_okl_cnsld_ar_lines_tl_rec.creation_date := l_okl_cnsld_ar_lines_tl_rec.creation_date;
2517: END IF;
2518: IF (x_okl_cnsld_ar_lines_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2519: THEN
2520: x_okl_cnsld_ar_lines_tl_rec.last_updated_by := l_okl_cnsld_ar_lines_tl_rec.last_updated_by;
2521: END IF;
2522: IF (x_okl_cnsld_ar_lines_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2518: IF (x_okl_cnsld_ar_lines_tl_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2519: THEN
2520: x_okl_cnsld_ar_lines_tl_rec.last_updated_by := l_okl_cnsld_ar_lines_tl_rec.last_updated_by;
2521: END IF;
2522: IF (x_okl_cnsld_ar_lines_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2523: THEN
2524: x_okl_cnsld_ar_lines_tl_rec.last_update_date := l_okl_cnsld_ar_lines_tl_rec.last_update_date;
2525: END IF;
2526: IF (x_okl_cnsld_ar_lines_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2522: IF (x_okl_cnsld_ar_lines_tl_rec.last_update_date = Okc_Api.G_MISS_DATE)
2523: THEN
2524: x_okl_cnsld_ar_lines_tl_rec.last_update_date := l_okl_cnsld_ar_lines_tl_rec.last_update_date;
2525: END IF;
2526: IF (x_okl_cnsld_ar_lines_tl_rec.last_update_login = Okc_Api.G_MISS_NUM)
2527: THEN
2528: x_okl_cnsld_ar_lines_tl_rec.last_update_login := l_okl_cnsld_ar_lines_tl_rec.last_update_login;
2529: END IF;
2530: RETURN(l_return_status);
2535: FUNCTION Set_Attributes (
2536: p_okl_cnsld_ar_lines_tl_rec IN okl_cnsld_ar_lines_tl_rec_type,
2537: x_okl_cnsld_ar_lines_tl_rec OUT NOCOPY okl_cnsld_ar_lines_tl_rec_type
2538: ) RETURN VARCHAR2 IS
2539: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2540: BEGIN
2541: x_okl_cnsld_ar_lines_tl_rec := p_okl_cnsld_ar_lines_tl_rec;
2542: x_okl_cnsld_ar_lines_tl_rec.LANGUAGE := USERENV('LANG');
2543: x_okl_cnsld_ar_lines_tl_rec.SOURCE_LANG := USERENV('LANG');
2543: x_okl_cnsld_ar_lines_tl_rec.SOURCE_LANG := USERENV('LANG');
2544: RETURN(l_return_status);
2545: END Set_Attributes;
2546: BEGIN
2547: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2548: p_init_msg_list,
2549: '_PVT',
2550: x_return_status);
2551: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2547: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2548: p_init_msg_list,
2549: '_PVT',
2550: x_return_status);
2551: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2552: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2553: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2554: RAISE Okc_Api.G_EXCEPTION_ERROR;
2555: END IF;
2548: p_init_msg_list,
2549: '_PVT',
2550: x_return_status);
2551: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2552: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2553: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2554: RAISE Okc_Api.G_EXCEPTION_ERROR;
2555: END IF;
2556: --- Setting item attributes
2549: '_PVT',
2550: x_return_status);
2551: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2552: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2553: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2554: RAISE Okc_Api.G_EXCEPTION_ERROR;
2555: END IF;
2556: --- Setting item attributes
2557: l_return_status := Set_Attributes(
2550: x_return_status);
2551: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2552: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2553: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2554: RAISE Okc_Api.G_EXCEPTION_ERROR;
2555: END IF;
2556: --- Setting item attributes
2557: l_return_status := Set_Attributes(
2558: p_okl_cnsld_ar_lines_tl_rec, -- IN
2557: l_return_status := Set_Attributes(
2558: p_okl_cnsld_ar_lines_tl_rec, -- IN
2559: l_okl_cnsld_ar_lines_tl_rec); -- OUT
2560: --- If any errors happen abort API
2561: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2562: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2563: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2564: RAISE Okc_Api.G_EXCEPTION_ERROR;
2565: END IF;
2558: p_okl_cnsld_ar_lines_tl_rec, -- IN
2559: l_okl_cnsld_ar_lines_tl_rec); -- OUT
2560: --- If any errors happen abort API
2561: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2562: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2563: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2564: RAISE Okc_Api.G_EXCEPTION_ERROR;
2565: END IF;
2566: l_return_status := populate_new_record(l_okl_cnsld_ar_lines_tl_rec, ldefoklcnsldarlinestlrec);
2559: l_okl_cnsld_ar_lines_tl_rec); -- OUT
2560: --- If any errors happen abort API
2561: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2562: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2563: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2564: RAISE Okc_Api.G_EXCEPTION_ERROR;
2565: END IF;
2566: l_return_status := populate_new_record(l_okl_cnsld_ar_lines_tl_rec, ldefoklcnsldarlinestlrec);
2567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2560: --- If any errors happen abort API
2561: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2562: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2563: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2564: RAISE Okc_Api.G_EXCEPTION_ERROR;
2565: END IF;
2566: l_return_status := populate_new_record(l_okl_cnsld_ar_lines_tl_rec, ldefoklcnsldarlinestlrec);
2567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2563: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2564: RAISE Okc_Api.G_EXCEPTION_ERROR;
2565: END IF;
2566: l_return_status := populate_new_record(l_okl_cnsld_ar_lines_tl_rec, ldefoklcnsldarlinestlrec);
2567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2570: RAISE Okc_Api.G_EXCEPTION_ERROR;
2571: END IF;
2564: RAISE Okc_Api.G_EXCEPTION_ERROR;
2565: END IF;
2566: l_return_status := populate_new_record(l_okl_cnsld_ar_lines_tl_rec, ldefoklcnsldarlinestlrec);
2567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2570: RAISE Okc_Api.G_EXCEPTION_ERROR;
2571: END IF;
2572: UPDATE OKL_CNSLD_AR_LINES_TL
2565: END IF;
2566: l_return_status := populate_new_record(l_okl_cnsld_ar_lines_tl_rec, ldefoklcnsldarlinestlrec);
2567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2570: RAISE Okc_Api.G_EXCEPTION_ERROR;
2571: END IF;
2572: UPDATE OKL_CNSLD_AR_LINES_TL
2573: SET CREATED_BY = ldefoklcnsldarlinestlrec.created_by,
2566: l_return_status := populate_new_record(l_okl_cnsld_ar_lines_tl_rec, ldefoklcnsldarlinestlrec);
2567: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2568: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2569: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2570: RAISE Okc_Api.G_EXCEPTION_ERROR;
2571: END IF;
2572: UPDATE OKL_CNSLD_AR_LINES_TL
2573: SET CREATED_BY = ldefoklcnsldarlinestlrec.created_by,
2574: CREATION_DATE = ldefoklcnsldarlinestlrec.creation_date,
2584: WHERE ID = ldefoklcnsldarlinestlrec.id
2585: AND SOURCE_LANG <> USERENV('LANG');
2586:
2587: x_okl_cnsld_ar_lines_tl_rec := ldefoklcnsldarlinestlrec;
2588: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2589: EXCEPTION
2590: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2591: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2592: (
2586:
2587: x_okl_cnsld_ar_lines_tl_rec := ldefoklcnsldarlinestlrec;
2588: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2589: EXCEPTION
2590: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2591: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2592: (
2593: l_api_name,
2594: G_PKG_NAME,
2587: x_okl_cnsld_ar_lines_tl_rec := ldefoklcnsldarlinestlrec;
2588: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2589: EXCEPTION
2590: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2591: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2592: (
2593: l_api_name,
2594: G_PKG_NAME,
2595: 'OKC_API.G_RET_STS_ERROR',
2591: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2592: (
2593: l_api_name,
2594: G_PKG_NAME,
2595: 'OKC_API.G_RET_STS_ERROR',
2596: x_msg_count,
2597: x_msg_data,
2598: '_PVT'
2599: );
2596: x_msg_count,
2597: x_msg_data,
2598: '_PVT'
2599: );
2600: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2601: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2602: (
2603: l_api_name,
2604: G_PKG_NAME,
2597: x_msg_data,
2598: '_PVT'
2599: );
2600: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2601: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2602: (
2603: l_api_name,
2604: G_PKG_NAME,
2605: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2601: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2602: (
2603: l_api_name,
2604: G_PKG_NAME,
2605: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2606: x_msg_count,
2607: x_msg_data,
2608: '_PVT'
2609: );
2607: x_msg_data,
2608: '_PVT'
2609: );
2610: WHEN OTHERS THEN
2611: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2612: (
2613: l_api_name,
2614: G_PKG_NAME,
2615: 'OTHERS',
2622: -- update_row for:OKL_CNSLD_AR_LINES_V --
2623: -----------------------------------------
2624: PROCEDURE update_row(
2625: p_api_version IN NUMBER,
2626: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2627: x_return_status OUT NOCOPY VARCHAR2,
2628: x_msg_count OUT NOCOPY NUMBER,
2629: x_msg_data OUT NOCOPY VARCHAR2,
2630: p_llnv_rec IN llnv_rec_type,
2631: x_llnv_rec OUT NOCOPY llnv_rec_type) IS
2632:
2633: l_api_version CONSTANT NUMBER := 1;
2634: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2635: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2636: l_llnv_rec llnv_rec_type := p_llnv_rec;
2637: l_def_llnv_rec llnv_rec_type;
2638: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type;
2639: lx_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type;
2660: x_llnv_rec OUT NOCOPY llnv_rec_type
2661: ) RETURN VARCHAR2 IS
2662: l_llnv_rec llnv_rec_type;
2663: l_row_notfound BOOLEAN := TRUE;
2664: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2665: BEGIN
2666: x_llnv_rec := p_llnv_rec;
2667: -- Get current database values
2668: l_llnv_rec := get_rec(p_llnv_rec, l_row_notfound);
2666: x_llnv_rec := p_llnv_rec;
2667: -- Get current database values
2668: l_llnv_rec := get_rec(p_llnv_rec, l_row_notfound);
2669: IF (l_row_notfound) THEN
2670: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2671: END IF;
2672: IF (x_llnv_rec.id = Okc_Api.G_MISS_NUM)
2673: THEN
2674: x_llnv_rec.id := l_llnv_rec.id;
2668: l_llnv_rec := get_rec(p_llnv_rec, l_row_notfound);
2669: IF (l_row_notfound) THEN
2670: l_return_status := Okc_Api.G_RET_STS_UNEXP_ERROR;
2671: END IF;
2672: IF (x_llnv_rec.id = Okc_Api.G_MISS_NUM)
2673: THEN
2674: x_llnv_rec.id := l_llnv_rec.id;
2675: END IF;
2676: IF (x_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM)
2672: IF (x_llnv_rec.id = Okc_Api.G_MISS_NUM)
2673: THEN
2674: x_llnv_rec.id := l_llnv_rec.id;
2675: END IF;
2676: IF (x_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM)
2677: THEN
2678: x_llnv_rec.object_version_number := l_llnv_rec.object_version_number;
2679: END IF;
2680: IF (x_llnv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2676: IF (x_llnv_rec.object_version_number = Okc_Api.G_MISS_NUM)
2677: THEN
2678: x_llnv_rec.object_version_number := l_llnv_rec.object_version_number;
2679: END IF;
2680: IF (x_llnv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2681: THEN
2682: x_llnv_rec.sfwt_flag := l_llnv_rec.sfwt_flag;
2683: END IF;
2684: IF (x_llnv_rec.khr_id = Okc_Api.G_MISS_NUM)
2680: IF (x_llnv_rec.sfwt_flag = Okc_Api.G_MISS_CHAR)
2681: THEN
2682: x_llnv_rec.sfwt_flag := l_llnv_rec.sfwt_flag;
2683: END IF;
2684: IF (x_llnv_rec.khr_id = Okc_Api.G_MISS_NUM)
2685: THEN
2686: x_llnv_rec.khr_id := l_llnv_rec.khr_id;
2687: END IF;
2688: IF (x_llnv_rec.cnr_id = Okc_Api.G_MISS_NUM)
2684: IF (x_llnv_rec.khr_id = Okc_Api.G_MISS_NUM)
2685: THEN
2686: x_llnv_rec.khr_id := l_llnv_rec.khr_id;
2687: END IF;
2688: IF (x_llnv_rec.cnr_id = Okc_Api.G_MISS_NUM)
2689: THEN
2690: x_llnv_rec.cnr_id := l_llnv_rec.cnr_id;
2691: END IF;
2692: IF (x_llnv_rec.kle_id = Okc_Api.G_MISS_NUM)
2688: IF (x_llnv_rec.cnr_id = Okc_Api.G_MISS_NUM)
2689: THEN
2690: x_llnv_rec.cnr_id := l_llnv_rec.cnr_id;
2691: END IF;
2692: IF (x_llnv_rec.kle_id = Okc_Api.G_MISS_NUM)
2693: THEN
2694: x_llnv_rec.kle_id := l_llnv_rec.kle_id;
2695: END IF;
2696: IF (x_llnv_rec.lln_id_parent = Okc_Api.G_MISS_NUM)
2692: IF (x_llnv_rec.kle_id = Okc_Api.G_MISS_NUM)
2693: THEN
2694: x_llnv_rec.kle_id := l_llnv_rec.kle_id;
2695: END IF;
2696: IF (x_llnv_rec.lln_id_parent = Okc_Api.G_MISS_NUM)
2697: THEN
2698: x_llnv_rec.lln_id_parent := l_llnv_rec.lln_id_parent;
2699: END IF;
2700: IF (x_llnv_rec.ilt_id = Okc_Api.G_MISS_NUM)
2696: IF (x_llnv_rec.lln_id_parent = Okc_Api.G_MISS_NUM)
2697: THEN
2698: x_llnv_rec.lln_id_parent := l_llnv_rec.lln_id_parent;
2699: END IF;
2700: IF (x_llnv_rec.ilt_id = Okc_Api.G_MISS_NUM)
2701: THEN
2702: x_llnv_rec.ilt_id := l_llnv_rec.ilt_id;
2703: END IF;
2704: IF (x_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM)
2700: IF (x_llnv_rec.ilt_id = Okc_Api.G_MISS_NUM)
2701: THEN
2702: x_llnv_rec.ilt_id := l_llnv_rec.ilt_id;
2703: END IF;
2704: IF (x_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM)
2705: THEN
2706: x_llnv_rec.sequence_number := l_llnv_rec.sequence_number;
2707: END IF;
2708: IF (x_llnv_rec.amount = Okc_Api.G_MISS_NUM)
2704: IF (x_llnv_rec.sequence_number = Okc_Api.G_MISS_NUM)
2705: THEN
2706: x_llnv_rec.sequence_number := l_llnv_rec.sequence_number;
2707: END IF;
2708: IF (x_llnv_rec.amount = Okc_Api.G_MISS_NUM)
2709: THEN
2710: x_llnv_rec.amount := l_llnv_rec.amount;
2711: END IF;
2712: IF (x_llnv_rec.tax_amount = Okc_Api.G_MISS_NUM)
2708: IF (x_llnv_rec.amount = Okc_Api.G_MISS_NUM)
2709: THEN
2710: x_llnv_rec.amount := l_llnv_rec.amount;
2711: END IF;
2712: IF (x_llnv_rec.tax_amount = Okc_Api.G_MISS_NUM)
2713: THEN
2714: x_llnv_rec.tax_amount := l_llnv_rec.tax_amount;
2715: END IF;
2716: IF (x_llnv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2712: IF (x_llnv_rec.tax_amount = Okc_Api.G_MISS_NUM)
2713: THEN
2714: x_llnv_rec.tax_amount := l_llnv_rec.tax_amount;
2715: END IF;
2716: IF (x_llnv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2717: THEN
2718: x_llnv_rec.attribute_category := l_llnv_rec.attribute_category;
2719: END IF;
2720: IF (x_llnv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2716: IF (x_llnv_rec.attribute_category = Okc_Api.G_MISS_CHAR)
2717: THEN
2718: x_llnv_rec.attribute_category := l_llnv_rec.attribute_category;
2719: END IF;
2720: IF (x_llnv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2721: THEN
2722: x_llnv_rec.attribute1 := l_llnv_rec.attribute1;
2723: END IF;
2724: IF (x_llnv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2720: IF (x_llnv_rec.attribute1 = Okc_Api.G_MISS_CHAR)
2721: THEN
2722: x_llnv_rec.attribute1 := l_llnv_rec.attribute1;
2723: END IF;
2724: IF (x_llnv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2725: THEN
2726: x_llnv_rec.attribute2 := l_llnv_rec.attribute2;
2727: END IF;
2728: IF (x_llnv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2724: IF (x_llnv_rec.attribute2 = Okc_Api.G_MISS_CHAR)
2725: THEN
2726: x_llnv_rec.attribute2 := l_llnv_rec.attribute2;
2727: END IF;
2728: IF (x_llnv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2729: THEN
2730: x_llnv_rec.attribute3 := l_llnv_rec.attribute3;
2731: END IF;
2732: IF (x_llnv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2728: IF (x_llnv_rec.attribute3 = Okc_Api.G_MISS_CHAR)
2729: THEN
2730: x_llnv_rec.attribute3 := l_llnv_rec.attribute3;
2731: END IF;
2732: IF (x_llnv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2733: THEN
2734: x_llnv_rec.attribute4 := l_llnv_rec.attribute4;
2735: END IF;
2736: IF (x_llnv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2732: IF (x_llnv_rec.attribute4 = Okc_Api.G_MISS_CHAR)
2733: THEN
2734: x_llnv_rec.attribute4 := l_llnv_rec.attribute4;
2735: END IF;
2736: IF (x_llnv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2737: THEN
2738: x_llnv_rec.attribute5 := l_llnv_rec.attribute5;
2739: END IF;
2740: IF (x_llnv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2736: IF (x_llnv_rec.attribute5 = Okc_Api.G_MISS_CHAR)
2737: THEN
2738: x_llnv_rec.attribute5 := l_llnv_rec.attribute5;
2739: END IF;
2740: IF (x_llnv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2741: THEN
2742: x_llnv_rec.attribute6 := l_llnv_rec.attribute6;
2743: END IF;
2744: IF (x_llnv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2740: IF (x_llnv_rec.attribute6 = Okc_Api.G_MISS_CHAR)
2741: THEN
2742: x_llnv_rec.attribute6 := l_llnv_rec.attribute6;
2743: END IF;
2744: IF (x_llnv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2745: THEN
2746: x_llnv_rec.attribute7 := l_llnv_rec.attribute7;
2747: END IF;
2748: IF (x_llnv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2744: IF (x_llnv_rec.attribute7 = Okc_Api.G_MISS_CHAR)
2745: THEN
2746: x_llnv_rec.attribute7 := l_llnv_rec.attribute7;
2747: END IF;
2748: IF (x_llnv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2749: THEN
2750: x_llnv_rec.attribute8 := l_llnv_rec.attribute8;
2751: END IF;
2752: IF (x_llnv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2748: IF (x_llnv_rec.attribute8 = Okc_Api.G_MISS_CHAR)
2749: THEN
2750: x_llnv_rec.attribute8 := l_llnv_rec.attribute8;
2751: END IF;
2752: IF (x_llnv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2753: THEN
2754: x_llnv_rec.attribute9 := l_llnv_rec.attribute9;
2755: END IF;
2756: IF (x_llnv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2752: IF (x_llnv_rec.attribute9 = Okc_Api.G_MISS_CHAR)
2753: THEN
2754: x_llnv_rec.attribute9 := l_llnv_rec.attribute9;
2755: END IF;
2756: IF (x_llnv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2757: THEN
2758: x_llnv_rec.attribute10 := l_llnv_rec.attribute10;
2759: END IF;
2760: IF (x_llnv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2756: IF (x_llnv_rec.attribute10 = Okc_Api.G_MISS_CHAR)
2757: THEN
2758: x_llnv_rec.attribute10 := l_llnv_rec.attribute10;
2759: END IF;
2760: IF (x_llnv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2761: THEN
2762: x_llnv_rec.attribute11 := l_llnv_rec.attribute11;
2763: END IF;
2764: IF (x_llnv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2760: IF (x_llnv_rec.attribute11 = Okc_Api.G_MISS_CHAR)
2761: THEN
2762: x_llnv_rec.attribute11 := l_llnv_rec.attribute11;
2763: END IF;
2764: IF (x_llnv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2765: THEN
2766: x_llnv_rec.attribute12 := l_llnv_rec.attribute12;
2767: END IF;
2768: IF (x_llnv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2764: IF (x_llnv_rec.attribute12 = Okc_Api.G_MISS_CHAR)
2765: THEN
2766: x_llnv_rec.attribute12 := l_llnv_rec.attribute12;
2767: END IF;
2768: IF (x_llnv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2769: THEN
2770: x_llnv_rec.attribute13 := l_llnv_rec.attribute13;
2771: END IF;
2772: IF (x_llnv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2768: IF (x_llnv_rec.attribute13 = Okc_Api.G_MISS_CHAR)
2769: THEN
2770: x_llnv_rec.attribute13 := l_llnv_rec.attribute13;
2771: END IF;
2772: IF (x_llnv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2773: THEN
2774: x_llnv_rec.attribute14 := l_llnv_rec.attribute14;
2775: END IF;
2776: IF (x_llnv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2772: IF (x_llnv_rec.attribute14 = Okc_Api.G_MISS_CHAR)
2773: THEN
2774: x_llnv_rec.attribute14 := l_llnv_rec.attribute14;
2775: END IF;
2776: IF (x_llnv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2777: THEN
2778: x_llnv_rec.attribute15 := l_llnv_rec.attribute15;
2779: END IF;
2780: IF (x_llnv_rec.line_type = Okc_Api.G_MISS_CHAR)
2776: IF (x_llnv_rec.attribute15 = Okc_Api.G_MISS_CHAR)
2777: THEN
2778: x_llnv_rec.attribute15 := l_llnv_rec.attribute15;
2779: END IF;
2780: IF (x_llnv_rec.line_type = Okc_Api.G_MISS_CHAR)
2781: THEN
2782: x_llnv_rec.line_type := l_llnv_rec.line_type;
2783: END IF;
2784: IF (x_llnv_rec.request_id = Okc_Api.G_MISS_NUM)
2780: IF (x_llnv_rec.line_type = Okc_Api.G_MISS_CHAR)
2781: THEN
2782: x_llnv_rec.line_type := l_llnv_rec.line_type;
2783: END IF;
2784: IF (x_llnv_rec.request_id = Okc_Api.G_MISS_NUM)
2785: THEN
2786: x_llnv_rec.request_id := l_llnv_rec.request_id;
2787: END IF;
2788: IF (x_llnv_rec.program_application_id = Okc_Api.G_MISS_NUM)
2784: IF (x_llnv_rec.request_id = Okc_Api.G_MISS_NUM)
2785: THEN
2786: x_llnv_rec.request_id := l_llnv_rec.request_id;
2787: END IF;
2788: IF (x_llnv_rec.program_application_id = Okc_Api.G_MISS_NUM)
2789: THEN
2790: x_llnv_rec.program_application_id := l_llnv_rec.program_application_id;
2791: END IF;
2792: IF (x_llnv_rec.program_id = Okc_Api.G_MISS_NUM)
2788: IF (x_llnv_rec.program_application_id = Okc_Api.G_MISS_NUM)
2789: THEN
2790: x_llnv_rec.program_application_id := l_llnv_rec.program_application_id;
2791: END IF;
2792: IF (x_llnv_rec.program_id = Okc_Api.G_MISS_NUM)
2793: THEN
2794: x_llnv_rec.program_id := l_llnv_rec.program_id;
2795: END IF;
2796: IF (x_llnv_rec.program_update_date = Okc_Api.G_MISS_DATE)
2792: IF (x_llnv_rec.program_id = Okc_Api.G_MISS_NUM)
2793: THEN
2794: x_llnv_rec.program_id := l_llnv_rec.program_id;
2795: END IF;
2796: IF (x_llnv_rec.program_update_date = Okc_Api.G_MISS_DATE)
2797: THEN
2798: x_llnv_rec.program_update_date := l_llnv_rec.program_update_date;
2799: END IF;
2800: IF (x_llnv_rec.org_id = Okc_Api.G_MISS_NUM)
2796: IF (x_llnv_rec.program_update_date = Okc_Api.G_MISS_DATE)
2797: THEN
2798: x_llnv_rec.program_update_date := l_llnv_rec.program_update_date;
2799: END IF;
2800: IF (x_llnv_rec.org_id = Okc_Api.G_MISS_NUM)
2801: THEN
2802: x_llnv_rec.org_id := l_llnv_rec.org_id;
2803: END IF;
2804: IF (x_llnv_rec.created_by = Okc_Api.G_MISS_NUM)
2800: IF (x_llnv_rec.org_id = Okc_Api.G_MISS_NUM)
2801: THEN
2802: x_llnv_rec.org_id := l_llnv_rec.org_id;
2803: END IF;
2804: IF (x_llnv_rec.created_by = Okc_Api.G_MISS_NUM)
2805: THEN
2806: x_llnv_rec.created_by := l_llnv_rec.created_by;
2807: END IF;
2808: IF (x_llnv_rec.creation_date = Okc_Api.G_MISS_DATE)
2804: IF (x_llnv_rec.created_by = Okc_Api.G_MISS_NUM)
2805: THEN
2806: x_llnv_rec.created_by := l_llnv_rec.created_by;
2807: END IF;
2808: IF (x_llnv_rec.creation_date = Okc_Api.G_MISS_DATE)
2809: THEN
2810: x_llnv_rec.creation_date := l_llnv_rec.creation_date;
2811: END IF;
2812: IF (x_llnv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2808: IF (x_llnv_rec.creation_date = Okc_Api.G_MISS_DATE)
2809: THEN
2810: x_llnv_rec.creation_date := l_llnv_rec.creation_date;
2811: END IF;
2812: IF (x_llnv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2813: THEN
2814: x_llnv_rec.last_updated_by := l_llnv_rec.last_updated_by;
2815: END IF;
2816: IF (x_llnv_rec.last_update_date = Okc_Api.G_MISS_DATE)
2812: IF (x_llnv_rec.last_updated_by = Okc_Api.G_MISS_NUM)
2813: THEN
2814: x_llnv_rec.last_updated_by := l_llnv_rec.last_updated_by;
2815: END IF;
2816: IF (x_llnv_rec.last_update_date = Okc_Api.G_MISS_DATE)
2817: THEN
2818: x_llnv_rec.last_update_date := l_llnv_rec.last_update_date;
2819: END IF;
2820: IF (x_llnv_rec.last_update_login = Okc_Api.G_MISS_NUM)
2816: IF (x_llnv_rec.last_update_date = Okc_Api.G_MISS_DATE)
2817: THEN
2818: x_llnv_rec.last_update_date := l_llnv_rec.last_update_date;
2819: END IF;
2820: IF (x_llnv_rec.last_update_login = Okc_Api.G_MISS_NUM)
2821: THEN
2822: x_llnv_rec.last_update_login := l_llnv_rec.last_update_login;
2823: END IF;
2824: RETURN(l_return_status);
2829: FUNCTION Set_Attributes (
2830: p_llnv_rec IN llnv_rec_type,
2831: x_llnv_rec OUT NOCOPY llnv_rec_type
2832: ) RETURN VARCHAR2 IS
2833: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2834: BEGIN
2835: x_llnv_rec := p_llnv_rec;
2836: x_llnv_rec.OBJECT_VERSION_NUMBER := NVL(x_llnv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
2837:
2858:
2859: RETURN(l_return_status);
2860: END Set_Attributes;
2861: BEGIN
2862: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
2863: G_PKG_NAME,
2864: p_init_msg_list,
2865: l_api_version,
2866: p_api_version,
2865: l_api_version,
2866: p_api_version,
2867: '_PVT',
2868: x_return_status);
2869: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2870: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2872: RAISE Okc_Api.G_EXCEPTION_ERROR;
2873: END IF;
2866: p_api_version,
2867: '_PVT',
2868: x_return_status);
2869: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2870: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2872: RAISE Okc_Api.G_EXCEPTION_ERROR;
2873: END IF;
2874: --- Setting item attributes
2867: '_PVT',
2868: x_return_status);
2869: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2870: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2872: RAISE Okc_Api.G_EXCEPTION_ERROR;
2873: END IF;
2874: --- Setting item attributes
2875: l_return_status := Set_Attributes(
2868: x_return_status);
2869: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2870: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2871: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2872: RAISE Okc_Api.G_EXCEPTION_ERROR;
2873: END IF;
2874: --- Setting item attributes
2875: l_return_status := Set_Attributes(
2876: p_llnv_rec, -- IN
2875: l_return_status := Set_Attributes(
2876: p_llnv_rec, -- IN
2877: l_llnv_rec); -- OUT
2878: --- If any errors happen abort API
2879: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2880: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2881: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2882: RAISE Okc_Api.G_EXCEPTION_ERROR;
2883: END IF;
2876: p_llnv_rec, -- IN
2877: l_llnv_rec); -- OUT
2878: --- If any errors happen abort API
2879: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2880: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2881: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2882: RAISE Okc_Api.G_EXCEPTION_ERROR;
2883: END IF;
2884: l_return_status := populate_new_record(l_llnv_rec, l_def_llnv_rec);
2877: l_llnv_rec); -- OUT
2878: --- If any errors happen abort API
2879: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2880: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2881: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2882: RAISE Okc_Api.G_EXCEPTION_ERROR;
2883: END IF;
2884: l_return_status := populate_new_record(l_llnv_rec, l_def_llnv_rec);
2885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2878: --- If any errors happen abort API
2879: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2880: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2881: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2882: RAISE Okc_Api.G_EXCEPTION_ERROR;
2883: END IF;
2884: l_return_status := populate_new_record(l_llnv_rec, l_def_llnv_rec);
2885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2886: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2881: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2882: RAISE Okc_Api.G_EXCEPTION_ERROR;
2883: END IF;
2884: l_return_status := populate_new_record(l_llnv_rec, l_def_llnv_rec);
2885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2886: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2888: RAISE Okc_Api.G_EXCEPTION_ERROR;
2889: END IF;
2882: RAISE Okc_Api.G_EXCEPTION_ERROR;
2883: END IF;
2884: l_return_status := populate_new_record(l_llnv_rec, l_def_llnv_rec);
2885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2886: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2888: RAISE Okc_Api.G_EXCEPTION_ERROR;
2889: END IF;
2890: l_def_llnv_rec := fill_who_columns(l_def_llnv_rec);
2883: END IF;
2884: l_return_status := populate_new_record(l_llnv_rec, l_def_llnv_rec);
2885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2886: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2888: RAISE Okc_Api.G_EXCEPTION_ERROR;
2889: END IF;
2890: l_def_llnv_rec := fill_who_columns(l_def_llnv_rec);
2891: --- Validate all non-missing attributes (Item Level Validation)
2884: l_return_status := populate_new_record(l_llnv_rec, l_def_llnv_rec);
2885: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2886: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2887: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2888: RAISE Okc_Api.G_EXCEPTION_ERROR;
2889: END IF;
2890: l_def_llnv_rec := fill_who_columns(l_def_llnv_rec);
2891: --- Validate all non-missing attributes (Item Level Validation)
2892: l_return_status := Validate_Attributes(l_def_llnv_rec);
2890: l_def_llnv_rec := fill_who_columns(l_def_llnv_rec);
2891: --- Validate all non-missing attributes (Item Level Validation)
2892: l_return_status := Validate_Attributes(l_def_llnv_rec);
2893: --- If any errors happen abort API
2894: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2895: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2896: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2897: RAISE Okc_Api.G_EXCEPTION_ERROR;
2898: END IF;
2891: --- Validate all non-missing attributes (Item Level Validation)
2892: l_return_status := Validate_Attributes(l_def_llnv_rec);
2893: --- If any errors happen abort API
2894: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2895: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2896: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2897: RAISE Okc_Api.G_EXCEPTION_ERROR;
2898: END IF;
2899: l_return_status := Validate_Record(l_def_llnv_rec);
2892: l_return_status := Validate_Attributes(l_def_llnv_rec);
2893: --- If any errors happen abort API
2894: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2895: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2896: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2897: RAISE Okc_Api.G_EXCEPTION_ERROR;
2898: END IF;
2899: l_return_status := Validate_Record(l_def_llnv_rec);
2900: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2893: --- If any errors happen abort API
2894: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2895: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2896: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2897: RAISE Okc_Api.G_EXCEPTION_ERROR;
2898: END IF;
2899: l_return_status := Validate_Record(l_def_llnv_rec);
2900: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2901: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2896: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2897: RAISE Okc_Api.G_EXCEPTION_ERROR;
2898: END IF;
2899: l_return_status := Validate_Record(l_def_llnv_rec);
2900: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2901: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2902: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2903: RAISE Okc_Api.G_EXCEPTION_ERROR;
2904: END IF;
2897: RAISE Okc_Api.G_EXCEPTION_ERROR;
2898: END IF;
2899: l_return_status := Validate_Record(l_def_llnv_rec);
2900: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2901: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2902: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2903: RAISE Okc_Api.G_EXCEPTION_ERROR;
2904: END IF;
2905:
2898: END IF;
2899: l_return_status := Validate_Record(l_def_llnv_rec);
2900: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2901: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2902: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2903: RAISE Okc_Api.G_EXCEPTION_ERROR;
2904: END IF;
2905:
2906: --------------------------------------
2899: l_return_status := Validate_Record(l_def_llnv_rec);
2900: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2901: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2902: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2903: RAISE Okc_Api.G_EXCEPTION_ERROR;
2904: END IF;
2905:
2906: --------------------------------------
2907: -- Move VIEW record to "Child" records
2918: x_msg_data,
2919: l_okl_cnsld_ar_lines_tl_rec,
2920: lx_okl_cnsld_ar_lines_tl_rec
2921: );
2922: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2923: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2924: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2925: RAISE Okc_Api.G_EXCEPTION_ERROR;
2926: END IF;
2919: l_okl_cnsld_ar_lines_tl_rec,
2920: lx_okl_cnsld_ar_lines_tl_rec
2921: );
2922: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2923: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2924: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2925: RAISE Okc_Api.G_EXCEPTION_ERROR;
2926: END IF;
2927: migrate(lx_okl_cnsld_ar_lines_tl_rec, l_def_llnv_rec);
2920: lx_okl_cnsld_ar_lines_tl_rec
2921: );
2922: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2923: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2924: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2925: RAISE Okc_Api.G_EXCEPTION_ERROR;
2926: END IF;
2927: migrate(lx_okl_cnsld_ar_lines_tl_rec, l_def_llnv_rec);
2928: update_row(
2921: );
2922: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2923: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2924: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2925: RAISE Okc_Api.G_EXCEPTION_ERROR;
2926: END IF;
2927: migrate(lx_okl_cnsld_ar_lines_tl_rec, l_def_llnv_rec);
2928: update_row(
2929: p_init_msg_list,
2932: x_msg_data,
2933: l_lln_rec,
2934: lx_lln_rec
2935: );
2936: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2937: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2938: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2939: RAISE Okc_Api.G_EXCEPTION_ERROR;
2940: END IF;
2933: l_lln_rec,
2934: lx_lln_rec
2935: );
2936: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2937: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2938: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2939: RAISE Okc_Api.G_EXCEPTION_ERROR;
2940: END IF;
2941: migrate(lx_lln_rec, l_def_llnv_rec);
2934: lx_lln_rec
2935: );
2936: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2937: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2938: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2939: RAISE Okc_Api.G_EXCEPTION_ERROR;
2940: END IF;
2941: migrate(lx_lln_rec, l_def_llnv_rec);
2942: x_llnv_rec := l_def_llnv_rec;
2935: );
2936: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
2937: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2938: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
2939: RAISE Okc_Api.G_EXCEPTION_ERROR;
2940: END IF;
2941: migrate(lx_lln_rec, l_def_llnv_rec);
2942: x_llnv_rec := l_def_llnv_rec;
2943: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2939: RAISE Okc_Api.G_EXCEPTION_ERROR;
2940: END IF;
2941: migrate(lx_lln_rec, l_def_llnv_rec);
2942: x_llnv_rec := l_def_llnv_rec;
2943: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2944: EXCEPTION
2945: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2946: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2947: (
2941: migrate(lx_lln_rec, l_def_llnv_rec);
2942: x_llnv_rec := l_def_llnv_rec;
2943: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2944: EXCEPTION
2945: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2946: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2947: (
2948: l_api_name,
2949: G_PKG_NAME,
2942: x_llnv_rec := l_def_llnv_rec;
2943: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
2944: EXCEPTION
2945: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
2946: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2947: (
2948: l_api_name,
2949: G_PKG_NAME,
2950: 'OKC_API.G_RET_STS_ERROR',
2946: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
2947: (
2948: l_api_name,
2949: G_PKG_NAME,
2950: 'OKC_API.G_RET_STS_ERROR',
2951: x_msg_count,
2952: x_msg_data,
2953: '_PVT'
2954: );
2951: x_msg_count,
2952: x_msg_data,
2953: '_PVT'
2954: );
2955: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2956: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2957: (
2958: l_api_name,
2959: G_PKG_NAME,
2952: x_msg_data,
2953: '_PVT'
2954: );
2955: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
2956: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2957: (
2958: l_api_name,
2959: G_PKG_NAME,
2960: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2956: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2957: (
2958: l_api_name,
2959: G_PKG_NAME,
2960: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2961: x_msg_count,
2962: x_msg_data,
2963: '_PVT'
2964: );
2962: x_msg_data,
2963: '_PVT'
2964: );
2965: WHEN OTHERS THEN
2966: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
2967: (
2968: l_api_name,
2969: G_PKG_NAME,
2970: 'OTHERS',
2977: -- PL/SQL TBL update_row for:LLNV_TBL --
2978: ----------------------------------------
2979: PROCEDURE update_row(
2980: p_api_version IN NUMBER,
2981: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
2982: x_return_status OUT NOCOPY VARCHAR2,
2983: x_msg_count OUT NOCOPY NUMBER,
2984: x_msg_data OUT NOCOPY VARCHAR2,
2985: p_llnv_tbl IN llnv_tbl_type,
2986: x_llnv_tbl OUT NOCOPY llnv_tbl_type) IS
2987:
2988: l_api_version CONSTANT NUMBER := 1;
2989: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2990: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2991: i NUMBER := 0;
2992: BEGIN
2993: Okc_Api.init_msg_list(p_init_msg_list);
2994: -- Make sure PL/SQL table has records in it before passing
2989: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2990: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
2991: i NUMBER := 0;
2992: BEGIN
2993: Okc_Api.init_msg_list(p_init_msg_list);
2994: -- Make sure PL/SQL table has records in it before passing
2995: IF (p_llnv_tbl.COUNT > 0) THEN
2996: i := p_llnv_tbl.FIRST;
2997: LOOP
2996: i := p_llnv_tbl.FIRST;
2997: LOOP
2998: update_row (
2999: p_api_version => p_api_version,
3000: p_init_msg_list => Okc_Api.G_FALSE,
3001: x_return_status => x_return_status,
3002: x_msg_count => x_msg_count,
3003: x_msg_data => x_msg_data,
3004: p_llnv_rec => p_llnv_tbl(i),
3007: i := p_llnv_tbl.NEXT(i);
3008: END LOOP;
3009: END IF;
3010: EXCEPTION
3011: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3012: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3013: (
3014: l_api_name,
3015: G_PKG_NAME,
3008: END LOOP;
3009: END IF;
3010: EXCEPTION
3011: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3012: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3013: (
3014: l_api_name,
3015: G_PKG_NAME,
3016: 'OKC_API.G_RET_STS_ERROR',
3012: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3013: (
3014: l_api_name,
3015: G_PKG_NAME,
3016: 'OKC_API.G_RET_STS_ERROR',
3017: x_msg_count,
3018: x_msg_data,
3019: '_PVT'
3020: );
3017: x_msg_count,
3018: x_msg_data,
3019: '_PVT'
3020: );
3021: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3022: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3023: (
3024: l_api_name,
3025: G_PKG_NAME,
3018: x_msg_data,
3019: '_PVT'
3020: );
3021: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3022: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3023: (
3024: l_api_name,
3025: G_PKG_NAME,
3026: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3022: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3023: (
3024: l_api_name,
3025: G_PKG_NAME,
3026: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3027: x_msg_count,
3028: x_msg_data,
3029: '_PVT'
3030: );
3028: x_msg_data,
3029: '_PVT'
3030: );
3031: WHEN OTHERS THEN
3032: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3033: (
3034: l_api_name,
3035: G_PKG_NAME,
3036: 'OTHERS',
3046: -----------------------------------------
3047: -- delete_row for:OKL_CNSLD_AR_LINES_B --
3048: -----------------------------------------
3049: PROCEDURE delete_row(
3050: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3051: x_return_status OUT NOCOPY VARCHAR2,
3052: x_msg_count OUT NOCOPY NUMBER,
3053: x_msg_data OUT NOCOPY VARCHAR2,
3054: p_lln_rec IN lln_rec_type) IS
3054: p_lln_rec IN lln_rec_type) IS
3055:
3056: l_api_version CONSTANT NUMBER := 1;
3057: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3058: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3059: l_lln_rec lln_rec_type:= p_lln_rec;
3060: l_row_notfound BOOLEAN := TRUE;
3061: BEGIN
3062: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3058: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3059: l_lln_rec lln_rec_type:= p_lln_rec;
3060: l_row_notfound BOOLEAN := TRUE;
3061: BEGIN
3062: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3063: p_init_msg_list,
3064: '_PVT',
3065: x_return_status);
3066: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3062: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3063: p_init_msg_list,
3064: '_PVT',
3065: x_return_status);
3066: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3069: RAISE Okc_Api.G_EXCEPTION_ERROR;
3070: END IF;
3063: p_init_msg_list,
3064: '_PVT',
3065: x_return_status);
3066: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3069: RAISE Okc_Api.G_EXCEPTION_ERROR;
3070: END IF;
3071: DELETE FROM OKL_CNSLD_AR_LINES_B
3064: '_PVT',
3065: x_return_status);
3066: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3069: RAISE Okc_Api.G_EXCEPTION_ERROR;
3070: END IF;
3071: DELETE FROM OKL_CNSLD_AR_LINES_B
3072: WHERE ID = l_lln_rec.id;
3065: x_return_status);
3066: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3069: RAISE Okc_Api.G_EXCEPTION_ERROR;
3070: END IF;
3071: DELETE FROM OKL_CNSLD_AR_LINES_B
3072: WHERE ID = l_lln_rec.id;
3073:
3070: END IF;
3071: DELETE FROM OKL_CNSLD_AR_LINES_B
3072: WHERE ID = l_lln_rec.id;
3073:
3074: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3075: EXCEPTION
3076: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3077: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3078: (
3072: WHERE ID = l_lln_rec.id;
3073:
3074: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3075: EXCEPTION
3076: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3077: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3078: (
3079: l_api_name,
3080: G_PKG_NAME,
3073:
3074: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3075: EXCEPTION
3076: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3077: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3078: (
3079: l_api_name,
3080: G_PKG_NAME,
3081: 'OKC_API.G_RET_STS_ERROR',
3077: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3078: (
3079: l_api_name,
3080: G_PKG_NAME,
3081: 'OKC_API.G_RET_STS_ERROR',
3082: x_msg_count,
3083: x_msg_data,
3084: '_PVT'
3085: );
3082: x_msg_count,
3083: x_msg_data,
3084: '_PVT'
3085: );
3086: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3087: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3088: (
3089: l_api_name,
3090: G_PKG_NAME,
3083: x_msg_data,
3084: '_PVT'
3085: );
3086: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3087: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3088: (
3089: l_api_name,
3090: G_PKG_NAME,
3091: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3087: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3088: (
3089: l_api_name,
3090: G_PKG_NAME,
3091: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3092: x_msg_count,
3093: x_msg_data,
3094: '_PVT'
3095: );
3093: x_msg_data,
3094: '_PVT'
3095: );
3096: WHEN OTHERS THEN
3097: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3098: (
3099: l_api_name,
3100: G_PKG_NAME,
3101: 'OTHERS',
3107: ------------------------------------------
3108: -- delete_row for:OKL_CNSLD_AR_LINES_TL --
3109: ------------------------------------------
3110: PROCEDURE delete_row(
3111: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3112: x_return_status OUT NOCOPY VARCHAR2,
3113: x_msg_count OUT NOCOPY NUMBER,
3114: x_msg_data OUT NOCOPY VARCHAR2,
3115: p_okl_cnsld_ar_lines_tl_rec IN okl_cnsld_ar_lines_tl_rec_type) IS
3115: p_okl_cnsld_ar_lines_tl_rec IN okl_cnsld_ar_lines_tl_rec_type) IS
3116:
3117: l_api_version CONSTANT NUMBER := 1;
3118: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3119: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3120: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type:= p_okl_cnsld_ar_lines_tl_rec;
3121: l_row_notfound BOOLEAN := TRUE;
3122: ----------------------------------------------
3123: -- Set_Attributes for:OKL_CNSLD_AR_LINES_TL --
3125: FUNCTION Set_Attributes (
3126: p_okl_cnsld_ar_lines_tl_rec IN okl_cnsld_ar_lines_tl_rec_type,
3127: x_okl_cnsld_ar_lines_tl_rec OUT NOCOPY okl_cnsld_ar_lines_tl_rec_type
3128: ) RETURN VARCHAR2 IS
3129: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3130: BEGIN
3131: x_okl_cnsld_ar_lines_tl_rec := p_okl_cnsld_ar_lines_tl_rec;
3132: x_okl_cnsld_ar_lines_tl_rec.LANGUAGE := USERENV('LANG');
3133: RETURN(l_return_status);
3132: x_okl_cnsld_ar_lines_tl_rec.LANGUAGE := USERENV('LANG');
3133: RETURN(l_return_status);
3134: END Set_Attributes;
3135: BEGIN
3136: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3137: p_init_msg_list,
3138: '_PVT',
3139: x_return_status);
3140: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3136: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3137: p_init_msg_list,
3138: '_PVT',
3139: x_return_status);
3140: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3141: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3142: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3143: RAISE Okc_Api.G_EXCEPTION_ERROR;
3144: END IF;
3137: p_init_msg_list,
3138: '_PVT',
3139: x_return_status);
3140: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3141: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3142: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3143: RAISE Okc_Api.G_EXCEPTION_ERROR;
3144: END IF;
3145: --- Setting item attributes
3138: '_PVT',
3139: x_return_status);
3140: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3141: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3142: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3143: RAISE Okc_Api.G_EXCEPTION_ERROR;
3144: END IF;
3145: --- Setting item attributes
3146: l_return_status := Set_Attributes(
3139: x_return_status);
3140: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3141: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3142: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3143: RAISE Okc_Api.G_EXCEPTION_ERROR;
3144: END IF;
3145: --- Setting item attributes
3146: l_return_status := Set_Attributes(
3147: p_okl_cnsld_ar_lines_tl_rec, -- IN
3146: l_return_status := Set_Attributes(
3147: p_okl_cnsld_ar_lines_tl_rec, -- IN
3148: l_okl_cnsld_ar_lines_tl_rec); -- OUT
3149: --- If any errors happen abort API
3150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3152: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3153: RAISE Okc_Api.G_EXCEPTION_ERROR;
3154: END IF;
3147: p_okl_cnsld_ar_lines_tl_rec, -- IN
3148: l_okl_cnsld_ar_lines_tl_rec); -- OUT
3149: --- If any errors happen abort API
3150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3152: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3153: RAISE Okc_Api.G_EXCEPTION_ERROR;
3154: END IF;
3155: DELETE FROM OKL_CNSLD_AR_LINES_TL
3148: l_okl_cnsld_ar_lines_tl_rec); -- OUT
3149: --- If any errors happen abort API
3150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3152: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3153: RAISE Okc_Api.G_EXCEPTION_ERROR;
3154: END IF;
3155: DELETE FROM OKL_CNSLD_AR_LINES_TL
3156: WHERE ID = l_okl_cnsld_ar_lines_tl_rec.id;
3149: --- If any errors happen abort API
3150: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3151: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3152: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3153: RAISE Okc_Api.G_EXCEPTION_ERROR;
3154: END IF;
3155: DELETE FROM OKL_CNSLD_AR_LINES_TL
3156: WHERE ID = l_okl_cnsld_ar_lines_tl_rec.id;
3157:
3154: END IF;
3155: DELETE FROM OKL_CNSLD_AR_LINES_TL
3156: WHERE ID = l_okl_cnsld_ar_lines_tl_rec.id;
3157:
3158: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3159: EXCEPTION
3160: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3161: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3162: (
3156: WHERE ID = l_okl_cnsld_ar_lines_tl_rec.id;
3157:
3158: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3159: EXCEPTION
3160: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3161: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3162: (
3163: l_api_name,
3164: G_PKG_NAME,
3157:
3158: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3159: EXCEPTION
3160: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3161: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3162: (
3163: l_api_name,
3164: G_PKG_NAME,
3165: 'OKC_API.G_RET_STS_ERROR',
3161: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3162: (
3163: l_api_name,
3164: G_PKG_NAME,
3165: 'OKC_API.G_RET_STS_ERROR',
3166: x_msg_count,
3167: x_msg_data,
3168: '_PVT'
3169: );
3166: x_msg_count,
3167: x_msg_data,
3168: '_PVT'
3169: );
3170: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3171: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3172: (
3173: l_api_name,
3174: G_PKG_NAME,
3167: x_msg_data,
3168: '_PVT'
3169: );
3170: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3171: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3172: (
3173: l_api_name,
3174: G_PKG_NAME,
3175: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3171: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3172: (
3173: l_api_name,
3174: G_PKG_NAME,
3175: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3176: x_msg_count,
3177: x_msg_data,
3178: '_PVT'
3179: );
3177: x_msg_data,
3178: '_PVT'
3179: );
3180: WHEN OTHERS THEN
3181: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3182: (
3183: l_api_name,
3184: G_PKG_NAME,
3185: 'OTHERS',
3192: -- delete_row for:OKL_CNSLD_AR_LINES_V --
3193: -----------------------------------------
3194: PROCEDURE delete_row(
3195: p_api_version IN NUMBER,
3196: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3197: x_return_status OUT NOCOPY VARCHAR2,
3198: x_msg_count OUT NOCOPY NUMBER,
3199: x_msg_data OUT NOCOPY VARCHAR2,
3200: p_llnv_rec IN llnv_rec_type) IS
3200: p_llnv_rec IN llnv_rec_type) IS
3201:
3202: l_api_version CONSTANT NUMBER := 1;
3203: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3204: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3205: l_llnv_rec llnv_rec_type := p_llnv_rec;
3206: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type;
3207: l_lln_rec lln_rec_type;
3208: BEGIN
3205: l_llnv_rec llnv_rec_type := p_llnv_rec;
3206: l_okl_cnsld_ar_lines_tl_rec okl_cnsld_ar_lines_tl_rec_type;
3207: l_lln_rec lln_rec_type;
3208: BEGIN
3209: l_return_status := Okc_Api.START_ACTIVITY(l_api_name,
3210: G_PKG_NAME,
3211: p_init_msg_list,
3212: l_api_version,
3213: p_api_version,
3212: l_api_version,
3213: p_api_version,
3214: '_PVT',
3215: x_return_status);
3216: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3217: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3218: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3219: RAISE Okc_Api.G_EXCEPTION_ERROR;
3220: END IF;
3213: p_api_version,
3214: '_PVT',
3215: x_return_status);
3216: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3217: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3218: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3219: RAISE Okc_Api.G_EXCEPTION_ERROR;
3220: END IF;
3221: --------------------------------------
3214: '_PVT',
3215: x_return_status);
3216: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3217: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3218: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3219: RAISE Okc_Api.G_EXCEPTION_ERROR;
3220: END IF;
3221: --------------------------------------
3222: -- Move VIEW record to "Child" records
3215: x_return_status);
3216: IF (l_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3217: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3218: ELSIF (l_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3219: RAISE Okc_Api.G_EXCEPTION_ERROR;
3220: END IF;
3221: --------------------------------------
3222: -- Move VIEW record to "Child" records
3223: --------------------------------------
3232: x_msg_count,
3233: x_msg_data,
3234: l_okl_cnsld_ar_lines_tl_rec
3235: );
3236: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3237: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3238: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3239: RAISE Okc_Api.G_EXCEPTION_ERROR;
3240: END IF;
3233: x_msg_data,
3234: l_okl_cnsld_ar_lines_tl_rec
3235: );
3236: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3237: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3238: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3239: RAISE Okc_Api.G_EXCEPTION_ERROR;
3240: END IF;
3241: delete_row(
3234: l_okl_cnsld_ar_lines_tl_rec
3235: );
3236: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3237: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3238: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3239: RAISE Okc_Api.G_EXCEPTION_ERROR;
3240: END IF;
3241: delete_row(
3242: p_init_msg_list,
3235: );
3236: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3237: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3238: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3239: RAISE Okc_Api.G_EXCEPTION_ERROR;
3240: END IF;
3241: delete_row(
3242: p_init_msg_list,
3243: x_return_status,
3244: x_msg_count,
3245: x_msg_data,
3246: l_lln_rec
3247: );
3248: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3249: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3250: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3251: RAISE Okc_Api.G_EXCEPTION_ERROR;
3252: END IF;
3245: x_msg_data,
3246: l_lln_rec
3247: );
3248: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3249: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3250: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3251: RAISE Okc_Api.G_EXCEPTION_ERROR;
3252: END IF;
3253: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3246: l_lln_rec
3247: );
3248: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3249: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3250: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3251: RAISE Okc_Api.G_EXCEPTION_ERROR;
3252: END IF;
3253: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3254: EXCEPTION
3247: );
3248: IF (x_return_status = Okc_Api.G_RET_STS_UNEXP_ERROR) THEN
3249: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3250: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3251: RAISE Okc_Api.G_EXCEPTION_ERROR;
3252: END IF;
3253: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3254: EXCEPTION
3255: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3249: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
3250: ELSIF (x_return_status = Okc_Api.G_RET_STS_ERROR) THEN
3251: RAISE Okc_Api.G_EXCEPTION_ERROR;
3252: END IF;
3253: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3254: EXCEPTION
3255: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3256: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3257: (
3251: RAISE Okc_Api.G_EXCEPTION_ERROR;
3252: END IF;
3253: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3254: EXCEPTION
3255: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3256: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3257: (
3258: l_api_name,
3259: G_PKG_NAME,
3252: END IF;
3253: Okc_Api.END_ACTIVITY(x_msg_count, x_msg_data);
3254: EXCEPTION
3255: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3256: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3257: (
3258: l_api_name,
3259: G_PKG_NAME,
3260: 'OKC_API.G_RET_STS_ERROR',
3256: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3257: (
3258: l_api_name,
3259: G_PKG_NAME,
3260: 'OKC_API.G_RET_STS_ERROR',
3261: x_msg_count,
3262: x_msg_data,
3263: '_PVT'
3264: );
3261: x_msg_count,
3262: x_msg_data,
3263: '_PVT'
3264: );
3265: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3266: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3267: (
3268: l_api_name,
3269: G_PKG_NAME,
3262: x_msg_data,
3263: '_PVT'
3264: );
3265: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3266: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3267: (
3268: l_api_name,
3269: G_PKG_NAME,
3270: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3266: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3267: (
3268: l_api_name,
3269: G_PKG_NAME,
3270: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3271: x_msg_count,
3272: x_msg_data,
3273: '_PVT'
3274: );
3272: x_msg_data,
3273: '_PVT'
3274: );
3275: WHEN OTHERS THEN
3276: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3277: (
3278: l_api_name,
3279: G_PKG_NAME,
3280: 'OTHERS',
3287: -- PL/SQL TBL delete_row for:LLNV_TBL --
3288: ----------------------------------------
3289: PROCEDURE delete_row(
3290: p_api_version IN NUMBER,
3291: p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
3292: x_return_status OUT NOCOPY VARCHAR2,
3293: x_msg_count OUT NOCOPY NUMBER,
3294: x_msg_data OUT NOCOPY VARCHAR2,
3295: p_llnv_tbl IN llnv_tbl_type) IS
3295: p_llnv_tbl IN llnv_tbl_type) IS
3296:
3297: l_api_version CONSTANT NUMBER := 1;
3298: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3299: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3300: i NUMBER := 0;
3301: BEGIN
3302: Okc_Api.init_msg_list(p_init_msg_list);
3303: -- Make sure PL/SQL table has records in it before passing
3298: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3299: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3300: i NUMBER := 0;
3301: BEGIN
3302: Okc_Api.init_msg_list(p_init_msg_list);
3303: -- Make sure PL/SQL table has records in it before passing
3304: IF (p_llnv_tbl.COUNT > 0) THEN
3305: i := p_llnv_tbl.FIRST;
3306: LOOP
3305: i := p_llnv_tbl.FIRST;
3306: LOOP
3307: delete_row (
3308: p_api_version => p_api_version,
3309: p_init_msg_list => Okc_Api.G_FALSE,
3310: x_return_status => x_return_status,
3311: x_msg_count => x_msg_count,
3312: x_msg_data => x_msg_data,
3313: p_llnv_rec => p_llnv_tbl(i));
3315: i := p_llnv_tbl.NEXT(i);
3316: END LOOP;
3317: END IF;
3318: EXCEPTION
3319: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3320: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3321: (
3322: l_api_name,
3323: G_PKG_NAME,
3316: END LOOP;
3317: END IF;
3318: EXCEPTION
3319: WHEN Okc_Api.G_EXCEPTION_ERROR THEN
3320: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3321: (
3322: l_api_name,
3323: G_PKG_NAME,
3324: 'OKC_API.G_RET_STS_ERROR',
3320: x_return_status := Okc_Api.HANDLE_EXCEPTIONS
3321: (
3322: l_api_name,
3323: G_PKG_NAME,
3324: 'OKC_API.G_RET_STS_ERROR',
3325: x_msg_count,
3326: x_msg_data,
3327: '_PVT'
3328: );
3325: x_msg_count,
3326: x_msg_data,
3327: '_PVT'
3328: );
3329: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3330: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3331: (
3332: l_api_name,
3333: G_PKG_NAME,
3326: x_msg_data,
3327: '_PVT'
3328: );
3329: WHEN Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
3330: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3331: (
3332: l_api_name,
3333: G_PKG_NAME,
3334: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3330: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3331: (
3332: l_api_name,
3333: G_PKG_NAME,
3334: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3335: x_msg_count,
3336: x_msg_data,
3337: '_PVT'
3338: );
3336: x_msg_data,
3337: '_PVT'
3338: );
3339: WHEN OTHERS THEN
3340: x_return_status :=Okc_Api.HANDLE_EXCEPTIONS
3341: (
3342: l_api_name,
3343: G_PKG_NAME,
3344: 'OTHERS',