[Home] [Help]
514: p_cnhv_rec IN cnhv_rec_type
515: ) RETURN cnhv_rec_type IS
516: l_cnhv_rec cnhv_rec_type := p_cnhv_rec;
517: BEGIN
518: IF (l_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
519: l_cnhv_rec.object_version_number := NULL;
520: END IF;
521: IF (l_cnhv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
522: l_cnhv_rec.sfwt_flag := NULL;
517: BEGIN
518: IF (l_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
519: l_cnhv_rec.object_version_number := NULL;
520: END IF;
521: IF (l_cnhv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
522: l_cnhv_rec.sfwt_flag := NULL;
523: END IF;
524: IF (l_cnhv_rec.acn_id = OKC_API.G_MISS_NUM) THEN
525: l_cnhv_rec.acn_id := NULL;
520: END IF;
521: IF (l_cnhv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
522: l_cnhv_rec.sfwt_flag := NULL;
523: END IF;
524: IF (l_cnhv_rec.acn_id = OKC_API.G_MISS_NUM) THEN
525: l_cnhv_rec.acn_id := NULL;
526: END IF;
527: IF (l_cnhv_rec.counter_group_id = OKC_API.G_MISS_NUM) THEN
528: l_cnhv_rec.counter_group_id := NULL;
523: END IF;
524: IF (l_cnhv_rec.acn_id = OKC_API.G_MISS_NUM) THEN
525: l_cnhv_rec.acn_id := NULL;
526: END IF;
527: IF (l_cnhv_rec.counter_group_id = OKC_API.G_MISS_NUM) THEN
528: l_cnhv_rec.counter_group_id := NULL;
529: END IF;
530: IF (l_cnhv_rec.description = OKC_API.G_MISS_CHAR) THEN
531: l_cnhv_rec.description := NULL;
526: END IF;
527: IF (l_cnhv_rec.counter_group_id = OKC_API.G_MISS_NUM) THEN
528: l_cnhv_rec.counter_group_id := NULL;
529: END IF;
530: IF (l_cnhv_rec.description = OKC_API.G_MISS_CHAR) THEN
531: l_cnhv_rec.description := NULL;
532: END IF;
533: IF (l_cnhv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
534: l_cnhv_rec.short_description := NULL;
529: END IF;
530: IF (l_cnhv_rec.description = OKC_API.G_MISS_CHAR) THEN
531: l_cnhv_rec.description := NULL;
532: END IF;
533: IF (l_cnhv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
534: l_cnhv_rec.short_description := NULL;
535: END IF;
536: IF (l_cnhv_rec.comments = OKC_API.G_MISS_CHAR) THEN
537: l_cnhv_rec.comments := NULL;
532: END IF;
533: IF (l_cnhv_rec.short_description = OKC_API.G_MISS_CHAR) THEN
534: l_cnhv_rec.short_description := NULL;
535: END IF;
536: IF (l_cnhv_rec.comments = OKC_API.G_MISS_CHAR) THEN
537: l_cnhv_rec.comments := NULL;
538: END IF;
539: IF (l_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR) THEN
540: l_cnhv_rec.one_time_yn := NULL;
535: END IF;
536: IF (l_cnhv_rec.comments = OKC_API.G_MISS_CHAR) THEN
537: l_cnhv_rec.comments := NULL;
538: END IF;
539: IF (l_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR) THEN
540: l_cnhv_rec.one_time_yn := NULL;
541: END IF;
542: IF (l_cnhv_rec.name = OKC_API.G_MISS_CHAR) THEN
543: l_cnhv_rec.name := NULL;
538: END IF;
539: IF (l_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR) THEN
540: l_cnhv_rec.one_time_yn := NULL;
541: END IF;
542: IF (l_cnhv_rec.name = OKC_API.G_MISS_CHAR) THEN
543: l_cnhv_rec.name := NULL;
544: END IF;
545: IF (l_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR) THEN
546: l_cnhv_rec.condition_valid_yn := NULL;
541: END IF;
542: IF (l_cnhv_rec.name = OKC_API.G_MISS_CHAR) THEN
543: l_cnhv_rec.name := NULL;
544: END IF;
545: IF (l_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR) THEN
546: l_cnhv_rec.condition_valid_yn := NULL;
547: END IF;
548: IF (l_cnhv_rec.before_after = OKC_API.G_MISS_CHAR) THEN
549: l_cnhv_rec.before_after := NULL;
544: END IF;
545: IF (l_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR) THEN
546: l_cnhv_rec.condition_valid_yn := NULL;
547: END IF;
548: IF (l_cnhv_rec.before_after = OKC_API.G_MISS_CHAR) THEN
549: l_cnhv_rec.before_after := NULL;
550: END IF;
551: IF (l_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR) THEN
552: l_cnhv_rec.tracked_yn := NULL;
547: END IF;
548: IF (l_cnhv_rec.before_after = OKC_API.G_MISS_CHAR) THEN
549: l_cnhv_rec.before_after := NULL;
550: END IF;
551: IF (l_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR) THEN
552: l_cnhv_rec.tracked_yn := NULL;
553: END IF;
554: IF (l_cnhv_rec.cnh_variance = OKC_API.G_MISS_NUM) THEN
555: l_cnhv_rec.cnh_variance := NULL;
550: END IF;
551: IF (l_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR) THEN
552: l_cnhv_rec.tracked_yn := NULL;
553: END IF;
554: IF (l_cnhv_rec.cnh_variance = OKC_API.G_MISS_NUM) THEN
555: l_cnhv_rec.cnh_variance := NULL;
556: END IF;
557: IF (l_cnhv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
558: l_cnhv_rec.dnz_chr_id := NULL;
553: END IF;
554: IF (l_cnhv_rec.cnh_variance = OKC_API.G_MISS_NUM) THEN
555: l_cnhv_rec.cnh_variance := NULL;
556: END IF;
557: IF (l_cnhv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
558: l_cnhv_rec.dnz_chr_id := NULL;
559: END IF;
560: IF (l_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR) THEN
561: l_cnhv_rec.template_yn := NULL;
556: END IF;
557: IF (l_cnhv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
558: l_cnhv_rec.dnz_chr_id := NULL;
559: END IF;
560: IF (l_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR) THEN
561: l_cnhv_rec.template_yn := NULL;
562: END IF;
563: IF (l_cnhv_rec.date_active = OKC_API.G_MISS_DATE) THEN
564: l_cnhv_rec.date_active := NULL;
559: END IF;
560: IF (l_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR) THEN
561: l_cnhv_rec.template_yn := NULL;
562: END IF;
563: IF (l_cnhv_rec.date_active = OKC_API.G_MISS_DATE) THEN
564: l_cnhv_rec.date_active := NULL;
565: END IF;
566: IF (l_cnhv_rec.object_id = OKC_API.G_MISS_NUM) THEN
567: l_cnhv_rec.object_id := NULL;
562: END IF;
563: IF (l_cnhv_rec.date_active = OKC_API.G_MISS_DATE) THEN
564: l_cnhv_rec.date_active := NULL;
565: END IF;
566: IF (l_cnhv_rec.object_id = OKC_API.G_MISS_NUM) THEN
567: l_cnhv_rec.object_id := NULL;
568: END IF;
569: IF (l_cnhv_rec.date_inactive = OKC_API.G_MISS_DATE) THEN
570: l_cnhv_rec.date_inactive := NULL;
565: END IF;
566: IF (l_cnhv_rec.object_id = OKC_API.G_MISS_NUM) THEN
567: l_cnhv_rec.object_id := NULL;
568: END IF;
569: IF (l_cnhv_rec.date_inactive = OKC_API.G_MISS_DATE) THEN
570: l_cnhv_rec.date_inactive := NULL;
571: END IF;
572: IF (l_cnhv_rec.jtot_object_code = OKC_API.G_MISS_CHAR) THEN
573: l_cnhv_rec.jtot_object_code := NULL;
568: END IF;
569: IF (l_cnhv_rec.date_inactive = OKC_API.G_MISS_DATE) THEN
570: l_cnhv_rec.date_inactive := NULL;
571: END IF;
572: IF (l_cnhv_rec.jtot_object_code = OKC_API.G_MISS_CHAR) THEN
573: l_cnhv_rec.jtot_object_code := NULL;
574: END IF;
575: IF (l_cnhv_rec.task_owner_id = OKC_API.G_MISS_NUM) THEN
576: l_cnhv_rec.task_owner_id := NULL;
571: END IF;
572: IF (l_cnhv_rec.jtot_object_code = OKC_API.G_MISS_CHAR) THEN
573: l_cnhv_rec.jtot_object_code := NULL;
574: END IF;
575: IF (l_cnhv_rec.task_owner_id = OKC_API.G_MISS_NUM) THEN
576: l_cnhv_rec.task_owner_id := NULL;
577: END IF;
578: IF (l_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR) THEN
579: l_cnhv_rec.cnh_type := NULL;
574: END IF;
575: IF (l_cnhv_rec.task_owner_id = OKC_API.G_MISS_NUM) THEN
576: l_cnhv_rec.task_owner_id := NULL;
577: END IF;
578: IF (l_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR) THEN
579: l_cnhv_rec.cnh_type := NULL;
580: END IF;
581: IF (l_cnhv_rec.application_id = OKC_API.G_MISS_NUM) THEN
582: l_cnhv_rec.application_id := NULL;
577: END IF;
578: IF (l_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR) THEN
579: l_cnhv_rec.cnh_type := NULL;
580: END IF;
581: IF (l_cnhv_rec.application_id = OKC_API.G_MISS_NUM) THEN
582: l_cnhv_rec.application_id := NULL;
583: END IF;
584: IF (l_cnhv_rec.seeded_flag = OKC_API.G_MISS_CHAR) THEN
585: l_cnhv_rec.seeded_flag := NULL;
580: END IF;
581: IF (l_cnhv_rec.application_id = OKC_API.G_MISS_NUM) THEN
582: l_cnhv_rec.application_id := NULL;
583: END IF;
584: IF (l_cnhv_rec.seeded_flag = OKC_API.G_MISS_CHAR) THEN
585: l_cnhv_rec.seeded_flag := NULL;
586: END IF;
587: IF (l_cnhv_rec.last_rundate = OKC_API.G_MISS_DATE) THEN
588: l_cnhv_rec.last_rundate := NULL;
583: END IF;
584: IF (l_cnhv_rec.seeded_flag = OKC_API.G_MISS_CHAR) THEN
585: l_cnhv_rec.seeded_flag := NULL;
586: END IF;
587: IF (l_cnhv_rec.last_rundate = OKC_API.G_MISS_DATE) THEN
588: l_cnhv_rec.last_rundate := NULL;
589: END IF;
590: IF (l_cnhv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
591: l_cnhv_rec.attribute_category := NULL;
586: END IF;
587: IF (l_cnhv_rec.last_rundate = OKC_API.G_MISS_DATE) THEN
588: l_cnhv_rec.last_rundate := NULL;
589: END IF;
590: IF (l_cnhv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
591: l_cnhv_rec.attribute_category := NULL;
592: END IF;
593: IF (l_cnhv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
594: l_cnhv_rec.attribute1 := NULL;
589: END IF;
590: IF (l_cnhv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
591: l_cnhv_rec.attribute_category := NULL;
592: END IF;
593: IF (l_cnhv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
594: l_cnhv_rec.attribute1 := NULL;
595: END IF;
596: IF (l_cnhv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
597: l_cnhv_rec.attribute2 := NULL;
592: END IF;
593: IF (l_cnhv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
594: l_cnhv_rec.attribute1 := NULL;
595: END IF;
596: IF (l_cnhv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
597: l_cnhv_rec.attribute2 := NULL;
598: END IF;
599: IF (l_cnhv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
600: l_cnhv_rec.attribute3 := NULL;
595: END IF;
596: IF (l_cnhv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
597: l_cnhv_rec.attribute2 := NULL;
598: END IF;
599: IF (l_cnhv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
600: l_cnhv_rec.attribute3 := NULL;
601: END IF;
602: IF (l_cnhv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
603: l_cnhv_rec.attribute4 := NULL;
598: END IF;
599: IF (l_cnhv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
600: l_cnhv_rec.attribute3 := NULL;
601: END IF;
602: IF (l_cnhv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
603: l_cnhv_rec.attribute4 := NULL;
604: END IF;
605: IF (l_cnhv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
606: l_cnhv_rec.attribute5 := NULL;
601: END IF;
602: IF (l_cnhv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
603: l_cnhv_rec.attribute4 := NULL;
604: END IF;
605: IF (l_cnhv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
606: l_cnhv_rec.attribute5 := NULL;
607: END IF;
608: IF (l_cnhv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
609: l_cnhv_rec.attribute6 := NULL;
604: END IF;
605: IF (l_cnhv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
606: l_cnhv_rec.attribute5 := NULL;
607: END IF;
608: IF (l_cnhv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
609: l_cnhv_rec.attribute6 := NULL;
610: END IF;
611: IF (l_cnhv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
612: l_cnhv_rec.attribute7 := NULL;
607: END IF;
608: IF (l_cnhv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
609: l_cnhv_rec.attribute6 := NULL;
610: END IF;
611: IF (l_cnhv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
612: l_cnhv_rec.attribute7 := NULL;
613: END IF;
614: IF (l_cnhv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
615: l_cnhv_rec.attribute8 := NULL;
610: END IF;
611: IF (l_cnhv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
612: l_cnhv_rec.attribute7 := NULL;
613: END IF;
614: IF (l_cnhv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
615: l_cnhv_rec.attribute8 := NULL;
616: END IF;
617: IF (l_cnhv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
618: l_cnhv_rec.attribute9 := NULL;
613: END IF;
614: IF (l_cnhv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
615: l_cnhv_rec.attribute8 := NULL;
616: END IF;
617: IF (l_cnhv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
618: l_cnhv_rec.attribute9 := NULL;
619: END IF;
620: IF (l_cnhv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
621: l_cnhv_rec.attribute10 := NULL;
616: END IF;
617: IF (l_cnhv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
618: l_cnhv_rec.attribute9 := NULL;
619: END IF;
620: IF (l_cnhv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
621: l_cnhv_rec.attribute10 := NULL;
622: END IF;
623: IF (l_cnhv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
624: l_cnhv_rec.attribute11 := NULL;
619: END IF;
620: IF (l_cnhv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
621: l_cnhv_rec.attribute10 := NULL;
622: END IF;
623: IF (l_cnhv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
624: l_cnhv_rec.attribute11 := NULL;
625: END IF;
626: IF (l_cnhv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
627: l_cnhv_rec.attribute12 := NULL;
622: END IF;
623: IF (l_cnhv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
624: l_cnhv_rec.attribute11 := NULL;
625: END IF;
626: IF (l_cnhv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
627: l_cnhv_rec.attribute12 := NULL;
628: END IF;
629: IF (l_cnhv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
630: l_cnhv_rec.attribute13 := NULL;
625: END IF;
626: IF (l_cnhv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
627: l_cnhv_rec.attribute12 := NULL;
628: END IF;
629: IF (l_cnhv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
630: l_cnhv_rec.attribute13 := NULL;
631: END IF;
632: IF (l_cnhv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
633: l_cnhv_rec.attribute14 := NULL;
628: END IF;
629: IF (l_cnhv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
630: l_cnhv_rec.attribute13 := NULL;
631: END IF;
632: IF (l_cnhv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
633: l_cnhv_rec.attribute14 := NULL;
634: END IF;
635: IF (l_cnhv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
636: l_cnhv_rec.attribute15 := NULL;
631: END IF;
632: IF (l_cnhv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
633: l_cnhv_rec.attribute14 := NULL;
634: END IF;
635: IF (l_cnhv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
636: l_cnhv_rec.attribute15 := NULL;
637: END IF;
638: IF (l_cnhv_rec.created_by = OKC_API.G_MISS_NUM) THEN
639: l_cnhv_rec.created_by := NULL;
634: END IF;
635: IF (l_cnhv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
636: l_cnhv_rec.attribute15 := NULL;
637: END IF;
638: IF (l_cnhv_rec.created_by = OKC_API.G_MISS_NUM) THEN
639: l_cnhv_rec.created_by := NULL;
640: END IF;
641: IF (l_cnhv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
642: l_cnhv_rec.creation_date := NULL;
637: END IF;
638: IF (l_cnhv_rec.created_by = OKC_API.G_MISS_NUM) THEN
639: l_cnhv_rec.created_by := NULL;
640: END IF;
641: IF (l_cnhv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
642: l_cnhv_rec.creation_date := NULL;
643: END IF;
644: IF (l_cnhv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
645: l_cnhv_rec.last_updated_by := NULL;
640: END IF;
641: IF (l_cnhv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
642: l_cnhv_rec.creation_date := NULL;
643: END IF;
644: IF (l_cnhv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
645: l_cnhv_rec.last_updated_by := NULL;
646: END IF;
647: IF (l_cnhv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
648: l_cnhv_rec.last_update_date := NULL;
643: END IF;
644: IF (l_cnhv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
645: l_cnhv_rec.last_updated_by := NULL;
646: END IF;
647: IF (l_cnhv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
648: l_cnhv_rec.last_update_date := NULL;
649: END IF;
650: IF (l_cnhv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
651: l_cnhv_rec.last_update_login := NULL;
646: END IF;
647: IF (l_cnhv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
648: l_cnhv_rec.last_update_date := NULL;
649: END IF;
650: IF (l_cnhv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
651: l_cnhv_rec.last_update_login := NULL;
652: END IF;
653: RETURN(l_cnhv_rec);
654: END null_out_defaults;
662: -----------------------------------------------------
663: FUNCTION Validate_Attributes (
664: p_cnhv_rec IN cnhv_rec_type
665: ) RETURN VARCHAR2 IS
666: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
667: BEGIN
668: IF p_cnhv_rec.id = OKC_API.G_MISS_NUM OR
669: p_cnhv_rec.id IS NULL
670: THEN
664: p_cnhv_rec IN cnhv_rec_type
665: ) RETURN VARCHAR2 IS
666: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
667: BEGIN
668: IF p_cnhv_rec.id = OKC_API.G_MISS_NUM OR
669: p_cnhv_rec.id IS NULL
670: THEN
671: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
672: l_return_status := OKC_API.G_RET_STS_ERROR;
667: BEGIN
668: IF p_cnhv_rec.id = OKC_API.G_MISS_NUM OR
669: p_cnhv_rec.id IS NULL
670: THEN
671: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
672: l_return_status := OKC_API.G_RET_STS_ERROR;
673: ELSIF p_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM OR
674: p_cnhv_rec.object_version_number IS NULL
675: THEN
668: IF p_cnhv_rec.id = OKC_API.G_MISS_NUM OR
669: p_cnhv_rec.id IS NULL
670: THEN
671: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
672: l_return_status := OKC_API.G_RET_STS_ERROR;
673: ELSIF p_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM OR
674: p_cnhv_rec.object_version_number IS NULL
675: THEN
676: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
669: p_cnhv_rec.id IS NULL
670: THEN
671: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
672: l_return_status := OKC_API.G_RET_STS_ERROR;
673: ELSIF p_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM OR
674: p_cnhv_rec.object_version_number IS NULL
675: THEN
676: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
677: l_return_status := OKC_API.G_RET_STS_ERROR;
672: l_return_status := OKC_API.G_RET_STS_ERROR;
673: ELSIF p_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM OR
674: p_cnhv_rec.object_version_number IS NULL
675: THEN
676: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
677: l_return_status := OKC_API.G_RET_STS_ERROR;
678: ELSIF p_cnhv_rec.acn_id = OKC_API.G_MISS_NUM OR
679: p_cnhv_rec.acn_id IS NULL
680: THEN
673: ELSIF p_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM OR
674: p_cnhv_rec.object_version_number IS NULL
675: THEN
676: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
677: l_return_status := OKC_API.G_RET_STS_ERROR;
678: ELSIF p_cnhv_rec.acn_id = OKC_API.G_MISS_NUM OR
679: p_cnhv_rec.acn_id IS NULL
680: THEN
681: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'acn_id');
674: p_cnhv_rec.object_version_number IS NULL
675: THEN
676: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
677: l_return_status := OKC_API.G_RET_STS_ERROR;
678: ELSIF p_cnhv_rec.acn_id = OKC_API.G_MISS_NUM OR
679: p_cnhv_rec.acn_id IS NULL
680: THEN
681: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'acn_id');
682: l_return_status := OKC_API.G_RET_STS_ERROR;
677: l_return_status := OKC_API.G_RET_STS_ERROR;
678: ELSIF p_cnhv_rec.acn_id = OKC_API.G_MISS_NUM OR
679: p_cnhv_rec.acn_id IS NULL
680: THEN
681: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'acn_id');
682: l_return_status := OKC_API.G_RET_STS_ERROR;
683: ELSIF p_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR OR
684: p_cnhv_rec.one_time_yn IS NULL
685: THEN
678: ELSIF p_cnhv_rec.acn_id = OKC_API.G_MISS_NUM OR
679: p_cnhv_rec.acn_id IS NULL
680: THEN
681: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'acn_id');
682: l_return_status := OKC_API.G_RET_STS_ERROR;
683: ELSIF p_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR OR
684: p_cnhv_rec.one_time_yn IS NULL
685: THEN
686: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'one_time_yn');
679: p_cnhv_rec.acn_id IS NULL
680: THEN
681: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'acn_id');
682: l_return_status := OKC_API.G_RET_STS_ERROR;
683: ELSIF p_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR OR
684: p_cnhv_rec.one_time_yn IS NULL
685: THEN
686: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'one_time_yn');
687: l_return_status := OKC_API.G_RET_STS_ERROR;
682: l_return_status := OKC_API.G_RET_STS_ERROR;
683: ELSIF p_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR OR
684: p_cnhv_rec.one_time_yn IS NULL
685: THEN
686: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'one_time_yn');
687: l_return_status := OKC_API.G_RET_STS_ERROR;
688: ELSIF p_cnhv_rec.name = OKC_API.G_MISS_CHAR OR
689: p_cnhv_rec.name IS NULL
690: THEN
683: ELSIF p_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR OR
684: p_cnhv_rec.one_time_yn IS NULL
685: THEN
686: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'one_time_yn');
687: l_return_status := OKC_API.G_RET_STS_ERROR;
688: ELSIF p_cnhv_rec.name = OKC_API.G_MISS_CHAR OR
689: p_cnhv_rec.name IS NULL
690: THEN
691: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
684: p_cnhv_rec.one_time_yn IS NULL
685: THEN
686: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'one_time_yn');
687: l_return_status := OKC_API.G_RET_STS_ERROR;
688: ELSIF p_cnhv_rec.name = OKC_API.G_MISS_CHAR OR
689: p_cnhv_rec.name IS NULL
690: THEN
691: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
692: l_return_status := OKC_API.G_RET_STS_ERROR;
687: l_return_status := OKC_API.G_RET_STS_ERROR;
688: ELSIF p_cnhv_rec.name = OKC_API.G_MISS_CHAR OR
689: p_cnhv_rec.name IS NULL
690: THEN
691: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
692: l_return_status := OKC_API.G_RET_STS_ERROR;
693: ELSIF p_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR OR
694: p_cnhv_rec.condition_valid_yn IS NULL
695: THEN
688: ELSIF p_cnhv_rec.name = OKC_API.G_MISS_CHAR OR
689: p_cnhv_rec.name IS NULL
690: THEN
691: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
692: l_return_status := OKC_API.G_RET_STS_ERROR;
693: ELSIF p_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR OR
694: p_cnhv_rec.condition_valid_yn IS NULL
695: THEN
696: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'condition_valid_yn');
689: p_cnhv_rec.name IS NULL
690: THEN
691: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'name');
692: l_return_status := OKC_API.G_RET_STS_ERROR;
693: ELSIF p_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR OR
694: p_cnhv_rec.condition_valid_yn IS NULL
695: THEN
696: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'condition_valid_yn');
697: l_return_status := OKC_API.G_RET_STS_ERROR;
692: l_return_status := OKC_API.G_RET_STS_ERROR;
693: ELSIF p_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR OR
694: p_cnhv_rec.condition_valid_yn IS NULL
695: THEN
696: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'condition_valid_yn');
697: l_return_status := OKC_API.G_RET_STS_ERROR;
698: ELSIF p_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR OR
699: p_cnhv_rec.tracked_yn IS NULL
700: THEN
693: ELSIF p_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR OR
694: p_cnhv_rec.condition_valid_yn IS NULL
695: THEN
696: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'condition_valid_yn');
697: l_return_status := OKC_API.G_RET_STS_ERROR;
698: ELSIF p_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR OR
699: p_cnhv_rec.tracked_yn IS NULL
700: THEN
701: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tracked_yn');
694: p_cnhv_rec.condition_valid_yn IS NULL
695: THEN
696: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'condition_valid_yn');
697: l_return_status := OKC_API.G_RET_STS_ERROR;
698: ELSIF p_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR OR
699: p_cnhv_rec.tracked_yn IS NULL
700: THEN
701: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tracked_yn');
702: l_return_status := OKC_API.G_RET_STS_ERROR;
697: l_return_status := OKC_API.G_RET_STS_ERROR;
698: ELSIF p_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR OR
699: p_cnhv_rec.tracked_yn IS NULL
700: THEN
701: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tracked_yn');
702: l_return_status := OKC_API.G_RET_STS_ERROR;
703: ELSIF p_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR OR
704: p_cnhv_rec.template_yn IS NULL
705: THEN
698: ELSIF p_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR OR
699: p_cnhv_rec.tracked_yn IS NULL
700: THEN
701: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tracked_yn');
702: l_return_status := OKC_API.G_RET_STS_ERROR;
703: ELSIF p_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR OR
704: p_cnhv_rec.template_yn IS NULL
705: THEN
706: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'template_yn');
699: p_cnhv_rec.tracked_yn IS NULL
700: THEN
701: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'tracked_yn');
702: l_return_status := OKC_API.G_RET_STS_ERROR;
703: ELSIF p_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR OR
704: p_cnhv_rec.template_yn IS NULL
705: THEN
706: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'template_yn');
707: l_return_status := OKC_API.G_RET_STS_ERROR;
702: l_return_status := OKC_API.G_RET_STS_ERROR;
703: ELSIF p_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR OR
704: p_cnhv_rec.template_yn IS NULL
705: THEN
706: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'template_yn');
707: l_return_status := OKC_API.G_RET_STS_ERROR;
708: ELSIF p_cnhv_rec.date_active = OKC_API.G_MISS_DATE OR
709: p_cnhv_rec.date_active IS NULL
710: THEN
703: ELSIF p_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR OR
704: p_cnhv_rec.template_yn IS NULL
705: THEN
706: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'template_yn');
707: l_return_status := OKC_API.G_RET_STS_ERROR;
708: ELSIF p_cnhv_rec.date_active = OKC_API.G_MISS_DATE OR
709: p_cnhv_rec.date_active IS NULL
710: THEN
711: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'date_active');
704: p_cnhv_rec.template_yn IS NULL
705: THEN
706: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'template_yn');
707: l_return_status := OKC_API.G_RET_STS_ERROR;
708: ELSIF p_cnhv_rec.date_active = OKC_API.G_MISS_DATE OR
709: p_cnhv_rec.date_active IS NULL
710: THEN
711: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'date_active');
712: l_return_status := OKC_API.G_RET_STS_ERROR;
707: l_return_status := OKC_API.G_RET_STS_ERROR;
708: ELSIF p_cnhv_rec.date_active = OKC_API.G_MISS_DATE OR
709: p_cnhv_rec.date_active IS NULL
710: THEN
711: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'date_active');
712: l_return_status := OKC_API.G_RET_STS_ERROR;
713: ELSIF p_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR OR
714: p_cnhv_rec.cnh_type IS NULL
715: THEN
708: ELSIF p_cnhv_rec.date_active = OKC_API.G_MISS_DATE OR
709: p_cnhv_rec.date_active IS NULL
710: THEN
711: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'date_active');
712: l_return_status := OKC_API.G_RET_STS_ERROR;
713: ELSIF p_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR OR
714: p_cnhv_rec.cnh_type IS NULL
715: THEN
716: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnh_type');
709: p_cnhv_rec.date_active IS NULL
710: THEN
711: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'date_active');
712: l_return_status := OKC_API.G_RET_STS_ERROR;
713: ELSIF p_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR OR
714: p_cnhv_rec.cnh_type IS NULL
715: THEN
716: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnh_type');
717: l_return_status := OKC_API.G_RET_STS_ERROR;
712: l_return_status := OKC_API.G_RET_STS_ERROR;
713: ELSIF p_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR OR
714: p_cnhv_rec.cnh_type IS NULL
715: THEN
716: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnh_type');
717: l_return_status := OKC_API.G_RET_STS_ERROR;
718: END IF;
719: RETURN(l_return_status);
720: END Validate_Attributes;
713: ELSIF p_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR OR
714: p_cnhv_rec.cnh_type IS NULL
715: THEN
716: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cnh_type');
717: l_return_status := OKC_API.G_RET_STS_ERROR;
718: END IF;
719: RETURN(l_return_status);
720: END Validate_Attributes;
721:
727: -------------------------------------------------
728: FUNCTION Validate_Record (
729: p_cnhv_rec IN cnhv_rec_type
730: ) RETURN VARCHAR2 IS
731: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
732: ------------------------------------
733: -- FUNCTION validate_foreign_keys --
734: ------------------------------------
735: FUNCTION validate_foreign_keys (
792: SOURCE_COUNTER_GROUP_ID
793: FROM Okx_Counter_Groups_V
794: WHERE okx_counter_groups_v.counter_group_id = p_counter_group_id;
795: l_okx_counter_groups_v_pk okx_counter_groups_v_pk_csr%ROWTYPE;
796: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
797: l_row_notfound BOOLEAN := TRUE;
798: BEGIN
799: IF (p_cnhv_rec.ACN_ID IS NOT NULL)
800: THEN
802: FETCH okc_acnv_pk_csr INTO l_okc_acnv_pk;
803: l_row_notfound := okc_acnv_pk_csr%NOTFOUND;
804: CLOSE okc_acnv_pk_csr;
805: IF (l_row_notfound) THEN
806: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACN_ID');
807: RAISE item_not_found_error;
808: END IF;
809: END IF;
810: IF (p_cnhv_rec.COUNTER_GROUP_ID IS NOT NULL)
813: FETCH okx_counter_groups_v_pk_csr INTO l_okx_counter_groups_v_pk;
814: l_row_notfound := okx_counter_groups_v_pk_csr%NOTFOUND;
815: CLOSE okx_counter_groups_v_pk_csr;
816: IF (l_row_notfound) THEN
817: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'COUNTER_GROUP_ID');
818: RAISE item_not_found_error;
819: END IF;
820: END IF;
821: RETURN (l_return_status);
820: END IF;
821: RETURN (l_return_status);
822: EXCEPTION
823: WHEN item_not_found_error THEN
824: l_return_status := OKC_API.G_RET_STS_ERROR;
825: RETURN (l_return_status);
826: END validate_foreign_keys;
827: BEGIN
828: l_return_status := validate_foreign_keys (p_cnhv_rec);
849: PROCEDURE Validate_acn_id( x_return_status OUT NOCOPY VARCHAR2
850: ,p_cnhv_rec IN cnhv_rec_type)
851: IS
852:
853: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
854: l_temp NUMBER ;
855: acn_rec VARCHAR2(1);
856: CURSOR acn_cur IS
857: SELECT 'X' FROM okc_actions_v acn
857: SELECT 'X' FROM okc_actions_v acn
858: WHERE acn.id = p_cnhv_rec.acn_id;
859: BEGIN
860: -- initialize return status
861: x_return_status := OKC_API.G_RET_STS_SUCCESS;
862:
863: -- data is required
864: IF (p_cnhv_rec.acn_id IS NULL) OR
865: (p_cnhv_rec.acn_id = OKC_API.G_MISS_NUM)
861: x_return_status := OKC_API.G_RET_STS_SUCCESS;
862:
863: -- data is required
864: IF (p_cnhv_rec.acn_id IS NULL) OR
865: (p_cnhv_rec.acn_id = OKC_API.G_MISS_NUM)
866: THEN
867: OKC_API.SET_MESSAGE(p_app_name => g_app_name
868: ,p_msg_name => g_required_value
869: ,p_token1 => g_col_name_token
863: -- data is required
864: IF (p_cnhv_rec.acn_id IS NULL) OR
865: (p_cnhv_rec.acn_id = OKC_API.G_MISS_NUM)
866: THEN
867: OKC_API.SET_MESSAGE(p_app_name => g_app_name
868: ,p_msg_name => g_required_value
869: ,p_token1 => g_col_name_token
870: ,p_token1_value => 'acn_id');
871: -- notify caller of an error
868: ,p_msg_name => g_required_value
869: ,p_token1 => g_col_name_token
870: ,p_token1_value => 'acn_id');
871: -- notify caller of an error
872: x_return_status := OKC_API.G_RET_STS_ERROR;
873:
874: -- halt further validation of this column
875: RAISE G_EXCEPTION_HALT_VALIDATION;
876: ELSE
876: ELSE
877: OPEN acn_cur;
878: FETCH acn_cur INTO acn_rec;
879: IF acn_cur%NOTFOUND THEN
880: OKC_API.SET_MESSAGE(p_app_name => g_app_name
881: ,p_msg_name => g_required_value
882: ,p_token1 => g_col_name_token
883: ,p_token1_value => 'acn_id');
884: -- notify caller of an error
881: ,p_msg_name => g_required_value
882: ,p_token1 => g_col_name_token
883: ,p_token1_value => 'acn_id');
884: -- notify caller of an error
885: x_return_status := OKC_API.G_RET_STS_ERROR;
886:
887: -- halt further validation of this column
888: RAISE G_EXCEPTION_HALT_VALIDATION;
889: END IF;
897: NULL;
898:
899: WHEN OTHERS THEN
900: -- store SQL error message on message stack for caller
901: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
902: p_msg_name => g_unexpected_error,
903: p_token1 => g_sqlcode_token,
904: p_token1_value => sqlcode,
905: p_token2 => g_sqlerrm_token,
905: p_token2 => g_sqlerrm_token,
906: p_token2_value => sqlerrm);
907:
908: -- notify caller of an UNEXPECTED error
909: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
910: END Validate_Acn_id;
911:
912: ---------------------------------------------------------------------------
913: -- PROCEDURE Validate_counter_group_id
925: PROCEDURE Validate_counter_group_id( x_return_status OUT NOCOPY VARCHAR2
926: ,p_cnhv_rec IN cnhv_rec_type)
927: IS
928:
929: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
930: l_temp NUMBER ;
931: CURSOR cgp_cur IS
932: SELECT 'X' FROM okx_counter_groups_v cgp
933: WHERE cgp.counter_group_id = p_cnhv_rec.counter_group_id;
940: AND cnh.id = p_cnhv_rec.id;
941: acn_rec acn_cur%ROWTYPE;
942: BEGIN
943: -- initialize return status
944: x_return_status := OKC_API.G_RET_STS_SUCCESS;
945:
946: IF p_cnhv_rec.counter_group_id IS NOT NULL OR
947: p_cnhv_rec.counter_group_id <> OKC_API.G_MISS_NUM THEN
948: OPEN cgp_cur;
943: -- initialize return status
944: x_return_status := OKC_API.G_RET_STS_SUCCESS;
945:
946: IF p_cnhv_rec.counter_group_id IS NOT NULL OR
947: p_cnhv_rec.counter_group_id <> OKC_API.G_MISS_NUM THEN
948: OPEN cgp_cur;
949: FETCH cgp_cur INTO cgp_rec;
950: IF cgp_cur%NOTFOUND THEN
951: OKC_API.SET_MESSAGE(p_app_name => g_app_name
947: p_cnhv_rec.counter_group_id <> OKC_API.G_MISS_NUM THEN
948: OPEN cgp_cur;
949: FETCH cgp_cur INTO cgp_rec;
950: IF cgp_cur%NOTFOUND THEN
951: OKC_API.SET_MESSAGE(p_app_name => g_app_name
952: ,p_msg_name => g_invalid_value
953: ,p_token1 => g_col_name_token
954: ,p_token1_value => 'counter_group_id');
955: -- notify caller of an error
952: ,p_msg_name => g_invalid_value
953: ,p_token1 => g_col_name_token
954: ,p_token1_value => 'counter_group_id');
955: -- notify caller of an error
956: x_return_status := OKC_API.G_RET_STS_ERROR;
957:
958: -- halt further validation of this column
959: RAISE G_EXCEPTION_HALT_VALIDATION;
960: END IF;
962:
963: OPEN acn_cur;
964: FETCH acn_cur INTO acn_rec;
965: IF acn_rec.counter_action_yn = 'N' THEN
966: OKC_API.SET_MESSAGE(p_app_name => g_app_name
967: ,p_msg_name => g_invalid_value
968: ,p_token1 => g_col_name_token
969: ,p_token1_value => 'counter_group_id');
970: -- notify caller of an error
967: ,p_msg_name => g_invalid_value
968: ,p_token1 => g_col_name_token
969: ,p_token1_value => 'counter_group_id');
970: -- notify caller of an error
971: x_return_status := OKC_API.G_RET_STS_ERROR;
972:
973: -- halt further validation of this column
974: RAISE G_EXCEPTION_HALT_VALIDATION;
975: END IF;
974: RAISE G_EXCEPTION_HALT_VALIDATION;
975: END IF;
976: CLOSE acn_cur;
977: ELSIF p_cnhv_rec.counter_group_id IS NULL OR
978: p_cnhv_rec.counter_group_id = OKC_API.G_MISS_NUM THEN
979: OPEN acn_cur;
980: FETCH acn_cur INTO acn_rec;
981: IF acn_rec.counter_action_yn = 'Y' THEN
982: OKC_API.SET_MESSAGE(p_app_name => g_app_name
978: p_cnhv_rec.counter_group_id = OKC_API.G_MISS_NUM THEN
979: OPEN acn_cur;
980: FETCH acn_cur INTO acn_rec;
981: IF acn_rec.counter_action_yn = 'Y' THEN
982: OKC_API.SET_MESSAGE(p_app_name => g_app_name
983: ,p_msg_name => g_required_value
984: ,p_token1 => g_col_name_token
985: ,p_token1_value => 'counter_group_id');
986: -- notify caller of an error
983: ,p_msg_name => g_required_value
984: ,p_token1 => g_col_name_token
985: ,p_token1_value => 'counter_group_id');
986: -- notify caller of an error
987: x_return_status := OKC_API.G_RET_STS_ERROR;
988:
989: -- halt further validation of this column
990: RAISE G_EXCEPTION_HALT_VALIDATION;
991: END IF;
999: NULL;
1000:
1001: WHEN OTHERS THEN
1002: -- store SQL error message on message stack for caller
1003: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1004: p_msg_name => g_unexpected_error,
1005: p_token1 => g_sqlcode_token,
1006: p_token1_value => sqlcode,
1007: p_token2 => g_sqlerrm_token,
1007: p_token2 => g_sqlerrm_token,
1008: p_token2_value => sqlerrm);
1009:
1010: -- notify caller of an UNEXPECTED error
1011: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1012: END Validate_counter_group_id;
1013:
1014: ---------------------------------------------------------------------------
1015: -- PROCEDURE Validate_Task_Owner_id
1027: PROCEDURE Validate_Task_Owner_id( x_return_status OUT NOCOPY VARCHAR2
1028: ,p_cnhv_rec IN cnhv_rec_type)
1029: IS
1030:
1031: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1032:
1033: BEGIN
1034: -- initialize return status
1035: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1031: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1032:
1033: BEGIN
1034: -- initialize return status
1035: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1036:
1037: -- data is required when tracked_yn is 'Y'
1038: IF p_cnhv_rec.tracked_yn = 'Y'
1039: THEN
1037: -- data is required when tracked_yn is 'Y'
1038: IF p_cnhv_rec.tracked_yn = 'Y'
1039: THEN
1040: IF (p_cnhv_rec.task_owner_id IS NULL) OR
1041: (p_cnhv_rec.task_owner_id = OKC_API.G_MISS_NUM)
1042: THEN
1043: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1044: ,p_msg_name => g_required_value
1045: ,p_token1 => g_col_name_token
1039: THEN
1040: IF (p_cnhv_rec.task_owner_id IS NULL) OR
1041: (p_cnhv_rec.task_owner_id = OKC_API.G_MISS_NUM)
1042: THEN
1043: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1044: ,p_msg_name => g_required_value
1045: ,p_token1 => g_col_name_token
1046: ,p_token1_value => 'task_owner_id');
1047:
1045: ,p_token1 => g_col_name_token
1046: ,p_token1_value => 'task_owner_id');
1047:
1048: -- notify caller of an error
1049: x_return_status := OKC_API.G_RET_STS_ERROR;
1050:
1051: -- halt further validation of this column
1052: RAISE G_EXCEPTION_HALT_VALIDATION;
1053: END IF;
1062: NULL;
1063:
1064: WHEN OTHERS THEN
1065: -- store SQL error message on message stack for caller
1066: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1067: p_msg_name => g_unexpected_error,
1068: p_token1 => g_sqlcode_token,
1069: p_token1_value => sqlcode,
1070: p_token2 => g_sqlerrm_token,
1070: p_token2 => g_sqlerrm_token,
1071: p_token2_value => sqlerrm);
1072:
1073: -- notify caller of an UNEXPECTED error
1074: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1075: END Validate_Task_Owner_id;
1076:
1077: ---------------------------------------------------------------------------
1078: -- PROCEDURE Validate_Object_id
1090: PROCEDURE Validate_Object_id( x_return_status OUT NOCOPY VARCHAR2
1091: ,p_cnhv_rec IN cnhv_rec_type)
1092: IS
1093:
1094: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1095: l_temp NUMBER ;
1096:
1097: BEGIN
1098: -- initialize return status
1095: l_temp NUMBER ;
1096:
1097: BEGIN
1098: -- initialize return status
1099: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1100:
1101: NULL;
1102:
1103: EXCEPTION
1107: NULL;
1108:
1109: WHEN OTHERS THEN
1110: -- store SQL error message on message stack for caller
1111: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1112: p_msg_name => g_unexpected_error,
1113: p_token1 => g_sqlcode_token,
1114: p_token1_value => sqlcode,
1115: p_token2 => g_sqlerrm_token,
1115: p_token2 => g_sqlerrm_token,
1116: p_token2_value => sqlerrm);
1117:
1118: -- notify caller of an UNEXPECTED error
1119: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1120: END Validate_Object_id;
1121:
1122: ---------------------------------------------------------------------------
1123: -- PROCEDURE Validate_Sfwt_Flag
1134: PROCEDURE Validate_Sfwt_Flag(x_return_status OUT NOCOPY VARCHAR2
1135: ,p_cnhv_rec IN cnhv_rec_type)
1136: IS
1137:
1138: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1139:
1140: BEGIN
1141: -- initialize return status
1142: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1138: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1139:
1140: BEGIN
1141: -- initialize return status
1142: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1143:
1144: -- data is required
1145: IF (p_cnhv_rec.sfwt_flag IS NULL) OR
1146: (p_cnhv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1142: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1143:
1144: -- data is required
1145: IF (p_cnhv_rec.sfwt_flag IS NULL) OR
1146: (p_cnhv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1147: THEN
1148: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1149: ,p_msg_name => g_required_value
1150: ,p_token1 => g_col_name_token
1144: -- data is required
1145: IF (p_cnhv_rec.sfwt_flag IS NULL) OR
1146: (p_cnhv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
1147: THEN
1148: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1149: ,p_msg_name => g_required_value
1150: ,p_token1 => g_col_name_token
1151: ,p_token1_value => 'sfwt_flag');
1152:
1150: ,p_token1 => g_col_name_token
1151: ,p_token1_value => 'sfwt_flag');
1152:
1153: -- notify caller of an error
1154: x_return_status := OKC_API.G_RET_STS_ERROR;
1155:
1156: -- halt further validation of this column
1157: RAISE G_EXCEPTION_HALT_VALIDATION;
1158: END IF;
1158: END IF;
1159:
1160: -- check if sfwt_flag is in uppercase
1161: IF (p_cnhv_rec.sfwt_flag) <> UPPER(p_cnhv_rec.sfwt_flag) THEN
1162: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1163: ,p_msg_name => g_uppercase_required
1164: ,p_token1 => g_col_name_token
1165: ,p_token1_value => 'sfwt_flag');
1166: x_return_status := OKC_API.G_RET_STS_ERROR;
1162: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1163: ,p_msg_name => g_uppercase_required
1164: ,p_token1 => g_col_name_token
1165: ,p_token1_value => 'sfwt_flag');
1166: x_return_status := OKC_API.G_RET_STS_ERROR;
1167: RAISE G_EXCEPTION_HALT_VALIDATION;
1168: END IF;
1169:
1170: -- verify that data is within allowable values
1168: END IF;
1169:
1170: -- verify that data is within allowable values
1171: IF (UPPER(p_cnhv_rec.sfwt_flag) NOT IN ('Y','N')) THEN
1172: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1173: p_msg_name => g_invalid_value,
1174: p_token1 => g_col_name_token,
1175: p_token1_value => 'sfwt_flag');
1176: -- notify caller of an error
1173: p_msg_name => g_invalid_value,
1174: p_token1 => g_col_name_token,
1175: p_token1_value => 'sfwt_flag');
1176: -- notify caller of an error
1177: x_return_status := OKC_API.G_RET_STS_ERROR;
1178: RAISE G_EXCEPTION_HALT_VALIDATION;
1179: END IF;
1180:
1181: EXCEPTION
1185: NULL;
1186:
1187: WHEN OTHERS THEN
1188: -- store SQL error message on message stack for caller
1189: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1190: p_msg_name => g_unexpected_error,
1191: p_token1 => g_sqlcode_token,
1192: p_token1_value => sqlcode,
1193: p_token2 => g_sqlerrm_token,
1193: p_token2 => g_sqlerrm_token,
1194: p_token2_value => sqlerrm);
1195:
1196: -- notify caller of an UNEXPECTED error
1197: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1198:
1199: END Validate_Sfwt_Flag;
1200:
1201: ---------------------------------------------------------------------------
1215: x_return_status OUT NOCOPY VARCHAR2,
1216: p_cnhv_rec IN cnhv_rec_type) IS
1217: BEGIN
1218: -- initialize return status
1219: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1220: -- Check if seeded_flag is Y or N
1221: IF UPPER(p_cnhv_rec.seeded_flag) NOT IN ('Y', 'N') THEN
1222: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1223: p_msg_name => g_invalid_value,
1218: -- initialize return status
1219: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1220: -- Check if seeded_flag is Y or N
1221: IF UPPER(p_cnhv_rec.seeded_flag) NOT IN ('Y', 'N') THEN
1222: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1223: p_msg_name => g_invalid_value,
1224: p_token1 => g_col_name_token,
1225: p_token1_value => 'seeded_flag');
1226: x_return_status := OKC_API.G_RET_STS_ERROR;
1222: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1223: p_msg_name => g_invalid_value,
1224: p_token1 => g_col_name_token,
1225: p_token1_value => 'seeded_flag');
1226: x_return_status := OKC_API.G_RET_STS_ERROR;
1227: raise G_EXCEPTION_HALT_VALIDATION;
1228: END IF;
1229:
1230: --Check if the data is in upper case
1228: END IF;
1229:
1230: --Check if the data is in upper case
1231: IF p_cnhv_rec.seeded_flag <> UPPER(p_cnhv_rec.seeded_flag) THEN
1232: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1233: p_msg_name => g_uppercase_required,
1234: p_token1 => g_col_name_token,
1235: p_token1_value => 'seeded_flag');
1236: x_return_status := OKC_API.G_RET_STS_ERROR;
1232: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1233: p_msg_name => g_uppercase_required,
1234: p_token1 => g_col_name_token,
1235: p_token1_value => 'seeded_flag');
1236: x_return_status := OKC_API.G_RET_STS_ERROR;
1237: raise G_EXCEPTION_HALT_VALIDATION;
1238: END IF;
1239: EXCEPTION
1240: when G_EXCEPTION_HALT_VALIDATION then
1243: null;
1244:
1245: when OTHERS then
1246: -- store SQL error message on message stack for caller
1247: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1248: p_msg_name => g_unexpected_error,
1249: p_token1 => g_sqlcode_token,
1250: p_token1_value => sqlcode,
1251: p_token2 => g_sqlerrm_token,
1250: p_token1_value => sqlcode,
1251: p_token2 => g_sqlerrm_token,
1252: p_token2_value => sqlerrm);
1253: -- notify caller of an UNEXPECTED error
1254: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1255: END validate_seeded_flag;
1256: ---------------------------------------------------------------------------
1257: -- PROCEDURE Validate_Application_id
1258: ---------------------------------------------------------------------------
1275: where application_id = p_application_id;
1276: l_dummy VARCHAR2(1) := '?';
1277: BEGIN
1278: -- initialize return status
1279: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1280:
1281: IF p_cnhv_rec.application_id IS NOT NULL THEN
1282: --Check if application id exists in the fnd_application or not
1283: OPEN application_id_cur(p_cnhv_rec.application_id);
1283: OPEN application_id_cur(p_cnhv_rec.application_id);
1284: FETCH application_id_cur INTO l_dummy;
1285: CLOSE application_id_cur ;
1286: IF l_dummy = '?' THEN
1287: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1288: p_msg_name => g_invalid_value,
1289: p_token1 => g_col_name_token,
1290: p_token1_value => 'application_id');
1291: x_return_status := OKC_API.G_RET_STS_ERROR;
1287: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1288: p_msg_name => g_invalid_value,
1289: p_token1 => g_col_name_token,
1290: p_token1_value => 'application_id');
1291: x_return_status := OKC_API.G_RET_STS_ERROR;
1292: raise G_EXCEPTION_HALT_VALIDATION;
1293: END IF;
1294: END IF;
1295: EXCEPTION
1299: null;
1300:
1301: when OTHERS then
1302: -- store SQL error message on message stack for caller
1303: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1304: p_msg_name => g_unexpected_error,
1305: p_token1 => g_sqlcode_token,
1306: p_token1_value => sqlcode,
1307: p_token2 => g_sqlerrm_token,
1306: p_token1_value => sqlcode,
1307: p_token2 => g_sqlerrm_token,
1308: p_token2_value => sqlerrm);
1309: -- notify caller of an UNEXPECTED error
1310: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1311: END validate_application_id;
1312:
1313: ---------------------------------------------------------------------------
1314: -- PROCEDURE Validate_Name
1325: PROCEDURE Validate_Name(x_return_status OUT NOCOPY VARCHAR2
1326: ,p_cnhv_rec IN cnhv_rec_type)
1327: IS
1328:
1329: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1330: BEGIN
1331: -- initialize return status
1332: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1333:
1328:
1329: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1330: BEGIN
1331: -- initialize return status
1332: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1333:
1334: -- data is required
1335: IF (p_cnhv_rec.name IS NULL) OR
1336: (p_cnhv_rec.name = OKC_API.G_MISS_CHAR)
1332: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1333:
1334: -- data is required
1335: IF (p_cnhv_rec.name IS NULL) OR
1336: (p_cnhv_rec.name = OKC_API.G_MISS_CHAR)
1337: THEN
1338: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1339: ,p_msg_name => g_required_value
1340: ,p_token1 => g_col_name_token
1334: -- data is required
1335: IF (p_cnhv_rec.name IS NULL) OR
1336: (p_cnhv_rec.name = OKC_API.G_MISS_CHAR)
1337: THEN
1338: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1339: ,p_msg_name => g_required_value
1340: ,p_token1 => g_col_name_token
1341: ,p_token1_value => 'name');
1342:
1340: ,p_token1 => g_col_name_token
1341: ,p_token1_value => 'name');
1342:
1343: -- notify caller of an error
1344: x_return_status := OKC_API.G_RET_STS_ERROR;
1345: -- halt further validation of this column
1346: RAISE G_EXCEPTION_HALT_VALIDATION;
1347: END IF;
1348:
1353: NULL;
1354:
1355: WHEN OTHERS THEN
1356: -- store SQL error message on message stack for caller
1357: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1358: p_msg_name => g_unexpected_error,
1359: p_token1 => g_sqlcode_token,
1360: p_token1_value => sqlcode,
1361: p_token2 => g_sqlerrm_token,
1361: p_token2 => g_sqlerrm_token,
1362: p_token2_value => sqlerrm);
1363:
1364: -- notify caller of an UNEXPECTED error
1365: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1366:
1367: END Validate_Name;
1368:
1369: ---------------------------------------------------------------------------
1381: PROCEDURE Validate_condition_valid_YN(x_return_status OUT NOCOPY VARCHAR2
1382: ,p_cnhv_rec IN cnhv_rec_type)
1383: IS
1384:
1385: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1386:
1387: BEGIN
1388: -- initialize return status
1389: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1385: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1386:
1387: BEGIN
1388: -- initialize return status
1389: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1390:
1391: -- data is required
1392: IF (p_cnhv_rec.condition_valid_yn IS NULL) OR
1393: (p_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR)
1389: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1390:
1391: -- data is required
1392: IF (p_cnhv_rec.condition_valid_yn IS NULL) OR
1393: (p_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR)
1394: THEN
1395: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1396: ,p_msg_name => g_required_value
1397: ,p_token1 => g_col_name_token
1391: -- data is required
1392: IF (p_cnhv_rec.condition_valid_yn IS NULL) OR
1393: (p_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR)
1394: THEN
1395: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1396: ,p_msg_name => g_required_value
1397: ,p_token1 => g_col_name_token
1398: ,p_token1_value => 'condition_valid_yn');
1399:
1397: ,p_token1 => g_col_name_token
1398: ,p_token1_value => 'condition_valid_yn');
1399:
1400: -- notify caller of an error
1401: x_return_status := OKC_API.G_RET_STS_ERROR;
1402:
1403: -- halt further validation of this column
1404: RAISE G_EXCEPTION_HALT_VALIDATION;
1405: END IF;
1405: END IF;
1406:
1407: -- check if condition_valid_yn is in uppercase
1408: IF (p_cnhv_rec.condition_valid_yn) <> UPPER(p_cnhv_rec.condition_valid_yn) THEN
1409: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1410: ,p_msg_name => g_uppercase_required
1411: ,p_token1 => g_col_name_token
1412: ,p_token1_value => 'condition_valid_yn');
1413: x_return_status := OKC_API.G_RET_STS_ERROR;
1409: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1410: ,p_msg_name => g_uppercase_required
1411: ,p_token1 => g_col_name_token
1412: ,p_token1_value => 'condition_valid_yn');
1413: x_return_status := OKC_API.G_RET_STS_ERROR;
1414: RAISE G_EXCEPTION_HALT_VALIDATION;
1415: END IF;
1416:
1417: -- verify that data is within allowable values
1415: END IF;
1416:
1417: -- verify that data is within allowable values
1418: IF (UPPER(p_cnhv_rec.condition_valid_yn) NOT IN ('Y','N')) THEN
1419: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1420: p_msg_name => g_invalid_value,
1421: p_token1 => g_col_name_token,
1422: p_token1_value => 'condition_valid_yn');
1423: -- notify caller of an error
1420: p_msg_name => g_invalid_value,
1421: p_token1 => g_col_name_token,
1422: p_token1_value => 'condition_valid_yn');
1423: -- notify caller of an error
1424: x_return_status := OKC_API.G_RET_STS_ERROR;
1425:
1426: -- halt further validation of this column
1427: RAISE G_EXCEPTION_HALT_VALIDATION;
1428: END IF;
1434: NULL;
1435:
1436: WHEN OTHERS THEN
1437: -- store SQL error message on message stack for caller
1438: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1439: p_msg_name => g_unexpected_error,
1440: p_token1 => g_sqlcode_token,
1441: p_token1_value => sqlcode,
1442: p_token2 => g_sqlerrm_token,
1442: p_token2 => g_sqlerrm_token,
1443: p_token2_value => sqlerrm);
1444:
1445: -- notify caller of an UNEXPECTED error
1446: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1447:
1448: END Validate_condition_valid_YN;
1449:
1450: ---------------------------------------------------------------------------
1462: PROCEDURE Validate_Tracked_YN(x_return_status OUT NOCOPY VARCHAR2
1463: ,p_cnhv_rec IN cnhv_rec_type)
1464: IS
1465:
1466: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1467:
1468: BEGIN
1469: -- initialize return status
1470: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1466: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1467:
1468: BEGIN
1469: -- initialize return status
1470: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1471:
1472: -- data is required
1473: IF (p_cnhv_rec.tracked_yn IS NULL) OR
1474: (p_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR)
1470: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1471:
1472: -- data is required
1473: IF (p_cnhv_rec.tracked_yn IS NULL) OR
1474: (p_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR)
1475: THEN
1476: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1477: ,p_msg_name => g_required_value
1478: ,p_token1 => g_col_name_token
1472: -- data is required
1473: IF (p_cnhv_rec.tracked_yn IS NULL) OR
1474: (p_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR)
1475: THEN
1476: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1477: ,p_msg_name => g_required_value
1478: ,p_token1 => g_col_name_token
1479: ,p_token1_value => 'tracked_yn');
1480:
1478: ,p_token1 => g_col_name_token
1479: ,p_token1_value => 'tracked_yn');
1480:
1481: -- notify caller of an error
1482: x_return_status := OKC_API.G_RET_STS_ERROR;
1483:
1484: -- halt further validation of this column
1485: RAISE G_EXCEPTION_HALT_VALIDATION;
1486: END IF;
1486: END IF;
1487:
1488: -- check if tracked_yn is in uppercase
1489: IF (p_cnhv_rec.tracked_yn) <> UPPER(p_cnhv_rec.tracked_yn) THEN
1490: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1491: ,p_msg_name => g_uppercase_required
1492: ,p_token1 => g_col_name_token
1493: ,p_token1_value => 'tracked_yn');
1494: x_return_status := OKC_API.G_RET_STS_ERROR;
1490: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1491: ,p_msg_name => g_uppercase_required
1492: ,p_token1 => g_col_name_token
1493: ,p_token1_value => 'tracked_yn');
1494: x_return_status := OKC_API.G_RET_STS_ERROR;
1495: RAISE G_EXCEPTION_HALT_VALIDATION;
1496: END IF;
1497:
1498: -- verify that data is within allowable values
1496: END IF;
1497:
1498: -- verify that data is within allowable values
1499: IF (UPPER(p_cnhv_rec.tracked_yn) NOT IN ('Y','N')) THEN
1500: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1501: p_msg_name => g_invalid_value,
1502: p_token1 => g_col_name_token,
1503: p_token1_value => 'tracked_yn');
1504: -- notify caller of an error
1501: p_msg_name => g_invalid_value,
1502: p_token1 => g_col_name_token,
1503: p_token1_value => 'tracked_yn');
1504: -- notify caller of an error
1505: x_return_status := OKC_API.G_RET_STS_ERROR;
1506:
1507: -- halt further validation of this column
1508: RAISE G_EXCEPTION_HALT_VALIDATION;
1509: END IF;
1515: NULL;
1516:
1517: WHEN OTHERS THEN
1518: -- store SQL error message on message stack for caller
1519: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1520: p_msg_name => g_unexpected_error,
1521: p_token1 => g_sqlcode_token,
1522: p_token1_value => sqlcode,
1523: p_token2 => g_sqlerrm_token,
1523: p_token2 => g_sqlerrm_token,
1524: p_token2_value => sqlerrm);
1525:
1526: -- notify caller of an UNEXPECTED error
1527: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1528:
1529: END Validate_tracked_YN;
1530:
1531: ---------------------------------------------------------------------------
1543: PROCEDURE Validate_Template_YN(x_return_status OUT NOCOPY VARCHAR2
1544: ,p_cnhv_rec IN cnhv_rec_type)
1545: IS
1546:
1547: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1548:
1549: BEGIN
1550: -- initialize return status
1551: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1547: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1548:
1549: BEGIN
1550: -- initialize return status
1551: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1552:
1553: -- data is required
1554: IF (p_cnhv_rec.template_yn IS NULL) OR
1555: (p_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR)
1551: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1552:
1553: -- data is required
1554: IF (p_cnhv_rec.template_yn IS NULL) OR
1555: (p_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR)
1556: THEN
1557: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1558: ,p_msg_name => g_required_value
1559: ,p_token1 => g_col_name_token
1553: -- data is required
1554: IF (p_cnhv_rec.template_yn IS NULL) OR
1555: (p_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR)
1556: THEN
1557: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1558: ,p_msg_name => g_required_value
1559: ,p_token1 => g_col_name_token
1560: ,p_token1_value => 'template_yn');
1561:
1559: ,p_token1 => g_col_name_token
1560: ,p_token1_value => 'template_yn');
1561:
1562: -- notify caller of an error
1563: x_return_status := OKC_API.G_RET_STS_ERROR;
1564:
1565: -- halt further validation of this column
1566: RAISE G_EXCEPTION_HALT_VALIDATION;
1567: END IF;
1567: END IF;
1568:
1569: -- check if template_yn is in uppercase
1570: IF (p_cnhv_rec.template_yn) <> UPPER(p_cnhv_rec.template_yn) THEN
1571: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1572: ,p_msg_name => g_uppercase_required
1573: ,p_token1 => g_col_name_token
1574: ,p_token1_value => 'template_yn');
1575: x_return_status := OKC_API.G_RET_STS_ERROR;
1571: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1572: ,p_msg_name => g_uppercase_required
1573: ,p_token1 => g_col_name_token
1574: ,p_token1_value => 'template_yn');
1575: x_return_status := OKC_API.G_RET_STS_ERROR;
1576: RAISE G_EXCEPTION_HALT_VALIDATION;
1577: END IF;
1578:
1579: -- verify that data is within allowable values
1577: END IF;
1578:
1579: -- verify that data is within allowable values
1580: IF (UPPER(p_cnhv_rec.template_yn) NOT IN ('Y','N')) THEN
1581: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1582: p_msg_name => g_invalid_value,
1583: p_token1 => g_col_name_token,
1584: p_token1_value => 'template_yn');
1585: -- notify caller of an error
1582: p_msg_name => g_invalid_value,
1583: p_token1 => g_col_name_token,
1584: p_token1_value => 'template_yn');
1585: -- notify caller of an error
1586: x_return_status := OKC_API.G_RET_STS_ERROR;
1587:
1588: -- halt further validation of this column
1589: RAISE G_EXCEPTION_HALT_VALIDATION;
1590: END IF;
1596: NULL;
1597:
1598: WHEN OTHERS THEN
1599: -- store SQL error message on message stack for caller
1600: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1601: p_msg_name => g_unexpected_error,
1602: p_token1 => g_sqlcode_token,
1603: p_token1_value => sqlcode,
1604: p_token2 => g_sqlerrm_token,
1604: p_token2 => g_sqlerrm_token,
1605: p_token2_value => sqlerrm);
1606:
1607: -- notify caller of an UNEXPECTED error
1608: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1609:
1610: END Validate_Template_YN;
1611:
1612: ---------------------------------------------------------------------------
1624: PROCEDURE Validate_One_Time_YN(x_return_status OUT NOCOPY VARCHAR2
1625: ,p_cnhv_rec IN cnhv_rec_type)
1626: IS
1627:
1628: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1629:
1630: BEGIN
1631: -- initialize return status
1632: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1628: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1629:
1630: BEGIN
1631: -- initialize return status
1632: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1633:
1634: -- data is required when cnh_type is 'ABC'
1635: IF (p_cnhv_rec.one_time_yn IS NULL) OR
1636: (p_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR) THEN
1632: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1633:
1634: -- data is required when cnh_type is 'ABC'
1635: IF (p_cnhv_rec.one_time_yn IS NULL) OR
1636: (p_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR) THEN
1637: IF (p_cnhv_rec.cnh_type = 'ABC') THEN
1638: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1639: ,p_msg_name => g_required_value
1640: ,p_token1 => g_col_name_token
1634: -- data is required when cnh_type is 'ABC'
1635: IF (p_cnhv_rec.one_time_yn IS NULL) OR
1636: (p_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR) THEN
1637: IF (p_cnhv_rec.cnh_type = 'ABC') THEN
1638: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1639: ,p_msg_name => g_required_value
1640: ,p_token1 => g_col_name_token
1641: ,p_token1_value => 'one_time_yn');
1642:
1640: ,p_token1 => g_col_name_token
1641: ,p_token1_value => 'one_time_yn');
1642:
1643: -- notify caller of an error
1644: x_return_status := OKC_API.G_RET_STS_ERROR;
1645:
1646: -- halt further validation of this column
1647: RAISE G_EXCEPTION_HALT_VALIDATION;
1648: END IF;
1648: END IF;
1649: END IF;
1650:
1651: IF (p_cnhv_rec.one_time_yn IS NOT NULL) OR
1652: (p_cnhv_rec.one_time_yn <> OKC_API.G_MISS_CHAR)
1653: THEN
1654: -- check if one_time_yn is in uppercase
1655: IF (p_cnhv_rec.one_time_yn) <> UPPER(p_cnhv_rec.one_time_yn)
1656: THEN
1653: THEN
1654: -- check if one_time_yn is in uppercase
1655: IF (p_cnhv_rec.one_time_yn) <> UPPER(p_cnhv_rec.one_time_yn)
1656: THEN
1657: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1658: ,p_msg_name => g_uppercase_required
1659: ,p_token1 => g_col_name_token
1660: ,p_token1_value => 'one_time_yn');
1661: x_return_status := OKC_API.G_RET_STS_ERROR;
1657: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1658: ,p_msg_name => g_uppercase_required
1659: ,p_token1 => g_col_name_token
1660: ,p_token1_value => 'one_time_yn');
1661: x_return_status := OKC_API.G_RET_STS_ERROR;
1662: RAISE G_EXCEPTION_HALT_VALIDATION;
1663:
1664: -- verify that data is within allowable values
1665: ELSIF (UPPER(p_cnhv_rec.one_time_yn) NOT IN ('Y','N')) THEN
1662: RAISE G_EXCEPTION_HALT_VALIDATION;
1663:
1664: -- verify that data is within allowable values
1665: ELSIF (UPPER(p_cnhv_rec.one_time_yn) NOT IN ('Y','N')) THEN
1666: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1667: p_msg_name => g_invalid_value,
1668: p_token1 => g_col_name_token,
1669: p_token1_value => 'one_time_yn');
1670: -- notify caller of an error
1667: p_msg_name => g_invalid_value,
1668: p_token1 => g_col_name_token,
1669: p_token1_value => 'one_time_yn');
1670: -- notify caller of an error
1671: x_return_status := OKC_API.G_RET_STS_ERROR;
1672:
1673: -- halt further validation of this column
1674: RAISE G_EXCEPTION_HALT_VALIDATION;
1675: END IF;
1682: NULL;
1683:
1684: WHEN OTHERS THEN
1685: -- store SQL error message on message stack for caller
1686: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1687: p_msg_name => g_unexpected_error,
1688: p_token1 => g_sqlcode_token,
1689: p_token1_value => sqlcode,
1690: p_token2 => g_sqlerrm_token,
1690: p_token2 => g_sqlerrm_token,
1691: p_token2_value => sqlerrm);
1692:
1693: -- notify caller of an UNEXPECTED error
1694: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1695:
1696: END Validate_One_Time_YN;
1697:
1698: ---------------------------------------------------------------------------
1710: PROCEDURE Validate_Cnh_Type(x_return_status OUT NOCOPY VARCHAR2
1711: ,p_cnhv_rec IN cnhv_rec_type)
1712: IS
1713:
1714: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1715: l_acn_type okc_actions_v.acn_type%TYPE;
1716: BEGIN
1717: -- initialize return status
1718: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1714: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1715: l_acn_type okc_actions_v.acn_type%TYPE;
1716: BEGIN
1717: -- initialize return status
1718: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1719:
1720: -- data is required
1721: IF (p_cnhv_rec.cnh_type IS NULL) OR
1722: (p_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR)
1718: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1719:
1720: -- data is required
1721: IF (p_cnhv_rec.cnh_type IS NULL) OR
1722: (p_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR)
1723: THEN
1724: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1725: ,p_msg_name => g_required_value
1726: ,p_token1 => g_col_name_token
1720: -- data is required
1721: IF (p_cnhv_rec.cnh_type IS NULL) OR
1722: (p_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR)
1723: THEN
1724: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1725: ,p_msg_name => g_required_value
1726: ,p_token1 => g_col_name_token
1727: ,p_token1_value => 'cnh_type');
1728:
1726: ,p_token1 => g_col_name_token
1727: ,p_token1_value => 'cnh_type');
1728:
1729: -- notify caller of an error
1730: x_return_status := OKC_API.G_RET_STS_ERROR;
1731:
1732: -- halt further validation of this column
1733: RAISE G_EXCEPTION_HALT_VALIDATION;
1734: END IF;
1735:
1736: -- check if cnh_type is in uppercase
1737: IF (p_cnhv_rec.cnh_type) <> UPPER(p_cnhv_rec.cnh_type)
1738: THEN
1739: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1740: ,p_msg_name => g_uppercase_required
1741: ,p_token1 => g_col_name_token
1742: ,p_token1_value => 'cnh_type');
1743: x_return_status := OKC_API.G_RET_STS_ERROR;
1739: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1740: ,p_msg_name => g_uppercase_required
1741: ,p_token1 => g_col_name_token
1742: ,p_token1_value => 'cnh_type');
1743: x_return_status := OKC_API.G_RET_STS_ERROR;
1744: RAISE G_EXCEPTION_HALT_VALIDATION;
1745: END IF;
1746:
1747: -- verify that data is within allowable values
1745: END IF;
1746:
1747: -- verify that data is within allowable values
1748: IF (UPPER(p_cnhv_rec.cnh_type) NOT IN ('ABC','DBC')) THEN
1749: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1750: p_msg_name => g_invalid_value,
1751: p_token1 => g_col_name_token,
1752: p_token1_value => 'cnh_type');
1753: -- notify caller of an error
1750: p_msg_name => g_invalid_value,
1751: p_token1 => g_col_name_token,
1752: p_token1_value => 'cnh_type');
1753: -- notify caller of an error
1754: x_return_status := OKC_API.G_RET_STS_ERROR;
1755:
1756: -- halt further validation of this column
1757: RAISE G_EXCEPTION_HALT_VALIDATION;
1758: END IF;
1762: select acn.acn_type into l_acn_type from okc_actions_v acn
1763: where acn.id = p_cnhv_rec.acn_id;
1764: IF l_acn_type <> 'ABA' THEN
1765: -- notify caller of an error
1766: x_return_status := OKC_API.G_RET_STS_ERROR;
1767: -- halt further validation of this column
1768: RAISE G_EXCEPTION_HALT_VALIDATION;
1769: END IF;
1770: ELSIF p_cnhv_rec.cnh_type = 'DBC' THEN
1771: select acn.acn_type into l_acn_type from okc_actions_v acn
1772: where acn.id = p_cnhv_rec.acn_id;
1773: IF l_acn_type <> 'DBA' THEN
1774: -- notify caller of an error
1775: x_return_status := OKC_API.G_RET_STS_ERROR;
1776: -- halt further validation of this column
1777: RAISE G_EXCEPTION_HALT_VALIDATION;
1778: END IF;
1779: END IF;
1785: NULL;
1786:
1787: WHEN OTHERS THEN
1788: -- store SQL error message on message stack for caller
1789: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1790: p_msg_name => g_unexpected_error,
1791: p_token1 => g_sqlcode_token,
1792: p_token1_value => sqlcode,
1793: p_token2 => g_sqlerrm_token,
1793: p_token2 => g_sqlerrm_token,
1794: p_token2_value => sqlerrm);
1795:
1796: -- notify caller of an UNEXPECTED error
1797: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1798:
1799: END Validate_Cnh_Type;
1800:
1801: ---------------------------------------------------------------------------
1813: PROCEDURE Validate_Before_After(x_return_status OUT NOCOPY VARCHAR2
1814: ,p_cnhv_rec IN cnhv_rec_type)
1815: IS
1816:
1817: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1818:
1819: BEGIN
1820: -- initialize return status
1821: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1817: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1818:
1819: BEGIN
1820: -- initialize return status
1821: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1822:
1823: -- data is required when cnh_type is 'DBC'
1824: IF p_cnhv_rec.cnh_type = 'DBC'
1825: THEN
1823: -- data is required when cnh_type is 'DBC'
1824: IF p_cnhv_rec.cnh_type = 'DBC'
1825: THEN
1826: IF (p_cnhv_rec.before_after IS NULL) OR
1827: (p_cnhv_rec.before_after = OKC_API.G_MISS_CHAR)
1828: THEN
1829: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1830: ,p_msg_name => g_required_value
1831: ,p_token1 => g_col_name_token
1825: THEN
1826: IF (p_cnhv_rec.before_after IS NULL) OR
1827: (p_cnhv_rec.before_after = OKC_API.G_MISS_CHAR)
1828: THEN
1829: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1830: ,p_msg_name => g_required_value
1831: ,p_token1 => g_col_name_token
1832: ,p_token1_value => 'before_after');
1833:
1831: ,p_token1 => g_col_name_token
1832: ,p_token1_value => 'before_after');
1833:
1834: -- notify caller of an error
1835: x_return_status := OKC_API.G_RET_STS_ERROR;
1836:
1837: -- halt further validation of this column
1838: RAISE G_EXCEPTION_HALT_VALIDATION;
1839: END IF;
1840: ELSIF
1841: p_cnhv_rec.cnh_type = 'ABC'
1842: THEN
1843: IF (p_cnhv_rec.before_after IS NOT NULL) OR
1844: (p_cnhv_rec.before_after <> OKC_API.G_MISS_CHAR)
1845: THEN
1846: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1847: ,p_msg_name => g_required_value
1848: ,p_token1 => g_col_name_token
1842: THEN
1843: IF (p_cnhv_rec.before_after IS NOT NULL) OR
1844: (p_cnhv_rec.before_after <> OKC_API.G_MISS_CHAR)
1845: THEN
1846: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1847: ,p_msg_name => g_required_value
1848: ,p_token1 => g_col_name_token
1849: ,p_token1_value => 'before_after');
1850:
1848: ,p_token1 => g_col_name_token
1849: ,p_token1_value => 'before_after');
1850:
1851: -- notify caller of an error
1852: x_return_status := OKC_API.G_RET_STS_ERROR;
1853:
1854: -- halt further validation of this column
1855: RAISE G_EXCEPTION_HALT_VALIDATION;
1856: END IF;
1858:
1859: -- check if before_after is in uppercase
1860: IF (p_cnhv_rec.before_after) <> UPPER(p_cnhv_rec.before_after)
1861: THEN
1862: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1863: ,p_msg_name => g_uppercase_required
1864: ,p_token1 => g_col_name_token
1865: ,p_token1_value => 'before_after');
1866: x_return_status := OKC_API.G_RET_STS_ERROR;
1862: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1863: ,p_msg_name => g_uppercase_required
1864: ,p_token1 => g_col_name_token
1865: ,p_token1_value => 'before_after');
1866: x_return_status := OKC_API.G_RET_STS_ERROR;
1867: RAISE G_EXCEPTION_HALT_VALIDATION;
1868: END IF;
1869:
1870: -- verify that data is within allowable values
1868: END IF;
1869:
1870: -- verify that data is within allowable values
1871: IF (UPPER(p_cnhv_rec.before_after) NOT IN ('B','A')) THEN
1872: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1873: p_msg_name => g_invalid_value,
1874: p_token1 => g_col_name_token,
1875: p_token1_value => 'before_after');
1876: -- notify caller of an error
1873: p_msg_name => g_invalid_value,
1874: p_token1 => g_col_name_token,
1875: p_token1_value => 'before_after');
1876: -- notify caller of an error
1877: x_return_status := OKC_API.G_RET_STS_ERROR;
1878:
1879: -- halt further validation of this column
1880: RAISE G_EXCEPTION_HALT_VALIDATION;
1881: END IF;
1887: NULL;
1888:
1889: WHEN OTHERS THEN
1890: -- store SQL error message on message stack for caller
1891: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1892: p_msg_name => g_unexpected_error,
1893: p_token1 => g_sqlcode_token,
1894: p_token1_value => sqlcode,
1895: p_token2 => g_sqlerrm_token,
1895: p_token2 => g_sqlerrm_token,
1896: p_token2_value => sqlerrm);
1897:
1898: -- notify caller of an UNEXPECTED error
1899: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1900:
1901: END Validate_Before_After;
1902:
1903: ---------------------------------------------------------------------------
1915: PROCEDURE Validate_Cnh_Variance(x_return_status OUT NOCOPY VARCHAR2
1916: ,p_cnhv_rec IN cnhv_rec_type)
1917: IS
1918:
1919: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1920:
1921: BEGIN
1922: -- initialize return status
1923: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1919: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1920:
1921: BEGIN
1922: -- initialize return status
1923: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1924:
1925: -- data is required when cnh_type is 'DBC'
1926: IF p_cnhv_rec.cnh_type = 'DBC'
1927: THEN
1925: -- data is required when cnh_type is 'DBC'
1926: IF p_cnhv_rec.cnh_type = 'DBC'
1927: THEN
1928: IF (p_cnhv_rec.cnh_variance IS NULL) OR
1929: (p_cnhv_rec.cnh_variance = OKC_API.G_MISS_NUM)
1930: THEN
1931: -- pnayani 11-AUG-2004 Bug#3824277 changed the message for cnh_variance
1932: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1933: ,p_msg_name =>'OKC_NUM_DAYS_REQUIRED'
1928: IF (p_cnhv_rec.cnh_variance IS NULL) OR
1929: (p_cnhv_rec.cnh_variance = OKC_API.G_MISS_NUM)
1930: THEN
1931: -- pnayani 11-AUG-2004 Bug#3824277 changed the message for cnh_variance
1932: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1933: ,p_msg_name =>'OKC_NUM_DAYS_REQUIRED'
1934: );
1935:
1936: -- notify caller of an error
1933: ,p_msg_name =>'OKC_NUM_DAYS_REQUIRED'
1934: );
1935:
1936: -- notify caller of an error
1937: x_return_status := OKC_API.G_RET_STS_ERROR;
1938:
1939: -- halt further validation of this column
1940: RAISE G_EXCEPTION_HALT_VALIDATION;
1941: END IF;
1942: ELSIF
1943: p_cnhv_rec.cnh_type = 'ABC'
1944: THEN
1945: IF (p_cnhv_rec.cnh_variance IS NOT NULL) OR
1946: (p_cnhv_rec.cnh_variance <> OKC_API.G_MISS_NUM)
1947: THEN
1948: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1949: ,p_msg_name => g_required_value
1950: ,p_token1 => g_col_name_token
1944: THEN
1945: IF (p_cnhv_rec.cnh_variance IS NOT NULL) OR
1946: (p_cnhv_rec.cnh_variance <> OKC_API.G_MISS_NUM)
1947: THEN
1948: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1949: ,p_msg_name => g_required_value
1950: ,p_token1 => g_col_name_token
1951: ,p_token1_value => 'cnh_variance');
1952:
1950: ,p_token1 => g_col_name_token
1951: ,p_token1_value => 'cnh_variance');
1952:
1953: -- notify caller of an error
1954: x_return_status := OKC_API.G_RET_STS_ERROR;
1955:
1956: -- halt further validation of this column
1957: RAISE G_EXCEPTION_HALT_VALIDATION;
1958: END IF;
1965: NULL;
1966:
1967: WHEN OTHERS THEN
1968: -- store SQL error message on message stack for caller
1969: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1970: p_msg_name => g_unexpected_error,
1971: p_token1 => g_sqlcode_token,
1972: p_token1_value => sqlcode,
1973: p_token2 => g_sqlerrm_token,
1973: p_token2 => g_sqlerrm_token,
1974: p_token2_value => sqlerrm);
1975:
1976: -- notify caller of an UNEXPECTED error
1977: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1978:
1979: END Validate_Cnh_Variance;
1980:
1981: ---------------------------------------------------------------------------
1993: PROCEDURE Validate_date_active(x_return_status OUT NOCOPY VARCHAR2
1994: ,p_cnhv_rec IN cnhv_rec_type)
1995: IS
1996:
1997: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1998: CURSOR cnh_cur IS
1999: SELECT 'X'
2000: FROM okc_condition_headers_v cnh
2001: WHERE cnh.id = p_cnhv_rec.id;
2002: cnh_rec cnh_cur%ROWTYPE;
2003:
2004: BEGIN
2005: -- initialize return status
2006: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2007:
2008: -- data is required
2009: IF (p_cnhv_rec.date_active IS NULL) OR
2010: (p_cnhv_rec.date_active = OKC_API.G_MISS_DATE)
2006: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2007:
2008: -- data is required
2009: IF (p_cnhv_rec.date_active IS NULL) OR
2010: (p_cnhv_rec.date_active = OKC_API.G_MISS_DATE)
2011: THEN
2012: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2013: ,p_msg_name => g_required_value
2014: ,p_token1 => g_col_name_token
2008: -- data is required
2009: IF (p_cnhv_rec.date_active IS NULL) OR
2010: (p_cnhv_rec.date_active = OKC_API.G_MISS_DATE)
2011: THEN
2012: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2013: ,p_msg_name => g_required_value
2014: ,p_token1 => g_col_name_token
2015: ,p_token1_value => 'date_active');
2016:
2014: ,p_token1 => g_col_name_token
2015: ,p_token1_value => 'date_active');
2016:
2017: -- notify caller of an error
2018: x_return_status := OKC_API.G_RET_STS_ERROR;
2019: -- halt further validation of this column
2020: RAISE G_EXCEPTION_HALT_VALIDATION;
2021: ELSIF TRUNC(p_cnhv_rec.date_active) < TRUNC(SYSDATE)
2022: THEN OPEN cnh_cur;
2020: RAISE G_EXCEPTION_HALT_VALIDATION;
2021: ELSIF TRUNC(p_cnhv_rec.date_active) < TRUNC(SYSDATE)
2022: THEN OPEN cnh_cur;
2023: IF cnh_cur%NOTFOUND THEN
2024: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2025: ,p_msg_name => g_invalid_value
2026: ,p_token1 => g_col_name_token
2027: ,p_token1_value => 'date_active');
2028:
2026: ,p_token1 => g_col_name_token
2027: ,p_token1_value => 'date_active');
2028:
2029: -- notify caller of an error
2030: x_return_status := OKC_API.G_RET_STS_ERROR;
2031: -- halt further validation of this column
2032: RAISE G_EXCEPTION_HALT_VALIDATION;
2033: END IF;
2034: END IF;
2041: NULL;
2042:
2043: WHEN OTHERS THEN
2044: -- store SQL error message on message stack for caller
2045: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2046: p_msg_name => g_unexpected_error,
2047: p_token1 => g_sqlcode_token,
2048: p_token1_value => sqlcode,
2049: p_token2 => g_sqlerrm_token,
2049: p_token2 => g_sqlerrm_token,
2050: p_token2_value => sqlerrm);
2051:
2052: -- notify caller of an UNEXPECTED error
2053: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2054:
2055: END Validate_date_active;
2056:
2057: ---------------------------------------------------------------------------
2069: PROCEDURE Validate_date_inactive(x_return_status OUT NOCOPY VARCHAR2
2070: ,p_cnhv_rec IN cnhv_rec_type)
2071: IS
2072:
2073: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2074:
2075: BEGIN
2076: -- initialize return status
2077: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2073: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2074:
2075: BEGIN
2076: -- initialize return status
2077: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2078:
2079:
2080: -- check for data before processing
2081: IF p_cnhv_rec.date_inactive IS NOT NULL OR
2078:
2079:
2080: -- check for data before processing
2081: IF p_cnhv_rec.date_inactive IS NOT NULL OR
2082: p_cnhv_rec.date_inactive <> OKC_API.G_MISS_DATE THEN
2083: IF TRUNC(p_cnhv_rec.date_inactive) < TRUNC(p_cnhv_rec.date_active) THEN
2084:
2085: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2086: ,p_msg_name => g_invalid_value
2081: IF p_cnhv_rec.date_inactive IS NOT NULL OR
2082: p_cnhv_rec.date_inactive <> OKC_API.G_MISS_DATE THEN
2083: IF TRUNC(p_cnhv_rec.date_inactive) < TRUNC(p_cnhv_rec.date_active) THEN
2084:
2085: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2086: ,p_msg_name => g_invalid_value
2087: ,p_token1 => g_col_name_token
2088: ,p_token1_value => 'date_inactive');
2089:
2087: ,p_token1 => g_col_name_token
2088: ,p_token1_value => 'date_inactive');
2089:
2090: -- notify caller of an error
2091: x_return_status := OKC_API.G_RET_STS_ERROR;
2092: -- halt further validation of this column
2093: RAISE G_EXCEPTION_HALT_VALIDATION;
2094:
2095: END IF;
2103: NULL;
2104:
2105: WHEN OTHERS THEN
2106: -- store SQL error message on message stack for caller
2107: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2108: p_msg_name => g_unexpected_error,
2109: p_token1 => g_sqlcode_token,
2110: p_token1_value => sqlcode,
2111: p_token2 => g_sqlerrm_token,
2111: p_token2 => g_sqlerrm_token,
2112: p_token2_value => sqlerrm);
2113:
2114: -- notify caller of an UNEXPECTED error
2115: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2116:
2117: END Validate_date_inactive;
2118:
2119: ---------------------------------------------------------------------------
2131: PROCEDURE Validate_Unique_Cnh_Record(x_return_status OUT NOCOPY VARCHAR2
2132: ,p_cnhv_rec IN cnhv_rec_type) IS
2133:
2134:
2135: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2136: --l_unq_tbl OKC_UTIL.unq_tbl_type;
2137: l_dummy VARCHAR2(1);
2138: l_row_found Boolean := False;
2139: CURSOR c1 IS
2154:
2155: BEGIN
2156:
2157: -- initialize return status
2158: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2159:
2160: /*Bug 1636056:The following code commented out nocopy since it was not using bind
2161: variables and parsing was taking place.Replaced with explicit cursor
2162: as above
2167: l_unq_tbl(2).p_col_val := p_cnhv_rec.object_id;
2168: l_unq_tbl(3).p_col_name := 'jtot_object_code';
2169: l_unq_tbl(3).p_col_val := p_cnhv_rec.jtot_object_code;
2170: -- initialize return status
2171: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2172:
2173: -- call check_comp_unique utility
2174: OKC_UTIL.CHECK_COMP_UNIQUE(p_view_name => 'OKC_CONDITION_HEADERS_V'
2175: ,p_col_tbl => l_unq_tbl
2176: ,p_id => p_cnhv_rec.id
2177: ,x_return_status => l_return_status);
2178:
2179:
2180: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
2181: -- notify caller of an error
2182: x_return_status := OKC_API.G_RET_STS_ERROR;
2183: -- halt further validation of this column
2184: RAISE G_EXCEPTION_HALT_VALIDATION;
2178:
2179:
2180: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) then
2181: -- notify caller of an error
2182: x_return_status := OKC_API.G_RET_STS_ERROR;
2183: -- halt further validation of this column
2184: RAISE G_EXCEPTION_HALT_VALIDATION;
2185: END IF;
2186: */
2197: l_row_found := c2%FOUND;
2198: CLOSE c2;
2199: END IF;
2200: IF l_row_found then
2201: --OKC_API.set_message(G_APP_NAME,G_UNQS,G_COL_NAME_TOKEN1,'name',G_COL_NAME_TOKEN2,'object_id',G_COL_NAME_TOKEN3,'jtot_object_code');
2202: OKC_API.set_message(G_APP_NAME,G_UNQS);
2203: x_return_status := OKC_API.G_RET_STS_ERROR;
2204: RAISE G_EXCEPTION_HALT_VALIDATION;
2205: END IF;
2198: CLOSE c2;
2199: END IF;
2200: IF l_row_found then
2201: --OKC_API.set_message(G_APP_NAME,G_UNQS,G_COL_NAME_TOKEN1,'name',G_COL_NAME_TOKEN2,'object_id',G_COL_NAME_TOKEN3,'jtot_object_code');
2202: OKC_API.set_message(G_APP_NAME,G_UNQS);
2203: x_return_status := OKC_API.G_RET_STS_ERROR;
2204: RAISE G_EXCEPTION_HALT_VALIDATION;
2205: END IF;
2206:
2199: END IF;
2200: IF l_row_found then
2201: --OKC_API.set_message(G_APP_NAME,G_UNQS,G_COL_NAME_TOKEN1,'name',G_COL_NAME_TOKEN2,'object_id',G_COL_NAME_TOKEN3,'jtot_object_code');
2202: OKC_API.set_message(G_APP_NAME,G_UNQS);
2203: x_return_status := OKC_API.G_RET_STS_ERROR;
2204: RAISE G_EXCEPTION_HALT_VALIDATION;
2205: END IF;
2206:
2207: EXCEPTION
2211: NULL;
2212:
2213: WHEN OTHERS THEN
2214: -- store SQL error message on message stack for caller
2215: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2216: p_msg_name => g_unexpected_error,
2217: p_token1 => g_sqlcode_token,
2218: p_token1_value => sqlcode,
2219: p_token2 => g_sqlerrm_token,
2219: p_token2 => g_sqlerrm_token,
2220: p_token2_value => sqlerrm);
2221:
2222: -- notify caller of an UNEXPECTED error
2223: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2224:
2225: END Validate_Unique_Cnh_Record;
2226:
2227: ---------------------------------------------------------------------------
2245: FROM Okc_Actions_V
2246: WHERE okc_actions_v.id = p_id;
2247: l_dummy_var VARCHAR2(1);
2248: l_dummy VARCHAR2(1);
2249: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2250: l_row_notfound BOOLEAN := TRUE;
2251:
2252: BEGIN
2253: IF (p_cnhv_rec.ACN_ID IS NOT NULL)
2256: FETCH okc_acnv_pk_csr INTO l_dummy_var;
2257: l_row_notfound := okc_acnv_pk_csr%NOTFOUND;
2258: CLOSE okc_acnv_pk_csr;
2259: IF (l_row_notfound) THEN
2260: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACN_ID');
2261: RAISE item_not_found_error;
2262: END IF;
2263: END IF;
2264: RETURN (l_return_status);
2263: END IF;
2264: RETURN (l_return_status);
2265: EXCEPTION
2266: WHEN item_not_found_error THEN
2267: l_return_status := OKC_API.G_RET_STS_ERROR;
2268: RETURN (l_return_status);
2269: END Validate_Foreign_Keys;
2270:
2271: ---------------------------------------------------------------------------
2276: -----------------------------------------------------
2277: FUNCTION Validate_Attributes (
2278: p_cnhv_rec IN cnhv_rec_type
2279: ) RETURN VARCHAR2 IS
2280: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2281: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2282: BEGIN
2283:
2284: -- call each column-level validation
2277: FUNCTION Validate_Attributes (
2278: p_cnhv_rec IN cnhv_rec_type
2279: ) RETURN VARCHAR2 IS
2280: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2281: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2282: BEGIN
2283:
2284: -- call each column-level validation
2285:
2285:
2286: -- Validate Sfwt_Flag
2287: Validate_Sfwt_Flag(x_return_status,p_cnhv_rec);
2288: -- store the highest degree of error
2289: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2290: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2291: -- need to leave
2292: l_return_status := x_return_status;
2293: RAISE G_EXCEPTION_HALT_VALIDATION;
2286: -- Validate Sfwt_Flag
2287: Validate_Sfwt_Flag(x_return_status,p_cnhv_rec);
2288: -- store the highest degree of error
2289: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2290: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2291: -- need to leave
2292: l_return_status := x_return_status;
2293: RAISE G_EXCEPTION_HALT_VALIDATION;
2294: ELSE
2299:
2300: -- Validate Seeded_Flag
2301: Validate_Seeded_Flag(x_return_status,p_cnhv_rec);
2302: -- store the highest degree of error
2303: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2304: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2305: -- need to leave
2306: l_return_status := x_return_status;
2307: RAISE G_EXCEPTION_HALT_VALIDATION;
2300: -- Validate Seeded_Flag
2301: Validate_Seeded_Flag(x_return_status,p_cnhv_rec);
2302: -- store the highest degree of error
2303: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2304: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2305: -- need to leave
2306: l_return_status := x_return_status;
2307: RAISE G_EXCEPTION_HALT_VALIDATION;
2308: ELSE
2313:
2314: -- Validate application_id
2315: Validate_application_id(x_return_status,p_cnhv_rec);
2316: -- store the highest degree of error
2317: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2318: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2319: -- need to leave
2320: l_return_status := x_return_status;
2321: RAISE G_EXCEPTION_HALT_VALIDATION;
2314: -- Validate application_id
2315: Validate_application_id(x_return_status,p_cnhv_rec);
2316: -- store the highest degree of error
2317: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2318: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2319: -- need to leave
2320: l_return_status := x_return_status;
2321: RAISE G_EXCEPTION_HALT_VALIDATION;
2322: ELSE
2328:
2329: -- Validate Acn_Id
2330: Validate_Acn_Id(x_return_status,p_cnhv_rec);
2331: -- store the highest degree of error
2332: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2333: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2334: -- need to leave
2335: l_return_status := x_return_status;
2336: RAISE G_EXCEPTION_HALT_VALIDATION;
2329: -- Validate Acn_Id
2330: Validate_Acn_Id(x_return_status,p_cnhv_rec);
2331: -- store the highest degree of error
2332: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2333: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2334: -- need to leave
2335: l_return_status := x_return_status;
2336: RAISE G_EXCEPTION_HALT_VALIDATION;
2337: ELSE
2342:
2343: -- Validate Counter_Group_Id
2344: Validate_Counter_Group_Id(x_return_status,p_cnhv_rec);
2345: -- store the highest degree of error
2346: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2347: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2348: -- need to leave
2349: l_return_status := x_return_status;
2350: RAISE G_EXCEPTION_HALT_VALIDATION;
2343: -- Validate Counter_Group_Id
2344: Validate_Counter_Group_Id(x_return_status,p_cnhv_rec);
2345: -- store the highest degree of error
2346: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2347: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2348: -- need to leave
2349: l_return_status := x_return_status;
2350: RAISE G_EXCEPTION_HALT_VALIDATION;
2351: ELSE
2356:
2357: -- Validate One_Time_YN
2358: Validate_One_Time_YN(x_return_status,p_cnhv_rec);
2359: -- store the highest degree of error
2360: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2361: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2362: -- need to leave
2363: l_return_status := x_return_status;
2364: RAISE G_EXCEPTION_HALT_VALIDATION;
2357: -- Validate One_Time_YN
2358: Validate_One_Time_YN(x_return_status,p_cnhv_rec);
2359: -- store the highest degree of error
2360: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2361: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2362: -- need to leave
2363: l_return_status := x_return_status;
2364: RAISE G_EXCEPTION_HALT_VALIDATION;
2365: ELSE
2370:
2371: -- Validate Name
2372: Validate_Name(x_return_status,p_cnhv_rec);
2373: -- store the highest degree of error
2374: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2375: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2376: -- need to leave
2377: l_return_status := x_return_status;
2378: RAISE G_EXCEPTION_HALT_VALIDATION;
2371: -- Validate Name
2372: Validate_Name(x_return_status,p_cnhv_rec);
2373: -- store the highest degree of error
2374: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2375: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2376: -- need to leave
2377: l_return_status := x_return_status;
2378: RAISE G_EXCEPTION_HALT_VALIDATION;
2379: ELSE
2384:
2385: -- Validate Condition_Valid_YN
2386: Validate_Condition_Valid_YN(x_return_status,p_cnhv_rec);
2387: -- store the highest degree of error
2388: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2389: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2390: -- need to leave
2391: l_return_status := x_return_status;
2392: RAISE G_EXCEPTION_HALT_VALIDATION;
2385: -- Validate Condition_Valid_YN
2386: Validate_Condition_Valid_YN(x_return_status,p_cnhv_rec);
2387: -- store the highest degree of error
2388: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2389: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2390: -- need to leave
2391: l_return_status := x_return_status;
2392: RAISE G_EXCEPTION_HALT_VALIDATION;
2393: ELSE
2398:
2399: -- Validate Before_After
2400: Validate_Before_After(x_return_status,p_cnhv_rec);
2401: -- store the highest degree of error
2402: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2403: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2404: -- need to leave
2405: l_return_status := x_return_status;
2406: RAISE G_EXCEPTION_HALT_VALIDATION;
2399: -- Validate Before_After
2400: Validate_Before_After(x_return_status,p_cnhv_rec);
2401: -- store the highest degree of error
2402: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2403: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2404: -- need to leave
2405: l_return_status := x_return_status;
2406: RAISE G_EXCEPTION_HALT_VALIDATION;
2407: ELSE
2412:
2413: -- Validate Template_YN
2414: Validate_Template_YN(x_return_status,p_cnhv_rec);
2415: -- store the highest degree of error
2416: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2417: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2418: -- need to leave
2419: l_return_status := x_return_status;
2420: RAISE G_EXCEPTION_HALT_VALIDATION;
2413: -- Validate Template_YN
2414: Validate_Template_YN(x_return_status,p_cnhv_rec);
2415: -- store the highest degree of error
2416: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2417: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2418: -- need to leave
2419: l_return_status := x_return_status;
2420: RAISE G_EXCEPTION_HALT_VALIDATION;
2421: ELSE
2426:
2427: -- Validate Tracked_YN
2428: Validate_Tracked_YN(x_return_status,p_cnhv_rec);
2429: -- store the highest degree of error
2430: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2431: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2432: -- need to leave
2433: l_return_status := x_return_status;
2434: RAISE G_EXCEPTION_HALT_VALIDATION;
2427: -- Validate Tracked_YN
2428: Validate_Tracked_YN(x_return_status,p_cnhv_rec);
2429: -- store the highest degree of error
2430: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2431: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2432: -- need to leave
2433: l_return_status := x_return_status;
2434: RAISE G_EXCEPTION_HALT_VALIDATION;
2435: ELSE
2440:
2441: -- Validate Cnh_Variance
2442: Validate_Cnh_Variance(x_return_status,p_cnhv_rec);
2443: -- store the highest degree of error
2444: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2445: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2446: -- need to leave
2447: l_return_status := x_return_status;
2448: RAISE G_EXCEPTION_HALT_VALIDATION;
2441: -- Validate Cnh_Variance
2442: Validate_Cnh_Variance(x_return_status,p_cnhv_rec);
2443: -- store the highest degree of error
2444: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2445: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2446: -- need to leave
2447: l_return_status := x_return_status;
2448: RAISE G_EXCEPTION_HALT_VALIDATION;
2449: ELSE
2454:
2455: -- Validate Date_Active
2456: Validate_Date_Active(x_return_status,p_cnhv_rec);
2457: -- store the highest degree of error
2458: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2459: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2460: -- need to leave
2461: l_return_status := x_return_status;
2462: RAISE G_EXCEPTION_HALT_VALIDATION;
2455: -- Validate Date_Active
2456: Validate_Date_Active(x_return_status,p_cnhv_rec);
2457: -- store the highest degree of error
2458: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2459: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2460: -- need to leave
2461: l_return_status := x_return_status;
2462: RAISE G_EXCEPTION_HALT_VALIDATION;
2463: ELSE
2468:
2469: -- Validate Date_Inactive
2470: Validate_Date_Inactive(x_return_status,p_cnhv_rec);
2471: -- store the highest degree of error
2472: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2473: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2474: -- need to leave
2475: l_return_status := x_return_status;
2476: RAISE G_EXCEPTION_HALT_VALIDATION;
2469: -- Validate Date_Inactive
2470: Validate_Date_Inactive(x_return_status,p_cnhv_rec);
2471: -- store the highest degree of error
2472: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2473: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2474: -- need to leave
2475: l_return_status := x_return_status;
2476: RAISE G_EXCEPTION_HALT_VALIDATION;
2477: ELSE
2482:
2483: -- Validate Task_Owner_id
2484: Validate_Task_Owner_id(x_return_status,p_cnhv_rec);
2485: -- store the highest degree of error
2486: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: -- need to leave
2489: l_return_status := x_return_status;
2490: RAISE G_EXCEPTION_HALT_VALIDATION;
2483: -- Validate Task_Owner_id
2484: Validate_Task_Owner_id(x_return_status,p_cnhv_rec);
2485: -- store the highest degree of error
2486: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2487: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: -- need to leave
2489: l_return_status := x_return_status;
2490: RAISE G_EXCEPTION_HALT_VALIDATION;
2491: ELSE
2496:
2497: -- Validate Object_Id
2498: Validate_Object_id(x_return_status,p_cnhv_rec);
2499: -- store the highest degree of error
2500: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2501: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2502: -- need to leave
2503: l_return_status := x_return_status;
2504: RAISE G_EXCEPTION_HALT_VALIDATION;
2497: -- Validate Object_Id
2498: Validate_Object_id(x_return_status,p_cnhv_rec);
2499: -- store the highest degree of error
2500: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2501: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2502: -- need to leave
2503: l_return_status := x_return_status;
2504: RAISE G_EXCEPTION_HALT_VALIDATION;
2505: ELSE
2510:
2511: -- Validate Cnh_Type
2512: Validate_Cnh_Type(x_return_status,p_cnhv_rec);
2513: -- store the highest degree of error
2514: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2515: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2516: -- need to leave
2517: l_return_status := x_return_status;
2518: RAISE G_EXCEPTION_HALT_VALIDATION;
2511: -- Validate Cnh_Type
2512: Validate_Cnh_Type(x_return_status,p_cnhv_rec);
2513: -- store the highest degree of error
2514: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
2515: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2516: -- need to leave
2517: l_return_status := x_return_status;
2518: RAISE G_EXCEPTION_HALT_VALIDATION;
2519: ELSE
2529: NULL;
2530: RETURN (l_return_status);
2531: WHEN OTHERS THEN
2532: -- store SQL error message on message stack for caller
2533: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2534: p_msg_name => g_unexpected_error,
2535: p_token1 => g_sqlcode_token,
2536: p_token1_value => sqlcode,
2537: p_token2 => g_sqlerrm_token,
2536: p_token1_value => sqlcode,
2537: p_token2 => g_sqlerrm_token,
2538: p_token2_value => sqlerrm);
2539: -- notify caller of an UNEXPECTED error
2540: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2541: RETURN(l_return_status);
2542: END Validate_Attributes;
2543:
2544: ---------------------------------------------------------------------------
2549: -------------------------------------------------
2550: FUNCTION Validate_Record (
2551: p_cnhv_rec IN cnhv_rec_type
2552: ) RETURN VARCHAR2 IS
2553: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2554: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2555: BEGIN
2556: l_return_status := validate_foreign_keys (p_cnhv_rec);
2557: IF p_cnhv_rec.date_inactive IS NOT NULL OR
2550: FUNCTION Validate_Record (
2551: p_cnhv_rec IN cnhv_rec_type
2552: ) RETURN VARCHAR2 IS
2553: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2554: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2555: BEGIN
2556: l_return_status := validate_foreign_keys (p_cnhv_rec);
2557: IF p_cnhv_rec.date_inactive IS NOT NULL OR
2558: p_cnhv_rec.date_inactive <> OKC_API.G_MISS_DATE THEN
2554: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2555: BEGIN
2556: l_return_status := validate_foreign_keys (p_cnhv_rec);
2557: IF p_cnhv_rec.date_inactive IS NOT NULL OR
2558: p_cnhv_rec.date_inactive <> OKC_API.G_MISS_DATE THEN
2559: IF TRUNC(p_cnhv_rec.date_inactive) < TRUNC(p_cnhv_rec.date_active) THEN
2560: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2561: ,p_msg_name => g_invalid_value
2562: ,p_token1 => g_col_name_token
2556: l_return_status := validate_foreign_keys (p_cnhv_rec);
2557: IF p_cnhv_rec.date_inactive IS NOT NULL OR
2558: p_cnhv_rec.date_inactive <> OKC_API.G_MISS_DATE THEN
2559: IF TRUNC(p_cnhv_rec.date_inactive) < TRUNC(p_cnhv_rec.date_active) THEN
2560: OKC_API.SET_MESSAGE(p_app_name => g_app_name
2561: ,p_msg_name => g_invalid_value
2562: ,p_token1 => g_col_name_token
2563: ,p_token1_value => 'date_inactive');
2564:
2562: ,p_token1 => g_col_name_token
2563: ,p_token1_value => 'date_inactive');
2564:
2565: -- notify caller of an error
2566: l_return_status := OKC_API.G_RET_STS_ERROR;
2567: -- halt further validation of this column
2568: RAISE G_EXCEPTION_HALT_VALIDATION;
2569: END IF;
2570: END IF;
2572: -- Validate_Unique_Cnh_Record
2573: Validate_Unique_Cnh_Record(x_return_status,p_cnhv_rec);
2574: l_return_status := x_return_status;
2575: -- store the highest degree of error
2576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2578: ELSIF
2579: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2580: RAISE OKC_API.G_EXCEPTION_ERROR;
2573: Validate_Unique_Cnh_Record(x_return_status,p_cnhv_rec);
2574: l_return_status := x_return_status;
2575: -- store the highest degree of error
2576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2578: ELSIF
2579: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2580: RAISE OKC_API.G_EXCEPTION_ERROR;
2581: END IF;
2575: -- store the highest degree of error
2576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2578: ELSIF
2579: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2580: RAISE OKC_API.G_EXCEPTION_ERROR;
2581: END IF;
2582: */
2583: RETURN (l_return_status);
2576: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2578: ELSIF
2579: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2580: RAISE OKC_API.G_EXCEPTION_ERROR;
2581: END IF;
2582: */
2583: RETURN (l_return_status);
2584:
2588: NULL;
2589: RETURN (l_return_status);
2590: WHEN OTHERS THEN
2591: -- store SQL error message on message stack for caller
2592: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
2593: p_msg_name => g_unexpected_error,
2594: p_token1 => g_sqlcode_token,
2595: p_token1_value => sqlcode,
2596: p_token2 => g_sqlerrm_token,
2595: p_token1_value => sqlcode,
2596: p_token2 => g_sqlerrm_token,
2597: p_token2_value => sqlerrm);
2598: -- notify caller of an UNEXPECTED error
2599: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2600: END Validate_Record;
2601:
2602: /****************End Hand Written Code **********************************/
2603:
2748: p_cnhv_rec IN cnhv_rec_type) IS
2749:
2750: l_api_version CONSTANT NUMBER := 1;
2751: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2752: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2753: l_cnhv_rec cnhv_rec_type := p_cnhv_rec;
2754: l_cnh_rec cnh_rec_type;
2755: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType;
2756: BEGIN
2753: l_cnhv_rec cnhv_rec_type := p_cnhv_rec;
2754: l_cnh_rec cnh_rec_type;
2755: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType;
2756: BEGIN
2757: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2758: G_PKG_NAME,
2759: p_init_msg_list,
2760: l_api_version,
2761: p_api_version,
2760: l_api_version,
2761: p_api_version,
2762: '_PVT',
2763: x_return_status);
2764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2767: RAISE OKC_API.G_EXCEPTION_ERROR;
2768: END IF;
2761: p_api_version,
2762: '_PVT',
2763: x_return_status);
2764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2767: RAISE OKC_API.G_EXCEPTION_ERROR;
2768: END IF;
2769: --- Validate all non-missing attributes (Item Level Validation)
2762: '_PVT',
2763: x_return_status);
2764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2767: RAISE OKC_API.G_EXCEPTION_ERROR;
2768: END IF;
2769: --- Validate all non-missing attributes (Item Level Validation)
2770: l_return_status := Validate_Attributes(l_cnhv_rec);
2763: x_return_status);
2764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2767: RAISE OKC_API.G_EXCEPTION_ERROR;
2768: END IF;
2769: --- Validate all non-missing attributes (Item Level Validation)
2770: l_return_status := Validate_Attributes(l_cnhv_rec);
2771: --- If any errors happen abort API
2768: END IF;
2769: --- Validate all non-missing attributes (Item Level Validation)
2770: l_return_status := Validate_Attributes(l_cnhv_rec);
2771: --- If any errors happen abort API
2772: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2773: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2774: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2775: RAISE OKC_API.G_EXCEPTION_ERROR;
2776: END IF;
2769: --- Validate all non-missing attributes (Item Level Validation)
2770: l_return_status := Validate_Attributes(l_cnhv_rec);
2771: --- If any errors happen abort API
2772: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2773: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2774: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2775: RAISE OKC_API.G_EXCEPTION_ERROR;
2776: END IF;
2777: l_return_status := Validate_Record(l_cnhv_rec);
2770: l_return_status := Validate_Attributes(l_cnhv_rec);
2771: --- If any errors happen abort API
2772: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2773: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2774: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2775: RAISE OKC_API.G_EXCEPTION_ERROR;
2776: END IF;
2777: l_return_status := Validate_Record(l_cnhv_rec);
2778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2771: --- If any errors happen abort API
2772: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2773: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2774: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2775: RAISE OKC_API.G_EXCEPTION_ERROR;
2776: END IF;
2777: l_return_status := Validate_Record(l_cnhv_rec);
2778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2774: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2775: RAISE OKC_API.G_EXCEPTION_ERROR;
2776: END IF;
2777: l_return_status := Validate_Record(l_cnhv_rec);
2778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_ERROR;
2782: END IF;
2775: RAISE OKC_API.G_EXCEPTION_ERROR;
2776: END IF;
2777: l_return_status := Validate_Record(l_cnhv_rec);
2778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_ERROR;
2782: END IF;
2783: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2776: END IF;
2777: l_return_status := Validate_Record(l_cnhv_rec);
2778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_ERROR;
2782: END IF;
2783: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2784: EXCEPTION
2777: l_return_status := Validate_Record(l_cnhv_rec);
2778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_ERROR;
2782: END IF;
2783: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2784: EXCEPTION
2785: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2779: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2780: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_ERROR;
2782: END IF;
2783: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2784: EXCEPTION
2785: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2786: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2787: (
2781: RAISE OKC_API.G_EXCEPTION_ERROR;
2782: END IF;
2783: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2784: EXCEPTION
2785: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2786: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2787: (
2788: l_api_name,
2789: G_PKG_NAME,
2782: END IF;
2783: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2784: EXCEPTION
2785: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2786: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2787: (
2788: l_api_name,
2789: G_PKG_NAME,
2790: 'OKC_API.G_RET_STS_ERROR',
2786: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2787: (
2788: l_api_name,
2789: G_PKG_NAME,
2790: 'OKC_API.G_RET_STS_ERROR',
2791: x_msg_count,
2792: x_msg_data,
2793: '_PVT'
2794: );
2791: x_msg_count,
2792: x_msg_data,
2793: '_PVT'
2794: );
2795: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2796: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2797: (
2798: l_api_name,
2799: G_PKG_NAME,
2792: x_msg_data,
2793: '_PVT'
2794: );
2795: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2796: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2797: (
2798: l_api_name,
2799: G_PKG_NAME,
2800: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2796: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2797: (
2798: l_api_name,
2799: G_PKG_NAME,
2800: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2801: x_msg_count,
2802: x_msg_data,
2803: '_PVT'
2804: );
2802: x_msg_data,
2803: '_PVT'
2804: );
2805: WHEN OTHERS THEN
2806: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2807: (
2808: l_api_name,
2809: G_PKG_NAME,
2810: 'OTHERS',
2825: p_cnhv_tbl IN cnhv_tbl_type) IS
2826:
2827: l_api_version CONSTANT NUMBER := 1;
2828: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2829: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2830: i NUMBER := 0;
2831: BEGIN
2832: OKC_API.init_msg_list(p_init_msg_list);
2833: -- Make sure PL/SQL table has records in it before passing
2828: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2829: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2830: i NUMBER := 0;
2831: BEGIN
2832: OKC_API.init_msg_list(p_init_msg_list);
2833: -- Make sure PL/SQL table has records in it before passing
2834: IF (p_cnhv_tbl.COUNT > 0) THEN
2835: i := p_cnhv_tbl.FIRST;
2836: LOOP
2835: i := p_cnhv_tbl.FIRST;
2836: LOOP
2837: validate_row (
2838: p_api_version => p_api_version,
2839: p_init_msg_list => OKC_API.G_FALSE,
2840: x_return_status => x_return_status,
2841: x_msg_count => x_msg_count,
2842: x_msg_data => x_msg_data,
2843: p_cnhv_rec => p_cnhv_tbl(i));
2845: i := p_cnhv_tbl.NEXT(i);
2846: END LOOP;
2847: END IF;
2848: EXCEPTION
2849: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2850: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2851: (
2852: l_api_name,
2853: G_PKG_NAME,
2846: END LOOP;
2847: END IF;
2848: EXCEPTION
2849: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2850: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2851: (
2852: l_api_name,
2853: G_PKG_NAME,
2854: 'OKC_API.G_RET_STS_ERROR',
2850: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2851: (
2852: l_api_name,
2853: G_PKG_NAME,
2854: 'OKC_API.G_RET_STS_ERROR',
2855: x_msg_count,
2856: x_msg_data,
2857: '_PVT'
2858: );
2855: x_msg_count,
2856: x_msg_data,
2857: '_PVT'
2858: );
2859: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2860: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2861: (
2862: l_api_name,
2863: G_PKG_NAME,
2856: x_msg_data,
2857: '_PVT'
2858: );
2859: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2860: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2861: (
2862: l_api_name,
2863: G_PKG_NAME,
2864: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2860: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2861: (
2862: l_api_name,
2863: G_PKG_NAME,
2864: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2865: x_msg_count,
2866: x_msg_data,
2867: '_PVT'
2868: );
2866: x_msg_data,
2867: '_PVT'
2868: );
2869: WHEN OTHERS THEN
2870: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2871: (
2872: l_api_name,
2873: G_PKG_NAME,
2874: 'OTHERS',
2893: x_cnh_rec OUT NOCOPY cnh_rec_type) IS
2894:
2895: l_api_version CONSTANT NUMBER := 1;
2896: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
2897: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2898: l_cnh_rec cnh_rec_type := p_cnh_rec;
2899: l_def_cnh_rec cnh_rec_type;
2900: ------------------------------------------------
2901: -- Set_Attributes for:OKC_CONDITION_HEADERS_B --
2903: FUNCTION Set_Attributes (
2904: p_cnh_rec IN cnh_rec_type,
2905: x_cnh_rec OUT NOCOPY cnh_rec_type
2906: ) RETURN VARCHAR2 IS
2907: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2908: BEGIN
2909: x_cnh_rec := p_cnh_rec;
2910: RETURN(l_return_status);
2911: END Set_Attributes;
2909: x_cnh_rec := p_cnh_rec;
2910: RETURN(l_return_status);
2911: END Set_Attributes;
2912: BEGIN
2913: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2914: p_init_msg_list,
2915: '_PVT',
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2913: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2914: p_init_msg_list,
2915: '_PVT',
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2920: RAISE OKC_API.G_EXCEPTION_ERROR;
2921: END IF;
2914: p_init_msg_list,
2915: '_PVT',
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2920: RAISE OKC_API.G_EXCEPTION_ERROR;
2921: END IF;
2922: --- Setting item attributes
2915: '_PVT',
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2920: RAISE OKC_API.G_EXCEPTION_ERROR;
2921: END IF;
2922: --- Setting item attributes
2923: l_return_status := Set_Attributes(
2916: x_return_status);
2917: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2918: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2919: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2920: RAISE OKC_API.G_EXCEPTION_ERROR;
2921: END IF;
2922: --- Setting item attributes
2923: l_return_status := Set_Attributes(
2924: p_cnh_rec, -- IN
2923: l_return_status := Set_Attributes(
2924: p_cnh_rec, -- IN
2925: l_cnh_rec); -- OUT
2926: --- If any errors happen abort API
2927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2924: p_cnh_rec, -- IN
2925: l_cnh_rec); -- OUT
2926: --- If any errors happen abort API
2927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932: INSERT INTO OKC_CONDITION_HEADERS_B(
2925: l_cnh_rec); -- OUT
2926: --- If any errors happen abort API
2927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932: INSERT INTO OKC_CONDITION_HEADERS_B(
2933: id,
2926: --- If any errors happen abort API
2927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2930: RAISE OKC_API.G_EXCEPTION_ERROR;
2931: END IF;
2932: INSERT INTO OKC_CONDITION_HEADERS_B(
2933: id,
2934: acn_id,
3014: l_cnh_rec.seeded_flag,
3015: l_cnh_rec.last_rundate);
3016: -- Set OUT values
3017: x_cnh_rec := l_cnh_rec;
3018: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3019: EXCEPTION
3020: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3021: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3022: (
3016: -- Set OUT values
3017: x_cnh_rec := l_cnh_rec;
3018: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3019: EXCEPTION
3020: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3021: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3022: (
3023: l_api_name,
3024: G_PKG_NAME,
3017: x_cnh_rec := l_cnh_rec;
3018: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3019: EXCEPTION
3020: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3021: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3022: (
3023: l_api_name,
3024: G_PKG_NAME,
3025: 'OKC_API.G_RET_STS_ERROR',
3021: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3022: (
3023: l_api_name,
3024: G_PKG_NAME,
3025: 'OKC_API.G_RET_STS_ERROR',
3026: x_msg_count,
3027: x_msg_data,
3028: '_PVT'
3029: );
3026: x_msg_count,
3027: x_msg_data,
3028: '_PVT'
3029: );
3030: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3031: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3032: (
3033: l_api_name,
3034: G_PKG_NAME,
3027: x_msg_data,
3028: '_PVT'
3029: );
3030: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3031: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3032: (
3033: l_api_name,
3034: G_PKG_NAME,
3035: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3031: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3032: (
3033: l_api_name,
3034: G_PKG_NAME,
3035: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3036: x_msg_count,
3037: x_msg_data,
3038: '_PVT'
3039: );
3037: x_msg_data,
3038: '_PVT'
3039: );
3040: WHEN OTHERS THEN
3041: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3042: (
3043: l_api_name,
3044: G_PKG_NAME,
3045: 'OTHERS',
3060: x_okc_condition_headers_tl_rec OUT NOCOPY OkcConditionHeadersTlRecType) IS
3061:
3062: l_api_version CONSTANT NUMBER := 1;
3063: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
3064: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3065: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType := p_okc_condition_headers_tl_rec;
3066: ldefokcconditionheaderstlrec OkcConditionHeadersTlRecType;
3067: CURSOR get_languages IS
3068: SELECT *
3074: FUNCTION Set_Attributes (
3075: p_okc_condition_headers_tl_rec IN OkcConditionHeadersTlRecType,
3076: x_okc_condition_headers_tl_rec OUT NOCOPY OkcConditionHeadersTlRecType
3077: ) RETURN VARCHAR2 IS
3078: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3079: BEGIN
3080: x_okc_condition_headers_tl_rec := p_okc_condition_headers_tl_rec;
3081: x_okc_condition_headers_tl_rec.LANGUAGE := l_lang;
3082: x_okc_condition_headers_tl_rec.SOURCE_LANG := l_lang;
3082: x_okc_condition_headers_tl_rec.SOURCE_LANG := l_lang;
3083: RETURN(l_return_status);
3084: END Set_Attributes;
3085: BEGIN
3086: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3087: p_init_msg_list,
3088: '_PVT',
3089: x_return_status);
3090: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3086: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3087: p_init_msg_list,
3088: '_PVT',
3089: x_return_status);
3090: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3091: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3092: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3093: RAISE OKC_API.G_EXCEPTION_ERROR;
3094: END IF;
3087: p_init_msg_list,
3088: '_PVT',
3089: x_return_status);
3090: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3091: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3092: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3093: RAISE OKC_API.G_EXCEPTION_ERROR;
3094: END IF;
3095: --- Setting item attributes
3088: '_PVT',
3089: x_return_status);
3090: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3091: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3092: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3093: RAISE OKC_API.G_EXCEPTION_ERROR;
3094: END IF;
3095: --- Setting item attributes
3096: l_return_status := Set_Attributes(
3089: x_return_status);
3090: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3091: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3092: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3093: RAISE OKC_API.G_EXCEPTION_ERROR;
3094: END IF;
3095: --- Setting item attributes
3096: l_return_status := Set_Attributes(
3097: p_okc_condition_headers_tl_rec, -- IN
3096: l_return_status := Set_Attributes(
3097: p_okc_condition_headers_tl_rec, -- IN
3098: l_okc_condition_headers_tl_rec); -- OUT
3099: --- If any errors happen abort API
3100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_ERROR;
3104: END IF;
3097: p_okc_condition_headers_tl_rec, -- IN
3098: l_okc_condition_headers_tl_rec); -- OUT
3099: --- If any errors happen abort API
3100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_ERROR;
3104: END IF;
3105: FOR l_lang_rec IN get_languages LOOP
3098: l_okc_condition_headers_tl_rec); -- OUT
3099: --- If any errors happen abort API
3100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_ERROR;
3104: END IF;
3105: FOR l_lang_rec IN get_languages LOOP
3106: l_okc_condition_headers_tl_rec.language := l_lang_rec.language_code;
3099: --- If any errors happen abort API
3100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_ERROR;
3104: END IF;
3105: FOR l_lang_rec IN get_languages LOOP
3106: l_okc_condition_headers_tl_rec.language := l_lang_rec.language_code;
3107: INSERT INTO OKC_CONDITION_HEADERS_TL(
3134: l_okc_condition_headers_tl_rec.last_update_login);
3135: END LOOP;
3136: -- Set OUT values
3137: x_okc_condition_headers_tl_rec := l_okc_condition_headers_tl_rec;
3138: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3139: EXCEPTION
3140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3142: (
3136: -- Set OUT values
3137: x_okc_condition_headers_tl_rec := l_okc_condition_headers_tl_rec;
3138: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3139: EXCEPTION
3140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3142: (
3143: l_api_name,
3144: G_PKG_NAME,
3137: x_okc_condition_headers_tl_rec := l_okc_condition_headers_tl_rec;
3138: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3139: EXCEPTION
3140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3142: (
3143: l_api_name,
3144: G_PKG_NAME,
3145: 'OKC_API.G_RET_STS_ERROR',
3141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3142: (
3143: l_api_name,
3144: G_PKG_NAME,
3145: 'OKC_API.G_RET_STS_ERROR',
3146: x_msg_count,
3147: x_msg_data,
3148: '_PVT'
3149: );
3146: x_msg_count,
3147: x_msg_data,
3148: '_PVT'
3149: );
3150: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3151: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3152: (
3153: l_api_name,
3154: G_PKG_NAME,
3147: x_msg_data,
3148: '_PVT'
3149: );
3150: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3151: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3152: (
3153: l_api_name,
3154: G_PKG_NAME,
3155: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3151: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3152: (
3153: l_api_name,
3154: G_PKG_NAME,
3155: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3156: x_msg_count,
3157: x_msg_data,
3158: '_PVT'
3159: );
3157: x_msg_data,
3158: '_PVT'
3159: );
3160: WHEN OTHERS THEN
3161: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3162: (
3163: l_api_name,
3164: G_PKG_NAME,
3165: 'OTHERS',
3182:
3183: l_id NUMBER ;
3184: l_api_version CONSTANT NUMBER := 1;
3185: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
3186: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3187: l_cnhv_rec cnhv_rec_type;
3188: l_def_cnhv_rec cnhv_rec_type;
3189: l_cnh_rec cnh_rec_type;
3190: lx_cnh_rec cnh_rec_type;
3211: FUNCTION Set_Attributes (
3212: p_cnhv_rec IN cnhv_rec_type,
3213: x_cnhv_rec OUT NOCOPY cnhv_rec_type
3214: ) RETURN VARCHAR2 IS
3215: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3216: BEGIN
3217: x_cnhv_rec := p_cnhv_rec;
3218: x_cnhv_rec.OBJECT_VERSION_NUMBER := 1;
3219: x_cnhv_rec.SFWT_FLAG := 'N';
3219: x_cnhv_rec.SFWT_FLAG := 'N';
3220: RETURN(l_return_status);
3221: END Set_Attributes;
3222: BEGIN
3223: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3224: G_PKG_NAME,
3225: p_init_msg_list,
3226: l_api_version,
3227: p_api_version,
3226: l_api_version,
3227: p_api_version,
3228: '_PVT',
3229: x_return_status);
3230: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3231: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3232: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3233: RAISE OKC_API.G_EXCEPTION_ERROR;
3234: END IF;
3227: p_api_version,
3228: '_PVT',
3229: x_return_status);
3230: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3231: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3232: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3233: RAISE OKC_API.G_EXCEPTION_ERROR;
3234: END IF;
3235: l_cnhv_rec := null_out_defaults(p_cnhv_rec);
3228: '_PVT',
3229: x_return_status);
3230: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3231: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3232: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3233: RAISE OKC_API.G_EXCEPTION_ERROR;
3234: END IF;
3235: l_cnhv_rec := null_out_defaults(p_cnhv_rec);
3236: -- Set primary key value
3229: x_return_status);
3230: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3231: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3232: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3233: RAISE OKC_API.G_EXCEPTION_ERROR;
3234: END IF;
3235: l_cnhv_rec := null_out_defaults(p_cnhv_rec);
3236: -- Set primary key value
3237: -- If condition header is created by seed then use sequence generated id
3249: l_return_status := Set_Attributes(
3250: l_cnhv_rec, -- IN
3251: l_def_cnhv_rec); -- OUT
3252: --- If any errors happen abort API
3253: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3256: RAISE OKC_API.G_EXCEPTION_ERROR;
3257: END IF;
3250: l_cnhv_rec, -- IN
3251: l_def_cnhv_rec); -- OUT
3252: --- If any errors happen abort API
3253: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3256: RAISE OKC_API.G_EXCEPTION_ERROR;
3257: END IF;
3258: l_def_cnhv_rec := fill_who_columns(l_def_cnhv_rec);
3251: l_def_cnhv_rec); -- OUT
3252: --- If any errors happen abort API
3253: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3256: RAISE OKC_API.G_EXCEPTION_ERROR;
3257: END IF;
3258: l_def_cnhv_rec := fill_who_columns(l_def_cnhv_rec);
3259: --- Validate all non-missing attributes (Item Level Validation)
3252: --- If any errors happen abort API
3253: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3254: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3255: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3256: RAISE OKC_API.G_EXCEPTION_ERROR;
3257: END IF;
3258: l_def_cnhv_rec := fill_who_columns(l_def_cnhv_rec);
3259: --- Validate all non-missing attributes (Item Level Validation)
3260: l_return_status := Validate_Attributes(l_def_cnhv_rec);
3258: l_def_cnhv_rec := fill_who_columns(l_def_cnhv_rec);
3259: --- Validate all non-missing attributes (Item Level Validation)
3260: l_return_status := Validate_Attributes(l_def_cnhv_rec);
3261: --- If any errors happen abort API
3262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3264: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3265: RAISE OKC_API.G_EXCEPTION_ERROR;
3266: END IF;
3259: --- Validate all non-missing attributes (Item Level Validation)
3260: l_return_status := Validate_Attributes(l_def_cnhv_rec);
3261: --- If any errors happen abort API
3262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3264: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3265: RAISE OKC_API.G_EXCEPTION_ERROR;
3266: END IF;
3267: l_return_status := Validate_Record(l_def_cnhv_rec);
3260: l_return_status := Validate_Attributes(l_def_cnhv_rec);
3261: --- If any errors happen abort API
3262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3264: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3265: RAISE OKC_API.G_EXCEPTION_ERROR;
3266: END IF;
3267: l_return_status := Validate_Record(l_def_cnhv_rec);
3268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3261: --- If any errors happen abort API
3262: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3263: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3264: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3265: RAISE OKC_API.G_EXCEPTION_ERROR;
3266: END IF;
3267: l_return_status := Validate_Record(l_def_cnhv_rec);
3268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3264: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3265: RAISE OKC_API.G_EXCEPTION_ERROR;
3266: END IF;
3267: l_return_status := Validate_Record(l_def_cnhv_rec);
3268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3271: RAISE OKC_API.G_EXCEPTION_ERROR;
3272: END IF;
3265: RAISE OKC_API.G_EXCEPTION_ERROR;
3266: END IF;
3267: l_return_status := Validate_Record(l_def_cnhv_rec);
3268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3271: RAISE OKC_API.G_EXCEPTION_ERROR;
3272: END IF;
3273:
3266: END IF;
3267: l_return_status := Validate_Record(l_def_cnhv_rec);
3268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3271: RAISE OKC_API.G_EXCEPTION_ERROR;
3272: END IF;
3273:
3274: /************ ADDED TO CHECK THE UNIQUENESS ***********************/
3267: l_return_status := Validate_Record(l_def_cnhv_rec);
3268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3271: RAISE OKC_API.G_EXCEPTION_ERROR;
3272: END IF;
3273:
3274: /************ ADDED TO CHECK THE UNIQUENESS ***********************/
3275:
3276: -- Validate_Unique_Cnh_Record
3277: Validate_Unique_Cnh_Record(x_return_status,p_cnhv_rec);
3278: l_return_status := x_return_status;
3279: -- store the highest degree of error
3280: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3281: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3282: ELSIF
3283: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3284: RAISE OKC_API.G_EXCEPTION_ERROR;
3277: Validate_Unique_Cnh_Record(x_return_status,p_cnhv_rec);
3278: l_return_status := x_return_status;
3279: -- store the highest degree of error
3280: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3281: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3282: ELSIF
3283: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3284: RAISE OKC_API.G_EXCEPTION_ERROR;
3285: END IF;
3279: -- store the highest degree of error
3280: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3281: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3282: ELSIF
3283: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3284: RAISE OKC_API.G_EXCEPTION_ERROR;
3285: END IF;
3286:
3287: /*********** ADDED TO CHECK THE UNIQUENESS *************************/
3280: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3281: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3282: ELSIF
3283: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3284: RAISE OKC_API.G_EXCEPTION_ERROR;
3285: END IF;
3286:
3287: /*********** ADDED TO CHECK THE UNIQUENESS *************************/
3288:
3301: x_msg_data,
3302: l_cnh_rec,
3303: lx_cnh_rec
3304: );
3305: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3307: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3308: RAISE OKC_API.G_EXCEPTION_ERROR;
3309: END IF;
3302: l_cnh_rec,
3303: lx_cnh_rec
3304: );
3305: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3307: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3308: RAISE OKC_API.G_EXCEPTION_ERROR;
3309: END IF;
3310: migrate(lx_cnh_rec, l_def_cnhv_rec);
3303: lx_cnh_rec
3304: );
3305: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3307: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3308: RAISE OKC_API.G_EXCEPTION_ERROR;
3309: END IF;
3310: migrate(lx_cnh_rec, l_def_cnhv_rec);
3311: insert_row(
3304: );
3305: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3306: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3307: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3308: RAISE OKC_API.G_EXCEPTION_ERROR;
3309: END IF;
3310: migrate(lx_cnh_rec, l_def_cnhv_rec);
3311: insert_row(
3312: p_init_msg_list,
3315: x_msg_data,
3316: l_okc_condition_headers_tl_rec,
3317: LxOkcConditionHeadersTlRec
3318: );
3319: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3320: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3321: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3322: RAISE OKC_API.G_EXCEPTION_ERROR;
3323: END IF;
3316: l_okc_condition_headers_tl_rec,
3317: LxOkcConditionHeadersTlRec
3318: );
3319: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3320: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3321: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3322: RAISE OKC_API.G_EXCEPTION_ERROR;
3323: END IF;
3324: migrate(LxOkcConditionHeadersTlRec, l_def_cnhv_rec);
3317: LxOkcConditionHeadersTlRec
3318: );
3319: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3320: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3321: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3322: RAISE OKC_API.G_EXCEPTION_ERROR;
3323: END IF;
3324: migrate(LxOkcConditionHeadersTlRec, l_def_cnhv_rec);
3325: -- Set OUT values
3318: );
3319: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3320: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3321: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3322: RAISE OKC_API.G_EXCEPTION_ERROR;
3323: END IF;
3324: migrate(LxOkcConditionHeadersTlRec, l_def_cnhv_rec);
3325: -- Set OUT values
3326: x_cnhv_rec := l_def_cnhv_rec;
3323: END IF;
3324: migrate(LxOkcConditionHeadersTlRec, l_def_cnhv_rec);
3325: -- Set OUT values
3326: x_cnhv_rec := l_def_cnhv_rec;
3327: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3328: EXCEPTION
3329: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3330: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3331: (
3325: -- Set OUT values
3326: x_cnhv_rec := l_def_cnhv_rec;
3327: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3328: EXCEPTION
3329: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3330: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3331: (
3332: l_api_name,
3333: G_PKG_NAME,
3326: x_cnhv_rec := l_def_cnhv_rec;
3327: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3328: EXCEPTION
3329: WHEN OKC_API.G_EXCEPTION_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_ERROR',
3330: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3331: (
3332: l_api_name,
3333: G_PKG_NAME,
3334: 'OKC_API.G_RET_STS_ERROR',
3335: x_msg_count,
3336: x_msg_data,
3337: '_PVT'
3338: );
3335: x_msg_count,
3336: x_msg_data,
3337: '_PVT'
3338: );
3339: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3340: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3341: (
3342: l_api_name,
3343: G_PKG_NAME,
3336: x_msg_data,
3337: '_PVT'
3338: );
3339: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3340: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3341: (
3342: l_api_name,
3343: G_PKG_NAME,
3344: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3340: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3341: (
3342: l_api_name,
3343: G_PKG_NAME,
3344: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3345: x_msg_count,
3346: x_msg_data,
3347: '_PVT'
3348: );
3346: x_msg_data,
3347: '_PVT'
3348: );
3349: WHEN OTHERS THEN
3350: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3351: (
3352: l_api_name,
3353: G_PKG_NAME,
3354: 'OTHERS',
3370: x_cnhv_tbl OUT NOCOPY cnhv_tbl_type) IS
3371:
3372: l_api_version CONSTANT NUMBER := 1;
3373: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3374: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3375: i NUMBER := 0;
3376: BEGIN
3377: OKC_API.init_msg_list(p_init_msg_list);
3378: -- Make sure PL/SQL table has records in it before passing
3373: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3374: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3375: i NUMBER := 0;
3376: BEGIN
3377: OKC_API.init_msg_list(p_init_msg_list);
3378: -- Make sure PL/SQL table has records in it before passing
3379: IF (p_cnhv_tbl.COUNT > 0) THEN
3380: i := p_cnhv_tbl.FIRST;
3381: LOOP
3380: i := p_cnhv_tbl.FIRST;
3381: LOOP
3382: insert_row (
3383: p_api_version => p_api_version,
3384: p_init_msg_list => OKC_API.G_FALSE,
3385: x_return_status => x_return_status,
3386: x_msg_count => x_msg_count,
3387: x_msg_data => x_msg_data,
3388: p_cnhv_rec => p_cnhv_tbl(i),
3391: i := p_cnhv_tbl.NEXT(i);
3392: END LOOP;
3393: END IF;
3394: EXCEPTION
3395: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3396: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3397: (
3398: l_api_name,
3399: G_PKG_NAME,
3392: END LOOP;
3393: END IF;
3394: EXCEPTION
3395: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3396: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3397: (
3398: l_api_name,
3399: G_PKG_NAME,
3400: 'OKC_API.G_RET_STS_ERROR',
3396: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3397: (
3398: l_api_name,
3399: G_PKG_NAME,
3400: 'OKC_API.G_RET_STS_ERROR',
3401: x_msg_count,
3402: x_msg_data,
3403: '_PVT'
3404: );
3401: x_msg_count,
3402: x_msg_data,
3403: '_PVT'
3404: );
3405: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3406: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3407: (
3408: l_api_name,
3409: G_PKG_NAME,
3402: x_msg_data,
3403: '_PVT'
3404: );
3405: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3406: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3407: (
3408: l_api_name,
3409: G_PKG_NAME,
3410: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3406: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3407: (
3408: l_api_name,
3409: G_PKG_NAME,
3410: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3411: x_msg_count,
3412: x_msg_data,
3413: '_PVT'
3414: );
3412: x_msg_data,
3413: '_PVT'
3414: );
3415: WHEN OTHERS THEN
3416: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3417: (
3418: l_api_name,
3419: G_PKG_NAME,
3420: 'OTHERS',
3451: FROM OKC_CONDITION_HEADERS_B
3452: WHERE ID = p_cnh_rec.id;
3453: l_api_version CONSTANT NUMBER := 1;
3454: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
3455: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3456: l_object_version_number OKC_CONDITION_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
3457: lc_object_version_number OKC_CONDITION_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
3458: l_row_notfound BOOLEAN := FALSE;
3459: lc_row_notfound BOOLEAN := FALSE;
3457: lc_object_version_number OKC_CONDITION_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
3458: l_row_notfound BOOLEAN := FALSE;
3459: lc_row_notfound BOOLEAN := FALSE;
3460: BEGIN
3461: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3462: p_init_msg_list,
3463: '_PVT',
3464: x_return_status);
3465: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3461: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3462: p_init_msg_list,
3463: '_PVT',
3464: x_return_status);
3465: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3466: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3467: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3468: RAISE OKC_API.G_EXCEPTION_ERROR;
3469: END IF;
3462: p_init_msg_list,
3463: '_PVT',
3464: x_return_status);
3465: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3466: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3467: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3468: RAISE OKC_API.G_EXCEPTION_ERROR;
3469: END IF;
3470: BEGIN
3463: '_PVT',
3464: x_return_status);
3465: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3466: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3467: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3468: RAISE OKC_API.G_EXCEPTION_ERROR;
3469: END IF;
3470: BEGIN
3471: OPEN lock_csr(p_cnh_rec);
3464: x_return_status);
3465: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3466: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3467: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3468: RAISE OKC_API.G_EXCEPTION_ERROR;
3469: END IF;
3470: BEGIN
3471: OPEN lock_csr(p_cnh_rec);
3472: FETCH lock_csr INTO l_object_version_number;
3476: WHEN E_Resource_Busy THEN
3477: IF (lock_csr%ISOPEN) THEN
3478: CLOSE lock_csr;
3479: END IF;
3480: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3481: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3482: END;
3483:
3484: IF ( l_row_notfound ) THEN
3487: lc_row_notfound := lchk_csr%NOTFOUND;
3488: CLOSE lchk_csr;
3489: END IF;
3490: IF (lc_row_notfound) THEN
3491: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: ELSIF lc_object_version_number > p_cnh_rec.object_version_number THEN
3494: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3495: RAISE OKC_API.G_EXCEPTION_ERROR;
3488: CLOSE lchk_csr;
3489: END IF;
3490: IF (lc_row_notfound) THEN
3491: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: ELSIF lc_object_version_number > p_cnh_rec.object_version_number THEN
3494: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3495: RAISE OKC_API.G_EXCEPTION_ERROR;
3496: ELSIF lc_object_version_number <> p_cnh_rec.object_version_number THEN
3490: IF (lc_row_notfound) THEN
3491: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: ELSIF lc_object_version_number > p_cnh_rec.object_version_number THEN
3494: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3495: RAISE OKC_API.G_EXCEPTION_ERROR;
3496: ELSIF lc_object_version_number <> p_cnh_rec.object_version_number THEN
3497: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3498: RAISE OKC_API.G_EXCEPTION_ERROR;
3491: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3492: RAISE OKC_API.G_EXCEPTION_ERROR;
3493: ELSIF lc_object_version_number > p_cnh_rec.object_version_number THEN
3494: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3495: RAISE OKC_API.G_EXCEPTION_ERROR;
3496: ELSIF lc_object_version_number <> p_cnh_rec.object_version_number THEN
3497: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3498: RAISE OKC_API.G_EXCEPTION_ERROR;
3499: ELSIF lc_object_version_number = -1 THEN
3493: ELSIF lc_object_version_number > p_cnh_rec.object_version_number THEN
3494: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3495: RAISE OKC_API.G_EXCEPTION_ERROR;
3496: ELSIF lc_object_version_number <> p_cnh_rec.object_version_number THEN
3497: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3498: RAISE OKC_API.G_EXCEPTION_ERROR;
3499: ELSIF lc_object_version_number = -1 THEN
3500: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3494: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3495: RAISE OKC_API.G_EXCEPTION_ERROR;
3496: ELSIF lc_object_version_number <> p_cnh_rec.object_version_number THEN
3497: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3498: RAISE OKC_API.G_EXCEPTION_ERROR;
3499: ELSIF lc_object_version_number = -1 THEN
3500: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3502: END IF;
3496: ELSIF lc_object_version_number <> p_cnh_rec.object_version_number THEN
3497: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3498: RAISE OKC_API.G_EXCEPTION_ERROR;
3499: ELSIF lc_object_version_number = -1 THEN
3500: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3502: END IF;
3503: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3504: EXCEPTION
3497: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3498: RAISE OKC_API.G_EXCEPTION_ERROR;
3499: ELSIF lc_object_version_number = -1 THEN
3500: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3502: END IF;
3503: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3504: EXCEPTION
3505: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3499: ELSIF lc_object_version_number = -1 THEN
3500: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3502: END IF;
3503: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3504: EXCEPTION
3505: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3506: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3507: (
3501: RAISE OKC_API.G_EXCEPTION_ERROR;
3502: END IF;
3503: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3504: EXCEPTION
3505: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3506: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3507: (
3508: l_api_name,
3509: G_PKG_NAME,
3502: END IF;
3503: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3504: EXCEPTION
3505: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3506: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3507: (
3508: l_api_name,
3509: G_PKG_NAME,
3510: 'OKC_API.G_RET_STS_ERROR',
3506: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3507: (
3508: l_api_name,
3509: G_PKG_NAME,
3510: 'OKC_API.G_RET_STS_ERROR',
3511: x_msg_count,
3512: x_msg_data,
3513: '_PVT'
3514: );
3511: x_msg_count,
3512: x_msg_data,
3513: '_PVT'
3514: );
3515: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3516: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3517: (
3518: l_api_name,
3519: G_PKG_NAME,
3512: x_msg_data,
3513: '_PVT'
3514: );
3515: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3516: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3517: (
3518: l_api_name,
3519: G_PKG_NAME,
3520: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3516: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3517: (
3518: l_api_name,
3519: G_PKG_NAME,
3520: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3521: x_msg_count,
3522: x_msg_data,
3523: '_PVT'
3524: );
3522: x_msg_data,
3523: '_PVT'
3524: );
3525: WHEN OTHERS THEN
3526: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3527: (
3528: l_api_name,
3529: G_PKG_NAME,
3530: 'OTHERS',
3552: FOR UPDATE NOWAIT;
3553:
3554: l_api_version CONSTANT NUMBER := 1;
3555: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
3556: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3557: l_lock_var lock_csr%ROWTYPE;
3558: l_row_notfound BOOLEAN := FALSE;
3559: lc_row_notfound BOOLEAN := FALSE;
3560: BEGIN
3557: l_lock_var lock_csr%ROWTYPE;
3558: l_row_notfound BOOLEAN := FALSE;
3559: lc_row_notfound BOOLEAN := FALSE;
3560: BEGIN
3561: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3562: p_init_msg_list,
3563: '_PVT',
3564: x_return_status);
3565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3561: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3562: p_init_msg_list,
3563: '_PVT',
3564: x_return_status);
3565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3568: RAISE OKC_API.G_EXCEPTION_ERROR;
3569: END IF;
3562: p_init_msg_list,
3563: '_PVT',
3564: x_return_status);
3565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3568: RAISE OKC_API.G_EXCEPTION_ERROR;
3569: END IF;
3570: BEGIN
3563: '_PVT',
3564: x_return_status);
3565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3568: RAISE OKC_API.G_EXCEPTION_ERROR;
3569: END IF;
3570: BEGIN
3571: OPEN lock_csr(p_okc_condition_headers_tl_rec);
3564: x_return_status);
3565: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3566: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3567: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3568: RAISE OKC_API.G_EXCEPTION_ERROR;
3569: END IF;
3570: BEGIN
3571: OPEN lock_csr(p_okc_condition_headers_tl_rec);
3572: FETCH lock_csr INTO l_lock_var;
3576: WHEN E_Resource_Busy THEN
3577: IF (lock_csr%ISOPEN) THEN
3578: CLOSE lock_csr;
3579: END IF;
3580: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3581: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3582: END;
3583:
3584: IF ( l_row_notfound ) THEN
3581: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3582: END;
3583:
3584: IF ( l_row_notfound ) THEN
3585: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3589: EXCEPTION
3582: END;
3583:
3584: IF ( l_row_notfound ) THEN
3585: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3589: EXCEPTION
3590: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3584: IF ( l_row_notfound ) THEN
3585: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3589: EXCEPTION
3590: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3591: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3592: (
3586: RAISE OKC_API.G_EXCEPTION_ERROR;
3587: END IF;
3588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3589: EXCEPTION
3590: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3591: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3592: (
3593: l_api_name,
3594: G_PKG_NAME,
3587: END IF;
3588: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3589: EXCEPTION
3590: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3591: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3592: (
3593: l_api_name,
3594: G_PKG_NAME,
3595: 'OKC_API.G_RET_STS_ERROR',
3591: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3592: (
3593: l_api_name,
3594: G_PKG_NAME,
3595: 'OKC_API.G_RET_STS_ERROR',
3596: x_msg_count,
3597: x_msg_data,
3598: '_PVT'
3599: );
3596: x_msg_count,
3597: x_msg_data,
3598: '_PVT'
3599: );
3600: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3601: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3602: (
3603: l_api_name,
3604: G_PKG_NAME,
3597: x_msg_data,
3598: '_PVT'
3599: );
3600: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3601: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3602: (
3603: l_api_name,
3604: G_PKG_NAME,
3605: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3601: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3602: (
3603: l_api_name,
3604: G_PKG_NAME,
3605: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3606: x_msg_count,
3607: x_msg_data,
3608: '_PVT'
3609: );
3607: x_msg_data,
3608: '_PVT'
3609: );
3610: WHEN OTHERS THEN
3611: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3612: (
3613: l_api_name,
3614: G_PKG_NAME,
3615: 'OTHERS',
3630: p_cnhv_rec IN cnhv_rec_type) IS
3631:
3632: l_api_version CONSTANT NUMBER := 1;
3633: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3634: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3635: l_cnh_rec cnh_rec_type;
3636: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType;
3637: BEGIN
3638: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3634: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3635: l_cnh_rec cnh_rec_type;
3636: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType;
3637: BEGIN
3638: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3639: G_PKG_NAME,
3640: p_init_msg_list,
3641: l_api_version,
3642: p_api_version,
3641: l_api_version,
3642: p_api_version,
3643: '_PVT',
3644: x_return_status);
3645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3648: RAISE OKC_API.G_EXCEPTION_ERROR;
3649: END IF;
3642: p_api_version,
3643: '_PVT',
3644: x_return_status);
3645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3648: RAISE OKC_API.G_EXCEPTION_ERROR;
3649: END IF;
3650: --------------------------------------
3643: '_PVT',
3644: x_return_status);
3645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3648: RAISE OKC_API.G_EXCEPTION_ERROR;
3649: END IF;
3650: --------------------------------------
3651: -- Move VIEW record to "Child" records
3644: x_return_status);
3645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3648: RAISE OKC_API.G_EXCEPTION_ERROR;
3649: END IF;
3650: --------------------------------------
3651: -- Move VIEW record to "Child" records
3652: --------------------------------------
3661: x_msg_count,
3662: x_msg_data,
3663: l_cnh_rec
3664: );
3665: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3668: RAISE OKC_API.G_EXCEPTION_ERROR;
3669: END IF;
3662: x_msg_data,
3663: l_cnh_rec
3664: );
3665: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3668: RAISE OKC_API.G_EXCEPTION_ERROR;
3669: END IF;
3670: lock_row(
3663: l_cnh_rec
3664: );
3665: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3668: RAISE OKC_API.G_EXCEPTION_ERROR;
3669: END IF;
3670: lock_row(
3671: p_init_msg_list,
3664: );
3665: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3666: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3667: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3668: RAISE OKC_API.G_EXCEPTION_ERROR;
3669: END IF;
3670: lock_row(
3671: p_init_msg_list,
3672: x_return_status,
3673: x_msg_count,
3674: x_msg_data,
3675: l_okc_condition_headers_tl_rec
3676: );
3677: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3679: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3680: RAISE OKC_API.G_EXCEPTION_ERROR;
3681: END IF;
3674: x_msg_data,
3675: l_okc_condition_headers_tl_rec
3676: );
3677: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3679: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3680: RAISE OKC_API.G_EXCEPTION_ERROR;
3681: END IF;
3682: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3675: l_okc_condition_headers_tl_rec
3676: );
3677: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3679: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3680: RAISE OKC_API.G_EXCEPTION_ERROR;
3681: END IF;
3682: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3683: EXCEPTION
3676: );
3677: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3679: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3680: RAISE OKC_API.G_EXCEPTION_ERROR;
3681: END IF;
3682: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3683: EXCEPTION
3684: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3678: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3679: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3680: RAISE OKC_API.G_EXCEPTION_ERROR;
3681: END IF;
3682: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3683: EXCEPTION
3684: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3686: (
3680: RAISE OKC_API.G_EXCEPTION_ERROR;
3681: END IF;
3682: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3683: EXCEPTION
3684: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3686: (
3687: l_api_name,
3688: G_PKG_NAME,
3681: END IF;
3682: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3683: EXCEPTION
3684: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3686: (
3687: l_api_name,
3688: G_PKG_NAME,
3689: 'OKC_API.G_RET_STS_ERROR',
3685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3686: (
3687: l_api_name,
3688: G_PKG_NAME,
3689: 'OKC_API.G_RET_STS_ERROR',
3690: x_msg_count,
3691: x_msg_data,
3692: '_PVT'
3693: );
3690: x_msg_count,
3691: x_msg_data,
3692: '_PVT'
3693: );
3694: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3696: (
3697: l_api_name,
3698: G_PKG_NAME,
3691: x_msg_data,
3692: '_PVT'
3693: );
3694: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3696: (
3697: l_api_name,
3698: G_PKG_NAME,
3699: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3696: (
3697: l_api_name,
3698: G_PKG_NAME,
3699: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3700: x_msg_count,
3701: x_msg_data,
3702: '_PVT'
3703: );
3701: x_msg_data,
3702: '_PVT'
3703: );
3704: WHEN OTHERS THEN
3705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3706: (
3707: l_api_name,
3708: G_PKG_NAME,
3709: 'OTHERS',
3724: p_cnhv_tbl IN cnhv_tbl_type) IS
3725:
3726: l_api_version CONSTANT NUMBER := 1;
3727: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
3728: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3729: i NUMBER := 0;
3730: BEGIN
3731: OKC_API.init_msg_list(p_init_msg_list);
3732: -- Make sure PL/SQL table has records in it before passing
3727: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
3728: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3729: i NUMBER := 0;
3730: BEGIN
3731: OKC_API.init_msg_list(p_init_msg_list);
3732: -- Make sure PL/SQL table has records in it before passing
3733: IF (p_cnhv_tbl.COUNT > 0) THEN
3734: i := p_cnhv_tbl.FIRST;
3735: LOOP
3734: i := p_cnhv_tbl.FIRST;
3735: LOOP
3736: lock_row (
3737: p_api_version => p_api_version,
3738: p_init_msg_list => OKC_API.G_FALSE,
3739: x_return_status => x_return_status,
3740: x_msg_count => x_msg_count,
3741: x_msg_data => x_msg_data,
3742: p_cnhv_rec => p_cnhv_tbl(i));
3744: i := p_cnhv_tbl.NEXT(i);
3745: END LOOP;
3746: END IF;
3747: EXCEPTION
3748: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3750: (
3751: l_api_name,
3752: G_PKG_NAME,
3745: END LOOP;
3746: END IF;
3747: EXCEPTION
3748: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3750: (
3751: l_api_name,
3752: G_PKG_NAME,
3753: 'OKC_API.G_RET_STS_ERROR',
3749: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3750: (
3751: l_api_name,
3752: G_PKG_NAME,
3753: 'OKC_API.G_RET_STS_ERROR',
3754: x_msg_count,
3755: x_msg_data,
3756: '_PVT'
3757: );
3754: x_msg_count,
3755: x_msg_data,
3756: '_PVT'
3757: );
3758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3760: (
3761: l_api_name,
3762: G_PKG_NAME,
3755: x_msg_data,
3756: '_PVT'
3757: );
3758: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3760: (
3761: l_api_name,
3762: G_PKG_NAME,
3763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3759: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3760: (
3761: l_api_name,
3762: G_PKG_NAME,
3763: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3764: x_msg_count,
3765: x_msg_data,
3766: '_PVT'
3767: );
3765: x_msg_data,
3766: '_PVT'
3767: );
3768: WHEN OTHERS THEN
3769: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3770: (
3771: l_api_name,
3772: G_PKG_NAME,
3773: 'OTHERS',
3792: x_cnh_rec OUT NOCOPY cnh_rec_type) IS
3793:
3794: l_api_version CONSTANT NUMBER := 1;
3795: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
3796: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3797: l_cnh_rec cnh_rec_type := p_cnh_rec;
3798: l_def_cnh_rec cnh_rec_type;
3799: l_row_notfound BOOLEAN := TRUE;
3800: ----------------------------------
3805: x_cnh_rec OUT NOCOPY cnh_rec_type
3806: ) RETURN VARCHAR2 IS
3807: l_cnh_rec cnh_rec_type;
3808: l_row_notfound BOOLEAN := TRUE;
3809: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3810: BEGIN
3811: x_cnh_rec := p_cnh_rec;
3812: -- Get current database values
3813: l_cnh_rec := get_rec(p_cnh_rec, l_row_notfound);
3811: x_cnh_rec := p_cnh_rec;
3812: -- Get current database values
3813: l_cnh_rec := get_rec(p_cnh_rec, l_row_notfound);
3814: IF (l_row_notfound) THEN
3815: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3816: END IF;
3817: IF (x_cnh_rec.id = OKC_API.G_MISS_NUM)
3818: THEN
3819: x_cnh_rec.id := l_cnh_rec.id;
3813: l_cnh_rec := get_rec(p_cnh_rec, l_row_notfound);
3814: IF (l_row_notfound) THEN
3815: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3816: END IF;
3817: IF (x_cnh_rec.id = OKC_API.G_MISS_NUM)
3818: THEN
3819: x_cnh_rec.id := l_cnh_rec.id;
3820: END IF;
3821: IF (x_cnh_rec.acn_id = OKC_API.G_MISS_NUM)
3817: IF (x_cnh_rec.id = OKC_API.G_MISS_NUM)
3818: THEN
3819: x_cnh_rec.id := l_cnh_rec.id;
3820: END IF;
3821: IF (x_cnh_rec.acn_id = OKC_API.G_MISS_NUM)
3822: THEN
3823: x_cnh_rec.acn_id := l_cnh_rec.acn_id;
3824: END IF;
3825: IF (x_cnh_rec.counter_group_id = OKC_API.G_MISS_NUM)
3821: IF (x_cnh_rec.acn_id = OKC_API.G_MISS_NUM)
3822: THEN
3823: x_cnh_rec.acn_id := l_cnh_rec.acn_id;
3824: END IF;
3825: IF (x_cnh_rec.counter_group_id = OKC_API.G_MISS_NUM)
3826: THEN
3827: x_cnh_rec.counter_group_id := l_cnh_rec.counter_group_id;
3828: END IF;
3829: IF (x_cnh_rec.one_time_yn = OKC_API.G_MISS_CHAR)
3825: IF (x_cnh_rec.counter_group_id = OKC_API.G_MISS_NUM)
3826: THEN
3827: x_cnh_rec.counter_group_id := l_cnh_rec.counter_group_id;
3828: END IF;
3829: IF (x_cnh_rec.one_time_yn = OKC_API.G_MISS_CHAR)
3830: THEN
3831: x_cnh_rec.one_time_yn := l_cnh_rec.one_time_yn;
3832: END IF;
3833: IF (x_cnh_rec.before_after = OKC_API.G_MISS_CHAR)
3829: IF (x_cnh_rec.one_time_yn = OKC_API.G_MISS_CHAR)
3830: THEN
3831: x_cnh_rec.one_time_yn := l_cnh_rec.one_time_yn;
3832: END IF;
3833: IF (x_cnh_rec.before_after = OKC_API.G_MISS_CHAR)
3834: THEN
3835: x_cnh_rec.before_after := l_cnh_rec.before_after;
3836: END IF;
3837: IF (x_cnh_rec.cnh_variance = OKC_API.G_MISS_NUM)
3833: IF (x_cnh_rec.before_after = OKC_API.G_MISS_CHAR)
3834: THEN
3835: x_cnh_rec.before_after := l_cnh_rec.before_after;
3836: END IF;
3837: IF (x_cnh_rec.cnh_variance = OKC_API.G_MISS_NUM)
3838: THEN
3839: x_cnh_rec.cnh_variance := l_cnh_rec.cnh_variance;
3840: END IF;
3841: IF (x_cnh_rec.condition_valid_yn = OKC_API.G_MISS_CHAR)
3837: IF (x_cnh_rec.cnh_variance = OKC_API.G_MISS_NUM)
3838: THEN
3839: x_cnh_rec.cnh_variance := l_cnh_rec.cnh_variance;
3840: END IF;
3841: IF (x_cnh_rec.condition_valid_yn = OKC_API.G_MISS_CHAR)
3842: THEN
3843: x_cnh_rec.condition_valid_yn := l_cnh_rec.condition_valid_yn;
3844: END IF;
3845: IF (x_cnh_rec.tracked_yn = OKC_API.G_MISS_CHAR)
3841: IF (x_cnh_rec.condition_valid_yn = OKC_API.G_MISS_CHAR)
3842: THEN
3843: x_cnh_rec.condition_valid_yn := l_cnh_rec.condition_valid_yn;
3844: END IF;
3845: IF (x_cnh_rec.tracked_yn = OKC_API.G_MISS_CHAR)
3846: THEN
3847: x_cnh_rec.tracked_yn := l_cnh_rec.tracked_yn;
3848: END IF;
3849: IF (x_cnh_rec.date_active = OKC_API.G_MISS_DATE)
3845: IF (x_cnh_rec.tracked_yn = OKC_API.G_MISS_CHAR)
3846: THEN
3847: x_cnh_rec.tracked_yn := l_cnh_rec.tracked_yn;
3848: END IF;
3849: IF (x_cnh_rec.date_active = OKC_API.G_MISS_DATE)
3850: THEN
3851: x_cnh_rec.date_active := l_cnh_rec.date_active;
3852: END IF;
3853: IF (x_cnh_rec.date_inactive = OKC_API.G_MISS_DATE)
3849: IF (x_cnh_rec.date_active = OKC_API.G_MISS_DATE)
3850: THEN
3851: x_cnh_rec.date_active := l_cnh_rec.date_active;
3852: END IF;
3853: IF (x_cnh_rec.date_inactive = OKC_API.G_MISS_DATE)
3854: THEN
3855: x_cnh_rec.date_inactive := l_cnh_rec.date_inactive;
3856: END IF;
3857: IF (x_cnh_rec.cnh_type = OKC_API.G_MISS_CHAR)
3853: IF (x_cnh_rec.date_inactive = OKC_API.G_MISS_DATE)
3854: THEN
3855: x_cnh_rec.date_inactive := l_cnh_rec.date_inactive;
3856: END IF;
3857: IF (x_cnh_rec.cnh_type = OKC_API.G_MISS_CHAR)
3858: THEN
3859: x_cnh_rec.cnh_type := l_cnh_rec.cnh_type;
3860: END IF;
3861: IF (x_cnh_rec.template_yn = OKC_API.G_MISS_CHAR)
3857: IF (x_cnh_rec.cnh_type = OKC_API.G_MISS_CHAR)
3858: THEN
3859: x_cnh_rec.cnh_type := l_cnh_rec.cnh_type;
3860: END IF;
3861: IF (x_cnh_rec.template_yn = OKC_API.G_MISS_CHAR)
3862: THEN
3863: x_cnh_rec.template_yn := l_cnh_rec.template_yn;
3864: END IF;
3865: IF (x_cnh_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
3861: IF (x_cnh_rec.template_yn = OKC_API.G_MISS_CHAR)
3862: THEN
3863: x_cnh_rec.template_yn := l_cnh_rec.template_yn;
3864: END IF;
3865: IF (x_cnh_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
3866: THEN
3867: x_cnh_rec.dnz_chr_id := l_cnh_rec.dnz_chr_id;
3868: END IF;
3869: IF (x_cnh_rec.object_id = OKC_API.G_MISS_NUM)
3865: IF (x_cnh_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
3866: THEN
3867: x_cnh_rec.dnz_chr_id := l_cnh_rec.dnz_chr_id;
3868: END IF;
3869: IF (x_cnh_rec.object_id = OKC_API.G_MISS_NUM)
3870: THEN
3871: x_cnh_rec.object_id := l_cnh_rec.object_id;
3872: END IF;
3873: IF (x_cnh_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
3869: IF (x_cnh_rec.object_id = OKC_API.G_MISS_NUM)
3870: THEN
3871: x_cnh_rec.object_id := l_cnh_rec.object_id;
3872: END IF;
3873: IF (x_cnh_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
3874: THEN
3875: x_cnh_rec.jtot_object_code := l_cnh_rec.jtot_object_code;
3876: END IF;
3877: IF (x_cnh_rec.object_version_number = OKC_API.G_MISS_NUM)
3873: IF (x_cnh_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
3874: THEN
3875: x_cnh_rec.jtot_object_code := l_cnh_rec.jtot_object_code;
3876: END IF;
3877: IF (x_cnh_rec.object_version_number = OKC_API.G_MISS_NUM)
3878: THEN
3879: x_cnh_rec.object_version_number := l_cnh_rec.object_version_number;
3880: END IF;
3881: IF (x_cnh_rec.task_owner_id = OKC_API.G_MISS_NUM)
3877: IF (x_cnh_rec.object_version_number = OKC_API.G_MISS_NUM)
3878: THEN
3879: x_cnh_rec.object_version_number := l_cnh_rec.object_version_number;
3880: END IF;
3881: IF (x_cnh_rec.task_owner_id = OKC_API.G_MISS_NUM)
3882: THEN
3883: x_cnh_rec.task_owner_id := l_cnh_rec.task_owner_id;
3884: END IF;
3885: IF (x_cnh_rec.created_by = OKC_API.G_MISS_NUM)
3881: IF (x_cnh_rec.task_owner_id = OKC_API.G_MISS_NUM)
3882: THEN
3883: x_cnh_rec.task_owner_id := l_cnh_rec.task_owner_id;
3884: END IF;
3885: IF (x_cnh_rec.created_by = OKC_API.G_MISS_NUM)
3886: THEN
3887: x_cnh_rec.created_by := l_cnh_rec.created_by;
3888: END IF;
3889: IF (x_cnh_rec.creation_date = OKC_API.G_MISS_DATE)
3885: IF (x_cnh_rec.created_by = OKC_API.G_MISS_NUM)
3886: THEN
3887: x_cnh_rec.created_by := l_cnh_rec.created_by;
3888: END IF;
3889: IF (x_cnh_rec.creation_date = OKC_API.G_MISS_DATE)
3890: THEN
3891: x_cnh_rec.creation_date := l_cnh_rec.creation_date;
3892: END IF;
3893: IF (x_cnh_rec.last_updated_by = OKC_API.G_MISS_NUM)
3889: IF (x_cnh_rec.creation_date = OKC_API.G_MISS_DATE)
3890: THEN
3891: x_cnh_rec.creation_date := l_cnh_rec.creation_date;
3892: END IF;
3893: IF (x_cnh_rec.last_updated_by = OKC_API.G_MISS_NUM)
3894: THEN
3895: x_cnh_rec.last_updated_by := l_cnh_rec.last_updated_by;
3896: END IF;
3897: IF (x_cnh_rec.last_update_date = OKC_API.G_MISS_DATE)
3893: IF (x_cnh_rec.last_updated_by = OKC_API.G_MISS_NUM)
3894: THEN
3895: x_cnh_rec.last_updated_by := l_cnh_rec.last_updated_by;
3896: END IF;
3897: IF (x_cnh_rec.last_update_date = OKC_API.G_MISS_DATE)
3898: THEN
3899: x_cnh_rec.last_update_date := l_cnh_rec.last_update_date;
3900: END IF;
3901: IF (x_cnh_rec.last_update_login = OKC_API.G_MISS_NUM)
3897: IF (x_cnh_rec.last_update_date = OKC_API.G_MISS_DATE)
3898: THEN
3899: x_cnh_rec.last_update_date := l_cnh_rec.last_update_date;
3900: END IF;
3901: IF (x_cnh_rec.last_update_login = OKC_API.G_MISS_NUM)
3902: THEN
3903: x_cnh_rec.last_update_login := l_cnh_rec.last_update_login;
3904: END IF;
3905: IF (x_cnh_rec.attribute_category = OKC_API.G_MISS_CHAR)
3901: IF (x_cnh_rec.last_update_login = OKC_API.G_MISS_NUM)
3902: THEN
3903: x_cnh_rec.last_update_login := l_cnh_rec.last_update_login;
3904: END IF;
3905: IF (x_cnh_rec.attribute_category = OKC_API.G_MISS_CHAR)
3906: THEN
3907: x_cnh_rec.attribute_category := l_cnh_rec.attribute_category;
3908: END IF;
3909: IF (x_cnh_rec.attribute1 = OKC_API.G_MISS_CHAR)
3905: IF (x_cnh_rec.attribute_category = OKC_API.G_MISS_CHAR)
3906: THEN
3907: x_cnh_rec.attribute_category := l_cnh_rec.attribute_category;
3908: END IF;
3909: IF (x_cnh_rec.attribute1 = OKC_API.G_MISS_CHAR)
3910: THEN
3911: x_cnh_rec.attribute1 := l_cnh_rec.attribute1;
3912: END IF;
3913: IF (x_cnh_rec.attribute2 = OKC_API.G_MISS_CHAR)
3909: IF (x_cnh_rec.attribute1 = OKC_API.G_MISS_CHAR)
3910: THEN
3911: x_cnh_rec.attribute1 := l_cnh_rec.attribute1;
3912: END IF;
3913: IF (x_cnh_rec.attribute2 = OKC_API.G_MISS_CHAR)
3914: THEN
3915: x_cnh_rec.attribute2 := l_cnh_rec.attribute2;
3916: END IF;
3917: IF (x_cnh_rec.attribute3 = OKC_API.G_MISS_CHAR)
3913: IF (x_cnh_rec.attribute2 = OKC_API.G_MISS_CHAR)
3914: THEN
3915: x_cnh_rec.attribute2 := l_cnh_rec.attribute2;
3916: END IF;
3917: IF (x_cnh_rec.attribute3 = OKC_API.G_MISS_CHAR)
3918: THEN
3919: x_cnh_rec.attribute3 := l_cnh_rec.attribute3;
3920: END IF;
3921: IF (x_cnh_rec.attribute4 = OKC_API.G_MISS_CHAR)
3917: IF (x_cnh_rec.attribute3 = OKC_API.G_MISS_CHAR)
3918: THEN
3919: x_cnh_rec.attribute3 := l_cnh_rec.attribute3;
3920: END IF;
3921: IF (x_cnh_rec.attribute4 = OKC_API.G_MISS_CHAR)
3922: THEN
3923: x_cnh_rec.attribute4 := l_cnh_rec.attribute4;
3924: END IF;
3925: IF (x_cnh_rec.attribute5 = OKC_API.G_MISS_CHAR)
3921: IF (x_cnh_rec.attribute4 = OKC_API.G_MISS_CHAR)
3922: THEN
3923: x_cnh_rec.attribute4 := l_cnh_rec.attribute4;
3924: END IF;
3925: IF (x_cnh_rec.attribute5 = OKC_API.G_MISS_CHAR)
3926: THEN
3927: x_cnh_rec.attribute5 := l_cnh_rec.attribute5;
3928: END IF;
3929: IF (x_cnh_rec.attribute6 = OKC_API.G_MISS_CHAR)
3925: IF (x_cnh_rec.attribute5 = OKC_API.G_MISS_CHAR)
3926: THEN
3927: x_cnh_rec.attribute5 := l_cnh_rec.attribute5;
3928: END IF;
3929: IF (x_cnh_rec.attribute6 = OKC_API.G_MISS_CHAR)
3930: THEN
3931: x_cnh_rec.attribute6 := l_cnh_rec.attribute6;
3932: END IF;
3933: IF (x_cnh_rec.attribute7 = OKC_API.G_MISS_CHAR)
3929: IF (x_cnh_rec.attribute6 = OKC_API.G_MISS_CHAR)
3930: THEN
3931: x_cnh_rec.attribute6 := l_cnh_rec.attribute6;
3932: END IF;
3933: IF (x_cnh_rec.attribute7 = OKC_API.G_MISS_CHAR)
3934: THEN
3935: x_cnh_rec.attribute7 := l_cnh_rec.attribute7;
3936: END IF;
3937: IF (x_cnh_rec.attribute8 = OKC_API.G_MISS_CHAR)
3933: IF (x_cnh_rec.attribute7 = OKC_API.G_MISS_CHAR)
3934: THEN
3935: x_cnh_rec.attribute7 := l_cnh_rec.attribute7;
3936: END IF;
3937: IF (x_cnh_rec.attribute8 = OKC_API.G_MISS_CHAR)
3938: THEN
3939: x_cnh_rec.attribute8 := l_cnh_rec.attribute8;
3940: END IF;
3941: IF (x_cnh_rec.attribute9 = OKC_API.G_MISS_CHAR)
3937: IF (x_cnh_rec.attribute8 = OKC_API.G_MISS_CHAR)
3938: THEN
3939: x_cnh_rec.attribute8 := l_cnh_rec.attribute8;
3940: END IF;
3941: IF (x_cnh_rec.attribute9 = OKC_API.G_MISS_CHAR)
3942: THEN
3943: x_cnh_rec.attribute9 := l_cnh_rec.attribute9;
3944: END IF;
3945: IF (x_cnh_rec.attribute10 = OKC_API.G_MISS_CHAR)
3941: IF (x_cnh_rec.attribute9 = OKC_API.G_MISS_CHAR)
3942: THEN
3943: x_cnh_rec.attribute9 := l_cnh_rec.attribute9;
3944: END IF;
3945: IF (x_cnh_rec.attribute10 = OKC_API.G_MISS_CHAR)
3946: THEN
3947: x_cnh_rec.attribute10 := l_cnh_rec.attribute10;
3948: END IF;
3949: IF (x_cnh_rec.attribute11 = OKC_API.G_MISS_CHAR)
3945: IF (x_cnh_rec.attribute10 = OKC_API.G_MISS_CHAR)
3946: THEN
3947: x_cnh_rec.attribute10 := l_cnh_rec.attribute10;
3948: END IF;
3949: IF (x_cnh_rec.attribute11 = OKC_API.G_MISS_CHAR)
3950: THEN
3951: x_cnh_rec.attribute11 := l_cnh_rec.attribute11;
3952: END IF;
3953: IF (x_cnh_rec.attribute12 = OKC_API.G_MISS_CHAR)
3949: IF (x_cnh_rec.attribute11 = OKC_API.G_MISS_CHAR)
3950: THEN
3951: x_cnh_rec.attribute11 := l_cnh_rec.attribute11;
3952: END IF;
3953: IF (x_cnh_rec.attribute12 = OKC_API.G_MISS_CHAR)
3954: THEN
3955: x_cnh_rec.attribute12 := l_cnh_rec.attribute12;
3956: END IF;
3957: IF (x_cnh_rec.attribute13 = OKC_API.G_MISS_CHAR)
3953: IF (x_cnh_rec.attribute12 = OKC_API.G_MISS_CHAR)
3954: THEN
3955: x_cnh_rec.attribute12 := l_cnh_rec.attribute12;
3956: END IF;
3957: IF (x_cnh_rec.attribute13 = OKC_API.G_MISS_CHAR)
3958: THEN
3959: x_cnh_rec.attribute13 := l_cnh_rec.attribute13;
3960: END IF;
3961: IF (x_cnh_rec.attribute14 = OKC_API.G_MISS_CHAR)
3957: IF (x_cnh_rec.attribute13 = OKC_API.G_MISS_CHAR)
3958: THEN
3959: x_cnh_rec.attribute13 := l_cnh_rec.attribute13;
3960: END IF;
3961: IF (x_cnh_rec.attribute14 = OKC_API.G_MISS_CHAR)
3962: THEN
3963: x_cnh_rec.attribute14 := l_cnh_rec.attribute14;
3964: END IF;
3965: IF (x_cnh_rec.attribute15 = OKC_API.G_MISS_CHAR)
3961: IF (x_cnh_rec.attribute14 = OKC_API.G_MISS_CHAR)
3962: THEN
3963: x_cnh_rec.attribute14 := l_cnh_rec.attribute14;
3964: END IF;
3965: IF (x_cnh_rec.attribute15 = OKC_API.G_MISS_CHAR)
3966: THEN
3967: x_cnh_rec.attribute15 := l_cnh_rec.attribute15;
3968: END IF;
3969: IF (x_cnh_rec.application_id = OKC_API.G_MISS_NUM)
3965: IF (x_cnh_rec.attribute15 = OKC_API.G_MISS_CHAR)
3966: THEN
3967: x_cnh_rec.attribute15 := l_cnh_rec.attribute15;
3968: END IF;
3969: IF (x_cnh_rec.application_id = OKC_API.G_MISS_NUM)
3970: THEN
3971: x_cnh_rec.application_id := l_cnh_rec.application_id;
3972: END IF;
3973: IF (x_cnh_rec.seeded_flag = OKC_API.G_MISS_CHAR)
3969: IF (x_cnh_rec.application_id = OKC_API.G_MISS_NUM)
3970: THEN
3971: x_cnh_rec.application_id := l_cnh_rec.application_id;
3972: END IF;
3973: IF (x_cnh_rec.seeded_flag = OKC_API.G_MISS_CHAR)
3974: THEN
3975: x_cnh_rec.seeded_flag := l_cnh_rec.seeded_flag;
3976: END IF;
3977: IF (x_cnh_rec.last_rundate = OKC_API.G_MISS_DATE)
3973: IF (x_cnh_rec.seeded_flag = OKC_API.G_MISS_CHAR)
3974: THEN
3975: x_cnh_rec.seeded_flag := l_cnh_rec.seeded_flag;
3976: END IF;
3977: IF (x_cnh_rec.last_rundate = OKC_API.G_MISS_DATE)
3978: THEN
3979: x_cnh_rec.last_rundate := l_cnh_rec.last_rundate;
3980: END IF;
3981: RETURN(l_return_status);
3986: FUNCTION Set_Attributes (
3987: p_cnh_rec IN cnh_rec_type,
3988: x_cnh_rec OUT NOCOPY cnh_rec_type
3989: ) RETURN VARCHAR2 IS
3990: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3991: BEGIN
3992: x_cnh_rec := p_cnh_rec;
3993: RETURN(l_return_status);
3994: END Set_Attributes;
3992: x_cnh_rec := p_cnh_rec;
3993: RETURN(l_return_status);
3994: END Set_Attributes;
3995: BEGIN
3996: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3997: p_init_msg_list,
3998: '_PVT',
3999: x_return_status);
4000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3996: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3997: p_init_msg_list,
3998: '_PVT',
3999: x_return_status);
4000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4003: RAISE OKC_API.G_EXCEPTION_ERROR;
4004: END IF;
3997: p_init_msg_list,
3998: '_PVT',
3999: x_return_status);
4000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4003: RAISE OKC_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: --- Setting item attributes
3998: '_PVT',
3999: x_return_status);
4000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4003: RAISE OKC_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: --- Setting item attributes
4006: l_return_status := Set_Attributes(
3999: x_return_status);
4000: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4001: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4002: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4003: RAISE OKC_API.G_EXCEPTION_ERROR;
4004: END IF;
4005: --- Setting item attributes
4006: l_return_status := Set_Attributes(
4007: p_cnh_rec, -- IN
4006: l_return_status := Set_Attributes(
4007: p_cnh_rec, -- IN
4008: l_cnh_rec); -- OUT
4009: --- If any errors happen abort API
4010: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4013: RAISE OKC_API.G_EXCEPTION_ERROR;
4014: END IF;
4007: p_cnh_rec, -- IN
4008: l_cnh_rec); -- OUT
4009: --- If any errors happen abort API
4010: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4013: RAISE OKC_API.G_EXCEPTION_ERROR;
4014: END IF;
4015: l_return_status := populate_new_record(l_cnh_rec, l_def_cnh_rec);
4008: l_cnh_rec); -- OUT
4009: --- If any errors happen abort API
4010: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4013: RAISE OKC_API.G_EXCEPTION_ERROR;
4014: END IF;
4015: l_return_status := populate_new_record(l_cnh_rec, l_def_cnh_rec);
4016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4009: --- If any errors happen abort API
4010: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4013: RAISE OKC_API.G_EXCEPTION_ERROR;
4014: END IF;
4015: l_return_status := populate_new_record(l_cnh_rec, l_def_cnh_rec);
4016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4013: RAISE OKC_API.G_EXCEPTION_ERROR;
4014: END IF;
4015: l_return_status := populate_new_record(l_cnh_rec, l_def_cnh_rec);
4016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4018: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4019: RAISE OKC_API.G_EXCEPTION_ERROR;
4020: END IF;
4013: RAISE OKC_API.G_EXCEPTION_ERROR;
4014: END IF;
4015: l_return_status := populate_new_record(l_cnh_rec, l_def_cnh_rec);
4016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4018: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4019: RAISE OKC_API.G_EXCEPTION_ERROR;
4020: END IF;
4021: UPDATE OKC_CONDITION_HEADERS_B
4014: END IF;
4015: l_return_status := populate_new_record(l_cnh_rec, l_def_cnh_rec);
4016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4018: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4019: RAISE OKC_API.G_EXCEPTION_ERROR;
4020: END IF;
4021: UPDATE OKC_CONDITION_HEADERS_B
4022: SET ACN_ID = l_def_cnh_rec.acn_id,
4015: l_return_status := populate_new_record(l_cnh_rec, l_def_cnh_rec);
4016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4018: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4019: RAISE OKC_API.G_EXCEPTION_ERROR;
4020: END IF;
4021: UPDATE OKC_CONDITION_HEADERS_B
4022: SET ACN_ID = l_def_cnh_rec.acn_id,
4023: COUNTER_GROUP_ID = l_def_cnh_rec.counter_group_id,
4061: LAST_RUNDATE = l_def_cnh_rec.last_rundate
4062: WHERE ID = l_def_cnh_rec.id;
4063:
4064: x_cnh_rec := l_def_cnh_rec;
4065: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4066: EXCEPTION
4067: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4069: (
4063:
4064: x_cnh_rec := l_def_cnh_rec;
4065: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4066: EXCEPTION
4067: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4069: (
4070: l_api_name,
4071: G_PKG_NAME,
4064: x_cnh_rec := l_def_cnh_rec;
4065: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4066: EXCEPTION
4067: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4069: (
4070: l_api_name,
4071: G_PKG_NAME,
4072: 'OKC_API.G_RET_STS_ERROR',
4068: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4069: (
4070: l_api_name,
4071: G_PKG_NAME,
4072: 'OKC_API.G_RET_STS_ERROR',
4073: x_msg_count,
4074: x_msg_data,
4075: '_PVT'
4076: );
4073: x_msg_count,
4074: x_msg_data,
4075: '_PVT'
4076: );
4077: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4079: (
4080: l_api_name,
4081: G_PKG_NAME,
4074: x_msg_data,
4075: '_PVT'
4076: );
4077: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4079: (
4080: l_api_name,
4081: G_PKG_NAME,
4082: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4078: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4079: (
4080: l_api_name,
4081: G_PKG_NAME,
4082: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4083: x_msg_count,
4084: x_msg_data,
4085: '_PVT'
4086: );
4084: x_msg_data,
4085: '_PVT'
4086: );
4087: WHEN OTHERS THEN
4088: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4089: (
4090: l_api_name,
4091: G_PKG_NAME,
4092: 'OTHERS',
4107: x_okc_condition_headers_tl_rec OUT NOCOPY OkcConditionHeadersTlRecType) IS
4108:
4109: l_api_version CONSTANT NUMBER := 1;
4110: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
4111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4112: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType := p_okc_condition_headers_tl_rec;
4113: ldefokcconditionheaderstlrec OkcConditionHeadersTlRecType;
4114: l_row_notfound BOOLEAN := TRUE;
4115: ----------------------------------
4120: x_okc_condition_headers_tl_rec OUT NOCOPY OkcConditionHeadersTlRecType
4121: ) RETURN VARCHAR2 IS
4122: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType;
4123: l_row_notfound BOOLEAN := TRUE;
4124: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4125: BEGIN
4126: x_okc_condition_headers_tl_rec := p_okc_condition_headers_tl_rec;
4127: -- Get current database values
4128: l_okc_condition_headers_tl_rec := get_rec(p_okc_condition_headers_tl_rec, l_row_notfound);
4126: x_okc_condition_headers_tl_rec := p_okc_condition_headers_tl_rec;
4127: -- Get current database values
4128: l_okc_condition_headers_tl_rec := get_rec(p_okc_condition_headers_tl_rec, l_row_notfound);
4129: IF (l_row_notfound) THEN
4130: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4131: END IF;
4132: IF (x_okc_condition_headers_tl_rec.id = OKC_API.G_MISS_NUM)
4133: THEN
4134: x_okc_condition_headers_tl_rec.id := l_okc_condition_headers_tl_rec.id;
4128: l_okc_condition_headers_tl_rec := get_rec(p_okc_condition_headers_tl_rec, l_row_notfound);
4129: IF (l_row_notfound) THEN
4130: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4131: END IF;
4132: IF (x_okc_condition_headers_tl_rec.id = OKC_API.G_MISS_NUM)
4133: THEN
4134: x_okc_condition_headers_tl_rec.id := l_okc_condition_headers_tl_rec.id;
4135: END IF;
4136: IF (x_okc_condition_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
4132: IF (x_okc_condition_headers_tl_rec.id = OKC_API.G_MISS_NUM)
4133: THEN
4134: x_okc_condition_headers_tl_rec.id := l_okc_condition_headers_tl_rec.id;
4135: END IF;
4136: IF (x_okc_condition_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
4137: THEN
4138: x_okc_condition_headers_tl_rec.language := l_okc_condition_headers_tl_rec.language;
4139: END IF;
4140: IF (x_okc_condition_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4136: IF (x_okc_condition_headers_tl_rec.language = OKC_API.G_MISS_CHAR)
4137: THEN
4138: x_okc_condition_headers_tl_rec.language := l_okc_condition_headers_tl_rec.language;
4139: END IF;
4140: IF (x_okc_condition_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4141: THEN
4142: x_okc_condition_headers_tl_rec.source_lang := l_okc_condition_headers_tl_rec.source_lang;
4143: END IF;
4144: IF (x_okc_condition_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4140: IF (x_okc_condition_headers_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
4141: THEN
4142: x_okc_condition_headers_tl_rec.source_lang := l_okc_condition_headers_tl_rec.source_lang;
4143: END IF;
4144: IF (x_okc_condition_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4145: THEN
4146: x_okc_condition_headers_tl_rec.sfwt_flag := l_okc_condition_headers_tl_rec.sfwt_flag;
4147: END IF;
4148: IF (x_okc_condition_headers_tl_rec.name = OKC_API.G_MISS_CHAR)
4144: IF (x_okc_condition_headers_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4145: THEN
4146: x_okc_condition_headers_tl_rec.sfwt_flag := l_okc_condition_headers_tl_rec.sfwt_flag;
4147: END IF;
4148: IF (x_okc_condition_headers_tl_rec.name = OKC_API.G_MISS_CHAR)
4149: THEN
4150: x_okc_condition_headers_tl_rec.name := l_okc_condition_headers_tl_rec.name;
4151: END IF;
4152: IF (x_okc_condition_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
4148: IF (x_okc_condition_headers_tl_rec.name = OKC_API.G_MISS_CHAR)
4149: THEN
4150: x_okc_condition_headers_tl_rec.name := l_okc_condition_headers_tl_rec.name;
4151: END IF;
4152: IF (x_okc_condition_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
4153: THEN
4154: x_okc_condition_headers_tl_rec.description := l_okc_condition_headers_tl_rec.description;
4155: END IF;
4156: IF (x_okc_condition_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
4152: IF (x_okc_condition_headers_tl_rec.description = OKC_API.G_MISS_CHAR)
4153: THEN
4154: x_okc_condition_headers_tl_rec.description := l_okc_condition_headers_tl_rec.description;
4155: END IF;
4156: IF (x_okc_condition_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
4157: THEN
4158: x_okc_condition_headers_tl_rec.short_description := l_okc_condition_headers_tl_rec.short_description;
4159: END IF;
4160: IF (x_okc_condition_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
4156: IF (x_okc_condition_headers_tl_rec.short_description = OKC_API.G_MISS_CHAR)
4157: THEN
4158: x_okc_condition_headers_tl_rec.short_description := l_okc_condition_headers_tl_rec.short_description;
4159: END IF;
4160: IF (x_okc_condition_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
4161: THEN
4162: x_okc_condition_headers_tl_rec.comments := l_okc_condition_headers_tl_rec.comments;
4163: END IF;
4164: IF (x_okc_condition_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
4160: IF (x_okc_condition_headers_tl_rec.comments = OKC_API.G_MISS_CHAR)
4161: THEN
4162: x_okc_condition_headers_tl_rec.comments := l_okc_condition_headers_tl_rec.comments;
4163: END IF;
4164: IF (x_okc_condition_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
4165: THEN
4166: x_okc_condition_headers_tl_rec.created_by := l_okc_condition_headers_tl_rec.created_by;
4167: END IF;
4168: IF (x_okc_condition_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4164: IF (x_okc_condition_headers_tl_rec.created_by = OKC_API.G_MISS_NUM)
4165: THEN
4166: x_okc_condition_headers_tl_rec.created_by := l_okc_condition_headers_tl_rec.created_by;
4167: END IF;
4168: IF (x_okc_condition_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4169: THEN
4170: x_okc_condition_headers_tl_rec.creation_date := l_okc_condition_headers_tl_rec.creation_date;
4171: END IF;
4172: IF (x_okc_condition_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4168: IF (x_okc_condition_headers_tl_rec.creation_date = OKC_API.G_MISS_DATE)
4169: THEN
4170: x_okc_condition_headers_tl_rec.creation_date := l_okc_condition_headers_tl_rec.creation_date;
4171: END IF;
4172: IF (x_okc_condition_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4173: THEN
4174: x_okc_condition_headers_tl_rec.last_updated_by := l_okc_condition_headers_tl_rec.last_updated_by;
4175: END IF;
4176: IF (x_okc_condition_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4172: IF (x_okc_condition_headers_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
4173: THEN
4174: x_okc_condition_headers_tl_rec.last_updated_by := l_okc_condition_headers_tl_rec.last_updated_by;
4175: END IF;
4176: IF (x_okc_condition_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4177: THEN
4178: x_okc_condition_headers_tl_rec.last_update_date := l_okc_condition_headers_tl_rec.last_update_date;
4179: END IF;
4180: IF (x_okc_condition_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
4176: IF (x_okc_condition_headers_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
4177: THEN
4178: x_okc_condition_headers_tl_rec.last_update_date := l_okc_condition_headers_tl_rec.last_update_date;
4179: END IF;
4180: IF (x_okc_condition_headers_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
4181: THEN
4182: x_okc_condition_headers_tl_rec.last_update_login := l_okc_condition_headers_tl_rec.last_update_login;
4183: END IF;
4184: RETURN(l_return_status);
4189: FUNCTION Set_Attributes (
4190: p_okc_condition_headers_tl_rec IN OkcConditionHeadersTlRecType,
4191: x_okc_condition_headers_tl_rec OUT NOCOPY OkcConditionHeadersTlRecType
4192: ) RETURN VARCHAR2 IS
4193: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4194: BEGIN
4195: x_okc_condition_headers_tl_rec := p_okc_condition_headers_tl_rec;
4196: x_okc_condition_headers_tl_rec.LANGUAGE := l_lang;
4197: x_okc_condition_headers_tl_rec.SOURCE_LANG := l_lang;
4197: x_okc_condition_headers_tl_rec.SOURCE_LANG := l_lang;
4198: RETURN(l_return_status);
4199: END Set_Attributes;
4200: BEGIN
4201: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4202: p_init_msg_list,
4203: '_PVT',
4204: x_return_status);
4205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4201: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4202: p_init_msg_list,
4203: '_PVT',
4204: x_return_status);
4205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4207: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4208: RAISE OKC_API.G_EXCEPTION_ERROR;
4209: END IF;
4202: p_init_msg_list,
4203: '_PVT',
4204: x_return_status);
4205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4207: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4208: RAISE OKC_API.G_EXCEPTION_ERROR;
4209: END IF;
4210: --- Setting item attributes
4203: '_PVT',
4204: x_return_status);
4205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4207: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4208: RAISE OKC_API.G_EXCEPTION_ERROR;
4209: END IF;
4210: --- Setting item attributes
4211: l_return_status := Set_Attributes(
4204: x_return_status);
4205: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4206: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4207: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4208: RAISE OKC_API.G_EXCEPTION_ERROR;
4209: END IF;
4210: --- Setting item attributes
4211: l_return_status := Set_Attributes(
4212: p_okc_condition_headers_tl_rec, -- IN
4211: l_return_status := Set_Attributes(
4212: p_okc_condition_headers_tl_rec, -- IN
4213: l_okc_condition_headers_tl_rec); -- OUT
4214: --- If any errors happen abort API
4215: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4216: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4217: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4218: RAISE OKC_API.G_EXCEPTION_ERROR;
4219: END IF;
4212: p_okc_condition_headers_tl_rec, -- IN
4213: l_okc_condition_headers_tl_rec); -- OUT
4214: --- If any errors happen abort API
4215: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4216: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4217: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4218: RAISE OKC_API.G_EXCEPTION_ERROR;
4219: END IF;
4220: l_return_status := populate_new_record(l_okc_condition_headers_tl_rec, ldefokcconditionheaderstlrec);
4213: l_okc_condition_headers_tl_rec); -- OUT
4214: --- If any errors happen abort API
4215: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4216: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4217: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4218: RAISE OKC_API.G_EXCEPTION_ERROR;
4219: END IF;
4220: l_return_status := populate_new_record(l_okc_condition_headers_tl_rec, ldefokcconditionheaderstlrec);
4221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4214: --- If any errors happen abort API
4215: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4216: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4217: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4218: RAISE OKC_API.G_EXCEPTION_ERROR;
4219: END IF;
4220: l_return_status := populate_new_record(l_okc_condition_headers_tl_rec, ldefokcconditionheaderstlrec);
4221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4222: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4217: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4218: RAISE OKC_API.G_EXCEPTION_ERROR;
4219: END IF;
4220: l_return_status := populate_new_record(l_okc_condition_headers_tl_rec, ldefokcconditionheaderstlrec);
4221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4222: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4223: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4224: RAISE OKC_API.G_EXCEPTION_ERROR;
4225: END IF;
4218: RAISE OKC_API.G_EXCEPTION_ERROR;
4219: END IF;
4220: l_return_status := populate_new_record(l_okc_condition_headers_tl_rec, ldefokcconditionheaderstlrec);
4221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4222: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4223: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4224: RAISE OKC_API.G_EXCEPTION_ERROR;
4225: END IF;
4226: UPDATE OKC_CONDITION_HEADERS_TL
4219: END IF;
4220: l_return_status := populate_new_record(l_okc_condition_headers_tl_rec, ldefokcconditionheaderstlrec);
4221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4222: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4223: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4224: RAISE OKC_API.G_EXCEPTION_ERROR;
4225: END IF;
4226: UPDATE OKC_CONDITION_HEADERS_TL
4227: SET NAME = ldefokcconditionheaderstlrec.name,
4220: l_return_status := populate_new_record(l_okc_condition_headers_tl_rec, ldefokcconditionheaderstlrec);
4221: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4222: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4223: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4224: RAISE OKC_API.G_EXCEPTION_ERROR;
4225: END IF;
4226: UPDATE OKC_CONDITION_HEADERS_TL
4227: SET NAME = ldefokcconditionheaderstlrec.name,
4228: SOURCE_LANG = ldefokcconditionheaderstlrec.source_lang,
4243: WHERE ID = ldefokcconditionheaderstlrec.id
4244: AND SOURCE_LANG <> USERENV('LANG');
4245:
4246: x_okc_condition_headers_tl_rec := ldefokcconditionheaderstlrec;
4247: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4248: EXCEPTION
4249: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4250: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4251: (
4245:
4246: x_okc_condition_headers_tl_rec := ldefokcconditionheaderstlrec;
4247: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4248: EXCEPTION
4249: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4250: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4251: (
4252: l_api_name,
4253: G_PKG_NAME,
4246: x_okc_condition_headers_tl_rec := ldefokcconditionheaderstlrec;
4247: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4248: EXCEPTION
4249: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4250: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4251: (
4252: l_api_name,
4253: G_PKG_NAME,
4254: 'OKC_API.G_RET_STS_ERROR',
4250: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4251: (
4252: l_api_name,
4253: G_PKG_NAME,
4254: 'OKC_API.G_RET_STS_ERROR',
4255: x_msg_count,
4256: x_msg_data,
4257: '_PVT'
4258: );
4255: x_msg_count,
4256: x_msg_data,
4257: '_PVT'
4258: );
4259: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4260: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4261: (
4262: l_api_name,
4263: G_PKG_NAME,
4256: x_msg_data,
4257: '_PVT'
4258: );
4259: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4260: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4261: (
4262: l_api_name,
4263: G_PKG_NAME,
4264: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4260: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4261: (
4262: l_api_name,
4263: G_PKG_NAME,
4264: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4265: x_msg_count,
4266: x_msg_data,
4267: '_PVT'
4268: );
4266: x_msg_data,
4267: '_PVT'
4268: );
4269: WHEN OTHERS THEN
4270: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4271: (
4272: l_api_name,
4273: G_PKG_NAME,
4274: 'OTHERS',
4290: x_cnhv_rec OUT NOCOPY cnhv_rec_type) IS
4291:
4292: l_api_version CONSTANT NUMBER := 1;
4293: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
4294: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4295: l_cnhv_rec cnhv_rec_type := p_cnhv_rec;
4296: l_def_cnhv_rec cnhv_rec_type;
4297: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType;
4298: LxOkcConditionHeadersTlRec OkcConditionHeadersTlRecType;
4319: x_cnhv_rec OUT NOCOPY cnhv_rec_type
4320: ) RETURN VARCHAR2 IS
4321: l_cnhv_rec cnhv_rec_type;
4322: l_row_notfound BOOLEAN := TRUE;
4323: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4324: BEGIN
4325: x_cnhv_rec := p_cnhv_rec;
4326: -- Get current database values
4327: l_cnhv_rec := get_rec(p_cnhv_rec, l_row_notfound);
4325: x_cnhv_rec := p_cnhv_rec;
4326: -- Get current database values
4327: l_cnhv_rec := get_rec(p_cnhv_rec, l_row_notfound);
4328: IF (l_row_notfound) THEN
4329: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4330: END IF;
4331: IF (x_cnhv_rec.id = OKC_API.G_MISS_NUM)
4332: THEN
4333: x_cnhv_rec.id := l_cnhv_rec.id;
4327: l_cnhv_rec := get_rec(p_cnhv_rec, l_row_notfound);
4328: IF (l_row_notfound) THEN
4329: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4330: END IF;
4331: IF (x_cnhv_rec.id = OKC_API.G_MISS_NUM)
4332: THEN
4333: x_cnhv_rec.id := l_cnhv_rec.id;
4334: END IF;
4335: IF (x_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM)
4331: IF (x_cnhv_rec.id = OKC_API.G_MISS_NUM)
4332: THEN
4333: x_cnhv_rec.id := l_cnhv_rec.id;
4334: END IF;
4335: IF (x_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM)
4336: THEN
4337: x_cnhv_rec.object_version_number := l_cnhv_rec.object_version_number;
4338: END IF;
4339: IF (x_cnhv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4335: IF (x_cnhv_rec.object_version_number = OKC_API.G_MISS_NUM)
4336: THEN
4337: x_cnhv_rec.object_version_number := l_cnhv_rec.object_version_number;
4338: END IF;
4339: IF (x_cnhv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4340: THEN
4341: x_cnhv_rec.sfwt_flag := l_cnhv_rec.sfwt_flag;
4342: END IF;
4343: IF (x_cnhv_rec.acn_id = OKC_API.G_MISS_NUM)
4339: IF (x_cnhv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
4340: THEN
4341: x_cnhv_rec.sfwt_flag := l_cnhv_rec.sfwt_flag;
4342: END IF;
4343: IF (x_cnhv_rec.acn_id = OKC_API.G_MISS_NUM)
4344: THEN
4345: x_cnhv_rec.acn_id := l_cnhv_rec.acn_id;
4346: END IF;
4347: IF (x_cnhv_rec.counter_group_id = OKC_API.G_MISS_NUM)
4343: IF (x_cnhv_rec.acn_id = OKC_API.G_MISS_NUM)
4344: THEN
4345: x_cnhv_rec.acn_id := l_cnhv_rec.acn_id;
4346: END IF;
4347: IF (x_cnhv_rec.counter_group_id = OKC_API.G_MISS_NUM)
4348: THEN
4349: x_cnhv_rec.counter_group_id := l_cnhv_rec.counter_group_id;
4350: END IF;
4351: IF (x_cnhv_rec.description = OKC_API.G_MISS_CHAR)
4347: IF (x_cnhv_rec.counter_group_id = OKC_API.G_MISS_NUM)
4348: THEN
4349: x_cnhv_rec.counter_group_id := l_cnhv_rec.counter_group_id;
4350: END IF;
4351: IF (x_cnhv_rec.description = OKC_API.G_MISS_CHAR)
4352: THEN
4353: x_cnhv_rec.description := l_cnhv_rec.description;
4354: END IF;
4355: IF (x_cnhv_rec.short_description = OKC_API.G_MISS_CHAR)
4351: IF (x_cnhv_rec.description = OKC_API.G_MISS_CHAR)
4352: THEN
4353: x_cnhv_rec.description := l_cnhv_rec.description;
4354: END IF;
4355: IF (x_cnhv_rec.short_description = OKC_API.G_MISS_CHAR)
4356: THEN
4357: x_cnhv_rec.short_description := l_cnhv_rec.short_description;
4358: END IF;
4359: IF (x_cnhv_rec.comments = OKC_API.G_MISS_CHAR)
4355: IF (x_cnhv_rec.short_description = OKC_API.G_MISS_CHAR)
4356: THEN
4357: x_cnhv_rec.short_description := l_cnhv_rec.short_description;
4358: END IF;
4359: IF (x_cnhv_rec.comments = OKC_API.G_MISS_CHAR)
4360: THEN
4361: x_cnhv_rec.comments := l_cnhv_rec.comments;
4362: END IF;
4363: IF (x_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR)
4359: IF (x_cnhv_rec.comments = OKC_API.G_MISS_CHAR)
4360: THEN
4361: x_cnhv_rec.comments := l_cnhv_rec.comments;
4362: END IF;
4363: IF (x_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR)
4364: THEN
4365: x_cnhv_rec.one_time_yn := l_cnhv_rec.one_time_yn;
4366: END IF;
4367: IF (x_cnhv_rec.name = OKC_API.G_MISS_CHAR)
4363: IF (x_cnhv_rec.one_time_yn = OKC_API.G_MISS_CHAR)
4364: THEN
4365: x_cnhv_rec.one_time_yn := l_cnhv_rec.one_time_yn;
4366: END IF;
4367: IF (x_cnhv_rec.name = OKC_API.G_MISS_CHAR)
4368: THEN
4369: x_cnhv_rec.name := l_cnhv_rec.name;
4370: END IF;
4371: IF (x_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR)
4367: IF (x_cnhv_rec.name = OKC_API.G_MISS_CHAR)
4368: THEN
4369: x_cnhv_rec.name := l_cnhv_rec.name;
4370: END IF;
4371: IF (x_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR)
4372: THEN
4373: x_cnhv_rec.condition_valid_yn := l_cnhv_rec.condition_valid_yn;
4374: END IF;
4375: IF (x_cnhv_rec.before_after = OKC_API.G_MISS_CHAR)
4371: IF (x_cnhv_rec.condition_valid_yn = OKC_API.G_MISS_CHAR)
4372: THEN
4373: x_cnhv_rec.condition_valid_yn := l_cnhv_rec.condition_valid_yn;
4374: END IF;
4375: IF (x_cnhv_rec.before_after = OKC_API.G_MISS_CHAR)
4376: THEN
4377: x_cnhv_rec.before_after := l_cnhv_rec.before_after;
4378: END IF;
4379: IF (x_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR)
4375: IF (x_cnhv_rec.before_after = OKC_API.G_MISS_CHAR)
4376: THEN
4377: x_cnhv_rec.before_after := l_cnhv_rec.before_after;
4378: END IF;
4379: IF (x_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR)
4380: THEN
4381: x_cnhv_rec.tracked_yn := l_cnhv_rec.tracked_yn;
4382: END IF;
4383: IF (x_cnhv_rec.cnh_variance = OKC_API.G_MISS_NUM)
4379: IF (x_cnhv_rec.tracked_yn = OKC_API.G_MISS_CHAR)
4380: THEN
4381: x_cnhv_rec.tracked_yn := l_cnhv_rec.tracked_yn;
4382: END IF;
4383: IF (x_cnhv_rec.cnh_variance = OKC_API.G_MISS_NUM)
4384: THEN
4385: x_cnhv_rec.cnh_variance := l_cnhv_rec.cnh_variance;
4386: END IF;
4387: IF (x_cnhv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
4383: IF (x_cnhv_rec.cnh_variance = OKC_API.G_MISS_NUM)
4384: THEN
4385: x_cnhv_rec.cnh_variance := l_cnhv_rec.cnh_variance;
4386: END IF;
4387: IF (x_cnhv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
4388: THEN
4389: x_cnhv_rec.dnz_chr_id := l_cnhv_rec.dnz_chr_id;
4390: END IF;
4391: IF (x_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR)
4387: IF (x_cnhv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
4388: THEN
4389: x_cnhv_rec.dnz_chr_id := l_cnhv_rec.dnz_chr_id;
4390: END IF;
4391: IF (x_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR)
4392: THEN
4393: x_cnhv_rec.template_yn := l_cnhv_rec.template_yn;
4394: END IF;
4395: IF (x_cnhv_rec.date_active = OKC_API.G_MISS_DATE)
4391: IF (x_cnhv_rec.template_yn = OKC_API.G_MISS_CHAR)
4392: THEN
4393: x_cnhv_rec.template_yn := l_cnhv_rec.template_yn;
4394: END IF;
4395: IF (x_cnhv_rec.date_active = OKC_API.G_MISS_DATE)
4396: THEN
4397: x_cnhv_rec.date_active := l_cnhv_rec.date_active;
4398: END IF;
4399: IF (x_cnhv_rec.object_id = OKC_API.G_MISS_NUM)
4395: IF (x_cnhv_rec.date_active = OKC_API.G_MISS_DATE)
4396: THEN
4397: x_cnhv_rec.date_active := l_cnhv_rec.date_active;
4398: END IF;
4399: IF (x_cnhv_rec.object_id = OKC_API.G_MISS_NUM)
4400: THEN
4401: x_cnhv_rec.object_id := l_cnhv_rec.object_id;
4402: END IF;
4403: IF (x_cnhv_rec.date_inactive = OKC_API.G_MISS_DATE)
4399: IF (x_cnhv_rec.object_id = OKC_API.G_MISS_NUM)
4400: THEN
4401: x_cnhv_rec.object_id := l_cnhv_rec.object_id;
4402: END IF;
4403: IF (x_cnhv_rec.date_inactive = OKC_API.G_MISS_DATE)
4404: THEN
4405: x_cnhv_rec.date_inactive := l_cnhv_rec.date_inactive;
4406: END IF;
4407: IF (x_cnhv_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
4403: IF (x_cnhv_rec.date_inactive = OKC_API.G_MISS_DATE)
4404: THEN
4405: x_cnhv_rec.date_inactive := l_cnhv_rec.date_inactive;
4406: END IF;
4407: IF (x_cnhv_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
4408: THEN
4409: x_cnhv_rec.jtot_object_code := l_cnhv_rec.jtot_object_code;
4410: END IF;
4411: IF (x_cnhv_rec.task_owner_id = OKC_API.G_MISS_NUM)
4407: IF (x_cnhv_rec.jtot_object_code = OKC_API.G_MISS_CHAR)
4408: THEN
4409: x_cnhv_rec.jtot_object_code := l_cnhv_rec.jtot_object_code;
4410: END IF;
4411: IF (x_cnhv_rec.task_owner_id = OKC_API.G_MISS_NUM)
4412: THEN
4413: x_cnhv_rec.task_owner_id := l_cnhv_rec.task_owner_id;
4414: END IF;
4415: IF (x_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR)
4411: IF (x_cnhv_rec.task_owner_id = OKC_API.G_MISS_NUM)
4412: THEN
4413: x_cnhv_rec.task_owner_id := l_cnhv_rec.task_owner_id;
4414: END IF;
4415: IF (x_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR)
4416: THEN
4417: x_cnhv_rec.cnh_type := l_cnhv_rec.cnh_type;
4418: END IF;
4419: IF (x_cnhv_rec.application_id = OKC_API.G_MISS_NUM)
4415: IF (x_cnhv_rec.cnh_type = OKC_API.G_MISS_CHAR)
4416: THEN
4417: x_cnhv_rec.cnh_type := l_cnhv_rec.cnh_type;
4418: END IF;
4419: IF (x_cnhv_rec.application_id = OKC_API.G_MISS_NUM)
4420: THEN
4421: x_cnhv_rec.application_id := l_cnhv_rec.application_id;
4422: END IF;
4423: IF (x_cnhv_rec.seeded_flag = OKC_API.G_MISS_CHAR)
4419: IF (x_cnhv_rec.application_id = OKC_API.G_MISS_NUM)
4420: THEN
4421: x_cnhv_rec.application_id := l_cnhv_rec.application_id;
4422: END IF;
4423: IF (x_cnhv_rec.seeded_flag = OKC_API.G_MISS_CHAR)
4424: THEN
4425: x_cnhv_rec.seeded_flag := l_cnhv_rec.seeded_flag;
4426: END IF;
4427: IF (x_cnhv_rec.last_rundate = OKC_API.G_MISS_DATE)
4423: IF (x_cnhv_rec.seeded_flag = OKC_API.G_MISS_CHAR)
4424: THEN
4425: x_cnhv_rec.seeded_flag := l_cnhv_rec.seeded_flag;
4426: END IF;
4427: IF (x_cnhv_rec.last_rundate = OKC_API.G_MISS_DATE)
4428: THEN
4429: x_cnhv_rec.last_rundate := l_cnhv_rec.last_rundate;
4430: END IF;
4431: IF (x_cnhv_rec.attribute_category = OKC_API.G_MISS_CHAR)
4427: IF (x_cnhv_rec.last_rundate = OKC_API.G_MISS_DATE)
4428: THEN
4429: x_cnhv_rec.last_rundate := l_cnhv_rec.last_rundate;
4430: END IF;
4431: IF (x_cnhv_rec.attribute_category = OKC_API.G_MISS_CHAR)
4432: THEN
4433: x_cnhv_rec.attribute_category := l_cnhv_rec.attribute_category;
4434: END IF;
4435: IF (x_cnhv_rec.attribute1 = OKC_API.G_MISS_CHAR)
4431: IF (x_cnhv_rec.attribute_category = OKC_API.G_MISS_CHAR)
4432: THEN
4433: x_cnhv_rec.attribute_category := l_cnhv_rec.attribute_category;
4434: END IF;
4435: IF (x_cnhv_rec.attribute1 = OKC_API.G_MISS_CHAR)
4436: THEN
4437: x_cnhv_rec.attribute1 := l_cnhv_rec.attribute1;
4438: END IF;
4439: IF (x_cnhv_rec.attribute2 = OKC_API.G_MISS_CHAR)
4435: IF (x_cnhv_rec.attribute1 = OKC_API.G_MISS_CHAR)
4436: THEN
4437: x_cnhv_rec.attribute1 := l_cnhv_rec.attribute1;
4438: END IF;
4439: IF (x_cnhv_rec.attribute2 = OKC_API.G_MISS_CHAR)
4440: THEN
4441: x_cnhv_rec.attribute2 := l_cnhv_rec.attribute2;
4442: END IF;
4443: IF (x_cnhv_rec.attribute3 = OKC_API.G_MISS_CHAR)
4439: IF (x_cnhv_rec.attribute2 = OKC_API.G_MISS_CHAR)
4440: THEN
4441: x_cnhv_rec.attribute2 := l_cnhv_rec.attribute2;
4442: END IF;
4443: IF (x_cnhv_rec.attribute3 = OKC_API.G_MISS_CHAR)
4444: THEN
4445: x_cnhv_rec.attribute3 := l_cnhv_rec.attribute3;
4446: END IF;
4447: IF (x_cnhv_rec.attribute4 = OKC_API.G_MISS_CHAR)
4443: IF (x_cnhv_rec.attribute3 = OKC_API.G_MISS_CHAR)
4444: THEN
4445: x_cnhv_rec.attribute3 := l_cnhv_rec.attribute3;
4446: END IF;
4447: IF (x_cnhv_rec.attribute4 = OKC_API.G_MISS_CHAR)
4448: THEN
4449: x_cnhv_rec.attribute4 := l_cnhv_rec.attribute4;
4450: END IF;
4451: IF (x_cnhv_rec.attribute5 = OKC_API.G_MISS_CHAR)
4447: IF (x_cnhv_rec.attribute4 = OKC_API.G_MISS_CHAR)
4448: THEN
4449: x_cnhv_rec.attribute4 := l_cnhv_rec.attribute4;
4450: END IF;
4451: IF (x_cnhv_rec.attribute5 = OKC_API.G_MISS_CHAR)
4452: THEN
4453: x_cnhv_rec.attribute5 := l_cnhv_rec.attribute5;
4454: END IF;
4455: IF (x_cnhv_rec.attribute6 = OKC_API.G_MISS_CHAR)
4451: IF (x_cnhv_rec.attribute5 = OKC_API.G_MISS_CHAR)
4452: THEN
4453: x_cnhv_rec.attribute5 := l_cnhv_rec.attribute5;
4454: END IF;
4455: IF (x_cnhv_rec.attribute6 = OKC_API.G_MISS_CHAR)
4456: THEN
4457: x_cnhv_rec.attribute6 := l_cnhv_rec.attribute6;
4458: END IF;
4459: IF (x_cnhv_rec.attribute7 = OKC_API.G_MISS_CHAR)
4455: IF (x_cnhv_rec.attribute6 = OKC_API.G_MISS_CHAR)
4456: THEN
4457: x_cnhv_rec.attribute6 := l_cnhv_rec.attribute6;
4458: END IF;
4459: IF (x_cnhv_rec.attribute7 = OKC_API.G_MISS_CHAR)
4460: THEN
4461: x_cnhv_rec.attribute7 := l_cnhv_rec.attribute7;
4462: END IF;
4463: IF (x_cnhv_rec.attribute8 = OKC_API.G_MISS_CHAR)
4459: IF (x_cnhv_rec.attribute7 = OKC_API.G_MISS_CHAR)
4460: THEN
4461: x_cnhv_rec.attribute7 := l_cnhv_rec.attribute7;
4462: END IF;
4463: IF (x_cnhv_rec.attribute8 = OKC_API.G_MISS_CHAR)
4464: THEN
4465: x_cnhv_rec.attribute8 := l_cnhv_rec.attribute8;
4466: END IF;
4467: IF (x_cnhv_rec.attribute9 = OKC_API.G_MISS_CHAR)
4463: IF (x_cnhv_rec.attribute8 = OKC_API.G_MISS_CHAR)
4464: THEN
4465: x_cnhv_rec.attribute8 := l_cnhv_rec.attribute8;
4466: END IF;
4467: IF (x_cnhv_rec.attribute9 = OKC_API.G_MISS_CHAR)
4468: THEN
4469: x_cnhv_rec.attribute9 := l_cnhv_rec.attribute9;
4470: END IF;
4471: IF (x_cnhv_rec.attribute10 = OKC_API.G_MISS_CHAR)
4467: IF (x_cnhv_rec.attribute9 = OKC_API.G_MISS_CHAR)
4468: THEN
4469: x_cnhv_rec.attribute9 := l_cnhv_rec.attribute9;
4470: END IF;
4471: IF (x_cnhv_rec.attribute10 = OKC_API.G_MISS_CHAR)
4472: THEN
4473: x_cnhv_rec.attribute10 := l_cnhv_rec.attribute10;
4474: END IF;
4475: IF (x_cnhv_rec.attribute11 = OKC_API.G_MISS_CHAR)
4471: IF (x_cnhv_rec.attribute10 = OKC_API.G_MISS_CHAR)
4472: THEN
4473: x_cnhv_rec.attribute10 := l_cnhv_rec.attribute10;
4474: END IF;
4475: IF (x_cnhv_rec.attribute11 = OKC_API.G_MISS_CHAR)
4476: THEN
4477: x_cnhv_rec.attribute11 := l_cnhv_rec.attribute11;
4478: END IF;
4479: IF (x_cnhv_rec.attribute12 = OKC_API.G_MISS_CHAR)
4475: IF (x_cnhv_rec.attribute11 = OKC_API.G_MISS_CHAR)
4476: THEN
4477: x_cnhv_rec.attribute11 := l_cnhv_rec.attribute11;
4478: END IF;
4479: IF (x_cnhv_rec.attribute12 = OKC_API.G_MISS_CHAR)
4480: THEN
4481: x_cnhv_rec.attribute12 := l_cnhv_rec.attribute12;
4482: END IF;
4483: IF (x_cnhv_rec.attribute13 = OKC_API.G_MISS_CHAR)
4479: IF (x_cnhv_rec.attribute12 = OKC_API.G_MISS_CHAR)
4480: THEN
4481: x_cnhv_rec.attribute12 := l_cnhv_rec.attribute12;
4482: END IF;
4483: IF (x_cnhv_rec.attribute13 = OKC_API.G_MISS_CHAR)
4484: THEN
4485: x_cnhv_rec.attribute13 := l_cnhv_rec.attribute13;
4486: END IF;
4487: IF (x_cnhv_rec.attribute14 = OKC_API.G_MISS_CHAR)
4483: IF (x_cnhv_rec.attribute13 = OKC_API.G_MISS_CHAR)
4484: THEN
4485: x_cnhv_rec.attribute13 := l_cnhv_rec.attribute13;
4486: END IF;
4487: IF (x_cnhv_rec.attribute14 = OKC_API.G_MISS_CHAR)
4488: THEN
4489: x_cnhv_rec.attribute14 := l_cnhv_rec.attribute14;
4490: END IF;
4491: IF (x_cnhv_rec.attribute15 = OKC_API.G_MISS_CHAR)
4487: IF (x_cnhv_rec.attribute14 = OKC_API.G_MISS_CHAR)
4488: THEN
4489: x_cnhv_rec.attribute14 := l_cnhv_rec.attribute14;
4490: END IF;
4491: IF (x_cnhv_rec.attribute15 = OKC_API.G_MISS_CHAR)
4492: THEN
4493: x_cnhv_rec.attribute15 := l_cnhv_rec.attribute15;
4494: END IF;
4495: IF (x_cnhv_rec.created_by = OKC_API.G_MISS_NUM)
4491: IF (x_cnhv_rec.attribute15 = OKC_API.G_MISS_CHAR)
4492: THEN
4493: x_cnhv_rec.attribute15 := l_cnhv_rec.attribute15;
4494: END IF;
4495: IF (x_cnhv_rec.created_by = OKC_API.G_MISS_NUM)
4496: THEN
4497: x_cnhv_rec.created_by := l_cnhv_rec.created_by;
4498: END IF;
4499: IF (x_cnhv_rec.creation_date = OKC_API.G_MISS_DATE)
4495: IF (x_cnhv_rec.created_by = OKC_API.G_MISS_NUM)
4496: THEN
4497: x_cnhv_rec.created_by := l_cnhv_rec.created_by;
4498: END IF;
4499: IF (x_cnhv_rec.creation_date = OKC_API.G_MISS_DATE)
4500: THEN
4501: x_cnhv_rec.creation_date := l_cnhv_rec.creation_date;
4502: END IF;
4503: IF (x_cnhv_rec.last_updated_by = OKC_API.G_MISS_NUM)
4499: IF (x_cnhv_rec.creation_date = OKC_API.G_MISS_DATE)
4500: THEN
4501: x_cnhv_rec.creation_date := l_cnhv_rec.creation_date;
4502: END IF;
4503: IF (x_cnhv_rec.last_updated_by = OKC_API.G_MISS_NUM)
4504: THEN
4505: x_cnhv_rec.last_updated_by := l_cnhv_rec.last_updated_by;
4506: END IF;
4507: IF (x_cnhv_rec.last_update_date = OKC_API.G_MISS_DATE)
4503: IF (x_cnhv_rec.last_updated_by = OKC_API.G_MISS_NUM)
4504: THEN
4505: x_cnhv_rec.last_updated_by := l_cnhv_rec.last_updated_by;
4506: END IF;
4507: IF (x_cnhv_rec.last_update_date = OKC_API.G_MISS_DATE)
4508: THEN
4509: x_cnhv_rec.last_update_date := l_cnhv_rec.last_update_date;
4510: END IF;
4511: IF (x_cnhv_rec.last_update_login = OKC_API.G_MISS_NUM)
4507: IF (x_cnhv_rec.last_update_date = OKC_API.G_MISS_DATE)
4508: THEN
4509: x_cnhv_rec.last_update_date := l_cnhv_rec.last_update_date;
4510: END IF;
4511: IF (x_cnhv_rec.last_update_login = OKC_API.G_MISS_NUM)
4512: THEN
4513: x_cnhv_rec.last_update_login := l_cnhv_rec.last_update_login;
4514: END IF;
4515: RETURN(l_return_status);
4520: FUNCTION Set_Attributes (
4521: p_cnhv_rec IN cnhv_rec_type,
4522: x_cnhv_rec OUT NOCOPY cnhv_rec_type
4523: ) RETURN VARCHAR2 IS
4524: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4525: BEGIN
4526: x_cnhv_rec := p_cnhv_rec;
4527: x_cnhv_rec.OBJECT_VERSION_NUMBER := NVL(x_cnhv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
4528: RETURN(l_return_status);
4527: x_cnhv_rec.OBJECT_VERSION_NUMBER := NVL(x_cnhv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
4528: RETURN(l_return_status);
4529: END Set_Attributes;
4530: BEGIN
4531: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4532: G_PKG_NAME,
4533: p_init_msg_list,
4534: l_api_version,
4535: p_api_version,
4534: l_api_version,
4535: p_api_version,
4536: '_PVT',
4537: x_return_status);
4538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4541: RAISE OKC_API.G_EXCEPTION_ERROR;
4542: END IF;
4535: p_api_version,
4536: '_PVT',
4537: x_return_status);
4538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4541: RAISE OKC_API.G_EXCEPTION_ERROR;
4542: END IF;
4543: /*
4536: '_PVT',
4537: x_return_status);
4538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4541: RAISE OKC_API.G_EXCEPTION_ERROR;
4542: END IF;
4543: /*
4544: -- Seed data should not be updated
4537: x_return_status);
4538: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4539: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4540: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4541: RAISE OKC_API.G_EXCEPTION_ERROR;
4542: END IF;
4543: /*
4544: -- Seed data should not be updated
4545: IF l_cnhv_rec.last_updated_by <> 1 THEN
4543: /*
4544: -- Seed data should not be updated
4545: IF l_cnhv_rec.last_updated_by <> 1 THEN
4546: IF l_cnhv_rec.seeded_flag = 'Y' THEN
4547: OKC_API.set_message(p_app_name => G_APP_NAME,
4548: p_msg_name => 'OKC_NOT_DELETE_SEEDED');
4549: RAISE OKC_API.G_EXCEPTION_ERROR;
4550: END IF;
4551: END IF;*/
4545: IF l_cnhv_rec.last_updated_by <> 1 THEN
4546: IF l_cnhv_rec.seeded_flag = 'Y' THEN
4547: OKC_API.set_message(p_app_name => G_APP_NAME,
4548: p_msg_name => 'OKC_NOT_DELETE_SEEDED');
4549: RAISE OKC_API.G_EXCEPTION_ERROR;
4550: END IF;
4551: END IF;*/
4552: --- Setting item attributes
4553: l_return_status := Set_Attributes(
4553: l_return_status := Set_Attributes(
4554: p_cnhv_rec, -- IN
4555: l_cnhv_rec); -- OUT
4556: --- If any errors happen abort API
4557: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4558: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4560: RAISE OKC_API.G_EXCEPTION_ERROR;
4561: END IF;
4554: p_cnhv_rec, -- IN
4555: l_cnhv_rec); -- OUT
4556: --- If any errors happen abort API
4557: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4558: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4560: RAISE OKC_API.G_EXCEPTION_ERROR;
4561: END IF;
4562: l_return_status := populate_new_record(l_cnhv_rec, l_def_cnhv_rec);
4555: l_cnhv_rec); -- OUT
4556: --- If any errors happen abort API
4557: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4558: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4560: RAISE OKC_API.G_EXCEPTION_ERROR;
4561: END IF;
4562: l_return_status := populate_new_record(l_cnhv_rec, l_def_cnhv_rec);
4563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4556: --- If any errors happen abort API
4557: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4558: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4560: RAISE OKC_API.G_EXCEPTION_ERROR;
4561: END IF;
4562: l_return_status := populate_new_record(l_cnhv_rec, l_def_cnhv_rec);
4563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4559: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4560: RAISE OKC_API.G_EXCEPTION_ERROR;
4561: END IF;
4562: l_return_status := populate_new_record(l_cnhv_rec, l_def_cnhv_rec);
4563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4566: RAISE OKC_API.G_EXCEPTION_ERROR;
4567: END IF;
4560: RAISE OKC_API.G_EXCEPTION_ERROR;
4561: END IF;
4562: l_return_status := populate_new_record(l_cnhv_rec, l_def_cnhv_rec);
4563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4566: RAISE OKC_API.G_EXCEPTION_ERROR;
4567: END IF;
4568: l_def_cnhv_rec := fill_who_columns(l_def_cnhv_rec);
4561: END IF;
4562: l_return_status := populate_new_record(l_cnhv_rec, l_def_cnhv_rec);
4563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4566: RAISE OKC_API.G_EXCEPTION_ERROR;
4567: END IF;
4568: l_def_cnhv_rec := fill_who_columns(l_def_cnhv_rec);
4569: --- Validate all non-missing attributes (Item Level Validation)
4562: l_return_status := populate_new_record(l_cnhv_rec, l_def_cnhv_rec);
4563: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4564: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4565: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4566: RAISE OKC_API.G_EXCEPTION_ERROR;
4567: END IF;
4568: l_def_cnhv_rec := fill_who_columns(l_def_cnhv_rec);
4569: --- Validate all non-missing attributes (Item Level Validation)
4570: l_return_status := Validate_Attributes(l_def_cnhv_rec);
4568: l_def_cnhv_rec := fill_who_columns(l_def_cnhv_rec);
4569: --- Validate all non-missing attributes (Item Level Validation)
4570: l_return_status := Validate_Attributes(l_def_cnhv_rec);
4571: --- If any errors happen abort API
4572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4569: --- Validate all non-missing attributes (Item Level Validation)
4570: l_return_status := Validate_Attributes(l_def_cnhv_rec);
4571: --- If any errors happen abort API
4572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_def_cnhv_rec);
4570: l_return_status := Validate_Attributes(l_def_cnhv_rec);
4571: --- If any errors happen abort API
4572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_def_cnhv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4571: --- If any errors happen abort API
4572: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4573: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_def_cnhv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4574: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_def_cnhv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4575: RAISE OKC_API.G_EXCEPTION_ERROR;
4576: END IF;
4577: l_return_status := Validate_Record(l_def_cnhv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4583:
4576: END IF;
4577: l_return_status := Validate_Record(l_def_cnhv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4583:
4584: /************ ADDED TO CHECK THE UNIQUENESS **********************/
4577: l_return_status := Validate_Record(l_def_cnhv_rec);
4578: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4579: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4580: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4581: RAISE OKC_API.G_EXCEPTION_ERROR;
4582: END IF;
4583:
4584: /************ ADDED TO CHECK THE UNIQUENESS **********************/
4585:
4586: -- Validate_Unique_Cnh_Record
4587: Validate_Unique_Cnh_Record(x_return_status,p_cnhv_rec);
4588: l_return_status := x_return_status;
4589: -- store the highest degree of error
4590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4592: ELSIF
4593: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4594: RAISE OKC_API.G_EXCEPTION_ERROR;
4587: Validate_Unique_Cnh_Record(x_return_status,p_cnhv_rec);
4588: l_return_status := x_return_status;
4589: -- store the highest degree of error
4590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4592: ELSIF
4593: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4594: RAISE OKC_API.G_EXCEPTION_ERROR;
4595: END IF;
4589: -- store the highest degree of error
4590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4592: ELSIF
4593: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4594: RAISE OKC_API.G_EXCEPTION_ERROR;
4595: END IF;
4596:
4597: /********** ADDED TO CHECK THE UNIQUENESS *************************/
4590: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4591: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4592: ELSIF
4593: (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4594: RAISE OKC_API.G_EXCEPTION_ERROR;
4595: END IF;
4596:
4597: /********** ADDED TO CHECK THE UNIQUENESS *************************/
4598:
4611: x_msg_data,
4612: l_okc_condition_headers_tl_rec,
4613: LxOkcConditionHeadersTlRec
4614: );
4615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4617: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4618: RAISE OKC_API.G_EXCEPTION_ERROR;
4619: END IF;
4612: l_okc_condition_headers_tl_rec,
4613: LxOkcConditionHeadersTlRec
4614: );
4615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4617: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4618: RAISE OKC_API.G_EXCEPTION_ERROR;
4619: END IF;
4620: migrate(LxOkcConditionHeadersTlRec, l_def_cnhv_rec);
4613: LxOkcConditionHeadersTlRec
4614: );
4615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4617: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4618: RAISE OKC_API.G_EXCEPTION_ERROR;
4619: END IF;
4620: migrate(LxOkcConditionHeadersTlRec, l_def_cnhv_rec);
4621: update_row(
4614: );
4615: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4616: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4617: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4618: RAISE OKC_API.G_EXCEPTION_ERROR;
4619: END IF;
4620: migrate(LxOkcConditionHeadersTlRec, l_def_cnhv_rec);
4621: update_row(
4622: p_init_msg_list,
4625: x_msg_data,
4626: l_cnh_rec,
4627: lx_cnh_rec
4628: );
4629: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4630: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4631: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4632: RAISE OKC_API.G_EXCEPTION_ERROR;
4633: END IF;
4626: l_cnh_rec,
4627: lx_cnh_rec
4628: );
4629: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4630: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4631: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4632: RAISE OKC_API.G_EXCEPTION_ERROR;
4633: END IF;
4634: migrate(lx_cnh_rec, l_def_cnhv_rec);
4627: lx_cnh_rec
4628: );
4629: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4630: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4631: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4632: RAISE OKC_API.G_EXCEPTION_ERROR;
4633: END IF;
4634: migrate(lx_cnh_rec, l_def_cnhv_rec);
4635: x_cnhv_rec := l_def_cnhv_rec;
4628: );
4629: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4630: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4631: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4632: RAISE OKC_API.G_EXCEPTION_ERROR;
4633: END IF;
4634: migrate(lx_cnh_rec, l_def_cnhv_rec);
4635: x_cnhv_rec := l_def_cnhv_rec;
4636: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4632: RAISE OKC_API.G_EXCEPTION_ERROR;
4633: END IF;
4634: migrate(lx_cnh_rec, l_def_cnhv_rec);
4635: x_cnhv_rec := l_def_cnhv_rec;
4636: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4637: EXCEPTION
4638: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4639: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4640: (
4634: migrate(lx_cnh_rec, l_def_cnhv_rec);
4635: x_cnhv_rec := l_def_cnhv_rec;
4636: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4637: EXCEPTION
4638: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4639: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4640: (
4641: l_api_name,
4642: G_PKG_NAME,
4635: x_cnhv_rec := l_def_cnhv_rec;
4636: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4637: EXCEPTION
4638: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4639: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4640: (
4641: l_api_name,
4642: G_PKG_NAME,
4643: 'OKC_API.G_RET_STS_ERROR',
4639: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4640: (
4641: l_api_name,
4642: G_PKG_NAME,
4643: 'OKC_API.G_RET_STS_ERROR',
4644: x_msg_count,
4645: x_msg_data,
4646: '_PVT'
4647: );
4644: x_msg_count,
4645: x_msg_data,
4646: '_PVT'
4647: );
4648: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4649: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4650: (
4651: l_api_name,
4652: G_PKG_NAME,
4645: x_msg_data,
4646: '_PVT'
4647: );
4648: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4649: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4650: (
4651: l_api_name,
4652: G_PKG_NAME,
4653: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4649: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4650: (
4651: l_api_name,
4652: G_PKG_NAME,
4653: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4654: x_msg_count,
4655: x_msg_data,
4656: '_PVT'
4657: );
4655: x_msg_data,
4656: '_PVT'
4657: );
4658: WHEN OTHERS THEN
4659: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4660: (
4661: l_api_name,
4662: G_PKG_NAME,
4663: 'OTHERS',
4679: x_cnhv_tbl OUT NOCOPY cnhv_tbl_type) IS
4680:
4681: l_api_version CONSTANT NUMBER := 1;
4682: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4683: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4684: i NUMBER := 0;
4685: BEGIN
4686: OKC_API.init_msg_list(p_init_msg_list);
4687: -- Make sure PL/SQL table has records in it before passing
4682: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4683: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4684: i NUMBER := 0;
4685: BEGIN
4686: OKC_API.init_msg_list(p_init_msg_list);
4687: -- Make sure PL/SQL table has records in it before passing
4688: IF (p_cnhv_tbl.COUNT > 0) THEN
4689: i := p_cnhv_tbl.FIRST;
4690: LOOP
4689: i := p_cnhv_tbl.FIRST;
4690: LOOP
4691: update_row (
4692: p_api_version => p_api_version,
4693: p_init_msg_list => OKC_API.G_FALSE,
4694: x_return_status => x_return_status,
4695: x_msg_count => x_msg_count,
4696: x_msg_data => x_msg_data,
4697: p_cnhv_rec => p_cnhv_tbl(i),
4700: i := p_cnhv_tbl.NEXT(i);
4701: END LOOP;
4702: END IF;
4703: EXCEPTION
4704: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4705: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4706: (
4707: l_api_name,
4708: G_PKG_NAME,
4701: END LOOP;
4702: END IF;
4703: EXCEPTION
4704: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4705: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4706: (
4707: l_api_name,
4708: G_PKG_NAME,
4709: 'OKC_API.G_RET_STS_ERROR',
4705: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4706: (
4707: l_api_name,
4708: G_PKG_NAME,
4709: 'OKC_API.G_RET_STS_ERROR',
4710: x_msg_count,
4711: x_msg_data,
4712: '_PVT'
4713: );
4710: x_msg_count,
4711: x_msg_data,
4712: '_PVT'
4713: );
4714: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4715: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4716: (
4717: l_api_name,
4718: G_PKG_NAME,
4711: x_msg_data,
4712: '_PVT'
4713: );
4714: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4715: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4716: (
4717: l_api_name,
4718: G_PKG_NAME,
4719: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4715: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4716: (
4717: l_api_name,
4718: G_PKG_NAME,
4719: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4720: x_msg_count,
4721: x_msg_data,
4722: '_PVT'
4723: );
4721: x_msg_data,
4722: '_PVT'
4723: );
4724: WHEN OTHERS THEN
4725: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4726: (
4727: l_api_name,
4728: G_PKG_NAME,
4729: 'OTHERS',
4747: p_cnh_rec IN cnh_rec_type) IS
4748:
4749: l_api_version CONSTANT NUMBER := 1;
4750: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
4751: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4752: l_cnh_rec cnh_rec_type:= p_cnh_rec;
4753: l_row_notfound BOOLEAN := TRUE;
4754: BEGIN
4755: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4751: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4752: l_cnh_rec cnh_rec_type:= p_cnh_rec;
4753: l_row_notfound BOOLEAN := TRUE;
4754: BEGIN
4755: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4756: p_init_msg_list,
4757: '_PVT',
4758: x_return_status);
4759: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4755: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4756: p_init_msg_list,
4757: '_PVT',
4758: x_return_status);
4759: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4762: RAISE OKC_API.G_EXCEPTION_ERROR;
4763: END IF;
4756: p_init_msg_list,
4757: '_PVT',
4758: x_return_status);
4759: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4762: RAISE OKC_API.G_EXCEPTION_ERROR;
4763: END IF;
4764: DELETE FROM OKC_CONDITION_HEADERS_B
4757: '_PVT',
4758: x_return_status);
4759: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4762: RAISE OKC_API.G_EXCEPTION_ERROR;
4763: END IF;
4764: DELETE FROM OKC_CONDITION_HEADERS_B
4765: WHERE ID = l_cnh_rec.id;
4758: x_return_status);
4759: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4760: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4761: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4762: RAISE OKC_API.G_EXCEPTION_ERROR;
4763: END IF;
4764: DELETE FROM OKC_CONDITION_HEADERS_B
4765: WHERE ID = l_cnh_rec.id;
4766:
4763: END IF;
4764: DELETE FROM OKC_CONDITION_HEADERS_B
4765: WHERE ID = l_cnh_rec.id;
4766:
4767: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4768: EXCEPTION
4769: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4771: (
4765: WHERE ID = l_cnh_rec.id;
4766:
4767: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4768: EXCEPTION
4769: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4771: (
4772: l_api_name,
4773: G_PKG_NAME,
4766:
4767: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4768: EXCEPTION
4769: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4771: (
4772: l_api_name,
4773: G_PKG_NAME,
4774: 'OKC_API.G_RET_STS_ERROR',
4770: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4771: (
4772: l_api_name,
4773: G_PKG_NAME,
4774: 'OKC_API.G_RET_STS_ERROR',
4775: x_msg_count,
4776: x_msg_data,
4777: '_PVT'
4778: );
4775: x_msg_count,
4776: x_msg_data,
4777: '_PVT'
4778: );
4779: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4780: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4781: (
4782: l_api_name,
4783: G_PKG_NAME,
4776: x_msg_data,
4777: '_PVT'
4778: );
4779: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4780: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4781: (
4782: l_api_name,
4783: G_PKG_NAME,
4784: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4780: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4781: (
4782: l_api_name,
4783: G_PKG_NAME,
4784: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4785: x_msg_count,
4786: x_msg_data,
4787: '_PVT'
4788: );
4786: x_msg_data,
4787: '_PVT'
4788: );
4789: WHEN OTHERS THEN
4790: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4791: (
4792: l_api_name,
4793: G_PKG_NAME,
4794: 'OTHERS',
4808: p_okc_condition_headers_tl_rec IN OkcConditionHeadersTlRecType) IS
4809:
4810: l_api_version CONSTANT NUMBER := 1;
4811: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
4812: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4813: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType:= p_okc_condition_headers_tl_rec;
4814: l_row_notfound BOOLEAN := TRUE;
4815: -------------------------------------------------
4816: -- Set_Attributes for:OKC_CONDITION_HEADERS_TL --
4818: FUNCTION Set_Attributes (
4819: p_okc_condition_headers_tl_rec IN OkcConditionHeadersTlRecType,
4820: x_okc_condition_headers_tl_rec OUT NOCOPY OkcConditionHeadersTlRecType
4821: ) RETURN VARCHAR2 IS
4822: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4823: BEGIN
4824: x_okc_condition_headers_tl_rec := p_okc_condition_headers_tl_rec;
4825: x_okc_condition_headers_tl_rec.LANGUAGE := l_lang;
4826: RETURN(l_return_status);
4825: x_okc_condition_headers_tl_rec.LANGUAGE := l_lang;
4826: RETURN(l_return_status);
4827: END Set_Attributes;
4828: BEGIN
4829: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4830: p_init_msg_list,
4831: '_PVT',
4832: x_return_status);
4833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4829: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4830: p_init_msg_list,
4831: '_PVT',
4832: x_return_status);
4833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4835: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4836: RAISE OKC_API.G_EXCEPTION_ERROR;
4837: END IF;
4830: p_init_msg_list,
4831: '_PVT',
4832: x_return_status);
4833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4835: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4836: RAISE OKC_API.G_EXCEPTION_ERROR;
4837: END IF;
4838: --- Setting item attributes
4831: '_PVT',
4832: x_return_status);
4833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4835: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4836: RAISE OKC_API.G_EXCEPTION_ERROR;
4837: END IF;
4838: --- Setting item attributes
4839: l_return_status := Set_Attributes(
4832: x_return_status);
4833: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4834: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4835: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4836: RAISE OKC_API.G_EXCEPTION_ERROR;
4837: END IF;
4838: --- Setting item attributes
4839: l_return_status := Set_Attributes(
4840: p_okc_condition_headers_tl_rec, -- IN
4839: l_return_status := Set_Attributes(
4840: p_okc_condition_headers_tl_rec, -- IN
4841: l_okc_condition_headers_tl_rec); -- OUT
4842: --- If any errors happen abort API
4843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4844: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4845: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4846: RAISE OKC_API.G_EXCEPTION_ERROR;
4847: END IF;
4840: p_okc_condition_headers_tl_rec, -- IN
4841: l_okc_condition_headers_tl_rec); -- OUT
4842: --- If any errors happen abort API
4843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4844: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4845: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4846: RAISE OKC_API.G_EXCEPTION_ERROR;
4847: END IF;
4848: DELETE FROM OKC_CONDITION_HEADERS_TL
4841: l_okc_condition_headers_tl_rec); -- OUT
4842: --- If any errors happen abort API
4843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4844: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4845: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4846: RAISE OKC_API.G_EXCEPTION_ERROR;
4847: END IF;
4848: DELETE FROM OKC_CONDITION_HEADERS_TL
4849: WHERE ID = l_okc_condition_headers_tl_rec.id;
4842: --- If any errors happen abort API
4843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4844: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4845: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4846: RAISE OKC_API.G_EXCEPTION_ERROR;
4847: END IF;
4848: DELETE FROM OKC_CONDITION_HEADERS_TL
4849: WHERE ID = l_okc_condition_headers_tl_rec.id;
4850:
4847: END IF;
4848: DELETE FROM OKC_CONDITION_HEADERS_TL
4849: WHERE ID = l_okc_condition_headers_tl_rec.id;
4850:
4851: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4852: EXCEPTION
4853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4855: (
4849: WHERE ID = l_okc_condition_headers_tl_rec.id;
4850:
4851: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4852: EXCEPTION
4853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4855: (
4856: l_api_name,
4857: G_PKG_NAME,
4850:
4851: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4852: EXCEPTION
4853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4855: (
4856: l_api_name,
4857: G_PKG_NAME,
4858: 'OKC_API.G_RET_STS_ERROR',
4854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4855: (
4856: l_api_name,
4857: G_PKG_NAME,
4858: 'OKC_API.G_RET_STS_ERROR',
4859: x_msg_count,
4860: x_msg_data,
4861: '_PVT'
4862: );
4859: x_msg_count,
4860: x_msg_data,
4861: '_PVT'
4862: );
4863: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4864: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4865: (
4866: l_api_name,
4867: G_PKG_NAME,
4860: x_msg_data,
4861: '_PVT'
4862: );
4863: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4864: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4865: (
4866: l_api_name,
4867: G_PKG_NAME,
4868: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4864: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4865: (
4866: l_api_name,
4867: G_PKG_NAME,
4868: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4869: x_msg_count,
4870: x_msg_data,
4871: '_PVT'
4872: );
4870: x_msg_data,
4871: '_PVT'
4872: );
4873: WHEN OTHERS THEN
4874: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4875: (
4876: l_api_name,
4877: G_PKG_NAME,
4878: 'OTHERS',
4893: p_cnhv_rec IN cnhv_rec_type) IS
4894:
4895: l_api_version CONSTANT NUMBER := 1;
4896: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4897: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4898: l_cnhv_rec cnhv_rec_type := p_cnhv_rec;
4899: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType;
4900: l_cnh_rec cnh_rec_type;
4901: BEGIN
4898: l_cnhv_rec cnhv_rec_type := p_cnhv_rec;
4899: l_okc_condition_headers_tl_rec OkcConditionHeadersTlRecType;
4900: l_cnh_rec cnh_rec_type;
4901: BEGIN
4902: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4903: G_PKG_NAME,
4904: p_init_msg_list,
4905: l_api_version,
4906: p_api_version,
4905: l_api_version,
4906: p_api_version,
4907: '_PVT',
4908: x_return_status);
4909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4906: p_api_version,
4907: '_PVT',
4908: x_return_status);
4909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4914: /*
4907: '_PVT',
4908: x_return_status);
4909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4914: /*
4915: -- Seed data should not be deleted
4908: x_return_status);
4909: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4910: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4911: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4912: RAISE OKC_API.G_EXCEPTION_ERROR;
4913: END IF;
4914: /*
4915: -- Seed data should not be deleted
4916: IF l_cnhv_rec.last_updated_by <> 1 THEN
4914: /*
4915: -- Seed data should not be deleted
4916: IF l_cnhv_rec.last_updated_by <> 1 THEN
4917: IF l_cnhv_rec.seeded_flag = 'Y' THEN
4918: OKC_API.set_message(p_app_name => G_APP_NAME,
4919: p_msg_name => 'OKC_NOT_DELETE_SEEDED');
4920: RAISE OKC_API.G_EXCEPTION_ERROR;
4921: END IF;
4922: END IF;*/
4916: IF l_cnhv_rec.last_updated_by <> 1 THEN
4917: IF l_cnhv_rec.seeded_flag = 'Y' THEN
4918: OKC_API.set_message(p_app_name => G_APP_NAME,
4919: p_msg_name => 'OKC_NOT_DELETE_SEEDED');
4920: RAISE OKC_API.G_EXCEPTION_ERROR;
4921: END IF;
4922: END IF;*/
4923: --------------------------------------
4924: -- Move VIEW record to "Child" records
4934: x_msg_count,
4935: x_msg_data,
4936: l_okc_condition_headers_tl_rec
4937: );
4938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4941: RAISE OKC_API.G_EXCEPTION_ERROR;
4942: END IF;
4935: x_msg_data,
4936: l_okc_condition_headers_tl_rec
4937: );
4938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4941: RAISE OKC_API.G_EXCEPTION_ERROR;
4942: END IF;
4943: delete_row(
4936: l_okc_condition_headers_tl_rec
4937: );
4938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4941: RAISE OKC_API.G_EXCEPTION_ERROR;
4942: END IF;
4943: delete_row(
4944: p_init_msg_list,
4937: );
4938: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4940: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4941: RAISE OKC_API.G_EXCEPTION_ERROR;
4942: END IF;
4943: delete_row(
4944: p_init_msg_list,
4945: x_return_status,
4946: x_msg_count,
4947: x_msg_data,
4948: l_cnh_rec
4949: );
4950: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4952: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4953: RAISE OKC_API.G_EXCEPTION_ERROR;
4954: END IF;
4947: x_msg_data,
4948: l_cnh_rec
4949: );
4950: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4952: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4953: RAISE OKC_API.G_EXCEPTION_ERROR;
4954: END IF;
4955: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4948: l_cnh_rec
4949: );
4950: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4952: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4953: RAISE OKC_API.G_EXCEPTION_ERROR;
4954: END IF;
4955: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4956: EXCEPTION
4949: );
4950: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4952: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4953: RAISE OKC_API.G_EXCEPTION_ERROR;
4954: END IF;
4955: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4956: EXCEPTION
4957: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4951: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4952: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4953: RAISE OKC_API.G_EXCEPTION_ERROR;
4954: END IF;
4955: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4956: EXCEPTION
4957: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4958: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4959: (
4953: RAISE OKC_API.G_EXCEPTION_ERROR;
4954: END IF;
4955: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4956: EXCEPTION
4957: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4958: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4959: (
4960: l_api_name,
4961: G_PKG_NAME,
4954: END IF;
4955: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4956: EXCEPTION
4957: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4958: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4959: (
4960: l_api_name,
4961: G_PKG_NAME,
4962: 'OKC_API.G_RET_STS_ERROR',
4958: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4959: (
4960: l_api_name,
4961: G_PKG_NAME,
4962: 'OKC_API.G_RET_STS_ERROR',
4963: x_msg_count,
4964: x_msg_data,
4965: '_PVT'
4966: );
4963: x_msg_count,
4964: x_msg_data,
4965: '_PVT'
4966: );
4967: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4968: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4969: (
4970: l_api_name,
4971: G_PKG_NAME,
4964: x_msg_data,
4965: '_PVT'
4966: );
4967: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4968: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4969: (
4970: l_api_name,
4971: G_PKG_NAME,
4972: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4968: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4969: (
4970: l_api_name,
4971: G_PKG_NAME,
4972: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4973: x_msg_count,
4974: x_msg_data,
4975: '_PVT'
4976: );
4974: x_msg_data,
4975: '_PVT'
4976: );
4977: WHEN OTHERS THEN
4978: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4979: (
4980: l_api_name,
4981: G_PKG_NAME,
4982: 'OTHERS',
4997: p_cnhv_tbl IN cnhv_tbl_type) IS
4998:
4999: l_api_version CONSTANT NUMBER := 1;
5000: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
5001: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5002: i NUMBER := 0;
5003: BEGIN
5004: OKC_API.init_msg_list(p_init_msg_list);
5005: -- Make sure PL/SQL table has records in it before passing
5000: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
5001: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5002: i NUMBER := 0;
5003: BEGIN
5004: OKC_API.init_msg_list(p_init_msg_list);
5005: -- Make sure PL/SQL table has records in it before passing
5006: IF (p_cnhv_tbl.COUNT > 0) THEN
5007: i := p_cnhv_tbl.FIRST;
5008: LOOP
5007: i := p_cnhv_tbl.FIRST;
5008: LOOP
5009: delete_row (
5010: p_api_version => p_api_version,
5011: p_init_msg_list => OKC_API.G_FALSE,
5012: x_return_status => x_return_status,
5013: x_msg_count => x_msg_count,
5014: x_msg_data => x_msg_data,
5015: p_cnhv_rec => p_cnhv_tbl(i));
5017: i := p_cnhv_tbl.NEXT(i);
5018: END LOOP;
5019: END IF;
5020: EXCEPTION
5021: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5022: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5023: (
5024: l_api_name,
5025: G_PKG_NAME,
5018: END LOOP;
5019: END IF;
5020: EXCEPTION
5021: WHEN OKC_API.G_EXCEPTION_ERROR THEN
5022: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5023: (
5024: l_api_name,
5025: G_PKG_NAME,
5026: 'OKC_API.G_RET_STS_ERROR',
5022: x_return_status := OKC_API.HANDLE_EXCEPTIONS
5023: (
5024: l_api_name,
5025: G_PKG_NAME,
5026: 'OKC_API.G_RET_STS_ERROR',
5027: x_msg_count,
5028: x_msg_data,
5029: '_PVT'
5030: );
5027: x_msg_count,
5028: x_msg_data,
5029: '_PVT'
5030: );
5031: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5032: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5033: (
5034: l_api_name,
5035: G_PKG_NAME,
5028: x_msg_data,
5029: '_PVT'
5030: );
5031: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5032: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5033: (
5034: l_api_name,
5035: G_PKG_NAME,
5036: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5032: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5033: (
5034: l_api_name,
5035: G_PKG_NAME,
5036: 'OKC_API.G_RET_STS_UNEXP_ERROR',
5037: x_msg_count,
5038: x_msg_data,
5039: '_PVT'
5040: );
5038: x_msg_data,
5039: '_PVT'
5040: );
5041: WHEN OTHERS THEN
5042: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
5043: (
5044: l_api_name,
5045: G_PKG_NAME,
5046: 'OTHERS',
5106: j NUMBER := 0;
5107: i NUMBER := p_cnhv_tbl.FIRST;
5108: BEGIN
5109: -- Initializing return status
5110: x_return_status := OKC_API.G_RET_STS_SUCCESS;
5111: while i is not null
5112: LOOP
5113: j := j + 1;
5114: in_id (j) := p_cnhv_tbl(i).id;
5286: EXCEPTION
5287: WHEN OTHERS THEN
5288: --RAISE;
5289: -- store SQL error message on message stack
5290: OKC_API.SET_MESSAGE(
5291: p_app_name => G_APP_NAME,
5292: p_msg_name => G_UNEXPECTED_ERROR,
5293: p_token1 => G_SQLCODE_TOKEN,
5294: p_token1_value => SQLCODE,
5294: p_token1_value => SQLCODE,
5295: p_token2 => G_SQLERRM_TOKEN,
5296: p_token2_value => SQLERRM);
5297: -- notify caller of an error as UNEXPETED error
5298: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5299:
5300: END INSERT_ROW_UPG;
5301:
5302: --This function is called from versioning API OKC_VERSION_PVT
5308: p_major_version IN NUMBER
5309: ) RETURN VARCHAR2 IS
5310:
5311:
5312: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
5313:
5314: BEGIN
5315: INSERT INTO okc_condition_headers_bh
5316: (
5447: EXCEPTION
5448: -- other appropriate handlers
5449: WHEN OTHERS THEN
5450: -- store SQL error message on message stack
5451: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
5452: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
5453: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
5454: p_token1_value => sqlcode,
5455: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
5455: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
5456: p_token2_value => sqlerrm);
5457:
5458: -- notify UNEXPECTED error
5459: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5460: return l_return_status;
5461: END create_version;
5462: --
5463: --This Function is called from Versioning API OKC_VERSION_PVT
5468: p_chr_id IN NUMBER,
5469: p_major_version IN NUMBER
5470: ) RETURN VARCHAR2 IS
5471:
5472: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
5473:
5474: BEGIN
5475: INSERT INTO okc_condition_headers_tl
5476: (
5606: EXCEPTION
5607: -- other appropriate handlers
5608: WHEN OTHERS THEN
5609: -- store SQL error message on message stack
5610: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
5611: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
5612: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
5613: p_token1_value => sqlcode,
5614: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
5614: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
5615: p_token2_value => sqlerrm);
5616:
5617: -- notify UNEXPECTED error
5618: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5619: return l_return_status;
5620: END restore_version;
5621: --
5622: END OKC_CNH_PVT;