[Home] [Help]
397: p_lsev_rec IN lsev_rec_type
398: ) RETURN lsev_rec_type IS
399: l_lsev_rec lsev_rec_type := p_lsev_rec;
400: BEGIN
401: IF (l_lsev_rec.lty_code = OKC_API.G_MISS_CHAR) THEN
402: l_lsev_rec.lty_code := NULL;
403: END IF;
404: IF (l_lsev_rec.priced_yn = OKC_API.G_MISS_CHAR) THEN
405: l_lsev_rec.priced_yn := NULL;
400: BEGIN
401: IF (l_lsev_rec.lty_code = OKC_API.G_MISS_CHAR) THEN
402: l_lsev_rec.lty_code := NULL;
403: END IF;
404: IF (l_lsev_rec.priced_yn = OKC_API.G_MISS_CHAR) THEN
405: l_lsev_rec.priced_yn := NULL;
406: END IF;
407: IF (l_lsev_rec.recursive_yn = OKC_API.G_MISS_CHAR) THEN
408: l_lsev_rec.recursive_yn := NULL;
403: END IF;
404: IF (l_lsev_rec.priced_yn = OKC_API.G_MISS_CHAR) THEN
405: l_lsev_rec.priced_yn := NULL;
406: END IF;
407: IF (l_lsev_rec.recursive_yn = OKC_API.G_MISS_CHAR) THEN
408: l_lsev_rec.recursive_yn := NULL;
409: END IF;
410: IF (l_lsev_rec.protected_yn = OKC_API.G_MISS_CHAR) THEN
411: l_lsev_rec.protected_yn := NULL;
406: END IF;
407: IF (l_lsev_rec.recursive_yn = OKC_API.G_MISS_CHAR) THEN
408: l_lsev_rec.recursive_yn := NULL;
409: END IF;
410: IF (l_lsev_rec.protected_yn = OKC_API.G_MISS_CHAR) THEN
411: l_lsev_rec.protected_yn := NULL;
412: END IF;
413: IF (l_lsev_rec.lse_parent_id = OKC_API.G_MISS_NUM) THEN
414: l_lsev_rec.lse_parent_id := NULL;
409: END IF;
410: IF (l_lsev_rec.protected_yn = OKC_API.G_MISS_CHAR) THEN
411: l_lsev_rec.protected_yn := NULL;
412: END IF;
413: IF (l_lsev_rec.lse_parent_id = OKC_API.G_MISS_NUM) THEN
414: l_lsev_rec.lse_parent_id := NULL;
415: END IF;
416: IF (l_lsev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
417: l_lsev_rec.object_version_number := NULL;
412: END IF;
413: IF (l_lsev_rec.lse_parent_id = OKC_API.G_MISS_NUM) THEN
414: l_lsev_rec.lse_parent_id := NULL;
415: END IF;
416: IF (l_lsev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
417: l_lsev_rec.object_version_number := NULL;
418: END IF;
419: IF (l_lsev_rec.APPLICATION_ID = OKC_API.G_MISS_NUM) THEN
420: l_lsev_rec.APPLICATION_ID := NULL;
415: END IF;
416: IF (l_lsev_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
417: l_lsev_rec.object_version_number := NULL;
418: END IF;
419: IF (l_lsev_rec.APPLICATION_ID = OKC_API.G_MISS_NUM) THEN
420: l_lsev_rec.APPLICATION_ID := NULL;
421: END IF;
422: IF (l_lsev_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
423: l_lsev_rec.sfwt_flag := NULL;
418: END IF;
419: IF (l_lsev_rec.APPLICATION_ID = OKC_API.G_MISS_NUM) THEN
420: l_lsev_rec.APPLICATION_ID := NULL;
421: END IF;
422: IF (l_lsev_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
423: l_lsev_rec.sfwt_flag := NULL;
424: END IF;
425: IF (l_lsev_rec.name = OKC_API.G_MISS_CHAR) THEN
426: l_lsev_rec.name := NULL;
421: END IF;
422: IF (l_lsev_rec.sfwt_flag = OKC_API.G_MISS_CHAR) THEN
423: l_lsev_rec.sfwt_flag := NULL;
424: END IF;
425: IF (l_lsev_rec.name = OKC_API.G_MISS_CHAR) THEN
426: l_lsev_rec.name := NULL;
427: END IF;
428: IF (l_lsev_rec.description = OKC_API.G_MISS_CHAR) THEN
429: l_lsev_rec.description := NULL;
424: END IF;
425: IF (l_lsev_rec.name = OKC_API.G_MISS_CHAR) THEN
426: l_lsev_rec.name := NULL;
427: END IF;
428: IF (l_lsev_rec.description = OKC_API.G_MISS_CHAR) THEN
429: l_lsev_rec.description := NULL;
430: END IF;
431: IF (l_lsev_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
432: l_lsev_rec.attribute_category := NULL;
427: END IF;
428: IF (l_lsev_rec.description = OKC_API.G_MISS_CHAR) THEN
429: l_lsev_rec.description := NULL;
430: END IF;
431: IF (l_lsev_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
432: l_lsev_rec.attribute_category := NULL;
433: END IF;
434: IF (l_lsev_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
435: l_lsev_rec.attribute1 := NULL;
430: END IF;
431: IF (l_lsev_rec.attribute_category = OKC_API.G_MISS_CHAR) THEN
432: l_lsev_rec.attribute_category := NULL;
433: END IF;
434: IF (l_lsev_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
435: l_lsev_rec.attribute1 := NULL;
436: END IF;
437: IF (l_lsev_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
438: l_lsev_rec.attribute2 := NULL;
433: END IF;
434: IF (l_lsev_rec.attribute1 = OKC_API.G_MISS_CHAR) THEN
435: l_lsev_rec.attribute1 := NULL;
436: END IF;
437: IF (l_lsev_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
438: l_lsev_rec.attribute2 := NULL;
439: END IF;
440: IF (l_lsev_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
441: l_lsev_rec.attribute3 := NULL;
436: END IF;
437: IF (l_lsev_rec.attribute2 = OKC_API.G_MISS_CHAR) THEN
438: l_lsev_rec.attribute2 := NULL;
439: END IF;
440: IF (l_lsev_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
441: l_lsev_rec.attribute3 := NULL;
442: END IF;
443: IF (l_lsev_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
444: l_lsev_rec.attribute4 := NULL;
439: END IF;
440: IF (l_lsev_rec.attribute3 = OKC_API.G_MISS_CHAR) THEN
441: l_lsev_rec.attribute3 := NULL;
442: END IF;
443: IF (l_lsev_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
444: l_lsev_rec.attribute4 := NULL;
445: END IF;
446: IF (l_lsev_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
447: l_lsev_rec.attribute5 := NULL;
442: END IF;
443: IF (l_lsev_rec.attribute4 = OKC_API.G_MISS_CHAR) THEN
444: l_lsev_rec.attribute4 := NULL;
445: END IF;
446: IF (l_lsev_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
447: l_lsev_rec.attribute5 := NULL;
448: END IF;
449: IF (l_lsev_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
450: l_lsev_rec.attribute6 := NULL;
445: END IF;
446: IF (l_lsev_rec.attribute5 = OKC_API.G_MISS_CHAR) THEN
447: l_lsev_rec.attribute5 := NULL;
448: END IF;
449: IF (l_lsev_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
450: l_lsev_rec.attribute6 := NULL;
451: END IF;
452: IF (l_lsev_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
453: l_lsev_rec.attribute7 := NULL;
448: END IF;
449: IF (l_lsev_rec.attribute6 = OKC_API.G_MISS_CHAR) THEN
450: l_lsev_rec.attribute6 := NULL;
451: END IF;
452: IF (l_lsev_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
453: l_lsev_rec.attribute7 := NULL;
454: END IF;
455: IF (l_lsev_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
456: l_lsev_rec.attribute8 := NULL;
451: END IF;
452: IF (l_lsev_rec.attribute7 = OKC_API.G_MISS_CHAR) THEN
453: l_lsev_rec.attribute7 := NULL;
454: END IF;
455: IF (l_lsev_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
456: l_lsev_rec.attribute8 := NULL;
457: END IF;
458: IF (l_lsev_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
459: l_lsev_rec.attribute9 := NULL;
454: END IF;
455: IF (l_lsev_rec.attribute8 = OKC_API.G_MISS_CHAR) THEN
456: l_lsev_rec.attribute8 := NULL;
457: END IF;
458: IF (l_lsev_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
459: l_lsev_rec.attribute9 := NULL;
460: END IF;
461: IF (l_lsev_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
462: l_lsev_rec.attribute10 := NULL;
457: END IF;
458: IF (l_lsev_rec.attribute9 = OKC_API.G_MISS_CHAR) THEN
459: l_lsev_rec.attribute9 := NULL;
460: END IF;
461: IF (l_lsev_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
462: l_lsev_rec.attribute10 := NULL;
463: END IF;
464: IF (l_lsev_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
465: l_lsev_rec.attribute11 := NULL;
460: END IF;
461: IF (l_lsev_rec.attribute10 = OKC_API.G_MISS_CHAR) THEN
462: l_lsev_rec.attribute10 := NULL;
463: END IF;
464: IF (l_lsev_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
465: l_lsev_rec.attribute11 := NULL;
466: END IF;
467: IF (l_lsev_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
468: l_lsev_rec.attribute12 := NULL;
463: END IF;
464: IF (l_lsev_rec.attribute11 = OKC_API.G_MISS_CHAR) THEN
465: l_lsev_rec.attribute11 := NULL;
466: END IF;
467: IF (l_lsev_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
468: l_lsev_rec.attribute12 := NULL;
469: END IF;
470: IF (l_lsev_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
471: l_lsev_rec.attribute13 := NULL;
466: END IF;
467: IF (l_lsev_rec.attribute12 = OKC_API.G_MISS_CHAR) THEN
468: l_lsev_rec.attribute12 := NULL;
469: END IF;
470: IF (l_lsev_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
471: l_lsev_rec.attribute13 := NULL;
472: END IF;
473: IF (l_lsev_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
474: l_lsev_rec.attribute14 := NULL;
469: END IF;
470: IF (l_lsev_rec.attribute13 = OKC_API.G_MISS_CHAR) THEN
471: l_lsev_rec.attribute13 := NULL;
472: END IF;
473: IF (l_lsev_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
474: l_lsev_rec.attribute14 := NULL;
475: END IF;
476: IF (l_lsev_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
477: l_lsev_rec.attribute15 := NULL;
472: END IF;
473: IF (l_lsev_rec.attribute14 = OKC_API.G_MISS_CHAR) THEN
474: l_lsev_rec.attribute14 := NULL;
475: END IF;
476: IF (l_lsev_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
477: l_lsev_rec.attribute15 := NULL;
478: END IF;
479: IF (l_lsev_rec.lse_type = OKC_API.G_MISS_CHAR) THEN
480: l_lsev_rec.lse_type := NULL;
475: END IF;
476: IF (l_lsev_rec.attribute15 = OKC_API.G_MISS_CHAR) THEN
477: l_lsev_rec.attribute15 := NULL;
478: END IF;
479: IF (l_lsev_rec.lse_type = OKC_API.G_MISS_CHAR) THEN
480: l_lsev_rec.lse_type := NULL;
481: END IF;
482: IF (l_lsev_rec.created_by = OKC_API.G_MISS_NUM) THEN
483: l_lsev_rec.created_by := NULL;
478: END IF;
479: IF (l_lsev_rec.lse_type = OKC_API.G_MISS_CHAR) THEN
480: l_lsev_rec.lse_type := NULL;
481: END IF;
482: IF (l_lsev_rec.created_by = OKC_API.G_MISS_NUM) THEN
483: l_lsev_rec.created_by := NULL;
484: END IF;
485: IF (l_lsev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
486: l_lsev_rec.creation_date := NULL;
481: END IF;
482: IF (l_lsev_rec.created_by = OKC_API.G_MISS_NUM) THEN
483: l_lsev_rec.created_by := NULL;
484: END IF;
485: IF (l_lsev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
486: l_lsev_rec.creation_date := NULL;
487: END IF;
488: IF (l_lsev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
489: l_lsev_rec.last_updated_by := NULL;
484: END IF;
485: IF (l_lsev_rec.creation_date = OKC_API.G_MISS_DATE) THEN
486: l_lsev_rec.creation_date := NULL;
487: END IF;
488: IF (l_lsev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
489: l_lsev_rec.last_updated_by := NULL;
490: END IF;
491: IF (l_lsev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
492: l_lsev_rec.last_update_date := NULL;
487: END IF;
488: IF (l_lsev_rec.last_updated_by = OKC_API.G_MISS_NUM) THEN
489: l_lsev_rec.last_updated_by := NULL;
490: END IF;
491: IF (l_lsev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
492: l_lsev_rec.last_update_date := NULL;
493: END IF;
494: IF (l_lsev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
495: l_lsev_rec.last_update_login := NULL;
490: END IF;
491: IF (l_lsev_rec.last_update_date = OKC_API.G_MISS_DATE) THEN
492: l_lsev_rec.last_update_date := NULL;
493: END IF;
494: IF (l_lsev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
495: l_lsev_rec.last_update_login := NULL;
496: END IF;
497: IF (l_lsev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
498: l_lsev_rec.item_to_price_yn := NULL;
493: END IF;
494: IF (l_lsev_rec.last_update_login = OKC_API.G_MISS_NUM) THEN
495: l_lsev_rec.last_update_login := NULL;
496: END IF;
497: IF (l_lsev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
498: l_lsev_rec.item_to_price_yn := NULL;
499: END IF;
500: IF (l_lsev_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
501: l_lsev_rec.price_basis_yn := NULL;
496: END IF;
497: IF (l_lsev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR) THEN
498: l_lsev_rec.item_to_price_yn := NULL;
499: END IF;
500: IF (l_lsev_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
501: l_lsev_rec.price_basis_yn := NULL;
502: END IF;
503: IF (l_lsev_rec.access_level = OKC_API.G_MISS_CHAR) THEN
504: l_lsev_rec.access_level := NULL;
499: END IF;
500: IF (l_lsev_rec.price_basis_yn = OKC_API.G_MISS_CHAR) THEN
501: l_lsev_rec.price_basis_yn := NULL;
502: END IF;
503: IF (l_lsev_rec.access_level = OKC_API.G_MISS_CHAR) THEN
504: l_lsev_rec.access_level := NULL;
505: END IF;
506: IF (l_lsev_rec.service_item_yn = OKC_API.G_MISS_CHAR) THEN
507: l_lsev_rec.service_item_yn := NULL;
502: END IF;
503: IF (l_lsev_rec.access_level = OKC_API.G_MISS_CHAR) THEN
504: l_lsev_rec.access_level := NULL;
505: END IF;
506: IF (l_lsev_rec.service_item_yn = OKC_API.G_MISS_CHAR) THEN
507: l_lsev_rec.service_item_yn := NULL;
508: END IF;
509: RETURN(l_lsev_rec);
510: END null_out_defaults;
518:
519: FUNCTION Check_Unique_Name (
520: p_lsev_rec IN lsev_rec_type
521: ) RETURN VARCHAR2 IS
522: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
523: l_col_tbl okc_util.unq_tbl_type;
524: l_id NUMBER:=OKC_API.G_MISS_NUM;
525: CURSOR loc_top_csr (p_id IN NUMBER) is
526: select id, lse_type from okc_line_styles_b
520: p_lsev_rec IN lsev_rec_type
521: ) RETURN VARCHAR2 IS
522: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
523: l_col_tbl okc_util.unq_tbl_type;
524: l_id NUMBER:=OKC_API.G_MISS_NUM;
525: CURSOR loc_top_csr (p_id IN NUMBER) is
526: select id, lse_type from okc_line_styles_b
527: connect by prior lse_parent_id = id
528: start with id = p_id;
547: if p_lsev_rec.lse_type = 'TLS' then
548: OPEN C1;
549: FETCH C1 into l_id;
550: CLOSE C1;
551: IF (l_id<>OKC_API.G_MISS_NUM and l_id <> nvl(p_lsev_rec.id,-1)) then
552: OKC_API.set_message(G_APP_NAME, G_UNQ,G_COL_NAME_TOKEN,'name');
553: l_return_status := OKC_API.G_RET_STS_ERROR;
554:
555: END IF;
548: OPEN C1;
549: FETCH C1 into l_id;
550: CLOSE C1;
551: IF (l_id<>OKC_API.G_MISS_NUM and l_id <> nvl(p_lsev_rec.id,-1)) then
552: OKC_API.set_message(G_APP_NAME, G_UNQ,G_COL_NAME_TOKEN,'name');
553: l_return_status := OKC_API.G_RET_STS_ERROR;
554:
555: END IF;
556: else
549: FETCH C1 into l_id;
550: CLOSE C1;
551: IF (l_id<>OKC_API.G_MISS_NUM and l_id <> nvl(p_lsev_rec.id,-1)) then
552: OKC_API.set_message(G_APP_NAME, G_UNQ,G_COL_NAME_TOKEN,'name');
553: l_return_status := OKC_API.G_RET_STS_ERROR;
554:
555: END IF;
556: else
557: open loc_top_csr (p_lsev_rec.lse_parent_id);
561: open par_name_csr(loc_top_rec.id);
562: fetch par_name_csr into par_name_rec;
563: close par_name_csr;
564: if par_name_rec.name is NULL then
565: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'id');
566: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
567: exit;
568: end if;
569: if UPPER(par_name_rec.name) = UPPER(p_lsev_rec.name) then
562: fetch par_name_csr into par_name_rec;
563: close par_name_csr;
564: if par_name_rec.name is NULL then
565: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'id');
566: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
567: exit;
568: end if;
569: if UPPER(par_name_rec.name) = UPPER(p_lsev_rec.name) then
570: OKC_API.set_message(G_APP_NAME, G_UNQ,G_COL_NAME_TOKEN,'name');
566: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
567: exit;
568: end if;
569: if UPPER(par_name_rec.name) = UPPER(p_lsev_rec.name) then
570: OKC_API.set_message(G_APP_NAME, G_UNQ,G_COL_NAME_TOKEN,'name');
571: l_return_status := OKC_API.G_RET_STS_ERROR;
572: exit;
573: end if;
574: end loop;
567: exit;
568: end if;
569: if UPPER(par_name_rec.name) = UPPER(p_lsev_rec.name) then
570: OKC_API.set_message(G_APP_NAME, G_UNQ,G_COL_NAME_TOKEN,'name');
571: l_return_status := OKC_API.G_RET_STS_ERROR;
572: exit;
573: end if;
574: end loop;
575: close loc_top_csr;
572: exit;
573: end if;
574: end loop;
575: close loc_top_csr;
576: if l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
577: return (l_return_status);
578: end if;
579: if loc_top_rec.id is NULL Then
580: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'id');
576: if l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
577: return (l_return_status);
578: end if;
579: if loc_top_rec.id is NULL Then
580: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'id');
581: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
582: return (l_return_status);
583: end if;
584: open loc_bot_csr (loc_top_rec.id);
577: return (l_return_status);
578: end if;
579: if loc_top_rec.id is NULL Then
580: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'id');
581: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
582: return (l_return_status);
583: end if;
584: open loc_bot_csr (loc_top_rec.id);
585: loop
588: open par_name_csr(loc_bot_rec.id);
589: fetch par_name_csr into par_name_rec;
590: close par_name_csr;
591: if par_name_rec.name is NULL then
592: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'id');
593: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
594: exit;
595: end if;
596: if UPPER(par_name_rec.name) = UPPER(p_lsev_rec.name) and
589: fetch par_name_csr into par_name_rec;
590: close par_name_csr;
591: if par_name_rec.name is NULL then
592: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'id');
593: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
594: exit;
595: end if;
596: if UPPER(par_name_rec.name) = UPPER(p_lsev_rec.name) and
597: loc_bot_rec.id <> p_lsev_rec.id then
594: exit;
595: end if;
596: if UPPER(par_name_rec.name) = UPPER(p_lsev_rec.name) and
597: loc_bot_rec.id <> p_lsev_rec.id then
598: OKC_API.set_message(G_APP_NAME, G_UNQ,G_COL_NAME_TOKEN,'name');
599: l_return_status := OKC_API.g_RET_STS_ERROR;
600: exit;
601: end if;
602: end loop;
595: end if;
596: if UPPER(par_name_rec.name) = UPPER(p_lsev_rec.name) and
597: loc_bot_rec.id <> p_lsev_rec.id then
598: OKC_API.set_message(G_APP_NAME, G_UNQ,G_COL_NAME_TOKEN,'name');
599: l_return_status := OKC_API.g_RET_STS_ERROR;
600: exit;
601: end if;
602: end loop;
603: close loc_bot_csr;
615: FROM OKC_LINE_STYLES_B
616: WHERE id = p_lse_id;
617: l_lse_pk lse_pk_csr%ROWTYPE;
618: BEGIN
619: x_return_status := OKC_API.G_RET_STS_SUCCESS;
620: IF (p_lsev_rec.lse_type = 'SLS')
621: THEN
622: IF (p_lsev_rec.lse_parent_id IS NOT NULL AND
623: p_lsev_rec.lse_parent_id <> OKC_API.G_MISS_NUM)
619: x_return_status := OKC_API.G_RET_STS_SUCCESS;
620: IF (p_lsev_rec.lse_type = 'SLS')
621: THEN
622: IF (p_lsev_rec.lse_parent_id IS NOT NULL AND
623: p_lsev_rec.lse_parent_id <> OKC_API.G_MISS_NUM)
624: THEN
625: OPEN lse_pk_csr(p_lsev_rec.lse_parent_id);
626: FETCH lse_pk_csr INTO l_lse_pk;
627: l_row_notfound := lse_pk_csr%NOTFOUND;
626: FETCH lse_pk_csr INTO l_lse_pk;
627: l_row_notfound := lse_pk_csr%NOTFOUND;
628: CLOSE lse_pk_csr;
629: IF (l_row_notfound) THEN
630: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
631: RAISE item_not_found_error;
632: END IF;
633: ELSE
634: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
630: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
631: RAISE item_not_found_error;
632: END IF;
633: ELSE
634: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
635: x_return_status := OKC_API.G_RET_STS_ERROR;
636: END IF;
637: ELSIF (p_lsev_rec.lse_parent_id IS NOT NULL AND
638: p_lsev_rec.lse_parent_id <> OKC_API.G_MISS_NUM) THEN
631: RAISE item_not_found_error;
632: END IF;
633: ELSE
634: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
635: x_return_status := OKC_API.G_RET_STS_ERROR;
636: END IF;
637: ELSIF (p_lsev_rec.lse_parent_id IS NOT NULL AND
638: p_lsev_rec.lse_parent_id <> OKC_API.G_MISS_NUM) THEN
639: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
634: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
635: x_return_status := OKC_API.G_RET_STS_ERROR;
636: END IF;
637: ELSIF (p_lsev_rec.lse_parent_id IS NOT NULL AND
638: p_lsev_rec.lse_parent_id <> OKC_API.G_MISS_NUM) THEN
639: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
640: x_return_status := OKC_API.G_RET_STS_ERROR;
641: END IF;
642: EXCEPTION
635: x_return_status := OKC_API.G_RET_STS_ERROR;
636: END IF;
637: ELSIF (p_lsev_rec.lse_parent_id IS NOT NULL AND
638: p_lsev_rec.lse_parent_id <> OKC_API.G_MISS_NUM) THEN
639: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
640: x_return_status := OKC_API.G_RET_STS_ERROR;
641: END IF;
642: EXCEPTION
643: WHEN item_not_found_error THEN
636: END IF;
637: ELSIF (p_lsev_rec.lse_parent_id IS NOT NULL AND
638: p_lsev_rec.lse_parent_id <> OKC_API.G_MISS_NUM) THEN
639: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'lse_parent_id');
640: x_return_status := OKC_API.G_RET_STS_ERROR;
641: END IF;
642: EXCEPTION
643: WHEN item_not_found_error THEN
644: x_return_status := OKC_API.G_RET_STS_ERROR;
640: x_return_status := OKC_API.G_RET_STS_ERROR;
641: END IF;
642: EXCEPTION
643: WHEN item_not_found_error THEN
644: x_return_status := OKC_API.G_RET_STS_ERROR;
645: WHEN OTHERS THEN
646: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
647: p_msg_name => g_unexpected_error,
648: p_token1 => g_sqlcode_token,
642: EXCEPTION
643: WHEN item_not_found_error THEN
644: x_return_status := OKC_API.G_RET_STS_ERROR;
645: WHEN OTHERS THEN
646: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
647: p_msg_name => g_unexpected_error,
648: p_token1 => g_sqlcode_token,
649: p_token1_value => sqlcode,
650: p_token2 => g_col_name_token,
651: p_token2_value => 'lse_parent_id',
652: p_token3 => g_sqlerrm_token,
653: p_token3_value => sqlerrm);
654: -- notify caller of an UNEXPECTED error
655: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
656: END Validate_Lse_Parent_Id ;
657:
658: PROCEDURE Validate_Lse_Type (
659: x_return_status OUT NOCOPY VARCHAR2,
664: THEN
665: IF p_lsev_rec.lse_type = 'SLS' OR
666: p_lsev_rec.lse_type = 'TLS'
667: THEN
668: x_return_status := OKC_API.G_RET_STS_SUCCESS;
669: ELSE
670: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'LSE_TYPE');
671: x_return_status := OKC_API.G_RET_STS_ERROR;
672: END IF;
666: p_lsev_rec.lse_type = 'TLS'
667: THEN
668: x_return_status := OKC_API.G_RET_STS_SUCCESS;
669: ELSE
670: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'LSE_TYPE');
671: x_return_status := OKC_API.G_RET_STS_ERROR;
672: END IF;
673: ELSE
674: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LSE_TYPE');
667: THEN
668: x_return_status := OKC_API.G_RET_STS_SUCCESS;
669: ELSE
670: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'LSE_TYPE');
671: x_return_status := OKC_API.G_RET_STS_ERROR;
672: END IF;
673: ELSE
674: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LSE_TYPE');
675: x_return_status := OKC_API.G_RET_STS_ERROR;
670: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'LSE_TYPE');
671: x_return_status := OKC_API.G_RET_STS_ERROR;
672: END IF;
673: ELSE
674: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LSE_TYPE');
675: x_return_status := OKC_API.G_RET_STS_ERROR;
676: END IF;
677: END Validate_Lse_Type;
678:
671: x_return_status := OKC_API.G_RET_STS_ERROR;
672: END IF;
673: ELSE
674: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LSE_TYPE');
675: x_return_status := OKC_API.G_RET_STS_ERROR;
676: END IF;
677: END Validate_Lse_Type;
678:
679: PROCEDURE Validate_Lty_Code (
681: p_lsev_rec IN lsev_rec_type) IS
682: item_not_found_error EXCEPTION;
683: l_row_notfound BOOLEAN := TRUE;
684: BEGIN
685: x_return_status := OKC_API.G_RET_STS_SUCCESS;
686: IF (p_lsev_rec.lty_code IS NOT NULL AND
687: p_lsev_rec.lty_code <> OKC_API.G_MISS_CHAR)
688: THEN
689: x_return_status := OKC_UTIL.CHECK_LOOKUP_CODE('OKC_LINE_TYPE',p_lsev_rec.lty_code);
683: l_row_notfound BOOLEAN := TRUE;
684: BEGIN
685: x_return_status := OKC_API.G_RET_STS_SUCCESS;
686: IF (p_lsev_rec.lty_code IS NOT NULL AND
687: p_lsev_rec.lty_code <> OKC_API.G_MISS_CHAR)
688: THEN
689: x_return_status := OKC_UTIL.CHECK_LOOKUP_CODE('OKC_LINE_TYPE',p_lsev_rec.lty_code);
690: if x_return_status = OKC_API.G_RET_STS_ERROR
691: Then
686: IF (p_lsev_rec.lty_code IS NOT NULL AND
687: p_lsev_rec.lty_code <> OKC_API.G_MISS_CHAR)
688: THEN
689: x_return_status := OKC_UTIL.CHECK_LOOKUP_CODE('OKC_LINE_TYPE',p_lsev_rec.lty_code);
690: if x_return_status = OKC_API.G_RET_STS_ERROR
691: Then
692: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LTY_CODE');
693: end if;
694: ELSE
688: THEN
689: x_return_status := OKC_UTIL.CHECK_LOOKUP_CODE('OKC_LINE_TYPE',p_lsev_rec.lty_code);
690: if x_return_status = OKC_API.G_RET_STS_ERROR
691: Then
692: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LTY_CODE');
693: end if;
694: ELSE
695: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lty_code');
696: x_return_status := OKC_API.G_RET_STS_ERROR;
691: Then
692: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LTY_CODE');
693: end if;
694: ELSE
695: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lty_code');
696: x_return_status := OKC_API.G_RET_STS_ERROR;
697: END IF;
698: EXCEPTION
699: WHEN item_not_found_error THEN
692: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'LTY_CODE');
693: end if;
694: ELSE
695: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'lty_code');
696: x_return_status := OKC_API.G_RET_STS_ERROR;
697: END IF;
698: EXCEPTION
699: WHEN item_not_found_error THEN
700: x_return_status := OKC_API.G_RET_STS_ERROR;
696: x_return_status := OKC_API.G_RET_STS_ERROR;
697: END IF;
698: EXCEPTION
699: WHEN item_not_found_error THEN
700: x_return_status := OKC_API.G_RET_STS_ERROR;
701: WHEN OTHERS THEN
702: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
703: p_msg_name => g_unexpected_error,
704: p_token1 => g_sqlcode_token,
698: EXCEPTION
699: WHEN item_not_found_error THEN
700: x_return_status := OKC_API.G_RET_STS_ERROR;
701: WHEN OTHERS THEN
702: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
703: p_msg_name => g_unexpected_error,
704: p_token1 => g_sqlcode_token,
705: p_token1_value => sqlcode,
706: p_token2 => g_col_name_token,
707: p_token2_value => 'lty_code',
708: p_token3 => g_sqlerrm_token,
709: p_token3_value => sqlerrm);
710: -- notify caller of an UNEXPECTED error
711: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
712: END Validate_Lty_Code ;
713:
714:
715: PROCEDURE Validate_PRICED_YN (
721: THEN
722: IF p_lsev_rec.priced_yn = 'Y' OR
723: p_lsev_rec.priced_yn = 'N'
724: THEN
725: x_return_status := OKC_API.G_RET_STS_SUCCESS;
726: ELSE
727: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'PRICED_YN');
728: x_return_status := OKC_API.G_RET_STS_ERROR;
729: END IF;
723: p_lsev_rec.priced_yn = 'N'
724: THEN
725: x_return_status := OKC_API.G_RET_STS_SUCCESS;
726: ELSE
727: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'PRICED_YN');
728: x_return_status := OKC_API.G_RET_STS_ERROR;
729: END IF;
730: ELSE
731: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRICED_YN');
724: THEN
725: x_return_status := OKC_API.G_RET_STS_SUCCESS;
726: ELSE
727: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'PRICED_YN');
728: x_return_status := OKC_API.G_RET_STS_ERROR;
729: END IF;
730: ELSE
731: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRICED_YN');
732: x_return_status := OKC_API.G_RET_STS_ERROR;
727: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'PRICED_YN');
728: x_return_status := OKC_API.G_RET_STS_ERROR;
729: END IF;
730: ELSE
731: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRICED_YN');
732: x_return_status := OKC_API.G_RET_STS_ERROR;
733: END IF;
734: END Validate_PRICED_YN;
735:
728: x_return_status := OKC_API.G_RET_STS_ERROR;
729: END IF;
730: ELSE
731: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRICED_YN');
732: x_return_status := OKC_API.G_RET_STS_ERROR;
733: END IF;
734: END Validate_PRICED_YN;
735:
736: PROCEDURE Validate_ITEM_TO_PRICE_YN (
742: THEN
743: IF p_lsev_rec.item_to_price_yn = 'Y' OR
744: p_lsev_rec.item_to_price_yn = 'N'
745: THEN
746: x_return_status := OKC_API.G_RET_STS_SUCCESS;
747: ELSE
748: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ITEM_TO_PRICE_YN');
749: x_return_status := OKC_API.G_RET_STS_ERROR;
750: END IF;
744: p_lsev_rec.item_to_price_yn = 'N'
745: THEN
746: x_return_status := OKC_API.G_RET_STS_SUCCESS;
747: ELSE
748: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ITEM_TO_PRICE_YN');
749: x_return_status := OKC_API.G_RET_STS_ERROR;
750: END IF;
751: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
752: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ITEM_TO_PRICE_YN');
745: THEN
746: x_return_status := OKC_API.G_RET_STS_SUCCESS;
747: ELSE
748: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ITEM_TO_PRICE_YN');
749: x_return_status := OKC_API.G_RET_STS_ERROR;
750: END IF;
751: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
752: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ITEM_TO_PRICE_YN');
753: x_return_status := OKC_API.G_RET_STS_ERROR;
748: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ITEM_TO_PRICE_YN');
749: x_return_status := OKC_API.G_RET_STS_ERROR;
750: END IF;
751: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
752: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ITEM_TO_PRICE_YN');
753: x_return_status := OKC_API.G_RET_STS_ERROR;
754: END IF;
755: END Validate_ITEM_TO_PRICE_YN;
756:
749: x_return_status := OKC_API.G_RET_STS_ERROR;
750: END IF;
751: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
752: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ITEM_TO_PRICE_YN');
753: x_return_status := OKC_API.G_RET_STS_ERROR;
754: END IF;
755: END Validate_ITEM_TO_PRICE_YN;
756:
757: --
762: IF upper(p_lsev_rec.access_level) in ('S', 'E', 'U')
763: THEN
764: IF p_lsev_rec.access_level in ('S', 'E', 'U')
765: THEN
766: x_return_status := OKC_API.G_RET_STS_SUCCESS;
767: ELSE
768: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ACCESS_LEVEL');
769: x_return_status := OKC_API.G_RET_STS_ERROR;
770: END IF;
764: IF p_lsev_rec.access_level in ('S', 'E', 'U')
765: THEN
766: x_return_status := OKC_API.G_RET_STS_SUCCESS;
767: ELSE
768: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ACCESS_LEVEL');
769: x_return_status := OKC_API.G_RET_STS_ERROR;
770: END IF;
771: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
772: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACCESS_LEVEL');
765: THEN
766: x_return_status := OKC_API.G_RET_STS_SUCCESS;
767: ELSE
768: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ACCESS_LEVEL');
769: x_return_status := OKC_API.G_RET_STS_ERROR;
770: END IF;
771: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
772: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACCESS_LEVEL');
773: x_return_status := OKC_API.G_RET_STS_ERROR;
768: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'ACCESS_LEVEL');
769: x_return_status := OKC_API.G_RET_STS_ERROR;
770: END IF;
771: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
772: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACCESS_LEVEL');
773: x_return_status := OKC_API.G_RET_STS_ERROR;
774: END IF;
775: END Validate_ACCESS_LEVEL;
776: --
769: x_return_status := OKC_API.G_RET_STS_ERROR;
770: END IF;
771: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
772: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ACCESS_LEVEL');
773: x_return_status := OKC_API.G_RET_STS_ERROR;
774: END IF;
775: END Validate_ACCESS_LEVEL;
776: --
777:
786: THEN
787: IF p_lsev_rec.price_basis_yn = 'Y' OR
788: p_lsev_rec.price_basis_yn = 'N'
789: THEN
790: x_return_status := OKC_API.G_RET_STS_SUCCESS;
791: ELSE
792: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'PRICE_BASIS_YN');
793: x_return_status := OKC_API.G_RET_STS_ERROR;
794: END IF;
788: p_lsev_rec.price_basis_yn = 'N'
789: THEN
790: x_return_status := OKC_API.G_RET_STS_SUCCESS;
791: ELSE
792: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'PRICE_BASIS_YN');
793: x_return_status := OKC_API.G_RET_STS_ERROR;
794: END IF;
795: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
796: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRICE_BASIS_YN');
789: THEN
790: x_return_status := OKC_API.G_RET_STS_SUCCESS;
791: ELSE
792: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'PRICE_BASIS_YN');
793: x_return_status := OKC_API.G_RET_STS_ERROR;
794: END IF;
795: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
796: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRICE_BASIS_YN');
797: x_return_status := OKC_API.G_RET_STS_ERROR;
792: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'PRICE_BASIS_YN');
793: x_return_status := OKC_API.G_RET_STS_ERROR;
794: END IF;
795: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
796: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRICE_BASIS_YN');
797: x_return_status := OKC_API.G_RET_STS_ERROR;
798: END IF;
799: END Validate_PRICE_BASIS_YN;
800:
793: x_return_status := OKC_API.G_RET_STS_ERROR;
794: END IF;
795: ELSIF p_lsev_rec.item_to_price_yn <> NULL then
796: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRICE_BASIS_YN');
797: x_return_status := OKC_API.G_RET_STS_ERROR;
798: END IF;
799: END Validate_PRICE_BASIS_YN;
800:
801: PROCEDURE Validate_item_or_basis(
807: THEN
808: IF
809: p_lsev_rec.price_basis_yn = 'Y'
810: THEN
811: x_return_status := OKC_API.G_RET_STS_ERROR;
812: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
813: p_msg_name =>'OKC_ITEM_OR_BASIS');
814:
815: ELSE
808: IF
809: p_lsev_rec.price_basis_yn = 'Y'
810: THEN
811: x_return_status := OKC_API.G_RET_STS_ERROR;
812: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
813: p_msg_name =>'OKC_ITEM_OR_BASIS');
814:
815: ELSE
816: x_return_status := OKC_API.G_RET_STS_SUCCESS;
812: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
813: p_msg_name =>'OKC_ITEM_OR_BASIS');
814:
815: ELSE
816: x_return_status := OKC_API.G_RET_STS_SUCCESS;
817: END IF;
818:
819: ELSE
820: x_return_status := OKC_API.G_RET_STS_SUCCESS;
816: x_return_status := OKC_API.G_RET_STS_SUCCESS;
817: END IF;
818:
819: ELSE
820: x_return_status := OKC_API.G_RET_STS_SUCCESS;
821: END IF;
822: END Validate_item_or_basis;
823:
824: --
834: l_dummy VARCHAR2(1) := '?';
835:
836: BEGIN
837: -- initialize return status
838: x_return_status := OKC_API.G_RET_STS_SUCCESS;
839:
840: IF p_lsev_rec.application_id IS NOT NULL THEN
841: --Check if application id exists in the fnd_application or not
842: OPEN application_id_cur(p_lsev_rec.application_id);
842: OPEN application_id_cur(p_lsev_rec.application_id);
843: FETCH application_id_cur INTO l_dummy;
844: CLOSE application_id_cur ;
845: IF l_dummy = '?' THEN
846: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
847: p_msg_name => g_invalid_value,
848: p_token1 => g_col_name_token,
849: p_token1_value => 'application_id');
850: x_return_status := OKC_API.G_RET_STS_ERROR;
846: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
847: p_msg_name => g_invalid_value,
848: p_token1 => g_col_name_token,
849: p_token1_value => 'application_id');
850: x_return_status := OKC_API.G_RET_STS_ERROR;
851: raise G_EXCEPTION_HALT_VALIDATION;
852: END IF;
853: END IF;
854: EXCEPTION
858: null;
859:
860: when OTHERS then
861: -- store SQL error message on message stack for caller
862: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
863: p_msg_name => g_unexpected_error,
864: p_token1 => g_sqlcode_token,
865: p_token1_value => sqlcode,
866: p_token2 => g_sqlerrm_token,
865: p_token1_value => sqlcode,
866: p_token2 => g_sqlerrm_token,
867: p_token2_value => sqlerrm);
868: -- notify caller of an UNEXPECTED error
869: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
870: END validate_application_id;
871:
872: --
873:
874: PROCEDURE Validate_priced_level(
875: x_return_status OUT NOCOPY VARCHAR2,
876: p_lsev_rec IN lsev_rec_type) IS
877:
878: l_return_status VARCHAR2(1):=OKC_API.G_RET_STS_SUCCESS;
879: l_lsev_rec OKC_LINE_STYLES_PUB.lsev_rec_type;
880: lx_lsev_rec OKC_LINE_STYLES_PUB.lsev_rec_type;
881:
882: CURSOR loc_bot_csr (p_id IN NUMBER) is
889: connect by prior lse_parent_id = id
890: start with id = p_id;
891:
892: BEGIN
893: x_return_status := OKC_API.G_RET_STS_SUCCESS;
894:
895: IF p_lsev_rec.priced_yn=G_Yes AND p_lsev_rec.price_basis_yn=G_Yes then
896: x_return_status := OKC_API.G_RET_STS_ERROR;
897: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
892: BEGIN
893: x_return_status := OKC_API.G_RET_STS_SUCCESS;
894:
895: IF p_lsev_rec.priced_yn=G_Yes AND p_lsev_rec.price_basis_yn=G_Yes then
896: x_return_status := OKC_API.G_RET_STS_ERROR;
897: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
898: p_msg_name =>'OKC_PRICED_ABOVE_BASIS' );
899:
900:
893: x_return_status := OKC_API.G_RET_STS_SUCCESS;
894:
895: IF p_lsev_rec.priced_yn=G_Yes AND p_lsev_rec.price_basis_yn=G_Yes then
896: x_return_status := OKC_API.G_RET_STS_ERROR;
897: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
898: p_msg_name =>'OKC_PRICED_ABOVE_BASIS' );
899:
900:
901: ELSIF p_lsev_rec.priced_yn=G_Yes then
900:
901: ELSIF p_lsev_rec.priced_yn=G_Yes then
902: for l_rec in loc_bot_csr(p_lsev_rec.id) loop
903: IF l_rec.item_to_price_yn=G_Yes and l_rec.id<>p_lsev_rec.id then
904: x_return_status := OKC_API.G_RET_STS_ERROR;
905:
906: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
907: p_msg_name =>'OKC_PRICED_ABOVE_ITEM' );
908:
902: for l_rec in loc_bot_csr(p_lsev_rec.id) loop
903: IF l_rec.item_to_price_yn=G_Yes and l_rec.id<>p_lsev_rec.id then
904: x_return_status := OKC_API.G_RET_STS_ERROR;
905:
906: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
907: p_msg_name =>'OKC_PRICED_ABOVE_ITEM' );
908:
909: END IF;
910: IF l_rec.price_basis_yn=G_Yes then
907: p_msg_name =>'OKC_PRICED_ABOVE_ITEM' );
908:
909: END IF;
910: IF l_rec.price_basis_yn=G_Yes then
911: x_return_status := OKC_API.G_RET_STS_ERROR;
912: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
913: p_msg_name =>'OKC_PRICED_ABOVE_BASIS' );
914: END IF;
915: END LOOP;
908:
909: END IF;
910: IF l_rec.price_basis_yn=G_Yes then
911: x_return_status := OKC_API.G_RET_STS_ERROR;
912: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
913: p_msg_name =>'OKC_PRICED_ABOVE_BASIS' );
914: END IF;
915: END LOOP;
916:
917:
918: ELSIF p_lsev_rec.item_to_price_yn=G_Yes then
919: for l_rec in loc_top_csr(p_lsev_rec.id) loop
920: IF l_rec.priced_yn=G_Yes and l_rec.id<>p_lsev_rec.id then
921: x_return_status := OKC_API.G_RET_STS_ERROR;
922:
923: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
924: p_msg_name =>'OKC_PRICED_ABOVE_ITEM' );
925:
919: for l_rec in loc_top_csr(p_lsev_rec.id) loop
920: IF l_rec.priced_yn=G_Yes and l_rec.id<>p_lsev_rec.id then
921: x_return_status := OKC_API.G_RET_STS_ERROR;
922:
923: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
924: p_msg_name =>'OKC_PRICED_ABOVE_ITEM' );
925:
926: END IF;
927: END LOOP;
927: END LOOP;
928: ELSIF p_lsev_rec.price_basis_yn=G_Yes then
929: for l_rec in loc_top_csr(p_lsev_rec.id) loop
930: IF l_rec.priced_yn=G_Yes then
931: x_return_status := OKC_API.G_RET_STS_ERROR;
932:
933: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
934: p_msg_name => 'OKC_PRICED_ABOVE_BASIS');
935:
929: for l_rec in loc_top_csr(p_lsev_rec.id) loop
930: IF l_rec.priced_yn=G_Yes then
931: x_return_status := OKC_API.G_RET_STS_ERROR;
932:
933: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
934: p_msg_name => 'OKC_PRICED_ABOVE_BASIS');
935:
936: END IF;
937: END LOOP;
935:
936: END IF;
937: END LOOP;
938: ELSE
939: x_return_status := OKC_API.G_RET_STS_SUCCESS;
940: END IF;
941:
942: EXCEPTION
943:
941:
942: EXCEPTION
943:
944: WHEN OTHERS THEN
945: OKC_API.set_message(p_app_name => g_app_name,
946: p_msg_name => g_unexpected_error,
947: p_token1 => g_sqlcode_token,
948: p_token1_value => sqlcode,
949: p_token2 => g_sqlerrm_token,
947: p_token1 => g_sqlcode_token,
948: p_token1_value => sqlcode,
949: p_token2 => g_sqlerrm_token,
950: p_token2_value => sqlerrm);
951: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
952: END Validate_priced_level;
953:
954:
955: PROCEDURE Validate_item_to_price_source (
992: IF NOT l_mtl_found THEN
993: IF (l_debug = 'Y') THEN
994: okc_debug.log('400:');
995: END IF;
996: x_return_status := OKC_API.G_RET_STS_ERROR;
997: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
998: p_msg_name => 'OKC_ITEM_TO_PRICE_SOURCE');
999: END IF;
1000: IF l_mtl_found THEN
993: IF (l_debug = 'Y') THEN
994: okc_debug.log('400:');
995: END IF;
996: x_return_status := OKC_API.G_RET_STS_ERROR;
997: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
998: p_msg_name => 'OKC_ITEM_TO_PRICE_SOURCE');
999: END IF;
1000: IF l_mtl_found THEN
1001: IF (l_debug = 'Y') THEN
1000: IF l_mtl_found THEN
1001: IF (l_debug = 'Y') THEN
1002: okc_debug.log('500:');
1003: END IF;
1004: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1005: END IF;
1006:
1007: ELSE
1008: IF (l_debug = 'Y') THEN
1007: ELSE
1008: IF (l_debug = 'Y') THEN
1009: okc_debug.log('600:');
1010: END IF;
1011: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1012: END IF;
1013:
1014: EXCEPTION
1015: WHEN NO_DATA_FOUND THEN
1015: WHEN NO_DATA_FOUND THEN
1016: IF (l_debug = 'Y') THEN
1017: okc_debug.log('700:');
1018: END IF;
1019: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1020: --changed this to allow the line style to be item to priced when there is no line style source
1021: /* x_return_status := OKC_API.G_RET_STS_ERROR;
1022: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1023: p_msg_name => 'OKC_ITEM_TO_PRICE_SOURCE');
1017: okc_debug.log('700:');
1018: END IF;
1019: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1020: --changed this to allow the line style to be item to priced when there is no line style source
1021: /* x_return_status := OKC_API.G_RET_STS_ERROR;
1022: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1023: p_msg_name => 'OKC_ITEM_TO_PRICE_SOURCE');
1024: */
1025: NULL;
1018: END IF;
1019: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1020: --changed this to allow the line style to be item to priced when there is no line style source
1021: /* x_return_status := OKC_API.G_RET_STS_ERROR;
1022: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1023: p_msg_name => 'OKC_ITEM_TO_PRICE_SOURCE');
1024: */
1025: NULL;
1026: WHEN OTHERS THEN
1027:
1028: IF (l_debug = 'Y') THEN
1029: okc_debug.log('600:');
1030: END IF;
1031: OKC_API.set_message(p_app_name => g_app_name,
1032: p_msg_name => g_unexpected_error,
1033: p_token1 => g_sqlcode_token,
1034: p_token1_value => sqlcode,
1035: p_token2 => g_sqlerrm_token,
1033: p_token1 => g_sqlcode_token,
1034: p_token1_value => sqlcode,
1035: p_token2 => g_sqlerrm_token,
1036: p_token2_value => sqlerrm);
1037: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1038: END Validate_item_to_price_source;
1039:
1040:
1041: PROCEDURE Validate_recursive_yn (
1047: THEN
1048: IF p_lsev_rec.recursive_yn = 'Y' OR
1049: p_lsev_rec.recursive_yn = 'N'
1050: THEN
1051: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1052: ELSE
1053: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'recursive_yn');
1054: x_return_status := OKC_API.G_RET_STS_ERROR;
1055: END IF;
1049: p_lsev_rec.recursive_yn = 'N'
1050: THEN
1051: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1052: ELSE
1053: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'recursive_yn');
1054: x_return_status := OKC_API.G_RET_STS_ERROR;
1055: END IF;
1056: ELSE
1057: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'recursive_yn');
1050: THEN
1051: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1052: ELSE
1053: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'recursive_yn');
1054: x_return_status := OKC_API.G_RET_STS_ERROR;
1055: END IF;
1056: ELSE
1057: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'recursive_yn');
1058: x_return_status := OKC_API.G_RET_STS_ERROR;
1053: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'recursive_yn');
1054: x_return_status := OKC_API.G_RET_STS_ERROR;
1055: END IF;
1056: ELSE
1057: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'recursive_yn');
1058: x_return_status := OKC_API.G_RET_STS_ERROR;
1059: END IF;
1060: END Validate_recursive_yn;
1061:
1054: x_return_status := OKC_API.G_RET_STS_ERROR;
1055: END IF;
1056: ELSE
1057: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'recursive_yn');
1058: x_return_status := OKC_API.G_RET_STS_ERROR;
1059: END IF;
1060: END Validate_recursive_yn;
1061:
1062:
1064: x_return_status OUT NOCOPY VARCHAR2,
1065: p_lsev_rec IN lsev_rec_type) IS
1066: BEGIN
1067: IF p_lsev_rec.protected_yn IS NULL THEN
1068: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'protected_yn');
1069: x_return_status := OKC_API.G_RET_STS_ERROR;
1070: ELSE
1071: IF upper(p_lsev_rec.protected_yn) = 'Y' OR
1072: upper(p_lsev_rec.protected_yn) = 'N'
1065: p_lsev_rec IN lsev_rec_type) IS
1066: BEGIN
1067: IF p_lsev_rec.protected_yn IS NULL THEN
1068: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'protected_yn');
1069: x_return_status := OKC_API.G_RET_STS_ERROR;
1070: ELSE
1071: IF upper(p_lsev_rec.protected_yn) = 'Y' OR
1072: upper(p_lsev_rec.protected_yn) = 'N'
1073: THEN
1073: THEN
1074: IF p_lsev_rec.protected_yn = 'Y' OR
1075: p_lsev_rec.protected_yn = 'N'
1076: THEN
1077: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1078: ELSE
1079: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'protected_yn');
1080: x_return_status := OKC_API.G_RET_STS_ERROR;
1081: END IF;
1075: p_lsev_rec.protected_yn = 'N'
1076: THEN
1077: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1078: ELSE
1079: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'protected_yn');
1080: x_return_status := OKC_API.G_RET_STS_ERROR;
1081: END IF;
1082: ELSE
1083: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'protected_yn');
1076: THEN
1077: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1078: ELSE
1079: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'protected_yn');
1080: x_return_status := OKC_API.G_RET_STS_ERROR;
1081: END IF;
1082: ELSE
1083: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'protected_yn');
1084: x_return_status := OKC_API.G_RET_STS_ERROR;
1079: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'protected_yn');
1080: x_return_status := OKC_API.G_RET_STS_ERROR;
1081: END IF;
1082: ELSE
1083: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'protected_yn');
1084: x_return_status := OKC_API.G_RET_STS_ERROR;
1085: END IF;
1086: END IF;
1087: END Validate_protected_yn;
1080: x_return_status := OKC_API.G_RET_STS_ERROR;
1081: END IF;
1082: ELSE
1083: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'protected_yn');
1084: x_return_status := OKC_API.G_RET_STS_ERROR;
1085: END IF;
1086: END IF;
1087: END Validate_protected_yn;
1088:
1095: THEN
1096: IF p_lsev_rec.sfwt_flag = 'Y' OR
1097: p_lsev_rec.sfwt_flag = 'N'
1098: THEN
1099: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1100: ELSE
1101: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
1102: x_return_status := OKC_API.G_RET_STS_ERROR;
1103: END IF;
1097: p_lsev_rec.sfwt_flag = 'N'
1098: THEN
1099: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1100: ELSE
1101: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
1102: x_return_status := OKC_API.G_RET_STS_ERROR;
1103: END IF;
1104: ELSE
1105: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
1098: THEN
1099: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1100: ELSE
1101: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
1102: x_return_status := OKC_API.G_RET_STS_ERROR;
1103: END IF;
1104: ELSE
1105: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
1106: x_return_status := OKC_API.G_RET_STS_ERROR;
1101: OKC_API.set_message(G_APP_NAME, G_UPPERCASE_REQUIRED,G_COL_NAME_TOKEN,'SFWT_FLAG');
1102: x_return_status := OKC_API.G_RET_STS_ERROR;
1103: END IF;
1104: ELSE
1105: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
1106: x_return_status := OKC_API.G_RET_STS_ERROR;
1107: END IF;
1108: END Validate_SFWT_Flag;
1109:
1102: x_return_status := OKC_API.G_RET_STS_ERROR;
1103: END IF;
1104: ELSE
1105: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SFWT_FLAG');
1106: x_return_status := OKC_API.G_RET_STS_ERROR;
1107: END IF;
1108: END Validate_SFWT_Flag;
1109:
1110: PROCEDURE Validate_Name
1111: (x_return_status OUT NOCOPY VARCHAR2,
1112: p_lsev_rec IN lsev_rec_type) IS
1113: BEGIN
1114: -- initialize return status
1115: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1116: IF (p_lsev_rec.name is not null) AND
1117: (p_lsev_rec.name <> OKC_API.G_MISS_CHAR) THEN
1118: x_return_status := Check_Unique_Name(p_lsev_rec);
1119: ELSE
1113: BEGIN
1114: -- initialize return status
1115: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1116: IF (p_lsev_rec.name is not null) AND
1117: (p_lsev_rec.name <> OKC_API.G_MISS_CHAR) THEN
1118: x_return_status := Check_Unique_Name(p_lsev_rec);
1119: ELSE
1120: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'NAME');
1121: x_return_status := OKC_API.G_RET_STS_ERROR;
1116: IF (p_lsev_rec.name is not null) AND
1117: (p_lsev_rec.name <> OKC_API.G_MISS_CHAR) THEN
1118: x_return_status := Check_Unique_Name(p_lsev_rec);
1119: ELSE
1120: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'NAME');
1121: x_return_status := OKC_API.G_RET_STS_ERROR;
1122: END IF;
1123: EXCEPTION
1124: WHEN OTHERS THEN
1117: (p_lsev_rec.name <> OKC_API.G_MISS_CHAR) THEN
1118: x_return_status := Check_Unique_Name(p_lsev_rec);
1119: ELSE
1120: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'NAME');
1121: x_return_status := OKC_API.G_RET_STS_ERROR;
1122: END IF;
1123: EXCEPTION
1124: WHEN OTHERS THEN
1125: -- store SQL error message on message stack for caller
1122: END IF;
1123: EXCEPTION
1124: WHEN OTHERS THEN
1125: -- store SQL error message on message stack for caller
1126: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1127: p_msg_name => g_unexpected_error,
1128: p_token1 => g_sqlcode_token,
1129: p_token1_value => sqlcode,
1130: p_token2 => g_col_name_token,
1131: p_token2_value => 'Name',
1132: p_token3 => g_sqlerrm_token,
1133: p_token3_value => sqlerrm);
1134: -- notify caller of an UNEXPECTED error
1135: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1136: END Validate_Name;
1137:
1138: FUNCTION Validate_Attributes (
1139: p_lsev_rec IN lsev_rec_type
1137:
1138: FUNCTION Validate_Attributes (
1139: p_lsev_rec IN lsev_rec_type
1140: ) RETURN VARCHAR2 IS
1141: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1142: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1143: BEGIN
1144: IF p_lsev_rec.id = OKC_API.G_MISS_NUM OR
1145: p_lsev_rec.id IS NULL
1138: FUNCTION Validate_Attributes (
1139: p_lsev_rec IN lsev_rec_type
1140: ) RETURN VARCHAR2 IS
1141: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1142: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1143: BEGIN
1144: IF p_lsev_rec.id = OKC_API.G_MISS_NUM OR
1145: p_lsev_rec.id IS NULL
1146: THEN
1140: ) RETURN VARCHAR2 IS
1141: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1142: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1143: BEGIN
1144: IF p_lsev_rec.id = OKC_API.G_MISS_NUM OR
1145: p_lsev_rec.id IS NULL
1146: THEN
1147: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1148: x_return_status := OKC_API.G_RET_STS_ERROR;
1143: BEGIN
1144: IF p_lsev_rec.id = OKC_API.G_MISS_NUM OR
1145: p_lsev_rec.id IS NULL
1146: THEN
1147: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1148: x_return_status := OKC_API.G_RET_STS_ERROR;
1149: ELSIF p_lsev_rec.object_version_number = OKC_API.G_MISS_NUM OR
1150: p_lsev_rec.object_version_number IS NULL
1151: THEN
1144: IF p_lsev_rec.id = OKC_API.G_MISS_NUM OR
1145: p_lsev_rec.id IS NULL
1146: THEN
1147: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1148: x_return_status := OKC_API.G_RET_STS_ERROR;
1149: ELSIF p_lsev_rec.object_version_number = OKC_API.G_MISS_NUM OR
1150: p_lsev_rec.object_version_number IS NULL
1151: THEN
1152: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1145: p_lsev_rec.id IS NULL
1146: THEN
1147: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'id');
1148: x_return_status := OKC_API.G_RET_STS_ERROR;
1149: ELSIF p_lsev_rec.object_version_number = OKC_API.G_MISS_NUM OR
1150: p_lsev_rec.object_version_number IS NULL
1151: THEN
1152: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1153: x_return_status := OKC_API.G_RET_STS_ERROR;
1148: x_return_status := OKC_API.G_RET_STS_ERROR;
1149: ELSIF p_lsev_rec.object_version_number = OKC_API.G_MISS_NUM OR
1150: p_lsev_rec.object_version_number IS NULL
1151: THEN
1152: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1153: x_return_status := OKC_API.G_RET_STS_ERROR;
1154: END IF;
1155: Validate_Lty_Code (l_return_status,
1156: p_lsev_rec);
1149: ELSIF p_lsev_rec.object_version_number = OKC_API.G_MISS_NUM OR
1150: p_lsev_rec.object_version_number IS NULL
1151: THEN
1152: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN,'object_version_number');
1153: x_return_status := OKC_API.G_RET_STS_ERROR;
1154: END IF;
1155: Validate_Lty_Code (l_return_status,
1156: p_lsev_rec);
1157: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1153: x_return_status := OKC_API.G_RET_STS_ERROR;
1154: END IF;
1155: Validate_Lty_Code (l_return_status,
1156: p_lsev_rec);
1157: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1159: x_return_status := l_return_status;
1160: RAISE G_EXCEPTION_HALT_VALIDATION;
1161: ELSE
1154: END IF;
1155: Validate_Lty_Code (l_return_status,
1156: p_lsev_rec);
1157: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1159: x_return_status := l_return_status;
1160: RAISE G_EXCEPTION_HALT_VALIDATION;
1161: ELSE
1162: x_return_status := l_return_status; -- record that there was an error
1163: END IF;
1164: END IF;
1165:
1166: Validate_priced_yn (l_return_status, p_lsev_rec);
1167: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1169: x_return_status := l_return_status;
1170: RAISE G_EXCEPTION_HALT_VALIDATION;
1171: ELSE
1164: END IF;
1165:
1166: Validate_priced_yn (l_return_status, p_lsev_rec);
1167: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1168: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1169: x_return_status := l_return_status;
1170: RAISE G_EXCEPTION_HALT_VALIDATION;
1171: ELSE
1172: x_return_status := l_return_status; -- record that there was an error
1173: END IF;
1174: END IF;
1175:
1176: Validate_application_id (l_return_status, p_lsev_rec);
1177: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1178: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1179: x_return_status := l_return_status;
1180: RAISE G_EXCEPTION_HALT_VALIDATION;
1181: ELSE
1174: END IF;
1175:
1176: Validate_application_id (l_return_status, p_lsev_rec);
1177: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1178: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1179: x_return_status := l_return_status;
1180: RAISE G_EXCEPTION_HALT_VALIDATION;
1181: ELSE
1182: x_return_status := l_return_status; -- record that there was an error
1185:
1186:
1187: Validate_item_to_price_yn (l_return_status, p_lsev_rec);
1188:
1189: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1190: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1191: x_return_status := l_return_status;
1192: RAISE G_EXCEPTION_HALT_VALIDATION;
1193: ELSE
1186:
1187: Validate_item_to_price_yn (l_return_status, p_lsev_rec);
1188:
1189: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1190: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1191: x_return_status := l_return_status;
1192: RAISE G_EXCEPTION_HALT_VALIDATION;
1193: ELSE
1194: x_return_status := l_return_status; -- record that there was an error
1196: END IF;
1197:
1198: Validate_price_basis_yn (l_return_status, p_lsev_rec);
1199:
1200: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1202: x_return_status := l_return_status;
1203: RAISE G_EXCEPTION_HALT_VALIDATION;
1204: ELSE
1197:
1198: Validate_price_basis_yn (l_return_status, p_lsev_rec);
1199:
1200: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1201: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1202: x_return_status := l_return_status;
1203: RAISE G_EXCEPTION_HALT_VALIDATION;
1204: ELSE
1205: x_return_status := l_return_status; -- record that there was an error
1207: END IF;
1208:
1209: Validate_item_or_basis (l_return_status,
1210: p_lsev_rec);
1211: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1213: x_return_status := l_return_status;
1214: RAISE G_EXCEPTION_HALT_VALIDATION;
1215: ELSE
1208:
1209: Validate_item_or_basis (l_return_status,
1210: p_lsev_rec);
1211: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1212: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1213: x_return_status := l_return_status;
1214: RAISE G_EXCEPTION_HALT_VALIDATION;
1215: ELSE
1216: x_return_status := l_return_status; -- record that there was an error
1219:
1220: Validate_item_to_price_source (l_return_status, p_lsev_rec);
1221:
1222:
1223: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1225: x_return_status := l_return_status;
1226: RAISE G_EXCEPTION_HALT_VALIDATION;
1227: ELSE
1220: Validate_item_to_price_source (l_return_status, p_lsev_rec);
1221:
1222:
1223: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1225: x_return_status := l_return_status;
1226: RAISE G_EXCEPTION_HALT_VALIDATION;
1227: ELSE
1228: x_return_status := l_return_status; -- record that there was an error
1230: END IF;
1231:
1232: Validate_priced_level (l_return_status, p_lsev_rec);
1233:
1234: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1235: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1236: x_return_status := l_return_status;
1237: RAISE G_EXCEPTION_HALT_VALIDATION;
1238: ELSE
1231:
1232: Validate_priced_level (l_return_status, p_lsev_rec);
1233:
1234: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1235: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1236: x_return_status := l_return_status;
1237: RAISE G_EXCEPTION_HALT_VALIDATION;
1238: ELSE
1239: x_return_status := l_return_status; -- record that there was an error
1242:
1243: Validate_recursive_yn (l_return_status, p_lsev_rec);
1244:
1245:
1246: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1247: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1248: x_return_status := l_return_status;
1249: RAISE G_EXCEPTION_HALT_VALIDATION;
1250: ELSE
1243: Validate_recursive_yn (l_return_status, p_lsev_rec);
1244:
1245:
1246: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1247: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1248: x_return_status := l_return_status;
1249: RAISE G_EXCEPTION_HALT_VALIDATION;
1250: ELSE
1251: x_return_status := l_return_status; -- record that there was an error
1253: END IF;
1254:
1255: Validate_protected_yn (l_return_status, p_lsev_rec);
1256:
1257: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1258: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1259: x_return_status := l_return_status;
1260: RAISE G_EXCEPTION_HALT_VALIDATION;
1261: ELSE
1254:
1255: Validate_protected_yn (l_return_status, p_lsev_rec);
1256:
1257: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1258: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1259: x_return_status := l_return_status;
1260: RAISE G_EXCEPTION_HALT_VALIDATION;
1261: ELSE
1262: x_return_status := l_return_status; -- record that there was an error
1264: END IF;
1265: --
1266: Validate_access_level (l_return_status, p_lsev_rec);
1267:
1268: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1269: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1270: x_return_status := l_return_status;
1271: RAISE G_EXCEPTION_HALT_VALIDATION;
1272: ELSE
1265: --
1266: Validate_access_level (l_return_status, p_lsev_rec);
1267:
1268: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1269: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1270: x_return_status := l_return_status;
1271: RAISE G_EXCEPTION_HALT_VALIDATION;
1272: ELSE
1273: x_return_status := l_return_status; -- record that there was an error
1275: END IF;
1276: --
1277: Validate_Lse_Type (l_return_status,
1278: p_lsev_rec);
1279: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1280: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1281: x_return_status := l_return_status;
1282: RAISE G_EXCEPTION_HALT_VALIDATION;
1283: ELSE
1276: --
1277: Validate_Lse_Type (l_return_status,
1278: p_lsev_rec);
1279: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1280: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1281: x_return_status := l_return_status;
1282: RAISE G_EXCEPTION_HALT_VALIDATION;
1283: ELSE
1284: x_return_status := l_return_status; -- record that there was an error
1285: END IF;
1286: END IF;
1287: Validate_Lse_Parent_Id (l_return_status,
1288: p_lsev_rec);
1289: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1290: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1291: x_return_status := l_return_status;
1292: RAISE G_EXCEPTION_HALT_VALIDATION;
1293: ELSE
1286: END IF;
1287: Validate_Lse_Parent_Id (l_return_status,
1288: p_lsev_rec);
1289: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1290: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1291: x_return_status := l_return_status;
1292: RAISE G_EXCEPTION_HALT_VALIDATION;
1293: ELSE
1294: x_return_status := l_return_status; -- record that there was an error
1295: END IF;
1296: END IF;
1297: Validate_SFWT_Flag (l_return_status,
1298: p_lsev_rec);
1299: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1300: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1301: x_return_status := l_return_status;
1302: RAISE G_EXCEPTION_HALT_VALIDATION;
1303: ELSE
1296: END IF;
1297: Validate_SFWT_Flag (l_return_status,
1298: p_lsev_rec);
1299: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1300: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1301: x_return_status := l_return_status;
1302: RAISE G_EXCEPTION_HALT_VALIDATION;
1303: ELSE
1304: x_return_status := l_return_status; -- record that there was an error
1304: x_return_status := l_return_status; -- record that there was an error
1305: END IF;
1306: END IF;
1307: Validate_Name(l_return_status, p_lsev_rec);
1308: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1309: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1310: x_return_status := l_return_status;
1311: RAISE G_EXCEPTION_HALT_VALIDATION;
1312: ELSE
1305: END IF;
1306: END IF;
1307: Validate_Name(l_return_status, p_lsev_rec);
1308: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1309: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN -- need to leave
1310: x_return_status := l_return_status;
1311: RAISE G_EXCEPTION_HALT_VALIDATION;
1312: ELSE
1313: x_return_status := l_return_status; -- record that there was an error
1319: RETURN(x_return_status);
1320:
1321: WHEN OTHERS THEN
1322: -- store SQL error message on message stack for caller
1323: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1324: p_msg_name => g_unexpected_error,
1325: p_token1 => g_sqlcode_token,
1326: p_token1_value => sqlcode,
1327: p_token2 => g_sqlerrm_token,
1327: p_token2 => g_sqlerrm_token,
1328: p_token2_value => sqlerrm);
1329:
1330: -- notify caller of an UNEXPECTED error
1331: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1332: RETURN(x_return_status);
1333: END Validate_Attributes;
1334:
1335: ---------------------------------------------------------------------------
1340: ------------------------------------------
1341: FUNCTION Validate_Record (
1342: p_lsev_rec IN lsev_rec_type
1343: ) RETURN VARCHAR2 IS
1344: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1345: BEGIN
1346: RETURN (l_return_status);
1347: END Validate_Record;
1348:
1479: p_lsev_rec IN lsev_rec_type) IS
1480:
1481: l_api_version CONSTANT NUMBER := 1;
1482: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1483: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1484: l_lsev_rec lsev_rec_type := p_lsev_rec;
1485: l_lse_rec lse_rec_type;
1486: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1487: BEGIN
1484: l_lsev_rec lsev_rec_type := p_lsev_rec;
1485: l_lse_rec lse_rec_type;
1486: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1487: BEGIN
1488: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1489: G_PKG_NAME,
1490: p_init_msg_list,
1491: l_api_version,
1492: p_api_version,
1491: l_api_version,
1492: p_api_version,
1493: '_PVT',
1494: x_return_status);
1495: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1498: RAISE OKC_API.G_EXCEPTION_ERROR;
1499: END IF;
1492: p_api_version,
1493: '_PVT',
1494: x_return_status);
1495: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1498: RAISE OKC_API.G_EXCEPTION_ERROR;
1499: END IF;
1500: --- Validate all non-missing attributes (Item Level Validation)
1493: '_PVT',
1494: x_return_status);
1495: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1498: RAISE OKC_API.G_EXCEPTION_ERROR;
1499: END IF;
1500: --- Validate all non-missing attributes (Item Level Validation)
1501: l_return_status := Validate_Attributes(l_lsev_rec);
1494: x_return_status);
1495: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1496: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1497: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1498: RAISE OKC_API.G_EXCEPTION_ERROR;
1499: END IF;
1500: --- Validate all non-missing attributes (Item Level Validation)
1501: l_return_status := Validate_Attributes(l_lsev_rec);
1502: --- If any errors happen abort API
1499: END IF;
1500: --- Validate all non-missing attributes (Item Level Validation)
1501: l_return_status := Validate_Attributes(l_lsev_rec);
1502: --- If any errors happen abort API
1503: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1504: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1506: RAISE OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1500: --- Validate all non-missing attributes (Item Level Validation)
1501: l_return_status := Validate_Attributes(l_lsev_rec);
1502: --- If any errors happen abort API
1503: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1504: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1506: RAISE OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: l_return_status := Validate_Record(l_lsev_rec);
1501: l_return_status := Validate_Attributes(l_lsev_rec);
1502: --- If any errors happen abort API
1503: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1504: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1506: RAISE OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: l_return_status := Validate_Record(l_lsev_rec);
1509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1502: --- If any errors happen abort API
1503: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1504: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1506: RAISE OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: l_return_status := Validate_Record(l_lsev_rec);
1509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1505: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1506: RAISE OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: l_return_status := Validate_Record(l_lsev_rec);
1509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1511: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1512: RAISE OKC_API.G_EXCEPTION_ERROR;
1513: END IF;
1506: RAISE OKC_API.G_EXCEPTION_ERROR;
1507: END IF;
1508: l_return_status := Validate_Record(l_lsev_rec);
1509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1511: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1512: RAISE OKC_API.G_EXCEPTION_ERROR;
1513: END IF;
1514: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1507: END IF;
1508: l_return_status := Validate_Record(l_lsev_rec);
1509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1511: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1512: RAISE OKC_API.G_EXCEPTION_ERROR;
1513: END IF;
1514: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1515: EXCEPTION
1508: l_return_status := Validate_Record(l_lsev_rec);
1509: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1511: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1512: RAISE OKC_API.G_EXCEPTION_ERROR;
1513: END IF;
1514: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1515: EXCEPTION
1516: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1510: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1511: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1512: RAISE OKC_API.G_EXCEPTION_ERROR;
1513: END IF;
1514: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1515: EXCEPTION
1516: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1518: (
1512: RAISE OKC_API.G_EXCEPTION_ERROR;
1513: END IF;
1514: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1515: EXCEPTION
1516: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1518: (
1519: l_api_name,
1520: G_PKG_NAME,
1513: END IF;
1514: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1515: EXCEPTION
1516: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1518: (
1519: l_api_name,
1520: G_PKG_NAME,
1521: 'OKC_API.G_RET_STS_ERROR',
1517: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1518: (
1519: l_api_name,
1520: G_PKG_NAME,
1521: 'OKC_API.G_RET_STS_ERROR',
1522: x_msg_count,
1523: x_msg_data,
1524: '_PVT'
1525: );
1522: x_msg_count,
1523: x_msg_data,
1524: '_PVT'
1525: );
1526: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1527: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1528: (
1529: l_api_name,
1530: G_PKG_NAME,
1523: x_msg_data,
1524: '_PVT'
1525: );
1526: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1527: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1528: (
1529: l_api_name,
1530: G_PKG_NAME,
1531: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1527: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1528: (
1529: l_api_name,
1530: G_PKG_NAME,
1531: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1532: x_msg_count,
1533: x_msg_data,
1534: '_PVT'
1535: );
1533: x_msg_data,
1534: '_PVT'
1535: );
1536: WHEN OTHERS THEN
1537: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1538: (
1539: l_api_name,
1540: G_PKG_NAME,
1541: 'OTHERS',
1556: p_lsev_tbl IN lsev_tbl_type) IS
1557:
1558: l_api_version CONSTANT NUMBER := 1;
1559: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1560: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1561: i NUMBER := 0;
1562: BEGIN
1563: OKC_API.init_msg_list(p_init_msg_list);
1564: -- Make sure PL/SQL table has records in it before passing
1559: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1560: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1561: i NUMBER := 0;
1562: BEGIN
1563: OKC_API.init_msg_list(p_init_msg_list);
1564: -- Make sure PL/SQL table has records in it before passing
1565: IF (p_lsev_tbl.COUNT > 0) THEN
1566: i := p_lsev_tbl.FIRST;
1567: LOOP
1566: i := p_lsev_tbl.FIRST;
1567: LOOP
1568: validate_row (
1569: p_api_version => p_api_version,
1570: p_init_msg_list => OKC_API.G_FALSE,
1571: x_return_status => x_return_status,
1572: x_msg_count => x_msg_count,
1573: x_msg_data => x_msg_data,
1574: p_lsev_rec => p_lsev_tbl(i));
1576: i := p_lsev_tbl.NEXT(i);
1577: END LOOP;
1578: END IF;
1579: EXCEPTION
1580: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1581: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1582: (
1583: l_api_name,
1584: G_PKG_NAME,
1577: END LOOP;
1578: END IF;
1579: EXCEPTION
1580: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1581: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1582: (
1583: l_api_name,
1584: G_PKG_NAME,
1585: 'OKC_API.G_RET_STS_ERROR',
1581: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1582: (
1583: l_api_name,
1584: G_PKG_NAME,
1585: 'OKC_API.G_RET_STS_ERROR',
1586: x_msg_count,
1587: x_msg_data,
1588: '_PVT'
1589: );
1586: x_msg_count,
1587: x_msg_data,
1588: '_PVT'
1589: );
1590: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1591: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1592: (
1593: l_api_name,
1594: G_PKG_NAME,
1587: x_msg_data,
1588: '_PVT'
1589: );
1590: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1591: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1592: (
1593: l_api_name,
1594: G_PKG_NAME,
1595: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1591: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1592: (
1593: l_api_name,
1594: G_PKG_NAME,
1595: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1596: x_msg_count,
1597: x_msg_data,
1598: '_PVT'
1599: );
1597: x_msg_data,
1598: '_PVT'
1599: );
1600: WHEN OTHERS THEN
1601: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1602: (
1603: l_api_name,
1604: G_PKG_NAME,
1605: 'OTHERS',
1624: x_lse_rec OUT NOCOPY lse_rec_type) IS
1625:
1626: l_api_version CONSTANT NUMBER := 1;
1627: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1628: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1629: l_lse_rec lse_rec_type := p_lse_rec;
1630: l_def_lse_rec lse_rec_type;
1631: ------------------------------------------
1632: -- Set_Attributes for:OKC_LINE_STYLES_B --
1634: FUNCTION Set_Attributes (
1635: p_lse_rec IN lse_rec_type,
1636: x_lse_rec OUT NOCOPY lse_rec_type
1637: ) RETURN VARCHAR2 IS
1638: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1639: BEGIN
1640: x_lse_rec := p_lse_rec;
1641: RETURN(l_return_status);
1642: END Set_Attributes;
1640: x_lse_rec := p_lse_rec;
1641: RETURN(l_return_status);
1642: END Set_Attributes;
1643: BEGIN
1644: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1645: p_init_msg_list,
1646: '_PVT',
1647: x_return_status);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1644: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1645: p_init_msg_list,
1646: '_PVT',
1647: x_return_status);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1645: p_init_msg_list,
1646: '_PVT',
1647: x_return_status);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: --- Setting item attributes
1646: '_PVT',
1647: x_return_status);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: --- Setting item attributes
1654: l_return_status := Set_Attributes(
1647: x_return_status);
1648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_ERROR;
1652: END IF;
1653: --- Setting item attributes
1654: l_return_status := Set_Attributes(
1655: p_lse_rec, -- IN
1654: l_return_status := Set_Attributes(
1655: p_lse_rec, -- IN
1656: l_lse_rec); -- OUT
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1655: p_lse_rec, -- IN
1656: l_lse_rec); -- OUT
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: INSERT INTO OKC_LINE_STYLES_B(
1656: l_lse_rec); -- OUT
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: INSERT INTO OKC_LINE_STYLES_B(
1664: id,
1657: --- If any errors happen abort API
1658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1661: RAISE OKC_API.G_EXCEPTION_ERROR;
1662: END IF;
1663: INSERT INTO OKC_LINE_STYLES_B(
1664: id,
1665: lty_code,
1731: l_lse_rec.access_level,
1732: l_lse_rec.service_item_yn);
1733: -- Set OUT values
1734: x_lse_rec := l_lse_rec;
1735: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1736: EXCEPTION
1737: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1739: (
1733: -- Set OUT values
1734: x_lse_rec := l_lse_rec;
1735: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1736: EXCEPTION
1737: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1739: (
1740: l_api_name,
1741: G_PKG_NAME,
1734: x_lse_rec := l_lse_rec;
1735: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1736: EXCEPTION
1737: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1739: (
1740: l_api_name,
1741: G_PKG_NAME,
1742: 'OKC_API.G_RET_STS_ERROR',
1738: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1739: (
1740: l_api_name,
1741: G_PKG_NAME,
1742: 'OKC_API.G_RET_STS_ERROR',
1743: x_msg_count,
1744: x_msg_data,
1745: '_PVT'
1746: );
1743: x_msg_count,
1744: x_msg_data,
1745: '_PVT'
1746: );
1747: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1749: (
1750: l_api_name,
1751: G_PKG_NAME,
1744: x_msg_data,
1745: '_PVT'
1746: );
1747: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1749: (
1750: l_api_name,
1751: G_PKG_NAME,
1752: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1748: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1749: (
1750: l_api_name,
1751: G_PKG_NAME,
1752: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1753: x_msg_count,
1754: x_msg_data,
1755: '_PVT'
1756: );
1754: x_msg_data,
1755: '_PVT'
1756: );
1757: WHEN OTHERS THEN
1758: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1759: (
1760: l_api_name,
1761: G_PKG_NAME,
1762: 'OTHERS',
1777: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type) IS
1778:
1779: l_api_version CONSTANT NUMBER := 1;
1780: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1781: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1782: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type := p_okc_line_styles_tl_rec;
1783: l_def_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
1784: CURSOR get_languages IS
1785: SELECT *
1791: FUNCTION Set_Attributes (
1792: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
1793: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
1794: ) RETURN VARCHAR2 IS
1795: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1796: BEGIN
1797: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
1798: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
1799: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
1799: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
1800: RETURN(l_return_status);
1801: END Set_Attributes;
1802: BEGIN
1803: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1804: p_init_msg_list,
1805: '_PVT',
1806: x_return_status);
1807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1803: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1804: p_init_msg_list,
1805: '_PVT',
1806: x_return_status);
1807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1810: RAISE OKC_API.G_EXCEPTION_ERROR;
1811: END IF;
1804: p_init_msg_list,
1805: '_PVT',
1806: x_return_status);
1807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1810: RAISE OKC_API.G_EXCEPTION_ERROR;
1811: END IF;
1812: --- Setting item attributes
1805: '_PVT',
1806: x_return_status);
1807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1810: RAISE OKC_API.G_EXCEPTION_ERROR;
1811: END IF;
1812: --- Setting item attributes
1813: l_return_status := Set_Attributes(
1806: x_return_status);
1807: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1809: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1810: RAISE OKC_API.G_EXCEPTION_ERROR;
1811: END IF;
1812: --- Setting item attributes
1813: l_return_status := Set_Attributes(
1814: p_okc_line_styles_tl_rec, -- IN
1813: l_return_status := Set_Attributes(
1814: p_okc_line_styles_tl_rec, -- IN
1815: l_okc_line_styles_tl_rec); -- OUT
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1814: p_okc_line_styles_tl_rec, -- IN
1815: l_okc_line_styles_tl_rec); -- OUT
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822: FOR l_lang_rec IN get_languages LOOP
1815: l_okc_line_styles_tl_rec); -- OUT
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822: FOR l_lang_rec IN get_languages LOOP
1823: l_okc_line_styles_tl_rec.language := l_lang_rec.language_code;
1816: --- If any errors happen abort API
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1819: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1820: RAISE OKC_API.G_EXCEPTION_ERROR;
1821: END IF;
1822: FOR l_lang_rec IN get_languages LOOP
1823: l_okc_line_styles_tl_rec.language := l_lang_rec.language_code;
1824: INSERT INTO OKC_LINE_STYLES_TL(
1847: l_okc_line_styles_tl_rec.last_update_login);
1848: END LOOP;
1849: -- Set OUT values
1850: x_okc_line_styles_tl_rec := l_okc_line_styles_tl_rec;
1851: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1852: EXCEPTION
1853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1855: (
1849: -- Set OUT values
1850: x_okc_line_styles_tl_rec := l_okc_line_styles_tl_rec;
1851: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1852: EXCEPTION
1853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1855: (
1856: l_api_name,
1857: G_PKG_NAME,
1850: x_okc_line_styles_tl_rec := l_okc_line_styles_tl_rec;
1851: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1852: EXCEPTION
1853: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1855: (
1856: l_api_name,
1857: G_PKG_NAME,
1858: 'OKC_API.G_RET_STS_ERROR',
1854: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1855: (
1856: l_api_name,
1857: G_PKG_NAME,
1858: 'OKC_API.G_RET_STS_ERROR',
1859: x_msg_count,
1860: x_msg_data,
1861: '_PVT'
1862: );
1859: x_msg_count,
1860: x_msg_data,
1861: '_PVT'
1862: );
1863: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1864: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1865: (
1866: l_api_name,
1867: G_PKG_NAME,
1860: x_msg_data,
1861: '_PVT'
1862: );
1863: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1864: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1865: (
1866: l_api_name,
1867: G_PKG_NAME,
1868: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1864: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1865: (
1866: l_api_name,
1867: G_PKG_NAME,
1868: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1869: x_msg_count,
1870: x_msg_data,
1871: '_PVT'
1872: );
1870: x_msg_data,
1871: '_PVT'
1872: );
1873: WHEN OTHERS THEN
1874: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
1875: (
1876: l_api_name,
1877: G_PKG_NAME,
1878: 'OTHERS',
1894: x_lsev_rec OUT NOCOPY lsev_rec_type) IS
1895:
1896: l_api_version CONSTANT NUMBER := 1;
1897: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1898: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1899: l_lsev_rec lsev_rec_type;
1900: l_def_lsev_rec lsev_rec_type;
1901: l_lse_rec lse_rec_type;
1902: lx_lse_rec lse_rec_type;
1923: FUNCTION Set_Attributes (
1924: p_lsev_rec IN lsev_rec_type,
1925: x_lsev_rec OUT NOCOPY lsev_rec_type
1926: ) RETURN VARCHAR2 IS
1927: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1928: BEGIN
1929: x_lsev_rec := p_lsev_rec;
1930: x_lsev_rec.OBJECT_VERSION_NUMBER := 1;
1931: x_lsev_rec.SFWT_FLAG := 'N';
1931: x_lsev_rec.SFWT_FLAG := 'N';
1932: RETURN(l_return_status);
1933: END Set_Attributes;
1934: BEGIN
1935: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1936: G_PKG_NAME,
1937: p_init_msg_list,
1938: l_api_version,
1939: p_api_version,
1938: l_api_version,
1939: p_api_version,
1940: '_PVT',
1941: x_return_status);
1942: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1943: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1944: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1945: RAISE OKC_API.G_EXCEPTION_ERROR;
1946: END IF;
1939: p_api_version,
1940: '_PVT',
1941: x_return_status);
1942: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1943: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1944: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1945: RAISE OKC_API.G_EXCEPTION_ERROR;
1946: END IF;
1947: l_lsev_rec := null_out_defaults(p_lsev_rec);
1940: '_PVT',
1941: x_return_status);
1942: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1943: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1944: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1945: RAISE OKC_API.G_EXCEPTION_ERROR;
1946: END IF;
1947: l_lsev_rec := null_out_defaults(p_lsev_rec);
1948: -- Set primary key value
1941: x_return_status);
1942: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1943: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1944: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1945: RAISE OKC_API.G_EXCEPTION_ERROR;
1946: END IF;
1947: l_lsev_rec := null_out_defaults(p_lsev_rec);
1948: -- Set primary key value
1949: l_lsev_rec.ID := get_seq_id;
1951: l_return_status := Set_Attributes(
1952: l_lsev_rec, -- IN
1953: l_def_lsev_rec); -- OUT
1954: --- If any errors happen abort API
1955: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1958: RAISE OKC_API.G_EXCEPTION_ERROR;
1959: END IF;
1952: l_lsev_rec, -- IN
1953: l_def_lsev_rec); -- OUT
1954: --- If any errors happen abort API
1955: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1958: RAISE OKC_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: l_def_lsev_rec := fill_who_columns(l_def_lsev_rec);
1953: l_def_lsev_rec); -- OUT
1954: --- If any errors happen abort API
1955: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1958: RAISE OKC_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: l_def_lsev_rec := fill_who_columns(l_def_lsev_rec);
1961: --- Validate all non-missing attributes (Item Level Validation)
1954: --- If any errors happen abort API
1955: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1956: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1957: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1958: RAISE OKC_API.G_EXCEPTION_ERROR;
1959: END IF;
1960: l_def_lsev_rec := fill_who_columns(l_def_lsev_rec);
1961: --- Validate all non-missing attributes (Item Level Validation)
1962: l_return_status := Validate_Attributes(l_def_lsev_rec);
1960: l_def_lsev_rec := fill_who_columns(l_def_lsev_rec);
1961: --- Validate all non-missing attributes (Item Level Validation)
1962: l_return_status := Validate_Attributes(l_def_lsev_rec);
1963: --- If any errors happen abort API
1964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1966: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_ERROR;
1968: END IF;
1961: --- Validate all non-missing attributes (Item Level Validation)
1962: l_return_status := Validate_Attributes(l_def_lsev_rec);
1963: --- If any errors happen abort API
1964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1966: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_ERROR;
1968: END IF;
1969: l_return_status := Validate_Record(l_def_lsev_rec);
1962: l_return_status := Validate_Attributes(l_def_lsev_rec);
1963: --- If any errors happen abort API
1964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1966: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_ERROR;
1968: END IF;
1969: l_return_status := Validate_Record(l_def_lsev_rec);
1970: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1963: --- If any errors happen abort API
1964: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1965: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1966: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_ERROR;
1968: END IF;
1969: l_return_status := Validate_Record(l_def_lsev_rec);
1970: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1966: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_ERROR;
1968: END IF;
1969: l_return_status := Validate_Record(l_def_lsev_rec);
1970: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1972: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1973: RAISE OKC_API.G_EXCEPTION_ERROR;
1974: END IF;
1967: RAISE OKC_API.G_EXCEPTION_ERROR;
1968: END IF;
1969: l_return_status := Validate_Record(l_def_lsev_rec);
1970: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1972: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1973: RAISE OKC_API.G_EXCEPTION_ERROR;
1974: END IF;
1975: --------------------------------------
1968: END IF;
1969: l_return_status := Validate_Record(l_def_lsev_rec);
1970: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1972: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1973: RAISE OKC_API.G_EXCEPTION_ERROR;
1974: END IF;
1975: --------------------------------------
1976: -- Move VIEW record to "Child" records
1969: l_return_status := Validate_Record(l_def_lsev_rec);
1970: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1971: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1972: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1973: RAISE OKC_API.G_EXCEPTION_ERROR;
1974: END IF;
1975: --------------------------------------
1976: -- Move VIEW record to "Child" records
1977: --------------------------------------
1987: x_msg_data,
1988: l_lse_rec,
1989: lx_lse_rec
1990: );
1991: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1992: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1993: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1994: RAISE OKC_API.G_EXCEPTION_ERROR;
1995: END IF;
1988: l_lse_rec,
1989: lx_lse_rec
1990: );
1991: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1992: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1993: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1994: RAISE OKC_API.G_EXCEPTION_ERROR;
1995: END IF;
1996: migrate(lx_lse_rec, l_def_lsev_rec);
1989: lx_lse_rec
1990: );
1991: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1992: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1993: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1994: RAISE OKC_API.G_EXCEPTION_ERROR;
1995: END IF;
1996: migrate(lx_lse_rec, l_def_lsev_rec);
1997: insert_row(
1990: );
1991: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1992: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1993: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1994: RAISE OKC_API.G_EXCEPTION_ERROR;
1995: END IF;
1996: migrate(lx_lse_rec, l_def_lsev_rec);
1997: insert_row(
1998: p_init_msg_list,
2001: x_msg_data,
2002: l_okc_line_styles_tl_rec,
2003: lx_okc_line_styles_tl_rec
2004: );
2005: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_ERROR;
2009: END IF;
2002: l_okc_line_styles_tl_rec,
2003: lx_okc_line_styles_tl_rec
2004: );
2005: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: migrate(lx_okc_line_styles_tl_rec, l_def_lsev_rec);
2003: lx_okc_line_styles_tl_rec
2004: );
2005: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: migrate(lx_okc_line_styles_tl_rec, l_def_lsev_rec);
2011: -- Set OUT values
2004: );
2005: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2007: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2008: RAISE OKC_API.G_EXCEPTION_ERROR;
2009: END IF;
2010: migrate(lx_okc_line_styles_tl_rec, l_def_lsev_rec);
2011: -- Set OUT values
2012: x_lsev_rec := l_def_lsev_rec;
2009: END IF;
2010: migrate(lx_okc_line_styles_tl_rec, l_def_lsev_rec);
2011: -- Set OUT values
2012: x_lsev_rec := l_def_lsev_rec;
2013: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2014: EXCEPTION
2015: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2016: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2017: (
2011: -- Set OUT values
2012: x_lsev_rec := l_def_lsev_rec;
2013: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2014: EXCEPTION
2015: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2016: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2017: (
2018: l_api_name,
2019: G_PKG_NAME,
2012: x_lsev_rec := l_def_lsev_rec;
2013: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2014: EXCEPTION
2015: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2016: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2017: (
2018: l_api_name,
2019: G_PKG_NAME,
2020: 'OKC_API.G_RET_STS_ERROR',
2016: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2017: (
2018: l_api_name,
2019: G_PKG_NAME,
2020: 'OKC_API.G_RET_STS_ERROR',
2021: x_msg_count,
2022: x_msg_data,
2023: '_PVT'
2024: );
2021: x_msg_count,
2022: x_msg_data,
2023: '_PVT'
2024: );
2025: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2027: (
2028: l_api_name,
2029: G_PKG_NAME,
2022: x_msg_data,
2023: '_PVT'
2024: );
2025: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2027: (
2028: l_api_name,
2029: G_PKG_NAME,
2030: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2026: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2027: (
2028: l_api_name,
2029: G_PKG_NAME,
2030: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2031: x_msg_count,
2032: x_msg_data,
2033: '_PVT'
2034: );
2032: x_msg_data,
2033: '_PVT'
2034: );
2035: WHEN OTHERS THEN
2036: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2037: (
2038: l_api_name,
2039: G_PKG_NAME,
2040: 'OTHERS',
2056: x_lsev_tbl OUT NOCOPY lsev_tbl_type) IS
2057:
2058: l_api_version CONSTANT NUMBER := 1;
2059: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2060: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2061: i NUMBER := 0;
2062: BEGIN
2063: OKC_API.init_msg_list(p_init_msg_list);
2064: -- Make sure PL/SQL table has records in it before passing
2059: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2060: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2061: i NUMBER := 0;
2062: BEGIN
2063: OKC_API.init_msg_list(p_init_msg_list);
2064: -- Make sure PL/SQL table has records in it before passing
2065: IF (p_lsev_tbl.COUNT > 0) THEN
2066: i := p_lsev_tbl.FIRST;
2067: LOOP
2066: i := p_lsev_tbl.FIRST;
2067: LOOP
2068: insert_row (
2069: p_api_version => p_api_version,
2070: p_init_msg_list => OKC_API.G_FALSE,
2071: x_return_status => x_return_status,
2072: x_msg_count => x_msg_count,
2073: x_msg_data => x_msg_data,
2074: p_lsev_rec => p_lsev_tbl(i),
2077: i := p_lsev_tbl.NEXT(i);
2078: END LOOP;
2079: END IF;
2080: EXCEPTION
2081: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2082: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2083: (
2084: l_api_name,
2085: G_PKG_NAME,
2078: END LOOP;
2079: END IF;
2080: EXCEPTION
2081: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2082: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2083: (
2084: l_api_name,
2085: G_PKG_NAME,
2086: 'OKC_API.G_RET_STS_ERROR',
2082: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2083: (
2084: l_api_name,
2085: G_PKG_NAME,
2086: 'OKC_API.G_RET_STS_ERROR',
2087: x_msg_count,
2088: x_msg_data,
2089: '_PVT'
2090: );
2087: x_msg_count,
2088: x_msg_data,
2089: '_PVT'
2090: );
2091: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2093: (
2094: l_api_name,
2095: G_PKG_NAME,
2088: x_msg_data,
2089: '_PVT'
2090: );
2091: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2093: (
2094: l_api_name,
2095: G_PKG_NAME,
2096: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2092: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2093: (
2094: l_api_name,
2095: G_PKG_NAME,
2096: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2097: x_msg_count,
2098: x_msg_data,
2099: '_PVT'
2100: );
2098: x_msg_data,
2099: '_PVT'
2100: );
2101: WHEN OTHERS THEN
2102: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2103: (
2104: l_api_name,
2105: G_PKG_NAME,
2106: 'OTHERS',
2137: FROM OKC_LINE_STYLES_B
2138: WHERE ID = p_lse_rec.id;
2139: l_api_version CONSTANT NUMBER := 1;
2140: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2141: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2142: l_object_version_number OKC_LINE_STYLES_B.OBJECT_VERSION_NUMBER%TYPE;
2143: lc_object_version_number OKC_LINE_STYLES_B.OBJECT_VERSION_NUMBER%TYPE;
2144: l_row_notfound BOOLEAN := FALSE;
2145: lc_row_notfound BOOLEAN := FALSE;
2143: lc_object_version_number OKC_LINE_STYLES_B.OBJECT_VERSION_NUMBER%TYPE;
2144: l_row_notfound BOOLEAN := FALSE;
2145: lc_row_notfound BOOLEAN := FALSE;
2146: BEGIN
2147: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2148: p_init_msg_list,
2149: '_PVT',
2150: x_return_status);
2151: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2147: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2148: p_init_msg_list,
2149: '_PVT',
2150: x_return_status);
2151: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2152: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2153: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2154: RAISE OKC_API.G_EXCEPTION_ERROR;
2155: END IF;
2148: p_init_msg_list,
2149: '_PVT',
2150: x_return_status);
2151: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2152: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2153: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2154: RAISE OKC_API.G_EXCEPTION_ERROR;
2155: END IF;
2156: BEGIN
2149: '_PVT',
2150: x_return_status);
2151: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2152: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2153: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2154: RAISE OKC_API.G_EXCEPTION_ERROR;
2155: END IF;
2156: BEGIN
2157: OPEN lock_csr(p_lse_rec);
2150: x_return_status);
2151: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2152: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2153: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2154: RAISE OKC_API.G_EXCEPTION_ERROR;
2155: END IF;
2156: BEGIN
2157: OPEN lock_csr(p_lse_rec);
2158: FETCH lock_csr INTO l_object_version_number;
2162: WHEN E_Resource_Busy THEN
2163: IF (lock_csr%ISOPEN) THEN
2164: CLOSE lock_csr;
2165: END IF;
2166: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2167: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2168: END;
2169:
2170: IF ( l_row_notfound ) THEN
2173: lc_row_notfound := lchk_csr%NOTFOUND;
2174: CLOSE lchk_csr;
2175: END IF;
2176: IF (lc_row_notfound) THEN
2177: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: ELSIF lc_object_version_number > p_lse_rec.object_version_number THEN
2180: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2181: RAISE OKC_API.G_EXCEPTION_ERROR;
2174: CLOSE lchk_csr;
2175: END IF;
2176: IF (lc_row_notfound) THEN
2177: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: ELSIF lc_object_version_number > p_lse_rec.object_version_number THEN
2180: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2181: RAISE OKC_API.G_EXCEPTION_ERROR;
2182: ELSIF lc_object_version_number <> p_lse_rec.object_version_number THEN
2176: IF (lc_row_notfound) THEN
2177: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: ELSIF lc_object_version_number > p_lse_rec.object_version_number THEN
2180: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2181: RAISE OKC_API.G_EXCEPTION_ERROR;
2182: ELSIF lc_object_version_number <> p_lse_rec.object_version_number THEN
2183: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2184: RAISE OKC_API.G_EXCEPTION_ERROR;
2177: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: ELSIF lc_object_version_number > p_lse_rec.object_version_number THEN
2180: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2181: RAISE OKC_API.G_EXCEPTION_ERROR;
2182: ELSIF lc_object_version_number <> p_lse_rec.object_version_number THEN
2183: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2184: RAISE OKC_API.G_EXCEPTION_ERROR;
2185: ELSIF lc_object_version_number = -1 THEN
2179: ELSIF lc_object_version_number > p_lse_rec.object_version_number THEN
2180: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2181: RAISE OKC_API.G_EXCEPTION_ERROR;
2182: ELSIF lc_object_version_number <> p_lse_rec.object_version_number THEN
2183: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2184: RAISE OKC_API.G_EXCEPTION_ERROR;
2185: ELSIF lc_object_version_number = -1 THEN
2186: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2187: RAISE OKC_API.G_EXCEPTION_ERROR;
2180: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2181: RAISE OKC_API.G_EXCEPTION_ERROR;
2182: ELSIF lc_object_version_number <> p_lse_rec.object_version_number THEN
2183: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2184: RAISE OKC_API.G_EXCEPTION_ERROR;
2185: ELSIF lc_object_version_number = -1 THEN
2186: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2187: RAISE OKC_API.G_EXCEPTION_ERROR;
2188: END IF;
2182: ELSIF lc_object_version_number <> p_lse_rec.object_version_number THEN
2183: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2184: RAISE OKC_API.G_EXCEPTION_ERROR;
2185: ELSIF lc_object_version_number = -1 THEN
2186: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2187: RAISE OKC_API.G_EXCEPTION_ERROR;
2188: END IF;
2189: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2190: EXCEPTION
2183: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2184: RAISE OKC_API.G_EXCEPTION_ERROR;
2185: ELSIF lc_object_version_number = -1 THEN
2186: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2187: RAISE OKC_API.G_EXCEPTION_ERROR;
2188: END IF;
2189: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2190: EXCEPTION
2191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2185: ELSIF lc_object_version_number = -1 THEN
2186: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2187: RAISE OKC_API.G_EXCEPTION_ERROR;
2188: END IF;
2189: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2190: EXCEPTION
2191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2193: (
2187: RAISE OKC_API.G_EXCEPTION_ERROR;
2188: END IF;
2189: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2190: EXCEPTION
2191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2193: (
2194: l_api_name,
2195: G_PKG_NAME,
2188: END IF;
2189: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2190: EXCEPTION
2191: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2193: (
2194: l_api_name,
2195: G_PKG_NAME,
2196: 'OKC_API.G_RET_STS_ERROR',
2192: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2193: (
2194: l_api_name,
2195: G_PKG_NAME,
2196: 'OKC_API.G_RET_STS_ERROR',
2197: x_msg_count,
2198: x_msg_data,
2199: '_PVT'
2200: );
2197: x_msg_count,
2198: x_msg_data,
2199: '_PVT'
2200: );
2201: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2202: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2203: (
2204: l_api_name,
2205: G_PKG_NAME,
2198: x_msg_data,
2199: '_PVT'
2200: );
2201: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2202: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2203: (
2204: l_api_name,
2205: G_PKG_NAME,
2206: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2202: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2203: (
2204: l_api_name,
2205: G_PKG_NAME,
2206: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2207: x_msg_count,
2208: x_msg_data,
2209: '_PVT'
2210: );
2208: x_msg_data,
2209: '_PVT'
2210: );
2211: WHEN OTHERS THEN
2212: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2213: (
2214: l_api_name,
2215: G_PKG_NAME,
2216: 'OTHERS',
2238: FOR UPDATE NOWAIT;
2239:
2240: l_api_version CONSTANT NUMBER := 1;
2241: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2242: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2243: l_lock_var lock_csr%ROWTYPE;
2244: l_row_notfound BOOLEAN := FALSE;
2245: lc_row_notfound BOOLEAN := FALSE;
2246: BEGIN
2243: l_lock_var lock_csr%ROWTYPE;
2244: l_row_notfound BOOLEAN := FALSE;
2245: lc_row_notfound BOOLEAN := FALSE;
2246: BEGIN
2247: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2248: p_init_msg_list,
2249: '_PVT',
2250: x_return_status);
2251: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2247: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2248: p_init_msg_list,
2249: '_PVT',
2250: x_return_status);
2251: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2252: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2254: RAISE OKC_API.G_EXCEPTION_ERROR;
2255: END IF;
2248: p_init_msg_list,
2249: '_PVT',
2250: x_return_status);
2251: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2252: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2254: RAISE OKC_API.G_EXCEPTION_ERROR;
2255: END IF;
2256: BEGIN
2249: '_PVT',
2250: x_return_status);
2251: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2252: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2254: RAISE OKC_API.G_EXCEPTION_ERROR;
2255: END IF;
2256: BEGIN
2257: OPEN lock_csr(p_okc_line_styles_tl_rec);
2250: x_return_status);
2251: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2252: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2253: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2254: RAISE OKC_API.G_EXCEPTION_ERROR;
2255: END IF;
2256: BEGIN
2257: OPEN lock_csr(p_okc_line_styles_tl_rec);
2258: FETCH lock_csr INTO l_lock_var;
2262: WHEN E_Resource_Busy THEN
2263: IF (lock_csr%ISOPEN) THEN
2264: CLOSE lock_csr;
2265: END IF;
2266: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2267: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2268: END;
2269:
2270: IF ( l_row_notfound ) THEN
2267: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2268: END;
2269:
2270: IF ( l_row_notfound ) THEN
2271: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2268: END;
2269:
2270: IF ( l_row_notfound ) THEN
2271: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2276: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2270: IF ( l_row_notfound ) THEN
2271: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2276: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2277: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2278: (
2272: RAISE OKC_API.G_EXCEPTION_ERROR;
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2276: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2277: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2278: (
2279: l_api_name,
2280: G_PKG_NAME,
2273: END IF;
2274: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2275: EXCEPTION
2276: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2277: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2278: (
2279: l_api_name,
2280: G_PKG_NAME,
2281: 'OKC_API.G_RET_STS_ERROR',
2277: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2278: (
2279: l_api_name,
2280: G_PKG_NAME,
2281: 'OKC_API.G_RET_STS_ERROR',
2282: x_msg_count,
2283: x_msg_data,
2284: '_PVT'
2285: );
2282: x_msg_count,
2283: x_msg_data,
2284: '_PVT'
2285: );
2286: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2287: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2288: (
2289: l_api_name,
2290: G_PKG_NAME,
2283: x_msg_data,
2284: '_PVT'
2285: );
2286: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2287: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2288: (
2289: l_api_name,
2290: G_PKG_NAME,
2291: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2287: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2288: (
2289: l_api_name,
2290: G_PKG_NAME,
2291: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2292: x_msg_count,
2293: x_msg_data,
2294: '_PVT'
2295: );
2293: x_msg_data,
2294: '_PVT'
2295: );
2296: WHEN OTHERS THEN
2297: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2298: (
2299: l_api_name,
2300: G_PKG_NAME,
2301: 'OTHERS',
2316: p_lsev_rec IN lsev_rec_type) IS
2317:
2318: l_api_version CONSTANT NUMBER := 1;
2319: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2320: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2321: l_lse_rec lse_rec_type;
2322: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2323: BEGIN
2324: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2320: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2321: l_lse_rec lse_rec_type;
2322: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2323: BEGIN
2324: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2325: G_PKG_NAME,
2326: p_init_msg_list,
2327: l_api_version,
2328: p_api_version,
2327: l_api_version,
2328: p_api_version,
2329: '_PVT',
2330: x_return_status);
2331: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2332: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2333: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2334: RAISE OKC_API.G_EXCEPTION_ERROR;
2335: END IF;
2328: p_api_version,
2329: '_PVT',
2330: x_return_status);
2331: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2332: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2333: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2334: RAISE OKC_API.G_EXCEPTION_ERROR;
2335: END IF;
2336: --------------------------------------
2329: '_PVT',
2330: x_return_status);
2331: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2332: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2333: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2334: RAISE OKC_API.G_EXCEPTION_ERROR;
2335: END IF;
2336: --------------------------------------
2337: -- Move VIEW record to "Child" records
2330: x_return_status);
2331: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2332: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2333: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2334: RAISE OKC_API.G_EXCEPTION_ERROR;
2335: END IF;
2336: --------------------------------------
2337: -- Move VIEW record to "Child" records
2338: --------------------------------------
2347: x_msg_count,
2348: x_msg_data,
2349: l_lse_rec
2350: );
2351: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2352: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2353: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2354: RAISE OKC_API.G_EXCEPTION_ERROR;
2355: END IF;
2348: x_msg_data,
2349: l_lse_rec
2350: );
2351: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2352: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2353: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2354: RAISE OKC_API.G_EXCEPTION_ERROR;
2355: END IF;
2356: lock_row(
2349: l_lse_rec
2350: );
2351: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2352: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2353: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2354: RAISE OKC_API.G_EXCEPTION_ERROR;
2355: END IF;
2356: lock_row(
2357: p_init_msg_list,
2350: );
2351: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2352: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2353: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2354: RAISE OKC_API.G_EXCEPTION_ERROR;
2355: END IF;
2356: lock_row(
2357: p_init_msg_list,
2358: x_return_status,
2359: x_msg_count,
2360: x_msg_data,
2361: l_okc_line_styles_tl_rec
2362: );
2363: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2366: RAISE OKC_API.G_EXCEPTION_ERROR;
2367: END IF;
2360: x_msg_data,
2361: l_okc_line_styles_tl_rec
2362: );
2363: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2366: RAISE OKC_API.G_EXCEPTION_ERROR;
2367: END IF;
2368: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2361: l_okc_line_styles_tl_rec
2362: );
2363: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2366: RAISE OKC_API.G_EXCEPTION_ERROR;
2367: END IF;
2368: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2369: EXCEPTION
2362: );
2363: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2366: RAISE OKC_API.G_EXCEPTION_ERROR;
2367: END IF;
2368: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2369: EXCEPTION
2370: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2364: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2365: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
2366: RAISE OKC_API.G_EXCEPTION_ERROR;
2367: END IF;
2368: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2369: EXCEPTION
2370: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2371: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2372: (
2366: RAISE OKC_API.G_EXCEPTION_ERROR;
2367: END IF;
2368: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2369: EXCEPTION
2370: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2371: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2372: (
2373: l_api_name,
2374: G_PKG_NAME,
2367: END IF;
2368: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2369: EXCEPTION
2370: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2371: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2372: (
2373: l_api_name,
2374: G_PKG_NAME,
2375: 'OKC_API.G_RET_STS_ERROR',
2371: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2372: (
2373: l_api_name,
2374: G_PKG_NAME,
2375: 'OKC_API.G_RET_STS_ERROR',
2376: x_msg_count,
2377: x_msg_data,
2378: '_PVT'
2379: );
2376: x_msg_count,
2377: x_msg_data,
2378: '_PVT'
2379: );
2380: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2381: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2382: (
2383: l_api_name,
2384: G_PKG_NAME,
2377: x_msg_data,
2378: '_PVT'
2379: );
2380: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2381: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2382: (
2383: l_api_name,
2384: G_PKG_NAME,
2385: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2381: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2382: (
2383: l_api_name,
2384: G_PKG_NAME,
2385: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2386: x_msg_count,
2387: x_msg_data,
2388: '_PVT'
2389: );
2387: x_msg_data,
2388: '_PVT'
2389: );
2390: WHEN OTHERS THEN
2391: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2392: (
2393: l_api_name,
2394: G_PKG_NAME,
2395: 'OTHERS',
2410: p_lsev_tbl IN lsev_tbl_type) IS
2411:
2412: l_api_version CONSTANT NUMBER := 1;
2413: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2414: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2415: i NUMBER := 0;
2416: BEGIN
2417: OKC_API.init_msg_list(p_init_msg_list);
2418: -- Make sure PL/SQL table has records in it before passing
2413: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2414: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2415: i NUMBER := 0;
2416: BEGIN
2417: OKC_API.init_msg_list(p_init_msg_list);
2418: -- Make sure PL/SQL table has records in it before passing
2419: IF (p_lsev_tbl.COUNT > 0) THEN
2420: i := p_lsev_tbl.FIRST;
2421: LOOP
2420: i := p_lsev_tbl.FIRST;
2421: LOOP
2422: lock_row (
2423: p_api_version => p_api_version,
2424: p_init_msg_list => OKC_API.G_FALSE,
2425: x_return_status => x_return_status,
2426: x_msg_count => x_msg_count,
2427: x_msg_data => x_msg_data,
2428: p_lsev_rec => p_lsev_tbl(i));
2430: i := p_lsev_tbl.NEXT(i);
2431: END LOOP;
2432: END IF;
2433: EXCEPTION
2434: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2435: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2436: (
2437: l_api_name,
2438: G_PKG_NAME,
2431: END LOOP;
2432: END IF;
2433: EXCEPTION
2434: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2435: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2436: (
2437: l_api_name,
2438: G_PKG_NAME,
2439: 'OKC_API.G_RET_STS_ERROR',
2435: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2436: (
2437: l_api_name,
2438: G_PKG_NAME,
2439: 'OKC_API.G_RET_STS_ERROR',
2440: x_msg_count,
2441: x_msg_data,
2442: '_PVT'
2443: );
2440: x_msg_count,
2441: x_msg_data,
2442: '_PVT'
2443: );
2444: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2445: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2446: (
2447: l_api_name,
2448: G_PKG_NAME,
2441: x_msg_data,
2442: '_PVT'
2443: );
2444: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2445: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2446: (
2447: l_api_name,
2448: G_PKG_NAME,
2449: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2445: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2446: (
2447: l_api_name,
2448: G_PKG_NAME,
2449: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2450: x_msg_count,
2451: x_msg_data,
2452: '_PVT'
2453: );
2451: x_msg_data,
2452: '_PVT'
2453: );
2454: WHEN OTHERS THEN
2455: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2456: (
2457: l_api_name,
2458: G_PKG_NAME,
2459: 'OTHERS',
2478: x_lse_rec OUT NOCOPY lse_rec_type) IS
2479:
2480: l_api_version CONSTANT NUMBER := 1;
2481: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2482: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2483: l_lse_rec lse_rec_type := p_lse_rec;
2484: l_def_lse_rec lse_rec_type;
2485: l_row_notfound BOOLEAN := TRUE;
2486: ----------------------------------
2491: x_lse_rec OUT NOCOPY lse_rec_type
2492: ) RETURN VARCHAR2 IS
2493: l_lse_rec lse_rec_type;
2494: l_row_notfound BOOLEAN := TRUE;
2495: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2496: BEGIN
2497: x_lse_rec := p_lse_rec;
2498: -- Get current database values
2499: l_lse_rec := get_rec(p_lse_rec, l_row_notfound);
2497: x_lse_rec := p_lse_rec;
2498: -- Get current database values
2499: l_lse_rec := get_rec(p_lse_rec, l_row_notfound);
2500: IF (l_row_notfound) THEN
2501: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2502: END IF;
2503: IF (x_lse_rec.id = OKC_API.G_MISS_NUM)
2504: THEN
2505: x_lse_rec.id := l_lse_rec.id;
2499: l_lse_rec := get_rec(p_lse_rec, l_row_notfound);
2500: IF (l_row_notfound) THEN
2501: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2502: END IF;
2503: IF (x_lse_rec.id = OKC_API.G_MISS_NUM)
2504: THEN
2505: x_lse_rec.id := l_lse_rec.id;
2506: END IF;
2507: IF (x_lse_rec.lty_code = OKC_API.G_MISS_CHAR)
2503: IF (x_lse_rec.id = OKC_API.G_MISS_NUM)
2504: THEN
2505: x_lse_rec.id := l_lse_rec.id;
2506: END IF;
2507: IF (x_lse_rec.lty_code = OKC_API.G_MISS_CHAR)
2508: THEN
2509: x_lse_rec.lty_code := l_lse_rec.lty_code;
2510: END IF;
2511: IF (x_lse_rec.priced_yn = OKC_API.G_MISS_CHAR)
2507: IF (x_lse_rec.lty_code = OKC_API.G_MISS_CHAR)
2508: THEN
2509: x_lse_rec.lty_code := l_lse_rec.lty_code;
2510: END IF;
2511: IF (x_lse_rec.priced_yn = OKC_API.G_MISS_CHAR)
2512: THEN
2513: x_lse_rec.priced_yn := l_lse_rec.priced_yn;
2514: END IF;
2515: IF (x_lse_rec.recursive_yn = OKC_API.G_MISS_CHAR)
2511: IF (x_lse_rec.priced_yn = OKC_API.G_MISS_CHAR)
2512: THEN
2513: x_lse_rec.priced_yn := l_lse_rec.priced_yn;
2514: END IF;
2515: IF (x_lse_rec.recursive_yn = OKC_API.G_MISS_CHAR)
2516: THEN
2517: x_lse_rec.recursive_yn := l_lse_rec.recursive_yn;
2518: END IF;
2519: IF (x_lse_rec.protected_yn = OKC_API.G_MISS_CHAR)
2515: IF (x_lse_rec.recursive_yn = OKC_API.G_MISS_CHAR)
2516: THEN
2517: x_lse_rec.recursive_yn := l_lse_rec.recursive_yn;
2518: END IF;
2519: IF (x_lse_rec.protected_yn = OKC_API.G_MISS_CHAR)
2520: THEN
2521: x_lse_rec.protected_yn := l_lse_rec.protected_yn;
2522: END IF;
2523: IF (x_lse_rec.lse_parent_id = OKC_API.G_MISS_NUM)
2519: IF (x_lse_rec.protected_yn = OKC_API.G_MISS_CHAR)
2520: THEN
2521: x_lse_rec.protected_yn := l_lse_rec.protected_yn;
2522: END IF;
2523: IF (x_lse_rec.lse_parent_id = OKC_API.G_MISS_NUM)
2524: THEN
2525: x_lse_rec.lse_parent_id := l_lse_rec.lse_parent_id;
2526: END IF;
2527: IF (x_lse_rec.lse_type = OKC_API.G_MISS_CHAR)
2523: IF (x_lse_rec.lse_parent_id = OKC_API.G_MISS_NUM)
2524: THEN
2525: x_lse_rec.lse_parent_id := l_lse_rec.lse_parent_id;
2526: END IF;
2527: IF (x_lse_rec.lse_type = OKC_API.G_MISS_CHAR)
2528: THEN
2529: x_lse_rec.lse_type := l_lse_rec.lse_type;
2530: END IF;
2531: IF (x_lse_rec.object_version_number = OKC_API.G_MISS_NUM)
2527: IF (x_lse_rec.lse_type = OKC_API.G_MISS_CHAR)
2528: THEN
2529: x_lse_rec.lse_type := l_lse_rec.lse_type;
2530: END IF;
2531: IF (x_lse_rec.object_version_number = OKC_API.G_MISS_NUM)
2532: THEN
2533: x_lse_rec.object_version_number := l_lse_rec.object_version_number;
2534: END IF;
2535: IF (x_lse_rec.application_id = OKC_API.G_MISS_NUM)
2531: IF (x_lse_rec.object_version_number = OKC_API.G_MISS_NUM)
2532: THEN
2533: x_lse_rec.object_version_number := l_lse_rec.object_version_number;
2534: END IF;
2535: IF (x_lse_rec.application_id = OKC_API.G_MISS_NUM)
2536: THEN
2537: x_lse_rec.application_id := l_lse_rec.application_id;
2538: END IF;
2539: IF (x_lse_rec.created_by = OKC_API.G_MISS_NUM)
2535: IF (x_lse_rec.application_id = OKC_API.G_MISS_NUM)
2536: THEN
2537: x_lse_rec.application_id := l_lse_rec.application_id;
2538: END IF;
2539: IF (x_lse_rec.created_by = OKC_API.G_MISS_NUM)
2540: THEN
2541: x_lse_rec.created_by := l_lse_rec.created_by;
2542: END IF;
2543: IF (x_lse_rec.creation_date = OKC_API.G_MISS_DATE)
2539: IF (x_lse_rec.created_by = OKC_API.G_MISS_NUM)
2540: THEN
2541: x_lse_rec.created_by := l_lse_rec.created_by;
2542: END IF;
2543: IF (x_lse_rec.creation_date = OKC_API.G_MISS_DATE)
2544: THEN
2545: x_lse_rec.creation_date := l_lse_rec.creation_date;
2546: END IF;
2547: IF (x_lse_rec.last_updated_by = OKC_API.G_MISS_NUM)
2543: IF (x_lse_rec.creation_date = OKC_API.G_MISS_DATE)
2544: THEN
2545: x_lse_rec.creation_date := l_lse_rec.creation_date;
2546: END IF;
2547: IF (x_lse_rec.last_updated_by = OKC_API.G_MISS_NUM)
2548: THEN
2549: x_lse_rec.last_updated_by := l_lse_rec.last_updated_by;
2550: END IF;
2551: IF (x_lse_rec.last_update_date = OKC_API.G_MISS_DATE)
2547: IF (x_lse_rec.last_updated_by = OKC_API.G_MISS_NUM)
2548: THEN
2549: x_lse_rec.last_updated_by := l_lse_rec.last_updated_by;
2550: END IF;
2551: IF (x_lse_rec.last_update_date = OKC_API.G_MISS_DATE)
2552: THEN
2553: x_lse_rec.last_update_date := l_lse_rec.last_update_date;
2554: END IF;
2555: IF (x_lse_rec.last_update_login = OKC_API.G_MISS_NUM)
2551: IF (x_lse_rec.last_update_date = OKC_API.G_MISS_DATE)
2552: THEN
2553: x_lse_rec.last_update_date := l_lse_rec.last_update_date;
2554: END IF;
2555: IF (x_lse_rec.last_update_login = OKC_API.G_MISS_NUM)
2556: THEN
2557: x_lse_rec.last_update_login := l_lse_rec.last_update_login;
2558: END IF;
2559: IF (x_lse_rec.attribute_category = OKC_API.G_MISS_CHAR)
2555: IF (x_lse_rec.last_update_login = OKC_API.G_MISS_NUM)
2556: THEN
2557: x_lse_rec.last_update_login := l_lse_rec.last_update_login;
2558: END IF;
2559: IF (x_lse_rec.attribute_category = OKC_API.G_MISS_CHAR)
2560: THEN
2561: x_lse_rec.attribute_category := l_lse_rec.attribute_category;
2562: END IF;
2563: IF (x_lse_rec.attribute1 = OKC_API.G_MISS_CHAR)
2559: IF (x_lse_rec.attribute_category = OKC_API.G_MISS_CHAR)
2560: THEN
2561: x_lse_rec.attribute_category := l_lse_rec.attribute_category;
2562: END IF;
2563: IF (x_lse_rec.attribute1 = OKC_API.G_MISS_CHAR)
2564: THEN
2565: x_lse_rec.attribute1 := l_lse_rec.attribute1;
2566: END IF;
2567: IF (x_lse_rec.attribute2 = OKC_API.G_MISS_CHAR)
2563: IF (x_lse_rec.attribute1 = OKC_API.G_MISS_CHAR)
2564: THEN
2565: x_lse_rec.attribute1 := l_lse_rec.attribute1;
2566: END IF;
2567: IF (x_lse_rec.attribute2 = OKC_API.G_MISS_CHAR)
2568: THEN
2569: x_lse_rec.attribute2 := l_lse_rec.attribute2;
2570: END IF;
2571: IF (x_lse_rec.attribute3 = OKC_API.G_MISS_CHAR)
2567: IF (x_lse_rec.attribute2 = OKC_API.G_MISS_CHAR)
2568: THEN
2569: x_lse_rec.attribute2 := l_lse_rec.attribute2;
2570: END IF;
2571: IF (x_lse_rec.attribute3 = OKC_API.G_MISS_CHAR)
2572: THEN
2573: x_lse_rec.attribute3 := l_lse_rec.attribute3;
2574: END IF;
2575: IF (x_lse_rec.attribute4 = OKC_API.G_MISS_CHAR)
2571: IF (x_lse_rec.attribute3 = OKC_API.G_MISS_CHAR)
2572: THEN
2573: x_lse_rec.attribute3 := l_lse_rec.attribute3;
2574: END IF;
2575: IF (x_lse_rec.attribute4 = OKC_API.G_MISS_CHAR)
2576: THEN
2577: x_lse_rec.attribute4 := l_lse_rec.attribute4;
2578: END IF;
2579: IF (x_lse_rec.attribute5 = OKC_API.G_MISS_CHAR)
2575: IF (x_lse_rec.attribute4 = OKC_API.G_MISS_CHAR)
2576: THEN
2577: x_lse_rec.attribute4 := l_lse_rec.attribute4;
2578: END IF;
2579: IF (x_lse_rec.attribute5 = OKC_API.G_MISS_CHAR)
2580: THEN
2581: x_lse_rec.attribute5 := l_lse_rec.attribute5;
2582: END IF;
2583: IF (x_lse_rec.attribute6 = OKC_API.G_MISS_CHAR)
2579: IF (x_lse_rec.attribute5 = OKC_API.G_MISS_CHAR)
2580: THEN
2581: x_lse_rec.attribute5 := l_lse_rec.attribute5;
2582: END IF;
2583: IF (x_lse_rec.attribute6 = OKC_API.G_MISS_CHAR)
2584: THEN
2585: x_lse_rec.attribute6 := l_lse_rec.attribute6;
2586: END IF;
2587: IF (x_lse_rec.attribute7 = OKC_API.G_MISS_CHAR)
2583: IF (x_lse_rec.attribute6 = OKC_API.G_MISS_CHAR)
2584: THEN
2585: x_lse_rec.attribute6 := l_lse_rec.attribute6;
2586: END IF;
2587: IF (x_lse_rec.attribute7 = OKC_API.G_MISS_CHAR)
2588: THEN
2589: x_lse_rec.attribute7 := l_lse_rec.attribute7;
2590: END IF;
2591: IF (x_lse_rec.attribute8 = OKC_API.G_MISS_CHAR)
2587: IF (x_lse_rec.attribute7 = OKC_API.G_MISS_CHAR)
2588: THEN
2589: x_lse_rec.attribute7 := l_lse_rec.attribute7;
2590: END IF;
2591: IF (x_lse_rec.attribute8 = OKC_API.G_MISS_CHAR)
2592: THEN
2593: x_lse_rec.attribute8 := l_lse_rec.attribute8;
2594: END IF;
2595: IF (x_lse_rec.attribute9 = OKC_API.G_MISS_CHAR)
2591: IF (x_lse_rec.attribute8 = OKC_API.G_MISS_CHAR)
2592: THEN
2593: x_lse_rec.attribute8 := l_lse_rec.attribute8;
2594: END IF;
2595: IF (x_lse_rec.attribute9 = OKC_API.G_MISS_CHAR)
2596: THEN
2597: x_lse_rec.attribute9 := l_lse_rec.attribute9;
2598: END IF;
2599: IF (x_lse_rec.attribute10 = OKC_API.G_MISS_CHAR)
2595: IF (x_lse_rec.attribute9 = OKC_API.G_MISS_CHAR)
2596: THEN
2597: x_lse_rec.attribute9 := l_lse_rec.attribute9;
2598: END IF;
2599: IF (x_lse_rec.attribute10 = OKC_API.G_MISS_CHAR)
2600: THEN
2601: x_lse_rec.attribute10 := l_lse_rec.attribute10;
2602: END IF;
2603: IF (x_lse_rec.attribute11 = OKC_API.G_MISS_CHAR)
2599: IF (x_lse_rec.attribute10 = OKC_API.G_MISS_CHAR)
2600: THEN
2601: x_lse_rec.attribute10 := l_lse_rec.attribute10;
2602: END IF;
2603: IF (x_lse_rec.attribute11 = OKC_API.G_MISS_CHAR)
2604: THEN
2605: x_lse_rec.attribute11 := l_lse_rec.attribute11;
2606: END IF;
2607: IF (x_lse_rec.attribute12 = OKC_API.G_MISS_CHAR)
2603: IF (x_lse_rec.attribute11 = OKC_API.G_MISS_CHAR)
2604: THEN
2605: x_lse_rec.attribute11 := l_lse_rec.attribute11;
2606: END IF;
2607: IF (x_lse_rec.attribute12 = OKC_API.G_MISS_CHAR)
2608: THEN
2609: x_lse_rec.attribute12 := l_lse_rec.attribute12;
2610: END IF;
2611: IF (x_lse_rec.attribute13 = OKC_API.G_MISS_CHAR)
2607: IF (x_lse_rec.attribute12 = OKC_API.G_MISS_CHAR)
2608: THEN
2609: x_lse_rec.attribute12 := l_lse_rec.attribute12;
2610: END IF;
2611: IF (x_lse_rec.attribute13 = OKC_API.G_MISS_CHAR)
2612: THEN
2613: x_lse_rec.attribute13 := l_lse_rec.attribute13;
2614: END IF;
2615: IF (x_lse_rec.attribute14 = OKC_API.G_MISS_CHAR)
2611: IF (x_lse_rec.attribute13 = OKC_API.G_MISS_CHAR)
2612: THEN
2613: x_lse_rec.attribute13 := l_lse_rec.attribute13;
2614: END IF;
2615: IF (x_lse_rec.attribute14 = OKC_API.G_MISS_CHAR)
2616: THEN
2617: x_lse_rec.attribute14 := l_lse_rec.attribute14;
2618: END IF;
2619: IF (x_lse_rec.attribute15 = OKC_API.G_MISS_CHAR)
2615: IF (x_lse_rec.attribute14 = OKC_API.G_MISS_CHAR)
2616: THEN
2617: x_lse_rec.attribute14 := l_lse_rec.attribute14;
2618: END IF;
2619: IF (x_lse_rec.attribute15 = OKC_API.G_MISS_CHAR)
2620: THEN
2621: x_lse_rec.attribute15 := l_lse_rec.attribute15;
2622: END IF;
2623: IF (x_lse_rec.item_to_price_yn = OKC_API.G_MISS_CHAR)
2619: IF (x_lse_rec.attribute15 = OKC_API.G_MISS_CHAR)
2620: THEN
2621: x_lse_rec.attribute15 := l_lse_rec.attribute15;
2622: END IF;
2623: IF (x_lse_rec.item_to_price_yn = OKC_API.G_MISS_CHAR)
2624: THEN
2625: x_lse_rec.item_to_price_yn := l_lse_rec.item_to_price_yn ;
2626: END IF;
2627: IF (x_lse_rec.price_basis_yn = OKC_API.G_MISS_CHAR)
2623: IF (x_lse_rec.item_to_price_yn = OKC_API.G_MISS_CHAR)
2624: THEN
2625: x_lse_rec.item_to_price_yn := l_lse_rec.item_to_price_yn ;
2626: END IF;
2627: IF (x_lse_rec.price_basis_yn = OKC_API.G_MISS_CHAR)
2628: THEN
2629: x_lse_rec.price_basis_yn := l_lse_rec.price_basis_yn;
2630: END IF;
2631: IF (x_lse_rec.access_level = OKC_API.G_MISS_CHAR)
2627: IF (x_lse_rec.price_basis_yn = OKC_API.G_MISS_CHAR)
2628: THEN
2629: x_lse_rec.price_basis_yn := l_lse_rec.price_basis_yn;
2630: END IF;
2631: IF (x_lse_rec.access_level = OKC_API.G_MISS_CHAR)
2632: THEN
2633: x_lse_rec.access_level := l_lse_rec.access_level;
2634: END IF;
2635: IF (x_lse_rec.service_item_yn = OKC_API.G_MISS_CHAR)
2631: IF (x_lse_rec.access_level = OKC_API.G_MISS_CHAR)
2632: THEN
2633: x_lse_rec.access_level := l_lse_rec.access_level;
2634: END IF;
2635: IF (x_lse_rec.service_item_yn = OKC_API.G_MISS_CHAR)
2636: THEN
2637: x_lse_rec.service_item_yn := l_lse_rec.service_item_yn;
2638: END IF;
2639: RETURN(l_return_status);
2644: FUNCTION Set_Attributes (
2645: p_lse_rec IN lse_rec_type,
2646: x_lse_rec OUT NOCOPY lse_rec_type
2647: ) RETURN VARCHAR2 IS
2648: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2649: BEGIN
2650: x_lse_rec := p_lse_rec;
2651: RETURN(l_return_status);
2652: END Set_Attributes;
2650: x_lse_rec := p_lse_rec;
2651: RETURN(l_return_status);
2652: END Set_Attributes;
2653: BEGIN
2654: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2655: p_init_msg_list,
2656: '_PVT',
2657: x_return_status);
2658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2654: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2655: p_init_msg_list,
2656: '_PVT',
2657: x_return_status);
2658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2661: RAISE OKC_API.G_EXCEPTION_ERROR;
2662: END IF;
2655: p_init_msg_list,
2656: '_PVT',
2657: x_return_status);
2658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2661: RAISE OKC_API.G_EXCEPTION_ERROR;
2662: END IF;
2663: --- Setting item attributes
2656: '_PVT',
2657: x_return_status);
2658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2661: RAISE OKC_API.G_EXCEPTION_ERROR;
2662: END IF;
2663: --- Setting item attributes
2664: l_return_status := Set_Attributes(
2657: x_return_status);
2658: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2659: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2660: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2661: RAISE OKC_API.G_EXCEPTION_ERROR;
2662: END IF;
2663: --- Setting item attributes
2664: l_return_status := Set_Attributes(
2665: p_lse_rec, -- IN
2664: l_return_status := Set_Attributes(
2665: p_lse_rec, -- IN
2666: l_lse_rec); -- OUT
2667: --- If any errors happen abort API
2668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2665: p_lse_rec, -- IN
2666: l_lse_rec); -- OUT
2667: --- If any errors happen abort API
2668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2673: l_return_status := populate_new_record(l_lse_rec, l_def_lse_rec);
2666: l_lse_rec); -- OUT
2667: --- If any errors happen abort API
2668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2673: l_return_status := populate_new_record(l_lse_rec, l_def_lse_rec);
2674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2667: --- If any errors happen abort API
2668: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2669: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2673: l_return_status := populate_new_record(l_lse_rec, l_def_lse_rec);
2674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2673: l_return_status := populate_new_record(l_lse_rec, l_def_lse_rec);
2674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2677: RAISE OKC_API.G_EXCEPTION_ERROR;
2678: END IF;
2671: RAISE OKC_API.G_EXCEPTION_ERROR;
2672: END IF;
2673: l_return_status := populate_new_record(l_lse_rec, l_def_lse_rec);
2674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2677: RAISE OKC_API.G_EXCEPTION_ERROR;
2678: END IF;
2679: UPDATE OKC_LINE_STYLES_B
2672: END IF;
2673: l_return_status := populate_new_record(l_lse_rec, l_def_lse_rec);
2674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2677: RAISE OKC_API.G_EXCEPTION_ERROR;
2678: END IF;
2679: UPDATE OKC_LINE_STYLES_B
2680: SET LTY_CODE = l_def_lse_rec.lty_code,
2673: l_return_status := populate_new_record(l_lse_rec, l_def_lse_rec);
2674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2675: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2676: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2677: RAISE OKC_API.G_EXCEPTION_ERROR;
2678: END IF;
2679: UPDATE OKC_LINE_STYLES_B
2680: SET LTY_CODE = l_def_lse_rec.lty_code,
2681: PRICED_YN = l_def_lse_rec.PRICED_YN,
2711: SERVICE_ITEM_YN = l_def_lse_rec.service_item_yn
2712: WHERE ID = l_def_lse_rec.id;
2713:
2714: x_lse_rec := l_def_lse_rec;
2715: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2716: EXCEPTION
2717: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2718: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2719: (
2713:
2714: x_lse_rec := l_def_lse_rec;
2715: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2716: EXCEPTION
2717: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2718: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2719: (
2720: l_api_name,
2721: G_PKG_NAME,
2714: x_lse_rec := l_def_lse_rec;
2715: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2716: EXCEPTION
2717: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2718: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2719: (
2720: l_api_name,
2721: G_PKG_NAME,
2722: 'OKC_API.G_RET_STS_ERROR',
2718: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2719: (
2720: l_api_name,
2721: G_PKG_NAME,
2722: 'OKC_API.G_RET_STS_ERROR',
2723: x_msg_count,
2724: x_msg_data,
2725: '_PVT'
2726: );
2723: x_msg_count,
2724: x_msg_data,
2725: '_PVT'
2726: );
2727: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2728: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2729: (
2730: l_api_name,
2731: G_PKG_NAME,
2724: x_msg_data,
2725: '_PVT'
2726: );
2727: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2728: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2729: (
2730: l_api_name,
2731: G_PKG_NAME,
2732: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2728: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2729: (
2730: l_api_name,
2731: G_PKG_NAME,
2732: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2733: x_msg_count,
2734: x_msg_data,
2735: '_PVT'
2736: );
2734: x_msg_data,
2735: '_PVT'
2736: );
2737: WHEN OTHERS THEN
2738: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2739: (
2740: l_api_name,
2741: G_PKG_NAME,
2742: 'OTHERS',
2757: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type) IS
2758:
2759: l_api_version CONSTANT NUMBER := 1;
2760: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2761: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2762: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type := p_okc_line_styles_tl_rec;
2763: l_def_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2764: l_row_notfound BOOLEAN := TRUE;
2765: ----------------------------------
2770: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
2771: ) RETURN VARCHAR2 IS
2772: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2773: l_row_notfound BOOLEAN := TRUE;
2774: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2775: BEGIN
2776: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2777: -- Get current database values
2778: l_okc_line_styles_tl_rec := get_rec(p_okc_line_styles_tl_rec, l_row_notfound);
2776: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2777: -- Get current database values
2778: l_okc_line_styles_tl_rec := get_rec(p_okc_line_styles_tl_rec, l_row_notfound);
2779: IF (l_row_notfound) THEN
2780: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2781: END IF;
2782: IF (x_okc_line_styles_tl_rec.id = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_okc_line_styles_tl_rec.id := l_okc_line_styles_tl_rec.id;
2778: l_okc_line_styles_tl_rec := get_rec(p_okc_line_styles_tl_rec, l_row_notfound);
2779: IF (l_row_notfound) THEN
2780: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2781: END IF;
2782: IF (x_okc_line_styles_tl_rec.id = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_okc_line_styles_tl_rec.id := l_okc_line_styles_tl_rec.id;
2785: END IF;
2786: IF (x_okc_line_styles_tl_rec.language = OKC_API.G_MISS_CHAR)
2782: IF (x_okc_line_styles_tl_rec.id = OKC_API.G_MISS_NUM)
2783: THEN
2784: x_okc_line_styles_tl_rec.id := l_okc_line_styles_tl_rec.id;
2785: END IF;
2786: IF (x_okc_line_styles_tl_rec.language = OKC_API.G_MISS_CHAR)
2787: THEN
2788: x_okc_line_styles_tl_rec.language := l_okc_line_styles_tl_rec.language;
2789: END IF;
2790: IF (x_okc_line_styles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2786: IF (x_okc_line_styles_tl_rec.language = OKC_API.G_MISS_CHAR)
2787: THEN
2788: x_okc_line_styles_tl_rec.language := l_okc_line_styles_tl_rec.language;
2789: END IF;
2790: IF (x_okc_line_styles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2791: THEN
2792: x_okc_line_styles_tl_rec.source_lang := l_okc_line_styles_tl_rec.source_lang;
2793: END IF;
2794: IF (x_okc_line_styles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2790: IF (x_okc_line_styles_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2791: THEN
2792: x_okc_line_styles_tl_rec.source_lang := l_okc_line_styles_tl_rec.source_lang;
2793: END IF;
2794: IF (x_okc_line_styles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2795: THEN
2796: x_okc_line_styles_tl_rec.sfwt_flag := l_okc_line_styles_tl_rec.sfwt_flag;
2797: END IF;
2798: IF (x_okc_line_styles_tl_rec.name = OKC_API.G_MISS_CHAR)
2794: IF (x_okc_line_styles_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2795: THEN
2796: x_okc_line_styles_tl_rec.sfwt_flag := l_okc_line_styles_tl_rec.sfwt_flag;
2797: END IF;
2798: IF (x_okc_line_styles_tl_rec.name = OKC_API.G_MISS_CHAR)
2799: THEN
2800: x_okc_line_styles_tl_rec.name := l_okc_line_styles_tl_rec.name;
2801: END IF;
2802: IF (x_okc_line_styles_tl_rec.description = OKC_API.G_MISS_CHAR)
2798: IF (x_okc_line_styles_tl_rec.name = OKC_API.G_MISS_CHAR)
2799: THEN
2800: x_okc_line_styles_tl_rec.name := l_okc_line_styles_tl_rec.name;
2801: END IF;
2802: IF (x_okc_line_styles_tl_rec.description = OKC_API.G_MISS_CHAR)
2803: THEN
2804: x_okc_line_styles_tl_rec.description := l_okc_line_styles_tl_rec.description;
2805: END IF;
2806: IF (x_okc_line_styles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2802: IF (x_okc_line_styles_tl_rec.description = OKC_API.G_MISS_CHAR)
2803: THEN
2804: x_okc_line_styles_tl_rec.description := l_okc_line_styles_tl_rec.description;
2805: END IF;
2806: IF (x_okc_line_styles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2807: THEN
2808: x_okc_line_styles_tl_rec.created_by := l_okc_line_styles_tl_rec.created_by;
2809: END IF;
2810: IF (x_okc_line_styles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2806: IF (x_okc_line_styles_tl_rec.created_by = OKC_API.G_MISS_NUM)
2807: THEN
2808: x_okc_line_styles_tl_rec.created_by := l_okc_line_styles_tl_rec.created_by;
2809: END IF;
2810: IF (x_okc_line_styles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2811: THEN
2812: x_okc_line_styles_tl_rec.creation_date := l_okc_line_styles_tl_rec.creation_date;
2813: END IF;
2814: IF (x_okc_line_styles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2810: IF (x_okc_line_styles_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2811: THEN
2812: x_okc_line_styles_tl_rec.creation_date := l_okc_line_styles_tl_rec.creation_date;
2813: END IF;
2814: IF (x_okc_line_styles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2815: THEN
2816: x_okc_line_styles_tl_rec.last_updated_by := l_okc_line_styles_tl_rec.last_updated_by;
2817: END IF;
2818: IF (x_okc_line_styles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2814: IF (x_okc_line_styles_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2815: THEN
2816: x_okc_line_styles_tl_rec.last_updated_by := l_okc_line_styles_tl_rec.last_updated_by;
2817: END IF;
2818: IF (x_okc_line_styles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2819: THEN
2820: x_okc_line_styles_tl_rec.last_update_date := l_okc_line_styles_tl_rec.last_update_date;
2821: END IF;
2822: IF (x_okc_line_styles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2818: IF (x_okc_line_styles_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2819: THEN
2820: x_okc_line_styles_tl_rec.last_update_date := l_okc_line_styles_tl_rec.last_update_date;
2821: END IF;
2822: IF (x_okc_line_styles_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2823: THEN
2824: x_okc_line_styles_tl_rec.last_update_login := l_okc_line_styles_tl_rec.last_update_login;
2825: END IF;
2826: RETURN(l_return_status);
2831: FUNCTION Set_Attributes (
2832: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
2833: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
2834: ) RETURN VARCHAR2 IS
2835: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2836: BEGIN
2837: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
2838: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
2839: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
2839: x_okc_line_styles_tl_rec.SOURCE_LANG := USERENV('LANG');
2840: RETURN(l_return_status);
2841: END Set_Attributes;
2842: BEGIN
2843: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2844: p_init_msg_list,
2845: '_PVT',
2846: x_return_status);
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2843: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2844: p_init_msg_list,
2845: '_PVT',
2846: x_return_status);
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2844: p_init_msg_list,
2845: '_PVT',
2846: x_return_status);
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: --- Setting item attributes
2845: '_PVT',
2846: x_return_status);
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: --- Setting item attributes
2853: l_return_status := Set_Attributes(
2846: x_return_status);
2847: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2849: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2850: RAISE OKC_API.G_EXCEPTION_ERROR;
2851: END IF;
2852: --- Setting item attributes
2853: l_return_status := Set_Attributes(
2854: p_okc_line_styles_tl_rec, -- IN
2853: l_return_status := Set_Attributes(
2854: p_okc_line_styles_tl_rec, -- IN
2855: l_okc_line_styles_tl_rec); -- OUT
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2854: p_okc_line_styles_tl_rec, -- IN
2855: l_okc_line_styles_tl_rec); -- OUT
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_okc_line_styles_tl_rec, l_def_okc_line_styles_tl_rec);
2855: l_okc_line_styles_tl_rec); -- OUT
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_okc_line_styles_tl_rec, l_def_okc_line_styles_tl_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2856: --- If any errors happen abort API
2857: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_okc_line_styles_tl_rec, l_def_okc_line_styles_tl_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_okc_line_styles_tl_rec, l_def_okc_line_styles_tl_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2860: RAISE OKC_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_return_status := populate_new_record(l_okc_line_styles_tl_rec, l_def_okc_line_styles_tl_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: UPDATE OKC_LINE_STYLES_TL
2861: END IF;
2862: l_return_status := populate_new_record(l_okc_line_styles_tl_rec, l_def_okc_line_styles_tl_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: UPDATE OKC_LINE_STYLES_TL
2869: SET NAME = l_def_okc_line_styles_tl_rec.name,
2862: l_return_status := populate_new_record(l_okc_line_styles_tl_rec, l_def_okc_line_styles_tl_rec);
2863: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2865: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2866: RAISE OKC_API.G_EXCEPTION_ERROR;
2867: END IF;
2868: UPDATE OKC_LINE_STYLES_TL
2869: SET NAME = l_def_okc_line_styles_tl_rec.name,
2870: DESCRIPTION = l_def_okc_line_styles_tl_rec.description,
2881: WHERE ID = l_def_okc_line_styles_tl_rec.id
2882: AND SOURCE_LANG <> USERENV('LANG');
2883:
2884: x_okc_line_styles_tl_rec := l_def_okc_line_styles_tl_rec;
2885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2886: EXCEPTION
2887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2889: (
2883:
2884: x_okc_line_styles_tl_rec := l_def_okc_line_styles_tl_rec;
2885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2886: EXCEPTION
2887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2889: (
2890: l_api_name,
2891: G_PKG_NAME,
2884: x_okc_line_styles_tl_rec := l_def_okc_line_styles_tl_rec;
2885: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2886: EXCEPTION
2887: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2889: (
2890: l_api_name,
2891: G_PKG_NAME,
2892: 'OKC_API.G_RET_STS_ERROR',
2888: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2889: (
2890: l_api_name,
2891: G_PKG_NAME,
2892: 'OKC_API.G_RET_STS_ERROR',
2893: x_msg_count,
2894: x_msg_data,
2895: '_PVT'
2896: );
2893: x_msg_count,
2894: x_msg_data,
2895: '_PVT'
2896: );
2897: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2899: (
2900: l_api_name,
2901: G_PKG_NAME,
2894: x_msg_data,
2895: '_PVT'
2896: );
2897: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2899: (
2900: l_api_name,
2901: G_PKG_NAME,
2902: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2898: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2899: (
2900: l_api_name,
2901: G_PKG_NAME,
2902: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2903: x_msg_count,
2904: x_msg_data,
2905: '_PVT'
2906: );
2904: x_msg_data,
2905: '_PVT'
2906: );
2907: WHEN OTHERS THEN
2908: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
2909: (
2910: l_api_name,
2911: G_PKG_NAME,
2912: 'OTHERS',
2928: x_lsev_rec OUT NOCOPY lsev_rec_type) IS
2929:
2930: l_api_version CONSTANT NUMBER := 1;
2931: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2932: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2933: l_lsev_rec lsev_rec_type := p_lsev_rec;
2934: l_def_lsev_rec lsev_rec_type;
2935: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2936: lx_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
2957: x_lsev_rec OUT NOCOPY lsev_rec_type
2958: ) RETURN VARCHAR2 IS
2959: l_lsev_rec lsev_rec_type;
2960: l_row_notfound BOOLEAN := TRUE;
2961: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2962: BEGIN
2963: x_lsev_rec := p_lsev_rec;
2964: -- Get current database values
2965: l_lsev_rec := get_rec(p_lsev_rec, l_row_notfound);
2963: x_lsev_rec := p_lsev_rec;
2964: -- Get current database values
2965: l_lsev_rec := get_rec(p_lsev_rec, l_row_notfound);
2966: IF (l_row_notfound) THEN
2967: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2968: END IF;
2969: IF (x_lsev_rec.id = OKC_API.G_MISS_NUM)
2970: THEN
2971: x_lsev_rec.id := l_lsev_rec.id;
2965: l_lsev_rec := get_rec(p_lsev_rec, l_row_notfound);
2966: IF (l_row_notfound) THEN
2967: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2968: END IF;
2969: IF (x_lsev_rec.id = OKC_API.G_MISS_NUM)
2970: THEN
2971: x_lsev_rec.id := l_lsev_rec.id;
2972: END IF;
2973: IF (x_lsev_rec.lty_code = OKC_API.G_MISS_CHAR)
2969: IF (x_lsev_rec.id = OKC_API.G_MISS_NUM)
2970: THEN
2971: x_lsev_rec.id := l_lsev_rec.id;
2972: END IF;
2973: IF (x_lsev_rec.lty_code = OKC_API.G_MISS_CHAR)
2974: THEN
2975: x_lsev_rec.lty_code := l_lsev_rec.lty_code;
2976: END IF;
2977: IF (x_lsev_rec.priced_yn = OKC_API.G_MISS_CHAR)
2973: IF (x_lsev_rec.lty_code = OKC_API.G_MISS_CHAR)
2974: THEN
2975: x_lsev_rec.lty_code := l_lsev_rec.lty_code;
2976: END IF;
2977: IF (x_lsev_rec.priced_yn = OKC_API.G_MISS_CHAR)
2978: THEN
2979: x_lsev_rec.priced_yn := l_lsev_rec.priced_yn;
2980: END IF;
2981: IF (x_lsev_rec.recursive_yn = OKC_API.G_MISS_CHAR)
2977: IF (x_lsev_rec.priced_yn = OKC_API.G_MISS_CHAR)
2978: THEN
2979: x_lsev_rec.priced_yn := l_lsev_rec.priced_yn;
2980: END IF;
2981: IF (x_lsev_rec.recursive_yn = OKC_API.G_MISS_CHAR)
2982: THEN
2983: x_lsev_rec.recursive_yn := l_lsev_rec.recursive_yn;
2984: END IF;
2985: IF (x_lsev_rec.protected_yn = OKC_API.G_MISS_CHAR)
2981: IF (x_lsev_rec.recursive_yn = OKC_API.G_MISS_CHAR)
2982: THEN
2983: x_lsev_rec.recursive_yn := l_lsev_rec.recursive_yn;
2984: END IF;
2985: IF (x_lsev_rec.protected_yn = OKC_API.G_MISS_CHAR)
2986: THEN
2987: x_lsev_rec.protected_yn := l_lsev_rec.protected_yn;
2988: END IF;
2989: IF (x_lsev_rec.lse_parent_id = OKC_API.G_MISS_NUM)
2985: IF (x_lsev_rec.protected_yn = OKC_API.G_MISS_CHAR)
2986: THEN
2987: x_lsev_rec.protected_yn := l_lsev_rec.protected_yn;
2988: END IF;
2989: IF (x_lsev_rec.lse_parent_id = OKC_API.G_MISS_NUM)
2990: THEN
2991: x_lsev_rec.lse_parent_id := l_lsev_rec.lse_parent_id;
2992: END IF;
2993: IF (x_lsev_rec.object_version_number = OKC_API.G_MISS_NUM)
2989: IF (x_lsev_rec.lse_parent_id = OKC_API.G_MISS_NUM)
2990: THEN
2991: x_lsev_rec.lse_parent_id := l_lsev_rec.lse_parent_id;
2992: END IF;
2993: IF (x_lsev_rec.object_version_number = OKC_API.G_MISS_NUM)
2994: THEN
2995: x_lsev_rec.object_version_number := l_lsev_rec.object_version_number;
2996: END IF;
2997: IF (x_lsev_rec.application_id = OKC_API.G_MISS_NUM)
2993: IF (x_lsev_rec.object_version_number = OKC_API.G_MISS_NUM)
2994: THEN
2995: x_lsev_rec.object_version_number := l_lsev_rec.object_version_number;
2996: END IF;
2997: IF (x_lsev_rec.application_id = OKC_API.G_MISS_NUM)
2998: THEN
2999: x_lsev_rec.application_id := l_lsev_rec.application_id;
3000: END IF;
3001: IF (x_lsev_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2997: IF (x_lsev_rec.application_id = OKC_API.G_MISS_NUM)
2998: THEN
2999: x_lsev_rec.application_id := l_lsev_rec.application_id;
3000: END IF;
3001: IF (x_lsev_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3002: THEN
3003: x_lsev_rec.sfwt_flag := l_lsev_rec.sfwt_flag;
3004: END IF;
3005: IF (x_lsev_rec.name = OKC_API.G_MISS_CHAR)
3001: IF (x_lsev_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
3002: THEN
3003: x_lsev_rec.sfwt_flag := l_lsev_rec.sfwt_flag;
3004: END IF;
3005: IF (x_lsev_rec.name = OKC_API.G_MISS_CHAR)
3006: THEN
3007: x_lsev_rec.name := l_lsev_rec.name;
3008: END IF;
3009: IF (x_lsev_rec.description = OKC_API.G_MISS_CHAR)
3005: IF (x_lsev_rec.name = OKC_API.G_MISS_CHAR)
3006: THEN
3007: x_lsev_rec.name := l_lsev_rec.name;
3008: END IF;
3009: IF (x_lsev_rec.description = OKC_API.G_MISS_CHAR)
3010: THEN
3011: x_lsev_rec.description := l_lsev_rec.description;
3012: END IF;
3013: IF (x_lsev_rec.attribute_category = OKC_API.G_MISS_CHAR)
3009: IF (x_lsev_rec.description = OKC_API.G_MISS_CHAR)
3010: THEN
3011: x_lsev_rec.description := l_lsev_rec.description;
3012: END IF;
3013: IF (x_lsev_rec.attribute_category = OKC_API.G_MISS_CHAR)
3014: THEN
3015: x_lsev_rec.attribute_category := l_lsev_rec.attribute_category;
3016: END IF;
3017: IF (x_lsev_rec.attribute1 = OKC_API.G_MISS_CHAR)
3013: IF (x_lsev_rec.attribute_category = OKC_API.G_MISS_CHAR)
3014: THEN
3015: x_lsev_rec.attribute_category := l_lsev_rec.attribute_category;
3016: END IF;
3017: IF (x_lsev_rec.attribute1 = OKC_API.G_MISS_CHAR)
3018: THEN
3019: x_lsev_rec.attribute1 := l_lsev_rec.attribute1;
3020: END IF;
3021: IF (x_lsev_rec.attribute2 = OKC_API.G_MISS_CHAR)
3017: IF (x_lsev_rec.attribute1 = OKC_API.G_MISS_CHAR)
3018: THEN
3019: x_lsev_rec.attribute1 := l_lsev_rec.attribute1;
3020: END IF;
3021: IF (x_lsev_rec.attribute2 = OKC_API.G_MISS_CHAR)
3022: THEN
3023: x_lsev_rec.attribute2 := l_lsev_rec.attribute2;
3024: END IF;
3025: IF (x_lsev_rec.attribute3 = OKC_API.G_MISS_CHAR)
3021: IF (x_lsev_rec.attribute2 = OKC_API.G_MISS_CHAR)
3022: THEN
3023: x_lsev_rec.attribute2 := l_lsev_rec.attribute2;
3024: END IF;
3025: IF (x_lsev_rec.attribute3 = OKC_API.G_MISS_CHAR)
3026: THEN
3027: x_lsev_rec.attribute3 := l_lsev_rec.attribute3;
3028: END IF;
3029: IF (x_lsev_rec.attribute4 = OKC_API.G_MISS_CHAR)
3025: IF (x_lsev_rec.attribute3 = OKC_API.G_MISS_CHAR)
3026: THEN
3027: x_lsev_rec.attribute3 := l_lsev_rec.attribute3;
3028: END IF;
3029: IF (x_lsev_rec.attribute4 = OKC_API.G_MISS_CHAR)
3030: THEN
3031: x_lsev_rec.attribute4 := l_lsev_rec.attribute4;
3032: END IF;
3033: IF (x_lsev_rec.attribute5 = OKC_API.G_MISS_CHAR)
3029: IF (x_lsev_rec.attribute4 = OKC_API.G_MISS_CHAR)
3030: THEN
3031: x_lsev_rec.attribute4 := l_lsev_rec.attribute4;
3032: END IF;
3033: IF (x_lsev_rec.attribute5 = OKC_API.G_MISS_CHAR)
3034: THEN
3035: x_lsev_rec.attribute5 := l_lsev_rec.attribute5;
3036: END IF;
3037: IF (x_lsev_rec.attribute6 = OKC_API.G_MISS_CHAR)
3033: IF (x_lsev_rec.attribute5 = OKC_API.G_MISS_CHAR)
3034: THEN
3035: x_lsev_rec.attribute5 := l_lsev_rec.attribute5;
3036: END IF;
3037: IF (x_lsev_rec.attribute6 = OKC_API.G_MISS_CHAR)
3038: THEN
3039: x_lsev_rec.attribute6 := l_lsev_rec.attribute6;
3040: END IF;
3041: IF (x_lsev_rec.attribute7 = OKC_API.G_MISS_CHAR)
3037: IF (x_lsev_rec.attribute6 = OKC_API.G_MISS_CHAR)
3038: THEN
3039: x_lsev_rec.attribute6 := l_lsev_rec.attribute6;
3040: END IF;
3041: IF (x_lsev_rec.attribute7 = OKC_API.G_MISS_CHAR)
3042: THEN
3043: x_lsev_rec.attribute7 := l_lsev_rec.attribute7;
3044: END IF;
3045: IF (x_lsev_rec.attribute8 = OKC_API.G_MISS_CHAR)
3041: IF (x_lsev_rec.attribute7 = OKC_API.G_MISS_CHAR)
3042: THEN
3043: x_lsev_rec.attribute7 := l_lsev_rec.attribute7;
3044: END IF;
3045: IF (x_lsev_rec.attribute8 = OKC_API.G_MISS_CHAR)
3046: THEN
3047: x_lsev_rec.attribute8 := l_lsev_rec.attribute8;
3048: END IF;
3049: IF (x_lsev_rec.attribute9 = OKC_API.G_MISS_CHAR)
3045: IF (x_lsev_rec.attribute8 = OKC_API.G_MISS_CHAR)
3046: THEN
3047: x_lsev_rec.attribute8 := l_lsev_rec.attribute8;
3048: END IF;
3049: IF (x_lsev_rec.attribute9 = OKC_API.G_MISS_CHAR)
3050: THEN
3051: x_lsev_rec.attribute9 := l_lsev_rec.attribute9;
3052: END IF;
3053: IF (x_lsev_rec.attribute10 = OKC_API.G_MISS_CHAR)
3049: IF (x_lsev_rec.attribute9 = OKC_API.G_MISS_CHAR)
3050: THEN
3051: x_lsev_rec.attribute9 := l_lsev_rec.attribute9;
3052: END IF;
3053: IF (x_lsev_rec.attribute10 = OKC_API.G_MISS_CHAR)
3054: THEN
3055: x_lsev_rec.attribute10 := l_lsev_rec.attribute10;
3056: END IF;
3057: IF (x_lsev_rec.attribute11 = OKC_API.G_MISS_CHAR)
3053: IF (x_lsev_rec.attribute10 = OKC_API.G_MISS_CHAR)
3054: THEN
3055: x_lsev_rec.attribute10 := l_lsev_rec.attribute10;
3056: END IF;
3057: IF (x_lsev_rec.attribute11 = OKC_API.G_MISS_CHAR)
3058: THEN
3059: x_lsev_rec.attribute11 := l_lsev_rec.attribute11;
3060: END IF;
3061: IF (x_lsev_rec.attribute12 = OKC_API.G_MISS_CHAR)
3057: IF (x_lsev_rec.attribute11 = OKC_API.G_MISS_CHAR)
3058: THEN
3059: x_lsev_rec.attribute11 := l_lsev_rec.attribute11;
3060: END IF;
3061: IF (x_lsev_rec.attribute12 = OKC_API.G_MISS_CHAR)
3062: THEN
3063: x_lsev_rec.attribute12 := l_lsev_rec.attribute12;
3064: END IF;
3065: IF (x_lsev_rec.attribute13 = OKC_API.G_MISS_CHAR)
3061: IF (x_lsev_rec.attribute12 = OKC_API.G_MISS_CHAR)
3062: THEN
3063: x_lsev_rec.attribute12 := l_lsev_rec.attribute12;
3064: END IF;
3065: IF (x_lsev_rec.attribute13 = OKC_API.G_MISS_CHAR)
3066: THEN
3067: x_lsev_rec.attribute13 := l_lsev_rec.attribute13;
3068: END IF;
3069: IF (x_lsev_rec.attribute14 = OKC_API.G_MISS_CHAR)
3065: IF (x_lsev_rec.attribute13 = OKC_API.G_MISS_CHAR)
3066: THEN
3067: x_lsev_rec.attribute13 := l_lsev_rec.attribute13;
3068: END IF;
3069: IF (x_lsev_rec.attribute14 = OKC_API.G_MISS_CHAR)
3070: THEN
3071: x_lsev_rec.attribute14 := l_lsev_rec.attribute14;
3072: END IF;
3073: IF (x_lsev_rec.attribute15 = OKC_API.G_MISS_CHAR)
3069: IF (x_lsev_rec.attribute14 = OKC_API.G_MISS_CHAR)
3070: THEN
3071: x_lsev_rec.attribute14 := l_lsev_rec.attribute14;
3072: END IF;
3073: IF (x_lsev_rec.attribute15 = OKC_API.G_MISS_CHAR)
3074: THEN
3075: x_lsev_rec.attribute15 := l_lsev_rec.attribute15;
3076: END IF;
3077: IF (x_lsev_rec.lse_type = OKC_API.G_MISS_CHAR)
3073: IF (x_lsev_rec.attribute15 = OKC_API.G_MISS_CHAR)
3074: THEN
3075: x_lsev_rec.attribute15 := l_lsev_rec.attribute15;
3076: END IF;
3077: IF (x_lsev_rec.lse_type = OKC_API.G_MISS_CHAR)
3078: THEN
3079: x_lsev_rec.lse_type := l_lsev_rec.lse_type;
3080: END IF;
3081: IF (x_lsev_rec.created_by = OKC_API.G_MISS_NUM)
3077: IF (x_lsev_rec.lse_type = OKC_API.G_MISS_CHAR)
3078: THEN
3079: x_lsev_rec.lse_type := l_lsev_rec.lse_type;
3080: END IF;
3081: IF (x_lsev_rec.created_by = OKC_API.G_MISS_NUM)
3082: THEN
3083: x_lsev_rec.created_by := l_lsev_rec.created_by;
3084: END IF;
3085: IF (x_lsev_rec.creation_date = OKC_API.G_MISS_DATE)
3081: IF (x_lsev_rec.created_by = OKC_API.G_MISS_NUM)
3082: THEN
3083: x_lsev_rec.created_by := l_lsev_rec.created_by;
3084: END IF;
3085: IF (x_lsev_rec.creation_date = OKC_API.G_MISS_DATE)
3086: THEN
3087: x_lsev_rec.creation_date := l_lsev_rec.creation_date;
3088: END IF;
3089: IF (x_lsev_rec.last_updated_by = OKC_API.G_MISS_NUM)
3085: IF (x_lsev_rec.creation_date = OKC_API.G_MISS_DATE)
3086: THEN
3087: x_lsev_rec.creation_date := l_lsev_rec.creation_date;
3088: END IF;
3089: IF (x_lsev_rec.last_updated_by = OKC_API.G_MISS_NUM)
3090: THEN
3091: x_lsev_rec.last_updated_by := l_lsev_rec.last_updated_by;
3092: END IF;
3093: IF (x_lsev_rec.last_update_date = OKC_API.G_MISS_DATE)
3089: IF (x_lsev_rec.last_updated_by = OKC_API.G_MISS_NUM)
3090: THEN
3091: x_lsev_rec.last_updated_by := l_lsev_rec.last_updated_by;
3092: END IF;
3093: IF (x_lsev_rec.last_update_date = OKC_API.G_MISS_DATE)
3094: THEN
3095: x_lsev_rec.last_update_date := l_lsev_rec.last_update_date;
3096: END IF;
3097: IF (x_lsev_rec.last_update_login = OKC_API.G_MISS_NUM)
3093: IF (x_lsev_rec.last_update_date = OKC_API.G_MISS_DATE)
3094: THEN
3095: x_lsev_rec.last_update_date := l_lsev_rec.last_update_date;
3096: END IF;
3097: IF (x_lsev_rec.last_update_login = OKC_API.G_MISS_NUM)
3098: THEN
3099: x_lsev_rec.last_update_login := l_lsev_rec.last_update_login;
3100: END IF;
3101: IF (x_lsev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR)
3097: IF (x_lsev_rec.last_update_login = OKC_API.G_MISS_NUM)
3098: THEN
3099: x_lsev_rec.last_update_login := l_lsev_rec.last_update_login;
3100: END IF;
3101: IF (x_lsev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR)
3102: THEN
3103: x_lsev_rec.item_to_price_yn := l_lsev_rec.item_to_price_yn;
3104: END IF;
3105: IF (x_lsev_rec.price_basis_yn = OKC_API.G_MISS_CHAR)
3101: IF (x_lsev_rec.item_to_price_yn = OKC_API.G_MISS_CHAR)
3102: THEN
3103: x_lsev_rec.item_to_price_yn := l_lsev_rec.item_to_price_yn;
3104: END IF;
3105: IF (x_lsev_rec.price_basis_yn = OKC_API.G_MISS_CHAR)
3106: THEN
3107: x_lsev_rec.price_basis_yn := l_lsev_rec.price_basis_yn;
3108: END IF;
3109: RETURN(l_return_status);
3114: FUNCTION Set_Attributes (
3115: p_lsev_rec IN lsev_rec_type,
3116: x_lsev_rec OUT NOCOPY lsev_rec_type
3117: ) RETURN VARCHAR2 IS
3118: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3119: BEGIN
3120: x_lsev_rec := p_lsev_rec;
3121: -- **** Added the following two lines for uppercasing *********
3122: x_lsev_rec.SFWT_FLAG := upper(p_lsev_rec.SFWT_FLAG);
3125: RETURN(l_return_status);
3126: END Set_Attributes;
3127: BEGIN
3128:
3129: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3130: G_PKG_NAME,
3131: p_init_msg_list,
3132: l_api_version,
3133: p_api_version,
3132: l_api_version,
3133: p_api_version,
3134: '_PVT',
3135: x_return_status);
3136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3139: RAISE OKC_API.G_EXCEPTION_ERROR;
3140: END IF;
3133: p_api_version,
3134: '_PVT',
3135: x_return_status);
3136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3139: RAISE OKC_API.G_EXCEPTION_ERROR;
3140: END IF;
3141: --- Setting item attributes
3134: '_PVT',
3135: x_return_status);
3136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3139: RAISE OKC_API.G_EXCEPTION_ERROR;
3140: END IF;
3141: --- Setting item attributes
3142: l_return_status := Set_Attributes(
3135: x_return_status);
3136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3139: RAISE OKC_API.G_EXCEPTION_ERROR;
3140: END IF;
3141: --- Setting item attributes
3142: l_return_status := Set_Attributes(
3143: p_lsev_rec, -- IN
3142: l_return_status := Set_Attributes(
3143: p_lsev_rec, -- IN
3144: l_lsev_rec); -- OUT
3145: --- If any errors happen abort API
3146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3149: RAISE OKC_API.G_EXCEPTION_ERROR;
3150: END IF;
3143: p_lsev_rec, -- IN
3144: l_lsev_rec); -- OUT
3145: --- If any errors happen abort API
3146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3149: RAISE OKC_API.G_EXCEPTION_ERROR;
3150: END IF;
3151: l_return_status := populate_new_record(l_lsev_rec, l_def_lsev_rec);
3144: l_lsev_rec); -- OUT
3145: --- If any errors happen abort API
3146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3149: RAISE OKC_API.G_EXCEPTION_ERROR;
3150: END IF;
3151: l_return_status := populate_new_record(l_lsev_rec, l_def_lsev_rec);
3152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3145: --- If any errors happen abort API
3146: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3147: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3149: RAISE OKC_API.G_EXCEPTION_ERROR;
3150: END IF;
3151: l_return_status := populate_new_record(l_lsev_rec, l_def_lsev_rec);
3152: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3153: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3148: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3149: RAISE OKC_API.G_EXCEPTION_ERROR;
3150: END IF;
3151: l_return_status := populate_new_record(l_lsev_rec, l_def_lsev_rec);
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: RAISE OKC_API.G_EXCEPTION_ERROR;
3150: END IF;
3151: l_return_status := populate_new_record(l_lsev_rec, l_def_lsev_rec);
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_def_lsev_rec := fill_who_columns(l_def_lsev_rec);
3150: END IF;
3151: l_return_status := populate_new_record(l_lsev_rec, l_def_lsev_rec);
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_def_lsev_rec := fill_who_columns(l_def_lsev_rec);
3158: --- Validate all non-missing attributes (Item Level Validation)
3151: l_return_status := populate_new_record(l_lsev_rec, l_def_lsev_rec);
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_def_lsev_rec := fill_who_columns(l_def_lsev_rec);
3158: --- Validate all non-missing attributes (Item Level Validation)
3159: l_return_status := Validate_Attributes(l_def_lsev_rec);
3157: l_def_lsev_rec := fill_who_columns(l_def_lsev_rec);
3158: --- Validate all non-missing attributes (Item Level Validation)
3159: l_return_status := Validate_Attributes(l_def_lsev_rec);
3160: --- If any errors happen abort API
3161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3158: --- Validate all non-missing attributes (Item Level Validation)
3159: l_return_status := Validate_Attributes(l_def_lsev_rec);
3160: --- If any errors happen abort API
3161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166: l_return_status := Validate_Record(l_def_lsev_rec);
3159: l_return_status := Validate_Attributes(l_def_lsev_rec);
3160: --- If any errors happen abort API
3161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166: l_return_status := Validate_Record(l_def_lsev_rec);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3160: --- If any errors happen abort API
3161: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3162: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166: l_return_status := Validate_Record(l_def_lsev_rec);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3163: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166: l_return_status := Validate_Record(l_def_lsev_rec);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3164: RAISE OKC_API.G_EXCEPTION_ERROR;
3165: END IF;
3166: l_return_status := Validate_Record(l_def_lsev_rec);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3172:
3165: END IF;
3166: l_return_status := Validate_Record(l_def_lsev_rec);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3172:
3173: --------------------------------------
3166: l_return_status := Validate_Record(l_def_lsev_rec);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3172:
3173: --------------------------------------
3174: -- Move VIEW record to "Child" records
3185: x_msg_data,
3186: l_okc_line_styles_tl_rec,
3187: lx_okc_line_styles_tl_rec
3188: );
3189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3192: RAISE OKC_API.G_EXCEPTION_ERROR;
3193: END IF;
3186: l_okc_line_styles_tl_rec,
3187: lx_okc_line_styles_tl_rec
3188: );
3189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3192: RAISE OKC_API.G_EXCEPTION_ERROR;
3193: END IF;
3194: migrate(lx_okc_line_styles_tl_rec, l_def_lsev_rec);
3187: lx_okc_line_styles_tl_rec
3188: );
3189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3192: RAISE OKC_API.G_EXCEPTION_ERROR;
3193: END IF;
3194: migrate(lx_okc_line_styles_tl_rec, l_def_lsev_rec);
3195: update_row(
3188: );
3189: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3191: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3192: RAISE OKC_API.G_EXCEPTION_ERROR;
3193: END IF;
3194: migrate(lx_okc_line_styles_tl_rec, l_def_lsev_rec);
3195: update_row(
3196: p_init_msg_list,
3199: x_msg_data,
3200: l_lse_rec,
3201: lx_lse_rec
3202: );
3203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_ERROR;
3207: END IF;
3200: l_lse_rec,
3201: lx_lse_rec
3202: );
3203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: migrate(lx_lse_rec, l_def_lsev_rec);
3201: lx_lse_rec
3202: );
3203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: migrate(lx_lse_rec, l_def_lsev_rec);
3209: x_lsev_rec := l_def_lsev_rec;
3202: );
3203: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3206: RAISE OKC_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: migrate(lx_lse_rec, l_def_lsev_rec);
3209: x_lsev_rec := l_def_lsev_rec;
3210: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3206: RAISE OKC_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: migrate(lx_lse_rec, l_def_lsev_rec);
3209: x_lsev_rec := l_def_lsev_rec;
3210: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3211: EXCEPTION
3212: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3213: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3214: (
3208: migrate(lx_lse_rec, l_def_lsev_rec);
3209: x_lsev_rec := l_def_lsev_rec;
3210: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3211: EXCEPTION
3212: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3213: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3214: (
3215: l_api_name,
3216: G_PKG_NAME,
3209: x_lsev_rec := l_def_lsev_rec;
3210: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3211: EXCEPTION
3212: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3213: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3214: (
3215: l_api_name,
3216: G_PKG_NAME,
3217: 'OKC_API.G_RET_STS_ERROR',
3213: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3214: (
3215: l_api_name,
3216: G_PKG_NAME,
3217: 'OKC_API.G_RET_STS_ERROR',
3218: x_msg_count,
3219: x_msg_data,
3220: '_PVT'
3221: );
3218: x_msg_count,
3219: x_msg_data,
3220: '_PVT'
3221: );
3222: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3223: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3224: (
3225: l_api_name,
3226: G_PKG_NAME,
3219: x_msg_data,
3220: '_PVT'
3221: );
3222: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3223: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3224: (
3225: l_api_name,
3226: G_PKG_NAME,
3227: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3223: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3224: (
3225: l_api_name,
3226: G_PKG_NAME,
3227: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3228: x_msg_count,
3229: x_msg_data,
3230: '_PVT'
3231: );
3229: x_msg_data,
3230: '_PVT'
3231: );
3232: WHEN OTHERS THEN
3233: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3234: (
3235: l_api_name,
3236: G_PKG_NAME,
3237: 'OTHERS',
3253: x_lsev_tbl OUT NOCOPY lsev_tbl_type) IS
3254:
3255: l_api_version CONSTANT NUMBER := 1;
3256: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3257: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3258: i NUMBER := 0;
3259: BEGIN
3260: OKC_API.init_msg_list(p_init_msg_list);
3261: -- Make sure PL/SQL table has records in it before passing
3256: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3257: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3258: i NUMBER := 0;
3259: BEGIN
3260: OKC_API.init_msg_list(p_init_msg_list);
3261: -- Make sure PL/SQL table has records in it before passing
3262: IF (p_lsev_tbl.COUNT > 0) THEN
3263: i := p_lsev_tbl.FIRST;
3264: LOOP
3263: i := p_lsev_tbl.FIRST;
3264: LOOP
3265: update_row (
3266: p_api_version => p_api_version,
3267: p_init_msg_list => OKC_API.G_FALSE,
3268: x_return_status => x_return_status,
3269: x_msg_count => x_msg_count,
3270: x_msg_data => x_msg_data,
3271: p_lsev_rec => p_lsev_tbl(i),
3274: i := p_lsev_tbl.NEXT(i);
3275: END LOOP;
3276: END IF;
3277: EXCEPTION
3278: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3279: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3280: (
3281: l_api_name,
3282: G_PKG_NAME,
3275: END LOOP;
3276: END IF;
3277: EXCEPTION
3278: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3279: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3280: (
3281: l_api_name,
3282: G_PKG_NAME,
3283: 'OKC_API.G_RET_STS_ERROR',
3279: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3280: (
3281: l_api_name,
3282: G_PKG_NAME,
3283: 'OKC_API.G_RET_STS_ERROR',
3284: x_msg_count,
3285: x_msg_data,
3286: '_PVT'
3287: );
3284: x_msg_count,
3285: x_msg_data,
3286: '_PVT'
3287: );
3288: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3289: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3290: (
3291: l_api_name,
3292: G_PKG_NAME,
3285: x_msg_data,
3286: '_PVT'
3287: );
3288: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3289: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3290: (
3291: l_api_name,
3292: G_PKG_NAME,
3293: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3289: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3290: (
3291: l_api_name,
3292: G_PKG_NAME,
3293: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3294: x_msg_count,
3295: x_msg_data,
3296: '_PVT'
3297: );
3295: x_msg_data,
3296: '_PVT'
3297: );
3298: WHEN OTHERS THEN
3299: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3300: (
3301: l_api_name,
3302: G_PKG_NAME,
3303: 'OTHERS',
3321: p_lse_rec IN lse_rec_type) IS
3322:
3323: l_api_version CONSTANT NUMBER := 1;
3324: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3325: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3326: l_lse_rec lse_rec_type:= p_lse_rec;
3327: l_row_notfound BOOLEAN := TRUE;
3328:
3329: BEGIN
3326: l_lse_rec lse_rec_type:= p_lse_rec;
3327: l_row_notfound BOOLEAN := TRUE;
3328:
3329: BEGIN
3330: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3331: p_init_msg_list,
3332: '_PVT',
3333: x_return_status);
3334: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3330: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3331: p_init_msg_list,
3332: '_PVT',
3333: x_return_status);
3334: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3335: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3337: RAISE OKC_API.G_EXCEPTION_ERROR;
3338: END IF;
3331: p_init_msg_list,
3332: '_PVT',
3333: x_return_status);
3334: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3335: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3337: RAISE OKC_API.G_EXCEPTION_ERROR;
3338: END IF;
3339: DELETE FROM OKC_LINE_STYLES_B
3332: '_PVT',
3333: x_return_status);
3334: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3335: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3337: RAISE OKC_API.G_EXCEPTION_ERROR;
3338: END IF;
3339: DELETE FROM OKC_LINE_STYLES_B
3340: WHERE ID = l_lse_rec.id;
3333: x_return_status);
3334: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3335: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3336: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3337: RAISE OKC_API.G_EXCEPTION_ERROR;
3338: END IF;
3339: DELETE FROM OKC_LINE_STYLES_B
3340: WHERE ID = l_lse_rec.id;
3341:
3338: END IF;
3339: DELETE FROM OKC_LINE_STYLES_B
3340: WHERE ID = l_lse_rec.id;
3341:
3342: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3343: EXCEPTION
3344: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3345: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3346: (
3340: WHERE ID = l_lse_rec.id;
3341:
3342: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3343: EXCEPTION
3344: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3345: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3346: (
3347: l_api_name,
3348: G_PKG_NAME,
3341:
3342: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3343: EXCEPTION
3344: WHEN OKC_API.G_EXCEPTION_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_ERROR',
3345: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3346: (
3347: l_api_name,
3348: G_PKG_NAME,
3349: 'OKC_API.G_RET_STS_ERROR',
3350: x_msg_count,
3351: x_msg_data,
3352: '_PVT'
3353: );
3350: x_msg_count,
3351: x_msg_data,
3352: '_PVT'
3353: );
3354: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3355: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3356: (
3357: l_api_name,
3358: G_PKG_NAME,
3351: x_msg_data,
3352: '_PVT'
3353: );
3354: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3355: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3356: (
3357: l_api_name,
3358: G_PKG_NAME,
3359: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3355: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3356: (
3357: l_api_name,
3358: G_PKG_NAME,
3359: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3360: x_msg_count,
3361: x_msg_data,
3362: '_PVT'
3363: );
3361: x_msg_data,
3362: '_PVT'
3363: );
3364: WHEN OTHERS THEN
3365: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3366: (
3367: l_api_name,
3368: G_PKG_NAME,
3369: 'OTHERS',
3383: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type) IS
3384:
3385: l_api_version CONSTANT NUMBER := 1;
3386: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3388: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type:= p_okc_line_styles_tl_rec;
3389: l_row_notfound BOOLEAN := TRUE;
3390: -------------------------------------------
3391: -- Set_Attributes for:OKC_LINE_STYLES_TL --
3393: FUNCTION Set_Attributes (
3394: p_okc_line_styles_tl_rec IN okc_line_styles_tl_rec_type,
3395: x_okc_line_styles_tl_rec OUT NOCOPY okc_line_styles_tl_rec_type
3396: ) RETURN VARCHAR2 IS
3397: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3398: BEGIN
3399: x_okc_line_styles_tl_rec := p_okc_line_styles_tl_rec;
3400: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
3401: RETURN(l_return_status);
3400: x_okc_line_styles_tl_rec.LANGUAGE := USERENV('LANG');
3401: RETURN(l_return_status);
3402: END Set_Attributes;
3403: BEGIN
3404: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3405: p_init_msg_list,
3406: '_PVT',
3407: x_return_status);
3408: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3404: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3405: p_init_msg_list,
3406: '_PVT',
3407: x_return_status);
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_init_msg_list,
3406: '_PVT',
3407: x_return_status);
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: --- Setting item attributes
3406: '_PVT',
3407: x_return_status);
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: --- Setting item attributes
3414: l_return_status := Set_Attributes(
3407: x_return_status);
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: --- Setting item attributes
3414: l_return_status := Set_Attributes(
3415: p_okc_line_styles_tl_rec, -- IN
3414: l_return_status := Set_Attributes(
3415: p_okc_line_styles_tl_rec, -- IN
3416: l_okc_line_styles_tl_rec); -- OUT
3417: --- If any errors happen abort API
3418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: RAISE OKC_API.G_EXCEPTION_ERROR;
3422: END IF;
3415: p_okc_line_styles_tl_rec, -- IN
3416: l_okc_line_styles_tl_rec); -- OUT
3417: --- If any errors happen abort API
3418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: RAISE OKC_API.G_EXCEPTION_ERROR;
3422: END IF;
3423: DELETE FROM OKC_LINE_STYLES_TL
3416: l_okc_line_styles_tl_rec); -- OUT
3417: --- If any errors happen abort API
3418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: RAISE OKC_API.G_EXCEPTION_ERROR;
3422: END IF;
3423: DELETE FROM OKC_LINE_STYLES_TL
3424: WHERE ID = l_okc_line_styles_tl_rec.id;
3417: --- If any errors happen abort API
3418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3421: RAISE OKC_API.G_EXCEPTION_ERROR;
3422: END IF;
3423: DELETE FROM OKC_LINE_STYLES_TL
3424: WHERE ID = l_okc_line_styles_tl_rec.id;
3425:
3422: END IF;
3423: DELETE FROM OKC_LINE_STYLES_TL
3424: WHERE ID = l_okc_line_styles_tl_rec.id;
3425:
3426: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3427: EXCEPTION
3428: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3429: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3430: (
3424: WHERE ID = l_okc_line_styles_tl_rec.id;
3425:
3426: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3427: EXCEPTION
3428: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3429: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3430: (
3431: l_api_name,
3432: G_PKG_NAME,
3425:
3426: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3427: EXCEPTION
3428: WHEN OKC_API.G_EXCEPTION_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_ERROR',
3429: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3430: (
3431: l_api_name,
3432: G_PKG_NAME,
3433: 'OKC_API.G_RET_STS_ERROR',
3434: x_msg_count,
3435: x_msg_data,
3436: '_PVT'
3437: );
3434: x_msg_count,
3435: x_msg_data,
3436: '_PVT'
3437: );
3438: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3439: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3440: (
3441: l_api_name,
3442: G_PKG_NAME,
3435: x_msg_data,
3436: '_PVT'
3437: );
3438: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3439: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3440: (
3441: l_api_name,
3442: G_PKG_NAME,
3443: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3439: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3440: (
3441: l_api_name,
3442: G_PKG_NAME,
3443: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3444: x_msg_count,
3445: x_msg_data,
3446: '_PVT'
3447: );
3445: x_msg_data,
3446: '_PVT'
3447: );
3448: WHEN OTHERS THEN
3449: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3450: (
3451: l_api_name,
3452: G_PKG_NAME,
3453: 'OTHERS',
3468: p_lsev_rec IN lsev_rec_type) IS
3469:
3470: l_api_version CONSTANT NUMBER := 1;
3471: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3472: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3473: l_lsev_rec lsev_rec_type := p_lsev_rec;
3474: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
3475: l_lse_rec lse_rec_type;
3476: cursor c1(p_id number) is select created_by from OKC_LINE_STYLES_B
3474: l_okc_line_styles_tl_rec okc_line_styles_tl_rec_type;
3475: l_lse_rec lse_rec_type;
3476: cursor c1(p_id number) is select created_by from OKC_LINE_STYLES_B
3477: where ID=p_id;
3478: l_created_by number:=OKC_API.G_MISS_NUM;
3479: BEGIN
3480: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3481: G_PKG_NAME,
3482: p_init_msg_list,
3476: cursor c1(p_id number) is select created_by from OKC_LINE_STYLES_B
3477: where ID=p_id;
3478: l_created_by number:=OKC_API.G_MISS_NUM;
3479: BEGIN
3480: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3481: G_PKG_NAME,
3482: p_init_msg_list,
3483: l_api_version,
3484: p_api_version,
3483: l_api_version,
3484: p_api_version,
3485: '_PVT',
3486: x_return_status);
3487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_ERROR;
3491: END IF;
3484: p_api_version,
3485: '_PVT',
3486: x_return_status);
3487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_ERROR;
3491: END IF;
3492: open c1(l_lse_rec.id);
3485: '_PVT',
3486: x_return_status);
3487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_ERROR;
3491: END IF;
3492: open c1(l_lse_rec.id);
3493: Fetch c1 into l_created_by;
3486: x_return_status);
3487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3490: RAISE OKC_API.G_EXCEPTION_ERROR;
3491: END IF;
3492: open c1(l_lse_rec.id);
3493: Fetch c1 into l_created_by;
3494: close c1;
3493: Fetch c1 into l_created_by;
3494: close c1;
3495: --san created_by=1 means its a seeded value so cannot delete
3496: IF l_created_by=1 then
3497: OKC_API.set_message(G_APP_NAME,'OKC_NOT_DELETE_SEEDED');
3498: RAISE OKC_API.G_EXCEPTION_ERROR;
3499: END IF;
3500: --------------------------------------
3501: -- Move VIEW record to "Child" records
3494: close c1;
3495: --san created_by=1 means its a seeded value so cannot delete
3496: IF l_created_by=1 then
3497: OKC_API.set_message(G_APP_NAME,'OKC_NOT_DELETE_SEEDED');
3498: RAISE OKC_API.G_EXCEPTION_ERROR;
3499: END IF;
3500: --------------------------------------
3501: -- Move VIEW record to "Child" records
3502: --------------------------------------
3511: x_msg_count,
3512: x_msg_data,
3513: l_okc_line_styles_tl_rec
3514: );
3515: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3516: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3518: RAISE OKC_API.G_EXCEPTION_ERROR;
3519: END IF;
3512: x_msg_data,
3513: l_okc_line_styles_tl_rec
3514: );
3515: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3516: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3518: RAISE OKC_API.G_EXCEPTION_ERROR;
3519: END IF;
3520: delete_row(
3513: l_okc_line_styles_tl_rec
3514: );
3515: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3516: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3518: RAISE OKC_API.G_EXCEPTION_ERROR;
3519: END IF;
3520: delete_row(
3521: p_init_msg_list,
3514: );
3515: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3516: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3517: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3518: RAISE OKC_API.G_EXCEPTION_ERROR;
3519: END IF;
3520: delete_row(
3521: p_init_msg_list,
3522: x_return_status,
3523: x_msg_count,
3524: x_msg_data,
3525: l_lse_rec
3526: );
3527: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3529: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3530: RAISE OKC_API.G_EXCEPTION_ERROR;
3531: END IF;
3524: x_msg_data,
3525: l_lse_rec
3526: );
3527: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3529: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3530: RAISE OKC_API.G_EXCEPTION_ERROR;
3531: END IF;
3532: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3525: l_lse_rec
3526: );
3527: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3529: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3530: RAISE OKC_API.G_EXCEPTION_ERROR;
3531: END IF;
3532: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3533: EXCEPTION
3526: );
3527: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3529: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3530: RAISE OKC_API.G_EXCEPTION_ERROR;
3531: END IF;
3532: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3533: EXCEPTION
3534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3528: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3529: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
3530: RAISE OKC_API.G_EXCEPTION_ERROR;
3531: END IF;
3532: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3533: EXCEPTION
3534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3535: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3536: (
3530: RAISE OKC_API.G_EXCEPTION_ERROR;
3531: END IF;
3532: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3533: EXCEPTION
3534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3535: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3536: (
3537: l_api_name,
3538: G_PKG_NAME,
3531: END IF;
3532: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3533: EXCEPTION
3534: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3535: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3536: (
3537: l_api_name,
3538: G_PKG_NAME,
3539: 'OKC_API.G_RET_STS_ERROR',
3535: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3536: (
3537: l_api_name,
3538: G_PKG_NAME,
3539: 'OKC_API.G_RET_STS_ERROR',
3540: x_msg_count,
3541: x_msg_data,
3542: '_PVT'
3543: );
3540: x_msg_count,
3541: x_msg_data,
3542: '_PVT'
3543: );
3544: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3545: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3546: (
3547: l_api_name,
3548: G_PKG_NAME,
3541: x_msg_data,
3542: '_PVT'
3543: );
3544: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3545: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3546: (
3547: l_api_name,
3548: G_PKG_NAME,
3549: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3545: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3546: (
3547: l_api_name,
3548: G_PKG_NAME,
3549: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3550: x_msg_count,
3551: x_msg_data,
3552: '_PVT'
3553: );
3551: x_msg_data,
3552: '_PVT'
3553: );
3554: WHEN OTHERS THEN
3555: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3556: (
3557: l_api_name,
3558: G_PKG_NAME,
3559: 'OTHERS',
3574: p_lsev_tbl IN lsev_tbl_type) IS
3575:
3576: l_api_version CONSTANT NUMBER := 1;
3577: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3578: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3579: i NUMBER := 0;
3580: BEGIN
3581: OKC_API.init_msg_list(p_init_msg_list);
3582: -- Make sure PL/SQL table has records in it before passing
3577: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3578: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3579: i NUMBER := 0;
3580: BEGIN
3581: OKC_API.init_msg_list(p_init_msg_list);
3582: -- Make sure PL/SQL table has records in it before passing
3583: IF (p_lsev_tbl.COUNT > 0) THEN
3584: i := p_lsev_tbl.FIRST;
3585: LOOP
3584: i := p_lsev_tbl.FIRST;
3585: LOOP
3586: delete_row (
3587: p_api_version => p_api_version,
3588: p_init_msg_list => OKC_API.G_FALSE,
3589: x_return_status => x_return_status,
3590: x_msg_count => x_msg_count,
3591: x_msg_data => x_msg_data,
3592: p_lsev_rec => p_lsev_tbl(i));
3594: i := p_lsev_tbl.NEXT(i);
3595: END LOOP;
3596: END IF;
3597: EXCEPTION
3598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3600: (
3601: l_api_name,
3602: G_PKG_NAME,
3595: END LOOP;
3596: END IF;
3597: EXCEPTION
3598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3600: (
3601: l_api_name,
3602: G_PKG_NAME,
3603: 'OKC_API.G_RET_STS_ERROR',
3599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3600: (
3601: l_api_name,
3602: G_PKG_NAME,
3603: 'OKC_API.G_RET_STS_ERROR',
3604: x_msg_count,
3605: x_msg_data,
3606: '_PVT'
3607: );
3604: x_msg_count,
3605: x_msg_data,
3606: '_PVT'
3607: );
3608: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3609: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3610: (
3611: l_api_name,
3612: G_PKG_NAME,
3605: x_msg_data,
3606: '_PVT'
3607: );
3608: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3609: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3610: (
3611: l_api_name,
3612: G_PKG_NAME,
3613: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3609: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3610: (
3611: l_api_name,
3612: G_PKG_NAME,
3613: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3614: x_msg_count,
3615: x_msg_data,
3616: '_PVT'
3617: );
3615: x_msg_data,
3616: '_PVT'
3617: );
3618: WHEN OTHERS THEN
3619: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3620: (
3621: l_api_name,
3622: G_PKG_NAME,
3623: 'OTHERS',