[Home] [Help]
3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
36: ---------------------------------------------------------------------------
37: -- FUNCTION find_highest_exception
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);
249: ) RETURN cvpv_rec_type IS
250: l_cvpv_rec cvpv_rec_type;
251: l_row_notfound BOOLEAN := TRUE;
252: BEGIN
253: x_return_status := OKC_API.G_RET_STS_SUCCESS;
254: l_cvpv_rec := get_rec(p_cvpv_rec, l_row_notfound);
255: IF (l_row_notfound) THEN
256: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
257: x_return_status := OKC_API.G_RET_STS_ERROR;
252: BEGIN
253: x_return_status := OKC_API.G_RET_STS_SUCCESS;
254: l_cvpv_rec := get_rec(p_cvpv_rec, l_row_notfound);
255: IF (l_row_notfound) THEN
256: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
257: x_return_status := OKC_API.G_RET_STS_ERROR;
258: END IF;
259: RETURN(l_cvpv_rec);
260: END get_rec;
253: x_return_status := OKC_API.G_RET_STS_SUCCESS;
254: l_cvpv_rec := get_rec(p_cvpv_rec, l_row_notfound);
255: IF (l_row_notfound) THEN
256: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
257: x_return_status := OKC_API.G_RET_STS_ERROR;
258: END IF;
259: RETURN(l_cvpv_rec);
260: END get_rec;
261: -----------------------------------------------------------
325: ) RETURN oks_cov_types_tl_rec_type IS
326: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
327: l_row_notfound BOOLEAN := TRUE;
328: BEGIN
329: x_return_status := OKC_API.G_RET_STS_SUCCESS;
330: l_oks_cov_types_tl_rec := get_rec(p_oks_cov_types_tl_rec, l_row_notfound);
331: IF (l_row_notfound) THEN
332: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
333: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
328: BEGIN
329: x_return_status := OKC_API.G_RET_STS_SUCCESS;
330: l_oks_cov_types_tl_rec := get_rec(p_oks_cov_types_tl_rec, l_row_notfound);
331: IF (l_row_notfound) THEN
332: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
333: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
334: x_return_status := OKC_API.G_RET_STS_ERROR;
335: END IF;
336: RETURN(l_oks_cov_types_tl_rec);
329: x_return_status := OKC_API.G_RET_STS_SUCCESS;
330: l_oks_cov_types_tl_rec := get_rec(p_oks_cov_types_tl_rec, l_row_notfound);
331: IF (l_row_notfound) THEN
332: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
333: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
334: x_return_status := OKC_API.G_RET_STS_ERROR;
335: END IF;
336: RETURN(l_oks_cov_types_tl_rec);
337: END get_rec;
330: l_oks_cov_types_tl_rec := get_rec(p_oks_cov_types_tl_rec, l_row_notfound);
331: IF (l_row_notfound) THEN
332: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
333: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
334: x_return_status := OKC_API.G_RET_STS_ERROR;
335: END IF;
336: RETURN(l_oks_cov_types_tl_rec);
337: END get_rec;
338: -----------------------------------------------------------
429: ) RETURN cvp_rec_type IS
430: l_cvp_rec cvp_rec_type;
431: l_row_notfound BOOLEAN := TRUE;
432: BEGIN
433: x_return_status := OKC_API.G_RET_STS_SUCCESS;
434: l_cvp_rec := get_rec(p_cvp_rec, l_row_notfound);
435: IF (l_row_notfound) THEN
436: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
437: x_return_status := OKC_API.G_RET_STS_ERROR;
432: BEGIN
433: x_return_status := OKC_API.G_RET_STS_SUCCESS;
434: l_cvp_rec := get_rec(p_cvp_rec, l_row_notfound);
435: IF (l_row_notfound) THEN
436: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
437: x_return_status := OKC_API.G_RET_STS_ERROR;
438: END IF;
439: RETURN(l_cvp_rec);
440: END get_rec;
433: x_return_status := OKC_API.G_RET_STS_SUCCESS;
434: l_cvp_rec := get_rec(p_cvp_rec, l_row_notfound);
435: IF (l_row_notfound) THEN
436: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'CODE');
437: x_return_status := OKC_API.G_RET_STS_ERROR;
438: END IF;
439: RETURN(l_cvp_rec);
440: END get_rec;
441: -----------------------------------------------------------
455: p_cvpv_rec IN cvpv_rec_type
456: ) RETURN cvpv_rec_type IS
457: l_cvpv_rec cvpv_rec_type := p_cvpv_rec;
458: BEGIN
459: IF (l_cvpv_rec.code = OKC_API.G_MISS_CHAR ) THEN
460: l_cvpv_rec.code := NULL;
461: END IF;
462: IF (l_cvpv_rec.meaning = OKC_API.G_MISS_CHAR ) THEN
463: l_cvpv_rec.meaning := NULL;
458: BEGIN
459: IF (l_cvpv_rec.code = OKC_API.G_MISS_CHAR ) THEN
460: l_cvpv_rec.code := NULL;
461: END IF;
462: IF (l_cvpv_rec.meaning = OKC_API.G_MISS_CHAR ) THEN
463: l_cvpv_rec.meaning := NULL;
464: END IF;
465: IF (l_cvpv_rec.description = OKC_API.G_MISS_CHAR ) THEN
466: l_cvpv_rec.description := NULL;
461: END IF;
462: IF (l_cvpv_rec.meaning = OKC_API.G_MISS_CHAR ) THEN
463: l_cvpv_rec.meaning := NULL;
464: END IF;
465: IF (l_cvpv_rec.description = OKC_API.G_MISS_CHAR ) THEN
466: l_cvpv_rec.description := NULL;
467: END IF;
468: IF (l_cvpv_rec.importance_level = OKC_API.G_MISS_NUM ) THEN
469: l_cvpv_rec.importance_level := NULL;
464: END IF;
465: IF (l_cvpv_rec.description = OKC_API.G_MISS_CHAR ) THEN
466: l_cvpv_rec.description := NULL;
467: END IF;
468: IF (l_cvpv_rec.importance_level = OKC_API.G_MISS_NUM ) THEN
469: l_cvpv_rec.importance_level := NULL;
470: END IF;
471: IF (l_cvpv_rec.sfwt_flag = OKC_API.G_MISS_CHAR ) THEN
472: l_cvpv_rec.sfwt_flag := NULL;
467: END IF;
468: IF (l_cvpv_rec.importance_level = OKC_API.G_MISS_NUM ) THEN
469: l_cvpv_rec.importance_level := NULL;
470: END IF;
471: IF (l_cvpv_rec.sfwt_flag = OKC_API.G_MISS_CHAR ) THEN
472: l_cvpv_rec.sfwt_flag := NULL;
473: END IF;
474: IF (l_cvpv_rec.enabled_flag = OKC_API.G_MISS_CHAR ) THEN
475: l_cvpv_rec.enabled_flag := NULL;
470: END IF;
471: IF (l_cvpv_rec.sfwt_flag = OKC_API.G_MISS_CHAR ) THEN
472: l_cvpv_rec.sfwt_flag := NULL;
473: END IF;
474: IF (l_cvpv_rec.enabled_flag = OKC_API.G_MISS_CHAR ) THEN
475: l_cvpv_rec.enabled_flag := NULL;
476: END IF;
477: IF (l_cvpv_rec.start_date_active = OKC_API.G_MISS_DATE ) THEN
478: l_cvpv_rec.start_date_active := NULL;
473: END IF;
474: IF (l_cvpv_rec.enabled_flag = OKC_API.G_MISS_CHAR ) THEN
475: l_cvpv_rec.enabled_flag := NULL;
476: END IF;
477: IF (l_cvpv_rec.start_date_active = OKC_API.G_MISS_DATE ) THEN
478: l_cvpv_rec.start_date_active := NULL;
479: END IF;
480: IF (l_cvpv_rec.end_date_active = OKC_API.G_MISS_DATE ) THEN
481: l_cvpv_rec.end_date_active := NULL;
476: END IF;
477: IF (l_cvpv_rec.start_date_active = OKC_API.G_MISS_DATE ) THEN
478: l_cvpv_rec.start_date_active := NULL;
479: END IF;
480: IF (l_cvpv_rec.end_date_active = OKC_API.G_MISS_DATE ) THEN
481: l_cvpv_rec.end_date_active := NULL;
482: END IF;
483: IF (l_cvpv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
484: l_cvpv_rec.created_by := NULL;
479: END IF;
480: IF (l_cvpv_rec.end_date_active = OKC_API.G_MISS_DATE ) THEN
481: l_cvpv_rec.end_date_active := NULL;
482: END IF;
483: IF (l_cvpv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
484: l_cvpv_rec.created_by := NULL;
485: END IF;
486: IF (l_cvpv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
487: l_cvpv_rec.creation_date := NULL;
482: END IF;
483: IF (l_cvpv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
484: l_cvpv_rec.created_by := NULL;
485: END IF;
486: IF (l_cvpv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
487: l_cvpv_rec.creation_date := NULL;
488: END IF;
489: IF (l_cvpv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
490: l_cvpv_rec.last_updated_by := NULL;
485: END IF;
486: IF (l_cvpv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
487: l_cvpv_rec.creation_date := NULL;
488: END IF;
489: IF (l_cvpv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
490: l_cvpv_rec.last_updated_by := NULL;
491: END IF;
492: IF (l_cvpv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
493: l_cvpv_rec.last_update_login := NULL;
488: END IF;
489: IF (l_cvpv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
490: l_cvpv_rec.last_updated_by := NULL;
491: END IF;
492: IF (l_cvpv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
493: l_cvpv_rec.last_update_login := NULL;
494: END IF;
495: IF (l_cvpv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
496: l_cvpv_rec.last_update_date := NULL;
491: END IF;
492: IF (l_cvpv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
493: l_cvpv_rec.last_update_login := NULL;
494: END IF;
495: IF (l_cvpv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
496: l_cvpv_rec.last_update_date := NULL;
497: END IF;
498: IF (l_cvpv_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
499: l_cvpv_rec.attribute_category := NULL;
494: END IF;
495: IF (l_cvpv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
496: l_cvpv_rec.last_update_date := NULL;
497: END IF;
498: IF (l_cvpv_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
499: l_cvpv_rec.attribute_category := NULL;
500: END IF;
501: IF (l_cvpv_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
502: l_cvpv_rec.attribute1 := NULL;
497: END IF;
498: IF (l_cvpv_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
499: l_cvpv_rec.attribute_category := NULL;
500: END IF;
501: IF (l_cvpv_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
502: l_cvpv_rec.attribute1 := NULL;
503: END IF;
504: IF (l_cvpv_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
505: l_cvpv_rec.attribute2 := NULL;
500: END IF;
501: IF (l_cvpv_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
502: l_cvpv_rec.attribute1 := NULL;
503: END IF;
504: IF (l_cvpv_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
505: l_cvpv_rec.attribute2 := NULL;
506: END IF;
507: IF (l_cvpv_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
508: l_cvpv_rec.attribute3 := NULL;
503: END IF;
504: IF (l_cvpv_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
505: l_cvpv_rec.attribute2 := NULL;
506: END IF;
507: IF (l_cvpv_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
508: l_cvpv_rec.attribute3 := NULL;
509: END IF;
510: IF (l_cvpv_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
511: l_cvpv_rec.attribute4 := NULL;
506: END IF;
507: IF (l_cvpv_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
508: l_cvpv_rec.attribute3 := NULL;
509: END IF;
510: IF (l_cvpv_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
511: l_cvpv_rec.attribute4 := NULL;
512: END IF;
513: IF (l_cvpv_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
514: l_cvpv_rec.attribute5 := NULL;
509: END IF;
510: IF (l_cvpv_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
511: l_cvpv_rec.attribute4 := NULL;
512: END IF;
513: IF (l_cvpv_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
514: l_cvpv_rec.attribute5 := NULL;
515: END IF;
516: IF (l_cvpv_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
517: l_cvpv_rec.attribute6 := NULL;
512: END IF;
513: IF (l_cvpv_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
514: l_cvpv_rec.attribute5 := NULL;
515: END IF;
516: IF (l_cvpv_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
517: l_cvpv_rec.attribute6 := NULL;
518: END IF;
519: IF (l_cvpv_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
520: l_cvpv_rec.attribute7 := NULL;
515: END IF;
516: IF (l_cvpv_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
517: l_cvpv_rec.attribute6 := NULL;
518: END IF;
519: IF (l_cvpv_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
520: l_cvpv_rec.attribute7 := NULL;
521: END IF;
522: IF (l_cvpv_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
523: l_cvpv_rec.attribute8 := NULL;
518: END IF;
519: IF (l_cvpv_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
520: l_cvpv_rec.attribute7 := NULL;
521: END IF;
522: IF (l_cvpv_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
523: l_cvpv_rec.attribute8 := NULL;
524: END IF;
525: IF (l_cvpv_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
526: l_cvpv_rec.attribute9 := NULL;
521: END IF;
522: IF (l_cvpv_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
523: l_cvpv_rec.attribute8 := NULL;
524: END IF;
525: IF (l_cvpv_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
526: l_cvpv_rec.attribute9 := NULL;
527: END IF;
528: IF (l_cvpv_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
529: l_cvpv_rec.attribute10 := NULL;
524: END IF;
525: IF (l_cvpv_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
526: l_cvpv_rec.attribute9 := NULL;
527: END IF;
528: IF (l_cvpv_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
529: l_cvpv_rec.attribute10 := NULL;
530: END IF;
531: IF (l_cvpv_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
532: l_cvpv_rec.attribute11 := NULL;
527: END IF;
528: IF (l_cvpv_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
529: l_cvpv_rec.attribute10 := NULL;
530: END IF;
531: IF (l_cvpv_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
532: l_cvpv_rec.attribute11 := NULL;
533: END IF;
534: IF (l_cvpv_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
535: l_cvpv_rec.attribute12 := NULL;
530: END IF;
531: IF (l_cvpv_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
532: l_cvpv_rec.attribute11 := NULL;
533: END IF;
534: IF (l_cvpv_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
535: l_cvpv_rec.attribute12 := NULL;
536: END IF;
537: IF (l_cvpv_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
538: l_cvpv_rec.attribute13 := NULL;
533: END IF;
534: IF (l_cvpv_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
535: l_cvpv_rec.attribute12 := NULL;
536: END IF;
537: IF (l_cvpv_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
538: l_cvpv_rec.attribute13 := NULL;
539: END IF;
540: IF (l_cvpv_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
541: l_cvpv_rec.attribute14 := NULL;
536: END IF;
537: IF (l_cvpv_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
538: l_cvpv_rec.attribute13 := NULL;
539: END IF;
540: IF (l_cvpv_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
541: l_cvpv_rec.attribute14 := NULL;
542: END IF;
543: IF (l_cvpv_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
544: l_cvpv_rec.attribute15 := NULL;
539: END IF;
540: IF (l_cvpv_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
541: l_cvpv_rec.attribute14 := NULL;
542: END IF;
543: IF (l_cvpv_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
544: l_cvpv_rec.attribute15 := NULL;
545: END IF;
546: RETURN(l_cvpv_rec);
547: END null_out_defaults;
551: PROCEDURE validate_code(
552: x_return_status OUT NOCOPY VARCHAR2,
553: p_code IN VARCHAR2) IS
554: BEGIN
555: x_return_status := OKC_API.G_RET_STS_SUCCESS;
556: IF (p_code = OKC_API.G_MISS_CHAR OR
557: p_code IS NULL)
558: THEN
559: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'code');
552: x_return_status OUT NOCOPY VARCHAR2,
553: p_code IN VARCHAR2) IS
554: BEGIN
555: x_return_status := OKC_API.G_RET_STS_SUCCESS;
556: IF (p_code = OKC_API.G_MISS_CHAR OR
557: p_code IS NULL)
558: THEN
559: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'code');
560: x_return_status := OKC_API.G_RET_STS_ERROR;
555: x_return_status := OKC_API.G_RET_STS_SUCCESS;
556: IF (p_code = OKC_API.G_MISS_CHAR OR
557: p_code IS NULL)
558: THEN
559: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'code');
560: x_return_status := OKC_API.G_RET_STS_ERROR;
561: RAISE G_EXCEPTION_HALT_VALIDATION;
562: END IF;
563: EXCEPTION
556: IF (p_code = OKC_API.G_MISS_CHAR OR
557: p_code IS NULL)
558: THEN
559: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'code');
560: x_return_status := OKC_API.G_RET_STS_ERROR;
561: RAISE G_EXCEPTION_HALT_VALIDATION;
562: END IF;
563: EXCEPTION
564: WHEN G_EXCEPTION_HALT_VALIDATION THEN
563: EXCEPTION
564: WHEN G_EXCEPTION_HALT_VALIDATION THEN
565: null;
566: WHEN OTHERS THEN
567: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
568: ,p_msg_name => G_UNEXPECTED_ERROR
569: ,p_token1 => G_SQLCODE_TOKEN
570: ,p_token1_value => SQLCODE
571: ,p_token2 => G_SQLERRM_TOKEN
569: ,p_token1 => G_SQLCODE_TOKEN
570: ,p_token1_value => SQLCODE
571: ,p_token2 => G_SQLERRM_TOKEN
572: ,p_token2_value => SQLERRM);
573: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
574: END validate_code;
575: --------------------------------------
576: -- Validate_Attributes for: MEANING --
577: --------------------------------------
578: PROCEDURE validate_meaning(
579: x_return_status OUT NOCOPY VARCHAR2,
580: p_meaning IN VARCHAR2) IS
581: BEGIN
582: x_return_status := OKC_API.G_RET_STS_SUCCESS;
583: IF (p_meaning = OKC_API.G_MISS_CHAR OR
584: p_meaning IS NULL)
585: THEN
586: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'meaning');
579: x_return_status OUT NOCOPY VARCHAR2,
580: p_meaning IN VARCHAR2) IS
581: BEGIN
582: x_return_status := OKC_API.G_RET_STS_SUCCESS;
583: IF (p_meaning = OKC_API.G_MISS_CHAR OR
584: p_meaning IS NULL)
585: THEN
586: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'meaning');
587: x_return_status := OKC_API.G_RET_STS_ERROR;
582: x_return_status := OKC_API.G_RET_STS_SUCCESS;
583: IF (p_meaning = OKC_API.G_MISS_CHAR OR
584: p_meaning IS NULL)
585: THEN
586: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'meaning');
587: x_return_status := OKC_API.G_RET_STS_ERROR;
588: RAISE G_EXCEPTION_HALT_VALIDATION;
589: END IF;
590: EXCEPTION
583: IF (p_meaning = OKC_API.G_MISS_CHAR OR
584: p_meaning IS NULL)
585: THEN
586: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'meaning');
587: x_return_status := OKC_API.G_RET_STS_ERROR;
588: RAISE G_EXCEPTION_HALT_VALIDATION;
589: END IF;
590: EXCEPTION
591: WHEN G_EXCEPTION_HALT_VALIDATION THEN
590: EXCEPTION
591: WHEN G_EXCEPTION_HALT_VALIDATION THEN
592: null;
593: WHEN OTHERS THEN
594: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
595: ,p_msg_name => G_UNEXPECTED_ERROR
596: ,p_token1 => G_SQLCODE_TOKEN
597: ,p_token1_value => SQLCODE
598: ,p_token2 => G_SQLERRM_TOKEN
596: ,p_token1 => G_SQLCODE_TOKEN
597: ,p_token1_value => SQLCODE
598: ,p_token2 => G_SQLERRM_TOKEN
599: ,p_token2_value => SQLERRM);
600: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
601: END validate_meaning;
602: -------------------------------------------
603: -- Validate_Attributes for: ENABLED_FLAG --
604: -------------------------------------------
605: PROCEDURE validate_enabled_flag(
606: x_return_status OUT NOCOPY VARCHAR2,
607: p_enabled_flag IN VARCHAR2) IS
608: BEGIN
609: x_return_status := OKC_API.G_RET_STS_SUCCESS;
610: IF (p_enabled_flag = OKC_API.G_MISS_CHAR OR
611: p_enabled_flag IS NULL)
612: THEN
613: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'enabled_flag');
606: x_return_status OUT NOCOPY VARCHAR2,
607: p_enabled_flag IN VARCHAR2) IS
608: BEGIN
609: x_return_status := OKC_API.G_RET_STS_SUCCESS;
610: IF (p_enabled_flag = OKC_API.G_MISS_CHAR OR
611: p_enabled_flag IS NULL)
612: THEN
613: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'enabled_flag');
614: x_return_status := OKC_API.G_RET_STS_ERROR;
609: x_return_status := OKC_API.G_RET_STS_SUCCESS;
610: IF (p_enabled_flag = OKC_API.G_MISS_CHAR OR
611: p_enabled_flag IS NULL)
612: THEN
613: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'enabled_flag');
614: x_return_status := OKC_API.G_RET_STS_ERROR;
615: RAISE G_EXCEPTION_HALT_VALIDATION;
616: END IF;
617: EXCEPTION
610: IF (p_enabled_flag = OKC_API.G_MISS_CHAR OR
611: p_enabled_flag IS NULL)
612: THEN
613: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'enabled_flag');
614: x_return_status := OKC_API.G_RET_STS_ERROR;
615: RAISE G_EXCEPTION_HALT_VALIDATION;
616: END IF;
617: EXCEPTION
618: WHEN G_EXCEPTION_HALT_VALIDATION THEN
617: EXCEPTION
618: WHEN G_EXCEPTION_HALT_VALIDATION THEN
619: null;
620: WHEN OTHERS THEN
621: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
622: ,p_msg_name => G_UNEXPECTED_ERROR
623: ,p_token1 => G_SQLCODE_TOKEN
624: ,p_token1_value => SQLCODE
625: ,p_token2 => G_SQLERRM_TOKEN
623: ,p_token1 => G_SQLCODE_TOKEN
624: ,p_token1_value => SQLCODE
625: ,p_token2 => G_SQLERRM_TOKEN
626: ,p_token2_value => SQLERRM);
627: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
628: END validate_enabled_flag;
629: ---------------------------------------------------------------------------
630: -- FUNCTION Validate_Attributes
631: ---------------------------------------------------------------------------
634: ---------------------------------------------
635: FUNCTION Validate_Attributes (
636: p_cvpv_rec IN cvpv_rec_type
637: ) RETURN VARCHAR2 IS
638: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
639: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
640: BEGIN
641: -----------------------------
642: -- Column Level Validation --
635: FUNCTION Validate_Attributes (
636: p_cvpv_rec IN cvpv_rec_type
637: ) RETURN VARCHAR2 IS
638: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
639: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
640: BEGIN
641: -----------------------------
642: -- Column Level Validation --
643: -----------------------------
644: -- ***
645: -- code
646: -- ***
647: validate_code(x_return_status, p_cvpv_rec.code);
648: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
649: l_return_status := x_return_status;
650: RAISE G_EXCEPTION_HALT_VALIDATION;
651: END IF;
652:
653: -- ***
654: -- meaning
655: -- ***
656: validate_meaning(x_return_status, p_cvpv_rec.meaning);
657: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
658: l_return_status := x_return_status;
659: RAISE G_EXCEPTION_HALT_VALIDATION;
660: END IF;
661:
662: -- ***
663: -- enabled_flag
664: -- ***
665: validate_enabled_flag(x_return_status, p_cvpv_rec.enabled_flag);
666: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
667: l_return_status := x_return_status;
668: RAISE G_EXCEPTION_HALT_VALIDATION;
669: END IF;
670:
672: EXCEPTION
673: WHEN G_EXCEPTION_HALT_VALIDATION THEN
674: RETURN(l_return_status);
675: WHEN OTHERS THEN
676: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
677: ,p_msg_name => G_UNEXPECTED_ERROR
678: ,p_token1 => G_SQLCODE_TOKEN
679: ,p_token1_value => SQLCODE
680: ,p_token2 => G_SQLERRM_TOKEN
678: ,p_token1 => G_SQLCODE_TOKEN
679: ,p_token1_value => SQLCODE
680: ,p_token2 => G_SQLERRM_TOKEN
681: ,p_token2_value => SQLERRM);
682: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
683: RETURN(l_return_status);
684: END Validate_Attributes;
685: ---------------------------------------------------------------------------
686: -- PROCEDURE Validate_Record
691: FUNCTION Validate_Record (
692: p_cvpv_rec IN cvpv_rec_type,
693: p_db_cvpv_rec IN cvpv_rec_type
694: ) RETURN VARCHAR2 IS
695: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
696: BEGIN
697: RETURN (l_return_status);
698: END Validate_Record;
699: FUNCTION Validate_Record (
698: END Validate_Record;
699: FUNCTION Validate_Record (
700: p_cvpv_rec IN cvpv_rec_type
701: ) RETURN VARCHAR2 IS
702: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
703: l_db_cvpv_rec cvpv_rec_type := get_rec(p_cvpv_rec);
704: BEGIN
705: l_return_status := Validate_Record(p_cvpv_rec => p_cvpv_rec,
706: p_db_cvpv_rec => l_db_cvpv_rec);
819: p_cvpv_rec IN cvpv_rec_type) IS
820:
821: l_api_version CONSTANT NUMBER := 1;
822: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
823: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
824: l_cvpv_rec cvpv_rec_type := p_cvpv_rec;
825: l_cvp_rec cvp_rec_type;
826: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
827: BEGIN
824: l_cvpv_rec cvpv_rec_type := p_cvpv_rec;
825: l_cvp_rec cvp_rec_type;
826: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
827: BEGIN
828: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
829: G_PKG_NAME,
830: p_init_msg_list,
831: l_api_version,
832: p_api_version,
831: l_api_version,
832: p_api_version,
833: '_PVT',
834: x_return_status);
835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_ERROR;
839: END IF;
832: p_api_version,
833: '_PVT',
834: x_return_status);
835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_ERROR;
839: END IF;
840: --- Validate all non-missing attributes (Item Level Validation)
833: '_PVT',
834: x_return_status);
835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_ERROR;
839: END IF;
840: --- Validate all non-missing attributes (Item Level Validation)
841: l_return_status := Validate_Attributes(l_cvpv_rec);
834: x_return_status);
835: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
836: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
837: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
838: RAISE OKC_API.G_EXCEPTION_ERROR;
839: END IF;
840: --- Validate all non-missing attributes (Item Level Validation)
841: l_return_status := Validate_Attributes(l_cvpv_rec);
842: --- If any errors happen abort API
839: END IF;
840: --- Validate all non-missing attributes (Item Level Validation)
841: l_return_status := Validate_Attributes(l_cvpv_rec);
842: --- If any errors happen abort API
843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
844: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
845: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
846: RAISE OKC_API.G_EXCEPTION_ERROR;
847: END IF;
840: --- Validate all non-missing attributes (Item Level Validation)
841: l_return_status := Validate_Attributes(l_cvpv_rec);
842: --- If any errors happen abort API
843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
844: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
845: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
846: RAISE OKC_API.G_EXCEPTION_ERROR;
847: END IF;
848: l_return_status := Validate_Record(l_cvpv_rec);
841: l_return_status := Validate_Attributes(l_cvpv_rec);
842: --- If any errors happen abort API
843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
844: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
845: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
846: RAISE OKC_API.G_EXCEPTION_ERROR;
847: END IF;
848: l_return_status := Validate_Record(l_cvpv_rec);
849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
842: --- If any errors happen abort API
843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
844: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
845: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
846: RAISE OKC_API.G_EXCEPTION_ERROR;
847: END IF;
848: l_return_status := Validate_Record(l_cvpv_rec);
849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
845: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
846: RAISE OKC_API.G_EXCEPTION_ERROR;
847: END IF;
848: l_return_status := Validate_Record(l_cvpv_rec);
849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
852: RAISE OKC_API.G_EXCEPTION_ERROR;
853: END IF;
846: RAISE OKC_API.G_EXCEPTION_ERROR;
847: END IF;
848: l_return_status := Validate_Record(l_cvpv_rec);
849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
852: RAISE OKC_API.G_EXCEPTION_ERROR;
853: END IF;
854: x_return_status := l_return_status;
847: END IF;
848: l_return_status := Validate_Record(l_cvpv_rec);
849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
852: RAISE OKC_API.G_EXCEPTION_ERROR;
853: END IF;
854: x_return_status := l_return_status;
855: EXCEPTION
848: l_return_status := Validate_Record(l_cvpv_rec);
849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
852: RAISE OKC_API.G_EXCEPTION_ERROR;
853: END IF;
854: x_return_status := l_return_status;
855: EXCEPTION
856: WHEN OKC_API.G_EXCEPTION_ERROR THEN
852: RAISE OKC_API.G_EXCEPTION_ERROR;
853: END IF;
854: x_return_status := l_return_status;
855: EXCEPTION
856: WHEN OKC_API.G_EXCEPTION_ERROR THEN
857: x_return_status := OKC_API.HANDLE_EXCEPTIONS
858: (
859: l_api_name,
860: G_PKG_NAME,
853: END IF;
854: x_return_status := l_return_status;
855: EXCEPTION
856: WHEN OKC_API.G_EXCEPTION_ERROR THEN
857: x_return_status := OKC_API.HANDLE_EXCEPTIONS
858: (
859: l_api_name,
860: G_PKG_NAME,
861: 'OKC_API.G_RET_STS_ERROR',
857: x_return_status := OKC_API.HANDLE_EXCEPTIONS
858: (
859: l_api_name,
860: G_PKG_NAME,
861: 'OKC_API.G_RET_STS_ERROR',
862: x_msg_count,
863: x_msg_data,
864: '_PVT'
865: );
862: x_msg_count,
863: x_msg_data,
864: '_PVT'
865: );
866: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
868: (
869: l_api_name,
870: G_PKG_NAME,
863: x_msg_data,
864: '_PVT'
865: );
866: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
868: (
869: l_api_name,
870: G_PKG_NAME,
871: 'OKC_API.G_RET_STS_UNEXP_ERROR',
867: x_return_status := OKC_API.HANDLE_EXCEPTIONS
868: (
869: l_api_name,
870: G_PKG_NAME,
871: 'OKC_API.G_RET_STS_UNEXP_ERROR',
872: x_msg_count,
873: x_msg_data,
874: '_PVT'
875: );
873: x_msg_data,
874: '_PVT'
875: );
876: WHEN OTHERS THEN
877: x_return_status := OKC_API.HANDLE_EXCEPTIONS
878: (
879: l_api_name,
880: G_PKG_NAME,
881: 'OTHERS',
893: x_return_status OUT NOCOPY VARCHAR2,
894: x_msg_count OUT NOCOPY NUMBER,
895: x_msg_data OUT NOCOPY VARCHAR2,
896: p_cvpv_tbl IN cvpv_tbl_type,
897: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
898:
899: l_api_version CONSTANT NUMBER := 1;
900: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
901: i NUMBER := 0;
899: l_api_version CONSTANT NUMBER := 1;
900: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
901: i NUMBER := 0;
902: BEGIN
903: OKC_API.init_msg_list(p_init_msg_list);
904: -- Make sure PL/SQL table has records in it before passing
905: IF (p_cvpv_tbl.COUNT > 0) THEN
906: i := p_cvpv_tbl.FIRST;
907: LOOP
905: IF (p_cvpv_tbl.COUNT > 0) THEN
906: i := p_cvpv_tbl.FIRST;
907: LOOP
908: DECLARE
909: l_error_rec OKC_API.ERROR_REC_TYPE;
910: BEGIN
911: l_error_rec.api_name := l_api_name;
912: l_error_rec.api_package := G_PKG_NAME;
913: l_error_rec.idx := i;
912: l_error_rec.api_package := G_PKG_NAME;
913: l_error_rec.idx := i;
914: validate_row (
915: p_api_version => p_api_version,
916: p_init_msg_list => OKC_API.G_FALSE,
917: x_return_status => l_error_rec.error_type,
918: x_msg_count => l_error_rec.msg_count,
919: x_msg_data => l_error_rec.msg_data,
920: p_cvpv_rec => p_cvpv_tbl(i));
917: x_return_status => l_error_rec.error_type,
918: x_msg_count => l_error_rec.msg_count,
919: x_msg_data => l_error_rec.msg_data,
920: p_cvpv_rec => p_cvpv_tbl(i));
921: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
922: l_error_rec.sqlcode := SQLCODE;
923: load_error_tbl(l_error_rec, px_error_tbl);
924: ELSE
925: x_msg_count := l_error_rec.msg_count;
925: x_msg_count := l_error_rec.msg_count;
926: x_msg_data := l_error_rec.msg_data;
927: END IF;
928: EXCEPTION
929: WHEN OKC_API.G_EXCEPTION_ERROR THEN
930: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
931: l_error_rec.sqlcode := SQLCODE;
932: load_error_tbl(l_error_rec, px_error_tbl);
933: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
926: x_msg_data := l_error_rec.msg_data;
927: END IF;
928: EXCEPTION
929: WHEN OKC_API.G_EXCEPTION_ERROR THEN
930: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
931: l_error_rec.sqlcode := SQLCODE;
932: load_error_tbl(l_error_rec, px_error_tbl);
933: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
934: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
929: WHEN OKC_API.G_EXCEPTION_ERROR THEN
930: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
931: l_error_rec.sqlcode := SQLCODE;
932: load_error_tbl(l_error_rec, px_error_tbl);
933: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
934: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
935: l_error_rec.sqlcode := SQLCODE;
936: load_error_tbl(l_error_rec, px_error_tbl);
937: WHEN OTHERS THEN
930: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
931: l_error_rec.sqlcode := SQLCODE;
932: load_error_tbl(l_error_rec, px_error_tbl);
933: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
934: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
935: l_error_rec.sqlcode := SQLCODE;
936: load_error_tbl(l_error_rec, px_error_tbl);
937: WHEN OTHERS THEN
938: l_error_rec.error_type := 'OTHERS';
945: END IF;
946: -- Loop through the error_tbl to find the error with the highest severity
947: -- and return it.
948: x_return_status := find_highest_exception(px_error_tbl);
949: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
950: EXCEPTION
951: WHEN OKC_API.G_EXCEPTION_ERROR THEN
952: x_return_status := OKC_API.HANDLE_EXCEPTIONS
953: (
947: -- and return it.
948: x_return_status := find_highest_exception(px_error_tbl);
949: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
950: EXCEPTION
951: WHEN OKC_API.G_EXCEPTION_ERROR THEN
952: x_return_status := OKC_API.HANDLE_EXCEPTIONS
953: (
954: l_api_name,
955: G_PKG_NAME,
948: x_return_status := find_highest_exception(px_error_tbl);
949: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
950: EXCEPTION
951: WHEN OKC_API.G_EXCEPTION_ERROR THEN
952: x_return_status := OKC_API.HANDLE_EXCEPTIONS
953: (
954: l_api_name,
955: G_PKG_NAME,
956: 'OKC_API.G_RET_STS_ERROR',
952: x_return_status := OKC_API.HANDLE_EXCEPTIONS
953: (
954: l_api_name,
955: G_PKG_NAME,
956: 'OKC_API.G_RET_STS_ERROR',
957: x_msg_count,
958: x_msg_data,
959: '_PVT'
960: );
957: x_msg_count,
958: x_msg_data,
959: '_PVT'
960: );
961: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
962: x_return_status := OKC_API.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
958: x_msg_data,
959: '_PVT'
960: );
961: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
962: x_return_status := OKC_API.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
966: 'OKC_API.G_RET_STS_UNEXP_ERROR',
962: x_return_status := OKC_API.HANDLE_EXCEPTIONS
963: (
964: l_api_name,
965: G_PKG_NAME,
966: 'OKC_API.G_RET_STS_UNEXP_ERROR',
967: x_msg_count,
968: x_msg_data,
969: '_PVT'
970: );
968: x_msg_data,
969: '_PVT'
970: );
971: WHEN OTHERS THEN
972: x_return_status := OKC_API.HANDLE_EXCEPTIONS
973: (
974: l_api_name,
975: G_PKG_NAME,
976: 'OTHERS',
992: p_cvpv_tbl IN cvpv_tbl_type) IS
993:
994: l_api_version CONSTANT NUMBER := 1;
995: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
996: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
997: l_error_tbl OKC_API.ERROR_TBL_TYPE;
998: BEGIN
999: OKC_API.init_msg_list(p_init_msg_list);
1000: -- Make sure PL/SQL table has records in it before passing
993:
994: l_api_version CONSTANT NUMBER := 1;
995: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
996: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
997: l_error_tbl OKC_API.ERROR_TBL_TYPE;
998: BEGIN
999: OKC_API.init_msg_list(p_init_msg_list);
1000: -- Make sure PL/SQL table has records in it before passing
1001: IF (p_cvpv_tbl.COUNT > 0) THEN
995: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
996: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
997: l_error_tbl OKC_API.ERROR_TBL_TYPE;
998: BEGIN
999: OKC_API.init_msg_list(p_init_msg_list);
1000: -- Make sure PL/SQL table has records in it before passing
1001: IF (p_cvpv_tbl.COUNT > 0) THEN
1002: validate_row (
1003: p_api_version => p_api_version,
1000: -- Make sure PL/SQL table has records in it before passing
1001: IF (p_cvpv_tbl.COUNT > 0) THEN
1002: validate_row (
1003: p_api_version => p_api_version,
1004: p_init_msg_list => OKC_API.G_FALSE,
1005: x_return_status => x_return_status,
1006: x_msg_count => x_msg_count,
1007: x_msg_data => x_msg_data,
1008: p_cvpv_tbl => p_cvpv_tbl,
1007: x_msg_data => x_msg_data,
1008: p_cvpv_tbl => p_cvpv_tbl,
1009: px_error_tbl => l_error_tbl);
1010: END IF;
1011: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1012: EXCEPTION
1013: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1014: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1015: (
1009: px_error_tbl => l_error_tbl);
1010: END IF;
1011: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1012: EXCEPTION
1013: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1014: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1015: (
1016: l_api_name,
1017: G_PKG_NAME,
1010: END IF;
1011: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1012: EXCEPTION
1013: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1014: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1015: (
1016: l_api_name,
1017: G_PKG_NAME,
1018: 'OKC_API.G_RET_STS_ERROR',
1014: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1015: (
1016: l_api_name,
1017: G_PKG_NAME,
1018: 'OKC_API.G_RET_STS_ERROR',
1019: x_msg_count,
1020: x_msg_data,
1021: '_PVT'
1022: );
1019: x_msg_count,
1020: x_msg_data,
1021: '_PVT'
1022: );
1023: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1025: (
1026: l_api_name,
1027: G_PKG_NAME,
1020: x_msg_data,
1021: '_PVT'
1022: );
1023: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1025: (
1026: l_api_name,
1027: G_PKG_NAME,
1028: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1024: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1025: (
1026: l_api_name,
1027: G_PKG_NAME,
1028: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1029: x_msg_count,
1030: x_msg_data,
1031: '_PVT'
1032: );
1030: x_msg_data,
1031: '_PVT'
1032: );
1033: WHEN OTHERS THEN
1034: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1035: (
1036: l_api_name,
1037: G_PKG_NAME,
1038: 'OTHERS',
1057: x_cvp_rec OUT NOCOPY cvp_rec_type) IS
1058:
1059: l_api_version CONSTANT NUMBER := 1;
1060: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1061: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1062: l_cvp_rec cvp_rec_type := p_cvp_rec;
1063: l_def_cvp_rec cvp_rec_type;
1064: ----------------------------------------
1065: -- Set_Attributes for:OKS_COV_TYPES_B --
1067: FUNCTION Set_Attributes (
1068: p_cvp_rec IN cvp_rec_type,
1069: x_cvp_rec OUT NOCOPY cvp_rec_type
1070: ) RETURN VARCHAR2 IS
1071: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1072: BEGIN
1073: x_cvp_rec := p_cvp_rec;
1074: RETURN(l_return_status);
1075: END Set_Attributes;
1073: x_cvp_rec := p_cvp_rec;
1074: RETURN(l_return_status);
1075: END Set_Attributes;
1076: BEGIN
1077: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1078: p_init_msg_list,
1079: '_PVT',
1080: x_return_status);
1081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1077: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1078: p_init_msg_list,
1079: '_PVT',
1080: x_return_status);
1081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1084: RAISE OKC_API.G_EXCEPTION_ERROR;
1085: END IF;
1078: p_init_msg_list,
1079: '_PVT',
1080: x_return_status);
1081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1084: RAISE OKC_API.G_EXCEPTION_ERROR;
1085: END IF;
1086: --- Setting item atributes
1079: '_PVT',
1080: x_return_status);
1081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1084: RAISE OKC_API.G_EXCEPTION_ERROR;
1085: END IF;
1086: --- Setting item atributes
1087: l_return_status := Set_Attributes(
1080: x_return_status);
1081: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1082: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1083: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1084: RAISE OKC_API.G_EXCEPTION_ERROR;
1085: END IF;
1086: --- Setting item atributes
1087: l_return_status := Set_Attributes(
1088: p_cvp_rec, -- IN
1087: l_return_status := Set_Attributes(
1088: p_cvp_rec, -- IN
1089: l_cvp_rec); -- OUT
1090: --- If any errors happen abort API
1091: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1092: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1094: RAISE OKC_API.G_EXCEPTION_ERROR;
1095: END IF;
1088: p_cvp_rec, -- IN
1089: l_cvp_rec); -- OUT
1090: --- If any errors happen abort API
1091: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1092: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1094: RAISE OKC_API.G_EXCEPTION_ERROR;
1095: END IF;
1096: INSERT INTO OKS_COV_TYPES_B(
1089: l_cvp_rec); -- OUT
1090: --- If any errors happen abort API
1091: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1092: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1094: RAISE OKC_API.G_EXCEPTION_ERROR;
1095: END IF;
1096: INSERT INTO OKS_COV_TYPES_B(
1097: code,
1090: --- If any errors happen abort API
1091: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1092: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1093: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1094: RAISE OKC_API.G_EXCEPTION_ERROR;
1095: END IF;
1096: INSERT INTO OKS_COV_TYPES_B(
1097: code,
1098: importance_level,
1149: l_cvp_rec.attribute15);
1150: -- Set OUT values
1151: x_cvp_rec := l_cvp_rec;
1152: x_return_status := l_return_status;
1153: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1154: EXCEPTION
1155: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1157: (
1151: x_cvp_rec := l_cvp_rec;
1152: x_return_status := l_return_status;
1153: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1154: EXCEPTION
1155: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1157: (
1158: l_api_name,
1159: G_PKG_NAME,
1152: x_return_status := l_return_status;
1153: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1154: EXCEPTION
1155: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1157: (
1158: l_api_name,
1159: G_PKG_NAME,
1160: 'OKC_API.G_RET_STS_ERROR',
1156: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1157: (
1158: l_api_name,
1159: G_PKG_NAME,
1160: 'OKC_API.G_RET_STS_ERROR',
1161: x_msg_count,
1162: x_msg_data,
1163: '_PVT'
1164: );
1161: x_msg_count,
1162: x_msg_data,
1163: '_PVT'
1164: );
1165: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1167: (
1168: l_api_name,
1169: G_PKG_NAME,
1162: x_msg_data,
1163: '_PVT'
1164: );
1165: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1167: (
1168: l_api_name,
1169: G_PKG_NAME,
1170: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1166: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1167: (
1168: l_api_name,
1169: G_PKG_NAME,
1170: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1171: x_msg_count,
1172: x_msg_data,
1173: '_PVT'
1174: );
1172: x_msg_data,
1173: '_PVT'
1174: );
1175: WHEN OTHERS THEN
1176: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1177: (
1178: l_api_name,
1179: G_PKG_NAME,
1180: 'OTHERS',
1195: x_oks_cov_types_tl_rec OUT NOCOPY oks_cov_types_tl_rec_type) IS
1196:
1197: l_api_version CONSTANT NUMBER := 1;
1198: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1199: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1200: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type := p_oks_cov_types_tl_rec;
1201: l_def_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
1202: CURSOR get_languages IS
1203: SELECT *
1209: FUNCTION Set_Attributes (
1210: p_oks_cov_types_tl_rec IN oks_cov_types_tl_rec_type,
1211: x_oks_cov_types_tl_rec OUT NOCOPY oks_cov_types_tl_rec_type
1212: ) RETURN VARCHAR2 IS
1213: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1214: BEGIN
1215: x_oks_cov_types_tl_rec := p_oks_cov_types_tl_rec;
1216: x_oks_cov_types_tl_rec.LANGUAGE := USERENV('LANG');
1217: x_oks_cov_types_tl_rec.SOURCE_LANG := USERENV('LANG');
1217: x_oks_cov_types_tl_rec.SOURCE_LANG := USERENV('LANG');
1218: RETURN(l_return_status);
1219: END Set_Attributes;
1220: BEGIN
1221: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1222: p_init_msg_list,
1223: '_PVT',
1224: x_return_status);
1225: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1221: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1222: p_init_msg_list,
1223: '_PVT',
1224: x_return_status);
1225: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1228: RAISE OKC_API.G_EXCEPTION_ERROR;
1229: END IF;
1222: p_init_msg_list,
1223: '_PVT',
1224: x_return_status);
1225: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1228: RAISE OKC_API.G_EXCEPTION_ERROR;
1229: END IF;
1230: --- Setting item attributes
1223: '_PVT',
1224: x_return_status);
1225: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1228: RAISE OKC_API.G_EXCEPTION_ERROR;
1229: END IF;
1230: --- Setting item attributes
1231: l_return_status := Set_Attributes(
1224: x_return_status);
1225: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1226: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1227: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1228: RAISE OKC_API.G_EXCEPTION_ERROR;
1229: END IF;
1230: --- Setting item attributes
1231: l_return_status := Set_Attributes(
1232: p_oks_cov_types_tl_rec, -- IN
1231: l_return_status := Set_Attributes(
1232: p_oks_cov_types_tl_rec, -- IN
1233: l_oks_cov_types_tl_rec); -- OUT
1234: --- If any errors happen abort API
1235: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1237: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1238: RAISE OKC_API.G_EXCEPTION_ERROR;
1239: END IF;
1232: p_oks_cov_types_tl_rec, -- IN
1233: l_oks_cov_types_tl_rec); -- OUT
1234: --- If any errors happen abort API
1235: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1237: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1238: RAISE OKC_API.G_EXCEPTION_ERROR;
1239: END IF;
1240: FOR l_lang_rec IN get_languages LOOP
1233: l_oks_cov_types_tl_rec); -- OUT
1234: --- If any errors happen abort API
1235: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1237: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1238: RAISE OKC_API.G_EXCEPTION_ERROR;
1239: END IF;
1240: FOR l_lang_rec IN get_languages LOOP
1241: l_oks_cov_types_tl_rec.language := l_lang_rec.language_code;
1234: --- If any errors happen abort API
1235: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1236: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1237: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1238: RAISE OKC_API.G_EXCEPTION_ERROR;
1239: END IF;
1240: FOR l_lang_rec IN get_languages LOOP
1241: l_oks_cov_types_tl_rec.language := l_lang_rec.language_code;
1242: INSERT INTO OKS_COV_TYPES_TL(
1266: END LOOP;
1267: -- Set OUT values
1268: x_oks_cov_types_tl_rec := l_oks_cov_types_tl_rec;
1269: x_return_status := l_return_status;
1270: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1271: EXCEPTION
1272: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1273: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1274: (
1268: x_oks_cov_types_tl_rec := l_oks_cov_types_tl_rec;
1269: x_return_status := l_return_status;
1270: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1271: EXCEPTION
1272: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1273: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1274: (
1275: l_api_name,
1276: G_PKG_NAME,
1269: x_return_status := l_return_status;
1270: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1271: EXCEPTION
1272: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1273: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1274: (
1275: l_api_name,
1276: G_PKG_NAME,
1277: 'OKC_API.G_RET_STS_ERROR',
1273: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1274: (
1275: l_api_name,
1276: G_PKG_NAME,
1277: 'OKC_API.G_RET_STS_ERROR',
1278: x_msg_count,
1279: x_msg_data,
1280: '_PVT'
1281: );
1278: x_msg_count,
1279: x_msg_data,
1280: '_PVT'
1281: );
1282: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1284: (
1285: l_api_name,
1286: G_PKG_NAME,
1279: x_msg_data,
1280: '_PVT'
1281: );
1282: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1284: (
1285: l_api_name,
1286: G_PKG_NAME,
1287: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1284: (
1285: l_api_name,
1286: G_PKG_NAME,
1287: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1288: x_msg_count,
1289: x_msg_data,
1290: '_PVT'
1291: );
1289: x_msg_data,
1290: '_PVT'
1291: );
1292: WHEN OTHERS THEN
1293: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1294: (
1295: l_api_name,
1296: G_PKG_NAME,
1297: 'OTHERS',
1313: x_cvpv_rec OUT NOCOPY cvpv_rec_type) IS
1314:
1315: l_api_version CONSTANT NUMBER := 1;
1316: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1317: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1318: l_cvpv_rec cvpv_rec_type := p_cvpv_rec;
1319: l_def_cvpv_rec cvpv_rec_type;
1320: l_cvp_rec cvp_rec_type;
1321: lx_cvp_rec cvp_rec_type;
1342: FUNCTION Set_Attributes (
1343: p_cvpv_rec IN cvpv_rec_type,
1344: x_cvpv_rec OUT NOCOPY cvpv_rec_type
1345: ) RETURN VARCHAR2 IS
1346: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1347: BEGIN
1348: x_cvpv_rec := p_cvpv_rec;
1349: x_cvpv_rec.SFWT_FLAG := 'N';
1350: RETURN(l_return_status);
1349: x_cvpv_rec.SFWT_FLAG := 'N';
1350: RETURN(l_return_status);
1351: END Set_Attributes;
1352: BEGIN
1353: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1354: G_PKG_NAME,
1355: p_init_msg_list,
1356: l_api_version,
1357: p_api_version,
1356: l_api_version,
1357: p_api_version,
1358: '_PVT',
1359: x_return_status);
1360: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1363: RAISE OKC_API.G_EXCEPTION_ERROR;
1364: END IF;
1357: p_api_version,
1358: '_PVT',
1359: x_return_status);
1360: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1363: RAISE OKC_API.G_EXCEPTION_ERROR;
1364: END IF;
1365: l_cvpv_rec := null_out_defaults(p_cvpv_rec);
1358: '_PVT',
1359: x_return_status);
1360: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1363: RAISE OKC_API.G_EXCEPTION_ERROR;
1364: END IF;
1365: l_cvpv_rec := null_out_defaults(p_cvpv_rec);
1366: -- Set primary key value
1359: x_return_status);
1360: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1361: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1362: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1363: RAISE OKC_API.G_EXCEPTION_ERROR;
1364: END IF;
1365: l_cvpv_rec := null_out_defaults(p_cvpv_rec);
1366: -- Set primary key value
1367: -- Error: Primary Key Column "CODE"
1370: l_return_Status := Set_Attributes(
1371: l_cvpv_rec, -- IN
1372: l_def_cvpv_rec); -- OUT
1373: --- If any errors happen abort API
1374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1377: RAISE OKC_API.G_EXCEPTION_ERROR;
1378: END IF;
1371: l_cvpv_rec, -- IN
1372: l_def_cvpv_rec); -- OUT
1373: --- If any errors happen abort API
1374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1377: RAISE OKC_API.G_EXCEPTION_ERROR;
1378: END IF;
1379: l_def_cvpv_rec := fill_who_columns(l_def_cvpv_rec);
1372: l_def_cvpv_rec); -- OUT
1373: --- If any errors happen abort API
1374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1377: RAISE OKC_API.G_EXCEPTION_ERROR;
1378: END IF;
1379: l_def_cvpv_rec := fill_who_columns(l_def_cvpv_rec);
1380: --- Validate all non-missing attributes (Item Level Validation)
1373: --- If any errors happen abort API
1374: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1375: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1376: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1377: RAISE OKC_API.G_EXCEPTION_ERROR;
1378: END IF;
1379: l_def_cvpv_rec := fill_who_columns(l_def_cvpv_rec);
1380: --- Validate all non-missing attributes (Item Level Validation)
1381: l_return_status := Validate_Attributes(l_def_cvpv_rec);
1379: l_def_cvpv_rec := fill_who_columns(l_def_cvpv_rec);
1380: --- Validate all non-missing attributes (Item Level Validation)
1381: l_return_status := Validate_Attributes(l_def_cvpv_rec);
1382: --- If any errors happen abort API
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1380: --- Validate all non-missing attributes (Item Level Validation)
1381: l_return_status := Validate_Attributes(l_def_cvpv_rec);
1382: --- If any errors happen abort API
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: l_return_status := Validate_Record(l_def_cvpv_rec);
1381: l_return_status := Validate_Attributes(l_def_cvpv_rec);
1382: --- If any errors happen abort API
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: l_return_status := Validate_Record(l_def_cvpv_rec);
1389: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1382: --- If any errors happen abort API
1383: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: l_return_status := Validate_Record(l_def_cvpv_rec);
1389: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1385: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: l_return_status := Validate_Record(l_def_cvpv_rec);
1389: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_ERROR;
1393: END IF;
1386: RAISE OKC_API.G_EXCEPTION_ERROR;
1387: END IF;
1388: l_return_status := Validate_Record(l_def_cvpv_rec);
1389: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_ERROR;
1393: END IF;
1394: -----------------------------------------
1387: END IF;
1388: l_return_status := Validate_Record(l_def_cvpv_rec);
1389: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_ERROR;
1393: END IF;
1394: -----------------------------------------
1395: -- Move VIEW record to "Child" records --
1388: l_return_status := Validate_Record(l_def_cvpv_rec);
1389: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1390: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1391: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1392: RAISE OKC_API.G_EXCEPTION_ERROR;
1393: END IF;
1394: -----------------------------------------
1395: -- Move VIEW record to "Child" records --
1396: -----------------------------------------
1406: x_msg_data,
1407: l_cvp_rec,
1408: lx_cvp_rec
1409: );
1410: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_ERROR;
1414: END IF;
1407: l_cvp_rec,
1408: lx_cvp_rec
1409: );
1410: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_ERROR;
1414: END IF;
1415: migrate(lx_cvp_rec, l_def_cvpv_rec);
1408: lx_cvp_rec
1409: );
1410: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_ERROR;
1414: END IF;
1415: migrate(lx_cvp_rec, l_def_cvpv_rec);
1416: insert_row(
1409: );
1410: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1411: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1412: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_ERROR;
1414: END IF;
1415: migrate(lx_cvp_rec, l_def_cvpv_rec);
1416: insert_row(
1417: p_init_msg_list,
1420: x_msg_data,
1421: l_oks_cov_types_tl_rec,
1422: lx_oks_cov_types_tl_rec
1423: );
1424: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1425: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1426: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1427: RAISE OKC_API.G_EXCEPTION_ERROR;
1428: END IF;
1421: l_oks_cov_types_tl_rec,
1422: lx_oks_cov_types_tl_rec
1423: );
1424: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1425: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1426: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1427: RAISE OKC_API.G_EXCEPTION_ERROR;
1428: END IF;
1429: migrate(lx_oks_cov_types_tl_rec, l_def_cvpv_rec);
1422: lx_oks_cov_types_tl_rec
1423: );
1424: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1425: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1426: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1427: RAISE OKC_API.G_EXCEPTION_ERROR;
1428: END IF;
1429: migrate(lx_oks_cov_types_tl_rec, l_def_cvpv_rec);
1430: -- Set OUT values
1423: );
1424: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1425: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1426: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1427: RAISE OKC_API.G_EXCEPTION_ERROR;
1428: END IF;
1429: migrate(lx_oks_cov_types_tl_rec, l_def_cvpv_rec);
1430: -- Set OUT values
1431: x_cvpv_rec := l_def_cvpv_rec;
1429: migrate(lx_oks_cov_types_tl_rec, l_def_cvpv_rec);
1430: -- Set OUT values
1431: x_cvpv_rec := l_def_cvpv_rec;
1432: x_return_status := l_return_status;
1433: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1434: EXCEPTION
1435: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1436: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1437: (
1431: x_cvpv_rec := l_def_cvpv_rec;
1432: x_return_status := l_return_status;
1433: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1434: EXCEPTION
1435: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1436: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1437: (
1438: l_api_name,
1439: G_PKG_NAME,
1432: x_return_status := l_return_status;
1433: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1434: EXCEPTION
1435: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1436: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1437: (
1438: l_api_name,
1439: G_PKG_NAME,
1440: 'OKC_API.G_RET_STS_ERROR',
1436: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1437: (
1438: l_api_name,
1439: G_PKG_NAME,
1440: 'OKC_API.G_RET_STS_ERROR',
1441: x_msg_count,
1442: x_msg_data,
1443: '_PVT'
1444: );
1441: x_msg_count,
1442: x_msg_data,
1443: '_PVT'
1444: );
1445: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1446: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1447: (
1448: l_api_name,
1449: G_PKG_NAME,
1442: x_msg_data,
1443: '_PVT'
1444: );
1445: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1446: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1447: (
1448: l_api_name,
1449: G_PKG_NAME,
1450: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1446: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1447: (
1448: l_api_name,
1449: G_PKG_NAME,
1450: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1451: x_msg_count,
1452: x_msg_data,
1453: '_PVT'
1454: );
1452: x_msg_data,
1453: '_PVT'
1454: );
1455: WHEN OTHERS THEN
1456: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1457: (
1458: l_api_name,
1459: G_PKG_NAME,
1460: 'OTHERS',
1473: x_msg_count OUT NOCOPY NUMBER,
1474: x_msg_data OUT NOCOPY VARCHAR2,
1475: p_cvpv_tbl IN cvpv_tbl_type,
1476: x_cvpv_tbl OUT NOCOPY cvpv_tbl_type,
1477: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1478:
1479: l_api_version CONSTANT NUMBER := 1;
1480: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1481: i NUMBER := 0;
1479: l_api_version CONSTANT NUMBER := 1;
1480: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1481: i NUMBER := 0;
1482: BEGIN
1483: OKC_API.init_msg_list(p_init_msg_list);
1484: -- Make sure PL/SQL table has records in it before passing
1485: IF (p_cvpv_tbl.COUNT > 0) THEN
1486: i := p_cvpv_tbl.FIRST;
1487: LOOP
1485: IF (p_cvpv_tbl.COUNT > 0) THEN
1486: i := p_cvpv_tbl.FIRST;
1487: LOOP
1488: DECLARE
1489: l_error_rec OKC_API.ERROR_REC_TYPE;
1490: BEGIN
1491: l_error_rec.api_name := l_api_name;
1492: l_error_rec.api_package := G_PKG_NAME;
1493: l_error_rec.idx := i;
1492: l_error_rec.api_package := G_PKG_NAME;
1493: l_error_rec.idx := i;
1494: insert_row (
1495: p_api_version => p_api_version,
1496: p_init_msg_list => OKC_API.G_FALSE,
1497: x_return_status => l_error_rec.error_type,
1498: x_msg_count => l_error_rec.msg_count,
1499: x_msg_data => l_error_rec.msg_data,
1500: p_cvpv_rec => p_cvpv_tbl(i),
1498: x_msg_count => l_error_rec.msg_count,
1499: x_msg_data => l_error_rec.msg_data,
1500: p_cvpv_rec => p_cvpv_tbl(i),
1501: x_cvpv_rec => x_cvpv_tbl(i));
1502: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1503: l_error_rec.sqlcode := SQLCODE;
1504: load_error_tbl(l_error_rec, px_error_tbl);
1505: ELSE
1506: x_msg_count := l_error_rec.msg_count;
1506: x_msg_count := l_error_rec.msg_count;
1507: x_msg_data := l_error_rec.msg_data;
1508: END IF;
1509: EXCEPTION
1510: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1511: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1512: l_error_rec.sqlcode := SQLCODE;
1513: load_error_tbl(l_error_rec, px_error_tbl);
1514: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1507: x_msg_data := l_error_rec.msg_data;
1508: END IF;
1509: EXCEPTION
1510: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1511: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1512: l_error_rec.sqlcode := SQLCODE;
1513: load_error_tbl(l_error_rec, px_error_tbl);
1514: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1515: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1510: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1511: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1512: l_error_rec.sqlcode := SQLCODE;
1513: load_error_tbl(l_error_rec, px_error_tbl);
1514: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1515: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1516: l_error_rec.sqlcode := SQLCODE;
1517: load_error_tbl(l_error_rec, px_error_tbl);
1518: WHEN OTHERS THEN
1511: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1512: l_error_rec.sqlcode := SQLCODE;
1513: load_error_tbl(l_error_rec, px_error_tbl);
1514: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1515: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1516: l_error_rec.sqlcode := SQLCODE;
1517: load_error_tbl(l_error_rec, px_error_tbl);
1518: WHEN OTHERS THEN
1519: l_error_rec.error_type := 'OTHERS';
1526: END IF;
1527: -- Loop through the error_tbl to find the error with the highest severity
1528: -- and return it.
1529: x_return_status := find_highest_exception(px_error_tbl);
1530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1531: EXCEPTION
1532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1534: (
1528: -- and return it.
1529: x_return_status := find_highest_exception(px_error_tbl);
1530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1531: EXCEPTION
1532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1534: (
1535: l_api_name,
1536: G_PKG_NAME,
1529: x_return_status := find_highest_exception(px_error_tbl);
1530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1531: EXCEPTION
1532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1534: (
1535: l_api_name,
1536: G_PKG_NAME,
1537: 'OKC_API.G_RET_STS_ERROR',
1533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1534: (
1535: l_api_name,
1536: G_PKG_NAME,
1537: 'OKC_API.G_RET_STS_ERROR',
1538: x_msg_count,
1539: x_msg_data,
1540: '_PVT'
1541: );
1538: x_msg_count,
1539: x_msg_data,
1540: '_PVT'
1541: );
1542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1539: x_msg_data,
1540: '_PVT'
1541: );
1542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1547: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1547: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1548: x_msg_count,
1549: x_msg_data,
1550: '_PVT'
1551: );
1549: x_msg_data,
1550: '_PVT'
1551: );
1552: WHEN OTHERS THEN
1553: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1554: (
1555: l_api_name,
1556: G_PKG_NAME,
1557: 'OTHERS',
1576: x_cvpv_tbl OUT NOCOPY cvpv_tbl_type) IS
1577:
1578: l_api_version CONSTANT NUMBER := 1;
1579: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1580: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1581: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1582: BEGIN
1583: OKC_API.init_msg_list(p_init_msg_list);
1584: -- Make sure PL/SQL table has records in it before passing
1577:
1578: l_api_version CONSTANT NUMBER := 1;
1579: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1580: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1581: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1582: BEGIN
1583: OKC_API.init_msg_list(p_init_msg_list);
1584: -- Make sure PL/SQL table has records in it before passing
1585: IF (p_cvpv_tbl.COUNT > 0) THEN
1579: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1580: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1581: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1582: BEGIN
1583: OKC_API.init_msg_list(p_init_msg_list);
1584: -- Make sure PL/SQL table has records in it before passing
1585: IF (p_cvpv_tbl.COUNT > 0) THEN
1586: insert_row (
1587: p_api_version => p_api_version,
1584: -- Make sure PL/SQL table has records in it before passing
1585: IF (p_cvpv_tbl.COUNT > 0) THEN
1586: insert_row (
1587: p_api_version => p_api_version,
1588: p_init_msg_list => OKC_API.G_FALSE,
1589: x_return_status => x_return_status,
1590: x_msg_count => x_msg_count,
1591: x_msg_data => x_msg_data,
1592: p_cvpv_tbl => p_cvpv_tbl,
1592: p_cvpv_tbl => p_cvpv_tbl,
1593: x_cvpv_tbl => x_cvpv_tbl,
1594: px_error_tbl => l_error_tbl);
1595: END IF;
1596: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1597: EXCEPTION
1598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1600: (
1594: px_error_tbl => l_error_tbl);
1595: END IF;
1596: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1597: EXCEPTION
1598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1600: (
1601: l_api_name,
1602: G_PKG_NAME,
1595: END IF;
1596: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1597: EXCEPTION
1598: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1600: (
1601: l_api_name,
1602: G_PKG_NAME,
1603: 'OKC_API.G_RET_STS_ERROR',
1599: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1600: (
1601: l_api_name,
1602: G_PKG_NAME,
1603: 'OKC_API.G_RET_STS_ERROR',
1604: x_msg_count,
1605: x_msg_data,
1606: '_PVT'
1607: );
1604: x_msg_count,
1605: x_msg_data,
1606: '_PVT'
1607: );
1608: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1609: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1610: (
1611: l_api_name,
1612: G_PKG_NAME,
1605: x_msg_data,
1606: '_PVT'
1607: );
1608: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1609: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1610: (
1611: l_api_name,
1612: G_PKG_NAME,
1613: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1609: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1610: (
1611: l_api_name,
1612: G_PKG_NAME,
1613: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1614: x_msg_count,
1615: x_msg_data,
1616: '_PVT'
1617: );
1615: x_msg_data,
1616: '_PVT'
1617: );
1618: WHEN OTHERS THEN
1619: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1620: (
1621: l_api_name,
1622: G_PKG_NAME,
1623: 'OTHERS',
1649: FOR UPDATE NOWAIT;
1650:
1651: l_api_version CONSTANT NUMBER := 1;
1652: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1653: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1654: l_lock_var lock_csr%ROWTYPE;
1655: l_row_notfound BOOLEAN := FALSE;
1656: lc_row_notfound BOOLEAN := FALSE;
1657: BEGIN
1654: l_lock_var lock_csr%ROWTYPE;
1655: l_row_notfound BOOLEAN := FALSE;
1656: lc_row_notfound BOOLEAN := FALSE;
1657: BEGIN
1658: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1659: p_init_msg_list,
1660: '_PVT',
1661: x_return_status);
1662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1658: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1659: p_init_msg_list,
1660: '_PVT',
1661: x_return_status);
1662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_ERROR;
1666: END IF;
1659: p_init_msg_list,
1660: '_PVT',
1661: x_return_status);
1662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_ERROR;
1666: END IF;
1667: BEGIN
1660: '_PVT',
1661: x_return_status);
1662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_ERROR;
1666: END IF;
1667: BEGIN
1668: OPEN lock_csr(p_cvp_rec);
1661: x_return_status);
1662: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1665: RAISE OKC_API.G_EXCEPTION_ERROR;
1666: END IF;
1667: BEGIN
1668: OPEN lock_csr(p_cvp_rec);
1669: FETCH lock_csr INTO l_lock_var;
1673: WHEN E_Resource_Busy THEN
1674: IF (lock_csr%ISOPEN) THEN
1675: CLOSE lock_csr;
1676: END IF;
1677: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1678: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1679: END;
1680:
1681: IF ( l_row_notfound ) THEN
1678: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1679: END;
1680:
1681: IF ( l_row_notfound ) THEN
1682: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1683: RAISE OKC_API.G_EXCEPTION_ERROR;
1684: ELSE
1685: IF (l_lock_var.code <> p_cvp_rec.code) THEN
1686: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1679: END;
1680:
1681: IF ( l_row_notfound ) THEN
1682: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1683: RAISE OKC_API.G_EXCEPTION_ERROR;
1684: ELSE
1685: IF (l_lock_var.code <> p_cvp_rec.code) THEN
1686: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1682: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1683: RAISE OKC_API.G_EXCEPTION_ERROR;
1684: ELSE
1685: IF (l_lock_var.code <> p_cvp_rec.code) THEN
1686: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: IF (l_lock_var.importance_level <> p_cvp_rec.importance_level) THEN
1690: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1683: RAISE OKC_API.G_EXCEPTION_ERROR;
1684: ELSE
1685: IF (l_lock_var.code <> p_cvp_rec.code) THEN
1686: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: IF (l_lock_var.importance_level <> p_cvp_rec.importance_level) THEN
1690: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1686: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: IF (l_lock_var.importance_level <> p_cvp_rec.importance_level) THEN
1690: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: IF (l_lock_var.enabled_flag <> p_cvp_rec.enabled_flag) THEN
1694: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1687: RAISE OKC_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: IF (l_lock_var.importance_level <> p_cvp_rec.importance_level) THEN
1690: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: IF (l_lock_var.enabled_flag <> p_cvp_rec.enabled_flag) THEN
1694: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1695: RAISE OKC_API.G_EXCEPTION_ERROR;
1690: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: IF (l_lock_var.enabled_flag <> p_cvp_rec.enabled_flag) THEN
1694: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1695: RAISE OKC_API.G_EXCEPTION_ERROR;
1696: END IF;
1697: IF (l_lock_var.start_date_active <> p_cvp_rec.start_date_active) THEN
1698: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1691: RAISE OKC_API.G_EXCEPTION_ERROR;
1692: END IF;
1693: IF (l_lock_var.enabled_flag <> p_cvp_rec.enabled_flag) THEN
1694: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1695: RAISE OKC_API.G_EXCEPTION_ERROR;
1696: END IF;
1697: IF (l_lock_var.start_date_active <> p_cvp_rec.start_date_active) THEN
1698: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1699: RAISE OKC_API.G_EXCEPTION_ERROR;
1694: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1695: RAISE OKC_API.G_EXCEPTION_ERROR;
1696: END IF;
1697: IF (l_lock_var.start_date_active <> p_cvp_rec.start_date_active) THEN
1698: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1699: RAISE OKC_API.G_EXCEPTION_ERROR;
1700: END IF;
1701: IF (l_lock_var.end_date_active <> p_cvp_rec.end_date_active) THEN
1702: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1695: RAISE OKC_API.G_EXCEPTION_ERROR;
1696: END IF;
1697: IF (l_lock_var.start_date_active <> p_cvp_rec.start_date_active) THEN
1698: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1699: RAISE OKC_API.G_EXCEPTION_ERROR;
1700: END IF;
1701: IF (l_lock_var.end_date_active <> p_cvp_rec.end_date_active) THEN
1702: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1699: RAISE OKC_API.G_EXCEPTION_ERROR;
1700: END IF;
1701: IF (l_lock_var.end_date_active <> p_cvp_rec.end_date_active) THEN
1702: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: IF (l_lock_var.created_by <> p_cvp_rec.created_by) THEN
1706: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1699: RAISE OKC_API.G_EXCEPTION_ERROR;
1700: END IF;
1701: IF (l_lock_var.end_date_active <> p_cvp_rec.end_date_active) THEN
1702: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: IF (l_lock_var.created_by <> p_cvp_rec.created_by) THEN
1706: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1707: RAISE OKC_API.G_EXCEPTION_ERROR;
1702: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: IF (l_lock_var.created_by <> p_cvp_rec.created_by) THEN
1706: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1707: RAISE OKC_API.G_EXCEPTION_ERROR;
1708: END IF;
1709: IF (l_lock_var.creation_date <> p_cvp_rec.creation_date) THEN
1710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1703: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: END IF;
1705: IF (l_lock_var.created_by <> p_cvp_rec.created_by) THEN
1706: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1707: RAISE OKC_API.G_EXCEPTION_ERROR;
1708: END IF;
1709: IF (l_lock_var.creation_date <> p_cvp_rec.creation_date) THEN
1710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1711: RAISE OKC_API.G_EXCEPTION_ERROR;
1706: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1707: RAISE OKC_API.G_EXCEPTION_ERROR;
1708: END IF;
1709: IF (l_lock_var.creation_date <> p_cvp_rec.creation_date) THEN
1710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1711: RAISE OKC_API.G_EXCEPTION_ERROR;
1712: END IF;
1713: IF (l_lock_var.last_updated_by <> p_cvp_rec.last_updated_by) THEN
1714: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1707: RAISE OKC_API.G_EXCEPTION_ERROR;
1708: END IF;
1709: IF (l_lock_var.creation_date <> p_cvp_rec.creation_date) THEN
1710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1711: RAISE OKC_API.G_EXCEPTION_ERROR;
1712: END IF;
1713: IF (l_lock_var.last_updated_by <> p_cvp_rec.last_updated_by) THEN
1714: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1715: RAISE OKC_API.G_EXCEPTION_ERROR;
1710: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1711: RAISE OKC_API.G_EXCEPTION_ERROR;
1712: END IF;
1713: IF (l_lock_var.last_updated_by <> p_cvp_rec.last_updated_by) THEN
1714: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1715: RAISE OKC_API.G_EXCEPTION_ERROR;
1716: END IF;
1717: IF (l_lock_var.last_update_login <> p_cvp_rec.last_update_login) THEN
1718: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1711: RAISE OKC_API.G_EXCEPTION_ERROR;
1712: END IF;
1713: IF (l_lock_var.last_updated_by <> p_cvp_rec.last_updated_by) THEN
1714: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1715: RAISE OKC_API.G_EXCEPTION_ERROR;
1716: END IF;
1717: IF (l_lock_var.last_update_login <> p_cvp_rec.last_update_login) THEN
1718: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1719: RAISE OKC_API.G_EXCEPTION_ERROR;
1714: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1715: RAISE OKC_API.G_EXCEPTION_ERROR;
1716: END IF;
1717: IF (l_lock_var.last_update_login <> p_cvp_rec.last_update_login) THEN
1718: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1719: RAISE OKC_API.G_EXCEPTION_ERROR;
1720: END IF;
1721: IF (l_lock_var.last_update_date <> p_cvp_rec.last_update_date) THEN
1722: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1715: RAISE OKC_API.G_EXCEPTION_ERROR;
1716: END IF;
1717: IF (l_lock_var.last_update_login <> p_cvp_rec.last_update_login) THEN
1718: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1719: RAISE OKC_API.G_EXCEPTION_ERROR;
1720: END IF;
1721: IF (l_lock_var.last_update_date <> p_cvp_rec.last_update_date) THEN
1722: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1723: RAISE OKC_API.G_EXCEPTION_ERROR;
1718: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1719: RAISE OKC_API.G_EXCEPTION_ERROR;
1720: END IF;
1721: IF (l_lock_var.last_update_date <> p_cvp_rec.last_update_date) THEN
1722: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1723: RAISE OKC_API.G_EXCEPTION_ERROR;
1724: END IF;
1725: IF (l_lock_var.attribute_category <> p_cvp_rec.attribute_category) THEN
1726: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1719: RAISE OKC_API.G_EXCEPTION_ERROR;
1720: END IF;
1721: IF (l_lock_var.last_update_date <> p_cvp_rec.last_update_date) THEN
1722: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1723: RAISE OKC_API.G_EXCEPTION_ERROR;
1724: END IF;
1725: IF (l_lock_var.attribute_category <> p_cvp_rec.attribute_category) THEN
1726: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1727: RAISE OKC_API.G_EXCEPTION_ERROR;
1722: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1723: RAISE OKC_API.G_EXCEPTION_ERROR;
1724: END IF;
1725: IF (l_lock_var.attribute_category <> p_cvp_rec.attribute_category) THEN
1726: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1727: RAISE OKC_API.G_EXCEPTION_ERROR;
1728: END IF;
1729: IF (l_lock_var.attribute1 <> p_cvp_rec.attribute1) THEN
1730: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1723: RAISE OKC_API.G_EXCEPTION_ERROR;
1724: END IF;
1725: IF (l_lock_var.attribute_category <> p_cvp_rec.attribute_category) THEN
1726: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1727: RAISE OKC_API.G_EXCEPTION_ERROR;
1728: END IF;
1729: IF (l_lock_var.attribute1 <> p_cvp_rec.attribute1) THEN
1730: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1731: RAISE OKC_API.G_EXCEPTION_ERROR;
1726: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1727: RAISE OKC_API.G_EXCEPTION_ERROR;
1728: END IF;
1729: IF (l_lock_var.attribute1 <> p_cvp_rec.attribute1) THEN
1730: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1731: RAISE OKC_API.G_EXCEPTION_ERROR;
1732: END IF;
1733: IF (l_lock_var.attribute2 <> p_cvp_rec.attribute2) THEN
1734: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1727: RAISE OKC_API.G_EXCEPTION_ERROR;
1728: END IF;
1729: IF (l_lock_var.attribute1 <> p_cvp_rec.attribute1) THEN
1730: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1731: RAISE OKC_API.G_EXCEPTION_ERROR;
1732: END IF;
1733: IF (l_lock_var.attribute2 <> p_cvp_rec.attribute2) THEN
1734: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1735: RAISE OKC_API.G_EXCEPTION_ERROR;
1730: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1731: RAISE OKC_API.G_EXCEPTION_ERROR;
1732: END IF;
1733: IF (l_lock_var.attribute2 <> p_cvp_rec.attribute2) THEN
1734: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1735: RAISE OKC_API.G_EXCEPTION_ERROR;
1736: END IF;
1737: IF (l_lock_var.attribute3 <> p_cvp_rec.attribute3) THEN
1738: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1731: RAISE OKC_API.G_EXCEPTION_ERROR;
1732: END IF;
1733: IF (l_lock_var.attribute2 <> p_cvp_rec.attribute2) THEN
1734: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1735: RAISE OKC_API.G_EXCEPTION_ERROR;
1736: END IF;
1737: IF (l_lock_var.attribute3 <> p_cvp_rec.attribute3) THEN
1738: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1739: RAISE OKC_API.G_EXCEPTION_ERROR;
1734: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1735: RAISE OKC_API.G_EXCEPTION_ERROR;
1736: END IF;
1737: IF (l_lock_var.attribute3 <> p_cvp_rec.attribute3) THEN
1738: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1739: RAISE OKC_API.G_EXCEPTION_ERROR;
1740: END IF;
1741: IF (l_lock_var.attribute4 <> p_cvp_rec.attribute4) THEN
1742: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1735: RAISE OKC_API.G_EXCEPTION_ERROR;
1736: END IF;
1737: IF (l_lock_var.attribute3 <> p_cvp_rec.attribute3) THEN
1738: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1739: RAISE OKC_API.G_EXCEPTION_ERROR;
1740: END IF;
1741: IF (l_lock_var.attribute4 <> p_cvp_rec.attribute4) THEN
1742: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1743: RAISE OKC_API.G_EXCEPTION_ERROR;
1738: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1739: RAISE OKC_API.G_EXCEPTION_ERROR;
1740: END IF;
1741: IF (l_lock_var.attribute4 <> p_cvp_rec.attribute4) THEN
1742: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1743: RAISE OKC_API.G_EXCEPTION_ERROR;
1744: END IF;
1745: IF (l_lock_var.attribute5 <> p_cvp_rec.attribute5) THEN
1746: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1739: RAISE OKC_API.G_EXCEPTION_ERROR;
1740: END IF;
1741: IF (l_lock_var.attribute4 <> p_cvp_rec.attribute4) THEN
1742: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1743: RAISE OKC_API.G_EXCEPTION_ERROR;
1744: END IF;
1745: IF (l_lock_var.attribute5 <> p_cvp_rec.attribute5) THEN
1746: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1747: RAISE OKC_API.G_EXCEPTION_ERROR;
1742: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1743: RAISE OKC_API.G_EXCEPTION_ERROR;
1744: END IF;
1745: IF (l_lock_var.attribute5 <> p_cvp_rec.attribute5) THEN
1746: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1747: RAISE OKC_API.G_EXCEPTION_ERROR;
1748: END IF;
1749: IF (l_lock_var.attribute6 <> p_cvp_rec.attribute6) THEN
1750: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1743: RAISE OKC_API.G_EXCEPTION_ERROR;
1744: END IF;
1745: IF (l_lock_var.attribute5 <> p_cvp_rec.attribute5) THEN
1746: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1747: RAISE OKC_API.G_EXCEPTION_ERROR;
1748: END IF;
1749: IF (l_lock_var.attribute6 <> p_cvp_rec.attribute6) THEN
1750: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1747: RAISE OKC_API.G_EXCEPTION_ERROR;
1748: END IF;
1749: IF (l_lock_var.attribute6 <> p_cvp_rec.attribute6) THEN
1750: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753: IF (l_lock_var.attribute7 <> p_cvp_rec.attribute7) THEN
1754: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1747: RAISE OKC_API.G_EXCEPTION_ERROR;
1748: END IF;
1749: IF (l_lock_var.attribute6 <> p_cvp_rec.attribute6) THEN
1750: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753: IF (l_lock_var.attribute7 <> p_cvp_rec.attribute7) THEN
1754: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1755: RAISE OKC_API.G_EXCEPTION_ERROR;
1750: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753: IF (l_lock_var.attribute7 <> p_cvp_rec.attribute7) THEN
1754: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1755: RAISE OKC_API.G_EXCEPTION_ERROR;
1756: END IF;
1757: IF (l_lock_var.attribute8 <> p_cvp_rec.attribute8) THEN
1758: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1751: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: END IF;
1753: IF (l_lock_var.attribute7 <> p_cvp_rec.attribute7) THEN
1754: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1755: RAISE OKC_API.G_EXCEPTION_ERROR;
1756: END IF;
1757: IF (l_lock_var.attribute8 <> p_cvp_rec.attribute8) THEN
1758: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE OKC_API.G_EXCEPTION_ERROR;
1754: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1755: RAISE OKC_API.G_EXCEPTION_ERROR;
1756: END IF;
1757: IF (l_lock_var.attribute8 <> p_cvp_rec.attribute8) THEN
1758: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE OKC_API.G_EXCEPTION_ERROR;
1760: END IF;
1761: IF (l_lock_var.attribute9 <> p_cvp_rec.attribute9) THEN
1762: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1755: RAISE OKC_API.G_EXCEPTION_ERROR;
1756: END IF;
1757: IF (l_lock_var.attribute8 <> p_cvp_rec.attribute8) THEN
1758: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE OKC_API.G_EXCEPTION_ERROR;
1760: END IF;
1761: IF (l_lock_var.attribute9 <> p_cvp_rec.attribute9) THEN
1762: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1763: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE OKC_API.G_EXCEPTION_ERROR;
1760: END IF;
1761: IF (l_lock_var.attribute9 <> p_cvp_rec.attribute9) THEN
1762: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1763: RAISE OKC_API.G_EXCEPTION_ERROR;
1764: END IF;
1765: IF (l_lock_var.attribute10 <> p_cvp_rec.attribute10) THEN
1766: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1759: RAISE OKC_API.G_EXCEPTION_ERROR;
1760: END IF;
1761: IF (l_lock_var.attribute9 <> p_cvp_rec.attribute9) THEN
1762: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1763: RAISE OKC_API.G_EXCEPTION_ERROR;
1764: END IF;
1765: IF (l_lock_var.attribute10 <> p_cvp_rec.attribute10) THEN
1766: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1762: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1763: RAISE OKC_API.G_EXCEPTION_ERROR;
1764: END IF;
1765: IF (l_lock_var.attribute10 <> p_cvp_rec.attribute10) THEN
1766: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: IF (l_lock_var.attribute11 <> p_cvp_rec.attribute11) THEN
1770: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1763: RAISE OKC_API.G_EXCEPTION_ERROR;
1764: END IF;
1765: IF (l_lock_var.attribute10 <> p_cvp_rec.attribute10) THEN
1766: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: IF (l_lock_var.attribute11 <> p_cvp_rec.attribute11) THEN
1770: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1771: RAISE OKC_API.G_EXCEPTION_ERROR;
1766: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: IF (l_lock_var.attribute11 <> p_cvp_rec.attribute11) THEN
1770: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1771: RAISE OKC_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: IF (l_lock_var.attribute12 <> p_cvp_rec.attribute12) THEN
1774: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1767: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: END IF;
1769: IF (l_lock_var.attribute11 <> p_cvp_rec.attribute11) THEN
1770: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1771: RAISE OKC_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: IF (l_lock_var.attribute12 <> p_cvp_rec.attribute12) THEN
1774: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1775: RAISE OKC_API.G_EXCEPTION_ERROR;
1770: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1771: RAISE OKC_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: IF (l_lock_var.attribute12 <> p_cvp_rec.attribute12) THEN
1774: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1775: RAISE OKC_API.G_EXCEPTION_ERROR;
1776: END IF;
1777: IF (l_lock_var.attribute13 <> p_cvp_rec.attribute13) THEN
1778: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1771: RAISE OKC_API.G_EXCEPTION_ERROR;
1772: END IF;
1773: IF (l_lock_var.attribute12 <> p_cvp_rec.attribute12) THEN
1774: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1775: RAISE OKC_API.G_EXCEPTION_ERROR;
1776: END IF;
1777: IF (l_lock_var.attribute13 <> p_cvp_rec.attribute13) THEN
1778: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1779: RAISE OKC_API.G_EXCEPTION_ERROR;
1774: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1775: RAISE OKC_API.G_EXCEPTION_ERROR;
1776: END IF;
1777: IF (l_lock_var.attribute13 <> p_cvp_rec.attribute13) THEN
1778: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1779: RAISE OKC_API.G_EXCEPTION_ERROR;
1780: END IF;
1781: IF (l_lock_var.attribute14 <> p_cvp_rec.attribute14) THEN
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1775: RAISE OKC_API.G_EXCEPTION_ERROR;
1776: END IF;
1777: IF (l_lock_var.attribute13 <> p_cvp_rec.attribute13) THEN
1778: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1779: RAISE OKC_API.G_EXCEPTION_ERROR;
1780: END IF;
1781: IF (l_lock_var.attribute14 <> p_cvp_rec.attribute14) THEN
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1778: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1779: RAISE OKC_API.G_EXCEPTION_ERROR;
1780: END IF;
1781: IF (l_lock_var.attribute14 <> p_cvp_rec.attribute14) THEN
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: END IF;
1785: IF (l_lock_var.attribute15 <> p_cvp_rec.attribute15) THEN
1786: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1779: RAISE OKC_API.G_EXCEPTION_ERROR;
1780: END IF;
1781: IF (l_lock_var.attribute14 <> p_cvp_rec.attribute14) THEN
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: END IF;
1785: IF (l_lock_var.attribute15 <> p_cvp_rec.attribute15) THEN
1786: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1787: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: END IF;
1785: IF (l_lock_var.attribute15 <> p_cvp_rec.attribute15) THEN
1786: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1787: RAISE OKC_API.G_EXCEPTION_ERROR;
1788: END IF;
1789: END IF;
1790: x_return_status := l_return_status;
1783: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: END IF;
1785: IF (l_lock_var.attribute15 <> p_cvp_rec.attribute15) THEN
1786: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1787: RAISE OKC_API.G_EXCEPTION_ERROR;
1788: END IF;
1789: END IF;
1790: x_return_status := l_return_status;
1791: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1787: RAISE OKC_API.G_EXCEPTION_ERROR;
1788: END IF;
1789: END IF;
1790: x_return_status := l_return_status;
1791: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1792: EXCEPTION
1793: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1794: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1795: (
1789: END IF;
1790: x_return_status := l_return_status;
1791: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1792: EXCEPTION
1793: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1794: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1795: (
1796: l_api_name,
1797: G_PKG_NAME,
1790: x_return_status := l_return_status;
1791: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1792: EXCEPTION
1793: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1794: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1795: (
1796: l_api_name,
1797: G_PKG_NAME,
1798: 'OKC_API.G_RET_STS_ERROR',
1794: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1795: (
1796: l_api_name,
1797: G_PKG_NAME,
1798: 'OKC_API.G_RET_STS_ERROR',
1799: x_msg_count,
1800: x_msg_data,
1801: '_PVT'
1802: );
1799: x_msg_count,
1800: x_msg_data,
1801: '_PVT'
1802: );
1803: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1804: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1805: (
1806: l_api_name,
1807: G_PKG_NAME,
1800: x_msg_data,
1801: '_PVT'
1802: );
1803: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1804: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1805: (
1806: l_api_name,
1807: G_PKG_NAME,
1808: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1804: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1805: (
1806: l_api_name,
1807: G_PKG_NAME,
1808: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1809: x_msg_count,
1810: x_msg_data,
1811: '_PVT'
1812: );
1810: x_msg_data,
1811: '_PVT'
1812: );
1813: WHEN OTHERS THEN
1814: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1815: (
1816: l_api_name,
1817: G_PKG_NAME,
1818: 'OTHERS',
1840: FOR UPDATE NOWAIT;
1841:
1842: l_api_version CONSTANT NUMBER := 1;
1843: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
1844: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1845: l_lock_var lock_csr%ROWTYPE;
1846: l_row_notfound BOOLEAN := FALSE;
1847: lc_row_notfound BOOLEAN := FALSE;
1848: BEGIN
1845: l_lock_var lock_csr%ROWTYPE;
1846: l_row_notfound BOOLEAN := FALSE;
1847: lc_row_notfound BOOLEAN := FALSE;
1848: BEGIN
1849: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1850: p_init_msg_list,
1851: '_PVT',
1852: x_return_status);
1853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1849: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1850: p_init_msg_list,
1851: '_PVT',
1852: x_return_status);
1853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1856: RAISE OKC_API.G_EXCEPTION_ERROR;
1857: END IF;
1850: p_init_msg_list,
1851: '_PVT',
1852: x_return_status);
1853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1856: RAISE OKC_API.G_EXCEPTION_ERROR;
1857: END IF;
1858: BEGIN
1851: '_PVT',
1852: x_return_status);
1853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1856: RAISE OKC_API.G_EXCEPTION_ERROR;
1857: END IF;
1858: BEGIN
1859: OPEN lock_csr(p_oks_cov_types_tl_rec);
1852: x_return_status);
1853: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1854: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1855: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1856: RAISE OKC_API.G_EXCEPTION_ERROR;
1857: END IF;
1858: BEGIN
1859: OPEN lock_csr(p_oks_cov_types_tl_rec);
1860: FETCH lock_csr INTO l_lock_var;
1864: WHEN E_Resource_Busy THEN
1865: IF (lock_csr%ISOPEN) THEN
1866: CLOSE lock_csr;
1867: END IF;
1868: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1869: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1870: END;
1871:
1872: IF ( l_row_notfound ) THEN
1869: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1870: END;
1871:
1872: IF ( l_row_notfound ) THEN
1873: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: x_return_status := l_return_status;
1877: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1870: END;
1871:
1872: IF ( l_row_notfound ) THEN
1873: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: x_return_status := l_return_status;
1877: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1878: EXCEPTION
1873: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: x_return_status := l_return_status;
1877: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1878: EXCEPTION
1879: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1880: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1881: (
1875: END IF;
1876: x_return_status := l_return_status;
1877: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1878: EXCEPTION
1879: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1880: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1881: (
1882: l_api_name,
1883: G_PKG_NAME,
1876: x_return_status := l_return_status;
1877: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1878: EXCEPTION
1879: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1880: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1881: (
1882: l_api_name,
1883: G_PKG_NAME,
1884: 'OKC_API.G_RET_STS_ERROR',
1880: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1881: (
1882: l_api_name,
1883: G_PKG_NAME,
1884: 'OKC_API.G_RET_STS_ERROR',
1885: x_msg_count,
1886: x_msg_data,
1887: '_PVT'
1888: );
1885: x_msg_count,
1886: x_msg_data,
1887: '_PVT'
1888: );
1889: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1890: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1891: (
1892: l_api_name,
1893: G_PKG_NAME,
1886: x_msg_data,
1887: '_PVT'
1888: );
1889: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1890: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1891: (
1892: l_api_name,
1893: G_PKG_NAME,
1894: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1890: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1891: (
1892: l_api_name,
1893: G_PKG_NAME,
1894: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1895: x_msg_count,
1896: x_msg_data,
1897: '_PVT'
1898: );
1896: x_msg_data,
1897: '_PVT'
1898: );
1899: WHEN OTHERS THEN
1900: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1901: (
1902: l_api_name,
1903: G_PKG_NAME,
1904: 'OTHERS',
1919: p_cvpv_rec IN cvpv_rec_type) IS
1920:
1921: l_api_version CONSTANT NUMBER := 1;
1922: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1923: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1924: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
1925: l_cvp_rec cvp_rec_type;
1926: BEGIN
1927: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1923: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1924: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
1925: l_cvp_rec cvp_rec_type;
1926: BEGIN
1927: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1928: G_PKG_NAME,
1929: p_init_msg_list,
1930: l_api_version,
1931: p_api_version,
1930: l_api_version,
1931: p_api_version,
1932: '_PVT',
1933: x_return_status);
1934: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1936: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1937: RAISE OKC_API.G_EXCEPTION_ERROR;
1938: END IF;
1931: p_api_version,
1932: '_PVT',
1933: x_return_status);
1934: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1936: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1937: RAISE OKC_API.G_EXCEPTION_ERROR;
1938: END IF;
1939: -----------------------------------------
1932: '_PVT',
1933: x_return_status);
1934: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1936: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1937: RAISE OKC_API.G_EXCEPTION_ERROR;
1938: END IF;
1939: -----------------------------------------
1940: -- Move VIEW record to "Child" records --
1933: x_return_status);
1934: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1935: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1936: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1937: RAISE OKC_API.G_EXCEPTION_ERROR;
1938: END IF;
1939: -----------------------------------------
1940: -- Move VIEW record to "Child" records --
1941: -----------------------------------------
1950: x_msg_count,
1951: x_msg_data,
1952: l_oks_cov_types_tl_rec
1953: );
1954: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1957: RAISE OKC_API.G_EXCEPTION_ERROR;
1958: END IF;
1951: x_msg_data,
1952: l_oks_cov_types_tl_rec
1953: );
1954: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1957: RAISE OKC_API.G_EXCEPTION_ERROR;
1958: END IF;
1959: lock_row(
1952: l_oks_cov_types_tl_rec
1953: );
1954: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1957: RAISE OKC_API.G_EXCEPTION_ERROR;
1958: END IF;
1959: lock_row(
1960: p_init_msg_list,
1953: );
1954: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1955: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1956: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1957: RAISE OKC_API.G_EXCEPTION_ERROR;
1958: END IF;
1959: lock_row(
1960: p_init_msg_list,
1961: l_return_status,
1962: x_msg_count,
1963: x_msg_data,
1964: l_cvp_rec
1965: );
1966: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_ERROR;
1970: END IF;
1963: x_msg_data,
1964: l_cvp_rec
1965: );
1966: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_ERROR;
1970: END IF;
1971: x_return_status := l_return_status;
1964: l_cvp_rec
1965: );
1966: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_ERROR;
1970: END IF;
1971: x_return_status := l_return_status;
1972: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1965: );
1966: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1967: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1968: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_ERROR;
1970: END IF;
1971: x_return_status := l_return_status;
1972: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1973: EXCEPTION
1968: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1969: RAISE OKC_API.G_EXCEPTION_ERROR;
1970: END IF;
1971: x_return_status := l_return_status;
1972: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1973: EXCEPTION
1974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1975: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1976: (
1970: END IF;
1971: x_return_status := l_return_status;
1972: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1973: EXCEPTION
1974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1975: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1976: (
1977: l_api_name,
1978: G_PKG_NAME,
1971: x_return_status := l_return_status;
1972: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1973: EXCEPTION
1974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1975: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1976: (
1977: l_api_name,
1978: G_PKG_NAME,
1979: 'OKC_API.G_RET_STS_ERROR',
1975: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1976: (
1977: l_api_name,
1978: G_PKG_NAME,
1979: 'OKC_API.G_RET_STS_ERROR',
1980: x_msg_count,
1981: x_msg_data,
1982: '_PVT'
1983: );
1980: x_msg_count,
1981: x_msg_data,
1982: '_PVT'
1983: );
1984: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1986: (
1987: l_api_name,
1988: G_PKG_NAME,
1981: x_msg_data,
1982: '_PVT'
1983: );
1984: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1986: (
1987: l_api_name,
1988: G_PKG_NAME,
1989: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1986: (
1987: l_api_name,
1988: G_PKG_NAME,
1989: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1990: x_msg_count,
1991: x_msg_data,
1992: '_PVT'
1993: );
1991: x_msg_data,
1992: '_PVT'
1993: );
1994: WHEN OTHERS THEN
1995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1996: (
1997: l_api_name,
1998: G_PKG_NAME,
1999: 'OTHERS',
2011: x_return_status OUT NOCOPY VARCHAR2,
2012: x_msg_count OUT NOCOPY NUMBER,
2013: x_msg_data OUT NOCOPY VARCHAR2,
2014: p_cvpv_tbl IN cvpv_tbl_type,
2015: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2016:
2017: l_api_version CONSTANT NUMBER := 1;
2018: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2019: i NUMBER := 0;
2017: l_api_version CONSTANT NUMBER := 1;
2018: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2019: i NUMBER := 0;
2020: BEGIN
2021: OKC_API.init_msg_list(p_init_msg_list);
2022: -- Make sure PL/SQL table has recrods in it before passing
2023: IF (p_cvpv_tbl.COUNT > 0) THEN
2024: i := p_cvpv_tbl.FIRST;
2025: LOOP
2023: IF (p_cvpv_tbl.COUNT > 0) THEN
2024: i := p_cvpv_tbl.FIRST;
2025: LOOP
2026: DECLARE
2027: l_error_rec OKC_API.ERROR_REC_TYPE;
2028: BEGIN
2029: l_error_rec.api_name := l_api_name;
2030: l_error_rec.api_package := G_PKG_NAME;
2031: l_error_rec.idx := i;
2030: l_error_rec.api_package := G_PKG_NAME;
2031: l_error_rec.idx := i;
2032: lock_row(
2033: p_api_version => p_api_version,
2034: p_init_msg_list => OKC_API.G_FALSE,
2035: x_return_status => l_error_rec.error_type,
2036: x_msg_count => l_error_rec.msg_count,
2037: x_msg_data => l_error_rec.msg_data,
2038: p_cvpv_rec => p_cvpv_tbl(i));
2035: x_return_status => l_error_rec.error_type,
2036: x_msg_count => l_error_rec.msg_count,
2037: x_msg_data => l_error_rec.msg_data,
2038: p_cvpv_rec => p_cvpv_tbl(i));
2039: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2040: l_error_rec.sqlcode := SQLCODE;
2041: load_error_tbl(l_error_rec, px_error_tbl);
2042: ELSE
2043: x_msg_count := l_error_rec.msg_count;
2043: x_msg_count := l_error_rec.msg_count;
2044: x_msg_data := l_error_rec.msg_data;
2045: END IF;
2046: EXCEPTION
2047: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2048: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2049: l_error_rec.sqlcode := SQLCODE;
2050: load_error_tbl(l_error_rec, px_error_tbl);
2051: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2044: x_msg_data := l_error_rec.msg_data;
2045: END IF;
2046: EXCEPTION
2047: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2048: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2049: l_error_rec.sqlcode := SQLCODE;
2050: load_error_tbl(l_error_rec, px_error_tbl);
2051: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2052: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2047: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2048: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2049: l_error_rec.sqlcode := SQLCODE;
2050: load_error_tbl(l_error_rec, px_error_tbl);
2051: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2052: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2053: l_error_rec.sqlcode := SQLCODE;
2054: load_error_tbl(l_error_rec, px_error_tbl);
2055: WHEN OTHERS THEN
2048: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2049: l_error_rec.sqlcode := SQLCODE;
2050: load_error_tbl(l_error_rec, px_error_tbl);
2051: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2052: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2053: l_error_rec.sqlcode := SQLCODE;
2054: load_error_tbl(l_error_rec, px_error_tbl);
2055: WHEN OTHERS THEN
2056: l_error_rec.error_type := 'OTHERS';
2063: END IF;
2064: -- Loop through the error_tbl to find the error with the highest severity
2065: -- and return it.
2066: x_return_status := find_highest_exception(px_error_tbl);
2067: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2068: EXCEPTION
2069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2071: (
2065: -- and return it.
2066: x_return_status := find_highest_exception(px_error_tbl);
2067: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2068: EXCEPTION
2069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2071: (
2072: l_api_name,
2073: G_PKG_NAME,
2066: x_return_status := find_highest_exception(px_error_tbl);
2067: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2068: EXCEPTION
2069: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2071: (
2072: l_api_name,
2073: G_PKG_NAME,
2074: 'OKC_API.G_RET_STS_ERROR',
2070: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2071: (
2072: l_api_name,
2073: G_PKG_NAME,
2074: 'OKC_API.G_RET_STS_ERROR',
2075: x_msg_count,
2076: x_msg_data,
2077: '_PVT'
2078: );
2075: x_msg_count,
2076: x_msg_data,
2077: '_PVT'
2078: );
2079: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2080: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2076: x_msg_data,
2077: '_PVT'
2078: );
2079: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2080: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2080: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2085: x_msg_count,
2086: x_msg_data,
2087: '_PVT'
2088: );
2086: x_msg_data,
2087: '_PVT'
2088: );
2089: WHEN OTHERS THEN
2090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2091: (
2092: l_api_name,
2093: G_PKG_NAME,
2094: 'OTHERS',
2109: p_cvpv_tbl IN cvpv_tbl_type) IS
2110:
2111: l_api_version CONSTANT NUMBER := 1;
2112: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2113: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2114: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2115: BEGIN
2116: OKC_API.init_msg_list(p_init_msg_list);
2117: -- Make sure PL/SQL table has recrods in it before passing
2110:
2111: l_api_version CONSTANT NUMBER := 1;
2112: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2113: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2114: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2115: BEGIN
2116: OKC_API.init_msg_list(p_init_msg_list);
2117: -- Make sure PL/SQL table has recrods in it before passing
2118: IF (p_cvpv_tbl.COUNT > 0) THEN
2112: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2113: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2114: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2115: BEGIN
2116: OKC_API.init_msg_list(p_init_msg_list);
2117: -- Make sure PL/SQL table has recrods in it before passing
2118: IF (p_cvpv_tbl.COUNT > 0) THEN
2119: lock_row(
2120: p_api_version => p_api_version,
2117: -- Make sure PL/SQL table has recrods in it before passing
2118: IF (p_cvpv_tbl.COUNT > 0) THEN
2119: lock_row(
2120: p_api_version => p_api_version,
2121: p_init_msg_list => OKC_API.G_FALSE,
2122: x_return_status => x_return_status,
2123: x_msg_count => x_msg_count,
2124: x_msg_data => x_msg_data,
2125: p_cvpv_tbl => p_cvpv_tbl,
2124: x_msg_data => x_msg_data,
2125: p_cvpv_tbl => p_cvpv_tbl,
2126: px_error_tbl => l_error_tbl);
2127: END IF;
2128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2129: EXCEPTION
2130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2132: (
2126: px_error_tbl => l_error_tbl);
2127: END IF;
2128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2129: EXCEPTION
2130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2127: END IF;
2128: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2129: EXCEPTION
2130: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2135: 'OKC_API.G_RET_STS_ERROR',
2131: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2132: (
2133: l_api_name,
2134: G_PKG_NAME,
2135: 'OKC_API.G_RET_STS_ERROR',
2136: x_msg_count,
2137: x_msg_data,
2138: '_PVT'
2139: );
2136: x_msg_count,
2137: x_msg_data,
2138: '_PVT'
2139: );
2140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2137: x_msg_data,
2138: '_PVT'
2139: );
2140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2146: x_msg_count,
2147: x_msg_data,
2148: '_PVT'
2149: );
2147: x_msg_data,
2148: '_PVT'
2149: );
2150: WHEN OTHERS THEN
2151: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2155: 'OTHERS',
2173: x_cvp_rec OUT NOCOPY cvp_rec_type) IS
2174:
2175: l_api_version CONSTANT NUMBER := 1;
2176: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2177: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2178: l_cvp_rec cvp_rec_type := p_cvp_rec;
2179: l_def_cvp_rec cvp_rec_type;
2180: l_row_notfound BOOLEAN := TRUE;
2181: ----------------------------------
2186: x_cvp_rec OUT NOCOPY cvp_rec_type
2187: ) RETURN VARCHAR2 IS
2188: l_cvp_rec cvp_rec_type;
2189: l_row_notfound BOOLEAN := TRUE;
2190: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2191: BEGIN
2192: x_cvp_rec := p_cvp_rec;
2193: -- Get current database values
2194: l_cvp_rec := get_rec(p_cvp_rec, l_return_status);
2191: BEGIN
2192: x_cvp_rec := p_cvp_rec;
2193: -- Get current database values
2194: l_cvp_rec := get_rec(p_cvp_rec, l_return_status);
2195: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2196: IF (x_cvp_rec.code = OKC_API.G_MISS_CHAR)
2197: THEN
2198: x_cvp_rec.code := l_cvp_rec.code;
2199: END IF;
2192: x_cvp_rec := p_cvp_rec;
2193: -- Get current database values
2194: l_cvp_rec := get_rec(p_cvp_rec, l_return_status);
2195: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2196: IF (x_cvp_rec.code = OKC_API.G_MISS_CHAR)
2197: THEN
2198: x_cvp_rec.code := l_cvp_rec.code;
2199: END IF;
2200: IF (x_cvp_rec.importance_level = OKC_API.G_MISS_NUM)
2196: IF (x_cvp_rec.code = OKC_API.G_MISS_CHAR)
2197: THEN
2198: x_cvp_rec.code := l_cvp_rec.code;
2199: END IF;
2200: IF (x_cvp_rec.importance_level = OKC_API.G_MISS_NUM)
2201: THEN
2202: x_cvp_rec.importance_level := l_cvp_rec.importance_level;
2203: END IF;
2204: IF (x_cvp_rec.enabled_flag = OKC_API.G_MISS_CHAR)
2200: IF (x_cvp_rec.importance_level = OKC_API.G_MISS_NUM)
2201: THEN
2202: x_cvp_rec.importance_level := l_cvp_rec.importance_level;
2203: END IF;
2204: IF (x_cvp_rec.enabled_flag = OKC_API.G_MISS_CHAR)
2205: THEN
2206: x_cvp_rec.enabled_flag := l_cvp_rec.enabled_flag;
2207: END IF;
2208: IF (x_cvp_rec.start_date_active = OKC_API.G_MISS_DATE)
2204: IF (x_cvp_rec.enabled_flag = OKC_API.G_MISS_CHAR)
2205: THEN
2206: x_cvp_rec.enabled_flag := l_cvp_rec.enabled_flag;
2207: END IF;
2208: IF (x_cvp_rec.start_date_active = OKC_API.G_MISS_DATE)
2209: THEN
2210: x_cvp_rec.start_date_active := l_cvp_rec.start_date_active;
2211: END IF;
2212: IF (x_cvp_rec.end_date_active = OKC_API.G_MISS_DATE)
2208: IF (x_cvp_rec.start_date_active = OKC_API.G_MISS_DATE)
2209: THEN
2210: x_cvp_rec.start_date_active := l_cvp_rec.start_date_active;
2211: END IF;
2212: IF (x_cvp_rec.end_date_active = OKC_API.G_MISS_DATE)
2213: THEN
2214: x_cvp_rec.end_date_active := l_cvp_rec.end_date_active;
2215: END IF;
2216: IF (x_cvp_rec.created_by = OKC_API.G_MISS_NUM)
2212: IF (x_cvp_rec.end_date_active = OKC_API.G_MISS_DATE)
2213: THEN
2214: x_cvp_rec.end_date_active := l_cvp_rec.end_date_active;
2215: END IF;
2216: IF (x_cvp_rec.created_by = OKC_API.G_MISS_NUM)
2217: THEN
2218: x_cvp_rec.created_by := l_cvp_rec.created_by;
2219: END IF;
2220: IF (x_cvp_rec.creation_date = OKC_API.G_MISS_DATE)
2216: IF (x_cvp_rec.created_by = OKC_API.G_MISS_NUM)
2217: THEN
2218: x_cvp_rec.created_by := l_cvp_rec.created_by;
2219: END IF;
2220: IF (x_cvp_rec.creation_date = OKC_API.G_MISS_DATE)
2221: THEN
2222: x_cvp_rec.creation_date := l_cvp_rec.creation_date;
2223: END IF;
2224: IF (x_cvp_rec.last_updated_by = OKC_API.G_MISS_NUM)
2220: IF (x_cvp_rec.creation_date = OKC_API.G_MISS_DATE)
2221: THEN
2222: x_cvp_rec.creation_date := l_cvp_rec.creation_date;
2223: END IF;
2224: IF (x_cvp_rec.last_updated_by = OKC_API.G_MISS_NUM)
2225: THEN
2226: x_cvp_rec.last_updated_by := l_cvp_rec.last_updated_by;
2227: END IF;
2228: IF (x_cvp_rec.last_update_login = OKC_API.G_MISS_NUM)
2224: IF (x_cvp_rec.last_updated_by = OKC_API.G_MISS_NUM)
2225: THEN
2226: x_cvp_rec.last_updated_by := l_cvp_rec.last_updated_by;
2227: END IF;
2228: IF (x_cvp_rec.last_update_login = OKC_API.G_MISS_NUM)
2229: THEN
2230: x_cvp_rec.last_update_login := l_cvp_rec.last_update_login;
2231: END IF;
2232: IF (x_cvp_rec.last_update_date = OKC_API.G_MISS_DATE)
2228: IF (x_cvp_rec.last_update_login = OKC_API.G_MISS_NUM)
2229: THEN
2230: x_cvp_rec.last_update_login := l_cvp_rec.last_update_login;
2231: END IF;
2232: IF (x_cvp_rec.last_update_date = OKC_API.G_MISS_DATE)
2233: THEN
2234: x_cvp_rec.last_update_date := l_cvp_rec.last_update_date;
2235: END IF;
2236: IF (x_cvp_rec.attribute_category = OKC_API.G_MISS_CHAR)
2232: IF (x_cvp_rec.last_update_date = OKC_API.G_MISS_DATE)
2233: THEN
2234: x_cvp_rec.last_update_date := l_cvp_rec.last_update_date;
2235: END IF;
2236: IF (x_cvp_rec.attribute_category = OKC_API.G_MISS_CHAR)
2237: THEN
2238: x_cvp_rec.attribute_category := l_cvp_rec.attribute_category;
2239: END IF;
2240: IF (x_cvp_rec.attribute1 = OKC_API.G_MISS_CHAR)
2236: IF (x_cvp_rec.attribute_category = OKC_API.G_MISS_CHAR)
2237: THEN
2238: x_cvp_rec.attribute_category := l_cvp_rec.attribute_category;
2239: END IF;
2240: IF (x_cvp_rec.attribute1 = OKC_API.G_MISS_CHAR)
2241: THEN
2242: x_cvp_rec.attribute1 := l_cvp_rec.attribute1;
2243: END IF;
2244: IF (x_cvp_rec.attribute2 = OKC_API.G_MISS_CHAR)
2240: IF (x_cvp_rec.attribute1 = OKC_API.G_MISS_CHAR)
2241: THEN
2242: x_cvp_rec.attribute1 := l_cvp_rec.attribute1;
2243: END IF;
2244: IF (x_cvp_rec.attribute2 = OKC_API.G_MISS_CHAR)
2245: THEN
2246: x_cvp_rec.attribute2 := l_cvp_rec.attribute2;
2247: END IF;
2248: IF (x_cvp_rec.attribute3 = OKC_API.G_MISS_CHAR)
2244: IF (x_cvp_rec.attribute2 = OKC_API.G_MISS_CHAR)
2245: THEN
2246: x_cvp_rec.attribute2 := l_cvp_rec.attribute2;
2247: END IF;
2248: IF (x_cvp_rec.attribute3 = OKC_API.G_MISS_CHAR)
2249: THEN
2250: x_cvp_rec.attribute3 := l_cvp_rec.attribute3;
2251: END IF;
2252: IF (x_cvp_rec.attribute4 = OKC_API.G_MISS_CHAR)
2248: IF (x_cvp_rec.attribute3 = OKC_API.G_MISS_CHAR)
2249: THEN
2250: x_cvp_rec.attribute3 := l_cvp_rec.attribute3;
2251: END IF;
2252: IF (x_cvp_rec.attribute4 = OKC_API.G_MISS_CHAR)
2253: THEN
2254: x_cvp_rec.attribute4 := l_cvp_rec.attribute4;
2255: END IF;
2256: IF (x_cvp_rec.attribute5 = OKC_API.G_MISS_CHAR)
2252: IF (x_cvp_rec.attribute4 = OKC_API.G_MISS_CHAR)
2253: THEN
2254: x_cvp_rec.attribute4 := l_cvp_rec.attribute4;
2255: END IF;
2256: IF (x_cvp_rec.attribute5 = OKC_API.G_MISS_CHAR)
2257: THEN
2258: x_cvp_rec.attribute5 := l_cvp_rec.attribute5;
2259: END IF;
2260: IF (x_cvp_rec.attribute6 = OKC_API.G_MISS_CHAR)
2256: IF (x_cvp_rec.attribute5 = OKC_API.G_MISS_CHAR)
2257: THEN
2258: x_cvp_rec.attribute5 := l_cvp_rec.attribute5;
2259: END IF;
2260: IF (x_cvp_rec.attribute6 = OKC_API.G_MISS_CHAR)
2261: THEN
2262: x_cvp_rec.attribute6 := l_cvp_rec.attribute6;
2263: END IF;
2264: IF (x_cvp_rec.attribute7 = OKC_API.G_MISS_CHAR)
2260: IF (x_cvp_rec.attribute6 = OKC_API.G_MISS_CHAR)
2261: THEN
2262: x_cvp_rec.attribute6 := l_cvp_rec.attribute6;
2263: END IF;
2264: IF (x_cvp_rec.attribute7 = OKC_API.G_MISS_CHAR)
2265: THEN
2266: x_cvp_rec.attribute7 := l_cvp_rec.attribute7;
2267: END IF;
2268: IF (x_cvp_rec.attribute8 = OKC_API.G_MISS_CHAR)
2264: IF (x_cvp_rec.attribute7 = OKC_API.G_MISS_CHAR)
2265: THEN
2266: x_cvp_rec.attribute7 := l_cvp_rec.attribute7;
2267: END IF;
2268: IF (x_cvp_rec.attribute8 = OKC_API.G_MISS_CHAR)
2269: THEN
2270: x_cvp_rec.attribute8 := l_cvp_rec.attribute8;
2271: END IF;
2272: IF (x_cvp_rec.attribute9 = OKC_API.G_MISS_CHAR)
2268: IF (x_cvp_rec.attribute8 = OKC_API.G_MISS_CHAR)
2269: THEN
2270: x_cvp_rec.attribute8 := l_cvp_rec.attribute8;
2271: END IF;
2272: IF (x_cvp_rec.attribute9 = OKC_API.G_MISS_CHAR)
2273: THEN
2274: x_cvp_rec.attribute9 := l_cvp_rec.attribute9;
2275: END IF;
2276: IF (x_cvp_rec.attribute10 = OKC_API.G_MISS_CHAR)
2272: IF (x_cvp_rec.attribute9 = OKC_API.G_MISS_CHAR)
2273: THEN
2274: x_cvp_rec.attribute9 := l_cvp_rec.attribute9;
2275: END IF;
2276: IF (x_cvp_rec.attribute10 = OKC_API.G_MISS_CHAR)
2277: THEN
2278: x_cvp_rec.attribute10 := l_cvp_rec.attribute10;
2279: END IF;
2280: IF (x_cvp_rec.attribute11 = OKC_API.G_MISS_CHAR)
2276: IF (x_cvp_rec.attribute10 = OKC_API.G_MISS_CHAR)
2277: THEN
2278: x_cvp_rec.attribute10 := l_cvp_rec.attribute10;
2279: END IF;
2280: IF (x_cvp_rec.attribute11 = OKC_API.G_MISS_CHAR)
2281: THEN
2282: x_cvp_rec.attribute11 := l_cvp_rec.attribute11;
2283: END IF;
2284: IF (x_cvp_rec.attribute12 = OKC_API.G_MISS_CHAR)
2280: IF (x_cvp_rec.attribute11 = OKC_API.G_MISS_CHAR)
2281: THEN
2282: x_cvp_rec.attribute11 := l_cvp_rec.attribute11;
2283: END IF;
2284: IF (x_cvp_rec.attribute12 = OKC_API.G_MISS_CHAR)
2285: THEN
2286: x_cvp_rec.attribute12 := l_cvp_rec.attribute12;
2287: END IF;
2288: IF (x_cvp_rec.attribute13 = OKC_API.G_MISS_CHAR)
2284: IF (x_cvp_rec.attribute12 = OKC_API.G_MISS_CHAR)
2285: THEN
2286: x_cvp_rec.attribute12 := l_cvp_rec.attribute12;
2287: END IF;
2288: IF (x_cvp_rec.attribute13 = OKC_API.G_MISS_CHAR)
2289: THEN
2290: x_cvp_rec.attribute13 := l_cvp_rec.attribute13;
2291: END IF;
2292: IF (x_cvp_rec.attribute14 = OKC_API.G_MISS_CHAR)
2288: IF (x_cvp_rec.attribute13 = OKC_API.G_MISS_CHAR)
2289: THEN
2290: x_cvp_rec.attribute13 := l_cvp_rec.attribute13;
2291: END IF;
2292: IF (x_cvp_rec.attribute14 = OKC_API.G_MISS_CHAR)
2293: THEN
2294: x_cvp_rec.attribute14 := l_cvp_rec.attribute14;
2295: END IF;
2296: IF (x_cvp_rec.attribute15 = OKC_API.G_MISS_CHAR)
2292: IF (x_cvp_rec.attribute14 = OKC_API.G_MISS_CHAR)
2293: THEN
2294: x_cvp_rec.attribute14 := l_cvp_rec.attribute14;
2295: END IF;
2296: IF (x_cvp_rec.attribute15 = OKC_API.G_MISS_CHAR)
2297: THEN
2298: x_cvp_rec.attribute15 := l_cvp_rec.attribute15;
2299: END IF;
2300: END IF;
2306: FUNCTION Set_Attributes (
2307: p_cvp_rec IN cvp_rec_type,
2308: x_cvp_rec OUT NOCOPY cvp_rec_type
2309: ) RETURN VARCHAR2 IS
2310: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2311: BEGIN
2312: x_cvp_rec := p_cvp_rec;
2313: RETURN(l_return_status);
2314: END Set_Attributes;
2312: x_cvp_rec := p_cvp_rec;
2313: RETURN(l_return_status);
2314: END Set_Attributes;
2315: BEGIN
2316: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2317: p_init_msg_list,
2318: '_PVT',
2319: x_return_status);
2320: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2316: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2317: p_init_msg_list,
2318: '_PVT',
2319: x_return_status);
2320: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2317: p_init_msg_list,
2318: '_PVT',
2319: x_return_status);
2320: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: --- Setting item attributes
2318: '_PVT',
2319: x_return_status);
2320: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: --- Setting item attributes
2326: l_return_status := Set_Attributes(
2319: x_return_status);
2320: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2323: RAISE OKC_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: --- Setting item attributes
2326: l_return_status := Set_Attributes(
2327: p_cvp_rec, -- IN
2326: l_return_status := Set_Attributes(
2327: p_cvp_rec, -- IN
2328: l_cvp_rec); -- OUT
2329: --- If any errors happen abort API
2330: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2327: p_cvp_rec, -- IN
2328: l_cvp_rec); -- OUT
2329: --- If any errors happen abort API
2330: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2335: l_return_status := populate_new_record(l_cvp_rec, l_def_cvp_rec);
2328: l_cvp_rec); -- OUT
2329: --- If any errors happen abort API
2330: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2335: l_return_status := populate_new_record(l_cvp_rec, l_def_cvp_rec);
2336: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2329: --- If any errors happen abort API
2330: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2331: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2335: l_return_status := populate_new_record(l_cvp_rec, l_def_cvp_rec);
2336: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2332: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2335: l_return_status := populate_new_record(l_cvp_rec, l_def_cvp_rec);
2336: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2339: RAISE OKC_API.G_EXCEPTION_ERROR;
2340: END IF;
2333: RAISE OKC_API.G_EXCEPTION_ERROR;
2334: END IF;
2335: l_return_status := populate_new_record(l_cvp_rec, l_def_cvp_rec);
2336: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2339: RAISE OKC_API.G_EXCEPTION_ERROR;
2340: END IF;
2341: UPDATE OKS_COV_TYPES_B
2334: END IF;
2335: l_return_status := populate_new_record(l_cvp_rec, l_def_cvp_rec);
2336: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2339: RAISE OKC_API.G_EXCEPTION_ERROR;
2340: END IF;
2341: UPDATE OKS_COV_TYPES_B
2342: SET IMPORTANCE_LEVEL = l_def_cvp_rec.importance_level,
2335: l_return_status := populate_new_record(l_cvp_rec, l_def_cvp_rec);
2336: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2337: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2338: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2339: RAISE OKC_API.G_EXCEPTION_ERROR;
2340: END IF;
2341: UPDATE OKS_COV_TYPES_B
2342: SET IMPORTANCE_LEVEL = l_def_cvp_rec.importance_level,
2343: ENABLED_FLAG = l_def_cvp_rec.enabled_flag,
2367: WHERE CODE = l_def_cvp_rec.code;
2368:
2369: x_cvp_rec := l_cvp_rec;
2370: x_return_status := l_return_status;
2371: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2372: EXCEPTION
2373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2375: (
2369: x_cvp_rec := l_cvp_rec;
2370: x_return_status := l_return_status;
2371: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2372: EXCEPTION
2373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2375: (
2376: l_api_name,
2377: G_PKG_NAME,
2370: x_return_status := l_return_status;
2371: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2372: EXCEPTION
2373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2375: (
2376: l_api_name,
2377: G_PKG_NAME,
2378: 'OKC_API.G_RET_STS_ERROR',
2374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2375: (
2376: l_api_name,
2377: G_PKG_NAME,
2378: 'OKC_API.G_RET_STS_ERROR',
2379: x_msg_count,
2380: x_msg_data,
2381: '_PVT'
2382: );
2379: x_msg_count,
2380: x_msg_data,
2381: '_PVT'
2382: );
2383: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2385: (
2386: l_api_name,
2387: G_PKG_NAME,
2380: x_msg_data,
2381: '_PVT'
2382: );
2383: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2385: (
2386: l_api_name,
2387: G_PKG_NAME,
2388: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2385: (
2386: l_api_name,
2387: G_PKG_NAME,
2388: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2389: x_msg_count,
2390: x_msg_data,
2391: '_PVT'
2392: );
2390: x_msg_data,
2391: '_PVT'
2392: );
2393: WHEN OTHERS THEN
2394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2395: (
2396: l_api_name,
2397: G_PKG_NAME,
2398: 'OTHERS',
2413: x_oks_cov_types_tl_rec OUT NOCOPY oks_cov_types_tl_rec_type) IS
2414:
2415: l_api_version CONSTANT NUMBER := 1;
2416: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2417: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2418: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type := p_oks_cov_types_tl_rec;
2419: l_def_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
2420: l_row_notfound BOOLEAN := TRUE;
2421: ----------------------------------
2426: x_oks_cov_types_tl_rec OUT NOCOPY oks_cov_types_tl_rec_type
2427: ) RETURN VARCHAR2 IS
2428: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
2429: l_row_notfound BOOLEAN := TRUE;
2430: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2431: BEGIN
2432: x_oks_cov_types_tl_rec := p_oks_cov_types_tl_rec;
2433: -- Get current database values
2434: l_oks_cov_types_tl_rec := get_rec(p_oks_cov_types_tl_rec, l_return_status);
2431: BEGIN
2432: x_oks_cov_types_tl_rec := p_oks_cov_types_tl_rec;
2433: -- Get current database values
2434: l_oks_cov_types_tl_rec := get_rec(p_oks_cov_types_tl_rec, l_return_status);
2435: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2436: IF (x_oks_cov_types_tl_rec.code = OKC_API.G_MISS_CHAR)
2437: THEN
2438: x_oks_cov_types_tl_rec.code := l_oks_cov_types_tl_rec.code;
2439: END IF;
2432: x_oks_cov_types_tl_rec := p_oks_cov_types_tl_rec;
2433: -- Get current database values
2434: l_oks_cov_types_tl_rec := get_rec(p_oks_cov_types_tl_rec, l_return_status);
2435: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2436: IF (x_oks_cov_types_tl_rec.code = OKC_API.G_MISS_CHAR)
2437: THEN
2438: x_oks_cov_types_tl_rec.code := l_oks_cov_types_tl_rec.code;
2439: END IF;
2440: IF (x_oks_cov_types_tl_rec.language = OKC_API.G_MISS_CHAR)
2436: IF (x_oks_cov_types_tl_rec.code = OKC_API.G_MISS_CHAR)
2437: THEN
2438: x_oks_cov_types_tl_rec.code := l_oks_cov_types_tl_rec.code;
2439: END IF;
2440: IF (x_oks_cov_types_tl_rec.language = OKC_API.G_MISS_CHAR)
2441: THEN
2442: x_oks_cov_types_tl_rec.language := l_oks_cov_types_tl_rec.language;
2443: END IF;
2444: IF (x_oks_cov_types_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2440: IF (x_oks_cov_types_tl_rec.language = OKC_API.G_MISS_CHAR)
2441: THEN
2442: x_oks_cov_types_tl_rec.language := l_oks_cov_types_tl_rec.language;
2443: END IF;
2444: IF (x_oks_cov_types_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2445: THEN
2446: x_oks_cov_types_tl_rec.source_lang := l_oks_cov_types_tl_rec.source_lang;
2447: END IF;
2448: IF (x_oks_cov_types_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2444: IF (x_oks_cov_types_tl_rec.source_lang = OKC_API.G_MISS_CHAR)
2445: THEN
2446: x_oks_cov_types_tl_rec.source_lang := l_oks_cov_types_tl_rec.source_lang;
2447: END IF;
2448: IF (x_oks_cov_types_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2449: THEN
2450: x_oks_cov_types_tl_rec.sfwt_flag := l_oks_cov_types_tl_rec.sfwt_flag;
2451: END IF;
2452: IF (x_oks_cov_types_tl_rec.meaning = OKC_API.G_MISS_CHAR)
2448: IF (x_oks_cov_types_tl_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2449: THEN
2450: x_oks_cov_types_tl_rec.sfwt_flag := l_oks_cov_types_tl_rec.sfwt_flag;
2451: END IF;
2452: IF (x_oks_cov_types_tl_rec.meaning = OKC_API.G_MISS_CHAR)
2453: THEN
2454: x_oks_cov_types_tl_rec.meaning := l_oks_cov_types_tl_rec.meaning;
2455: END IF;
2456: IF (x_oks_cov_types_tl_rec.description = OKC_API.G_MISS_CHAR)
2452: IF (x_oks_cov_types_tl_rec.meaning = OKC_API.G_MISS_CHAR)
2453: THEN
2454: x_oks_cov_types_tl_rec.meaning := l_oks_cov_types_tl_rec.meaning;
2455: END IF;
2456: IF (x_oks_cov_types_tl_rec.description = OKC_API.G_MISS_CHAR)
2457: THEN
2458: x_oks_cov_types_tl_rec.description := l_oks_cov_types_tl_rec.description;
2459: END IF;
2460: IF (x_oks_cov_types_tl_rec.created_by = OKC_API.G_MISS_NUM)
2456: IF (x_oks_cov_types_tl_rec.description = OKC_API.G_MISS_CHAR)
2457: THEN
2458: x_oks_cov_types_tl_rec.description := l_oks_cov_types_tl_rec.description;
2459: END IF;
2460: IF (x_oks_cov_types_tl_rec.created_by = OKC_API.G_MISS_NUM)
2461: THEN
2462: x_oks_cov_types_tl_rec.created_by := l_oks_cov_types_tl_rec.created_by;
2463: END IF;
2464: IF (x_oks_cov_types_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2460: IF (x_oks_cov_types_tl_rec.created_by = OKC_API.G_MISS_NUM)
2461: THEN
2462: x_oks_cov_types_tl_rec.created_by := l_oks_cov_types_tl_rec.created_by;
2463: END IF;
2464: IF (x_oks_cov_types_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2465: THEN
2466: x_oks_cov_types_tl_rec.creation_date := l_oks_cov_types_tl_rec.creation_date;
2467: END IF;
2468: IF (x_oks_cov_types_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2464: IF (x_oks_cov_types_tl_rec.creation_date = OKC_API.G_MISS_DATE)
2465: THEN
2466: x_oks_cov_types_tl_rec.creation_date := l_oks_cov_types_tl_rec.creation_date;
2467: END IF;
2468: IF (x_oks_cov_types_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2469: THEN
2470: x_oks_cov_types_tl_rec.last_updated_by := l_oks_cov_types_tl_rec.last_updated_by;
2471: END IF;
2472: IF (x_oks_cov_types_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2468: IF (x_oks_cov_types_tl_rec.last_updated_by = OKC_API.G_MISS_NUM)
2469: THEN
2470: x_oks_cov_types_tl_rec.last_updated_by := l_oks_cov_types_tl_rec.last_updated_by;
2471: END IF;
2472: IF (x_oks_cov_types_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2473: THEN
2474: x_oks_cov_types_tl_rec.last_update_login := l_oks_cov_types_tl_rec.last_update_login;
2475: END IF;
2476: IF (x_oks_cov_types_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2472: IF (x_oks_cov_types_tl_rec.last_update_login = OKC_API.G_MISS_NUM)
2473: THEN
2474: x_oks_cov_types_tl_rec.last_update_login := l_oks_cov_types_tl_rec.last_update_login;
2475: END IF;
2476: IF (x_oks_cov_types_tl_rec.last_update_date = OKC_API.G_MISS_DATE)
2477: THEN
2478: x_oks_cov_types_tl_rec.last_update_date := l_oks_cov_types_tl_rec.last_update_date;
2479: END IF;
2480: END IF;
2486: FUNCTION Set_Attributes (
2487: p_oks_cov_types_tl_rec IN oks_cov_types_tl_rec_type,
2488: x_oks_cov_types_tl_rec OUT NOCOPY oks_cov_types_tl_rec_type
2489: ) RETURN VARCHAR2 IS
2490: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2491: BEGIN
2492: x_oks_cov_types_tl_rec := p_oks_cov_types_tl_rec;
2493: x_oks_cov_types_tl_rec.LANGUAGE := USERENV('LANG');
2494: x_oks_cov_types_tl_rec.LANGUAGE := USERENV('LANG');
2494: x_oks_cov_types_tl_rec.LANGUAGE := USERENV('LANG');
2495: RETURN(l_return_status);
2496: END Set_Attributes;
2497: BEGIN
2498: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2499: p_init_msg_list,
2500: '_PVT',
2501: x_return_status);
2502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2498: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2499: p_init_msg_list,
2500: '_PVT',
2501: x_return_status);
2502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2505: RAISE OKC_API.G_EXCEPTION_ERROR;
2506: END IF;
2499: p_init_msg_list,
2500: '_PVT',
2501: x_return_status);
2502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2505: RAISE OKC_API.G_EXCEPTION_ERROR;
2506: END IF;
2507: --- Setting item attributes
2500: '_PVT',
2501: x_return_status);
2502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2505: RAISE OKC_API.G_EXCEPTION_ERROR;
2506: END IF;
2507: --- Setting item attributes
2508: l_return_status := Set_Attributes(
2501: x_return_status);
2502: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2503: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2504: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2505: RAISE OKC_API.G_EXCEPTION_ERROR;
2506: END IF;
2507: --- Setting item attributes
2508: l_return_status := Set_Attributes(
2509: p_oks_cov_types_tl_rec, -- IN
2508: l_return_status := Set_Attributes(
2509: p_oks_cov_types_tl_rec, -- IN
2510: l_oks_cov_types_tl_rec); -- OUT
2511: --- If any errors happen abort API
2512: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2514: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2515: RAISE OKC_API.G_EXCEPTION_ERROR;
2516: END IF;
2509: p_oks_cov_types_tl_rec, -- IN
2510: l_oks_cov_types_tl_rec); -- OUT
2511: --- If any errors happen abort API
2512: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2514: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2515: RAISE OKC_API.G_EXCEPTION_ERROR;
2516: END IF;
2517: l_return_status := populate_new_record(l_oks_cov_types_tl_rec, l_def_oks_cov_types_tl_rec);
2510: l_oks_cov_types_tl_rec); -- OUT
2511: --- If any errors happen abort API
2512: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2514: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2515: RAISE OKC_API.G_EXCEPTION_ERROR;
2516: END IF;
2517: l_return_status := populate_new_record(l_oks_cov_types_tl_rec, l_def_oks_cov_types_tl_rec);
2518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2511: --- If any errors happen abort API
2512: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2513: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2514: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2515: RAISE OKC_API.G_EXCEPTION_ERROR;
2516: END IF;
2517: l_return_status := populate_new_record(l_oks_cov_types_tl_rec, l_def_oks_cov_types_tl_rec);
2518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2519: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2514: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2515: RAISE OKC_API.G_EXCEPTION_ERROR;
2516: END IF;
2517: l_return_status := populate_new_record(l_oks_cov_types_tl_rec, l_def_oks_cov_types_tl_rec);
2518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2519: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2520: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2521: RAISE OKC_API.G_EXCEPTION_ERROR;
2522: END IF;
2515: RAISE OKC_API.G_EXCEPTION_ERROR;
2516: END IF;
2517: l_return_status := populate_new_record(l_oks_cov_types_tl_rec, l_def_oks_cov_types_tl_rec);
2518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2519: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2520: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2521: RAISE OKC_API.G_EXCEPTION_ERROR;
2522: END IF;
2523: UPDATE OKS_COV_TYPES_TL
2516: END IF;
2517: l_return_status := populate_new_record(l_oks_cov_types_tl_rec, l_def_oks_cov_types_tl_rec);
2518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2519: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2520: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2521: RAISE OKC_API.G_EXCEPTION_ERROR;
2522: END IF;
2523: UPDATE OKS_COV_TYPES_TL
2524: SET MEANING = l_def_oks_cov_types_tl_rec.meaning,
2517: l_return_status := populate_new_record(l_oks_cov_types_tl_rec, l_def_oks_cov_types_tl_rec);
2518: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2519: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2520: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2521: RAISE OKC_API.G_EXCEPTION_ERROR;
2522: END IF;
2523: UPDATE OKS_COV_TYPES_TL
2524: SET MEANING = l_def_oks_cov_types_tl_rec.meaning,
2525: DESCRIPTION = l_def_oks_cov_types_tl_rec.description,
2537: AND SOURCE_LANG <> USERENV('LANG');
2538:
2539: x_oks_cov_types_tl_rec := l_oks_cov_types_tl_rec;
2540: x_return_status := l_return_status;
2541: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2542: EXCEPTION
2543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2544: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2545: (
2539: x_oks_cov_types_tl_rec := l_oks_cov_types_tl_rec;
2540: x_return_status := l_return_status;
2541: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2542: EXCEPTION
2543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2544: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2545: (
2546: l_api_name,
2547: G_PKG_NAME,
2540: x_return_status := l_return_status;
2541: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2542: EXCEPTION
2543: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2544: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2545: (
2546: l_api_name,
2547: G_PKG_NAME,
2548: 'OKC_API.G_RET_STS_ERROR',
2544: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2545: (
2546: l_api_name,
2547: G_PKG_NAME,
2548: 'OKC_API.G_RET_STS_ERROR',
2549: x_msg_count,
2550: x_msg_data,
2551: '_PVT'
2552: );
2549: x_msg_count,
2550: x_msg_data,
2551: '_PVT'
2552: );
2553: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2554: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2555: (
2556: l_api_name,
2557: G_PKG_NAME,
2550: x_msg_data,
2551: '_PVT'
2552: );
2553: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2554: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2555: (
2556: l_api_name,
2557: G_PKG_NAME,
2558: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2554: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2555: (
2556: l_api_name,
2557: G_PKG_NAME,
2558: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2559: x_msg_count,
2560: x_msg_data,
2561: '_PVT'
2562: );
2560: x_msg_data,
2561: '_PVT'
2562: );
2563: WHEN OTHERS THEN
2564: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2565: (
2566: l_api_name,
2567: G_PKG_NAME,
2568: 'OTHERS',
2584: x_cvpv_rec OUT NOCOPY cvpv_rec_type) IS
2585:
2586: l_api_version CONSTANT NUMBER := 1;
2587: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2588: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2589: l_cvpv_rec cvpv_rec_type := p_cvpv_rec;
2590: l_def_cvpv_rec cvpv_rec_type;
2591: l_db_cvpv_rec cvpv_rec_type;
2592: l_cvp_rec cvp_rec_type;
2613: p_cvpv_rec IN cvpv_rec_type,
2614: x_cvpv_rec OUT NOCOPY cvpv_rec_type
2615: ) RETURN VARCHAR2 IS
2616: l_row_notfound BOOLEAN := TRUE;
2617: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2618: BEGIN
2619: x_cvpv_rec := p_cvpv_rec;
2620: -- Get current database values
2621: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2620: -- Get current database values
2621: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2622: -- so it may be verified through LOCK_ROW.
2623: l_db_cvpv_rec := get_rec(p_cvpv_rec, l_return_status);
2624: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2625: IF (x_cvpv_rec.code = OKC_API.G_MISS_CHAR)
2626: THEN
2627: x_cvpv_rec.code := l_db_cvpv_rec.code;
2628: END IF;
2621: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2622: -- so it may be verified through LOCK_ROW.
2623: l_db_cvpv_rec := get_rec(p_cvpv_rec, l_return_status);
2624: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2625: IF (x_cvpv_rec.code = OKC_API.G_MISS_CHAR)
2626: THEN
2627: x_cvpv_rec.code := l_db_cvpv_rec.code;
2628: END IF;
2629: IF (x_cvpv_rec.meaning = OKC_API.G_MISS_CHAR)
2625: IF (x_cvpv_rec.code = OKC_API.G_MISS_CHAR)
2626: THEN
2627: x_cvpv_rec.code := l_db_cvpv_rec.code;
2628: END IF;
2629: IF (x_cvpv_rec.meaning = OKC_API.G_MISS_CHAR)
2630: THEN
2631: x_cvpv_rec.meaning := l_db_cvpv_rec.meaning;
2632: END IF;
2633: IF (x_cvpv_rec.description = OKC_API.G_MISS_CHAR)
2629: IF (x_cvpv_rec.meaning = OKC_API.G_MISS_CHAR)
2630: THEN
2631: x_cvpv_rec.meaning := l_db_cvpv_rec.meaning;
2632: END IF;
2633: IF (x_cvpv_rec.description = OKC_API.G_MISS_CHAR)
2634: THEN
2635: x_cvpv_rec.description := l_db_cvpv_rec.description;
2636: END IF;
2637: IF (x_cvpv_rec.importance_level = OKC_API.G_MISS_NUM)
2633: IF (x_cvpv_rec.description = OKC_API.G_MISS_CHAR)
2634: THEN
2635: x_cvpv_rec.description := l_db_cvpv_rec.description;
2636: END IF;
2637: IF (x_cvpv_rec.importance_level = OKC_API.G_MISS_NUM)
2638: THEN
2639: x_cvpv_rec.importance_level := l_db_cvpv_rec.importance_level;
2640: END IF;
2641: IF (x_cvpv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2637: IF (x_cvpv_rec.importance_level = OKC_API.G_MISS_NUM)
2638: THEN
2639: x_cvpv_rec.importance_level := l_db_cvpv_rec.importance_level;
2640: END IF;
2641: IF (x_cvpv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2642: THEN
2643: x_cvpv_rec.sfwt_flag := l_db_cvpv_rec.sfwt_flag;
2644: END IF;
2645: IF (x_cvpv_rec.enabled_flag = OKC_API.G_MISS_CHAR)
2641: IF (x_cvpv_rec.sfwt_flag = OKC_API.G_MISS_CHAR)
2642: THEN
2643: x_cvpv_rec.sfwt_flag := l_db_cvpv_rec.sfwt_flag;
2644: END IF;
2645: IF (x_cvpv_rec.enabled_flag = OKC_API.G_MISS_CHAR)
2646: THEN
2647: x_cvpv_rec.enabled_flag := l_db_cvpv_rec.enabled_flag;
2648: END IF;
2649: IF (x_cvpv_rec.start_date_active = OKC_API.G_MISS_DATE)
2645: IF (x_cvpv_rec.enabled_flag = OKC_API.G_MISS_CHAR)
2646: THEN
2647: x_cvpv_rec.enabled_flag := l_db_cvpv_rec.enabled_flag;
2648: END IF;
2649: IF (x_cvpv_rec.start_date_active = OKC_API.G_MISS_DATE)
2650: THEN
2651: x_cvpv_rec.start_date_active := l_db_cvpv_rec.start_date_active;
2652: END IF;
2653: IF (x_cvpv_rec.end_date_active = OKC_API.G_MISS_DATE)
2649: IF (x_cvpv_rec.start_date_active = OKC_API.G_MISS_DATE)
2650: THEN
2651: x_cvpv_rec.start_date_active := l_db_cvpv_rec.start_date_active;
2652: END IF;
2653: IF (x_cvpv_rec.end_date_active = OKC_API.G_MISS_DATE)
2654: THEN
2655: x_cvpv_rec.end_date_active := l_db_cvpv_rec.end_date_active;
2656: END IF;
2657: IF (x_cvpv_rec.created_by = OKC_API.G_MISS_NUM)
2653: IF (x_cvpv_rec.end_date_active = OKC_API.G_MISS_DATE)
2654: THEN
2655: x_cvpv_rec.end_date_active := l_db_cvpv_rec.end_date_active;
2656: END IF;
2657: IF (x_cvpv_rec.created_by = OKC_API.G_MISS_NUM)
2658: THEN
2659: x_cvpv_rec.created_by := l_db_cvpv_rec.created_by;
2660: END IF;
2661: IF (x_cvpv_rec.creation_date = OKC_API.G_MISS_DATE)
2657: IF (x_cvpv_rec.created_by = OKC_API.G_MISS_NUM)
2658: THEN
2659: x_cvpv_rec.created_by := l_db_cvpv_rec.created_by;
2660: END IF;
2661: IF (x_cvpv_rec.creation_date = OKC_API.G_MISS_DATE)
2662: THEN
2663: x_cvpv_rec.creation_date := l_db_cvpv_rec.creation_date;
2664: END IF;
2665: IF (x_cvpv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2661: IF (x_cvpv_rec.creation_date = OKC_API.G_MISS_DATE)
2662: THEN
2663: x_cvpv_rec.creation_date := l_db_cvpv_rec.creation_date;
2664: END IF;
2665: IF (x_cvpv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2666: THEN
2667: x_cvpv_rec.last_updated_by := l_db_cvpv_rec.last_updated_by;
2668: END IF;
2669: IF (x_cvpv_rec.last_update_login = OKC_API.G_MISS_NUM)
2665: IF (x_cvpv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2666: THEN
2667: x_cvpv_rec.last_updated_by := l_db_cvpv_rec.last_updated_by;
2668: END IF;
2669: IF (x_cvpv_rec.last_update_login = OKC_API.G_MISS_NUM)
2670: THEN
2671: x_cvpv_rec.last_update_login := l_db_cvpv_rec.last_update_login;
2672: END IF;
2673: IF (x_cvpv_rec.last_update_date = OKC_API.G_MISS_DATE)
2669: IF (x_cvpv_rec.last_update_login = OKC_API.G_MISS_NUM)
2670: THEN
2671: x_cvpv_rec.last_update_login := l_db_cvpv_rec.last_update_login;
2672: END IF;
2673: IF (x_cvpv_rec.last_update_date = OKC_API.G_MISS_DATE)
2674: THEN
2675: x_cvpv_rec.last_update_date := l_db_cvpv_rec.last_update_date;
2676: END IF;
2677: IF (x_cvpv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2673: IF (x_cvpv_rec.last_update_date = OKC_API.G_MISS_DATE)
2674: THEN
2675: x_cvpv_rec.last_update_date := l_db_cvpv_rec.last_update_date;
2676: END IF;
2677: IF (x_cvpv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2678: THEN
2679: x_cvpv_rec.attribute_category := l_db_cvpv_rec.attribute_category;
2680: END IF;
2681: IF (x_cvpv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2677: IF (x_cvpv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2678: THEN
2679: x_cvpv_rec.attribute_category := l_db_cvpv_rec.attribute_category;
2680: END IF;
2681: IF (x_cvpv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2682: THEN
2683: x_cvpv_rec.attribute1 := l_db_cvpv_rec.attribute1;
2684: END IF;
2685: IF (x_cvpv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2681: IF (x_cvpv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2682: THEN
2683: x_cvpv_rec.attribute1 := l_db_cvpv_rec.attribute1;
2684: END IF;
2685: IF (x_cvpv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2686: THEN
2687: x_cvpv_rec.attribute2 := l_db_cvpv_rec.attribute2;
2688: END IF;
2689: IF (x_cvpv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2685: IF (x_cvpv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2686: THEN
2687: x_cvpv_rec.attribute2 := l_db_cvpv_rec.attribute2;
2688: END IF;
2689: IF (x_cvpv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2690: THEN
2691: x_cvpv_rec.attribute3 := l_db_cvpv_rec.attribute3;
2692: END IF;
2693: IF (x_cvpv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2689: IF (x_cvpv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2690: THEN
2691: x_cvpv_rec.attribute3 := l_db_cvpv_rec.attribute3;
2692: END IF;
2693: IF (x_cvpv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2694: THEN
2695: x_cvpv_rec.attribute4 := l_db_cvpv_rec.attribute4;
2696: END IF;
2697: IF (x_cvpv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2693: IF (x_cvpv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2694: THEN
2695: x_cvpv_rec.attribute4 := l_db_cvpv_rec.attribute4;
2696: END IF;
2697: IF (x_cvpv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2698: THEN
2699: x_cvpv_rec.attribute5 := l_db_cvpv_rec.attribute5;
2700: END IF;
2701: IF (x_cvpv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2697: IF (x_cvpv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2698: THEN
2699: x_cvpv_rec.attribute5 := l_db_cvpv_rec.attribute5;
2700: END IF;
2701: IF (x_cvpv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2702: THEN
2703: x_cvpv_rec.attribute6 := l_db_cvpv_rec.attribute6;
2704: END IF;
2705: IF (x_cvpv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2701: IF (x_cvpv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2702: THEN
2703: x_cvpv_rec.attribute6 := l_db_cvpv_rec.attribute6;
2704: END IF;
2705: IF (x_cvpv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2706: THEN
2707: x_cvpv_rec.attribute7 := l_db_cvpv_rec.attribute7;
2708: END IF;
2709: IF (x_cvpv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2705: IF (x_cvpv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2706: THEN
2707: x_cvpv_rec.attribute7 := l_db_cvpv_rec.attribute7;
2708: END IF;
2709: IF (x_cvpv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2710: THEN
2711: x_cvpv_rec.attribute8 := l_db_cvpv_rec.attribute8;
2712: END IF;
2713: IF (x_cvpv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2709: IF (x_cvpv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2710: THEN
2711: x_cvpv_rec.attribute8 := l_db_cvpv_rec.attribute8;
2712: END IF;
2713: IF (x_cvpv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2714: THEN
2715: x_cvpv_rec.attribute9 := l_db_cvpv_rec.attribute9;
2716: END IF;
2717: IF (x_cvpv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2713: IF (x_cvpv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2714: THEN
2715: x_cvpv_rec.attribute9 := l_db_cvpv_rec.attribute9;
2716: END IF;
2717: IF (x_cvpv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2718: THEN
2719: x_cvpv_rec.attribute10 := l_db_cvpv_rec.attribute10;
2720: END IF;
2721: IF (x_cvpv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2717: IF (x_cvpv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2718: THEN
2719: x_cvpv_rec.attribute10 := l_db_cvpv_rec.attribute10;
2720: END IF;
2721: IF (x_cvpv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2722: THEN
2723: x_cvpv_rec.attribute11 := l_db_cvpv_rec.attribute11;
2724: END IF;
2725: IF (x_cvpv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2721: IF (x_cvpv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2722: THEN
2723: x_cvpv_rec.attribute11 := l_db_cvpv_rec.attribute11;
2724: END IF;
2725: IF (x_cvpv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2726: THEN
2727: x_cvpv_rec.attribute12 := l_db_cvpv_rec.attribute12;
2728: END IF;
2729: IF (x_cvpv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2725: IF (x_cvpv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2726: THEN
2727: x_cvpv_rec.attribute12 := l_db_cvpv_rec.attribute12;
2728: END IF;
2729: IF (x_cvpv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2730: THEN
2731: x_cvpv_rec.attribute13 := l_db_cvpv_rec.attribute13;
2732: END IF;
2733: IF (x_cvpv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2729: IF (x_cvpv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2730: THEN
2731: x_cvpv_rec.attribute13 := l_db_cvpv_rec.attribute13;
2732: END IF;
2733: IF (x_cvpv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2734: THEN
2735: x_cvpv_rec.attribute14 := l_db_cvpv_rec.attribute14;
2736: END IF;
2737: IF (x_cvpv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2733: IF (x_cvpv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2734: THEN
2735: x_cvpv_rec.attribute14 := l_db_cvpv_rec.attribute14;
2736: END IF;
2737: IF (x_cvpv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2738: THEN
2739: x_cvpv_rec.attribute15 := l_db_cvpv_rec.attribute15;
2740: END IF;
2741: END IF;
2747: FUNCTION Set_Attributes (
2748: p_cvpv_rec IN cvpv_rec_type,
2749: x_cvpv_rec OUT NOCOPY cvpv_rec_type
2750: ) RETURN VARCHAR2 IS
2751: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2752: BEGIN
2753: x_cvpv_rec := p_cvpv_rec;
2754: RETURN(l_return_status);
2755: END Set_Attributes;
2753: x_cvpv_rec := p_cvpv_rec;
2754: RETURN(l_return_status);
2755: END Set_Attributes;
2756: BEGIN
2757: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2758: G_PKG_NAME,
2759: p_init_msg_list,
2760: l_api_version,
2761: p_api_version,
2760: l_api_version,
2761: p_api_version,
2762: '_PVT',
2763: x_return_status);
2764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2767: RAISE OKC_API.G_EXCEPTION_ERROR;
2768: END IF;
2761: p_api_version,
2762: '_PVT',
2763: x_return_status);
2764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2767: RAISE OKC_API.G_EXCEPTION_ERROR;
2768: END IF;
2769: --- Setting item attributes
2762: '_PVT',
2763: x_return_status);
2764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2767: RAISE OKC_API.G_EXCEPTION_ERROR;
2768: END IF;
2769: --- Setting item attributes
2770: l_return_status := Set_Attributes(
2763: x_return_status);
2764: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2765: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2766: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2767: RAISE OKC_API.G_EXCEPTION_ERROR;
2768: END IF;
2769: --- Setting item attributes
2770: l_return_status := Set_Attributes(
2771: p_cvpv_rec, -- IN
2770: l_return_status := Set_Attributes(
2771: p_cvpv_rec, -- IN
2772: x_cvpv_rec); -- OUT
2773: --- If any errors happen abort API
2774: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2775: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2776: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2777: RAISE OKC_API.G_EXCEPTION_ERROR;
2778: END IF;
2771: p_cvpv_rec, -- IN
2772: x_cvpv_rec); -- OUT
2773: --- If any errors happen abort API
2774: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2775: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2776: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2777: RAISE OKC_API.G_EXCEPTION_ERROR;
2778: END IF;
2779: l_return_status := populate_new_record(l_cvpv_rec, l_def_cvpv_rec);
2772: x_cvpv_rec); -- OUT
2773: --- If any errors happen abort API
2774: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2775: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2776: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2777: RAISE OKC_API.G_EXCEPTION_ERROR;
2778: END IF;
2779: l_return_status := populate_new_record(l_cvpv_rec, l_def_cvpv_rec);
2780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2773: --- If any errors happen abort API
2774: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2775: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2776: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2777: RAISE OKC_API.G_EXCEPTION_ERROR;
2778: END IF;
2779: l_return_status := populate_new_record(l_cvpv_rec, l_def_cvpv_rec);
2780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2776: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2777: RAISE OKC_API.G_EXCEPTION_ERROR;
2778: END IF;
2779: l_return_status := populate_new_record(l_cvpv_rec, l_def_cvpv_rec);
2780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2782: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_ERROR;
2784: END IF;
2777: RAISE OKC_API.G_EXCEPTION_ERROR;
2778: END IF;
2779: l_return_status := populate_new_record(l_cvpv_rec, l_def_cvpv_rec);
2780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2782: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_ERROR;
2784: END IF;
2785: l_def_cvpv_rec := fill_who_columns(l_def_cvpv_rec);
2778: END IF;
2779: l_return_status := populate_new_record(l_cvpv_rec, l_def_cvpv_rec);
2780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2782: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_ERROR;
2784: END IF;
2785: l_def_cvpv_rec := fill_who_columns(l_def_cvpv_rec);
2786: --- Validate all non-missing attributes (Item Level Validation)
2779: l_return_status := populate_new_record(l_cvpv_rec, l_def_cvpv_rec);
2780: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2781: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2782: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2783: RAISE OKC_API.G_EXCEPTION_ERROR;
2784: END IF;
2785: l_def_cvpv_rec := fill_who_columns(l_def_cvpv_rec);
2786: --- Validate all non-missing attributes (Item Level Validation)
2787: l_return_status := Validate_Attributes(l_def_cvpv_rec);
2785: l_def_cvpv_rec := fill_who_columns(l_def_cvpv_rec);
2786: --- Validate all non-missing attributes (Item Level Validation)
2787: l_return_status := Validate_Attributes(l_def_cvpv_rec);
2788: --- If any errors happen abort API
2789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2792: RAISE OKC_API.G_EXCEPTION_ERROR;
2793: END IF;
2786: --- Validate all non-missing attributes (Item Level Validation)
2787: l_return_status := Validate_Attributes(l_def_cvpv_rec);
2788: --- If any errors happen abort API
2789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2792: RAISE OKC_API.G_EXCEPTION_ERROR;
2793: END IF;
2794: l_return_status := Validate_Record(l_def_cvpv_rec, l_db_cvpv_rec);
2787: l_return_status := Validate_Attributes(l_def_cvpv_rec);
2788: --- If any errors happen abort API
2789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2792: RAISE OKC_API.G_EXCEPTION_ERROR;
2793: END IF;
2794: l_return_status := Validate_Record(l_def_cvpv_rec, l_db_cvpv_rec);
2795: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2788: --- If any errors happen abort API
2789: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2790: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2792: RAISE OKC_API.G_EXCEPTION_ERROR;
2793: END IF;
2794: l_return_status := Validate_Record(l_def_cvpv_rec, l_db_cvpv_rec);
2795: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2796: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2791: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2792: RAISE OKC_API.G_EXCEPTION_ERROR;
2793: END IF;
2794: l_return_status := Validate_Record(l_def_cvpv_rec, l_db_cvpv_rec);
2795: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2796: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2797: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2798: RAISE OKC_API.G_EXCEPTION_ERROR;
2799: END IF;
2792: RAISE OKC_API.G_EXCEPTION_ERROR;
2793: END IF;
2794: l_return_status := Validate_Record(l_def_cvpv_rec, l_db_cvpv_rec);
2795: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2796: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2797: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2798: RAISE OKC_API.G_EXCEPTION_ERROR;
2799: END IF;
2800:
2793: END IF;
2794: l_return_status := Validate_Record(l_def_cvpv_rec, l_db_cvpv_rec);
2795: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2796: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2797: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2798: RAISE OKC_API.G_EXCEPTION_ERROR;
2799: END IF;
2800:
2801: -- Lock the Record
2794: l_return_status := Validate_Record(l_def_cvpv_rec, l_db_cvpv_rec);
2795: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2796: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2797: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2798: RAISE OKC_API.G_EXCEPTION_ERROR;
2799: END IF;
2800:
2801: -- Lock the Record
2802: /* lock_row(
2805: x_return_status => l_return_status,
2806: x_msg_count => x_msg_count,
2807: x_msg_data => x_msg_data,
2808: p_cvpv_rec => p_cvpv_rec);
2809: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2812: RAISE OKC_API.G_EXCEPTION_ERROR;
2813: END IF;*/
2806: x_msg_count => x_msg_count,
2807: x_msg_data => x_msg_data,
2808: p_cvpv_rec => p_cvpv_rec);
2809: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2812: RAISE OKC_API.G_EXCEPTION_ERROR;
2813: END IF;*/
2814:
2807: x_msg_data => x_msg_data,
2808: p_cvpv_rec => p_cvpv_rec);
2809: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2812: RAISE OKC_API.G_EXCEPTION_ERROR;
2813: END IF;*/
2814:
2815: -----------------------------------------
2808: p_cvpv_rec => p_cvpv_rec);
2809: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2812: RAISE OKC_API.G_EXCEPTION_ERROR;
2813: END IF;*/
2814:
2815: -----------------------------------------
2816: -- Move VIEW record to "Child" records --
2827: x_msg_data,
2828: l_cvp_rec,
2829: lx_cvp_rec
2830: );
2831: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2828: l_cvp_rec,
2829: lx_cvp_rec
2830: );
2831: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2836: migrate(lx_cvp_rec, l_def_cvpv_rec);
2829: lx_cvp_rec
2830: );
2831: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2836: migrate(lx_cvp_rec, l_def_cvpv_rec);
2837: update_row(
2830: );
2831: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2836: migrate(lx_cvp_rec, l_def_cvpv_rec);
2837: update_row(
2838: p_init_msg_list,
2841: x_msg_data,
2842: l_oks_cov_types_tl_rec,
2843: lx_oks_cov_types_tl_rec
2844: );
2845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_ERROR;
2849: END IF;
2842: l_oks_cov_types_tl_rec,
2843: lx_oks_cov_types_tl_rec
2844: );
2845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_ERROR;
2849: END IF;
2850: migrate(lx_oks_cov_types_tl_rec, l_def_cvpv_rec);
2843: lx_oks_cov_types_tl_rec
2844: );
2845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_ERROR;
2849: END IF;
2850: migrate(lx_oks_cov_types_tl_rec, l_def_cvpv_rec);
2851: x_cvpv_rec := l_def_cvpv_rec;
2844: );
2845: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2846: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2847: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2848: RAISE OKC_API.G_EXCEPTION_ERROR;
2849: END IF;
2850: migrate(lx_oks_cov_types_tl_rec, l_def_cvpv_rec);
2851: x_cvpv_rec := l_def_cvpv_rec;
2852: x_return_status := l_return_status;
2849: END IF;
2850: migrate(lx_oks_cov_types_tl_rec, l_def_cvpv_rec);
2851: x_cvpv_rec := l_def_cvpv_rec;
2852: x_return_status := l_return_status;
2853: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2854: EXCEPTION
2855: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2857: (
2851: x_cvpv_rec := l_def_cvpv_rec;
2852: x_return_status := l_return_status;
2853: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2854: EXCEPTION
2855: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2857: (
2858: l_api_name,
2859: G_PKG_NAME,
2852: x_return_status := l_return_status;
2853: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2854: EXCEPTION
2855: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2857: (
2858: l_api_name,
2859: G_PKG_NAME,
2860: 'OKC_API.G_RET_STS_ERROR',
2856: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2857: (
2858: l_api_name,
2859: G_PKG_NAME,
2860: 'OKC_API.G_RET_STS_ERROR',
2861: x_msg_count,
2862: x_msg_data,
2863: '_PVT'
2864: );
2861: x_msg_count,
2862: x_msg_data,
2863: '_PVT'
2864: );
2865: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2866: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2867: (
2868: l_api_name,
2869: G_PKG_NAME,
2862: x_msg_data,
2863: '_PVT'
2864: );
2865: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2866: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2867: (
2868: l_api_name,
2869: G_PKG_NAME,
2870: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2866: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2867: (
2868: l_api_name,
2869: G_PKG_NAME,
2870: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2871: x_msg_count,
2872: x_msg_data,
2873: '_PVT'
2874: );
2872: x_msg_data,
2873: '_PVT'
2874: );
2875: WHEN OTHERS THEN
2876: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2877: (
2878: l_api_name,
2879: G_PKG_NAME,
2880: 'OTHERS',
2893: x_msg_count OUT NOCOPY NUMBER,
2894: x_msg_data OUT NOCOPY VARCHAR2,
2895: p_cvpv_tbl IN cvpv_tbl_type,
2896: x_cvpv_tbl OUT NOCOPY cvpv_tbl_type,
2897: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2898:
2899: l_api_version CONSTANT NUMBER := 1;
2900: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2901: i NUMBER := 0;
2899: l_api_version CONSTANT NUMBER := 1;
2900: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2901: i NUMBER := 0;
2902: BEGIN
2903: OKC_API.init_msg_list(p_init_msg_list);
2904: -- Make sure PL/SQL table has records in it before passing
2905: IF (p_cvpv_tbl.COUNT > 0) THEN
2906: i := p_cvpv_tbl.FIRST;
2907: LOOP
2905: IF (p_cvpv_tbl.COUNT > 0) THEN
2906: i := p_cvpv_tbl.FIRST;
2907: LOOP
2908: DECLARE
2909: l_error_rec OKC_API.ERROR_REC_TYPE;
2910: BEGIN
2911: l_error_rec.api_name := l_api_name;
2912: l_error_rec.api_package := G_PKG_NAME;
2913: l_error_rec.idx := i;
2912: l_error_rec.api_package := G_PKG_NAME;
2913: l_error_rec.idx := i;
2914: update_row (
2915: p_api_version => p_api_version,
2916: p_init_msg_list => OKC_API.G_FALSE,
2917: x_return_status => l_error_rec.error_type,
2918: x_msg_count => l_error_rec.msg_count,
2919: x_msg_data => l_error_rec.msg_data,
2920: p_cvpv_rec => p_cvpv_tbl(i),
2918: x_msg_count => l_error_rec.msg_count,
2919: x_msg_data => l_error_rec.msg_data,
2920: p_cvpv_rec => p_cvpv_tbl(i),
2921: x_cvpv_rec => x_cvpv_tbl(i));
2922: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2923: l_error_rec.sqlcode := SQLCODE;
2924: load_error_tbl(l_error_rec, px_error_tbl);
2925: ELSE
2926: x_msg_count := l_error_rec.msg_count;
2926: x_msg_count := l_error_rec.msg_count;
2927: x_msg_data := l_error_rec.msg_data;
2928: END IF;
2929: EXCEPTION
2930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2931: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2932: l_error_rec.sqlcode := SQLCODE;
2933: load_error_tbl(l_error_rec, px_error_tbl);
2934: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2927: x_msg_data := l_error_rec.msg_data;
2928: END IF;
2929: EXCEPTION
2930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2931: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2932: l_error_rec.sqlcode := SQLCODE;
2933: load_error_tbl(l_error_rec, px_error_tbl);
2934: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2935: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2930: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2931: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2932: l_error_rec.sqlcode := SQLCODE;
2933: load_error_tbl(l_error_rec, px_error_tbl);
2934: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2935: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2936: l_error_rec.sqlcode := SQLCODE;
2937: load_error_tbl(l_error_rec, px_error_tbl);
2938: WHEN OTHERS THEN
2931: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2932: l_error_rec.sqlcode := SQLCODE;
2933: load_error_tbl(l_error_rec, px_error_tbl);
2934: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2935: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2936: l_error_rec.sqlcode := SQLCODE;
2937: load_error_tbl(l_error_rec, px_error_tbl);
2938: WHEN OTHERS THEN
2939: l_error_rec.error_type := 'OTHERS';
2946: END IF;
2947: -- Loop through the error_tbl to find the error with the highest severity
2948: -- and return it.
2949: x_return_status := find_highest_exception(px_error_tbl);
2950: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2951: EXCEPTION
2952: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2954: (
2948: -- and return it.
2949: x_return_status := find_highest_exception(px_error_tbl);
2950: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2951: EXCEPTION
2952: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2954: (
2955: l_api_name,
2956: G_PKG_NAME,
2949: x_return_status := find_highest_exception(px_error_tbl);
2950: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2951: EXCEPTION
2952: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2954: (
2955: l_api_name,
2956: G_PKG_NAME,
2957: 'OKC_API.G_RET_STS_ERROR',
2953: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2954: (
2955: l_api_name,
2956: G_PKG_NAME,
2957: 'OKC_API.G_RET_STS_ERROR',
2958: x_msg_count,
2959: x_msg_data,
2960: '_PVT'
2961: );
2958: x_msg_count,
2959: x_msg_data,
2960: '_PVT'
2961: );
2962: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2963: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2964: (
2965: l_api_name,
2966: G_PKG_NAME,
2959: x_msg_data,
2960: '_PVT'
2961: );
2962: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2963: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2964: (
2965: l_api_name,
2966: G_PKG_NAME,
2967: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2963: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2964: (
2965: l_api_name,
2966: G_PKG_NAME,
2967: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2968: x_msg_count,
2969: x_msg_data,
2970: '_PVT'
2971: );
2969: x_msg_data,
2970: '_PVT'
2971: );
2972: WHEN OTHERS THEN
2973: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2974: (
2975: l_api_name,
2976: G_PKG_NAME,
2977: 'OTHERS',
2996: x_cvpv_tbl OUT NOCOPY cvpv_tbl_type) IS
2997:
2998: l_api_version CONSTANT NUMBER := 1;
2999: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3000: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3001: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3002: BEGIN
3003: OKC_API.init_msg_list(p_init_msg_list);
3004: -- Make sure PL/SQL table has records in it before passing
2997:
2998: l_api_version CONSTANT NUMBER := 1;
2999: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3000: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3001: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3002: BEGIN
3003: OKC_API.init_msg_list(p_init_msg_list);
3004: -- Make sure PL/SQL table has records in it before passing
3005: IF (p_cvpv_tbl.COUNT > 0) THEN
2999: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3000: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3001: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3002: BEGIN
3003: OKC_API.init_msg_list(p_init_msg_list);
3004: -- Make sure PL/SQL table has records in it before passing
3005: IF (p_cvpv_tbl.COUNT > 0) THEN
3006: update_row (
3007: p_api_version => p_api_version,
3004: -- Make sure PL/SQL table has records in it before passing
3005: IF (p_cvpv_tbl.COUNT > 0) THEN
3006: update_row (
3007: p_api_version => p_api_version,
3008: p_init_msg_list => OKC_API.G_FALSE,
3009: x_return_status => x_return_status,
3010: x_msg_count => x_msg_count,
3011: x_msg_data => x_msg_data,
3012: p_cvpv_tbl => p_cvpv_tbl,
3012: p_cvpv_tbl => p_cvpv_tbl,
3013: x_cvpv_tbl => x_cvpv_tbl,
3014: px_error_tbl => l_error_tbl);
3015: END IF;
3016: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3017: EXCEPTION
3018: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3020: (
3014: px_error_tbl => l_error_tbl);
3015: END IF;
3016: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3017: EXCEPTION
3018: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3020: (
3021: l_api_name,
3022: G_PKG_NAME,
3015: END IF;
3016: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3017: EXCEPTION
3018: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3020: (
3021: l_api_name,
3022: G_PKG_NAME,
3023: 'OKC_API.G_RET_STS_ERROR',
3019: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3020: (
3021: l_api_name,
3022: G_PKG_NAME,
3023: 'OKC_API.G_RET_STS_ERROR',
3024: x_msg_count,
3025: x_msg_data,
3026: '_PVT'
3027: );
3024: x_msg_count,
3025: x_msg_data,
3026: '_PVT'
3027: );
3028: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3030: (
3031: l_api_name,
3032: G_PKG_NAME,
3025: x_msg_data,
3026: '_PVT'
3027: );
3028: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3030: (
3031: l_api_name,
3032: G_PKG_NAME,
3033: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3029: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3030: (
3031: l_api_name,
3032: G_PKG_NAME,
3033: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3034: x_msg_count,
3035: x_msg_data,
3036: '_PVT'
3037: );
3035: x_msg_data,
3036: '_PVT'
3037: );
3038: WHEN OTHERS THEN
3039: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3040: (
3041: l_api_name,
3042: G_PKG_NAME,
3043: 'OTHERS',
3061: p_cvp_rec IN cvp_rec_type) IS
3062:
3063: l_api_version CONSTANT NUMBER := 1;
3064: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3065: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3066: l_cvp_rec cvp_rec_type := p_cvp_rec;
3067: l_row_notfound BOOLEAN := TRUE;
3068: BEGIN
3069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3065: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3066: l_cvp_rec cvp_rec_type := p_cvp_rec;
3067: l_row_notfound BOOLEAN := TRUE;
3068: BEGIN
3069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3070: p_init_msg_list,
3071: '_PVT',
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3069: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3070: p_init_msg_list,
3071: '_PVT',
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3076: RAISE OKC_API.G_EXCEPTION_ERROR;
3077: END IF;
3070: p_init_msg_list,
3071: '_PVT',
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3076: RAISE OKC_API.G_EXCEPTION_ERROR;
3077: END IF;
3078:
3071: '_PVT',
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3076: RAISE OKC_API.G_EXCEPTION_ERROR;
3077: END IF;
3078:
3079: DELETE FROM OKS_COV_TYPES_B
3072: x_return_status);
3073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3076: RAISE OKC_API.G_EXCEPTION_ERROR;
3077: END IF;
3078:
3079: DELETE FROM OKS_COV_TYPES_B
3080: WHERE CODE = p_cvp_rec.code;
3079: DELETE FROM OKS_COV_TYPES_B
3080: WHERE CODE = p_cvp_rec.code;
3081:
3082: x_return_status := l_return_status;
3083: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3084: EXCEPTION
3085: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3087: (
3081:
3082: x_return_status := l_return_status;
3083: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3084: EXCEPTION
3085: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3087: (
3088: l_api_name,
3089: G_PKG_NAME,
3082: x_return_status := l_return_status;
3083: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3084: EXCEPTION
3085: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3087: (
3088: l_api_name,
3089: G_PKG_NAME,
3090: 'OKC_API.G_RET_STS_ERROR',
3086: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3087: (
3088: l_api_name,
3089: G_PKG_NAME,
3090: 'OKC_API.G_RET_STS_ERROR',
3091: x_msg_count,
3092: x_msg_data,
3093: '_PVT'
3094: );
3091: x_msg_count,
3092: x_msg_data,
3093: '_PVT'
3094: );
3095: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3096: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3097: (
3098: l_api_name,
3099: G_PKG_NAME,
3092: x_msg_data,
3093: '_PVT'
3094: );
3095: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3096: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3097: (
3098: l_api_name,
3099: G_PKG_NAME,
3100: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3096: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3097: (
3098: l_api_name,
3099: G_PKG_NAME,
3100: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3101: x_msg_count,
3102: x_msg_data,
3103: '_PVT'
3104: );
3102: x_msg_data,
3103: '_PVT'
3104: );
3105: WHEN OTHERS THEN
3106: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3107: (
3108: l_api_name,
3109: G_PKG_NAME,
3110: 'OTHERS',
3124: p_oks_cov_types_tl_rec IN oks_cov_types_tl_rec_type) IS
3125:
3126: l_api_version CONSTANT NUMBER := 1;
3127: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3128: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3129: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type := p_oks_cov_types_tl_rec;
3130: l_row_notfound BOOLEAN := TRUE;
3131: BEGIN
3132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3128: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3129: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type := p_oks_cov_types_tl_rec;
3130: l_row_notfound BOOLEAN := TRUE;
3131: BEGIN
3132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3133: p_init_msg_list,
3134: '_PVT',
3135: x_return_status);
3136: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3133: p_init_msg_list,
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_init_msg_list,
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:
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:
3142: DELETE FROM OKS_COV_TYPES_TL
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:
3142: DELETE FROM OKS_COV_TYPES_TL
3143: WHERE CODE = p_oks_cov_types_tl_rec.code;
3142: DELETE FROM OKS_COV_TYPES_TL
3143: WHERE CODE = p_oks_cov_types_tl_rec.code;
3144:
3145: x_return_status := l_return_status;
3146: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3147: EXCEPTION
3148: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3149: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3150: (
3144:
3145: x_return_status := l_return_status;
3146: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3147: EXCEPTION
3148: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3149: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3150: (
3151: l_api_name,
3152: G_PKG_NAME,
3145: x_return_status := l_return_status;
3146: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3147: EXCEPTION
3148: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3149: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3150: (
3151: l_api_name,
3152: G_PKG_NAME,
3153: 'OKC_API.G_RET_STS_ERROR',
3149: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3150: (
3151: l_api_name,
3152: G_PKG_NAME,
3153: 'OKC_API.G_RET_STS_ERROR',
3154: x_msg_count,
3155: x_msg_data,
3156: '_PVT'
3157: );
3154: x_msg_count,
3155: x_msg_data,
3156: '_PVT'
3157: );
3158: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3155: x_msg_data,
3156: '_PVT'
3157: );
3158: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3163: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3163: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3164: x_msg_count,
3165: x_msg_data,
3166: '_PVT'
3167: );
3165: x_msg_data,
3166: '_PVT'
3167: );
3168: WHEN OTHERS THEN
3169: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3170: (
3171: l_api_name,
3172: G_PKG_NAME,
3173: 'OTHERS',
3188: p_cvpv_rec IN cvpv_rec_type) IS
3189:
3190: l_api_version CONSTANT NUMBER := 1;
3191: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3192: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3193: l_cvpv_rec cvpv_rec_type := p_cvpv_rec;
3194: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
3195: l_cvp_rec cvp_rec_type;
3196: BEGIN
3193: l_cvpv_rec cvpv_rec_type := p_cvpv_rec;
3194: l_oks_cov_types_tl_rec oks_cov_types_tl_rec_type;
3195: l_cvp_rec cvp_rec_type;
3196: BEGIN
3197: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3198: G_PKG_NAME,
3199: p_init_msg_list,
3200: l_api_version,
3201: p_api_version,
3200: l_api_version,
3201: p_api_version,
3202: '_PVT',
3203: x_return_status);
3204: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3205: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3207: RAISE OKC_API.G_EXCEPTION_ERROR;
3208: END IF;
3201: p_api_version,
3202: '_PVT',
3203: x_return_status);
3204: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3205: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3207: RAISE OKC_API.G_EXCEPTION_ERROR;
3208: END IF;
3209: -----------------------------------------
3202: '_PVT',
3203: x_return_status);
3204: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3205: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3207: RAISE OKC_API.G_EXCEPTION_ERROR;
3208: END IF;
3209: -----------------------------------------
3210: -- Move VIEW record to "Child" records --
3203: x_return_status);
3204: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3205: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3206: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3207: RAISE OKC_API.G_EXCEPTION_ERROR;
3208: END IF;
3209: -----------------------------------------
3210: -- Move VIEW record to "Child" records --
3211: -----------------------------------------
3220: x_msg_count,
3221: x_msg_data,
3222: l_oks_cov_types_tl_rec
3223: );
3224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3227: RAISE OKC_API.G_EXCEPTION_ERROR;
3228: END IF;
3221: x_msg_data,
3222: l_oks_cov_types_tl_rec
3223: );
3224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3227: RAISE OKC_API.G_EXCEPTION_ERROR;
3228: END IF;
3229: delete_row(
3222: l_oks_cov_types_tl_rec
3223: );
3224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3227: RAISE OKC_API.G_EXCEPTION_ERROR;
3228: END IF;
3229: delete_row(
3230: p_init_msg_list,
3223: );
3224: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3225: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3226: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3227: RAISE OKC_API.G_EXCEPTION_ERROR;
3228: END IF;
3229: delete_row(
3230: p_init_msg_list,
3231: l_return_status,
3232: x_msg_count,
3233: x_msg_data,
3234: l_cvp_rec
3235: );
3236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3239: RAISE OKC_API.G_EXCEPTION_ERROR;
3240: END IF;
3233: x_msg_data,
3234: l_cvp_rec
3235: );
3236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3239: RAISE OKC_API.G_EXCEPTION_ERROR;
3240: END IF;
3241: x_return_status := l_return_status;
3234: l_cvp_rec
3235: );
3236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3239: RAISE OKC_API.G_EXCEPTION_ERROR;
3240: END IF;
3241: x_return_status := l_return_status;
3242: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3235: );
3236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3239: RAISE OKC_API.G_EXCEPTION_ERROR;
3240: END IF;
3241: x_return_status := l_return_status;
3242: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3243: EXCEPTION
3238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3239: RAISE OKC_API.G_EXCEPTION_ERROR;
3240: END IF;
3241: x_return_status := l_return_status;
3242: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3243: EXCEPTION
3244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3246: (
3240: END IF;
3241: x_return_status := l_return_status;
3242: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3243: EXCEPTION
3244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3246: (
3247: l_api_name,
3248: G_PKG_NAME,
3241: x_return_status := l_return_status;
3242: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3243: EXCEPTION
3244: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3246: (
3247: l_api_name,
3248: G_PKG_NAME,
3249: 'OKC_API.G_RET_STS_ERROR',
3245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3246: (
3247: l_api_name,
3248: G_PKG_NAME,
3249: 'OKC_API.G_RET_STS_ERROR',
3250: x_msg_count,
3251: x_msg_data,
3252: '_PVT'
3253: );
3250: x_msg_count,
3251: x_msg_data,
3252: '_PVT'
3253: );
3254: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3255: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3256: (
3257: l_api_name,
3258: G_PKG_NAME,
3251: x_msg_data,
3252: '_PVT'
3253: );
3254: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3255: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3256: (
3257: l_api_name,
3258: G_PKG_NAME,
3259: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3255: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3256: (
3257: l_api_name,
3258: G_PKG_NAME,
3259: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3260: x_msg_count,
3261: x_msg_data,
3262: '_PVT'
3263: );
3261: x_msg_data,
3262: '_PVT'
3263: );
3264: WHEN OTHERS THEN
3265: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3266: (
3267: l_api_name,
3268: G_PKG_NAME,
3269: 'OTHERS',
3281: x_return_status OUT NOCOPY VARCHAR2,
3282: x_msg_count OUT NOCOPY NUMBER,
3283: x_msg_data OUT NOCOPY VARCHAR2,
3284: p_cvpv_tbl IN cvpv_tbl_type,
3285: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
3286:
3287: l_api_version CONSTANT NUMBER := 1;
3288: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3289: i NUMBER := 0;
3287: l_api_version CONSTANT NUMBER := 1;
3288: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3289: i NUMBER := 0;
3290: BEGIN
3291: OKC_API.init_msg_list(p_init_msg_list);
3292: -- Make sure PL/SQL table has records in it before passing
3293: IF (p_cvpv_tbl.COUNT > 0) THEN
3294: i := p_cvpv_tbl.FIRST;
3295: LOOP
3293: IF (p_cvpv_tbl.COUNT > 0) THEN
3294: i := p_cvpv_tbl.FIRST;
3295: LOOP
3296: DECLARE
3297: l_error_rec OKC_API.ERROR_REC_TYPE;
3298: BEGIN
3299: l_error_rec.api_name := l_api_name;
3300: l_error_rec.api_package := G_PKG_NAME;
3301: l_error_rec.idx := i;
3300: l_error_rec.api_package := G_PKG_NAME;
3301: l_error_rec.idx := i;
3302: delete_row (
3303: p_api_version => p_api_version,
3304: p_init_msg_list => OKC_API.G_FALSE,
3305: x_return_status => l_error_rec.error_type,
3306: x_msg_count => l_error_rec.msg_count,
3307: x_msg_data => l_error_rec.msg_data,
3308: p_cvpv_rec => p_cvpv_tbl(i));
3305: x_return_status => l_error_rec.error_type,
3306: x_msg_count => l_error_rec.msg_count,
3307: x_msg_data => l_error_rec.msg_data,
3308: p_cvpv_rec => p_cvpv_tbl(i));
3309: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
3310: l_error_rec.sqlcode := SQLCODE;
3311: load_error_tbl(l_error_rec, px_error_tbl);
3312: ELSE
3313: x_msg_count := l_error_rec.msg_count;
3313: x_msg_count := l_error_rec.msg_count;
3314: x_msg_data := l_error_rec.msg_data;
3315: END IF;
3316: EXCEPTION
3317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3318: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3319: l_error_rec.sqlcode := SQLCODE;
3320: load_error_tbl(l_error_rec, px_error_tbl);
3321: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3314: x_msg_data := l_error_rec.msg_data;
3315: END IF;
3316: EXCEPTION
3317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3318: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3319: l_error_rec.sqlcode := SQLCODE;
3320: load_error_tbl(l_error_rec, px_error_tbl);
3321: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3322: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3318: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3319: l_error_rec.sqlcode := SQLCODE;
3320: load_error_tbl(l_error_rec, px_error_tbl);
3321: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3322: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3323: l_error_rec.sqlcode := SQLCODE;
3324: load_error_tbl(l_error_rec, px_error_tbl);
3325: WHEN OTHERS THEN
3318: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3319: l_error_rec.sqlcode := SQLCODE;
3320: load_error_tbl(l_error_rec, px_error_tbl);
3321: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3322: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3323: l_error_rec.sqlcode := SQLCODE;
3324: load_error_tbl(l_error_rec, px_error_tbl);
3325: WHEN OTHERS THEN
3326: l_error_rec.error_type := 'OTHERS';
3333: END IF;
3334: -- Loop through the error_tbl to find the error with the highest severity
3335: -- and return it.
3336: x_return_status := find_highest_exception(px_error_tbl);
3337: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3338: EXCEPTION
3339: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3341: (
3335: -- and return it.
3336: x_return_status := find_highest_exception(px_error_tbl);
3337: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3338: EXCEPTION
3339: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3341: (
3342: l_api_name,
3343: G_PKG_NAME,
3336: x_return_status := find_highest_exception(px_error_tbl);
3337: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3338: EXCEPTION
3339: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3341: (
3342: l_api_name,
3343: G_PKG_NAME,
3344: 'OKC_API.G_RET_STS_ERROR',
3340: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3341: (
3342: l_api_name,
3343: G_PKG_NAME,
3344: 'OKC_API.G_RET_STS_ERROR',
3345: x_msg_count,
3346: x_msg_data,
3347: '_PVT'
3348: );
3345: x_msg_count,
3346: x_msg_data,
3347: '_PVT'
3348: );
3349: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3350: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3351: (
3352: l_api_name,
3353: G_PKG_NAME,
3346: x_msg_data,
3347: '_PVT'
3348: );
3349: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3350: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3351: (
3352: l_api_name,
3353: G_PKG_NAME,
3354: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3350: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3351: (
3352: l_api_name,
3353: G_PKG_NAME,
3354: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3355: x_msg_count,
3356: x_msg_data,
3357: '_PVT'
3358: );
3356: x_msg_data,
3357: '_PVT'
3358: );
3359: WHEN OTHERS THEN
3360: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3361: (
3362: l_api_name,
3363: G_PKG_NAME,
3364: 'OTHERS',
3380: p_cvpv_tbl IN cvpv_tbl_type) IS
3381:
3382: l_api_version CONSTANT NUMBER := 1;
3383: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3384: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3385: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3386: BEGIN
3387: OKC_API.init_msg_list(p_init_msg_list);
3388: -- Make sure PL/SQL table has records in it before passing
3381:
3382: l_api_version CONSTANT NUMBER := 1;
3383: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3384: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3385: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3386: BEGIN
3387: OKC_API.init_msg_list(p_init_msg_list);
3388: -- Make sure PL/SQL table has records in it before passing
3389: IF (p_cvpv_tbl.COUNT > 0) THEN
3383: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3384: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3385: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3386: BEGIN
3387: OKC_API.init_msg_list(p_init_msg_list);
3388: -- Make sure PL/SQL table has records in it before passing
3389: IF (p_cvpv_tbl.COUNT > 0) THEN
3390: delete_row (
3391: p_api_version => p_api_version,
3388: -- Make sure PL/SQL table has records in it before passing
3389: IF (p_cvpv_tbl.COUNT > 0) THEN
3390: delete_row (
3391: p_api_version => p_api_version,
3392: p_init_msg_list => OKC_API.G_FALSE,
3393: x_return_status => x_return_status,
3394: x_msg_count => x_msg_count,
3395: x_msg_data => x_msg_data,
3396: p_cvpv_tbl => p_cvpv_tbl,
3395: x_msg_data => x_msg_data,
3396: p_cvpv_tbl => p_cvpv_tbl,
3397: px_error_tbl => l_error_tbl);
3398: END IF;
3399: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3400: EXCEPTION
3401: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3402: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3403: (
3397: px_error_tbl => l_error_tbl);
3398: END IF;
3399: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3400: EXCEPTION
3401: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3402: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3403: (
3404: l_api_name,
3405: G_PKG_NAME,
3398: END IF;
3399: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3400: EXCEPTION
3401: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3402: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3403: (
3404: l_api_name,
3405: G_PKG_NAME,
3406: 'OKC_API.G_RET_STS_ERROR',
3402: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3403: (
3404: l_api_name,
3405: G_PKG_NAME,
3406: 'OKC_API.G_RET_STS_ERROR',
3407: x_msg_count,
3408: x_msg_data,
3409: '_PVT'
3410: );
3407: x_msg_count,
3408: x_msg_data,
3409: '_PVT'
3410: );
3411: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3412: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3413: (
3414: l_api_name,
3415: G_PKG_NAME,
3408: x_msg_data,
3409: '_PVT'
3410: );
3411: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3412: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3413: (
3414: l_api_name,
3415: G_PKG_NAME,
3416: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3412: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3413: (
3414: l_api_name,
3415: G_PKG_NAME,
3416: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3417: x_msg_count,
3418: x_msg_data,
3419: '_PVT'
3420: );
3418: x_msg_data,
3419: '_PVT'
3420: );
3421: WHEN OTHERS THEN
3422: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3423: (
3424: l_api_name,
3425: G_PKG_NAME,
3426: 'OTHERS',
3432: ---------------------------------------------------------------------------
3433: -- PROCEDURE Migrate Coverage Types
3434: ---------------------------------------------------------------------------
3435: PROCEDURE MIGRATE_COVERAGE_TYPES(p_api_version IN NUMBER,
3436: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3437: x_return_status OUT NOCOPY VARCHAR2,
3438: x_msg_count OUT NOCOPY NUMBER,
3439: x_msg_data OUT NOCOPY VARCHAR2)
3440:
3441: IS
3442: l_api_version CONSTANT NUMBER := 1;
3443: l_api_name CONSTANT VARCHAR2(30) := 'V_MIGRATE_COVTYPES';
3444: l_api_name2 CONSTANT VARCHAR2(30) := 'V_MIGRATE_COVTYPES_LANG';
3445: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3446: v_code FND_LOOKUP_VALUES.LOOKUP_CODE%TYPE ;
3447: v_exist BOOLEAN;
3448: v_sourcelang_null BOOLEAN :=FALSE;
3449: v_source_lang VARCHAR2(4);
3476:
3477:
3478: BEGIN
3479: --Modified to pass source_lang and SFWT_FLAG for bug 3807465
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:
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:
3493: FOR C1 IN CUR_GET_COV_TYPES
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:
3493: FOR C1 IN CUR_GET_COV_TYPES
3494: LOOP
3603: SET SOURCE_LANG=userenv('LANG'),SFWT_FLAG='N'
3604: WHERE SOURCE_LANG IS NULL;
3605: END IF;
3606: EXCEPTION
3607: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3608: ROLLBACK ;
3609: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3610: (
3611: l_api_name2,
3605: END IF;
3606: EXCEPTION
3607: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3608: ROLLBACK ;
3609: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3610: (
3611: l_api_name2,
3612: G_PKG_NAME,
3613: 'OKC_API.G_RET_STS_ERROR',
3609: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3610: (
3611: l_api_name2,
3612: G_PKG_NAME,
3613: 'OKC_API.G_RET_STS_ERROR',
3614: x_msg_count,
3615: x_msg_data,
3616: '_PVT'
3617: );
3614: x_msg_count,
3615: x_msg_data,
3616: '_PVT'
3617: );
3618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3619: ROLLBACK ;
3620: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3621: (
3622: l_api_name2,
3616: '_PVT'
3617: );
3618: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3619: ROLLBACK ;
3620: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3621: (
3622: l_api_name2,
3623: G_PKG_NAME,
3624: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3620: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3621: (
3622: l_api_name2,
3623: G_PKG_NAME,
3624: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3625: x_msg_count,
3626: x_msg_data,
3627: '_PVT'
3628: );
3627: '_PVT'
3628: );
3629: WHEN OTHERS THEN
3630: ROLLBACK ;
3631: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3632: (
3633: l_api_name2,
3634: G_PKG_NAME,
3635: 'OTHERS',
3637: x_msg_data,
3638: '_PVT'
3639: );
3640: END;
3641: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3642:
3643: EXCEPTION
3644: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3645: ROLLBACK ;
3640: END;
3641: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3642:
3643: EXCEPTION
3644: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3645: ROLLBACK ;
3646: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3647: (
3648: l_api_name,
3642:
3643: EXCEPTION
3644: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3645: ROLLBACK ;
3646: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3647: (
3648: l_api_name,
3649: G_PKG_NAME,
3650: 'OKC_API.G_RET_STS_ERROR',
3646: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3647: (
3648: l_api_name,
3649: G_PKG_NAME,
3650: 'OKC_API.G_RET_STS_ERROR',
3651: x_msg_count,
3652: x_msg_data,
3653: '_PVT'
3654: );
3652: x_msg_data,
3653: '_PVT'
3654: );
3655:
3656: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3657: ROLLBACK ;
3658: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3659: (
3660: l_api_name,
3654: );
3655:
3656: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3657: ROLLBACK ;
3658: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3659: (
3660: l_api_name,
3661: G_PKG_NAME,
3662: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3658: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3659: (
3660: l_api_name,
3661: G_PKG_NAME,
3662: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3663: x_msg_count,
3664: x_msg_data,
3665: '_PVT'
3666: );
3665: '_PVT'
3666: );
3667: WHEN OTHERS THEN
3668: ROLLBACK ;
3669: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3670: (
3671: l_api_name,
3672: G_PKG_NAME,
3673: 'OTHERS',
3685: ---------------------------------------------------------------------------
3686:
3687:
3688: PROCEDURE DELETE_COVERAGE_TYPES( p_api_version IN NUMBER,
3689: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3690: x_return_status OUT NOCOPY VARCHAR2,
3691: x_msg_count OUT NOCOPY NUMBER,
3692: x_msg_data OUT NOCOPY VARCHAR2)
3693: IS
3693: IS
3694:
3695: l_api_version CONSTANT NUMBER := 1;
3696: l_api_name CONSTANT VARCHAR2(40) := 'V_DELETE_COVEREAGE_TYPES';
3697: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3698:
3699: BEGIN
3700:
3701: BEGIN
3702: delete FND_LOOKUP_VALUES
3703: where lookup_code in
3704: (SELECT code FROM oks_cov_types_v)
3705: and lookup_type = 'OKSCVETYPE';
3706: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3707: EXCEPTION
3708: WHEN OTHERS THEN
3709: NULL;
3710:
3707: EXCEPTION
3708: WHEN OTHERS THEN
3709: NULL;
3710:
3711: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3712: (
3713: l_api_name,
3714: G_PKG_NAME,
3715: 'OTHERS',
3722: delete from FND_LOOKUP_TYPES_TL
3723: where LOOKUP_TYPE = 'OKSCVETYPE'
3724: and not exists (SELECT 'x' from FND_LOOKUP_VALUES
3725: WHERE lookup_type = 'OKSCVETYPE');
3726: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3727:
3728: EXCEPTION
3729: WHEN OTHERS THEN
3730: NULL;
3728: EXCEPTION
3729: WHEN OTHERS THEN
3730: NULL;
3731:
3732: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3733: (
3734: l_api_name,
3735: G_PKG_NAME,
3736: 'OTHERS',
3744: where LOOKUP_TYPE = 'OKSCVETYPE'
3745: and not exists (SELECT 'x' from FND_LOOKUP_VALUES
3746: WHERE lookup_type = 'OKSCVETYPE');
3747:
3748: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3749: EXCEPTION
3750: WHEN OTHERS THEN
3751: NULL;
3752:
3749: EXCEPTION
3750: WHEN OTHERS THEN
3751: NULL;
3752:
3753: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3754: (
3755: l_api_name,
3756: G_PKG_NAME,
3757: 'OTHERS',
3769: ---------------------------------------------------------------------------
3770:
3771:
3772: PROCEDURE DELETE_COVERAGE_TYPES( p_api_version IN NUMBER,
3773: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3774: x_return_status OUT NOCOPY VARCHAR2,
3775: x_msg_count OUT NOCOPY NUMBER,
3776: x_msg_data OUT NOCOPY VARCHAR2)
3777: IS
3777: IS
3778:
3779: l_api_version CONSTANT NUMBER := 1;
3780: l_api_name CONSTANT VARCHAR2(40) := 'V_DELETE_COVEREAGE_TYPES';
3781: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3782: --BEGIN
3783: BEGIN
3784:
3785: update FND_LOOKUP_VALUES
3788: (SELECT code FROM oks_cov_types_v)
3789: and lookup_type = 'OKSCVETYPE';
3790:
3791:
3792: x_return_status:= OKC_API.G_RET_STS_SUCCESS;
3793: EXCEPTION
3794: WHEN OTHERS THEN
3795: NULL;
3796:
3793: EXCEPTION
3794: WHEN OTHERS THEN
3795: NULL;
3796:
3797: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3798: (
3799: l_api_name,
3800: G_PKG_NAME,
3801: 'OTHERS',