[Home] [Help]
3: /*+++++++++++++Start of hand code +++++++++++++++++*/
4: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
5: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
6: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
7: g_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
8: /*+++++++++++++End of hand code +++++++++++++++++++*/
9: ---------------------------------------------------------------------------
10: -- FUNCTION get_seq_id
11: ---------------------------------------------------------------------------
412: p_catv_rec IN catv_rec_type
413: ) RETURN catv_rec_type IS
414: l_catv_rec catv_rec_type := p_catv_rec;
415: BEGIN
416: IF (l_catv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
417: l_catv_rec.chr_id := NULL;
418: END IF;
419: IF (l_catv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
420: l_catv_rec.cle_id := NULL;
415: BEGIN
416: IF (l_catv_rec.chr_id = OKC_API.G_MISS_NUM) THEN
417: l_catv_rec.chr_id := NULL;
418: END IF;
419: IF (l_catv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
420: l_catv_rec.cle_id := NULL;
421: END IF;
422: IF (l_catv_rec.cat_id = OKC_API.G_MISS_NUM) THEN
423: l_catv_rec.cat_id := NULL;
418: END IF;
419: IF (l_catv_rec.cle_id = OKC_API.G_MISS_NUM) THEN
420: l_catv_rec.cle_id := NULL;
421: END IF;
422: IF (l_catv_rec.cat_id = OKC_API.G_MISS_NUM) THEN
423: l_catv_rec.cat_id := NULL;
424: END IF;
425: IF (l_catv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
426: l_catv_rec.object_version_number := NULL;
421: END IF;
422: IF (l_catv_rec.cat_id = OKC_API.G_MISS_NUM) THEN
423: l_catv_rec.cat_id := NULL;
424: END IF;
425: IF (l_catv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
426: l_catv_rec.object_version_number := NULL;
427: END IF;
428: IF (l_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
429: l_catv_rec.sfwt_flag := NULL;
424: END IF;
425: IF (l_catv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
426: l_catv_rec.object_version_number := NULL;
427: END IF;
428: IF (l_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
429: l_catv_rec.sfwt_flag := NULL;
430: END IF;
431: IF (l_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM) THEN
432: l_catv_rec.sav_sae_id := NULL;
427: END IF;
428: IF (l_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
429: l_catv_rec.sfwt_flag := NULL;
430: END IF;
431: IF (l_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM) THEN
432: l_catv_rec.sav_sae_id := NULL;
433: END IF;
434: IF (l_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) THEN
435: l_catv_rec.sav_sav_release := NULL;
430: END IF;
431: IF (l_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM) THEN
432: l_catv_rec.sav_sae_id := NULL;
433: END IF;
434: IF (l_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) THEN
435: l_catv_rec.sav_sav_release := NULL;
436: END IF;
437: IF (l_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) THEN
438: l_catv_rec.sbt_code := NULL;
433: END IF;
434: IF (l_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) THEN
435: l_catv_rec.sav_sav_release := NULL;
436: END IF;
437: IF (l_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) THEN
438: l_catv_rec.sbt_code := NULL;
439: END IF;
440: IF (l_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
441: l_catv_rec.dnz_chr_id := NULL;
436: END IF;
437: IF (l_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) THEN
438: l_catv_rec.sbt_code := NULL;
439: END IF;
440: IF (l_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
441: l_catv_rec.dnz_chr_id := NULL;
442: END IF;
443: IF (l_catv_rec.comments = OKC_API.G_MISS_CHAR) THEN
444: l_catv_rec.comments := NULL;
439: END IF;
440: IF (l_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) THEN
441: l_catv_rec.dnz_chr_id := NULL;
442: END IF;
443: IF (l_catv_rec.comments = OKC_API.G_MISS_CHAR) THEN
444: l_catv_rec.comments := NULL;
445: END IF;
446: IF (l_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR) THEN
447: l_catv_rec.fulltext_yn := NULL;
442: END IF;
443: IF (l_catv_rec.comments = OKC_API.G_MISS_CHAR) THEN
444: l_catv_rec.comments := NULL;
445: END IF;
446: IF (l_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR) THEN
447: l_catv_rec.fulltext_yn := NULL;
448: END IF;
449: IF (l_catv_rec.variation_description = OKC_API.G_MISS_CHAR) THEN
450: l_catv_rec.variation_description := NULL;
445: END IF;
446: IF (l_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR) THEN
447: l_catv_rec.fulltext_yn := NULL;
448: END IF;
449: IF (l_catv_rec.variation_description = OKC_API.G_MISS_CHAR) THEN
450: l_catv_rec.variation_description := NULL;
451: END IF;
452: IF (l_catv_rec.name = OKC_API.G_MISS_CHAR) THEN
453: l_catv_rec.name := NULL;
448: END IF;
449: IF (l_catv_rec.variation_description = OKC_API.G_MISS_CHAR) THEN
450: l_catv_rec.variation_description := NULL;
451: END IF;
452: IF (l_catv_rec.name = OKC_API.G_MISS_CHAR) THEN
453: l_catv_rec.name := NULL;
454: END IF;
455: ---text field is NULL initially
456: --- IF (l_catv_rec.text = OKC_API.G_MISS_CHAR) THEN
452: IF (l_catv_rec.name = OKC_API.G_MISS_CHAR) THEN
453: l_catv_rec.name := NULL;
454: END IF;
455: ---text field is NULL initially
456: --- IF (l_catv_rec.text = OKC_API.G_MISS_CHAR) THEN
457: --- l_catv_rec.text := NULL;
458: --- END IF;
459: IF (l_catv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
460: l_catv_rec.attribute_category := NULL;
455: ---text field is NULL initially
456: --- IF (l_catv_rec.text = OKC_API.G_MISS_CHAR) THEN
457: --- l_catv_rec.text := NULL;
458: --- END IF;
459: IF (l_catv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
460: l_catv_rec.attribute_category := NULL;
461: END IF;
462: IF (l_catv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
463: l_catv_rec.attribute1 := NULL;
458: --- END IF;
459: IF (l_catv_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
460: l_catv_rec.attribute_category := NULL;
461: END IF;
462: IF (l_catv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
463: l_catv_rec.attribute1 := NULL;
464: END IF;
465: IF (l_catv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
466: l_catv_rec.attribute2 := NULL;
461: END IF;
462: IF (l_catv_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
463: l_catv_rec.attribute1 := NULL;
464: END IF;
465: IF (l_catv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
466: l_catv_rec.attribute2 := NULL;
467: END IF;
468: IF (l_catv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
469: l_catv_rec.attribute3 := NULL;
464: END IF;
465: IF (l_catv_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
466: l_catv_rec.attribute2 := NULL;
467: END IF;
468: IF (l_catv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
469: l_catv_rec.attribute3 := NULL;
470: END IF;
471: IF (l_catv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
472: l_catv_rec.attribute4 := NULL;
467: END IF;
468: IF (l_catv_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
469: l_catv_rec.attribute3 := NULL;
470: END IF;
471: IF (l_catv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
472: l_catv_rec.attribute4 := NULL;
473: END IF;
474: IF (l_catv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
475: l_catv_rec.attribute5 := NULL;
470: END IF;
471: IF (l_catv_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
472: l_catv_rec.attribute4 := NULL;
473: END IF;
474: IF (l_catv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
475: l_catv_rec.attribute5 := NULL;
476: END IF;
477: IF (l_catv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
478: l_catv_rec.attribute6 := NULL;
473: END IF;
474: IF (l_catv_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
475: l_catv_rec.attribute5 := NULL;
476: END IF;
477: IF (l_catv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
478: l_catv_rec.attribute6 := NULL;
479: END IF;
480: IF (l_catv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
481: l_catv_rec.attribute7 := NULL;
476: END IF;
477: IF (l_catv_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
478: l_catv_rec.attribute6 := NULL;
479: END IF;
480: IF (l_catv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
481: l_catv_rec.attribute7 := NULL;
482: END IF;
483: IF (l_catv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
484: l_catv_rec.attribute8 := NULL;
479: END IF;
480: IF (l_catv_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
481: l_catv_rec.attribute7 := NULL;
482: END IF;
483: IF (l_catv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
484: l_catv_rec.attribute8 := NULL;
485: END IF;
486: IF (l_catv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
487: l_catv_rec.attribute9 := NULL;
482: END IF;
483: IF (l_catv_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
484: l_catv_rec.attribute8 := NULL;
485: END IF;
486: IF (l_catv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
487: l_catv_rec.attribute9 := NULL;
488: END IF;
489: IF (l_catv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
490: l_catv_rec.attribute10 := NULL;
485: END IF;
486: IF (l_catv_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
487: l_catv_rec.attribute9 := NULL;
488: END IF;
489: IF (l_catv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
490: l_catv_rec.attribute10 := NULL;
491: END IF;
492: IF (l_catv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
493: l_catv_rec.attribute11 := NULL;
488: END IF;
489: IF (l_catv_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
490: l_catv_rec.attribute10 := NULL;
491: END IF;
492: IF (l_catv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
493: l_catv_rec.attribute11 := NULL;
494: END IF;
495: IF (l_catv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
496: l_catv_rec.attribute12 := NULL;
491: END IF;
492: IF (l_catv_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
493: l_catv_rec.attribute11 := NULL;
494: END IF;
495: IF (l_catv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
496: l_catv_rec.attribute12 := NULL;
497: END IF;
498: IF (l_catv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
499: l_catv_rec.attribute13 := NULL;
494: END IF;
495: IF (l_catv_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
496: l_catv_rec.attribute12 := NULL;
497: END IF;
498: IF (l_catv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
499: l_catv_rec.attribute13 := NULL;
500: END IF;
501: IF (l_catv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
502: l_catv_rec.attribute14 := NULL;
497: END IF;
498: IF (l_catv_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
499: l_catv_rec.attribute13 := NULL;
500: END IF;
501: IF (l_catv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
502: l_catv_rec.attribute14 := NULL;
503: END IF;
504: IF (l_catv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
505: l_catv_rec.attribute15 := NULL;
500: END IF;
501: IF (l_catv_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
502: l_catv_rec.attribute14 := NULL;
503: END IF;
504: IF (l_catv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
505: l_catv_rec.attribute15 := NULL;
506: END IF;
507: IF (l_catv_rec.cat_type = OKC_API.G_MISS_CHAR) THEN
508: l_catv_rec.cat_type := NULL;
503: END IF;
504: IF (l_catv_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
505: l_catv_rec.attribute15 := NULL;
506: END IF;
507: IF (l_catv_rec.cat_type = OKC_API.G_MISS_CHAR) THEN
508: l_catv_rec.cat_type := NULL;
509: END IF;
510: IF (l_catv_rec.created_by = OKC_API.G_MISS_NUM) THEN
511: l_catv_rec.created_by := NULL;
506: END IF;
507: IF (l_catv_rec.cat_type = OKC_API.G_MISS_CHAR) THEN
508: l_catv_rec.cat_type := NULL;
509: END IF;
510: IF (l_catv_rec.created_by = OKC_API.G_MISS_NUM) THEN
511: l_catv_rec.created_by := NULL;
512: END IF;
513: IF (l_catv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
514: l_catv_rec.creation_date := NULL;
509: END IF;
510: IF (l_catv_rec.created_by = OKC_API.G_MISS_NUM) THEN
511: l_catv_rec.created_by := NULL;
512: END IF;
513: IF (l_catv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
514: l_catv_rec.creation_date := NULL;
515: END IF;
516: IF (l_catv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
517: l_catv_rec.last_updated_by := NULL;
512: END IF;
513: IF (l_catv_rec.creation_date = OKC_API.G_MISS_DATE) THEN
514: l_catv_rec.creation_date := NULL;
515: END IF;
516: IF (l_catv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
517: l_catv_rec.last_updated_by := NULL;
518: END IF;
519: IF (l_catv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
520: l_catv_rec.last_update_date := NULL;
515: END IF;
516: IF (l_catv_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
517: l_catv_rec.last_updated_by := NULL;
518: END IF;
519: IF (l_catv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
520: l_catv_rec.last_update_date := NULL;
521: END IF;
522: IF (l_catv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
523: l_catv_rec.last_update_login := NULL;
518: END IF;
519: IF (l_catv_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
520: l_catv_rec.last_update_date := NULL;
521: END IF;
522: IF (l_catv_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
523: l_catv_rec.last_update_login := NULL;
524: END IF;
525: RETURN(l_catv_rec);
526: END null_out_defaults;
540: procedure validate_sbt_code(x_return_status OUT NOCOPY VARCHAR2,
541: p_catv_rec IN catv_rec_TYPE) is
542: l_dummy_var varchar2(1) := '?';
543: begin
544: x_return_status := OKC_API.G_RET_STS_SUCCESS;
545: if (p_catv_rec.sbt_code is NULL or p_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) then
546: return;
547: end if;
548: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
541: p_catv_rec IN catv_rec_TYPE) is
542: l_dummy_var varchar2(1) := '?';
543: begin
544: x_return_status := OKC_API.G_RET_STS_SUCCESS;
545: if (p_catv_rec.sbt_code is NULL or p_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) then
546: return;
547: end if;
548: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
549: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
545: if (p_catv_rec.sbt_code is NULL or p_catv_rec.sbt_code = OKC_API.G_MISS_CHAR) then
546: return;
547: end if;
548: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
549: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
550: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
551: x_return_status := OKC_API.G_RET_STS_ERROR;
552: end if;
553: exception
546: return;
547: end if;
548: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
549: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
550: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
551: x_return_status := OKC_API.G_RET_STS_ERROR;
552: end if;
553: exception
554: when OTHERS then
547: end if;
548: x_return_status := OKC_UTIL.check_lookup_code('OKC_SUBJECT',p_catv_rec.sbt_code);
549: if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
550: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
551: x_return_status := OKC_API.G_RET_STS_ERROR;
552: end if;
553: exception
554: when OTHERS then
555: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
551: x_return_status := OKC_API.G_RET_STS_ERROR;
552: end if;
553: exception
554: when OTHERS then
555: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
556: p_msg_name => g_unexpected_error,
557: p_token1 => g_sqlcode_token,
558: p_token1_value => sqlcode,
559: p_token2 => g_sqlerrm_token,
557: p_token1 => g_sqlcode_token,
558: p_token1_value => sqlcode,
559: p_token2 => g_sqlerrm_token,
560: p_token2_value => sqlerrm);
561: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
562: end validate_sbt_code;
563:
564: -- Start of comments
565: --
571: -- End of comments
572: procedure validate_cat_type(x_return_status OUT NOCOPY VARCHAR2,
573: p_catv_rec IN catv_rec_TYPE) is
574: begin
575: if (P_catv_rec.cat_type in ('STA','NSD',OKC_API.G_MISS_CHAR)) then
576: x_return_status := OKC_API.G_RET_STS_SUCCESS;
577: return;
578: end if;
579: if (P_catv_rec.cat_type is NULL) then
572: procedure validate_cat_type(x_return_status OUT NOCOPY VARCHAR2,
573: p_catv_rec IN catv_rec_TYPE) is
574: begin
575: if (P_catv_rec.cat_type in ('STA','NSD',OKC_API.G_MISS_CHAR)) then
576: x_return_status := OKC_API.G_RET_STS_SUCCESS;
577: return;
578: end if;
579: if (P_catv_rec.cat_type is NULL) then
580: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
576: x_return_status := OKC_API.G_RET_STS_SUCCESS;
577: return;
578: end if;
579: if (P_catv_rec.cat_type is NULL) then
580: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
581: x_return_status := OKC_API.G_RET_STS_ERROR;
582: return;
583: end if;
584: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
577: return;
578: end if;
579: if (P_catv_rec.cat_type is NULL) then
580: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
581: x_return_status := OKC_API.G_RET_STS_ERROR;
582: return;
583: end if;
584: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
585: x_return_status := OKC_API.G_RET_STS_ERROR;
580: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
581: x_return_status := OKC_API.G_RET_STS_ERROR;
582: return;
583: end if;
584: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
585: x_return_status := OKC_API.G_RET_STS_ERROR;
586: end validate_cat_type;
587:
588: -- Start of comments
581: x_return_status := OKC_API.G_RET_STS_ERROR;
582: return;
583: end if;
584: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_TYPE');
585: x_return_status := OKC_API.G_RET_STS_ERROR;
586: end validate_cat_type;
587:
588: -- Start of comments
589: --
595: -- End of comments
596: procedure validate_fulltext_yn(x_return_status OUT NOCOPY VARCHAR2,
597: p_catv_rec IN catv_rec_TYPE) is
598: begin
599: if (P_catv_rec.fulltext_yn in ('Y','N',OKC_API.G_MISS_CHAR)
600: or P_catv_rec.fulltext_yn is NULL) then
601: x_return_status := OKC_API.G_RET_STS_SUCCESS;
602: else
603: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'FULLTEXT_YN');
597: p_catv_rec IN catv_rec_TYPE) is
598: begin
599: if (P_catv_rec.fulltext_yn in ('Y','N',OKC_API.G_MISS_CHAR)
600: or P_catv_rec.fulltext_yn is NULL) then
601: x_return_status := OKC_API.G_RET_STS_SUCCESS;
602: else
603: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'FULLTEXT_YN');
604: x_return_status := OKC_API.G_RET_STS_ERROR;
605: end if;
599: if (P_catv_rec.fulltext_yn in ('Y','N',OKC_API.G_MISS_CHAR)
600: or P_catv_rec.fulltext_yn is NULL) then
601: x_return_status := OKC_API.G_RET_STS_SUCCESS;
602: else
603: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'FULLTEXT_YN');
604: x_return_status := OKC_API.G_RET_STS_ERROR;
605: end if;
606: end validate_fulltext_yn;
607:
600: or P_catv_rec.fulltext_yn is NULL) then
601: x_return_status := OKC_API.G_RET_STS_SUCCESS;
602: else
603: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'FULLTEXT_YN');
604: x_return_status := OKC_API.G_RET_STS_ERROR;
605: end if;
606: end validate_fulltext_yn;
607:
608:
622: select '!'
623: from okc_k_headers_b
624: where id = p_catv_rec.dnz_chr_id;
625: begin
626: x_return_status := OKC_API.G_RET_STS_SUCCESS;
627: if (p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
628: return;
629: end if;
630: if (p_catv_rec.dnz_chr_id is NULL) then
623: from okc_k_headers_b
624: where id = p_catv_rec.dnz_chr_id;
625: begin
626: x_return_status := OKC_API.G_RET_STS_SUCCESS;
627: if (p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
628: return;
629: end if;
630: if (p_catv_rec.dnz_chr_id is NULL) then
631: OKC_API.set_message(p_app_name => g_app_name,
627: if (p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM) then
628: return;
629: end if;
630: if (p_catv_rec.dnz_chr_id is NULL) then
631: OKC_API.set_message(p_app_name => g_app_name,
632: p_msg_name => G_REQUIRED_VALUE,
633: p_token1 => G_COL_NAME_TOKEN,
634: p_token1_value => 'DNZ_CHR_ID');
635: x_return_status := OKC_API.G_RET_STS_ERROR;
631: OKC_API.set_message(p_app_name => g_app_name,
632: p_msg_name => G_REQUIRED_VALUE,
633: p_token1 => G_COL_NAME_TOKEN,
634: p_token1_value => 'DNZ_CHR_ID');
635: x_return_status := OKC_API.G_RET_STS_ERROR;
636: return;
637: end if;
638: open Kt_Hr_Mj_Vr;
639: fetch Kt_Hr_Mj_Vr into l_dummy;
638: open Kt_Hr_Mj_Vr;
639: fetch Kt_Hr_Mj_Vr into l_dummy;
640: close Kt_Hr_Mj_Vr;
641: if (l_dummy='?') then
642: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
643: x_return_status := OKC_API.G_RET_STS_ERROR;
644: return;
645: end if;
646: exception
639: fetch Kt_Hr_Mj_Vr into l_dummy;
640: close Kt_Hr_Mj_Vr;
641: if (l_dummy='?') then
642: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DNZ_CHR_ID');
643: x_return_status := OKC_API.G_RET_STS_ERROR;
644: return;
645: end if;
646: exception
647: when OTHERS then
644: return;
645: end if;
646: exception
647: when OTHERS then
648: OKC_API.set_message(p_app_name => g_app_name,
649: p_msg_name => g_unexpected_error,
650: p_token1 => g_sqlcode_token,
651: p_token1_value => sqlcode,
652: p_token2 => g_sqlerrm_token,
650: p_token1 => g_sqlcode_token,
651: p_token1_value => sqlcode,
652: p_token2 => g_sqlerrm_token,
653: p_token2_value => sqlerrm);
654: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
655: end validate_dnz_chr_id;
656:
657: -- Start of comments
658: --
669: select '!'
670: from OKC_K_ARTICLES_B
671: where id = p_catv_rec.cat_id;
672: begin
673: x_return_status := OKC_API.G_RET_STS_SUCCESS;
674: if (p_catv_rec.cat_id = OKC_API.G_MISS_NUM or p_catv_rec.cat_id is NULL) then
675: return;
676: end if;
677: open l_cat_csr;
670: from OKC_K_ARTICLES_B
671: where id = p_catv_rec.cat_id;
672: begin
673: x_return_status := OKC_API.G_RET_STS_SUCCESS;
674: if (p_catv_rec.cat_id = OKC_API.G_MISS_NUM or p_catv_rec.cat_id is NULL) then
675: return;
676: end if;
677: open l_cat_csr;
678: fetch l_cat_csr into l_dummy_var;
677: open l_cat_csr;
678: fetch l_cat_csr into l_dummy_var;
679: close l_cat_csr;
680: if (l_dummy_var = '?') then
681: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_ID');
682: x_return_status := OKC_API.G_RET_STS_ERROR;
683: end if;
684: exception
685: when OTHERS then
678: fetch l_cat_csr into l_dummy_var;
679: close l_cat_csr;
680: if (l_dummy_var = '?') then
681: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_ID');
682: x_return_status := OKC_API.G_RET_STS_ERROR;
683: end if;
684: exception
685: when OTHERS then
686: if l_cat_csr%ISOPEN then
685: when OTHERS then
686: if l_cat_csr%ISOPEN then
687: close l_cat_csr;
688: end if;
689: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
690: p_msg_name => g_unexpected_error,
691: p_token1 => g_sqlcode_token,
692: p_token1_value => sqlcode,
693: p_token2 => g_sqlerrm_token,
691: p_token1 => g_sqlcode_token,
692: p_token1_value => sqlcode,
693: p_token2 => g_sqlerrm_token,
694: p_token2_value => sqlerrm);
695: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
696: end validate_cat_id;
697:
698: -- Start of comments
699: --
710: select '!'
711: from OKC_K_LINES_B
712: where id = p_catv_rec.cle_id;
713: begin
714: x_return_status := OKC_API.G_RET_STS_SUCCESS;
715: if (p_catv_rec.cle_id = OKC_API.G_MISS_NUM or p_catv_rec.cle_id is NULL) then
716: return;
717: end if;
718: open l_cle_csr;
711: from OKC_K_LINES_B
712: where id = p_catv_rec.cle_id;
713: begin
714: x_return_status := OKC_API.G_RET_STS_SUCCESS;
715: if (p_catv_rec.cle_id = OKC_API.G_MISS_NUM or p_catv_rec.cle_id is NULL) then
716: return;
717: end if;
718: open l_cle_csr;
719: fetch l_cle_csr into l_dummy_var;
718: open l_cle_csr;
719: fetch l_cle_csr into l_dummy_var;
720: close l_cle_csr;
721: if (l_dummy_var = '?') then
722: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
723: x_return_status := OKC_API.G_RET_STS_ERROR;
724: end if;
725: exception
726: when OTHERS then
719: fetch l_cle_csr into l_dummy_var;
720: close l_cle_csr;
721: if (l_dummy_var = '?') then
722: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
723: x_return_status := OKC_API.G_RET_STS_ERROR;
724: end if;
725: exception
726: when OTHERS then
727: if l_cle_csr%ISOPEN then
726: when OTHERS then
727: if l_cle_csr%ISOPEN then
728: close l_cle_csr;
729: end if;
730: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
731: p_msg_name => g_unexpected_error,
732: p_token1 => g_sqlcode_token,
733: p_token1_value => sqlcode,
734: p_token2 => g_sqlerrm_token,
732: p_token1 => g_sqlcode_token,
733: p_token1_value => sqlcode,
734: p_token2 => g_sqlerrm_token,
735: p_token2_value => sqlerrm);
736: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
737: end validate_cle_id;
738:
739: -- Start of comments
740: --
751: select '!'
752: from OKC_K_HEADERS_B
753: where id = p_catv_rec.chr_id;
754: begin
755: x_return_status := OKC_API.G_RET_STS_SUCCESS;
756: if (p_catv_rec.chr_id = OKC_API.G_MISS_NUM or p_catv_rec.chr_id is NULL) then
757: return;
758: end if;
759: open l_chr_csr;
752: from OKC_K_HEADERS_B
753: where id = p_catv_rec.chr_id;
754: begin
755: x_return_status := OKC_API.G_RET_STS_SUCCESS;
756: if (p_catv_rec.chr_id = OKC_API.G_MISS_NUM or p_catv_rec.chr_id is NULL) then
757: return;
758: end if;
759: open l_chr_csr;
760: fetch l_chr_csr into l_dummy_var;
759: open l_chr_csr;
760: fetch l_chr_csr into l_dummy_var;
761: close l_chr_csr;
762: if (l_dummy_var = '?') then
763: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CHR_ID');
764: x_return_status := OKC_API.G_RET_STS_ERROR;
765: end if;
766: exception
767: when OTHERS then
760: fetch l_chr_csr into l_dummy_var;
761: close l_chr_csr;
762: if (l_dummy_var = '?') then
763: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CHR_ID');
764: x_return_status := OKC_API.G_RET_STS_ERROR;
765: end if;
766: exception
767: when OTHERS then
768: if l_chr_csr%ISOPEN then
767: when OTHERS then
768: if l_chr_csr%ISOPEN then
769: close l_chr_csr;
770: end if;
771: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
772: p_msg_name => g_unexpected_error,
773: p_token1 => g_sqlcode_token,
774: p_token1_value => sqlcode,
775: p_token2 => g_sqlerrm_token,
773: p_token1 => g_sqlcode_token,
774: p_token1_value => sqlcode,
775: p_token2 => g_sqlerrm_token,
776: p_token2_value => sqlerrm);
777: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
778: end validate_chr_id;
779:
780: /*+++++++++++++End of hand code +++++++++++++++++++*/
781: ----------------------------------------------
783: ----------------------------------------------
784: FUNCTION Validate_Attributes (
785: p_catv_rec IN catv_rec_type
786: ) RETURN VARCHAR2 IS
787: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
788: /*-------------Commented in favor of hand code------
789: BEGIN
790: IF p_catv_rec.id = OKC_API.G_MISS_NUM OR
791: p_catv_rec.id IS NULL
786: ) RETURN VARCHAR2 IS
787: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
788: /*-------------Commented in favor of hand code------
789: BEGIN
790: IF p_catv_rec.id = OKC_API.G_MISS_NUM OR
791: p_catv_rec.id IS NULL
792: THEN
793: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
794: l_return_status := OKC_API.G_RET_STS_ERROR;
789: BEGIN
790: IF p_catv_rec.id = OKC_API.G_MISS_NUM OR
791: p_catv_rec.id IS NULL
792: THEN
793: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
794: l_return_status := OKC_API.G_RET_STS_ERROR;
795: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
796: p_catv_rec.object_version_number IS NULL
797: THEN
790: IF p_catv_rec.id = OKC_API.G_MISS_NUM OR
791: p_catv_rec.id IS NULL
792: THEN
793: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
794: l_return_status := OKC_API.G_RET_STS_ERROR;
795: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
796: p_catv_rec.object_version_number IS NULL
797: THEN
798: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
791: p_catv_rec.id IS NULL
792: THEN
793: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
794: l_return_status := OKC_API.G_RET_STS_ERROR;
795: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
796: p_catv_rec.object_version_number IS NULL
797: THEN
798: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
799: l_return_status := OKC_API.G_RET_STS_ERROR;
794: l_return_status := OKC_API.G_RET_STS_ERROR;
795: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
796: p_catv_rec.object_version_number IS NULL
797: THEN
798: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
799: l_return_status := OKC_API.G_RET_STS_ERROR;
800: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
801: p_catv_rec.dnz_chr_id IS NULL
802: THEN
795: ELSIF p_catv_rec.object_version_number = OKC_API.G_MISS_NUM OR
796: p_catv_rec.object_version_number IS NULL
797: THEN
798: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
799: l_return_status := OKC_API.G_RET_STS_ERROR;
800: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
801: p_catv_rec.dnz_chr_id IS NULL
802: THEN
803: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
796: p_catv_rec.object_version_number IS NULL
797: THEN
798: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
799: l_return_status := OKC_API.G_RET_STS_ERROR;
800: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
801: p_catv_rec.dnz_chr_id IS NULL
802: THEN
803: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
804: l_return_status := OKC_API.G_RET_STS_ERROR;
799: l_return_status := OKC_API.G_RET_STS_ERROR;
800: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
801: p_catv_rec.dnz_chr_id IS NULL
802: THEN
803: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
804: l_return_status := OKC_API.G_RET_STS_ERROR;
805: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
806: p_catv_rec.cat_type IS NULL
807: THEN
800: ELSIF p_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM OR
801: p_catv_rec.dnz_chr_id IS NULL
802: THEN
803: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
804: l_return_status := OKC_API.G_RET_STS_ERROR;
805: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
806: p_catv_rec.cat_type IS NULL
807: THEN
808: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cat_type');
801: p_catv_rec.dnz_chr_id IS NULL
802: THEN
803: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'dnz_chr_id');
804: l_return_status := OKC_API.G_RET_STS_ERROR;
805: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
806: p_catv_rec.cat_type IS NULL
807: THEN
808: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cat_type');
809: l_return_status := OKC_API.G_RET_STS_ERROR;
804: l_return_status := OKC_API.G_RET_STS_ERROR;
805: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
806: p_catv_rec.cat_type IS NULL
807: THEN
808: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cat_type');
809: l_return_status := OKC_API.G_RET_STS_ERROR;
810: END IF;
811: RETURN(l_return_status);
812: END Validate_Attributes;
805: ELSIF p_catv_rec.cat_type = OKC_API.G_MISS_CHAR OR
806: p_catv_rec.cat_type IS NULL
807: THEN
808: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'cat_type');
809: l_return_status := OKC_API.G_RET_STS_ERROR;
810: END IF;
811: RETURN(l_return_status);
812: END Validate_Attributes;
813: ---------------End of the commented code-----------*/
811: RETURN(l_return_status);
812: END Validate_Attributes;
813: ---------------End of the commented code-----------*/
814: /*+++++++++++++Start of hand code +++++++++++++++++*/
815: x_return_status varchar2(1) := OKC_API.G_RET_STS_SUCCESS;
816: BEGIN
817: -- call each column-level validation
818: validate_sbt_code(x_return_status => l_return_status,
819: p_catv_rec => p_catv_rec);
816: BEGIN
817: -- call each column-level validation
818: validate_sbt_code(x_return_status => l_return_status,
819: p_catv_rec => p_catv_rec);
820: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
821: return OKC_API.G_RET_STS_UNEXP_ERROR;
822: end if;
823: if (l_return_status = OKC_API.G_RET_STS_ERROR
824: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
817: -- call each column-level validation
818: validate_sbt_code(x_return_status => l_return_status,
819: p_catv_rec => p_catv_rec);
820: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
821: return OKC_API.G_RET_STS_UNEXP_ERROR;
822: end if;
823: if (l_return_status = OKC_API.G_RET_STS_ERROR
824: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
825: x_return_status := OKC_API.G_RET_STS_ERROR;
819: p_catv_rec => p_catv_rec);
820: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
821: return OKC_API.G_RET_STS_UNEXP_ERROR;
822: end if;
823: if (l_return_status = OKC_API.G_RET_STS_ERROR
824: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
825: x_return_status := OKC_API.G_RET_STS_ERROR;
826: end if;
827: validate_cat_type(x_return_status => l_return_status,
820: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
821: return OKC_API.G_RET_STS_UNEXP_ERROR;
822: end if;
823: if (l_return_status = OKC_API.G_RET_STS_ERROR
824: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
825: x_return_status := OKC_API.G_RET_STS_ERROR;
826: end if;
827: validate_cat_type(x_return_status => l_return_status,
828: p_catv_rec => p_catv_rec);
821: return OKC_API.G_RET_STS_UNEXP_ERROR;
822: end if;
823: if (l_return_status = OKC_API.G_RET_STS_ERROR
824: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
825: x_return_status := OKC_API.G_RET_STS_ERROR;
826: end if;
827: validate_cat_type(x_return_status => l_return_status,
828: p_catv_rec => p_catv_rec);
829: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
825: x_return_status := OKC_API.G_RET_STS_ERROR;
826: end if;
827: validate_cat_type(x_return_status => l_return_status,
828: p_catv_rec => p_catv_rec);
829: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
830: return OKC_API.G_RET_STS_UNEXP_ERROR;
831: end if;
832: if (l_return_status = OKC_API.G_RET_STS_ERROR
833: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
826: end if;
827: validate_cat_type(x_return_status => l_return_status,
828: p_catv_rec => p_catv_rec);
829: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
830: return OKC_API.G_RET_STS_UNEXP_ERROR;
831: end if;
832: if (l_return_status = OKC_API.G_RET_STS_ERROR
833: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
834: x_return_status := OKC_API.G_RET_STS_ERROR;
828: p_catv_rec => p_catv_rec);
829: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
830: return OKC_API.G_RET_STS_UNEXP_ERROR;
831: end if;
832: if (l_return_status = OKC_API.G_RET_STS_ERROR
833: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
834: x_return_status := OKC_API.G_RET_STS_ERROR;
835: end if;
836: validate_fulltext_yn(x_return_status => l_return_status,
829: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
830: return OKC_API.G_RET_STS_UNEXP_ERROR;
831: end if;
832: if (l_return_status = OKC_API.G_RET_STS_ERROR
833: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
834: x_return_status := OKC_API.G_RET_STS_ERROR;
835: end if;
836: validate_fulltext_yn(x_return_status => l_return_status,
837: p_catv_rec => p_catv_rec);
830: return OKC_API.G_RET_STS_UNEXP_ERROR;
831: end if;
832: if (l_return_status = OKC_API.G_RET_STS_ERROR
833: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
834: x_return_status := OKC_API.G_RET_STS_ERROR;
835: end if;
836: validate_fulltext_yn(x_return_status => l_return_status,
837: p_catv_rec => p_catv_rec);
838: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
834: x_return_status := OKC_API.G_RET_STS_ERROR;
835: end if;
836: validate_fulltext_yn(x_return_status => l_return_status,
837: p_catv_rec => p_catv_rec);
838: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
839: return OKC_API.G_RET_STS_UNEXP_ERROR;
840: end if;
841: if (l_return_status = OKC_API.G_RET_STS_ERROR
842: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
835: end if;
836: validate_fulltext_yn(x_return_status => l_return_status,
837: p_catv_rec => p_catv_rec);
838: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
839: return OKC_API.G_RET_STS_UNEXP_ERROR;
840: end if;
841: if (l_return_status = OKC_API.G_RET_STS_ERROR
842: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
843: x_return_status := OKC_API.G_RET_STS_ERROR;
837: p_catv_rec => p_catv_rec);
838: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
839: return OKC_API.G_RET_STS_UNEXP_ERROR;
840: end if;
841: if (l_return_status = OKC_API.G_RET_STS_ERROR
842: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
843: x_return_status := OKC_API.G_RET_STS_ERROR;
844: end if;
845: validate_dnz_chr_id(x_return_status => l_return_status,
838: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
839: return OKC_API.G_RET_STS_UNEXP_ERROR;
840: end if;
841: if (l_return_status = OKC_API.G_RET_STS_ERROR
842: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
843: x_return_status := OKC_API.G_RET_STS_ERROR;
844: end if;
845: validate_dnz_chr_id(x_return_status => l_return_status,
846: p_catv_rec => p_catv_rec);
839: return OKC_API.G_RET_STS_UNEXP_ERROR;
840: end if;
841: if (l_return_status = OKC_API.G_RET_STS_ERROR
842: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
843: x_return_status := OKC_API.G_RET_STS_ERROR;
844: end if;
845: validate_dnz_chr_id(x_return_status => l_return_status,
846: p_catv_rec => p_catv_rec);
847: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
843: x_return_status := OKC_API.G_RET_STS_ERROR;
844: end if;
845: validate_dnz_chr_id(x_return_status => l_return_status,
846: p_catv_rec => p_catv_rec);
847: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
848: return OKC_API.G_RET_STS_UNEXP_ERROR;
849: end if;
850: if (l_return_status = OKC_API.G_RET_STS_ERROR
851: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
844: end if;
845: validate_dnz_chr_id(x_return_status => l_return_status,
846: p_catv_rec => p_catv_rec);
847: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
848: return OKC_API.G_RET_STS_UNEXP_ERROR;
849: end if;
850: if (l_return_status = OKC_API.G_RET_STS_ERROR
851: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
852: x_return_status := OKC_API.G_RET_STS_ERROR;
846: p_catv_rec => p_catv_rec);
847: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
848: return OKC_API.G_RET_STS_UNEXP_ERROR;
849: end if;
850: if (l_return_status = OKC_API.G_RET_STS_ERROR
851: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
852: x_return_status := OKC_API.G_RET_STS_ERROR;
853: end if;
854: validate_cle_id(x_return_status => l_return_status,
847: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
848: return OKC_API.G_RET_STS_UNEXP_ERROR;
849: end if;
850: if (l_return_status = OKC_API.G_RET_STS_ERROR
851: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
852: x_return_status := OKC_API.G_RET_STS_ERROR;
853: end if;
854: validate_cle_id(x_return_status => l_return_status,
855: p_catv_rec => p_catv_rec);
848: return OKC_API.G_RET_STS_UNEXP_ERROR;
849: end if;
850: if (l_return_status = OKC_API.G_RET_STS_ERROR
851: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
852: x_return_status := OKC_API.G_RET_STS_ERROR;
853: end if;
854: validate_cle_id(x_return_status => l_return_status,
855: p_catv_rec => p_catv_rec);
856: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
852: x_return_status := OKC_API.G_RET_STS_ERROR;
853: end if;
854: validate_cle_id(x_return_status => l_return_status,
855: p_catv_rec => p_catv_rec);
856: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
857: return OKC_API.G_RET_STS_UNEXP_ERROR;
858: end if;
859: if (l_return_status = OKC_API.G_RET_STS_ERROR
860: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
853: end if;
854: validate_cle_id(x_return_status => l_return_status,
855: p_catv_rec => p_catv_rec);
856: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
857: return OKC_API.G_RET_STS_UNEXP_ERROR;
858: end if;
859: if (l_return_status = OKC_API.G_RET_STS_ERROR
860: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
861: x_return_status := OKC_API.G_RET_STS_ERROR;
855: p_catv_rec => p_catv_rec);
856: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
857: return OKC_API.G_RET_STS_UNEXP_ERROR;
858: end if;
859: if (l_return_status = OKC_API.G_RET_STS_ERROR
860: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
861: x_return_status := OKC_API.G_RET_STS_ERROR;
862: end if;
863: validate_chr_id(x_return_status => l_return_status,
856: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
857: return OKC_API.G_RET_STS_UNEXP_ERROR;
858: end if;
859: if (l_return_status = OKC_API.G_RET_STS_ERROR
860: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
861: x_return_status := OKC_API.G_RET_STS_ERROR;
862: end if;
863: validate_chr_id(x_return_status => l_return_status,
864: p_catv_rec => p_catv_rec);
857: return OKC_API.G_RET_STS_UNEXP_ERROR;
858: end if;
859: if (l_return_status = OKC_API.G_RET_STS_ERROR
860: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
861: x_return_status := OKC_API.G_RET_STS_ERROR;
862: end if;
863: validate_chr_id(x_return_status => l_return_status,
864: p_catv_rec => p_catv_rec);
865: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
861: x_return_status := OKC_API.G_RET_STS_ERROR;
862: end if;
863: validate_chr_id(x_return_status => l_return_status,
864: p_catv_rec => p_catv_rec);
865: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
866: return OKC_API.G_RET_STS_UNEXP_ERROR;
867: end if;
868: if (l_return_status = OKC_API.G_RET_STS_ERROR
869: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
862: end if;
863: validate_chr_id(x_return_status => l_return_status,
864: p_catv_rec => p_catv_rec);
865: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
866: return OKC_API.G_RET_STS_UNEXP_ERROR;
867: end if;
868: if (l_return_status = OKC_API.G_RET_STS_ERROR
869: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
870: x_return_status := OKC_API.G_RET_STS_ERROR;
864: p_catv_rec => p_catv_rec);
865: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
866: return OKC_API.G_RET_STS_UNEXP_ERROR;
867: end if;
868: if (l_return_status = OKC_API.G_RET_STS_ERROR
869: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
870: x_return_status := OKC_API.G_RET_STS_ERROR;
871: end if;
872: validate_cat_id(x_return_status => l_return_status,
865: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
866: return OKC_API.G_RET_STS_UNEXP_ERROR;
867: end if;
868: if (l_return_status = OKC_API.G_RET_STS_ERROR
869: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
870: x_return_status := OKC_API.G_RET_STS_ERROR;
871: end if;
872: validate_cat_id(x_return_status => l_return_status,
873: p_catv_rec => p_catv_rec);
866: return OKC_API.G_RET_STS_UNEXP_ERROR;
867: end if;
868: if (l_return_status = OKC_API.G_RET_STS_ERROR
869: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
870: x_return_status := OKC_API.G_RET_STS_ERROR;
871: end if;
872: validate_cat_id(x_return_status => l_return_status,
873: p_catv_rec => p_catv_rec);
874: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
870: x_return_status := OKC_API.G_RET_STS_ERROR;
871: end if;
872: validate_cat_id(x_return_status => l_return_status,
873: p_catv_rec => p_catv_rec);
874: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
875: return OKC_API.G_RET_STS_UNEXP_ERROR;
876: end if;
877: if (l_return_status = OKC_API.G_RET_STS_ERROR
878: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
871: end if;
872: validate_cat_id(x_return_status => l_return_status,
873: p_catv_rec => p_catv_rec);
874: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
875: return OKC_API.G_RET_STS_UNEXP_ERROR;
876: end if;
877: if (l_return_status = OKC_API.G_RET_STS_ERROR
878: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
879: x_return_status := OKC_API.G_RET_STS_ERROR;
873: p_catv_rec => p_catv_rec);
874: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
875: return OKC_API.G_RET_STS_UNEXP_ERROR;
876: end if;
877: if (l_return_status = OKC_API.G_RET_STS_ERROR
878: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
879: x_return_status := OKC_API.G_RET_STS_ERROR;
880: end if;
881: return x_return_status;
874: if (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
875: return OKC_API.G_RET_STS_UNEXP_ERROR;
876: end if;
877: if (l_return_status = OKC_API.G_RET_STS_ERROR
878: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
879: x_return_status := OKC_API.G_RET_STS_ERROR;
880: end if;
881: return x_return_status;
882: exception
875: return OKC_API.G_RET_STS_UNEXP_ERROR;
876: end if;
877: if (l_return_status = OKC_API.G_RET_STS_ERROR
878: and x_return_status = OKC_API.G_RET_STS_SUCCESS) then
879: x_return_status := OKC_API.G_RET_STS_ERROR;
880: end if;
881: return x_return_status;
882: exception
883: when OTHERS then
880: end if;
881: return x_return_status;
882: exception
883: when OTHERS then
884: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
885: p_msg_name => g_unexpected_error,
886: p_token1 => g_sqlcode_token,
887: p_token1_value => sqlcode,
888: p_token2 => g_sqlerrm_token,
886: p_token1 => g_sqlcode_token,
887: p_token1_value => sqlcode,
888: p_token2 => g_sqlerrm_token,
889: p_token2_value => sqlerrm);
890: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
891: return x_return_status;
892: END Validate_Attributes;
893: /*+++++++++++++End of hand code +++++++++++++++++++*/
894:
900: ------------------------------------------
901: FUNCTION Validate_Record (
902: p_catv_rec IN catv_rec_type
903: ) RETURN VARCHAR2 IS
904: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
905: /*-------------Commented in favor of hand code------
906: ------------------------------------
907: -- FUNCTION validate_foreign_keys --
908: ------------------------------------
1143: LAST_UPDATE_LOGIN
1144: FROM Fnd_Common_Lookups
1145: WHERE fnd_common_lookups.lookup_code = p_lookup_code;
1146: l_fnd_common_lookup_pk fnd_common_lookup_pk_csr%ROWTYPE;
1147: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1148: l_row_notfound BOOLEAN := TRUE;
1149: BEGIN
1150: IF (p_catv_rec.CHR_ID IS NOT NULL)
1151: THEN
1153: FETCH okc_chrv_pk_csr INTO l_okc_chrv_pk;
1154: l_row_notfound := okc_chrv_pk_csr%NOTFOUND;
1155: CLOSE okc_chrv_pk_csr;
1156: IF (l_row_notfound) THEN
1157: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CHR_ID');
1158: RAISE item_not_found_error;
1159: END IF;
1160: END IF;
1161: IF (p_catv_rec.CLE_ID IS NOT NULL)
1164: FETCH okc_clev_pk_csr INTO l_okc_clev_pk;
1165: l_row_notfound := okc_clev_pk_csr%NOTFOUND;
1166: CLOSE okc_clev_pk_csr;
1167: IF (l_row_notfound) THEN
1168: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID');
1169: RAISE item_not_found_error;
1170: END IF;
1171: END IF;
1172: IF (p_catv_rec.CAT_ID IS NOT NULL)
1175: FETCH okc_catv_pk_csr INTO l_okc_catv_pk;
1176: l_row_notfound := okc_catv_pk_csr%NOTFOUND;
1177: CLOSE okc_catv_pk_csr;
1178: IF (l_row_notfound) THEN
1179: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_ID');
1180: RAISE item_not_found_error;
1181: END IF;
1182: END IF;
1183: IF ((p_catv_rec.SAV_SAE_ID IS NOT NULL) AND
1188: FETCH okc_savv_pk_csr INTO l_okc_savv_pk;
1189: l_row_notfound := okc_savv_pk_csr%NOTFOUND;
1190: CLOSE okc_savv_pk_csr;
1191: IF (l_row_notfound) THEN
1192: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1193: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1194: RAISE item_not_found_error;
1195: END IF;
1196: END IF;
1189: l_row_notfound := okc_savv_pk_csr%NOTFOUND;
1190: CLOSE okc_savv_pk_csr;
1191: IF (l_row_notfound) THEN
1192: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1193: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1194: RAISE item_not_found_error;
1195: END IF;
1196: END IF;
1197: IF (p_catv_rec.SBT_CODE IS NOT NULL)
1200: FETCH fnd_common_lookup_pk_csr INTO l_fnd_common_lookup_pk;
1201: l_row_notfound := fnd_common_lookup_pk_csr%NOTFOUND;
1202: CLOSE fnd_common_lookup_pk_csr;
1203: IF (l_row_notfound) THEN
1204: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
1205: RAISE item_not_found_error;
1206: END IF;
1207: END IF;
1208: RETURN (l_return_status);
1207: END IF;
1208: RETURN (l_return_status);
1209: EXCEPTION
1210: WHEN item_not_found_error THEN
1211: l_return_status := OKC_API.G_RET_STS_ERROR;
1212: RETURN (l_return_status);
1213: END validate_foreign_keys;
1214: BEGIN
1215: l_return_status := validate_foreign_keys (p_catv_rec);
1224: BEGIN
1225: if (p_catv_rec.CAT_TYPE) = 'STA' then
1226: -- fulltext_yn should have a value
1227: if (p_catv_rec.fulltext_yn IS NULL) THEN
1228: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'FULLTEXT_YN');
1229: l_return_status := OKC_API.G_RET_STS_ERROR;
1230: end if;
1231: -- sav_sae_id should have a value
1232: if (p_catv_rec.sav_sae_id IS NULL) THEN
1225: if (p_catv_rec.CAT_TYPE) = 'STA' then
1226: -- fulltext_yn should have a value
1227: if (p_catv_rec.fulltext_yn IS NULL) THEN
1228: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'FULLTEXT_YN');
1229: l_return_status := OKC_API.G_RET_STS_ERROR;
1230: end if;
1231: -- sav_sae_id should have a value
1232: if (p_catv_rec.sav_sae_id IS NULL) THEN
1233: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SAV_SAE_ID');
1229: l_return_status := OKC_API.G_RET_STS_ERROR;
1230: end if;
1231: -- sav_sae_id should have a value
1232: if (p_catv_rec.sav_sae_id IS NULL) THEN
1233: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SAV_SAE_ID');
1234: l_return_status := OKC_API.G_RET_STS_ERROR;
1235: end if;
1236: -- arc validation
1237: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1230: end if;
1231: -- sav_sae_id should have a value
1232: if (p_catv_rec.sav_sae_id IS NULL) THEN
1233: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SAV_SAE_ID');
1234: l_return_status := OKC_API.G_RET_STS_ERROR;
1235: end if;
1236: -- arc validation
1237: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1238: then
1233: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SAV_SAE_ID');
1234: l_return_status := OKC_API.G_RET_STS_ERROR;
1235: end if;
1236: -- arc validation
1237: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1238: then
1239: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
1240: l_return_status := OKC_API.G_RET_STS_ERROR;
1241: end if;
1235: end if;
1236: -- arc validation
1237: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1238: then
1239: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
1240: l_return_status := OKC_API.G_RET_STS_ERROR;
1241: end if;
1242: -- composite FK validation
1243: if not(p_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM
1236: -- arc validation
1237: if (p_catv_rec.sbt_code IS NOT NULL and p_catv_rec.sbt_code <> OKC_API.G_MISS_CHAR)
1238: then
1239: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
1240: l_return_status := OKC_API.G_RET_STS_ERROR;
1241: end if;
1242: -- composite FK validation
1243: if not(p_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM
1244: and p_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) then
1239: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SBT_CODE');
1240: l_return_status := OKC_API.G_RET_STS_ERROR;
1241: end if;
1242: -- composite FK validation
1243: if not(p_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM
1244: and p_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) then
1245: OPEN std_art_csr(p_catv_rec.sav_sae_id,p_catv_rec.sav_sav_release);
1246: FETCH std_art_csr INTO l_dummy_var;
1247: CLOSE std_art_csr;
1240: l_return_status := OKC_API.G_RET_STS_ERROR;
1241: end if;
1242: -- composite FK validation
1243: if not(p_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM
1244: and p_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR) then
1245: OPEN std_art_csr(p_catv_rec.sav_sae_id,p_catv_rec.sav_sav_release);
1246: FETCH std_art_csr INTO l_dummy_var;
1247: CLOSE std_art_csr;
1248: if (l_dummy_var='?') then
1245: OPEN std_art_csr(p_catv_rec.sav_sae_id,p_catv_rec.sav_sav_release);
1246: FETCH std_art_csr INTO l_dummy_var;
1247: CLOSE std_art_csr;
1248: if (l_dummy_var='?') then
1249: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1250: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1251: l_return_status := OKC_API.G_RET_STS_ERROR;
1252: end if;
1253: end if;
1246: FETCH std_art_csr INTO l_dummy_var;
1247: CLOSE std_art_csr;
1248: if (l_dummy_var='?') then
1249: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1250: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1251: l_return_status := OKC_API.G_RET_STS_ERROR;
1252: end if;
1253: end if;
1254: elsif (p_catv_rec.CAT_TYPE = 'NSD') then
1247: CLOSE std_art_csr;
1248: if (l_dummy_var='?') then
1249: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1250: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1251: l_return_status := OKC_API.G_RET_STS_ERROR;
1252: end if;
1253: end if;
1254: elsif (p_catv_rec.CAT_TYPE = 'NSD') then
1255: -- name should have a value
1253: end if;
1254: elsif (p_catv_rec.CAT_TYPE = 'NSD') then
1255: -- name should have a value
1256: if (p_catv_rec.name IS NULL) THEN
1257: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'NAME');
1258: l_return_status := OKC_API.G_RET_STS_ERROR;
1259: end if;
1260: -- sbt_code should have a value
1261: if (p_catv_rec.sbt_code IS NULL) THEN
1254: elsif (p_catv_rec.CAT_TYPE = 'NSD') then
1255: -- name should have a value
1256: if (p_catv_rec.name IS NULL) THEN
1257: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'NAME');
1258: l_return_status := OKC_API.G_RET_STS_ERROR;
1259: end if;
1260: -- sbt_code should have a value
1261: if (p_catv_rec.sbt_code IS NULL) THEN
1262: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SBT_CODE');
1258: l_return_status := OKC_API.G_RET_STS_ERROR;
1259: end if;
1260: -- sbt_code should have a value
1261: if (p_catv_rec.sbt_code IS NULL) THEN
1262: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SBT_CODE');
1263: l_return_status := OKC_API.G_RET_STS_ERROR;
1264: end if;
1265: -- arc validation
1266: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1259: end if;
1260: -- sbt_code should have a value
1261: if (p_catv_rec.sbt_code IS NULL) THEN
1262: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SBT_CODE');
1263: l_return_status := OKC_API.G_RET_STS_ERROR;
1264: end if;
1265: -- arc validation
1266: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1267: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1262: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'SBT_CODE');
1263: l_return_status := OKC_API.G_RET_STS_ERROR;
1264: end if;
1265: -- arc validation
1266: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1267: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1268: l_return_status := OKC_API.G_RET_STS_ERROR;
1269: end if;
1270: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1263: l_return_status := OKC_API.G_RET_STS_ERROR;
1264: end if;
1265: -- arc validation
1266: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1267: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1268: l_return_status := OKC_API.G_RET_STS_ERROR;
1269: end if;
1270: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1271: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1264: end if;
1265: -- arc validation
1266: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1267: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1268: l_return_status := OKC_API.G_RET_STS_ERROR;
1269: end if;
1270: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1271: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1272: l_return_status := OKC_API.G_RET_STS_ERROR;
1266: if (p_catv_rec.sav_sae_id IS NOT NULL and p_catv_rec.sav_sae_id <> OKC_API.G_MISS_NUM) THEN
1267: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1268: l_return_status := OKC_API.G_RET_STS_ERROR;
1269: end if;
1270: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1271: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1272: l_return_status := OKC_API.G_RET_STS_ERROR;
1273: end if;
1274: end if;
1267: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1268: l_return_status := OKC_API.G_RET_STS_ERROR;
1269: end if;
1270: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1271: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1272: l_return_status := OKC_API.G_RET_STS_ERROR;
1273: end if;
1274: end if;
1275: if (p_catv_rec.cle_id IS NULL and p_catv_rec.chr_id IS NULL)
1268: l_return_status := OKC_API.G_RET_STS_ERROR;
1269: end if;
1270: if (p_catv_rec.sav_sav_release IS NOT NULL and p_catv_rec.sav_sav_release <> OKC_API.G_MISS_CHAR) THEN
1271: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAV_RELEASE');
1272: l_return_status := OKC_API.G_RET_STS_ERROR;
1273: end if;
1274: end if;
1275: if (p_catv_rec.cle_id IS NULL and p_catv_rec.chr_id IS NULL)
1276: then
1273: end if;
1274: end if;
1275: if (p_catv_rec.cle_id IS NULL and p_catv_rec.chr_id IS NULL)
1276: then
1277: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'CLE_ID V CHR_ID');
1278: l_return_status := OKC_API.G_RET_STS_ERROR;
1279: end if;
1280: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1281: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1274: end if;
1275: if (p_catv_rec.cle_id IS NULL and p_catv_rec.chr_id IS NULL)
1276: then
1277: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'CLE_ID V CHR_ID');
1278: l_return_status := OKC_API.G_RET_STS_ERROR;
1279: end if;
1280: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1281: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1282: then
1276: then
1277: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'CLE_ID V CHR_ID');
1278: l_return_status := OKC_API.G_RET_STS_ERROR;
1279: end if;
1280: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1281: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1282: then
1283: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID V CHR_ID');
1284: l_return_status := OKC_API.G_RET_STS_ERROR;
1277: OKC_API.SET_MESSAGE(g_app_name,g_required_value,g_col_name_token,'CLE_ID V CHR_ID');
1278: l_return_status := OKC_API.G_RET_STS_ERROR;
1279: end if;
1280: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1281: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1282: then
1283: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID V CHR_ID');
1284: l_return_status := OKC_API.G_RET_STS_ERROR;
1285: end if;
1279: end if;
1280: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1281: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1282: then
1283: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID V CHR_ID');
1284: l_return_status := OKC_API.G_RET_STS_ERROR;
1285: end if;
1286: RETURN (l_return_status);
1287: exception
1280: if ((p_catv_rec.cle_id IS NOT NULL and p_catv_rec.cle_id <> OKC_API.G_MISS_NUM) and
1281: (p_catv_rec.chr_id IS NOT NULL and p_catv_rec.chr_id <> OKC_API.G_MISS_NUM))
1282: then
1283: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CLE_ID V CHR_ID');
1284: l_return_status := OKC_API.G_RET_STS_ERROR;
1285: end if;
1286: RETURN (l_return_status);
1287: exception
1288: when OTHERS then
1288: when OTHERS then
1289: if std_art_csr%ISOPEN then
1290: close std_art_csr;
1291: end if;
1292: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1293: p_msg_name => g_unexpected_error,
1294: p_token1 => g_sqlcode_token,
1295: p_token1_value => sqlcode,
1296: p_token2 => g_sqlerrm_token,
1294: p_token1 => g_sqlcode_token,
1295: p_token1_value => sqlcode,
1296: p_token2 => g_sqlerrm_token,
1297: p_token2_value => sqlerrm);
1298: RETURN(OKC_API.G_RET_STS_UNEXP_ERROR);
1299: END Validate_Record;
1300: /*+++++++++++++End of hand code +++++++++++++++++++*/
1301:
1302: ---------------------------------------------------------------------------
1422: -- validate_row for:OKC_K_ARTICLES_V --
1423: ---------------------------------------
1424: PROCEDURE validate_row(
1425: p_api_version IN NUMBER,
1426: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1427: x_return_status OUT NOCOPY VARCHAR2,
1428: x_msg_count OUT NOCOPY NUMBER,
1429: x_msg_data OUT NOCOPY VARCHAR2,
1430: p_catv_rec IN catv_rec_type) IS
1430: p_catv_rec IN catv_rec_type) IS
1431:
1432: l_api_version CONSTANT NUMBER := 1;
1433: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1434: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1435: l_catv_rec catv_rec_type := p_catv_rec;
1436: l_cat_rec cat_rec_type;
1437: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
1438: BEGIN
1435: l_catv_rec catv_rec_type := p_catv_rec;
1436: l_cat_rec cat_rec_type;
1437: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
1438: BEGIN
1439: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1440: G_PKG_NAME,
1441: p_init_msg_list,
1442: l_api_version,
1443: p_api_version,
1442: l_api_version,
1443: p_api_version,
1444: '_PVT',
1445: x_return_status);
1446: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1449: RAISE OKC_API.G_EXCEPTION_ERROR;
1450: END IF;
1443: p_api_version,
1444: '_PVT',
1445: x_return_status);
1446: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1449: RAISE OKC_API.G_EXCEPTION_ERROR;
1450: END IF;
1451: --- Validate all non-missing attributes (Item Level Validation)
1444: '_PVT',
1445: x_return_status);
1446: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1449: RAISE OKC_API.G_EXCEPTION_ERROR;
1450: END IF;
1451: --- Validate all non-missing attributes (Item Level Validation)
1452: l_return_status := Validate_Attributes(l_catv_rec);
1445: x_return_status);
1446: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1447: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1448: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1449: RAISE OKC_API.G_EXCEPTION_ERROR;
1450: END IF;
1451: --- Validate all non-missing attributes (Item Level Validation)
1452: l_return_status := Validate_Attributes(l_catv_rec);
1453: --- If any errors happen abort API
1450: END IF;
1451: --- Validate all non-missing attributes (Item Level Validation)
1452: l_return_status := Validate_Attributes(l_catv_rec);
1453: --- If any errors happen abort API
1454: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1455: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: RAISE OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1451: --- Validate all non-missing attributes (Item Level Validation)
1452: l_return_status := Validate_Attributes(l_catv_rec);
1453: --- If any errors happen abort API
1454: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1455: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: RAISE OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: l_return_status := Validate_Record(l_catv_rec);
1452: l_return_status := Validate_Attributes(l_catv_rec);
1453: --- If any errors happen abort API
1454: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1455: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: RAISE OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: l_return_status := Validate_Record(l_catv_rec);
1460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1453: --- If any errors happen abort API
1454: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1455: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: RAISE OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: l_return_status := Validate_Record(l_catv_rec);
1460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1457: RAISE OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: l_return_status := Validate_Record(l_catv_rec);
1460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1462: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1463: RAISE OKC_API.G_EXCEPTION_ERROR;
1464: END IF;
1457: RAISE OKC_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: l_return_status := Validate_Record(l_catv_rec);
1460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1462: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1463: RAISE OKC_API.G_EXCEPTION_ERROR;
1464: END IF;
1465: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1458: END IF;
1459: l_return_status := Validate_Record(l_catv_rec);
1460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1462: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1463: RAISE OKC_API.G_EXCEPTION_ERROR;
1464: END IF;
1465: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1466: EXCEPTION
1459: l_return_status := Validate_Record(l_catv_rec);
1460: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1462: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1463: RAISE OKC_API.G_EXCEPTION_ERROR;
1464: END IF;
1465: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1466: EXCEPTION
1467: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1461: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1462: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1463: RAISE OKC_API.G_EXCEPTION_ERROR;
1464: END IF;
1465: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1466: EXCEPTION
1467: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1468: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1469: (
1463: RAISE OKC_API.G_EXCEPTION_ERROR;
1464: END IF;
1465: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1466: EXCEPTION
1467: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1468: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1469: (
1470: l_api_name,
1471: G_PKG_NAME,
1464: END IF;
1465: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1466: EXCEPTION
1467: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1468: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1469: (
1470: l_api_name,
1471: G_PKG_NAME,
1472: 'OKC_API.G_RET_STS_ERROR',
1468: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1469: (
1470: l_api_name,
1471: G_PKG_NAME,
1472: 'OKC_API.G_RET_STS_ERROR',
1473: x_msg_count,
1474: x_msg_data,
1475: '_PVT'
1476: );
1473: x_msg_count,
1474: x_msg_data,
1475: '_PVT'
1476: );
1477: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1474: x_msg_data,
1475: '_PVT'
1476: );
1477: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1482: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1478: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1482: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1483: x_msg_count,
1484: x_msg_data,
1485: '_PVT'
1486: );
1484: x_msg_data,
1485: '_PVT'
1486: );
1487: WHEN OTHERS THEN
1488: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1492: 'OTHERS',
1499: -- PL/SQL TBL validate_row for:CATV_TBL --
1500: ------------------------------------------
1501: PROCEDURE validate_row(
1502: p_api_version IN NUMBER,
1503: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1504: x_return_status OUT NOCOPY VARCHAR2,
1505: x_msg_count OUT NOCOPY NUMBER,
1506: x_msg_data OUT NOCOPY VARCHAR2,
1507: p_catv_tbl IN catv_tbl_type) IS
1507: p_catv_tbl IN catv_tbl_type) IS
1508:
1509: l_api_version CONSTANT NUMBER := 1;
1510: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1511: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1512: i NUMBER := 0;
1513: BEGIN
1514: OKC_API.init_msg_list(p_init_msg_list);
1515: -- Make sure PL/SQL table has records in it before passing
1510: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1511: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1512: i NUMBER := 0;
1513: BEGIN
1514: OKC_API.init_msg_list(p_init_msg_list);
1515: -- Make sure PL/SQL table has records in it before passing
1516: IF (p_catv_tbl.COUNT > 0) THEN
1517: i := p_catv_tbl.FIRST;
1518: LOOP
1517: i := p_catv_tbl.FIRST;
1518: LOOP
1519: validate_row (
1520: p_api_version => p_api_version,
1521: p_init_msg_list => OKC_API.G_FALSE,
1522: x_return_status => x_return_status,
1523: x_msg_count => x_msg_count,
1524: x_msg_data => x_msg_data,
1525: p_catv_rec => p_catv_tbl(i));
1527: i := p_catv_tbl.NEXT(i);
1528: END LOOP;
1529: END IF;
1530: EXCEPTION
1531: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1532: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1533: (
1534: l_api_name,
1535: G_PKG_NAME,
1528: END LOOP;
1529: END IF;
1530: EXCEPTION
1531: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1532: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1533: (
1534: l_api_name,
1535: G_PKG_NAME,
1536: 'OKC_API.G_RET_STS_ERROR',
1532: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1533: (
1534: l_api_name,
1535: G_PKG_NAME,
1536: 'OKC_API.G_RET_STS_ERROR',
1537: x_msg_count,
1538: x_msg_data,
1539: '_PVT'
1540: );
1537: x_msg_count,
1538: x_msg_data,
1539: '_PVT'
1540: );
1541: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1542: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1543: (
1544: l_api_name,
1545: G_PKG_NAME,
1538: x_msg_data,
1539: '_PVT'
1540: );
1541: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1542: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1543: (
1544: l_api_name,
1545: G_PKG_NAME,
1546: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1542: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1543: (
1544: l_api_name,
1545: G_PKG_NAME,
1546: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1547: x_msg_count,
1548: x_msg_data,
1549: '_PVT'
1550: );
1548: x_msg_data,
1549: '_PVT'
1550: );
1551: WHEN OTHERS THEN
1552: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1553: (
1554: l_api_name,
1555: G_PKG_NAME,
1556: 'OTHERS',
1566: -------------------------------------
1567: -- insert_row for:OKC_K_ARTICLES_B --
1568: -------------------------------------
1569: PROCEDURE insert_row(
1570: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1571: x_return_status OUT NOCOPY VARCHAR2,
1572: x_msg_count OUT NOCOPY NUMBER,
1573: x_msg_data OUT NOCOPY VARCHAR2,
1574: p_cat_rec IN cat_rec_type,
1575: x_cat_rec OUT NOCOPY cat_rec_type) IS
1576:
1577: l_api_version CONSTANT NUMBER := 1;
1578: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1579: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1580: l_cat_rec cat_rec_type := p_cat_rec;
1581: l_def_cat_rec cat_rec_type;
1582: -----------------------------------------
1583: -- Set_Attributes for:OKC_K_ARTICLES_B --
1585: FUNCTION Set_Attributes (
1586: p_cat_rec IN cat_rec_type,
1587: x_cat_rec OUT NOCOPY cat_rec_type
1588: ) RETURN VARCHAR2 IS
1589: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1590: BEGIN
1591: x_cat_rec := p_cat_rec;
1592: RETURN(l_return_status);
1593: END Set_Attributes;
1591: x_cat_rec := p_cat_rec;
1592: RETURN(l_return_status);
1593: END Set_Attributes;
1594: BEGIN
1595: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1596: p_init_msg_list,
1597: '_PVT',
1598: x_return_status);
1599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1595: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1596: p_init_msg_list,
1597: '_PVT',
1598: x_return_status);
1599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1596: p_init_msg_list,
1597: '_PVT',
1598: x_return_status);
1599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1604: --- Setting item attributes
1597: '_PVT',
1598: x_return_status);
1599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1604: --- Setting item attributes
1605: l_return_status := Set_Attributes(
1598: x_return_status);
1599: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1600: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1601: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_ERROR;
1603: END IF;
1604: --- Setting item attributes
1605: l_return_status := Set_Attributes(
1606: p_cat_rec, -- IN
1605: l_return_status := Set_Attributes(
1606: p_cat_rec, -- IN
1607: l_cat_rec); -- OUT
1608: --- If any errors happen abort API
1609: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1611: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1612: RAISE OKC_API.G_EXCEPTION_ERROR;
1613: END IF;
1606: p_cat_rec, -- IN
1607: l_cat_rec); -- OUT
1608: --- If any errors happen abort API
1609: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1611: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1612: RAISE OKC_API.G_EXCEPTION_ERROR;
1613: END IF;
1614: INSERT INTO OKC_K_ARTICLES_B(
1607: l_cat_rec); -- OUT
1608: --- If any errors happen abort API
1609: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1611: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1612: RAISE OKC_API.G_EXCEPTION_ERROR;
1613: END IF;
1614: INSERT INTO OKC_K_ARTICLES_B(
1615: id,
1608: --- If any errors happen abort API
1609: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1610: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1611: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1612: RAISE OKC_API.G_EXCEPTION_ERROR;
1613: END IF;
1614: INSERT INTO OKC_K_ARTICLES_B(
1615: id,
1616: sav_sae_id,
1678: l_cat_rec.attribute15,
1679: l_cat_rec.security_group_id);
1680: -- Set OUT values
1681: x_cat_rec := l_cat_rec;
1682: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1683: EXCEPTION
1684: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1686: (
1680: -- Set OUT values
1681: x_cat_rec := l_cat_rec;
1682: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1683: EXCEPTION
1684: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1686: (
1687: l_api_name,
1688: G_PKG_NAME,
1681: x_cat_rec := l_cat_rec;
1682: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1683: EXCEPTION
1684: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1686: (
1687: l_api_name,
1688: G_PKG_NAME,
1689: 'OKC_API.G_RET_STS_ERROR',
1685: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1686: (
1687: l_api_name,
1688: G_PKG_NAME,
1689: 'OKC_API.G_RET_STS_ERROR',
1690: x_msg_count,
1691: x_msg_data,
1692: '_PVT'
1693: );
1690: x_msg_count,
1691: x_msg_data,
1692: '_PVT'
1693: );
1694: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1691: x_msg_data,
1692: '_PVT'
1693: );
1694: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1695: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1700: x_msg_count,
1701: x_msg_data,
1702: '_PVT'
1703: );
1701: x_msg_data,
1702: '_PVT'
1703: );
1704: WHEN OTHERS THEN
1705: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'OTHERS',
1715: --------------------------------------
1716: -- insert_row for:OKC_K_ARTICLES_TL --
1717: --------------------------------------
1718: PROCEDURE insert_row(
1719: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1720: x_return_status OUT NOCOPY VARCHAR2,
1721: x_msg_count OUT NOCOPY NUMBER,
1722: x_msg_data OUT NOCOPY VARCHAR2,
1723: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type,
1724: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type) IS
1725:
1726: l_api_version CONSTANT NUMBER := 1;
1727: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1728: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1729: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type := p_okc_k_articles_tl_rec;
1730: l_def_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
1731: CURSOR get_languages IS
1732: SELECT *
1738: FUNCTION Set_Attributes (
1739: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type,
1740: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type
1741: ) RETURN VARCHAR2 IS
1742: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1743: BEGIN
1744: x_okc_k_articles_tl_rec := p_okc_k_articles_tl_rec;
1745: x_okc_k_articles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
1746: x_okc_k_articles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1746: x_okc_k_articles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
1747: RETURN(l_return_status);
1748: END Set_Attributes;
1749: BEGIN
1750: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1751: p_init_msg_list,
1752: '_PVT',
1753: x_return_status);
1754: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1750: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1751: p_init_msg_list,
1752: '_PVT',
1753: x_return_status);
1754: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1751: p_init_msg_list,
1752: '_PVT',
1753: x_return_status);
1754: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759: --- Setting item attributes
1752: '_PVT',
1753: x_return_status);
1754: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759: --- Setting item attributes
1760: l_return_status := Set_Attributes(
1753: x_return_status);
1754: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1755: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1756: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759: --- Setting item attributes
1760: l_return_status := Set_Attributes(
1761: p_okc_k_articles_tl_rec, -- IN
1760: l_return_status := Set_Attributes(
1761: p_okc_k_articles_tl_rec, -- IN
1762: l_okc_k_articles_tl_rec); -- OUT
1763: --- If any errors happen abort API
1764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1761: p_okc_k_articles_tl_rec, -- IN
1762: l_okc_k_articles_tl_rec); -- OUT
1763: --- If any errors happen abort API
1764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: FOR l_lang_rec IN get_languages LOOP
1762: l_okc_k_articles_tl_rec); -- OUT
1763: --- If any errors happen abort API
1764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: FOR l_lang_rec IN get_languages LOOP
1770: l_okc_k_articles_tl_rec.language := l_lang_rec.language_code;
1763: --- If any errors happen abort API
1764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: FOR l_lang_rec IN get_languages LOOP
1770: l_okc_k_articles_tl_rec.language := l_lang_rec.language_code;
1771: INSERT INTO OKC_K_ARTICLES_TL(
1804: l_okc_k_articles_tl_rec.sav_sav_release);
1805: END LOOP;
1806: -- Set OUT values
1807: x_okc_k_articles_tl_rec := l_okc_k_articles_tl_rec;
1808: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1809: EXCEPTION
1810: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1811: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1812: (
1806: -- Set OUT values
1807: x_okc_k_articles_tl_rec := l_okc_k_articles_tl_rec;
1808: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1809: EXCEPTION
1810: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1811: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1812: (
1813: l_api_name,
1814: G_PKG_NAME,
1807: x_okc_k_articles_tl_rec := l_okc_k_articles_tl_rec;
1808: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1809: EXCEPTION
1810: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1811: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1812: (
1813: l_api_name,
1814: G_PKG_NAME,
1815: 'OKC_API.G_RET_STS_ERROR',
1811: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1812: (
1813: l_api_name,
1814: G_PKG_NAME,
1815: 'OKC_API.G_RET_STS_ERROR',
1816: x_msg_count,
1817: x_msg_data,
1818: '_PVT'
1819: );
1816: x_msg_count,
1817: x_msg_data,
1818: '_PVT'
1819: );
1820: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1821: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1822: (
1823: l_api_name,
1824: G_PKG_NAME,
1817: x_msg_data,
1818: '_PVT'
1819: );
1820: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1821: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1822: (
1823: l_api_name,
1824: G_PKG_NAME,
1825: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1821: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1822: (
1823: l_api_name,
1824: G_PKG_NAME,
1825: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1826: x_msg_count,
1827: x_msg_data,
1828: '_PVT'
1829: );
1827: x_msg_data,
1828: '_PVT'
1829: );
1830: WHEN OTHERS THEN
1831: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1832: (
1833: l_api_name,
1834: G_PKG_NAME,
1835: 'OTHERS',
1842: -- insert_row for:OKC_K_ARTICLES_V --
1843: -------------------------------------
1844: PROCEDURE insert_row(
1845: p_api_version IN NUMBER,
1846: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1847: x_return_status OUT NOCOPY VARCHAR2,
1848: x_msg_count OUT NOCOPY NUMBER,
1849: x_msg_data OUT NOCOPY VARCHAR2,
1850: p_catv_rec IN catv_rec_type,
1851: x_catv_rec OUT NOCOPY catv_rec_type) IS
1852:
1853: l_api_version CONSTANT NUMBER := 1;
1854: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1855: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1856: l_catv_rec catv_rec_type;
1857: l_def_catv_rec catv_rec_type;
1858: l_cat_rec cat_rec_type;
1859: lx_cat_rec cat_rec_type;
1880: FUNCTION Set_Attributes (
1881: p_catv_rec IN catv_rec_type,
1882: x_catv_rec OUT NOCOPY catv_rec_type
1883: ) RETURN VARCHAR2 IS
1884: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1885: BEGIN
1886: x_catv_rec := p_catv_rec;
1887: x_catv_rec.OBJECT_VERSION_NUMBER := 1;
1888: x_catv_rec.SFWT_FLAG := 'N';
1888: x_catv_rec.SFWT_FLAG := 'N';
1889: RETURN(l_return_status);
1890: END Set_Attributes;
1891: BEGIN
1892: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1893: G_PKG_NAME,
1894: p_init_msg_list,
1895: l_api_version,
1896: p_api_version,
1895: l_api_version,
1896: p_api_version,
1897: '_PVT',
1898: x_return_status);
1899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1896: p_api_version,
1897: '_PVT',
1898: x_return_status);
1899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1904: l_catv_rec := null_out_defaults(p_catv_rec);
1897: '_PVT',
1898: x_return_status);
1899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1904: l_catv_rec := null_out_defaults(p_catv_rec);
1905: -- Set primary key value
1898: x_return_status);
1899: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1901: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1902: RAISE OKC_API.G_EXCEPTION_ERROR;
1903: END IF;
1904: l_catv_rec := null_out_defaults(p_catv_rec);
1905: -- Set primary key value
1906: l_catv_rec.ID := get_seq_id;
1908: l_return_status := Set_Attributes(
1909: l_catv_rec, -- IN
1910: l_def_catv_rec); -- OUT
1911: --- If any errors happen abort API
1912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1913: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_ERROR;
1916: END IF;
1909: l_catv_rec, -- IN
1910: l_def_catv_rec); -- OUT
1911: --- If any errors happen abort API
1912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1913: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
1910: l_def_catv_rec); -- OUT
1911: --- If any errors happen abort API
1912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1913: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
1918: --- Validate all non-missing attributes (Item Level Validation)
1911: --- If any errors happen abort API
1912: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1913: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1914: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1915: RAISE OKC_API.G_EXCEPTION_ERROR;
1916: END IF;
1917: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
1918: --- Validate all non-missing attributes (Item Level Validation)
1919: l_return_status := Validate_Attributes(l_def_catv_rec);
1917: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
1918: --- Validate all non-missing attributes (Item Level Validation)
1919: l_return_status := Validate_Attributes(l_def_catv_rec);
1920: --- If any errors happen abort API
1921: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1924: RAISE OKC_API.G_EXCEPTION_ERROR;
1925: END IF;
1918: --- Validate all non-missing attributes (Item Level Validation)
1919: l_return_status := Validate_Attributes(l_def_catv_rec);
1920: --- If any errors happen abort API
1921: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1924: RAISE OKC_API.G_EXCEPTION_ERROR;
1925: END IF;
1926: l_return_status := Validate_Record(l_def_catv_rec);
1919: l_return_status := Validate_Attributes(l_def_catv_rec);
1920: --- If any errors happen abort API
1921: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1924: RAISE OKC_API.G_EXCEPTION_ERROR;
1925: END IF;
1926: l_return_status := Validate_Record(l_def_catv_rec);
1927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1920: --- If any errors happen abort API
1921: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1922: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1924: RAISE OKC_API.G_EXCEPTION_ERROR;
1925: END IF;
1926: l_return_status := Validate_Record(l_def_catv_rec);
1927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1923: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1924: RAISE OKC_API.G_EXCEPTION_ERROR;
1925: END IF;
1926: l_return_status := Validate_Record(l_def_catv_rec);
1927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1930: RAISE OKC_API.G_EXCEPTION_ERROR;
1931: END IF;
1924: RAISE OKC_API.G_EXCEPTION_ERROR;
1925: END IF;
1926: l_return_status := Validate_Record(l_def_catv_rec);
1927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1930: RAISE OKC_API.G_EXCEPTION_ERROR;
1931: END IF;
1932: --------------------------------------
1925: END IF;
1926: l_return_status := Validate_Record(l_def_catv_rec);
1927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1930: RAISE OKC_API.G_EXCEPTION_ERROR;
1931: END IF;
1932: --------------------------------------
1933: -- Move VIEW record to "Child" records
1926: l_return_status := Validate_Record(l_def_catv_rec);
1927: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1928: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1929: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1930: RAISE OKC_API.G_EXCEPTION_ERROR;
1931: END IF;
1932: --------------------------------------
1933: -- Move VIEW record to "Child" records
1934: --------------------------------------
1944: x_msg_data,
1945: l_cat_rec,
1946: lx_cat_rec
1947: );
1948: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1950: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1951: RAISE OKC_API.G_EXCEPTION_ERROR;
1952: END IF;
1945: l_cat_rec,
1946: lx_cat_rec
1947: );
1948: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1950: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1951: RAISE OKC_API.G_EXCEPTION_ERROR;
1952: END IF;
1953: migrate(lx_cat_rec, l_def_catv_rec);
1946: lx_cat_rec
1947: );
1948: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1950: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1951: RAISE OKC_API.G_EXCEPTION_ERROR;
1952: END IF;
1953: migrate(lx_cat_rec, l_def_catv_rec);
1954: insert_row(
1947: );
1948: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1950: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1951: RAISE OKC_API.G_EXCEPTION_ERROR;
1952: END IF;
1953: migrate(lx_cat_rec, l_def_catv_rec);
1954: insert_row(
1955: p_init_msg_list,
1958: x_msg_data,
1959: l_okc_k_articles_tl_rec,
1960: lx_okc_k_articles_tl_rec
1961: );
1962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1959: l_okc_k_articles_tl_rec,
1960: lx_okc_k_articles_tl_rec
1961: );
1962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1967: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
1960: lx_okc_k_articles_tl_rec
1961: );
1962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1967: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
1968: -- Set OUT values
1961: );
1962: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1964: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_ERROR;
1966: END IF;
1967: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
1968: -- Set OUT values
1969: x_catv_rec := l_def_catv_rec;
1966: END IF;
1967: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
1968: -- Set OUT values
1969: x_catv_rec := l_def_catv_rec;
1970: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1971: EXCEPTION
1972: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1973: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1974: (
1968: -- Set OUT values
1969: x_catv_rec := l_def_catv_rec;
1970: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1971: EXCEPTION
1972: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1973: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1974: (
1975: l_api_name,
1976: G_PKG_NAME,
1969: x_catv_rec := l_def_catv_rec;
1970: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1971: EXCEPTION
1972: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1973: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1974: (
1975: l_api_name,
1976: G_PKG_NAME,
1977: 'OKC_API.G_RET_STS_ERROR',
1973: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1974: (
1975: l_api_name,
1976: G_PKG_NAME,
1977: 'OKC_API.G_RET_STS_ERROR',
1978: x_msg_count,
1979: x_msg_data,
1980: '_PVT'
1981: );
1978: x_msg_count,
1979: x_msg_data,
1980: '_PVT'
1981: );
1982: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1983: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1984: (
1985: l_api_name,
1986: G_PKG_NAME,
1979: x_msg_data,
1980: '_PVT'
1981: );
1982: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1983: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1984: (
1985: l_api_name,
1986: G_PKG_NAME,
1987: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1983: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1984: (
1985: l_api_name,
1986: G_PKG_NAME,
1987: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1988: x_msg_count,
1989: x_msg_data,
1990: '_PVT'
1991: );
1989: x_msg_data,
1990: '_PVT'
1991: );
1992: WHEN OTHERS THEN
1993: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1994: (
1995: l_api_name,
1996: G_PKG_NAME,
1997: 'OTHERS',
2004: -- PL/SQL TBL insert_row for:CATV_TBL --
2005: ----------------------------------------
2006: PROCEDURE insert_row(
2007: p_api_version IN NUMBER,
2008: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2009: x_return_status OUT NOCOPY VARCHAR2,
2010: x_msg_count OUT NOCOPY NUMBER,
2011: x_msg_data OUT NOCOPY VARCHAR2,
2012: p_catv_tbl IN catv_tbl_type,
2013: x_catv_tbl OUT NOCOPY catv_tbl_type) IS
2014:
2015: l_api_version CONSTANT NUMBER := 1;
2016: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2017: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2018: i NUMBER := 0;
2019: BEGIN
2020: OKC_API.init_msg_list(p_init_msg_list);
2021: -- Make sure PL/SQL table has records in it before passing
2016: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2017: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2018: i NUMBER := 0;
2019: BEGIN
2020: OKC_API.init_msg_list(p_init_msg_list);
2021: -- Make sure PL/SQL table has records in it before passing
2022: IF (p_catv_tbl.COUNT > 0) THEN
2023: i := p_catv_tbl.FIRST;
2024: LOOP
2023: i := p_catv_tbl.FIRST;
2024: LOOP
2025: insert_row (
2026: p_api_version => p_api_version,
2027: p_init_msg_list => OKC_API.G_FALSE,
2028: x_return_status => x_return_status,
2029: x_msg_count => x_msg_count,
2030: x_msg_data => x_msg_data,
2031: p_catv_rec => p_catv_tbl(i),
2034: i := p_catv_tbl.NEXT(i);
2035: END LOOP;
2036: END IF;
2037: EXCEPTION
2038: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2040: (
2041: l_api_name,
2042: G_PKG_NAME,
2035: END LOOP;
2036: END IF;
2037: EXCEPTION
2038: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2040: (
2041: l_api_name,
2042: G_PKG_NAME,
2043: 'OKC_API.G_RET_STS_ERROR',
2039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2040: (
2041: l_api_name,
2042: G_PKG_NAME,
2043: 'OKC_API.G_RET_STS_ERROR',
2044: x_msg_count,
2045: x_msg_data,
2046: '_PVT'
2047: );
2044: x_msg_count,
2045: x_msg_data,
2046: '_PVT'
2047: );
2048: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2049: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2050: (
2051: l_api_name,
2052: G_PKG_NAME,
2045: x_msg_data,
2046: '_PVT'
2047: );
2048: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2049: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2050: (
2051: l_api_name,
2052: G_PKG_NAME,
2053: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2049: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2050: (
2051: l_api_name,
2052: G_PKG_NAME,
2053: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2054: x_msg_count,
2055: x_msg_data,
2056: '_PVT'
2057: );
2055: x_msg_data,
2056: '_PVT'
2057: );
2058: WHEN OTHERS THEN
2059: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2060: (
2061: l_api_name,
2062: G_PKG_NAME,
2063: 'OTHERS',
2073: -----------------------------------
2074: -- lock_row for:OKC_K_ARTICLES_B --
2075: -----------------------------------
2076: PROCEDURE lock_row(
2077: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2078: x_return_status OUT NOCOPY VARCHAR2,
2079: x_msg_count OUT NOCOPY NUMBER,
2080: x_msg_data OUT NOCOPY VARCHAR2,
2081: p_cat_rec IN cat_rec_type) IS
2094: FROM OKC_K_ARTICLES_B
2095: WHERE ID = p_cat_rec.id;
2096: l_api_version CONSTANT NUMBER := 1;
2097: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2098: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2099: l_object_version_number OKC_K_ARTICLES_B.OBJECT_VERSION_NUMBER%TYPE;
2100: lc_object_version_number OKC_K_ARTICLES_B.OBJECT_VERSION_NUMBER%TYPE;
2101: l_row_notfound BOOLEAN := FALSE;
2102: lc_row_notfound BOOLEAN := FALSE;
2100: lc_object_version_number OKC_K_ARTICLES_B.OBJECT_VERSION_NUMBER%TYPE;
2101: l_row_notfound BOOLEAN := FALSE;
2102: lc_row_notfound BOOLEAN := FALSE;
2103: BEGIN
2104: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2105: p_init_msg_list,
2106: '_PVT',
2107: x_return_status);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2104: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2105: p_init_msg_list,
2106: '_PVT',
2107: x_return_status);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2111: RAISE OKC_API.G_EXCEPTION_ERROR;
2112: END IF;
2105: p_init_msg_list,
2106: '_PVT',
2107: x_return_status);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2111: RAISE OKC_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: BEGIN
2106: '_PVT',
2107: x_return_status);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2111: RAISE OKC_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: BEGIN
2114: OPEN lock_csr(p_cat_rec);
2107: x_return_status);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2111: RAISE OKC_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: BEGIN
2114: OPEN lock_csr(p_cat_rec);
2115: FETCH lock_csr INTO l_object_version_number;
2119: WHEN E_Resource_Busy THEN
2120: IF (lock_csr%ISOPEN) THEN
2121: CLOSE lock_csr;
2122: END IF;
2123: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2124: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2125: END;
2126:
2127: IF ( l_row_notfound ) THEN
2130: lc_row_notfound := lchk_csr%NOTFOUND;
2131: CLOSE lchk_csr;
2132: END IF;
2133: IF (lc_row_notfound) THEN
2134: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2135: RAISE OKC_API.G_EXCEPTION_ERROR;
2136: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2137: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2138: RAISE OKC_API.G_EXCEPTION_ERROR;
2131: CLOSE lchk_csr;
2132: END IF;
2133: IF (lc_row_notfound) THEN
2134: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2135: RAISE OKC_API.G_EXCEPTION_ERROR;
2136: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2137: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2138: RAISE OKC_API.G_EXCEPTION_ERROR;
2139: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2133: IF (lc_row_notfound) THEN
2134: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2135: RAISE OKC_API.G_EXCEPTION_ERROR;
2136: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2137: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2138: RAISE OKC_API.G_EXCEPTION_ERROR;
2139: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2140: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2134: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2135: RAISE OKC_API.G_EXCEPTION_ERROR;
2136: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2137: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2138: RAISE OKC_API.G_EXCEPTION_ERROR;
2139: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2140: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2142: ELSIF lc_object_version_number = -1 THEN
2136: ELSIF lc_object_version_number > p_cat_rec.object_version_number THEN
2137: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2138: RAISE OKC_API.G_EXCEPTION_ERROR;
2139: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2140: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2142: ELSIF lc_object_version_number = -1 THEN
2143: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2137: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2138: RAISE OKC_API.G_EXCEPTION_ERROR;
2139: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2140: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2142: ELSIF lc_object_version_number = -1 THEN
2143: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2139: ELSIF lc_object_version_number <> p_cat_rec.object_version_number THEN
2140: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2142: ELSIF lc_object_version_number = -1 THEN
2143: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2147: EXCEPTION
2140: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2141: RAISE OKC_API.G_EXCEPTION_ERROR;
2142: ELSIF lc_object_version_number = -1 THEN
2143: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2147: EXCEPTION
2148: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2142: ELSIF lc_object_version_number = -1 THEN
2143: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2147: EXCEPTION
2148: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2149: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2150: (
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2147: EXCEPTION
2148: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2149: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2150: (
2151: l_api_name,
2152: G_PKG_NAME,
2145: END IF;
2146: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2147: EXCEPTION
2148: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2149: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2150: (
2151: l_api_name,
2152: G_PKG_NAME,
2153: 'OKC_API.G_RET_STS_ERROR',
2149: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2150: (
2151: l_api_name,
2152: G_PKG_NAME,
2153: 'OKC_API.G_RET_STS_ERROR',
2154: x_msg_count,
2155: x_msg_data,
2156: '_PVT'
2157: );
2154: x_msg_count,
2155: x_msg_data,
2156: '_PVT'
2157: );
2158: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2159: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2160: (
2161: l_api_name,
2162: G_PKG_NAME,
2155: x_msg_data,
2156: '_PVT'
2157: );
2158: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2159: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2160: (
2161: l_api_name,
2162: G_PKG_NAME,
2163: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2159: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2160: (
2161: l_api_name,
2162: G_PKG_NAME,
2163: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2164: x_msg_count,
2165: x_msg_data,
2166: '_PVT'
2167: );
2165: x_msg_data,
2166: '_PVT'
2167: );
2168: WHEN OTHERS THEN
2169: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2170: (
2171: l_api_name,
2172: G_PKG_NAME,
2173: 'OTHERS',
2179: ------------------------------------
2180: -- lock_row for:OKC_K_ARTICLES_TL --
2181: ------------------------------------
2182: PROCEDURE lock_row(
2183: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2184: x_return_status OUT NOCOPY VARCHAR2,
2185: x_msg_count OUT NOCOPY NUMBER,
2186: x_msg_data OUT NOCOPY VARCHAR2,
2187: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type) IS
2195: FOR UPDATE NOWAIT;
2196:
2197: l_api_version CONSTANT NUMBER := 1;
2198: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2199: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2200: l_lock_var lock_csr%ROWTYPE;
2201: l_row_notfound BOOLEAN := FALSE;
2202: lc_row_notfound BOOLEAN := FALSE;
2203: BEGIN
2200: l_lock_var lock_csr%ROWTYPE;
2201: l_row_notfound BOOLEAN := FALSE;
2202: lc_row_notfound BOOLEAN := FALSE;
2203: BEGIN
2204: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2205: p_init_msg_list,
2206: '_PVT',
2207: x_return_status);
2208: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2204: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2205: p_init_msg_list,
2206: '_PVT',
2207: x_return_status);
2208: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2205: p_init_msg_list,
2206: '_PVT',
2207: x_return_status);
2208: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2213: BEGIN
2206: '_PVT',
2207: x_return_status);
2208: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2213: BEGIN
2214: OPEN lock_csr(p_okc_k_articles_tl_rec);
2207: x_return_status);
2208: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2209: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2210: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_ERROR;
2212: END IF;
2213: BEGIN
2214: OPEN lock_csr(p_okc_k_articles_tl_rec);
2215: FETCH lock_csr INTO l_lock_var;
2219: WHEN E_Resource_Busy THEN
2220: IF (lock_csr%ISOPEN) THEN
2221: CLOSE lock_csr;
2222: END IF;
2223: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2224: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2225: END;
2226:
2227: IF ( l_row_notfound ) THEN
2224: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2225: END;
2226:
2227: IF ( l_row_notfound ) THEN
2228: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2232: EXCEPTION
2225: END;
2226:
2227: IF ( l_row_notfound ) THEN
2228: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2232: EXCEPTION
2233: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2227: IF ( l_row_notfound ) THEN
2228: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2232: EXCEPTION
2233: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2234: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2235: (
2229: RAISE OKC_API.G_EXCEPTION_ERROR;
2230: END IF;
2231: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2232: EXCEPTION
2233: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2234: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2235: (
2236: l_api_name,
2237: G_PKG_NAME,
2230: END IF;
2231: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2232: EXCEPTION
2233: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2234: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2235: (
2236: l_api_name,
2237: G_PKG_NAME,
2238: 'OKC_API.G_RET_STS_ERROR',
2234: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2235: (
2236: l_api_name,
2237: G_PKG_NAME,
2238: 'OKC_API.G_RET_STS_ERROR',
2239: x_msg_count,
2240: x_msg_data,
2241: '_PVT'
2242: );
2239: x_msg_count,
2240: x_msg_data,
2241: '_PVT'
2242: );
2243: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2244: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2245: (
2246: l_api_name,
2247: G_PKG_NAME,
2240: x_msg_data,
2241: '_PVT'
2242: );
2243: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2244: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2245: (
2246: l_api_name,
2247: G_PKG_NAME,
2248: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2244: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2245: (
2246: l_api_name,
2247: G_PKG_NAME,
2248: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2249: x_msg_count,
2250: x_msg_data,
2251: '_PVT'
2252: );
2250: x_msg_data,
2251: '_PVT'
2252: );
2253: WHEN OTHERS THEN
2254: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2255: (
2256: l_api_name,
2257: G_PKG_NAME,
2258: 'OTHERS',
2265: -- lock_row for:OKC_K_ARTICLES_V --
2266: -----------------------------------
2267: PROCEDURE lock_row(
2268: p_api_version IN NUMBER,
2269: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2270: x_return_status OUT NOCOPY VARCHAR2,
2271: x_msg_count OUT NOCOPY NUMBER,
2272: x_msg_data OUT NOCOPY VARCHAR2,
2273: p_catv_rec IN catv_rec_type) IS
2273: p_catv_rec IN catv_rec_type) IS
2274:
2275: l_api_version CONSTANT NUMBER := 1;
2276: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2277: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2278: l_cat_rec cat_rec_type;
2279: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
2280: BEGIN
2281: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2277: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2278: l_cat_rec cat_rec_type;
2279: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
2280: BEGIN
2281: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2282: G_PKG_NAME,
2283: p_init_msg_list,
2284: l_api_version,
2285: p_api_version,
2284: l_api_version,
2285: p_api_version,
2286: '_PVT',
2287: x_return_status);
2288: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2289: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2290: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2291: RAISE OKC_API.G_EXCEPTION_ERROR;
2292: END IF;
2285: p_api_version,
2286: '_PVT',
2287: x_return_status);
2288: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2289: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2290: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2291: RAISE OKC_API.G_EXCEPTION_ERROR;
2292: END IF;
2293: --------------------------------------
2286: '_PVT',
2287: x_return_status);
2288: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2289: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2290: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2291: RAISE OKC_API.G_EXCEPTION_ERROR;
2292: END IF;
2293: --------------------------------------
2294: -- Move VIEW record to "Child" records
2287: x_return_status);
2288: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2289: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2290: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2291: RAISE OKC_API.G_EXCEPTION_ERROR;
2292: END IF;
2293: --------------------------------------
2294: -- Move VIEW record to "Child" records
2295: --------------------------------------
2304: x_msg_count,
2305: x_msg_data,
2306: l_cat_rec
2307: );
2308: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2311: RAISE OKC_API.G_EXCEPTION_ERROR;
2312: END IF;
2305: x_msg_data,
2306: l_cat_rec
2307: );
2308: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2311: RAISE OKC_API.G_EXCEPTION_ERROR;
2312: END IF;
2313: lock_row(
2306: l_cat_rec
2307: );
2308: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2311: RAISE OKC_API.G_EXCEPTION_ERROR;
2312: END IF;
2313: lock_row(
2314: p_init_msg_list,
2307: );
2308: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2309: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2310: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2311: RAISE OKC_API.G_EXCEPTION_ERROR;
2312: END IF;
2313: lock_row(
2314: p_init_msg_list,
2315: x_return_status,
2316: x_msg_count,
2317: x_msg_data,
2318: l_okc_k_articles_tl_rec
2319: );
2320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2317: x_msg_data,
2318: l_okc_k_articles_tl_rec
2319: );
2320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2318: l_okc_k_articles_tl_rec
2319: );
2320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2326: EXCEPTION
2319: );
2320: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2326: EXCEPTION
2327: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2326: EXCEPTION
2327: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2326: EXCEPTION
2327: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2330: l_api_name,
2331: G_PKG_NAME,
2324: END IF;
2325: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2326: EXCEPTION
2327: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2330: l_api_name,
2331: G_PKG_NAME,
2332: 'OKC_API.G_RET_STS_ERROR',
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2330: l_api_name,
2331: G_PKG_NAME,
2332: 'OKC_API.G_RET_STS_ERROR',
2333: x_msg_count,
2334: x_msg_data,
2335: '_PVT'
2336: );
2333: x_msg_count,
2334: x_msg_data,
2335: '_PVT'
2336: );
2337: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2338: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2339: (
2340: l_api_name,
2341: G_PKG_NAME,
2334: x_msg_data,
2335: '_PVT'
2336: );
2337: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2338: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2339: (
2340: l_api_name,
2341: G_PKG_NAME,
2342: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2338: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2339: (
2340: l_api_name,
2341: G_PKG_NAME,
2342: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2343: x_msg_count,
2344: x_msg_data,
2345: '_PVT'
2346: );
2344: x_msg_data,
2345: '_PVT'
2346: );
2347: WHEN OTHERS THEN
2348: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2349: (
2350: l_api_name,
2351: G_PKG_NAME,
2352: 'OTHERS',
2359: -- PL/SQL TBL lock_row for:CATV_TBL --
2360: --------------------------------------
2361: PROCEDURE lock_row(
2362: p_api_version IN NUMBER,
2363: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2364: x_return_status OUT NOCOPY VARCHAR2,
2365: x_msg_count OUT NOCOPY NUMBER,
2366: x_msg_data OUT NOCOPY VARCHAR2,
2367: p_catv_tbl IN catv_tbl_type) IS
2367: p_catv_tbl IN catv_tbl_type) IS
2368:
2369: l_api_version CONSTANT NUMBER := 1;
2370: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2371: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2372: i NUMBER := 0;
2373: BEGIN
2374: OKC_API.init_msg_list(p_init_msg_list);
2375: -- Make sure PL/SQL table has records in it before passing
2370: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2371: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2372: i NUMBER := 0;
2373: BEGIN
2374: OKC_API.init_msg_list(p_init_msg_list);
2375: -- Make sure PL/SQL table has records in it before passing
2376: IF (p_catv_tbl.COUNT > 0) THEN
2377: i := p_catv_tbl.FIRST;
2378: LOOP
2377: i := p_catv_tbl.FIRST;
2378: LOOP
2379: lock_row (
2380: p_api_version => p_api_version,
2381: p_init_msg_list => OKC_API.G_FALSE,
2382: x_return_status => x_return_status,
2383: x_msg_count => x_msg_count,
2384: x_msg_data => x_msg_data,
2385: p_catv_rec => p_catv_tbl(i));
2387: i := p_catv_tbl.NEXT(i);
2388: END LOOP;
2389: END IF;
2390: EXCEPTION
2391: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2393: (
2394: l_api_name,
2395: G_PKG_NAME,
2388: END LOOP;
2389: END IF;
2390: EXCEPTION
2391: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2393: (
2394: l_api_name,
2395: G_PKG_NAME,
2396: 'OKC_API.G_RET_STS_ERROR',
2392: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2393: (
2394: l_api_name,
2395: G_PKG_NAME,
2396: 'OKC_API.G_RET_STS_ERROR',
2397: x_msg_count,
2398: x_msg_data,
2399: '_PVT'
2400: );
2397: x_msg_count,
2398: x_msg_data,
2399: '_PVT'
2400: );
2401: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2402: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2403: (
2404: l_api_name,
2405: G_PKG_NAME,
2398: x_msg_data,
2399: '_PVT'
2400: );
2401: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2402: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2403: (
2404: l_api_name,
2405: G_PKG_NAME,
2406: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2402: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2403: (
2404: l_api_name,
2405: G_PKG_NAME,
2406: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2407: x_msg_count,
2408: x_msg_data,
2409: '_PVT'
2410: );
2408: x_msg_data,
2409: '_PVT'
2410: );
2411: WHEN OTHERS THEN
2412: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2413: (
2414: l_api_name,
2415: G_PKG_NAME,
2416: 'OTHERS',
2426: -------------------------------------
2427: -- update_row for:OKC_K_ARTICLES_B --
2428: -------------------------------------
2429: PROCEDURE update_row(
2430: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2431: x_return_status OUT NOCOPY VARCHAR2,
2432: x_msg_count OUT NOCOPY NUMBER,
2433: x_msg_data OUT NOCOPY VARCHAR2,
2434: p_cat_rec IN cat_rec_type,
2435: x_cat_rec OUT NOCOPY cat_rec_type) IS
2436:
2437: l_api_version CONSTANT NUMBER := 1;
2438: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2439: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2440: l_cat_rec cat_rec_type := p_cat_rec;
2441: l_def_cat_rec cat_rec_type;
2442: l_row_notfound BOOLEAN := TRUE;
2443: ----------------------------------
2448: x_cat_rec OUT NOCOPY cat_rec_type
2449: ) RETURN VARCHAR2 IS
2450: l_cat_rec cat_rec_type;
2451: l_row_notfound BOOLEAN := TRUE;
2452: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2453: BEGIN
2454: x_cat_rec := p_cat_rec;
2455: -- Get current database values
2456: l_cat_rec := get_rec(p_cat_rec, l_row_notfound);
2454: x_cat_rec := p_cat_rec;
2455: -- Get current database values
2456: l_cat_rec := get_rec(p_cat_rec, l_row_notfound);
2457: IF (l_row_notfound) THEN
2458: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2459: END IF;
2460: IF (x_cat_rec.id = OKC_API.G_MISS_NUM)
2461: THEN
2462: x_cat_rec.id := l_cat_rec.id;
2456: l_cat_rec := get_rec(p_cat_rec, l_row_notfound);
2457: IF (l_row_notfound) THEN
2458: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2459: END IF;
2460: IF (x_cat_rec.id = OKC_API.G_MISS_NUM)
2461: THEN
2462: x_cat_rec.id := l_cat_rec.id;
2463: END IF;
2464: IF (x_cat_rec.sav_sae_id = OKC_API.G_MISS_NUM)
2460: IF (x_cat_rec.id = OKC_API.G_MISS_NUM)
2461: THEN
2462: x_cat_rec.id := l_cat_rec.id;
2463: END IF;
2464: IF (x_cat_rec.sav_sae_id = OKC_API.G_MISS_NUM)
2465: THEN
2466: x_cat_rec.sav_sae_id := l_cat_rec.sav_sae_id;
2467: END IF;
2468: IF (x_cat_rec.sbt_code = OKC_API.G_MISS_CHAR)
2464: IF (x_cat_rec.sav_sae_id = OKC_API.G_MISS_NUM)
2465: THEN
2466: x_cat_rec.sav_sae_id := l_cat_rec.sav_sae_id;
2467: END IF;
2468: IF (x_cat_rec.sbt_code = OKC_API.G_MISS_CHAR)
2469: THEN
2470: x_cat_rec.sbt_code := l_cat_rec.sbt_code;
2471: END IF;
2472: IF (x_cat_rec.cat_type = OKC_API.G_MISS_CHAR)
2468: IF (x_cat_rec.sbt_code = OKC_API.G_MISS_CHAR)
2469: THEN
2470: x_cat_rec.sbt_code := l_cat_rec.sbt_code;
2471: END IF;
2472: IF (x_cat_rec.cat_type = OKC_API.G_MISS_CHAR)
2473: THEN
2474: x_cat_rec.cat_type := l_cat_rec.cat_type;
2475: END IF;
2476: IF (x_cat_rec.chr_id = OKC_API.G_MISS_NUM)
2472: IF (x_cat_rec.cat_type = OKC_API.G_MISS_CHAR)
2473: THEN
2474: x_cat_rec.cat_type := l_cat_rec.cat_type;
2475: END IF;
2476: IF (x_cat_rec.chr_id = OKC_API.G_MISS_NUM)
2477: THEN
2478: x_cat_rec.chr_id := l_cat_rec.chr_id;
2479: END IF;
2480: IF (x_cat_rec.cle_id = OKC_API.G_MISS_NUM)
2476: IF (x_cat_rec.chr_id = OKC_API.G_MISS_NUM)
2477: THEN
2478: x_cat_rec.chr_id := l_cat_rec.chr_id;
2479: END IF;
2480: IF (x_cat_rec.cle_id = OKC_API.G_MISS_NUM)
2481: THEN
2482: x_cat_rec.cle_id := l_cat_rec.cle_id;
2483: END IF;
2484: IF (x_cat_rec.cat_id = OKC_API.G_MISS_NUM)
2480: IF (x_cat_rec.cle_id = OKC_API.G_MISS_NUM)
2481: THEN
2482: x_cat_rec.cle_id := l_cat_rec.cle_id;
2483: END IF;
2484: IF (x_cat_rec.cat_id = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_cat_rec.cat_id := l_cat_rec.cat_id;
2487: END IF;
2488: IF (x_cat_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2484: IF (x_cat_rec.cat_id = OKC_API.G_MISS_NUM)
2485: THEN
2486: x_cat_rec.cat_id := l_cat_rec.cat_id;
2487: END IF;
2488: IF (x_cat_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2489: THEN
2490: x_cat_rec.dnz_chr_id := l_cat_rec.dnz_chr_id;
2491: END IF;
2492: IF (x_cat_rec.object_version_number = OKC_API.G_MISS_NUM)
2488: IF (x_cat_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2489: THEN
2490: x_cat_rec.dnz_chr_id := l_cat_rec.dnz_chr_id;
2491: END IF;
2492: IF (x_cat_rec.object_version_number = OKC_API.G_MISS_NUM)
2493: THEN
2494: x_cat_rec.object_version_number := l_cat_rec.object_version_number;
2495: END IF;
2496: IF (x_cat_rec.created_by = OKC_API.G_MISS_NUM)
2492: IF (x_cat_rec.object_version_number = OKC_API.G_MISS_NUM)
2493: THEN
2494: x_cat_rec.object_version_number := l_cat_rec.object_version_number;
2495: END IF;
2496: IF (x_cat_rec.created_by = OKC_API.G_MISS_NUM)
2497: THEN
2498: x_cat_rec.created_by := l_cat_rec.created_by;
2499: END IF;
2500: IF (x_cat_rec.creation_date = OKC_API.G_MISS_DATE)
2496: IF (x_cat_rec.created_by = OKC_API.G_MISS_NUM)
2497: THEN
2498: x_cat_rec.created_by := l_cat_rec.created_by;
2499: END IF;
2500: IF (x_cat_rec.creation_date = OKC_API.G_MISS_DATE)
2501: THEN
2502: x_cat_rec.creation_date := l_cat_rec.creation_date;
2503: END IF;
2504: IF (x_cat_rec.last_updated_by = OKC_API.G_MISS_NUM)
2500: IF (x_cat_rec.creation_date = OKC_API.G_MISS_DATE)
2501: THEN
2502: x_cat_rec.creation_date := l_cat_rec.creation_date;
2503: END IF;
2504: IF (x_cat_rec.last_updated_by = OKC_API.G_MISS_NUM)
2505: THEN
2506: x_cat_rec.last_updated_by := l_cat_rec.last_updated_by;
2507: END IF;
2508: IF (x_cat_rec.last_update_date = OKC_API.G_MISS_DATE)
2504: IF (x_cat_rec.last_updated_by = OKC_API.G_MISS_NUM)
2505: THEN
2506: x_cat_rec.last_updated_by := l_cat_rec.last_updated_by;
2507: END IF;
2508: IF (x_cat_rec.last_update_date = OKC_API.G_MISS_DATE)
2509: THEN
2510: x_cat_rec.last_update_date := l_cat_rec.last_update_date;
2511: END IF;
2512: IF (x_cat_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
2508: IF (x_cat_rec.last_update_date = OKC_API.G_MISS_DATE)
2509: THEN
2510: x_cat_rec.last_update_date := l_cat_rec.last_update_date;
2511: END IF;
2512: IF (x_cat_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
2513: THEN
2514: x_cat_rec.fulltext_yn := l_cat_rec.fulltext_yn;
2515: END IF;
2516: IF (x_cat_rec.last_update_login = OKC_API.G_MISS_NUM)
2512: IF (x_cat_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
2513: THEN
2514: x_cat_rec.fulltext_yn := l_cat_rec.fulltext_yn;
2515: END IF;
2516: IF (x_cat_rec.last_update_login = OKC_API.G_MISS_NUM)
2517: THEN
2518: x_cat_rec.last_update_login := l_cat_rec.last_update_login;
2519: END IF;
2520: IF (x_cat_rec.attribute_category = OKC_API.G_MISS_CHAR)
2516: IF (x_cat_rec.last_update_login = OKC_API.G_MISS_NUM)
2517: THEN
2518: x_cat_rec.last_update_login := l_cat_rec.last_update_login;
2519: END IF;
2520: IF (x_cat_rec.attribute_category = OKC_API.G_MISS_CHAR)
2521: THEN
2522: x_cat_rec.attribute_category := l_cat_rec.attribute_category;
2523: END IF;
2524: IF (x_cat_rec.attribute1 = OKC_API.G_MISS_CHAR)
2520: IF (x_cat_rec.attribute_category = OKC_API.G_MISS_CHAR)
2521: THEN
2522: x_cat_rec.attribute_category := l_cat_rec.attribute_category;
2523: END IF;
2524: IF (x_cat_rec.attribute1 = OKC_API.G_MISS_CHAR)
2525: THEN
2526: x_cat_rec.attribute1 := l_cat_rec.attribute1;
2527: END IF;
2528: IF (x_cat_rec.attribute2 = OKC_API.G_MISS_CHAR)
2524: IF (x_cat_rec.attribute1 = OKC_API.G_MISS_CHAR)
2525: THEN
2526: x_cat_rec.attribute1 := l_cat_rec.attribute1;
2527: END IF;
2528: IF (x_cat_rec.attribute2 = OKC_API.G_MISS_CHAR)
2529: THEN
2530: x_cat_rec.attribute2 := l_cat_rec.attribute2;
2531: END IF;
2532: IF (x_cat_rec.attribute3 = OKC_API.G_MISS_CHAR)
2528: IF (x_cat_rec.attribute2 = OKC_API.G_MISS_CHAR)
2529: THEN
2530: x_cat_rec.attribute2 := l_cat_rec.attribute2;
2531: END IF;
2532: IF (x_cat_rec.attribute3 = OKC_API.G_MISS_CHAR)
2533: THEN
2534: x_cat_rec.attribute3 := l_cat_rec.attribute3;
2535: END IF;
2536: IF (x_cat_rec.attribute4 = OKC_API.G_MISS_CHAR)
2532: IF (x_cat_rec.attribute3 = OKC_API.G_MISS_CHAR)
2533: THEN
2534: x_cat_rec.attribute3 := l_cat_rec.attribute3;
2535: END IF;
2536: IF (x_cat_rec.attribute4 = OKC_API.G_MISS_CHAR)
2537: THEN
2538: x_cat_rec.attribute4 := l_cat_rec.attribute4;
2539: END IF;
2540: IF (x_cat_rec.attribute5 = OKC_API.G_MISS_CHAR)
2536: IF (x_cat_rec.attribute4 = OKC_API.G_MISS_CHAR)
2537: THEN
2538: x_cat_rec.attribute4 := l_cat_rec.attribute4;
2539: END IF;
2540: IF (x_cat_rec.attribute5 = OKC_API.G_MISS_CHAR)
2541: THEN
2542: x_cat_rec.attribute5 := l_cat_rec.attribute5;
2543: END IF;
2544: IF (x_cat_rec.attribute6 = OKC_API.G_MISS_CHAR)
2540: IF (x_cat_rec.attribute5 = OKC_API.G_MISS_CHAR)
2541: THEN
2542: x_cat_rec.attribute5 := l_cat_rec.attribute5;
2543: END IF;
2544: IF (x_cat_rec.attribute6 = OKC_API.G_MISS_CHAR)
2545: THEN
2546: x_cat_rec.attribute6 := l_cat_rec.attribute6;
2547: END IF;
2548: IF (x_cat_rec.attribute7 = OKC_API.G_MISS_CHAR)
2544: IF (x_cat_rec.attribute6 = OKC_API.G_MISS_CHAR)
2545: THEN
2546: x_cat_rec.attribute6 := l_cat_rec.attribute6;
2547: END IF;
2548: IF (x_cat_rec.attribute7 = OKC_API.G_MISS_CHAR)
2549: THEN
2550: x_cat_rec.attribute7 := l_cat_rec.attribute7;
2551: END IF;
2552: IF (x_cat_rec.attribute8 = OKC_API.G_MISS_CHAR)
2548: IF (x_cat_rec.attribute7 = OKC_API.G_MISS_CHAR)
2549: THEN
2550: x_cat_rec.attribute7 := l_cat_rec.attribute7;
2551: END IF;
2552: IF (x_cat_rec.attribute8 = OKC_API.G_MISS_CHAR)
2553: THEN
2554: x_cat_rec.attribute8 := l_cat_rec.attribute8;
2555: END IF;
2556: IF (x_cat_rec.attribute9 = OKC_API.G_MISS_CHAR)
2552: IF (x_cat_rec.attribute8 = OKC_API.G_MISS_CHAR)
2553: THEN
2554: x_cat_rec.attribute8 := l_cat_rec.attribute8;
2555: END IF;
2556: IF (x_cat_rec.attribute9 = OKC_API.G_MISS_CHAR)
2557: THEN
2558: x_cat_rec.attribute9 := l_cat_rec.attribute9;
2559: END IF;
2560: IF (x_cat_rec.attribute10 = OKC_API.G_MISS_CHAR)
2556: IF (x_cat_rec.attribute9 = OKC_API.G_MISS_CHAR)
2557: THEN
2558: x_cat_rec.attribute9 := l_cat_rec.attribute9;
2559: END IF;
2560: IF (x_cat_rec.attribute10 = OKC_API.G_MISS_CHAR)
2561: THEN
2562: x_cat_rec.attribute10 := l_cat_rec.attribute10;
2563: END IF;
2564: IF (x_cat_rec.attribute11 = OKC_API.G_MISS_CHAR)
2560: IF (x_cat_rec.attribute10 = OKC_API.G_MISS_CHAR)
2561: THEN
2562: x_cat_rec.attribute10 := l_cat_rec.attribute10;
2563: END IF;
2564: IF (x_cat_rec.attribute11 = OKC_API.G_MISS_CHAR)
2565: THEN
2566: x_cat_rec.attribute11 := l_cat_rec.attribute11;
2567: END IF;
2568: IF (x_cat_rec.attribute12 = OKC_API.G_MISS_CHAR)
2564: IF (x_cat_rec.attribute11 = OKC_API.G_MISS_CHAR)
2565: THEN
2566: x_cat_rec.attribute11 := l_cat_rec.attribute11;
2567: END IF;
2568: IF (x_cat_rec.attribute12 = OKC_API.G_MISS_CHAR)
2569: THEN
2570: x_cat_rec.attribute12 := l_cat_rec.attribute12;
2571: END IF;
2572: IF (x_cat_rec.attribute13 = OKC_API.G_MISS_CHAR)
2568: IF (x_cat_rec.attribute12 = OKC_API.G_MISS_CHAR)
2569: THEN
2570: x_cat_rec.attribute12 := l_cat_rec.attribute12;
2571: END IF;
2572: IF (x_cat_rec.attribute13 = OKC_API.G_MISS_CHAR)
2573: THEN
2574: x_cat_rec.attribute13 := l_cat_rec.attribute13;
2575: END IF;
2576: IF (x_cat_rec.attribute14 = OKC_API.G_MISS_CHAR)
2572: IF (x_cat_rec.attribute13 = OKC_API.G_MISS_CHAR)
2573: THEN
2574: x_cat_rec.attribute13 := l_cat_rec.attribute13;
2575: END IF;
2576: IF (x_cat_rec.attribute14 = OKC_API.G_MISS_CHAR)
2577: THEN
2578: x_cat_rec.attribute14 := l_cat_rec.attribute14;
2579: END IF;
2580: IF (x_cat_rec.attribute15 = OKC_API.G_MISS_CHAR)
2576: IF (x_cat_rec.attribute14 = OKC_API.G_MISS_CHAR)
2577: THEN
2578: x_cat_rec.attribute14 := l_cat_rec.attribute14;
2579: END IF;
2580: IF (x_cat_rec.attribute15 = OKC_API.G_MISS_CHAR)
2581: THEN
2582: x_cat_rec.attribute15 := l_cat_rec.attribute15;
2583: END IF;
2584: IF (x_cat_rec.security_group_id = OKC_API.G_MISS_NUM)
2580: IF (x_cat_rec.attribute15 = OKC_API.G_MISS_CHAR)
2581: THEN
2582: x_cat_rec.attribute15 := l_cat_rec.attribute15;
2583: END IF;
2584: IF (x_cat_rec.security_group_id = OKC_API.G_MISS_NUM)
2585: THEN
2586: x_cat_rec.security_group_id := l_cat_rec.security_group_id;
2587: END IF;
2588: RETURN(l_return_status);
2593: FUNCTION Set_Attributes (
2594: p_cat_rec IN cat_rec_type,
2595: x_cat_rec OUT NOCOPY cat_rec_type
2596: ) RETURN VARCHAR2 IS
2597: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2598: BEGIN
2599: x_cat_rec := p_cat_rec;
2600: RETURN(l_return_status);
2601: END Set_Attributes;
2599: x_cat_rec := p_cat_rec;
2600: RETURN(l_return_status);
2601: END Set_Attributes;
2602: BEGIN
2603: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2604: p_init_msg_list,
2605: '_PVT',
2606: x_return_status);
2607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2603: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2604: p_init_msg_list,
2605: '_PVT',
2606: x_return_status);
2607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2609: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2610: RAISE OKC_API.G_EXCEPTION_ERROR;
2611: END IF;
2604: p_init_msg_list,
2605: '_PVT',
2606: x_return_status);
2607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2609: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2610: RAISE OKC_API.G_EXCEPTION_ERROR;
2611: END IF;
2612: --- Setting item attributes
2605: '_PVT',
2606: x_return_status);
2607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2609: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2610: RAISE OKC_API.G_EXCEPTION_ERROR;
2611: END IF;
2612: --- Setting item attributes
2613: l_return_status := Set_Attributes(
2606: x_return_status);
2607: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2608: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2609: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2610: RAISE OKC_API.G_EXCEPTION_ERROR;
2611: END IF;
2612: --- Setting item attributes
2613: l_return_status := Set_Attributes(
2614: p_cat_rec, -- IN
2613: l_return_status := Set_Attributes(
2614: p_cat_rec, -- IN
2615: l_cat_rec); -- OUT
2616: --- If any errors happen abort API
2617: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2618: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2619: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2620: RAISE OKC_API.G_EXCEPTION_ERROR;
2621: END IF;
2614: p_cat_rec, -- IN
2615: l_cat_rec); -- OUT
2616: --- If any errors happen abort API
2617: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2618: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2619: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2620: RAISE OKC_API.G_EXCEPTION_ERROR;
2621: END IF;
2622: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
2615: l_cat_rec); -- OUT
2616: --- If any errors happen abort API
2617: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2618: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2619: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2620: RAISE OKC_API.G_EXCEPTION_ERROR;
2621: END IF;
2622: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
2623: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2616: --- If any errors happen abort API
2617: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2618: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2619: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2620: RAISE OKC_API.G_EXCEPTION_ERROR;
2621: END IF;
2622: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
2623: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2619: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2620: RAISE OKC_API.G_EXCEPTION_ERROR;
2621: END IF;
2622: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
2623: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2626: RAISE OKC_API.G_EXCEPTION_ERROR;
2627: END IF;
2620: RAISE OKC_API.G_EXCEPTION_ERROR;
2621: END IF;
2622: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
2623: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2626: RAISE OKC_API.G_EXCEPTION_ERROR;
2627: END IF;
2628: UPDATE OKC_K_ARTICLES_B
2621: END IF;
2622: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
2623: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2626: RAISE OKC_API.G_EXCEPTION_ERROR;
2627: END IF;
2628: UPDATE OKC_K_ARTICLES_B
2629: SET SAV_SAE_ID = l_def_cat_rec.sav_sae_id,
2622: l_return_status := populate_new_record(l_cat_rec, l_def_cat_rec);
2623: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2626: RAISE OKC_API.G_EXCEPTION_ERROR;
2627: END IF;
2628: UPDATE OKC_K_ARTICLES_B
2629: SET SAV_SAE_ID = l_def_cat_rec.sav_sae_id,
2630: SBT_CODE = l_def_cat_rec.sbt_code,
2659: SECURITY_GROUP_ID = l_def_cat_rec.security_group_id
2660: WHERE ID = l_def_cat_rec.id;
2661:
2662: x_cat_rec := l_def_cat_rec;
2663: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2664: EXCEPTION
2665: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2666: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2667: (
2661:
2662: x_cat_rec := l_def_cat_rec;
2663: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2664: EXCEPTION
2665: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2666: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2667: (
2668: l_api_name,
2669: G_PKG_NAME,
2662: x_cat_rec := l_def_cat_rec;
2663: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2664: EXCEPTION
2665: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2666: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2667: (
2668: l_api_name,
2669: G_PKG_NAME,
2670: 'OKC_API.G_RET_STS_ERROR',
2666: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2667: (
2668: l_api_name,
2669: G_PKG_NAME,
2670: 'OKC_API.G_RET_STS_ERROR',
2671: x_msg_count,
2672: x_msg_data,
2673: '_PVT'
2674: );
2671: x_msg_count,
2672: x_msg_data,
2673: '_PVT'
2674: );
2675: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2676: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2677: (
2678: l_api_name,
2679: G_PKG_NAME,
2672: x_msg_data,
2673: '_PVT'
2674: );
2675: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2676: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2677: (
2678: l_api_name,
2679: G_PKG_NAME,
2680: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2676: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2677: (
2678: l_api_name,
2679: G_PKG_NAME,
2680: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2681: x_msg_count,
2682: x_msg_data,
2683: '_PVT'
2684: );
2682: x_msg_data,
2683: '_PVT'
2684: );
2685: WHEN OTHERS THEN
2686: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2687: (
2688: l_api_name,
2689: G_PKG_NAME,
2690: 'OTHERS',
2696: --------------------------------------
2697: -- update_row for:OKC_K_ARTICLES_TL --
2698: --------------------------------------
2699: PROCEDURE update_row(
2700: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2701: x_return_status OUT NOCOPY VARCHAR2,
2702: x_msg_count OUT NOCOPY NUMBER,
2703: x_msg_data OUT NOCOPY VARCHAR2,
2704: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type,
2705: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type) IS
2706:
2707: l_api_version CONSTANT NUMBER := 1;
2708: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2709: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2710: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type := p_okc_k_articles_tl_rec;
2711: l_def_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
2712: l_row_notfound BOOLEAN := TRUE;
2713: ----------------------------------
2718: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type
2719: ) RETURN VARCHAR2 IS
2720: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
2721: l_row_notfound BOOLEAN := TRUE;
2722: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2723: BEGIN
2724: x_okc_k_articles_tl_rec := p_okc_k_articles_tl_rec;
2725: -- Get current database values
2726: l_okc_k_articles_tl_rec := get_rec(p_okc_k_articles_tl_rec, l_row_notfound);
2724: x_okc_k_articles_tl_rec := p_okc_k_articles_tl_rec;
2725: -- Get current database values
2726: l_okc_k_articles_tl_rec := get_rec(p_okc_k_articles_tl_rec, l_row_notfound);
2727: IF (l_row_notfound) THEN
2728: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2729: END IF;
2730: IF (x_okc_k_articles_tl_rec.id = OKC_API.G_MISS_NUM)
2731: THEN
2732: x_okc_k_articles_tl_rec.id := l_okc_k_articles_tl_rec.id;
2726: l_okc_k_articles_tl_rec := get_rec(p_okc_k_articles_tl_rec, l_row_notfound);
2727: IF (l_row_notfound) THEN
2728: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2729: END IF;
2730: IF (x_okc_k_articles_tl_rec.id = OKC_API.G_MISS_NUM)
2731: THEN
2732: x_okc_k_articles_tl_rec.id := l_okc_k_articles_tl_rec.id;
2733: END IF;
2734: IF (x_okc_k_articles_tl_rec.language = OKC_API.G_MISS_CHAR)
2730: IF (x_okc_k_articles_tl_rec.id = OKC_API.G_MISS_NUM)
2731: THEN
2732: x_okc_k_articles_tl_rec.id := l_okc_k_articles_tl_rec.id;
2733: END IF;
2734: IF (x_okc_k_articles_tl_rec.language = OKC_API.G_MISS_CHAR)
2735: THEN
2736: x_okc_k_articles_tl_rec.language := l_okc_k_articles_tl_rec.language;
2737: END IF;
2738: IF (x_okc_k_articles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2734: IF (x_okc_k_articles_tl_rec.language = OKC_API.G_MISS_CHAR)
2735: THEN
2736: x_okc_k_articles_tl_rec.language := l_okc_k_articles_tl_rec.language;
2737: END IF;
2738: IF (x_okc_k_articles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2739: THEN
2740: x_okc_k_articles_tl_rec.source_lang := l_okc_k_articles_tl_rec.source_lang;
2741: END IF;
2742: IF (x_okc_k_articles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2738: IF (x_okc_k_articles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2739: THEN
2740: x_okc_k_articles_tl_rec.source_lang := l_okc_k_articles_tl_rec.source_lang;
2741: END IF;
2742: IF (x_okc_k_articles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2743: THEN
2744: x_okc_k_articles_tl_rec.sfwt_flag := l_okc_k_articles_tl_rec.sfwt_flag;
2745: END IF;
2746: IF (x_okc_k_articles_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
2742: IF (x_okc_k_articles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2743: THEN
2744: x_okc_k_articles_tl_rec.sfwt_flag := l_okc_k_articles_tl_rec.sfwt_flag;
2745: END IF;
2746: IF (x_okc_k_articles_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
2747: THEN
2748: x_okc_k_articles_tl_rec.object_version_number := l_okc_k_articles_tl_rec.object_version_number;
2749: END IF;
2750: IF (x_okc_k_articles_tl_rec.comments = OKC_API.G_MISS_CHAR)
2746: IF (x_okc_k_articles_tl_rec.object_version_number = OKC_API.G_MISS_NUM)
2747: THEN
2748: x_okc_k_articles_tl_rec.object_version_number := l_okc_k_articles_tl_rec.object_version_number;
2749: END IF;
2750: IF (x_okc_k_articles_tl_rec.comments = OKC_API.G_MISS_CHAR)
2751: THEN
2752: x_okc_k_articles_tl_rec.comments := l_okc_k_articles_tl_rec.comments;
2753: END IF;
2754: IF (x_okc_k_articles_tl_rec.variation_description = OKC_API.G_MISS_CHAR)
2750: IF (x_okc_k_articles_tl_rec.comments = OKC_API.G_MISS_CHAR)
2751: THEN
2752: x_okc_k_articles_tl_rec.comments := l_okc_k_articles_tl_rec.comments;
2753: END IF;
2754: IF (x_okc_k_articles_tl_rec.variation_description = OKC_API.G_MISS_CHAR)
2755: THEN
2756: x_okc_k_articles_tl_rec.variation_description := l_okc_k_articles_tl_rec.variation_description;
2757: END IF;
2758: IF (x_okc_k_articles_tl_rec.name = OKC_API.G_MISS_CHAR)
2754: IF (x_okc_k_articles_tl_rec.variation_description = OKC_API.G_MISS_CHAR)
2755: THEN
2756: x_okc_k_articles_tl_rec.variation_description := l_okc_k_articles_tl_rec.variation_description;
2757: END IF;
2758: IF (x_okc_k_articles_tl_rec.name = OKC_API.G_MISS_CHAR)
2759: THEN
2760: x_okc_k_articles_tl_rec.name := l_okc_k_articles_tl_rec.name;
2761: END IF;
2762: -- Commented in favor of hand code
2759: THEN
2760: x_okc_k_articles_tl_rec.name := l_okc_k_articles_tl_rec.name;
2761: END IF;
2762: -- Commented in favor of hand code
2763: -- IF (x_okc_k_articles_tl_rec.text = OKC_API.G_MISS_CHAR)
2764: --+Hand code start
2765: -- IF (x_okc_k_articles_tl_rec.text is NULL)
2766: --+Hand code end
2767: -- THEN
2766: --+Hand code end
2767: -- THEN
2768: -- x_okc_k_articles_tl_rec.text := l_okc_k_articles_tl_rec.text;
2769: -- END IF;
2770: IF (x_okc_k_articles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2771: THEN
2772: x_okc_k_articles_tl_rec.created_by := l_okc_k_articles_tl_rec.created_by;
2773: END IF;
2774: IF (x_okc_k_articles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2770: IF (x_okc_k_articles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2771: THEN
2772: x_okc_k_articles_tl_rec.created_by := l_okc_k_articles_tl_rec.created_by;
2773: END IF;
2774: IF (x_okc_k_articles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2775: THEN
2776: x_okc_k_articles_tl_rec.creation_date := l_okc_k_articles_tl_rec.creation_date;
2777: END IF;
2778: IF (x_okc_k_articles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2774: IF (x_okc_k_articles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2775: THEN
2776: x_okc_k_articles_tl_rec.creation_date := l_okc_k_articles_tl_rec.creation_date;
2777: END IF;
2778: IF (x_okc_k_articles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2779: THEN
2780: x_okc_k_articles_tl_rec.last_updated_by := l_okc_k_articles_tl_rec.last_updated_by;
2781: END IF;
2782: IF (x_okc_k_articles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2778: IF (x_okc_k_articles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2779: THEN
2780: x_okc_k_articles_tl_rec.last_updated_by := l_okc_k_articles_tl_rec.last_updated_by;
2781: END IF;
2782: IF (x_okc_k_articles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2783: THEN
2784: x_okc_k_articles_tl_rec.last_update_date := l_okc_k_articles_tl_rec.last_update_date;
2785: END IF;
2786: IF (x_okc_k_articles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2782: IF (x_okc_k_articles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2783: THEN
2784: x_okc_k_articles_tl_rec.last_update_date := l_okc_k_articles_tl_rec.last_update_date;
2785: END IF;
2786: IF (x_okc_k_articles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2787: THEN
2788: x_okc_k_articles_tl_rec.last_update_login := l_okc_k_articles_tl_rec.last_update_login;
2789: END IF;
2790: IF (x_okc_k_articles_tl_rec.security_group_id = OKC_API.G_MISS_NUM)
2786: IF (x_okc_k_articles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2787: THEN
2788: x_okc_k_articles_tl_rec.last_update_login := l_okc_k_articles_tl_rec.last_update_login;
2789: END IF;
2790: IF (x_okc_k_articles_tl_rec.security_group_id = OKC_API.G_MISS_NUM)
2791: THEN
2792: x_okc_k_articles_tl_rec.security_group_id := l_okc_k_articles_tl_rec.security_group_id;
2793: END IF;
2794: IF (x_okc_k_articles_tl_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
2790: IF (x_okc_k_articles_tl_rec.security_group_id = OKC_API.G_MISS_NUM)
2791: THEN
2792: x_okc_k_articles_tl_rec.security_group_id := l_okc_k_articles_tl_rec.security_group_id;
2793: END IF;
2794: IF (x_okc_k_articles_tl_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
2795: THEN
2796: x_okc_k_articles_tl_rec.sav_sav_release := l_okc_k_articles_tl_rec.sav_sav_release;
2797: END IF;
2798: RETURN(l_return_status);
2803: FUNCTION Set_Attributes (
2804: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type,
2805: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type
2806: ) RETURN VARCHAR2 IS
2807: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2808: BEGIN
2809: x_okc_k_articles_tl_rec := p_okc_k_articles_tl_rec;
2810: x_okc_k_articles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
2811: x_okc_k_articles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2811: x_okc_k_articles_tl_rec.SOURCE_LANG := okc_util.get_userenv_lang;
2812: RETURN(l_return_status);
2813: END Set_Attributes;
2814: BEGIN
2815: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2816: p_init_msg_list,
2817: '_PVT',
2818: x_return_status);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2815: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2816: p_init_msg_list,
2817: '_PVT',
2818: x_return_status);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2822: RAISE OKC_API.G_EXCEPTION_ERROR;
2823: END IF;
2816: p_init_msg_list,
2817: '_PVT',
2818: x_return_status);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2822: RAISE OKC_API.G_EXCEPTION_ERROR;
2823: END IF;
2824: --- Setting item attributes
2817: '_PVT',
2818: x_return_status);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2822: RAISE OKC_API.G_EXCEPTION_ERROR;
2823: END IF;
2824: --- Setting item attributes
2825: l_return_status := Set_Attributes(
2818: x_return_status);
2819: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2820: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2821: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2822: RAISE OKC_API.G_EXCEPTION_ERROR;
2823: END IF;
2824: --- Setting item attributes
2825: l_return_status := Set_Attributes(
2826: p_okc_k_articles_tl_rec, -- IN
2825: l_return_status := Set_Attributes(
2826: p_okc_k_articles_tl_rec, -- IN
2827: l_okc_k_articles_tl_rec); -- OUT
2828: --- If any errors happen abort API
2829: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2826: p_okc_k_articles_tl_rec, -- IN
2827: l_okc_k_articles_tl_rec); -- OUT
2828: --- If any errors happen abort API
2829: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2834: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
2827: l_okc_k_articles_tl_rec); -- OUT
2828: --- If any errors happen abort API
2829: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2834: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
2835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2828: --- If any errors happen abort API
2829: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2830: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2834: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
2835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2831: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2834: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
2835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_ERROR;
2839: END IF;
2832: RAISE OKC_API.G_EXCEPTION_ERROR;
2833: END IF;
2834: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
2835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_ERROR;
2839: END IF;
2840: UPDATE OKC_K_ARTICLES_TL
2833: END IF;
2834: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
2835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_ERROR;
2839: END IF;
2840: UPDATE OKC_K_ARTICLES_TL
2841: SET OBJECT_VERSION_NUMBER = l_def_okc_k_articles_tl_rec.object_version_number,
2834: l_return_status := populate_new_record(l_okc_k_articles_tl_rec, l_def_okc_k_articles_tl_rec);
2835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_ERROR;
2839: END IF;
2840: UPDATE OKC_K_ARTICLES_TL
2841: SET OBJECT_VERSION_NUMBER = l_def_okc_k_articles_tl_rec.object_version_number,
2842: COMMENTS = l_def_okc_k_articles_tl_rec.comments,
2864: WHERE ID = l_def_okc_k_articles_tl_rec.id
2865: AND SOURCE_LANG <> USERENV('LANG');
2866:
2867: x_okc_k_articles_tl_rec := l_def_okc_k_articles_tl_rec;
2868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2869: EXCEPTION
2870: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2872: (
2866:
2867: x_okc_k_articles_tl_rec := l_def_okc_k_articles_tl_rec;
2868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2869: EXCEPTION
2870: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2872: (
2873: l_api_name,
2874: G_PKG_NAME,
2867: x_okc_k_articles_tl_rec := l_def_okc_k_articles_tl_rec;
2868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2869: EXCEPTION
2870: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2872: (
2873: l_api_name,
2874: G_PKG_NAME,
2875: 'OKC_API.G_RET_STS_ERROR',
2871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2872: (
2873: l_api_name,
2874: G_PKG_NAME,
2875: 'OKC_API.G_RET_STS_ERROR',
2876: x_msg_count,
2877: x_msg_data,
2878: '_PVT'
2879: );
2876: x_msg_count,
2877: x_msg_data,
2878: '_PVT'
2879: );
2880: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2881: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2882: (
2883: l_api_name,
2884: G_PKG_NAME,
2877: x_msg_data,
2878: '_PVT'
2879: );
2880: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2881: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2882: (
2883: l_api_name,
2884: G_PKG_NAME,
2885: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2881: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2882: (
2883: l_api_name,
2884: G_PKG_NAME,
2885: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2886: x_msg_count,
2887: x_msg_data,
2888: '_PVT'
2889: );
2887: x_msg_data,
2888: '_PVT'
2889: );
2890: WHEN OTHERS THEN
2891: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2892: (
2893: l_api_name,
2894: G_PKG_NAME,
2895: 'OTHERS',
2902: -- update_row for:OKC_K_ARTICLES_V --
2903: -------------------------------------
2904: PROCEDURE update_row(
2905: p_api_version IN NUMBER,
2906: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2907: x_return_status OUT NOCOPY VARCHAR2,
2908: x_msg_count OUT NOCOPY NUMBER,
2909: x_msg_data OUT NOCOPY VARCHAR2,
2910: p_catv_rec IN catv_rec_type,
2911: x_catv_rec OUT NOCOPY catv_rec_type) IS
2912:
2913: l_api_version CONSTANT NUMBER := 1;
2914: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2915: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2916: l_catv_rec catv_rec_type := p_catv_rec;
2917: l_def_catv_rec catv_rec_type;
2918: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
2919: lx_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
2940: x_catv_rec OUT NOCOPY catv_rec_type
2941: ) RETURN VARCHAR2 IS
2942: l_catv_rec catv_rec_type;
2943: l_row_notfound BOOLEAN := TRUE;
2944: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2945: BEGIN
2946: x_catv_rec := p_catv_rec;
2947: -- Get current database values
2948: l_catv_rec := get_rec(p_catv_rec, l_row_notfound);
2946: x_catv_rec := p_catv_rec;
2947: -- Get current database values
2948: l_catv_rec := get_rec(p_catv_rec, l_row_notfound);
2949: IF (l_row_notfound) THEN
2950: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2951: END IF;
2952: IF (x_catv_rec.id = OKC_API.G_MISS_NUM)
2953: THEN
2954: x_catv_rec.id := l_catv_rec.id;
2948: l_catv_rec := get_rec(p_catv_rec, l_row_notfound);
2949: IF (l_row_notfound) THEN
2950: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2951: END IF;
2952: IF (x_catv_rec.id = OKC_API.G_MISS_NUM)
2953: THEN
2954: x_catv_rec.id := l_catv_rec.id;
2955: END IF;
2956: IF (x_catv_rec.chr_id = OKC_API.G_MISS_NUM)
2952: IF (x_catv_rec.id = OKC_API.G_MISS_NUM)
2953: THEN
2954: x_catv_rec.id := l_catv_rec.id;
2955: END IF;
2956: IF (x_catv_rec.chr_id = OKC_API.G_MISS_NUM)
2957: THEN
2958: x_catv_rec.chr_id := l_catv_rec.chr_id;
2959: END IF;
2960: IF (x_catv_rec.cle_id = OKC_API.G_MISS_NUM)
2956: IF (x_catv_rec.chr_id = OKC_API.G_MISS_NUM)
2957: THEN
2958: x_catv_rec.chr_id := l_catv_rec.chr_id;
2959: END IF;
2960: IF (x_catv_rec.cle_id = OKC_API.G_MISS_NUM)
2961: THEN
2962: x_catv_rec.cle_id := l_catv_rec.cle_id;
2963: END IF;
2964: IF (x_catv_rec.cat_id = OKC_API.G_MISS_NUM)
2960: IF (x_catv_rec.cle_id = OKC_API.G_MISS_NUM)
2961: THEN
2962: x_catv_rec.cle_id := l_catv_rec.cle_id;
2963: END IF;
2964: IF (x_catv_rec.cat_id = OKC_API.G_MISS_NUM)
2965: THEN
2966: x_catv_rec.cat_id := l_catv_rec.cat_id;
2967: END IF;
2968: IF (x_catv_rec.object_version_number = OKC_API.G_MISS_NUM)
2964: IF (x_catv_rec.cat_id = OKC_API.G_MISS_NUM)
2965: THEN
2966: x_catv_rec.cat_id := l_catv_rec.cat_id;
2967: END IF;
2968: IF (x_catv_rec.object_version_number = OKC_API.G_MISS_NUM)
2969: THEN
2970: x_catv_rec.object_version_number := l_catv_rec.object_version_number;
2971: END IF;
2972: IF (x_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2968: IF (x_catv_rec.object_version_number = OKC_API.G_MISS_NUM)
2969: THEN
2970: x_catv_rec.object_version_number := l_catv_rec.object_version_number;
2971: END IF;
2972: IF (x_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2973: THEN
2974: x_catv_rec.sfwt_flag := l_catv_rec.sfwt_flag;
2975: END IF;
2976: IF (x_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM)
2972: IF (x_catv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2973: THEN
2974: x_catv_rec.sfwt_flag := l_catv_rec.sfwt_flag;
2975: END IF;
2976: IF (x_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM)
2977: THEN
2978: x_catv_rec.sav_sae_id := l_catv_rec.sav_sae_id;
2979: END IF;
2980: IF (x_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
2976: IF (x_catv_rec.sav_sae_id = OKC_API.G_MISS_NUM)
2977: THEN
2978: x_catv_rec.sav_sae_id := l_catv_rec.sav_sae_id;
2979: END IF;
2980: IF (x_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
2981: THEN
2982: x_catv_rec.sav_sav_release := l_catv_rec.sav_sav_release;
2983: END IF;
2984: IF (x_catv_rec.sbt_code = OKC_API.G_MISS_CHAR)
2980: IF (x_catv_rec.sav_sav_release = OKC_API.G_MISS_CHAR)
2981: THEN
2982: x_catv_rec.sav_sav_release := l_catv_rec.sav_sav_release;
2983: END IF;
2984: IF (x_catv_rec.sbt_code = OKC_API.G_MISS_CHAR)
2985: THEN
2986: x_catv_rec.sbt_code := l_catv_rec.sbt_code;
2987: END IF;
2988: IF (x_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2984: IF (x_catv_rec.sbt_code = OKC_API.G_MISS_CHAR)
2985: THEN
2986: x_catv_rec.sbt_code := l_catv_rec.sbt_code;
2987: END IF;
2988: IF (x_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2989: THEN
2990: x_catv_rec.dnz_chr_id := l_catv_rec.dnz_chr_id;
2991: END IF;
2992: IF (x_catv_rec.comments = OKC_API.G_MISS_CHAR)
2988: IF (x_catv_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2989: THEN
2990: x_catv_rec.dnz_chr_id := l_catv_rec.dnz_chr_id;
2991: END IF;
2992: IF (x_catv_rec.comments = OKC_API.G_MISS_CHAR)
2993: THEN
2994: x_catv_rec.comments := l_catv_rec.comments;
2995: END IF;
2996: IF (x_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
2992: IF (x_catv_rec.comments = OKC_API.G_MISS_CHAR)
2993: THEN
2994: x_catv_rec.comments := l_catv_rec.comments;
2995: END IF;
2996: IF (x_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
2997: THEN
2998: x_catv_rec.fulltext_yn := l_catv_rec.fulltext_yn;
2999: END IF;
3000: IF (x_catv_rec.variation_description = OKC_API.G_MISS_CHAR)
2996: IF (x_catv_rec.fulltext_yn = OKC_API.G_MISS_CHAR)
2997: THEN
2998: x_catv_rec.fulltext_yn := l_catv_rec.fulltext_yn;
2999: END IF;
3000: IF (x_catv_rec.variation_description = OKC_API.G_MISS_CHAR)
3001: THEN
3002: x_catv_rec.variation_description := l_catv_rec.variation_description;
3003: END IF;
3004: IF (x_catv_rec.name = OKC_API.G_MISS_CHAR)
3000: IF (x_catv_rec.variation_description = OKC_API.G_MISS_CHAR)
3001: THEN
3002: x_catv_rec.variation_description := l_catv_rec.variation_description;
3003: END IF;
3004: IF (x_catv_rec.name = OKC_API.G_MISS_CHAR)
3005: THEN
3006: x_catv_rec.name := l_catv_rec.name;
3007: END IF;
3008: -- Commented in favor of hand code
3005: THEN
3006: x_catv_rec.name := l_catv_rec.name;
3007: END IF;
3008: -- Commented in favor of hand code
3009: -- IF (x_catv_rec.text = OKC_API.G_MISS_CHAR)
3010: --+Hand code start
3011: -- IF (x_catv_rec.text is NULL)
3012: --+Hand code end
3013: -- THEN
3012: --+Hand code end
3013: -- THEN
3014: -- x_catv_rec.text := l_catv_rec.text;
3015: -- END IF;
3016: IF (x_catv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3017: THEN
3018: x_catv_rec.attribute_category := l_catv_rec.attribute_category;
3019: END IF;
3020: IF (x_catv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3016: IF (x_catv_rec.attribute_category = OKC_API.G_MISS_CHAR)
3017: THEN
3018: x_catv_rec.attribute_category := l_catv_rec.attribute_category;
3019: END IF;
3020: IF (x_catv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3021: THEN
3022: x_catv_rec.attribute1 := l_catv_rec.attribute1;
3023: END IF;
3024: IF (x_catv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3020: IF (x_catv_rec.attribute1 = OKC_API.G_MISS_CHAR)
3021: THEN
3022: x_catv_rec.attribute1 := l_catv_rec.attribute1;
3023: END IF;
3024: IF (x_catv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3025: THEN
3026: x_catv_rec.attribute2 := l_catv_rec.attribute2;
3027: END IF;
3028: IF (x_catv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3024: IF (x_catv_rec.attribute2 = OKC_API.G_MISS_CHAR)
3025: THEN
3026: x_catv_rec.attribute2 := l_catv_rec.attribute2;
3027: END IF;
3028: IF (x_catv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3029: THEN
3030: x_catv_rec.attribute3 := l_catv_rec.attribute3;
3031: END IF;
3032: IF (x_catv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3028: IF (x_catv_rec.attribute3 = OKC_API.G_MISS_CHAR)
3029: THEN
3030: x_catv_rec.attribute3 := l_catv_rec.attribute3;
3031: END IF;
3032: IF (x_catv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3033: THEN
3034: x_catv_rec.attribute4 := l_catv_rec.attribute4;
3035: END IF;
3036: IF (x_catv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3032: IF (x_catv_rec.attribute4 = OKC_API.G_MISS_CHAR)
3033: THEN
3034: x_catv_rec.attribute4 := l_catv_rec.attribute4;
3035: END IF;
3036: IF (x_catv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3037: THEN
3038: x_catv_rec.attribute5 := l_catv_rec.attribute5;
3039: END IF;
3040: IF (x_catv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3036: IF (x_catv_rec.attribute5 = OKC_API.G_MISS_CHAR)
3037: THEN
3038: x_catv_rec.attribute5 := l_catv_rec.attribute5;
3039: END IF;
3040: IF (x_catv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3041: THEN
3042: x_catv_rec.attribute6 := l_catv_rec.attribute6;
3043: END IF;
3044: IF (x_catv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3040: IF (x_catv_rec.attribute6 = OKC_API.G_MISS_CHAR)
3041: THEN
3042: x_catv_rec.attribute6 := l_catv_rec.attribute6;
3043: END IF;
3044: IF (x_catv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3045: THEN
3046: x_catv_rec.attribute7 := l_catv_rec.attribute7;
3047: END IF;
3048: IF (x_catv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3044: IF (x_catv_rec.attribute7 = OKC_API.G_MISS_CHAR)
3045: THEN
3046: x_catv_rec.attribute7 := l_catv_rec.attribute7;
3047: END IF;
3048: IF (x_catv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3049: THEN
3050: x_catv_rec.attribute8 := l_catv_rec.attribute8;
3051: END IF;
3052: IF (x_catv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3048: IF (x_catv_rec.attribute8 = OKC_API.G_MISS_CHAR)
3049: THEN
3050: x_catv_rec.attribute8 := l_catv_rec.attribute8;
3051: END IF;
3052: IF (x_catv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3053: THEN
3054: x_catv_rec.attribute9 := l_catv_rec.attribute9;
3055: END IF;
3056: IF (x_catv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3052: IF (x_catv_rec.attribute9 = OKC_API.G_MISS_CHAR)
3053: THEN
3054: x_catv_rec.attribute9 := l_catv_rec.attribute9;
3055: END IF;
3056: IF (x_catv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3057: THEN
3058: x_catv_rec.attribute10 := l_catv_rec.attribute10;
3059: END IF;
3060: IF (x_catv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3056: IF (x_catv_rec.attribute10 = OKC_API.G_MISS_CHAR)
3057: THEN
3058: x_catv_rec.attribute10 := l_catv_rec.attribute10;
3059: END IF;
3060: IF (x_catv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3061: THEN
3062: x_catv_rec.attribute11 := l_catv_rec.attribute11;
3063: END IF;
3064: IF (x_catv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3060: IF (x_catv_rec.attribute11 = OKC_API.G_MISS_CHAR)
3061: THEN
3062: x_catv_rec.attribute11 := l_catv_rec.attribute11;
3063: END IF;
3064: IF (x_catv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3065: THEN
3066: x_catv_rec.attribute12 := l_catv_rec.attribute12;
3067: END IF;
3068: IF (x_catv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3064: IF (x_catv_rec.attribute12 = OKC_API.G_MISS_CHAR)
3065: THEN
3066: x_catv_rec.attribute12 := l_catv_rec.attribute12;
3067: END IF;
3068: IF (x_catv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3069: THEN
3070: x_catv_rec.attribute13 := l_catv_rec.attribute13;
3071: END IF;
3072: IF (x_catv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3068: IF (x_catv_rec.attribute13 = OKC_API.G_MISS_CHAR)
3069: THEN
3070: x_catv_rec.attribute13 := l_catv_rec.attribute13;
3071: END IF;
3072: IF (x_catv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3073: THEN
3074: x_catv_rec.attribute14 := l_catv_rec.attribute14;
3075: END IF;
3076: IF (x_catv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3072: IF (x_catv_rec.attribute14 = OKC_API.G_MISS_CHAR)
3073: THEN
3074: x_catv_rec.attribute14 := l_catv_rec.attribute14;
3075: END IF;
3076: IF (x_catv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3077: THEN
3078: x_catv_rec.attribute15 := l_catv_rec.attribute15;
3079: END IF;
3080: IF (x_catv_rec.cat_type = OKC_API.G_MISS_CHAR)
3076: IF (x_catv_rec.attribute15 = OKC_API.G_MISS_CHAR)
3077: THEN
3078: x_catv_rec.attribute15 := l_catv_rec.attribute15;
3079: END IF;
3080: IF (x_catv_rec.cat_type = OKC_API.G_MISS_CHAR)
3081: THEN
3082: x_catv_rec.cat_type := l_catv_rec.cat_type;
3083: END IF;
3084: IF (x_catv_rec.created_by = OKC_API.G_MISS_NUM)
3080: IF (x_catv_rec.cat_type = OKC_API.G_MISS_CHAR)
3081: THEN
3082: x_catv_rec.cat_type := l_catv_rec.cat_type;
3083: END IF;
3084: IF (x_catv_rec.created_by = OKC_API.G_MISS_NUM)
3085: THEN
3086: x_catv_rec.created_by := l_catv_rec.created_by;
3087: END IF;
3088: IF (x_catv_rec.creation_date = OKC_API.G_MISS_DATE)
3084: IF (x_catv_rec.created_by = OKC_API.G_MISS_NUM)
3085: THEN
3086: x_catv_rec.created_by := l_catv_rec.created_by;
3087: END IF;
3088: IF (x_catv_rec.creation_date = OKC_API.G_MISS_DATE)
3089: THEN
3090: x_catv_rec.creation_date := l_catv_rec.creation_date;
3091: END IF;
3092: IF (x_catv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3088: IF (x_catv_rec.creation_date = OKC_API.G_MISS_DATE)
3089: THEN
3090: x_catv_rec.creation_date := l_catv_rec.creation_date;
3091: END IF;
3092: IF (x_catv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3093: THEN
3094: x_catv_rec.last_updated_by := l_catv_rec.last_updated_by;
3095: END IF;
3096: IF (x_catv_rec.last_update_date = OKC_API.G_MISS_DATE)
3092: IF (x_catv_rec.last_updated_by = OKC_API.G_MISS_NUM)
3093: THEN
3094: x_catv_rec.last_updated_by := l_catv_rec.last_updated_by;
3095: END IF;
3096: IF (x_catv_rec.last_update_date = OKC_API.G_MISS_DATE)
3097: THEN
3098: x_catv_rec.last_update_date := l_catv_rec.last_update_date;
3099: END IF;
3100: IF (x_catv_rec.last_update_login = OKC_API.G_MISS_NUM)
3096: IF (x_catv_rec.last_update_date = OKC_API.G_MISS_DATE)
3097: THEN
3098: x_catv_rec.last_update_date := l_catv_rec.last_update_date;
3099: END IF;
3100: IF (x_catv_rec.last_update_login = OKC_API.G_MISS_NUM)
3101: THEN
3102: x_catv_rec.last_update_login := l_catv_rec.last_update_login;
3103: END IF;
3104: RETURN(l_return_status);
3109: FUNCTION Set_Attributes (
3110: p_catv_rec IN catv_rec_type,
3111: x_catv_rec OUT NOCOPY catv_rec_type
3112: ) RETURN VARCHAR2 IS
3113: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3114: BEGIN
3115: x_catv_rec := p_catv_rec;
3116: x_catv_rec.OBJECT_VERSION_NUMBER := NVL(x_catv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3117: RETURN(l_return_status);
3116: x_catv_rec.OBJECT_VERSION_NUMBER := NVL(x_catv_rec.OBJECT_VERSION_NUMBER, 0) + 1;
3117: RETURN(l_return_status);
3118: END Set_Attributes;
3119: BEGIN
3120: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3121: G_PKG_NAME,
3122: p_init_msg_list,
3123: l_api_version,
3124: p_api_version,
3123: l_api_version,
3124: p_api_version,
3125: '_PVT',
3126: x_return_status);
3127: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3128: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3130: RAISE OKC_API.G_EXCEPTION_ERROR;
3131: END IF;
3124: p_api_version,
3125: '_PVT',
3126: x_return_status);
3127: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3128: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3130: RAISE OKC_API.G_EXCEPTION_ERROR;
3131: END IF;
3132: --- Setting item attributes
3125: '_PVT',
3126: x_return_status);
3127: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3128: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3130: RAISE OKC_API.G_EXCEPTION_ERROR;
3131: END IF;
3132: --- Setting item attributes
3133: l_return_status := Set_Attributes(
3126: x_return_status);
3127: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3128: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3130: RAISE OKC_API.G_EXCEPTION_ERROR;
3131: END IF;
3132: --- Setting item attributes
3133: l_return_status := Set_Attributes(
3134: p_catv_rec, -- IN
3133: l_return_status := Set_Attributes(
3134: p_catv_rec, -- IN
3135: l_catv_rec); -- OUT
3136: --- If any errors happen abort API
3137: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3138: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3139: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3140: RAISE OKC_API.G_EXCEPTION_ERROR;
3141: END IF;
3134: p_catv_rec, -- IN
3135: l_catv_rec); -- OUT
3136: --- If any errors happen abort API
3137: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3138: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3139: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3140: RAISE OKC_API.G_EXCEPTION_ERROR;
3141: END IF;
3142: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3135: l_catv_rec); -- OUT
3136: --- If any errors happen abort API
3137: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3138: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3139: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3140: RAISE OKC_API.G_EXCEPTION_ERROR;
3141: END IF;
3142: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3136: --- If any errors happen abort API
3137: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3138: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3139: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3140: RAISE OKC_API.G_EXCEPTION_ERROR;
3141: END IF;
3142: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3139: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3140: RAISE OKC_API.G_EXCEPTION_ERROR;
3141: END IF;
3142: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3146: RAISE OKC_API.G_EXCEPTION_ERROR;
3147: END IF;
3140: RAISE OKC_API.G_EXCEPTION_ERROR;
3141: END IF;
3142: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3146: RAISE OKC_API.G_EXCEPTION_ERROR;
3147: END IF;
3148: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
3141: END IF;
3142: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3146: RAISE OKC_API.G_EXCEPTION_ERROR;
3147: END IF;
3148: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
3149: --- Validate all non-missing attributes (Item Level Validation)
3142: l_return_status := populate_new_record(l_catv_rec, l_def_catv_rec);
3143: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3144: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3145: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3146: RAISE OKC_API.G_EXCEPTION_ERROR;
3147: END IF;
3148: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
3149: --- Validate all non-missing attributes (Item Level Validation)
3150: l_return_status := Validate_Attributes(l_def_catv_rec);
3148: l_def_catv_rec := fill_who_columns(l_def_catv_rec);
3149: --- Validate all non-missing attributes (Item Level Validation)
3150: l_return_status := Validate_Attributes(l_def_catv_rec);
3151: --- If any errors happen abort API
3152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3155: RAISE OKC_API.G_EXCEPTION_ERROR;
3156: END IF;
3149: --- Validate all non-missing attributes (Item Level Validation)
3150: l_return_status := Validate_Attributes(l_def_catv_rec);
3151: --- If any errors happen abort API
3152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3155: RAISE OKC_API.G_EXCEPTION_ERROR;
3156: END IF;
3157: l_return_status := Validate_Record(l_def_catv_rec);
3150: l_return_status := Validate_Attributes(l_def_catv_rec);
3151: --- If any errors happen abort API
3152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3155: RAISE OKC_API.G_EXCEPTION_ERROR;
3156: END IF;
3157: l_return_status := Validate_Record(l_def_catv_rec);
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3151: --- If any errors happen abort API
3152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3155: RAISE OKC_API.G_EXCEPTION_ERROR;
3156: END IF;
3157: l_return_status := Validate_Record(l_def_catv_rec);
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3154: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3155: RAISE OKC_API.G_EXCEPTION_ERROR;
3156: END IF;
3157: l_return_status := Validate_Record(l_def_catv_rec);
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3155: RAISE OKC_API.G_EXCEPTION_ERROR;
3156: END IF;
3157: l_return_status := Validate_Record(l_def_catv_rec);
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3163:
3156: END IF;
3157: l_return_status := Validate_Record(l_def_catv_rec);
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3163:
3164: --------------------------------------
3157: l_return_status := Validate_Record(l_def_catv_rec);
3158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3161: RAISE OKC_API.G_EXCEPTION_ERROR;
3162: END IF;
3163:
3164: --------------------------------------
3165: -- Move VIEW record to "Child" records
3176: x_msg_data,
3177: l_okc_k_articles_tl_rec,
3178: lx_okc_k_articles_tl_rec
3179: );
3180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3183: RAISE OKC_API.G_EXCEPTION_ERROR;
3184: END IF;
3177: l_okc_k_articles_tl_rec,
3178: lx_okc_k_articles_tl_rec
3179: );
3180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3183: RAISE OKC_API.G_EXCEPTION_ERROR;
3184: END IF;
3185: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
3178: lx_okc_k_articles_tl_rec
3179: );
3180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3183: RAISE OKC_API.G_EXCEPTION_ERROR;
3184: END IF;
3185: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
3186: update_row(
3179: );
3180: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3183: RAISE OKC_API.G_EXCEPTION_ERROR;
3184: END IF;
3185: migrate(lx_okc_k_articles_tl_rec, l_def_catv_rec);
3186: update_row(
3187: p_init_msg_list,
3190: x_msg_data,
3191: l_cat_rec,
3192: lx_cat_rec
3193: );
3194: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3195: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3196: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3197: RAISE OKC_API.G_EXCEPTION_ERROR;
3198: END IF;
3191: l_cat_rec,
3192: lx_cat_rec
3193: );
3194: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3195: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3196: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3197: RAISE OKC_API.G_EXCEPTION_ERROR;
3198: END IF;
3199: migrate(lx_cat_rec, l_def_catv_rec);
3192: lx_cat_rec
3193: );
3194: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3195: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3196: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3197: RAISE OKC_API.G_EXCEPTION_ERROR;
3198: END IF;
3199: migrate(lx_cat_rec, l_def_catv_rec);
3200: x_catv_rec := l_def_catv_rec;
3193: );
3194: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3195: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3196: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3197: RAISE OKC_API.G_EXCEPTION_ERROR;
3198: END IF;
3199: migrate(lx_cat_rec, l_def_catv_rec);
3200: x_catv_rec := l_def_catv_rec;
3201: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3197: RAISE OKC_API.G_EXCEPTION_ERROR;
3198: END IF;
3199: migrate(lx_cat_rec, l_def_catv_rec);
3200: x_catv_rec := l_def_catv_rec;
3201: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3202: EXCEPTION
3203: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3204: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3205: (
3199: migrate(lx_cat_rec, l_def_catv_rec);
3200: x_catv_rec := l_def_catv_rec;
3201: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3202: EXCEPTION
3203: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3204: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3205: (
3206: l_api_name,
3207: G_PKG_NAME,
3200: x_catv_rec := l_def_catv_rec;
3201: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3202: EXCEPTION
3203: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3204: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3205: (
3206: l_api_name,
3207: G_PKG_NAME,
3208: 'OKC_API.G_RET_STS_ERROR',
3204: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3205: (
3206: l_api_name,
3207: G_PKG_NAME,
3208: 'OKC_API.G_RET_STS_ERROR',
3209: x_msg_count,
3210: x_msg_data,
3211: '_PVT'
3212: );
3209: x_msg_count,
3210: x_msg_data,
3211: '_PVT'
3212: );
3213: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3214: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3215: (
3216: l_api_name,
3217: G_PKG_NAME,
3210: x_msg_data,
3211: '_PVT'
3212: );
3213: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3214: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3215: (
3216: l_api_name,
3217: G_PKG_NAME,
3218: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3214: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3215: (
3216: l_api_name,
3217: G_PKG_NAME,
3218: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3219: x_msg_count,
3220: x_msg_data,
3221: '_PVT'
3222: );
3220: x_msg_data,
3221: '_PVT'
3222: );
3223: WHEN OTHERS THEN
3224: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3225: (
3226: l_api_name,
3227: G_PKG_NAME,
3228: 'OTHERS',
3235: -- PL/SQL TBL update_row for:CATV_TBL --
3236: ----------------------------------------
3237: PROCEDURE update_row(
3238: p_api_version IN NUMBER,
3239: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3240: x_return_status OUT NOCOPY VARCHAR2,
3241: x_msg_count OUT NOCOPY NUMBER,
3242: x_msg_data OUT NOCOPY VARCHAR2,
3243: p_catv_tbl IN catv_tbl_type,
3244: x_catv_tbl OUT NOCOPY catv_tbl_type) IS
3245:
3246: l_api_version CONSTANT NUMBER := 1;
3247: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3248: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3249: i NUMBER := 0;
3250: BEGIN
3251: OKC_API.init_msg_list(p_init_msg_list);
3252: -- Make sure PL/SQL table has records in it before passing
3247: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3248: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3249: i NUMBER := 0;
3250: BEGIN
3251: OKC_API.init_msg_list(p_init_msg_list);
3252: -- Make sure PL/SQL table has records in it before passing
3253: IF (p_catv_tbl.COUNT > 0) THEN
3254: i := p_catv_tbl.FIRST;
3255: LOOP
3254: i := p_catv_tbl.FIRST;
3255: LOOP
3256: update_row (
3257: p_api_version => p_api_version,
3258: p_init_msg_list => OKC_API.G_FALSE,
3259: x_return_status => x_return_status,
3260: x_msg_count => x_msg_count,
3261: x_msg_data => x_msg_data,
3262: p_catv_rec => p_catv_tbl(i),
3265: i := p_catv_tbl.NEXT(i);
3266: END LOOP;
3267: END IF;
3268: EXCEPTION
3269: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3271: (
3272: l_api_name,
3273: G_PKG_NAME,
3266: END LOOP;
3267: END IF;
3268: EXCEPTION
3269: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3271: (
3272: l_api_name,
3273: G_PKG_NAME,
3274: 'OKC_API.G_RET_STS_ERROR',
3270: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3271: (
3272: l_api_name,
3273: G_PKG_NAME,
3274: 'OKC_API.G_RET_STS_ERROR',
3275: x_msg_count,
3276: x_msg_data,
3277: '_PVT'
3278: );
3275: x_msg_count,
3276: x_msg_data,
3277: '_PVT'
3278: );
3279: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3280: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3281: (
3282: l_api_name,
3283: G_PKG_NAME,
3276: x_msg_data,
3277: '_PVT'
3278: );
3279: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3280: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3281: (
3282: l_api_name,
3283: G_PKG_NAME,
3284: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3280: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3281: (
3282: l_api_name,
3283: G_PKG_NAME,
3284: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3285: x_msg_count,
3286: x_msg_data,
3287: '_PVT'
3288: );
3286: x_msg_data,
3287: '_PVT'
3288: );
3289: WHEN OTHERS THEN
3290: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3291: (
3292: l_api_name,
3293: G_PKG_NAME,
3294: 'OTHERS',
3304: -------------------------------------
3305: -- delete_row for:OKC_K_ARTICLES_B --
3306: -------------------------------------
3307: PROCEDURE delete_row(
3308: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3309: x_return_status OUT NOCOPY VARCHAR2,
3310: x_msg_count OUT NOCOPY NUMBER,
3311: x_msg_data OUT NOCOPY VARCHAR2,
3312: p_cat_rec IN cat_rec_type) IS
3312: p_cat_rec IN cat_rec_type) IS
3313:
3314: l_api_version CONSTANT NUMBER := 1;
3315: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3316: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3317: l_cat_rec cat_rec_type:= p_cat_rec;
3318: l_row_notfound BOOLEAN := TRUE;
3319: BEGIN
3320: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3316: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3317: l_cat_rec cat_rec_type:= p_cat_rec;
3318: l_row_notfound BOOLEAN := TRUE;
3319: BEGIN
3320: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3321: p_init_msg_list,
3322: '_PVT',
3323: x_return_status);
3324: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3320: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3321: p_init_msg_list,
3322: '_PVT',
3323: x_return_status);
3324: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3327: RAISE OKC_API.G_EXCEPTION_ERROR;
3328: END IF;
3321: p_init_msg_list,
3322: '_PVT',
3323: x_return_status);
3324: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3327: RAISE OKC_API.G_EXCEPTION_ERROR;
3328: END IF;
3329: DELETE FROM OKC_K_ARTICLES_B
3322: '_PVT',
3323: x_return_status);
3324: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3327: RAISE OKC_API.G_EXCEPTION_ERROR;
3328: END IF;
3329: DELETE FROM OKC_K_ARTICLES_B
3330: WHERE ID = l_cat_rec.id;
3323: x_return_status);
3324: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3325: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3326: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3327: RAISE OKC_API.G_EXCEPTION_ERROR;
3328: END IF;
3329: DELETE FROM OKC_K_ARTICLES_B
3330: WHERE ID = l_cat_rec.id;
3331:
3328: END IF;
3329: DELETE FROM OKC_K_ARTICLES_B
3330: WHERE ID = l_cat_rec.id;
3331:
3332: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3333: EXCEPTION
3334: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3336: (
3330: WHERE ID = l_cat_rec.id;
3331:
3332: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3333: EXCEPTION
3334: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3336: (
3337: l_api_name,
3338: G_PKG_NAME,
3331:
3332: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3333: EXCEPTION
3334: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3336: (
3337: l_api_name,
3338: G_PKG_NAME,
3339: 'OKC_API.G_RET_STS_ERROR',
3335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3336: (
3337: l_api_name,
3338: G_PKG_NAME,
3339: 'OKC_API.G_RET_STS_ERROR',
3340: x_msg_count,
3341: x_msg_data,
3342: '_PVT'
3343: );
3340: x_msg_count,
3341: x_msg_data,
3342: '_PVT'
3343: );
3344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3345: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3346: (
3347: l_api_name,
3348: G_PKG_NAME,
3341: x_msg_data,
3342: '_PVT'
3343: );
3344: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3345: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3346: (
3347: l_api_name,
3348: G_PKG_NAME,
3349: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3345: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3346: (
3347: l_api_name,
3348: G_PKG_NAME,
3349: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3350: x_msg_count,
3351: x_msg_data,
3352: '_PVT'
3353: );
3351: x_msg_data,
3352: '_PVT'
3353: );
3354: WHEN OTHERS THEN
3355: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3356: (
3357: l_api_name,
3358: G_PKG_NAME,
3359: 'OTHERS',
3365: --------------------------------------
3366: -- delete_row for:OKC_K_ARTICLES_TL --
3367: --------------------------------------
3368: PROCEDURE delete_row(
3369: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3370: x_return_status OUT NOCOPY VARCHAR2,
3371: x_msg_count OUT NOCOPY NUMBER,
3372: x_msg_data OUT NOCOPY VARCHAR2,
3373: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type) IS
3373: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type) IS
3374:
3375: l_api_version CONSTANT NUMBER := 1;
3376: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3377: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3378: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type:= p_okc_k_articles_tl_rec;
3379: l_row_notfound BOOLEAN := TRUE;
3380: ------------------------------------------
3381: -- Set_Attributes for:OKC_K_ARTICLES_TL --
3383: FUNCTION Set_Attributes (
3384: p_okc_k_articles_tl_rec IN okc_k_articles_tl_rec_type,
3385: x_okc_k_articles_tl_rec OUT NOCOPY okc_k_articles_tl_rec_type
3386: ) RETURN VARCHAR2 IS
3387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3388: BEGIN
3389: x_okc_k_articles_tl_rec := p_okc_k_articles_tl_rec;
3390: x_okc_k_articles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3391: RETURN(l_return_status);
3390: x_okc_k_articles_tl_rec.LANGUAGE := okc_util.get_userenv_lang;
3391: RETURN(l_return_status);
3392: END Set_Attributes;
3393: BEGIN
3394: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3395: p_init_msg_list,
3396: '_PVT',
3397: x_return_status);
3398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3394: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3395: p_init_msg_list,
3396: '_PVT',
3397: x_return_status);
3398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3401: RAISE OKC_API.G_EXCEPTION_ERROR;
3402: END IF;
3395: p_init_msg_list,
3396: '_PVT',
3397: x_return_status);
3398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3401: RAISE OKC_API.G_EXCEPTION_ERROR;
3402: END IF;
3403: --- Setting item attributes
3396: '_PVT',
3397: x_return_status);
3398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3401: RAISE OKC_API.G_EXCEPTION_ERROR;
3402: END IF;
3403: --- Setting item attributes
3404: l_return_status := Set_Attributes(
3397: x_return_status);
3398: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3399: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3400: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3401: RAISE OKC_API.G_EXCEPTION_ERROR;
3402: END IF;
3403: --- Setting item attributes
3404: l_return_status := Set_Attributes(
3405: p_okc_k_articles_tl_rec, -- IN
3404: l_return_status := Set_Attributes(
3405: p_okc_k_articles_tl_rec, -- IN
3406: l_okc_k_articles_tl_rec); -- OUT
3407: --- If any errors happen abort API
3408: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKC_API.G_EXCEPTION_ERROR;
3412: END IF;
3405: p_okc_k_articles_tl_rec, -- IN
3406: l_okc_k_articles_tl_rec); -- OUT
3407: --- If any errors happen abort API
3408: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKC_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: DELETE FROM OKC_K_ARTICLES_TL
3406: l_okc_k_articles_tl_rec); -- OUT
3407: --- If any errors happen abort API
3408: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKC_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: DELETE FROM OKC_K_ARTICLES_TL
3414: WHERE ID = l_okc_k_articles_tl_rec.id;
3407: --- If any errors happen abort API
3408: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3409: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3410: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3411: RAISE OKC_API.G_EXCEPTION_ERROR;
3412: END IF;
3413: DELETE FROM OKC_K_ARTICLES_TL
3414: WHERE ID = l_okc_k_articles_tl_rec.id;
3415:
3412: END IF;
3413: DELETE FROM OKC_K_ARTICLES_TL
3414: WHERE ID = l_okc_k_articles_tl_rec.id;
3415:
3416: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3417: EXCEPTION
3418: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3419: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3420: (
3414: WHERE ID = l_okc_k_articles_tl_rec.id;
3415:
3416: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3417: EXCEPTION
3418: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3419: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3420: (
3421: l_api_name,
3422: G_PKG_NAME,
3415:
3416: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3417: EXCEPTION
3418: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3419: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3420: (
3421: l_api_name,
3422: G_PKG_NAME,
3423: 'OKC_API.G_RET_STS_ERROR',
3419: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3420: (
3421: l_api_name,
3422: G_PKG_NAME,
3423: 'OKC_API.G_RET_STS_ERROR',
3424: x_msg_count,
3425: x_msg_data,
3426: '_PVT'
3427: );
3424: x_msg_count,
3425: x_msg_data,
3426: '_PVT'
3427: );
3428: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3429: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3430: (
3431: l_api_name,
3432: G_PKG_NAME,
3425: x_msg_data,
3426: '_PVT'
3427: );
3428: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3429: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3430: (
3431: l_api_name,
3432: G_PKG_NAME,
3433: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3429: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3430: (
3431: l_api_name,
3432: G_PKG_NAME,
3433: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3434: x_msg_count,
3435: x_msg_data,
3436: '_PVT'
3437: );
3435: x_msg_data,
3436: '_PVT'
3437: );
3438: WHEN OTHERS THEN
3439: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3440: (
3441: l_api_name,
3442: G_PKG_NAME,
3443: 'OTHERS',
3450: -- delete_row for:OKC_K_ARTICLES_V --
3451: -------------------------------------
3452: PROCEDURE delete_row(
3453: p_api_version IN NUMBER,
3454: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3455: x_return_status OUT NOCOPY VARCHAR2,
3456: x_msg_count OUT NOCOPY NUMBER,
3457: x_msg_data OUT NOCOPY VARCHAR2,
3458: p_catv_rec IN catv_rec_type) IS
3458: p_catv_rec IN catv_rec_type) IS
3459:
3460: l_api_version CONSTANT NUMBER := 1;
3461: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3462: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3463: l_catv_rec catv_rec_type := p_catv_rec;
3464: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
3465: l_cat_rec cat_rec_type;
3466: BEGIN
3463: l_catv_rec catv_rec_type := p_catv_rec;
3464: l_okc_k_articles_tl_rec okc_k_articles_tl_rec_type;
3465: l_cat_rec cat_rec_type;
3466: BEGIN
3467: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3468: G_PKG_NAME,
3469: p_init_msg_list,
3470: l_api_version,
3471: p_api_version,
3470: l_api_version,
3471: p_api_version,
3472: '_PVT',
3473: x_return_status);
3474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3476: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3477: RAISE OKC_API.G_EXCEPTION_ERROR;
3478: END IF;
3471: p_api_version,
3472: '_PVT',
3473: x_return_status);
3474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3476: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3477: RAISE OKC_API.G_EXCEPTION_ERROR;
3478: END IF;
3479: --------------------------------------
3472: '_PVT',
3473: x_return_status);
3474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3476: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3477: RAISE OKC_API.G_EXCEPTION_ERROR;
3478: END IF;
3479: --------------------------------------
3480: -- Move VIEW record to "Child" records
3473: x_return_status);
3474: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3475: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3476: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3477: RAISE OKC_API.G_EXCEPTION_ERROR;
3478: END IF;
3479: --------------------------------------
3480: -- Move VIEW record to "Child" records
3481: --------------------------------------
3490: x_msg_count,
3491: x_msg_data,
3492: l_okc_k_articles_tl_rec
3493: );
3494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3497: RAISE OKC_API.G_EXCEPTION_ERROR;
3498: END IF;
3491: x_msg_data,
3492: l_okc_k_articles_tl_rec
3493: );
3494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3497: RAISE OKC_API.G_EXCEPTION_ERROR;
3498: END IF;
3499: delete_row(
3492: l_okc_k_articles_tl_rec
3493: );
3494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3497: RAISE OKC_API.G_EXCEPTION_ERROR;
3498: END IF;
3499: delete_row(
3500: p_init_msg_list,
3493: );
3494: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3495: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3496: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3497: RAISE OKC_API.G_EXCEPTION_ERROR;
3498: END IF;
3499: delete_row(
3500: p_init_msg_list,
3501: x_return_status,
3502: x_msg_count,
3503: x_msg_data,
3504: l_cat_rec
3505: );
3506: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3507: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3508: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3509: RAISE OKC_API.G_EXCEPTION_ERROR;
3510: END IF;
3503: x_msg_data,
3504: l_cat_rec
3505: );
3506: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3507: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3508: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3509: RAISE OKC_API.G_EXCEPTION_ERROR;
3510: END IF;
3511: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3504: l_cat_rec
3505: );
3506: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3507: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3508: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3509: RAISE OKC_API.G_EXCEPTION_ERROR;
3510: END IF;
3511: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3512: EXCEPTION
3505: );
3506: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3507: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3508: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3509: RAISE OKC_API.G_EXCEPTION_ERROR;
3510: END IF;
3511: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3512: EXCEPTION
3513: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3507: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3508: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3509: RAISE OKC_API.G_EXCEPTION_ERROR;
3510: END IF;
3511: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3512: EXCEPTION
3513: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3515: (
3509: RAISE OKC_API.G_EXCEPTION_ERROR;
3510: END IF;
3511: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3512: EXCEPTION
3513: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3515: (
3516: l_api_name,
3517: G_PKG_NAME,
3510: END IF;
3511: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3512: EXCEPTION
3513: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3515: (
3516: l_api_name,
3517: G_PKG_NAME,
3518: 'OKC_API.G_RET_STS_ERROR',
3514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3515: (
3516: l_api_name,
3517: G_PKG_NAME,
3518: 'OKC_API.G_RET_STS_ERROR',
3519: x_msg_count,
3520: x_msg_data,
3521: '_PVT'
3522: );
3519: x_msg_count,
3520: x_msg_data,
3521: '_PVT'
3522: );
3523: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3524: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3525: (
3526: l_api_name,
3527: G_PKG_NAME,
3520: x_msg_data,
3521: '_PVT'
3522: );
3523: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3524: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3525: (
3526: l_api_name,
3527: G_PKG_NAME,
3528: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3524: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3525: (
3526: l_api_name,
3527: G_PKG_NAME,
3528: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3529: x_msg_count,
3530: x_msg_data,
3531: '_PVT'
3532: );
3530: x_msg_data,
3531: '_PVT'
3532: );
3533: WHEN OTHERS THEN
3534: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3535: (
3536: l_api_name,
3537: G_PKG_NAME,
3538: 'OTHERS',
3545: -- PL/SQL TBL delete_row for:CATV_TBL --
3546: ----------------------------------------
3547: PROCEDURE delete_row(
3548: p_api_version IN NUMBER,
3549: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3550: x_return_status OUT NOCOPY VARCHAR2,
3551: x_msg_count OUT NOCOPY NUMBER,
3552: x_msg_data OUT NOCOPY VARCHAR2,
3553: p_catv_tbl IN catv_tbl_type) IS
3553: p_catv_tbl IN catv_tbl_type) IS
3554:
3555: l_api_version CONSTANT NUMBER := 1;
3556: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3557: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3558: i NUMBER := 0;
3559: BEGIN
3560: OKC_API.init_msg_list(p_init_msg_list);
3561: -- Make sure PL/SQL table has records in it before passing
3556: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3557: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3558: i NUMBER := 0;
3559: BEGIN
3560: OKC_API.init_msg_list(p_init_msg_list);
3561: -- Make sure PL/SQL table has records in it before passing
3562: IF (p_catv_tbl.COUNT > 0) THEN
3563: i := p_catv_tbl.FIRST;
3564: LOOP
3563: i := p_catv_tbl.FIRST;
3564: LOOP
3565: delete_row (
3566: p_api_version => p_api_version,
3567: p_init_msg_list => OKC_API.G_FALSE,
3568: x_return_status => x_return_status,
3569: x_msg_count => x_msg_count,
3570: x_msg_data => x_msg_data,
3571: p_catv_rec => p_catv_tbl(i));
3573: i := p_catv_tbl.NEXT(i);
3574: END LOOP;
3575: END IF;
3576: EXCEPTION
3577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3579: (
3580: l_api_name,
3581: G_PKG_NAME,
3574: END LOOP;
3575: END IF;
3576: EXCEPTION
3577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3579: (
3580: l_api_name,
3581: G_PKG_NAME,
3582: 'OKC_API.G_RET_STS_ERROR',
3578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3579: (
3580: l_api_name,
3581: G_PKG_NAME,
3582: 'OKC_API.G_RET_STS_ERROR',
3583: x_msg_count,
3584: x_msg_data,
3585: '_PVT'
3586: );
3583: x_msg_count,
3584: x_msg_data,
3585: '_PVT'
3586: );
3587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3588: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3589: (
3590: l_api_name,
3591: G_PKG_NAME,
3584: x_msg_data,
3585: '_PVT'
3586: );
3587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3588: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3589: (
3590: l_api_name,
3591: G_PKG_NAME,
3592: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3588: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3589: (
3590: l_api_name,
3591: G_PKG_NAME,
3592: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3593: x_msg_count,
3594: x_msg_data,
3595: '_PVT'
3596: );
3594: x_msg_data,
3595: '_PVT'
3596: );
3597: WHEN OTHERS THEN
3598: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3599: (
3600: l_api_name,
3601: G_PKG_NAME,
3602: 'OTHERS',
3821: p_chr_id IN NUMBER,
3822: p_major_version IN NUMBER
3823: ) RETURN VARCHAR2 IS
3824:
3825: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
3826:
3827: BEGIN
3828: INSERT INTO okc_k_articles_bh
3829: (
3948: EXCEPTION
3949: -- other appropriate handlers
3950: WHEN OTHERS THEN
3951: -- store SQL error message on message stack
3952: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
3953: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
3954: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
3955: p_token1_value => sqlcode,
3956: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3956: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
3957: p_token2_value => sqlerrm);
3958:
3959: -- notify UNEXPECTED error
3960: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3961: return l_return_status;
3962: END create_version;
3963:
3964: --This Function is called from Versioning API OKC_VERSION_PVT
3969: p_chr_id IN NUMBER,
3970: p_major_version IN NUMBER
3971: ) RETURN VARCHAR2 IS
3972:
3973: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
3974:
3975: BEGIN
3976: INSERT INTO okc_k_articles_tl
3977: (
4095: EXCEPTION
4096: -- other appropriate handlers
4097: WHEN OTHERS THEN
4098: -- store SQL error message on message stack
4099: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
4100: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
4101: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
4102: p_token1_value => sqlcode,
4103: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4103: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
4104: p_token2_value => sqlerrm);
4105:
4106: -- notify UNEXPECTED error
4107: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4108: return l_return_status;
4109: END restore_version;
4110:
4111: END; -- Package Body OKL_VP_CAT_PVT