3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_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 OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_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 OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_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 <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_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 <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_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);
222: ) RETURN tbcv_rec_type IS
223: l_tbcv_rec tbcv_rec_type;
224: l_row_notfound BOOLEAN := TRUE;
225: BEGIN
226: x_return_status := OKL_API.G_RET_STS_SUCCESS;
227: l_tbcv_rec := get_rec(p_tbcv_rec, l_row_notfound);
228: IF (l_row_notfound) THEN
229: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_ATTRIBUTE_DEF_ID');
230: x_return_status := OKL_API.G_RET_STS_ERROR;
226: x_return_status := OKL_API.G_RET_STS_SUCCESS;
227: l_tbcv_rec := get_rec(p_tbcv_rec, l_row_notfound);
228: IF (l_row_notfound) THEN
229: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_ATTRIBUTE_DEF_ID');
230: x_return_status := OKL_API.G_RET_STS_ERROR;
231: END IF;
232: RETURN(l_tbcv_rec);
233: END get_rec;
234: -----------------------------------------------------------
370: ) RETURN tbc_rec_type IS
371: l_tbc_rec tbc_rec_type;
372: l_row_notfound BOOLEAN := TRUE;
373: BEGIN
374: x_return_status := OKL_API.G_RET_STS_SUCCESS;
375: l_tbc_rec := get_rec(p_tbc_rec, l_row_notfound);
376: IF (l_row_notfound) THEN
377: OKc_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_ATTRIBUTE_DEF_ID');
378: x_return_status := OKL_API.G_RET_STS_ERROR;
374: x_return_status := OKL_API.G_RET_STS_SUCCESS;
375: l_tbc_rec := get_rec(p_tbc_rec, l_row_notfound);
376: IF (l_row_notfound) THEN
377: OKc_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_ATTRIBUTE_DEF_ID');
378: x_return_status := OKL_API.G_RET_STS_ERROR;
379: END IF;
380: RETURN(l_tbc_rec);
381: END get_rec;
382: -----------------------------------------------------------
396: p_tbcv_rec IN tbcv_rec_type
397: ) RETURN tbcv_rec_type IS
398: l_tbcv_rec tbcv_rec_type := p_tbcv_rec;
399: BEGIN
400: /*IF (l_tbcv_rec.id = OKL_API.G_MISS_NUM ) THEN
401: l_tbcv_rec.id := NULL;
402: END IF;
403: IF (l_tbcv_rec.org_id = OKL_API.G_MISS_NUM ) THEN
404: l_tbcv_rec.org_id := NULL;
399: BEGIN
400: /*IF (l_tbcv_rec.id = OKL_API.G_MISS_NUM ) THEN
401: l_tbcv_rec.id := NULL;
402: END IF;
403: IF (l_tbcv_rec.org_id = OKL_API.G_MISS_NUM ) THEN
404: l_tbcv_rec.org_id := NULL;
405: END IF; */
406:
407: -- modified by dcshanmu for eBTax project - modification start
405: END IF; */
406:
407: -- modified by dcshanmu for eBTax project - modification start
408: -- changed tbc_code to result_code, because of data model change
409: IF (l_tbcv_rec.result_code = OKL_API.G_MISS_CHAR ) THEN
410: l_tbcv_rec.result_code := NULL;
411: END IF;
412: -- modified by dcshanmu for eBTax project - modification end
413:
410: l_tbcv_rec.result_code := NULL;
411: END IF;
412: -- modified by dcshanmu for eBTax project - modification end
413:
414: IF (l_tbcv_rec.purchase_option_code = OKL_API.G_MISS_CHAR ) THEN
415: l_tbcv_rec.purchase_option_code := NULL;
416: END IF;
417: IF (l_tbcv_rec.pdt_id = OKL_API.G_MISS_NUM ) THEN
418: l_tbcv_rec.pdt_id := NULL;
413:
414: IF (l_tbcv_rec.purchase_option_code = OKL_API.G_MISS_CHAR ) THEN
415: l_tbcv_rec.purchase_option_code := NULL;
416: END IF;
417: IF (l_tbcv_rec.pdt_id = OKL_API.G_MISS_NUM ) THEN
418: l_tbcv_rec.pdt_id := NULL;
419: END IF;
420: IF (l_tbcv_rec.try_id = OKL_API.G_MISS_NUM ) THEN
421: l_tbcv_rec.try_id := NULL;
416: END IF;
417: IF (l_tbcv_rec.pdt_id = OKL_API.G_MISS_NUM ) THEN
418: l_tbcv_rec.pdt_id := NULL;
419: END IF;
420: IF (l_tbcv_rec.try_id = OKL_API.G_MISS_NUM ) THEN
421: l_tbcv_rec.try_id := NULL;
422: END IF;
423: IF (l_tbcv_rec.sty_id = OKL_API.G_MISS_NUM ) THEN
424: l_tbcv_rec.sty_id := NULL;
419: END IF;
420: IF (l_tbcv_rec.try_id = OKL_API.G_MISS_NUM ) THEN
421: l_tbcv_rec.try_id := NULL;
422: END IF;
423: IF (l_tbcv_rec.sty_id = OKL_API.G_MISS_NUM ) THEN
424: l_tbcv_rec.sty_id := NULL;
425: END IF;
426: IF (l_tbcv_rec.int_disclosed_code = OKL_API.G_MISS_CHAR ) THEN
427: l_tbcv_rec.int_disclosed_code := NULL;
422: END IF;
423: IF (l_tbcv_rec.sty_id = OKL_API.G_MISS_NUM ) THEN
424: l_tbcv_rec.sty_id := NULL;
425: END IF;
426: IF (l_tbcv_rec.int_disclosed_code = OKL_API.G_MISS_CHAR ) THEN
427: l_tbcv_rec.int_disclosed_code := NULL;
428: END IF;
429: IF (l_tbcv_rec.title_trnsfr_code = OKL_API.G_MISS_CHAR ) THEN
430: l_tbcv_rec.title_trnsfr_code := NULL;
425: END IF;
426: IF (l_tbcv_rec.int_disclosed_code = OKL_API.G_MISS_CHAR ) THEN
427: l_tbcv_rec.int_disclosed_code := NULL;
428: END IF;
429: IF (l_tbcv_rec.title_trnsfr_code = OKL_API.G_MISS_CHAR ) THEN
430: l_tbcv_rec.title_trnsfr_code := NULL;
431: END IF;
432: IF (l_tbcv_rec.sale_lease_back_code = OKL_API.G_MISS_CHAR ) THEN
433: l_tbcv_rec.sale_lease_back_code := NULL;
428: END IF;
429: IF (l_tbcv_rec.title_trnsfr_code = OKL_API.G_MISS_CHAR ) THEN
430: l_tbcv_rec.title_trnsfr_code := NULL;
431: END IF;
432: IF (l_tbcv_rec.sale_lease_back_code = OKL_API.G_MISS_CHAR ) THEN
433: l_tbcv_rec.sale_lease_back_code := NULL;
434: END IF;
435: IF (l_tbcv_rec.lease_purchased_code = OKL_API.G_MISS_CHAR ) THEN
436: l_tbcv_rec.lease_purchased_code := NULL;
431: END IF;
432: IF (l_tbcv_rec.sale_lease_back_code = OKL_API.G_MISS_CHAR ) THEN
433: l_tbcv_rec.sale_lease_back_code := NULL;
434: END IF;
435: IF (l_tbcv_rec.lease_purchased_code = OKL_API.G_MISS_CHAR ) THEN
436: l_tbcv_rec.lease_purchased_code := NULL;
437: END IF;
438: IF (l_tbcv_rec.equip_usage_code = OKL_API.G_MISS_CHAR ) THEN
439: l_tbcv_rec.equip_usage_code := NULL;
434: END IF;
435: IF (l_tbcv_rec.lease_purchased_code = OKL_API.G_MISS_CHAR ) THEN
436: l_tbcv_rec.lease_purchased_code := NULL;
437: END IF;
438: IF (l_tbcv_rec.equip_usage_code = OKL_API.G_MISS_CHAR ) THEN
439: l_tbcv_rec.equip_usage_code := NULL;
440: END IF;
441: IF (l_tbcv_rec.vendor_site_id = OKL_API.G_MISS_NUM ) THEN
442: l_tbcv_rec.vendor_site_id := NULL;
437: END IF;
438: IF (l_tbcv_rec.equip_usage_code = OKL_API.G_MISS_CHAR ) THEN
439: l_tbcv_rec.equip_usage_code := NULL;
440: END IF;
441: IF (l_tbcv_rec.vendor_site_id = OKL_API.G_MISS_NUM ) THEN
442: l_tbcv_rec.vendor_site_id := NULL;
443: END IF;
444: IF (l_tbcv_rec.age_of_equip_from = OKL_API.G_MISS_NUM ) THEN
445: l_tbcv_rec.age_of_equip_from := NULL;
440: END IF;
441: IF (l_tbcv_rec.vendor_site_id = OKL_API.G_MISS_NUM ) THEN
442: l_tbcv_rec.vendor_site_id := NULL;
443: END IF;
444: IF (l_tbcv_rec.age_of_equip_from = OKL_API.G_MISS_NUM ) THEN
445: l_tbcv_rec.age_of_equip_from := NULL;
446: END IF;
447: IF (l_tbcv_rec.age_of_equip_to = OKL_API.G_MISS_NUM ) THEN
448: l_tbcv_rec.age_of_equip_to := NULL;
443: END IF;
444: IF (l_tbcv_rec.age_of_equip_from = OKL_API.G_MISS_NUM ) THEN
445: l_tbcv_rec.age_of_equip_from := NULL;
446: END IF;
447: IF (l_tbcv_rec.age_of_equip_to = OKL_API.G_MISS_NUM ) THEN
448: l_tbcv_rec.age_of_equip_to := NULL;
449: END IF;
450: IF (l_tbcv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
451: l_tbcv_rec.object_version_number := NULL;
446: END IF;
447: IF (l_tbcv_rec.age_of_equip_to = OKL_API.G_MISS_NUM ) THEN
448: l_tbcv_rec.age_of_equip_to := NULL;
449: END IF;
450: IF (l_tbcv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
451: l_tbcv_rec.object_version_number := NULL;
452: END IF;
453: IF (l_tbcv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
454: l_tbcv_rec.attribute_category := NULL;
449: END IF;
450: IF (l_tbcv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
451: l_tbcv_rec.object_version_number := NULL;
452: END IF;
453: IF (l_tbcv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
454: l_tbcv_rec.attribute_category := NULL;
455: END IF;
456: IF (l_tbcv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
457: l_tbcv_rec.attribute1 := NULL;
452: END IF;
453: IF (l_tbcv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
454: l_tbcv_rec.attribute_category := NULL;
455: END IF;
456: IF (l_tbcv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
457: l_tbcv_rec.attribute1 := NULL;
458: END IF;
459: IF (l_tbcv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
460: l_tbcv_rec.attribute2 := NULL;
455: END IF;
456: IF (l_tbcv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
457: l_tbcv_rec.attribute1 := NULL;
458: END IF;
459: IF (l_tbcv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
460: l_tbcv_rec.attribute2 := NULL;
461: END IF;
462: IF (l_tbcv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
463: l_tbcv_rec.attribute3 := NULL;
458: END IF;
459: IF (l_tbcv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
460: l_tbcv_rec.attribute2 := NULL;
461: END IF;
462: IF (l_tbcv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
463: l_tbcv_rec.attribute3 := NULL;
464: END IF;
465: IF (l_tbcv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
466: l_tbcv_rec.attribute4 := NULL;
461: END IF;
462: IF (l_tbcv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
463: l_tbcv_rec.attribute3 := NULL;
464: END IF;
465: IF (l_tbcv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
466: l_tbcv_rec.attribute4 := NULL;
467: END IF;
468: IF (l_tbcv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
469: l_tbcv_rec.attribute5 := NULL;
464: END IF;
465: IF (l_tbcv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
466: l_tbcv_rec.attribute4 := NULL;
467: END IF;
468: IF (l_tbcv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
469: l_tbcv_rec.attribute5 := NULL;
470: END IF;
471: IF (l_tbcv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
472: l_tbcv_rec.attribute6 := NULL;
467: END IF;
468: IF (l_tbcv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
469: l_tbcv_rec.attribute5 := NULL;
470: END IF;
471: IF (l_tbcv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
472: l_tbcv_rec.attribute6 := NULL;
473: END IF;
474: IF (l_tbcv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
475: l_tbcv_rec.attribute7 := NULL;
470: END IF;
471: IF (l_tbcv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
472: l_tbcv_rec.attribute6 := NULL;
473: END IF;
474: IF (l_tbcv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
475: l_tbcv_rec.attribute7 := NULL;
476: END IF;
477: IF (l_tbcv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
478: l_tbcv_rec.attribute8 := NULL;
473: END IF;
474: IF (l_tbcv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
475: l_tbcv_rec.attribute7 := NULL;
476: END IF;
477: IF (l_tbcv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
478: l_tbcv_rec.attribute8 := NULL;
479: END IF;
480: IF (l_tbcv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
481: l_tbcv_rec.attribute9 := NULL;
476: END IF;
477: IF (l_tbcv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
478: l_tbcv_rec.attribute8 := NULL;
479: END IF;
480: IF (l_tbcv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
481: l_tbcv_rec.attribute9 := NULL;
482: END IF;
483: IF (l_tbcv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
484: l_tbcv_rec.attribute10 := NULL;
479: END IF;
480: IF (l_tbcv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
481: l_tbcv_rec.attribute9 := NULL;
482: END IF;
483: IF (l_tbcv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
484: l_tbcv_rec.attribute10 := NULL;
485: END IF;
486: IF (l_tbcv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
487: l_tbcv_rec.attribute11 := NULL;
482: END IF;
483: IF (l_tbcv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
484: l_tbcv_rec.attribute10 := NULL;
485: END IF;
486: IF (l_tbcv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
487: l_tbcv_rec.attribute11 := NULL;
488: END IF;
489: IF (l_tbcv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
490: l_tbcv_rec.attribute12 := NULL;
485: END IF;
486: IF (l_tbcv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
487: l_tbcv_rec.attribute11 := NULL;
488: END IF;
489: IF (l_tbcv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
490: l_tbcv_rec.attribute12 := NULL;
491: END IF;
492: IF (l_tbcv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
493: l_tbcv_rec.attribute13 := NULL;
488: END IF;
489: IF (l_tbcv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
490: l_tbcv_rec.attribute12 := NULL;
491: END IF;
492: IF (l_tbcv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
493: l_tbcv_rec.attribute13 := NULL;
494: END IF;
495: IF (l_tbcv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
496: l_tbcv_rec.attribute14 := NULL;
491: END IF;
492: IF (l_tbcv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
493: l_tbcv_rec.attribute13 := NULL;
494: END IF;
495: IF (l_tbcv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
496: l_tbcv_rec.attribute14 := NULL;
497: END IF;
498: IF (l_tbcv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
499: l_tbcv_rec.attribute15 := NULL;
494: END IF;
495: IF (l_tbcv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
496: l_tbcv_rec.attribute14 := NULL;
497: END IF;
498: IF (l_tbcv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
499: l_tbcv_rec.attribute15 := NULL;
500: END IF;
501: IF (l_tbcv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
502: l_tbcv_rec.created_by := NULL;
497: END IF;
498: IF (l_tbcv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
499: l_tbcv_rec.attribute15 := NULL;
500: END IF;
501: IF (l_tbcv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
502: l_tbcv_rec.created_by := NULL;
503: END IF;
504: IF (l_tbcv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
505: l_tbcv_rec.creation_date := NULL;
500: END IF;
501: IF (l_tbcv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
502: l_tbcv_rec.created_by := NULL;
503: END IF;
504: IF (l_tbcv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
505: l_tbcv_rec.creation_date := NULL;
506: END IF;
507: IF (l_tbcv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
508: l_tbcv_rec.last_updated_by := NULL;
503: END IF;
504: IF (l_tbcv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
505: l_tbcv_rec.creation_date := NULL;
506: END IF;
507: IF (l_tbcv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
508: l_tbcv_rec.last_updated_by := NULL;
509: END IF;
510: IF (l_tbcv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
511: l_tbcv_rec.last_update_date := NULL;
506: END IF;
507: IF (l_tbcv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
508: l_tbcv_rec.last_updated_by := NULL;
509: END IF;
510: IF (l_tbcv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
511: l_tbcv_rec.last_update_date := NULL;
512: END IF;
513: IF (l_tbcv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
514: l_tbcv_rec.last_update_login := NULL;
509: END IF;
510: IF (l_tbcv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
511: l_tbcv_rec.last_update_date := NULL;
512: END IF;
513: IF (l_tbcv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
514: l_tbcv_rec.last_update_login := NULL;
515: END IF;
516:
517: -- modified by dcshanmu for eBTax project - modification start
515: END IF;
516:
517: -- modified by dcshanmu for eBTax project - modification start
518: -- added null default implementation to new columns added in the table
519: IF (l_tbcv_rec.tax_attribute_def_id = OKL_API.G_MISS_NUM ) THEN
520: l_tbcv_rec.tax_attribute_def_id := NULL;
521: END IF;
522: IF (l_tbcv_rec.result_type_code = OKL_API.G_MISS_CHAR ) THEN
523: l_tbcv_rec.result_type_code := NULL;
518: -- added null default implementation to new columns added in the table
519: IF (l_tbcv_rec.tax_attribute_def_id = OKL_API.G_MISS_NUM ) THEN
520: l_tbcv_rec.tax_attribute_def_id := NULL;
521: END IF;
522: IF (l_tbcv_rec.result_type_code = OKL_API.G_MISS_CHAR ) THEN
523: l_tbcv_rec.result_type_code := NULL;
524: END IF;
525: IF (l_tbcv_rec.book_class_code = OKL_API.G_MISS_CHAR ) THEN
526: l_tbcv_rec.book_class_code := NULL;
521: END IF;
522: IF (l_tbcv_rec.result_type_code = OKL_API.G_MISS_CHAR ) THEN
523: l_tbcv_rec.result_type_code := NULL;
524: END IF;
525: IF (l_tbcv_rec.book_class_code = OKL_API.G_MISS_CHAR ) THEN
526: l_tbcv_rec.book_class_code := NULL;
527: END IF;
528: IF (l_tbcv_rec.date_effective_from = OKL_API.G_MISS_DATE ) THEN
529: l_tbcv_rec.date_effective_from := NULL;
524: END IF;
525: IF (l_tbcv_rec.book_class_code = OKL_API.G_MISS_CHAR ) THEN
526: l_tbcv_rec.book_class_code := NULL;
527: END IF;
528: IF (l_tbcv_rec.date_effective_from = OKL_API.G_MISS_DATE ) THEN
529: l_tbcv_rec.date_effective_from := NULL;
530: END IF;
531: IF (l_tbcv_rec.date_effective_to = OKL_API.G_MISS_DATE ) THEN
532: l_tbcv_rec.date_effective_to := NULL;
527: END IF;
528: IF (l_tbcv_rec.date_effective_from = OKL_API.G_MISS_DATE ) THEN
529: l_tbcv_rec.date_effective_from := NULL;
530: END IF;
531: IF (l_tbcv_rec.date_effective_to = OKL_API.G_MISS_DATE ) THEN
532: l_tbcv_rec.date_effective_to := NULL;
533: END IF;
534: IF (l_tbcv_rec.tax_country_code = OKL_API.G_MISS_CHAR ) THEN
535: l_tbcv_rec.tax_country_code := NULL;
530: END IF;
531: IF (l_tbcv_rec.date_effective_to = OKL_API.G_MISS_DATE ) THEN
532: l_tbcv_rec.date_effective_to := NULL;
533: END IF;
534: IF (l_tbcv_rec.tax_country_code = OKL_API.G_MISS_CHAR ) THEN
535: l_tbcv_rec.tax_country_code := NULL;
536: END IF;
537: IF (l_tbcv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR ) THEN
538: l_tbcv_rec.term_quote_type_code := NULL;
533: END IF;
534: IF (l_tbcv_rec.tax_country_code = OKL_API.G_MISS_CHAR ) THEN
535: l_tbcv_rec.tax_country_code := NULL;
536: END IF;
537: IF (l_tbcv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR ) THEN
538: l_tbcv_rec.term_quote_type_code := NULL;
539: END IF;
540: IF (l_tbcv_rec.term_quote_reason_code = OKL_API.G_MISS_CHAR ) THEN
541: l_tbcv_rec.term_quote_reason_code := NULL;
536: END IF;
537: IF (l_tbcv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR ) THEN
538: l_tbcv_rec.term_quote_type_code := NULL;
539: END IF;
540: IF (l_tbcv_rec.term_quote_reason_code = OKL_API.G_MISS_CHAR ) THEN
541: l_tbcv_rec.term_quote_reason_code := NULL;
542: END IF;
543: IF (l_tbcv_rec.expire_flag = OKL_API.G_MISS_CHAR ) THEN
544: l_tbcv_rec.expire_flag := NULL;
539: END IF;
540: IF (l_tbcv_rec.term_quote_reason_code = OKL_API.G_MISS_CHAR ) THEN
541: l_tbcv_rec.term_quote_reason_code := NULL;
542: END IF;
543: IF (l_tbcv_rec.expire_flag = OKL_API.G_MISS_CHAR ) THEN
544: l_tbcv_rec.expire_flag := NULL;
545: END IF;
546: -- modified by dcshanmu for eBTax project - modification end
547:
555: p_tbcv_rec IN tbcv_rec_type) IS
556: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
557: BEGIN
558:
559: IF (p_tbcv_rec.id = OKL_API.G_MISS_NUM OR p_tbcv_rec.id IS NULL)
560: THEN
561: OKl_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'TAX_ATTRIBUTE_DEF_ID');
562: l_return_status := OKL_API.G_RET_STS_ERROR;
563:
557: BEGIN
558:
559: IF (p_tbcv_rec.id = OKL_API.G_MISS_NUM OR p_tbcv_rec.id IS NULL)
560: THEN
561: OKl_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'TAX_ATTRIBUTE_DEF_ID');
562: l_return_status := OKL_API.G_RET_STS_ERROR;
563:
564: END IF;
565: x_return_status := l_return_status;
558:
559: IF (p_tbcv_rec.id = OKL_API.G_MISS_NUM OR p_tbcv_rec.id IS NULL)
560: THEN
561: OKl_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'TAX_ATTRIBUTE_DEF_ID');
562: l_return_status := OKL_API.G_RET_STS_ERROR;
563:
564: END IF;
565: x_return_status := l_return_status;
566: EXCEPTION
565: x_return_status := l_return_status;
566: EXCEPTION
567:
568: WHEN OTHERS THEN
569: OKl_API.SET_MESSAGE( p_app_name => G_APP_NAME
570: ,p_msg_name => G_UNEXPECTED_ERROR
571: ,p_token1 => G_SQLCODE_TOKEN
572: ,p_token1_value => SQLCODE
573: ,p_token2 => G_SQLERRM_TOKEN
571: ,p_token1 => G_SQLCODE_TOKEN
572: ,p_token1_value => SQLCODE
573: ,p_token2 => G_SQLERRM_TOKEN
574: ,p_token2_value => SQLERRM);
575: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
576: END validate_id;*/
577:
578: -- modified by dcshanmu for eBTax project - modification start
579: -- modified tbc_code to result_code due to datamodel change
602: WHERE classification_code = p_lookup_code;
603:
604: BEGIN
605:
606: IF (p_tbcv_rec.result_code = OKL_API.G_MISS_CHAR OR p_tbcv_rec.result_code IS NULL)
607: THEN
608: Okl_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'result_code');
609: l_return_status := OKL_API.G_RET_STS_ERROR;
610: ELSE
604: BEGIN
605:
606: IF (p_tbcv_rec.result_code = OKL_API.G_MISS_CHAR OR p_tbcv_rec.result_code IS NULL)
607: THEN
608: Okl_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'result_code');
609: l_return_status := OKL_API.G_RET_STS_ERROR;
610: ELSE
611: -- enforce foreign key
612:
605:
606: IF (p_tbcv_rec.result_code = OKL_API.G_MISS_CHAR OR p_tbcv_rec.result_code IS NULL)
607: THEN
608: Okl_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'result_code');
609: l_return_status := OKL_API.G_RET_STS_ERROR;
610: ELSE
611: -- enforce foreign key
612:
613: IF (p_tbcv_rec.result_type_code = 'TBC_CODE')
677: x_return_status := l_return_status;
678: EXCEPTION
679:
680: WHEN OTHERS THEN
681: OKl_API.SET_MESSAGE( p_app_name => G_APP_NAME
682: ,p_msg_name => G_UNEXPECTED_ERROR
683: ,p_token1 => G_SQLCODE_TOKEN
684: ,p_token1_value => SQLCODE
685: ,p_token2 => G_SQLERRM_TOKEN
683: ,p_token1 => G_SQLCODE_TOKEN
684: ,p_token1_value => SQLCODE
685: ,p_token2 => G_SQLERRM_TOKEN
686: ,p_token2_value => SQLERRM);
687: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
688: END validate_result_code;
689: -- modified by dcshanmu for eBTax project - modification end
690:
691: ---------------------------------------------------
705: AND fnd_lookup_values.lookup_type = p_lookup_type;
706:
707: BEGIN
708:
709: IF (p_tbcv_rec.purchase_option_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.purchase_option_code IS NOT NULL)
710: THEN
711: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'purchase_option_code');
712: --l_return_status := OKL_API.G_RET_STS_ERROR;
713: --ELSE
707: BEGIN
708:
709: IF (p_tbcv_rec.purchase_option_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.purchase_option_code IS NOT NULL)
710: THEN
711: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'purchase_option_code');
712: --l_return_status := OKL_API.G_RET_STS_ERROR;
713: --ELSE
714: -- enforce foreign key
715:
708:
709: IF (p_tbcv_rec.purchase_option_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.purchase_option_code IS NOT NULL)
710: THEN
711: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'purchase_option_code');
712: --l_return_status := OKL_API.G_RET_STS_ERROR;
713: --ELSE
714: -- enforce foreign key
715:
716: OPEN okl_tbcv_prch_fk_csr(p_tbcv_rec.purchase_option_code, 'OKL_EOT_OPTION') ;
733: x_return_status := l_return_status;
734: EXCEPTION
735:
736: WHEN OTHERS THEN
737: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
738: ,p_msg_name => G_UNEXPECTED_ERROR
739: ,p_token1 => G_SQLCODE_TOKEN
740: ,p_token1_value => SQLCODE
741: ,p_token2 => G_SQLERRM_TOKEN
739: ,p_token1 => G_SQLCODE_TOKEN
740: ,p_token1_value => SQLCODE
741: ,p_token2 => G_SQLERRM_TOKEN
742: ,p_token2_value => SQLERRM);
743: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
744: END validate_purchase_option_code;
745: -------------------------------------
746: -- Validate_Attributes for: PDT_ID --
747: -------------------------------------
759: AND product_status_code = 'APPROVED';
760:
761: BEGIN
762:
763: IF (p_tbcv_rec.pdt_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.pdt_id IS NOT NULL)
764: THEN
765: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pdt_id');
766: --l_return_status := OKL_API.G_RET_STS_ERROR;
767: --ELSE
761: BEGIN
762:
763: IF (p_tbcv_rec.pdt_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.pdt_id IS NOT NULL)
764: THEN
765: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pdt_id');
766: --l_return_status := OKL_API.G_RET_STS_ERROR;
767: --ELSE
768: -- enforce foreign key
769: OPEN okl_tbcv_pdt_fk_csr(p_tbcv_rec.pdt_id) ;
762:
763: IF (p_tbcv_rec.pdt_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.pdt_id IS NOT NULL)
764: THEN
765: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pdt_id');
766: --l_return_status := OKL_API.G_RET_STS_ERROR;
767: --ELSE
768: -- enforce foreign key
769: OPEN okl_tbcv_pdt_fk_csr(p_tbcv_rec.pdt_id) ;
770: FETCH okl_tbcv_pdt_fk_csr into l_dummy_var ;
787: x_return_status := l_return_status;
788: EXCEPTION
789:
790: WHEN OTHERS THEN
791: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
792: ,p_msg_name => G_UNEXPECTED_ERROR
793: ,p_token1 => G_SQLCODE_TOKEN
794: ,p_token1_value => SQLCODE
795: ,p_token2 => G_SQLERRM_TOKEN
793: ,p_token1 => G_SQLCODE_TOKEN
794: ,p_token1_value => SQLCODE
795: ,p_token2 => G_SQLERRM_TOKEN
796: ,p_token2_value => SQLERRM);
797: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
798: END validate_pdt_id;
799: -------------------------------------
800: -- Validate_Attributes for: TRY_ID --
801: -------------------------------------
812: WHERE id = p_id;
813:
814: BEGIN
815:
816: IF (p_tbcv_rec.try_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.try_id IS NOT NULL)
817: THEN
818: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
819: --l_return_status := OKL_API.G_RET_STS_ERROR;
820: --ELSE
814: BEGIN
815:
816: IF (p_tbcv_rec.try_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.try_id IS NOT NULL)
817: THEN
818: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
819: --l_return_status := OKL_API.G_RET_STS_ERROR;
820: --ELSE
821: -- enforce foreign key
822: OPEN okl_tbcv_try_fk_csr(p_tbcv_rec.try_id) ;
815:
816: IF (p_tbcv_rec.try_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.try_id IS NOT NULL)
817: THEN
818: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'try_id');
819: --l_return_status := OKL_API.G_RET_STS_ERROR;
820: --ELSE
821: -- enforce foreign key
822: OPEN okl_tbcv_try_fk_csr(p_tbcv_rec.try_id) ;
823: FETCH okl_tbcv_try_fk_csr into l_dummy_var ;
839: x_return_status := l_return_status;
840: EXCEPTION
841:
842: WHEN OTHERS THEN
843: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
844: ,p_msg_name => G_UNEXPECTED_ERROR
845: ,p_token1 => G_SQLCODE_TOKEN
846: ,p_token1_value => SQLCODE
847: ,p_token2 => G_SQLERRM_TOKEN
845: ,p_token1 => G_SQLCODE_TOKEN
846: ,p_token1_value => SQLCODE
847: ,p_token2 => G_SQLERRM_TOKEN
848: ,p_token2_value => SQLERRM);
849: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
850: END validate_try_id;
851: -------------------------------------
852: -- Validate_Attributes for: STY_ID --
853: -------------------------------------
864: WHERE id = p_id;
865:
866: BEGIN
867:
868: IF (p_tbcv_rec.sty_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.sty_id IS NOT NULL)
869: THEN
870: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
871: --l_return_status := OKL_API.G_RET_STS_ERROR;
872: --ELSE
866: BEGIN
867:
868: IF (p_tbcv_rec.sty_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.sty_id IS NOT NULL)
869: THEN
870: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
871: --l_return_status := OKL_API.G_RET_STS_ERROR;
872: --ELSE
873: -- enforce foreign key
874: OPEN okl_tbcv_sty_fk_csr(p_tbcv_rec.sty_id) ;
867:
868: IF (p_tbcv_rec.sty_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.sty_id IS NOT NULL)
869: THEN
870: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
871: --l_return_status := OKL_API.G_RET_STS_ERROR;
872: --ELSE
873: -- enforce foreign key
874: OPEN okl_tbcv_sty_fk_csr(p_tbcv_rec.sty_id) ;
875: FETCH okl_tbcv_sty_fk_csr into l_dummy_var ;
891: x_return_status := l_return_status;
892: EXCEPTION
893:
894: WHEN OTHERS THEN
895: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
896: ,p_msg_name => G_UNEXPECTED_ERROR
897: ,p_token1 => G_SQLCODE_TOKEN
898: ,p_token1_value => SQLCODE
899: ,p_token2 => G_SQLERRM_TOKEN
897: ,p_token1 => G_SQLCODE_TOKEN
898: ,p_token1_value => SQLCODE
899: ,p_token2 => G_SQLERRM_TOKEN
900: ,p_token2_value => SQLERRM);
901: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
902: END validate_sty_id;
903: -------------------------------------------------
904: -- Validate_Attributes for: INT_DISCLOSED_CODE --
905: -------------------------------------------------
916: WHERE fnd_lookup_values.lookup_code = p_lookup_code
917: AND fnd_lookup_values.lookup_type = p_lookup_type;
918: BEGIN
919:
920: IF (p_tbcv_rec.int_disclosed_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.int_disclosed_code IS NOT NULL)
921: THEN
922: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'int_disclosed_code');
923: --l_return_status := OKL_API.G_RET_STS_ERROR;
924: --ELSE
918: BEGIN
919:
920: IF (p_tbcv_rec.int_disclosed_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.int_disclosed_code IS NOT NULL)
921: THEN
922: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'int_disclosed_code');
923: --l_return_status := OKL_API.G_RET_STS_ERROR;
924: --ELSE
925: -- enforce foreign key
926: OPEN okl_tbcv_int_fk_csr(p_tbcv_rec.int_disclosed_code, 'YES_NO') ;
919:
920: IF (p_tbcv_rec.int_disclosed_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.int_disclosed_code IS NOT NULL)
921: THEN
922: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'int_disclosed_code');
923: --l_return_status := OKL_API.G_RET_STS_ERROR;
924: --ELSE
925: -- enforce foreign key
926: OPEN okl_tbcv_int_fk_csr(p_tbcv_rec.int_disclosed_code, 'YES_NO') ;
927: FETCH okl_tbcv_int_fk_csr INTO l_dummy_var ;
943: x_return_status := l_return_status;
944: EXCEPTION
945:
946: WHEN OTHERS THEN
947: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
948: ,p_msg_name => G_UNEXPECTED_ERROR
949: ,p_token1 => G_SQLCODE_TOKEN
950: ,p_token1_value => SQLCODE
951: ,p_token2 => G_SQLERRM_TOKEN
949: ,p_token1 => G_SQLCODE_TOKEN
950: ,p_token1_value => SQLCODE
951: ,p_token2 => G_SQLERRM_TOKEN
952: ,p_token2_value => SQLERRM);
953: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
954: END validate_int_disclosed_code;
955: ------------------------------------------------
956: -- Validate_Attributes for: TITLE_TRNSFR_CODE --
957: ------------------------------------------------
969: WHERE fnd_lookup_values.lookup_code = p_lookup_code
970: AND fnd_lookup_values.lookup_type = p_lookup_type;
971: BEGIN
972:
973: IF (p_tbcv_rec.title_trnsfr_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.title_trnsfr_code IS NOT NULL)
974: THEN
975: OPEN okl_tbcv_title_fk_csr(p_tbcv_rec.title_trnsfr_code, 'YES_NO') ;
976: FETCH okl_tbcv_title_fk_csr INTO l_dummy_var ;
977: CLOSE okl_tbcv_title_fk_csr ;
992: x_return_status := l_return_status;
993: EXCEPTION
994:
995: WHEN OTHERS THEN
996: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
997: ,p_msg_name => G_UNEXPECTED_ERROR
998: ,p_token1 => G_SQLCODE_TOKEN
999: ,p_token1_value => SQLCODE
1000: ,p_token2 => G_SQLERRM_TOKEN
998: ,p_token1 => G_SQLCODE_TOKEN
999: ,p_token1_value => SQLCODE
1000: ,p_token2 => G_SQLERRM_TOKEN
1001: ,p_token2_value => SQLERRM);
1002: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1003: END validate_title_trnsfr_code;
1004: ---------------------------------------------------
1005: -- Validate_Attributes for: SALE_LEASE_BACK_CODE --
1006: ---------------------------------------------------
1017: WHERE fnd_lookup_values.lookup_code = p_lookup_code
1018: AND fnd_lookup_values.lookup_type = p_lookup_type;
1019: BEGIN
1020:
1021: IF (p_tbcv_rec.sale_lease_back_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.sale_lease_back_code IS NOT NULL)
1022: THEN
1023: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sale_lease_back_code');
1024: --l_return_status := OKL_API.G_RET_STS_ERROR;
1025: --ELSE
1019: BEGIN
1020:
1021: IF (p_tbcv_rec.sale_lease_back_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.sale_lease_back_code IS NOT NULL)
1022: THEN
1023: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sale_lease_back_code');
1024: --l_return_status := OKL_API.G_RET_STS_ERROR;
1025: --ELSE
1026: -- enforce foreign key
1027: OPEN okl_tbcv_salelease_fk_csr(p_tbcv_rec.sale_lease_back_code, 'YES_NO') ;
1020:
1021: IF (p_tbcv_rec.sale_lease_back_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.sale_lease_back_code IS NOT NULL)
1022: THEN
1023: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sale_lease_back_code');
1024: --l_return_status := OKL_API.G_RET_STS_ERROR;
1025: --ELSE
1026: -- enforce foreign key
1027: OPEN okl_tbcv_salelease_fk_csr(p_tbcv_rec.sale_lease_back_code, 'YES_NO') ;
1028: FETCH okl_tbcv_salelease_fk_csr INTO l_dummy_var ;
1043: x_return_status := l_return_status;
1044: EXCEPTION
1045:
1046: WHEN OTHERS THEN
1047: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1048: ,p_msg_name => G_UNEXPECTED_ERROR
1049: ,p_token1 => G_SQLCODE_TOKEN
1050: ,p_token1_value => SQLCODE
1051: ,p_token2 => G_SQLERRM_TOKEN
1049: ,p_token1 => G_SQLCODE_TOKEN
1050: ,p_token1_value => SQLCODE
1051: ,p_token2 => G_SQLERRM_TOKEN
1052: ,p_token2_value => SQLERRM);
1053: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1054: END validate_sale_lease_back_code;
1055: ---------------------------------------------------
1056: -- Validate_Attributes for: LEASE_PURCHASED_CODE --
1057: ---------------------------------------------------
1068: WHERE fnd_lookup_values.lookup_code = p_lookup_code
1069: AND fnd_lookup_values.lookup_type = p_lookup_type;
1070: BEGIN
1071:
1072: IF (p_tbcv_rec.lease_purchased_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.lease_purchased_code IS NOT NULL)
1073: THEN
1074: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'lease_purchased_code');
1075: --l_return_status := OKL_API.G_RET_STS_ERROR;
1076: --ELSE
1070: BEGIN
1071:
1072: IF (p_tbcv_rec.lease_purchased_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.lease_purchased_code IS NOT NULL)
1073: THEN
1074: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'lease_purchased_code');
1075: --l_return_status := OKL_API.G_RET_STS_ERROR;
1076: --ELSE
1077: -- enforce foreign key
1078: OPEN okl_tbcv_saleprch_fk_csr(p_tbcv_rec.lease_purchased_code, 'YES_NO') ;
1071:
1072: IF (p_tbcv_rec.lease_purchased_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.lease_purchased_code IS NOT NULL)
1073: THEN
1074: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'lease_purchased_code');
1075: --l_return_status := OKL_API.G_RET_STS_ERROR;
1076: --ELSE
1077: -- enforce foreign key
1078: OPEN okl_tbcv_saleprch_fk_csr(p_tbcv_rec.lease_purchased_code, 'YES_NO') ;
1079: FETCH okl_tbcv_saleprch_fk_csr INTO l_dummy_var ;
1094: x_return_status := l_return_status;
1095: EXCEPTION
1096:
1097: WHEN OTHERS THEN
1098: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1099: ,p_msg_name => G_UNEXPECTED_ERROR
1100: ,p_token1 => G_SQLCODE_TOKEN
1101: ,p_token1_value => SQLCODE
1102: ,p_token2 => G_SQLERRM_TOKEN
1100: ,p_token1 => G_SQLCODE_TOKEN
1101: ,p_token1_value => SQLCODE
1102: ,p_token2 => G_SQLERRM_TOKEN
1103: ,p_token2_value => SQLERRM);
1104: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1105: END validate_lease_purchased_code;
1106: -----------------------------------------------
1107: -- Validate_Attributes for: EQUIP_USAGE_CODE --
1108: -----------------------------------------------
1120: WHERE classification_code = p_lookup_code;
1121:
1122: BEGIN
1123:
1124: IF (p_tbcv_rec.equip_usage_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.equip_usage_code IS NOT NULL)
1125: THEN
1126: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'equip_usage_code');
1127: --l_return_status := OKL_API.G_RET_STS_ERROR;
1128: --ELSE
1122: BEGIN
1123:
1124: IF (p_tbcv_rec.equip_usage_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.equip_usage_code IS NOT NULL)
1125: THEN
1126: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'equip_usage_code');
1127: --l_return_status := OKL_API.G_RET_STS_ERROR;
1128: --ELSE
1129: -- enforce foreign key
1130: OPEN okl_tbcv_equsg_fk_csr(p_tbcv_rec.equip_usage_code) ;
1123:
1124: IF (p_tbcv_rec.equip_usage_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.equip_usage_code IS NOT NULL)
1125: THEN
1126: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'equip_usage_code');
1127: --l_return_status := OKL_API.G_RET_STS_ERROR;
1128: --ELSE
1129: -- enforce foreign key
1130: OPEN okl_tbcv_equsg_fk_csr(p_tbcv_rec.equip_usage_code) ;
1131: FETCH okl_tbcv_equsg_fk_csr INTO l_dummy_var ;
1146: x_return_status := l_return_status;
1147: EXCEPTION
1148:
1149: WHEN OTHERS THEN
1150: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1151: ,p_msg_name => G_UNEXPECTED_ERROR
1152: ,p_token1 => G_SQLCODE_TOKEN
1153: ,p_token1_value => SQLCODE
1154: ,p_token2 => G_SQLERRM_TOKEN
1152: ,p_token1 => G_SQLCODE_TOKEN
1153: ,p_token1_value => SQLCODE
1154: ,p_token2 => G_SQLERRM_TOKEN
1155: ,p_token2_value => SQLERRM);
1156: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1157: END validate_equip_usage_code;
1158: ---------------------------------------------
1159: -- Validate_Attributes for: VENDOR_SITE_ID --
1160: ---------------------------------------------
1170: FROM Po_vendor_sites_all
1171: WHERE vendor_site_id = p_id;
1172: BEGIN
1173:
1174: IF (p_tbcv_rec.vendor_site_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.vendor_site_id IS NOT NULL)
1175: THEN
1176: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'vendor_site_id');
1177: --l_return_status := OKL_API.G_RET_STS_ERROR;
1178: --ELSE
1172: BEGIN
1173:
1174: IF (p_tbcv_rec.vendor_site_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.vendor_site_id IS NOT NULL)
1175: THEN
1176: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'vendor_site_id');
1177: --l_return_status := OKL_API.G_RET_STS_ERROR;
1178: --ELSE
1179: -- enforce foreign key
1180: OPEN okl_tbcv_vsite_fk_csr(p_tbcv_rec.vendor_site_id) ;
1173:
1174: IF (p_tbcv_rec.vendor_site_id <> OKL_API.G_MISS_NUM AND p_tbcv_rec.vendor_site_id IS NOT NULL)
1175: THEN
1176: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'vendor_site_id');
1177: --l_return_status := OKL_API.G_RET_STS_ERROR;
1178: --ELSE
1179: -- enforce foreign key
1180: OPEN okl_tbcv_vsite_fk_csr(p_tbcv_rec.vendor_site_id) ;
1181: FETCH okl_tbcv_vsite_fk_csr into l_dummy_var ;
1197: x_return_status := l_return_status;
1198: EXCEPTION
1199:
1200: WHEN OTHERS THEN
1201: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1202: ,p_msg_name => G_UNEXPECTED_ERROR
1203: ,p_token1 => G_SQLCODE_TOKEN
1204: ,p_token1_value => SQLCODE
1205: ,p_token2 => G_SQLERRM_TOKEN
1203: ,p_token1 => G_SQLCODE_TOKEN
1204: ,p_token1_value => SQLCODE
1205: ,p_token2 => G_SQLERRM_TOKEN
1206: ,p_token2_value => SQLERRM);
1207: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1208: END validate_vendor_site_id;
1209:
1210:
1211: -------------------------------------
1218:
1219:
1220: BEGIN
1221:
1222: IF (p_tbcv_rec.AGE_OF_EQUIP_FROM <> OKL_API.G_MISS_NUM AND p_tbcv_rec.AGE_OF_EQUIP_FROM IS NOT NULL)
1223: THEN
1224: IF p_tbcv_rec.AGE_OF_EQUIP_FROM < 0 THEN
1225: l_return_status := OKC_API.G_RET_STS_ERROR;
1226: --Unable to create Transcation Business Category definition as none of the attributes are provided.
1231: x_return_status := l_return_status;
1232: EXCEPTION
1233:
1234: WHEN OTHERS THEN
1235: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1236: ,p_msg_name => G_UNEXPECTED_ERROR
1237: ,p_token1 => G_SQLCODE_TOKEN
1238: ,p_token1_value => SQLCODE
1239: ,p_token2 => G_SQLERRM_TOKEN
1237: ,p_token1 => G_SQLCODE_TOKEN
1238: ,p_token1_value => SQLCODE
1239: ,p_token2 => G_SQLERRM_TOKEN
1240: ,p_token2_value => SQLERRM);
1241: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1242: END validate_AGE_OF_EQUIP_FROM;
1243:
1244: -------------------------------------
1245: -- Validate_Attributes for: age_of_equipment_to --
1251:
1252:
1253: BEGIN
1254:
1255: IF (p_tbcv_rec.AGE_OF_EQUIP_TO <> OKL_API.G_MISS_NUM AND p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL)
1256: THEN
1257: IF p_tbcv_rec.AGE_OF_EQUIP_TO < 0 THEN
1258: l_return_status := OKC_API.G_RET_STS_ERROR;
1259: --Unable to create Transcation Business Category definition as none of the attributes are provided.
1264: x_return_status := l_return_status;
1265: EXCEPTION
1266:
1267: WHEN OTHERS THEN
1268: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1269: ,p_msg_name => G_UNEXPECTED_ERROR
1270: ,p_token1 => G_SQLCODE_TOKEN
1271: ,p_token1_value => SQLCODE
1272: ,p_token2 => G_SQLERRM_TOKEN
1270: ,p_token1 => G_SQLCODE_TOKEN
1271: ,p_token1_value => SQLCODE
1272: ,p_token2 => G_SQLERRM_TOKEN
1273: ,p_token2_value => SQLERRM);
1274: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1275: END validate_AGE_OF_EQUIP_TO;
1276:
1277: ----------------------------------------------------
1278: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
1282: p_tbcv_rec IN tbcv_rec_type) IS
1283: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1284: BEGIN
1285:
1286: IF (p_tbcv_rec.object_version_number = OKL_API.G_MISS_NUM OR p_tbcv_rec.object_version_number IS NULL)
1287: THEN
1288: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1289: l_return_status := OKL_API.G_RET_STS_ERROR;
1290:
1284: BEGIN
1285:
1286: IF (p_tbcv_rec.object_version_number = OKL_API.G_MISS_NUM OR p_tbcv_rec.object_version_number IS NULL)
1287: THEN
1288: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1289: l_return_status := OKL_API.G_RET_STS_ERROR;
1290:
1291: END IF;
1292: x_return_status := l_return_status;
1285:
1286: IF (p_tbcv_rec.object_version_number = OKL_API.G_MISS_NUM OR p_tbcv_rec.object_version_number IS NULL)
1287: THEN
1288: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1289: l_return_status := OKL_API.G_RET_STS_ERROR;
1290:
1291: END IF;
1292: x_return_status := l_return_status;
1293: EXCEPTION
1292: x_return_status := l_return_status;
1293: EXCEPTION
1294:
1295: WHEN OTHERS THEN
1296: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1297: ,p_msg_name => G_UNEXPECTED_ERROR
1298: ,p_token1 => G_SQLCODE_TOKEN
1299: ,p_token1_value => SQLCODE
1300: ,p_token2 => G_SQLERRM_TOKEN
1298: ,p_token1 => G_SQLCODE_TOKEN
1299: ,p_token1_value => SQLCODE
1300: ,p_token2 => G_SQLERRM_TOKEN
1301: ,p_token2_value => SQLERRM);
1302: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1303: END validate_object_version_number;
1304:
1305: -- modified by dcshanmu for eBTax project - modification start
1306: -- adding validation methods for new columns
1319: WHERE lookup_code = p_id
1320: AND lookup_type='OKL_TAX_ATTR_TYPE_CODE';
1321: BEGIN
1322:
1323: IF (p_tbcv_rec.result_type_code <> OKL_API.G_MISS_CHAR OR p_tbcv_rec.result_type_code IS NOT NULL)
1324: THEN
1325: OPEN okl_tbcv_res_type_fk_csr(p_tbcv_rec.result_type_code) ;
1326: FETCH okl_tbcv_res_type_fk_csr into l_dummy_var ;
1327: CLOSE okl_tbcv_res_type_fk_csr ;
1342: x_return_status := l_return_status;
1343: EXCEPTION
1344:
1345: WHEN OTHERS THEN
1346: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1347: ,p_msg_name => G_UNEXPECTED_ERROR
1348: ,p_token1 => G_SQLCODE_TOKEN
1349: ,p_token1_value => SQLCODE
1350: ,p_token2 => G_SQLERRM_TOKEN
1348: ,p_token1 => G_SQLCODE_TOKEN
1349: ,p_token1_value => SQLCODE
1350: ,p_token2 => G_SQLERRM_TOKEN
1351: ,p_token2_value => SQLERRM);
1352: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1353: END validate_result_type_code;
1354:
1355: ----------------------------------------------------
1356: -- Validate_Attributes for: BOOK_CLASS_CODE --
1367: WHERE lookup_code = p_id
1368: AND lookup_type='OKL_BOOK_CLASS';
1369: BEGIN
1370:
1371: IF (p_tbcv_rec.book_class_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.book_class_code IS NOT NULL)
1372: THEN
1373: OPEN okl_tbcv_bc_fk_csr(p_tbcv_rec.book_class_code) ;
1374: FETCH okl_tbcv_bc_fk_csr into l_dummy_var ;
1375: CLOSE okl_tbcv_bc_fk_csr ;
1390: x_return_status := l_return_status;
1391: EXCEPTION
1392:
1393: WHEN OTHERS THEN
1394: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1395: ,p_msg_name => G_UNEXPECTED_ERROR
1396: ,p_token1 => G_SQLCODE_TOKEN
1397: ,p_token1_value => SQLCODE
1398: ,p_token2 => G_SQLERRM_TOKEN
1396: ,p_token1 => G_SQLCODE_TOKEN
1397: ,p_token1_value => SQLCODE
1398: ,p_token2 => G_SQLERRM_TOKEN
1399: ,p_token2_value => SQLERRM);
1400: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1401: END validate_book_class_code;
1402:
1403: ----------------------------------------------------
1404: -- Validate_Attributes for: DATE_EFFECTIVE_TO --
1409: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1410:
1411: BEGIN
1412:
1413: IF (p_tbcv_rec.date_effective_from <> OKL_API.G_MISS_DATE AND p_tbcv_rec.date_effective_from IS NOT NULL
1414: AND p_tbcv_rec.date_effective_to <> OKL_API.G_MISS_DATE AND p_tbcv_rec.date_effective_to IS NOT NULL)
1415: THEN
1416: IF (TRUNC(p_tbcv_rec.date_effective_to) < TRUNC(p_tbcv_rec.date_effective_from)) THEN
1417: OKL_API.set_message(p_app_name => G_APP_NAME,
1410:
1411: BEGIN
1412:
1413: IF (p_tbcv_rec.date_effective_from <> OKL_API.G_MISS_DATE AND p_tbcv_rec.date_effective_from IS NOT NULL
1414: AND p_tbcv_rec.date_effective_to <> OKL_API.G_MISS_DATE AND p_tbcv_rec.date_effective_to IS NOT NULL)
1415: THEN
1416: IF (TRUNC(p_tbcv_rec.date_effective_to) < TRUNC(p_tbcv_rec.date_effective_from)) THEN
1417: OKL_API.set_message(p_app_name => G_APP_NAME,
1418: p_msg_name => 'OKL_AM_DATE_EFF_FROM_LESS_TO',
1413: IF (p_tbcv_rec.date_effective_from <> OKL_API.G_MISS_DATE AND p_tbcv_rec.date_effective_from IS NOT NULL
1414: AND p_tbcv_rec.date_effective_to <> OKL_API.G_MISS_DATE AND p_tbcv_rec.date_effective_to IS NOT NULL)
1415: THEN
1416: IF (TRUNC(p_tbcv_rec.date_effective_to) < TRUNC(p_tbcv_rec.date_effective_from)) THEN
1417: OKL_API.set_message(p_app_name => G_APP_NAME,
1418: p_msg_name => 'OKL_AM_DATE_EFF_FROM_LESS_TO',
1419: p_token1 => 'DATE_EFFECTIVE_TO',
1420: p_token1_value => p_tbcv_rec.date_effective_to,
1421: p_token2 => 'DATE_EFFECTIVE_FROM',
1427: x_return_status := l_return_status;
1428: EXCEPTION
1429:
1430: WHEN OTHERS THEN
1431: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1432: ,p_msg_name => G_UNEXPECTED_ERROR
1433: ,p_token1 => G_SQLCODE_TOKEN
1434: ,p_token1_value => SQLCODE
1435: ,p_token2 => G_SQLERRM_TOKEN
1433: ,p_token1 => G_SQLCODE_TOKEN
1434: ,p_token1_value => SQLCODE
1435: ,p_token2 => G_SQLERRM_TOKEN
1436: ,p_token2_value => SQLERRM);
1437: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1438: END validate_date_eff_to;
1439:
1440: ----------------------------------------------------
1441: -- Validate_Attributes for: TAX_COUNTRY_CODE --
1452: WHERE territory_code = p_id;
1453:
1454: BEGIN
1455:
1456: IF (p_tbcv_rec.tax_country_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.tax_country_code IS NOT NULL)
1457: THEN
1458: OPEN okl_tbcv_tx_cntry_code_fk_csr(p_tbcv_rec.tax_country_code) ;
1459: FETCH okl_tbcv_tx_cntry_code_fk_csr into l_dummy_var ;
1460: CLOSE okl_tbcv_tx_cntry_code_fk_csr ;
1475: x_return_status := l_return_status;
1476: EXCEPTION
1477:
1478: WHEN OTHERS THEN
1479: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1480: ,p_msg_name => G_UNEXPECTED_ERROR
1481: ,p_token1 => G_SQLCODE_TOKEN
1482: ,p_token1_value => SQLCODE
1483: ,p_token2 => G_SQLERRM_TOKEN
1481: ,p_token1 => G_SQLCODE_TOKEN
1482: ,p_token1_value => SQLCODE
1483: ,p_token2 => G_SQLERRM_TOKEN
1484: ,p_token2_value => SQLERRM);
1485: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1486: END validate_tax_country_code;
1487:
1488: ----------------------------------------------------
1489: -- Validate_Attributes for: TERM_QUOTE_TYPE_CODE --
1501: AND lookup_type='OKL_QUOTE_TYPE';
1502:
1503: BEGIN
1504:
1505: IF (p_tbcv_rec.term_quote_type_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.term_quote_type_code IS NOT NULL)
1506: THEN
1507: OPEN okl_tbcv_term_qtcode_fk_csr(p_tbcv_rec.term_quote_type_code) ;
1508: FETCH okl_tbcv_term_qtcode_fk_csr into l_dummy_var ;
1509: CLOSE okl_tbcv_term_qtcode_fk_csr ;
1524: x_return_status := l_return_status;
1525: EXCEPTION
1526:
1527: WHEN OTHERS THEN
1528: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1529: ,p_msg_name => G_UNEXPECTED_ERROR
1530: ,p_token1 => G_SQLCODE_TOKEN
1531: ,p_token1_value => SQLCODE
1532: ,p_token2 => G_SQLERRM_TOKEN
1530: ,p_token1 => G_SQLCODE_TOKEN
1531: ,p_token1_value => SQLCODE
1532: ,p_token2 => G_SQLERRM_TOKEN
1533: ,p_token2_value => SQLERRM);
1534: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1535: END validate_term_quote_type_code;
1536:
1537: ----------------------------------------------------
1538: -- Validate_Attributes for: TERM_QUOTE_REASON_CODE --
1550: AND lookup_type='OKL_QUOTE_REASON';
1551:
1552: BEGIN
1553:
1554: IF (p_tbcv_rec.term_quote_reason_code <> OKL_API.G_MISS_CHAR AND p_tbcv_rec.term_quote_reason_code IS NOT NULL)
1555: THEN
1556: OPEN okl_tbcv_term_qrcode_fk_csr(p_tbcv_rec.term_quote_reason_code) ;
1557: FETCH okl_tbcv_term_qrcode_fk_csr into l_dummy_var ;
1558: CLOSE okl_tbcv_term_qrcode_fk_csr ;
1573: x_return_status := l_return_status;
1574: EXCEPTION
1575:
1576: WHEN OTHERS THEN
1577: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1578: ,p_msg_name => G_UNEXPECTED_ERROR
1579: ,p_token1 => G_SQLCODE_TOKEN
1580: ,p_token1_value => SQLCODE
1581: ,p_token2 => G_SQLERRM_TOKEN
1579: ,p_token1 => G_SQLCODE_TOKEN
1580: ,p_token1_value => SQLCODE
1581: ,p_token2 => G_SQLERRM_TOKEN
1582: ,p_token2_value => SQLERRM);
1583: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1584: END validate_term_qt_reason_code;
1585: -- modified by dcshanmu for eBTax project - modification end
1586:
1587: ---------------------------------------------------------------------------
1592: ---------------------------------------------------
1593: FUNCTION Validate_Attributes (
1594: p_tbcv_rec IN tbcv_rec_type
1595: ) RETURN VARCHAR2 IS
1596: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1597: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1598: BEGIN
1599: -----------------------------
1600: -- Column Level Validation --
1593: FUNCTION Validate_Attributes (
1594: p_tbcv_rec IN tbcv_rec_type
1595: ) RETURN VARCHAR2 IS
1596: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1597: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1598: BEGIN
1599: -----------------------------
1600: -- Column Level Validation --
1601: -----------------------------
1882: EXCEPTION
1883: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1884: RETURN(x_return_status);
1885: WHEN OTHERS THEN
1886: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1887: ,p_msg_name => G_UNEXPECTED_ERROR
1888: ,p_token1 => G_SQLCODE_TOKEN
1889: ,p_token1_value => SQLCODE
1890: ,p_token2 => G_SQLERRM_TOKEN
1888: ,p_token1 => G_SQLCODE_TOKEN
1889: ,p_token1_value => SQLCODE
1890: ,p_token2 => G_SQLERRM_TOKEN
1891: ,p_token2_value => SQLERRM);
1892: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1893: RETURN(x_return_status);
1894: END Validate_Attributes;
1895: ---------------------------------------------------------------------------
1896: -- PROCEDURE Validate_Record
1902: FUNCTION Validate_Record (
1903: p_tbcv_rec IN tbcv_rec_type,
1904: p_db_tbcv_rec IN tbcv_rec_type
1905: ) RETURN VARCHAR2 IS
1906: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1907: ------------------------------------
1908: -- FUNCTION validate_foreign_keys --
1909: ------------------------------------
1910: FUNCTION validate_foreign_keys (
1953: WHERE classification_code = p_lookup_code;
1954: --AND lookup_type = p_lookup_type;
1955: l_okl_tbcv_res_code okl_tbcv_res_code_fk_csr%ROWTYPE;
1956:
1957: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1958: l_row_notfound BOOLEAN := TRUE;
1959:
1960: BEGIN
1961:
1967: FETCH okl_tbcv_res_type_fk_csr INTO l_okl_tbcv_res_type;
1968: l_row_notfound := okl_tbcv_res_type_fk_csr%NOTFOUND;
1969: CLOSE okl_tbcv_res_type_fk_csr;
1970: IF (l_row_notfound) THEN
1971: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'RESULT_TYPE_CODE');
1972: RAISE item_not_found_error;
1973: END IF;
1974: END IF;
1975:
1981: FETCH okl_tbcv_res_code_fk_csr INTO l_okl_tbcv_res_code;
1982: l_row_notfound := okl_tbcv_res_code_fk_csr%NOTFOUND;
1983: CLOSE okl_tbcv_res_code_fk_csr;
1984: IF (l_row_notfound) THEN
1985: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'RESULT_CODE');
1986: RAISE item_not_found_error;
1987: END IF;
1988: END IF;
1989:
1995: FETCH okl_tbcv_bc_fk_csr INTO l_okl_tbcv_bc;
1996: l_row_notfound := okl_tbcv_bc_fk_csr%NOTFOUND;
1997: CLOSE okl_tbcv_bc_fk_csr;
1998: IF (l_row_notfound) THEN
1999: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'BOOK_CLASS_CODE');
2000: RAISE item_not_found_error;
2001: END IF;
2002: END IF;
2003:
2009: FETCH okl_tbcv_tx_cntry_code_fk_csr INTO l_okl_tbcv_tx_cntry_code;
2010: l_row_notfound := okl_tbcv_tx_cntry_code_fk_csr%NOTFOUND;
2011: CLOSE okl_tbcv_tx_cntry_code_fk_csr;
2012: IF (l_row_notfound) THEN
2013: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_COUNTRY_CODE');
2014: RAISE item_not_found_error;
2015: END IF;
2016: END IF;
2017:
2023: FETCH okl_tbcv_term_qtcode_fk_csr INTO l_okl_tbcv_term_qtcode;
2024: l_row_notfound := okl_tbcv_term_qtcode_fk_csr%NOTFOUND;
2025: CLOSE okl_tbcv_term_qtcode_fk_csr;
2026: IF (l_row_notfound) THEN
2027: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TERM_QUOTE_TYPE_CODE');
2028: RAISE item_not_found_error;
2029: END IF;
2030: END IF;
2031:
2037: FETCH okl_tbcv_term_qrcode_fk_csr INTO l_okl_tbcv_term_qrcode;
2038: l_row_notfound := okl_tbcv_term_qrcode_fk_csr%NOTFOUND;
2039: CLOSE okl_tbcv_term_qrcode_fk_csr;
2040: IF (l_row_notfound) THEN
2041: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TERM_QUOTE_REASON_CODE');
2042: RAISE item_not_found_error;
2043: END IF;
2044: END IF;
2045:
2046: RETURN (l_return_status);
2047:
2048: EXCEPTION
2049: WHEN item_not_found_error THEN
2050: l_return_status := OKL_API.G_RET_STS_ERROR;
2051: RETURN (l_return_status);
2052:
2053: END Validate_Record;
2054:
2054:
2055: FUNCTION Validate_Record (
2056: p_tbcv_rec IN tbcv_rec_type
2057: ) RETURN VARCHAR2 IS
2058: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2059: l_db_tbcv_rec tbcv_rec_type := get_rec(p_tbcv_rec);
2060: BEGIN
2061: l_return_status := Validate_Record(p_tbcv_rec => p_tbcv_rec,
2062: p_db_tbcv_rec => l_db_tbcv_rec);
2250: AND language = 'US';
2251:
2252:
2253: l_result_code VARCHAR2(300) := 'XXXXX';
2254: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2255: l_meaning VARCHAR2(80);
2256:
2257: l_msg_name VARCHAR2(80);
2258: l_token1 VARCHAR2(10);
2259: l_try_name VARCHAR2(255);
2260:
2261: BEGIN
2262:
2263: IF (--(p_tbcv_rec.PURCHASE_OPTION_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.purchase_option_code IS NULL) AND
2264: --(p_tbcv_rec.PDT_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.PDT_ID IS NULL) AND
2265: --(p_tbcv_rec.TRY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.TRY_ID IS NULL) AND
2266: -- (p_tbcv_rec.STY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.STY_ID IS NULL) AND
2267: -- (p_tbcv_rec.INT_DISCLOSED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.INT_DISCLOSED_CODE IS NULL) AND
2260:
2261: BEGIN
2262:
2263: IF (--(p_tbcv_rec.PURCHASE_OPTION_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.purchase_option_code IS NULL) AND
2264: --(p_tbcv_rec.PDT_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.PDT_ID IS NULL) AND
2265: --(p_tbcv_rec.TRY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.TRY_ID IS NULL) AND
2266: -- (p_tbcv_rec.STY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.STY_ID IS NULL) AND
2267: -- (p_tbcv_rec.INT_DISCLOSED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.INT_DISCLOSED_CODE IS NULL) AND
2268: -- (p_tbcv_rec.TITLE_TRNSFR_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.TITLE_TRNSFR_CODE IS NULL) AND
2261: BEGIN
2262:
2263: IF (--(p_tbcv_rec.PURCHASE_OPTION_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.purchase_option_code IS NULL) AND
2264: --(p_tbcv_rec.PDT_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.PDT_ID IS NULL) AND
2265: --(p_tbcv_rec.TRY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.TRY_ID IS NULL) AND
2266: -- (p_tbcv_rec.STY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.STY_ID IS NULL) AND
2267: -- (p_tbcv_rec.INT_DISCLOSED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.INT_DISCLOSED_CODE IS NULL) AND
2268: -- (p_tbcv_rec.TITLE_TRNSFR_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.TITLE_TRNSFR_CODE IS NULL) AND
2269: -- (p_tbcv_rec.SALE_LEASE_BACK_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.SALE_LEASE_BACK_CODE IS NULL) AND
2262:
2263: IF (--(p_tbcv_rec.PURCHASE_OPTION_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.purchase_option_code IS NULL) AND
2264: --(p_tbcv_rec.PDT_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.PDT_ID IS NULL) AND
2265: --(p_tbcv_rec.TRY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.TRY_ID IS NULL) AND
2266: -- (p_tbcv_rec.STY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.STY_ID IS NULL) AND
2267: -- (p_tbcv_rec.INT_DISCLOSED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.INT_DISCLOSED_CODE IS NULL) AND
2268: -- (p_tbcv_rec.TITLE_TRNSFR_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.TITLE_TRNSFR_CODE IS NULL) AND
2269: -- (p_tbcv_rec.SALE_LEASE_BACK_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.SALE_LEASE_BACK_CODE IS NULL) AND
2270: -- (p_tbcv_rec.LEASE_PURCHASED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.LEASE_PURCHASED_CODE IS NULL) AND
2263: IF (--(p_tbcv_rec.PURCHASE_OPTION_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.purchase_option_code IS NULL) AND
2264: --(p_tbcv_rec.PDT_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.PDT_ID IS NULL) AND
2265: --(p_tbcv_rec.TRY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.TRY_ID IS NULL) AND
2266: -- (p_tbcv_rec.STY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.STY_ID IS NULL) AND
2267: -- (p_tbcv_rec.INT_DISCLOSED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.INT_DISCLOSED_CODE IS NULL) AND
2268: -- (p_tbcv_rec.TITLE_TRNSFR_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.TITLE_TRNSFR_CODE IS NULL) AND
2269: -- (p_tbcv_rec.SALE_LEASE_BACK_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.SALE_LEASE_BACK_CODE IS NULL) AND
2270: -- (p_tbcv_rec.LEASE_PURCHASED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.LEASE_PURCHASED_CODE IS NULL) AND
2271: -- (p_tbcv_rec.EQUIP_USAGE_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.EQUIP_USAGE_CODE IS NULL) AND
2264: --(p_tbcv_rec.PDT_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.PDT_ID IS NULL) AND
2265: --(p_tbcv_rec.TRY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.TRY_ID IS NULL) AND
2266: -- (p_tbcv_rec.STY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.STY_ID IS NULL) AND
2267: -- (p_tbcv_rec.INT_DISCLOSED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.INT_DISCLOSED_CODE IS NULL) AND
2268: -- (p_tbcv_rec.TITLE_TRNSFR_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.TITLE_TRNSFR_CODE IS NULL) AND
2269: -- (p_tbcv_rec.SALE_LEASE_BACK_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.SALE_LEASE_BACK_CODE IS NULL) AND
2270: -- (p_tbcv_rec.LEASE_PURCHASED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.LEASE_PURCHASED_CODE IS NULL) AND
2271: -- (p_tbcv_rec.EQUIP_USAGE_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.EQUIP_USAGE_CODE IS NULL) AND
2272: -- (p_tbcv_rec.VENDOR_SITE_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.VENDOR_SITE_ID IS NULL) AND
2265: --(p_tbcv_rec.TRY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.TRY_ID IS NULL) AND
2266: -- (p_tbcv_rec.STY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.STY_ID IS NULL) AND
2267: -- (p_tbcv_rec.INT_DISCLOSED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.INT_DISCLOSED_CODE IS NULL) AND
2268: -- (p_tbcv_rec.TITLE_TRNSFR_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.TITLE_TRNSFR_CODE IS NULL) AND
2269: -- (p_tbcv_rec.SALE_LEASE_BACK_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.SALE_LEASE_BACK_CODE IS NULL) AND
2270: -- (p_tbcv_rec.LEASE_PURCHASED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.LEASE_PURCHASED_CODE IS NULL) AND
2271: -- (p_tbcv_rec.EQUIP_USAGE_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.EQUIP_USAGE_CODE IS NULL) AND
2272: -- (p_tbcv_rec.VENDOR_SITE_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.VENDOR_SITE_ID IS NULL) AND
2273: -- (p_tbcv_rec.AGE_OF_EQUIP_FROM = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_FROM IS NULL) AND
2266: -- (p_tbcv_rec.STY_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.STY_ID IS NULL) AND
2267: -- (p_tbcv_rec.INT_DISCLOSED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.INT_DISCLOSED_CODE IS NULL) AND
2268: -- (p_tbcv_rec.TITLE_TRNSFR_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.TITLE_TRNSFR_CODE IS NULL) AND
2269: -- (p_tbcv_rec.SALE_LEASE_BACK_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.SALE_LEASE_BACK_CODE IS NULL) AND
2270: -- (p_tbcv_rec.LEASE_PURCHASED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.LEASE_PURCHASED_CODE IS NULL) AND
2271: -- (p_tbcv_rec.EQUIP_USAGE_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.EQUIP_USAGE_CODE IS NULL) AND
2272: -- (p_tbcv_rec.VENDOR_SITE_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.VENDOR_SITE_ID IS NULL) AND
2273: -- (p_tbcv_rec.AGE_OF_EQUIP_FROM = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_FROM IS NULL) AND
2274: -- (p_tbcv_rec.AGE_OF_EQUIP_TO = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL)
2267: -- (p_tbcv_rec.INT_DISCLOSED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.INT_DISCLOSED_CODE IS NULL) AND
2268: -- (p_tbcv_rec.TITLE_TRNSFR_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.TITLE_TRNSFR_CODE IS NULL) AND
2269: -- (p_tbcv_rec.SALE_LEASE_BACK_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.SALE_LEASE_BACK_CODE IS NULL) AND
2270: -- (p_tbcv_rec.LEASE_PURCHASED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.LEASE_PURCHASED_CODE IS NULL) AND
2271: -- (p_tbcv_rec.EQUIP_USAGE_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.EQUIP_USAGE_CODE IS NULL) AND
2272: -- (p_tbcv_rec.VENDOR_SITE_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.VENDOR_SITE_ID IS NULL) AND
2273: -- (p_tbcv_rec.AGE_OF_EQUIP_FROM = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_FROM IS NULL) AND
2274: -- (p_tbcv_rec.AGE_OF_EQUIP_TO = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL)
2275: (p_tbcv_rec.RESULT_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.RESULT_CODE IS NULL) ) THEN
2268: -- (p_tbcv_rec.TITLE_TRNSFR_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.TITLE_TRNSFR_CODE IS NULL) AND
2269: -- (p_tbcv_rec.SALE_LEASE_BACK_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.SALE_LEASE_BACK_CODE IS NULL) AND
2270: -- (p_tbcv_rec.LEASE_PURCHASED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.LEASE_PURCHASED_CODE IS NULL) AND
2271: -- (p_tbcv_rec.EQUIP_USAGE_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.EQUIP_USAGE_CODE IS NULL) AND
2272: -- (p_tbcv_rec.VENDOR_SITE_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.VENDOR_SITE_ID IS NULL) AND
2273: -- (p_tbcv_rec.AGE_OF_EQUIP_FROM = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_FROM IS NULL) AND
2274: -- (p_tbcv_rec.AGE_OF_EQUIP_TO = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL)
2275: (p_tbcv_rec.RESULT_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.RESULT_CODE IS NULL) ) THEN
2276:
2269: -- (p_tbcv_rec.SALE_LEASE_BACK_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.SALE_LEASE_BACK_CODE IS NULL) AND
2270: -- (p_tbcv_rec.LEASE_PURCHASED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.LEASE_PURCHASED_CODE IS NULL) AND
2271: -- (p_tbcv_rec.EQUIP_USAGE_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.EQUIP_USAGE_CODE IS NULL) AND
2272: -- (p_tbcv_rec.VENDOR_SITE_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.VENDOR_SITE_ID IS NULL) AND
2273: -- (p_tbcv_rec.AGE_OF_EQUIP_FROM = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_FROM IS NULL) AND
2274: -- (p_tbcv_rec.AGE_OF_EQUIP_TO = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL)
2275: (p_tbcv_rec.RESULT_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.RESULT_CODE IS NULL) ) THEN
2276:
2277: x_return_status := OKC_API.G_RET_STS_ERROR;
2270: -- (p_tbcv_rec.LEASE_PURCHASED_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.LEASE_PURCHASED_CODE IS NULL) AND
2271: -- (p_tbcv_rec.EQUIP_USAGE_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.EQUIP_USAGE_CODE IS NULL) AND
2272: -- (p_tbcv_rec.VENDOR_SITE_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.VENDOR_SITE_ID IS NULL) AND
2273: -- (p_tbcv_rec.AGE_OF_EQUIP_FROM = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_FROM IS NULL) AND
2274: -- (p_tbcv_rec.AGE_OF_EQUIP_TO = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL)
2275: (p_tbcv_rec.RESULT_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.RESULT_CODE IS NULL) ) THEN
2276:
2277: x_return_status := OKC_API.G_RET_STS_ERROR;
2278: --Unable to create Category definition as mandatory attributes are provided.
2271: -- (p_tbcv_rec.EQUIP_USAGE_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.EQUIP_USAGE_CODE IS NULL) AND
2272: -- (p_tbcv_rec.VENDOR_SITE_ID = OKL_API.G_MISS_NUM OR p_tbcv_rec.VENDOR_SITE_ID IS NULL) AND
2273: -- (p_tbcv_rec.AGE_OF_EQUIP_FROM = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_FROM IS NULL) AND
2274: -- (p_tbcv_rec.AGE_OF_EQUIP_TO = OKL_API.G_MISS_NUM OR p_tbcv_rec.AGE_OF_EQUIP_TO IS NULL)
2275: (p_tbcv_rec.RESULT_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.RESULT_CODE IS NULL) ) THEN
2276:
2277: x_return_status := OKC_API.G_RET_STS_ERROR;
2278: --Unable to create Category definition as mandatory attributes are provided.
2279: OKL_API.set_message(p_app_name => 'OKL',
2275: (p_tbcv_rec.RESULT_CODE = OKL_API.G_MISS_CHAR OR p_tbcv_rec.RESULT_CODE IS NULL) ) THEN
2276:
2277: x_return_status := OKC_API.G_RET_STS_ERROR;
2278: --Unable to create Category definition as mandatory attributes are provided.
2279: OKL_API.set_message(p_app_name => 'OKL',
2280: p_msg_name => 'OKL_TX_NO_TBC_ATTR');
2281: RAISE G_EXCEPTION_HALT_VALIDATION;
2282:
2283: END IF;
2280: p_msg_name => 'OKL_TX_NO_TBC_ATTR');
2281: RAISE G_EXCEPTION_HALT_VALIDATION;
2282:
2283: END IF;
2284: IF (p_tbcv_rec.AGE_OF_EQUIP_FROM IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_FROM <> OKL_API.G_MISS_NUM) AND
2285: (p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO <> OKL_API.G_MISS_NUM) THEN
2286: IF p_tbcv_rec.AGE_OF_EQUIP_TO < p_tbcv_rec.AGE_OF_EQUIP_FROM THEN
2287: x_return_status := OKC_API.G_RET_STS_ERROR;
2288: --Unable to create Transcation Business Category definition as none of the attributes are provided.
2281: RAISE G_EXCEPTION_HALT_VALIDATION;
2282:
2283: END IF;
2284: IF (p_tbcv_rec.AGE_OF_EQUIP_FROM IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_FROM <> OKL_API.G_MISS_NUM) AND
2285: (p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO <> OKL_API.G_MISS_NUM) THEN
2286: IF p_tbcv_rec.AGE_OF_EQUIP_TO < p_tbcv_rec.AGE_OF_EQUIP_FROM THEN
2287: x_return_status := OKC_API.G_RET_STS_ERROR;
2288: --Unable to create Transcation Business Category definition as none of the attributes are provided.
2289: OKL_API.set_message(p_app_name => 'OKL',
2285: (p_tbcv_rec.AGE_OF_EQUIP_TO IS NOT NULL AND p_tbcv_rec.AGE_OF_EQUIP_TO <> OKL_API.G_MISS_NUM) THEN
2286: IF p_tbcv_rec.AGE_OF_EQUIP_TO < p_tbcv_rec.AGE_OF_EQUIP_FROM THEN
2287: x_return_status := OKC_API.G_RET_STS_ERROR;
2288: --Unable to create Transcation Business Category definition as none of the attributes are provided.
2289: OKL_API.set_message(p_app_name => 'OKL',
2290: p_msg_name => 'OKL_TX_INVALID_AGE_RANGE');
2291: RAISE G_EXCEPTION_HALT_VALIDATION;
2292:
2293: END IF;
2319: l_token1 := 'PC_CODE';
2320:
2321: ELSIF (p_tbcv_rec.result_type_code = 'UFC_CODE') THEN
2322:
2323: IF (p_tbcv_rec.term_quote_reason_code IS NOT NULL AND p_tbcv_rec.term_quote_reason_code <> OKL_API.G_MISS_CHAR ) THEN
2324: IF p_tbcv_rec.try_id IS NOT NULL THEN
2325: OPEN get_try_name(p_tbcv_rec.try_id);
2326: FETCH get_try_name INTO l_try_name;
2327: CLOSE get_try_name;
2334: 'Release Billing',
2335: 'Release Credit Memo') THEN
2336:
2337: x_return_status := OKC_API.G_RET_STS_ERROR;
2338: OKL_API.set_message(p_app_name => 'OKL',
2339: p_msg_name => 'OKL_TERMQTE_RSNTYP_NA_ERR',
2340: p_token1 => 'TRX_TYPE',
2341: p_token1_value => l_try_name);
2342: RAISE G_EXCEPTION_HALT_VALIDATION;
2343: END IF;
2344: END IF;
2345: END IF;
2346:
2347: IF (p_tbcv_rec.term_quote_type_code IS NOT NULL AND p_tbcv_rec.term_quote_type_code <> OKL_API.G_MISS_CHAR ) THEN
2348: IF p_tbcv_rec.try_id IS NOT NULL THEN
2349: OPEN get_try_name(p_tbcv_rec.try_id);
2350: FETCH get_try_name INTO l_try_name;
2351: CLOSE get_try_name;
2358: 'Release Billing',
2359: 'Release Credit Memo') THEN
2360:
2361: x_return_status := OKC_API.G_RET_STS_ERROR;
2362: OKL_API.set_message(p_app_name => 'OKL',
2363: p_msg_name => 'OKL_TERMQTE_RSNTYP_NA_ERR',
2364: p_token1 => 'TRX_TYPE',
2365: p_token1_value => l_try_name);
2366: RAISE G_EXCEPTION_HALT_VALIDATION;
2391: -- Another Category already exists for this combination of tax determinants.
2392: -- modified by dcshanmu for eBTax project - modification start
2393: -- modified default values passed to p_msg_name and p_token1
2394:
2395: OKL_API.set_message(p_app_name => 'OKL',
2396: p_msg_name => l_msg_name,
2397: p_token1 => l_token1,
2398: p_token1_value => l_meaning);
2399: RAISE G_EXCEPTION_HALT_VALIDATION;
2406: EXCEPTION
2407: WHEN G_EXCEPTION_HALT_VALIDATION THEN
2408: RETURN(x_return_status);
2409: WHEN OTHERS THEN
2410: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
2411: ,p_msg_name => G_UNEXPECTED_ERROR
2412: ,p_token1 => G_SQLCODE_TOKEN
2413: ,p_token1_value => SQLCODE
2414: ,p_token2 => G_SQLERRM_TOKEN
2412: ,p_token1 => G_SQLCODE_TOKEN
2413: ,p_token1_value => SQLCODE
2414: ,p_token2 => G_SQLERRM_TOKEN
2415: ,p_token2_value => SQLERRM);
2416: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2417: RETURN(x_return_status);
2418: END Validate_Record;
2419: ---------------------------------------------------------------------------
2420: -- PROCEDURE Migrate
2544: p_tbcv_rec IN tbcv_rec_type) IS
2545:
2546: l_api_version CONSTANT NUMBER := 1;
2547: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
2548: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2549: l_tbcv_rec tbcv_rec_type := p_tbcv_rec;
2550: l_tbc_rec tbc_rec_type;
2551: l_tbc_rec tbc_rec_type;
2552: BEGIN
2549: l_tbcv_rec tbcv_rec_type := p_tbcv_rec;
2550: l_tbc_rec tbc_rec_type;
2551: l_tbc_rec tbc_rec_type;
2552: BEGIN
2553: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2554: G_PKG_NAME,
2555: p_init_msg_list,
2556: l_api_version,
2557: p_api_version,
2556: l_api_version,
2557: p_api_version,
2558: '_PVT',
2559: x_return_status);
2560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2563: RAISE OKL_API.G_EXCEPTION_ERROR;
2564: END IF;
2557: p_api_version,
2558: '_PVT',
2559: x_return_status);
2560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2563: RAISE OKL_API.G_EXCEPTION_ERROR;
2564: END IF;
2565: --- Validate all non-missing attributes (Item Level Validation)
2558: '_PVT',
2559: x_return_status);
2560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2563: RAISE OKL_API.G_EXCEPTION_ERROR;
2564: END IF;
2565: --- Validate all non-missing attributes (Item Level Validation)
2566: l_return_status := Validate_Attributes(l_tbcv_rec);
2559: x_return_status);
2560: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2561: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2562: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2563: RAISE OKL_API.G_EXCEPTION_ERROR;
2564: END IF;
2565: --- Validate all non-missing attributes (Item Level Validation)
2566: l_return_status := Validate_Attributes(l_tbcv_rec);
2567: --- If any errors happen abort API
2564: END IF;
2565: --- Validate all non-missing attributes (Item Level Validation)
2566: l_return_status := Validate_Attributes(l_tbcv_rec);
2567: --- If any errors happen abort API
2568: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2571: RAISE OKL_API.G_EXCEPTION_ERROR;
2572: END IF;
2565: --- Validate all non-missing attributes (Item Level Validation)
2566: l_return_status := Validate_Attributes(l_tbcv_rec);
2567: --- If any errors happen abort API
2568: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2571: RAISE OKL_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: l_return_status := Validate_Record(l_tbcv_rec);
2566: l_return_status := Validate_Attributes(l_tbcv_rec);
2567: --- If any errors happen abort API
2568: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2571: RAISE OKL_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: l_return_status := Validate_Record(l_tbcv_rec);
2574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2567: --- If any errors happen abort API
2568: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2569: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2571: RAISE OKL_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: l_return_status := Validate_Record(l_tbcv_rec);
2574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2570: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2571: RAISE OKL_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: l_return_status := Validate_Record(l_tbcv_rec);
2574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2576: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2577: RAISE OKL_API.G_EXCEPTION_ERROR;
2578: END IF;
2571: RAISE OKL_API.G_EXCEPTION_ERROR;
2572: END IF;
2573: l_return_status := Validate_Record(l_tbcv_rec);
2574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2576: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2577: RAISE OKL_API.G_EXCEPTION_ERROR;
2578: END IF;
2579: x_return_status := l_return_status;
2572: END IF;
2573: l_return_status := Validate_Record(l_tbcv_rec);
2574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2576: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2577: RAISE OKL_API.G_EXCEPTION_ERROR;
2578: END IF;
2579: x_return_status := l_return_status;
2580: EXCEPTION
2573: l_return_status := Validate_Record(l_tbcv_rec);
2574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2576: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2577: RAISE OKL_API.G_EXCEPTION_ERROR;
2578: END IF;
2579: x_return_status := l_return_status;
2580: EXCEPTION
2581: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2577: RAISE OKL_API.G_EXCEPTION_ERROR;
2578: END IF;
2579: x_return_status := l_return_status;
2580: EXCEPTION
2581: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2582: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2583: (
2584: l_api_name,
2585: G_PKG_NAME,
2578: END IF;
2579: x_return_status := l_return_status;
2580: EXCEPTION
2581: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2582: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2583: (
2584: l_api_name,
2585: G_PKG_NAME,
2586: 'OKL_API.G_RET_STS_ERROR',
2582: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2583: (
2584: l_api_name,
2585: G_PKG_NAME,
2586: 'OKL_API.G_RET_STS_ERROR',
2587: x_msg_count,
2588: x_msg_data,
2589: '_PVT'
2590: );
2587: x_msg_count,
2588: x_msg_data,
2589: '_PVT'
2590: );
2591: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2592: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2593: (
2594: l_api_name,
2595: G_PKG_NAME,
2588: x_msg_data,
2589: '_PVT'
2590: );
2591: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2592: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2593: (
2594: l_api_name,
2595: G_PKG_NAME,
2596: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2592: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2593: (
2594: l_api_name,
2595: G_PKG_NAME,
2596: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2597: x_msg_count,
2598: x_msg_data,
2599: '_PVT'
2600: );
2598: x_msg_data,
2599: '_PVT'
2600: );
2601: WHEN OTHERS THEN
2602: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2603: (
2604: l_api_name,
2605: G_PKG_NAME,
2606: 'OTHERS',
2618: x_return_status OUT NOCOPY VARCHAR2,
2619: x_msg_count OUT NOCOPY NUMBER,
2620: x_msg_data OUT NOCOPY VARCHAR2,
2621: p_tbcv_tbl IN tbcv_tbl_type,
2622: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2623:
2624: l_api_version CONSTANT NUMBER := 1;
2625: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
2626: i NUMBER := 0;
2624: l_api_version CONSTANT NUMBER := 1;
2625: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
2626: i NUMBER := 0;
2627: BEGIN
2628: OKL_API.init_msg_list(p_init_msg_list);
2629: -- Make sure PL/SQL table has records in it before passing
2630: IF (p_tbcv_tbl.COUNT > 0) THEN
2631: i := p_tbcv_tbl.FIRST;
2632: LOOP
2630: IF (p_tbcv_tbl.COUNT > 0) THEN
2631: i := p_tbcv_tbl.FIRST;
2632: LOOP
2633: DECLARE
2634: l_error_rec OKL_API.ERROR_REC_TYPE;
2635: BEGIN
2636: l_error_rec.api_name := l_api_name;
2637: l_error_rec.api_package := G_PKG_NAME;
2638: l_error_rec.idx := i;
2637: l_error_rec.api_package := G_PKG_NAME;
2638: l_error_rec.idx := i;
2639: validate_row (
2640: p_api_version => p_api_version,
2641: p_init_msg_list => OKL_API.G_FALSE,
2642: x_return_status => l_error_rec.error_type,
2643: x_msg_count => l_error_rec.msg_count,
2644: x_msg_data => l_error_rec.msg_data,
2645: p_tbcv_rec => p_tbcv_tbl(i));
2642: x_return_status => l_error_rec.error_type,
2643: x_msg_count => l_error_rec.msg_count,
2644: x_msg_data => l_error_rec.msg_data,
2645: p_tbcv_rec => p_tbcv_tbl(i));
2646: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2647: l_error_rec.sqlcode := SQLCODE;
2648: load_error_tbl(l_error_rec, px_error_tbl);
2649: ELSE
2650: x_msg_count := l_error_rec.msg_count;
2650: x_msg_count := l_error_rec.msg_count;
2651: x_msg_data := l_error_rec.msg_data;
2652: END IF;
2653: EXCEPTION
2654: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2655: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2656: l_error_rec.sqlcode := SQLCODE;
2657: load_error_tbl(l_error_rec, px_error_tbl);
2658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2651: x_msg_data := l_error_rec.msg_data;
2652: END IF;
2653: EXCEPTION
2654: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2655: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2656: l_error_rec.sqlcode := SQLCODE;
2657: load_error_tbl(l_error_rec, px_error_tbl);
2658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2659: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2654: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2655: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2656: l_error_rec.sqlcode := SQLCODE;
2657: load_error_tbl(l_error_rec, px_error_tbl);
2658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2659: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2660: l_error_rec.sqlcode := SQLCODE;
2661: load_error_tbl(l_error_rec, px_error_tbl);
2662: WHEN OTHERS THEN
2655: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2656: l_error_rec.sqlcode := SQLCODE;
2657: load_error_tbl(l_error_rec, px_error_tbl);
2658: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2659: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2660: l_error_rec.sqlcode := SQLCODE;
2661: load_error_tbl(l_error_rec, px_error_tbl);
2662: WHEN OTHERS THEN
2663: l_error_rec.error_type := 'OTHERS';
2670: END IF;
2671: -- Loop through the error_tbl to find the error with the highest severity
2672: -- and return it.
2673: x_return_status := find_highest_exception(px_error_tbl);
2674: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2675: EXCEPTION
2676: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2677: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2678: (
2672: -- and return it.
2673: x_return_status := find_highest_exception(px_error_tbl);
2674: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2675: EXCEPTION
2676: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2677: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2678: (
2679: l_api_name,
2680: G_PKG_NAME,
2673: x_return_status := find_highest_exception(px_error_tbl);
2674: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2675: EXCEPTION
2676: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2677: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2678: (
2679: l_api_name,
2680: G_PKG_NAME,
2681: 'OKL_API.G_RET_STS_ERROR',
2677: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2678: (
2679: l_api_name,
2680: G_PKG_NAME,
2681: 'OKL_API.G_RET_STS_ERROR',
2682: x_msg_count,
2683: x_msg_data,
2684: '_PVT'
2685: );
2682: x_msg_count,
2683: x_msg_data,
2684: '_PVT'
2685: );
2686: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2687: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2688: (
2689: l_api_name,
2690: G_PKG_NAME,
2683: x_msg_data,
2684: '_PVT'
2685: );
2686: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2687: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2688: (
2689: l_api_name,
2690: G_PKG_NAME,
2691: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2687: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2688: (
2689: l_api_name,
2690: G_PKG_NAME,
2691: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2692: x_msg_count,
2693: x_msg_data,
2694: '_PVT'
2695: );
2693: x_msg_data,
2694: '_PVT'
2695: );
2696: WHEN OTHERS THEN
2697: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2698: (
2699: l_api_name,
2700: G_PKG_NAME,
2701: 'OTHERS',
2717: p_tbcv_tbl IN tbcv_tbl_type) IS
2718:
2719: l_api_version CONSTANT NUMBER := 1;
2720: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2721: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2722: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2723: BEGIN
2724: OKL_API.init_msg_list(p_init_msg_list);
2725: -- Make sure PL/SQL table has records in it before passing
2718:
2719: l_api_version CONSTANT NUMBER := 1;
2720: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2721: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2722: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2723: BEGIN
2724: OKL_API.init_msg_list(p_init_msg_list);
2725: -- Make sure PL/SQL table has records in it before passing
2726: IF (p_tbcv_tbl.COUNT > 0) THEN
2720: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2721: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2722: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2723: BEGIN
2724: OKL_API.init_msg_list(p_init_msg_list);
2725: -- Make sure PL/SQL table has records in it before passing
2726: IF (p_tbcv_tbl.COUNT > 0) THEN
2727: validate_row (
2728: p_api_version => p_api_version,
2725: -- Make sure PL/SQL table has records in it before passing
2726: IF (p_tbcv_tbl.COUNT > 0) THEN
2727: validate_row (
2728: p_api_version => p_api_version,
2729: p_init_msg_list => OKL_API.G_FALSE,
2730: x_return_status => x_return_status,
2731: x_msg_count => x_msg_count,
2732: x_msg_data => x_msg_data,
2733: p_tbcv_tbl => p_tbcv_tbl,
2732: x_msg_data => x_msg_data,
2733: p_tbcv_tbl => p_tbcv_tbl,
2734: px_error_tbl => l_error_tbl);
2735: END IF;
2736: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2737: EXCEPTION
2738: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2739: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2740: (
2734: px_error_tbl => l_error_tbl);
2735: END IF;
2736: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2737: EXCEPTION
2738: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2739: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2735: END IF;
2736: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2737: EXCEPTION
2738: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2739: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2743: 'OKL_API.G_RET_STS_ERROR',
2739: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2740: (
2741: l_api_name,
2742: G_PKG_NAME,
2743: 'OKL_API.G_RET_STS_ERROR',
2744: x_msg_count,
2745: x_msg_data,
2746: '_PVT'
2747: );
2744: x_msg_count,
2745: x_msg_data,
2746: '_PVT'
2747: );
2748: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2749: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2745: x_msg_data,
2746: '_PVT'
2747: );
2748: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2749: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2753: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2749: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2750: (
2751: l_api_name,
2752: G_PKG_NAME,
2753: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2754: x_msg_count,
2755: x_msg_data,
2756: '_PVT'
2757: );
2755: x_msg_data,
2756: '_PVT'
2757: );
2758: WHEN OTHERS THEN
2759: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2760: (
2761: l_api_name,
2762: G_PKG_NAME,
2763: 'OTHERS',
2782: x_tbc_rec OUT NOCOPY tbc_rec_type) IS
2783:
2784: l_api_version CONSTANT NUMBER := 1;
2785: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
2786: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2787: l_tbc_rec tbc_rec_type := p_tbc_rec;
2788: l_def_tbc_rec tbc_rec_type;
2789: ----------------------------------------------
2790: -- Set_Attributes for:OKL_TAX_ATTR_DEFINITIONS--
2792: FUNCTION Set_Attributes (
2793: p_tbc_rec IN tbc_rec_type,
2794: x_tbc_rec OUT NOCOPY tbc_rec_type
2795: ) RETURN VARCHAR2 IS
2796: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2797: BEGIN
2798: x_tbc_rec := p_tbc_rec;
2799: x_tbc_rec.tax_attribute_def_id := okc_p_util.raw_to_number(sys_guid());
2800: x_tbc_rec.date_effective_from := to_date('01-01-1960','dd-mm-rrrr');
2800: x_tbc_rec.date_effective_from := to_date('01-01-1960','dd-mm-rrrr');
2801: RETURN(l_return_status);
2802: END Set_Attributes;
2803: BEGIN
2804: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2805: p_init_msg_list,
2806: '_PVT',
2807: x_return_status);
2808: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2804: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2805: p_init_msg_list,
2806: '_PVT',
2807: x_return_status);
2808: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2810: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2811: RAISE OKL_API.G_EXCEPTION_ERROR;
2812: END IF;
2805: p_init_msg_list,
2806: '_PVT',
2807: x_return_status);
2808: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2810: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2811: RAISE OKL_API.G_EXCEPTION_ERROR;
2812: END IF;
2813: --- Setting item atributes
2806: '_PVT',
2807: x_return_status);
2808: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2810: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2811: RAISE OKL_API.G_EXCEPTION_ERROR;
2812: END IF;
2813: --- Setting item atributes
2814: l_return_status := Set_Attributes(
2807: x_return_status);
2808: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2809: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2810: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2811: RAISE OKL_API.G_EXCEPTION_ERROR;
2812: END IF;
2813: --- Setting item atributes
2814: l_return_status := Set_Attributes(
2815: p_tbc_rec, -- IN
2814: l_return_status := Set_Attributes(
2815: p_tbc_rec, -- IN
2816: l_tbc_rec); -- OUT
2817: --- If any errors happen abort API
2818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2821: RAISE OKL_API.G_EXCEPTION_ERROR;
2822: END IF;
2815: p_tbc_rec, -- IN
2816: l_tbc_rec); -- OUT
2817: --- If any errors happen abort API
2818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2821: RAISE OKL_API.G_EXCEPTION_ERROR;
2822: END IF;
2823: INSERT INTO OKL_TAX_ATTR_DEFINITIONS(
2816: l_tbc_rec); -- OUT
2817: --- If any errors happen abort API
2818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2821: RAISE OKL_API.G_EXCEPTION_ERROR;
2822: END IF;
2823: INSERT INTO OKL_TAX_ATTR_DEFINITIONS(
2824: -- id,
2817: --- If any errors happen abort API
2818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2821: RAISE OKL_API.G_EXCEPTION_ERROR;
2822: END IF;
2823: INSERT INTO OKL_TAX_ATTR_DEFINITIONS(
2824: -- id,
2825: -- org_id,
2920: -- modified by dcshanmu for eBTax project - modification end
2921: -- Set OUT values
2922: x_tbc_rec := l_tbc_rec;
2923: x_return_status := l_return_status;
2924: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2925: EXCEPTION
2926: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2927: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2928: (
2922: x_tbc_rec := l_tbc_rec;
2923: x_return_status := l_return_status;
2924: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2925: EXCEPTION
2926: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2927: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2928: (
2929: l_api_name,
2930: G_PKG_NAME,
2923: x_return_status := l_return_status;
2924: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2925: EXCEPTION
2926: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2927: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2928: (
2929: l_api_name,
2930: G_PKG_NAME,
2931: 'OKL_API.G_RET_STS_ERROR',
2927: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2928: (
2929: l_api_name,
2930: G_PKG_NAME,
2931: 'OKL_API.G_RET_STS_ERROR',
2932: x_msg_count,
2933: x_msg_data,
2934: '_PVT'
2935: );
2932: x_msg_count,
2933: x_msg_data,
2934: '_PVT'
2935: );
2936: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2937: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2938: (
2939: l_api_name,
2940: G_PKG_NAME,
2933: x_msg_data,
2934: '_PVT'
2935: );
2936: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2937: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2938: (
2939: l_api_name,
2940: G_PKG_NAME,
2941: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2937: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2938: (
2939: l_api_name,
2940: G_PKG_NAME,
2941: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2942: x_msg_count,
2943: x_msg_data,
2944: '_PVT'
2945: );
2943: x_msg_data,
2944: '_PVT'
2945: );
2946: WHEN OTHERS THEN
2947: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2948: (
2949: l_api_name,
2950: G_PKG_NAME,
2951: 'OTHERS',
2967: x_tbcv_rec OUT NOCOPY tbcv_rec_type) IS
2968:
2969: l_api_version CONSTANT NUMBER := 1;
2970: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2971: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2972: l_tbcv_rec tbcv_rec_type := p_tbcv_rec;
2973: l_def_tbcv_rec tbcv_rec_type;
2974: l_tbc_rec tbc_rec_type;
2975: lx_tbc_rec tbc_rec_type;
2994: FUNCTION Set_Attributes (
2995: p_tbcv_rec IN tbcv_rec_type,
2996: x_tbcv_rec OUT NOCOPY tbcv_rec_type
2997: ) RETURN VARCHAR2 IS
2998: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2999: BEGIN
3000: x_tbcv_rec := p_tbcv_rec;
3001: x_tbcv_rec.OBJECT_VERSION_NUMBER := 1;
3002: RETURN(l_return_status);
3001: x_tbcv_rec.OBJECT_VERSION_NUMBER := 1;
3002: RETURN(l_return_status);
3003: END Set_Attributes;
3004: BEGIN
3005: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3006: G_PKG_NAME,
3007: p_init_msg_list,
3008: l_api_version,
3009: p_api_version,
3008: l_api_version,
3009: p_api_version,
3010: '_PVT',
3011: x_return_status);
3012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3015: RAISE OKL_API.G_EXCEPTION_ERROR;
3016: END IF;
3009: p_api_version,
3010: '_PVT',
3011: x_return_status);
3012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3015: RAISE OKL_API.G_EXCEPTION_ERROR;
3016: END IF;
3017: l_tbcv_rec := null_out_defaults(p_tbcv_rec);
3010: '_PVT',
3011: x_return_status);
3012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3015: RAISE OKL_API.G_EXCEPTION_ERROR;
3016: END IF;
3017: l_tbcv_rec := null_out_defaults(p_tbcv_rec);
3018: -- Set primary key value
3011: x_return_status);
3012: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3013: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3014: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3015: RAISE OKL_API.G_EXCEPTION_ERROR;
3016: END IF;
3017: l_tbcv_rec := null_out_defaults(p_tbcv_rec);
3018: -- Set primary key value
3019: l_tbcv_rec.tax_attribute_def_id := get_seq_id;
3021: l_return_Status := Set_Attributes(
3022: l_tbcv_rec, -- IN
3023: l_def_tbcv_rec); -- OUT
3024: --- If any errors happen abort API
3025: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3027: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3028: RAISE OKL_API.G_EXCEPTION_ERROR;
3029: END IF;
3022: l_tbcv_rec, -- IN
3023: l_def_tbcv_rec); -- OUT
3024: --- If any errors happen abort API
3025: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3027: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3028: RAISE OKL_API.G_EXCEPTION_ERROR;
3029: END IF;
3030: l_def_tbcv_rec := fill_who_columns(l_def_tbcv_rec);
3023: l_def_tbcv_rec); -- OUT
3024: --- If any errors happen abort API
3025: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3027: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3028: RAISE OKL_API.G_EXCEPTION_ERROR;
3029: END IF;
3030: l_def_tbcv_rec := fill_who_columns(l_def_tbcv_rec);
3031:
3024: --- If any errors happen abort API
3025: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3027: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3028: RAISE OKL_API.G_EXCEPTION_ERROR;
3029: END IF;
3030: l_def_tbcv_rec := fill_who_columns(l_def_tbcv_rec);
3031:
3032: --- Validate all non-missing attributes (Item Level Validation)
3031:
3032: --- Validate all non-missing attributes (Item Level Validation)
3033: l_return_status := Validate_Attributes(l_def_tbcv_rec);
3034: --- If any errors happen abort API
3035: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3038: RAISE OKL_API.G_EXCEPTION_ERROR;
3039: END IF;
3032: --- Validate all non-missing attributes (Item Level Validation)
3033: l_return_status := Validate_Attributes(l_def_tbcv_rec);
3034: --- If any errors happen abort API
3035: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3038: RAISE OKL_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: l_return_status := Validate_Record(l_def_tbcv_rec);
3033: l_return_status := Validate_Attributes(l_def_tbcv_rec);
3034: --- If any errors happen abort API
3035: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3038: RAISE OKL_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: l_return_status := Validate_Record(l_def_tbcv_rec);
3041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3034: --- If any errors happen abort API
3035: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3036: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3038: RAISE OKL_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: l_return_status := Validate_Record(l_def_tbcv_rec);
3041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3037: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3038: RAISE OKL_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: l_return_status := Validate_Record(l_def_tbcv_rec);
3041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3043: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3044: RAISE OKL_API.G_EXCEPTION_ERROR;
3045: END IF;
3038: RAISE OKL_API.G_EXCEPTION_ERROR;
3039: END IF;
3040: l_return_status := Validate_Record(l_def_tbcv_rec);
3041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3043: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3044: RAISE OKL_API.G_EXCEPTION_ERROR;
3045: END IF;
3046: -----------------------------------------
3039: END IF;
3040: l_return_status := Validate_Record(l_def_tbcv_rec);
3041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3043: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3044: RAISE OKL_API.G_EXCEPTION_ERROR;
3045: END IF;
3046: -----------------------------------------
3047: -- Move VIEW record to "Child" records --
3040: l_return_status := Validate_Record(l_def_tbcv_rec);
3041: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3042: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3043: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3044: RAISE OKL_API.G_EXCEPTION_ERROR;
3045: END IF;
3046: -----------------------------------------
3047: -- Move VIEW record to "Child" records --
3048: -----------------------------------------
3057: x_msg_data,
3058: l_tbc_rec,
3059: lx_tbc_rec
3060: );
3061: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3063: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3064: RAISE OKL_API.G_EXCEPTION_ERROR;
3065: END IF;
3058: l_tbc_rec,
3059: lx_tbc_rec
3060: );
3061: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3063: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3064: RAISE OKL_API.G_EXCEPTION_ERROR;
3065: END IF;
3066: migrate(lx_tbc_rec, l_def_tbcv_rec);
3059: lx_tbc_rec
3060: );
3061: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3063: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3064: RAISE OKL_API.G_EXCEPTION_ERROR;
3065: END IF;
3066: migrate(lx_tbc_rec, l_def_tbcv_rec);
3067: -- Set OUT values
3060: );
3061: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3062: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3063: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3064: RAISE OKL_API.G_EXCEPTION_ERROR;
3065: END IF;
3066: migrate(lx_tbc_rec, l_def_tbcv_rec);
3067: -- Set OUT values
3068:
3067: -- Set OUT values
3068:
3069: x_tbcv_rec := l_def_tbcv_rec;
3070: x_return_status := l_return_status;
3071: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3072: EXCEPTION
3073: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3074: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3075: (
3069: x_tbcv_rec := l_def_tbcv_rec;
3070: x_return_status := l_return_status;
3071: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3072: EXCEPTION
3073: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3074: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3075: (
3076: l_api_name,
3077: G_PKG_NAME,
3070: x_return_status := l_return_status;
3071: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3072: EXCEPTION
3073: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3074: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3075: (
3076: l_api_name,
3077: G_PKG_NAME,
3078: 'OKL_API.G_RET_STS_ERROR',
3074: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3075: (
3076: l_api_name,
3077: G_PKG_NAME,
3078: 'OKL_API.G_RET_STS_ERROR',
3079: x_msg_count,
3080: x_msg_data,
3081: '_PVT'
3082: );
3079: x_msg_count,
3080: x_msg_data,
3081: '_PVT'
3082: );
3083: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3084: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3085: (
3086: l_api_name,
3087: G_PKG_NAME,
3080: x_msg_data,
3081: '_PVT'
3082: );
3083: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3084: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3085: (
3086: l_api_name,
3087: G_PKG_NAME,
3088: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3084: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3085: (
3086: l_api_name,
3087: G_PKG_NAME,
3088: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3089: x_msg_count,
3090: x_msg_data,
3091: '_PVT'
3092: );
3090: x_msg_data,
3091: '_PVT'
3092: );
3093: WHEN OTHERS THEN
3094: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3095: (
3096: l_api_name,
3097: G_PKG_NAME,
3098: 'OTHERS',
3111: x_msg_count OUT NOCOPY NUMBER,
3112: x_msg_data OUT NOCOPY VARCHAR2,
3113: p_tbcv_tbl IN tbcv_tbl_type,
3114: x_tbcv_tbl OUT NOCOPY tbcv_tbl_type,
3115: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3116:
3117: l_api_version CONSTANT NUMBER := 1;
3118: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
3119: i NUMBER := 0;
3117: l_api_version CONSTANT NUMBER := 1;
3118: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
3119: i NUMBER := 0;
3120: BEGIN
3121: OKL_API.init_msg_list(p_init_msg_list);
3122: -- Make sure PL/SQL table has records in it before passing
3123: IF (p_tbcv_tbl.COUNT > 0) THEN
3124: i := p_tbcv_tbl.FIRST;
3125: LOOP
3123: IF (p_tbcv_tbl.COUNT > 0) THEN
3124: i := p_tbcv_tbl.FIRST;
3125: LOOP
3126: DECLARE
3127: l_error_rec OKL_API.ERROR_REC_TYPE;
3128: BEGIN
3129: l_error_rec.api_name := l_api_name;
3130: l_error_rec.api_package := G_PKG_NAME;
3131: l_error_rec.idx := i;
3130: l_error_rec.api_package := G_PKG_NAME;
3131: l_error_rec.idx := i;
3132: insert_row (
3133: p_api_version => p_api_version,
3134: p_init_msg_list => OKL_API.G_FALSE,
3135: x_return_status => l_error_rec.error_type,
3136: x_msg_count => l_error_rec.msg_count,
3137: x_msg_data => l_error_rec.msg_data,
3138: p_tbcv_rec => p_tbcv_tbl(i),
3136: x_msg_count => l_error_rec.msg_count,
3137: x_msg_data => l_error_rec.msg_data,
3138: p_tbcv_rec => p_tbcv_tbl(i),
3139: x_tbcv_rec => x_tbcv_tbl(i));
3140: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3141: l_error_rec.sqlcode := SQLCODE;
3142: load_error_tbl(l_error_rec, px_error_tbl);
3143: ELSE
3144: x_msg_count := l_error_rec.msg_count;
3144: x_msg_count := l_error_rec.msg_count;
3145: x_msg_data := l_error_rec.msg_data;
3146: END IF;
3147: EXCEPTION
3148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3149: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3150: l_error_rec.sqlcode := SQLCODE;
3151: load_error_tbl(l_error_rec, px_error_tbl);
3152: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3145: x_msg_data := l_error_rec.msg_data;
3146: END IF;
3147: EXCEPTION
3148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3149: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3150: l_error_rec.sqlcode := SQLCODE;
3151: load_error_tbl(l_error_rec, px_error_tbl);
3152: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3153: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3149: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3150: l_error_rec.sqlcode := SQLCODE;
3151: load_error_tbl(l_error_rec, px_error_tbl);
3152: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3153: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3154: l_error_rec.sqlcode := SQLCODE;
3155: load_error_tbl(l_error_rec, px_error_tbl);
3156: WHEN OTHERS THEN
3149: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3150: l_error_rec.sqlcode := SQLCODE;
3151: load_error_tbl(l_error_rec, px_error_tbl);
3152: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3153: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3154: l_error_rec.sqlcode := SQLCODE;
3155: load_error_tbl(l_error_rec, px_error_tbl);
3156: WHEN OTHERS THEN
3157: l_error_rec.error_type := 'OTHERS';
3164: END IF;
3165: -- Loop through the error_tbl to find the error with the highest severity
3166: -- and return it.
3167: x_return_status := find_highest_exception(px_error_tbl);
3168: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3169: EXCEPTION
3170: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3172: (
3166: -- and return it.
3167: x_return_status := find_highest_exception(px_error_tbl);
3168: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3169: EXCEPTION
3170: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3172: (
3173: l_api_name,
3174: G_PKG_NAME,
3167: x_return_status := find_highest_exception(px_error_tbl);
3168: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3169: EXCEPTION
3170: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3172: (
3173: l_api_name,
3174: G_PKG_NAME,
3175: 'OKL_API.G_RET_STS_ERROR',
3171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3172: (
3173: l_api_name,
3174: G_PKG_NAME,
3175: 'OKL_API.G_RET_STS_ERROR',
3176: x_msg_count,
3177: x_msg_data,
3178: '_PVT'
3179: );
3176: x_msg_count,
3177: x_msg_data,
3178: '_PVT'
3179: );
3180: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3181: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3182: (
3183: l_api_name,
3184: G_PKG_NAME,
3177: x_msg_data,
3178: '_PVT'
3179: );
3180: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3181: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3182: (
3183: l_api_name,
3184: G_PKG_NAME,
3185: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3181: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3182: (
3183: l_api_name,
3184: G_PKG_NAME,
3185: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3186: x_msg_count,
3187: x_msg_data,
3188: '_PVT'
3189: );
3187: x_msg_data,
3188: '_PVT'
3189: );
3190: WHEN OTHERS THEN
3191: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3192: (
3193: l_api_name,
3194: G_PKG_NAME,
3195: 'OTHERS',
3214: x_tbcv_tbl OUT NOCOPY tbcv_tbl_type) IS
3215:
3216: l_api_version CONSTANT NUMBER := 1;
3217: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3218: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3219: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3220: BEGIN
3221: OKL_API.init_msg_list(p_init_msg_list);
3222: -- Make sure PL/SQL table has records in it before passing
3215:
3216: l_api_version CONSTANT NUMBER := 1;
3217: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3218: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3219: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3220: BEGIN
3221: OKL_API.init_msg_list(p_init_msg_list);
3222: -- Make sure PL/SQL table has records in it before passing
3223: IF (p_tbcv_tbl.COUNT > 0) THEN
3217: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3218: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3219: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3220: BEGIN
3221: OKL_API.init_msg_list(p_init_msg_list);
3222: -- Make sure PL/SQL table has records in it before passing
3223: IF (p_tbcv_tbl.COUNT > 0) THEN
3224: insert_row (
3225: p_api_version => p_api_version,
3222: -- Make sure PL/SQL table has records in it before passing
3223: IF (p_tbcv_tbl.COUNT > 0) THEN
3224: insert_row (
3225: p_api_version => p_api_version,
3226: p_init_msg_list => OKL_API.G_FALSE,
3227: x_return_status => x_return_status,
3228: x_msg_count => x_msg_count,
3229: x_msg_data => x_msg_data,
3230: p_tbcv_tbl => p_tbcv_tbl,
3230: p_tbcv_tbl => p_tbcv_tbl,
3231: x_tbcv_tbl => x_tbcv_tbl,
3232: px_error_tbl => l_error_tbl);
3233: END IF;
3234: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3235: EXCEPTION
3236: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3237: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3238: (
3232: px_error_tbl => l_error_tbl);
3233: END IF;
3234: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3235: EXCEPTION
3236: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3237: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3238: (
3239: l_api_name,
3240: G_PKG_NAME,
3233: END IF;
3234: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3235: EXCEPTION
3236: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3237: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3238: (
3239: l_api_name,
3240: G_PKG_NAME,
3241: 'OKL_API.G_RET_STS_ERROR',
3237: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3238: (
3239: l_api_name,
3240: G_PKG_NAME,
3241: 'OKL_API.G_RET_STS_ERROR',
3242: x_msg_count,
3243: x_msg_data,
3244: '_PVT'
3245: );
3242: x_msg_count,
3243: x_msg_data,
3244: '_PVT'
3245: );
3246: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3247: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3248: (
3249: l_api_name,
3250: G_PKG_NAME,
3243: x_msg_data,
3244: '_PVT'
3245: );
3246: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3247: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3248: (
3249: l_api_name,
3250: G_PKG_NAME,
3251: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3247: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3248: (
3249: l_api_name,
3250: G_PKG_NAME,
3251: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3252: x_msg_count,
3253: x_msg_data,
3254: '_PVT'
3255: );
3253: x_msg_data,
3254: '_PVT'
3255: );
3256: WHEN OTHERS THEN
3257: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3258: (
3259: l_api_name,
3260: G_PKG_NAME,
3261: 'OTHERS',
3294: -- WHERE ID = p_tbc_rec.id;
3295: WHERE RESULT_CODE = p_tbc_rec.result_code;
3296: l_api_version CONSTANT NUMBER := 1;
3297: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
3298: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3299: l_object_version_number OKL_TAX_ATTR_DEFINITIONS.OBJECT_VERSION_NUMBER%TYPE;
3300: lc_object_version_number OKL_TAX_ATTR_DEFINITIONS.OBJECT_VERSION_NUMBER%TYPE;
3301: l_row_notfound BOOLEAN := FALSE;
3302: lc_row_notfound BOOLEAN := FALSE;
3300: lc_object_version_number OKL_TAX_ATTR_DEFINITIONS.OBJECT_VERSION_NUMBER%TYPE;
3301: l_row_notfound BOOLEAN := FALSE;
3302: lc_row_notfound BOOLEAN := FALSE;
3303: BEGIN
3304: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3305: p_init_msg_list,
3306: '_PVT',
3307: x_return_status);
3308: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3304: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3305: p_init_msg_list,
3306: '_PVT',
3307: x_return_status);
3308: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3310: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3311: RAISE OKL_API.G_EXCEPTION_ERROR;
3312: END IF;
3305: p_init_msg_list,
3306: '_PVT',
3307: x_return_status);
3308: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3310: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3311: RAISE OKL_API.G_EXCEPTION_ERROR;
3312: END IF;
3313: BEGIN
3306: '_PVT',
3307: x_return_status);
3308: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3310: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3311: RAISE OKL_API.G_EXCEPTION_ERROR;
3312: END IF;
3313: BEGIN
3314: OPEN lock_csr(p_tbc_rec);
3307: x_return_status);
3308: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3310: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3311: RAISE OKL_API.G_EXCEPTION_ERROR;
3312: END IF;
3313: BEGIN
3314: OPEN lock_csr(p_tbc_rec);
3315: FETCH lock_csr INTO l_object_version_number;
3319: WHEN E_Resource_Busy THEN
3320: IF (lock_csr%ISOPEN) THEN
3321: CLOSE lock_csr;
3322: END IF;
3323: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3324: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3325: END;
3326:
3327: IF ( l_row_notfound ) THEN
3330: lc_row_notfound := lchk_csr%NOTFOUND;
3331: CLOSE lchk_csr;
3332: END IF;
3333: IF (lc_row_notfound) THEN
3334: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3335: RAISE OKL_API.G_EXCEPTION_ERROR;
3336: ELSIF lc_object_version_number > p_tbc_rec.object_version_number THEN
3337: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3338: RAISE OKL_API.G_EXCEPTION_ERROR;
3331: CLOSE lchk_csr;
3332: END IF;
3333: IF (lc_row_notfound) THEN
3334: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3335: RAISE OKL_API.G_EXCEPTION_ERROR;
3336: ELSIF lc_object_version_number > p_tbc_rec.object_version_number THEN
3337: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3338: RAISE OKL_API.G_EXCEPTION_ERROR;
3339: ELSIF lc_object_version_number <> p_tbc_rec.object_version_number THEN
3333: IF (lc_row_notfound) THEN
3334: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3335: RAISE OKL_API.G_EXCEPTION_ERROR;
3336: ELSIF lc_object_version_number > p_tbc_rec.object_version_number THEN
3337: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3338: RAISE OKL_API.G_EXCEPTION_ERROR;
3339: ELSIF lc_object_version_number <> p_tbc_rec.object_version_number THEN
3340: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3341: RAISE OKL_API.G_EXCEPTION_ERROR;
3334: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3335: RAISE OKL_API.G_EXCEPTION_ERROR;
3336: ELSIF lc_object_version_number > p_tbc_rec.object_version_number THEN
3337: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3338: RAISE OKL_API.G_EXCEPTION_ERROR;
3339: ELSIF lc_object_version_number <> p_tbc_rec.object_version_number THEN
3340: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3341: RAISE OKL_API.G_EXCEPTION_ERROR;
3342: ELSIF lc_object_version_number = -1 THEN
3336: ELSIF lc_object_version_number > p_tbc_rec.object_version_number THEN
3337: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3338: RAISE OKL_API.G_EXCEPTION_ERROR;
3339: ELSIF lc_object_version_number <> p_tbc_rec.object_version_number THEN
3340: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3341: RAISE OKL_API.G_EXCEPTION_ERROR;
3342: ELSIF lc_object_version_number = -1 THEN
3343: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3344: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3338: RAISE OKL_API.G_EXCEPTION_ERROR;
3339: ELSIF lc_object_version_number <> p_tbc_rec.object_version_number THEN
3340: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3341: RAISE OKL_API.G_EXCEPTION_ERROR;
3342: ELSIF lc_object_version_number = -1 THEN
3343: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3344: RAISE OKL_API.G_EXCEPTION_ERROR;
3345: END IF;
3339: ELSIF lc_object_version_number <> p_tbc_rec.object_version_number THEN
3340: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3341: RAISE OKL_API.G_EXCEPTION_ERROR;
3342: ELSIF lc_object_version_number = -1 THEN
3343: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3344: RAISE OKL_API.G_EXCEPTION_ERROR;
3345: END IF;
3346: x_return_status := l_return_status;
3347: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3340: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3341: RAISE OKL_API.G_EXCEPTION_ERROR;
3342: ELSIF lc_object_version_number = -1 THEN
3343: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3344: RAISE OKL_API.G_EXCEPTION_ERROR;
3345: END IF;
3346: x_return_status := l_return_status;
3347: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3348: EXCEPTION
3343: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3344: RAISE OKL_API.G_EXCEPTION_ERROR;
3345: END IF;
3346: x_return_status := l_return_status;
3347: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3348: EXCEPTION
3349: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3350: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3351: (
3345: END IF;
3346: x_return_status := l_return_status;
3347: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3348: EXCEPTION
3349: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3350: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3351: (
3352: l_api_name,
3353: G_PKG_NAME,
3346: x_return_status := l_return_status;
3347: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3348: EXCEPTION
3349: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3350: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3351: (
3352: l_api_name,
3353: G_PKG_NAME,
3354: 'OKL_API.G_RET_STS_ERROR',
3350: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3351: (
3352: l_api_name,
3353: G_PKG_NAME,
3354: 'OKL_API.G_RET_STS_ERROR',
3355: x_msg_count,
3356: x_msg_data,
3357: '_PVT'
3358: );
3355: x_msg_count,
3356: x_msg_data,
3357: '_PVT'
3358: );
3359: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3360: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3361: (
3362: l_api_name,
3363: G_PKG_NAME,
3356: x_msg_data,
3357: '_PVT'
3358: );
3359: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3360: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3361: (
3362: l_api_name,
3363: G_PKG_NAME,
3364: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3360: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3361: (
3362: l_api_name,
3363: G_PKG_NAME,
3364: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3365: x_msg_count,
3366: x_msg_data,
3367: '_PVT'
3368: );
3366: x_msg_data,
3367: '_PVT'
3368: );
3369: WHEN OTHERS THEN
3370: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3371: (
3372: l_api_name,
3373: G_PKG_NAME,
3374: 'OTHERS',
3389: p_tbcv_rec IN tbcv_rec_type) IS
3390:
3391: l_api_version CONSTANT NUMBER := 1;
3392: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3393: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3394: l_tbc_rec tbc_rec_type;
3395: BEGIN
3396: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3397: G_PKG_NAME,
3392: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3393: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3394: l_tbc_rec tbc_rec_type;
3395: BEGIN
3396: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3397: G_PKG_NAME,
3398: p_init_msg_list,
3399: l_api_version,
3400: p_api_version,
3399: l_api_version,
3400: p_api_version,
3401: '_PVT',
3402: x_return_status);
3403: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3405: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3407: END IF;
3400: p_api_version,
3401: '_PVT',
3402: x_return_status);
3403: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3405: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3407: END IF;
3408: -----------------------------------------
3401: '_PVT',
3402: x_return_status);
3403: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3405: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3407: END IF;
3408: -----------------------------------------
3409: -- Move VIEW record to "Child" records --
3402: x_return_status);
3403: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3404: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3405: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3406: RAISE OKL_API.G_EXCEPTION_ERROR;
3407: END IF;
3408: -----------------------------------------
3409: -- Move VIEW record to "Child" records --
3410: -----------------------------------------
3418: x_msg_count,
3419: x_msg_data,
3420: l_tbc_rec
3421: );
3422: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3424: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3425: RAISE OKL_API.G_EXCEPTION_ERROR;
3426: END IF;
3419: x_msg_data,
3420: l_tbc_rec
3421: );
3422: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3424: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3425: RAISE OKL_API.G_EXCEPTION_ERROR;
3426: END IF;
3427: x_return_status := l_return_status;
3420: l_tbc_rec
3421: );
3422: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3424: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3425: RAISE OKL_API.G_EXCEPTION_ERROR;
3426: END IF;
3427: x_return_status := l_return_status;
3428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3421: );
3422: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3423: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3424: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3425: RAISE OKL_API.G_EXCEPTION_ERROR;
3426: END IF;
3427: x_return_status := l_return_status;
3428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3429: EXCEPTION
3424: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3425: RAISE OKL_API.G_EXCEPTION_ERROR;
3426: END IF;
3427: x_return_status := l_return_status;
3428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3429: EXCEPTION
3430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3432: (
3426: END IF;
3427: x_return_status := l_return_status;
3428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3429: EXCEPTION
3430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3432: (
3433: l_api_name,
3434: G_PKG_NAME,
3427: x_return_status := l_return_status;
3428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3429: EXCEPTION
3430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3432: (
3433: l_api_name,
3434: G_PKG_NAME,
3435: 'OKL_API.G_RET_STS_ERROR',
3431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3432: (
3433: l_api_name,
3434: G_PKG_NAME,
3435: 'OKL_API.G_RET_STS_ERROR',
3436: x_msg_count,
3437: x_msg_data,
3438: '_PVT'
3439: );
3436: x_msg_count,
3437: x_msg_data,
3438: '_PVT'
3439: );
3440: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3442: (
3443: l_api_name,
3444: G_PKG_NAME,
3437: x_msg_data,
3438: '_PVT'
3439: );
3440: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3442: (
3443: l_api_name,
3444: G_PKG_NAME,
3445: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3442: (
3443: l_api_name,
3444: G_PKG_NAME,
3445: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3446: x_msg_count,
3447: x_msg_data,
3448: '_PVT'
3449: );
3447: x_msg_data,
3448: '_PVT'
3449: );
3450: WHEN OTHERS THEN
3451: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3452: (
3453: l_api_name,
3454: G_PKG_NAME,
3455: 'OTHERS',
3467: x_return_status OUT NOCOPY VARCHAR2,
3468: x_msg_count OUT NOCOPY NUMBER,
3469: x_msg_data OUT NOCOPY VARCHAR2,
3470: p_tbcv_tbl IN tbcv_tbl_type,
3471: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3472:
3473: l_api_version CONSTANT NUMBER := 1;
3474: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
3475: i NUMBER := 0;
3473: l_api_version CONSTANT NUMBER := 1;
3474: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
3475: i NUMBER := 0;
3476: BEGIN
3477: OKL_API.init_msg_list(p_init_msg_list);
3478: -- Make sure PL/SQL table has recrods in it before passing
3479: IF (p_tbcv_tbl.COUNT > 0) THEN
3480: i := p_tbcv_tbl.FIRST;
3481: LOOP
3479: IF (p_tbcv_tbl.COUNT > 0) THEN
3480: i := p_tbcv_tbl.FIRST;
3481: LOOP
3482: DECLARE
3483: l_error_rec OKL_API.ERROR_REC_TYPE;
3484: BEGIN
3485: l_error_rec.api_name := l_api_name;
3486: l_error_rec.api_package := G_PKG_NAME;
3487: l_error_rec.idx := i;
3486: l_error_rec.api_package := G_PKG_NAME;
3487: l_error_rec.idx := i;
3488: lock_row(
3489: p_api_version => p_api_version,
3490: p_init_msg_list => OKL_API.G_FALSE,
3491: x_return_status => l_error_rec.error_type,
3492: x_msg_count => l_error_rec.msg_count,
3493: x_msg_data => l_error_rec.msg_data,
3494: p_tbcv_rec => p_tbcv_tbl(i));
3491: x_return_status => l_error_rec.error_type,
3492: x_msg_count => l_error_rec.msg_count,
3493: x_msg_data => l_error_rec.msg_data,
3494: p_tbcv_rec => p_tbcv_tbl(i));
3495: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3496: l_error_rec.sqlcode := SQLCODE;
3497: load_error_tbl(l_error_rec, px_error_tbl);
3498: ELSE
3499: x_msg_count := l_error_rec.msg_count;
3499: x_msg_count := l_error_rec.msg_count;
3500: x_msg_data := l_error_rec.msg_data;
3501: END IF;
3502: EXCEPTION
3503: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3504: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3505: l_error_rec.sqlcode := SQLCODE;
3506: load_error_tbl(l_error_rec, px_error_tbl);
3507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3500: x_msg_data := l_error_rec.msg_data;
3501: END IF;
3502: EXCEPTION
3503: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3504: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3505: l_error_rec.sqlcode := SQLCODE;
3506: load_error_tbl(l_error_rec, px_error_tbl);
3507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3508: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3503: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3504: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3505: l_error_rec.sqlcode := SQLCODE;
3506: load_error_tbl(l_error_rec, px_error_tbl);
3507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3508: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3509: l_error_rec.sqlcode := SQLCODE;
3510: load_error_tbl(l_error_rec, px_error_tbl);
3511: WHEN OTHERS THEN
3504: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3505: l_error_rec.sqlcode := SQLCODE;
3506: load_error_tbl(l_error_rec, px_error_tbl);
3507: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3508: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3509: l_error_rec.sqlcode := SQLCODE;
3510: load_error_tbl(l_error_rec, px_error_tbl);
3511: WHEN OTHERS THEN
3512: l_error_rec.error_type := 'OTHERS';
3519: END IF;
3520: -- Loop through the error_tbl to find the error with the highest severity
3521: -- and return it.
3522: x_return_status := find_highest_exception(px_error_tbl);
3523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3524: EXCEPTION
3525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3527: (
3521: -- and return it.
3522: x_return_status := find_highest_exception(px_error_tbl);
3523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3524: EXCEPTION
3525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3527: (
3528: l_api_name,
3529: G_PKG_NAME,
3522: x_return_status := find_highest_exception(px_error_tbl);
3523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3524: EXCEPTION
3525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3527: (
3528: l_api_name,
3529: G_PKG_NAME,
3530: 'OKL_API.G_RET_STS_ERROR',
3526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3527: (
3528: l_api_name,
3529: G_PKG_NAME,
3530: 'OKL_API.G_RET_STS_ERROR',
3531: x_msg_count,
3532: x_msg_data,
3533: '_PVT'
3534: );
3531: x_msg_count,
3532: x_msg_data,
3533: '_PVT'
3534: );
3535: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3536: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3537: (
3538: l_api_name,
3539: G_PKG_NAME,
3532: x_msg_data,
3533: '_PVT'
3534: );
3535: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3536: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3537: (
3538: l_api_name,
3539: G_PKG_NAME,
3540: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3536: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3537: (
3538: l_api_name,
3539: G_PKG_NAME,
3540: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3541: x_msg_count,
3542: x_msg_data,
3543: '_PVT'
3544: );
3542: x_msg_data,
3543: '_PVT'
3544: );
3545: WHEN OTHERS THEN
3546: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3547: (
3548: l_api_name,
3549: G_PKG_NAME,
3550: 'OTHERS',
3565: p_tbcv_tbl IN tbcv_tbl_type) IS
3566:
3567: l_api_version CONSTANT NUMBER := 1;
3568: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
3569: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3570: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3571: BEGIN
3572: OKL_API.init_msg_list(p_init_msg_list);
3573: -- Make sure PL/SQL table has recrods in it before passing
3566:
3567: l_api_version CONSTANT NUMBER := 1;
3568: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
3569: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3570: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3571: BEGIN
3572: OKL_API.init_msg_list(p_init_msg_list);
3573: -- Make sure PL/SQL table has recrods in it before passing
3574: IF (p_tbcv_tbl.COUNT > 0) THEN
3568: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
3569: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3570: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3571: BEGIN
3572: OKL_API.init_msg_list(p_init_msg_list);
3573: -- Make sure PL/SQL table has recrods in it before passing
3574: IF (p_tbcv_tbl.COUNT > 0) THEN
3575: lock_row(
3576: p_api_version => p_api_version,
3573: -- Make sure PL/SQL table has recrods in it before passing
3574: IF (p_tbcv_tbl.COUNT > 0) THEN
3575: lock_row(
3576: p_api_version => p_api_version,
3577: p_init_msg_list => OKL_API.G_FALSE,
3578: x_return_status => x_return_status,
3579: x_msg_count => x_msg_count,
3580: x_msg_data => x_msg_data,
3581: p_tbcv_tbl => p_tbcv_tbl,
3580: x_msg_data => x_msg_data,
3581: p_tbcv_tbl => p_tbcv_tbl,
3582: px_error_tbl => l_error_tbl);
3583: END IF;
3584: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3585: EXCEPTION
3586: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3587: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3588: (
3582: px_error_tbl => l_error_tbl);
3583: END IF;
3584: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3585: EXCEPTION
3586: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3587: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3588: (
3589: l_api_name,
3590: G_PKG_NAME,
3583: END IF;
3584: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3585: EXCEPTION
3586: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3587: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3588: (
3589: l_api_name,
3590: G_PKG_NAME,
3591: 'OKL_API.G_RET_STS_ERROR',
3587: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3588: (
3589: l_api_name,
3590: G_PKG_NAME,
3591: 'OKL_API.G_RET_STS_ERROR',
3592: x_msg_count,
3593: x_msg_data,
3594: '_PVT'
3595: );
3592: x_msg_count,
3593: x_msg_data,
3594: '_PVT'
3595: );
3596: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3597: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3598: (
3599: l_api_name,
3600: G_PKG_NAME,
3593: x_msg_data,
3594: '_PVT'
3595: );
3596: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3597: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3598: (
3599: l_api_name,
3600: G_PKG_NAME,
3601: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3597: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3598: (
3599: l_api_name,
3600: G_PKG_NAME,
3601: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3602: x_msg_count,
3603: x_msg_data,
3604: '_PVT'
3605: );
3603: x_msg_data,
3604: '_PVT'
3605: );
3606: WHEN OTHERS THEN
3607: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3608: (
3609: l_api_name,
3610: G_PKG_NAME,
3611: 'OTHERS',
3629: x_tbc_rec OUT NOCOPY tbc_rec_type) IS
3630:
3631: l_api_version CONSTANT NUMBER := 1;
3632: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
3633: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3634: l_tbc_rec tbc_rec_type := p_tbc_rec;
3635: l_def_tbc_rec tbc_rec_type;
3636: l_row_notfound BOOLEAN := TRUE;
3637: ----------------------------------
3642: x_tbc_rec OUT NOCOPY tbc_rec_type
3643: ) RETURN VARCHAR2 IS
3644: l_tbc_rec tbc_rec_type;
3645: l_row_notfound BOOLEAN := TRUE;
3646: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3647: BEGIN
3648: x_tbc_rec := p_tbc_rec;
3649: -- Get current database values
3650: l_tbc_rec := get_rec(p_tbc_rec, l_return_status);
3647: BEGIN
3648: x_tbc_rec := p_tbc_rec;
3649: -- Get current database values
3650: l_tbc_rec := get_rec(p_tbc_rec, l_return_status);
3651: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3652: /*IF (x_tbc_rec.id = OKL_API.G_MISS_NUM)
3653: THEN
3654: x_tbc_rec.id := l_tbc_rec.id;
3655: END IF;
3648: x_tbc_rec := p_tbc_rec;
3649: -- Get current database values
3650: l_tbc_rec := get_rec(p_tbc_rec, l_return_status);
3651: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
3652: /*IF (x_tbc_rec.id = OKL_API.G_MISS_NUM)
3653: THEN
3654: x_tbc_rec.id := l_tbc_rec.id;
3655: END IF;
3656: IF (x_tbc_rec.org_id = OKL_API.G_MISS_NUM)
3652: /*IF (x_tbc_rec.id = OKL_API.G_MISS_NUM)
3653: THEN
3654: x_tbc_rec.id := l_tbc_rec.id;
3655: END IF;
3656: IF (x_tbc_rec.org_id = OKL_API.G_MISS_NUM)
3657: THEN
3658: x_tbc_rec.org_id := l_tbc_rec.org_id;
3659: END IF; */
3660:
3659: END IF; */
3660:
3661: -- modified by dcshanmu for eBTax project - modification start
3662: -- modified tbc_code to result_code
3663: IF (x_tbc_rec.result_code = OKL_API.G_MISS_CHAR)
3664: THEN
3665: x_tbc_rec.result_code := l_tbc_rec.result_code;
3666: END IF;
3667: -- modified by dcshanmu for eBTax project - modification end
3665: x_tbc_rec.result_code := l_tbc_rec.result_code;
3666: END IF;
3667: -- modified by dcshanmu for eBTax project - modification end
3668:
3669: IF (x_tbc_rec.purchase_option_code = OKL_API.G_MISS_CHAR)
3670: THEN
3671: x_tbc_rec.purchase_option_code := l_tbc_rec.purchase_option_code;
3672: END IF;
3673: IF (x_tbc_rec.pdt_id = OKL_API.G_MISS_NUM)
3669: IF (x_tbc_rec.purchase_option_code = OKL_API.G_MISS_CHAR)
3670: THEN
3671: x_tbc_rec.purchase_option_code := l_tbc_rec.purchase_option_code;
3672: END IF;
3673: IF (x_tbc_rec.pdt_id = OKL_API.G_MISS_NUM)
3674: THEN
3675: x_tbc_rec.pdt_id := l_tbc_rec.pdt_id;
3676: END IF;
3677: IF (x_tbc_rec.try_id = OKL_API.G_MISS_NUM)
3673: IF (x_tbc_rec.pdt_id = OKL_API.G_MISS_NUM)
3674: THEN
3675: x_tbc_rec.pdt_id := l_tbc_rec.pdt_id;
3676: END IF;
3677: IF (x_tbc_rec.try_id = OKL_API.G_MISS_NUM)
3678: THEN
3679: x_tbc_rec.try_id := l_tbc_rec.try_id;
3680: END IF;
3681: IF (x_tbc_rec.sty_id = OKL_API.G_MISS_NUM)
3677: IF (x_tbc_rec.try_id = OKL_API.G_MISS_NUM)
3678: THEN
3679: x_tbc_rec.try_id := l_tbc_rec.try_id;
3680: END IF;
3681: IF (x_tbc_rec.sty_id = OKL_API.G_MISS_NUM)
3682: THEN
3683: x_tbc_rec.sty_id := l_tbc_rec.sty_id;
3684: END IF;
3685: IF (x_tbc_rec.int_disclosed_code = OKL_API.G_MISS_CHAR)
3681: IF (x_tbc_rec.sty_id = OKL_API.G_MISS_NUM)
3682: THEN
3683: x_tbc_rec.sty_id := l_tbc_rec.sty_id;
3684: END IF;
3685: IF (x_tbc_rec.int_disclosed_code = OKL_API.G_MISS_CHAR)
3686: THEN
3687: x_tbc_rec.int_disclosed_code := l_tbc_rec.int_disclosed_code;
3688: END IF;
3689: IF (x_tbc_rec.title_trnsfr_code = OKL_API.G_MISS_CHAR)
3685: IF (x_tbc_rec.int_disclosed_code = OKL_API.G_MISS_CHAR)
3686: THEN
3687: x_tbc_rec.int_disclosed_code := l_tbc_rec.int_disclosed_code;
3688: END IF;
3689: IF (x_tbc_rec.title_trnsfr_code = OKL_API.G_MISS_CHAR)
3690: THEN
3691: x_tbc_rec.title_trnsfr_code := l_tbc_rec.title_trnsfr_code;
3692: END IF;
3693: IF (x_tbc_rec.sale_lease_back_code = OKL_API.G_MISS_CHAR)
3689: IF (x_tbc_rec.title_trnsfr_code = OKL_API.G_MISS_CHAR)
3690: THEN
3691: x_tbc_rec.title_trnsfr_code := l_tbc_rec.title_trnsfr_code;
3692: END IF;
3693: IF (x_tbc_rec.sale_lease_back_code = OKL_API.G_MISS_CHAR)
3694: THEN
3695: x_tbc_rec.sale_lease_back_code := l_tbc_rec.sale_lease_back_code;
3696: END IF;
3697: IF (x_tbc_rec.lease_purchased_code = OKL_API.G_MISS_CHAR)
3693: IF (x_tbc_rec.sale_lease_back_code = OKL_API.G_MISS_CHAR)
3694: THEN
3695: x_tbc_rec.sale_lease_back_code := l_tbc_rec.sale_lease_back_code;
3696: END IF;
3697: IF (x_tbc_rec.lease_purchased_code = OKL_API.G_MISS_CHAR)
3698: THEN
3699: x_tbc_rec.lease_purchased_code := l_tbc_rec.lease_purchased_code;
3700: END IF;
3701: IF (x_tbc_rec.equip_usage_code = OKL_API.G_MISS_CHAR)
3697: IF (x_tbc_rec.lease_purchased_code = OKL_API.G_MISS_CHAR)
3698: THEN
3699: x_tbc_rec.lease_purchased_code := l_tbc_rec.lease_purchased_code;
3700: END IF;
3701: IF (x_tbc_rec.equip_usage_code = OKL_API.G_MISS_CHAR)
3702: THEN
3703: x_tbc_rec.equip_usage_code := l_tbc_rec.equip_usage_code;
3704: END IF;
3705: IF (x_tbc_rec.vendor_site_id = OKL_API.G_MISS_NUM)
3701: IF (x_tbc_rec.equip_usage_code = OKL_API.G_MISS_CHAR)
3702: THEN
3703: x_tbc_rec.equip_usage_code := l_tbc_rec.equip_usage_code;
3704: END IF;
3705: IF (x_tbc_rec.vendor_site_id = OKL_API.G_MISS_NUM)
3706: THEN
3707: x_tbc_rec.vendor_site_id := l_tbc_rec.vendor_site_id;
3708: END IF;
3709: IF (x_tbc_rec.age_of_equip_from = OKL_API.G_MISS_NUM)
3705: IF (x_tbc_rec.vendor_site_id = OKL_API.G_MISS_NUM)
3706: THEN
3707: x_tbc_rec.vendor_site_id := l_tbc_rec.vendor_site_id;
3708: END IF;
3709: IF (x_tbc_rec.age_of_equip_from = OKL_API.G_MISS_NUM)
3710: THEN
3711: x_tbc_rec.age_of_equip_from := l_tbc_rec.age_of_equip_from;
3712: END IF;
3713:
3710: THEN
3711: x_tbc_rec.age_of_equip_from := l_tbc_rec.age_of_equip_from;
3712: END IF;
3713:
3714: IF (x_tbc_rec.age_of_equip_to = OKL_API.G_MISS_NUM)
3715: THEN
3716: x_tbc_rec.age_of_equip_to := l_tbc_rec.age_of_equip_to;
3717: END IF;
3718:
3715: THEN
3716: x_tbc_rec.age_of_equip_to := l_tbc_rec.age_of_equip_to;
3717: END IF;
3718:
3719: IF (x_tbc_rec.object_version_number = OKL_API.G_MISS_NUM)
3720: THEN
3721: x_tbc_rec.object_version_number := l_tbc_rec.object_version_number;
3722: END IF;
3723: IF (x_tbc_rec.attribute_category = OKL_API.G_MISS_CHAR)
3719: IF (x_tbc_rec.object_version_number = OKL_API.G_MISS_NUM)
3720: THEN
3721: x_tbc_rec.object_version_number := l_tbc_rec.object_version_number;
3722: END IF;
3723: IF (x_tbc_rec.attribute_category = OKL_API.G_MISS_CHAR)
3724: THEN
3725: x_tbc_rec.attribute_category := l_tbc_rec.attribute_category;
3726: END IF;
3727: IF (x_tbc_rec.attribute1 = OKL_API.G_MISS_CHAR)
3723: IF (x_tbc_rec.attribute_category = OKL_API.G_MISS_CHAR)
3724: THEN
3725: x_tbc_rec.attribute_category := l_tbc_rec.attribute_category;
3726: END IF;
3727: IF (x_tbc_rec.attribute1 = OKL_API.G_MISS_CHAR)
3728: THEN
3729: x_tbc_rec.attribute1 := l_tbc_rec.attribute1;
3730: END IF;
3731: IF (x_tbc_rec.attribute2 = OKL_API.G_MISS_CHAR)
3727: IF (x_tbc_rec.attribute1 = OKL_API.G_MISS_CHAR)
3728: THEN
3729: x_tbc_rec.attribute1 := l_tbc_rec.attribute1;
3730: END IF;
3731: IF (x_tbc_rec.attribute2 = OKL_API.G_MISS_CHAR)
3732: THEN
3733: x_tbc_rec.attribute2 := l_tbc_rec.attribute2;
3734: END IF;
3735: IF (x_tbc_rec.attribute3 = OKL_API.G_MISS_CHAR)
3731: IF (x_tbc_rec.attribute2 = OKL_API.G_MISS_CHAR)
3732: THEN
3733: x_tbc_rec.attribute2 := l_tbc_rec.attribute2;
3734: END IF;
3735: IF (x_tbc_rec.attribute3 = OKL_API.G_MISS_CHAR)
3736: THEN
3737: x_tbc_rec.attribute3 := l_tbc_rec.attribute3;
3738: END IF;
3739: IF (x_tbc_rec.attribute4 = OKL_API.G_MISS_CHAR)
3735: IF (x_tbc_rec.attribute3 = OKL_API.G_MISS_CHAR)
3736: THEN
3737: x_tbc_rec.attribute3 := l_tbc_rec.attribute3;
3738: END IF;
3739: IF (x_tbc_rec.attribute4 = OKL_API.G_MISS_CHAR)
3740: THEN
3741: x_tbc_rec.attribute4 := l_tbc_rec.attribute4;
3742: END IF;
3743: IF (x_tbc_rec.attribute5 = OKL_API.G_MISS_CHAR)
3739: IF (x_tbc_rec.attribute4 = OKL_API.G_MISS_CHAR)
3740: THEN
3741: x_tbc_rec.attribute4 := l_tbc_rec.attribute4;
3742: END IF;
3743: IF (x_tbc_rec.attribute5 = OKL_API.G_MISS_CHAR)
3744: THEN
3745: x_tbc_rec.attribute5 := l_tbc_rec.attribute5;
3746: END IF;
3747: IF (x_tbc_rec.attribute6 = OKL_API.G_MISS_CHAR)
3743: IF (x_tbc_rec.attribute5 = OKL_API.G_MISS_CHAR)
3744: THEN
3745: x_tbc_rec.attribute5 := l_tbc_rec.attribute5;
3746: END IF;
3747: IF (x_tbc_rec.attribute6 = OKL_API.G_MISS_CHAR)
3748: THEN
3749: x_tbc_rec.attribute6 := l_tbc_rec.attribute6;
3750: END IF;
3751: IF (x_tbc_rec.attribute7 = OKL_API.G_MISS_CHAR)
3747: IF (x_tbc_rec.attribute6 = OKL_API.G_MISS_CHAR)
3748: THEN
3749: x_tbc_rec.attribute6 := l_tbc_rec.attribute6;
3750: END IF;
3751: IF (x_tbc_rec.attribute7 = OKL_API.G_MISS_CHAR)
3752: THEN
3753: x_tbc_rec.attribute7 := l_tbc_rec.attribute7;
3754: END IF;
3755: IF (x_tbc_rec.attribute8 = OKL_API.G_MISS_CHAR)
3751: IF (x_tbc_rec.attribute7 = OKL_API.G_MISS_CHAR)
3752: THEN
3753: x_tbc_rec.attribute7 := l_tbc_rec.attribute7;
3754: END IF;
3755: IF (x_tbc_rec.attribute8 = OKL_API.G_MISS_CHAR)
3756: THEN
3757: x_tbc_rec.attribute8 := l_tbc_rec.attribute8;
3758: END IF;
3759: IF (x_tbc_rec.attribute9 = OKL_API.G_MISS_CHAR)
3755: IF (x_tbc_rec.attribute8 = OKL_API.G_MISS_CHAR)
3756: THEN
3757: x_tbc_rec.attribute8 := l_tbc_rec.attribute8;
3758: END IF;
3759: IF (x_tbc_rec.attribute9 = OKL_API.G_MISS_CHAR)
3760: THEN
3761: x_tbc_rec.attribute9 := l_tbc_rec.attribute9;
3762: END IF;
3763: IF (x_tbc_rec.attribute10 = OKL_API.G_MISS_CHAR)
3759: IF (x_tbc_rec.attribute9 = OKL_API.G_MISS_CHAR)
3760: THEN
3761: x_tbc_rec.attribute9 := l_tbc_rec.attribute9;
3762: END IF;
3763: IF (x_tbc_rec.attribute10 = OKL_API.G_MISS_CHAR)
3764: THEN
3765: x_tbc_rec.attribute10 := l_tbc_rec.attribute10;
3766: END IF;
3767: IF (x_tbc_rec.attribute11 = OKL_API.G_MISS_CHAR)
3763: IF (x_tbc_rec.attribute10 = OKL_API.G_MISS_CHAR)
3764: THEN
3765: x_tbc_rec.attribute10 := l_tbc_rec.attribute10;
3766: END IF;
3767: IF (x_tbc_rec.attribute11 = OKL_API.G_MISS_CHAR)
3768: THEN
3769: x_tbc_rec.attribute11 := l_tbc_rec.attribute11;
3770: END IF;
3771: IF (x_tbc_rec.attribute12 = OKL_API.G_MISS_CHAR)
3767: IF (x_tbc_rec.attribute11 = OKL_API.G_MISS_CHAR)
3768: THEN
3769: x_tbc_rec.attribute11 := l_tbc_rec.attribute11;
3770: END IF;
3771: IF (x_tbc_rec.attribute12 = OKL_API.G_MISS_CHAR)
3772: THEN
3773: x_tbc_rec.attribute12 := l_tbc_rec.attribute12;
3774: END IF;
3775: IF (x_tbc_rec.attribute13 = OKL_API.G_MISS_CHAR)
3771: IF (x_tbc_rec.attribute12 = OKL_API.G_MISS_CHAR)
3772: THEN
3773: x_tbc_rec.attribute12 := l_tbc_rec.attribute12;
3774: END IF;
3775: IF (x_tbc_rec.attribute13 = OKL_API.G_MISS_CHAR)
3776: THEN
3777: x_tbc_rec.attribute13 := l_tbc_rec.attribute13;
3778: END IF;
3779: IF (x_tbc_rec.attribute14 = OKL_API.G_MISS_CHAR)
3775: IF (x_tbc_rec.attribute13 = OKL_API.G_MISS_CHAR)
3776: THEN
3777: x_tbc_rec.attribute13 := l_tbc_rec.attribute13;
3778: END IF;
3779: IF (x_tbc_rec.attribute14 = OKL_API.G_MISS_CHAR)
3780: THEN
3781: x_tbc_rec.attribute14 := l_tbc_rec.attribute14;
3782: END IF;
3783: IF (x_tbc_rec.attribute15 = OKL_API.G_MISS_CHAR)
3779: IF (x_tbc_rec.attribute14 = OKL_API.G_MISS_CHAR)
3780: THEN
3781: x_tbc_rec.attribute14 := l_tbc_rec.attribute14;
3782: END IF;
3783: IF (x_tbc_rec.attribute15 = OKL_API.G_MISS_CHAR)
3784: THEN
3785: x_tbc_rec.attribute15 := l_tbc_rec.attribute15;
3786: END IF;
3787: IF (x_tbc_rec.created_by = OKL_API.G_MISS_NUM)
3783: IF (x_tbc_rec.attribute15 = OKL_API.G_MISS_CHAR)
3784: THEN
3785: x_tbc_rec.attribute15 := l_tbc_rec.attribute15;
3786: END IF;
3787: IF (x_tbc_rec.created_by = OKL_API.G_MISS_NUM)
3788: THEN
3789: x_tbc_rec.created_by := l_tbc_rec.created_by;
3790: END IF;
3791: IF (x_tbc_rec.creation_date = OKL_API.G_MISS_DATE)
3787: IF (x_tbc_rec.created_by = OKL_API.G_MISS_NUM)
3788: THEN
3789: x_tbc_rec.created_by := l_tbc_rec.created_by;
3790: END IF;
3791: IF (x_tbc_rec.creation_date = OKL_API.G_MISS_DATE)
3792: THEN
3793: x_tbc_rec.creation_date := l_tbc_rec.creation_date;
3794: END IF;
3795: IF (x_tbc_rec.last_updated_by = OKL_API.G_MISS_NUM)
3791: IF (x_tbc_rec.creation_date = OKL_API.G_MISS_DATE)
3792: THEN
3793: x_tbc_rec.creation_date := l_tbc_rec.creation_date;
3794: END IF;
3795: IF (x_tbc_rec.last_updated_by = OKL_API.G_MISS_NUM)
3796: THEN
3797: x_tbc_rec.last_updated_by := l_tbc_rec.last_updated_by;
3798: END IF;
3799: IF (x_tbc_rec.last_update_date = OKL_API.G_MISS_DATE)
3795: IF (x_tbc_rec.last_updated_by = OKL_API.G_MISS_NUM)
3796: THEN
3797: x_tbc_rec.last_updated_by := l_tbc_rec.last_updated_by;
3798: END IF;
3799: IF (x_tbc_rec.last_update_date = OKL_API.G_MISS_DATE)
3800: THEN
3801: x_tbc_rec.last_update_date := l_tbc_rec.last_update_date;
3802: END IF;
3803: IF (x_tbc_rec.last_update_login = OKL_API.G_MISS_NUM)
3799: IF (x_tbc_rec.last_update_date = OKL_API.G_MISS_DATE)
3800: THEN
3801: x_tbc_rec.last_update_date := l_tbc_rec.last_update_date;
3802: END IF;
3803: IF (x_tbc_rec.last_update_login = OKL_API.G_MISS_NUM)
3804: THEN
3805: x_tbc_rec.last_update_login := l_tbc_rec.last_update_login;
3806: END IF;
3807:
3807:
3808: -- modified by dcshanmu for eBTax project - modification start
3809: -- added migration code for newly added columns
3810:
3811: IF (x_tbc_rec.tax_attribute_def_id = OKL_API.G_MISS_NUM)
3812: THEN
3813: x_tbc_rec.tax_attribute_def_id := l_tbc_rec.tax_attribute_def_id;
3814: END IF;
3815: IF (x_tbc_rec.result_type_code = OKL_API.G_MISS_CHAR)
3811: IF (x_tbc_rec.tax_attribute_def_id = OKL_API.G_MISS_NUM)
3812: THEN
3813: x_tbc_rec.tax_attribute_def_id := l_tbc_rec.tax_attribute_def_id;
3814: END IF;
3815: IF (x_tbc_rec.result_type_code = OKL_API.G_MISS_CHAR)
3816: THEN
3817: x_tbc_rec.result_type_code := l_tbc_rec.result_type_code;
3818: END IF;
3819: IF (x_tbc_rec.book_class_code = OKL_API.G_MISS_CHAR)
3815: IF (x_tbc_rec.result_type_code = OKL_API.G_MISS_CHAR)
3816: THEN
3817: x_tbc_rec.result_type_code := l_tbc_rec.result_type_code;
3818: END IF;
3819: IF (x_tbc_rec.book_class_code = OKL_API.G_MISS_CHAR)
3820: THEN
3821: x_tbc_rec.book_class_code := l_tbc_rec.book_class_code;
3822: END IF;
3823: IF (x_tbc_rec.date_effective_from = OKL_API.G_MISS_DATE)
3819: IF (x_tbc_rec.book_class_code = OKL_API.G_MISS_CHAR)
3820: THEN
3821: x_tbc_rec.book_class_code := l_tbc_rec.book_class_code;
3822: END IF;
3823: IF (x_tbc_rec.date_effective_from = OKL_API.G_MISS_DATE)
3824: THEN
3825: x_tbc_rec.date_effective_from := l_tbc_rec.date_effective_from;
3826: END IF;
3827: IF (x_tbc_rec.date_effective_to = OKL_API.G_MISS_DATE)
3823: IF (x_tbc_rec.date_effective_from = OKL_API.G_MISS_DATE)
3824: THEN
3825: x_tbc_rec.date_effective_from := l_tbc_rec.date_effective_from;
3826: END IF;
3827: IF (x_tbc_rec.date_effective_to = OKL_API.G_MISS_DATE)
3828: THEN
3829: x_tbc_rec.date_effective_to := l_tbc_rec.date_effective_to;
3830: END IF;
3831: IF (x_tbc_rec.tax_country_code = OKL_API.G_MISS_CHAR)
3827: IF (x_tbc_rec.date_effective_to = OKL_API.G_MISS_DATE)
3828: THEN
3829: x_tbc_rec.date_effective_to := l_tbc_rec.date_effective_to;
3830: END IF;
3831: IF (x_tbc_rec.tax_country_code = OKL_API.G_MISS_CHAR)
3832: THEN
3833: x_tbc_rec.tax_country_code := l_tbc_rec.tax_country_code;
3834: END IF;
3835: IF (x_tbc_rec.term_quote_type_code = OKL_API.G_MISS_CHAR)
3831: IF (x_tbc_rec.tax_country_code = OKL_API.G_MISS_CHAR)
3832: THEN
3833: x_tbc_rec.tax_country_code := l_tbc_rec.tax_country_code;
3834: END IF;
3835: IF (x_tbc_rec.term_quote_type_code = OKL_API.G_MISS_CHAR)
3836: THEN
3837: x_tbc_rec.term_quote_type_code := l_tbc_rec.term_quote_type_code;
3838: END IF;
3839: IF (x_tbc_rec.term_quote_reason_code = OKL_API.G_MISS_CHAR)
3835: IF (x_tbc_rec.term_quote_type_code = OKL_API.G_MISS_CHAR)
3836: THEN
3837: x_tbc_rec.term_quote_type_code := l_tbc_rec.term_quote_type_code;
3838: END IF;
3839: IF (x_tbc_rec.term_quote_reason_code = OKL_API.G_MISS_CHAR)
3840: THEN
3841: x_tbc_rec.term_quote_reason_code := l_tbc_rec.term_quote_reason_code;
3842: END IF;
3843: IF (x_tbc_rec.expire_flag = OKL_API.G_MISS_CHAR)
3839: IF (x_tbc_rec.term_quote_reason_code = OKL_API.G_MISS_CHAR)
3840: THEN
3841: x_tbc_rec.term_quote_reason_code := l_tbc_rec.term_quote_reason_code;
3842: END IF;
3843: IF (x_tbc_rec.expire_flag = OKL_API.G_MISS_CHAR)
3844: THEN
3845: x_tbc_rec.expire_flag := l_tbc_rec.expire_flag;
3846: END IF;
3847:
3856: FUNCTION Set_Attributes (
3857: p_tbc_rec IN tbc_rec_type,
3858: x_tbc_rec OUT NOCOPY tbc_rec_type
3859: ) RETURN VARCHAR2 IS
3860: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3861: BEGIN
3862: x_tbc_rec := p_tbc_rec;
3863: x_tbc_rec.OBJECT_VERSION_NUMBER := p_tbc_rec.OBJECT_VERSION_NUMBER + 1;
3864: RETURN(l_return_status);
3863: x_tbc_rec.OBJECT_VERSION_NUMBER := p_tbc_rec.OBJECT_VERSION_NUMBER + 1;
3864: RETURN(l_return_status);
3865: END Set_Attributes;
3866: BEGIN
3867: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3868: p_init_msg_list,
3869: '_PVT',
3870: x_return_status);
3871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3867: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3868: p_init_msg_list,
3869: '_PVT',
3870: x_return_status);
3871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3873: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3874: RAISE OKL_API.G_EXCEPTION_ERROR;
3875: END IF;
3868: p_init_msg_list,
3869: '_PVT',
3870: x_return_status);
3871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3873: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3874: RAISE OKL_API.G_EXCEPTION_ERROR;
3875: END IF;
3876: --- Setting item attributes
3869: '_PVT',
3870: x_return_status);
3871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3873: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3874: RAISE OKL_API.G_EXCEPTION_ERROR;
3875: END IF;
3876: --- Setting item attributes
3877: l_return_status := Set_Attributes(
3870: x_return_status);
3871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3873: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3874: RAISE OKL_API.G_EXCEPTION_ERROR;
3875: END IF;
3876: --- Setting item attributes
3877: l_return_status := Set_Attributes(
3878: p_tbc_rec, -- IN
3877: l_return_status := Set_Attributes(
3878: p_tbc_rec, -- IN
3879: l_tbc_rec); -- OUT
3880: --- If any errors happen abort API
3881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_ERROR;
3885: END IF;
3878: p_tbc_rec, -- IN
3879: l_tbc_rec); -- OUT
3880: --- If any errors happen abort API
3881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_ERROR;
3885: END IF;
3886: l_return_status := populate_new_record(l_tbc_rec, l_def_tbc_rec);
3879: l_tbc_rec); -- OUT
3880: --- If any errors happen abort API
3881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_ERROR;
3885: END IF;
3886: l_return_status := populate_new_record(l_tbc_rec, l_def_tbc_rec);
3887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3880: --- If any errors happen abort API
3881: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3882: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_ERROR;
3885: END IF;
3886: l_return_status := populate_new_record(l_tbc_rec, l_def_tbc_rec);
3887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3883: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3884: RAISE OKL_API.G_EXCEPTION_ERROR;
3885: END IF;
3886: l_return_status := populate_new_record(l_tbc_rec, l_def_tbc_rec);
3887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3889: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3890: RAISE OKL_API.G_EXCEPTION_ERROR;
3891: END IF;
3884: RAISE OKL_API.G_EXCEPTION_ERROR;
3885: END IF;
3886: l_return_status := populate_new_record(l_tbc_rec, l_def_tbc_rec);
3887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3889: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3890: RAISE OKL_API.G_EXCEPTION_ERROR;
3891: END IF;
3892:
3885: END IF;
3886: l_return_status := populate_new_record(l_tbc_rec, l_def_tbc_rec);
3887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3889: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3890: RAISE OKL_API.G_EXCEPTION_ERROR;
3891: END IF;
3892:
3893: UPDATE OKL_TAX_ATTR_DEFINITIONS
3886: l_return_status := populate_new_record(l_tbc_rec, l_def_tbc_rec);
3887: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3888: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3889: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3890: RAISE OKL_API.G_EXCEPTION_ERROR;
3891: END IF;
3892:
3893: UPDATE OKL_TAX_ATTR_DEFINITIONS
3894: SET --ORG_ID = l_def_tbc_rec.org_id,
3943: WHERE tax_attribute_def_id = l_def_tbc_rec.tax_attribute_def_id;
3944:
3945: x_tbc_rec := l_tbc_rec;
3946: x_return_status := l_return_status;
3947: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3948: EXCEPTION
3949: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3950: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3951: (
3945: x_tbc_rec := l_tbc_rec;
3946: x_return_status := l_return_status;
3947: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3948: EXCEPTION
3949: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3950: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3951: (
3952: l_api_name,
3953: G_PKG_NAME,
3946: x_return_status := l_return_status;
3947: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3948: EXCEPTION
3949: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3950: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3951: (
3952: l_api_name,
3953: G_PKG_NAME,
3954: 'OKL_API.G_RET_STS_ERROR',
3950: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3951: (
3952: l_api_name,
3953: G_PKG_NAME,
3954: 'OKL_API.G_RET_STS_ERROR',
3955: x_msg_count,
3956: x_msg_data,
3957: '_PVT'
3958: );
3955: x_msg_count,
3956: x_msg_data,
3957: '_PVT'
3958: );
3959: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3960: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3961: (
3962: l_api_name,
3963: G_PKG_NAME,
3956: x_msg_data,
3957: '_PVT'
3958: );
3959: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3960: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3961: (
3962: l_api_name,
3963: G_PKG_NAME,
3964: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3960: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3961: (
3962: l_api_name,
3963: G_PKG_NAME,
3964: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3965: x_msg_count,
3966: x_msg_data,
3967: '_PVT'
3968: );
3966: x_msg_data,
3967: '_PVT'
3968: );
3969: WHEN OTHERS THEN
3970: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3971: (
3972: l_api_name,
3973: G_PKG_NAME,
3974: 'OTHERS',
3990: x_tbcv_rec OUT NOCOPY tbcv_rec_type) IS
3991:
3992: l_api_version CONSTANT NUMBER := 1;
3993: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
3994: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3995: l_tbcv_rec tbcv_rec_type := p_tbcv_rec;
3996: l_def_tbcv_rec tbcv_rec_type;
3997: l_db_tbcv_rec tbcv_rec_type;
3998: l_tbc_rec tbc_rec_type;
4017: p_tbcv_rec IN tbcv_rec_type,
4018: x_tbcv_rec OUT NOCOPY tbcv_rec_type
4019: ) RETURN VARCHAR2 IS
4020: l_row_notfound BOOLEAN := TRUE;
4021: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4022: BEGIN
4023: x_tbcv_rec := p_tbcv_rec;
4024:
4025: -- Get current database values
4026: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
4027: -- so it may be verified through LOCK_ROW.
4028: l_db_tbcv_rec := get_rec(p_tbcv_rec, l_return_status);
4029:
4030: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4031: /* IF (x_tbcv_rec.id = OKL_API.G_MISS_NUM)
4032: THEN
4033: x_tbcv_rec.id := l_db_tbcv_rec.id;
4034: END IF;
4027: -- so it may be verified through LOCK_ROW.
4028: l_db_tbcv_rec := get_rec(p_tbcv_rec, l_return_status);
4029:
4030: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4031: /* IF (x_tbcv_rec.id = OKL_API.G_MISS_NUM)
4032: THEN
4033: x_tbcv_rec.id := l_db_tbcv_rec.id;
4034: END IF;
4035: IF (x_tbcv_rec.org_id = OKL_API.G_MISS_NUM)
4031: /* IF (x_tbcv_rec.id = OKL_API.G_MISS_NUM)
4032: THEN
4033: x_tbcv_rec.id := l_db_tbcv_rec.id;
4034: END IF;
4035: IF (x_tbcv_rec.org_id = OKL_API.G_MISS_NUM)
4036: THEN
4037: x_tbcv_rec.org_id := l_db_tbcv_rec.org_id;
4038: END IF; */
4039:
4037: x_tbcv_rec.org_id := l_db_tbcv_rec.org_id;
4038: END IF; */
4039:
4040: -- modified by dcshanmu for eBTax project - modification start
4041: IF (x_tbcv_rec.result_code = OKL_API.G_MISS_CHAR)
4042: THEN
4043: x_tbcv_rec.result_code := l_db_tbcv_rec.result_code;
4044: END IF;
4045: -- modified by dcshanmu for eBTax project - modification end
4044: END IF;
4045: -- modified by dcshanmu for eBTax project - modification end
4046:
4047: --SECHAWLA : Added code to set Object Version No. because of the locking issue
4048: IF (x_tbcv_rec.object_version_number = OKL_API.G_MISS_NUM)
4049: THEN
4050: x_tbcv_rec.object_version_number := l_db_tbcv_rec.object_version_number;
4051: END IF;
4052:
4050: x_tbcv_rec.object_version_number := l_db_tbcv_rec.object_version_number;
4051: END IF;
4052:
4053:
4054: IF (x_tbcv_rec.purchase_option_code = OKL_API.G_MISS_CHAR)
4055: THEN
4056: x_tbcv_rec.purchase_option_code := l_db_tbcv_rec.purchase_option_code;
4057: END IF;
4058: IF (x_tbcv_rec.pdt_id = OKL_API.G_MISS_NUM)
4054: IF (x_tbcv_rec.purchase_option_code = OKL_API.G_MISS_CHAR)
4055: THEN
4056: x_tbcv_rec.purchase_option_code := l_db_tbcv_rec.purchase_option_code;
4057: END IF;
4058: IF (x_tbcv_rec.pdt_id = OKL_API.G_MISS_NUM)
4059: THEN
4060: x_tbcv_rec.pdt_id := l_db_tbcv_rec.pdt_id;
4061: END IF;
4062: IF (x_tbcv_rec.try_id = OKL_API.G_MISS_NUM)
4058: IF (x_tbcv_rec.pdt_id = OKL_API.G_MISS_NUM)
4059: THEN
4060: x_tbcv_rec.pdt_id := l_db_tbcv_rec.pdt_id;
4061: END IF;
4062: IF (x_tbcv_rec.try_id = OKL_API.G_MISS_NUM)
4063: THEN
4064: x_tbcv_rec.try_id := l_db_tbcv_rec.try_id;
4065: END IF;
4066: IF (x_tbcv_rec.sty_id = OKL_API.G_MISS_NUM)
4062: IF (x_tbcv_rec.try_id = OKL_API.G_MISS_NUM)
4063: THEN
4064: x_tbcv_rec.try_id := l_db_tbcv_rec.try_id;
4065: END IF;
4066: IF (x_tbcv_rec.sty_id = OKL_API.G_MISS_NUM)
4067: THEN
4068: x_tbcv_rec.sty_id := l_db_tbcv_rec.sty_id;
4069: END IF;
4070: IF (x_tbcv_rec.int_disclosed_code = OKL_API.G_MISS_CHAR)
4066: IF (x_tbcv_rec.sty_id = OKL_API.G_MISS_NUM)
4067: THEN
4068: x_tbcv_rec.sty_id := l_db_tbcv_rec.sty_id;
4069: END IF;
4070: IF (x_tbcv_rec.int_disclosed_code = OKL_API.G_MISS_CHAR)
4071: THEN
4072: x_tbcv_rec.int_disclosed_code := l_db_tbcv_rec.int_disclosed_code;
4073: END IF;
4074: IF (x_tbcv_rec.title_trnsfr_code = OKL_API.G_MISS_CHAR)
4070: IF (x_tbcv_rec.int_disclosed_code = OKL_API.G_MISS_CHAR)
4071: THEN
4072: x_tbcv_rec.int_disclosed_code := l_db_tbcv_rec.int_disclosed_code;
4073: END IF;
4074: IF (x_tbcv_rec.title_trnsfr_code = OKL_API.G_MISS_CHAR)
4075: THEN
4076: x_tbcv_rec.title_trnsfr_code := l_db_tbcv_rec.title_trnsfr_code;
4077: END IF;
4078: IF (x_tbcv_rec.sale_lease_back_code = OKL_API.G_MISS_CHAR)
4074: IF (x_tbcv_rec.title_trnsfr_code = OKL_API.G_MISS_CHAR)
4075: THEN
4076: x_tbcv_rec.title_trnsfr_code := l_db_tbcv_rec.title_trnsfr_code;
4077: END IF;
4078: IF (x_tbcv_rec.sale_lease_back_code = OKL_API.G_MISS_CHAR)
4079: THEN
4080: x_tbcv_rec.sale_lease_back_code := l_db_tbcv_rec.sale_lease_back_code;
4081: END IF;
4082: IF (x_tbcv_rec.lease_purchased_code = OKL_API.G_MISS_CHAR)
4078: IF (x_tbcv_rec.sale_lease_back_code = OKL_API.G_MISS_CHAR)
4079: THEN
4080: x_tbcv_rec.sale_lease_back_code := l_db_tbcv_rec.sale_lease_back_code;
4081: END IF;
4082: IF (x_tbcv_rec.lease_purchased_code = OKL_API.G_MISS_CHAR)
4083: THEN
4084: x_tbcv_rec.lease_purchased_code := l_db_tbcv_rec.lease_purchased_code;
4085: END IF;
4086: IF (x_tbcv_rec.equip_usage_code = OKL_API.G_MISS_CHAR)
4082: IF (x_tbcv_rec.lease_purchased_code = OKL_API.G_MISS_CHAR)
4083: THEN
4084: x_tbcv_rec.lease_purchased_code := l_db_tbcv_rec.lease_purchased_code;
4085: END IF;
4086: IF (x_tbcv_rec.equip_usage_code = OKL_API.G_MISS_CHAR)
4087: THEN
4088: x_tbcv_rec.equip_usage_code := l_db_tbcv_rec.equip_usage_code;
4089: END IF;
4090: IF (x_tbcv_rec.vendor_site_id = OKL_API.G_MISS_NUM)
4086: IF (x_tbcv_rec.equip_usage_code = OKL_API.G_MISS_CHAR)
4087: THEN
4088: x_tbcv_rec.equip_usage_code := l_db_tbcv_rec.equip_usage_code;
4089: END IF;
4090: IF (x_tbcv_rec.vendor_site_id = OKL_API.G_MISS_NUM)
4091: THEN
4092: x_tbcv_rec.vendor_site_id := l_db_tbcv_rec.vendor_site_id;
4093: END IF;
4094: IF (x_tbcv_rec.age_of_equip_from = OKL_API.G_MISS_NUM)
4090: IF (x_tbcv_rec.vendor_site_id = OKL_API.G_MISS_NUM)
4091: THEN
4092: x_tbcv_rec.vendor_site_id := l_db_tbcv_rec.vendor_site_id;
4093: END IF;
4094: IF (x_tbcv_rec.age_of_equip_from = OKL_API.G_MISS_NUM)
4095: THEN
4096: x_tbcv_rec.age_of_equip_from := l_db_tbcv_rec.age_of_equip_from;
4097: END IF;
4098: IF (x_tbcv_rec.age_of_equip_to = OKL_API.G_MISS_NUM)
4094: IF (x_tbcv_rec.age_of_equip_from = OKL_API.G_MISS_NUM)
4095: THEN
4096: x_tbcv_rec.age_of_equip_from := l_db_tbcv_rec.age_of_equip_from;
4097: END IF;
4098: IF (x_tbcv_rec.age_of_equip_to = OKL_API.G_MISS_NUM)
4099: THEN
4100: x_tbcv_rec.age_of_equip_to := l_db_tbcv_rec.age_of_equip_to;
4101: END IF;
4102:
4099: THEN
4100: x_tbcv_rec.age_of_equip_to := l_db_tbcv_rec.age_of_equip_to;
4101: END IF;
4102:
4103: IF (x_tbcv_rec.attribute_category = OKL_API.G_MISS_CHAR)
4104: THEN
4105: x_tbcv_rec.attribute_category := l_db_tbcv_rec.attribute_category;
4106: END IF;
4107: IF (x_tbcv_rec.attribute1 = OKL_API.G_MISS_CHAR)
4103: IF (x_tbcv_rec.attribute_category = OKL_API.G_MISS_CHAR)
4104: THEN
4105: x_tbcv_rec.attribute_category := l_db_tbcv_rec.attribute_category;
4106: END IF;
4107: IF (x_tbcv_rec.attribute1 = OKL_API.G_MISS_CHAR)
4108: THEN
4109: x_tbcv_rec.attribute1 := l_db_tbcv_rec.attribute1;
4110: END IF;
4111: IF (x_tbcv_rec.attribute2 = OKL_API.G_MISS_CHAR)
4107: IF (x_tbcv_rec.attribute1 = OKL_API.G_MISS_CHAR)
4108: THEN
4109: x_tbcv_rec.attribute1 := l_db_tbcv_rec.attribute1;
4110: END IF;
4111: IF (x_tbcv_rec.attribute2 = OKL_API.G_MISS_CHAR)
4112: THEN
4113: x_tbcv_rec.attribute2 := l_db_tbcv_rec.attribute2;
4114: END IF;
4115: IF (x_tbcv_rec.attribute3 = OKL_API.G_MISS_CHAR)
4111: IF (x_tbcv_rec.attribute2 = OKL_API.G_MISS_CHAR)
4112: THEN
4113: x_tbcv_rec.attribute2 := l_db_tbcv_rec.attribute2;
4114: END IF;
4115: IF (x_tbcv_rec.attribute3 = OKL_API.G_MISS_CHAR)
4116: THEN
4117: x_tbcv_rec.attribute3 := l_db_tbcv_rec.attribute3;
4118: END IF;
4119: IF (x_tbcv_rec.attribute4 = OKL_API.G_MISS_CHAR)
4115: IF (x_tbcv_rec.attribute3 = OKL_API.G_MISS_CHAR)
4116: THEN
4117: x_tbcv_rec.attribute3 := l_db_tbcv_rec.attribute3;
4118: END IF;
4119: IF (x_tbcv_rec.attribute4 = OKL_API.G_MISS_CHAR)
4120: THEN
4121: x_tbcv_rec.attribute4 := l_db_tbcv_rec.attribute4;
4122: END IF;
4123: IF (x_tbcv_rec.attribute5 = OKL_API.G_MISS_CHAR)
4119: IF (x_tbcv_rec.attribute4 = OKL_API.G_MISS_CHAR)
4120: THEN
4121: x_tbcv_rec.attribute4 := l_db_tbcv_rec.attribute4;
4122: END IF;
4123: IF (x_tbcv_rec.attribute5 = OKL_API.G_MISS_CHAR)
4124: THEN
4125: x_tbcv_rec.attribute5 := l_db_tbcv_rec.attribute5;
4126: END IF;
4127: IF (x_tbcv_rec.attribute6 = OKL_API.G_MISS_CHAR)
4123: IF (x_tbcv_rec.attribute5 = OKL_API.G_MISS_CHAR)
4124: THEN
4125: x_tbcv_rec.attribute5 := l_db_tbcv_rec.attribute5;
4126: END IF;
4127: IF (x_tbcv_rec.attribute6 = OKL_API.G_MISS_CHAR)
4128: THEN
4129: x_tbcv_rec.attribute6 := l_db_tbcv_rec.attribute6;
4130: END IF;
4131: IF (x_tbcv_rec.attribute7 = OKL_API.G_MISS_CHAR)
4127: IF (x_tbcv_rec.attribute6 = OKL_API.G_MISS_CHAR)
4128: THEN
4129: x_tbcv_rec.attribute6 := l_db_tbcv_rec.attribute6;
4130: END IF;
4131: IF (x_tbcv_rec.attribute7 = OKL_API.G_MISS_CHAR)
4132: THEN
4133: x_tbcv_rec.attribute7 := l_db_tbcv_rec.attribute7;
4134: END IF;
4135: IF (x_tbcv_rec.attribute8 = OKL_API.G_MISS_CHAR)
4131: IF (x_tbcv_rec.attribute7 = OKL_API.G_MISS_CHAR)
4132: THEN
4133: x_tbcv_rec.attribute7 := l_db_tbcv_rec.attribute7;
4134: END IF;
4135: IF (x_tbcv_rec.attribute8 = OKL_API.G_MISS_CHAR)
4136: THEN
4137: x_tbcv_rec.attribute8 := l_db_tbcv_rec.attribute8;
4138: END IF;
4139: IF (x_tbcv_rec.attribute9 = OKL_API.G_MISS_CHAR)
4135: IF (x_tbcv_rec.attribute8 = OKL_API.G_MISS_CHAR)
4136: THEN
4137: x_tbcv_rec.attribute8 := l_db_tbcv_rec.attribute8;
4138: END IF;
4139: IF (x_tbcv_rec.attribute9 = OKL_API.G_MISS_CHAR)
4140: THEN
4141: x_tbcv_rec.attribute9 := l_db_tbcv_rec.attribute9;
4142: END IF;
4143: IF (x_tbcv_rec.attribute10 = OKL_API.G_MISS_CHAR)
4139: IF (x_tbcv_rec.attribute9 = OKL_API.G_MISS_CHAR)
4140: THEN
4141: x_tbcv_rec.attribute9 := l_db_tbcv_rec.attribute9;
4142: END IF;
4143: IF (x_tbcv_rec.attribute10 = OKL_API.G_MISS_CHAR)
4144: THEN
4145: x_tbcv_rec.attribute10 := l_db_tbcv_rec.attribute10;
4146: END IF;
4147: IF (x_tbcv_rec.attribute11 = OKL_API.G_MISS_CHAR)
4143: IF (x_tbcv_rec.attribute10 = OKL_API.G_MISS_CHAR)
4144: THEN
4145: x_tbcv_rec.attribute10 := l_db_tbcv_rec.attribute10;
4146: END IF;
4147: IF (x_tbcv_rec.attribute11 = OKL_API.G_MISS_CHAR)
4148: THEN
4149: x_tbcv_rec.attribute11 := l_db_tbcv_rec.attribute11;
4150: END IF;
4151: IF (x_tbcv_rec.attribute12 = OKL_API.G_MISS_CHAR)
4147: IF (x_tbcv_rec.attribute11 = OKL_API.G_MISS_CHAR)
4148: THEN
4149: x_tbcv_rec.attribute11 := l_db_tbcv_rec.attribute11;
4150: END IF;
4151: IF (x_tbcv_rec.attribute12 = OKL_API.G_MISS_CHAR)
4152: THEN
4153: x_tbcv_rec.attribute12 := l_db_tbcv_rec.attribute12;
4154: END IF;
4155: IF (x_tbcv_rec.attribute13 = OKL_API.G_MISS_CHAR)
4151: IF (x_tbcv_rec.attribute12 = OKL_API.G_MISS_CHAR)
4152: THEN
4153: x_tbcv_rec.attribute12 := l_db_tbcv_rec.attribute12;
4154: END IF;
4155: IF (x_tbcv_rec.attribute13 = OKL_API.G_MISS_CHAR)
4156: THEN
4157: x_tbcv_rec.attribute13 := l_db_tbcv_rec.attribute13;
4158: END IF;
4159: IF (x_tbcv_rec.attribute14 = OKL_API.G_MISS_CHAR)
4155: IF (x_tbcv_rec.attribute13 = OKL_API.G_MISS_CHAR)
4156: THEN
4157: x_tbcv_rec.attribute13 := l_db_tbcv_rec.attribute13;
4158: END IF;
4159: IF (x_tbcv_rec.attribute14 = OKL_API.G_MISS_CHAR)
4160: THEN
4161: x_tbcv_rec.attribute14 := l_db_tbcv_rec.attribute14;
4162: END IF;
4163: IF (x_tbcv_rec.attribute15 = OKL_API.G_MISS_CHAR)
4159: IF (x_tbcv_rec.attribute14 = OKL_API.G_MISS_CHAR)
4160: THEN
4161: x_tbcv_rec.attribute14 := l_db_tbcv_rec.attribute14;
4162: END IF;
4163: IF (x_tbcv_rec.attribute15 = OKL_API.G_MISS_CHAR)
4164: THEN
4165: x_tbcv_rec.attribute15 := l_db_tbcv_rec.attribute15;
4166: END IF;
4167: IF (x_tbcv_rec.created_by = OKL_API.G_MISS_NUM)
4163: IF (x_tbcv_rec.attribute15 = OKL_API.G_MISS_CHAR)
4164: THEN
4165: x_tbcv_rec.attribute15 := l_db_tbcv_rec.attribute15;
4166: END IF;
4167: IF (x_tbcv_rec.created_by = OKL_API.G_MISS_NUM)
4168: THEN
4169: x_tbcv_rec.created_by := l_db_tbcv_rec.created_by;
4170: END IF;
4171: IF (x_tbcv_rec.creation_date = OKL_API.G_MISS_DATE)
4167: IF (x_tbcv_rec.created_by = OKL_API.G_MISS_NUM)
4168: THEN
4169: x_tbcv_rec.created_by := l_db_tbcv_rec.created_by;
4170: END IF;
4171: IF (x_tbcv_rec.creation_date = OKL_API.G_MISS_DATE)
4172: THEN
4173: x_tbcv_rec.creation_date := l_db_tbcv_rec.creation_date;
4174: END IF;
4175: IF (x_tbcv_rec.last_updated_by = OKL_API.G_MISS_NUM)
4171: IF (x_tbcv_rec.creation_date = OKL_API.G_MISS_DATE)
4172: THEN
4173: x_tbcv_rec.creation_date := l_db_tbcv_rec.creation_date;
4174: END IF;
4175: IF (x_tbcv_rec.last_updated_by = OKL_API.G_MISS_NUM)
4176: THEN
4177: x_tbcv_rec.last_updated_by := l_db_tbcv_rec.last_updated_by;
4178: END IF;
4179: IF (x_tbcv_rec.last_update_date = OKL_API.G_MISS_DATE)
4175: IF (x_tbcv_rec.last_updated_by = OKL_API.G_MISS_NUM)
4176: THEN
4177: x_tbcv_rec.last_updated_by := l_db_tbcv_rec.last_updated_by;
4178: END IF;
4179: IF (x_tbcv_rec.last_update_date = OKL_API.G_MISS_DATE)
4180: THEN
4181: x_tbcv_rec.last_update_date := l_db_tbcv_rec.last_update_date;
4182: END IF;
4183: IF (x_tbcv_rec.last_update_login = OKL_API.G_MISS_NUM)
4179: IF (x_tbcv_rec.last_update_date = OKL_API.G_MISS_DATE)
4180: THEN
4181: x_tbcv_rec.last_update_date := l_db_tbcv_rec.last_update_date;
4182: END IF;
4183: IF (x_tbcv_rec.last_update_login = OKL_API.G_MISS_NUM)
4184: THEN
4185: x_tbcv_rec.last_update_login := l_db_tbcv_rec.last_update_login;
4186: END IF;
4187:
4185: x_tbcv_rec.last_update_login := l_db_tbcv_rec.last_update_login;
4186: END IF;
4187:
4188: -- modified by dcshanmu for eBTax project - modification start
4189: IF (x_tbcv_rec.tax_attribute_def_id = OKL_API.G_MISS_NUM)
4190: THEN
4191: x_tbcv_rec.tax_attribute_def_id := l_db_tbcv_rec.tax_attribute_def_id;
4192: END IF;
4193: IF (x_tbcv_rec.result_type_code = OKL_API.G_MISS_CHAR)
4189: IF (x_tbcv_rec.tax_attribute_def_id = OKL_API.G_MISS_NUM)
4190: THEN
4191: x_tbcv_rec.tax_attribute_def_id := l_db_tbcv_rec.tax_attribute_def_id;
4192: END IF;
4193: IF (x_tbcv_rec.result_type_code = OKL_API.G_MISS_CHAR)
4194: THEN
4195: x_tbcv_rec.result_type_code := l_db_tbcv_rec.result_type_code;
4196: END IF;
4197: IF (x_tbcv_rec.book_class_code = OKL_API.G_MISS_CHAR)
4193: IF (x_tbcv_rec.result_type_code = OKL_API.G_MISS_CHAR)
4194: THEN
4195: x_tbcv_rec.result_type_code := l_db_tbcv_rec.result_type_code;
4196: END IF;
4197: IF (x_tbcv_rec.book_class_code = OKL_API.G_MISS_CHAR)
4198: THEN
4199: x_tbcv_rec.book_class_code := l_db_tbcv_rec.book_class_code;
4200: END IF;
4201: IF (x_tbcv_rec.date_effective_from = OKL_API.G_MISS_DATE)
4197: IF (x_tbcv_rec.book_class_code = OKL_API.G_MISS_CHAR)
4198: THEN
4199: x_tbcv_rec.book_class_code := l_db_tbcv_rec.book_class_code;
4200: END IF;
4201: IF (x_tbcv_rec.date_effective_from = OKL_API.G_MISS_DATE)
4202: THEN
4203: x_tbcv_rec.date_effective_from := l_tbcv_rec.date_effective_from;
4204: END IF;
4205: IF (x_tbcv_rec.date_effective_to = OKL_API.G_MISS_DATE)
4201: IF (x_tbcv_rec.date_effective_from = OKL_API.G_MISS_DATE)
4202: THEN
4203: x_tbcv_rec.date_effective_from := l_tbcv_rec.date_effective_from;
4204: END IF;
4205: IF (x_tbcv_rec.date_effective_to = OKL_API.G_MISS_DATE)
4206: THEN
4207: x_tbcv_rec.date_effective_to := l_db_tbcv_rec.date_effective_to;
4208: END IF;
4209: IF (x_tbcv_rec.tax_country_code = OKL_API.G_MISS_CHAR)
4205: IF (x_tbcv_rec.date_effective_to = OKL_API.G_MISS_DATE)
4206: THEN
4207: x_tbcv_rec.date_effective_to := l_db_tbcv_rec.date_effective_to;
4208: END IF;
4209: IF (x_tbcv_rec.tax_country_code = OKL_API.G_MISS_CHAR)
4210: THEN
4211: x_tbcv_rec.tax_country_code := l_db_tbcv_rec.tax_country_code;
4212: END IF;
4213: IF (x_tbcv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR)
4209: IF (x_tbcv_rec.tax_country_code = OKL_API.G_MISS_CHAR)
4210: THEN
4211: x_tbcv_rec.tax_country_code := l_db_tbcv_rec.tax_country_code;
4212: END IF;
4213: IF (x_tbcv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR)
4214: THEN
4215: x_tbcv_rec.term_quote_type_code := l_db_tbcv_rec.term_quote_type_code;
4216: END IF;
4217: IF (x_tbcv_rec.term_quote_reason_code = OKL_API.G_MISS_CHAR)
4213: IF (x_tbcv_rec.term_quote_type_code = OKL_API.G_MISS_CHAR)
4214: THEN
4215: x_tbcv_rec.term_quote_type_code := l_db_tbcv_rec.term_quote_type_code;
4216: END IF;
4217: IF (x_tbcv_rec.term_quote_reason_code = OKL_API.G_MISS_CHAR)
4218: THEN
4219: x_tbcv_rec.term_quote_reason_code := l_db_tbcv_rec.term_quote_reason_code;
4220: END IF;
4221: IF (x_tbcv_rec.expire_flag = OKL_API.G_MISS_CHAR)
4217: IF (x_tbcv_rec.term_quote_reason_code = OKL_API.G_MISS_CHAR)
4218: THEN
4219: x_tbcv_rec.term_quote_reason_code := l_db_tbcv_rec.term_quote_reason_code;
4220: END IF;
4221: IF (x_tbcv_rec.expire_flag = OKL_API.G_MISS_CHAR)
4222: THEN
4223: x_tbcv_rec.expire_flag := l_db_tbcv_rec.expire_flag;
4224: END IF;
4225: -- modified by dcshanmu for eBTax project - modification end
4233: FUNCTION Set_Attributes (
4234: p_tbcv_rec IN tbcv_rec_type,
4235: x_tbcv_rec OUT NOCOPY tbcv_rec_type
4236: ) RETURN VARCHAR2 IS
4237: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4238: BEGIN
4239: x_tbcv_rec := p_tbcv_rec;
4240: RETURN(l_return_status);
4241: END Set_Attributes;
4239: x_tbcv_rec := p_tbcv_rec;
4240: RETURN(l_return_status);
4241: END Set_Attributes;
4242: BEGIN
4243: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4244: G_PKG_NAME,
4245: p_init_msg_list,
4246: l_api_version,
4247: p_api_version,
4246: l_api_version,
4247: p_api_version,
4248: '_PVT',
4249: x_return_status);
4250: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4252: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4253: RAISE OKL_API.G_EXCEPTION_ERROR;
4254: END IF;
4247: p_api_version,
4248: '_PVT',
4249: x_return_status);
4250: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4252: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4253: RAISE OKL_API.G_EXCEPTION_ERROR;
4254: END IF;
4255:
4248: '_PVT',
4249: x_return_status);
4250: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4252: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4253: RAISE OKL_API.G_EXCEPTION_ERROR;
4254: END IF;
4255:
4256: --- Setting item attributes
4249: x_return_status);
4250: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4251: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4252: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4253: RAISE OKL_API.G_EXCEPTION_ERROR;
4254: END IF;
4255:
4256: --- Setting item attributes
4257: l_return_status := Set_Attributes(
4257: l_return_status := Set_Attributes(
4258: p_tbcv_rec, -- IN
4259: x_tbcv_rec); -- OUT
4260: --- If any errors happen abort API
4261: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4264: RAISE OKL_API.G_EXCEPTION_ERROR;
4265: END IF;
4258: p_tbcv_rec, -- IN
4259: x_tbcv_rec); -- OUT
4260: --- If any errors happen abort API
4261: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4264: RAISE OKL_API.G_EXCEPTION_ERROR;
4265: END IF;
4266:
4259: x_tbcv_rec); -- OUT
4260: --- If any errors happen abort API
4261: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4264: RAISE OKL_API.G_EXCEPTION_ERROR;
4265: END IF;
4266:
4267: l_return_status := populate_new_record(x_tbcv_rec, l_def_tbcv_rec);
4260: --- If any errors happen abort API
4261: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4262: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4263: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4264: RAISE OKL_API.G_EXCEPTION_ERROR;
4265: END IF;
4266:
4267: l_return_status := populate_new_record(x_tbcv_rec, l_def_tbcv_rec);
4268: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4264: RAISE OKL_API.G_EXCEPTION_ERROR;
4265: END IF;
4266:
4267: l_return_status := populate_new_record(x_tbcv_rec, l_def_tbcv_rec);
4268: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4270: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4271: RAISE OKL_API.G_EXCEPTION_ERROR;
4272: END IF;
4265: END IF;
4266:
4267: l_return_status := populate_new_record(x_tbcv_rec, l_def_tbcv_rec);
4268: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4270: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4271: RAISE OKL_API.G_EXCEPTION_ERROR;
4272: END IF;
4273:
4266:
4267: l_return_status := populate_new_record(x_tbcv_rec, l_def_tbcv_rec);
4268: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4270: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4271: RAISE OKL_API.G_EXCEPTION_ERROR;
4272: END IF;
4273:
4274: l_def_tbcv_rec := fill_who_columns(l_def_tbcv_rec);
4267: l_return_status := populate_new_record(x_tbcv_rec, l_def_tbcv_rec);
4268: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4269: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4270: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4271: RAISE OKL_API.G_EXCEPTION_ERROR;
4272: END IF;
4273:
4274: l_def_tbcv_rec := fill_who_columns(l_def_tbcv_rec);
4275: --- Validate all non-missing attributes (Item Level Validation)
4274: l_def_tbcv_rec := fill_who_columns(l_def_tbcv_rec);
4275: --- Validate all non-missing attributes (Item Level Validation)
4276: l_return_status := Validate_Attributes(l_def_tbcv_rec);
4277: --- If any errors happen abort API
4278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_ERROR;
4282: END IF;
4275: --- Validate all non-missing attributes (Item Level Validation)
4276: l_return_status := Validate_Attributes(l_def_tbcv_rec);
4277: --- If any errors happen abort API
4278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_ERROR;
4282: END IF;
4283:
4276: l_return_status := Validate_Attributes(l_def_tbcv_rec);
4277: --- If any errors happen abort API
4278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_ERROR;
4282: END IF;
4283:
4284: /*
4277: --- If any errors happen abort API
4278: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4279: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4280: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4281: RAISE OKL_API.G_EXCEPTION_ERROR;
4282: END IF;
4283:
4284: /*
4285: l_return_status := Validate_Record(l_def_tbcv_rec, l_db_tbcv_rec);
4282: END IF;
4283:
4284: /*
4285: l_return_status := Validate_Record(l_def_tbcv_rec, l_db_tbcv_rec);
4286: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4288: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4289: RAISE OKL_API.G_EXCEPTION_ERROR;
4290: END IF;
4283:
4284: /*
4285: l_return_status := Validate_Record(l_def_tbcv_rec, l_db_tbcv_rec);
4286: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4288: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4289: RAISE OKL_API.G_EXCEPTION_ERROR;
4290: END IF;
4291: */
4284: /*
4285: l_return_status := Validate_Record(l_def_tbcv_rec, l_db_tbcv_rec);
4286: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4288: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4289: RAISE OKL_API.G_EXCEPTION_ERROR;
4290: END IF;
4291: */
4292:
4285: l_return_status := Validate_Record(l_def_tbcv_rec, l_db_tbcv_rec);
4286: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4287: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4288: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4289: RAISE OKL_API.G_EXCEPTION_ERROR;
4290: END IF;
4291: */
4292:
4293: l_return_status := Validate_Record(l_def_tbcv_rec);
4290: END IF;
4291: */
4292:
4293: l_return_status := Validate_Record(l_def_tbcv_rec);
4294: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4297: RAISE OKL_API.G_EXCEPTION_ERROR;
4298: END IF;
4291: */
4292:
4293: l_return_status := Validate_Record(l_def_tbcv_rec);
4294: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4297: RAISE OKL_API.G_EXCEPTION_ERROR;
4298: END IF;
4299:
4292:
4293: l_return_status := Validate_Record(l_def_tbcv_rec);
4294: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4297: RAISE OKL_API.G_EXCEPTION_ERROR;
4298: END IF;
4299:
4300:
4293: l_return_status := Validate_Record(l_def_tbcv_rec);
4294: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4297: RAISE OKL_API.G_EXCEPTION_ERROR;
4298: END IF;
4299:
4300:
4301: -- Lock the Record
4305: x_return_status => l_return_status,
4306: x_msg_count => x_msg_count,
4307: x_msg_data => x_msg_data,
4308: p_tbcv_rec => l_def_tbcv_rec); --p_tbcv_rec); -- SECHAWLA Changed to pass l_def_tbov_rec becoz of locking issue
4309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4306: x_msg_count => x_msg_count,
4307: x_msg_data => x_msg_data,
4308: p_tbcv_rec => l_def_tbcv_rec); --p_tbcv_rec); -- SECHAWLA Changed to pass l_def_tbov_rec becoz of locking issue
4309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4314:
4307: x_msg_data => x_msg_data,
4308: p_tbcv_rec => l_def_tbcv_rec); --p_tbcv_rec); -- SECHAWLA Changed to pass l_def_tbov_rec becoz of locking issue
4309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4314:
4315: -----------------------------------------
4308: p_tbcv_rec => l_def_tbcv_rec); --p_tbcv_rec); -- SECHAWLA Changed to pass l_def_tbov_rec becoz of locking issue
4309: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4310: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4311: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4312: RAISE OKL_API.G_EXCEPTION_ERROR;
4313: END IF;
4314:
4315: -----------------------------------------
4316: -- Move VIEW record to "Child" records --
4328: l_tbc_rec,
4329: lx_tbc_rec
4330: );
4331:
4332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4334: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4335: RAISE OKL_API.G_EXCEPTION_ERROR;
4336: END IF;
4329: lx_tbc_rec
4330: );
4331:
4332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4334: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4335: RAISE OKL_API.G_EXCEPTION_ERROR;
4336: END IF;
4337: migrate(lx_tbc_rec, l_def_tbcv_rec);
4330: );
4331:
4332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4334: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4335: RAISE OKL_API.G_EXCEPTION_ERROR;
4336: END IF;
4337: migrate(lx_tbc_rec, l_def_tbcv_rec);
4338: x_tbcv_rec := l_def_tbcv_rec;
4331:
4332: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4334: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4335: RAISE OKL_API.G_EXCEPTION_ERROR;
4336: END IF;
4337: migrate(lx_tbc_rec, l_def_tbcv_rec);
4338: x_tbcv_rec := l_def_tbcv_rec;
4339: x_return_status := l_return_status;
4336: END IF;
4337: migrate(lx_tbc_rec, l_def_tbcv_rec);
4338: x_tbcv_rec := l_def_tbcv_rec;
4339: x_return_status := l_return_status;
4340: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4341: EXCEPTION
4342: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4344: (
4338: x_tbcv_rec := l_def_tbcv_rec;
4339: x_return_status := l_return_status;
4340: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4341: EXCEPTION
4342: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4344: (
4345: l_api_name,
4346: G_PKG_NAME,
4339: x_return_status := l_return_status;
4340: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4341: EXCEPTION
4342: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4344: (
4345: l_api_name,
4346: G_PKG_NAME,
4347: 'OKL_API.G_RET_STS_ERROR',
4343: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4344: (
4345: l_api_name,
4346: G_PKG_NAME,
4347: 'OKL_API.G_RET_STS_ERROR',
4348: x_msg_count,
4349: x_msg_data,
4350: '_PVT'
4351: );
4348: x_msg_count,
4349: x_msg_data,
4350: '_PVT'
4351: );
4352: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4353: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4354: (
4355: l_api_name,
4356: G_PKG_NAME,
4349: x_msg_data,
4350: '_PVT'
4351: );
4352: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4353: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4354: (
4355: l_api_name,
4356: G_PKG_NAME,
4357: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4353: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4354: (
4355: l_api_name,
4356: G_PKG_NAME,
4357: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4358: x_msg_count,
4359: x_msg_data,
4360: '_PVT'
4361: );
4359: x_msg_data,
4360: '_PVT'
4361: );
4362: WHEN OTHERS THEN
4363: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4364: (
4365: l_api_name,
4366: G_PKG_NAME,
4367: 'OTHERS',
4380: x_msg_count OUT NOCOPY NUMBER,
4381: x_msg_data OUT NOCOPY VARCHAR2,
4382: p_tbcv_tbl IN tbcv_tbl_type,
4383: x_tbcv_tbl OUT NOCOPY tbcv_tbl_type,
4384: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
4385:
4386: l_api_version CONSTANT NUMBER := 1;
4387: l_api_name CONSTANT VARCHAR2(100) := 'v_err';
4388: i NUMBER := 0;
4385:
4386: l_api_version CONSTANT NUMBER := 1;
4387: l_api_name CONSTANT VARCHAR2(100) := 'v_err';
4388: i NUMBER := 0;
4389: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4390: BEGIN
4391: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4392: p_init_msg_list,
4393: '_PVT',
4387: l_api_name CONSTANT VARCHAR2(100) := 'v_err';
4388: i NUMBER := 0;
4389: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4390: BEGIN
4391: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4392: p_init_msg_list,
4393: '_PVT',
4394: x_return_status);
4395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4391: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4392: p_init_msg_list,
4393: '_PVT',
4394: x_return_status);
4395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4397: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4398: RAISE OKL_API.G_EXCEPTION_ERROR;
4399: END IF;
4392: p_init_msg_list,
4393: '_PVT',
4394: x_return_status);
4395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4397: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4398: RAISE OKL_API.G_EXCEPTION_ERROR;
4399: END IF;
4400:
4393: '_PVT',
4394: x_return_status);
4395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4397: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4398: RAISE OKL_API.G_EXCEPTION_ERROR;
4399: END IF;
4400:
4401: -- Make sure PL/SQL table has records in it before passing
4394: x_return_status);
4395: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4397: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4398: RAISE OKL_API.G_EXCEPTION_ERROR;
4399: END IF;
4400:
4401: -- Make sure PL/SQL table has records in it before passing
4402: IF (p_tbcv_tbl.COUNT > 0) THEN
4402: IF (p_tbcv_tbl.COUNT > 0) THEN
4403: i := p_tbcv_tbl.FIRST;
4404: LOOP
4405: DECLARE
4406: l_error_rec OKL_API.ERROR_REC_TYPE;
4407: BEGIN
4408: l_error_rec.api_name := l_api_name;
4409: l_error_rec.api_package := G_PKG_NAME;
4410: l_error_rec.idx := i;
4410: l_error_rec.idx := i;
4411:
4412: update_row (
4413: p_api_version => p_api_version,
4414: p_init_msg_list => OKL_API.G_FALSE,
4415: x_return_status => l_error_rec.error_type,
4416: x_msg_count => l_error_rec.msg_count,
4417: x_msg_data => l_error_rec.msg_data,
4418: p_tbcv_rec => p_tbcv_tbl(i),
4416: x_msg_count => l_error_rec.msg_count,
4417: x_msg_data => l_error_rec.msg_data,
4418: p_tbcv_rec => p_tbcv_tbl(i),
4419: x_tbcv_rec => x_tbcv_tbl(i));
4420: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
4421: l_error_rec.sqlcode := SQLCODE;
4422: load_error_tbl(l_error_rec, px_error_tbl);
4423: ELSE
4424: x_msg_count := l_error_rec.msg_count;
4424: x_msg_count := l_error_rec.msg_count;
4425: x_msg_data := l_error_rec.msg_data;
4426: END IF;
4427: EXCEPTION
4428: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4429: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4430: l_error_rec.sqlcode := SQLCODE;
4431: load_error_tbl(l_error_rec, px_error_tbl);
4432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4425: x_msg_data := l_error_rec.msg_data;
4426: END IF;
4427: EXCEPTION
4428: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4429: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4430: l_error_rec.sqlcode := SQLCODE;
4431: load_error_tbl(l_error_rec, px_error_tbl);
4432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4433: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4428: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4429: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4430: l_error_rec.sqlcode := SQLCODE;
4431: load_error_tbl(l_error_rec, px_error_tbl);
4432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4433: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4434: l_error_rec.sqlcode := SQLCODE;
4435: load_error_tbl(l_error_rec, px_error_tbl);
4436: WHEN OTHERS THEN
4429: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4430: l_error_rec.sqlcode := SQLCODE;
4431: load_error_tbl(l_error_rec, px_error_tbl);
4432: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4433: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4434: l_error_rec.sqlcode := SQLCODE;
4435: load_error_tbl(l_error_rec, px_error_tbl);
4436: WHEN OTHERS THEN
4437: l_error_rec.error_type := 'OTHERS';
4444: END IF;
4445: -- Loop through the error_tbl to find the error with the highest severity
4446: -- and return it.
4447: x_return_status := find_highest_exception(px_error_tbl);
4448: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4449: EXCEPTION
4450: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4451: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4452: (
4446: -- and return it.
4447: x_return_status := find_highest_exception(px_error_tbl);
4448: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4449: EXCEPTION
4450: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4451: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4452: (
4453: l_api_name,
4454: G_PKG_NAME,
4447: x_return_status := find_highest_exception(px_error_tbl);
4448: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4449: EXCEPTION
4450: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4451: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4452: (
4453: l_api_name,
4454: G_PKG_NAME,
4455: 'OKL_API.G_RET_STS_ERROR',
4451: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4452: (
4453: l_api_name,
4454: G_PKG_NAME,
4455: 'OKL_API.G_RET_STS_ERROR',
4456: x_msg_count,
4457: x_msg_data,
4458: '_PVT'
4459: );
4456: x_msg_count,
4457: x_msg_data,
4458: '_PVT'
4459: );
4460: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4461: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4462: (
4463: l_api_name,
4464: G_PKG_NAME,
4457: x_msg_data,
4458: '_PVT'
4459: );
4460: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4461: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4462: (
4463: l_api_name,
4464: G_PKG_NAME,
4465: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4461: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4462: (
4463: l_api_name,
4464: G_PKG_NAME,
4465: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4466: x_msg_count,
4467: x_msg_data,
4468: '_PVT'
4469: );
4467: x_msg_data,
4468: '_PVT'
4469: );
4470: WHEN OTHERS THEN
4471: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4472: (
4473: l_api_name,
4474: G_PKG_NAME,
4475: 'OTHERS',
4494: x_tbcv_tbl OUT NOCOPY tbcv_tbl_type) IS
4495:
4496: l_api_version CONSTANT NUMBER := 1;
4497: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4498: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4499: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4500: BEGIN
4501:
4502: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4495:
4496: l_api_version CONSTANT NUMBER := 1;
4497: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
4498: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4499: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4500: BEGIN
4501:
4502: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4503: p_init_msg_list,
4498: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4499: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4500: BEGIN
4501:
4502: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4503: p_init_msg_list,
4504: '_PVT',
4505: x_return_status);
4506: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4502: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4503: p_init_msg_list,
4504: '_PVT',
4505: x_return_status);
4506: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4508: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4509: RAISE OKL_API.G_EXCEPTION_ERROR;
4510: END IF;
4503: p_init_msg_list,
4504: '_PVT',
4505: x_return_status);
4506: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4508: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4509: RAISE OKL_API.G_EXCEPTION_ERROR;
4510: END IF;
4511: -- Make sure PL/SQL table has records in it before passing
4504: '_PVT',
4505: x_return_status);
4506: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4508: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4509: RAISE OKL_API.G_EXCEPTION_ERROR;
4510: END IF;
4511: -- Make sure PL/SQL table has records in it before passing
4512: IF (p_tbcv_tbl.COUNT > 0) THEN
4505: x_return_status);
4506: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4508: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4509: RAISE OKL_API.G_EXCEPTION_ERROR;
4510: END IF;
4511: -- Make sure PL/SQL table has records in it before passing
4512: IF (p_tbcv_tbl.COUNT > 0) THEN
4513: update_row (
4511: -- Make sure PL/SQL table has records in it before passing
4512: IF (p_tbcv_tbl.COUNT > 0) THEN
4513: update_row (
4514: p_api_version => p_api_version,
4515: p_init_msg_list => OKL_API.G_FALSE,
4516: x_return_status => x_return_status,
4517: x_msg_count => x_msg_count,
4518: x_msg_data => x_msg_data,
4519: p_tbcv_tbl => p_tbcv_tbl,
4519: p_tbcv_tbl => p_tbcv_tbl,
4520: x_tbcv_tbl => x_tbcv_tbl,
4521: px_error_tbl => l_error_tbl);
4522: END IF;
4523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4524: EXCEPTION
4525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4527: (
4521: px_error_tbl => l_error_tbl);
4522: END IF;
4523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4524: EXCEPTION
4525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4527: (
4528: l_api_name,
4529: G_PKG_NAME,
4522: END IF;
4523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4524: EXCEPTION
4525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4527: (
4528: l_api_name,
4529: G_PKG_NAME,
4530: 'OKL_API.G_RET_STS_ERROR',
4526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4527: (
4528: l_api_name,
4529: G_PKG_NAME,
4530: 'OKL_API.G_RET_STS_ERROR',
4531: x_msg_count,
4532: x_msg_data,
4533: '_PVT'
4534: );
4531: x_msg_count,
4532: x_msg_data,
4533: '_PVT'
4534: );
4535: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4536: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4537: (
4538: l_api_name,
4539: G_PKG_NAME,
4532: x_msg_data,
4533: '_PVT'
4534: );
4535: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4536: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4537: (
4538: l_api_name,
4539: G_PKG_NAME,
4540: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4536: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4537: (
4538: l_api_name,
4539: G_PKG_NAME,
4540: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4541: x_msg_count,
4542: x_msg_data,
4543: '_PVT'
4544: );
4542: x_msg_data,
4543: '_PVT'
4544: );
4545: WHEN OTHERS THEN
4546: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4547: (
4548: l_api_name,
4549: G_PKG_NAME,
4550: 'OTHERS',
4568: p_tbc_rec IN tbc_rec_type) IS
4569:
4570: l_api_version CONSTANT NUMBER := 1;
4571: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
4572: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4573: l_tbc_rec tbc_rec_type := p_tbc_rec;
4574: l_row_notfound BOOLEAN := TRUE;
4575: BEGIN
4576: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4572: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4573: l_tbc_rec tbc_rec_type := p_tbc_rec;
4574: l_row_notfound BOOLEAN := TRUE;
4575: BEGIN
4576: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4577: p_init_msg_list,
4578: '_PVT',
4579: x_return_status);
4580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4576: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4577: p_init_msg_list,
4578: '_PVT',
4579: x_return_status);
4580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4583: RAISE OKL_API.G_EXCEPTION_ERROR;
4584: END IF;
4577: p_init_msg_list,
4578: '_PVT',
4579: x_return_status);
4580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4583: RAISE OKL_API.G_EXCEPTION_ERROR;
4584: END IF;
4585:
4578: '_PVT',
4579: x_return_status);
4580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4583: RAISE OKL_API.G_EXCEPTION_ERROR;
4584: END IF;
4585:
4586: DELETE FROM OKL_TAX_ATTR_DEFINITIONS
4579: x_return_status);
4580: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4581: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4582: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4583: RAISE OKL_API.G_EXCEPTION_ERROR;
4584: END IF;
4585:
4586: DELETE FROM OKL_TAX_ATTR_DEFINITIONS
4587: -- WHERE ID = p_tbc_rec.id;
4587: -- WHERE ID = p_tbc_rec.id;
4588: WHERE tax_attribute_def_id = p_tbc_rec.tax_attribute_def_id;
4589:
4590: x_return_status := l_return_status;
4591: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4592: EXCEPTION
4593: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4594: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4595: (
4589:
4590: x_return_status := l_return_status;
4591: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4592: EXCEPTION
4593: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4594: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4595: (
4596: l_api_name,
4597: G_PKG_NAME,
4590: x_return_status := l_return_status;
4591: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4592: EXCEPTION
4593: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4594: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4595: (
4596: l_api_name,
4597: G_PKG_NAME,
4598: 'OKL_API.G_RET_STS_ERROR',
4594: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4595: (
4596: l_api_name,
4597: G_PKG_NAME,
4598: 'OKL_API.G_RET_STS_ERROR',
4599: x_msg_count,
4600: x_msg_data,
4601: '_PVT'
4602: );
4599: x_msg_count,
4600: x_msg_data,
4601: '_PVT'
4602: );
4603: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4604: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4605: (
4606: l_api_name,
4607: G_PKG_NAME,
4600: x_msg_data,
4601: '_PVT'
4602: );
4603: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4604: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4605: (
4606: l_api_name,
4607: G_PKG_NAME,
4608: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4604: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4605: (
4606: l_api_name,
4607: G_PKG_NAME,
4608: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4609: x_msg_count,
4610: x_msg_data,
4611: '_PVT'
4612: );
4610: x_msg_data,
4611: '_PVT'
4612: );
4613: WHEN OTHERS THEN
4614: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4615: (
4616: l_api_name,
4617: G_PKG_NAME,
4618: 'OTHERS',
4633: p_tbcv_rec IN tbcv_rec_type) IS
4634:
4635: l_api_version CONSTANT NUMBER := 1;
4636: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
4637: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4638: l_tbcv_rec tbcv_rec_type := p_tbcv_rec;
4639: l_tbc_rec tbc_rec_type;
4640: BEGIN
4641: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4637: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4638: l_tbcv_rec tbcv_rec_type := p_tbcv_rec;
4639: l_tbc_rec tbc_rec_type;
4640: BEGIN
4641: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4642: G_PKG_NAME,
4643: p_init_msg_list,
4644: l_api_version,
4645: p_api_version,
4644: l_api_version,
4645: p_api_version,
4646: '_PVT',
4647: x_return_status);
4648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4651: RAISE OKL_API.G_EXCEPTION_ERROR;
4652: END IF;
4645: p_api_version,
4646: '_PVT',
4647: x_return_status);
4648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4651: RAISE OKL_API.G_EXCEPTION_ERROR;
4652: END IF;
4653: -----------------------------------------
4646: '_PVT',
4647: x_return_status);
4648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4651: RAISE OKL_API.G_EXCEPTION_ERROR;
4652: END IF;
4653: -----------------------------------------
4654: -- Move VIEW record to "Child" records --
4647: x_return_status);
4648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4651: RAISE OKL_API.G_EXCEPTION_ERROR;
4652: END IF;
4653: -----------------------------------------
4654: -- Move VIEW record to "Child" records --
4655: -----------------------------------------
4663: x_msg_count,
4664: x_msg_data,
4665: l_tbc_rec
4666: );
4667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4670: RAISE OKL_API.G_EXCEPTION_ERROR;
4671: END IF;
4664: x_msg_data,
4665: l_tbc_rec
4666: );
4667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4670: RAISE OKL_API.G_EXCEPTION_ERROR;
4671: END IF;
4672: x_return_status := l_return_status;
4665: l_tbc_rec
4666: );
4667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4670: RAISE OKL_API.G_EXCEPTION_ERROR;
4671: END IF;
4672: x_return_status := l_return_status;
4673: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4666: );
4667: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4668: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4670: RAISE OKL_API.G_EXCEPTION_ERROR;
4671: END IF;
4672: x_return_status := l_return_status;
4673: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4674: EXCEPTION
4669: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4670: RAISE OKL_API.G_EXCEPTION_ERROR;
4671: END IF;
4672: x_return_status := l_return_status;
4673: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4674: EXCEPTION
4675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4676: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4677: (
4671: END IF;
4672: x_return_status := l_return_status;
4673: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4674: EXCEPTION
4675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4676: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4677: (
4678: l_api_name,
4679: G_PKG_NAME,
4672: x_return_status := l_return_status;
4673: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4674: EXCEPTION
4675: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4676: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4677: (
4678: l_api_name,
4679: G_PKG_NAME,
4680: 'OKL_API.G_RET_STS_ERROR',
4676: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4677: (
4678: l_api_name,
4679: G_PKG_NAME,
4680: 'OKL_API.G_RET_STS_ERROR',
4681: x_msg_count,
4682: x_msg_data,
4683: '_PVT'
4684: );
4681: x_msg_count,
4682: x_msg_data,
4683: '_PVT'
4684: );
4685: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4686: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4687: (
4688: l_api_name,
4689: G_PKG_NAME,
4682: x_msg_data,
4683: '_PVT'
4684: );
4685: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4686: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4687: (
4688: l_api_name,
4689: G_PKG_NAME,
4690: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4686: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4687: (
4688: l_api_name,
4689: G_PKG_NAME,
4690: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4691: x_msg_count,
4692: x_msg_data,
4693: '_PVT'
4694: );
4692: x_msg_data,
4693: '_PVT'
4694: );
4695: WHEN OTHERS THEN
4696: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4697: (
4698: l_api_name,
4699: G_PKG_NAME,
4700: 'OTHERS',
4712: x_return_status OUT NOCOPY VARCHAR2,
4713: x_msg_count OUT NOCOPY NUMBER,
4714: x_msg_data OUT NOCOPY VARCHAR2,
4715: p_tbcv_tbl IN tbcv_tbl_type,
4716: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
4717:
4718: l_api_version CONSTANT NUMBER := 1;
4719: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4720: i NUMBER := 0;
4718: l_api_version CONSTANT NUMBER := 1;
4719: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
4720: i NUMBER := 0;
4721: BEGIN
4722: OKL_API.init_msg_list(p_init_msg_list);
4723: -- Make sure PL/SQL table has records in it before passing
4724: IF (p_tbcv_tbl.COUNT > 0) THEN
4725: i := p_tbcv_tbl.FIRST;
4726: LOOP
4724: IF (p_tbcv_tbl.COUNT > 0) THEN
4725: i := p_tbcv_tbl.FIRST;
4726: LOOP
4727: DECLARE
4728: l_error_rec OKL_API.ERROR_REC_TYPE;
4729: BEGIN
4730: l_error_rec.api_name := l_api_name;
4731: l_error_rec.api_package := G_PKG_NAME;
4732: l_error_rec.idx := i;
4731: l_error_rec.api_package := G_PKG_NAME;
4732: l_error_rec.idx := i;
4733: delete_row (
4734: p_api_version => p_api_version,
4735: p_init_msg_list => OKL_API.G_FALSE,
4736: x_return_status => l_error_rec.error_type,
4737: x_msg_count => l_error_rec.msg_count,
4738: x_msg_data => l_error_rec.msg_data,
4739: p_tbcv_rec => p_tbcv_tbl(i));
4736: x_return_status => l_error_rec.error_type,
4737: x_msg_count => l_error_rec.msg_count,
4738: x_msg_data => l_error_rec.msg_data,
4739: p_tbcv_rec => p_tbcv_tbl(i));
4740: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
4741: l_error_rec.sqlcode := SQLCODE;
4742: load_error_tbl(l_error_rec, px_error_tbl);
4743: ELSE
4744: x_msg_count := l_error_rec.msg_count;
4744: x_msg_count := l_error_rec.msg_count;
4745: x_msg_data := l_error_rec.msg_data;
4746: END IF;
4747: EXCEPTION
4748: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4749: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4750: l_error_rec.sqlcode := SQLCODE;
4751: load_error_tbl(l_error_rec, px_error_tbl);
4752: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4745: x_msg_data := l_error_rec.msg_data;
4746: END IF;
4747: EXCEPTION
4748: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4749: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4750: l_error_rec.sqlcode := SQLCODE;
4751: load_error_tbl(l_error_rec, px_error_tbl);
4752: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4753: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4748: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4749: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4750: l_error_rec.sqlcode := SQLCODE;
4751: load_error_tbl(l_error_rec, px_error_tbl);
4752: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4753: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4754: l_error_rec.sqlcode := SQLCODE;
4755: load_error_tbl(l_error_rec, px_error_tbl);
4756: WHEN OTHERS THEN
4749: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4750: l_error_rec.sqlcode := SQLCODE;
4751: load_error_tbl(l_error_rec, px_error_tbl);
4752: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4753: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4754: l_error_rec.sqlcode := SQLCODE;
4755: load_error_tbl(l_error_rec, px_error_tbl);
4756: WHEN OTHERS THEN
4757: l_error_rec.error_type := 'OTHERS';
4764: END IF;
4765: -- Loop through the error_tbl to find the error with the highest severity
4766: -- and return it.
4767: x_return_status := find_highest_exception(px_error_tbl);
4768: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4769: EXCEPTION
4770: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4771: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4772: (
4766: -- and return it.
4767: x_return_status := find_highest_exception(px_error_tbl);
4768: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4769: EXCEPTION
4770: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4771: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4772: (
4773: l_api_name,
4774: G_PKG_NAME,
4767: x_return_status := find_highest_exception(px_error_tbl);
4768: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4769: EXCEPTION
4770: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4771: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4772: (
4773: l_api_name,
4774: G_PKG_NAME,
4775: 'OKL_API.G_RET_STS_ERROR',
4771: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4772: (
4773: l_api_name,
4774: G_PKG_NAME,
4775: 'OKL_API.G_RET_STS_ERROR',
4776: x_msg_count,
4777: x_msg_data,
4778: '_PVT'
4779: );
4776: x_msg_count,
4777: x_msg_data,
4778: '_PVT'
4779: );
4780: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4781: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4782: (
4783: l_api_name,
4784: G_PKG_NAME,
4777: x_msg_data,
4778: '_PVT'
4779: );
4780: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4781: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4782: (
4783: l_api_name,
4784: G_PKG_NAME,
4785: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4781: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4782: (
4783: l_api_name,
4784: G_PKG_NAME,
4785: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4786: x_msg_count,
4787: x_msg_data,
4788: '_PVT'
4789: );
4787: x_msg_data,
4788: '_PVT'
4789: );
4790: WHEN OTHERS THEN
4791: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4792: (
4793: l_api_name,
4794: G_PKG_NAME,
4795: 'OTHERS',
4811: p_tbcv_tbl IN tbcv_tbl_type) IS
4812:
4813: l_api_version CONSTANT NUMBER := 1;
4814: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4815: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4816: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4817: BEGIN
4818: OKL_API.init_msg_list(p_init_msg_list);
4819: -- Make sure PL/SQL table has records in it before passing
4812:
4813: l_api_version CONSTANT NUMBER := 1;
4814: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4815: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4816: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4817: BEGIN
4818: OKL_API.init_msg_list(p_init_msg_list);
4819: -- Make sure PL/SQL table has records in it before passing
4820: IF (p_tbcv_tbl.COUNT > 0) THEN
4814: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
4815: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4816: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4817: BEGIN
4818: OKL_API.init_msg_list(p_init_msg_list);
4819: -- Make sure PL/SQL table has records in it before passing
4820: IF (p_tbcv_tbl.COUNT > 0) THEN
4821: delete_row (
4822: p_api_version => p_api_version,
4819: -- Make sure PL/SQL table has records in it before passing
4820: IF (p_tbcv_tbl.COUNT > 0) THEN
4821: delete_row (
4822: p_api_version => p_api_version,
4823: p_init_msg_list => OKL_API.G_FALSE,
4824: x_return_status => x_return_status,
4825: x_msg_count => x_msg_count,
4826: x_msg_data => x_msg_data,
4827: p_tbcv_tbl => p_tbcv_tbl,
4826: x_msg_data => x_msg_data,
4827: p_tbcv_tbl => p_tbcv_tbl,
4828: px_error_tbl => l_error_tbl);
4829: END IF;
4830: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4831: EXCEPTION
4832: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4833: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4834: (
4828: px_error_tbl => l_error_tbl);
4829: END IF;
4830: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4831: EXCEPTION
4832: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4833: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4834: (
4835: l_api_name,
4836: G_PKG_NAME,
4829: END IF;
4830: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4831: EXCEPTION
4832: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4833: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4834: (
4835: l_api_name,
4836: G_PKG_NAME,
4837: 'OKL_API.G_RET_STS_ERROR',
4833: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4834: (
4835: l_api_name,
4836: G_PKG_NAME,
4837: 'OKL_API.G_RET_STS_ERROR',
4838: x_msg_count,
4839: x_msg_data,
4840: '_PVT'
4841: );
4838: x_msg_count,
4839: x_msg_data,
4840: '_PVT'
4841: );
4842: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4843: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4844: (
4845: l_api_name,
4846: G_PKG_NAME,
4839: x_msg_data,
4840: '_PVT'
4841: );
4842: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4843: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4844: (
4845: l_api_name,
4846: G_PKG_NAME,
4847: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4843: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4844: (
4845: l_api_name,
4846: G_PKG_NAME,
4847: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4848: x_msg_count,
4849: x_msg_data,
4850: '_PVT'
4851: );
4849: x_msg_data,
4850: '_PVT'
4851: );
4852: WHEN OTHERS THEN
4853: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4854: (
4855: l_api_name,
4856: G_PKG_NAME,
4857: 'OTHERS',