[Home] [Help]
10: ---------------------------------------------------------------------------
11: -- PROCEDURE load_error_tbl
12: ---------------------------------------------------------------------------
13: PROCEDURE load_error_tbl (
14: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
15: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
16:
17: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
18: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
11: -- PROCEDURE load_error_tbl
12: ---------------------------------------------------------------------------
13: PROCEDURE load_error_tbl (
14: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
15: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
16:
17: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
18: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
19: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
43: ---------------------------------------------------------------------------
44: -- FUNCTION find_highest_exception
45: ---------------------------------------------------------------------------
46: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
47: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
48: FUNCTION find_highest_exception(
49: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
50: ) RETURN VARCHAR2 IS
51: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: ---------------------------------------------------------------------------
46: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
47: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
48: FUNCTION find_highest_exception(
49: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
50: ) RETURN VARCHAR2 IS
51: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
52: i INTEGER := 1;
53: BEGIN
47: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
48: FUNCTION find_highest_exception(
49: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
50: ) RETURN VARCHAR2 IS
51: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
52: i INTEGER := 1;
53: BEGIN
54: IF (p_error_tbl.COUNT > 0) THEN
55: i := p_error_tbl.FIRST;
53: BEGIN
54: IF (p_error_tbl.COUNT > 0) THEN
55: i := p_error_tbl.FIRST;
56: LOOP
57: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
58: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
59: l_return_status := p_error_tbl(i).error_type;
60: END IF;
61: END IF;
54: IF (p_error_tbl.COUNT > 0) THEN
55: i := p_error_tbl.FIRST;
56: LOOP
57: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
58: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
59: l_return_status := p_error_tbl(i).error_type;
60: END IF;
61: END IF;
62: EXIT WHEN (i = p_error_tbl.LAST);
229: ) RETURN OKL_TAX_LINES_rec_type IS
230: l_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type;
231: l_row_notfound BOOLEAN := TRUE;
232: BEGIN
233: x_return_status := OKC_API.G_RET_STS_SUCCESS;
234: l_OKL_TAX_LINES_rec := get_rec(p_OKL_TAX_LINES_rec, l_row_notfound);
235: IF (l_row_notfound) THEN
236: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
237: x_return_status := OKC_API.G_RET_STS_ERROR;
232: BEGIN
233: x_return_status := OKC_API.G_RET_STS_SUCCESS;
234: l_OKL_TAX_LINES_rec := get_rec(p_OKL_TAX_LINES_rec, l_row_notfound);
235: IF (l_row_notfound) THEN
236: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
237: x_return_status := OKC_API.G_RET_STS_ERROR;
238: END IF;
239: RETURN(l_OKL_TAX_LINES_rec);
240: END get_rec;
233: x_return_status := OKC_API.G_RET_STS_SUCCESS;
234: l_OKL_TAX_LINES_rec := get_rec(p_OKL_TAX_LINES_rec, l_row_notfound);
235: IF (l_row_notfound) THEN
236: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
237: x_return_status := OKC_API.G_RET_STS_ERROR;
238: END IF;
239: RETURN(l_OKL_TAX_LINES_rec);
240: END get_rec;
241: -----------------------------------------------------------
380: ) RETURN tax_rec_type IS
381: l_tax_rec tax_rec_type;
382: l_row_notfound BOOLEAN := TRUE;
383: BEGIN
384: x_return_status := OKC_API.G_RET_STS_SUCCESS;
385: l_tax_rec := get_rec(p_tax_rec, l_row_notfound);
386: IF (l_row_notfound) THEN
387: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
388: x_return_status := OKC_API.G_RET_STS_ERROR;
383: BEGIN
384: x_return_status := OKC_API.G_RET_STS_SUCCESS;
385: l_tax_rec := get_rec(p_tax_rec, l_row_notfound);
386: IF (l_row_notfound) THEN
387: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
388: x_return_status := OKC_API.G_RET_STS_ERROR;
389: END IF;
390: RETURN(l_tax_rec);
391: END get_rec;
384: x_return_status := OKC_API.G_RET_STS_SUCCESS;
385: l_tax_rec := get_rec(p_tax_rec, l_row_notfound);
386: IF (l_row_notfound) THEN
387: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
388: x_return_status := OKC_API.G_RET_STS_ERROR;
389: END IF;
390: RETURN(l_tax_rec);
391: END get_rec;
392: -----------------------------------------------------------
406: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type
407: ) RETURN OKL_TAX_LINES_rec_type IS
408: l_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type := p_OKL_TAX_LINES_rec;
409: BEGIN
410: IF (l_OKL_TAX_LINES_rec.id = OKC_API.G_MISS_NUM ) THEN
411: l_OKL_TAX_LINES_rec.id := NULL;
412: END IF;
413: IF (l_OKL_TAX_LINES_rec.khr_id = OKC_API.G_MISS_NUM ) THEN
414: l_OKL_TAX_LINES_rec.khr_id := NULL;
409: BEGIN
410: IF (l_OKL_TAX_LINES_rec.id = OKC_API.G_MISS_NUM ) THEN
411: l_OKL_TAX_LINES_rec.id := NULL;
412: END IF;
413: IF (l_OKL_TAX_LINES_rec.khr_id = OKC_API.G_MISS_NUM ) THEN
414: l_OKL_TAX_LINES_rec.khr_id := NULL;
415: END IF;
416: IF (l_OKL_TAX_LINES_rec.kle_id = OKC_API.G_MISS_NUM ) THEN
417: l_OKL_TAX_LINES_rec.kle_id := NULL;
412: END IF;
413: IF (l_OKL_TAX_LINES_rec.khr_id = OKC_API.G_MISS_NUM ) THEN
414: l_OKL_TAX_LINES_rec.khr_id := NULL;
415: END IF;
416: IF (l_OKL_TAX_LINES_rec.kle_id = OKC_API.G_MISS_NUM ) THEN
417: l_OKL_TAX_LINES_rec.kle_id := NULL;
418: END IF;
419: IF (l_OKL_TAX_LINES_rec.asset_id = OKC_API.G_MISS_NUM ) THEN
420: l_OKL_TAX_LINES_rec.asset_id := NULL;
415: END IF;
416: IF (l_OKL_TAX_LINES_rec.kle_id = OKC_API.G_MISS_NUM ) THEN
417: l_OKL_TAX_LINES_rec.kle_id := NULL;
418: END IF;
419: IF (l_OKL_TAX_LINES_rec.asset_id = OKC_API.G_MISS_NUM ) THEN
420: l_OKL_TAX_LINES_rec.asset_id := NULL;
421: END IF;
422: IF (l_OKL_TAX_LINES_rec.asset_number = OKC_API.G_MISS_CHAR ) THEN
423: l_OKL_TAX_LINES_rec.asset_number := NULL;
418: END IF;
419: IF (l_OKL_TAX_LINES_rec.asset_id = OKC_API.G_MISS_NUM ) THEN
420: l_OKL_TAX_LINES_rec.asset_id := NULL;
421: END IF;
422: IF (l_OKL_TAX_LINES_rec.asset_number = OKC_API.G_MISS_CHAR ) THEN
423: l_OKL_TAX_LINES_rec.asset_number := NULL;
424: END IF;
425: IF (l_OKL_TAX_LINES_rec.tax_line_type = OKC_API.G_MISS_CHAR ) THEN
426: l_OKL_TAX_LINES_rec.tax_line_type := NULL;
421: END IF;
422: IF (l_OKL_TAX_LINES_rec.asset_number = OKC_API.G_MISS_CHAR ) THEN
423: l_OKL_TAX_LINES_rec.asset_number := NULL;
424: END IF;
425: IF (l_OKL_TAX_LINES_rec.tax_line_type = OKC_API.G_MISS_CHAR ) THEN
426: l_OKL_TAX_LINES_rec.tax_line_type := NULL;
427: END IF;
428: IF (l_OKL_TAX_LINES_rec.sel_id = OKC_API.G_MISS_NUM ) THEN
429: l_OKL_TAX_LINES_rec.sel_id := NULL;
424: END IF;
425: IF (l_OKL_TAX_LINES_rec.tax_line_type = OKC_API.G_MISS_CHAR ) THEN
426: l_OKL_TAX_LINES_rec.tax_line_type := NULL;
427: END IF;
428: IF (l_OKL_TAX_LINES_rec.sel_id = OKC_API.G_MISS_NUM ) THEN
429: l_OKL_TAX_LINES_rec.sel_id := NULL;
430: END IF;
431: IF (l_OKL_TAX_LINES_rec.tax_due_date = OKC_API.G_MISS_DATE ) THEN
432: l_OKL_TAX_LINES_rec.tax_due_date := NULL;
427: END IF;
428: IF (l_OKL_TAX_LINES_rec.sel_id = OKC_API.G_MISS_NUM ) THEN
429: l_OKL_TAX_LINES_rec.sel_id := NULL;
430: END IF;
431: IF (l_OKL_TAX_LINES_rec.tax_due_date = OKC_API.G_MISS_DATE ) THEN
432: l_OKL_TAX_LINES_rec.tax_due_date := NULL;
433: END IF;
434: IF (l_OKL_TAX_LINES_rec.tax_type = OKC_API.G_MISS_NUM ) THEN
435: l_OKL_TAX_LINES_rec.tax_type := NULL;
430: END IF;
431: IF (l_OKL_TAX_LINES_rec.tax_due_date = OKC_API.G_MISS_DATE ) THEN
432: l_OKL_TAX_LINES_rec.tax_due_date := NULL;
433: END IF;
434: IF (l_OKL_TAX_LINES_rec.tax_type = OKC_API.G_MISS_NUM ) THEN
435: l_OKL_TAX_LINES_rec.tax_type := NULL;
436: END IF;
437: IF (l_OKL_TAX_LINES_rec.tax_rate_code_id = OKC_API.G_MISS_NUM ) THEN
438: l_OKL_TAX_LINES_rec.tax_rate_code_id := NULL;
433: END IF;
434: IF (l_OKL_TAX_LINES_rec.tax_type = OKC_API.G_MISS_NUM ) THEN
435: l_OKL_TAX_LINES_rec.tax_type := NULL;
436: END IF;
437: IF (l_OKL_TAX_LINES_rec.tax_rate_code_id = OKC_API.G_MISS_NUM ) THEN
438: l_OKL_TAX_LINES_rec.tax_rate_code_id := NULL;
439: END IF;
440: IF (l_OKL_TAX_LINES_rec.tax_rate_code = OKC_API.G_MISS_CHAR ) THEN
441: l_OKL_TAX_LINES_rec.tax_rate_code := NULL;
436: END IF;
437: IF (l_OKL_TAX_LINES_rec.tax_rate_code_id = OKC_API.G_MISS_NUM ) THEN
438: l_OKL_TAX_LINES_rec.tax_rate_code_id := NULL;
439: END IF;
440: IF (l_OKL_TAX_LINES_rec.tax_rate_code = OKC_API.G_MISS_CHAR ) THEN
441: l_OKL_TAX_LINES_rec.tax_rate_code := NULL;
442: END IF;
443: IF (l_OKL_TAX_LINES_rec.taxable_amount = OKC_API.G_MISS_NUM ) THEN
444: l_OKL_TAX_LINES_rec.taxable_amount := NULL;
439: END IF;
440: IF (l_OKL_TAX_LINES_rec.tax_rate_code = OKC_API.G_MISS_CHAR ) THEN
441: l_OKL_TAX_LINES_rec.tax_rate_code := NULL;
442: END IF;
443: IF (l_OKL_TAX_LINES_rec.taxable_amount = OKC_API.G_MISS_NUM ) THEN
444: l_OKL_TAX_LINES_rec.taxable_amount := NULL;
445: END IF;
446: IF (l_OKL_TAX_LINES_rec.tax_exemption_id = OKC_API.G_MISS_NUM ) THEN
447: l_OKL_TAX_LINES_rec.tax_exemption_id := NULL;
442: END IF;
443: IF (l_OKL_TAX_LINES_rec.taxable_amount = OKC_API.G_MISS_NUM ) THEN
444: l_OKL_TAX_LINES_rec.taxable_amount := NULL;
445: END IF;
446: IF (l_OKL_TAX_LINES_rec.tax_exemption_id = OKC_API.G_MISS_NUM ) THEN
447: l_OKL_TAX_LINES_rec.tax_exemption_id := NULL;
448: END IF;
449: IF (l_OKL_TAX_LINES_rec.manually_entered_flag = OKC_API.G_MISS_CHAR ) THEN
450: l_OKL_TAX_LINES_rec.manually_entered_flag := NULL;
445: END IF;
446: IF (l_OKL_TAX_LINES_rec.tax_exemption_id = OKC_API.G_MISS_NUM ) THEN
447: l_OKL_TAX_LINES_rec.tax_exemption_id := NULL;
448: END IF;
449: IF (l_OKL_TAX_LINES_rec.manually_entered_flag = OKC_API.G_MISS_CHAR ) THEN
450: l_OKL_TAX_LINES_rec.manually_entered_flag := NULL;
451: END IF;
452: IF (l_OKL_TAX_LINES_rec.overridden_flag = OKC_API.G_MISS_CHAR ) THEN
453: l_OKL_TAX_LINES_rec.overridden_flag := NULL;
448: END IF;
449: IF (l_OKL_TAX_LINES_rec.manually_entered_flag = OKC_API.G_MISS_CHAR ) THEN
450: l_OKL_TAX_LINES_rec.manually_entered_flag := NULL;
451: END IF;
452: IF (l_OKL_TAX_LINES_rec.overridden_flag = OKC_API.G_MISS_CHAR ) THEN
453: l_OKL_TAX_LINES_rec.overridden_flag := NULL;
454: END IF;
455: IF (l_OKL_TAX_LINES_rec.calculated_tax_amount = OKC_API.G_MISS_NUM ) THEN
456: l_OKL_TAX_LINES_rec.calculated_tax_amount := NULL;
451: END IF;
452: IF (l_OKL_TAX_LINES_rec.overridden_flag = OKC_API.G_MISS_CHAR ) THEN
453: l_OKL_TAX_LINES_rec.overridden_flag := NULL;
454: END IF;
455: IF (l_OKL_TAX_LINES_rec.calculated_tax_amount = OKC_API.G_MISS_NUM ) THEN
456: l_OKL_TAX_LINES_rec.calculated_tax_amount := NULL;
457: END IF;
458: IF (l_OKL_TAX_LINES_rec.tax_rate = OKC_API.G_MISS_NUM ) THEN
459: l_OKL_TAX_LINES_rec.tax_rate := NULL;
454: END IF;
455: IF (l_OKL_TAX_LINES_rec.calculated_tax_amount = OKC_API.G_MISS_NUM ) THEN
456: l_OKL_TAX_LINES_rec.calculated_tax_amount := NULL;
457: END IF;
458: IF (l_OKL_TAX_LINES_rec.tax_rate = OKC_API.G_MISS_NUM ) THEN
459: l_OKL_TAX_LINES_rec.tax_rate := NULL;
460: END IF;
461: IF (l_OKL_TAX_LINES_rec.tax_amount = OKC_API.G_MISS_NUM ) THEN
462: l_OKL_TAX_LINES_rec.tax_amount := NULL;
457: END IF;
458: IF (l_OKL_TAX_LINES_rec.tax_rate = OKC_API.G_MISS_NUM ) THEN
459: l_OKL_TAX_LINES_rec.tax_rate := NULL;
460: END IF;
461: IF (l_OKL_TAX_LINES_rec.tax_amount = OKC_API.G_MISS_NUM ) THEN
462: l_OKL_TAX_LINES_rec.tax_amount := NULL;
463: END IF;
464: IF (l_OKL_TAX_LINES_rec.sales_tax_id = OKC_API.G_MISS_NUM ) THEN
465: l_OKL_TAX_LINES_rec.sales_tax_id := NULL;
460: END IF;
461: IF (l_OKL_TAX_LINES_rec.tax_amount = OKC_API.G_MISS_NUM ) THEN
462: l_OKL_TAX_LINES_rec.tax_amount := NULL;
463: END IF;
464: IF (l_OKL_TAX_LINES_rec.sales_tax_id = OKC_API.G_MISS_NUM ) THEN
465: l_OKL_TAX_LINES_rec.sales_tax_id := NULL;
466: END IF;
467: IF (l_OKL_TAX_LINES_rec.source_trx_id = OKC_API.G_MISS_NUM ) THEN
468: l_OKL_TAX_LINES_rec.source_trx_id := NULL;
463: END IF;
464: IF (l_OKL_TAX_LINES_rec.sales_tax_id = OKC_API.G_MISS_NUM ) THEN
465: l_OKL_TAX_LINES_rec.sales_tax_id := NULL;
466: END IF;
467: IF (l_OKL_TAX_LINES_rec.source_trx_id = OKC_API.G_MISS_NUM ) THEN
468: l_OKL_TAX_LINES_rec.source_trx_id := NULL;
469: END IF;
470: IF (l_OKL_TAX_LINES_rec.org_id = OKC_API.G_MISS_NUM ) THEN
471: l_OKL_TAX_LINES_rec.org_id := NULL;
466: END IF;
467: IF (l_OKL_TAX_LINES_rec.source_trx_id = OKC_API.G_MISS_NUM ) THEN
468: l_OKL_TAX_LINES_rec.source_trx_id := NULL;
469: END IF;
470: IF (l_OKL_TAX_LINES_rec.org_id = OKC_API.G_MISS_NUM ) THEN
471: l_OKL_TAX_LINES_rec.org_id := NULL;
472: END IF;
473: IF (l_OKL_TAX_LINES_rec.history_yn = OKC_API.G_MISS_CHAR ) THEN
474: l_OKL_TAX_LINES_rec.history_yn := NULL;
469: END IF;
470: IF (l_OKL_TAX_LINES_rec.org_id = OKC_API.G_MISS_NUM ) THEN
471: l_OKL_TAX_LINES_rec.org_id := NULL;
472: END IF;
473: IF (l_OKL_TAX_LINES_rec.history_yn = OKC_API.G_MISS_CHAR ) THEN
474: l_OKL_TAX_LINES_rec.history_yn := NULL;
475: END IF;
476: IF (l_OKL_TAX_LINES_rec.actual_yn = OKC_API.G_MISS_CHAR ) THEN
477: l_OKL_TAX_LINES_rec.actual_yn := NULL;
472: END IF;
473: IF (l_OKL_TAX_LINES_rec.history_yn = OKC_API.G_MISS_CHAR ) THEN
474: l_OKL_TAX_LINES_rec.history_yn := NULL;
475: END IF;
476: IF (l_OKL_TAX_LINES_rec.actual_yn = OKC_API.G_MISS_CHAR ) THEN
477: l_OKL_TAX_LINES_rec.actual_yn := NULL;
478: END IF;
479: IF (l_OKL_TAX_LINES_rec.source_name = OKC_API.G_MISS_CHAR ) THEN
480: l_OKL_TAX_LINES_rec.source_name := NULL;
475: END IF;
476: IF (l_OKL_TAX_LINES_rec.actual_yn = OKC_API.G_MISS_CHAR ) THEN
477: l_OKL_TAX_LINES_rec.actual_yn := NULL;
478: END IF;
479: IF (l_OKL_TAX_LINES_rec.source_name = OKC_API.G_MISS_CHAR ) THEN
480: l_OKL_TAX_LINES_rec.source_name := NULL;
481: END IF;
482: IF (l_OKL_TAX_LINES_rec.trq_id = OKC_API.G_MISS_NUM ) THEN
483: l_OKL_TAX_LINES_rec.trq_id := NULL;
478: END IF;
479: IF (l_OKL_TAX_LINES_rec.source_name = OKC_API.G_MISS_CHAR ) THEN
480: l_OKL_TAX_LINES_rec.source_name := NULL;
481: END IF;
482: IF (l_OKL_TAX_LINES_rec.trq_id = OKC_API.G_MISS_NUM ) THEN
483: l_OKL_TAX_LINES_rec.trq_id := NULL;
484: END IF;
485: IF (l_OKL_TAX_LINES_rec.program_id = OKC_API.G_MISS_NUM ) THEN
486: l_OKL_TAX_LINES_rec.program_id := NULL;
481: END IF;
482: IF (l_OKL_TAX_LINES_rec.trq_id = OKC_API.G_MISS_NUM ) THEN
483: l_OKL_TAX_LINES_rec.trq_id := NULL;
484: END IF;
485: IF (l_OKL_TAX_LINES_rec.program_id = OKC_API.G_MISS_NUM ) THEN
486: l_OKL_TAX_LINES_rec.program_id := NULL;
487: END IF;
488: IF (l_OKL_TAX_LINES_rec.request_id = OKC_API.G_MISS_NUM ) THEN
489: l_OKL_TAX_LINES_rec.request_id := NULL;
484: END IF;
485: IF (l_OKL_TAX_LINES_rec.program_id = OKC_API.G_MISS_NUM ) THEN
486: l_OKL_TAX_LINES_rec.program_id := NULL;
487: END IF;
488: IF (l_OKL_TAX_LINES_rec.request_id = OKC_API.G_MISS_NUM ) THEN
489: l_OKL_TAX_LINES_rec.request_id := NULL;
490: END IF;
491: IF (l_OKL_TAX_LINES_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
492: l_OKL_TAX_LINES_rec.program_application_id := NULL;
487: END IF;
488: IF (l_OKL_TAX_LINES_rec.request_id = OKC_API.G_MISS_NUM ) THEN
489: l_OKL_TAX_LINES_rec.request_id := NULL;
490: END IF;
491: IF (l_OKL_TAX_LINES_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
492: l_OKL_TAX_LINES_rec.program_application_id := NULL;
493: END IF;
494: IF (l_OKL_TAX_LINES_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
495: l_OKL_TAX_LINES_rec.program_update_date := NULL;
490: END IF;
491: IF (l_OKL_TAX_LINES_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
492: l_OKL_TAX_LINES_rec.program_application_id := NULL;
493: END IF;
494: IF (l_OKL_TAX_LINES_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
495: l_OKL_TAX_LINES_rec.program_update_date := NULL;
496: END IF;
497: IF (l_OKL_TAX_LINES_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
498: l_OKL_TAX_LINES_rec.attribute_category := NULL;
493: END IF;
494: IF (l_OKL_TAX_LINES_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
495: l_OKL_TAX_LINES_rec.program_update_date := NULL;
496: END IF;
497: IF (l_OKL_TAX_LINES_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
498: l_OKL_TAX_LINES_rec.attribute_category := NULL;
499: END IF;
500: IF (l_OKL_TAX_LINES_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
501: l_OKL_TAX_LINES_rec.attribute1 := NULL;
496: END IF;
497: IF (l_OKL_TAX_LINES_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
498: l_OKL_TAX_LINES_rec.attribute_category := NULL;
499: END IF;
500: IF (l_OKL_TAX_LINES_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
501: l_OKL_TAX_LINES_rec.attribute1 := NULL;
502: END IF;
503: IF (l_OKL_TAX_LINES_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
504: l_OKL_TAX_LINES_rec.attribute2 := NULL;
499: END IF;
500: IF (l_OKL_TAX_LINES_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
501: l_OKL_TAX_LINES_rec.attribute1 := NULL;
502: END IF;
503: IF (l_OKL_TAX_LINES_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
504: l_OKL_TAX_LINES_rec.attribute2 := NULL;
505: END IF;
506: IF (l_OKL_TAX_LINES_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
507: l_OKL_TAX_LINES_rec.attribute3 := NULL;
502: END IF;
503: IF (l_OKL_TAX_LINES_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
504: l_OKL_TAX_LINES_rec.attribute2 := NULL;
505: END IF;
506: IF (l_OKL_TAX_LINES_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
507: l_OKL_TAX_LINES_rec.attribute3 := NULL;
508: END IF;
509: IF (l_OKL_TAX_LINES_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
510: l_OKL_TAX_LINES_rec.attribute4 := NULL;
505: END IF;
506: IF (l_OKL_TAX_LINES_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
507: l_OKL_TAX_LINES_rec.attribute3 := NULL;
508: END IF;
509: IF (l_OKL_TAX_LINES_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
510: l_OKL_TAX_LINES_rec.attribute4 := NULL;
511: END IF;
512: IF (l_OKL_TAX_LINES_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
513: l_OKL_TAX_LINES_rec.attribute5 := NULL;
508: END IF;
509: IF (l_OKL_TAX_LINES_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
510: l_OKL_TAX_LINES_rec.attribute4 := NULL;
511: END IF;
512: IF (l_OKL_TAX_LINES_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
513: l_OKL_TAX_LINES_rec.attribute5 := NULL;
514: END IF;
515: IF (l_OKL_TAX_LINES_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
516: l_OKL_TAX_LINES_rec.attribute6 := NULL;
511: END IF;
512: IF (l_OKL_TAX_LINES_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
513: l_OKL_TAX_LINES_rec.attribute5 := NULL;
514: END IF;
515: IF (l_OKL_TAX_LINES_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
516: l_OKL_TAX_LINES_rec.attribute6 := NULL;
517: END IF;
518: IF (l_OKL_TAX_LINES_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
519: l_OKL_TAX_LINES_rec.attribute7 := NULL;
514: END IF;
515: IF (l_OKL_TAX_LINES_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
516: l_OKL_TAX_LINES_rec.attribute6 := NULL;
517: END IF;
518: IF (l_OKL_TAX_LINES_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
519: l_OKL_TAX_LINES_rec.attribute7 := NULL;
520: END IF;
521: IF (l_OKL_TAX_LINES_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
522: l_OKL_TAX_LINES_rec.attribute8 := NULL;
517: END IF;
518: IF (l_OKL_TAX_LINES_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
519: l_OKL_TAX_LINES_rec.attribute7 := NULL;
520: END IF;
521: IF (l_OKL_TAX_LINES_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
522: l_OKL_TAX_LINES_rec.attribute8 := NULL;
523: END IF;
524: IF (l_OKL_TAX_LINES_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
525: l_OKL_TAX_LINES_rec.attribute9 := NULL;
520: END IF;
521: IF (l_OKL_TAX_LINES_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
522: l_OKL_TAX_LINES_rec.attribute8 := NULL;
523: END IF;
524: IF (l_OKL_TAX_LINES_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
525: l_OKL_TAX_LINES_rec.attribute9 := NULL;
526: END IF;
527: IF (l_OKL_TAX_LINES_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
528: l_OKL_TAX_LINES_rec.attribute10 := NULL;
523: END IF;
524: IF (l_OKL_TAX_LINES_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
525: l_OKL_TAX_LINES_rec.attribute9 := NULL;
526: END IF;
527: IF (l_OKL_TAX_LINES_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
528: l_OKL_TAX_LINES_rec.attribute10 := NULL;
529: END IF;
530: IF (l_OKL_TAX_LINES_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
531: l_OKL_TAX_LINES_rec.attribute11 := NULL;
526: END IF;
527: IF (l_OKL_TAX_LINES_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
528: l_OKL_TAX_LINES_rec.attribute10 := NULL;
529: END IF;
530: IF (l_OKL_TAX_LINES_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
531: l_OKL_TAX_LINES_rec.attribute11 := NULL;
532: END IF;
533: IF (l_OKL_TAX_LINES_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
534: l_OKL_TAX_LINES_rec.attribute12 := NULL;
529: END IF;
530: IF (l_OKL_TAX_LINES_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
531: l_OKL_TAX_LINES_rec.attribute11 := NULL;
532: END IF;
533: IF (l_OKL_TAX_LINES_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
534: l_OKL_TAX_LINES_rec.attribute12 := NULL;
535: END IF;
536: IF (l_OKL_TAX_LINES_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
537: l_OKL_TAX_LINES_rec.attribute13 := NULL;
532: END IF;
533: IF (l_OKL_TAX_LINES_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
534: l_OKL_TAX_LINES_rec.attribute12 := NULL;
535: END IF;
536: IF (l_OKL_TAX_LINES_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
537: l_OKL_TAX_LINES_rec.attribute13 := NULL;
538: END IF;
539: IF (l_OKL_TAX_LINES_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
540: l_OKL_TAX_LINES_rec.attribute14 := NULL;
535: END IF;
536: IF (l_OKL_TAX_LINES_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
537: l_OKL_TAX_LINES_rec.attribute13 := NULL;
538: END IF;
539: IF (l_OKL_TAX_LINES_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
540: l_OKL_TAX_LINES_rec.attribute14 := NULL;
541: END IF;
542: IF (l_OKL_TAX_LINES_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
543: l_OKL_TAX_LINES_rec.attribute15 := NULL;
538: END IF;
539: IF (l_OKL_TAX_LINES_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
540: l_OKL_TAX_LINES_rec.attribute14 := NULL;
541: END IF;
542: IF (l_OKL_TAX_LINES_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
543: l_OKL_TAX_LINES_rec.attribute15 := NULL;
544: END IF;
545: IF (l_OKL_TAX_LINES_rec.created_by = OKC_API.G_MISS_NUM ) THEN
546: l_OKL_TAX_LINES_rec.created_by := NULL;
541: END IF;
542: IF (l_OKL_TAX_LINES_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
543: l_OKL_TAX_LINES_rec.attribute15 := NULL;
544: END IF;
545: IF (l_OKL_TAX_LINES_rec.created_by = OKC_API.G_MISS_NUM ) THEN
546: l_OKL_TAX_LINES_rec.created_by := NULL;
547: END IF;
548: IF (l_OKL_TAX_LINES_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
549: l_OKL_TAX_LINES_rec.creation_date := NULL;
544: END IF;
545: IF (l_OKL_TAX_LINES_rec.created_by = OKC_API.G_MISS_NUM ) THEN
546: l_OKL_TAX_LINES_rec.created_by := NULL;
547: END IF;
548: IF (l_OKL_TAX_LINES_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
549: l_OKL_TAX_LINES_rec.creation_date := NULL;
550: END IF;
551: IF (l_OKL_TAX_LINES_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
552: l_OKL_TAX_LINES_rec.last_updated_by := NULL;
547: END IF;
548: IF (l_OKL_TAX_LINES_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
549: l_OKL_TAX_LINES_rec.creation_date := NULL;
550: END IF;
551: IF (l_OKL_TAX_LINES_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
552: l_OKL_TAX_LINES_rec.last_updated_by := NULL;
553: END IF;
554: IF (l_OKL_TAX_LINES_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
555: l_OKL_TAX_LINES_rec.last_update_date := NULL;
550: END IF;
551: IF (l_OKL_TAX_LINES_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
552: l_OKL_TAX_LINES_rec.last_updated_by := NULL;
553: END IF;
554: IF (l_OKL_TAX_LINES_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
555: l_OKL_TAX_LINES_rec.last_update_date := NULL;
556: END IF;
557: IF (l_OKL_TAX_LINES_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
558: l_OKL_TAX_LINES_rec.last_update_login := NULL;
553: END IF;
554: IF (l_OKL_TAX_LINES_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
555: l_OKL_TAX_LINES_rec.last_update_date := NULL;
556: END IF;
557: IF (l_OKL_TAX_LINES_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
558: l_OKL_TAX_LINES_rec.last_update_login := NULL;
559: END IF;
560: RETURN(l_OKL_TAX_LINES_rec);
561: END null_out_defaults;
565: PROCEDURE validate_id(
566: x_return_status OUT NOCOPY VARCHAR2,
567: p_id IN NUMBER) IS
568: BEGIN
569: x_return_status := OKC_API.G_RET_STS_SUCCESS;
570: IF (p_id = OKC_API.G_MISS_NUM OR
571: p_id IS NULL)
572: THEN
573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
566: x_return_status OUT NOCOPY VARCHAR2,
567: p_id IN NUMBER) IS
568: BEGIN
569: x_return_status := OKC_API.G_RET_STS_SUCCESS;
570: IF (p_id = OKC_API.G_MISS_NUM OR
571: p_id IS NULL)
572: THEN
573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
574: x_return_status := OKC_API.G_RET_STS_ERROR;
569: x_return_status := OKC_API.G_RET_STS_SUCCESS;
570: IF (p_id = OKC_API.G_MISS_NUM OR
571: p_id IS NULL)
572: THEN
573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
574: x_return_status := OKC_API.G_RET_STS_ERROR;
575: RAISE G_EXCEPTION_HALT_VALIDATION;
576: END IF;
577: EXCEPTION
570: IF (p_id = OKC_API.G_MISS_NUM OR
571: p_id IS NULL)
572: THEN
573: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
574: x_return_status := OKC_API.G_RET_STS_ERROR;
575: RAISE G_EXCEPTION_HALT_VALIDATION;
576: END IF;
577: EXCEPTION
578: WHEN G_EXCEPTION_HALT_VALIDATION THEN
577: EXCEPTION
578: WHEN G_EXCEPTION_HALT_VALIDATION THEN
579: null;
580: WHEN OTHERS THEN
581: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
582: ,p_msg_name => G_UNEXPECTED_ERROR
583: ,p_token1 => G_SQLCODE_TOKEN
584: ,p_token1_value => SQLCODE
585: ,p_token2 => G_SQLERRM_TOKEN
583: ,p_token1 => G_SQLCODE_TOKEN
584: ,p_token1_value => SQLCODE
585: ,p_token2 => G_SQLERRM_TOKEN
586: ,p_token2_value => SQLERRM);
587: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
588: END validate_id;
589: -------------------------------------
590: -- Validate_Attributes for: KHR_ID --
591: -------------------------------------
592: PROCEDURE validate_khr_id(
593: x_return_status OUT NOCOPY VARCHAR2,
594: p_khr_id IN NUMBER) IS
595: BEGIN
596: x_return_status := OKC_API.G_RET_STS_SUCCESS;
597: IF (p_khr_id = OKC_API.G_MISS_NUM OR
598: p_khr_id IS NULL)
599: THEN
600: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
593: x_return_status OUT NOCOPY VARCHAR2,
594: p_khr_id IN NUMBER) IS
595: BEGIN
596: x_return_status := OKC_API.G_RET_STS_SUCCESS;
597: IF (p_khr_id = OKC_API.G_MISS_NUM OR
598: p_khr_id IS NULL)
599: THEN
600: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
601: x_return_status := OKC_API.G_RET_STS_ERROR;
596: x_return_status := OKC_API.G_RET_STS_SUCCESS;
597: IF (p_khr_id = OKC_API.G_MISS_NUM OR
598: p_khr_id IS NULL)
599: THEN
600: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
601: x_return_status := OKC_API.G_RET_STS_ERROR;
602: RAISE G_EXCEPTION_HALT_VALIDATION;
603: END IF;
604: EXCEPTION
597: IF (p_khr_id = OKC_API.G_MISS_NUM OR
598: p_khr_id IS NULL)
599: THEN
600: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
601: x_return_status := OKC_API.G_RET_STS_ERROR;
602: RAISE G_EXCEPTION_HALT_VALIDATION;
603: END IF;
604: EXCEPTION
605: WHEN G_EXCEPTION_HALT_VALIDATION THEN
604: EXCEPTION
605: WHEN G_EXCEPTION_HALT_VALIDATION THEN
606: null;
607: WHEN OTHERS THEN
608: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
609: ,p_msg_name => G_UNEXPECTED_ERROR
610: ,p_token1 => G_SQLCODE_TOKEN
611: ,p_token1_value => SQLCODE
612: ,p_token2 => G_SQLERRM_TOKEN
610: ,p_token1 => G_SQLCODE_TOKEN
611: ,p_token1_value => SQLCODE
612: ,p_token2 => G_SQLERRM_TOKEN
613: ,p_token2_value => SQLERRM);
614: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
615: END validate_khr_id;
616: --------------------------------------------
617: -- Validate_Attributes for: TAX_LINE_TYPE --
618: --------------------------------------------
620: x_return_status OUT NOCOPY VARCHAR2,
621: p_tax_line_type IN VARCHAR2) IS
622: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
623: BEGIN
624: x_return_status := OKC_API.G_RET_STS_SUCCESS;
625: IF (p_tax_line_type = OKC_API.G_MISS_CHAR OR
626: p_tax_line_type IS NULL)
627: THEN
628: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_line_type');
621: p_tax_line_type IN VARCHAR2) IS
622: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
623: BEGIN
624: x_return_status := OKC_API.G_RET_STS_SUCCESS;
625: IF (p_tax_line_type = OKC_API.G_MISS_CHAR OR
626: p_tax_line_type IS NULL)
627: THEN
628: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_line_type');
629: x_return_status := OKC_API.G_RET_STS_ERROR;
624: x_return_status := OKC_API.G_RET_STS_SUCCESS;
625: IF (p_tax_line_type = OKC_API.G_MISS_CHAR OR
626: p_tax_line_type IS NULL)
627: THEN
628: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_line_type');
629: x_return_status := OKC_API.G_RET_STS_ERROR;
630: RAISE G_EXCEPTION_HALT_VALIDATION;
631: END IF;
632:
625: IF (p_tax_line_type = OKC_API.G_MISS_CHAR OR
626: p_tax_line_type IS NULL)
627: THEN
628: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_line_type');
629: x_return_status := OKC_API.G_RET_STS_ERROR;
630: RAISE G_EXCEPTION_HALT_VALIDATION;
631: END IF;
632:
633: --Hand coded this.
636: p_tax_line_type);
637: IF l_return_status <> x_return_status THEN
638: -- Notify Error
639: OKL_API.set_message(G_APP_NAME, G_NO_MATCHING_RECORD, G_COL_NAME_TOKEN, 'tax_line_type');
640: x_return_status := OKC_API.G_RET_STS_ERROR;
641: RAISE G_EXCEPTION_HALT_VALIDATION;
642: END IF;
643:
644: EXCEPTION
644: EXCEPTION
645: WHEN G_EXCEPTION_HALT_VALIDATION THEN
646: null;
647: WHEN OTHERS THEN
648: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
649: ,p_msg_name => G_UNEXPECTED_ERROR
650: ,p_token1 => G_SQLCODE_TOKEN
651: ,p_token1_value => SQLCODE
652: ,p_token2 => G_SQLERRM_TOKEN
650: ,p_token1 => G_SQLCODE_TOKEN
651: ,p_token1_value => SQLCODE
652: ,p_token2 => G_SQLERRM_TOKEN
653: ,p_token2_value => SQLERRM);
654: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
655: END validate_tax_line_type;
656: ---------------------------------------------------------------------------
657: -- FUNCTION Validate_Attributes
658: ---------------------------------------------------------------------------
661: ---------------------------------------------
662: FUNCTION Validate_Attributes (
663: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type
664: ) RETURN VARCHAR2 IS
665: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
666: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
667: BEGIN
668: -----------------------------
669: -- Column Level Validation --
662: FUNCTION Validate_Attributes (
663: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type
664: ) RETURN VARCHAR2 IS
665: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
666: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
667: BEGIN
668: -----------------------------
669: -- Column Level Validation --
670: -----------------------------
671: -- ***
672: -- id
673: -- ***
674: validate_id(x_return_status, p_OKL_TAX_LINES_rec.id);
675: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
676: l_return_status := x_return_status;
677: RAISE G_EXCEPTION_HALT_VALIDATION;
678: END IF;
679:
680: -- ***
681: -- khr_id
682: -- ***
683: validate_khr_id(x_return_status, p_OKL_TAX_LINES_rec.khr_id);
684: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
685: l_return_status := x_return_status;
686: RAISE G_EXCEPTION_HALT_VALIDATION;
687: END IF;
688:
689: -- ***
690: -- tax_line_type
691: -- ***
692: validate_tax_line_type(x_return_status, p_OKL_TAX_LINES_rec.tax_line_type);
693: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
694: l_return_status := x_return_status;
695: RAISE G_EXCEPTION_HALT_VALIDATION;
696: END IF;
697:
699: EXCEPTION
700: WHEN G_EXCEPTION_HALT_VALIDATION THEN
701: RETURN(l_return_status);
702: WHEN OTHERS THEN
703: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
704: ,p_msg_name => G_UNEXPECTED_ERROR
705: ,p_token1 => G_SQLCODE_TOKEN
706: ,p_token1_value => SQLCODE
707: ,p_token2 => G_SQLERRM_TOKEN
705: ,p_token1 => G_SQLCODE_TOKEN
706: ,p_token1_value => SQLCODE
707: ,p_token2 => G_SQLERRM_TOKEN
708: ,p_token2_value => SQLERRM);
709: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
710: RETURN(l_return_status);
711: END Validate_Attributes;
712: ---------------------------------------------------------------------------
713: -- PROCEDURE Validate_Record
718: FUNCTION Validate_Record (
719: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type,
720: p_db_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type
721: ) RETURN VARCHAR2 IS
722: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
723: ------------------------------------
724: -- FUNCTION validate_foreign_keys --
725: ------------------------------------
726: FUNCTION validate_foreign_keys (
741: FROM OKL_TRX_REQUESTS
742: WHERE OKL_TRX_REQUESTS.id = p_id;
743: l_okl_taxv_trqv_fk okl_taxv_trqv_fk_csr%ROWTYPE;
744:
745: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
746: l_row_notfound BOOLEAN := TRUE;
747: BEGIN
748: IF ((p_OKL_TAX_LINES_rec.TAX_LINE_TYPE IS NOT NULL)
749: AND
765: FETCH okl_taxv_fnd_fk_csr INTO l_okl_taxv_fnd_fk;
766: l_row_notfound := okl_taxv_fnd_fk_csr%NOTFOUND;
767: CLOSE okl_taxv_fnd_fk_csr;
768: IF (l_row_notfound) THEN
769: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TAX_LINE_TYPE');
770: RAISE item_not_found_error;
771: END IF;
772: END IF;
773: RETURN (l_return_status);
772: END IF;
773: RETURN (l_return_status);
774: EXCEPTION
775: WHEN item_not_found_error THEN
776: l_return_status := OKC_API.G_RET_STS_ERROR;
777: RETURN (l_return_status);
778: END validate_foreign_keys;
779: BEGIN
780: l_return_status := validate_foreign_keys(p_OKL_TAX_LINES_rec, p_db_OKL_TAX_LINES_rec);
782: END Validate_Record;
783: FUNCTION Validate_Record (
784: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type
785: ) RETURN VARCHAR2 IS
786: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
787: l_db_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type := get_rec(p_OKL_TAX_LINES_rec);
788: BEGIN
789: l_return_status := Validate_Record(p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_rec,
790: p_db_OKL_TAX_LINES_rec => l_db_OKL_TAX_LINES_rec);
921: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type) IS
922:
923: l_api_version CONSTANT NUMBER := 1;
924: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
925: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
926: l_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type := p_OKL_TAX_LINES_rec;
927: l_tax_rec tax_rec_type;
928: l_tax_rec tax_rec_type;
929: BEGIN
926: l_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type := p_OKL_TAX_LINES_rec;
927: l_tax_rec tax_rec_type;
928: l_tax_rec tax_rec_type;
929: BEGIN
930: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
931: G_PKG_NAME,
932: p_init_msg_list,
933: l_api_version,
934: p_api_version,
933: l_api_version,
934: p_api_version,
935: '_PVT',
936: x_return_status);
937: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
940: RAISE OKC_API.G_EXCEPTION_ERROR;
941: END IF;
934: p_api_version,
935: '_PVT',
936: x_return_status);
937: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
940: RAISE OKC_API.G_EXCEPTION_ERROR;
941: END IF;
942: --- Validate all non-missing attributes (Item Level Validation)
935: '_PVT',
936: x_return_status);
937: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
940: RAISE OKC_API.G_EXCEPTION_ERROR;
941: END IF;
942: --- Validate all non-missing attributes (Item Level Validation)
943: l_return_status := Validate_Attributes(l_OKL_TAX_LINES_rec);
936: x_return_status);
937: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
938: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
939: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
940: RAISE OKC_API.G_EXCEPTION_ERROR;
941: END IF;
942: --- Validate all non-missing attributes (Item Level Validation)
943: l_return_status := Validate_Attributes(l_OKL_TAX_LINES_rec);
944: --- If any errors happen abort API
941: END IF;
942: --- Validate all non-missing attributes (Item Level Validation)
943: l_return_status := Validate_Attributes(l_OKL_TAX_LINES_rec);
944: --- If any errors happen abort API
945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
942: --- Validate all non-missing attributes (Item Level Validation)
943: l_return_status := Validate_Attributes(l_OKL_TAX_LINES_rec);
944: --- If any errors happen abort API
945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
950: l_return_status := Validate_Record(l_OKL_TAX_LINES_rec);
943: l_return_status := Validate_Attributes(l_OKL_TAX_LINES_rec);
944: --- If any errors happen abort API
945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
950: l_return_status := Validate_Record(l_OKL_TAX_LINES_rec);
951: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
944: --- If any errors happen abort API
945: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
946: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
950: l_return_status := Validate_Record(l_OKL_TAX_LINES_rec);
951: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
952: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
947: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
950: l_return_status := Validate_Record(l_OKL_TAX_LINES_rec);
951: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
952: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
954: RAISE OKC_API.G_EXCEPTION_ERROR;
955: END IF;
948: RAISE OKC_API.G_EXCEPTION_ERROR;
949: END IF;
950: l_return_status := Validate_Record(l_OKL_TAX_LINES_rec);
951: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
952: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
954: RAISE OKC_API.G_EXCEPTION_ERROR;
955: END IF;
956: x_return_status := l_return_status;
949: END IF;
950: l_return_status := Validate_Record(l_OKL_TAX_LINES_rec);
951: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
952: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
954: RAISE OKC_API.G_EXCEPTION_ERROR;
955: END IF;
956: x_return_status := l_return_status;
957: EXCEPTION
950: l_return_status := Validate_Record(l_OKL_TAX_LINES_rec);
951: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
952: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
953: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
954: RAISE OKC_API.G_EXCEPTION_ERROR;
955: END IF;
956: x_return_status := l_return_status;
957: EXCEPTION
958: WHEN OKC_API.G_EXCEPTION_ERROR THEN
954: RAISE OKC_API.G_EXCEPTION_ERROR;
955: END IF;
956: x_return_status := l_return_status;
957: EXCEPTION
958: WHEN OKC_API.G_EXCEPTION_ERROR THEN
959: x_return_status := OKC_API.HANDLE_EXCEPTIONS
960: (
961: l_api_name,
962: G_PKG_NAME,
955: END IF;
956: x_return_status := l_return_status;
957: EXCEPTION
958: WHEN OKC_API.G_EXCEPTION_ERROR THEN
959: x_return_status := OKC_API.HANDLE_EXCEPTIONS
960: (
961: l_api_name,
962: G_PKG_NAME,
963: 'OKC_API.G_RET_STS_ERROR',
959: x_return_status := OKC_API.HANDLE_EXCEPTIONS
960: (
961: l_api_name,
962: G_PKG_NAME,
963: 'OKC_API.G_RET_STS_ERROR',
964: x_msg_count,
965: x_msg_data,
966: '_PVT'
967: );
964: x_msg_count,
965: x_msg_data,
966: '_PVT'
967: );
968: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
969: x_return_status := OKC_API.HANDLE_EXCEPTIONS
970: (
971: l_api_name,
972: G_PKG_NAME,
965: x_msg_data,
966: '_PVT'
967: );
968: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
969: x_return_status := OKC_API.HANDLE_EXCEPTIONS
970: (
971: l_api_name,
972: G_PKG_NAME,
973: 'OKC_API.G_RET_STS_UNEXP_ERROR',
969: x_return_status := OKC_API.HANDLE_EXCEPTIONS
970: (
971: l_api_name,
972: G_PKG_NAME,
973: 'OKC_API.G_RET_STS_UNEXP_ERROR',
974: x_msg_count,
975: x_msg_data,
976: '_PVT'
977: );
975: x_msg_data,
976: '_PVT'
977: );
978: WHEN OTHERS THEN
979: x_return_status := OKC_API.HANDLE_EXCEPTIONS
980: (
981: l_api_name,
982: G_PKG_NAME,
983: 'OTHERS',
995: x_return_status OUT NOCOPY VARCHAR2,
996: x_msg_count OUT NOCOPY NUMBER,
997: x_msg_data OUT NOCOPY VARCHAR2,
998: p_OKL_TAX_LINES_tbl IN OKL_TAX_LINES_tbl_type,
999: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1000:
1001: l_api_version CONSTANT NUMBER := 1;
1002: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1003: i NUMBER := 0;
1001: l_api_version CONSTANT NUMBER := 1;
1002: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1003: i NUMBER := 0;
1004: BEGIN
1005: OKC_API.init_msg_list(p_init_msg_list);
1006: -- Make sure PL/SQL table has records in it before passing
1007: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1008: i := p_OKL_TAX_LINES_tbl.FIRST;
1009: LOOP
1007: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1008: i := p_OKL_TAX_LINES_tbl.FIRST;
1009: LOOP
1010: DECLARE
1011: l_error_rec OKC_API.ERROR_REC_TYPE;
1012: BEGIN
1013: l_error_rec.api_name := l_api_name;
1014: l_error_rec.api_package := G_PKG_NAME;
1015: l_error_rec.idx := i;
1014: l_error_rec.api_package := G_PKG_NAME;
1015: l_error_rec.idx := i;
1016: validate_row (
1017: p_api_version => p_api_version,
1018: p_init_msg_list => OKC_API.G_FALSE,
1019: x_return_status => l_error_rec.error_type,
1020: x_msg_count => l_error_rec.msg_count,
1021: x_msg_data => l_error_rec.msg_data,
1022: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i));
1019: x_return_status => l_error_rec.error_type,
1020: x_msg_count => l_error_rec.msg_count,
1021: x_msg_data => l_error_rec.msg_data,
1022: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i));
1023: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1024: l_error_rec.sqlcode := SQLCODE;
1025: load_error_tbl(l_error_rec, px_error_tbl);
1026: ELSE
1027: x_msg_count := l_error_rec.msg_count;
1027: x_msg_count := l_error_rec.msg_count;
1028: x_msg_data := l_error_rec.msg_data;
1029: END IF;
1030: EXCEPTION
1031: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1032: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1033: l_error_rec.sqlcode := SQLCODE;
1034: load_error_tbl(l_error_rec, px_error_tbl);
1035: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1028: x_msg_data := l_error_rec.msg_data;
1029: END IF;
1030: EXCEPTION
1031: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1032: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1033: l_error_rec.sqlcode := SQLCODE;
1034: load_error_tbl(l_error_rec, px_error_tbl);
1035: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1036: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1031: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1032: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1033: l_error_rec.sqlcode := SQLCODE;
1034: load_error_tbl(l_error_rec, px_error_tbl);
1035: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1036: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1037: l_error_rec.sqlcode := SQLCODE;
1038: load_error_tbl(l_error_rec, px_error_tbl);
1039: WHEN OTHERS THEN
1032: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1033: l_error_rec.sqlcode := SQLCODE;
1034: load_error_tbl(l_error_rec, px_error_tbl);
1035: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1036: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1037: l_error_rec.sqlcode := SQLCODE;
1038: load_error_tbl(l_error_rec, px_error_tbl);
1039: WHEN OTHERS THEN
1040: l_error_rec.error_type := 'OTHERS';
1047: END IF;
1048: -- Loop through the error_tbl to find the error with the highest severity
1049: -- and return it.
1050: x_return_status := find_highest_exception(px_error_tbl);
1051: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1052: EXCEPTION
1053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1054: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1055: (
1049: -- and return it.
1050: x_return_status := find_highest_exception(px_error_tbl);
1051: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1052: EXCEPTION
1053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1054: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1055: (
1056: l_api_name,
1057: G_PKG_NAME,
1050: x_return_status := find_highest_exception(px_error_tbl);
1051: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1052: EXCEPTION
1053: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1054: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1055: (
1056: l_api_name,
1057: G_PKG_NAME,
1058: 'OKC_API.G_RET_STS_ERROR',
1054: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1055: (
1056: l_api_name,
1057: G_PKG_NAME,
1058: 'OKC_API.G_RET_STS_ERROR',
1059: x_msg_count,
1060: x_msg_data,
1061: '_PVT'
1062: );
1059: x_msg_count,
1060: x_msg_data,
1061: '_PVT'
1062: );
1063: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1064: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1065: (
1066: l_api_name,
1067: G_PKG_NAME,
1060: x_msg_data,
1061: '_PVT'
1062: );
1063: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1064: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1065: (
1066: l_api_name,
1067: G_PKG_NAME,
1068: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1064: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1065: (
1066: l_api_name,
1067: G_PKG_NAME,
1068: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1069: x_msg_count,
1070: x_msg_data,
1071: '_PVT'
1072: );
1070: x_msg_data,
1071: '_PVT'
1072: );
1073: WHEN OTHERS THEN
1074: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1075: (
1076: l_api_name,
1077: G_PKG_NAME,
1078: 'OTHERS',
1094: p_OKL_TAX_LINES_tbl IN OKL_TAX_LINES_tbl_type) IS
1095:
1096: l_api_version CONSTANT NUMBER := 1;
1097: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1098: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1099: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1100: BEGIN
1101: OKC_API.init_msg_list(p_init_msg_list);
1102: -- Make sure PL/SQL table has records in it before passing
1095:
1096: l_api_version CONSTANT NUMBER := 1;
1097: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1098: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1099: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1100: BEGIN
1101: OKC_API.init_msg_list(p_init_msg_list);
1102: -- Make sure PL/SQL table has records in it before passing
1103: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1097: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1098: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1099: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1100: BEGIN
1101: OKC_API.init_msg_list(p_init_msg_list);
1102: -- Make sure PL/SQL table has records in it before passing
1103: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1104: validate_row (
1105: p_api_version => p_api_version,
1102: -- Make sure PL/SQL table has records in it before passing
1103: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1104: validate_row (
1105: p_api_version => p_api_version,
1106: p_init_msg_list => OKC_API.G_FALSE,
1107: x_return_status => x_return_status,
1108: x_msg_count => x_msg_count,
1109: x_msg_data => x_msg_data,
1110: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
1109: x_msg_data => x_msg_data,
1110: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
1111: px_error_tbl => l_error_tbl);
1112: END IF;
1113: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1114: EXCEPTION
1115: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1116: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1117: (
1111: px_error_tbl => l_error_tbl);
1112: END IF;
1113: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1114: EXCEPTION
1115: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1116: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1117: (
1118: l_api_name,
1119: G_PKG_NAME,
1112: END IF;
1113: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1114: EXCEPTION
1115: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1116: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1117: (
1118: l_api_name,
1119: G_PKG_NAME,
1120: 'OKC_API.G_RET_STS_ERROR',
1116: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1117: (
1118: l_api_name,
1119: G_PKG_NAME,
1120: 'OKC_API.G_RET_STS_ERROR',
1121: x_msg_count,
1122: x_msg_data,
1123: '_PVT'
1124: );
1121: x_msg_count,
1122: x_msg_data,
1123: '_PVT'
1124: );
1125: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1126: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1127: (
1128: l_api_name,
1129: G_PKG_NAME,
1122: x_msg_data,
1123: '_PVT'
1124: );
1125: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1126: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1127: (
1128: l_api_name,
1129: G_PKG_NAME,
1130: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1126: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1127: (
1128: l_api_name,
1129: G_PKG_NAME,
1130: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1131: x_msg_count,
1132: x_msg_data,
1133: '_PVT'
1134: );
1132: x_msg_data,
1133: '_PVT'
1134: );
1135: WHEN OTHERS THEN
1136: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1137: (
1138: l_api_name,
1139: G_PKG_NAME,
1140: 'OTHERS',
1159: x_tax_rec OUT NOCOPY tax_rec_type) IS
1160:
1161: l_api_version CONSTANT NUMBER := 1;
1162: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1163: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1164: l_tax_rec tax_rec_type := p_tax_rec;
1165: l_def_tax_rec tax_rec_type;
1166: --------------------------------------
1167: -- Set_Attributes for:OKL_TAX_LINES --
1169: FUNCTION Set_Attributes (
1170: p_tax_rec IN tax_rec_type,
1171: x_tax_rec OUT NOCOPY tax_rec_type
1172: ) RETURN VARCHAR2 IS
1173: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1174: BEGIN
1175: x_tax_rec := p_tax_rec;
1176: RETURN(l_return_status);
1177: END Set_Attributes;
1175: x_tax_rec := p_tax_rec;
1176: RETURN(l_return_status);
1177: END Set_Attributes;
1178: BEGIN
1179: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1180: p_init_msg_list,
1181: '_PVT',
1182: x_return_status);
1183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1179: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1180: p_init_msg_list,
1181: '_PVT',
1182: x_return_status);
1183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1187: END IF;
1180: p_init_msg_list,
1181: '_PVT',
1182: x_return_status);
1183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: --- Setting item atributes
1181: '_PVT',
1182: x_return_status);
1183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: --- Setting item atributes
1189: l_return_status := Set_Attributes(
1182: x_return_status);
1183: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1184: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1185: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1186: RAISE OKC_API.G_EXCEPTION_ERROR;
1187: END IF;
1188: --- Setting item atributes
1189: l_return_status := Set_Attributes(
1190: p_tax_rec, -- IN
1189: l_return_status := Set_Attributes(
1190: p_tax_rec, -- IN
1191: l_tax_rec); -- OUT
1192: --- If any errors happen abort API
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_ERROR;
1197: END IF;
1190: p_tax_rec, -- IN
1191: l_tax_rec); -- OUT
1192: --- If any errors happen abort API
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: INSERT INTO OKL_TAX_LINES(
1191: l_tax_rec); -- OUT
1192: --- If any errors happen abort API
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: INSERT INTO OKL_TAX_LINES(
1199: id,
1192: --- If any errors happen abort API
1193: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1196: RAISE OKC_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: INSERT INTO OKL_TAX_LINES(
1199: id,
1200: khr_id,
1299: l_tax_rec.last_update_login);
1300: -- Set OUT values
1301: x_tax_rec := l_tax_rec;
1302: x_return_status := l_return_status;
1303: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1304: EXCEPTION
1305: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1306: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1307: (
1301: x_tax_rec := l_tax_rec;
1302: x_return_status := l_return_status;
1303: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1304: EXCEPTION
1305: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1306: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1307: (
1308: l_api_name,
1309: G_PKG_NAME,
1302: x_return_status := l_return_status;
1303: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1304: EXCEPTION
1305: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1306: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1307: (
1308: l_api_name,
1309: G_PKG_NAME,
1310: 'OKC_API.G_RET_STS_ERROR',
1306: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1307: (
1308: l_api_name,
1309: G_PKG_NAME,
1310: 'OKC_API.G_RET_STS_ERROR',
1311: x_msg_count,
1312: x_msg_data,
1313: '_PVT'
1314: );
1311: x_msg_count,
1312: x_msg_data,
1313: '_PVT'
1314: );
1315: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1316: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1317: (
1318: l_api_name,
1319: G_PKG_NAME,
1312: x_msg_data,
1313: '_PVT'
1314: );
1315: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1316: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1317: (
1318: l_api_name,
1319: G_PKG_NAME,
1320: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1316: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1317: (
1318: l_api_name,
1319: G_PKG_NAME,
1320: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1321: x_msg_count,
1322: x_msg_data,
1323: '_PVT'
1324: );
1322: x_msg_data,
1323: '_PVT'
1324: );
1325: WHEN OTHERS THEN
1326: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1327: (
1328: l_api_name,
1329: G_PKG_NAME,
1330: 'OTHERS',
1346: x_OKL_TAX_LINES_rec OUT NOCOPY OKL_TAX_LINES_rec_type) IS
1347:
1348: l_api_version CONSTANT NUMBER := 1;
1349: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1350: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1351: l_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type := p_OKL_TAX_LINES_rec;
1352: l_def_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type;
1353: l_tax_rec tax_rec_type;
1354: lx_tax_rec tax_rec_type;
1373: FUNCTION Set_Attributes (
1374: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type,
1375: x_OKL_TAX_LINES_rec OUT NOCOPY OKL_TAX_LINES_rec_type
1376: ) RETURN VARCHAR2 IS
1377: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1378: BEGIN
1379: x_OKL_TAX_LINES_rec := p_OKL_TAX_LINES_rec;
1380: RETURN(l_return_status);
1381: END Set_Attributes;
1379: x_OKL_TAX_LINES_rec := p_OKL_TAX_LINES_rec;
1380: RETURN(l_return_status);
1381: END Set_Attributes;
1382: BEGIN
1383: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1384: G_PKG_NAME,
1385: p_init_msg_list,
1386: l_api_version,
1387: p_api_version,
1386: l_api_version,
1387: p_api_version,
1388: '_PVT',
1389: x_return_status);
1390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1387: p_api_version,
1388: '_PVT',
1389: x_return_status);
1390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: l_OKL_TAX_LINES_rec := null_out_defaults(p_OKL_TAX_LINES_rec);
1388: '_PVT',
1389: x_return_status);
1390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: l_OKL_TAX_LINES_rec := null_out_defaults(p_OKL_TAX_LINES_rec);
1396: -- Set primary key value
1389: x_return_status);
1390: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1391: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1392: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1393: RAISE OKC_API.G_EXCEPTION_ERROR;
1394: END IF;
1395: l_OKL_TAX_LINES_rec := null_out_defaults(p_OKL_TAX_LINES_rec);
1396: -- Set primary key value
1397: l_OKL_TAX_LINES_rec.ID := get_seq_id;
1399: l_return_Status := Set_Attributes(
1400: l_OKL_TAX_LINES_rec, -- IN
1401: l_def_OKL_TAX_LINES_rec); -- OUT
1402: --- If any errors happen abort API
1403: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1406: RAISE OKC_API.G_EXCEPTION_ERROR;
1407: END IF;
1400: l_OKL_TAX_LINES_rec, -- IN
1401: l_def_OKL_TAX_LINES_rec); -- OUT
1402: --- If any errors happen abort API
1403: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1406: RAISE OKC_API.G_EXCEPTION_ERROR;
1407: END IF;
1408: l_def_OKL_TAX_LINES_rec := fill_who_columns(l_def_OKL_TAX_LINES_rec);
1401: l_def_OKL_TAX_LINES_rec); -- OUT
1402: --- If any errors happen abort API
1403: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1406: RAISE OKC_API.G_EXCEPTION_ERROR;
1407: END IF;
1408: l_def_OKL_TAX_LINES_rec := fill_who_columns(l_def_OKL_TAX_LINES_rec);
1409: --- Validate all non-missing attributes (Item Level Validation)
1402: --- If any errors happen abort API
1403: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1404: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1405: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1406: RAISE OKC_API.G_EXCEPTION_ERROR;
1407: END IF;
1408: l_def_OKL_TAX_LINES_rec := fill_who_columns(l_def_OKL_TAX_LINES_rec);
1409: --- Validate all non-missing attributes (Item Level Validation)
1410: l_return_status := Validate_Attributes(l_def_OKL_TAX_LINES_rec);
1408: l_def_OKL_TAX_LINES_rec := fill_who_columns(l_def_OKL_TAX_LINES_rec);
1409: --- Validate all non-missing attributes (Item Level Validation)
1410: l_return_status := Validate_Attributes(l_def_OKL_TAX_LINES_rec);
1411: --- If any errors happen abort API
1412: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1414: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1409: --- Validate all non-missing attributes (Item Level Validation)
1410: l_return_status := Validate_Attributes(l_def_OKL_TAX_LINES_rec);
1411: --- If any errors happen abort API
1412: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1414: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1417: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec);
1410: l_return_status := Validate_Attributes(l_def_OKL_TAX_LINES_rec);
1411: --- If any errors happen abort API
1412: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1414: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1417: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec);
1418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1411: --- If any errors happen abort API
1412: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1414: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1417: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec);
1418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1414: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1417: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec);
1418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1421: RAISE OKC_API.G_EXCEPTION_ERROR;
1422: END IF;
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1417: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec);
1418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1421: RAISE OKC_API.G_EXCEPTION_ERROR;
1422: END IF;
1423: -----------------------------------------
1416: END IF;
1417: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec);
1418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1421: RAISE OKC_API.G_EXCEPTION_ERROR;
1422: END IF;
1423: -----------------------------------------
1424: -- Move VIEW record to "Child" records --
1417: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec);
1418: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1421: RAISE OKC_API.G_EXCEPTION_ERROR;
1422: END IF;
1423: -----------------------------------------
1424: -- Move VIEW record to "Child" records --
1425: -----------------------------------------
1434: x_msg_data,
1435: l_tax_rec,
1436: lx_tax_rec
1437: );
1438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_ERROR;
1442: END IF;
1435: l_tax_rec,
1436: lx_tax_rec
1437: );
1438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_ERROR;
1442: END IF;
1443: migrate(lx_tax_rec, l_def_OKL_TAX_LINES_rec);
1436: lx_tax_rec
1437: );
1438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_ERROR;
1442: END IF;
1443: migrate(lx_tax_rec, l_def_OKL_TAX_LINES_rec);
1444: -- Set OUT values
1437: );
1438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1441: RAISE OKC_API.G_EXCEPTION_ERROR;
1442: END IF;
1443: migrate(lx_tax_rec, l_def_OKL_TAX_LINES_rec);
1444: -- Set OUT values
1445: x_OKL_TAX_LINES_rec := l_def_OKL_TAX_LINES_rec;
1443: migrate(lx_tax_rec, l_def_OKL_TAX_LINES_rec);
1444: -- Set OUT values
1445: x_OKL_TAX_LINES_rec := l_def_OKL_TAX_LINES_rec;
1446: x_return_status := l_return_status;
1447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1448: EXCEPTION
1449: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1450: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1451: (
1445: x_OKL_TAX_LINES_rec := l_def_OKL_TAX_LINES_rec;
1446: x_return_status := l_return_status;
1447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1448: EXCEPTION
1449: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1450: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1451: (
1452: l_api_name,
1453: G_PKG_NAME,
1446: x_return_status := l_return_status;
1447: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1448: EXCEPTION
1449: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1450: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1451: (
1452: l_api_name,
1453: G_PKG_NAME,
1454: 'OKC_API.G_RET_STS_ERROR',
1450: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1451: (
1452: l_api_name,
1453: G_PKG_NAME,
1454: 'OKC_API.G_RET_STS_ERROR',
1455: x_msg_count,
1456: x_msg_data,
1457: '_PVT'
1458: );
1455: x_msg_count,
1456: x_msg_data,
1457: '_PVT'
1458: );
1459: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1460: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1461: (
1462: l_api_name,
1463: G_PKG_NAME,
1456: x_msg_data,
1457: '_PVT'
1458: );
1459: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1460: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1461: (
1462: l_api_name,
1463: G_PKG_NAME,
1464: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1460: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1461: (
1462: l_api_name,
1463: G_PKG_NAME,
1464: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1465: x_msg_count,
1466: x_msg_data,
1467: '_PVT'
1468: );
1466: x_msg_data,
1467: '_PVT'
1468: );
1469: WHEN OTHERS THEN
1470: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1471: (
1472: l_api_name,
1473: G_PKG_NAME,
1474: 'OTHERS',
1487: x_msg_count OUT NOCOPY NUMBER,
1488: x_msg_data OUT NOCOPY VARCHAR2,
1489: p_OKL_TAX_LINES_tbl IN OKL_TAX_LINES_tbl_type,
1490: x_OKL_TAX_LINES_tbl OUT NOCOPY OKL_TAX_LINES_tbl_type,
1491: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1492:
1493: l_api_version CONSTANT NUMBER := 1;
1494: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1495: i NUMBER := 0;
1493: l_api_version CONSTANT NUMBER := 1;
1494: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1495: i NUMBER := 0;
1496: BEGIN
1497: OKC_API.init_msg_list(p_init_msg_list);
1498: -- Make sure PL/SQL table has records in it before passing
1499: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1500: i := p_OKL_TAX_LINES_tbl.FIRST;
1501: LOOP
1499: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1500: i := p_OKL_TAX_LINES_tbl.FIRST;
1501: LOOP
1502: DECLARE
1503: l_error_rec OKC_API.ERROR_REC_TYPE;
1504: BEGIN
1505: l_error_rec.api_name := l_api_name;
1506: l_error_rec.api_package := G_PKG_NAME;
1507: l_error_rec.idx := i;
1506: l_error_rec.api_package := G_PKG_NAME;
1507: l_error_rec.idx := i;
1508: insert_row (
1509: p_api_version => p_api_version,
1510: p_init_msg_list => OKC_API.G_FALSE,
1511: x_return_status => l_error_rec.error_type,
1512: x_msg_count => l_error_rec.msg_count,
1513: x_msg_data => l_error_rec.msg_data,
1514: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i),
1512: x_msg_count => l_error_rec.msg_count,
1513: x_msg_data => l_error_rec.msg_data,
1514: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i),
1515: x_OKL_TAX_LINES_rec => x_OKL_TAX_LINES_tbl(i));
1516: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1517: l_error_rec.sqlcode := SQLCODE;
1518: load_error_tbl(l_error_rec, px_error_tbl);
1519: ELSE
1520: x_msg_count := l_error_rec.msg_count;
1520: x_msg_count := l_error_rec.msg_count;
1521: x_msg_data := l_error_rec.msg_data;
1522: END IF;
1523: EXCEPTION
1524: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1525: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1526: l_error_rec.sqlcode := SQLCODE;
1527: load_error_tbl(l_error_rec, px_error_tbl);
1528: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1521: x_msg_data := l_error_rec.msg_data;
1522: END IF;
1523: EXCEPTION
1524: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1525: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1526: l_error_rec.sqlcode := SQLCODE;
1527: load_error_tbl(l_error_rec, px_error_tbl);
1528: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1529: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1524: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1525: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1526: l_error_rec.sqlcode := SQLCODE;
1527: load_error_tbl(l_error_rec, px_error_tbl);
1528: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1529: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1530: l_error_rec.sqlcode := SQLCODE;
1531: load_error_tbl(l_error_rec, px_error_tbl);
1532: WHEN OTHERS THEN
1525: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1526: l_error_rec.sqlcode := SQLCODE;
1527: load_error_tbl(l_error_rec, px_error_tbl);
1528: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1529: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1530: l_error_rec.sqlcode := SQLCODE;
1531: load_error_tbl(l_error_rec, px_error_tbl);
1532: WHEN OTHERS THEN
1533: l_error_rec.error_type := 'OTHERS';
1540: END IF;
1541: -- Loop through the error_tbl to find the error with the highest severity
1542: -- and return it.
1543: x_return_status := find_highest_exception(px_error_tbl);
1544: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1545: EXCEPTION
1546: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1547: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1548: (
1542: -- and return it.
1543: x_return_status := find_highest_exception(px_error_tbl);
1544: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1545: EXCEPTION
1546: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1547: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1548: (
1549: l_api_name,
1550: G_PKG_NAME,
1543: x_return_status := find_highest_exception(px_error_tbl);
1544: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1545: EXCEPTION
1546: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1547: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1548: (
1549: l_api_name,
1550: G_PKG_NAME,
1551: 'OKC_API.G_RET_STS_ERROR',
1547: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1548: (
1549: l_api_name,
1550: G_PKG_NAME,
1551: 'OKC_API.G_RET_STS_ERROR',
1552: x_msg_count,
1553: x_msg_data,
1554: '_PVT'
1555: );
1552: x_msg_count,
1553: x_msg_data,
1554: '_PVT'
1555: );
1556: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1558: (
1559: l_api_name,
1560: G_PKG_NAME,
1553: x_msg_data,
1554: '_PVT'
1555: );
1556: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1558: (
1559: l_api_name,
1560: G_PKG_NAME,
1561: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1557: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1558: (
1559: l_api_name,
1560: G_PKG_NAME,
1561: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1562: x_msg_count,
1563: x_msg_data,
1564: '_PVT'
1565: );
1563: x_msg_data,
1564: '_PVT'
1565: );
1566: WHEN OTHERS THEN
1567: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1568: (
1569: l_api_name,
1570: G_PKG_NAME,
1571: 'OTHERS',
1590: x_OKL_TAX_LINES_tbl OUT NOCOPY OKL_TAX_LINES_tbl_type) IS
1591:
1592: l_api_version CONSTANT NUMBER := 1;
1593: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1594: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1595: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1596: BEGIN
1597: OKC_API.init_msg_list(p_init_msg_list);
1598: -- Make sure PL/SQL table has records in it before passing
1591:
1592: l_api_version CONSTANT NUMBER := 1;
1593: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1594: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1595: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1596: BEGIN
1597: OKC_API.init_msg_list(p_init_msg_list);
1598: -- Make sure PL/SQL table has records in it before passing
1599: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1593: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1594: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1595: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1596: BEGIN
1597: OKC_API.init_msg_list(p_init_msg_list);
1598: -- Make sure PL/SQL table has records in it before passing
1599: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1600: insert_row (
1601: p_api_version => p_api_version,
1598: -- Make sure PL/SQL table has records in it before passing
1599: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
1600: insert_row (
1601: p_api_version => p_api_version,
1602: p_init_msg_list => OKC_API.G_FALSE,
1603: x_return_status => x_return_status,
1604: x_msg_count => x_msg_count,
1605: x_msg_data => x_msg_data,
1606: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
1606: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
1607: x_OKL_TAX_LINES_tbl => x_OKL_TAX_LINES_tbl,
1608: px_error_tbl => l_error_tbl);
1609: END IF;
1610: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1611: EXCEPTION
1612: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1613: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1614: (
1608: px_error_tbl => l_error_tbl);
1609: END IF;
1610: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1611: EXCEPTION
1612: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1613: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1614: (
1615: l_api_name,
1616: G_PKG_NAME,
1609: END IF;
1610: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1611: EXCEPTION
1612: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1613: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1614: (
1615: l_api_name,
1616: G_PKG_NAME,
1617: 'OKC_API.G_RET_STS_ERROR',
1613: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1614: (
1615: l_api_name,
1616: G_PKG_NAME,
1617: 'OKC_API.G_RET_STS_ERROR',
1618: x_msg_count,
1619: x_msg_data,
1620: '_PVT'
1621: );
1618: x_msg_count,
1619: x_msg_data,
1620: '_PVT'
1621: );
1622: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1624: (
1625: l_api_name,
1626: G_PKG_NAME,
1619: x_msg_data,
1620: '_PVT'
1621: );
1622: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1624: (
1625: l_api_name,
1626: G_PKG_NAME,
1627: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1623: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1624: (
1625: l_api_name,
1626: G_PKG_NAME,
1627: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1628: x_msg_count,
1629: x_msg_data,
1630: '_PVT'
1631: );
1629: x_msg_data,
1630: '_PVT'
1631: );
1632: WHEN OTHERS THEN
1633: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1634: (
1635: l_api_name,
1636: G_PKG_NAME,
1637: 'OTHERS',
1663: FOR UPDATE NOWAIT;
1664:
1665: l_api_version CONSTANT NUMBER := 1;
1666: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1667: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1668: l_lock_var lock_csr%ROWTYPE;
1669: l_row_notfound BOOLEAN := FALSE;
1670: lc_row_notfound BOOLEAN := FALSE;
1671: BEGIN
1668: l_lock_var lock_csr%ROWTYPE;
1669: l_row_notfound BOOLEAN := FALSE;
1670: lc_row_notfound BOOLEAN := FALSE;
1671: BEGIN
1672: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1673: p_init_msg_list,
1674: '_PVT',
1675: x_return_status);
1676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1672: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1673: p_init_msg_list,
1674: '_PVT',
1675: x_return_status);
1676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1673: p_init_msg_list,
1674: '_PVT',
1675: x_return_status);
1676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1681: BEGIN
1674: '_PVT',
1675: x_return_status);
1676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1681: BEGIN
1682: OPEN lock_csr(p_tax_rec);
1675: x_return_status);
1676: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1677: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1678: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1679: RAISE OKC_API.G_EXCEPTION_ERROR;
1680: END IF;
1681: BEGIN
1682: OPEN lock_csr(p_tax_rec);
1683: FETCH lock_csr INTO l_lock_var;
1687: WHEN E_Resource_Busy THEN
1688: IF (lock_csr%ISOPEN) THEN
1689: CLOSE lock_csr;
1690: END IF;
1691: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1692: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1693: END;
1694:
1695: IF ( l_row_notfound ) THEN
1692: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1693: END;
1694:
1695: IF ( l_row_notfound ) THEN
1696: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: ELSE
1699: IF (l_lock_var.id <> p_tax_rec.id) THEN
1700: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1693: END;
1694:
1695: IF ( l_row_notfound ) THEN
1696: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: ELSE
1699: IF (l_lock_var.id <> p_tax_rec.id) THEN
1700: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1701: RAISE OKC_API.G_EXCEPTION_ERROR;
1696: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: ELSE
1699: IF (l_lock_var.id <> p_tax_rec.id) THEN
1700: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1701: RAISE OKC_API.G_EXCEPTION_ERROR;
1702: END IF;
1703: IF (l_lock_var.khr_id <> p_tax_rec.khr_id) THEN
1704: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1697: RAISE OKC_API.G_EXCEPTION_ERROR;
1698: ELSE
1699: IF (l_lock_var.id <> p_tax_rec.id) THEN
1700: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1701: RAISE OKC_API.G_EXCEPTION_ERROR;
1702: END IF;
1703: IF (l_lock_var.khr_id <> p_tax_rec.khr_id) THEN
1704: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1705: RAISE OKC_API.G_EXCEPTION_ERROR;
1700: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1701: RAISE OKC_API.G_EXCEPTION_ERROR;
1702: END IF;
1703: IF (l_lock_var.khr_id <> p_tax_rec.khr_id) THEN
1704: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1705: RAISE OKC_API.G_EXCEPTION_ERROR;
1706: END IF;
1707: IF (l_lock_var.kle_id <> p_tax_rec.kle_id) THEN
1708: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1701: RAISE OKC_API.G_EXCEPTION_ERROR;
1702: END IF;
1703: IF (l_lock_var.khr_id <> p_tax_rec.khr_id) THEN
1704: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1705: RAISE OKC_API.G_EXCEPTION_ERROR;
1706: END IF;
1707: IF (l_lock_var.kle_id <> p_tax_rec.kle_id) THEN
1708: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1709: RAISE OKC_API.G_EXCEPTION_ERROR;
1704: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1705: RAISE OKC_API.G_EXCEPTION_ERROR;
1706: END IF;
1707: IF (l_lock_var.kle_id <> p_tax_rec.kle_id) THEN
1708: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1709: RAISE OKC_API.G_EXCEPTION_ERROR;
1710: END IF;
1711: IF (l_lock_var.asset_id <> p_tax_rec.asset_id) THEN
1712: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1705: RAISE OKC_API.G_EXCEPTION_ERROR;
1706: END IF;
1707: IF (l_lock_var.kle_id <> p_tax_rec.kle_id) THEN
1708: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1709: RAISE OKC_API.G_EXCEPTION_ERROR;
1710: END IF;
1711: IF (l_lock_var.asset_id <> p_tax_rec.asset_id) THEN
1712: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1713: RAISE OKC_API.G_EXCEPTION_ERROR;
1708: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1709: RAISE OKC_API.G_EXCEPTION_ERROR;
1710: END IF;
1711: IF (l_lock_var.asset_id <> p_tax_rec.asset_id) THEN
1712: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1713: RAISE OKC_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: IF (l_lock_var.asset_number <> p_tax_rec.asset_number) THEN
1716: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1709: RAISE OKC_API.G_EXCEPTION_ERROR;
1710: END IF;
1711: IF (l_lock_var.asset_id <> p_tax_rec.asset_id) THEN
1712: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1713: RAISE OKC_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: IF (l_lock_var.asset_number <> p_tax_rec.asset_number) THEN
1716: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1717: RAISE OKC_API.G_EXCEPTION_ERROR;
1712: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1713: RAISE OKC_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: IF (l_lock_var.asset_number <> p_tax_rec.asset_number) THEN
1716: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1717: RAISE OKC_API.G_EXCEPTION_ERROR;
1718: END IF;
1719: IF (l_lock_var.tax_line_type <> p_tax_rec.tax_line_type) THEN
1720: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1713: RAISE OKC_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: IF (l_lock_var.asset_number <> p_tax_rec.asset_number) THEN
1716: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1717: RAISE OKC_API.G_EXCEPTION_ERROR;
1718: END IF;
1719: IF (l_lock_var.tax_line_type <> p_tax_rec.tax_line_type) THEN
1720: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1721: RAISE OKC_API.G_EXCEPTION_ERROR;
1716: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1717: RAISE OKC_API.G_EXCEPTION_ERROR;
1718: END IF;
1719: IF (l_lock_var.tax_line_type <> p_tax_rec.tax_line_type) THEN
1720: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1721: RAISE OKC_API.G_EXCEPTION_ERROR;
1722: END IF;
1723: IF (l_lock_var.sel_id <> p_tax_rec.sel_id) THEN
1724: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1717: RAISE OKC_API.G_EXCEPTION_ERROR;
1718: END IF;
1719: IF (l_lock_var.tax_line_type <> p_tax_rec.tax_line_type) THEN
1720: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1721: RAISE OKC_API.G_EXCEPTION_ERROR;
1722: END IF;
1723: IF (l_lock_var.sel_id <> p_tax_rec.sel_id) THEN
1724: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1725: RAISE OKC_API.G_EXCEPTION_ERROR;
1720: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1721: RAISE OKC_API.G_EXCEPTION_ERROR;
1722: END IF;
1723: IF (l_lock_var.sel_id <> p_tax_rec.sel_id) THEN
1724: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1725: RAISE OKC_API.G_EXCEPTION_ERROR;
1726: END IF;
1727: IF (l_lock_var.tax_due_date <> p_tax_rec.tax_due_date) THEN
1728: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1721: RAISE OKC_API.G_EXCEPTION_ERROR;
1722: END IF;
1723: IF (l_lock_var.sel_id <> p_tax_rec.sel_id) THEN
1724: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1725: RAISE OKC_API.G_EXCEPTION_ERROR;
1726: END IF;
1727: IF (l_lock_var.tax_due_date <> p_tax_rec.tax_due_date) THEN
1728: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1729: RAISE OKC_API.G_EXCEPTION_ERROR;
1724: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1725: RAISE OKC_API.G_EXCEPTION_ERROR;
1726: END IF;
1727: IF (l_lock_var.tax_due_date <> p_tax_rec.tax_due_date) THEN
1728: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1729: RAISE OKC_API.G_EXCEPTION_ERROR;
1730: END IF;
1731: IF (l_lock_var.tax_type <> p_tax_rec.tax_type) THEN
1732: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1725: RAISE OKC_API.G_EXCEPTION_ERROR;
1726: END IF;
1727: IF (l_lock_var.tax_due_date <> p_tax_rec.tax_due_date) THEN
1728: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1729: RAISE OKC_API.G_EXCEPTION_ERROR;
1730: END IF;
1731: IF (l_lock_var.tax_type <> p_tax_rec.tax_type) THEN
1732: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1733: RAISE OKC_API.G_EXCEPTION_ERROR;
1728: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1729: RAISE OKC_API.G_EXCEPTION_ERROR;
1730: END IF;
1731: IF (l_lock_var.tax_type <> p_tax_rec.tax_type) THEN
1732: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1733: RAISE OKC_API.G_EXCEPTION_ERROR;
1734: END IF;
1735: IF (l_lock_var.tax_rate_code_id <> p_tax_rec.tax_rate_code_id) THEN
1736: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1729: RAISE OKC_API.G_EXCEPTION_ERROR;
1730: END IF;
1731: IF (l_lock_var.tax_type <> p_tax_rec.tax_type) THEN
1732: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1733: RAISE OKC_API.G_EXCEPTION_ERROR;
1734: END IF;
1735: IF (l_lock_var.tax_rate_code_id <> p_tax_rec.tax_rate_code_id) THEN
1736: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1737: RAISE OKC_API.G_EXCEPTION_ERROR;
1732: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1733: RAISE OKC_API.G_EXCEPTION_ERROR;
1734: END IF;
1735: IF (l_lock_var.tax_rate_code_id <> p_tax_rec.tax_rate_code_id) THEN
1736: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1737: RAISE OKC_API.G_EXCEPTION_ERROR;
1738: END IF;
1739: IF (l_lock_var.tax_rate_code <> p_tax_rec.tax_rate_code) THEN
1740: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1733: RAISE OKC_API.G_EXCEPTION_ERROR;
1734: END IF;
1735: IF (l_lock_var.tax_rate_code_id <> p_tax_rec.tax_rate_code_id) THEN
1736: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1737: RAISE OKC_API.G_EXCEPTION_ERROR;
1738: END IF;
1739: IF (l_lock_var.tax_rate_code <> p_tax_rec.tax_rate_code) THEN
1740: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1741: RAISE OKC_API.G_EXCEPTION_ERROR;
1736: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1737: RAISE OKC_API.G_EXCEPTION_ERROR;
1738: END IF;
1739: IF (l_lock_var.tax_rate_code <> p_tax_rec.tax_rate_code) THEN
1740: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1741: RAISE OKC_API.G_EXCEPTION_ERROR;
1742: END IF;
1743: IF (l_lock_var.taxable_amount <> p_tax_rec.taxable_amount) THEN
1744: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1737: RAISE OKC_API.G_EXCEPTION_ERROR;
1738: END IF;
1739: IF (l_lock_var.tax_rate_code <> p_tax_rec.tax_rate_code) THEN
1740: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1741: RAISE OKC_API.G_EXCEPTION_ERROR;
1742: END IF;
1743: IF (l_lock_var.taxable_amount <> p_tax_rec.taxable_amount) THEN
1744: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1740: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1741: RAISE OKC_API.G_EXCEPTION_ERROR;
1742: END IF;
1743: IF (l_lock_var.taxable_amount <> p_tax_rec.taxable_amount) THEN
1744: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1747: IF (l_lock_var.tax_exemption_id <> p_tax_rec.tax_exemption_id) THEN
1748: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1741: RAISE OKC_API.G_EXCEPTION_ERROR;
1742: END IF;
1743: IF (l_lock_var.taxable_amount <> p_tax_rec.taxable_amount) THEN
1744: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1747: IF (l_lock_var.tax_exemption_id <> p_tax_rec.tax_exemption_id) THEN
1748: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1749: RAISE OKC_API.G_EXCEPTION_ERROR;
1744: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1747: IF (l_lock_var.tax_exemption_id <> p_tax_rec.tax_exemption_id) THEN
1748: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1749: RAISE OKC_API.G_EXCEPTION_ERROR;
1750: END IF;
1751: IF (l_lock_var.manually_entered_flag <> p_tax_rec.manually_entered_flag) THEN
1752: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1745: RAISE OKC_API.G_EXCEPTION_ERROR;
1746: END IF;
1747: IF (l_lock_var.tax_exemption_id <> p_tax_rec.tax_exemption_id) THEN
1748: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1749: RAISE OKC_API.G_EXCEPTION_ERROR;
1750: END IF;
1751: IF (l_lock_var.manually_entered_flag <> p_tax_rec.manually_entered_flag) THEN
1752: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1753: RAISE OKC_API.G_EXCEPTION_ERROR;
1748: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1749: RAISE OKC_API.G_EXCEPTION_ERROR;
1750: END IF;
1751: IF (l_lock_var.manually_entered_flag <> p_tax_rec.manually_entered_flag) THEN
1752: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1753: RAISE OKC_API.G_EXCEPTION_ERROR;
1754: END IF;
1755: IF (l_lock_var.overridden_flag <> p_tax_rec.overridden_flag) THEN
1756: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1749: RAISE OKC_API.G_EXCEPTION_ERROR;
1750: END IF;
1751: IF (l_lock_var.manually_entered_flag <> p_tax_rec.manually_entered_flag) THEN
1752: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1753: RAISE OKC_API.G_EXCEPTION_ERROR;
1754: END IF;
1755: IF (l_lock_var.overridden_flag <> p_tax_rec.overridden_flag) THEN
1756: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1752: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1753: RAISE OKC_API.G_EXCEPTION_ERROR;
1754: END IF;
1755: IF (l_lock_var.overridden_flag <> p_tax_rec.overridden_flag) THEN
1756: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759: IF (l_lock_var.calculated_tax_amount <> p_tax_rec.calculated_tax_amount) THEN
1760: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1753: RAISE OKC_API.G_EXCEPTION_ERROR;
1754: END IF;
1755: IF (l_lock_var.overridden_flag <> p_tax_rec.overridden_flag) THEN
1756: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759: IF (l_lock_var.calculated_tax_amount <> p_tax_rec.calculated_tax_amount) THEN
1760: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1761: RAISE OKC_API.G_EXCEPTION_ERROR;
1756: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759: IF (l_lock_var.calculated_tax_amount <> p_tax_rec.calculated_tax_amount) THEN
1760: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1761: RAISE OKC_API.G_EXCEPTION_ERROR;
1762: END IF;
1763: IF (l_lock_var.tax_rate <> p_tax_rec.tax_rate) THEN
1764: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1757: RAISE OKC_API.G_EXCEPTION_ERROR;
1758: END IF;
1759: IF (l_lock_var.calculated_tax_amount <> p_tax_rec.calculated_tax_amount) THEN
1760: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1761: RAISE OKC_API.G_EXCEPTION_ERROR;
1762: END IF;
1763: IF (l_lock_var.tax_rate <> p_tax_rec.tax_rate) THEN
1764: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1765: RAISE OKC_API.G_EXCEPTION_ERROR;
1760: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1761: RAISE OKC_API.G_EXCEPTION_ERROR;
1762: END IF;
1763: IF (l_lock_var.tax_rate <> p_tax_rec.tax_rate) THEN
1764: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1765: RAISE OKC_API.G_EXCEPTION_ERROR;
1766: END IF;
1767: IF (l_lock_var.tax_amount <> p_tax_rec.tax_amount) THEN
1768: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1761: RAISE OKC_API.G_EXCEPTION_ERROR;
1762: END IF;
1763: IF (l_lock_var.tax_rate <> p_tax_rec.tax_rate) THEN
1764: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1765: RAISE OKC_API.G_EXCEPTION_ERROR;
1766: END IF;
1767: IF (l_lock_var.tax_amount <> p_tax_rec.tax_amount) THEN
1768: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1769: RAISE OKC_API.G_EXCEPTION_ERROR;
1764: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1765: RAISE OKC_API.G_EXCEPTION_ERROR;
1766: END IF;
1767: IF (l_lock_var.tax_amount <> p_tax_rec.tax_amount) THEN
1768: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1769: RAISE OKC_API.G_EXCEPTION_ERROR;
1770: END IF;
1771: IF (l_lock_var.sales_tax_id <> p_tax_rec.sales_tax_id) THEN
1772: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1765: RAISE OKC_API.G_EXCEPTION_ERROR;
1766: END IF;
1767: IF (l_lock_var.tax_amount <> p_tax_rec.tax_amount) THEN
1768: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1769: RAISE OKC_API.G_EXCEPTION_ERROR;
1770: END IF;
1771: IF (l_lock_var.sales_tax_id <> p_tax_rec.sales_tax_id) THEN
1772: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1773: RAISE OKC_API.G_EXCEPTION_ERROR;
1768: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1769: RAISE OKC_API.G_EXCEPTION_ERROR;
1770: END IF;
1771: IF (l_lock_var.sales_tax_id <> p_tax_rec.sales_tax_id) THEN
1772: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1773: RAISE OKC_API.G_EXCEPTION_ERROR;
1774: END IF;
1775: IF (l_lock_var.source_trx_id <> p_tax_rec.source_trx_id) THEN
1776: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1769: RAISE OKC_API.G_EXCEPTION_ERROR;
1770: END IF;
1771: IF (l_lock_var.sales_tax_id <> p_tax_rec.sales_tax_id) THEN
1772: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1773: RAISE OKC_API.G_EXCEPTION_ERROR;
1774: END IF;
1775: IF (l_lock_var.source_trx_id <> p_tax_rec.source_trx_id) THEN
1776: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1777: RAISE OKC_API.G_EXCEPTION_ERROR;
1772: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1773: RAISE OKC_API.G_EXCEPTION_ERROR;
1774: END IF;
1775: IF (l_lock_var.source_trx_id <> p_tax_rec.source_trx_id) THEN
1776: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1777: RAISE OKC_API.G_EXCEPTION_ERROR;
1778: END IF;
1779: IF (l_lock_var.org_id <> p_tax_rec.org_id) THEN
1780: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1773: RAISE OKC_API.G_EXCEPTION_ERROR;
1774: END IF;
1775: IF (l_lock_var.source_trx_id <> p_tax_rec.source_trx_id) THEN
1776: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1777: RAISE OKC_API.G_EXCEPTION_ERROR;
1778: END IF;
1779: IF (l_lock_var.org_id <> p_tax_rec.org_id) THEN
1780: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1776: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1777: RAISE OKC_API.G_EXCEPTION_ERROR;
1778: END IF;
1779: IF (l_lock_var.org_id <> p_tax_rec.org_id) THEN
1780: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: IF (l_lock_var.history_yn <> p_tax_rec.history_yn) THEN
1784: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1777: RAISE OKC_API.G_EXCEPTION_ERROR;
1778: END IF;
1779: IF (l_lock_var.org_id <> p_tax_rec.org_id) THEN
1780: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: IF (l_lock_var.history_yn <> p_tax_rec.history_yn) THEN
1784: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1785: RAISE OKC_API.G_EXCEPTION_ERROR;
1780: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: IF (l_lock_var.history_yn <> p_tax_rec.history_yn) THEN
1784: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1785: RAISE OKC_API.G_EXCEPTION_ERROR;
1786: END IF;
1787: IF (l_lock_var.actual_yn <> p_tax_rec.actual_yn) THEN
1788: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1781: RAISE OKC_API.G_EXCEPTION_ERROR;
1782: END IF;
1783: IF (l_lock_var.history_yn <> p_tax_rec.history_yn) THEN
1784: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1785: RAISE OKC_API.G_EXCEPTION_ERROR;
1786: END IF;
1787: IF (l_lock_var.actual_yn <> p_tax_rec.actual_yn) THEN
1788: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1789: RAISE OKC_API.G_EXCEPTION_ERROR;
1784: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1785: RAISE OKC_API.G_EXCEPTION_ERROR;
1786: END IF;
1787: IF (l_lock_var.actual_yn <> p_tax_rec.actual_yn) THEN
1788: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1789: RAISE OKC_API.G_EXCEPTION_ERROR;
1790: END IF;
1791: IF (l_lock_var.source_name <> p_tax_rec.source_name) THEN
1792: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1785: RAISE OKC_API.G_EXCEPTION_ERROR;
1786: END IF;
1787: IF (l_lock_var.actual_yn <> p_tax_rec.actual_yn) THEN
1788: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1789: RAISE OKC_API.G_EXCEPTION_ERROR;
1790: END IF;
1791: IF (l_lock_var.source_name <> p_tax_rec.source_name) THEN
1792: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1793: RAISE OKC_API.G_EXCEPTION_ERROR;
1788: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1789: RAISE OKC_API.G_EXCEPTION_ERROR;
1790: END IF;
1791: IF (l_lock_var.source_name <> p_tax_rec.source_name) THEN
1792: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1793: RAISE OKC_API.G_EXCEPTION_ERROR;
1794: END IF;
1795: IF (l_lock_var.trq_id <> p_tax_rec.trq_id) THEN
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1789: RAISE OKC_API.G_EXCEPTION_ERROR;
1790: END IF;
1791: IF (l_lock_var.source_name <> p_tax_rec.source_name) THEN
1792: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1793: RAISE OKC_API.G_EXCEPTION_ERROR;
1794: END IF;
1795: IF (l_lock_var.trq_id <> p_tax_rec.trq_id) THEN
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1792: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1793: RAISE OKC_API.G_EXCEPTION_ERROR;
1794: END IF;
1795: IF (l_lock_var.trq_id <> p_tax_rec.trq_id) THEN
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: END IF;
1799: IF (l_lock_var.program_id <> p_tax_rec.program_id) THEN
1800: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1793: RAISE OKC_API.G_EXCEPTION_ERROR;
1794: END IF;
1795: IF (l_lock_var.trq_id <> p_tax_rec.trq_id) THEN
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: END IF;
1799: IF (l_lock_var.program_id <> p_tax_rec.program_id) THEN
1800: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1801: RAISE OKC_API.G_EXCEPTION_ERROR;
1796: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: END IF;
1799: IF (l_lock_var.program_id <> p_tax_rec.program_id) THEN
1800: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1801: RAISE OKC_API.G_EXCEPTION_ERROR;
1802: END IF;
1803: IF (l_lock_var.request_id <> p_tax_rec.request_id) THEN
1804: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1797: RAISE OKC_API.G_EXCEPTION_ERROR;
1798: END IF;
1799: IF (l_lock_var.program_id <> p_tax_rec.program_id) THEN
1800: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1801: RAISE OKC_API.G_EXCEPTION_ERROR;
1802: END IF;
1803: IF (l_lock_var.request_id <> p_tax_rec.request_id) THEN
1804: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1800: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1801: RAISE OKC_API.G_EXCEPTION_ERROR;
1802: END IF;
1803: IF (l_lock_var.request_id <> p_tax_rec.request_id) THEN
1804: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807: IF (l_lock_var.program_application_id <> p_tax_rec.program_application_id) THEN
1808: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1801: RAISE OKC_API.G_EXCEPTION_ERROR;
1802: END IF;
1803: IF (l_lock_var.request_id <> p_tax_rec.request_id) THEN
1804: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807: IF (l_lock_var.program_application_id <> p_tax_rec.program_application_id) THEN
1808: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1809: RAISE OKC_API.G_EXCEPTION_ERROR;
1804: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807: IF (l_lock_var.program_application_id <> p_tax_rec.program_application_id) THEN
1808: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1809: RAISE OKC_API.G_EXCEPTION_ERROR;
1810: END IF;
1811: IF (l_lock_var.program_update_date <> p_tax_rec.program_update_date) THEN
1812: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1805: RAISE OKC_API.G_EXCEPTION_ERROR;
1806: END IF;
1807: IF (l_lock_var.program_application_id <> p_tax_rec.program_application_id) THEN
1808: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1809: RAISE OKC_API.G_EXCEPTION_ERROR;
1810: END IF;
1811: IF (l_lock_var.program_update_date <> p_tax_rec.program_update_date) THEN
1812: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1813: RAISE OKC_API.G_EXCEPTION_ERROR;
1808: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1809: RAISE OKC_API.G_EXCEPTION_ERROR;
1810: END IF;
1811: IF (l_lock_var.program_update_date <> p_tax_rec.program_update_date) THEN
1812: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1813: RAISE OKC_API.G_EXCEPTION_ERROR;
1814: END IF;
1815: IF (l_lock_var.attribute_category <> p_tax_rec.attribute_category) THEN
1816: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1809: RAISE OKC_API.G_EXCEPTION_ERROR;
1810: END IF;
1811: IF (l_lock_var.program_update_date <> p_tax_rec.program_update_date) THEN
1812: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1813: RAISE OKC_API.G_EXCEPTION_ERROR;
1814: END IF;
1815: IF (l_lock_var.attribute_category <> p_tax_rec.attribute_category) THEN
1816: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1812: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1813: RAISE OKC_API.G_EXCEPTION_ERROR;
1814: END IF;
1815: IF (l_lock_var.attribute_category <> p_tax_rec.attribute_category) THEN
1816: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: END IF;
1819: IF (l_lock_var.attribute1 <> p_tax_rec.attribute1) THEN
1820: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1813: RAISE OKC_API.G_EXCEPTION_ERROR;
1814: END IF;
1815: IF (l_lock_var.attribute_category <> p_tax_rec.attribute_category) THEN
1816: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: END IF;
1819: IF (l_lock_var.attribute1 <> p_tax_rec.attribute1) THEN
1820: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1821: RAISE OKC_API.G_EXCEPTION_ERROR;
1816: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: END IF;
1819: IF (l_lock_var.attribute1 <> p_tax_rec.attribute1) THEN
1820: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1821: RAISE OKC_API.G_EXCEPTION_ERROR;
1822: END IF;
1823: IF (l_lock_var.attribute2 <> p_tax_rec.attribute2) THEN
1824: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1817: RAISE OKC_API.G_EXCEPTION_ERROR;
1818: END IF;
1819: IF (l_lock_var.attribute1 <> p_tax_rec.attribute1) THEN
1820: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1821: RAISE OKC_API.G_EXCEPTION_ERROR;
1822: END IF;
1823: IF (l_lock_var.attribute2 <> p_tax_rec.attribute2) THEN
1824: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKC_API.G_EXCEPTION_ERROR;
1820: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1821: RAISE OKC_API.G_EXCEPTION_ERROR;
1822: END IF;
1823: IF (l_lock_var.attribute2 <> p_tax_rec.attribute2) THEN
1824: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827: IF (l_lock_var.attribute3 <> p_tax_rec.attribute3) THEN
1828: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1821: RAISE OKC_API.G_EXCEPTION_ERROR;
1822: END IF;
1823: IF (l_lock_var.attribute2 <> p_tax_rec.attribute2) THEN
1824: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827: IF (l_lock_var.attribute3 <> p_tax_rec.attribute3) THEN
1828: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1824: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827: IF (l_lock_var.attribute3 <> p_tax_rec.attribute3) THEN
1828: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1830: END IF;
1831: IF (l_lock_var.attribute4 <> p_tax_rec.attribute4) THEN
1832: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKC_API.G_EXCEPTION_ERROR;
1826: END IF;
1827: IF (l_lock_var.attribute3 <> p_tax_rec.attribute3) THEN
1828: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1830: END IF;
1831: IF (l_lock_var.attribute4 <> p_tax_rec.attribute4) THEN
1832: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1833: RAISE OKC_API.G_EXCEPTION_ERROR;
1828: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1830: END IF;
1831: IF (l_lock_var.attribute4 <> p_tax_rec.attribute4) THEN
1832: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1833: RAISE OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: IF (l_lock_var.attribute5 <> p_tax_rec.attribute5) THEN
1836: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1829: RAISE OKC_API.G_EXCEPTION_ERROR;
1830: END IF;
1831: IF (l_lock_var.attribute4 <> p_tax_rec.attribute4) THEN
1832: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1833: RAISE OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: IF (l_lock_var.attribute5 <> p_tax_rec.attribute5) THEN
1836: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1837: RAISE OKC_API.G_EXCEPTION_ERROR;
1832: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1833: RAISE OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: IF (l_lock_var.attribute5 <> p_tax_rec.attribute5) THEN
1836: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1837: RAISE OKC_API.G_EXCEPTION_ERROR;
1838: END IF;
1839: IF (l_lock_var.attribute6 <> p_tax_rec.attribute6) THEN
1840: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1833: RAISE OKC_API.G_EXCEPTION_ERROR;
1834: END IF;
1835: IF (l_lock_var.attribute5 <> p_tax_rec.attribute5) THEN
1836: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1837: RAISE OKC_API.G_EXCEPTION_ERROR;
1838: END IF;
1839: IF (l_lock_var.attribute6 <> p_tax_rec.attribute6) THEN
1840: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1836: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1837: RAISE OKC_API.G_EXCEPTION_ERROR;
1838: END IF;
1839: IF (l_lock_var.attribute6 <> p_tax_rec.attribute6) THEN
1840: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1843: IF (l_lock_var.attribute7 <> p_tax_rec.attribute7) THEN
1844: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1837: RAISE OKC_API.G_EXCEPTION_ERROR;
1838: END IF;
1839: IF (l_lock_var.attribute6 <> p_tax_rec.attribute6) THEN
1840: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1843: IF (l_lock_var.attribute7 <> p_tax_rec.attribute7) THEN
1844: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1845: RAISE OKC_API.G_EXCEPTION_ERROR;
1840: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1843: IF (l_lock_var.attribute7 <> p_tax_rec.attribute7) THEN
1844: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1845: RAISE OKC_API.G_EXCEPTION_ERROR;
1846: END IF;
1847: IF (l_lock_var.attribute8 <> p_tax_rec.attribute8) THEN
1848: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1841: RAISE OKC_API.G_EXCEPTION_ERROR;
1842: END IF;
1843: IF (l_lock_var.attribute7 <> p_tax_rec.attribute7) THEN
1844: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1845: RAISE OKC_API.G_EXCEPTION_ERROR;
1846: END IF;
1847: IF (l_lock_var.attribute8 <> p_tax_rec.attribute8) THEN
1848: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1849: RAISE OKC_API.G_EXCEPTION_ERROR;
1844: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1845: RAISE OKC_API.G_EXCEPTION_ERROR;
1846: END IF;
1847: IF (l_lock_var.attribute8 <> p_tax_rec.attribute8) THEN
1848: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1849: RAISE OKC_API.G_EXCEPTION_ERROR;
1850: END IF;
1851: IF (l_lock_var.attribute9 <> p_tax_rec.attribute9) THEN
1852: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1845: RAISE OKC_API.G_EXCEPTION_ERROR;
1846: END IF;
1847: IF (l_lock_var.attribute8 <> p_tax_rec.attribute8) THEN
1848: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1849: RAISE OKC_API.G_EXCEPTION_ERROR;
1850: END IF;
1851: IF (l_lock_var.attribute9 <> p_tax_rec.attribute9) THEN
1852: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1853: RAISE OKC_API.G_EXCEPTION_ERROR;
1848: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1849: RAISE OKC_API.G_EXCEPTION_ERROR;
1850: END IF;
1851: IF (l_lock_var.attribute9 <> p_tax_rec.attribute9) THEN
1852: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1853: RAISE OKC_API.G_EXCEPTION_ERROR;
1854: END IF;
1855: IF (l_lock_var.attribute10 <> p_tax_rec.attribute10) THEN
1856: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1849: RAISE OKC_API.G_EXCEPTION_ERROR;
1850: END IF;
1851: IF (l_lock_var.attribute9 <> p_tax_rec.attribute9) THEN
1852: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1853: RAISE OKC_API.G_EXCEPTION_ERROR;
1854: END IF;
1855: IF (l_lock_var.attribute10 <> p_tax_rec.attribute10) THEN
1856: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1857: RAISE OKC_API.G_EXCEPTION_ERROR;
1852: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1853: RAISE OKC_API.G_EXCEPTION_ERROR;
1854: END IF;
1855: IF (l_lock_var.attribute10 <> p_tax_rec.attribute10) THEN
1856: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1857: RAISE OKC_API.G_EXCEPTION_ERROR;
1858: END IF;
1859: IF (l_lock_var.attribute11 <> p_tax_rec.attribute11) THEN
1860: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1853: RAISE OKC_API.G_EXCEPTION_ERROR;
1854: END IF;
1855: IF (l_lock_var.attribute10 <> p_tax_rec.attribute10) THEN
1856: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1857: RAISE OKC_API.G_EXCEPTION_ERROR;
1858: END IF;
1859: IF (l_lock_var.attribute11 <> p_tax_rec.attribute11) THEN
1860: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1861: RAISE OKC_API.G_EXCEPTION_ERROR;
1856: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1857: RAISE OKC_API.G_EXCEPTION_ERROR;
1858: END IF;
1859: IF (l_lock_var.attribute11 <> p_tax_rec.attribute11) THEN
1860: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1861: RAISE OKC_API.G_EXCEPTION_ERROR;
1862: END IF;
1863: IF (l_lock_var.attribute12 <> p_tax_rec.attribute12) THEN
1864: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1857: RAISE OKC_API.G_EXCEPTION_ERROR;
1858: END IF;
1859: IF (l_lock_var.attribute11 <> p_tax_rec.attribute11) THEN
1860: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1861: RAISE OKC_API.G_EXCEPTION_ERROR;
1862: END IF;
1863: IF (l_lock_var.attribute12 <> p_tax_rec.attribute12) THEN
1864: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1860: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1861: RAISE OKC_API.G_EXCEPTION_ERROR;
1862: END IF;
1863: IF (l_lock_var.attribute12 <> p_tax_rec.attribute12) THEN
1864: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: IF (l_lock_var.attribute13 <> p_tax_rec.attribute13) THEN
1868: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1861: RAISE OKC_API.G_EXCEPTION_ERROR;
1862: END IF;
1863: IF (l_lock_var.attribute12 <> p_tax_rec.attribute12) THEN
1864: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: IF (l_lock_var.attribute13 <> p_tax_rec.attribute13) THEN
1868: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1869: RAISE OKC_API.G_EXCEPTION_ERROR;
1864: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: IF (l_lock_var.attribute13 <> p_tax_rec.attribute13) THEN
1868: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1869: RAISE OKC_API.G_EXCEPTION_ERROR;
1870: END IF;
1871: IF (l_lock_var.attribute14 <> p_tax_rec.attribute14) THEN
1872: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: IF (l_lock_var.attribute13 <> p_tax_rec.attribute13) THEN
1868: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1869: RAISE OKC_API.G_EXCEPTION_ERROR;
1870: END IF;
1871: IF (l_lock_var.attribute14 <> p_tax_rec.attribute14) THEN
1872: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1873: RAISE OKC_API.G_EXCEPTION_ERROR;
1868: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1869: RAISE OKC_API.G_EXCEPTION_ERROR;
1870: END IF;
1871: IF (l_lock_var.attribute14 <> p_tax_rec.attribute14) THEN
1872: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1873: RAISE OKC_API.G_EXCEPTION_ERROR;
1874: END IF;
1875: IF (l_lock_var.attribute15 <> p_tax_rec.attribute15) THEN
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1869: RAISE OKC_API.G_EXCEPTION_ERROR;
1870: END IF;
1871: IF (l_lock_var.attribute14 <> p_tax_rec.attribute14) THEN
1872: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1873: RAISE OKC_API.G_EXCEPTION_ERROR;
1874: END IF;
1875: IF (l_lock_var.attribute15 <> p_tax_rec.attribute15) THEN
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1872: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1873: RAISE OKC_API.G_EXCEPTION_ERROR;
1874: END IF;
1875: IF (l_lock_var.attribute15 <> p_tax_rec.attribute15) THEN
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: END IF;
1879: IF (l_lock_var.created_by <> p_tax_rec.created_by) THEN
1880: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1873: RAISE OKC_API.G_EXCEPTION_ERROR;
1874: END IF;
1875: IF (l_lock_var.attribute15 <> p_tax_rec.attribute15) THEN
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: END IF;
1879: IF (l_lock_var.created_by <> p_tax_rec.created_by) THEN
1880: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1881: RAISE OKC_API.G_EXCEPTION_ERROR;
1876: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: END IF;
1879: IF (l_lock_var.created_by <> p_tax_rec.created_by) THEN
1880: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1881: RAISE OKC_API.G_EXCEPTION_ERROR;
1882: END IF;
1883: IF (l_lock_var.creation_date <> p_tax_rec.creation_date) THEN
1884: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1877: RAISE OKC_API.G_EXCEPTION_ERROR;
1878: END IF;
1879: IF (l_lock_var.created_by <> p_tax_rec.created_by) THEN
1880: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1881: RAISE OKC_API.G_EXCEPTION_ERROR;
1882: END IF;
1883: IF (l_lock_var.creation_date <> p_tax_rec.creation_date) THEN
1884: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1880: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1881: RAISE OKC_API.G_EXCEPTION_ERROR;
1882: END IF;
1883: IF (l_lock_var.creation_date <> p_tax_rec.creation_date) THEN
1884: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: IF (l_lock_var.last_updated_by <> p_tax_rec.last_updated_by) THEN
1888: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1881: RAISE OKC_API.G_EXCEPTION_ERROR;
1882: END IF;
1883: IF (l_lock_var.creation_date <> p_tax_rec.creation_date) THEN
1884: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: IF (l_lock_var.last_updated_by <> p_tax_rec.last_updated_by) THEN
1888: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1889: RAISE OKC_API.G_EXCEPTION_ERROR;
1884: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: IF (l_lock_var.last_updated_by <> p_tax_rec.last_updated_by) THEN
1888: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1889: RAISE OKC_API.G_EXCEPTION_ERROR;
1890: END IF;
1891: IF (l_lock_var.last_update_date <> p_tax_rec.last_update_date) THEN
1892: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1885: RAISE OKC_API.G_EXCEPTION_ERROR;
1886: END IF;
1887: IF (l_lock_var.last_updated_by <> p_tax_rec.last_updated_by) THEN
1888: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1889: RAISE OKC_API.G_EXCEPTION_ERROR;
1890: END IF;
1891: IF (l_lock_var.last_update_date <> p_tax_rec.last_update_date) THEN
1892: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1893: RAISE OKC_API.G_EXCEPTION_ERROR;
1888: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1889: RAISE OKC_API.G_EXCEPTION_ERROR;
1890: END IF;
1891: IF (l_lock_var.last_update_date <> p_tax_rec.last_update_date) THEN
1892: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1893: RAISE OKC_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: IF (l_lock_var.last_update_login <> p_tax_rec.last_update_login) THEN
1896: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1889: RAISE OKC_API.G_EXCEPTION_ERROR;
1890: END IF;
1891: IF (l_lock_var.last_update_date <> p_tax_rec.last_update_date) THEN
1892: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1893: RAISE OKC_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: IF (l_lock_var.last_update_login <> p_tax_rec.last_update_login) THEN
1896: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1897: RAISE OKC_API.G_EXCEPTION_ERROR;
1892: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1893: RAISE OKC_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: IF (l_lock_var.last_update_login <> p_tax_rec.last_update_login) THEN
1896: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1897: RAISE OKC_API.G_EXCEPTION_ERROR;
1898: END IF;
1899: END IF;
1900: x_return_status := l_return_status;
1893: RAISE OKC_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: IF (l_lock_var.last_update_login <> p_tax_rec.last_update_login) THEN
1896: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1897: RAISE OKC_API.G_EXCEPTION_ERROR;
1898: END IF;
1899: END IF;
1900: x_return_status := l_return_status;
1901: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1897: RAISE OKC_API.G_EXCEPTION_ERROR;
1898: END IF;
1899: END IF;
1900: x_return_status := l_return_status;
1901: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1902: EXCEPTION
1903: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1904: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1905: (
1899: END IF;
1900: x_return_status := l_return_status;
1901: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1902: EXCEPTION
1903: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1904: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1905: (
1906: l_api_name,
1907: G_PKG_NAME,
1900: x_return_status := l_return_status;
1901: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1902: EXCEPTION
1903: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1904: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1905: (
1906: l_api_name,
1907: G_PKG_NAME,
1908: 'OKC_API.G_RET_STS_ERROR',
1904: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1905: (
1906: l_api_name,
1907: G_PKG_NAME,
1908: 'OKC_API.G_RET_STS_ERROR',
1909: x_msg_count,
1910: x_msg_data,
1911: '_PVT'
1912: );
1909: x_msg_count,
1910: x_msg_data,
1911: '_PVT'
1912: );
1913: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1914: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1915: (
1916: l_api_name,
1917: G_PKG_NAME,
1910: x_msg_data,
1911: '_PVT'
1912: );
1913: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1914: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1915: (
1916: l_api_name,
1917: G_PKG_NAME,
1918: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1914: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1915: (
1916: l_api_name,
1917: G_PKG_NAME,
1918: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1919: x_msg_count,
1920: x_msg_data,
1921: '_PVT'
1922: );
1920: x_msg_data,
1921: '_PVT'
1922: );
1923: WHEN OTHERS THEN
1924: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1925: (
1926: l_api_name,
1927: G_PKG_NAME,
1928: 'OTHERS',
1943: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type) IS
1944:
1945: l_api_version CONSTANT NUMBER := 1;
1946: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1947: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1948: l_tax_rec tax_rec_type;
1949: BEGIN
1950: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1951: G_PKG_NAME,
1946: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1947: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1948: l_tax_rec tax_rec_type;
1949: BEGIN
1950: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1951: G_PKG_NAME,
1952: p_init_msg_list,
1953: l_api_version,
1954: p_api_version,
1953: l_api_version,
1954: p_api_version,
1955: '_PVT',
1956: x_return_status);
1957: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1958: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1959: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1960: RAISE OKC_API.G_EXCEPTION_ERROR;
1961: END IF;
1954: p_api_version,
1955: '_PVT',
1956: x_return_status);
1957: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1958: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1959: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1960: RAISE OKC_API.G_EXCEPTION_ERROR;
1961: END IF;
1962: -----------------------------------------
1955: '_PVT',
1956: x_return_status);
1957: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1958: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1959: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1960: RAISE OKC_API.G_EXCEPTION_ERROR;
1961: END IF;
1962: -----------------------------------------
1963: -- Move VIEW record to "Child" records --
1956: x_return_status);
1957: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1958: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1959: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1960: RAISE OKC_API.G_EXCEPTION_ERROR;
1961: END IF;
1962: -----------------------------------------
1963: -- Move VIEW record to "Child" records --
1964: -----------------------------------------
1972: x_msg_count,
1973: x_msg_data,
1974: l_tax_rec
1975: );
1976: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1978: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1979: RAISE OKC_API.G_EXCEPTION_ERROR;
1980: END IF;
1973: x_msg_data,
1974: l_tax_rec
1975: );
1976: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1978: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1979: RAISE OKC_API.G_EXCEPTION_ERROR;
1980: END IF;
1981: x_return_status := l_return_status;
1974: l_tax_rec
1975: );
1976: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1978: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1979: RAISE OKC_API.G_EXCEPTION_ERROR;
1980: END IF;
1981: x_return_status := l_return_status;
1982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1975: );
1976: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1977: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1978: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1979: RAISE OKC_API.G_EXCEPTION_ERROR;
1980: END IF;
1981: x_return_status := l_return_status;
1982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1983: EXCEPTION
1978: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1979: RAISE OKC_API.G_EXCEPTION_ERROR;
1980: END IF;
1981: x_return_status := l_return_status;
1982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1983: EXCEPTION
1984: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1986: (
1980: END IF;
1981: x_return_status := l_return_status;
1982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1983: EXCEPTION
1984: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1986: (
1987: l_api_name,
1988: G_PKG_NAME,
1981: x_return_status := l_return_status;
1982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1983: EXCEPTION
1984: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1986: (
1987: l_api_name,
1988: G_PKG_NAME,
1989: 'OKC_API.G_RET_STS_ERROR',
1985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1986: (
1987: l_api_name,
1988: G_PKG_NAME,
1989: 'OKC_API.G_RET_STS_ERROR',
1990: x_msg_count,
1991: x_msg_data,
1992: '_PVT'
1993: );
1990: x_msg_count,
1991: x_msg_data,
1992: '_PVT'
1993: );
1994: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1996: (
1997: l_api_name,
1998: G_PKG_NAME,
1991: x_msg_data,
1992: '_PVT'
1993: );
1994: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1996: (
1997: l_api_name,
1998: G_PKG_NAME,
1999: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1996: (
1997: l_api_name,
1998: G_PKG_NAME,
1999: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2000: x_msg_count,
2001: x_msg_data,
2002: '_PVT'
2003: );
2001: x_msg_data,
2002: '_PVT'
2003: );
2004: WHEN OTHERS THEN
2005: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2006: (
2007: l_api_name,
2008: G_PKG_NAME,
2009: 'OTHERS',
2021: x_return_status OUT NOCOPY VARCHAR2,
2022: x_msg_count OUT NOCOPY NUMBER,
2023: x_msg_data OUT NOCOPY VARCHAR2,
2024: p_OKL_TAX_LINES_tbl IN OKL_TAX_LINES_tbl_type,
2025: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2026:
2027: l_api_version CONSTANT NUMBER := 1;
2028: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2029: i NUMBER := 0;
2027: l_api_version CONSTANT NUMBER := 1;
2028: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2029: i NUMBER := 0;
2030: BEGIN
2031: OKC_API.init_msg_list(p_init_msg_list);
2032: -- Make sure PL/SQL table has recrods in it before passing
2033: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
2034: i := p_OKL_TAX_LINES_tbl.FIRST;
2035: LOOP
2033: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
2034: i := p_OKL_TAX_LINES_tbl.FIRST;
2035: LOOP
2036: DECLARE
2037: l_error_rec OKC_API.ERROR_REC_TYPE;
2038: BEGIN
2039: l_error_rec.api_name := l_api_name;
2040: l_error_rec.api_package := G_PKG_NAME;
2041: l_error_rec.idx := i;
2040: l_error_rec.api_package := G_PKG_NAME;
2041: l_error_rec.idx := i;
2042: lock_row(
2043: p_api_version => p_api_version,
2044: p_init_msg_list => OKC_API.G_FALSE,
2045: x_return_status => l_error_rec.error_type,
2046: x_msg_count => l_error_rec.msg_count,
2047: x_msg_data => l_error_rec.msg_data,
2048: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i));
2045: x_return_status => l_error_rec.error_type,
2046: x_msg_count => l_error_rec.msg_count,
2047: x_msg_data => l_error_rec.msg_data,
2048: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i));
2049: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2050: l_error_rec.sqlcode := SQLCODE;
2051: load_error_tbl(l_error_rec, px_error_tbl);
2052: ELSE
2053: x_msg_count := l_error_rec.msg_count;
2053: x_msg_count := l_error_rec.msg_count;
2054: x_msg_data := l_error_rec.msg_data;
2055: END IF;
2056: EXCEPTION
2057: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2058: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2059: l_error_rec.sqlcode := SQLCODE;
2060: load_error_tbl(l_error_rec, px_error_tbl);
2061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2054: x_msg_data := l_error_rec.msg_data;
2055: END IF;
2056: EXCEPTION
2057: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2058: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2059: l_error_rec.sqlcode := SQLCODE;
2060: load_error_tbl(l_error_rec, px_error_tbl);
2061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2062: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2057: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2058: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2059: l_error_rec.sqlcode := SQLCODE;
2060: load_error_tbl(l_error_rec, px_error_tbl);
2061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2062: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2063: l_error_rec.sqlcode := SQLCODE;
2064: load_error_tbl(l_error_rec, px_error_tbl);
2065: WHEN OTHERS THEN
2058: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2059: l_error_rec.sqlcode := SQLCODE;
2060: load_error_tbl(l_error_rec, px_error_tbl);
2061: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2062: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2063: l_error_rec.sqlcode := SQLCODE;
2064: load_error_tbl(l_error_rec, px_error_tbl);
2065: WHEN OTHERS THEN
2066: l_error_rec.error_type := 'OTHERS';
2073: END IF;
2074: -- Loop through the error_tbl to find the error with the highest severity
2075: -- and return it.
2076: x_return_status := find_highest_exception(px_error_tbl);
2077: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2078: EXCEPTION
2079: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2080: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2081: (
2075: -- and return it.
2076: x_return_status := find_highest_exception(px_error_tbl);
2077: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2078: EXCEPTION
2079: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2080: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2076: x_return_status := find_highest_exception(px_error_tbl);
2077: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2078: EXCEPTION
2079: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2080: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKC_API.G_RET_STS_ERROR',
2080: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKC_API.G_RET_STS_ERROR',
2085: x_msg_count,
2086: x_msg_data,
2087: '_PVT'
2088: );
2085: x_msg_count,
2086: x_msg_data,
2087: '_PVT'
2088: );
2089: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2091: (
2092: l_api_name,
2093: G_PKG_NAME,
2086: x_msg_data,
2087: '_PVT'
2088: );
2089: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2091: (
2092: l_api_name,
2093: G_PKG_NAME,
2094: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2090: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2091: (
2092: l_api_name,
2093: G_PKG_NAME,
2094: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2095: x_msg_count,
2096: x_msg_data,
2097: '_PVT'
2098: );
2096: x_msg_data,
2097: '_PVT'
2098: );
2099: WHEN OTHERS THEN
2100: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2101: (
2102: l_api_name,
2103: G_PKG_NAME,
2104: 'OTHERS',
2119: p_OKL_TAX_LINES_tbl IN OKL_TAX_LINES_tbl_type) IS
2120:
2121: l_api_version CONSTANT NUMBER := 1;
2122: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2123: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2124: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2125: BEGIN
2126: OKC_API.init_msg_list(p_init_msg_list);
2127: -- Make sure PL/SQL table has recrods in it before passing
2120:
2121: l_api_version CONSTANT NUMBER := 1;
2122: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2123: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2124: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2125: BEGIN
2126: OKC_API.init_msg_list(p_init_msg_list);
2127: -- Make sure PL/SQL table has recrods in it before passing
2128: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
2122: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2123: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2124: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2125: BEGIN
2126: OKC_API.init_msg_list(p_init_msg_list);
2127: -- Make sure PL/SQL table has recrods in it before passing
2128: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
2129: lock_row(
2130: p_api_version => p_api_version,
2127: -- Make sure PL/SQL table has recrods in it before passing
2128: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
2129: lock_row(
2130: p_api_version => p_api_version,
2131: p_init_msg_list => OKC_API.G_FALSE,
2132: x_return_status => x_return_status,
2133: x_msg_count => x_msg_count,
2134: x_msg_data => x_msg_data,
2135: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
2134: x_msg_data => x_msg_data,
2135: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
2136: px_error_tbl => l_error_tbl);
2137: END IF;
2138: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2139: EXCEPTION
2140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2142: (
2136: px_error_tbl => l_error_tbl);
2137: END IF;
2138: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2139: EXCEPTION
2140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2137: END IF;
2138: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2139: EXCEPTION
2140: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKC_API.G_RET_STS_ERROR',
2141: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2142: (
2143: l_api_name,
2144: G_PKG_NAME,
2145: 'OKC_API.G_RET_STS_ERROR',
2146: x_msg_count,
2147: x_msg_data,
2148: '_PVT'
2149: );
2146: x_msg_count,
2147: x_msg_data,
2148: '_PVT'
2149: );
2150: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2151: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2147: x_msg_data,
2148: '_PVT'
2149: );
2150: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2151: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2155: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2151: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2152: (
2153: l_api_name,
2154: G_PKG_NAME,
2155: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2156: x_msg_count,
2157: x_msg_data,
2158: '_PVT'
2159: );
2157: x_msg_data,
2158: '_PVT'
2159: );
2160: WHEN OTHERS THEN
2161: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2162: (
2163: l_api_name,
2164: G_PKG_NAME,
2165: 'OTHERS',
2183: x_tax_rec OUT NOCOPY tax_rec_type) IS
2184:
2185: l_api_version CONSTANT NUMBER := 1;
2186: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2187: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2188: l_tax_rec tax_rec_type := p_tax_rec;
2189: l_def_tax_rec tax_rec_type;
2190: l_row_notfound BOOLEAN := TRUE;
2191: ----------------------------------
2196: x_tax_rec OUT NOCOPY tax_rec_type
2197: ) RETURN VARCHAR2 IS
2198: l_tax_rec tax_rec_type;
2199: l_row_notfound BOOLEAN := TRUE;
2200: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2201: BEGIN
2202: x_tax_rec := p_tax_rec;
2203: -- Get current database values
2204: l_tax_rec := get_rec(p_tax_rec, l_return_status);
2201: BEGIN
2202: x_tax_rec := p_tax_rec;
2203: -- Get current database values
2204: l_tax_rec := get_rec(p_tax_rec, l_return_status);
2205: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2206: IF (x_tax_rec.id = OKC_API.G_MISS_NUM)
2207: THEN
2208: x_tax_rec.id := l_tax_rec.id;
2209: END IF;
2202: x_tax_rec := p_tax_rec;
2203: -- Get current database values
2204: l_tax_rec := get_rec(p_tax_rec, l_return_status);
2205: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2206: IF (x_tax_rec.id = OKC_API.G_MISS_NUM)
2207: THEN
2208: x_tax_rec.id := l_tax_rec.id;
2209: END IF;
2210: IF (x_tax_rec.khr_id = OKC_API.G_MISS_NUM)
2206: IF (x_tax_rec.id = OKC_API.G_MISS_NUM)
2207: THEN
2208: x_tax_rec.id := l_tax_rec.id;
2209: END IF;
2210: IF (x_tax_rec.khr_id = OKC_API.G_MISS_NUM)
2211: THEN
2212: x_tax_rec.khr_id := l_tax_rec.khr_id;
2213: END IF;
2214: IF (x_tax_rec.kle_id = OKC_API.G_MISS_NUM)
2210: IF (x_tax_rec.khr_id = OKC_API.G_MISS_NUM)
2211: THEN
2212: x_tax_rec.khr_id := l_tax_rec.khr_id;
2213: END IF;
2214: IF (x_tax_rec.kle_id = OKC_API.G_MISS_NUM)
2215: THEN
2216: x_tax_rec.kle_id := l_tax_rec.kle_id;
2217: END IF;
2218: IF (x_tax_rec.asset_id = OKC_API.G_MISS_NUM)
2214: IF (x_tax_rec.kle_id = OKC_API.G_MISS_NUM)
2215: THEN
2216: x_tax_rec.kle_id := l_tax_rec.kle_id;
2217: END IF;
2218: IF (x_tax_rec.asset_id = OKC_API.G_MISS_NUM)
2219: THEN
2220: x_tax_rec.asset_id := l_tax_rec.asset_id;
2221: END IF;
2222: IF (x_tax_rec.asset_number = OKC_API.G_MISS_CHAR)
2218: IF (x_tax_rec.asset_id = OKC_API.G_MISS_NUM)
2219: THEN
2220: x_tax_rec.asset_id := l_tax_rec.asset_id;
2221: END IF;
2222: IF (x_tax_rec.asset_number = OKC_API.G_MISS_CHAR)
2223: THEN
2224: x_tax_rec.asset_number := l_tax_rec.asset_number;
2225: END IF;
2226: IF (x_tax_rec.tax_line_type = OKC_API.G_MISS_CHAR)
2222: IF (x_tax_rec.asset_number = OKC_API.G_MISS_CHAR)
2223: THEN
2224: x_tax_rec.asset_number := l_tax_rec.asset_number;
2225: END IF;
2226: IF (x_tax_rec.tax_line_type = OKC_API.G_MISS_CHAR)
2227: THEN
2228: x_tax_rec.tax_line_type := l_tax_rec.tax_line_type;
2229: END IF;
2230: IF (x_tax_rec.sel_id = OKC_API.G_MISS_NUM)
2226: IF (x_tax_rec.tax_line_type = OKC_API.G_MISS_CHAR)
2227: THEN
2228: x_tax_rec.tax_line_type := l_tax_rec.tax_line_type;
2229: END IF;
2230: IF (x_tax_rec.sel_id = OKC_API.G_MISS_NUM)
2231: THEN
2232: x_tax_rec.sel_id := l_tax_rec.sel_id;
2233: END IF;
2234: IF (x_tax_rec.tax_due_date = OKC_API.G_MISS_DATE)
2230: IF (x_tax_rec.sel_id = OKC_API.G_MISS_NUM)
2231: THEN
2232: x_tax_rec.sel_id := l_tax_rec.sel_id;
2233: END IF;
2234: IF (x_tax_rec.tax_due_date = OKC_API.G_MISS_DATE)
2235: THEN
2236: x_tax_rec.tax_due_date := l_tax_rec.tax_due_date;
2237: END IF;
2238: IF (x_tax_rec.tax_type = OKC_API.G_MISS_NUM)
2234: IF (x_tax_rec.tax_due_date = OKC_API.G_MISS_DATE)
2235: THEN
2236: x_tax_rec.tax_due_date := l_tax_rec.tax_due_date;
2237: END IF;
2238: IF (x_tax_rec.tax_type = OKC_API.G_MISS_NUM)
2239: THEN
2240: x_tax_rec.tax_type := l_tax_rec.tax_type;
2241: END IF;
2242: IF (x_tax_rec.tax_rate_code_id = OKC_API.G_MISS_NUM)
2238: IF (x_tax_rec.tax_type = OKC_API.G_MISS_NUM)
2239: THEN
2240: x_tax_rec.tax_type := l_tax_rec.tax_type;
2241: END IF;
2242: IF (x_tax_rec.tax_rate_code_id = OKC_API.G_MISS_NUM)
2243: THEN
2244: x_tax_rec.tax_rate_code_id := l_tax_rec.tax_rate_code_id;
2245: END IF;
2246: IF (x_tax_rec.tax_rate_code = OKC_API.G_MISS_CHAR)
2242: IF (x_tax_rec.tax_rate_code_id = OKC_API.G_MISS_NUM)
2243: THEN
2244: x_tax_rec.tax_rate_code_id := l_tax_rec.tax_rate_code_id;
2245: END IF;
2246: IF (x_tax_rec.tax_rate_code = OKC_API.G_MISS_CHAR)
2247: THEN
2248: x_tax_rec.tax_rate_code := l_tax_rec.tax_rate_code;
2249: END IF;
2250: IF (x_tax_rec.taxable_amount = OKC_API.G_MISS_NUM)
2246: IF (x_tax_rec.tax_rate_code = OKC_API.G_MISS_CHAR)
2247: THEN
2248: x_tax_rec.tax_rate_code := l_tax_rec.tax_rate_code;
2249: END IF;
2250: IF (x_tax_rec.taxable_amount = OKC_API.G_MISS_NUM)
2251: THEN
2252: x_tax_rec.taxable_amount := l_tax_rec.taxable_amount;
2253: END IF;
2254: IF (x_tax_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
2250: IF (x_tax_rec.taxable_amount = OKC_API.G_MISS_NUM)
2251: THEN
2252: x_tax_rec.taxable_amount := l_tax_rec.taxable_amount;
2253: END IF;
2254: IF (x_tax_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
2255: THEN
2256: x_tax_rec.tax_exemption_id := l_tax_rec.tax_exemption_id;
2257: END IF;
2258: IF (x_tax_rec.manually_entered_flag = OKC_API.G_MISS_CHAR)
2254: IF (x_tax_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
2255: THEN
2256: x_tax_rec.tax_exemption_id := l_tax_rec.tax_exemption_id;
2257: END IF;
2258: IF (x_tax_rec.manually_entered_flag = OKC_API.G_MISS_CHAR)
2259: THEN
2260: x_tax_rec.manually_entered_flag := l_tax_rec.manually_entered_flag;
2261: END IF;
2262: IF (x_tax_rec.overridden_flag = OKC_API.G_MISS_CHAR)
2258: IF (x_tax_rec.manually_entered_flag = OKC_API.G_MISS_CHAR)
2259: THEN
2260: x_tax_rec.manually_entered_flag := l_tax_rec.manually_entered_flag;
2261: END IF;
2262: IF (x_tax_rec.overridden_flag = OKC_API.G_MISS_CHAR)
2263: THEN
2264: x_tax_rec.overridden_flag := l_tax_rec.overridden_flag;
2265: END IF;
2266: IF (x_tax_rec.calculated_tax_amount = OKC_API.G_MISS_NUM)
2262: IF (x_tax_rec.overridden_flag = OKC_API.G_MISS_CHAR)
2263: THEN
2264: x_tax_rec.overridden_flag := l_tax_rec.overridden_flag;
2265: END IF;
2266: IF (x_tax_rec.calculated_tax_amount = OKC_API.G_MISS_NUM)
2267: THEN
2268: x_tax_rec.calculated_tax_amount := l_tax_rec.calculated_tax_amount;
2269: END IF;
2270: IF (x_tax_rec.tax_rate = OKC_API.G_MISS_NUM)
2266: IF (x_tax_rec.calculated_tax_amount = OKC_API.G_MISS_NUM)
2267: THEN
2268: x_tax_rec.calculated_tax_amount := l_tax_rec.calculated_tax_amount;
2269: END IF;
2270: IF (x_tax_rec.tax_rate = OKC_API.G_MISS_NUM)
2271: THEN
2272: x_tax_rec.tax_rate := l_tax_rec.tax_rate;
2273: END IF;
2274: IF (x_tax_rec.tax_amount = OKC_API.G_MISS_NUM)
2270: IF (x_tax_rec.tax_rate = OKC_API.G_MISS_NUM)
2271: THEN
2272: x_tax_rec.tax_rate := l_tax_rec.tax_rate;
2273: END IF;
2274: IF (x_tax_rec.tax_amount = OKC_API.G_MISS_NUM)
2275: THEN
2276: x_tax_rec.tax_amount := l_tax_rec.tax_amount;
2277: END IF;
2278: IF (x_tax_rec.sales_tax_id = OKC_API.G_MISS_NUM)
2274: IF (x_tax_rec.tax_amount = OKC_API.G_MISS_NUM)
2275: THEN
2276: x_tax_rec.tax_amount := l_tax_rec.tax_amount;
2277: END IF;
2278: IF (x_tax_rec.sales_tax_id = OKC_API.G_MISS_NUM)
2279: THEN
2280: x_tax_rec.sales_tax_id := l_tax_rec.sales_tax_id;
2281: END IF;
2282: IF (x_tax_rec.source_trx_id = OKC_API.G_MISS_NUM)
2278: IF (x_tax_rec.sales_tax_id = OKC_API.G_MISS_NUM)
2279: THEN
2280: x_tax_rec.sales_tax_id := l_tax_rec.sales_tax_id;
2281: END IF;
2282: IF (x_tax_rec.source_trx_id = OKC_API.G_MISS_NUM)
2283: THEN
2284: x_tax_rec.source_trx_id := l_tax_rec.source_trx_id;
2285: END IF;
2286: IF (x_tax_rec.org_id = OKC_API.G_MISS_NUM)
2282: IF (x_tax_rec.source_trx_id = OKC_API.G_MISS_NUM)
2283: THEN
2284: x_tax_rec.source_trx_id := l_tax_rec.source_trx_id;
2285: END IF;
2286: IF (x_tax_rec.org_id = OKC_API.G_MISS_NUM)
2287: THEN
2288: x_tax_rec.org_id := l_tax_rec.org_id;
2289: END IF;
2290: IF (x_tax_rec.history_yn = OKC_API.G_MISS_CHAR)
2286: IF (x_tax_rec.org_id = OKC_API.G_MISS_NUM)
2287: THEN
2288: x_tax_rec.org_id := l_tax_rec.org_id;
2289: END IF;
2290: IF (x_tax_rec.history_yn = OKC_API.G_MISS_CHAR)
2291: THEN
2292: x_tax_rec.history_yn := l_tax_rec.history_yn;
2293: END IF;
2294: IF (x_tax_rec.actual_yn = OKC_API.G_MISS_CHAR)
2290: IF (x_tax_rec.history_yn = OKC_API.G_MISS_CHAR)
2291: THEN
2292: x_tax_rec.history_yn := l_tax_rec.history_yn;
2293: END IF;
2294: IF (x_tax_rec.actual_yn = OKC_API.G_MISS_CHAR)
2295: THEN
2296: x_tax_rec.actual_yn := l_tax_rec.actual_yn;
2297: END IF;
2298: IF (x_tax_rec.source_name = OKC_API.G_MISS_CHAR)
2294: IF (x_tax_rec.actual_yn = OKC_API.G_MISS_CHAR)
2295: THEN
2296: x_tax_rec.actual_yn := l_tax_rec.actual_yn;
2297: END IF;
2298: IF (x_tax_rec.source_name = OKC_API.G_MISS_CHAR)
2299: THEN
2300: x_tax_rec.source_name := l_tax_rec.source_name;
2301: END IF;
2302: IF (x_tax_rec.trq_id = OKC_API.G_MISS_NUM)
2298: IF (x_tax_rec.source_name = OKC_API.G_MISS_CHAR)
2299: THEN
2300: x_tax_rec.source_name := l_tax_rec.source_name;
2301: END IF;
2302: IF (x_tax_rec.trq_id = OKC_API.G_MISS_NUM)
2303: THEN
2304: x_tax_rec.trq_id := l_tax_rec.trq_id;
2305: END IF;
2306: IF (x_tax_rec.program_id = OKC_API.G_MISS_NUM)
2302: IF (x_tax_rec.trq_id = OKC_API.G_MISS_NUM)
2303: THEN
2304: x_tax_rec.trq_id := l_tax_rec.trq_id;
2305: END IF;
2306: IF (x_tax_rec.program_id = OKC_API.G_MISS_NUM)
2307: THEN
2308: x_tax_rec.program_id := l_tax_rec.program_id;
2309: END IF;
2310: IF (x_tax_rec.request_id = OKC_API.G_MISS_NUM)
2306: IF (x_tax_rec.program_id = OKC_API.G_MISS_NUM)
2307: THEN
2308: x_tax_rec.program_id := l_tax_rec.program_id;
2309: END IF;
2310: IF (x_tax_rec.request_id = OKC_API.G_MISS_NUM)
2311: THEN
2312: x_tax_rec.request_id := l_tax_rec.request_id;
2313: END IF;
2314: IF (x_tax_rec.program_application_id = OKC_API.G_MISS_NUM)
2310: IF (x_tax_rec.request_id = OKC_API.G_MISS_NUM)
2311: THEN
2312: x_tax_rec.request_id := l_tax_rec.request_id;
2313: END IF;
2314: IF (x_tax_rec.program_application_id = OKC_API.G_MISS_NUM)
2315: THEN
2316: x_tax_rec.program_application_id := l_tax_rec.program_application_id;
2317: END IF;
2318: IF (x_tax_rec.program_update_date = OKC_API.G_MISS_DATE)
2314: IF (x_tax_rec.program_application_id = OKC_API.G_MISS_NUM)
2315: THEN
2316: x_tax_rec.program_application_id := l_tax_rec.program_application_id;
2317: END IF;
2318: IF (x_tax_rec.program_update_date = OKC_API.G_MISS_DATE)
2319: THEN
2320: x_tax_rec.program_update_date := l_tax_rec.program_update_date;
2321: END IF;
2322: IF (x_tax_rec.attribute_category = OKC_API.G_MISS_CHAR)
2318: IF (x_tax_rec.program_update_date = OKC_API.G_MISS_DATE)
2319: THEN
2320: x_tax_rec.program_update_date := l_tax_rec.program_update_date;
2321: END IF;
2322: IF (x_tax_rec.attribute_category = OKC_API.G_MISS_CHAR)
2323: THEN
2324: x_tax_rec.attribute_category := l_tax_rec.attribute_category;
2325: END IF;
2326: IF (x_tax_rec.attribute1 = OKC_API.G_MISS_CHAR)
2322: IF (x_tax_rec.attribute_category = OKC_API.G_MISS_CHAR)
2323: THEN
2324: x_tax_rec.attribute_category := l_tax_rec.attribute_category;
2325: END IF;
2326: IF (x_tax_rec.attribute1 = OKC_API.G_MISS_CHAR)
2327: THEN
2328: x_tax_rec.attribute1 := l_tax_rec.attribute1;
2329: END IF;
2330: IF (x_tax_rec.attribute2 = OKC_API.G_MISS_CHAR)
2326: IF (x_tax_rec.attribute1 = OKC_API.G_MISS_CHAR)
2327: THEN
2328: x_tax_rec.attribute1 := l_tax_rec.attribute1;
2329: END IF;
2330: IF (x_tax_rec.attribute2 = OKC_API.G_MISS_CHAR)
2331: THEN
2332: x_tax_rec.attribute2 := l_tax_rec.attribute2;
2333: END IF;
2334: IF (x_tax_rec.attribute3 = OKC_API.G_MISS_CHAR)
2330: IF (x_tax_rec.attribute2 = OKC_API.G_MISS_CHAR)
2331: THEN
2332: x_tax_rec.attribute2 := l_tax_rec.attribute2;
2333: END IF;
2334: IF (x_tax_rec.attribute3 = OKC_API.G_MISS_CHAR)
2335: THEN
2336: x_tax_rec.attribute3 := l_tax_rec.attribute3;
2337: END IF;
2338: IF (x_tax_rec.attribute4 = OKC_API.G_MISS_CHAR)
2334: IF (x_tax_rec.attribute3 = OKC_API.G_MISS_CHAR)
2335: THEN
2336: x_tax_rec.attribute3 := l_tax_rec.attribute3;
2337: END IF;
2338: IF (x_tax_rec.attribute4 = OKC_API.G_MISS_CHAR)
2339: THEN
2340: x_tax_rec.attribute4 := l_tax_rec.attribute4;
2341: END IF;
2342: IF (x_tax_rec.attribute5 = OKC_API.G_MISS_CHAR)
2338: IF (x_tax_rec.attribute4 = OKC_API.G_MISS_CHAR)
2339: THEN
2340: x_tax_rec.attribute4 := l_tax_rec.attribute4;
2341: END IF;
2342: IF (x_tax_rec.attribute5 = OKC_API.G_MISS_CHAR)
2343: THEN
2344: x_tax_rec.attribute5 := l_tax_rec.attribute5;
2345: END IF;
2346: IF (x_tax_rec.attribute6 = OKC_API.G_MISS_CHAR)
2342: IF (x_tax_rec.attribute5 = OKC_API.G_MISS_CHAR)
2343: THEN
2344: x_tax_rec.attribute5 := l_tax_rec.attribute5;
2345: END IF;
2346: IF (x_tax_rec.attribute6 = OKC_API.G_MISS_CHAR)
2347: THEN
2348: x_tax_rec.attribute6 := l_tax_rec.attribute6;
2349: END IF;
2350: IF (x_tax_rec.attribute7 = OKC_API.G_MISS_CHAR)
2346: IF (x_tax_rec.attribute6 = OKC_API.G_MISS_CHAR)
2347: THEN
2348: x_tax_rec.attribute6 := l_tax_rec.attribute6;
2349: END IF;
2350: IF (x_tax_rec.attribute7 = OKC_API.G_MISS_CHAR)
2351: THEN
2352: x_tax_rec.attribute7 := l_tax_rec.attribute7;
2353: END IF;
2354: IF (x_tax_rec.attribute8 = OKC_API.G_MISS_CHAR)
2350: IF (x_tax_rec.attribute7 = OKC_API.G_MISS_CHAR)
2351: THEN
2352: x_tax_rec.attribute7 := l_tax_rec.attribute7;
2353: END IF;
2354: IF (x_tax_rec.attribute8 = OKC_API.G_MISS_CHAR)
2355: THEN
2356: x_tax_rec.attribute8 := l_tax_rec.attribute8;
2357: END IF;
2358: IF (x_tax_rec.attribute9 = OKC_API.G_MISS_CHAR)
2354: IF (x_tax_rec.attribute8 = OKC_API.G_MISS_CHAR)
2355: THEN
2356: x_tax_rec.attribute8 := l_tax_rec.attribute8;
2357: END IF;
2358: IF (x_tax_rec.attribute9 = OKC_API.G_MISS_CHAR)
2359: THEN
2360: x_tax_rec.attribute9 := l_tax_rec.attribute9;
2361: END IF;
2362: IF (x_tax_rec.attribute10 = OKC_API.G_MISS_CHAR)
2358: IF (x_tax_rec.attribute9 = OKC_API.G_MISS_CHAR)
2359: THEN
2360: x_tax_rec.attribute9 := l_tax_rec.attribute9;
2361: END IF;
2362: IF (x_tax_rec.attribute10 = OKC_API.G_MISS_CHAR)
2363: THEN
2364: x_tax_rec.attribute10 := l_tax_rec.attribute10;
2365: END IF;
2366: IF (x_tax_rec.attribute11 = OKC_API.G_MISS_CHAR)
2362: IF (x_tax_rec.attribute10 = OKC_API.G_MISS_CHAR)
2363: THEN
2364: x_tax_rec.attribute10 := l_tax_rec.attribute10;
2365: END IF;
2366: IF (x_tax_rec.attribute11 = OKC_API.G_MISS_CHAR)
2367: THEN
2368: x_tax_rec.attribute11 := l_tax_rec.attribute11;
2369: END IF;
2370: IF (x_tax_rec.attribute12 = OKC_API.G_MISS_CHAR)
2366: IF (x_tax_rec.attribute11 = OKC_API.G_MISS_CHAR)
2367: THEN
2368: x_tax_rec.attribute11 := l_tax_rec.attribute11;
2369: END IF;
2370: IF (x_tax_rec.attribute12 = OKC_API.G_MISS_CHAR)
2371: THEN
2372: x_tax_rec.attribute12 := l_tax_rec.attribute12;
2373: END IF;
2374: IF (x_tax_rec.attribute13 = OKC_API.G_MISS_CHAR)
2370: IF (x_tax_rec.attribute12 = OKC_API.G_MISS_CHAR)
2371: THEN
2372: x_tax_rec.attribute12 := l_tax_rec.attribute12;
2373: END IF;
2374: IF (x_tax_rec.attribute13 = OKC_API.G_MISS_CHAR)
2375: THEN
2376: x_tax_rec.attribute13 := l_tax_rec.attribute13;
2377: END IF;
2378: IF (x_tax_rec.attribute14 = OKC_API.G_MISS_CHAR)
2374: IF (x_tax_rec.attribute13 = OKC_API.G_MISS_CHAR)
2375: THEN
2376: x_tax_rec.attribute13 := l_tax_rec.attribute13;
2377: END IF;
2378: IF (x_tax_rec.attribute14 = OKC_API.G_MISS_CHAR)
2379: THEN
2380: x_tax_rec.attribute14 := l_tax_rec.attribute14;
2381: END IF;
2382: IF (x_tax_rec.attribute15 = OKC_API.G_MISS_CHAR)
2378: IF (x_tax_rec.attribute14 = OKC_API.G_MISS_CHAR)
2379: THEN
2380: x_tax_rec.attribute14 := l_tax_rec.attribute14;
2381: END IF;
2382: IF (x_tax_rec.attribute15 = OKC_API.G_MISS_CHAR)
2383: THEN
2384: x_tax_rec.attribute15 := l_tax_rec.attribute15;
2385: END IF;
2386: IF (x_tax_rec.created_by = OKC_API.G_MISS_NUM)
2382: IF (x_tax_rec.attribute15 = OKC_API.G_MISS_CHAR)
2383: THEN
2384: x_tax_rec.attribute15 := l_tax_rec.attribute15;
2385: END IF;
2386: IF (x_tax_rec.created_by = OKC_API.G_MISS_NUM)
2387: THEN
2388: x_tax_rec.created_by := l_tax_rec.created_by;
2389: END IF;
2390: IF (x_tax_rec.creation_date = OKC_API.G_MISS_DATE)
2386: IF (x_tax_rec.created_by = OKC_API.G_MISS_NUM)
2387: THEN
2388: x_tax_rec.created_by := l_tax_rec.created_by;
2389: END IF;
2390: IF (x_tax_rec.creation_date = OKC_API.G_MISS_DATE)
2391: THEN
2392: x_tax_rec.creation_date := l_tax_rec.creation_date;
2393: END IF;
2394: IF (x_tax_rec.last_updated_by = OKC_API.G_MISS_NUM)
2390: IF (x_tax_rec.creation_date = OKC_API.G_MISS_DATE)
2391: THEN
2392: x_tax_rec.creation_date := l_tax_rec.creation_date;
2393: END IF;
2394: IF (x_tax_rec.last_updated_by = OKC_API.G_MISS_NUM)
2395: THEN
2396: x_tax_rec.last_updated_by := l_tax_rec.last_updated_by;
2397: END IF;
2398: IF (x_tax_rec.last_update_date = OKC_API.G_MISS_DATE)
2394: IF (x_tax_rec.last_updated_by = OKC_API.G_MISS_NUM)
2395: THEN
2396: x_tax_rec.last_updated_by := l_tax_rec.last_updated_by;
2397: END IF;
2398: IF (x_tax_rec.last_update_date = OKC_API.G_MISS_DATE)
2399: THEN
2400: x_tax_rec.last_update_date := l_tax_rec.last_update_date;
2401: END IF;
2402: IF (x_tax_rec.last_update_login = OKC_API.G_MISS_NUM)
2398: IF (x_tax_rec.last_update_date = OKC_API.G_MISS_DATE)
2399: THEN
2400: x_tax_rec.last_update_date := l_tax_rec.last_update_date;
2401: END IF;
2402: IF (x_tax_rec.last_update_login = OKC_API.G_MISS_NUM)
2403: THEN
2404: x_tax_rec.last_update_login := l_tax_rec.last_update_login;
2405: END IF;
2406: END IF;
2412: FUNCTION Set_Attributes (
2413: p_tax_rec IN tax_rec_type,
2414: x_tax_rec OUT NOCOPY tax_rec_type
2415: ) RETURN VARCHAR2 IS
2416: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2417: BEGIN
2418: x_tax_rec := p_tax_rec;
2419: RETURN(l_return_status);
2420: END Set_Attributes;
2418: x_tax_rec := p_tax_rec;
2419: RETURN(l_return_status);
2420: END Set_Attributes;
2421: BEGIN
2422: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2423: p_init_msg_list,
2424: '_PVT',
2425: x_return_status);
2426: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2422: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2423: p_init_msg_list,
2424: '_PVT',
2425: x_return_status);
2426: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2429: RAISE OKC_API.G_EXCEPTION_ERROR;
2430: END IF;
2423: p_init_msg_list,
2424: '_PVT',
2425: x_return_status);
2426: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2429: RAISE OKC_API.G_EXCEPTION_ERROR;
2430: END IF;
2431: --- Setting item attributes
2424: '_PVT',
2425: x_return_status);
2426: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2429: RAISE OKC_API.G_EXCEPTION_ERROR;
2430: END IF;
2431: --- Setting item attributes
2432: l_return_status := Set_Attributes(
2425: x_return_status);
2426: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2427: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2428: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2429: RAISE OKC_API.G_EXCEPTION_ERROR;
2430: END IF;
2431: --- Setting item attributes
2432: l_return_status := Set_Attributes(
2433: p_tax_rec, -- IN
2432: l_return_status := Set_Attributes(
2433: p_tax_rec, -- IN
2434: l_tax_rec); -- OUT
2435: --- If any errors happen abort API
2436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2433: p_tax_rec, -- IN
2434: l_tax_rec); -- OUT
2435: --- If any errors happen abort API
2436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := populate_new_record(l_tax_rec, l_def_tax_rec);
2434: l_tax_rec); -- OUT
2435: --- If any errors happen abort API
2436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := populate_new_record(l_tax_rec, l_def_tax_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2435: --- If any errors happen abort API
2436: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2437: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := populate_new_record(l_tax_rec, l_def_tax_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2438: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := populate_new_record(l_tax_rec, l_def_tax_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2439: RAISE OKC_API.G_EXCEPTION_ERROR;
2440: END IF;
2441: l_return_status := populate_new_record(l_tax_rec, l_def_tax_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: UPDATE OKL_TAX_LINES
2440: END IF;
2441: l_return_status := populate_new_record(l_tax_rec, l_def_tax_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: UPDATE OKL_TAX_LINES
2448: SET KHR_ID = l_def_tax_rec.khr_id,
2441: l_return_status := populate_new_record(l_tax_rec, l_def_tax_rec);
2442: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2443: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2444: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2445: RAISE OKC_API.G_EXCEPTION_ERROR;
2446: END IF;
2447: UPDATE OKL_TAX_LINES
2448: SET KHR_ID = l_def_tax_rec.khr_id,
2449: KLE_ID = l_def_tax_rec.kle_id,
2497: WHERE ID = l_def_tax_rec.id;
2498:
2499: x_tax_rec := l_tax_rec;
2500: x_return_status := l_return_status;
2501: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2502: EXCEPTION
2503: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2505: (
2499: x_tax_rec := l_tax_rec;
2500: x_return_status := l_return_status;
2501: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2502: EXCEPTION
2503: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2505: (
2506: l_api_name,
2507: G_PKG_NAME,
2500: x_return_status := l_return_status;
2501: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2502: EXCEPTION
2503: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2505: (
2506: l_api_name,
2507: G_PKG_NAME,
2508: 'OKC_API.G_RET_STS_ERROR',
2504: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2505: (
2506: l_api_name,
2507: G_PKG_NAME,
2508: 'OKC_API.G_RET_STS_ERROR',
2509: x_msg_count,
2510: x_msg_data,
2511: '_PVT'
2512: );
2509: x_msg_count,
2510: x_msg_data,
2511: '_PVT'
2512: );
2513: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2515: (
2516: l_api_name,
2517: G_PKG_NAME,
2510: x_msg_data,
2511: '_PVT'
2512: );
2513: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2515: (
2516: l_api_name,
2517: G_PKG_NAME,
2518: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2514: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2515: (
2516: l_api_name,
2517: G_PKG_NAME,
2518: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2519: x_msg_count,
2520: x_msg_data,
2521: '_PVT'
2522: );
2520: x_msg_data,
2521: '_PVT'
2522: );
2523: WHEN OTHERS THEN
2524: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2525: (
2526: l_api_name,
2527: G_PKG_NAME,
2528: 'OTHERS',
2544: x_OKL_TAX_LINES_rec OUT NOCOPY OKL_TAX_LINES_rec_type) IS
2545:
2546: l_api_version CONSTANT NUMBER := 1;
2547: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2548: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2549: l_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type := p_OKL_TAX_LINES_rec;
2550: l_def_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type;
2551: l_db_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type;
2552: l_tax_rec tax_rec_type;
2571: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type,
2572: x_OKL_TAX_LINES_rec OUT NOCOPY OKL_TAX_LINES_rec_type
2573: ) RETURN VARCHAR2 IS
2574: l_row_notfound BOOLEAN := TRUE;
2575: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2576: BEGIN
2577: x_OKL_TAX_LINES_rec := p_OKL_TAX_LINES_rec;
2578: -- Get current database values
2579: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2578: -- Get current database values
2579: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2580: -- so it may be verified through LOCK_ROW.
2581: l_db_OKL_TAX_LINES_rec := get_rec(p_OKL_TAX_LINES_rec, l_return_status);
2582: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2583: IF (x_OKL_TAX_LINES_rec.id = OKC_API.G_MISS_NUM)
2584: THEN
2585: x_OKL_TAX_LINES_rec.id := l_db_OKL_TAX_LINES_rec.id;
2586: END IF;
2579: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2580: -- so it may be verified through LOCK_ROW.
2581: l_db_OKL_TAX_LINES_rec := get_rec(p_OKL_TAX_LINES_rec, l_return_status);
2582: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2583: IF (x_OKL_TAX_LINES_rec.id = OKC_API.G_MISS_NUM)
2584: THEN
2585: x_OKL_TAX_LINES_rec.id := l_db_OKL_TAX_LINES_rec.id;
2586: END IF;
2587: IF (x_OKL_TAX_LINES_rec.khr_id = OKC_API.G_MISS_NUM)
2583: IF (x_OKL_TAX_LINES_rec.id = OKC_API.G_MISS_NUM)
2584: THEN
2585: x_OKL_TAX_LINES_rec.id := l_db_OKL_TAX_LINES_rec.id;
2586: END IF;
2587: IF (x_OKL_TAX_LINES_rec.khr_id = OKC_API.G_MISS_NUM)
2588: THEN
2589: x_OKL_TAX_LINES_rec.khr_id := l_db_OKL_TAX_LINES_rec.khr_id;
2590: END IF;
2591: IF (x_OKL_TAX_LINES_rec.kle_id = OKC_API.G_MISS_NUM)
2587: IF (x_OKL_TAX_LINES_rec.khr_id = OKC_API.G_MISS_NUM)
2588: THEN
2589: x_OKL_TAX_LINES_rec.khr_id := l_db_OKL_TAX_LINES_rec.khr_id;
2590: END IF;
2591: IF (x_OKL_TAX_LINES_rec.kle_id = OKC_API.G_MISS_NUM)
2592: THEN
2593: x_OKL_TAX_LINES_rec.kle_id := l_db_OKL_TAX_LINES_rec.kle_id;
2594: END IF;
2595: IF (x_OKL_TAX_LINES_rec.asset_id = OKC_API.G_MISS_NUM)
2591: IF (x_OKL_TAX_LINES_rec.kle_id = OKC_API.G_MISS_NUM)
2592: THEN
2593: x_OKL_TAX_LINES_rec.kle_id := l_db_OKL_TAX_LINES_rec.kle_id;
2594: END IF;
2595: IF (x_OKL_TAX_LINES_rec.asset_id = OKC_API.G_MISS_NUM)
2596: THEN
2597: x_OKL_TAX_LINES_rec.asset_id := l_db_OKL_TAX_LINES_rec.asset_id;
2598: END IF;
2599: IF (x_OKL_TAX_LINES_rec.asset_number = OKC_API.G_MISS_CHAR)
2595: IF (x_OKL_TAX_LINES_rec.asset_id = OKC_API.G_MISS_NUM)
2596: THEN
2597: x_OKL_TAX_LINES_rec.asset_id := l_db_OKL_TAX_LINES_rec.asset_id;
2598: END IF;
2599: IF (x_OKL_TAX_LINES_rec.asset_number = OKC_API.G_MISS_CHAR)
2600: THEN
2601: x_OKL_TAX_LINES_rec.asset_number := l_db_OKL_TAX_LINES_rec.asset_number;
2602: END IF;
2603: IF (x_OKL_TAX_LINES_rec.tax_line_type = OKC_API.G_MISS_CHAR)
2599: IF (x_OKL_TAX_LINES_rec.asset_number = OKC_API.G_MISS_CHAR)
2600: THEN
2601: x_OKL_TAX_LINES_rec.asset_number := l_db_OKL_TAX_LINES_rec.asset_number;
2602: END IF;
2603: IF (x_OKL_TAX_LINES_rec.tax_line_type = OKC_API.G_MISS_CHAR)
2604: THEN
2605: x_OKL_TAX_LINES_rec.tax_line_type := l_db_OKL_TAX_LINES_rec.tax_line_type;
2606: END IF;
2607: IF (x_OKL_TAX_LINES_rec.sel_id = OKC_API.G_MISS_NUM)
2603: IF (x_OKL_TAX_LINES_rec.tax_line_type = OKC_API.G_MISS_CHAR)
2604: THEN
2605: x_OKL_TAX_LINES_rec.tax_line_type := l_db_OKL_TAX_LINES_rec.tax_line_type;
2606: END IF;
2607: IF (x_OKL_TAX_LINES_rec.sel_id = OKC_API.G_MISS_NUM)
2608: THEN
2609: x_OKL_TAX_LINES_rec.sel_id := l_db_OKL_TAX_LINES_rec.sel_id;
2610: END IF;
2611: IF (x_OKL_TAX_LINES_rec.tax_due_date = OKC_API.G_MISS_DATE)
2607: IF (x_OKL_TAX_LINES_rec.sel_id = OKC_API.G_MISS_NUM)
2608: THEN
2609: x_OKL_TAX_LINES_rec.sel_id := l_db_OKL_TAX_LINES_rec.sel_id;
2610: END IF;
2611: IF (x_OKL_TAX_LINES_rec.tax_due_date = OKC_API.G_MISS_DATE)
2612: THEN
2613: x_OKL_TAX_LINES_rec.tax_due_date := l_db_OKL_TAX_LINES_rec.tax_due_date;
2614: END IF;
2615: IF (x_OKL_TAX_LINES_rec.tax_type = OKC_API.G_MISS_NUM)
2611: IF (x_OKL_TAX_LINES_rec.tax_due_date = OKC_API.G_MISS_DATE)
2612: THEN
2613: x_OKL_TAX_LINES_rec.tax_due_date := l_db_OKL_TAX_LINES_rec.tax_due_date;
2614: END IF;
2615: IF (x_OKL_TAX_LINES_rec.tax_type = OKC_API.G_MISS_NUM)
2616: THEN
2617: x_OKL_TAX_LINES_rec.tax_type := l_db_OKL_TAX_LINES_rec.tax_type;
2618: END IF;
2619: IF (x_OKL_TAX_LINES_rec.tax_rate_code_id = OKC_API.G_MISS_NUM)
2615: IF (x_OKL_TAX_LINES_rec.tax_type = OKC_API.G_MISS_NUM)
2616: THEN
2617: x_OKL_TAX_LINES_rec.tax_type := l_db_OKL_TAX_LINES_rec.tax_type;
2618: END IF;
2619: IF (x_OKL_TAX_LINES_rec.tax_rate_code_id = OKC_API.G_MISS_NUM)
2620: THEN
2621: x_OKL_TAX_LINES_rec.tax_rate_code_id := l_db_OKL_TAX_LINES_rec.tax_rate_code_id;
2622: END IF;
2623: IF (x_OKL_TAX_LINES_rec.tax_rate_code = OKC_API.G_MISS_CHAR)
2619: IF (x_OKL_TAX_LINES_rec.tax_rate_code_id = OKC_API.G_MISS_NUM)
2620: THEN
2621: x_OKL_TAX_LINES_rec.tax_rate_code_id := l_db_OKL_TAX_LINES_rec.tax_rate_code_id;
2622: END IF;
2623: IF (x_OKL_TAX_LINES_rec.tax_rate_code = OKC_API.G_MISS_CHAR)
2624: THEN
2625: x_OKL_TAX_LINES_rec.tax_rate_code := l_db_OKL_TAX_LINES_rec.tax_rate_code;
2626: END IF;
2627: IF (x_OKL_TAX_LINES_rec.taxable_amount = OKC_API.G_MISS_NUM)
2623: IF (x_OKL_TAX_LINES_rec.tax_rate_code = OKC_API.G_MISS_CHAR)
2624: THEN
2625: x_OKL_TAX_LINES_rec.tax_rate_code := l_db_OKL_TAX_LINES_rec.tax_rate_code;
2626: END IF;
2627: IF (x_OKL_TAX_LINES_rec.taxable_amount = OKC_API.G_MISS_NUM)
2628: THEN
2629: x_OKL_TAX_LINES_rec.taxable_amount := l_db_OKL_TAX_LINES_rec.taxable_amount;
2630: END IF;
2631: IF (x_OKL_TAX_LINES_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
2627: IF (x_OKL_TAX_LINES_rec.taxable_amount = OKC_API.G_MISS_NUM)
2628: THEN
2629: x_OKL_TAX_LINES_rec.taxable_amount := l_db_OKL_TAX_LINES_rec.taxable_amount;
2630: END IF;
2631: IF (x_OKL_TAX_LINES_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
2632: THEN
2633: x_OKL_TAX_LINES_rec.tax_exemption_id := l_db_OKL_TAX_LINES_rec.tax_exemption_id;
2634: END IF;
2635: IF (x_OKL_TAX_LINES_rec.manually_entered_flag = OKC_API.G_MISS_CHAR)
2631: IF (x_OKL_TAX_LINES_rec.tax_exemption_id = OKC_API.G_MISS_NUM)
2632: THEN
2633: x_OKL_TAX_LINES_rec.tax_exemption_id := l_db_OKL_TAX_LINES_rec.tax_exemption_id;
2634: END IF;
2635: IF (x_OKL_TAX_LINES_rec.manually_entered_flag = OKC_API.G_MISS_CHAR)
2636: THEN
2637: x_OKL_TAX_LINES_rec.manually_entered_flag := l_db_OKL_TAX_LINES_rec.manually_entered_flag;
2638: END IF;
2639: IF (x_OKL_TAX_LINES_rec.overridden_flag = OKC_API.G_MISS_CHAR)
2635: IF (x_OKL_TAX_LINES_rec.manually_entered_flag = OKC_API.G_MISS_CHAR)
2636: THEN
2637: x_OKL_TAX_LINES_rec.manually_entered_flag := l_db_OKL_TAX_LINES_rec.manually_entered_flag;
2638: END IF;
2639: IF (x_OKL_TAX_LINES_rec.overridden_flag = OKC_API.G_MISS_CHAR)
2640: THEN
2641: x_OKL_TAX_LINES_rec.overridden_flag := l_db_OKL_TAX_LINES_rec.overridden_flag;
2642: END IF;
2643: IF (x_OKL_TAX_LINES_rec.calculated_tax_amount = OKC_API.G_MISS_NUM)
2639: IF (x_OKL_TAX_LINES_rec.overridden_flag = OKC_API.G_MISS_CHAR)
2640: THEN
2641: x_OKL_TAX_LINES_rec.overridden_flag := l_db_OKL_TAX_LINES_rec.overridden_flag;
2642: END IF;
2643: IF (x_OKL_TAX_LINES_rec.calculated_tax_amount = OKC_API.G_MISS_NUM)
2644: THEN
2645: x_OKL_TAX_LINES_rec.calculated_tax_amount := l_db_OKL_TAX_LINES_rec.calculated_tax_amount;
2646: END IF;
2647: IF (x_OKL_TAX_LINES_rec.tax_rate = OKC_API.G_MISS_NUM)
2643: IF (x_OKL_TAX_LINES_rec.calculated_tax_amount = OKC_API.G_MISS_NUM)
2644: THEN
2645: x_OKL_TAX_LINES_rec.calculated_tax_amount := l_db_OKL_TAX_LINES_rec.calculated_tax_amount;
2646: END IF;
2647: IF (x_OKL_TAX_LINES_rec.tax_rate = OKC_API.G_MISS_NUM)
2648: THEN
2649: x_OKL_TAX_LINES_rec.tax_rate := l_db_OKL_TAX_LINES_rec.tax_rate;
2650: END IF;
2651: IF (x_OKL_TAX_LINES_rec.tax_amount = OKC_API.G_MISS_NUM)
2647: IF (x_OKL_TAX_LINES_rec.tax_rate = OKC_API.G_MISS_NUM)
2648: THEN
2649: x_OKL_TAX_LINES_rec.tax_rate := l_db_OKL_TAX_LINES_rec.tax_rate;
2650: END IF;
2651: IF (x_OKL_TAX_LINES_rec.tax_amount = OKC_API.G_MISS_NUM)
2652: THEN
2653: x_OKL_TAX_LINES_rec.tax_amount := l_db_OKL_TAX_LINES_rec.tax_amount;
2654: END IF;
2655: IF (x_OKL_TAX_LINES_rec.sales_tax_id = OKC_API.G_MISS_NUM)
2651: IF (x_OKL_TAX_LINES_rec.tax_amount = OKC_API.G_MISS_NUM)
2652: THEN
2653: x_OKL_TAX_LINES_rec.tax_amount := l_db_OKL_TAX_LINES_rec.tax_amount;
2654: END IF;
2655: IF (x_OKL_TAX_LINES_rec.sales_tax_id = OKC_API.G_MISS_NUM)
2656: THEN
2657: x_OKL_TAX_LINES_rec.sales_tax_id := l_db_OKL_TAX_LINES_rec.sales_tax_id;
2658: END IF;
2659: IF (x_OKL_TAX_LINES_rec.source_trx_id = OKC_API.G_MISS_NUM)
2655: IF (x_OKL_TAX_LINES_rec.sales_tax_id = OKC_API.G_MISS_NUM)
2656: THEN
2657: x_OKL_TAX_LINES_rec.sales_tax_id := l_db_OKL_TAX_LINES_rec.sales_tax_id;
2658: END IF;
2659: IF (x_OKL_TAX_LINES_rec.source_trx_id = OKC_API.G_MISS_NUM)
2660: THEN
2661: x_OKL_TAX_LINES_rec.source_trx_id := l_db_OKL_TAX_LINES_rec.source_trx_id;
2662: END IF;
2663: IF (x_OKL_TAX_LINES_rec.org_id = OKC_API.G_MISS_NUM)
2659: IF (x_OKL_TAX_LINES_rec.source_trx_id = OKC_API.G_MISS_NUM)
2660: THEN
2661: x_OKL_TAX_LINES_rec.source_trx_id := l_db_OKL_TAX_LINES_rec.source_trx_id;
2662: END IF;
2663: IF (x_OKL_TAX_LINES_rec.org_id = OKC_API.G_MISS_NUM)
2664: THEN
2665: x_OKL_TAX_LINES_rec.org_id := l_db_OKL_TAX_LINES_rec.org_id;
2666: END IF;
2667: IF (x_OKL_TAX_LINES_rec.history_yn = OKC_API.G_MISS_CHAR)
2663: IF (x_OKL_TAX_LINES_rec.org_id = OKC_API.G_MISS_NUM)
2664: THEN
2665: x_OKL_TAX_LINES_rec.org_id := l_db_OKL_TAX_LINES_rec.org_id;
2666: END IF;
2667: IF (x_OKL_TAX_LINES_rec.history_yn = OKC_API.G_MISS_CHAR)
2668: THEN
2669: x_OKL_TAX_LINES_rec.history_yn := l_db_OKL_TAX_LINES_rec.history_yn;
2670: END IF;
2671: IF (x_OKL_TAX_LINES_rec.actual_yn = OKC_API.G_MISS_CHAR)
2667: IF (x_OKL_TAX_LINES_rec.history_yn = OKC_API.G_MISS_CHAR)
2668: THEN
2669: x_OKL_TAX_LINES_rec.history_yn := l_db_OKL_TAX_LINES_rec.history_yn;
2670: END IF;
2671: IF (x_OKL_TAX_LINES_rec.actual_yn = OKC_API.G_MISS_CHAR)
2672: THEN
2673: x_OKL_TAX_LINES_rec.actual_yn := l_db_OKL_TAX_LINES_rec.actual_yn;
2674: END IF;
2675: IF (x_OKL_TAX_LINES_rec.source_name = OKC_API.G_MISS_CHAR)
2671: IF (x_OKL_TAX_LINES_rec.actual_yn = OKC_API.G_MISS_CHAR)
2672: THEN
2673: x_OKL_TAX_LINES_rec.actual_yn := l_db_OKL_TAX_LINES_rec.actual_yn;
2674: END IF;
2675: IF (x_OKL_TAX_LINES_rec.source_name = OKC_API.G_MISS_CHAR)
2676: THEN
2677: x_OKL_TAX_LINES_rec.source_name := l_db_OKL_TAX_LINES_rec.source_name;
2678: END IF;
2679: IF (x_OKL_TAX_LINES_rec.trq_id = OKC_API.G_MISS_NUM)
2675: IF (x_OKL_TAX_LINES_rec.source_name = OKC_API.G_MISS_CHAR)
2676: THEN
2677: x_OKL_TAX_LINES_rec.source_name := l_db_OKL_TAX_LINES_rec.source_name;
2678: END IF;
2679: IF (x_OKL_TAX_LINES_rec.trq_id = OKC_API.G_MISS_NUM)
2680: THEN
2681: x_OKL_TAX_LINES_rec.trq_id := l_db_OKL_TAX_LINES_rec.trq_id;
2682: END IF;
2683: IF (x_OKL_TAX_LINES_rec.program_id = OKC_API.G_MISS_NUM)
2679: IF (x_OKL_TAX_LINES_rec.trq_id = OKC_API.G_MISS_NUM)
2680: THEN
2681: x_OKL_TAX_LINES_rec.trq_id := l_db_OKL_TAX_LINES_rec.trq_id;
2682: END IF;
2683: IF (x_OKL_TAX_LINES_rec.program_id = OKC_API.G_MISS_NUM)
2684: THEN
2685: x_OKL_TAX_LINES_rec.program_id := l_db_OKL_TAX_LINES_rec.program_id;
2686: END IF;
2687: IF (x_OKL_TAX_LINES_rec.request_id = OKC_API.G_MISS_NUM)
2683: IF (x_OKL_TAX_LINES_rec.program_id = OKC_API.G_MISS_NUM)
2684: THEN
2685: x_OKL_TAX_LINES_rec.program_id := l_db_OKL_TAX_LINES_rec.program_id;
2686: END IF;
2687: IF (x_OKL_TAX_LINES_rec.request_id = OKC_API.G_MISS_NUM)
2688: THEN
2689: x_OKL_TAX_LINES_rec.request_id := l_db_OKL_TAX_LINES_rec.request_id;
2690: END IF;
2691: IF (x_OKL_TAX_LINES_rec.program_application_id = OKC_API.G_MISS_NUM)
2687: IF (x_OKL_TAX_LINES_rec.request_id = OKC_API.G_MISS_NUM)
2688: THEN
2689: x_OKL_TAX_LINES_rec.request_id := l_db_OKL_TAX_LINES_rec.request_id;
2690: END IF;
2691: IF (x_OKL_TAX_LINES_rec.program_application_id = OKC_API.G_MISS_NUM)
2692: THEN
2693: x_OKL_TAX_LINES_rec.program_application_id := l_db_OKL_TAX_LINES_rec.program_application_id;
2694: END IF;
2695: IF (x_OKL_TAX_LINES_rec.program_update_date = OKC_API.G_MISS_DATE)
2691: IF (x_OKL_TAX_LINES_rec.program_application_id = OKC_API.G_MISS_NUM)
2692: THEN
2693: x_OKL_TAX_LINES_rec.program_application_id := l_db_OKL_TAX_LINES_rec.program_application_id;
2694: END IF;
2695: IF (x_OKL_TAX_LINES_rec.program_update_date = OKC_API.G_MISS_DATE)
2696: THEN
2697: x_OKL_TAX_LINES_rec.program_update_date := l_db_OKL_TAX_LINES_rec.program_update_date;
2698: END IF;
2699: IF (x_OKL_TAX_LINES_rec.attribute_category = OKC_API.G_MISS_CHAR)
2695: IF (x_OKL_TAX_LINES_rec.program_update_date = OKC_API.G_MISS_DATE)
2696: THEN
2697: x_OKL_TAX_LINES_rec.program_update_date := l_db_OKL_TAX_LINES_rec.program_update_date;
2698: END IF;
2699: IF (x_OKL_TAX_LINES_rec.attribute_category = OKC_API.G_MISS_CHAR)
2700: THEN
2701: x_OKL_TAX_LINES_rec.attribute_category := l_db_OKL_TAX_LINES_rec.attribute_category;
2702: END IF;
2703: IF (x_OKL_TAX_LINES_rec.attribute1 = OKC_API.G_MISS_CHAR)
2699: IF (x_OKL_TAX_LINES_rec.attribute_category = OKC_API.G_MISS_CHAR)
2700: THEN
2701: x_OKL_TAX_LINES_rec.attribute_category := l_db_OKL_TAX_LINES_rec.attribute_category;
2702: END IF;
2703: IF (x_OKL_TAX_LINES_rec.attribute1 = OKC_API.G_MISS_CHAR)
2704: THEN
2705: x_OKL_TAX_LINES_rec.attribute1 := l_db_OKL_TAX_LINES_rec.attribute1;
2706: END IF;
2707: IF (x_OKL_TAX_LINES_rec.attribute2 = OKC_API.G_MISS_CHAR)
2703: IF (x_OKL_TAX_LINES_rec.attribute1 = OKC_API.G_MISS_CHAR)
2704: THEN
2705: x_OKL_TAX_LINES_rec.attribute1 := l_db_OKL_TAX_LINES_rec.attribute1;
2706: END IF;
2707: IF (x_OKL_TAX_LINES_rec.attribute2 = OKC_API.G_MISS_CHAR)
2708: THEN
2709: x_OKL_TAX_LINES_rec.attribute2 := l_db_OKL_TAX_LINES_rec.attribute2;
2710: END IF;
2711: IF (x_OKL_TAX_LINES_rec.attribute3 = OKC_API.G_MISS_CHAR)
2707: IF (x_OKL_TAX_LINES_rec.attribute2 = OKC_API.G_MISS_CHAR)
2708: THEN
2709: x_OKL_TAX_LINES_rec.attribute2 := l_db_OKL_TAX_LINES_rec.attribute2;
2710: END IF;
2711: IF (x_OKL_TAX_LINES_rec.attribute3 = OKC_API.G_MISS_CHAR)
2712: THEN
2713: x_OKL_TAX_LINES_rec.attribute3 := l_db_OKL_TAX_LINES_rec.attribute3;
2714: END IF;
2715: IF (x_OKL_TAX_LINES_rec.attribute4 = OKC_API.G_MISS_CHAR)
2711: IF (x_OKL_TAX_LINES_rec.attribute3 = OKC_API.G_MISS_CHAR)
2712: THEN
2713: x_OKL_TAX_LINES_rec.attribute3 := l_db_OKL_TAX_LINES_rec.attribute3;
2714: END IF;
2715: IF (x_OKL_TAX_LINES_rec.attribute4 = OKC_API.G_MISS_CHAR)
2716: THEN
2717: x_OKL_TAX_LINES_rec.attribute4 := l_db_OKL_TAX_LINES_rec.attribute4;
2718: END IF;
2719: IF (x_OKL_TAX_LINES_rec.attribute5 = OKC_API.G_MISS_CHAR)
2715: IF (x_OKL_TAX_LINES_rec.attribute4 = OKC_API.G_MISS_CHAR)
2716: THEN
2717: x_OKL_TAX_LINES_rec.attribute4 := l_db_OKL_TAX_LINES_rec.attribute4;
2718: END IF;
2719: IF (x_OKL_TAX_LINES_rec.attribute5 = OKC_API.G_MISS_CHAR)
2720: THEN
2721: x_OKL_TAX_LINES_rec.attribute5 := l_db_OKL_TAX_LINES_rec.attribute5;
2722: END IF;
2723: IF (x_OKL_TAX_LINES_rec.attribute6 = OKC_API.G_MISS_CHAR)
2719: IF (x_OKL_TAX_LINES_rec.attribute5 = OKC_API.G_MISS_CHAR)
2720: THEN
2721: x_OKL_TAX_LINES_rec.attribute5 := l_db_OKL_TAX_LINES_rec.attribute5;
2722: END IF;
2723: IF (x_OKL_TAX_LINES_rec.attribute6 = OKC_API.G_MISS_CHAR)
2724: THEN
2725: x_OKL_TAX_LINES_rec.attribute6 := l_db_OKL_TAX_LINES_rec.attribute6;
2726: END IF;
2727: IF (x_OKL_TAX_LINES_rec.attribute7 = OKC_API.G_MISS_CHAR)
2723: IF (x_OKL_TAX_LINES_rec.attribute6 = OKC_API.G_MISS_CHAR)
2724: THEN
2725: x_OKL_TAX_LINES_rec.attribute6 := l_db_OKL_TAX_LINES_rec.attribute6;
2726: END IF;
2727: IF (x_OKL_TAX_LINES_rec.attribute7 = OKC_API.G_MISS_CHAR)
2728: THEN
2729: x_OKL_TAX_LINES_rec.attribute7 := l_db_OKL_TAX_LINES_rec.attribute7;
2730: END IF;
2731: IF (x_OKL_TAX_LINES_rec.attribute8 = OKC_API.G_MISS_CHAR)
2727: IF (x_OKL_TAX_LINES_rec.attribute7 = OKC_API.G_MISS_CHAR)
2728: THEN
2729: x_OKL_TAX_LINES_rec.attribute7 := l_db_OKL_TAX_LINES_rec.attribute7;
2730: END IF;
2731: IF (x_OKL_TAX_LINES_rec.attribute8 = OKC_API.G_MISS_CHAR)
2732: THEN
2733: x_OKL_TAX_LINES_rec.attribute8 := l_db_OKL_TAX_LINES_rec.attribute8;
2734: END IF;
2735: IF (x_OKL_TAX_LINES_rec.attribute9 = OKC_API.G_MISS_CHAR)
2731: IF (x_OKL_TAX_LINES_rec.attribute8 = OKC_API.G_MISS_CHAR)
2732: THEN
2733: x_OKL_TAX_LINES_rec.attribute8 := l_db_OKL_TAX_LINES_rec.attribute8;
2734: END IF;
2735: IF (x_OKL_TAX_LINES_rec.attribute9 = OKC_API.G_MISS_CHAR)
2736: THEN
2737: x_OKL_TAX_LINES_rec.attribute9 := l_db_OKL_TAX_LINES_rec.attribute9;
2738: END IF;
2739: IF (x_OKL_TAX_LINES_rec.attribute10 = OKC_API.G_MISS_CHAR)
2735: IF (x_OKL_TAX_LINES_rec.attribute9 = OKC_API.G_MISS_CHAR)
2736: THEN
2737: x_OKL_TAX_LINES_rec.attribute9 := l_db_OKL_TAX_LINES_rec.attribute9;
2738: END IF;
2739: IF (x_OKL_TAX_LINES_rec.attribute10 = OKC_API.G_MISS_CHAR)
2740: THEN
2741: x_OKL_TAX_LINES_rec.attribute10 := l_db_OKL_TAX_LINES_rec.attribute10;
2742: END IF;
2743: IF (x_OKL_TAX_LINES_rec.attribute11 = OKC_API.G_MISS_CHAR)
2739: IF (x_OKL_TAX_LINES_rec.attribute10 = OKC_API.G_MISS_CHAR)
2740: THEN
2741: x_OKL_TAX_LINES_rec.attribute10 := l_db_OKL_TAX_LINES_rec.attribute10;
2742: END IF;
2743: IF (x_OKL_TAX_LINES_rec.attribute11 = OKC_API.G_MISS_CHAR)
2744: THEN
2745: x_OKL_TAX_LINES_rec.attribute11 := l_db_OKL_TAX_LINES_rec.attribute11;
2746: END IF;
2747: IF (x_OKL_TAX_LINES_rec.attribute12 = OKC_API.G_MISS_CHAR)
2743: IF (x_OKL_TAX_LINES_rec.attribute11 = OKC_API.G_MISS_CHAR)
2744: THEN
2745: x_OKL_TAX_LINES_rec.attribute11 := l_db_OKL_TAX_LINES_rec.attribute11;
2746: END IF;
2747: IF (x_OKL_TAX_LINES_rec.attribute12 = OKC_API.G_MISS_CHAR)
2748: THEN
2749: x_OKL_TAX_LINES_rec.attribute12 := l_db_OKL_TAX_LINES_rec.attribute12;
2750: END IF;
2751: IF (x_OKL_TAX_LINES_rec.attribute13 = OKC_API.G_MISS_CHAR)
2747: IF (x_OKL_TAX_LINES_rec.attribute12 = OKC_API.G_MISS_CHAR)
2748: THEN
2749: x_OKL_TAX_LINES_rec.attribute12 := l_db_OKL_TAX_LINES_rec.attribute12;
2750: END IF;
2751: IF (x_OKL_TAX_LINES_rec.attribute13 = OKC_API.G_MISS_CHAR)
2752: THEN
2753: x_OKL_TAX_LINES_rec.attribute13 := l_db_OKL_TAX_LINES_rec.attribute13;
2754: END IF;
2755: IF (x_OKL_TAX_LINES_rec.attribute14 = OKC_API.G_MISS_CHAR)
2751: IF (x_OKL_TAX_LINES_rec.attribute13 = OKC_API.G_MISS_CHAR)
2752: THEN
2753: x_OKL_TAX_LINES_rec.attribute13 := l_db_OKL_TAX_LINES_rec.attribute13;
2754: END IF;
2755: IF (x_OKL_TAX_LINES_rec.attribute14 = OKC_API.G_MISS_CHAR)
2756: THEN
2757: x_OKL_TAX_LINES_rec.attribute14 := l_db_OKL_TAX_LINES_rec.attribute14;
2758: END IF;
2759: IF (x_OKL_TAX_LINES_rec.attribute15 = OKC_API.G_MISS_CHAR)
2755: IF (x_OKL_TAX_LINES_rec.attribute14 = OKC_API.G_MISS_CHAR)
2756: THEN
2757: x_OKL_TAX_LINES_rec.attribute14 := l_db_OKL_TAX_LINES_rec.attribute14;
2758: END IF;
2759: IF (x_OKL_TAX_LINES_rec.attribute15 = OKC_API.G_MISS_CHAR)
2760: THEN
2761: x_OKL_TAX_LINES_rec.attribute15 := l_db_OKL_TAX_LINES_rec.attribute15;
2762: END IF;
2763: IF (x_OKL_TAX_LINES_rec.created_by = OKC_API.G_MISS_NUM)
2759: IF (x_OKL_TAX_LINES_rec.attribute15 = OKC_API.G_MISS_CHAR)
2760: THEN
2761: x_OKL_TAX_LINES_rec.attribute15 := l_db_OKL_TAX_LINES_rec.attribute15;
2762: END IF;
2763: IF (x_OKL_TAX_LINES_rec.created_by = OKC_API.G_MISS_NUM)
2764: THEN
2765: x_OKL_TAX_LINES_rec.created_by := l_db_OKL_TAX_LINES_rec.created_by;
2766: END IF;
2767: IF (x_OKL_TAX_LINES_rec.creation_date = OKC_API.G_MISS_DATE)
2763: IF (x_OKL_TAX_LINES_rec.created_by = OKC_API.G_MISS_NUM)
2764: THEN
2765: x_OKL_TAX_LINES_rec.created_by := l_db_OKL_TAX_LINES_rec.created_by;
2766: END IF;
2767: IF (x_OKL_TAX_LINES_rec.creation_date = OKC_API.G_MISS_DATE)
2768: THEN
2769: x_OKL_TAX_LINES_rec.creation_date := l_db_OKL_TAX_LINES_rec.creation_date;
2770: END IF;
2771: IF (x_OKL_TAX_LINES_rec.last_updated_by = OKC_API.G_MISS_NUM)
2767: IF (x_OKL_TAX_LINES_rec.creation_date = OKC_API.G_MISS_DATE)
2768: THEN
2769: x_OKL_TAX_LINES_rec.creation_date := l_db_OKL_TAX_LINES_rec.creation_date;
2770: END IF;
2771: IF (x_OKL_TAX_LINES_rec.last_updated_by = OKC_API.G_MISS_NUM)
2772: THEN
2773: x_OKL_TAX_LINES_rec.last_updated_by := l_db_OKL_TAX_LINES_rec.last_updated_by;
2774: END IF;
2775: IF (x_OKL_TAX_LINES_rec.last_update_date = OKC_API.G_MISS_DATE)
2771: IF (x_OKL_TAX_LINES_rec.last_updated_by = OKC_API.G_MISS_NUM)
2772: THEN
2773: x_OKL_TAX_LINES_rec.last_updated_by := l_db_OKL_TAX_LINES_rec.last_updated_by;
2774: END IF;
2775: IF (x_OKL_TAX_LINES_rec.last_update_date = OKC_API.G_MISS_DATE)
2776: THEN
2777: x_OKL_TAX_LINES_rec.last_update_date := l_db_OKL_TAX_LINES_rec.last_update_date;
2778: END IF;
2779: IF (x_OKL_TAX_LINES_rec.last_update_login = OKC_API.G_MISS_NUM)
2775: IF (x_OKL_TAX_LINES_rec.last_update_date = OKC_API.G_MISS_DATE)
2776: THEN
2777: x_OKL_TAX_LINES_rec.last_update_date := l_db_OKL_TAX_LINES_rec.last_update_date;
2778: END IF;
2779: IF (x_OKL_TAX_LINES_rec.last_update_login = OKC_API.G_MISS_NUM)
2780: THEN
2781: x_OKL_TAX_LINES_rec.last_update_login := l_db_OKL_TAX_LINES_rec.last_update_login;
2782: END IF;
2783: END IF;
2789: FUNCTION Set_Attributes (
2790: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type,
2791: x_OKL_TAX_LINES_rec OUT NOCOPY OKL_TAX_LINES_rec_type
2792: ) RETURN VARCHAR2 IS
2793: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2794: BEGIN
2795: x_OKL_TAX_LINES_rec := p_OKL_TAX_LINES_rec;
2796: RETURN(l_return_status);
2797: END Set_Attributes;
2795: x_OKL_TAX_LINES_rec := p_OKL_TAX_LINES_rec;
2796: RETURN(l_return_status);
2797: END Set_Attributes;
2798: BEGIN
2799: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2800: G_PKG_NAME,
2801: p_init_msg_list,
2802: l_api_version,
2803: p_api_version,
2802: l_api_version,
2803: p_api_version,
2804: '_PVT',
2805: x_return_status);
2806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2809: RAISE OKC_API.G_EXCEPTION_ERROR;
2810: END IF;
2803: p_api_version,
2804: '_PVT',
2805: x_return_status);
2806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2809: RAISE OKC_API.G_EXCEPTION_ERROR;
2810: END IF;
2811: --- Setting item attributes
2804: '_PVT',
2805: x_return_status);
2806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2809: RAISE OKC_API.G_EXCEPTION_ERROR;
2810: END IF;
2811: --- Setting item attributes
2812: l_return_status := Set_Attributes(
2805: x_return_status);
2806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2809: RAISE OKC_API.G_EXCEPTION_ERROR;
2810: END IF;
2811: --- Setting item attributes
2812: l_return_status := Set_Attributes(
2813: p_OKL_TAX_LINES_rec, -- IN
2812: l_return_status := Set_Attributes(
2813: p_OKL_TAX_LINES_rec, -- IN
2814: x_OKL_TAX_LINES_rec); -- OUT
2815: --- If any errors happen abort API
2816: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2819: RAISE OKC_API.G_EXCEPTION_ERROR;
2820: END IF;
2813: p_OKL_TAX_LINES_rec, -- IN
2814: x_OKL_TAX_LINES_rec); -- OUT
2815: --- If any errors happen abort API
2816: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2819: RAISE OKC_API.G_EXCEPTION_ERROR;
2820: END IF;
2821: l_return_status := populate_new_record(l_OKL_TAX_LINES_rec, l_def_OKL_TAX_LINES_rec);
2814: x_OKL_TAX_LINES_rec); -- OUT
2815: --- If any errors happen abort API
2816: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2819: RAISE OKC_API.G_EXCEPTION_ERROR;
2820: END IF;
2821: l_return_status := populate_new_record(l_OKL_TAX_LINES_rec, l_def_OKL_TAX_LINES_rec);
2822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2815: --- If any errors happen abort API
2816: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2817: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2819: RAISE OKC_API.G_EXCEPTION_ERROR;
2820: END IF;
2821: l_return_status := populate_new_record(l_OKL_TAX_LINES_rec, l_def_OKL_TAX_LINES_rec);
2822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2823: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2818: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2819: RAISE OKC_API.G_EXCEPTION_ERROR;
2820: END IF;
2821: l_return_status := populate_new_record(l_OKL_TAX_LINES_rec, l_def_OKL_TAX_LINES_rec);
2822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2823: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2824: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2825: RAISE OKC_API.G_EXCEPTION_ERROR;
2826: END IF;
2819: RAISE OKC_API.G_EXCEPTION_ERROR;
2820: END IF;
2821: l_return_status := populate_new_record(l_OKL_TAX_LINES_rec, l_def_OKL_TAX_LINES_rec);
2822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2823: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2824: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2825: RAISE OKC_API.G_EXCEPTION_ERROR;
2826: END IF;
2827: l_def_OKL_TAX_LINES_rec := fill_who_columns(l_def_OKL_TAX_LINES_rec);
2820: END IF;
2821: l_return_status := populate_new_record(l_OKL_TAX_LINES_rec, l_def_OKL_TAX_LINES_rec);
2822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2823: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2824: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2825: RAISE OKC_API.G_EXCEPTION_ERROR;
2826: END IF;
2827: l_def_OKL_TAX_LINES_rec := fill_who_columns(l_def_OKL_TAX_LINES_rec);
2828: --- Validate all non-missing attributes (Item Level Validation)
2821: l_return_status := populate_new_record(l_OKL_TAX_LINES_rec, l_def_OKL_TAX_LINES_rec);
2822: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2823: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2824: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2825: RAISE OKC_API.G_EXCEPTION_ERROR;
2826: END IF;
2827: l_def_OKL_TAX_LINES_rec := fill_who_columns(l_def_OKL_TAX_LINES_rec);
2828: --- Validate all non-missing attributes (Item Level Validation)
2829: l_return_status := Validate_Attributes(l_def_OKL_TAX_LINES_rec);
2827: l_def_OKL_TAX_LINES_rec := fill_who_columns(l_def_OKL_TAX_LINES_rec);
2828: --- Validate all non-missing attributes (Item Level Validation)
2829: l_return_status := Validate_Attributes(l_def_OKL_TAX_LINES_rec);
2830: --- If any errors happen abort API
2831: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2828: --- Validate all non-missing attributes (Item Level Validation)
2829: l_return_status := Validate_Attributes(l_def_OKL_TAX_LINES_rec);
2830: --- If any errors happen abort API
2831: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2836: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec, l_db_OKL_TAX_LINES_rec);
2829: l_return_status := Validate_Attributes(l_def_OKL_TAX_LINES_rec);
2830: --- If any errors happen abort API
2831: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2836: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec, l_db_OKL_TAX_LINES_rec);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2830: --- If any errors happen abort API
2831: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2832: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2836: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec, l_db_OKL_TAX_LINES_rec);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2833: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2836: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec, l_db_OKL_TAX_LINES_rec);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_ERROR;
2841: END IF;
2834: RAISE OKC_API.G_EXCEPTION_ERROR;
2835: END IF;
2836: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec, l_db_OKL_TAX_LINES_rec);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_ERROR;
2841: END IF;
2842:
2835: END IF;
2836: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec, l_db_OKL_TAX_LINES_rec);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_ERROR;
2841: END IF;
2842:
2843: -- Lock the Record
2836: l_return_status := Validate_Record(l_def_OKL_TAX_LINES_rec, l_db_OKL_TAX_LINES_rec);
2837: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2838: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2839: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_ERROR;
2841: END IF;
2842:
2843: -- Lock the Record
2844: lock_row(
2847: x_return_status => l_return_status,
2848: x_msg_count => x_msg_count,
2849: x_msg_data => x_msg_data,
2850: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_rec);
2851: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2854: RAISE OKC_API.G_EXCEPTION_ERROR;
2855: END IF;
2848: x_msg_count => x_msg_count,
2849: x_msg_data => x_msg_data,
2850: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_rec);
2851: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2854: RAISE OKC_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2849: x_msg_data => x_msg_data,
2850: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_rec);
2851: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2854: RAISE OKC_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2857: -----------------------------------------
2850: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_rec);
2851: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2854: RAISE OKC_API.G_EXCEPTION_ERROR;
2855: END IF;
2856:
2857: -----------------------------------------
2858: -- Move VIEW record to "Child" records --
2868: x_msg_data,
2869: l_tax_rec,
2870: lx_tax_rec
2871: );
2872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2869: l_tax_rec,
2870: lx_tax_rec
2871: );
2872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2877: migrate(lx_tax_rec, l_def_OKL_TAX_LINES_rec);
2870: lx_tax_rec
2871: );
2872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2877: migrate(lx_tax_rec, l_def_OKL_TAX_LINES_rec);
2878: x_OKL_TAX_LINES_rec := l_def_OKL_TAX_LINES_rec;
2871: );
2872: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2875: RAISE OKC_API.G_EXCEPTION_ERROR;
2876: END IF;
2877: migrate(lx_tax_rec, l_def_OKL_TAX_LINES_rec);
2878: x_OKL_TAX_LINES_rec := l_def_OKL_TAX_LINES_rec;
2879: x_return_status := l_return_status;
2876: END IF;
2877: migrate(lx_tax_rec, l_def_OKL_TAX_LINES_rec);
2878: x_OKL_TAX_LINES_rec := l_def_OKL_TAX_LINES_rec;
2879: x_return_status := l_return_status;
2880: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2881: EXCEPTION
2882: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2884: (
2878: x_OKL_TAX_LINES_rec := l_def_OKL_TAX_LINES_rec;
2879: x_return_status := l_return_status;
2880: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2881: EXCEPTION
2882: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2884: (
2885: l_api_name,
2886: G_PKG_NAME,
2879: x_return_status := l_return_status;
2880: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2881: EXCEPTION
2882: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2884: (
2885: l_api_name,
2886: G_PKG_NAME,
2887: 'OKC_API.G_RET_STS_ERROR',
2883: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2884: (
2885: l_api_name,
2886: G_PKG_NAME,
2887: 'OKC_API.G_RET_STS_ERROR',
2888: x_msg_count,
2889: x_msg_data,
2890: '_PVT'
2891: );
2888: x_msg_count,
2889: x_msg_data,
2890: '_PVT'
2891: );
2892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2894: (
2895: l_api_name,
2896: G_PKG_NAME,
2889: x_msg_data,
2890: '_PVT'
2891: );
2892: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2894: (
2895: l_api_name,
2896: G_PKG_NAME,
2897: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2893: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2894: (
2895: l_api_name,
2896: G_PKG_NAME,
2897: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2898: x_msg_count,
2899: x_msg_data,
2900: '_PVT'
2901: );
2899: x_msg_data,
2900: '_PVT'
2901: );
2902: WHEN OTHERS THEN
2903: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2904: (
2905: l_api_name,
2906: G_PKG_NAME,
2907: 'OTHERS',
2920: x_msg_count OUT NOCOPY NUMBER,
2921: x_msg_data OUT NOCOPY VARCHAR2,
2922: p_OKL_TAX_LINES_tbl IN OKL_TAX_LINES_tbl_type,
2923: x_OKL_TAX_LINES_tbl OUT NOCOPY OKL_TAX_LINES_tbl_type,
2924: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2925:
2926: l_api_version CONSTANT NUMBER := 1;
2927: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2928: i NUMBER := 0;
2926: l_api_version CONSTANT NUMBER := 1;
2927: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2928: i NUMBER := 0;
2929: BEGIN
2930: OKC_API.init_msg_list(p_init_msg_list);
2931: -- Make sure PL/SQL table has records in it before passing
2932: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
2933: i := p_OKL_TAX_LINES_tbl.FIRST;
2934: LOOP
2932: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
2933: i := p_OKL_TAX_LINES_tbl.FIRST;
2934: LOOP
2935: DECLARE
2936: l_error_rec OKC_API.ERROR_REC_TYPE;
2937: BEGIN
2938: l_error_rec.api_name := l_api_name;
2939: l_error_rec.api_package := G_PKG_NAME;
2940: l_error_rec.idx := i;
2939: l_error_rec.api_package := G_PKG_NAME;
2940: l_error_rec.idx := i;
2941: update_row (
2942: p_api_version => p_api_version,
2943: p_init_msg_list => OKC_API.G_FALSE,
2944: x_return_status => l_error_rec.error_type,
2945: x_msg_count => l_error_rec.msg_count,
2946: x_msg_data => l_error_rec.msg_data,
2947: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i),
2945: x_msg_count => l_error_rec.msg_count,
2946: x_msg_data => l_error_rec.msg_data,
2947: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i),
2948: x_OKL_TAX_LINES_rec => x_OKL_TAX_LINES_tbl(i));
2949: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2950: l_error_rec.sqlcode := SQLCODE;
2951: load_error_tbl(l_error_rec, px_error_tbl);
2952: ELSE
2953: x_msg_count := l_error_rec.msg_count;
2953: x_msg_count := l_error_rec.msg_count;
2954: x_msg_data := l_error_rec.msg_data;
2955: END IF;
2956: EXCEPTION
2957: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2958: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2959: l_error_rec.sqlcode := SQLCODE;
2960: load_error_tbl(l_error_rec, px_error_tbl);
2961: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2954: x_msg_data := l_error_rec.msg_data;
2955: END IF;
2956: EXCEPTION
2957: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2958: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2959: l_error_rec.sqlcode := SQLCODE;
2960: load_error_tbl(l_error_rec, px_error_tbl);
2961: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2962: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2957: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2958: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2959: l_error_rec.sqlcode := SQLCODE;
2960: load_error_tbl(l_error_rec, px_error_tbl);
2961: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2962: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2963: l_error_rec.sqlcode := SQLCODE;
2964: load_error_tbl(l_error_rec, px_error_tbl);
2965: WHEN OTHERS THEN
2958: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2959: l_error_rec.sqlcode := SQLCODE;
2960: load_error_tbl(l_error_rec, px_error_tbl);
2961: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2962: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2963: l_error_rec.sqlcode := SQLCODE;
2964: load_error_tbl(l_error_rec, px_error_tbl);
2965: WHEN OTHERS THEN
2966: l_error_rec.error_type := 'OTHERS';
2973: END IF;
2974: -- Loop through the error_tbl to find the error with the highest severity
2975: -- and return it.
2976: x_return_status := find_highest_exception(px_error_tbl);
2977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2978: EXCEPTION
2979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2981: (
2975: -- and return it.
2976: x_return_status := find_highest_exception(px_error_tbl);
2977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2978: EXCEPTION
2979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2981: (
2982: l_api_name,
2983: G_PKG_NAME,
2976: x_return_status := find_highest_exception(px_error_tbl);
2977: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2978: EXCEPTION
2979: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2981: (
2982: l_api_name,
2983: G_PKG_NAME,
2984: 'OKC_API.G_RET_STS_ERROR',
2980: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2981: (
2982: l_api_name,
2983: G_PKG_NAME,
2984: 'OKC_API.G_RET_STS_ERROR',
2985: x_msg_count,
2986: x_msg_data,
2987: '_PVT'
2988: );
2985: x_msg_count,
2986: x_msg_data,
2987: '_PVT'
2988: );
2989: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2990: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2991: (
2992: l_api_name,
2993: G_PKG_NAME,
2986: x_msg_data,
2987: '_PVT'
2988: );
2989: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2990: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2991: (
2992: l_api_name,
2993: G_PKG_NAME,
2994: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2990: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2991: (
2992: l_api_name,
2993: G_PKG_NAME,
2994: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2995: x_msg_count,
2996: x_msg_data,
2997: '_PVT'
2998: );
2996: x_msg_data,
2997: '_PVT'
2998: );
2999: WHEN OTHERS THEN
3000: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3001: (
3002: l_api_name,
3003: G_PKG_NAME,
3004: 'OTHERS',
3023: x_OKL_TAX_LINES_tbl OUT NOCOPY OKL_TAX_LINES_tbl_type) IS
3024:
3025: l_api_version CONSTANT NUMBER := 1;
3026: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3027: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3028: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3029: BEGIN
3030: OKC_API.init_msg_list(p_init_msg_list);
3031: -- Make sure PL/SQL table has records in it before passing
3024:
3025: l_api_version CONSTANT NUMBER := 1;
3026: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3027: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3028: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3029: BEGIN
3030: OKC_API.init_msg_list(p_init_msg_list);
3031: -- Make sure PL/SQL table has records in it before passing
3032: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
3026: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3027: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3028: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3029: BEGIN
3030: OKC_API.init_msg_list(p_init_msg_list);
3031: -- Make sure PL/SQL table has records in it before passing
3032: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
3033: update_row (
3034: p_api_version => p_api_version,
3031: -- Make sure PL/SQL table has records in it before passing
3032: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
3033: update_row (
3034: p_api_version => p_api_version,
3035: p_init_msg_list => OKC_API.G_FALSE,
3036: x_return_status => x_return_status,
3037: x_msg_count => x_msg_count,
3038: x_msg_data => x_msg_data,
3039: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
3039: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
3040: x_OKL_TAX_LINES_tbl => x_OKL_TAX_LINES_tbl,
3041: px_error_tbl => l_error_tbl);
3042: END IF;
3043: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3044: EXCEPTION
3045: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3046: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3047: (
3041: px_error_tbl => l_error_tbl);
3042: END IF;
3043: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3044: EXCEPTION
3045: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3046: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3047: (
3048: l_api_name,
3049: G_PKG_NAME,
3042: END IF;
3043: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3044: EXCEPTION
3045: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3046: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3047: (
3048: l_api_name,
3049: G_PKG_NAME,
3050: 'OKC_API.G_RET_STS_ERROR',
3046: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3047: (
3048: l_api_name,
3049: G_PKG_NAME,
3050: 'OKC_API.G_RET_STS_ERROR',
3051: x_msg_count,
3052: x_msg_data,
3053: '_PVT'
3054: );
3051: x_msg_count,
3052: x_msg_data,
3053: '_PVT'
3054: );
3055: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3056: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3057: (
3058: l_api_name,
3059: G_PKG_NAME,
3052: x_msg_data,
3053: '_PVT'
3054: );
3055: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3056: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3057: (
3058: l_api_name,
3059: G_PKG_NAME,
3060: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3056: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3057: (
3058: l_api_name,
3059: G_PKG_NAME,
3060: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3061: x_msg_count,
3062: x_msg_data,
3063: '_PVT'
3064: );
3062: x_msg_data,
3063: '_PVT'
3064: );
3065: WHEN OTHERS THEN
3066: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3067: (
3068: l_api_name,
3069: G_PKG_NAME,
3070: 'OTHERS',
3088: p_tax_rec IN tax_rec_type) IS
3089:
3090: l_api_version CONSTANT NUMBER := 1;
3091: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3092: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3093: l_tax_rec tax_rec_type := p_tax_rec;
3094: l_row_notfound BOOLEAN := TRUE;
3095: BEGIN
3096: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3092: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3093: l_tax_rec tax_rec_type := p_tax_rec;
3094: l_row_notfound BOOLEAN := TRUE;
3095: BEGIN
3096: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3097: p_init_msg_list,
3098: '_PVT',
3099: x_return_status);
3100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3096: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3097: p_init_msg_list,
3098: '_PVT',
3099: x_return_status);
3100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_ERROR;
3104: END IF;
3097: p_init_msg_list,
3098: '_PVT',
3099: x_return_status);
3100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_ERROR;
3104: END IF;
3105:
3098: '_PVT',
3099: x_return_status);
3100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_ERROR;
3104: END IF;
3105:
3106: DELETE FROM OKL_TAX_LINES
3099: x_return_status);
3100: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3101: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3102: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3103: RAISE OKC_API.G_EXCEPTION_ERROR;
3104: END IF;
3105:
3106: DELETE FROM OKL_TAX_LINES
3107: WHERE ID = p_tax_rec.id;
3106: DELETE FROM OKL_TAX_LINES
3107: WHERE ID = p_tax_rec.id;
3108:
3109: x_return_status := l_return_status;
3110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3111: EXCEPTION
3112: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3113: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3114: (
3108:
3109: x_return_status := l_return_status;
3110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3111: EXCEPTION
3112: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3113: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3114: (
3115: l_api_name,
3116: G_PKG_NAME,
3109: x_return_status := l_return_status;
3110: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3111: EXCEPTION
3112: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3113: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3114: (
3115: l_api_name,
3116: G_PKG_NAME,
3117: 'OKC_API.G_RET_STS_ERROR',
3113: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3114: (
3115: l_api_name,
3116: G_PKG_NAME,
3117: 'OKC_API.G_RET_STS_ERROR',
3118: x_msg_count,
3119: x_msg_data,
3120: '_PVT'
3121: );
3118: x_msg_count,
3119: x_msg_data,
3120: '_PVT'
3121: );
3122: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3124: (
3125: l_api_name,
3126: G_PKG_NAME,
3119: x_msg_data,
3120: '_PVT'
3121: );
3122: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3124: (
3125: l_api_name,
3126: G_PKG_NAME,
3127: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3123: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3124: (
3125: l_api_name,
3126: G_PKG_NAME,
3127: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3128: x_msg_count,
3129: x_msg_data,
3130: '_PVT'
3131: );
3129: x_msg_data,
3130: '_PVT'
3131: );
3132: WHEN OTHERS THEN
3133: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3134: (
3135: l_api_name,
3136: G_PKG_NAME,
3137: 'OTHERS',
3152: p_OKL_TAX_LINES_rec IN OKL_TAX_LINES_rec_type) IS
3153:
3154: l_api_version CONSTANT NUMBER := 1;
3155: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3156: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3157: l_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type := p_OKL_TAX_LINES_rec;
3158: l_tax_rec tax_rec_type;
3159: BEGIN
3160: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3156: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3157: l_OKL_TAX_LINES_rec OKL_TAX_LINES_rec_type := p_OKL_TAX_LINES_rec;
3158: l_tax_rec tax_rec_type;
3159: BEGIN
3160: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3161: G_PKG_NAME,
3162: p_init_msg_list,
3163: l_api_version,
3164: p_api_version,
3163: l_api_version,
3164: p_api_version,
3165: '_PVT',
3166: x_return_status);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3164: p_api_version,
3165: '_PVT',
3166: x_return_status);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3172: -----------------------------------------
3165: '_PVT',
3166: x_return_status);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3172: -----------------------------------------
3173: -- Move VIEW record to "Child" records --
3166: x_return_status);
3167: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3168: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3169: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3170: RAISE OKC_API.G_EXCEPTION_ERROR;
3171: END IF;
3172: -----------------------------------------
3173: -- Move VIEW record to "Child" records --
3174: -----------------------------------------
3182: x_msg_count,
3183: x_msg_data,
3184: l_tax_rec
3185: );
3186: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3189: RAISE OKC_API.G_EXCEPTION_ERROR;
3190: END IF;
3183: x_msg_data,
3184: l_tax_rec
3185: );
3186: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3189: RAISE OKC_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: x_return_status := l_return_status;
3184: l_tax_rec
3185: );
3186: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3189: RAISE OKC_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: x_return_status := l_return_status;
3192: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3185: );
3186: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3187: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3188: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3189: RAISE OKC_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: x_return_status := l_return_status;
3192: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3193: EXCEPTION
3188: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3189: RAISE OKC_API.G_EXCEPTION_ERROR;
3190: END IF;
3191: x_return_status := l_return_status;
3192: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3193: EXCEPTION
3194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3196: (
3190: END IF;
3191: x_return_status := l_return_status;
3192: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3193: EXCEPTION
3194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3196: (
3197: l_api_name,
3198: G_PKG_NAME,
3191: x_return_status := l_return_status;
3192: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3193: EXCEPTION
3194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3195: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3196: (
3197: l_api_name,
3198: G_PKG_NAME,
3199: 'OKC_API.G_RET_STS_ERROR',
3195: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3196: (
3197: l_api_name,
3198: G_PKG_NAME,
3199: 'OKC_API.G_RET_STS_ERROR',
3200: x_msg_count,
3201: x_msg_data,
3202: '_PVT'
3203: );
3200: x_msg_count,
3201: x_msg_data,
3202: '_PVT'
3203: );
3204: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3206: (
3207: l_api_name,
3208: G_PKG_NAME,
3201: x_msg_data,
3202: '_PVT'
3203: );
3204: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3206: (
3207: l_api_name,
3208: G_PKG_NAME,
3209: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3205: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3206: (
3207: l_api_name,
3208: G_PKG_NAME,
3209: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3210: x_msg_count,
3211: x_msg_data,
3212: '_PVT'
3213: );
3211: x_msg_data,
3212: '_PVT'
3213: );
3214: WHEN OTHERS THEN
3215: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3216: (
3217: l_api_name,
3218: G_PKG_NAME,
3219: 'OTHERS',
3231: x_return_status OUT NOCOPY VARCHAR2,
3232: x_msg_count OUT NOCOPY NUMBER,
3233: x_msg_data OUT NOCOPY VARCHAR2,
3234: p_OKL_TAX_LINES_tbl IN OKL_TAX_LINES_tbl_type,
3235: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
3236:
3237: l_api_version CONSTANT NUMBER := 1;
3238: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3239: i NUMBER := 0;
3237: l_api_version CONSTANT NUMBER := 1;
3238: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3239: i NUMBER := 0;
3240: BEGIN
3241: OKC_API.init_msg_list(p_init_msg_list);
3242: -- Make sure PL/SQL table has records in it before passing
3243: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
3244: i := p_OKL_TAX_LINES_tbl.FIRST;
3245: LOOP
3243: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
3244: i := p_OKL_TAX_LINES_tbl.FIRST;
3245: LOOP
3246: DECLARE
3247: l_error_rec OKC_API.ERROR_REC_TYPE;
3248: BEGIN
3249: l_error_rec.api_name := l_api_name;
3250: l_error_rec.api_package := G_PKG_NAME;
3251: l_error_rec.idx := i;
3250: l_error_rec.api_package := G_PKG_NAME;
3251: l_error_rec.idx := i;
3252: delete_row (
3253: p_api_version => p_api_version,
3254: p_init_msg_list => OKC_API.G_FALSE,
3255: x_return_status => l_error_rec.error_type,
3256: x_msg_count => l_error_rec.msg_count,
3257: x_msg_data => l_error_rec.msg_data,
3258: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i));
3255: x_return_status => l_error_rec.error_type,
3256: x_msg_count => l_error_rec.msg_count,
3257: x_msg_data => l_error_rec.msg_data,
3258: p_OKL_TAX_LINES_rec => p_OKL_TAX_LINES_tbl(i));
3259: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
3260: l_error_rec.sqlcode := SQLCODE;
3261: load_error_tbl(l_error_rec, px_error_tbl);
3262: ELSE
3263: x_msg_count := l_error_rec.msg_count;
3263: x_msg_count := l_error_rec.msg_count;
3264: x_msg_data := l_error_rec.msg_data;
3265: END IF;
3266: EXCEPTION
3267: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3268: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3269: l_error_rec.sqlcode := SQLCODE;
3270: load_error_tbl(l_error_rec, px_error_tbl);
3271: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3264: x_msg_data := l_error_rec.msg_data;
3265: END IF;
3266: EXCEPTION
3267: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3268: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3269: l_error_rec.sqlcode := SQLCODE;
3270: load_error_tbl(l_error_rec, px_error_tbl);
3271: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3272: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3267: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3268: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3269: l_error_rec.sqlcode := SQLCODE;
3270: load_error_tbl(l_error_rec, px_error_tbl);
3271: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3272: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3273: l_error_rec.sqlcode := SQLCODE;
3274: load_error_tbl(l_error_rec, px_error_tbl);
3275: WHEN OTHERS THEN
3268: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3269: l_error_rec.sqlcode := SQLCODE;
3270: load_error_tbl(l_error_rec, px_error_tbl);
3271: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3272: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3273: l_error_rec.sqlcode := SQLCODE;
3274: load_error_tbl(l_error_rec, px_error_tbl);
3275: WHEN OTHERS THEN
3276: l_error_rec.error_type := 'OTHERS';
3283: END IF;
3284: -- Loop through the error_tbl to find the error with the highest severity
3285: -- and return it.
3286: x_return_status := find_highest_exception(px_error_tbl);
3287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3288: EXCEPTION
3289: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3290: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3291: (
3285: -- and return it.
3286: x_return_status := find_highest_exception(px_error_tbl);
3287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3288: EXCEPTION
3289: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3290: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3291: (
3292: l_api_name,
3293: G_PKG_NAME,
3286: x_return_status := find_highest_exception(px_error_tbl);
3287: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3288: EXCEPTION
3289: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3290: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3291: (
3292: l_api_name,
3293: G_PKG_NAME,
3294: 'OKC_API.G_RET_STS_ERROR',
3290: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3291: (
3292: l_api_name,
3293: G_PKG_NAME,
3294: 'OKC_API.G_RET_STS_ERROR',
3295: x_msg_count,
3296: x_msg_data,
3297: '_PVT'
3298: );
3295: x_msg_count,
3296: x_msg_data,
3297: '_PVT'
3298: );
3299: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3300: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3301: (
3302: l_api_name,
3303: G_PKG_NAME,
3296: x_msg_data,
3297: '_PVT'
3298: );
3299: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3300: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3301: (
3302: l_api_name,
3303: G_PKG_NAME,
3304: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3300: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3301: (
3302: l_api_name,
3303: G_PKG_NAME,
3304: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3305: x_msg_count,
3306: x_msg_data,
3307: '_PVT'
3308: );
3306: x_msg_data,
3307: '_PVT'
3308: );
3309: WHEN OTHERS THEN
3310: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3311: (
3312: l_api_name,
3313: G_PKG_NAME,
3314: 'OTHERS',
3330: p_OKL_TAX_LINES_tbl IN OKL_TAX_LINES_tbl_type) IS
3331:
3332: l_api_version CONSTANT NUMBER := 1;
3333: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3334: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3335: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3336: BEGIN
3337: OKC_API.init_msg_list(p_init_msg_list);
3338: -- Make sure PL/SQL table has records in it before passing
3331:
3332: l_api_version CONSTANT NUMBER := 1;
3333: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3334: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3335: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3336: BEGIN
3337: OKC_API.init_msg_list(p_init_msg_list);
3338: -- Make sure PL/SQL table has records in it before passing
3339: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
3333: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3334: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3335: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3336: BEGIN
3337: OKC_API.init_msg_list(p_init_msg_list);
3338: -- Make sure PL/SQL table has records in it before passing
3339: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
3340: delete_row (
3341: p_api_version => p_api_version,
3338: -- Make sure PL/SQL table has records in it before passing
3339: IF (p_OKL_TAX_LINES_tbl.COUNT > 0) THEN
3340: delete_row (
3341: p_api_version => p_api_version,
3342: p_init_msg_list => OKC_API.G_FALSE,
3343: x_return_status => x_return_status,
3344: x_msg_count => x_msg_count,
3345: x_msg_data => x_msg_data,
3346: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
3345: x_msg_data => x_msg_data,
3346: p_OKL_TAX_LINES_tbl => p_OKL_TAX_LINES_tbl,
3347: px_error_tbl => l_error_tbl);
3348: END IF;
3349: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3350: EXCEPTION
3351: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3352: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3353: (
3347: px_error_tbl => l_error_tbl);
3348: END IF;
3349: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3350: EXCEPTION
3351: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3352: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3353: (
3354: l_api_name,
3355: G_PKG_NAME,
3348: END IF;
3349: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3350: EXCEPTION
3351: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3352: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3353: (
3354: l_api_name,
3355: G_PKG_NAME,
3356: 'OKC_API.G_RET_STS_ERROR',
3352: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3353: (
3354: l_api_name,
3355: G_PKG_NAME,
3356: 'OKC_API.G_RET_STS_ERROR',
3357: x_msg_count,
3358: x_msg_data,
3359: '_PVT'
3360: );
3357: x_msg_count,
3358: x_msg_data,
3359: '_PVT'
3360: );
3361: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3362: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3363: (
3364: l_api_name,
3365: G_PKG_NAME,
3358: x_msg_data,
3359: '_PVT'
3360: );
3361: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3362: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3363: (
3364: l_api_name,
3365: G_PKG_NAME,
3366: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3362: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3363: (
3364: l_api_name,
3365: G_PKG_NAME,
3366: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3367: x_msg_count,
3368: x_msg_data,
3369: '_PVT'
3370: );
3368: x_msg_data,
3369: '_PVT'
3370: );
3371: WHEN OTHERS THEN
3372: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3373: (
3374: l_api_name,
3375: G_PKG_NAME,
3376: 'OTHERS',