5: /*+++++++++++++Start of hand code +++++++++++++++++*/
6: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
7: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
8: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
9: g_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
10: /*+++++++++++++End of hand code +++++++++++++++++++*/
11: ---------------------------------------------------------------------------
12: -- FUNCTION get_seq_id
13: ---------------------------------------------------------------------------
575: okc_debug.Set_Indentation('OKC_CAT_PVT');
576: okc_debug.log('1100: Entered null_out_defaults', 2);
577: END IF;
578:
579: IF (l_catv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
580: l_catv_rec.chr_id := NULL;
581: END IF;
582: IF (l_catv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
583: l_catv_rec.cle_id := NULL;
578:
579: IF (l_catv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
580: l_catv_rec.chr_id := NULL;
581: END IF;
582: IF (l_catv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
583: l_catv_rec.cle_id := NULL;
584: END IF;
585: IF (l_catv_rec.cat_id = OKC_API.G_MISS_NUM) THEN
586: l_catv_rec.cat_id := NULL;
581: END IF;
582: IF (l_catv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
583: l_catv_rec.cle_id := NULL;
584: END IF;
585: IF (l_catv_rec.cat_id = OKC_API.G_MISS_NUM) THEN
586: l_catv_rec.cat_id := NULL;
587: END IF;
588: IF (l_catv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
589: l_catv_rec.object_version_number := NULL;
584: END IF;
585: IF (l_catv_rec.cat_id = OKC_API.G_MISS_NUM) THEN
586: l_catv_rec.cat_id := NULL;
587: END IF;
588: IF (l_catv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
589: l_catv_rec.object_version_number := NULL;
590: END IF;
591: IF (l_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
592: l_catv_rec.sfwt_flag := NULL;
587: END IF;
588: IF (l_catv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
589: l_catv_rec.object_version_number := NULL;
590: END IF;
591: IF (l_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
592: l_catv_rec.sfwt_flag := NULL;
593: END IF;
594: IF (l_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM) THEN
595: l_catv_rec.sav_sae_id := NULL;
590: END IF;
591: IF (l_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
592: l_catv_rec.sfwt_flag := NULL;
593: END IF;
594: IF (l_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM) THEN
595: l_catv_rec.sav_sae_id := NULL;
596: END IF;
597: IF (l_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) THEN
598: l_catv_rec.sav_sav_release := NULL;
593: END IF;
594: IF (l_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM) THEN
595: l_catv_rec.sav_sae_id := NULL;
596: END IF;
597: IF (l_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) THEN
598: l_catv_rec.sav_sav_release := NULL;
599: END IF;
600: IF (l_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) THEN
601: l_catv_rec.sbt_code := NULL;
596: END IF;
597: IF (l_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) THEN
598: l_catv_rec.sav_sav_release := NULL;
599: END IF;
600: IF (l_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) THEN
601: l_catv_rec.sbt_code := NULL;
602: END IF;
603: IF (l_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
604: l_catv_rec.dnz_chr_id := NULL;
599: END IF;
600: IF (l_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) THEN
601: l_catv_rec.sbt_code := NULL;
602: END IF;
603: IF (l_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
604: l_catv_rec.dnz_chr_id := NULL;
605: END IF;
606: IF (l_catv_rec.comments = OKC_API.G_MISS_CHAR) THEN
607: l_catv_rec.comments := NULL;
602: END IF;
603: IF (l_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
604: l_catv_rec.dnz_chr_id := NULL;
605: END IF;
606: IF (l_catv_rec.comments = OKC_API.G_MISS_CHAR) THEN
607: l_catv_rec.comments := NULL;
608: END IF;
609: IF (l_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR) THEN
610: l_catv_rec.fulltext_yn := NULL;
605: END IF;
606: IF (l_catv_rec.comments = OKC_API.G_MISS_CHAR) THEN
607: l_catv_rec.comments := NULL;
608: END IF;
609: IF (l_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR) THEN
610: l_catv_rec.fulltext_yn := NULL;
611: END IF;
612: IF (l_catv_rec.variation_description = OKC_API.G_MISS_CHAR) THEN
613: l_catv_rec.variation_description := NULL;
608: END IF;
609: IF (l_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR) THEN
610: l_catv_rec.fulltext_yn := NULL;
611: END IF;
612: IF (l_catv_rec.variation_description = OKC_API.G_MISS_CHAR) THEN
613: l_catv_rec.variation_description := NULL;
614: END IF;
615: IF (l_catv_rec.name = OKC_API.G_MISS_CHAR) THEN
616: l_catv_rec.name := NULL;
611: END IF;
612: IF (l_catv_rec.variation_description = OKC_API.G_MISS_CHAR) THEN
613: l_catv_rec.variation_description := NULL;
614: END IF;
615: IF (l_catv_rec.name = OKC_API.G_MISS_CHAR) THEN
616: l_catv_rec.name := NULL;
617: END IF;
618: ---text field is NULL initially
619: --- IF (l_catv_rec.text = OKC_API.G_MISS_CHAR) THEN
615: IF (l_catv_rec.name = OKC_API.G_MISS_CHAR) THEN
616: l_catv_rec.name := NULL;
617: END IF;
618: ---text field is NULL initially
619: --- IF (l_catv_rec.text = OKC_API.G_MISS_CHAR) THEN
620: --- l_catv_rec.text := NULL;
621: --- END IF;
622: IF (l_catv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
623: l_catv_rec.attribute_category := NULL;
618: ---text field is NULL initially
619: --- IF (l_catv_rec.text = OKC_API.G_MISS_CHAR) THEN
620: --- l_catv_rec.text := NULL;
621: --- END IF;
622: IF (l_catv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
623: l_catv_rec.attribute_category := NULL;
624: END IF;
625: IF (l_catv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
626: l_catv_rec.attribute1 := NULL;
621: --- END IF;
622: IF (l_catv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
623: l_catv_rec.attribute_category := NULL;
624: END IF;
625: IF (l_catv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
626: l_catv_rec.attribute1 := NULL;
627: END IF;
628: IF (l_catv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
629: l_catv_rec.attribute2 := NULL;
624: END IF;
625: IF (l_catv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
626: l_catv_rec.attribute1 := NULL;
627: END IF;
628: IF (l_catv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
629: l_catv_rec.attribute2 := NULL;
630: END IF;
631: IF (l_catv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
632: l_catv_rec.attribute3 := NULL;
627: END IF;
628: IF (l_catv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
629: l_catv_rec.attribute2 := NULL;
630: END IF;
631: IF (l_catv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
632: l_catv_rec.attribute3 := NULL;
633: END IF;
634: IF (l_catv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
635: l_catv_rec.attribute4 := NULL;
630: END IF;
631: IF (l_catv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
632: l_catv_rec.attribute3 := NULL;
633: END IF;
634: IF (l_catv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
635: l_catv_rec.attribute4 := NULL;
636: END IF;
637: IF (l_catv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
638: l_catv_rec.attribute5 := NULL;
633: END IF;
634: IF (l_catv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
635: l_catv_rec.attribute4 := NULL;
636: END IF;
637: IF (l_catv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
638: l_catv_rec.attribute5 := NULL;
639: END IF;
640: IF (l_catv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
641: l_catv_rec.attribute6 := NULL;
636: END IF;
637: IF (l_catv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
638: l_catv_rec.attribute5 := NULL;
639: END IF;
640: IF (l_catv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
641: l_catv_rec.attribute6 := NULL;
642: END IF;
643: IF (l_catv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
644: l_catv_rec.attribute7 := NULL;
639: END IF;
640: IF (l_catv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
641: l_catv_rec.attribute6 := NULL;
642: END IF;
643: IF (l_catv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
644: l_catv_rec.attribute7 := NULL;
645: END IF;
646: IF (l_catv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
647: l_catv_rec.attribute8 := NULL;
642: END IF;
643: IF (l_catv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
644: l_catv_rec.attribute7 := NULL;
645: END IF;
646: IF (l_catv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
647: l_catv_rec.attribute8 := NULL;
648: END IF;
649: IF (l_catv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
650: l_catv_rec.attribute9 := NULL;
645: END IF;
646: IF (l_catv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
647: l_catv_rec.attribute8 := NULL;
648: END IF;
649: IF (l_catv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
650: l_catv_rec.attribute9 := NULL;
651: END IF;
652: IF (l_catv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
653: l_catv_rec.attribute10 := NULL;
648: END IF;
649: IF (l_catv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
650: l_catv_rec.attribute9 := NULL;
651: END IF;
652: IF (l_catv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
653: l_catv_rec.attribute10 := NULL;
654: END IF;
655: IF (l_catv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
656: l_catv_rec.attribute11 := NULL;
651: END IF;
652: IF (l_catv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
653: l_catv_rec.attribute10 := NULL;
654: END IF;
655: IF (l_catv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
656: l_catv_rec.attribute11 := NULL;
657: END IF;
658: IF (l_catv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
659: l_catv_rec.attribute12 := NULL;
654: END IF;
655: IF (l_catv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
656: l_catv_rec.attribute11 := NULL;
657: END IF;
658: IF (l_catv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
659: l_catv_rec.attribute12 := NULL;
660: END IF;
661: IF (l_catv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
662: l_catv_rec.attribute13 := NULL;
657: END IF;
658: IF (l_catv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
659: l_catv_rec.attribute12 := NULL;
660: END IF;
661: IF (l_catv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
662: l_catv_rec.attribute13 := NULL;
663: END IF;
664: IF (l_catv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
665: l_catv_rec.attribute14 := NULL;
660: END IF;
661: IF (l_catv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
662: l_catv_rec.attribute13 := NULL;
663: END IF;
664: IF (l_catv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
665: l_catv_rec.attribute14 := NULL;
666: END IF;
667: IF (l_catv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
668: l_catv_rec.attribute15 := NULL;
663: END IF;
664: IF (l_catv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
665: l_catv_rec.attribute14 := NULL;
666: END IF;
667: IF (l_catv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
668: l_catv_rec.attribute15 := NULL;
669: END IF;
670: IF (l_catv_rec.cat_type = OKC_API.G_MISS_CHAR) THEN
671: l_catv_rec.cat_type := NULL;
666: END IF;
667: IF (l_catv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
668: l_catv_rec.attribute15 := NULL;
669: END IF;
670: IF (l_catv_rec.cat_type = OKC_API.G_MISS_CHAR) THEN
671: l_catv_rec.cat_type := NULL;
672: END IF;
673: IF (l_catv_rec.created_by = OKC_API.G_MISS_NUM) THEN
674: l_catv_rec.created_by := NULL;
669: END IF;
670: IF (l_catv_rec.cat_type = OKC_API.G_MISS_CHAR) THEN
671: l_catv_rec.cat_type := NULL;
672: END IF;
673: IF (l_catv_rec.created_by = OKC_API.G_MISS_NUM) THEN
674: l_catv_rec.created_by := NULL;
675: END IF;
676: IF (l_catv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
677: l_catv_rec.creation_date := NULL;
672: END IF;
673: IF (l_catv_rec.created_by = OKC_API.G_MISS_NUM) THEN
674: l_catv_rec.created_by := NULL;
675: END IF;
676: IF (l_catv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
677: l_catv_rec.creation_date := NULL;
678: END IF;
679: IF (l_catv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
680: l_catv_rec.last_updated_by := NULL;
675: END IF;
676: IF (l_catv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
677: l_catv_rec.creation_date := NULL;
678: END IF;
679: IF (l_catv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
680: l_catv_rec.last_updated_by := NULL;
681: END IF;
682: IF (l_catv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
683: l_catv_rec.last_update_date := NULL;
678: END IF;
679: IF (l_catv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
680: l_catv_rec.last_updated_by := NULL;
681: END IF;
682: IF (l_catv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
683: l_catv_rec.last_update_date := NULL;
684: END IF;
685: IF (l_catv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
686: l_catv_rec.last_update_login := NULL;
681: END IF;
682: IF (l_catv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
683: l_catv_rec.last_update_date := NULL;
684: END IF;
685: IF (l_catv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
686: l_catv_rec.last_update_login := NULL;
687: END IF;
688:
689: IF (l_debug = 'Y') THEN
715: okc_debug.Set_Indentation('OKC_CAT_PVT');
716: okc_debug.log('1300: Entered validate_sbt_code', 2);
717: END IF;
718:
719: x_return_status := OKC_API.G_RET_STS_SUCCESS;
720: if (p_catv_rec.sbt_code is NULL or p_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) then
721: return;
722: end if;
723: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
716: okc_debug.log('1300: Entered validate_sbt_code', 2);
717: END IF;
718:
719: x_return_status := OKC_API.G_RET_STS_SUCCESS;
720: if (p_catv_rec.sbt_code is NULL or p_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) then
721: return;
722: end if;
723: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
724: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
720: if (p_catv_rec.sbt_code is NULL or p_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) then
721: return;
722: end if;
723: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
724: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
725: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
726: x_return_status := OKC_API.G_RET_STS_ERROR;
727: end if;
728:
721: return;
722: end if;
723: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
724: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
725: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
726: x_return_status := OKC_API.G_RET_STS_ERROR;
727: end if;
728:
729: IF (l_debug = 'Y') THEN
722: end if;
723: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
724: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
725: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
726: x_return_status := OKC_API.G_RET_STS_ERROR;
727: end if;
728:
729: IF (l_debug = 'Y') THEN
730: okc_debug.log('1400: Leaving validate_sbt_code', 2);
738: okc_debug.log('1500: Leaving validate_sbt_code:OTHERS Exception', 2);
739: okc_debug.Reset_Indentation;
740: END IF;
741:
742: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
743: p_msg_name => g_unexpected_error,
744: p_token1 => g_sqlcode_token,
745: p_token1_value => sqlcode,
746: p_token2 => g_sqlerrm_token,
744: p_token1 => g_sqlcode_token,
745: p_token1_value => sqlcode,
746: p_token2 => g_sqlerrm_token,
747: p_token2_value => sqlerrm);
748: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
749:
750: end validate_sbt_code;
751:
752: -- Start of comments
765: okc_debug.Set_Indentation('OKC_CAT_PVT');
766: okc_debug.log('1600: Entered validate_cat_type', 2);
767: END IF;
768:
769: if (P_catv_rec.cat_type in ('STA','NSD',OKC_API.G_MISS_CHAR)) then
770: x_return_status := OKC_API.G_RET_STS_SUCCESS;
771: return;
772: end if;
773: if (P_catv_rec.cat_type is NULL) then
766: okc_debug.log('1600: Entered validate_cat_type', 2);
767: END IF;
768:
769: if (P_catv_rec.cat_type in ('STA','NSD',OKC_API.G_MISS_CHAR)) then
770: x_return_status := OKC_API.G_RET_STS_SUCCESS;
771: return;
772: end if;
773: if (P_catv_rec.cat_type is NULL) then
774: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
770: x_return_status := OKC_API.G_RET_STS_SUCCESS;
771: return;
772: end if;
773: if (P_catv_rec.cat_type is NULL) then
774: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
775: x_return_status := OKC_API.G_RET_STS_ERROR;
776: return;
777: end if;
778: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
771: return;
772: end if;
773: if (P_catv_rec.cat_type is NULL) then
774: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
775: x_return_status := OKC_API.G_RET_STS_ERROR;
776: return;
777: end if;
778: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
779: x_return_status := OKC_API.G_RET_STS_ERROR;
774: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
775: x_return_status := OKC_API.G_RET_STS_ERROR;
776: return;
777: end if;
778: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
779: x_return_status := OKC_API.G_RET_STS_ERROR;
780:
781: IF (l_debug = 'Y') THEN
782: okc_debug.log('1700: Leaving validate_cat_type', 2);
775: x_return_status := OKC_API.G_RET_STS_ERROR;
776: return;
777: end if;
778: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
779: x_return_status := OKC_API.G_RET_STS_ERROR;
780:
781: IF (l_debug = 'Y') THEN
782: okc_debug.log('1700: Leaving validate_cat_type', 2);
783: okc_debug.Reset_Indentation;
801: okc_debug.Set_Indentation('OKC_CAT_PVT');
802: okc_debug.log('1800: Entered validate_fulltext_yn', 2);
803: END IF;
804:
805: if (P_catv_rec.fulltext_yn in ('Y','N',OKC_API.G_MISS_CHAR)
806: or P_catv_rec.fulltext_yn is NULL) then
807: x_return_status := OKC_API.G_RET_STS_SUCCESS;
808: else
809: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'FULLTEXT_YN');
803: END IF;
804:
805: if (P_catv_rec.fulltext_yn in ('Y','N',OKC_API.G_MISS_CHAR)
806: or P_catv_rec.fulltext_yn is NULL) then
807: x_return_status := OKC_API.G_RET_STS_SUCCESS;
808: else
809: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'FULLTEXT_YN');
810: x_return_status := OKC_API.G_RET_STS_ERROR;
811: end if;
805: if (P_catv_rec.fulltext_yn in ('Y','N',OKC_API.G_MISS_CHAR)
806: or P_catv_rec.fulltext_yn is NULL) then
807: x_return_status := OKC_API.G_RET_STS_SUCCESS;
808: else
809: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'FULLTEXT_YN');
810: x_return_status := OKC_API.G_RET_STS_ERROR;
811: end if;
812:
813: IF (l_debug = 'Y') THEN
806: or P_catv_rec.fulltext_yn is NULL) then
807: x_return_status := OKC_API.G_RET_STS_SUCCESS;
808: else
809: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'FULLTEXT_YN');
810: x_return_status := OKC_API.G_RET_STS_ERROR;
811: end if;
812:
813: IF (l_debug = 'Y') THEN
814: okc_debug.log('1900: Leaving validate_fulltext_yn', 2);
840: okc_debug.Set_Indentation('OKC_CAT_PVT');
841: okc_debug.log('2000: Entered validate_dnz_chr_id', 2);
842: END IF;
843:
844: x_return_status := OKC_API.G_RET_STS_SUCCESS;
845: if (p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
846: return;
847: end if;
848: if (p_catv_rec.dnz_chr_id is NULL) then
841: okc_debug.log('2000: Entered validate_dnz_chr_id', 2);
842: END IF;
843:
844: x_return_status := OKC_API.G_RET_STS_SUCCESS;
845: if (p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
846: return;
847: end if;
848: if (p_catv_rec.dnz_chr_id is NULL) then
849: OKC_API.set_message(p_app_name => g_app_name,
845: if (p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
846: return;
847: end if;
848: if (p_catv_rec.dnz_chr_id is NULL) then
849: OKC_API.set_message(p_app_name => g_app_name,
850: p_msg_name => G_REQUIRED_VALUE,
851: p_token1 => G_COL_NAME_TOKEN,
852: p_token1_value => 'DNZ_CHR_ID');
853: x_return_status := OKC_API.G_RET_STS_ERROR;
849: OKC_API.set_message(p_app_name => g_app_name,
850: p_msg_name => G_REQUIRED_VALUE,
851: p_token1 => G_COL_NAME_TOKEN,
852: p_token1_value => 'DNZ_CHR_ID');
853: x_return_status := OKC_API.G_RET_STS_ERROR;
854: return;
855: end if;
856: open Kt_Hr_Mj_Vr;
857: fetch Kt_Hr_Mj_Vr into l_dummy;
856: open Kt_Hr_Mj_Vr;
857: fetch Kt_Hr_Mj_Vr into l_dummy;
858: close Kt_Hr_Mj_Vr;
859: if (l_dummy='?') then
860: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
861: x_return_status := OKC_API.G_RET_STS_ERROR;
862: return;
863: end if;
864:
857: fetch Kt_Hr_Mj_Vr into l_dummy;
858: close Kt_Hr_Mj_Vr;
859: if (l_dummy='?') then
860: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
861: x_return_status := OKC_API.G_RET_STS_ERROR;
862: return;
863: end if;
864:
865: IF (l_debug = 'Y') THEN
874: okc_debug.log('2200: Leaving validate_dnz_chr_id:OTHERS Exception', 2);
875: okc_debug.Reset_Indentation;
876: END IF;
877:
878: OKC_API.set_message(p_app_name => g_app_name,
879: p_msg_name => g_unexpected_error,
880: p_token1 => g_sqlcode_token,
881: p_token1_value => sqlcode,
882: p_token2 => g_sqlerrm_token,
880: p_token1 => g_sqlcode_token,
881: p_token1_value => sqlcode,
882: p_token2 => g_sqlerrm_token,
883: p_token2_value => sqlerrm);
884: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
885:
886: end validate_dnz_chr_id;
887:
888: -- Start of comments
906: okc_debug.Set_Indentation('OKC_CAT_PVT');
907: okc_debug.log('2300: Entered validate_cat_id', 2);
908: END IF;
909:
910: x_return_status := OKC_API.G_RET_STS_SUCCESS;
911: if (p_catv_rec.cat_id = OKC_API.G_MISS_NUM or p_catv_rec.cat_id is NULL) then
912: return;
913: end if;
914: open l_cat_csr;
907: okc_debug.log('2300: Entered validate_cat_id', 2);
908: END IF;
909:
910: x_return_status := OKC_API.G_RET_STS_SUCCESS;
911: if (p_catv_rec.cat_id = OKC_API.G_MISS_NUM or p_catv_rec.cat_id is NULL) then
912: return;
913: end if;
914: open l_cat_csr;
915: fetch l_cat_csr into l_dummy_var;
914: open l_cat_csr;
915: fetch l_cat_csr into l_dummy_var;
916: close l_cat_csr;
917: if (l_dummy_var = '?') then
918: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_ID');
919: x_return_status := OKC_API.G_RET_STS_ERROR;
920: end if;
921:
922: IF (l_debug = 'Y') THEN
915: fetch l_cat_csr into l_dummy_var;
916: close l_cat_csr;
917: if (l_dummy_var = '?') then
918: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_ID');
919: x_return_status := OKC_API.G_RET_STS_ERROR;
920: end if;
921:
922: IF (l_debug = 'Y') THEN
923: okc_debug.log('2400: Leaving validate_cat_id', 2);
934:
935: if l_cat_csr%ISOPEN then
936: close l_cat_csr;
937: end if;
938: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
939: p_msg_name => g_unexpected_error,
940: p_token1 => g_sqlcode_token,
941: p_token1_value => sqlcode,
942: p_token2 => g_sqlerrm_token,
940: p_token1 => g_sqlcode_token,
941: p_token1_value => sqlcode,
942: p_token2 => g_sqlerrm_token,
943: p_token2_value => sqlerrm);
944: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
945:
946: end validate_cat_id;
947:
948: -- Start of comments
966: okc_debug.Set_Indentation('OKC_CAT_PVT');
967: okc_debug.log('2600: Entered validate_cle_id', 2);
968: END IF;
969:
970: x_return_status := OKC_API.G_RET_STS_SUCCESS;
971: if (p_catv_rec.cle_id = OKC_API.G_MISS_NUM or p_catv_rec.cle_id is NULL) then
972: return;
973: end if;
974: open l_cle_csr;
967: okc_debug.log('2600: Entered validate_cle_id', 2);
968: END IF;
969:
970: x_return_status := OKC_API.G_RET_STS_SUCCESS;
971: if (p_catv_rec.cle_id = OKC_API.G_MISS_NUM or p_catv_rec.cle_id is NULL) then
972: return;
973: end if;
974: open l_cle_csr;
975: fetch l_cle_csr into l_dummy_var;
974: open l_cle_csr;
975: fetch l_cle_csr into l_dummy_var;
976: close l_cle_csr;
977: if (l_dummy_var = '?') then
978: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
979: x_return_status := OKC_API.G_RET_STS_ERROR;
980: end if;
981:
982: IF (l_debug = 'Y') THEN
975: fetch l_cle_csr into l_dummy_var;
976: close l_cle_csr;
977: if (l_dummy_var = '?') then
978: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
979: x_return_status := OKC_API.G_RET_STS_ERROR;
980: end if;
981:
982: IF (l_debug = 'Y') THEN
983: okc_debug.log('2700: Leaving validate_cle_id', 2);
994:
995: if l_cle_csr%ISOPEN then
996: close l_cle_csr;
997: end if;
998: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
999: p_msg_name => g_unexpected_error,
1000: p_token1 => g_sqlcode_token,
1001: p_token1_value => sqlcode,
1002: p_token2 => g_sqlerrm_token,
1000: p_token1 => g_sqlcode_token,
1001: p_token1_value => sqlcode,
1002: p_token2 => g_sqlerrm_token,
1003: p_token2_value => sqlerrm);
1004: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1005:
1006: end validate_cle_id;
1007:
1008: -- Start of comments
1026: okc_debug.Set_Indentation('OKC_CAT_PVT');
1027: okc_debug.log('2900: Entered validate_chr_id', 2);
1028: END IF;
1029:
1030: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1031: if (p_catv_rec.chr_id = OKC_API.G_MISS_NUM or p_catv_rec.chr_id is NULL) then
1032: return;
1033: end if;
1034: open l_chr_csr;
1027: okc_debug.log('2900: Entered validate_chr_id', 2);
1028: END IF;
1029:
1030: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1031: if (p_catv_rec.chr_id = OKC_API.G_MISS_NUM or p_catv_rec.chr_id is NULL) then
1032: return;
1033: end if;
1034: open l_chr_csr;
1035: fetch l_chr_csr into l_dummy_var;
1034: open l_chr_csr;
1035: fetch l_chr_csr into l_dummy_var;
1036: close l_chr_csr;
1037: if (l_dummy_var = '?') then
1038: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CHR_ID');
1039: x_return_status := OKC_API.G_RET_STS_ERROR;
1040: end if;
1041:
1042: IF (l_debug = 'Y') THEN
1035: fetch l_chr_csr into l_dummy_var;
1036: close l_chr_csr;
1037: if (l_dummy_var = '?') then
1038: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CHR_ID');
1039: x_return_status := OKC_API.G_RET_STS_ERROR;
1040: end if;
1041:
1042: IF (l_debug = 'Y') THEN
1043: okc_debug.log('3000: Leaving validate_chr_id', 2);
1054:
1055: if l_chr_csr%ISOPEN then
1056: close l_chr_csr;
1057: end if;
1058: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1059: p_msg_name => g_unexpected_error,
1060: p_token1 => g_sqlcode_token,
1061: p_token1_value => sqlcode,
1062: p_token2 => g_sqlerrm_token,
1060: p_token1 => g_sqlcode_token,
1061: p_token1_value => sqlcode,
1062: p_token2 => g_sqlerrm_token,
1063: p_token2_value => sqlerrm);
1064: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1065:
1066: end validate_chr_id;
1067:
1068: /*+++++++++++++End of hand code +++++++++++++++++++*/
1071: ----------------------------------------------
1072: FUNCTION Validate_Attributes (
1073: p_catv_rec IN catv_rec_type
1074: ) RETURN VARCHAR2 IS
1075: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1076: /*-------------Commented in favor of hand code------
1077: BEGIN
1078:
1079: IF (l_debug = 'Y') THEN
1080: okc_debug.Set_Indentation('OKC_CAT_PVT');
1081: okc_debug.log('3200: Entered Validate_Attributes', 2);
1082: END IF;
1083:
1084: IF p_catv_rec.id = OKC_API.G_MISS_NUM OR
1085: p_catv_rec.id IS NULL
1086: THEN
1087: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1088: l_return_status := OKC_API.G_RET_STS_ERROR;
1083:
1084: IF p_catv_rec.id = OKC_API.G_MISS_NUM OR
1085: p_catv_rec.id IS NULL
1086: THEN
1087: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1088: l_return_status := OKC_API.G_RET_STS_ERROR;
1089: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1090: p_catv_rec.object_version_number IS NULL
1091: THEN
1084: IF p_catv_rec.id = OKC_API.G_MISS_NUM OR
1085: p_catv_rec.id IS NULL
1086: THEN
1087: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1088: l_return_status := OKC_API.G_RET_STS_ERROR;
1089: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1090: p_catv_rec.object_version_number IS NULL
1091: THEN
1092: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1085: p_catv_rec.id IS NULL
1086: THEN
1087: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1088: l_return_status := OKC_API.G_RET_STS_ERROR;
1089: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1090: p_catv_rec.object_version_number IS NULL
1091: THEN
1092: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1093: l_return_status := OKC_API.G_RET_STS_ERROR;
1088: l_return_status := OKC_API.G_RET_STS_ERROR;
1089: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1090: p_catv_rec.object_version_number IS NULL
1091: THEN
1092: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1093: l_return_status := OKC_API.G_RET_STS_ERROR;
1094: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
1095: p_catv_rec.dnz_chr_id IS NULL
1096: THEN
1089: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
1090: p_catv_rec.object_version_number IS NULL
1091: THEN
1092: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1093: l_return_status := OKC_API.G_RET_STS_ERROR;
1094: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
1095: p_catv_rec.dnz_chr_id IS NULL
1096: THEN
1097: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
1090: p_catv_rec.object_version_number IS NULL
1091: THEN
1092: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1093: l_return_status := OKC_API.G_RET_STS_ERROR;
1094: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
1095: p_catv_rec.dnz_chr_id IS NULL
1096: THEN
1097: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
1098: l_return_status := OKC_API.G_RET_STS_ERROR;
1093: l_return_status := OKC_API.G_RET_STS_ERROR;
1094: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
1095: p_catv_rec.dnz_chr_id IS NULL
1096: THEN
1097: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
1098: l_return_status := OKC_API.G_RET_STS_ERROR;
1099: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
1100: p_catv_rec.cat_type IS NULL
1101: THEN
1094: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
1095: p_catv_rec.dnz_chr_id IS NULL
1096: THEN
1097: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
1098: l_return_status := OKC_API.G_RET_STS_ERROR;
1099: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
1100: p_catv_rec.cat_type IS NULL
1101: THEN
1102: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cat_type');
1095: p_catv_rec.dnz_chr_id IS NULL
1096: THEN
1097: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
1098: l_return_status := OKC_API.G_RET_STS_ERROR;
1099: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
1100: p_catv_rec.cat_type IS NULL
1101: THEN
1102: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cat_type');
1103: l_return_status := OKC_API.G_RET_STS_ERROR;
1098: l_return_status := OKC_API.G_RET_STS_ERROR;
1099: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
1100: p_catv_rec.cat_type IS NULL
1101: THEN
1102: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cat_type');
1103: l_return_status := OKC_API.G_RET_STS_ERROR;
1104: END IF;
1105:
1106: IF (l_debug = 'Y') THEN
1099: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
1100: p_catv_rec.cat_type IS NULL
1101: THEN
1102: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cat_type');
1103: l_return_status := OKC_API.G_RET_STS_ERROR;
1104: END IF;
1105:
1106: IF (l_debug = 'Y') THEN
1107: okc_debug.log('3300: Leaving Validate_Attributes ', 2);
1112:
1113: END Validate_Attributes;
1114: ---------------End of the commented code-----------*/
1115: /*+++++++++++++Start of hand code +++++++++++++++++*/
1116: x_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
1117: BEGIN
1118: -- call each column-level validation
1119: validate_sbt_code(x_return_status => l_return_status,
1120: p_catv_rec => p_catv_rec);
1117: BEGIN
1118: -- call each column-level validation
1119: validate_sbt_code(x_return_status => l_return_status,
1120: p_catv_rec => p_catv_rec);
1121: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1122: return OKC_API.G_RET_STS_UNEXP_ERROR;
1123: end if;
1124: if (l_return_status = OKC_API.G_RET_STS_ERROR
1125: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1118: -- call each column-level validation
1119: validate_sbt_code(x_return_status => l_return_status,
1120: p_catv_rec => p_catv_rec);
1121: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1122: return OKC_API.G_RET_STS_UNEXP_ERROR;
1123: end if;
1124: if (l_return_status = OKC_API.G_RET_STS_ERROR
1125: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1126: x_return_status := OKC_API.G_RET_STS_ERROR;
1120: p_catv_rec => p_catv_rec);
1121: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1122: return OKC_API.G_RET_STS_UNEXP_ERROR;
1123: end if;
1124: if (l_return_status = OKC_API.G_RET_STS_ERROR
1125: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1126: x_return_status := OKC_API.G_RET_STS_ERROR;
1127: end if;
1128: validate_cat_type(x_return_status => l_return_status,
1121: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1122: return OKC_API.G_RET_STS_UNEXP_ERROR;
1123: end if;
1124: if (l_return_status = OKC_API.G_RET_STS_ERROR
1125: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1126: x_return_status := OKC_API.G_RET_STS_ERROR;
1127: end if;
1128: validate_cat_type(x_return_status => l_return_status,
1129: p_catv_rec => p_catv_rec);
1122: return OKC_API.G_RET_STS_UNEXP_ERROR;
1123: end if;
1124: if (l_return_status = OKC_API.G_RET_STS_ERROR
1125: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1126: x_return_status := OKC_API.G_RET_STS_ERROR;
1127: end if;
1128: validate_cat_type(x_return_status => l_return_status,
1129: p_catv_rec => p_catv_rec);
1130: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1126: x_return_status := OKC_API.G_RET_STS_ERROR;
1127: end if;
1128: validate_cat_type(x_return_status => l_return_status,
1129: p_catv_rec => p_catv_rec);
1130: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1131: return OKC_API.G_RET_STS_UNEXP_ERROR;
1132: end if;
1133: if (l_return_status = OKC_API.G_RET_STS_ERROR
1134: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1127: end if;
1128: validate_cat_type(x_return_status => l_return_status,
1129: p_catv_rec => p_catv_rec);
1130: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1131: return OKC_API.G_RET_STS_UNEXP_ERROR;
1132: end if;
1133: if (l_return_status = OKC_API.G_RET_STS_ERROR
1134: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1135: x_return_status := OKC_API.G_RET_STS_ERROR;
1129: p_catv_rec => p_catv_rec);
1130: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1131: return OKC_API.G_RET_STS_UNEXP_ERROR;
1132: end if;
1133: if (l_return_status = OKC_API.G_RET_STS_ERROR
1134: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1135: x_return_status := OKC_API.G_RET_STS_ERROR;
1136: end if;
1137: validate_fulltext_yn(x_return_status => l_return_status,
1130: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1131: return OKC_API.G_RET_STS_UNEXP_ERROR;
1132: end if;
1133: if (l_return_status = OKC_API.G_RET_STS_ERROR
1134: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1135: x_return_status := OKC_API.G_RET_STS_ERROR;
1136: end if;
1137: validate_fulltext_yn(x_return_status => l_return_status,
1138: p_catv_rec => p_catv_rec);
1131: return OKC_API.G_RET_STS_UNEXP_ERROR;
1132: end if;
1133: if (l_return_status = OKC_API.G_RET_STS_ERROR
1134: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1135: x_return_status := OKC_API.G_RET_STS_ERROR;
1136: end if;
1137: validate_fulltext_yn(x_return_status => l_return_status,
1138: p_catv_rec => p_catv_rec);
1139: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1135: x_return_status := OKC_API.G_RET_STS_ERROR;
1136: end if;
1137: validate_fulltext_yn(x_return_status => l_return_status,
1138: p_catv_rec => p_catv_rec);
1139: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1140: return OKC_API.G_RET_STS_UNEXP_ERROR;
1141: end if;
1142: if (l_return_status = OKC_API.G_RET_STS_ERROR
1143: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1136: end if;
1137: validate_fulltext_yn(x_return_status => l_return_status,
1138: p_catv_rec => p_catv_rec);
1139: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1140: return OKC_API.G_RET_STS_UNEXP_ERROR;
1141: end if;
1142: if (l_return_status = OKC_API.G_RET_STS_ERROR
1143: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1144: x_return_status := OKC_API.G_RET_STS_ERROR;
1138: p_catv_rec => p_catv_rec);
1139: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1140: return OKC_API.G_RET_STS_UNEXP_ERROR;
1141: end if;
1142: if (l_return_status = OKC_API.G_RET_STS_ERROR
1143: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1144: x_return_status := OKC_API.G_RET_STS_ERROR;
1145: end if;
1146: validate_dnz_chr_id(x_return_status => l_return_status,
1139: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1140: return OKC_API.G_RET_STS_UNEXP_ERROR;
1141: end if;
1142: if (l_return_status = OKC_API.G_RET_STS_ERROR
1143: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1144: x_return_status := OKC_API.G_RET_STS_ERROR;
1145: end if;
1146: validate_dnz_chr_id(x_return_status => l_return_status,
1147: p_catv_rec => p_catv_rec);
1140: return OKC_API.G_RET_STS_UNEXP_ERROR;
1141: end if;
1142: if (l_return_status = OKC_API.G_RET_STS_ERROR
1143: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1144: x_return_status := OKC_API.G_RET_STS_ERROR;
1145: end if;
1146: validate_dnz_chr_id(x_return_status => l_return_status,
1147: p_catv_rec => p_catv_rec);
1148: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1144: x_return_status := OKC_API.G_RET_STS_ERROR;
1145: end if;
1146: validate_dnz_chr_id(x_return_status => l_return_status,
1147: p_catv_rec => p_catv_rec);
1148: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1149: return OKC_API.G_RET_STS_UNEXP_ERROR;
1150: end if;
1151: if (l_return_status = OKC_API.G_RET_STS_ERROR
1152: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1145: end if;
1146: validate_dnz_chr_id(x_return_status => l_return_status,
1147: p_catv_rec => p_catv_rec);
1148: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1149: return OKC_API.G_RET_STS_UNEXP_ERROR;
1150: end if;
1151: if (l_return_status = OKC_API.G_RET_STS_ERROR
1152: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1153: x_return_status := OKC_API.G_RET_STS_ERROR;
1147: p_catv_rec => p_catv_rec);
1148: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1149: return OKC_API.G_RET_STS_UNEXP_ERROR;
1150: end if;
1151: if (l_return_status = OKC_API.G_RET_STS_ERROR
1152: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1153: x_return_status := OKC_API.G_RET_STS_ERROR;
1154: end if;
1155: validate_cle_id(x_return_status => l_return_status,
1148: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1149: return OKC_API.G_RET_STS_UNEXP_ERROR;
1150: end if;
1151: if (l_return_status = OKC_API.G_RET_STS_ERROR
1152: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1153: x_return_status := OKC_API.G_RET_STS_ERROR;
1154: end if;
1155: validate_cle_id(x_return_status => l_return_status,
1156: p_catv_rec => p_catv_rec);
1149: return OKC_API.G_RET_STS_UNEXP_ERROR;
1150: end if;
1151: if (l_return_status = OKC_API.G_RET_STS_ERROR
1152: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1153: x_return_status := OKC_API.G_RET_STS_ERROR;
1154: end if;
1155: validate_cle_id(x_return_status => l_return_status,
1156: p_catv_rec => p_catv_rec);
1157: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1153: x_return_status := OKC_API.G_RET_STS_ERROR;
1154: end if;
1155: validate_cle_id(x_return_status => l_return_status,
1156: p_catv_rec => p_catv_rec);
1157: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1158: return OKC_API.G_RET_STS_UNEXP_ERROR;
1159: end if;
1160: if (l_return_status = OKC_API.G_RET_STS_ERROR
1161: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1154: end if;
1155: validate_cle_id(x_return_status => l_return_status,
1156: p_catv_rec => p_catv_rec);
1157: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1158: return OKC_API.G_RET_STS_UNEXP_ERROR;
1159: end if;
1160: if (l_return_status = OKC_API.G_RET_STS_ERROR
1161: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1162: x_return_status := OKC_API.G_RET_STS_ERROR;
1156: p_catv_rec => p_catv_rec);
1157: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1158: return OKC_API.G_RET_STS_UNEXP_ERROR;
1159: end if;
1160: if (l_return_status = OKC_API.G_RET_STS_ERROR
1161: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1162: x_return_status := OKC_API.G_RET_STS_ERROR;
1163: end if;
1164: validate_chr_id(x_return_status => l_return_status,
1157: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1158: return OKC_API.G_RET_STS_UNEXP_ERROR;
1159: end if;
1160: if (l_return_status = OKC_API.G_RET_STS_ERROR
1161: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1162: x_return_status := OKC_API.G_RET_STS_ERROR;
1163: end if;
1164: validate_chr_id(x_return_status => l_return_status,
1165: p_catv_rec => p_catv_rec);
1158: return OKC_API.G_RET_STS_UNEXP_ERROR;
1159: end if;
1160: if (l_return_status = OKC_API.G_RET_STS_ERROR
1161: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1162: x_return_status := OKC_API.G_RET_STS_ERROR;
1163: end if;
1164: validate_chr_id(x_return_status => l_return_status,
1165: p_catv_rec => p_catv_rec);
1166: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1162: x_return_status := OKC_API.G_RET_STS_ERROR;
1163: end if;
1164: validate_chr_id(x_return_status => l_return_status,
1165: p_catv_rec => p_catv_rec);
1166: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1167: return OKC_API.G_RET_STS_UNEXP_ERROR;
1168: end if;
1169: if (l_return_status = OKC_API.G_RET_STS_ERROR
1170: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1163: end if;
1164: validate_chr_id(x_return_status => l_return_status,
1165: p_catv_rec => p_catv_rec);
1166: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1167: return OKC_API.G_RET_STS_UNEXP_ERROR;
1168: end if;
1169: if (l_return_status = OKC_API.G_RET_STS_ERROR
1170: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1171: x_return_status := OKC_API.G_RET_STS_ERROR;
1165: p_catv_rec => p_catv_rec);
1166: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1167: return OKC_API.G_RET_STS_UNEXP_ERROR;
1168: end if;
1169: if (l_return_status = OKC_API.G_RET_STS_ERROR
1170: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1171: x_return_status := OKC_API.G_RET_STS_ERROR;
1172: end if;
1173: validate_cat_id(x_return_status => l_return_status,
1166: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1167: return OKC_API.G_RET_STS_UNEXP_ERROR;
1168: end if;
1169: if (l_return_status = OKC_API.G_RET_STS_ERROR
1170: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1171: x_return_status := OKC_API.G_RET_STS_ERROR;
1172: end if;
1173: validate_cat_id(x_return_status => l_return_status,
1174: p_catv_rec => p_catv_rec);
1167: return OKC_API.G_RET_STS_UNEXP_ERROR;
1168: end if;
1169: if (l_return_status = OKC_API.G_RET_STS_ERROR
1170: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1171: x_return_status := OKC_API.G_RET_STS_ERROR;
1172: end if;
1173: validate_cat_id(x_return_status => l_return_status,
1174: p_catv_rec => p_catv_rec);
1175: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1171: x_return_status := OKC_API.G_RET_STS_ERROR;
1172: end if;
1173: validate_cat_id(x_return_status => l_return_status,
1174: p_catv_rec => p_catv_rec);
1175: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1176: return OKC_API.G_RET_STS_UNEXP_ERROR;
1177: end if;
1178: if (l_return_status = OKC_API.G_RET_STS_ERROR
1179: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1172: end if;
1173: validate_cat_id(x_return_status => l_return_status,
1174: p_catv_rec => p_catv_rec);
1175: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1176: return OKC_API.G_RET_STS_UNEXP_ERROR;
1177: end if;
1178: if (l_return_status = OKC_API.G_RET_STS_ERROR
1179: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1180: x_return_status := OKC_API.G_RET_STS_ERROR;
1174: p_catv_rec => p_catv_rec);
1175: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1176: return OKC_API.G_RET_STS_UNEXP_ERROR;
1177: end if;
1178: if (l_return_status = OKC_API.G_RET_STS_ERROR
1179: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1180: x_return_status := OKC_API.G_RET_STS_ERROR;
1181: end if;
1182: return x_return_status;
1175: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
1176: return OKC_API.G_RET_STS_UNEXP_ERROR;
1177: end if;
1178: if (l_return_status = OKC_API.G_RET_STS_ERROR
1179: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1180: x_return_status := OKC_API.G_RET_STS_ERROR;
1181: end if;
1182: return x_return_status;
1183:
1176: return OKC_API.G_RET_STS_UNEXP_ERROR;
1177: end if;
1178: if (l_return_status = OKC_API.G_RET_STS_ERROR
1179: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
1180: x_return_status := OKC_API.G_RET_STS_ERROR;
1181: end if;
1182: return x_return_status;
1183:
1184: IF (l_debug = 'Y') THEN
1187: END IF;
1188:
1189: exception
1190: when OTHERS then
1191: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1192: p_msg_name => g_unexpected_error,
1193: p_token1 => g_sqlcode_token,
1194: p_token1_value => sqlcode,
1195: p_token2 => g_sqlerrm_token,
1193: p_token1 => g_sqlcode_token,
1194: p_token1_value => sqlcode,
1195: p_token2 => g_sqlerrm_token,
1196: p_token2_value => sqlerrm);
1197: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1198:
1199: return x_return_status;
1200:
1201: END Validate_Attributes;
1209: ------------------------------------------
1210: FUNCTION Validate_Record (
1211: p_catv_rec IN catv_rec_type
1212: ) RETURN VARCHAR2 IS
1213: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1214: /*+++++++++++++Start of hand code +++++++++++++++++*/
1215: CURSOR std_art_csr (p_sae_id IN NUMBER, p_sav_release IN VARCHAR2) IS
1216: select '!' from OKC_STD_ART_VERSIONS_B
1217: where SAE_ID=p_sae_id and SAV_RELEASE=p_sav_release;
1225:
1226: if (p_catv_rec.CAT_TYPE) = 'STA' then
1227: -- fulltext_yn should have a value
1228: if (p_catv_rec.fulltext_yn IS NULL) THEN
1229: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'FULLTEXT_YN');
1230: l_return_status := OKC_API.G_RET_STS_ERROR;
1231: end if;
1232: -- sav_sae_id should have a value
1233: if (p_catv_rec.sav_sae_id IS NULL) THEN
1226: if (p_catv_rec.CAT_TYPE) = 'STA' then
1227: -- fulltext_yn should have a value
1228: if (p_catv_rec.fulltext_yn IS NULL) THEN
1229: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'FULLTEXT_YN');
1230: l_return_status := OKC_API.G_RET_STS_ERROR;
1231: end if;
1232: -- sav_sae_id should have a value
1233: if (p_catv_rec.sav_sae_id IS NULL) THEN
1234: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SAV_SAE_ID');
1230: l_return_status := OKC_API.G_RET_STS_ERROR;
1231: end if;
1232: -- sav_sae_id should have a value
1233: if (p_catv_rec.sav_sae_id IS NULL) THEN
1234: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SAV_SAE_ID');
1235: l_return_status := OKC_API.G_RET_STS_ERROR;
1236: end if;
1237: -- arc validation
1238: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1231: end if;
1232: -- sav_sae_id should have a value
1233: if (p_catv_rec.sav_sae_id IS NULL) THEN
1234: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SAV_SAE_ID');
1235: l_return_status := OKC_API.G_RET_STS_ERROR;
1236: end if;
1237: -- arc validation
1238: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1239: then
1234: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SAV_SAE_ID');
1235: l_return_status := OKC_API.G_RET_STS_ERROR;
1236: end if;
1237: -- arc validation
1238: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1239: then
1240: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
1241: l_return_status := OKC_API.G_RET_STS_ERROR;
1242: end if;
1236: end if;
1237: -- arc validation
1238: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1239: then
1240: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
1241: l_return_status := OKC_API.G_RET_STS_ERROR;
1242: end if;
1243: -- composite FK validation
1244: if not(p_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM
1237: -- arc validation
1238: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1239: then
1240: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
1241: l_return_status := OKC_API.G_RET_STS_ERROR;
1242: end if;
1243: -- composite FK validation
1244: if not(p_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM
1245: and p_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) then
1240: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
1241: l_return_status := OKC_API.G_RET_STS_ERROR;
1242: end if;
1243: -- composite FK validation
1244: if not(p_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM
1245: and p_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) then
1246: OPEN std_art_csr(p_catv_rec.sav_sae_id,p_catv_rec.sav_sav_release);
1247: FETCH std_art_csr INTO l_dummy_var;
1248: CLOSE std_art_csr;
1241: l_return_status := OKC_API.G_RET_STS_ERROR;
1242: end if;
1243: -- composite FK validation
1244: if not(p_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM
1245: and p_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) then
1246: OPEN std_art_csr(p_catv_rec.sav_sae_id,p_catv_rec.sav_sav_release);
1247: FETCH std_art_csr INTO l_dummy_var;
1248: CLOSE std_art_csr;
1249: if (l_dummy_var='?') then
1246: OPEN std_art_csr(p_catv_rec.sav_sae_id,p_catv_rec.sav_sav_release);
1247: FETCH std_art_csr INTO l_dummy_var;
1248: CLOSE std_art_csr;
1249: if (l_dummy_var='?') then
1250: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1251: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1252: l_return_status := OKC_API.G_RET_STS_ERROR;
1253: end if;
1254: end if;
1247: FETCH std_art_csr INTO l_dummy_var;
1248: CLOSE std_art_csr;
1249: if (l_dummy_var='?') then
1250: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1251: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1252: l_return_status := OKC_API.G_RET_STS_ERROR;
1253: end if;
1254: end if;
1255: elsif (p_catv_rec.CAT_TYPE = 'NSD') then
1248: CLOSE std_art_csr;
1249: if (l_dummy_var='?') then
1250: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1251: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1252: l_return_status := OKC_API.G_RET_STS_ERROR;
1253: end if;
1254: end if;
1255: elsif (p_catv_rec.CAT_TYPE = 'NSD') then
1256: -- name should have a value
1254: end if;
1255: elsif (p_catv_rec.CAT_TYPE = 'NSD') then
1256: -- name should have a value
1257: if (p_catv_rec.name IS NULL) THEN
1258: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'NAME');
1259: l_return_status := OKC_API.G_RET_STS_ERROR;
1260: end if;
1261: -- sbt_code should have a value
1262: if (p_catv_rec.sbt_code IS NULL) THEN
1255: elsif (p_catv_rec.CAT_TYPE = 'NSD') then
1256: -- name should have a value
1257: if (p_catv_rec.name IS NULL) THEN
1258: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'NAME');
1259: l_return_status := OKC_API.G_RET_STS_ERROR;
1260: end if;
1261: -- sbt_code should have a value
1262: if (p_catv_rec.sbt_code IS NULL) THEN
1263: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SBT_CODE');
1259: l_return_status := OKC_API.G_RET_STS_ERROR;
1260: end if;
1261: -- sbt_code should have a value
1262: if (p_catv_rec.sbt_code IS NULL) THEN
1263: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SBT_CODE');
1264: l_return_status := OKC_API.G_RET_STS_ERROR;
1265: end if;
1266: -- arc validation
1267: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1260: end if;
1261: -- sbt_code should have a value
1262: if (p_catv_rec.sbt_code IS NULL) THEN
1263: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SBT_CODE');
1264: l_return_status := OKC_API.G_RET_STS_ERROR;
1265: end if;
1266: -- arc validation
1267: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1268: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1263: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SBT_CODE');
1264: l_return_status := OKC_API.G_RET_STS_ERROR;
1265: end if;
1266: -- arc validation
1267: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1268: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1269: l_return_status := OKC_API.G_RET_STS_ERROR;
1270: end if;
1271: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1264: l_return_status := OKC_API.G_RET_STS_ERROR;
1265: end if;
1266: -- arc validation
1267: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1268: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1269: l_return_status := OKC_API.G_RET_STS_ERROR;
1270: end if;
1271: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1272: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1265: end if;
1266: -- arc validation
1267: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1268: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1269: l_return_status := OKC_API.G_RET_STS_ERROR;
1270: end if;
1271: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1272: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1273: l_return_status := OKC_API.G_RET_STS_ERROR;
1267: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1268: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1269: l_return_status := OKC_API.G_RET_STS_ERROR;
1270: end if;
1271: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1272: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1273: l_return_status := OKC_API.G_RET_STS_ERROR;
1274: end if;
1275: end if;
1268: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1269: l_return_status := OKC_API.G_RET_STS_ERROR;
1270: end if;
1271: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1272: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1273: l_return_status := OKC_API.G_RET_STS_ERROR;
1274: end if;
1275: end if;
1276: if (p_catv_rec.cle_id IS NULL and p_catv_rec.chr_id IS NULL)
1269: l_return_status := OKC_API.G_RET_STS_ERROR;
1270: end if;
1271: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1272: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1273: l_return_status := OKC_API.G_RET_STS_ERROR;
1274: end if;
1275: end if;
1276: if (p_catv_rec.cle_id IS NULL and p_catv_rec.chr_id IS NULL)
1277: then
1274: end if;
1275: end if;
1276: if (p_catv_rec.cle_id IS NULL and p_catv_rec.chr_id IS NULL)
1277: then
1278: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'CLE_ID V CHR_ID');
1279: l_return_status := OKC_API.G_RET_STS_ERROR;
1280: end if;
1281: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1282: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1275: end if;
1276: if (p_catv_rec.cle_id IS NULL and p_catv_rec.chr_id IS NULL)
1277: then
1278: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'CLE_ID V CHR_ID');
1279: l_return_status := OKC_API.G_RET_STS_ERROR;
1280: end if;
1281: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1282: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1283: then
1277: then
1278: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'CLE_ID V CHR_ID');
1279: l_return_status := OKC_API.G_RET_STS_ERROR;
1280: end if;
1281: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1282: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1283: then
1284: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID V CHR_ID');
1285: l_return_status := OKC_API.G_RET_STS_ERROR;
1278: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'CLE_ID V CHR_ID');
1279: l_return_status := OKC_API.G_RET_STS_ERROR;
1280: end if;
1281: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1282: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1283: then
1284: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID V CHR_ID');
1285: l_return_status := OKC_API.G_RET_STS_ERROR;
1286: end if;
1280: end if;
1281: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1282: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1283: then
1284: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID V CHR_ID');
1285: l_return_status := OKC_API.G_RET_STS_ERROR;
1286: end if;
1287: RETURN (l_return_status);
1288:
1281: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1282: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1283: then
1284: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID V CHR_ID');
1285: l_return_status := OKC_API.G_RET_STS_ERROR;
1286: end if;
1287: RETURN (l_return_status);
1288:
1289: IF (l_debug = 'Y') THEN
1301:
1302: if std_art_csr%ISOPEN then
1303: close std_art_csr;
1304: end if;
1305: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1306: p_msg_name => g_unexpected_error,
1307: p_token1 => g_sqlcode_token,
1308: p_token1_value => sqlcode,
1309: p_token2 => g_sqlerrm_token,
1307: p_token1 => g_sqlcode_token,
1308: p_token1_value => sqlcode,
1309: p_token2 => g_sqlerrm_token,
1310: p_token2_value => sqlerrm);
1311: RETURN(OKC_API.G_RET_STS_UNEXP_ERROR);
1312:
1313: END Validate_Record;
1314: /*+++++++++++++End of hand code +++++++++++++++++++*/
1315:
1458: p_catv_rec IN catv_rec_type) IS
1459:
1460: l_api_version CONSTANT NUMBER := 1;
1461: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1462: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1463: l_catv_rec catv_rec_type := p_catv_rec;
1464: l_cat_rec cat_rec_type;
1465: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
1466: BEGIN
1469: okc_debug.Set_Indentation('OKC_CAT_PVT');
1470: okc_debug.log('3800: Entered validate_row', 2);
1471: END IF;
1472:
1473: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1474: G_PKG_NAME,
1475: p_init_msg_list,
1476: l_api_version,
1477: p_api_version,
1476: l_api_version,
1477: p_api_version,
1478: '_PVT',
1479: x_return_status);
1480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1483: RAISE OKC_API.G_EXCEPTION_ERROR;
1484: END IF;
1477: p_api_version,
1478: '_PVT',
1479: x_return_status);
1480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1483: RAISE OKC_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: --- Validate all non-missing attributes (Item Level Validation)
1478: '_PVT',
1479: x_return_status);
1480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1483: RAISE OKC_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: --- Validate all non-missing attributes (Item Level Validation)
1486: l_return_status := Validate_Attributes(l_catv_rec);
1479: x_return_status);
1480: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1483: RAISE OKC_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: --- Validate all non-missing attributes (Item Level Validation)
1486: l_return_status := Validate_Attributes(l_catv_rec);
1487: --- If any errors happen abort API
1484: END IF;
1485: --- Validate all non-missing attributes (Item Level Validation)
1486: l_return_status := Validate_Attributes(l_catv_rec);
1487: --- If any errors happen abort API
1488: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1491: RAISE OKC_API.G_EXCEPTION_ERROR;
1492: END IF;
1485: --- Validate all non-missing attributes (Item Level Validation)
1486: l_return_status := Validate_Attributes(l_catv_rec);
1487: --- If any errors happen abort API
1488: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1491: RAISE OKC_API.G_EXCEPTION_ERROR;
1492: END IF;
1493: l_return_status := Validate_Record(l_catv_rec);
1486: l_return_status := Validate_Attributes(l_catv_rec);
1487: --- If any errors happen abort API
1488: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1491: RAISE OKC_API.G_EXCEPTION_ERROR;
1492: END IF;
1493: l_return_status := Validate_Record(l_catv_rec);
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1487: --- If any errors happen abort API
1488: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1489: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1491: RAISE OKC_API.G_EXCEPTION_ERROR;
1492: END IF;
1493: l_return_status := Validate_Record(l_catv_rec);
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1490: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1491: RAISE OKC_API.G_EXCEPTION_ERROR;
1492: END IF;
1493: l_return_status := Validate_Record(l_catv_rec);
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1491: RAISE OKC_API.G_EXCEPTION_ERROR;
1492: END IF;
1493: l_return_status := Validate_Record(l_catv_rec);
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1492: END IF;
1493: l_return_status := Validate_Record(l_catv_rec);
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1500:
1493: l_return_status := Validate_Record(l_catv_rec);
1494: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1500:
1501: IF (l_debug = 'Y') THEN
1495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1496: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1500:
1501: IF (l_debug = 'Y') THEN
1502: okc_debug.log('3900: Leaving validate_row', 2);
1503: okc_debug.Reset_Indentation;
1503: okc_debug.Reset_Indentation;
1504: END IF;
1505:
1506: EXCEPTION
1507: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1508:
1509: IF (l_debug = 'Y') THEN
1510: okc_debug.log('4000: Leaving validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1511: okc_debug.Reset_Indentation;
1506: EXCEPTION
1507: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1508:
1509: IF (l_debug = 'Y') THEN
1510: okc_debug.log('4000: Leaving validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1511: okc_debug.Reset_Indentation;
1512: END IF;
1513:
1514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1510: okc_debug.log('4000: Leaving validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1511: okc_debug.Reset_Indentation;
1512: END IF;
1513:
1514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1515: (
1516: l_api_name,
1517: G_PKG_NAME,
1518: 'OKC_API.G_RET_STS_ERROR',
1514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1515: (
1516: l_api_name,
1517: G_PKG_NAME,
1518: 'OKC_API.G_RET_STS_ERROR',
1519: x_msg_count,
1520: x_msg_data,
1521: '_PVT'
1522: );
1519: x_msg_count,
1520: x_msg_data,
1521: '_PVT'
1522: );
1523: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1524:
1525: IF (l_debug = 'Y') THEN
1526: okc_debug.log('4100: Leaving validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1527: okc_debug.Reset_Indentation;
1522: );
1523: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1524:
1525: IF (l_debug = 'Y') THEN
1526: okc_debug.log('4100: Leaving validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1527: okc_debug.Reset_Indentation;
1528: END IF;
1529:
1530: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1526: okc_debug.log('4100: Leaving validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1527: okc_debug.Reset_Indentation;
1528: END IF;
1529:
1530: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1531: (
1532: l_api_name,
1533: G_PKG_NAME,
1534: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1530: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1531: (
1532: l_api_name,
1533: G_PKG_NAME,
1534: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1535: x_msg_count,
1536: x_msg_data,
1537: '_PVT'
1538: );
1542: okc_debug.log('4200: Leaving validate_row:OTHERS Exception', 2);
1543: okc_debug.Reset_Indentation;
1544: END IF;
1545:
1546: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1547: (
1548: l_api_name,
1549: G_PKG_NAME,
1550: 'OTHERS',
1566: p_catv_tbl IN catv_tbl_type) IS
1567:
1568: l_api_version CONSTANT NUMBER := 1;
1569: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1570: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1571: i NUMBER := 0;
1572: BEGIN
1573:
1574: IF (l_debug = 'Y') THEN
1575: okc_debug.Set_Indentation('OKC_CAT_PVT');
1576: okc_debug.log('4300: Entered validate_row', 2);
1577: END IF;
1578:
1579: OKC_API.init_msg_list(p_init_msg_list);
1580: -- Make sure PL/SQL table has records in it before passing
1581: IF (p_catv_tbl.COUNT > 0) THEN
1582: i := p_catv_tbl.FIRST;
1583: LOOP
1582: i := p_catv_tbl.FIRST;
1583: LOOP
1584: validate_row (
1585: p_api_version => p_api_version,
1586: p_init_msg_list => OKC_API.G_FALSE,
1587: x_return_status => x_return_status,
1588: x_msg_count => x_msg_count,
1589: x_msg_data => x_msg_data,
1590: p_catv_rec => p_catv_tbl(i));
1598: okc_debug.Reset_Indentation;
1599: END IF;
1600:
1601: EXCEPTION
1602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1603:
1604: IF (l_debug = 'Y') THEN
1605: okc_debug.log('4500: Leaving validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1606: okc_debug.Reset_Indentation;
1601: EXCEPTION
1602: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1603:
1604: IF (l_debug = 'Y') THEN
1605: okc_debug.log('4500: Leaving validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1606: okc_debug.Reset_Indentation;
1607: END IF;
1608:
1609: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1605: okc_debug.log('4500: Leaving validate_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1606: okc_debug.Reset_Indentation;
1607: END IF;
1608:
1609: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1610: (
1611: l_api_name,
1612: G_PKG_NAME,
1613: 'OKC_API.G_RET_STS_ERROR',
1609: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1610: (
1611: l_api_name,
1612: G_PKG_NAME,
1613: 'OKC_API.G_RET_STS_ERROR',
1614: x_msg_count,
1615: x_msg_data,
1616: '_PVT'
1617: );
1614: x_msg_count,
1615: x_msg_data,
1616: '_PVT'
1617: );
1618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1619:
1620: IF (l_debug = 'Y') THEN
1621: okc_debug.log('4600: Leaving validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1622: okc_debug.Reset_Indentation;
1617: );
1618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1619:
1620: IF (l_debug = 'Y') THEN
1621: okc_debug.log('4600: Leaving validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1622: okc_debug.Reset_Indentation;
1623: END IF;
1624:
1625: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1621: okc_debug.log('4600: Leaving validate_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1622: okc_debug.Reset_Indentation;
1623: END IF;
1624:
1625: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1626: (
1627: l_api_name,
1628: G_PKG_NAME,
1629: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1625: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1626: (
1627: l_api_name,
1628: G_PKG_NAME,
1629: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1630: x_msg_count,
1631: x_msg_data,
1632: '_PVT'
1633: );
1637: okc_debug.log('4700: Leaving validate_row:OTHERS Exception', 2);
1638: okc_debug.Reset_Indentation;
1639: END IF;
1640:
1641: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1645: 'OTHERS',
1665: x_cat_rec OUT NOCOPY cat_rec_type) IS
1666:
1667: l_api_version CONSTANT NUMBER := 1;
1668: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1669: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1670: l_cat_rec cat_rec_type := p_cat_rec;
1671: l_def_cat_rec cat_rec_type;
1672: -----------------------------------------
1673: -- Set_Attributes for:OKC_K_ARTICLES_B --
1675: FUNCTION Set_Attributes (
1676: p_cat_rec IN cat_rec_type,
1677: x_cat_rec OUT NOCOPY cat_rec_type
1678: ) RETURN VARCHAR2 IS
1679: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1680: BEGIN
1681:
1682: x_cat_rec := p_cat_rec;
1683: RETURN(l_return_status);
1689: okc_debug.Set_Indentation('OKC_CAT_PVT');
1690: okc_debug.log('4800: Entered insert_row', 2);
1691: END IF;
1692:
1693: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1694: p_init_msg_list,
1695: '_PVT',
1696: x_return_status);
1697: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1693: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1694: p_init_msg_list,
1695: '_PVT',
1696: x_return_status);
1697: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1698: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1700: RAISE OKC_API.G_EXCEPTION_ERROR;
1701: END IF;
1694: p_init_msg_list,
1695: '_PVT',
1696: x_return_status);
1697: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1698: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1700: RAISE OKC_API.G_EXCEPTION_ERROR;
1701: END IF;
1702: --- Setting item attributes
1695: '_PVT',
1696: x_return_status);
1697: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1698: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1700: RAISE OKC_API.G_EXCEPTION_ERROR;
1701: END IF;
1702: --- Setting item attributes
1703: l_return_status := Set_Attributes(
1696: x_return_status);
1697: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1698: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1699: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1700: RAISE OKC_API.G_EXCEPTION_ERROR;
1701: END IF;
1702: --- Setting item attributes
1703: l_return_status := Set_Attributes(
1704: p_cat_rec, -- IN
1703: l_return_status := Set_Attributes(
1704: p_cat_rec, -- IN
1705: l_cat_rec); -- OUT
1706: --- If any errors happen abort API
1707: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1710: RAISE OKC_API.G_EXCEPTION_ERROR;
1711: END IF;
1704: p_cat_rec, -- IN
1705: l_cat_rec); -- OUT
1706: --- If any errors happen abort API
1707: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1710: RAISE OKC_API.G_EXCEPTION_ERROR;
1711: END IF;
1712: INSERT INTO OKC_K_ARTICLES_B(
1705: l_cat_rec); -- OUT
1706: --- If any errors happen abort API
1707: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1710: RAISE OKC_API.G_EXCEPTION_ERROR;
1711: END IF;
1712: INSERT INTO OKC_K_ARTICLES_B(
1713: id,
1706: --- If any errors happen abort API
1707: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1708: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1709: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1710: RAISE OKC_API.G_EXCEPTION_ERROR;
1711: END IF;
1712: INSERT INTO OKC_K_ARTICLES_B(
1713: id,
1714: sav_sae_id,
1774: l_cat_rec.attribute14,
1775: l_cat_rec.attribute15);
1776: -- Set OUT values
1777: x_cat_rec := l_cat_rec;
1778: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1779:
1780: IF (l_debug = 'Y') THEN
1781: okc_debug.log('4900: Leaving insert_row', 2);
1782: okc_debug.Reset_Indentation;
1782: okc_debug.Reset_Indentation;
1783: END IF;
1784:
1785: EXCEPTION
1786: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1787:
1788: IF (l_debug = 'Y') THEN
1789: okc_debug.log('5000: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1790: okc_debug.Reset_Indentation;
1785: EXCEPTION
1786: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1787:
1788: IF (l_debug = 'Y') THEN
1789: okc_debug.log('5000: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1790: okc_debug.Reset_Indentation;
1791: END IF;
1792:
1793: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1789: okc_debug.log('5000: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1790: okc_debug.Reset_Indentation;
1791: END IF;
1792:
1793: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1794: (
1795: l_api_name,
1796: G_PKG_NAME,
1797: 'OKC_API.G_RET_STS_ERROR',
1793: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1794: (
1795: l_api_name,
1796: G_PKG_NAME,
1797: 'OKC_API.G_RET_STS_ERROR',
1798: x_msg_count,
1799: x_msg_data,
1800: '_PVT'
1801: );
1798: x_msg_count,
1799: x_msg_data,
1800: '_PVT'
1801: );
1802: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1803:
1804: IF (l_debug = 'Y') THEN
1805: okc_debug.log('5100: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1806: okc_debug.Reset_Indentation;
1801: );
1802: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1803:
1804: IF (l_debug = 'Y') THEN
1805: okc_debug.log('5100: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1806: okc_debug.Reset_Indentation;
1807: END IF;
1808:
1809: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1805: okc_debug.log('5100: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1806: okc_debug.Reset_Indentation;
1807: END IF;
1808:
1809: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1810: (
1811: l_api_name,
1812: G_PKG_NAME,
1813: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1809: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1810: (
1811: l_api_name,
1812: G_PKG_NAME,
1813: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1814: x_msg_count,
1815: x_msg_data,
1816: '_PVT'
1817: );
1821: okc_debug.log('5200: Leaving insert_row:OTHERS Exception', 2);
1822: okc_debug.Reset_Indentation;
1823: END IF;
1824:
1825: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1826: (
1827: l_api_name,
1828: G_PKG_NAME,
1829: 'OTHERS',
1845: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type) IS
1846:
1847: l_api_version CONSTANT NUMBER := 1;
1848: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1849: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1850: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type := p_okc_k_articles_tl_rec;
1851: l_def_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
1852: CURSOR get_languages IS
1853: SELECT *
1859: FUNCTION Set_Attributes (
1860: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type,
1861: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type
1862: ) RETURN VARCHAR2 IS
1863: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1864: BEGIN
1865:
1866: x_okc_k_articles_tl_rec := p_okc_k_articles_tl_rec;
1867: x_okc_k_articles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1875: okc_debug.Set_Indentation('OKC_CAT_PVT');
1876: okc_debug.log('5300: Entered insert_row', 2);
1877: END IF;
1878:
1879: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1880: p_init_msg_list,
1881: '_PVT',
1882: x_return_status);
1883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1879: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1880: p_init_msg_list,
1881: '_PVT',
1882: x_return_status);
1883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1886: RAISE OKC_API.G_EXCEPTION_ERROR;
1887: END IF;
1880: p_init_msg_list,
1881: '_PVT',
1882: x_return_status);
1883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1886: RAISE OKC_API.G_EXCEPTION_ERROR;
1887: END IF;
1888: --- Setting item attributes
1881: '_PVT',
1882: x_return_status);
1883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1886: RAISE OKC_API.G_EXCEPTION_ERROR;
1887: END IF;
1888: --- Setting item attributes
1889: l_return_status := Set_Attributes(
1882: x_return_status);
1883: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1884: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1885: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1886: RAISE OKC_API.G_EXCEPTION_ERROR;
1887: END IF;
1888: --- Setting item attributes
1889: l_return_status := Set_Attributes(
1890: p_okc_k_articles_tl_rec, -- IN
1889: l_return_status := Set_Attributes(
1890: p_okc_k_articles_tl_rec, -- IN
1891: l_okc_k_articles_tl_rec); -- OUT
1892: --- If any errors happen abort API
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1890: p_okc_k_articles_tl_rec, -- IN
1891: l_okc_k_articles_tl_rec); -- OUT
1892: --- If any errors happen abort API
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898: FOR l_lang_rec IN get_languages LOOP
1891: l_okc_k_articles_tl_rec); -- OUT
1892: --- If any errors happen abort API
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898: FOR l_lang_rec IN get_languages LOOP
1899: l_okc_k_articles_tl_rec.language := l_lang_rec.language_code;
1892: --- If any errors happen abort API
1893: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1894: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1895: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1896: RAISE OKC_API.G_EXCEPTION_ERROR;
1897: END IF;
1898: FOR l_lang_rec IN get_languages LOOP
1899: l_okc_k_articles_tl_rec.language := l_lang_rec.language_code;
1900: INSERT INTO OKC_K_ARTICLES_TL(
1931: l_okc_k_articles_tl_rec.sav_sav_release);
1932: END LOOP;
1933: -- Set OUT values
1934: x_okc_k_articles_tl_rec := l_okc_k_articles_tl_rec;
1935: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1936:
1937: IF (l_debug = 'Y') THEN
1938: okc_debug.log('5400: Leaving insert_row', 2);
1939: okc_debug.Reset_Indentation;
1939: okc_debug.Reset_Indentation;
1940: END IF;
1941:
1942: EXCEPTION
1943: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1944:
1945: IF (l_debug = 'Y') THEN
1946: okc_debug.log('5500: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1947: okc_debug.Reset_Indentation;
1942: EXCEPTION
1943: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1944:
1945: IF (l_debug = 'Y') THEN
1946: okc_debug.log('5500: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1947: okc_debug.Reset_Indentation;
1948: END IF;
1949:
1950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1946: okc_debug.log('5500: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1947: okc_debug.Reset_Indentation;
1948: END IF;
1949:
1950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1951: (
1952: l_api_name,
1953: G_PKG_NAME,
1954: 'OKC_API.G_RET_STS_ERROR',
1950: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1951: (
1952: l_api_name,
1953: G_PKG_NAME,
1954: 'OKC_API.G_RET_STS_ERROR',
1955: x_msg_count,
1956: x_msg_data,
1957: '_PVT'
1958: );
1955: x_msg_count,
1956: x_msg_data,
1957: '_PVT'
1958: );
1959: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1960:
1961: IF (l_debug = 'Y') THEN
1962: okc_debug.log('5600: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1963: okc_debug.Reset_Indentation;
1958: );
1959: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1960:
1961: IF (l_debug = 'Y') THEN
1962: okc_debug.log('5600: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1963: okc_debug.Reset_Indentation;
1964: END IF;
1965:
1966: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1962: okc_debug.log('5600: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1963: okc_debug.Reset_Indentation;
1964: END IF;
1965:
1966: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1967: (
1968: l_api_name,
1969: G_PKG_NAME,
1970: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1966: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1967: (
1968: l_api_name,
1969: G_PKG_NAME,
1970: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1971: x_msg_count,
1972: x_msg_data,
1973: '_PVT'
1974: );
1978: okc_debug.log('5700: Leaving insert_row:OTHERS Exception', 2);
1979: okc_debug.Reset_Indentation;
1980: END IF;
1981:
1982: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1983: (
1984: l_api_name,
1985: G_PKG_NAME,
1986: 'OTHERS',
2003: x_catv_rec OUT NOCOPY catv_rec_type) IS
2004:
2005: l_api_version CONSTANT NUMBER := 1;
2006: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2007: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2008: l_catv_rec catv_rec_type;
2009: l_def_catv_rec catv_rec_type;
2010: l_cat_rec cat_rec_type;
2011: lx_cat_rec cat_rec_type;
2045: FUNCTION Set_Attributes (
2046: p_catv_rec IN catv_rec_type,
2047: x_catv_rec OUT NOCOPY catv_rec_type
2048: ) RETURN VARCHAR2 IS
2049: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2050: BEGIN
2051:
2052: x_catv_rec := p_catv_rec;
2053: x_catv_rec.OBJECT_VERSION_NUMBER := 1;
2066: okc_debug.Set_Indentation('OKC_CAT_PVT');
2067: okc_debug.log('6000: Entered insert_row', 2);
2068: END IF;
2069:
2070: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2071: G_PKG_NAME,
2072: p_init_msg_list,
2073: l_api_version,
2074: p_api_version,
2073: l_api_version,
2074: p_api_version,
2075: '_PVT',
2076: x_return_status);
2077: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2081: END IF;
2074: p_api_version,
2075: '_PVT',
2076: x_return_status);
2077: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2081: END IF;
2082: l_catv_rec := null_out_defaults(p_catv_rec);
2075: '_PVT',
2076: x_return_status);
2077: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2081: END IF;
2082: l_catv_rec := null_out_defaults(p_catv_rec);
2083: -- Set primary key value
2076: x_return_status);
2077: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2078: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2079: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2080: RAISE OKC_API.G_EXCEPTION_ERROR;
2081: END IF;
2082: l_catv_rec := null_out_defaults(p_catv_rec);
2083: -- Set primary key value
2084: l_catv_rec.ID := get_seq_id;
2086: l_return_status := Set_Attributes(
2087: l_catv_rec, -- IN
2088: l_def_catv_rec); -- OUT
2089: --- If any errors happen abort API
2090: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2092: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2093: RAISE OKC_API.G_EXCEPTION_ERROR;
2094: END IF;
2087: l_catv_rec, -- IN
2088: l_def_catv_rec); -- OUT
2089: --- If any errors happen abort API
2090: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2092: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2093: RAISE OKC_API.G_EXCEPTION_ERROR;
2094: END IF;
2095: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
2088: l_def_catv_rec); -- OUT
2089: --- If any errors happen abort API
2090: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2092: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2093: RAISE OKC_API.G_EXCEPTION_ERROR;
2094: END IF;
2095: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
2096: --- Validate all non-missing attributes (Item Level Validation)
2089: --- If any errors happen abort API
2090: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2091: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2092: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2093: RAISE OKC_API.G_EXCEPTION_ERROR;
2094: END IF;
2095: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
2096: --- Validate all non-missing attributes (Item Level Validation)
2097: l_return_status := Validate_Attributes(l_def_catv_rec);
2095: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
2096: --- Validate all non-missing attributes (Item Level Validation)
2097: l_return_status := Validate_Attributes(l_def_catv_rec);
2098: --- If any errors happen abort API
2099: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2102: RAISE OKC_API.G_EXCEPTION_ERROR;
2103: END IF;
2096: --- Validate all non-missing attributes (Item Level Validation)
2097: l_return_status := Validate_Attributes(l_def_catv_rec);
2098: --- If any errors happen abort API
2099: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2102: RAISE OKC_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: l_return_status := Validate_Record(l_def_catv_rec);
2097: l_return_status := Validate_Attributes(l_def_catv_rec);
2098: --- If any errors happen abort API
2099: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2102: RAISE OKC_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: l_return_status := Validate_Record(l_def_catv_rec);
2105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2098: --- If any errors happen abort API
2099: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2100: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2102: RAISE OKC_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: l_return_status := Validate_Record(l_def_catv_rec);
2105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2106: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2101: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2102: RAISE OKC_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: l_return_status := Validate_Record(l_def_catv_rec);
2105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2106: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2108: RAISE OKC_API.G_EXCEPTION_ERROR;
2109: END IF;
2102: RAISE OKC_API.G_EXCEPTION_ERROR;
2103: END IF;
2104: l_return_status := Validate_Record(l_def_catv_rec);
2105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2106: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2108: RAISE OKC_API.G_EXCEPTION_ERROR;
2109: END IF;
2110: --------------------------------------
2103: END IF;
2104: l_return_status := Validate_Record(l_def_catv_rec);
2105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2106: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2108: RAISE OKC_API.G_EXCEPTION_ERROR;
2109: END IF;
2110: --------------------------------------
2111: -- Move VIEW record to "Child" records
2104: l_return_status := Validate_Record(l_def_catv_rec);
2105: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2106: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2107: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2108: RAISE OKC_API.G_EXCEPTION_ERROR;
2109: END IF;
2110: --------------------------------------
2111: -- Move VIEW record to "Child" records
2112: --------------------------------------
2122: x_msg_data,
2123: l_cat_rec,
2124: lx_cat_rec
2125: );
2126: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2128: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2129: RAISE OKC_API.G_EXCEPTION_ERROR;
2130: END IF;
2123: l_cat_rec,
2124: lx_cat_rec
2125: );
2126: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2128: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2129: RAISE OKC_API.G_EXCEPTION_ERROR;
2130: END IF;
2131: migrate(lx_cat_rec, l_def_catv_rec);
2124: lx_cat_rec
2125: );
2126: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2128: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2129: RAISE OKC_API.G_EXCEPTION_ERROR;
2130: END IF;
2131: migrate(lx_cat_rec, l_def_catv_rec);
2132: insert_row(
2125: );
2126: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2128: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2129: RAISE OKC_API.G_EXCEPTION_ERROR;
2130: END IF;
2131: migrate(lx_cat_rec, l_def_catv_rec);
2132: insert_row(
2133: p_init_msg_list,
2136: x_msg_data,
2137: l_okc_k_articles_tl_rec,
2138: lx_okc_k_articles_tl_rec
2139: );
2140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2143: RAISE OKC_API.G_EXCEPTION_ERROR;
2144: END IF;
2137: l_okc_k_articles_tl_rec,
2138: lx_okc_k_articles_tl_rec
2139: );
2140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2143: RAISE OKC_API.G_EXCEPTION_ERROR;
2144: END IF;
2145: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
2138: lx_okc_k_articles_tl_rec
2139: );
2140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2143: RAISE OKC_API.G_EXCEPTION_ERROR;
2144: END IF;
2145: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
2146: -- Set OUT values
2139: );
2140: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2141: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2142: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2143: RAISE OKC_API.G_EXCEPTION_ERROR;
2144: END IF;
2145: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
2146: -- Set OUT values
2147: x_catv_rec := l_def_catv_rec;
2144: END IF;
2145: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
2146: -- Set OUT values
2147: x_catv_rec := l_def_catv_rec;
2148: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2149:
2150: IF (l_debug = 'Y') THEN
2151: okc_debug.log('6050: Leaving insert_row', 2);
2152: okc_debug.Reset_Indentation;
2152: okc_debug.Reset_Indentation;
2153: END IF;
2154:
2155: EXCEPTION
2156: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2157:
2158: IF (l_debug = 'Y') THEN
2159: okc_debug.log('6100: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2160: okc_debug.Reset_Indentation;
2155: EXCEPTION
2156: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2157:
2158: IF (l_debug = 'Y') THEN
2159: okc_debug.log('6100: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2160: okc_debug.Reset_Indentation;
2161: END IF;
2162:
2163: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2159: okc_debug.log('6100: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2160: okc_debug.Reset_Indentation;
2161: END IF;
2162:
2163: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2164: (
2165: l_api_name,
2166: G_PKG_NAME,
2167: 'OKC_API.G_RET_STS_ERROR',
2163: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2164: (
2165: l_api_name,
2166: G_PKG_NAME,
2167: 'OKC_API.G_RET_STS_ERROR',
2168: x_msg_count,
2169: x_msg_data,
2170: '_PVT'
2171: );
2168: x_msg_count,
2169: x_msg_data,
2170: '_PVT'
2171: );
2172: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2173:
2174: IF (l_debug = 'Y') THEN
2175: okc_debug.log('6200: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2176: okc_debug.Reset_Indentation;
2171: );
2172: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2173:
2174: IF (l_debug = 'Y') THEN
2175: okc_debug.log('6200: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2176: okc_debug.Reset_Indentation;
2177: END IF;
2178:
2179: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2175: okc_debug.log('6200: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2176: okc_debug.Reset_Indentation;
2177: END IF;
2178:
2179: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2180: (
2181: l_api_name,
2182: G_PKG_NAME,
2183: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2179: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2180: (
2181: l_api_name,
2182: G_PKG_NAME,
2183: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2184: x_msg_count,
2185: x_msg_data,
2186: '_PVT'
2187: );
2191: okc_debug.log('6300: Leaving insert_row:OTHERS Exception', 2);
2192: okc_debug.Reset_Indentation;
2193: END IF;
2194:
2195: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2196: (
2197: l_api_name,
2198: G_PKG_NAME,
2199: 'OTHERS',
2216: x_catv_tbl OUT NOCOPY catv_tbl_type) IS
2217:
2218: l_api_version CONSTANT NUMBER := 1;
2219: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2220: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2221: i NUMBER := 0;
2222: BEGIN
2223:
2224: IF (l_debug = 'Y') THEN
2225: okc_debug.Set_Indentation('OKC_CAT_PVT');
2226: okc_debug.log('6500: Entered insert_row', 2);
2227: END IF;
2228:
2229: OKC_API.init_msg_list(p_init_msg_list);
2230: -- Make sure PL/SQL table has records in it before passing
2231: IF (p_catv_tbl.COUNT > 0) THEN
2232: i := p_catv_tbl.FIRST;
2233: LOOP
2232: i := p_catv_tbl.FIRST;
2233: LOOP
2234: insert_row (
2235: p_api_version => p_api_version,
2236: p_init_msg_list => OKC_API.G_FALSE,
2237: x_return_status => x_return_status,
2238: x_msg_count => x_msg_count,
2239: x_msg_data => x_msg_data,
2240: p_catv_rec => p_catv_tbl(i),
2249: okc_debug.Reset_Indentation;
2250: END IF;
2251:
2252: EXCEPTION
2253: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2254:
2255: IF (l_debug = 'Y') THEN
2256: okc_debug.log('6600: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2257: okc_debug.Reset_Indentation;
2252: EXCEPTION
2253: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2254:
2255: IF (l_debug = 'Y') THEN
2256: okc_debug.log('6600: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2257: okc_debug.Reset_Indentation;
2258: END IF;
2259:
2260: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2256: okc_debug.log('6600: Leaving insert_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2257: okc_debug.Reset_Indentation;
2258: END IF;
2259:
2260: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2261: (
2262: l_api_name,
2263: G_PKG_NAME,
2264: 'OKC_API.G_RET_STS_ERROR',
2260: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2261: (
2262: l_api_name,
2263: G_PKG_NAME,
2264: 'OKC_API.G_RET_STS_ERROR',
2265: x_msg_count,
2266: x_msg_data,
2267: '_PVT'
2268: );
2265: x_msg_count,
2266: x_msg_data,
2267: '_PVT'
2268: );
2269: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2270:
2271: IF (l_debug = 'Y') THEN
2272: okc_debug.log('6700: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2273: okc_debug.Reset_Indentation;
2268: );
2269: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2270:
2271: IF (l_debug = 'Y') THEN
2272: okc_debug.log('6700: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2273: okc_debug.Reset_Indentation;
2274: END IF;
2275:
2276: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2272: okc_debug.log('6700: Leaving insert_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2273: okc_debug.Reset_Indentation;
2274: END IF;
2275:
2276: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2277: (
2278: l_api_name,
2279: G_PKG_NAME,
2280: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2276: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2277: (
2278: l_api_name,
2279: G_PKG_NAME,
2280: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2281: x_msg_count,
2282: x_msg_data,
2283: '_PVT'
2284: );
2288: okc_debug.log('6800: Leaving insert_row:OTHERS Exception', 2);
2289: okc_debug.Reset_Indentation;
2290: END IF;
2291:
2292: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2293: (
2294: l_api_name,
2295: G_PKG_NAME,
2296: 'OTHERS',
2328: FROM OKC_K_ARTICLES_B
2329: WHERE ID = p_cat_rec.id;
2330: l_api_version CONSTANT NUMBER := 1;
2331: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2332: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2333: l_object_version_number OKC_K_ARTICLES_B.OBJECT_VERSION_NUMBER%TYPE;
2334: lc_object_version_number OKC_K_ARTICLES_B.OBJECT_VERSION_NUMBER%TYPE;
2335: l_row_notfound BOOLEAN := FALSE;
2336: lc_row_notfound BOOLEAN := FALSE;
2340: okc_debug.Set_Indentation('OKC_CAT_PVT');
2341: okc_debug.log('7000: Entered lock_row', 2);
2342: END IF;
2343:
2344: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2345: p_init_msg_list,
2346: '_PVT',
2347: x_return_status);
2348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2344: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2345: p_init_msg_list,
2346: '_PVT',
2347: x_return_status);
2348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2345: p_init_msg_list,
2346: '_PVT',
2347: x_return_status);
2348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: BEGIN
2346: '_PVT',
2347: x_return_status);
2348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: BEGIN
2354:
2347: x_return_status);
2348: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2349: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2350: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2351: RAISE OKC_API.G_EXCEPTION_ERROR;
2352: END IF;
2353: BEGIN
2354:
2355: OPEN lock_csr(p_cat_rec);
2367:
2368: IF (lock_csr%ISOPEN) THEN
2369: CLOSE lock_csr;
2370: END IF;
2371: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2372: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2373: END;
2374:
2375: IF ( l_row_notfound ) THEN
2378: lc_row_notfound := lchk_csr%NOTFOUND;
2379: CLOSE lchk_csr;
2380: END IF;
2381: IF (lc_row_notfound) THEN
2382: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2383: RAISE OKC_API.G_EXCEPTION_ERROR;
2384: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2385: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2379: CLOSE lchk_csr;
2380: END IF;
2381: IF (lc_row_notfound) THEN
2382: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2383: RAISE OKC_API.G_EXCEPTION_ERROR;
2384: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2385: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2387: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2381: IF (lc_row_notfound) THEN
2382: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2383: RAISE OKC_API.G_EXCEPTION_ERROR;
2384: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2385: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2387: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2388: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2389: RAISE OKC_API.G_EXCEPTION_ERROR;
2382: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2383: RAISE OKC_API.G_EXCEPTION_ERROR;
2384: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2385: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2387: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2388: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2389: RAISE OKC_API.G_EXCEPTION_ERROR;
2390: ELSIF lc_object_version_number = -1 THEN
2384: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2385: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2387: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2388: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2389: RAISE OKC_API.G_EXCEPTION_ERROR;
2390: ELSIF lc_object_version_number = -1 THEN
2391: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2392: RAISE OKC_API.G_EXCEPTION_ERROR;
2385: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2386: RAISE OKC_API.G_EXCEPTION_ERROR;
2387: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2388: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2389: RAISE OKC_API.G_EXCEPTION_ERROR;
2390: ELSIF lc_object_version_number = -1 THEN
2391: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2392: RAISE OKC_API.G_EXCEPTION_ERROR;
2393: END IF;
2387: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2388: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2389: RAISE OKC_API.G_EXCEPTION_ERROR;
2390: ELSIF lc_object_version_number = -1 THEN
2391: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2392: RAISE OKC_API.G_EXCEPTION_ERROR;
2393: END IF;
2394: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2395:
2388: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2389: RAISE OKC_API.G_EXCEPTION_ERROR;
2390: ELSIF lc_object_version_number = -1 THEN
2391: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2392: RAISE OKC_API.G_EXCEPTION_ERROR;
2393: END IF;
2394: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2395:
2396: IF (l_debug = 'Y') THEN
2390: ELSIF lc_object_version_number = -1 THEN
2391: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2392: RAISE OKC_API.G_EXCEPTION_ERROR;
2393: END IF;
2394: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2395:
2396: IF (l_debug = 'Y') THEN
2397: okc_debug.log('7150: Leaving lock_row', 2);
2398: okc_debug.Reset_Indentation;
2398: okc_debug.Reset_Indentation;
2399: END IF;
2400:
2401: EXCEPTION
2402: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2403:
2404: IF (l_debug = 'Y') THEN
2405: okc_debug.log('7200: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2406: okc_debug.Reset_Indentation;
2401: EXCEPTION
2402: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2403:
2404: IF (l_debug = 'Y') THEN
2405: okc_debug.log('7200: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2406: okc_debug.Reset_Indentation;
2407: END IF;
2408:
2409: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2405: okc_debug.log('7200: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2406: okc_debug.Reset_Indentation;
2407: END IF;
2408:
2409: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2410: (
2411: l_api_name,
2412: G_PKG_NAME,
2413: 'OKC_API.G_RET_STS_ERROR',
2409: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2410: (
2411: l_api_name,
2412: G_PKG_NAME,
2413: 'OKC_API.G_RET_STS_ERROR',
2414: x_msg_count,
2415: x_msg_data,
2416: '_PVT'
2417: );
2414: x_msg_count,
2415: x_msg_data,
2416: '_PVT'
2417: );
2418: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2419:
2420: IF (l_debug = 'Y') THEN
2421: okc_debug.log('7300: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2422: okc_debug.Reset_Indentation;
2417: );
2418: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2419:
2420: IF (l_debug = 'Y') THEN
2421: okc_debug.log('7300: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2422: okc_debug.Reset_Indentation;
2423: END IF;
2424:
2425: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2421: okc_debug.log('7300: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2422: okc_debug.Reset_Indentation;
2423: END IF;
2424:
2425: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2426: (
2427: l_api_name,
2428: G_PKG_NAME,
2429: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2425: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2426: (
2427: l_api_name,
2428: G_PKG_NAME,
2429: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2430: x_msg_count,
2431: x_msg_data,
2432: '_PVT'
2433: );
2437: okc_debug.log('7400: Leaving lock_row:OTHERS Exception', 2);
2438: okc_debug.Reset_Indentation;
2439: END IF;
2440:
2441: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2442: (
2443: l_api_name,
2444: G_PKG_NAME,
2445: 'OTHERS',
2468: FOR UPDATE NOWAIT;
2469:
2470: l_api_version CONSTANT NUMBER := 1;
2471: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2472: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2473: l_lock_var lock_csr%ROWTYPE;
2474: l_row_notfound BOOLEAN := FALSE;
2475: lc_row_notfound BOOLEAN := FALSE;
2476: BEGIN
2479: okc_debug.Set_Indentation('OKC_CAT_PVT');
2480: okc_debug.log('8000: Entered lock_row', 2);
2481: END IF;
2482:
2483: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2484: p_init_msg_list,
2485: '_PVT',
2486: x_return_status);
2487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2483: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2484: p_init_msg_list,
2485: '_PVT',
2486: x_return_status);
2487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2484: p_init_msg_list,
2485: '_PVT',
2486: x_return_status);
2487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492: BEGIN
2485: '_PVT',
2486: x_return_status);
2487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492: BEGIN
2493:
2486: x_return_status);
2487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492: BEGIN
2493:
2494: OPEN lock_csr(p_okc_k_articles_tl_rec);
2511:
2512: IF (lock_csr%ISOPEN) THEN
2513: CLOSE lock_csr;
2514: END IF;
2515: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2516: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2517: END;
2518:
2519: IF ( l_row_notfound ) THEN
2516: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2517: END;
2518:
2519: IF ( l_row_notfound ) THEN
2520: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2521: RAISE OKC_API.G_EXCEPTION_ERROR;
2522: END IF;
2523: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2524:
2517: END;
2518:
2519: IF ( l_row_notfound ) THEN
2520: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2521: RAISE OKC_API.G_EXCEPTION_ERROR;
2522: END IF;
2523: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2524:
2525: IF (l_debug = 'Y') THEN
2519: IF ( l_row_notfound ) THEN
2520: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2521: RAISE OKC_API.G_EXCEPTION_ERROR;
2522: END IF;
2523: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2524:
2525: IF (l_debug = 'Y') THEN
2526: okc_debug.log('8300: Leaving lock_row', 2);
2527: okc_debug.Reset_Indentation;
2527: okc_debug.Reset_Indentation;
2528: END IF;
2529:
2530: EXCEPTION
2531: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2532:
2533: IF (l_debug = 'Y') THEN
2534: okc_debug.log('8400: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2535: okc_debug.Reset_Indentation;
2530: EXCEPTION
2531: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2532:
2533: IF (l_debug = 'Y') THEN
2534: okc_debug.log('8400: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2535: okc_debug.Reset_Indentation;
2536: END IF;
2537:
2538: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2534: okc_debug.log('8400: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2535: okc_debug.Reset_Indentation;
2536: END IF;
2537:
2538: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2539: (
2540: l_api_name,
2541: G_PKG_NAME,
2542: 'OKC_API.G_RET_STS_ERROR',
2538: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2539: (
2540: l_api_name,
2541: G_PKG_NAME,
2542: 'OKC_API.G_RET_STS_ERROR',
2543: x_msg_count,
2544: x_msg_data,
2545: '_PVT'
2546: );
2543: x_msg_count,
2544: x_msg_data,
2545: '_PVT'
2546: );
2547: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2548:
2549: IF (l_debug = 'Y') THEN
2550: okc_debug.log('8500: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2551: okc_debug.Reset_Indentation;
2546: );
2547: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2548:
2549: IF (l_debug = 'Y') THEN
2550: okc_debug.log('8500: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2551: okc_debug.Reset_Indentation;
2552: END IF;
2553:
2554: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2550: okc_debug.log('8500: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2551: okc_debug.Reset_Indentation;
2552: END IF;
2553:
2554: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2555: (
2556: l_api_name,
2557: G_PKG_NAME,
2558: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2554: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2555: (
2556: l_api_name,
2557: G_PKG_NAME,
2558: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2559: x_msg_count,
2560: x_msg_data,
2561: '_PVT'
2562: );
2566: okc_debug.log('8600: Leaving lock_row:OTHERS Exception', 2);
2567: okc_debug.Reset_Indentation;
2568: END IF;
2569:
2570: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2571: (
2572: l_api_name,
2573: G_PKG_NAME,
2574: 'OTHERS',
2590: p_catv_rec IN catv_rec_type) IS
2591:
2592: l_api_version CONSTANT NUMBER := 1;
2593: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2594: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2595: l_cat_rec cat_rec_type;
2596: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
2597: BEGIN
2598:
2600: okc_debug.Set_Indentation('OKC_CAT_PVT');
2601: okc_debug.log('8700: Entered lock_row', 2);
2602: END IF;
2603:
2604: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2605: G_PKG_NAME,
2606: p_init_msg_list,
2607: l_api_version,
2608: p_api_version,
2607: l_api_version,
2608: p_api_version,
2609: '_PVT',
2610: x_return_status);
2611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2614: RAISE OKC_API.G_EXCEPTION_ERROR;
2615: END IF;
2608: p_api_version,
2609: '_PVT',
2610: x_return_status);
2611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2614: RAISE OKC_API.G_EXCEPTION_ERROR;
2615: END IF;
2616: --------------------------------------
2609: '_PVT',
2610: x_return_status);
2611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2614: RAISE OKC_API.G_EXCEPTION_ERROR;
2615: END IF;
2616: --------------------------------------
2617: -- Move VIEW record to "Child" records
2610: x_return_status);
2611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2614: RAISE OKC_API.G_EXCEPTION_ERROR;
2615: END IF;
2616: --------------------------------------
2617: -- Move VIEW record to "Child" records
2618: --------------------------------------
2627: x_msg_count,
2628: x_msg_data,
2629: l_cat_rec
2630: );
2631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2634: RAISE OKC_API.G_EXCEPTION_ERROR;
2635: END IF;
2628: x_msg_data,
2629: l_cat_rec
2630: );
2631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2634: RAISE OKC_API.G_EXCEPTION_ERROR;
2635: END IF;
2636: lock_row(
2629: l_cat_rec
2630: );
2631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2634: RAISE OKC_API.G_EXCEPTION_ERROR;
2635: END IF;
2636: lock_row(
2637: p_init_msg_list,
2630: );
2631: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2633: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2634: RAISE OKC_API.G_EXCEPTION_ERROR;
2635: END IF;
2636: lock_row(
2637: p_init_msg_list,
2638: x_return_status,
2639: x_msg_count,
2640: x_msg_data,
2641: l_okc_k_articles_tl_rec
2642: );
2643: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2644: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2646: RAISE OKC_API.G_EXCEPTION_ERROR;
2647: END IF;
2640: x_msg_data,
2641: l_okc_k_articles_tl_rec
2642: );
2643: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2644: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2646: RAISE OKC_API.G_EXCEPTION_ERROR;
2647: END IF;
2648: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2641: l_okc_k_articles_tl_rec
2642: );
2643: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2644: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2646: RAISE OKC_API.G_EXCEPTION_ERROR;
2647: END IF;
2648: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2649:
2642: );
2643: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2644: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2646: RAISE OKC_API.G_EXCEPTION_ERROR;
2647: END IF;
2648: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2649:
2650: IF (l_debug = 'Y') THEN
2644: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2645: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2646: RAISE OKC_API.G_EXCEPTION_ERROR;
2647: END IF;
2648: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2649:
2650: IF (l_debug = 'Y') THEN
2651: okc_debug.log('8800: Leaving lock_row', 2);
2652: okc_debug.Reset_Indentation;
2652: okc_debug.Reset_Indentation;
2653: END IF;
2654:
2655: EXCEPTION
2656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2657:
2658: IF (l_debug = 'Y') THEN
2659: okc_debug.log('8900: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2660: okc_debug.Reset_Indentation;
2655: EXCEPTION
2656: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2657:
2658: IF (l_debug = 'Y') THEN
2659: okc_debug.log('8900: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2660: okc_debug.Reset_Indentation;
2661: END IF;
2662:
2663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2659: okc_debug.log('8900: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2660: okc_debug.Reset_Indentation;
2661: END IF;
2662:
2663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2664: (
2665: l_api_name,
2666: G_PKG_NAME,
2667: 'OKC_API.G_RET_STS_ERROR',
2663: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2664: (
2665: l_api_name,
2666: G_PKG_NAME,
2667: 'OKC_API.G_RET_STS_ERROR',
2668: x_msg_count,
2669: x_msg_data,
2670: '_PVT'
2671: );
2668: x_msg_count,
2669: x_msg_data,
2670: '_PVT'
2671: );
2672: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2673:
2674: IF (l_debug = 'Y') THEN
2675: okc_debug.log('9000: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2676: okc_debug.Reset_Indentation;
2671: );
2672: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2673:
2674: IF (l_debug = 'Y') THEN
2675: okc_debug.log('9000: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2676: okc_debug.Reset_Indentation;
2677: END IF;
2678:
2679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2675: okc_debug.log('9000: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2676: okc_debug.Reset_Indentation;
2677: END IF;
2678:
2679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2680: (
2681: l_api_name,
2682: G_PKG_NAME,
2683: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2679: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2680: (
2681: l_api_name,
2682: G_PKG_NAME,
2683: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2684: x_msg_count,
2685: x_msg_data,
2686: '_PVT'
2687: );
2691: okc_debug.log('9100: Leaving lock_row:OTHERS Exception', 2);
2692: okc_debug.Reset_Indentation;
2693: END IF;
2694:
2695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2696: (
2697: l_api_name,
2698: G_PKG_NAME,
2699: 'OTHERS',
2715: p_catv_tbl IN catv_tbl_type) IS
2716:
2717: l_api_version CONSTANT NUMBER := 1;
2718: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2719: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2720: i NUMBER := 0;
2721: BEGIN
2722:
2723: IF (l_debug = 'Y') THEN
2724: okc_debug.Set_Indentation('OKC_CAT_PVT');
2725: okc_debug.log('9400: Entered lock_row', 2);
2726: END IF;
2727:
2728: OKC_API.init_msg_list(p_init_msg_list);
2729: -- Make sure PL/SQL table has records in it before passing
2730: IF (p_catv_tbl.COUNT > 0) THEN
2731: i := p_catv_tbl.FIRST;
2732: LOOP
2731: i := p_catv_tbl.FIRST;
2732: LOOP
2733: lock_row (
2734: p_api_version => p_api_version,
2735: p_init_msg_list => OKC_API.G_FALSE,
2736: x_return_status => x_return_status,
2737: x_msg_count => x_msg_count,
2738: x_msg_data => x_msg_data,
2739: p_catv_rec => p_catv_tbl(i));
2747: okc_debug.Reset_Indentation;
2748: END IF;
2749:
2750: EXCEPTION
2751: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2752:
2753: IF (l_debug = 'Y') THEN
2754: okc_debug.log('9600: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2755: okc_debug.Reset_Indentation;
2750: EXCEPTION
2751: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2752:
2753: IF (l_debug = 'Y') THEN
2754: okc_debug.log('9600: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2755: okc_debug.Reset_Indentation;
2756: END IF;
2757:
2758: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2754: okc_debug.log('9600: Leaving lock_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2755: okc_debug.Reset_Indentation;
2756: END IF;
2757:
2758: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2759: (
2760: l_api_name,
2761: G_PKG_NAME,
2762: 'OKC_API.G_RET_STS_ERROR',
2758: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2759: (
2760: l_api_name,
2761: G_PKG_NAME,
2762: 'OKC_API.G_RET_STS_ERROR',
2763: x_msg_count,
2764: x_msg_data,
2765: '_PVT'
2766: );
2763: x_msg_count,
2764: x_msg_data,
2765: '_PVT'
2766: );
2767: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2768:
2769: IF (l_debug = 'Y') THEN
2770: okc_debug.log('9700: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2771: okc_debug.Reset_Indentation;
2766: );
2767: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2768:
2769: IF (l_debug = 'Y') THEN
2770: okc_debug.log('9700: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2771: okc_debug.Reset_Indentation;
2772: END IF;
2773:
2774: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2770: okc_debug.log('9700: Leaving lock_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2771: okc_debug.Reset_Indentation;
2772: END IF;
2773:
2774: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2775: (
2776: l_api_name,
2777: G_PKG_NAME,
2778: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2774: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2775: (
2776: l_api_name,
2777: G_PKG_NAME,
2778: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2779: x_msg_count,
2780: x_msg_data,
2781: '_PVT'
2782: );
2786: okc_debug.log('9800: Leaving lock_row:OTHERS Exception', 2);
2787: okc_debug.Reset_Indentation;
2788: END IF;
2789:
2790: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2791: (
2792: l_api_name,
2793: G_PKG_NAME,
2794: 'OTHERS',
2814: x_cat_rec OUT NOCOPY cat_rec_type) IS
2815:
2816: l_api_version CONSTANT NUMBER := 1;
2817: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2818: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2819: l_cat_rec cat_rec_type := p_cat_rec;
2820: l_def_cat_rec cat_rec_type;
2821: l_row_notfound BOOLEAN := TRUE;
2822: ----------------------------------
2827: x_cat_rec OUT NOCOPY cat_rec_type
2828: ) RETURN VARCHAR2 IS
2829: l_cat_rec cat_rec_type;
2830: l_row_notfound BOOLEAN := TRUE;
2831: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2832: BEGIN
2833:
2834: IF (l_debug = 'Y') THEN
2835: okc_debug.Set_Indentation('OKC_CAT_PVT');
2839: x_cat_rec := p_cat_rec;
2840: -- Get current database values
2841: l_cat_rec := get_rec(p_cat_rec, l_row_notfound);
2842: IF (l_row_notfound) THEN
2843: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2844: END IF;
2845: IF (x_cat_rec.id = OKC_API.G_MISS_NUM)
2846: THEN
2847: x_cat_rec.id := l_cat_rec.id;
2841: l_cat_rec := get_rec(p_cat_rec, l_row_notfound);
2842: IF (l_row_notfound) THEN
2843: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2844: END IF;
2845: IF (x_cat_rec.id = OKC_API.G_MISS_NUM)
2846: THEN
2847: x_cat_rec.id := l_cat_rec.id;
2848: END IF;
2849: IF (x_cat_rec.sav_sae_id = OKC_API.G_MISS_NUM)
2845: IF (x_cat_rec.id = OKC_API.G_MISS_NUM)
2846: THEN
2847: x_cat_rec.id := l_cat_rec.id;
2848: END IF;
2849: IF (x_cat_rec.sav_sae_id = OKC_API.G_MISS_NUM)
2850: THEN
2851: x_cat_rec.sav_sae_id := l_cat_rec.sav_sae_id;
2852: END IF;
2853: IF (x_cat_rec.sbt_code = OKC_API.G_MISS_CHAR)
2849: IF (x_cat_rec.sav_sae_id = OKC_API.G_MISS_NUM)
2850: THEN
2851: x_cat_rec.sav_sae_id := l_cat_rec.sav_sae_id;
2852: END IF;
2853: IF (x_cat_rec.sbt_code = OKC_API.G_MISS_CHAR)
2854: THEN
2855: x_cat_rec.sbt_code := l_cat_rec.sbt_code;
2856: END IF;
2857: IF (x_cat_rec.cat_type = OKC_API.G_MISS_CHAR)
2853: IF (x_cat_rec.sbt_code = OKC_API.G_MISS_CHAR)
2854: THEN
2855: x_cat_rec.sbt_code := l_cat_rec.sbt_code;
2856: END IF;
2857: IF (x_cat_rec.cat_type = OKC_API.G_MISS_CHAR)
2858: THEN
2859: x_cat_rec.cat_type := l_cat_rec.cat_type;
2860: END IF;
2861: IF (x_cat_rec.chr_id = OKC_API.G_MISS_NUM)
2857: IF (x_cat_rec.cat_type = OKC_API.G_MISS_CHAR)
2858: THEN
2859: x_cat_rec.cat_type := l_cat_rec.cat_type;
2860: END IF;
2861: IF (x_cat_rec.chr_id = OKC_API.G_MISS_NUM)
2862: THEN
2863: x_cat_rec.chr_id := l_cat_rec.chr_id;
2864: END IF;
2865: IF (x_cat_rec.cle_id = OKC_API.G_MISS_NUM)
2861: IF (x_cat_rec.chr_id = OKC_API.G_MISS_NUM)
2862: THEN
2863: x_cat_rec.chr_id := l_cat_rec.chr_id;
2864: END IF;
2865: IF (x_cat_rec.cle_id = OKC_API.G_MISS_NUM)
2866: THEN
2867: x_cat_rec.cle_id := l_cat_rec.cle_id;
2868: END IF;
2869: IF (x_cat_rec.cat_id = OKC_API.G_MISS_NUM)
2865: IF (x_cat_rec.cle_id = OKC_API.G_MISS_NUM)
2866: THEN
2867: x_cat_rec.cle_id := l_cat_rec.cle_id;
2868: END IF;
2869: IF (x_cat_rec.cat_id = OKC_API.G_MISS_NUM)
2870: THEN
2871: x_cat_rec.cat_id := l_cat_rec.cat_id;
2872: END IF;
2873: IF (x_cat_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2869: IF (x_cat_rec.cat_id = OKC_API.G_MISS_NUM)
2870: THEN
2871: x_cat_rec.cat_id := l_cat_rec.cat_id;
2872: END IF;
2873: IF (x_cat_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2874: THEN
2875: x_cat_rec.dnz_chr_id := l_cat_rec.dnz_chr_id;
2876: END IF;
2877: IF (x_cat_rec.object_version_number = OKC_API.G_MISS_NUM)
2873: IF (x_cat_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2874: THEN
2875: x_cat_rec.dnz_chr_id := l_cat_rec.dnz_chr_id;
2876: END IF;
2877: IF (x_cat_rec.object_version_number = OKC_API.G_MISS_NUM)
2878: THEN
2879: x_cat_rec.object_version_number := l_cat_rec.object_version_number;
2880: END IF;
2881: IF (x_cat_rec.created_by = OKC_API.G_MISS_NUM)
2877: IF (x_cat_rec.object_version_number = OKC_API.G_MISS_NUM)
2878: THEN
2879: x_cat_rec.object_version_number := l_cat_rec.object_version_number;
2880: END IF;
2881: IF (x_cat_rec.created_by = OKC_API.G_MISS_NUM)
2882: THEN
2883: x_cat_rec.created_by := l_cat_rec.created_by;
2884: END IF;
2885: IF (x_cat_rec.creation_date = OKC_API.G_MISS_DATE)
2881: IF (x_cat_rec.created_by = OKC_API.G_MISS_NUM)
2882: THEN
2883: x_cat_rec.created_by := l_cat_rec.created_by;
2884: END IF;
2885: IF (x_cat_rec.creation_date = OKC_API.G_MISS_DATE)
2886: THEN
2887: x_cat_rec.creation_date := l_cat_rec.creation_date;
2888: END IF;
2889: IF (x_cat_rec.last_updated_by = OKC_API.G_MISS_NUM)
2885: IF (x_cat_rec.creation_date = OKC_API.G_MISS_DATE)
2886: THEN
2887: x_cat_rec.creation_date := l_cat_rec.creation_date;
2888: END IF;
2889: IF (x_cat_rec.last_updated_by = OKC_API.G_MISS_NUM)
2890: THEN
2891: x_cat_rec.last_updated_by := l_cat_rec.last_updated_by;
2892: END IF;
2893: IF (x_cat_rec.last_update_date = OKC_API.G_MISS_DATE)
2889: IF (x_cat_rec.last_updated_by = OKC_API.G_MISS_NUM)
2890: THEN
2891: x_cat_rec.last_updated_by := l_cat_rec.last_updated_by;
2892: END IF;
2893: IF (x_cat_rec.last_update_date = OKC_API.G_MISS_DATE)
2894: THEN
2895: x_cat_rec.last_update_date := l_cat_rec.last_update_date;
2896: END IF;
2897: IF (x_cat_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
2893: IF (x_cat_rec.last_update_date = OKC_API.G_MISS_DATE)
2894: THEN
2895: x_cat_rec.last_update_date := l_cat_rec.last_update_date;
2896: END IF;
2897: IF (x_cat_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
2898: THEN
2899: x_cat_rec.fulltext_yn := l_cat_rec.fulltext_yn;
2900: END IF;
2901: IF (x_cat_rec.last_update_login = OKC_API.G_MISS_NUM)
2897: IF (x_cat_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
2898: THEN
2899: x_cat_rec.fulltext_yn := l_cat_rec.fulltext_yn;
2900: END IF;
2901: IF (x_cat_rec.last_update_login = OKC_API.G_MISS_NUM)
2902: THEN
2903: x_cat_rec.last_update_login := l_cat_rec.last_update_login;
2904: END IF;
2905: IF (x_cat_rec.attribute_category = OKC_API.G_MISS_CHAR)
2901: IF (x_cat_rec.last_update_login = OKC_API.G_MISS_NUM)
2902: THEN
2903: x_cat_rec.last_update_login := l_cat_rec.last_update_login;
2904: END IF;
2905: IF (x_cat_rec.attribute_category = OKC_API.G_MISS_CHAR)
2906: THEN
2907: x_cat_rec.attribute_category := l_cat_rec.attribute_category;
2908: END IF;
2909: IF (x_cat_rec.attribute1 = OKC_API.G_MISS_CHAR)
2905: IF (x_cat_rec.attribute_category = OKC_API.G_MISS_CHAR)
2906: THEN
2907: x_cat_rec.attribute_category := l_cat_rec.attribute_category;
2908: END IF;
2909: IF (x_cat_rec.attribute1 = OKC_API.G_MISS_CHAR)
2910: THEN
2911: x_cat_rec.attribute1 := l_cat_rec.attribute1;
2912: END IF;
2913: IF (x_cat_rec.attribute2 = OKC_API.G_MISS_CHAR)
2909: IF (x_cat_rec.attribute1 = OKC_API.G_MISS_CHAR)
2910: THEN
2911: x_cat_rec.attribute1 := l_cat_rec.attribute1;
2912: END IF;
2913: IF (x_cat_rec.attribute2 = OKC_API.G_MISS_CHAR)
2914: THEN
2915: x_cat_rec.attribute2 := l_cat_rec.attribute2;
2916: END IF;
2917: IF (x_cat_rec.attribute3 = OKC_API.G_MISS_CHAR)
2913: IF (x_cat_rec.attribute2 = OKC_API.G_MISS_CHAR)
2914: THEN
2915: x_cat_rec.attribute2 := l_cat_rec.attribute2;
2916: END IF;
2917: IF (x_cat_rec.attribute3 = OKC_API.G_MISS_CHAR)
2918: THEN
2919: x_cat_rec.attribute3 := l_cat_rec.attribute3;
2920: END IF;
2921: IF (x_cat_rec.attribute4 = OKC_API.G_MISS_CHAR)
2917: IF (x_cat_rec.attribute3 = OKC_API.G_MISS_CHAR)
2918: THEN
2919: x_cat_rec.attribute3 := l_cat_rec.attribute3;
2920: END IF;
2921: IF (x_cat_rec.attribute4 = OKC_API.G_MISS_CHAR)
2922: THEN
2923: x_cat_rec.attribute4 := l_cat_rec.attribute4;
2924: END IF;
2925: IF (x_cat_rec.attribute5 = OKC_API.G_MISS_CHAR)
2921: IF (x_cat_rec.attribute4 = OKC_API.G_MISS_CHAR)
2922: THEN
2923: x_cat_rec.attribute4 := l_cat_rec.attribute4;
2924: END IF;
2925: IF (x_cat_rec.attribute5 = OKC_API.G_MISS_CHAR)
2926: THEN
2927: x_cat_rec.attribute5 := l_cat_rec.attribute5;
2928: END IF;
2929: IF (x_cat_rec.attribute6 = OKC_API.G_MISS_CHAR)
2925: IF (x_cat_rec.attribute5 = OKC_API.G_MISS_CHAR)
2926: THEN
2927: x_cat_rec.attribute5 := l_cat_rec.attribute5;
2928: END IF;
2929: IF (x_cat_rec.attribute6 = OKC_API.G_MISS_CHAR)
2930: THEN
2931: x_cat_rec.attribute6 := l_cat_rec.attribute6;
2932: END IF;
2933: IF (x_cat_rec.attribute7 = OKC_API.G_MISS_CHAR)
2929: IF (x_cat_rec.attribute6 = OKC_API.G_MISS_CHAR)
2930: THEN
2931: x_cat_rec.attribute6 := l_cat_rec.attribute6;
2932: END IF;
2933: IF (x_cat_rec.attribute7 = OKC_API.G_MISS_CHAR)
2934: THEN
2935: x_cat_rec.attribute7 := l_cat_rec.attribute7;
2936: END IF;
2937: IF (x_cat_rec.attribute8 = OKC_API.G_MISS_CHAR)
2933: IF (x_cat_rec.attribute7 = OKC_API.G_MISS_CHAR)
2934: THEN
2935: x_cat_rec.attribute7 := l_cat_rec.attribute7;
2936: END IF;
2937: IF (x_cat_rec.attribute8 = OKC_API.G_MISS_CHAR)
2938: THEN
2939: x_cat_rec.attribute8 := l_cat_rec.attribute8;
2940: END IF;
2941: IF (x_cat_rec.attribute9 = OKC_API.G_MISS_CHAR)
2937: IF (x_cat_rec.attribute8 = OKC_API.G_MISS_CHAR)
2938: THEN
2939: x_cat_rec.attribute8 := l_cat_rec.attribute8;
2940: END IF;
2941: IF (x_cat_rec.attribute9 = OKC_API.G_MISS_CHAR)
2942: THEN
2943: x_cat_rec.attribute9 := l_cat_rec.attribute9;
2944: END IF;
2945: IF (x_cat_rec.attribute10 = OKC_API.G_MISS_CHAR)
2941: IF (x_cat_rec.attribute9 = OKC_API.G_MISS_CHAR)
2942: THEN
2943: x_cat_rec.attribute9 := l_cat_rec.attribute9;
2944: END IF;
2945: IF (x_cat_rec.attribute10 = OKC_API.G_MISS_CHAR)
2946: THEN
2947: x_cat_rec.attribute10 := l_cat_rec.attribute10;
2948: END IF;
2949: IF (x_cat_rec.attribute11 = OKC_API.G_MISS_CHAR)
2945: IF (x_cat_rec.attribute10 = OKC_API.G_MISS_CHAR)
2946: THEN
2947: x_cat_rec.attribute10 := l_cat_rec.attribute10;
2948: END IF;
2949: IF (x_cat_rec.attribute11 = OKC_API.G_MISS_CHAR)
2950: THEN
2951: x_cat_rec.attribute11 := l_cat_rec.attribute11;
2952: END IF;
2953: IF (x_cat_rec.attribute12 = OKC_API.G_MISS_CHAR)
2949: IF (x_cat_rec.attribute11 = OKC_API.G_MISS_CHAR)
2950: THEN
2951: x_cat_rec.attribute11 := l_cat_rec.attribute11;
2952: END IF;
2953: IF (x_cat_rec.attribute12 = OKC_API.G_MISS_CHAR)
2954: THEN
2955: x_cat_rec.attribute12 := l_cat_rec.attribute12;
2956: END IF;
2957: IF (x_cat_rec.attribute13 = OKC_API.G_MISS_CHAR)
2953: IF (x_cat_rec.attribute12 = OKC_API.G_MISS_CHAR)
2954: THEN
2955: x_cat_rec.attribute12 := l_cat_rec.attribute12;
2956: END IF;
2957: IF (x_cat_rec.attribute13 = OKC_API.G_MISS_CHAR)
2958: THEN
2959: x_cat_rec.attribute13 := l_cat_rec.attribute13;
2960: END IF;
2961: IF (x_cat_rec.attribute14 = OKC_API.G_MISS_CHAR)
2957: IF (x_cat_rec.attribute13 = OKC_API.G_MISS_CHAR)
2958: THEN
2959: x_cat_rec.attribute13 := l_cat_rec.attribute13;
2960: END IF;
2961: IF (x_cat_rec.attribute14 = OKC_API.G_MISS_CHAR)
2962: THEN
2963: x_cat_rec.attribute14 := l_cat_rec.attribute14;
2964: END IF;
2965: IF (x_cat_rec.attribute15 = OKC_API.G_MISS_CHAR)
2961: IF (x_cat_rec.attribute14 = OKC_API.G_MISS_CHAR)
2962: THEN
2963: x_cat_rec.attribute14 := l_cat_rec.attribute14;
2964: END IF;
2965: IF (x_cat_rec.attribute15 = OKC_API.G_MISS_CHAR)
2966: THEN
2967: x_cat_rec.attribute15 := l_cat_rec.attribute15;
2968: END IF;
2969:
2981: FUNCTION Set_Attributes (
2982: p_cat_rec IN cat_rec_type,
2983: x_cat_rec OUT NOCOPY cat_rec_type
2984: ) RETURN VARCHAR2 IS
2985: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2986: BEGIN
2987:
2988: x_cat_rec := p_cat_rec;
2989: RETURN(l_return_status);
2995: okc_debug.Set_Indentation('OKC_CAT_PVT');
2996: okc_debug.log('10100: Entered update_row', 2);
2997: END IF;
2998:
2999: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3000: p_init_msg_list,
3001: '_PVT',
3002: x_return_status);
3003: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2999: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3000: p_init_msg_list,
3001: '_PVT',
3002: x_return_status);
3003: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3004: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3005: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3006: RAISE OKC_API.G_EXCEPTION_ERROR;
3007: END IF;
3000: p_init_msg_list,
3001: '_PVT',
3002: x_return_status);
3003: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3004: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3005: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3006: RAISE OKC_API.G_EXCEPTION_ERROR;
3007: END IF;
3008: --- Setting item attributes
3001: '_PVT',
3002: x_return_status);
3003: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3004: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3005: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3006: RAISE OKC_API.G_EXCEPTION_ERROR;
3007: END IF;
3008: --- Setting item attributes
3009: l_return_status := Set_Attributes(
3002: x_return_status);
3003: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3004: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3005: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3006: RAISE OKC_API.G_EXCEPTION_ERROR;
3007: END IF;
3008: --- Setting item attributes
3009: l_return_status := Set_Attributes(
3010: p_cat_rec, -- IN
3009: l_return_status := Set_Attributes(
3010: p_cat_rec, -- IN
3011: l_cat_rec); -- OUT
3012: --- If any errors happen abort API
3013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3016: RAISE OKC_API.G_EXCEPTION_ERROR;
3017: END IF;
3010: p_cat_rec, -- IN
3011: l_cat_rec); -- OUT
3012: --- If any errors happen abort API
3013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3016: RAISE OKC_API.G_EXCEPTION_ERROR;
3017: END IF;
3018: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
3011: l_cat_rec); -- OUT
3012: --- If any errors happen abort API
3013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3016: RAISE OKC_API.G_EXCEPTION_ERROR;
3017: END IF;
3018: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3012: --- If any errors happen abort API
3013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3016: RAISE OKC_API.G_EXCEPTION_ERROR;
3017: END IF;
3018: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3016: RAISE OKC_API.G_EXCEPTION_ERROR;
3017: END IF;
3018: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3022: RAISE OKC_API.G_EXCEPTION_ERROR;
3023: END IF;
3016: RAISE OKC_API.G_EXCEPTION_ERROR;
3017: END IF;
3018: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3022: RAISE OKC_API.G_EXCEPTION_ERROR;
3023: END IF;
3024: UPDATE OKC_K_ARTICLES_B
3017: END IF;
3018: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3022: RAISE OKC_API.G_EXCEPTION_ERROR;
3023: END IF;
3024: UPDATE OKC_K_ARTICLES_B
3025: SET SAV_SAE_ID = l_def_cat_rec.sav_sae_id,
3018: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
3019: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3020: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3021: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3022: RAISE OKC_API.G_EXCEPTION_ERROR;
3023: END IF;
3024: UPDATE OKC_K_ARTICLES_B
3025: SET SAV_SAE_ID = l_def_cat_rec.sav_sae_id,
3026: SBT_CODE = l_def_cat_rec.sbt_code,
3054: ATTRIBUTE15 = l_def_cat_rec.attribute15
3055: WHERE ID = l_def_cat_rec.id;
3056:
3057: x_cat_rec := l_def_cat_rec;
3058: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3059:
3060: IF (l_debug = 'Y') THEN
3061: okc_debug.log('10200: Leaving update_row', 2);
3062: okc_debug.Reset_Indentation;
3062: okc_debug.Reset_Indentation;
3063: END IF;
3064:
3065: EXCEPTION
3066: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3067:
3068: IF (l_debug = 'Y') THEN
3069: okc_debug.log('10300: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3070: okc_debug.Reset_Indentation;
3065: EXCEPTION
3066: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3067:
3068: IF (l_debug = 'Y') THEN
3069: okc_debug.log('10300: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3070: okc_debug.Reset_Indentation;
3071: END IF;
3072:
3073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3069: okc_debug.log('10300: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3070: okc_debug.Reset_Indentation;
3071: END IF;
3072:
3073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3077: 'OKC_API.G_RET_STS_ERROR',
3073: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3074: (
3075: l_api_name,
3076: G_PKG_NAME,
3077: 'OKC_API.G_RET_STS_ERROR',
3078: x_msg_count,
3079: x_msg_data,
3080: '_PVT'
3081: );
3078: x_msg_count,
3079: x_msg_data,
3080: '_PVT'
3081: );
3082: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3083:
3084: IF (l_debug = 'Y') THEN
3085: okc_debug.log('10400: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3086: okc_debug.Reset_Indentation;
3081: );
3082: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3083:
3084: IF (l_debug = 'Y') THEN
3085: okc_debug.log('10400: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3086: okc_debug.Reset_Indentation;
3087: END IF;
3088:
3089: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3085: okc_debug.log('10400: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3086: okc_debug.Reset_Indentation;
3087: END IF;
3088:
3089: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3090: (
3091: l_api_name,
3092: G_PKG_NAME,
3093: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3089: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3090: (
3091: l_api_name,
3092: G_PKG_NAME,
3093: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3094: x_msg_count,
3095: x_msg_data,
3096: '_PVT'
3097: );
3101: okc_debug.log('10500: Leaving update_row:OTHERS Exception', 2);
3102: okc_debug.Reset_Indentation;
3103: END IF;
3104:
3105: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3106: (
3107: l_api_name,
3108: G_PKG_NAME,
3109: 'OTHERS',
3125: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type) IS
3126:
3127: l_api_version CONSTANT NUMBER := 1;
3128: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
3129: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3130: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type := p_okc_k_articles_tl_rec;
3131: l_def_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
3132: l_row_notfound BOOLEAN := TRUE;
3133: ----------------------------------
3138: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type
3139: ) RETURN VARCHAR2 IS
3140: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
3141: l_row_notfound BOOLEAN := TRUE;
3142: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3143: BEGIN
3144:
3145: IF (l_debug = 'Y') THEN
3146: okc_debug.Set_Indentation('OKC_CAT_PVT');
3150: x_okc_k_articles_tl_rec := p_okc_k_articles_tl_rec;
3151: -- Get current database values
3152: l_okc_k_articles_tl_rec := get_rec(p_okc_k_articles_tl_rec, l_row_notfound);
3153: IF (l_row_notfound) THEN
3154: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3155: END IF;
3156: IF (x_okc_k_articles_tl_rec.id = OKC_API.G_MISS_NUM)
3157: THEN
3158: x_okc_k_articles_tl_rec.id := l_okc_k_articles_tl_rec.id;
3152: l_okc_k_articles_tl_rec := get_rec(p_okc_k_articles_tl_rec, l_row_notfound);
3153: IF (l_row_notfound) THEN
3154: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3155: END IF;
3156: IF (x_okc_k_articles_tl_rec.id = OKC_API.G_MISS_NUM)
3157: THEN
3158: x_okc_k_articles_tl_rec.id := l_okc_k_articles_tl_rec.id;
3159: END IF;
3160: IF (x_okc_k_articles_tl_rec.language = OKC_API.G_MISS_CHAR)
3156: IF (x_okc_k_articles_tl_rec.id = OKC_API.G_MISS_NUM)
3157: THEN
3158: x_okc_k_articles_tl_rec.id := l_okc_k_articles_tl_rec.id;
3159: END IF;
3160: IF (x_okc_k_articles_tl_rec.language = OKC_API.G_MISS_CHAR)
3161: THEN
3162: x_okc_k_articles_tl_rec.language := l_okc_k_articles_tl_rec.language;
3163: END IF;
3164: IF (x_okc_k_articles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3160: IF (x_okc_k_articles_tl_rec.language = OKC_API.G_MISS_CHAR)
3161: THEN
3162: x_okc_k_articles_tl_rec.language := l_okc_k_articles_tl_rec.language;
3163: END IF;
3164: IF (x_okc_k_articles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3165: THEN
3166: x_okc_k_articles_tl_rec.source_lang := l_okc_k_articles_tl_rec.source_lang;
3167: END IF;
3168: IF (x_okc_k_articles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3164: IF (x_okc_k_articles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
3165: THEN
3166: x_okc_k_articles_tl_rec.source_lang := l_okc_k_articles_tl_rec.source_lang;
3167: END IF;
3168: IF (x_okc_k_articles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3169: THEN
3170: x_okc_k_articles_tl_rec.sfwt_flag := l_okc_k_articles_tl_rec.sfwt_flag;
3171: END IF;
3172: IF (x_okc_k_articles_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
3168: IF (x_okc_k_articles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3169: THEN
3170: x_okc_k_articles_tl_rec.sfwt_flag := l_okc_k_articles_tl_rec.sfwt_flag;
3171: END IF;
3172: IF (x_okc_k_articles_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
3173: THEN
3174: x_okc_k_articles_tl_rec.object_version_number := l_okc_k_articles_tl_rec.object_version_number;
3175: END IF;
3176: IF (x_okc_k_articles_tl_rec.comments = OKC_API.G_MISS_CHAR)
3172: IF (x_okc_k_articles_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
3173: THEN
3174: x_okc_k_articles_tl_rec.object_version_number := l_okc_k_articles_tl_rec.object_version_number;
3175: END IF;
3176: IF (x_okc_k_articles_tl_rec.comments = OKC_API.G_MISS_CHAR)
3177: THEN
3178: x_okc_k_articles_tl_rec.comments := l_okc_k_articles_tl_rec.comments;
3179: END IF;
3180: IF (x_okc_k_articles_tl_rec.variation_description = OKC_API.G_MISS_CHAR)
3176: IF (x_okc_k_articles_tl_rec.comments = OKC_API.G_MISS_CHAR)
3177: THEN
3178: x_okc_k_articles_tl_rec.comments := l_okc_k_articles_tl_rec.comments;
3179: END IF;
3180: IF (x_okc_k_articles_tl_rec.variation_description = OKC_API.G_MISS_CHAR)
3181: THEN
3182: x_okc_k_articles_tl_rec.variation_description := l_okc_k_articles_tl_rec.variation_description;
3183: END IF;
3184: IF (x_okc_k_articles_tl_rec.name = OKC_API.G_MISS_CHAR)
3180: IF (x_okc_k_articles_tl_rec.variation_description = OKC_API.G_MISS_CHAR)
3181: THEN
3182: x_okc_k_articles_tl_rec.variation_description := l_okc_k_articles_tl_rec.variation_description;
3183: END IF;
3184: IF (x_okc_k_articles_tl_rec.name = OKC_API.G_MISS_CHAR)
3185: THEN
3186: x_okc_k_articles_tl_rec.name := l_okc_k_articles_tl_rec.name;
3187: END IF;
3188: -- Commented in favor of hand code
3185: THEN
3186: x_okc_k_articles_tl_rec.name := l_okc_k_articles_tl_rec.name;
3187: END IF;
3188: -- Commented in favor of hand code
3189: -- IF (x_okc_k_articles_tl_rec.text = OKC_API.G_MISS_CHAR)
3190: --+Hand code start
3191: IF (x_okc_k_articles_tl_rec.text is NULL)
3192: --+Hand code end
3193: THEN
3192: --+Hand code end
3193: THEN
3194: x_okc_k_articles_tl_rec.text := l_okc_k_articles_tl_rec.text;
3195: END IF;
3196: IF (x_okc_k_articles_tl_rec.created_by = OKC_API.G_MISS_NUM)
3197: THEN
3198: x_okc_k_articles_tl_rec.created_by := l_okc_k_articles_tl_rec.created_by;
3199: END IF;
3200: IF (x_okc_k_articles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3196: IF (x_okc_k_articles_tl_rec.created_by = OKC_API.G_MISS_NUM)
3197: THEN
3198: x_okc_k_articles_tl_rec.created_by := l_okc_k_articles_tl_rec.created_by;
3199: END IF;
3200: IF (x_okc_k_articles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3201: THEN
3202: x_okc_k_articles_tl_rec.creation_date := l_okc_k_articles_tl_rec.creation_date;
3203: END IF;
3204: IF (x_okc_k_articles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3200: IF (x_okc_k_articles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
3201: THEN
3202: x_okc_k_articles_tl_rec.creation_date := l_okc_k_articles_tl_rec.creation_date;
3203: END IF;
3204: IF (x_okc_k_articles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3205: THEN
3206: x_okc_k_articles_tl_rec.last_updated_by := l_okc_k_articles_tl_rec.last_updated_by;
3207: END IF;
3208: IF (x_okc_k_articles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3204: IF (x_okc_k_articles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
3205: THEN
3206: x_okc_k_articles_tl_rec.last_updated_by := l_okc_k_articles_tl_rec.last_updated_by;
3207: END IF;
3208: IF (x_okc_k_articles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3209: THEN
3210: x_okc_k_articles_tl_rec.last_update_date := l_okc_k_articles_tl_rec.last_update_date;
3211: END IF;
3212: IF (x_okc_k_articles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3208: IF (x_okc_k_articles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
3209: THEN
3210: x_okc_k_articles_tl_rec.last_update_date := l_okc_k_articles_tl_rec.last_update_date;
3211: END IF;
3212: IF (x_okc_k_articles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3213: THEN
3214: x_okc_k_articles_tl_rec.last_update_login := l_okc_k_articles_tl_rec.last_update_login;
3215: END IF;
3216: IF (x_okc_k_articles_tl_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
3212: IF (x_okc_k_articles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
3213: THEN
3214: x_okc_k_articles_tl_rec.last_update_login := l_okc_k_articles_tl_rec.last_update_login;
3215: END IF;
3216: IF (x_okc_k_articles_tl_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
3217: THEN
3218: x_okc_k_articles_tl_rec.sav_sav_release := l_okc_k_articles_tl_rec.sav_sav_release;
3219: END IF;
3220:
3232: FUNCTION Set_Attributes (
3233: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type,
3234: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type
3235: ) RETURN VARCHAR2 IS
3236: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3237: BEGIN
3238:
3239: x_okc_k_articles_tl_rec := p_okc_k_articles_tl_rec;
3240: x_okc_k_articles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3248: okc_debug.Set_Indentation('OKC_CAT_PVT');
3249: okc_debug.log('10700: Entered update_row', 2);
3250: END IF;
3251:
3252: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3253: p_init_msg_list,
3254: '_PVT',
3255: x_return_status);
3256: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3252: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3253: p_init_msg_list,
3254: '_PVT',
3255: x_return_status);
3256: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3258: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3259: RAISE OKC_API.G_EXCEPTION_ERROR;
3260: END IF;
3253: p_init_msg_list,
3254: '_PVT',
3255: x_return_status);
3256: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3258: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3259: RAISE OKC_API.G_EXCEPTION_ERROR;
3260: END IF;
3261: --- Setting item attributes
3254: '_PVT',
3255: x_return_status);
3256: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3258: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3259: RAISE OKC_API.G_EXCEPTION_ERROR;
3260: END IF;
3261: --- Setting item attributes
3262: l_return_status := Set_Attributes(
3255: x_return_status);
3256: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3257: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3258: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3259: RAISE OKC_API.G_EXCEPTION_ERROR;
3260: END IF;
3261: --- Setting item attributes
3262: l_return_status := Set_Attributes(
3263: p_okc_k_articles_tl_rec, -- IN
3262: l_return_status := Set_Attributes(
3263: p_okc_k_articles_tl_rec, -- IN
3264: l_okc_k_articles_tl_rec); -- OUT
3265: --- If any errors happen abort API
3266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3263: p_okc_k_articles_tl_rec, -- IN
3264: l_okc_k_articles_tl_rec); -- OUT
3265: --- If any errors happen abort API
3266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3271: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
3264: l_okc_k_articles_tl_rec); -- OUT
3265: --- If any errors happen abort API
3266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3271: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
3272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3265: --- If any errors happen abort API
3266: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3267: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3271: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
3272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3268: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3269: RAISE OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3271: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
3272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3274: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_ERROR;
3276: END IF;
3269: RAISE OKC_API.G_EXCEPTION_ERROR;
3270: END IF;
3271: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
3272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3274: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_ERROR;
3276: END IF;
3277: UPDATE OKC_K_ARTICLES_TL
3270: END IF;
3271: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
3272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3274: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_ERROR;
3276: END IF;
3277: UPDATE OKC_K_ARTICLES_TL
3278: SET OBJECT_VERSION_NUMBER = l_def_okc_k_articles_tl_rec.object_version_number,
3271: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
3272: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3273: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3274: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3275: RAISE OKC_API.G_EXCEPTION_ERROR;
3276: END IF;
3277: UPDATE OKC_K_ARTICLES_TL
3278: SET OBJECT_VERSION_NUMBER = l_def_okc_k_articles_tl_rec.object_version_number,
3279: COMMENTS = l_def_okc_k_articles_tl_rec.comments,
3300: WHERE ID = l_def_okc_k_articles_tl_rec.id
3301: AND SOURCE_LANG <> USERENV('LANG');
3302:
3303: x_okc_k_articles_tl_rec := l_def_okc_k_articles_tl_rec;
3304: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3305:
3306: IF (l_debug = 'Y') THEN
3307: okc_debug.log('10750: Leaving update_row', 2);
3308: okc_debug.Reset_Indentation;
3308: okc_debug.Reset_Indentation;
3309: END IF;
3310:
3311: EXCEPTION
3312: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3313:
3314: IF (l_debug = 'Y') THEN
3315: okc_debug.log('10800: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3316: okc_debug.Reset_Indentation;
3311: EXCEPTION
3312: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3313:
3314: IF (l_debug = 'Y') THEN
3315: okc_debug.log('10800: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3316: okc_debug.Reset_Indentation;
3317: END IF;
3318:
3319: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3315: okc_debug.log('10800: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3316: okc_debug.Reset_Indentation;
3317: END IF;
3318:
3319: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3320: (
3321: l_api_name,
3322: G_PKG_NAME,
3323: 'OKC_API.G_RET_STS_ERROR',
3319: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3320: (
3321: l_api_name,
3322: G_PKG_NAME,
3323: 'OKC_API.G_RET_STS_ERROR',
3324: x_msg_count,
3325: x_msg_data,
3326: '_PVT'
3327: );
3324: x_msg_count,
3325: x_msg_data,
3326: '_PVT'
3327: );
3328: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3329:
3330: IF (l_debug = 'Y') THEN
3331: okc_debug.log('10900: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3332: okc_debug.Reset_Indentation;
3327: );
3328: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3329:
3330: IF (l_debug = 'Y') THEN
3331: okc_debug.log('10900: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3332: okc_debug.Reset_Indentation;
3333: END IF;
3334:
3335: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3331: okc_debug.log('10900: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3332: okc_debug.Reset_Indentation;
3333: END IF;
3334:
3335: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3336: (
3337: l_api_name,
3338: G_PKG_NAME,
3339: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3335: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3336: (
3337: l_api_name,
3338: G_PKG_NAME,
3339: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3340: x_msg_count,
3341: x_msg_data,
3342: '_PVT'
3343: );
3347: okc_debug.log('11000: Leaving update_row:OTHERS Exception', 2);
3348: okc_debug.Reset_Indentation;
3349: END IF;
3350:
3351: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3352: (
3353: l_api_name,
3354: G_PKG_NAME,
3355: 'OTHERS',
3372: x_catv_rec OUT NOCOPY catv_rec_type) IS
3373:
3374: l_api_version CONSTANT NUMBER := 1;
3375: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3376: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3377: l_catv_rec catv_rec_type := p_catv_rec;
3378: l_def_catv_rec catv_rec_type;
3379: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
3380: lx_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
3403: x_catv_rec OUT NOCOPY catv_rec_type
3404: ) RETURN VARCHAR2 IS
3405: l_catv_rec catv_rec_type;
3406: l_row_notfound BOOLEAN := TRUE;
3407: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3408: BEGIN
3409:
3410: IF (l_debug = 'Y') THEN
3411: okc_debug.Set_Indentation('OKC_CAT_PVT');
3415: x_catv_rec := p_catv_rec;
3416: -- Get current database values
3417: l_catv_rec := get_rec(p_catv_rec, l_row_notfound);
3418: IF (l_row_notfound) THEN
3419: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3420: END IF;
3421: IF (x_catv_rec.id = OKC_API.G_MISS_NUM)
3422: THEN
3423: x_catv_rec.id := l_catv_rec.id;
3417: l_catv_rec := get_rec(p_catv_rec, l_row_notfound);
3418: IF (l_row_notfound) THEN
3419: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3420: END IF;
3421: IF (x_catv_rec.id = OKC_API.G_MISS_NUM)
3422: THEN
3423: x_catv_rec.id := l_catv_rec.id;
3424: END IF;
3425: IF (x_catv_rec.chr_id = OKC_API.G_MISS_NUM)
3421: IF (x_catv_rec.id = OKC_API.G_MISS_NUM)
3422: THEN
3423: x_catv_rec.id := l_catv_rec.id;
3424: END IF;
3425: IF (x_catv_rec.chr_id = OKC_API.G_MISS_NUM)
3426: THEN
3427: x_catv_rec.chr_id := l_catv_rec.chr_id;
3428: END IF;
3429: IF (x_catv_rec.cle_id = OKC_API.G_MISS_NUM)
3425: IF (x_catv_rec.chr_id = OKC_API.G_MISS_NUM)
3426: THEN
3427: x_catv_rec.chr_id := l_catv_rec.chr_id;
3428: END IF;
3429: IF (x_catv_rec.cle_id = OKC_API.G_MISS_NUM)
3430: THEN
3431: x_catv_rec.cle_id := l_catv_rec.cle_id;
3432: END IF;
3433: IF (x_catv_rec.cat_id = OKC_API.G_MISS_NUM)
3429: IF (x_catv_rec.cle_id = OKC_API.G_MISS_NUM)
3430: THEN
3431: x_catv_rec.cle_id := l_catv_rec.cle_id;
3432: END IF;
3433: IF (x_catv_rec.cat_id = OKC_API.G_MISS_NUM)
3434: THEN
3435: x_catv_rec.cat_id := l_catv_rec.cat_id;
3436: END IF;
3437: IF (x_catv_rec.object_version_number = OKC_API.G_MISS_NUM)
3433: IF (x_catv_rec.cat_id = OKC_API.G_MISS_NUM)
3434: THEN
3435: x_catv_rec.cat_id := l_catv_rec.cat_id;
3436: END IF;
3437: IF (x_catv_rec.object_version_number = OKC_API.G_MISS_NUM)
3438: THEN
3439: x_catv_rec.object_version_number := l_catv_rec.object_version_number;
3440: END IF;
3441: IF (x_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3437: IF (x_catv_rec.object_version_number = OKC_API.G_MISS_NUM)
3438: THEN
3439: x_catv_rec.object_version_number := l_catv_rec.object_version_number;
3440: END IF;
3441: IF (x_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3442: THEN
3443: x_catv_rec.sfwt_flag := l_catv_rec.sfwt_flag;
3444: END IF;
3445: IF (x_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM)
3441: IF (x_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3442: THEN
3443: x_catv_rec.sfwt_flag := l_catv_rec.sfwt_flag;
3444: END IF;
3445: IF (x_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM)
3446: THEN
3447: x_catv_rec.sav_sae_id := l_catv_rec.sav_sae_id;
3448: END IF;
3449: IF (x_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
3445: IF (x_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM)
3446: THEN
3447: x_catv_rec.sav_sae_id := l_catv_rec.sav_sae_id;
3448: END IF;
3449: IF (x_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
3450: THEN
3451: x_catv_rec.sav_sav_release := l_catv_rec.sav_sav_release;
3452: END IF;
3453: IF (x_catv_rec.sbt_code = OKC_API.G_MISS_CHAR)
3449: IF (x_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
3450: THEN
3451: x_catv_rec.sav_sav_release := l_catv_rec.sav_sav_release;
3452: END IF;
3453: IF (x_catv_rec.sbt_code = OKC_API.G_MISS_CHAR)
3454: THEN
3455: x_catv_rec.sbt_code := l_catv_rec.sbt_code;
3456: END IF;
3457: IF (x_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
3453: IF (x_catv_rec.sbt_code = OKC_API.G_MISS_CHAR)
3454: THEN
3455: x_catv_rec.sbt_code := l_catv_rec.sbt_code;
3456: END IF;
3457: IF (x_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
3458: THEN
3459: x_catv_rec.dnz_chr_id := l_catv_rec.dnz_chr_id;
3460: END IF;
3461: IF (x_catv_rec.comments = OKC_API.G_MISS_CHAR)
3457: IF (x_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
3458: THEN
3459: x_catv_rec.dnz_chr_id := l_catv_rec.dnz_chr_id;
3460: END IF;
3461: IF (x_catv_rec.comments = OKC_API.G_MISS_CHAR)
3462: THEN
3463: x_catv_rec.comments := l_catv_rec.comments;
3464: END IF;
3465: IF (x_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
3461: IF (x_catv_rec.comments = OKC_API.G_MISS_CHAR)
3462: THEN
3463: x_catv_rec.comments := l_catv_rec.comments;
3464: END IF;
3465: IF (x_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
3466: THEN
3467: x_catv_rec.fulltext_yn := l_catv_rec.fulltext_yn;
3468: END IF;
3469: IF (x_catv_rec.variation_description = OKC_API.G_MISS_CHAR)
3465: IF (x_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
3466: THEN
3467: x_catv_rec.fulltext_yn := l_catv_rec.fulltext_yn;
3468: END IF;
3469: IF (x_catv_rec.variation_description = OKC_API.G_MISS_CHAR)
3470: THEN
3471: x_catv_rec.variation_description := l_catv_rec.variation_description;
3472: END IF;
3473: IF (x_catv_rec.name = OKC_API.G_MISS_CHAR)
3469: IF (x_catv_rec.variation_description = OKC_API.G_MISS_CHAR)
3470: THEN
3471: x_catv_rec.variation_description := l_catv_rec.variation_description;
3472: END IF;
3473: IF (x_catv_rec.name = OKC_API.G_MISS_CHAR)
3474: THEN
3475: x_catv_rec.name := l_catv_rec.name;
3476: END IF;
3477: -- Commented in favor of hand code
3474: THEN
3475: x_catv_rec.name := l_catv_rec.name;
3476: END IF;
3477: -- Commented in favor of hand code
3478: -- IF (x_catv_rec.text = OKC_API.G_MISS_CHAR)
3479: --+Hand code start
3480: IF (x_catv_rec.text is NULL)
3481: --+Hand code end
3482: THEN
3481: --+Hand code end
3482: THEN
3483: x_catv_rec.text := l_catv_rec.text;
3484: END IF;
3485: IF (x_catv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3486: THEN
3487: x_catv_rec.attribute_category := l_catv_rec.attribute_category;
3488: END IF;
3489: IF (x_catv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3485: IF (x_catv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3486: THEN
3487: x_catv_rec.attribute_category := l_catv_rec.attribute_category;
3488: END IF;
3489: IF (x_catv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3490: THEN
3491: x_catv_rec.attribute1 := l_catv_rec.attribute1;
3492: END IF;
3493: IF (x_catv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3489: IF (x_catv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3490: THEN
3491: x_catv_rec.attribute1 := l_catv_rec.attribute1;
3492: END IF;
3493: IF (x_catv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3494: THEN
3495: x_catv_rec.attribute2 := l_catv_rec.attribute2;
3496: END IF;
3497: IF (x_catv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3493: IF (x_catv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3494: THEN
3495: x_catv_rec.attribute2 := l_catv_rec.attribute2;
3496: END IF;
3497: IF (x_catv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3498: THEN
3499: x_catv_rec.attribute3 := l_catv_rec.attribute3;
3500: END IF;
3501: IF (x_catv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3497: IF (x_catv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3498: THEN
3499: x_catv_rec.attribute3 := l_catv_rec.attribute3;
3500: END IF;
3501: IF (x_catv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3502: THEN
3503: x_catv_rec.attribute4 := l_catv_rec.attribute4;
3504: END IF;
3505: IF (x_catv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3501: IF (x_catv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3502: THEN
3503: x_catv_rec.attribute4 := l_catv_rec.attribute4;
3504: END IF;
3505: IF (x_catv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3506: THEN
3507: x_catv_rec.attribute5 := l_catv_rec.attribute5;
3508: END IF;
3509: IF (x_catv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3505: IF (x_catv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3506: THEN
3507: x_catv_rec.attribute5 := l_catv_rec.attribute5;
3508: END IF;
3509: IF (x_catv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3510: THEN
3511: x_catv_rec.attribute6 := l_catv_rec.attribute6;
3512: END IF;
3513: IF (x_catv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3509: IF (x_catv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3510: THEN
3511: x_catv_rec.attribute6 := l_catv_rec.attribute6;
3512: END IF;
3513: IF (x_catv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3514: THEN
3515: x_catv_rec.attribute7 := l_catv_rec.attribute7;
3516: END IF;
3517: IF (x_catv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3513: IF (x_catv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3514: THEN
3515: x_catv_rec.attribute7 := l_catv_rec.attribute7;
3516: END IF;
3517: IF (x_catv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3518: THEN
3519: x_catv_rec.attribute8 := l_catv_rec.attribute8;
3520: END IF;
3521: IF (x_catv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3517: IF (x_catv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3518: THEN
3519: x_catv_rec.attribute8 := l_catv_rec.attribute8;
3520: END IF;
3521: IF (x_catv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3522: THEN
3523: x_catv_rec.attribute9 := l_catv_rec.attribute9;
3524: END IF;
3525: IF (x_catv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3521: IF (x_catv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3522: THEN
3523: x_catv_rec.attribute9 := l_catv_rec.attribute9;
3524: END IF;
3525: IF (x_catv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3526: THEN
3527: x_catv_rec.attribute10 := l_catv_rec.attribute10;
3528: END IF;
3529: IF (x_catv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3525: IF (x_catv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3526: THEN
3527: x_catv_rec.attribute10 := l_catv_rec.attribute10;
3528: END IF;
3529: IF (x_catv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3530: THEN
3531: x_catv_rec.attribute11 := l_catv_rec.attribute11;
3532: END IF;
3533: IF (x_catv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3529: IF (x_catv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3530: THEN
3531: x_catv_rec.attribute11 := l_catv_rec.attribute11;
3532: END IF;
3533: IF (x_catv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3534: THEN
3535: x_catv_rec.attribute12 := l_catv_rec.attribute12;
3536: END IF;
3537: IF (x_catv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3533: IF (x_catv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3534: THEN
3535: x_catv_rec.attribute12 := l_catv_rec.attribute12;
3536: END IF;
3537: IF (x_catv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3538: THEN
3539: x_catv_rec.attribute13 := l_catv_rec.attribute13;
3540: END IF;
3541: IF (x_catv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3537: IF (x_catv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3538: THEN
3539: x_catv_rec.attribute13 := l_catv_rec.attribute13;
3540: END IF;
3541: IF (x_catv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3542: THEN
3543: x_catv_rec.attribute14 := l_catv_rec.attribute14;
3544: END IF;
3545: IF (x_catv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3541: IF (x_catv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3542: THEN
3543: x_catv_rec.attribute14 := l_catv_rec.attribute14;
3544: END IF;
3545: IF (x_catv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3546: THEN
3547: x_catv_rec.attribute15 := l_catv_rec.attribute15;
3548: END IF;
3549: IF (x_catv_rec.cat_type = OKC_API.G_MISS_CHAR)
3545: IF (x_catv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3546: THEN
3547: x_catv_rec.attribute15 := l_catv_rec.attribute15;
3548: END IF;
3549: IF (x_catv_rec.cat_type = OKC_API.G_MISS_CHAR)
3550: THEN
3551: x_catv_rec.cat_type := l_catv_rec.cat_type;
3552: END IF;
3553: IF (x_catv_rec.created_by = OKC_API.G_MISS_NUM)
3549: IF (x_catv_rec.cat_type = OKC_API.G_MISS_CHAR)
3550: THEN
3551: x_catv_rec.cat_type := l_catv_rec.cat_type;
3552: END IF;
3553: IF (x_catv_rec.created_by = OKC_API.G_MISS_NUM)
3554: THEN
3555: x_catv_rec.created_by := l_catv_rec.created_by;
3556: END IF;
3557: IF (x_catv_rec.creation_date = OKC_API.G_MISS_DATE)
3553: IF (x_catv_rec.created_by = OKC_API.G_MISS_NUM)
3554: THEN
3555: x_catv_rec.created_by := l_catv_rec.created_by;
3556: END IF;
3557: IF (x_catv_rec.creation_date = OKC_API.G_MISS_DATE)
3558: THEN
3559: x_catv_rec.creation_date := l_catv_rec.creation_date;
3560: END IF;
3561: IF (x_catv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3557: IF (x_catv_rec.creation_date = OKC_API.G_MISS_DATE)
3558: THEN
3559: x_catv_rec.creation_date := l_catv_rec.creation_date;
3560: END IF;
3561: IF (x_catv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3562: THEN
3563: x_catv_rec.last_updated_by := l_catv_rec.last_updated_by;
3564: END IF;
3565: IF (x_catv_rec.last_update_date = OKC_API.G_MISS_DATE)
3561: IF (x_catv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3562: THEN
3563: x_catv_rec.last_updated_by := l_catv_rec.last_updated_by;
3564: END IF;
3565: IF (x_catv_rec.last_update_date = OKC_API.G_MISS_DATE)
3566: THEN
3567: x_catv_rec.last_update_date := l_catv_rec.last_update_date;
3568: END IF;
3569: IF (x_catv_rec.last_update_login = OKC_API.G_MISS_NUM)
3565: IF (x_catv_rec.last_update_date = OKC_API.G_MISS_DATE)
3566: THEN
3567: x_catv_rec.last_update_date := l_catv_rec.last_update_date;
3568: END IF;
3569: IF (x_catv_rec.last_update_login = OKC_API.G_MISS_NUM)
3570: THEN
3571: x_catv_rec.last_update_login := l_catv_rec.last_update_login;
3572: END IF;
3573:
3585: FUNCTION Set_Attributes (
3586: p_catv_rec IN catv_rec_type,
3587: x_catv_rec OUT NOCOPY catv_rec_type
3588: ) RETURN VARCHAR2 IS
3589: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3590: BEGIN
3591:
3592: x_catv_rec := p_catv_rec;
3593: x_catv_rec.OBJECT_VERSION_NUMBER := NVL(x_catv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3600: okc_debug.Set_Indentation('OKC_CAT_PVT');
3601: okc_debug.log('11500: Entered update_row', 2);
3602: END IF;
3603:
3604: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3605: G_PKG_NAME,
3606: p_init_msg_list,
3607: l_api_version,
3608: p_api_version,
3607: l_api_version,
3608: p_api_version,
3609: '_PVT',
3610: x_return_status);
3611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3608: p_api_version,
3609: '_PVT',
3610: x_return_status);
3611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: --- Setting item attributes
3609: '_PVT',
3610: x_return_status);
3611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: --- Setting item attributes
3617: l_return_status := Set_Attributes(
3610: x_return_status);
3611: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3612: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3613: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3614: RAISE OKC_API.G_EXCEPTION_ERROR;
3615: END IF;
3616: --- Setting item attributes
3617: l_return_status := Set_Attributes(
3618: p_catv_rec, -- IN
3617: l_return_status := Set_Attributes(
3618: p_catv_rec, -- IN
3619: l_catv_rec); -- OUT
3620: --- If any errors happen abort API
3621: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3622: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3623: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3624: RAISE OKC_API.G_EXCEPTION_ERROR;
3625: END IF;
3618: p_catv_rec, -- IN
3619: l_catv_rec); -- OUT
3620: --- If any errors happen abort API
3621: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3622: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3623: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3624: RAISE OKC_API.G_EXCEPTION_ERROR;
3625: END IF;
3626: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3619: l_catv_rec); -- OUT
3620: --- If any errors happen abort API
3621: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3622: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3623: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3624: RAISE OKC_API.G_EXCEPTION_ERROR;
3625: END IF;
3626: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3620: --- If any errors happen abort API
3621: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3622: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3623: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3624: RAISE OKC_API.G_EXCEPTION_ERROR;
3625: END IF;
3626: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3623: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3624: RAISE OKC_API.G_EXCEPTION_ERROR;
3625: END IF;
3626: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3630: RAISE OKC_API.G_EXCEPTION_ERROR;
3631: END IF;
3624: RAISE OKC_API.G_EXCEPTION_ERROR;
3625: END IF;
3626: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3630: RAISE OKC_API.G_EXCEPTION_ERROR;
3631: END IF;
3632: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
3625: END IF;
3626: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3630: RAISE OKC_API.G_EXCEPTION_ERROR;
3631: END IF;
3632: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
3633: --- Validate all non-missing attributes (Item Level Validation)
3626: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3627: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3628: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3629: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3630: RAISE OKC_API.G_EXCEPTION_ERROR;
3631: END IF;
3632: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
3633: --- Validate all non-missing attributes (Item Level Validation)
3634: l_return_status := Validate_Attributes(l_def_catv_rec);
3632: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
3633: --- Validate all non-missing attributes (Item Level Validation)
3634: l_return_status := Validate_Attributes(l_def_catv_rec);
3635: --- If any errors happen abort API
3636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3639: RAISE OKC_API.G_EXCEPTION_ERROR;
3640: END IF;
3633: --- Validate all non-missing attributes (Item Level Validation)
3634: l_return_status := Validate_Attributes(l_def_catv_rec);
3635: --- If any errors happen abort API
3636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3639: RAISE OKC_API.G_EXCEPTION_ERROR;
3640: END IF;
3641: l_return_status := Validate_Record(l_def_catv_rec);
3634: l_return_status := Validate_Attributes(l_def_catv_rec);
3635: --- If any errors happen abort API
3636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3639: RAISE OKC_API.G_EXCEPTION_ERROR;
3640: END IF;
3641: l_return_status := Validate_Record(l_def_catv_rec);
3642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3635: --- If any errors happen abort API
3636: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3637: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3639: RAISE OKC_API.G_EXCEPTION_ERROR;
3640: END IF;
3641: l_return_status := Validate_Record(l_def_catv_rec);
3642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3638: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3639: RAISE OKC_API.G_EXCEPTION_ERROR;
3640: END IF;
3641: l_return_status := Validate_Record(l_def_catv_rec);
3642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3645: RAISE OKC_API.G_EXCEPTION_ERROR;
3646: END IF;
3639: RAISE OKC_API.G_EXCEPTION_ERROR;
3640: END IF;
3641: l_return_status := Validate_Record(l_def_catv_rec);
3642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3645: RAISE OKC_API.G_EXCEPTION_ERROR;
3646: END IF;
3647:
3640: END IF;
3641: l_return_status := Validate_Record(l_def_catv_rec);
3642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3645: RAISE OKC_API.G_EXCEPTION_ERROR;
3646: END IF;
3647:
3648: --------------------------------------
3641: l_return_status := Validate_Record(l_def_catv_rec);
3642: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3643: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3644: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3645: RAISE OKC_API.G_EXCEPTION_ERROR;
3646: END IF;
3647:
3648: --------------------------------------
3649: -- Move VIEW record to "Child" records
3660: x_msg_data,
3661: l_okc_k_articles_tl_rec,
3662: lx_okc_k_articles_tl_rec
3663: );
3664: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3667: RAISE OKC_API.G_EXCEPTION_ERROR;
3668: END IF;
3661: l_okc_k_articles_tl_rec,
3662: lx_okc_k_articles_tl_rec
3663: );
3664: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3667: RAISE OKC_API.G_EXCEPTION_ERROR;
3668: END IF;
3669: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
3662: lx_okc_k_articles_tl_rec
3663: );
3664: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3667: RAISE OKC_API.G_EXCEPTION_ERROR;
3668: END IF;
3669: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
3670: update_row(
3663: );
3664: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3665: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3666: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3667: RAISE OKC_API.G_EXCEPTION_ERROR;
3668: END IF;
3669: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
3670: update_row(
3671: p_init_msg_list,
3674: x_msg_data,
3675: l_cat_rec,
3676: lx_cat_rec
3677: );
3678: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3680: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_ERROR;
3682: END IF;
3675: l_cat_rec,
3676: lx_cat_rec
3677: );
3678: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3680: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_ERROR;
3682: END IF;
3683: migrate(lx_cat_rec, l_def_catv_rec);
3676: lx_cat_rec
3677: );
3678: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3680: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_ERROR;
3682: END IF;
3683: migrate(lx_cat_rec, l_def_catv_rec);
3684: x_catv_rec := l_def_catv_rec;
3677: );
3678: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3679: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3680: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3681: RAISE OKC_API.G_EXCEPTION_ERROR;
3682: END IF;
3683: migrate(lx_cat_rec, l_def_catv_rec);
3684: x_catv_rec := l_def_catv_rec;
3685: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3681: RAISE OKC_API.G_EXCEPTION_ERROR;
3682: END IF;
3683: migrate(lx_cat_rec, l_def_catv_rec);
3684: x_catv_rec := l_def_catv_rec;
3685: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3686:
3687: IF (l_debug = 'Y') THEN
3688: okc_debug.log('11600: Leaving update_row', 2);
3689: okc_debug.Reset_Indentation;
3689: okc_debug.Reset_Indentation;
3690: END IF;
3691:
3692: EXCEPTION
3693: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3694:
3695: IF (l_debug = 'Y') THEN
3696: okc_debug.log('11700: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3697: okc_debug.Reset_Indentation;
3692: EXCEPTION
3693: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3694:
3695: IF (l_debug = 'Y') THEN
3696: okc_debug.log('11700: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3697: okc_debug.Reset_Indentation;
3698: END IF;
3699:
3700: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3696: okc_debug.log('11700: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3697: okc_debug.Reset_Indentation;
3698: END IF;
3699:
3700: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3701: (
3702: l_api_name,
3703: G_PKG_NAME,
3704: 'OKC_API.G_RET_STS_ERROR',
3700: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3701: (
3702: l_api_name,
3703: G_PKG_NAME,
3704: 'OKC_API.G_RET_STS_ERROR',
3705: x_msg_count,
3706: x_msg_data,
3707: '_PVT'
3708: );
3705: x_msg_count,
3706: x_msg_data,
3707: '_PVT'
3708: );
3709: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3710:
3711: IF (l_debug = 'Y') THEN
3712: okc_debug.log('11800: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3713: okc_debug.Reset_Indentation;
3708: );
3709: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3710:
3711: IF (l_debug = 'Y') THEN
3712: okc_debug.log('11800: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3713: okc_debug.Reset_Indentation;
3714: END IF;
3715:
3716: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3712: okc_debug.log('11800: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3713: okc_debug.Reset_Indentation;
3714: END IF;
3715:
3716: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3717: (
3718: l_api_name,
3719: G_PKG_NAME,
3720: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3716: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3717: (
3718: l_api_name,
3719: G_PKG_NAME,
3720: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3721: x_msg_count,
3722: x_msg_data,
3723: '_PVT'
3724: );
3728: okc_debug.log('11900: Leaving update_row:OTHERS Exception', 2);
3729: okc_debug.Reset_Indentation;
3730: END IF;
3731:
3732: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3733: (
3734: l_api_name,
3735: G_PKG_NAME,
3736: 'OTHERS',
3753: x_catv_tbl OUT NOCOPY catv_tbl_type) IS
3754:
3755: l_api_version CONSTANT NUMBER := 1;
3756: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3757: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3758: i NUMBER := 0;
3759: BEGIN
3760:
3761: IF (l_debug = 'Y') THEN
3762: okc_debug.Set_Indentation('OKC_CAT_PVT');
3763: okc_debug.log('12000: Entered update_row', 2);
3764: END IF;
3765:
3766: OKC_API.init_msg_list(p_init_msg_list);
3767: -- Make sure PL/SQL table has records in it before passing
3768: IF (p_catv_tbl.COUNT > 0) THEN
3769: i := p_catv_tbl.FIRST;
3770: LOOP
3769: i := p_catv_tbl.FIRST;
3770: LOOP
3771: update_row (
3772: p_api_version => p_api_version,
3773: p_init_msg_list => OKC_API.G_FALSE,
3774: x_return_status => x_return_status,
3775: x_msg_count => x_msg_count,
3776: x_msg_data => x_msg_data,
3777: p_catv_rec => p_catv_tbl(i),
3786: okc_debug.Reset_Indentation;
3787: END IF;
3788:
3789: EXCEPTION
3790: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3791:
3792: IF (l_debug = 'Y') THEN
3793: okc_debug.log('12200: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3794: okc_debug.Reset_Indentation;
3789: EXCEPTION
3790: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3791:
3792: IF (l_debug = 'Y') THEN
3793: okc_debug.log('12200: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3794: okc_debug.Reset_Indentation;
3795: END IF;
3796:
3797: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3793: okc_debug.log('12200: Leaving update_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3794: okc_debug.Reset_Indentation;
3795: END IF;
3796:
3797: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3798: (
3799: l_api_name,
3800: G_PKG_NAME,
3801: 'OKC_API.G_RET_STS_ERROR',
3797: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3798: (
3799: l_api_name,
3800: G_PKG_NAME,
3801: 'OKC_API.G_RET_STS_ERROR',
3802: x_msg_count,
3803: x_msg_data,
3804: '_PVT'
3805: );
3802: x_msg_count,
3803: x_msg_data,
3804: '_PVT'
3805: );
3806: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3807:
3808: IF (l_debug = 'Y') THEN
3809: okc_debug.log('12300: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3810: okc_debug.Reset_Indentation;
3805: );
3806: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3807:
3808: IF (l_debug = 'Y') THEN
3809: okc_debug.log('12300: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3810: okc_debug.Reset_Indentation;
3811: END IF;
3812:
3813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3809: okc_debug.log('12300: Leaving update_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3810: okc_debug.Reset_Indentation;
3811: END IF;
3812:
3813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3814: (
3815: l_api_name,
3816: G_PKG_NAME,
3817: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3813: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3814: (
3815: l_api_name,
3816: G_PKG_NAME,
3817: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3818: x_msg_count,
3819: x_msg_data,
3820: '_PVT'
3821: );
3825: okc_debug.log('12400: Leaving update_row:OTHERS Exception', 2);
3826: okc_debug.Reset_Indentation;
3827: END IF;
3828:
3829: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3830: (
3831: l_api_name,
3832: G_PKG_NAME,
3833: 'OTHERS',
3852: p_cat_rec IN cat_rec_type) IS
3853:
3854: l_api_version CONSTANT NUMBER := 1;
3855: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3856: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3857: l_cat_rec cat_rec_type:= p_cat_rec;
3858: l_row_notfound BOOLEAN := TRUE;
3859: BEGIN
3860:
3862: okc_debug.Set_Indentation('OKC_CAT_PVT');
3863: okc_debug.log('12500: Entered delete_row', 2);
3864: END IF;
3865:
3866: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3867: p_init_msg_list,
3868: '_PVT',
3869: x_return_status);
3870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3866: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3867: p_init_msg_list,
3868: '_PVT',
3869: x_return_status);
3870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3873: RAISE OKC_API.G_EXCEPTION_ERROR;
3874: END IF;
3867: p_init_msg_list,
3868: '_PVT',
3869: x_return_status);
3870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3873: RAISE OKC_API.G_EXCEPTION_ERROR;
3874: END IF;
3875: DELETE FROM OKC_K_ARTICLES_B
3868: '_PVT',
3869: x_return_status);
3870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3873: RAISE OKC_API.G_EXCEPTION_ERROR;
3874: END IF;
3875: DELETE FROM OKC_K_ARTICLES_B
3876: WHERE ID = l_cat_rec.id;
3869: x_return_status);
3870: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3871: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3872: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3873: RAISE OKC_API.G_EXCEPTION_ERROR;
3874: END IF;
3875: DELETE FROM OKC_K_ARTICLES_B
3876: WHERE ID = l_cat_rec.id;
3877:
3874: END IF;
3875: DELETE FROM OKC_K_ARTICLES_B
3876: WHERE ID = l_cat_rec.id;
3877:
3878: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3879:
3880: IF (l_debug = 'Y') THEN
3881: okc_debug.log('12600: Leaving delete_row', 2);
3882: okc_debug.Reset_Indentation;
3882: okc_debug.Reset_Indentation;
3883: END IF;
3884:
3885: EXCEPTION
3886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3887:
3888: IF (l_debug = 'Y') THEN
3889: okc_debug.log('12700: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3890: okc_debug.Reset_Indentation;
3885: EXCEPTION
3886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3887:
3888: IF (l_debug = 'Y') THEN
3889: okc_debug.log('12700: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3890: okc_debug.Reset_Indentation;
3891: END IF;
3892:
3893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3889: okc_debug.log('12700: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
3890: okc_debug.Reset_Indentation;
3891: END IF;
3892:
3893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3894: (
3895: l_api_name,
3896: G_PKG_NAME,
3897: 'OKC_API.G_RET_STS_ERROR',
3893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3894: (
3895: l_api_name,
3896: G_PKG_NAME,
3897: 'OKC_API.G_RET_STS_ERROR',
3898: x_msg_count,
3899: x_msg_data,
3900: '_PVT'
3901: );
3898: x_msg_count,
3899: x_msg_data,
3900: '_PVT'
3901: );
3902: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3903:
3904: IF (l_debug = 'Y') THEN
3905: okc_debug.log('12800: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3906: okc_debug.Reset_Indentation;
3901: );
3902: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3903:
3904: IF (l_debug = 'Y') THEN
3905: okc_debug.log('12800: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3906: okc_debug.Reset_Indentation;
3907: END IF;
3908:
3909: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3905: okc_debug.log('12800: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3906: okc_debug.Reset_Indentation;
3907: END IF;
3908:
3909: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3910: (
3911: l_api_name,
3912: G_PKG_NAME,
3913: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3909: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3910: (
3911: l_api_name,
3912: G_PKG_NAME,
3913: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3914: x_msg_count,
3915: x_msg_data,
3916: '_PVT'
3917: );
3921: okc_debug.log('12900: Leaving delete_row:OTHERS Exception', 2);
3922: okc_debug.Reset_Indentation;
3923: END IF;
3924:
3925: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3926: (
3927: l_api_name,
3928: G_PKG_NAME,
3929: 'OTHERS',
3944: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type) IS
3945:
3946: l_api_version CONSTANT NUMBER := 1;
3947: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3948: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3949: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type:= p_okc_k_articles_tl_rec;
3950: l_row_notfound BOOLEAN := TRUE;
3951: ------------------------------------------
3952: -- Set_Attributes for:OKC_K_ARTICLES_TL --
3954: FUNCTION Set_Attributes (
3955: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type,
3956: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type
3957: ) RETURN VARCHAR2 IS
3958: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3959: BEGIN
3960:
3961: x_okc_k_articles_tl_rec := p_okc_k_articles_tl_rec;
3962: x_okc_k_articles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3969: okc_debug.Set_Indentation('OKC_CAT_PVT');
3970: okc_debug.log('13100: Entered delete_row', 2);
3971: END IF;
3972:
3973: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3974: p_init_msg_list,
3975: '_PVT',
3976: x_return_status);
3977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3973: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3974: p_init_msg_list,
3975: '_PVT',
3976: x_return_status);
3977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3980: RAISE OKC_API.G_EXCEPTION_ERROR;
3981: END IF;
3974: p_init_msg_list,
3975: '_PVT',
3976: x_return_status);
3977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3980: RAISE OKC_API.G_EXCEPTION_ERROR;
3981: END IF;
3982: --- Setting item attributes
3975: '_PVT',
3976: x_return_status);
3977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3980: RAISE OKC_API.G_EXCEPTION_ERROR;
3981: END IF;
3982: --- Setting item attributes
3983: l_return_status := Set_Attributes(
3976: x_return_status);
3977: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3978: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3979: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3980: RAISE OKC_API.G_EXCEPTION_ERROR;
3981: END IF;
3982: --- Setting item attributes
3983: l_return_status := Set_Attributes(
3984: p_okc_k_articles_tl_rec, -- IN
3983: l_return_status := Set_Attributes(
3984: p_okc_k_articles_tl_rec, -- IN
3985: l_okc_k_articles_tl_rec); -- OUT
3986: --- If any errors happen abort API
3987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3989: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3990: RAISE OKC_API.G_EXCEPTION_ERROR;
3991: END IF;
3984: p_okc_k_articles_tl_rec, -- IN
3985: l_okc_k_articles_tl_rec); -- OUT
3986: --- If any errors happen abort API
3987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3989: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3990: RAISE OKC_API.G_EXCEPTION_ERROR;
3991: END IF;
3992: DELETE FROM OKC_K_ARTICLES_TL
3985: l_okc_k_articles_tl_rec); -- OUT
3986: --- If any errors happen abort API
3987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3989: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3990: RAISE OKC_API.G_EXCEPTION_ERROR;
3991: END IF;
3992: DELETE FROM OKC_K_ARTICLES_TL
3993: WHERE ID = l_okc_k_articles_tl_rec.id;
3986: --- If any errors happen abort API
3987: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3988: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3989: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3990: RAISE OKC_API.G_EXCEPTION_ERROR;
3991: END IF;
3992: DELETE FROM OKC_K_ARTICLES_TL
3993: WHERE ID = l_okc_k_articles_tl_rec.id;
3994:
3991: END IF;
3992: DELETE FROM OKC_K_ARTICLES_TL
3993: WHERE ID = l_okc_k_articles_tl_rec.id;
3994:
3995: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3996:
3997: IF (l_debug = 'Y') THEN
3998: okc_debug.log('13200: Leaving delete_row', 2);
3999: okc_debug.Reset_Indentation;
3999: okc_debug.Reset_Indentation;
4000: END IF;
4001:
4002: EXCEPTION
4003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4004:
4005: IF (l_debug = 'Y') THEN
4006: okc_debug.log('13300: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4007: okc_debug.Reset_Indentation;
4002: EXCEPTION
4003: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4004:
4005: IF (l_debug = 'Y') THEN
4006: okc_debug.log('13300: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4007: okc_debug.Reset_Indentation;
4008: END IF;
4009:
4010: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4006: okc_debug.log('13300: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4007: okc_debug.Reset_Indentation;
4008: END IF;
4009:
4010: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4011: (
4012: l_api_name,
4013: G_PKG_NAME,
4014: 'OKC_API.G_RET_STS_ERROR',
4010: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4011: (
4012: l_api_name,
4013: G_PKG_NAME,
4014: 'OKC_API.G_RET_STS_ERROR',
4015: x_msg_count,
4016: x_msg_data,
4017: '_PVT'
4018: );
4015: x_msg_count,
4016: x_msg_data,
4017: '_PVT'
4018: );
4019: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4020:
4021: IF (l_debug = 'Y') THEN
4022: okc_debug.log('13400: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4023: okc_debug.Reset_Indentation;
4018: );
4019: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4020:
4021: IF (l_debug = 'Y') THEN
4022: okc_debug.log('13400: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4023: okc_debug.Reset_Indentation;
4024: END IF;
4025:
4026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4022: okc_debug.log('13400: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4023: okc_debug.Reset_Indentation;
4024: END IF;
4025:
4026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4027: (
4028: l_api_name,
4029: G_PKG_NAME,
4030: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4027: (
4028: l_api_name,
4029: G_PKG_NAME,
4030: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4031: x_msg_count,
4032: x_msg_data,
4033: '_PVT'
4034: );
4038: okc_debug.log('13500: Leaving delete_row:OTHERS Exception', 2);
4039: okc_debug.Reset_Indentation;
4040: END IF;
4041:
4042: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4043: (
4044: l_api_name,
4045: G_PKG_NAME,
4046: 'OTHERS',
4062: p_catv_rec IN catv_rec_type) IS
4063:
4064: l_api_version CONSTANT NUMBER := 1;
4065: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4066: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4067: l_catv_rec catv_rec_type := p_catv_rec;
4068: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
4069: l_cat_rec cat_rec_type;
4070: BEGIN
4073: okc_debug.Set_Indentation('OKC_CAT_PVT');
4074: okc_debug.log('13600: Entered delete_row', 2);
4075: END IF;
4076:
4077: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4078: G_PKG_NAME,
4079: p_init_msg_list,
4080: l_api_version,
4081: p_api_version,
4080: l_api_version,
4081: p_api_version,
4082: '_PVT',
4083: x_return_status);
4084: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4087: RAISE OKC_API.G_EXCEPTION_ERROR;
4088: END IF;
4081: p_api_version,
4082: '_PVT',
4083: x_return_status);
4084: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4087: RAISE OKC_API.G_EXCEPTION_ERROR;
4088: END IF;
4089: --------------------------------------
4082: '_PVT',
4083: x_return_status);
4084: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4087: RAISE OKC_API.G_EXCEPTION_ERROR;
4088: END IF;
4089: --------------------------------------
4090: -- Move VIEW record to "Child" records
4083: x_return_status);
4084: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4085: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4086: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
4087: RAISE OKC_API.G_EXCEPTION_ERROR;
4088: END IF;
4089: --------------------------------------
4090: -- Move VIEW record to "Child" records
4091: --------------------------------------
4100: x_msg_count,
4101: x_msg_data,
4102: l_okc_k_articles_tl_rec
4103: );
4104: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4105: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4106: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4107: RAISE OKC_API.G_EXCEPTION_ERROR;
4108: END IF;
4101: x_msg_data,
4102: l_okc_k_articles_tl_rec
4103: );
4104: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4105: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4106: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4107: RAISE OKC_API.G_EXCEPTION_ERROR;
4108: END IF;
4109: delete_row(
4102: l_okc_k_articles_tl_rec
4103: );
4104: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4105: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4106: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4107: RAISE OKC_API.G_EXCEPTION_ERROR;
4108: END IF;
4109: delete_row(
4110: p_init_msg_list,
4103: );
4104: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4105: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4106: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4107: RAISE OKC_API.G_EXCEPTION_ERROR;
4108: END IF;
4109: delete_row(
4110: p_init_msg_list,
4111: x_return_status,
4112: x_msg_count,
4113: x_msg_data,
4114: l_cat_rec
4115: );
4116: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4118: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4119: RAISE OKC_API.G_EXCEPTION_ERROR;
4120: END IF;
4113: x_msg_data,
4114: l_cat_rec
4115: );
4116: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4118: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4119: RAISE OKC_API.G_EXCEPTION_ERROR;
4120: END IF;
4121: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4114: l_cat_rec
4115: );
4116: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4118: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4119: RAISE OKC_API.G_EXCEPTION_ERROR;
4120: END IF;
4121: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4122:
4115: );
4116: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
4117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4118: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4119: RAISE OKC_API.G_EXCEPTION_ERROR;
4120: END IF;
4121: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4122:
4123: IF (l_debug = 'Y') THEN
4117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4118: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
4119: RAISE OKC_API.G_EXCEPTION_ERROR;
4120: END IF;
4121: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4122:
4123: IF (l_debug = 'Y') THEN
4124: okc_debug.log('13700: Leaving delete_row', 2);
4125: okc_debug.Reset_Indentation;
4125: okc_debug.Reset_Indentation;
4126: END IF;
4127:
4128: EXCEPTION
4129: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4130:
4131: IF (l_debug = 'Y') THEN
4132: okc_debug.log('13800: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4133: okc_debug.Reset_Indentation;
4128: EXCEPTION
4129: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4130:
4131: IF (l_debug = 'Y') THEN
4132: okc_debug.log('13800: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4133: okc_debug.Reset_Indentation;
4134: END IF;
4135:
4136: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4132: okc_debug.log('13800: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4133: okc_debug.Reset_Indentation;
4134: END IF;
4135:
4136: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4137: (
4138: l_api_name,
4139: G_PKG_NAME,
4140: 'OKC_API.G_RET_STS_ERROR',
4136: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4137: (
4138: l_api_name,
4139: G_PKG_NAME,
4140: 'OKC_API.G_RET_STS_ERROR',
4141: x_msg_count,
4142: x_msg_data,
4143: '_PVT'
4144: );
4141: x_msg_count,
4142: x_msg_data,
4143: '_PVT'
4144: );
4145: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4146:
4147: IF (l_debug = 'Y') THEN
4148: okc_debug.log('13900: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4149: okc_debug.Reset_Indentation;
4144: );
4145: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4146:
4147: IF (l_debug = 'Y') THEN
4148: okc_debug.log('13900: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4149: okc_debug.Reset_Indentation;
4150: END IF;
4151:
4152: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4148: okc_debug.log('13900: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4149: okc_debug.Reset_Indentation;
4150: END IF;
4151:
4152: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4153: (
4154: l_api_name,
4155: G_PKG_NAME,
4156: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4152: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4153: (
4154: l_api_name,
4155: G_PKG_NAME,
4156: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4157: x_msg_count,
4158: x_msg_data,
4159: '_PVT'
4160: );
4164: okc_debug.log('14000: Leaving delete_row:OTHERS Exception', 2);
4165: okc_debug.Reset_Indentation;
4166: END IF;
4167:
4168: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4169: (
4170: l_api_name,
4171: G_PKG_NAME,
4172: 'OTHERS',
4188: p_catv_tbl IN catv_tbl_type) IS
4189:
4190: l_api_version CONSTANT NUMBER := 1;
4191: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4192: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4193: i NUMBER := 0;
4194: BEGIN
4195:
4196: IF (l_debug = 'Y') THEN
4197: okc_debug.Set_Indentation('OKC_CAT_PVT');
4198: okc_debug.log('14100: Entered delete_row', 2);
4199: END IF;
4200:
4201: OKC_API.init_msg_list(p_init_msg_list);
4202: -- Make sure PL/SQL table has records in it before passing
4203: IF (p_catv_tbl.COUNT > 0) THEN
4204: i := p_catv_tbl.FIRST;
4205: LOOP
4204: i := p_catv_tbl.FIRST;
4205: LOOP
4206: delete_row (
4207: p_api_version => p_api_version,
4208: p_init_msg_list => OKC_API.G_FALSE,
4209: x_return_status => x_return_status,
4210: x_msg_count => x_msg_count,
4211: x_msg_data => x_msg_data,
4212: p_catv_rec => p_catv_tbl(i));
4220: okc_debug.Reset_Indentation;
4221: END IF;
4222:
4223: EXCEPTION
4224: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4225:
4226: IF (l_debug = 'Y') THEN
4227: okc_debug.log('14300: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4228: okc_debug.Reset_Indentation;
4223: EXCEPTION
4224: WHEN OKC_API.G_EXCEPTION_ERROR THEN
4225:
4226: IF (l_debug = 'Y') THEN
4227: okc_debug.log('14300: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4228: okc_debug.Reset_Indentation;
4229: END IF;
4230:
4231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4227: okc_debug.log('14300: Leaving delete_row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
4228: okc_debug.Reset_Indentation;
4229: END IF;
4230:
4231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4232: (
4233: l_api_name,
4234: G_PKG_NAME,
4235: 'OKC_API.G_RET_STS_ERROR',
4231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
4232: (
4233: l_api_name,
4234: G_PKG_NAME,
4235: 'OKC_API.G_RET_STS_ERROR',
4236: x_msg_count,
4237: x_msg_data,
4238: '_PVT'
4239: );
4236: x_msg_count,
4237: x_msg_data,
4238: '_PVT'
4239: );
4240: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4241:
4242: IF (l_debug = 'Y') THEN
4243: okc_debug.log('14400: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4244: okc_debug.Reset_Indentation;
4239: );
4240: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4241:
4242: IF (l_debug = 'Y') THEN
4243: okc_debug.log('14400: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4244: okc_debug.Reset_Indentation;
4245: END IF;
4246:
4247: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4243: okc_debug.log('14400: Leaving delete_row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4244: okc_debug.Reset_Indentation;
4245: END IF;
4246:
4247: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4248: (
4249: l_api_name,
4250: G_PKG_NAME,
4251: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4247: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4248: (
4249: l_api_name,
4250: G_PKG_NAME,
4251: 'OKC_API.G_RET_STS_UNEXP_ERROR',
4252: x_msg_count,
4253: x_msg_data,
4254: '_PVT'
4255: );
4259: okc_debug.log('14500: Leaving delete_row:OTHERS Exception', 2);
4260: okc_debug.Reset_Indentation;
4261: END IF;
4262:
4263: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
4264: (
4265: l_api_name,
4266: G_PKG_NAME,
4267: 'OTHERS',
4318: in_last_update_login OKC_DATATYPES.NumberTabTyp;
4319: i number;
4320: j number;
4321: BEGIN
4322: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4323: -- Initializing Return status
4324: IF (l_debug = 'Y') THEN
4325: okc_debug.Set_Indentation('OKC_CAT_PVT');
4326: okc_debug.log('14600: Entered INSERT_ROW_UPG', 2);
4490: EXCEPTION
4491: WHEN OTHERS THEN
4492:
4493: -- store SQL error message on message stack
4494: OKC_API.SET_MESSAGE(
4495: p_app_name => G_APP_NAME,
4496: p_msg_name => G_UNEXPECTED_ERROR,
4497: p_token1 => G_SQLCODE_TOKEN,
4498: p_token1_value => SQLCODE,
4498: p_token1_value => SQLCODE,
4499: p_token2 => G_SQLERRM_TOKEN,
4500: p_token2_value => SQLERRM);
4501: -- notify caller of an error as UNEXPECTED error
4502: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4503: IF (l_debug = 'Y') THEN
4504: okc_debug.log('14800: Leaving INSERT_ROW_UPG:OTHERS Exception', 2);
4505: okc_debug.Reset_Indentation;
4506: END IF;
4517: p_chr_id IN NUMBER,
4518: p_major_version IN NUMBER
4519: ) RETURN VARCHAR2 IS
4520:
4521: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
4522:
4523: BEGIN
4524:
4525: IF (l_debug = 'Y') THEN
4658: okc_debug.Reset_Indentation;
4659: END IF;
4660:
4661: -- store SQL error message on message stack
4662: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4663: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
4664: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
4665: p_token1_value => sqlcode,
4666: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4666: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4667: p_token2_value => sqlerrm);
4668:
4669: -- notify UNEXPECTED error
4670: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4671: return l_return_status;
4672:
4673: END create_version;
4674:
4680: p_chr_id IN NUMBER,
4681: p_major_version IN NUMBER
4682: ) RETURN VARCHAR2 IS
4683:
4684: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
4685:
4686: BEGIN
4687:
4688: IF (l_debug = 'Y') THEN
4820: okc_debug.Reset_Indentation;
4821: END IF;
4822:
4823: -- store SQL error message on message stack
4824: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4825: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
4826: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
4827: p_token1_value => sqlcode,
4828: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4828: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4829: p_token2_value => sqlerrm);
4830:
4831: -- notify UNEXPECTED error
4832: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4833: return l_return_status;
4834:
4835: END restore_version;
4836: