3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
36: ---------------------------------------------------------------------------
37: -- FUNCTION find_highest_exception
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);
218: ) RETURN taav_rec_type IS
219: l_taav_rec taav_rec_type;
220: l_row_notfound BOOLEAN := TRUE;
221: BEGIN
222: x_return_status := OKC_API.G_RET_STS_SUCCESS;
223: l_taav_rec := get_rec(p_taav_rec, l_row_notfound);
224: IF (l_row_notfound) THEN
225: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
226: x_return_status := OKC_API.G_RET_STS_ERROR;
221: BEGIN
222: x_return_status := OKC_API.G_RET_STS_SUCCESS;
223: l_taav_rec := get_rec(p_taav_rec, l_row_notfound);
224: IF (l_row_notfound) THEN
225: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
226: x_return_status := OKC_API.G_RET_STS_ERROR;
227: END IF;
228: RETURN(l_taav_rec);
229: END get_rec;
222: x_return_status := OKC_API.G_RET_STS_SUCCESS;
223: l_taav_rec := get_rec(p_taav_rec, l_row_notfound);
224: IF (l_row_notfound) THEN
225: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
226: x_return_status := OKC_API.G_RET_STS_ERROR;
227: END IF;
228: RETURN(l_taav_rec);
229: END get_rec;
230: -----------------------------------------------------------
365: ) RETURN taa_rec_type IS
366: l_taa_rec taa_rec_type;
367: l_row_notfound BOOLEAN := TRUE;
368: BEGIN
369: x_return_status := OKC_API.G_RET_STS_SUCCESS;
370: l_taa_rec := get_rec(p_taa_rec, l_row_notfound);
371: IF (l_row_notfound) THEN
372: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
373: x_return_status := OKC_API.G_RET_STS_ERROR;
368: BEGIN
369: x_return_status := OKC_API.G_RET_STS_SUCCESS;
370: l_taa_rec := get_rec(p_taa_rec, l_row_notfound);
371: IF (l_row_notfound) THEN
372: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
373: x_return_status := OKC_API.G_RET_STS_ERROR;
374: END IF;
375: RETURN(l_taa_rec);
376: END get_rec;
369: x_return_status := OKC_API.G_RET_STS_SUCCESS;
370: l_taa_rec := get_rec(p_taa_rec, l_row_notfound);
371: IF (l_row_notfound) THEN
372: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
373: x_return_status := OKC_API.G_RET_STS_ERROR;
374: END IF;
375: RETURN(l_taa_rec);
376: END get_rec;
377: -----------------------------------------------------------
391: p_taav_rec IN taav_rec_type
392: ) RETURN taav_rec_type IS
393: l_taav_rec taav_rec_type := p_taav_rec;
394: BEGIN
395: IF (l_taav_rec.id = OKC_API.G_MISS_NUM ) THEN
396: l_taav_rec.id := NULL;
397: END IF;
398: IF (l_taav_rec.tcn_id = OKC_API.G_MISS_NUM ) THEN
399: l_taav_rec.tcn_id := NULL;
394: BEGIN
395: IF (l_taav_rec.id = OKC_API.G_MISS_NUM ) THEN
396: l_taav_rec.id := NULL;
397: END IF;
398: IF (l_taav_rec.tcn_id = OKC_API.G_MISS_NUM ) THEN
399: l_taav_rec.tcn_id := NULL;
400: END IF;
401: IF (l_taav_rec.new_contract_number = OKC_API.G_MISS_CHAR ) THEN
402: l_taav_rec.new_contract_number := NULL;
397: END IF;
398: IF (l_taav_rec.tcn_id = OKC_API.G_MISS_NUM ) THEN
399: l_taav_rec.tcn_id := NULL;
400: END IF;
401: IF (l_taav_rec.new_contract_number = OKC_API.G_MISS_CHAR ) THEN
402: l_taav_rec.new_contract_number := NULL;
403: END IF;
404: IF (l_taav_rec.bill_to_site_id = OKC_API.G_MISS_NUM ) THEN
405: l_taav_rec.bill_to_site_id := NULL;
400: END IF;
401: IF (l_taav_rec.new_contract_number = OKC_API.G_MISS_CHAR ) THEN
402: l_taav_rec.new_contract_number := NULL;
403: END IF;
404: IF (l_taav_rec.bill_to_site_id = OKC_API.G_MISS_NUM ) THEN
405: l_taav_rec.bill_to_site_id := NULL;
406: END IF;
407: IF (l_taav_rec.cust_acct_id = OKC_API.G_MISS_NUM ) THEN
408: l_taav_rec.cust_acct_id := NULL;
403: END IF;
404: IF (l_taav_rec.bill_to_site_id = OKC_API.G_MISS_NUM ) THEN
405: l_taav_rec.bill_to_site_id := NULL;
406: END IF;
407: IF (l_taav_rec.cust_acct_id = OKC_API.G_MISS_NUM ) THEN
408: l_taav_rec.cust_acct_id := NULL;
409: END IF;
410: IF (l_taav_rec.bank_acct_id = OKC_API.G_MISS_NUM ) THEN
411: l_taav_rec.bank_acct_id := NULL;
406: END IF;
407: IF (l_taav_rec.cust_acct_id = OKC_API.G_MISS_NUM ) THEN
408: l_taav_rec.cust_acct_id := NULL;
409: END IF;
410: IF (l_taav_rec.bank_acct_id = OKC_API.G_MISS_NUM ) THEN
411: l_taav_rec.bank_acct_id := NULL;
412: END IF;
413: IF (l_taav_rec.invoice_format_id = OKC_API.G_MISS_NUM ) THEN
414: l_taav_rec.invoice_format_id := NULL;
409: END IF;
410: IF (l_taav_rec.bank_acct_id = OKC_API.G_MISS_NUM ) THEN
411: l_taav_rec.bank_acct_id := NULL;
412: END IF;
413: IF (l_taav_rec.invoice_format_id = OKC_API.G_MISS_NUM ) THEN
414: l_taav_rec.invoice_format_id := NULL;
415: END IF;
416: IF (l_taav_rec.payment_mthd_id = OKC_API.G_MISS_NUM ) THEN
417: l_taav_rec.payment_mthd_id := NULL;
412: END IF;
413: IF (l_taav_rec.invoice_format_id = OKC_API.G_MISS_NUM ) THEN
414: l_taav_rec.invoice_format_id := NULL;
415: END IF;
416: IF (l_taav_rec.payment_mthd_id = OKC_API.G_MISS_NUM ) THEN
417: l_taav_rec.payment_mthd_id := NULL;
418: END IF;
419: IF (l_taav_rec.mla_id = OKC_API.G_MISS_NUM ) THEN
420: l_taav_rec.mla_id := NULL;
415: END IF;
416: IF (l_taav_rec.payment_mthd_id = OKC_API.G_MISS_NUM ) THEN
417: l_taav_rec.payment_mthd_id := NULL;
418: END IF;
419: IF (l_taav_rec.mla_id = OKC_API.G_MISS_NUM ) THEN
420: l_taav_rec.mla_id := NULL;
421: END IF;
422: IF (l_taav_rec.credit_line_id = OKC_API.G_MISS_NUM ) THEN
423: l_taav_rec.credit_line_id := NULL;
418: END IF;
419: IF (l_taav_rec.mla_id = OKC_API.G_MISS_NUM ) THEN
420: l_taav_rec.mla_id := NULL;
421: END IF;
422: IF (l_taav_rec.credit_line_id = OKC_API.G_MISS_NUM ) THEN
423: l_taav_rec.credit_line_id := NULL;
424: END IF;
425: IF (l_taav_rec.insurance_yn = OKC_API.G_MISS_CHAR ) THEN
426: l_taav_rec.insurance_yn := NULL;
421: END IF;
422: IF (l_taav_rec.credit_line_id = OKC_API.G_MISS_NUM ) THEN
423: l_taav_rec.credit_line_id := NULL;
424: END IF;
425: IF (l_taav_rec.insurance_yn = OKC_API.G_MISS_CHAR ) THEN
426: l_taav_rec.insurance_yn := NULL;
427: END IF;
428: IF (l_taav_rec.lease_policy_yn = OKC_API.G_MISS_CHAR ) THEN
429: l_taav_rec.lease_policy_yn := NULL;
424: END IF;
425: IF (l_taav_rec.insurance_yn = OKC_API.G_MISS_CHAR ) THEN
426: l_taav_rec.insurance_yn := NULL;
427: END IF;
428: IF (l_taav_rec.lease_policy_yn = OKC_API.G_MISS_CHAR ) THEN
429: l_taav_rec.lease_policy_yn := NULL;
430: END IF;
431: IF (l_taav_rec.ipy_type = OKC_API.G_MISS_CHAR ) THEN
432: l_taav_rec.ipy_type := NULL;
427: END IF;
428: IF (l_taav_rec.lease_policy_yn = OKC_API.G_MISS_CHAR ) THEN
429: l_taav_rec.lease_policy_yn := NULL;
430: END IF;
431: IF (l_taav_rec.ipy_type = OKC_API.G_MISS_CHAR ) THEN
432: l_taav_rec.ipy_type := NULL;
433: END IF;
434: IF (l_taav_rec.policy_number = OKC_API.G_MISS_CHAR ) THEN
435: l_taav_rec.policy_number := NULL;
430: END IF;
431: IF (l_taav_rec.ipy_type = OKC_API.G_MISS_CHAR ) THEN
432: l_taav_rec.ipy_type := NULL;
433: END IF;
434: IF (l_taav_rec.policy_number = OKC_API.G_MISS_CHAR ) THEN
435: l_taav_rec.policy_number := NULL;
436: END IF;
437: IF (l_taav_rec.covered_amt = OKC_API.G_MISS_NUM ) THEN
438: l_taav_rec.covered_amt := NULL;
433: END IF;
434: IF (l_taav_rec.policy_number = OKC_API.G_MISS_CHAR ) THEN
435: l_taav_rec.policy_number := NULL;
436: END IF;
437: IF (l_taav_rec.covered_amt = OKC_API.G_MISS_NUM ) THEN
438: l_taav_rec.covered_amt := NULL;
439: END IF;
440: IF (l_taav_rec.deductible_amt = OKC_API.G_MISS_NUM ) THEN
441: l_taav_rec.deductible_amt := NULL;
436: END IF;
437: IF (l_taav_rec.covered_amt = OKC_API.G_MISS_NUM ) THEN
438: l_taav_rec.covered_amt := NULL;
439: END IF;
440: IF (l_taav_rec.deductible_amt = OKC_API.G_MISS_NUM ) THEN
441: l_taav_rec.deductible_amt := NULL;
442: END IF;
443: IF (l_taav_rec.effective_to_date = OKC_API.G_MISS_DATE ) THEN
444: l_taav_rec.effective_to_date := NULL;
439: END IF;
440: IF (l_taav_rec.deductible_amt = OKC_API.G_MISS_NUM ) THEN
441: l_taav_rec.deductible_amt := NULL;
442: END IF;
443: IF (l_taav_rec.effective_to_date = OKC_API.G_MISS_DATE ) THEN
444: l_taav_rec.effective_to_date := NULL;
445: END IF;
446: IF (l_taav_rec.effective_from_date = OKC_API.G_MISS_DATE ) THEN
447: l_taav_rec.effective_from_date := NULL;
442: END IF;
443: IF (l_taav_rec.effective_to_date = OKC_API.G_MISS_DATE ) THEN
444: l_taav_rec.effective_to_date := NULL;
445: END IF;
446: IF (l_taav_rec.effective_from_date = OKC_API.G_MISS_DATE ) THEN
447: l_taav_rec.effective_from_date := NULL;
448: END IF;
449: IF (l_taav_rec.proof_provided_date = OKC_API.G_MISS_DATE ) THEN
450: l_taav_rec.proof_provided_date := NULL;
445: END IF;
446: IF (l_taav_rec.effective_from_date = OKC_API.G_MISS_DATE ) THEN
447: l_taav_rec.effective_from_date := NULL;
448: END IF;
449: IF (l_taav_rec.proof_provided_date = OKC_API.G_MISS_DATE ) THEN
450: l_taav_rec.proof_provided_date := NULL;
451: END IF;
452: IF (l_taav_rec.proof_required_date = OKC_API.G_MISS_DATE ) THEN
453: l_taav_rec.proof_required_date := NULL;
448: END IF;
449: IF (l_taav_rec.proof_provided_date = OKC_API.G_MISS_DATE ) THEN
450: l_taav_rec.proof_provided_date := NULL;
451: END IF;
452: IF (l_taav_rec.proof_required_date = OKC_API.G_MISS_DATE ) THEN
453: l_taav_rec.proof_required_date := NULL;
454: END IF;
455: IF (l_taav_rec.lessor_insured_yn = OKC_API.G_MISS_CHAR ) THEN
456: l_taav_rec.lessor_insured_yn := NULL;
451: END IF;
452: IF (l_taav_rec.proof_required_date = OKC_API.G_MISS_DATE ) THEN
453: l_taav_rec.proof_required_date := NULL;
454: END IF;
455: IF (l_taav_rec.lessor_insured_yn = OKC_API.G_MISS_CHAR ) THEN
456: l_taav_rec.lessor_insured_yn := NULL;
457: END IF;
458: IF (l_taav_rec.lessor_payee_yn = OKC_API.G_MISS_CHAR ) THEN
459: l_taav_rec.lessor_payee_yn := NULL;
454: END IF;
455: IF (l_taav_rec.lessor_insured_yn = OKC_API.G_MISS_CHAR ) THEN
456: l_taav_rec.lessor_insured_yn := NULL;
457: END IF;
458: IF (l_taav_rec.lessor_payee_yn = OKC_API.G_MISS_CHAR ) THEN
459: l_taav_rec.lessor_payee_yn := NULL;
460: END IF;
461: IF (l_taav_rec.int_id = OKC_API.G_MISS_NUM ) THEN
462: l_taav_rec.int_id := NULL;
457: END IF;
458: IF (l_taav_rec.lessor_payee_yn = OKC_API.G_MISS_CHAR ) THEN
459: l_taav_rec.lessor_payee_yn := NULL;
460: END IF;
461: IF (l_taav_rec.int_id = OKC_API.G_MISS_NUM ) THEN
462: l_taav_rec.int_id := NULL;
463: END IF;
464: IF (l_taav_rec.isu_id = OKC_API.G_MISS_NUM ) THEN
465: l_taav_rec.isu_id := NULL;
460: END IF;
461: IF (l_taav_rec.int_id = OKC_API.G_MISS_NUM ) THEN
462: l_taav_rec.int_id := NULL;
463: END IF;
464: IF (l_taav_rec.isu_id = OKC_API.G_MISS_NUM ) THEN
465: l_taav_rec.isu_id := NULL;
466: END IF;
467: IF (l_taav_rec.agency_site_id = OKC_API.G_MISS_NUM ) THEN
468: l_taav_rec.agency_site_id := NULL;
463: END IF;
464: IF (l_taav_rec.isu_id = OKC_API.G_MISS_NUM ) THEN
465: l_taav_rec.isu_id := NULL;
466: END IF;
467: IF (l_taav_rec.agency_site_id = OKC_API.G_MISS_NUM ) THEN
468: l_taav_rec.agency_site_id := NULL;
469: END IF;
470: IF (l_taav_rec.agent_site_id = OKC_API.G_MISS_NUM ) THEN
471: l_taav_rec.agent_site_id := NULL;
466: END IF;
467: IF (l_taav_rec.agency_site_id = OKC_API.G_MISS_NUM ) THEN
468: l_taav_rec.agency_site_id := NULL;
469: END IF;
470: IF (l_taav_rec.agent_site_id = OKC_API.G_MISS_NUM ) THEN
471: l_taav_rec.agent_site_id := NULL;
472: END IF;
473: IF (l_taav_rec.territory_code = OKC_API.G_MISS_CHAR ) THEN
474: l_taav_rec.territory_code := NULL;
469: END IF;
470: IF (l_taav_rec.agent_site_id = OKC_API.G_MISS_NUM ) THEN
471: l_taav_rec.agent_site_id := NULL;
472: END IF;
473: IF (l_taav_rec.territory_code = OKC_API.G_MISS_CHAR ) THEN
474: l_taav_rec.territory_code := NULL;
475: END IF;
476: IF (l_taav_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
477: l_taav_rec.attribute_category := NULL;
472: END IF;
473: IF (l_taav_rec.territory_code = OKC_API.G_MISS_CHAR ) THEN
474: l_taav_rec.territory_code := NULL;
475: END IF;
476: IF (l_taav_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
477: l_taav_rec.attribute_category := NULL;
478: END IF;
479: IF (l_taav_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
480: l_taav_rec.attribute1 := NULL;
475: END IF;
476: IF (l_taav_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
477: l_taav_rec.attribute_category := NULL;
478: END IF;
479: IF (l_taav_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
480: l_taav_rec.attribute1 := NULL;
481: END IF;
482: IF (l_taav_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
483: l_taav_rec.attribute2 := NULL;
478: END IF;
479: IF (l_taav_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
480: l_taav_rec.attribute1 := NULL;
481: END IF;
482: IF (l_taav_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
483: l_taav_rec.attribute2 := NULL;
484: END IF;
485: IF (l_taav_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
486: l_taav_rec.attribute3 := NULL;
481: END IF;
482: IF (l_taav_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
483: l_taav_rec.attribute2 := NULL;
484: END IF;
485: IF (l_taav_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
486: l_taav_rec.attribute3 := NULL;
487: END IF;
488: IF (l_taav_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
489: l_taav_rec.attribute4 := NULL;
484: END IF;
485: IF (l_taav_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
486: l_taav_rec.attribute3 := NULL;
487: END IF;
488: IF (l_taav_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
489: l_taav_rec.attribute4 := NULL;
490: END IF;
491: IF (l_taav_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
492: l_taav_rec.attribute5 := NULL;
487: END IF;
488: IF (l_taav_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
489: l_taav_rec.attribute4 := NULL;
490: END IF;
491: IF (l_taav_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
492: l_taav_rec.attribute5 := NULL;
493: END IF;
494: IF (l_taav_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
495: l_taav_rec.attribute6 := NULL;
490: END IF;
491: IF (l_taav_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
492: l_taav_rec.attribute5 := NULL;
493: END IF;
494: IF (l_taav_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
495: l_taav_rec.attribute6 := NULL;
496: END IF;
497: IF (l_taav_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
498: l_taav_rec.attribute7 := NULL;
493: END IF;
494: IF (l_taav_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
495: l_taav_rec.attribute6 := NULL;
496: END IF;
497: IF (l_taav_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
498: l_taav_rec.attribute7 := NULL;
499: END IF;
500: IF (l_taav_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
501: l_taav_rec.attribute8 := NULL;
496: END IF;
497: IF (l_taav_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
498: l_taav_rec.attribute7 := NULL;
499: END IF;
500: IF (l_taav_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
501: l_taav_rec.attribute8 := NULL;
502: END IF;
503: IF (l_taav_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
504: l_taav_rec.attribute9 := NULL;
499: END IF;
500: IF (l_taav_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
501: l_taav_rec.attribute8 := NULL;
502: END IF;
503: IF (l_taav_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
504: l_taav_rec.attribute9 := NULL;
505: END IF;
506: IF (l_taav_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
507: l_taav_rec.attribute10 := NULL;
502: END IF;
503: IF (l_taav_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
504: l_taav_rec.attribute9 := NULL;
505: END IF;
506: IF (l_taav_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
507: l_taav_rec.attribute10 := NULL;
508: END IF;
509: IF (l_taav_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
510: l_taav_rec.attribute11 := NULL;
505: END IF;
506: IF (l_taav_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
507: l_taav_rec.attribute10 := NULL;
508: END IF;
509: IF (l_taav_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
510: l_taav_rec.attribute11 := NULL;
511: END IF;
512: IF (l_taav_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
513: l_taav_rec.attribute12 := NULL;
508: END IF;
509: IF (l_taav_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
510: l_taav_rec.attribute11 := NULL;
511: END IF;
512: IF (l_taav_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
513: l_taav_rec.attribute12 := NULL;
514: END IF;
515: IF (l_taav_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
516: l_taav_rec.attribute13 := NULL;
511: END IF;
512: IF (l_taav_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
513: l_taav_rec.attribute12 := NULL;
514: END IF;
515: IF (l_taav_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
516: l_taav_rec.attribute13 := NULL;
517: END IF;
518: IF (l_taav_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
519: l_taav_rec.attribute14 := NULL;
514: END IF;
515: IF (l_taav_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
516: l_taav_rec.attribute13 := NULL;
517: END IF;
518: IF (l_taav_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
519: l_taav_rec.attribute14 := NULL;
520: END IF;
521: IF (l_taav_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
522: l_taav_rec.attribute15 := NULL;
517: END IF;
518: IF (l_taav_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
519: l_taav_rec.attribute14 := NULL;
520: END IF;
521: IF (l_taav_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
522: l_taav_rec.attribute15 := NULL;
523: END IF;
524: IF (l_taav_rec.created_by = OKC_API.G_MISS_NUM ) THEN
525: l_taav_rec.created_by := NULL;
520: END IF;
521: IF (l_taav_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
522: l_taav_rec.attribute15 := NULL;
523: END IF;
524: IF (l_taav_rec.created_by = OKC_API.G_MISS_NUM ) THEN
525: l_taav_rec.created_by := NULL;
526: END IF;
527: IF (l_taav_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
528: l_taav_rec.creation_date := NULL;
523: END IF;
524: IF (l_taav_rec.created_by = OKC_API.G_MISS_NUM ) THEN
525: l_taav_rec.created_by := NULL;
526: END IF;
527: IF (l_taav_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
528: l_taav_rec.creation_date := NULL;
529: END IF;
530: IF (l_taav_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
531: l_taav_rec.last_updated_by := NULL;
526: END IF;
527: IF (l_taav_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
528: l_taav_rec.creation_date := NULL;
529: END IF;
530: IF (l_taav_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
531: l_taav_rec.last_updated_by := NULL;
532: END IF;
533: IF (l_taav_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
534: l_taav_rec.last_update_date := NULL;
529: END IF;
530: IF (l_taav_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
531: l_taav_rec.last_updated_by := NULL;
532: END IF;
533: IF (l_taav_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
534: l_taav_rec.last_update_date := NULL;
535: END IF;
536: IF (l_taav_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
537: l_taav_rec.last_update_login := NULL;
532: END IF;
533: IF (l_taav_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
534: l_taav_rec.last_update_date := NULL;
535: END IF;
536: IF (l_taav_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
537: l_taav_rec.last_update_login := NULL;
538: END IF;
539: RETURN(l_taav_rec);
540: END null_out_defaults;
544: PROCEDURE validate_id(
545: x_return_status OUT NOCOPY VARCHAR2,
546: p_id IN NUMBER) IS
547: BEGIN
548: x_return_status := OKC_API.G_RET_STS_SUCCESS;
549: IF (p_id = OKC_API.G_MISS_NUM OR
550: p_id IS NULL)
551: THEN
552: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
545: x_return_status OUT NOCOPY VARCHAR2,
546: p_id IN NUMBER) IS
547: BEGIN
548: x_return_status := OKC_API.G_RET_STS_SUCCESS;
549: IF (p_id = OKC_API.G_MISS_NUM OR
550: p_id IS NULL)
551: THEN
552: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
553: x_return_status := OKC_API.G_RET_STS_ERROR;
548: x_return_status := OKC_API.G_RET_STS_SUCCESS;
549: IF (p_id = OKC_API.G_MISS_NUM OR
550: p_id IS NULL)
551: THEN
552: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
553: x_return_status := OKC_API.G_RET_STS_ERROR;
554: RAISE G_EXCEPTION_HALT_VALIDATION;
555: END IF;
556: EXCEPTION
549: IF (p_id = OKC_API.G_MISS_NUM OR
550: p_id IS NULL)
551: THEN
552: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
553: x_return_status := OKC_API.G_RET_STS_ERROR;
554: RAISE G_EXCEPTION_HALT_VALIDATION;
555: END IF;
556: EXCEPTION
557: WHEN G_EXCEPTION_HALT_VALIDATION THEN
556: EXCEPTION
557: WHEN G_EXCEPTION_HALT_VALIDATION THEN
558: null;
559: WHEN OTHERS THEN
560: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
561: ,p_msg_name => G_UNEXPECTED_ERROR
562: ,p_token1 => G_SQLCODE_TOKEN
563: ,p_token1_value => SQLCODE
564: ,p_token2 => G_SQLERRM_TOKEN
562: ,p_token1 => G_SQLCODE_TOKEN
563: ,p_token1_value => SQLCODE
564: ,p_token2 => G_SQLERRM_TOKEN
565: ,p_token2_value => SQLERRM);
566: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
567: END validate_id;
568: -------------------------------------
569: -- Validate_Attributes for: TCN_ID --
570: -------------------------------------
571: PROCEDURE validate_tcn_id(
572: x_return_status OUT NOCOPY VARCHAR2,
573: p_tcn_id IN NUMBER) IS
574: BEGIN
575: x_return_status := OKC_API.G_RET_STS_SUCCESS;
576: IF (p_tcn_id = OKC_API.G_MISS_NUM OR
577: p_tcn_id IS NULL)
578: THEN
579: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tcn_id');
572: x_return_status OUT NOCOPY VARCHAR2,
573: p_tcn_id IN NUMBER) IS
574: BEGIN
575: x_return_status := OKC_API.G_RET_STS_SUCCESS;
576: IF (p_tcn_id = OKC_API.G_MISS_NUM OR
577: p_tcn_id IS NULL)
578: THEN
579: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tcn_id');
580: x_return_status := OKC_API.G_RET_STS_ERROR;
575: x_return_status := OKC_API.G_RET_STS_SUCCESS;
576: IF (p_tcn_id = OKC_API.G_MISS_NUM OR
577: p_tcn_id IS NULL)
578: THEN
579: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tcn_id');
580: x_return_status := OKC_API.G_RET_STS_ERROR;
581: RAISE G_EXCEPTION_HALT_VALIDATION;
582: END IF;
583: EXCEPTION
576: IF (p_tcn_id = OKC_API.G_MISS_NUM OR
577: p_tcn_id IS NULL)
578: THEN
579: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tcn_id');
580: x_return_status := OKC_API.G_RET_STS_ERROR;
581: RAISE G_EXCEPTION_HALT_VALIDATION;
582: END IF;
583: EXCEPTION
584: WHEN G_EXCEPTION_HALT_VALIDATION THEN
583: EXCEPTION
584: WHEN G_EXCEPTION_HALT_VALIDATION THEN
585: null;
586: WHEN OTHERS THEN
587: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
588: ,p_msg_name => G_UNEXPECTED_ERROR
589: ,p_token1 => G_SQLCODE_TOKEN
590: ,p_token1_value => SQLCODE
591: ,p_token2 => G_SQLERRM_TOKEN
589: ,p_token1 => G_SQLCODE_TOKEN
590: ,p_token1_value => SQLCODE
591: ,p_token2 => G_SQLERRM_TOKEN
592: ,p_token2_value => SQLERRM);
593: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
594: END validate_tcn_id;
595: ---------------------------------------------------------------------------
596: -- FUNCTION Validate_Attributes
597: ---------------------------------------------------------------------------
600: -------------------------------------------------------
601: FUNCTION Validate_Attributes (
602: p_taav_rec IN taav_rec_type
603: ) RETURN VARCHAR2 IS
604: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
605: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
606: BEGIN
607: -----------------------------
608: -- Column Level Validation --
601: FUNCTION Validate_Attributes (
602: p_taav_rec IN taav_rec_type
603: ) RETURN VARCHAR2 IS
604: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
605: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
606: BEGIN
607: -----------------------------
608: -- Column Level Validation --
609: -----------------------------
610: -- ***
611: -- id
612: -- ***
613: validate_id(x_return_status, p_taav_rec.id);
614: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
615: l_return_status := x_return_status;
616: RAISE G_EXCEPTION_HALT_VALIDATION;
617: END IF;
618:
619: -- ***
620: -- tcn_id
621: -- ***
622: validate_tcn_id(x_return_status, p_taav_rec.tcn_id);
623: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
624: l_return_status := x_return_status;
625: RAISE G_EXCEPTION_HALT_VALIDATION;
626: END IF;
627:
629: EXCEPTION
630: WHEN G_EXCEPTION_HALT_VALIDATION THEN
631: RETURN(l_return_status);
632: WHEN OTHERS THEN
633: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
634: ,p_msg_name => G_UNEXPECTED_ERROR
635: ,p_token1 => G_SQLCODE_TOKEN
636: ,p_token1_value => SQLCODE
637: ,p_token2 => G_SQLERRM_TOKEN
635: ,p_token1 => G_SQLCODE_TOKEN
636: ,p_token1_value => SQLCODE
637: ,p_token2 => G_SQLERRM_TOKEN
638: ,p_token2_value => SQLERRM);
639: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
640: RETURN(l_return_status);
641: END Validate_Attributes;
642: ---------------------------------------------------------------------------
643: -- PROCEDURE Validate_Record
648: FUNCTION Validate_Record (
649: p_taav_rec IN taav_rec_type,
650: p_db_taav_rec IN taav_rec_type
651: ) RETURN VARCHAR2 IS
652: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
653: BEGIN
654: RETURN (l_return_status);
655: END Validate_Record;
656: FUNCTION Validate_Record (
655: END Validate_Record;
656: FUNCTION Validate_Record (
657: p_taav_rec IN taav_rec_type
658: ) RETURN VARCHAR2 IS
659: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
660: l_db_taav_rec taav_rec_type := get_rec(p_taav_rec);
661: BEGIN
662: l_return_status := Validate_Record(p_taav_rec => p_taav_rec,
663: p_db_taav_rec => l_db_taav_rec);
790: p_taav_rec IN taav_rec_type) IS
791:
792: l_api_version CONSTANT NUMBER := 1;
793: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
794: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
795: l_taav_rec taav_rec_type := p_taav_rec;
796: l_taa_rec taa_rec_type;
797: l_taa_rec taa_rec_type;
798: BEGIN
795: l_taav_rec taav_rec_type := p_taav_rec;
796: l_taa_rec taa_rec_type;
797: l_taa_rec taa_rec_type;
798: BEGIN
799: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
800: G_PKG_NAME,
801: p_init_msg_list,
802: l_api_version,
803: p_api_version,
802: l_api_version,
803: p_api_version,
804: '_PVT',
805: x_return_status);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
803: p_api_version,
804: '_PVT',
805: x_return_status);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
811: --- Validate all non-missing attributes (Item Level Validation)
804: '_PVT',
805: x_return_status);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
811: --- Validate all non-missing attributes (Item Level Validation)
812: l_return_status := Validate_Attributes(l_taav_rec);
805: x_return_status);
806: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
807: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
808: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
809: RAISE OKC_API.G_EXCEPTION_ERROR;
810: END IF;
811: --- Validate all non-missing attributes (Item Level Validation)
812: l_return_status := Validate_Attributes(l_taav_rec);
813: --- If any errors happen abort API
810: END IF;
811: --- Validate all non-missing attributes (Item Level Validation)
812: l_return_status := Validate_Attributes(l_taav_rec);
813: --- If any errors happen abort API
814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
811: --- Validate all non-missing attributes (Item Level Validation)
812: l_return_status := Validate_Attributes(l_taav_rec);
813: --- If any errors happen abort API
814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
819: l_return_status := Validate_Record(l_taav_rec);
812: l_return_status := Validate_Attributes(l_taav_rec);
813: --- If any errors happen abort API
814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
819: l_return_status := Validate_Record(l_taav_rec);
820: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
813: --- If any errors happen abort API
814: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
819: l_return_status := Validate_Record(l_taav_rec);
820: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
816: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
819: l_return_status := Validate_Record(l_taav_rec);
820: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
823: RAISE OKC_API.G_EXCEPTION_ERROR;
824: END IF;
817: RAISE OKC_API.G_EXCEPTION_ERROR;
818: END IF;
819: l_return_status := Validate_Record(l_taav_rec);
820: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
823: RAISE OKC_API.G_EXCEPTION_ERROR;
824: END IF;
825: x_return_status := l_return_status;
818: END IF;
819: l_return_status := Validate_Record(l_taav_rec);
820: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
823: RAISE OKC_API.G_EXCEPTION_ERROR;
824: END IF;
825: x_return_status := l_return_status;
826: EXCEPTION
819: l_return_status := Validate_Record(l_taav_rec);
820: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
823: RAISE OKC_API.G_EXCEPTION_ERROR;
824: END IF;
825: x_return_status := l_return_status;
826: EXCEPTION
827: WHEN OKC_API.G_EXCEPTION_ERROR THEN
823: RAISE OKC_API.G_EXCEPTION_ERROR;
824: END IF;
825: x_return_status := l_return_status;
826: EXCEPTION
827: WHEN OKC_API.G_EXCEPTION_ERROR THEN
828: x_return_status := OKC_API.HANDLE_EXCEPTIONS
829: (
830: l_api_name,
831: G_PKG_NAME,
824: END IF;
825: x_return_status := l_return_status;
826: EXCEPTION
827: WHEN OKC_API.G_EXCEPTION_ERROR THEN
828: x_return_status := OKC_API.HANDLE_EXCEPTIONS
829: (
830: l_api_name,
831: G_PKG_NAME,
832: 'OKC_API.G_RET_STS_ERROR',
828: x_return_status := OKC_API.HANDLE_EXCEPTIONS
829: (
830: l_api_name,
831: G_PKG_NAME,
832: 'OKC_API.G_RET_STS_ERROR',
833: x_msg_count,
834: x_msg_data,
835: '_PVT'
836: );
833: x_msg_count,
834: x_msg_data,
835: '_PVT'
836: );
837: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
838: x_return_status := OKC_API.HANDLE_EXCEPTIONS
839: (
840: l_api_name,
841: G_PKG_NAME,
834: x_msg_data,
835: '_PVT'
836: );
837: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
838: x_return_status := OKC_API.HANDLE_EXCEPTIONS
839: (
840: l_api_name,
841: G_PKG_NAME,
842: 'OKC_API.G_RET_STS_UNEXP_ERROR',
838: x_return_status := OKC_API.HANDLE_EXCEPTIONS
839: (
840: l_api_name,
841: G_PKG_NAME,
842: 'OKC_API.G_RET_STS_UNEXP_ERROR',
843: x_msg_count,
844: x_msg_data,
845: '_PVT'
846: );
844: x_msg_data,
845: '_PVT'
846: );
847: WHEN OTHERS THEN
848: x_return_status := OKC_API.HANDLE_EXCEPTIONS
849: (
850: l_api_name,
851: G_PKG_NAME,
852: 'OTHERS',
864: x_return_status OUT NOCOPY VARCHAR2,
865: x_msg_count OUT NOCOPY NUMBER,
866: x_msg_data OUT NOCOPY VARCHAR2,
867: p_taav_tbl IN taav_tbl_type,
868: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
869:
870: l_api_version CONSTANT NUMBER := 1;
871: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
872: i NUMBER := 0;
870: l_api_version CONSTANT NUMBER := 1;
871: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
872: i NUMBER := 0;
873: BEGIN
874: OKC_API.init_msg_list(p_init_msg_list);
875: -- Make sure PL/SQL table has records in it before passing
876: IF (p_taav_tbl.COUNT > 0) THEN
877: i := p_taav_tbl.FIRST;
878: LOOP
876: IF (p_taav_tbl.COUNT > 0) THEN
877: i := p_taav_tbl.FIRST;
878: LOOP
879: DECLARE
880: l_error_rec OKC_API.ERROR_REC_TYPE;
881: BEGIN
882: l_error_rec.api_name := l_api_name;
883: l_error_rec.api_package := G_PKG_NAME;
884: l_error_rec.idx := i;
883: l_error_rec.api_package := G_PKG_NAME;
884: l_error_rec.idx := i;
885: validate_row (
886: p_api_version => p_api_version,
887: p_init_msg_list => OKC_API.G_FALSE,
888: x_return_status => l_error_rec.error_type,
889: x_msg_count => l_error_rec.msg_count,
890: x_msg_data => l_error_rec.msg_data,
891: p_taav_rec => p_taav_tbl(i));
888: x_return_status => l_error_rec.error_type,
889: x_msg_count => l_error_rec.msg_count,
890: x_msg_data => l_error_rec.msg_data,
891: p_taav_rec => p_taav_tbl(i));
892: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
893: l_error_rec.sqlcode := SQLCODE;
894: load_error_tbl(l_error_rec, px_error_tbl);
895: ELSE
896: x_msg_count := l_error_rec.msg_count;
896: x_msg_count := l_error_rec.msg_count;
897: x_msg_data := l_error_rec.msg_data;
898: END IF;
899: EXCEPTION
900: WHEN OKC_API.G_EXCEPTION_ERROR THEN
901: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
902: l_error_rec.sqlcode := SQLCODE;
903: load_error_tbl(l_error_rec, px_error_tbl);
904: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
897: x_msg_data := l_error_rec.msg_data;
898: END IF;
899: EXCEPTION
900: WHEN OKC_API.G_EXCEPTION_ERROR THEN
901: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
902: l_error_rec.sqlcode := SQLCODE;
903: load_error_tbl(l_error_rec, px_error_tbl);
904: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
905: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
900: WHEN OKC_API.G_EXCEPTION_ERROR THEN
901: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
902: l_error_rec.sqlcode := SQLCODE;
903: load_error_tbl(l_error_rec, px_error_tbl);
904: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
905: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
906: l_error_rec.sqlcode := SQLCODE;
907: load_error_tbl(l_error_rec, px_error_tbl);
908: WHEN OTHERS THEN
901: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
902: l_error_rec.sqlcode := SQLCODE;
903: load_error_tbl(l_error_rec, px_error_tbl);
904: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
905: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
906: l_error_rec.sqlcode := SQLCODE;
907: load_error_tbl(l_error_rec, px_error_tbl);
908: WHEN OTHERS THEN
909: l_error_rec.error_type := 'OTHERS';
916: END IF;
917: -- Loop through the error_tbl to find the error with the highest severity
918: -- and return it.
919: x_return_status := find_highest_exception(px_error_tbl);
920: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
921: EXCEPTION
922: WHEN OKC_API.G_EXCEPTION_ERROR THEN
923: x_return_status := OKC_API.HANDLE_EXCEPTIONS
924: (
918: -- and return it.
919: x_return_status := find_highest_exception(px_error_tbl);
920: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
921: EXCEPTION
922: WHEN OKC_API.G_EXCEPTION_ERROR THEN
923: x_return_status := OKC_API.HANDLE_EXCEPTIONS
924: (
925: l_api_name,
926: G_PKG_NAME,
919: x_return_status := find_highest_exception(px_error_tbl);
920: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
921: EXCEPTION
922: WHEN OKC_API.G_EXCEPTION_ERROR THEN
923: x_return_status := OKC_API.HANDLE_EXCEPTIONS
924: (
925: l_api_name,
926: G_PKG_NAME,
927: 'OKC_API.G_RET_STS_ERROR',
923: x_return_status := OKC_API.HANDLE_EXCEPTIONS
924: (
925: l_api_name,
926: G_PKG_NAME,
927: 'OKC_API.G_RET_STS_ERROR',
928: x_msg_count,
929: x_msg_data,
930: '_PVT'
931: );
928: x_msg_count,
929: x_msg_data,
930: '_PVT'
931: );
932: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
934: (
935: l_api_name,
936: G_PKG_NAME,
929: x_msg_data,
930: '_PVT'
931: );
932: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
934: (
935: l_api_name,
936: G_PKG_NAME,
937: 'OKC_API.G_RET_STS_UNEXP_ERROR',
933: x_return_status := OKC_API.HANDLE_EXCEPTIONS
934: (
935: l_api_name,
936: G_PKG_NAME,
937: 'OKC_API.G_RET_STS_UNEXP_ERROR',
938: x_msg_count,
939: x_msg_data,
940: '_PVT'
941: );
939: x_msg_data,
940: '_PVT'
941: );
942: WHEN OTHERS THEN
943: x_return_status := OKC_API.HANDLE_EXCEPTIONS
944: (
945: l_api_name,
946: G_PKG_NAME,
947: 'OTHERS',
963: p_taav_tbl IN taav_tbl_type) IS
964:
965: l_api_version CONSTANT NUMBER := 1;
966: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
967: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
968: l_error_tbl OKC_API.ERROR_TBL_TYPE;
969: BEGIN
970: OKC_API.init_msg_list(p_init_msg_list);
971: -- Make sure PL/SQL table has records in it before passing
964:
965: l_api_version CONSTANT NUMBER := 1;
966: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
967: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
968: l_error_tbl OKC_API.ERROR_TBL_TYPE;
969: BEGIN
970: OKC_API.init_msg_list(p_init_msg_list);
971: -- Make sure PL/SQL table has records in it before passing
972: IF (p_taav_tbl.COUNT > 0) THEN
966: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
967: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
968: l_error_tbl OKC_API.ERROR_TBL_TYPE;
969: BEGIN
970: OKC_API.init_msg_list(p_init_msg_list);
971: -- Make sure PL/SQL table has records in it before passing
972: IF (p_taav_tbl.COUNT > 0) THEN
973: validate_row (
974: p_api_version => p_api_version,
971: -- Make sure PL/SQL table has records in it before passing
972: IF (p_taav_tbl.COUNT > 0) THEN
973: validate_row (
974: p_api_version => p_api_version,
975: p_init_msg_list => OKC_API.G_FALSE,
976: x_return_status => x_return_status,
977: x_msg_count => x_msg_count,
978: x_msg_data => x_msg_data,
979: p_taav_tbl => p_taav_tbl,
978: x_msg_data => x_msg_data,
979: p_taav_tbl => p_taav_tbl,
980: px_error_tbl => l_error_tbl);
981: END IF;
982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
983: EXCEPTION
984: WHEN OKC_API.G_EXCEPTION_ERROR THEN
985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
986: (
980: px_error_tbl => l_error_tbl);
981: END IF;
982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
983: EXCEPTION
984: WHEN OKC_API.G_EXCEPTION_ERROR THEN
985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
986: (
987: l_api_name,
988: G_PKG_NAME,
981: END IF;
982: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
983: EXCEPTION
984: WHEN OKC_API.G_EXCEPTION_ERROR THEN
985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
986: (
987: l_api_name,
988: G_PKG_NAME,
989: 'OKC_API.G_RET_STS_ERROR',
985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
986: (
987: l_api_name,
988: G_PKG_NAME,
989: 'OKC_API.G_RET_STS_ERROR',
990: x_msg_count,
991: x_msg_data,
992: '_PVT'
993: );
990: x_msg_count,
991: x_msg_data,
992: '_PVT'
993: );
994: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
996: (
997: l_api_name,
998: G_PKG_NAME,
991: x_msg_data,
992: '_PVT'
993: );
994: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
996: (
997: l_api_name,
998: G_PKG_NAME,
999: 'OKC_API.G_RET_STS_UNEXP_ERROR',
995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
996: (
997: l_api_name,
998: G_PKG_NAME,
999: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1000: x_msg_count,
1001: x_msg_data,
1002: '_PVT'
1003: );
1001: x_msg_data,
1002: '_PVT'
1003: );
1004: WHEN OTHERS THEN
1005: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1006: (
1007: l_api_name,
1008: G_PKG_NAME,
1009: 'OTHERS',
1028: x_taa_rec OUT NOCOPY taa_rec_type) IS
1029:
1030: l_api_version CONSTANT NUMBER := 1;
1031: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1032: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1033: l_taa_rec taa_rec_type := p_taa_rec;
1034: l_def_taa_rec taa_rec_type;
1035: --------------------------------------------------
1036: -- Set_Attributes for:OKL_TAA_REQUEST_DETAILS_B --
1038: FUNCTION Set_Attributes (
1039: p_taa_rec IN taa_rec_type,
1040: x_taa_rec OUT NOCOPY taa_rec_type
1041: ) RETURN VARCHAR2 IS
1042: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1043: BEGIN
1044: x_taa_rec := p_taa_rec;
1045: RETURN(l_return_status);
1046: END Set_Attributes;
1044: x_taa_rec := p_taa_rec;
1045: RETURN(l_return_status);
1046: END Set_Attributes;
1047: BEGIN
1048: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1049: p_init_msg_list,
1050: '_PVT',
1051: x_return_status);
1052: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1048: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1049: p_init_msg_list,
1050: '_PVT',
1051: x_return_status);
1052: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1054: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1055: RAISE OKC_API.G_EXCEPTION_ERROR;
1056: END IF;
1049: p_init_msg_list,
1050: '_PVT',
1051: x_return_status);
1052: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1054: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1055: RAISE OKC_API.G_EXCEPTION_ERROR;
1056: END IF;
1057: --- Setting item atributes
1050: '_PVT',
1051: x_return_status);
1052: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1054: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1055: RAISE OKC_API.G_EXCEPTION_ERROR;
1056: END IF;
1057: --- Setting item atributes
1058: l_return_status := Set_Attributes(
1051: x_return_status);
1052: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1054: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1055: RAISE OKC_API.G_EXCEPTION_ERROR;
1056: END IF;
1057: --- Setting item atributes
1058: l_return_status := Set_Attributes(
1059: p_taa_rec, -- IN
1058: l_return_status := Set_Attributes(
1059: p_taa_rec, -- IN
1060: l_taa_rec); -- OUT
1061: --- If any errors happen abort API
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1059: p_taa_rec, -- IN
1060: l_taa_rec); -- OUT
1061: --- If any errors happen abort API
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: INSERT INTO OKL_TAA_REQUEST_DETAILS_B(
1060: l_taa_rec); -- OUT
1061: --- If any errors happen abort API
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: INSERT INTO OKL_TAA_REQUEST_DETAILS_B(
1068: id,
1061: --- If any errors happen abort API
1062: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1064: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1065: RAISE OKC_API.G_EXCEPTION_ERROR;
1066: END IF;
1067: INSERT INTO OKL_TAA_REQUEST_DETAILS_B(
1068: id,
1069: tcn_id,
1164: l_taa_rec.last_update_login);
1165: -- Set OUT values
1166: x_taa_rec := l_taa_rec;
1167: x_return_status := l_return_status;
1168: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1169: EXCEPTION
1170: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1171: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1172: (
1166: x_taa_rec := l_taa_rec;
1167: x_return_status := l_return_status;
1168: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1169: EXCEPTION
1170: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1171: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1172: (
1173: l_api_name,
1174: G_PKG_NAME,
1167: x_return_status := l_return_status;
1168: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1169: EXCEPTION
1170: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1171: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1172: (
1173: l_api_name,
1174: G_PKG_NAME,
1175: 'OKC_API.G_RET_STS_ERROR',
1171: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1172: (
1173: l_api_name,
1174: G_PKG_NAME,
1175: 'OKC_API.G_RET_STS_ERROR',
1176: x_msg_count,
1177: x_msg_data,
1178: '_PVT'
1179: );
1176: x_msg_count,
1177: x_msg_data,
1178: '_PVT'
1179: );
1180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1181: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1182: (
1183: l_api_name,
1184: G_PKG_NAME,
1177: x_msg_data,
1178: '_PVT'
1179: );
1180: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1181: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1182: (
1183: l_api_name,
1184: G_PKG_NAME,
1185: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1181: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1182: (
1183: l_api_name,
1184: G_PKG_NAME,
1185: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1186: x_msg_count,
1187: x_msg_data,
1188: '_PVT'
1189: );
1187: x_msg_data,
1188: '_PVT'
1189: );
1190: WHEN OTHERS THEN
1191: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1192: (
1193: l_api_name,
1194: G_PKG_NAME,
1195: 'OTHERS',
1211: x_taav_rec OUT NOCOPY taav_rec_type) IS
1212:
1213: l_api_version CONSTANT NUMBER := 1;
1214: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1215: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1216: l_taav_rec taav_rec_type := p_taav_rec;
1217: l_def_taav_rec taav_rec_type;
1218: l_taa_rec taa_rec_type;
1219: lx_taa_rec taa_rec_type;
1238: FUNCTION Set_Attributes (
1239: p_taav_rec IN taav_rec_type,
1240: x_taav_rec OUT NOCOPY taav_rec_type
1241: ) RETURN VARCHAR2 IS
1242: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1243: BEGIN
1244: x_taav_rec := p_taav_rec;
1245: RETURN(l_return_status);
1246: END Set_Attributes;
1244: x_taav_rec := p_taav_rec;
1245: RETURN(l_return_status);
1246: END Set_Attributes;
1247: BEGIN
1248: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1249: G_PKG_NAME,
1250: p_init_msg_list,
1251: l_api_version,
1252: p_api_version,
1251: l_api_version,
1252: p_api_version,
1253: '_PVT',
1254: x_return_status);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_ERROR;
1259: END IF;
1252: p_api_version,
1253: '_PVT',
1254: x_return_status);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_ERROR;
1259: END IF;
1260: l_taav_rec := null_out_defaults(p_taav_rec);
1253: '_PVT',
1254: x_return_status);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_ERROR;
1259: END IF;
1260: l_taav_rec := null_out_defaults(p_taav_rec);
1261: -- Set primary key value
1254: x_return_status);
1255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1258: RAISE OKC_API.G_EXCEPTION_ERROR;
1259: END IF;
1260: l_taav_rec := null_out_defaults(p_taav_rec);
1261: -- Set primary key value
1262: l_taav_rec.ID := get_seq_id;
1264: l_return_Status := Set_Attributes(
1265: l_taav_rec, -- IN
1266: l_def_taav_rec); -- OUT
1267: --- If any errors happen abort API
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1271: RAISE OKC_API.G_EXCEPTION_ERROR;
1272: END IF;
1265: l_taav_rec, -- IN
1266: l_def_taav_rec); -- OUT
1267: --- If any errors happen abort API
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1271: RAISE OKC_API.G_EXCEPTION_ERROR;
1272: END IF;
1273: l_def_taav_rec := fill_who_columns(l_def_taav_rec);
1266: l_def_taav_rec); -- OUT
1267: --- If any errors happen abort API
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1271: RAISE OKC_API.G_EXCEPTION_ERROR;
1272: END IF;
1273: l_def_taav_rec := fill_who_columns(l_def_taav_rec);
1274: --- Validate all non-missing attributes (Item Level Validation)
1267: --- If any errors happen abort API
1268: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1270: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1271: RAISE OKC_API.G_EXCEPTION_ERROR;
1272: END IF;
1273: l_def_taav_rec := fill_who_columns(l_def_taav_rec);
1274: --- Validate all non-missing attributes (Item Level Validation)
1275: l_return_status := Validate_Attributes(l_def_taav_rec);
1273: l_def_taav_rec := fill_who_columns(l_def_taav_rec);
1274: --- Validate all non-missing attributes (Item Level Validation)
1275: l_return_status := Validate_Attributes(l_def_taav_rec);
1276: --- If any errors happen abort API
1277: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1274: --- Validate all non-missing attributes (Item Level Validation)
1275: l_return_status := Validate_Attributes(l_def_taav_rec);
1276: --- If any errors happen abort API
1277: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282: l_return_status := Validate_Record(l_def_taav_rec);
1275: l_return_status := Validate_Attributes(l_def_taav_rec);
1276: --- If any errors happen abort API
1277: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282: l_return_status := Validate_Record(l_def_taav_rec);
1283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1276: --- If any errors happen abort API
1277: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1278: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282: l_return_status := Validate_Record(l_def_taav_rec);
1283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1284: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1279: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282: l_return_status := Validate_Record(l_def_taav_rec);
1283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1284: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1285: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1286: RAISE OKC_API.G_EXCEPTION_ERROR;
1287: END IF;
1280: RAISE OKC_API.G_EXCEPTION_ERROR;
1281: END IF;
1282: l_return_status := Validate_Record(l_def_taav_rec);
1283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1284: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1285: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1286: RAISE OKC_API.G_EXCEPTION_ERROR;
1287: END IF;
1288: -----------------------------------------
1281: END IF;
1282: l_return_status := Validate_Record(l_def_taav_rec);
1283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1284: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1285: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1286: RAISE OKC_API.G_EXCEPTION_ERROR;
1287: END IF;
1288: -----------------------------------------
1289: -- Move VIEW record to "Child" records --
1282: l_return_status := Validate_Record(l_def_taav_rec);
1283: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1284: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1285: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1286: RAISE OKC_API.G_EXCEPTION_ERROR;
1287: END IF;
1288: -----------------------------------------
1289: -- Move VIEW record to "Child" records --
1290: -----------------------------------------
1299: x_msg_data,
1300: l_taa_rec,
1301: lx_taa_rec
1302: );
1303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1306: RAISE OKC_API.G_EXCEPTION_ERROR;
1307: END IF;
1300: l_taa_rec,
1301: lx_taa_rec
1302: );
1303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1306: RAISE OKC_API.G_EXCEPTION_ERROR;
1307: END IF;
1308: migrate(lx_taa_rec, l_def_taav_rec);
1301: lx_taa_rec
1302: );
1303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1306: RAISE OKC_API.G_EXCEPTION_ERROR;
1307: END IF;
1308: migrate(lx_taa_rec, l_def_taav_rec);
1309: -- Set OUT values
1302: );
1303: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1304: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1305: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1306: RAISE OKC_API.G_EXCEPTION_ERROR;
1307: END IF;
1308: migrate(lx_taa_rec, l_def_taav_rec);
1309: -- Set OUT values
1310: x_taav_rec := l_def_taav_rec;
1308: migrate(lx_taa_rec, l_def_taav_rec);
1309: -- Set OUT values
1310: x_taav_rec := l_def_taav_rec;
1311: x_return_status := l_return_status;
1312: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1313: EXCEPTION
1314: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1316: (
1310: x_taav_rec := l_def_taav_rec;
1311: x_return_status := l_return_status;
1312: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1313: EXCEPTION
1314: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1316: (
1317: l_api_name,
1318: G_PKG_NAME,
1311: x_return_status := l_return_status;
1312: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1313: EXCEPTION
1314: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1316: (
1317: l_api_name,
1318: G_PKG_NAME,
1319: 'OKC_API.G_RET_STS_ERROR',
1315: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1316: (
1317: l_api_name,
1318: G_PKG_NAME,
1319: 'OKC_API.G_RET_STS_ERROR',
1320: x_msg_count,
1321: x_msg_data,
1322: '_PVT'
1323: );
1320: x_msg_count,
1321: x_msg_data,
1322: '_PVT'
1323: );
1324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1325: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1326: (
1327: l_api_name,
1328: G_PKG_NAME,
1321: x_msg_data,
1322: '_PVT'
1323: );
1324: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1325: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1326: (
1327: l_api_name,
1328: G_PKG_NAME,
1329: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1325: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1326: (
1327: l_api_name,
1328: G_PKG_NAME,
1329: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1330: x_msg_count,
1331: x_msg_data,
1332: '_PVT'
1333: );
1331: x_msg_data,
1332: '_PVT'
1333: );
1334: WHEN OTHERS THEN
1335: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1336: (
1337: l_api_name,
1338: G_PKG_NAME,
1339: 'OTHERS',
1352: x_msg_count OUT NOCOPY NUMBER,
1353: x_msg_data OUT NOCOPY VARCHAR2,
1354: p_taav_tbl IN taav_tbl_type,
1355: x_taav_tbl OUT NOCOPY taav_tbl_type,
1356: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1357:
1358: l_api_version CONSTANT NUMBER := 1;
1359: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1360: i NUMBER := 0;
1358: l_api_version CONSTANT NUMBER := 1;
1359: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1360: i NUMBER := 0;
1361: BEGIN
1362: OKC_API.init_msg_list(p_init_msg_list);
1363: -- Make sure PL/SQL table has records in it before passing
1364: IF (p_taav_tbl.COUNT > 0) THEN
1365: i := p_taav_tbl.FIRST;
1366: LOOP
1364: IF (p_taav_tbl.COUNT > 0) THEN
1365: i := p_taav_tbl.FIRST;
1366: LOOP
1367: DECLARE
1368: l_error_rec OKC_API.ERROR_REC_TYPE;
1369: BEGIN
1370: l_error_rec.api_name := l_api_name;
1371: l_error_rec.api_package := G_PKG_NAME;
1372: l_error_rec.idx := i;
1371: l_error_rec.api_package := G_PKG_NAME;
1372: l_error_rec.idx := i;
1373: insert_row (
1374: p_api_version => p_api_version,
1375: p_init_msg_list => OKC_API.G_FALSE,
1376: x_return_status => l_error_rec.error_type,
1377: x_msg_count => l_error_rec.msg_count,
1378: x_msg_data => l_error_rec.msg_data,
1379: p_taav_rec => p_taav_tbl(i),
1377: x_msg_count => l_error_rec.msg_count,
1378: x_msg_data => l_error_rec.msg_data,
1379: p_taav_rec => p_taav_tbl(i),
1380: x_taav_rec => x_taav_tbl(i));
1381: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1382: l_error_rec.sqlcode := SQLCODE;
1383: load_error_tbl(l_error_rec, px_error_tbl);
1384: ELSE
1385: x_msg_count := l_error_rec.msg_count;
1385: x_msg_count := l_error_rec.msg_count;
1386: x_msg_data := l_error_rec.msg_data;
1387: END IF;
1388: EXCEPTION
1389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1390: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1391: l_error_rec.sqlcode := SQLCODE;
1392: load_error_tbl(l_error_rec, px_error_tbl);
1393: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1386: x_msg_data := l_error_rec.msg_data;
1387: END IF;
1388: EXCEPTION
1389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1390: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1391: l_error_rec.sqlcode := SQLCODE;
1392: load_error_tbl(l_error_rec, px_error_tbl);
1393: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1394: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1389: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1390: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1391: l_error_rec.sqlcode := SQLCODE;
1392: load_error_tbl(l_error_rec, px_error_tbl);
1393: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1394: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1395: l_error_rec.sqlcode := SQLCODE;
1396: load_error_tbl(l_error_rec, px_error_tbl);
1397: WHEN OTHERS THEN
1390: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1391: l_error_rec.sqlcode := SQLCODE;
1392: load_error_tbl(l_error_rec, px_error_tbl);
1393: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1394: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1395: l_error_rec.sqlcode := SQLCODE;
1396: load_error_tbl(l_error_rec, px_error_tbl);
1397: WHEN OTHERS THEN
1398: l_error_rec.error_type := 'OTHERS';
1405: END IF;
1406: -- Loop through the error_tbl to find the error with the highest severity
1407: -- and return it.
1408: x_return_status := find_highest_exception(px_error_tbl);
1409: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1410: EXCEPTION
1411: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1412: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1413: (
1407: -- and return it.
1408: x_return_status := find_highest_exception(px_error_tbl);
1409: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1410: EXCEPTION
1411: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1412: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1413: (
1414: l_api_name,
1415: G_PKG_NAME,
1408: x_return_status := find_highest_exception(px_error_tbl);
1409: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1410: EXCEPTION
1411: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1412: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1413: (
1414: l_api_name,
1415: G_PKG_NAME,
1416: 'OKC_API.G_RET_STS_ERROR',
1412: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1413: (
1414: l_api_name,
1415: G_PKG_NAME,
1416: 'OKC_API.G_RET_STS_ERROR',
1417: x_msg_count,
1418: x_msg_data,
1419: '_PVT'
1420: );
1417: x_msg_count,
1418: x_msg_data,
1419: '_PVT'
1420: );
1421: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1422: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1423: (
1424: l_api_name,
1425: G_PKG_NAME,
1418: x_msg_data,
1419: '_PVT'
1420: );
1421: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1422: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1423: (
1424: l_api_name,
1425: G_PKG_NAME,
1426: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1422: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1423: (
1424: l_api_name,
1425: G_PKG_NAME,
1426: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1427: x_msg_count,
1428: x_msg_data,
1429: '_PVT'
1430: );
1428: x_msg_data,
1429: '_PVT'
1430: );
1431: WHEN OTHERS THEN
1432: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1433: (
1434: l_api_name,
1435: G_PKG_NAME,
1436: 'OTHERS',
1455: x_taav_tbl OUT NOCOPY taav_tbl_type) IS
1456:
1457: l_api_version CONSTANT NUMBER := 1;
1458: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1459: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1460: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1461: BEGIN
1462: OKC_API.init_msg_list(p_init_msg_list);
1463: -- Make sure PL/SQL table has records in it before passing
1456:
1457: l_api_version CONSTANT NUMBER := 1;
1458: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1459: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1460: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1461: BEGIN
1462: OKC_API.init_msg_list(p_init_msg_list);
1463: -- Make sure PL/SQL table has records in it before passing
1464: IF (p_taav_tbl.COUNT > 0) THEN
1458: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1459: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1460: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1461: BEGIN
1462: OKC_API.init_msg_list(p_init_msg_list);
1463: -- Make sure PL/SQL table has records in it before passing
1464: IF (p_taav_tbl.COUNT > 0) THEN
1465: insert_row (
1466: p_api_version => p_api_version,
1463: -- Make sure PL/SQL table has records in it before passing
1464: IF (p_taav_tbl.COUNT > 0) THEN
1465: insert_row (
1466: p_api_version => p_api_version,
1467: p_init_msg_list => OKC_API.G_FALSE,
1468: x_return_status => x_return_status,
1469: x_msg_count => x_msg_count,
1470: x_msg_data => x_msg_data,
1471: p_taav_tbl => p_taav_tbl,
1471: p_taav_tbl => p_taav_tbl,
1472: x_taav_tbl => x_taav_tbl,
1473: px_error_tbl => l_error_tbl);
1474: END IF;
1475: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1476: EXCEPTION
1477: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1479: (
1473: px_error_tbl => l_error_tbl);
1474: END IF;
1475: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1476: EXCEPTION
1477: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1474: END IF;
1475: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1476: EXCEPTION
1477: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1482: 'OKC_API.G_RET_STS_ERROR',
1478: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1479: (
1480: l_api_name,
1481: G_PKG_NAME,
1482: 'OKC_API.G_RET_STS_ERROR',
1483: x_msg_count,
1484: x_msg_data,
1485: '_PVT'
1486: );
1483: x_msg_count,
1484: x_msg_data,
1485: '_PVT'
1486: );
1487: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1488: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1484: x_msg_data,
1485: '_PVT'
1486: );
1487: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1488: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1492: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1488: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1489: (
1490: l_api_name,
1491: G_PKG_NAME,
1492: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1493: x_msg_count,
1494: x_msg_data,
1495: '_PVT'
1496: );
1494: x_msg_data,
1495: '_PVT'
1496: );
1497: WHEN OTHERS THEN
1498: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1499: (
1500: l_api_name,
1501: G_PKG_NAME,
1502: 'OTHERS',
1528: FOR UPDATE NOWAIT;
1529:
1530: l_api_version CONSTANT NUMBER := 1;
1531: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1532: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1533: l_lock_var lock_csr%ROWTYPE;
1534: l_row_notfound BOOLEAN := FALSE;
1535: lc_row_notfound BOOLEAN := FALSE;
1536: BEGIN
1533: l_lock_var lock_csr%ROWTYPE;
1534: l_row_notfound BOOLEAN := FALSE;
1535: lc_row_notfound BOOLEAN := FALSE;
1536: BEGIN
1537: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1538: p_init_msg_list,
1539: '_PVT',
1540: x_return_status);
1541: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1537: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1538: p_init_msg_list,
1539: '_PVT',
1540: x_return_status);
1541: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1542: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1543: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1544: RAISE OKC_API.G_EXCEPTION_ERROR;
1545: END IF;
1538: p_init_msg_list,
1539: '_PVT',
1540: x_return_status);
1541: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1542: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1543: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1544: RAISE OKC_API.G_EXCEPTION_ERROR;
1545: END IF;
1546: BEGIN
1539: '_PVT',
1540: x_return_status);
1541: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1542: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1543: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1544: RAISE OKC_API.G_EXCEPTION_ERROR;
1545: END IF;
1546: BEGIN
1547: OPEN lock_csr(p_taa_rec);
1540: x_return_status);
1541: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1542: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1543: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1544: RAISE OKC_API.G_EXCEPTION_ERROR;
1545: END IF;
1546: BEGIN
1547: OPEN lock_csr(p_taa_rec);
1548: FETCH lock_csr INTO l_lock_var;
1552: WHEN E_Resource_Busy THEN
1553: IF (lock_csr%ISOPEN) THEN
1554: CLOSE lock_csr;
1555: END IF;
1556: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1557: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1558: END;
1559:
1560: IF ( l_row_notfound ) THEN
1557: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1558: END;
1559:
1560: IF ( l_row_notfound ) THEN
1561: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: ELSE
1564: IF (l_lock_var.id <> p_taa_rec.id) THEN
1565: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1558: END;
1559:
1560: IF ( l_row_notfound ) THEN
1561: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: ELSE
1564: IF (l_lock_var.id <> p_taa_rec.id) THEN
1565: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1566: RAISE OKC_API.G_EXCEPTION_ERROR;
1561: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: ELSE
1564: IF (l_lock_var.id <> p_taa_rec.id) THEN
1565: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1566: RAISE OKC_API.G_EXCEPTION_ERROR;
1567: END IF;
1568: IF (l_lock_var.tcn_id <> p_taa_rec.tcn_id) THEN
1569: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1562: RAISE OKC_API.G_EXCEPTION_ERROR;
1563: ELSE
1564: IF (l_lock_var.id <> p_taa_rec.id) THEN
1565: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1566: RAISE OKC_API.G_EXCEPTION_ERROR;
1567: END IF;
1568: IF (l_lock_var.tcn_id <> p_taa_rec.tcn_id) THEN
1569: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1570: RAISE OKC_API.G_EXCEPTION_ERROR;
1565: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1566: RAISE OKC_API.G_EXCEPTION_ERROR;
1567: END IF;
1568: IF (l_lock_var.tcn_id <> p_taa_rec.tcn_id) THEN
1569: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1570: RAISE OKC_API.G_EXCEPTION_ERROR;
1571: END IF;
1572: END IF;
1573:
1566: RAISE OKC_API.G_EXCEPTION_ERROR;
1567: END IF;
1568: IF (l_lock_var.tcn_id <> p_taa_rec.tcn_id) THEN
1569: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1570: RAISE OKC_API.G_EXCEPTION_ERROR;
1571: END IF;
1572: END IF;
1573:
1574: x_return_status := l_return_status;
1571: END IF;
1572: END IF;
1573:
1574: x_return_status := l_return_status;
1575: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1576: EXCEPTION
1577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1573:
1574: x_return_status := l_return_status;
1575: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1576: EXCEPTION
1577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name,
1581: G_PKG_NAME,
1574: x_return_status := l_return_status;
1575: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1576: EXCEPTION
1577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name,
1581: G_PKG_NAME,
1582: 'OKC_API.G_RET_STS_ERROR',
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name,
1581: G_PKG_NAME,
1582: 'OKC_API.G_RET_STS_ERROR',
1583: x_msg_count,
1584: x_msg_data,
1585: '_PVT'
1586: );
1583: x_msg_count,
1584: x_msg_data,
1585: '_PVT'
1586: );
1587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1589: (
1590: l_api_name,
1591: G_PKG_NAME,
1584: x_msg_data,
1585: '_PVT'
1586: );
1587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1589: (
1590: l_api_name,
1591: G_PKG_NAME,
1592: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1589: (
1590: l_api_name,
1591: G_PKG_NAME,
1592: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1593: x_msg_count,
1594: x_msg_data,
1595: '_PVT'
1596: );
1594: x_msg_data,
1595: '_PVT'
1596: );
1597: WHEN OTHERS THEN
1598: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1599: (
1600: l_api_name,
1601: G_PKG_NAME,
1602: 'OTHERS',
1617: p_taav_rec IN taav_rec_type) IS
1618:
1619: l_api_version CONSTANT NUMBER := 1;
1620: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1621: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1622: l_taa_rec taa_rec_type;
1623: BEGIN
1624: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1625: G_PKG_NAME,
1620: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1621: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1622: l_taa_rec taa_rec_type;
1623: BEGIN
1624: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1625: G_PKG_NAME,
1626: p_init_msg_list,
1627: l_api_version,
1628: p_api_version,
1627: l_api_version,
1628: p_api_version,
1629: '_PVT',
1630: x_return_status);
1631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1634: RAISE OKC_API.G_EXCEPTION_ERROR;
1635: END IF;
1628: p_api_version,
1629: '_PVT',
1630: x_return_status);
1631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1634: RAISE OKC_API.G_EXCEPTION_ERROR;
1635: END IF;
1636: -----------------------------------------
1629: '_PVT',
1630: x_return_status);
1631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1634: RAISE OKC_API.G_EXCEPTION_ERROR;
1635: END IF;
1636: -----------------------------------------
1637: -- Move VIEW record to "Child" records --
1630: x_return_status);
1631: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1632: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1633: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1634: RAISE OKC_API.G_EXCEPTION_ERROR;
1635: END IF;
1636: -----------------------------------------
1637: -- Move VIEW record to "Child" records --
1638: -----------------------------------------
1646: x_msg_count,
1647: x_msg_data,
1648: l_taa_rec
1649: );
1650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1653: RAISE OKC_API.G_EXCEPTION_ERROR;
1654: END IF;
1647: x_msg_data,
1648: l_taa_rec
1649: );
1650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1653: RAISE OKC_API.G_EXCEPTION_ERROR;
1654: END IF;
1655: x_return_status := l_return_status;
1648: l_taa_rec
1649: );
1650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1653: RAISE OKC_API.G_EXCEPTION_ERROR;
1654: END IF;
1655: x_return_status := l_return_status;
1656: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1649: );
1650: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1651: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1653: RAISE OKC_API.G_EXCEPTION_ERROR;
1654: END IF;
1655: x_return_status := l_return_status;
1656: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1657: EXCEPTION
1652: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1653: RAISE OKC_API.G_EXCEPTION_ERROR;
1654: END IF;
1655: x_return_status := l_return_status;
1656: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1657: EXCEPTION
1658: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1659: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1660: (
1654: END IF;
1655: x_return_status := l_return_status;
1656: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1657: EXCEPTION
1658: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1659: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1660: (
1661: l_api_name,
1662: G_PKG_NAME,
1655: x_return_status := l_return_status;
1656: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1657: EXCEPTION
1658: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1659: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1660: (
1661: l_api_name,
1662: G_PKG_NAME,
1663: 'OKC_API.G_RET_STS_ERROR',
1659: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1660: (
1661: l_api_name,
1662: G_PKG_NAME,
1663: 'OKC_API.G_RET_STS_ERROR',
1664: x_msg_count,
1665: x_msg_data,
1666: '_PVT'
1667: );
1664: x_msg_count,
1665: x_msg_data,
1666: '_PVT'
1667: );
1668: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1670: (
1671: l_api_name,
1672: G_PKG_NAME,
1665: x_msg_data,
1666: '_PVT'
1667: );
1668: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1670: (
1671: l_api_name,
1672: G_PKG_NAME,
1673: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1669: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1670: (
1671: l_api_name,
1672: G_PKG_NAME,
1673: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1674: x_msg_count,
1675: x_msg_data,
1676: '_PVT'
1677: );
1675: x_msg_data,
1676: '_PVT'
1677: );
1678: WHEN OTHERS THEN
1679: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1680: (
1681: l_api_name,
1682: G_PKG_NAME,
1683: 'OTHERS',
1695: x_return_status OUT NOCOPY VARCHAR2,
1696: x_msg_count OUT NOCOPY NUMBER,
1697: x_msg_data OUT NOCOPY VARCHAR2,
1698: p_taav_tbl IN taav_tbl_type,
1699: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1700:
1701: l_api_version CONSTANT NUMBER := 1;
1702: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1703: i NUMBER := 0;
1701: l_api_version CONSTANT NUMBER := 1;
1702: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1703: i NUMBER := 0;
1704: BEGIN
1705: OKC_API.init_msg_list(p_init_msg_list);
1706: -- Make sure PL/SQL table has recrods in it before passing
1707: IF (p_taav_tbl.COUNT > 0) THEN
1708: i := p_taav_tbl.FIRST;
1709: LOOP
1707: IF (p_taav_tbl.COUNT > 0) THEN
1708: i := p_taav_tbl.FIRST;
1709: LOOP
1710: DECLARE
1711: l_error_rec OKC_API.ERROR_REC_TYPE;
1712: BEGIN
1713: l_error_rec.api_name := l_api_name;
1714: l_error_rec.api_package := G_PKG_NAME;
1715: l_error_rec.idx := i;
1714: l_error_rec.api_package := G_PKG_NAME;
1715: l_error_rec.idx := i;
1716: lock_row(
1717: p_api_version => p_api_version,
1718: p_init_msg_list => OKC_API.G_FALSE,
1719: x_return_status => l_error_rec.error_type,
1720: x_msg_count => l_error_rec.msg_count,
1721: x_msg_data => l_error_rec.msg_data,
1722: p_taav_rec => p_taav_tbl(i));
1719: x_return_status => l_error_rec.error_type,
1720: x_msg_count => l_error_rec.msg_count,
1721: x_msg_data => l_error_rec.msg_data,
1722: p_taav_rec => p_taav_tbl(i));
1723: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1724: l_error_rec.sqlcode := SQLCODE;
1725: load_error_tbl(l_error_rec, px_error_tbl);
1726: ELSE
1727: x_msg_count := l_error_rec.msg_count;
1727: x_msg_count := l_error_rec.msg_count;
1728: x_msg_data := l_error_rec.msg_data;
1729: END IF;
1730: EXCEPTION
1731: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1732: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1733: l_error_rec.sqlcode := SQLCODE;
1734: load_error_tbl(l_error_rec, px_error_tbl);
1735: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1728: x_msg_data := l_error_rec.msg_data;
1729: END IF;
1730: EXCEPTION
1731: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1732: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1733: l_error_rec.sqlcode := SQLCODE;
1734: load_error_tbl(l_error_rec, px_error_tbl);
1735: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1736: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1731: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1732: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1733: l_error_rec.sqlcode := SQLCODE;
1734: load_error_tbl(l_error_rec, px_error_tbl);
1735: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1736: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1737: l_error_rec.sqlcode := SQLCODE;
1738: load_error_tbl(l_error_rec, px_error_tbl);
1739: WHEN OTHERS THEN
1732: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1733: l_error_rec.sqlcode := SQLCODE;
1734: load_error_tbl(l_error_rec, px_error_tbl);
1735: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1736: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1737: l_error_rec.sqlcode := SQLCODE;
1738: load_error_tbl(l_error_rec, px_error_tbl);
1739: WHEN OTHERS THEN
1740: l_error_rec.error_type := 'OTHERS';
1747: END IF;
1748: -- Loop through the error_tbl to find the error with the highest severity
1749: -- and return it.
1750: x_return_status := find_highest_exception(px_error_tbl);
1751: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1752: EXCEPTION
1753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1755: (
1749: -- and return it.
1750: x_return_status := find_highest_exception(px_error_tbl);
1751: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1752: EXCEPTION
1753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1755: (
1756: l_api_name,
1757: G_PKG_NAME,
1750: x_return_status := find_highest_exception(px_error_tbl);
1751: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1752: EXCEPTION
1753: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1755: (
1756: l_api_name,
1757: G_PKG_NAME,
1758: 'OKC_API.G_RET_STS_ERROR',
1754: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1755: (
1756: l_api_name,
1757: G_PKG_NAME,
1758: 'OKC_API.G_RET_STS_ERROR',
1759: x_msg_count,
1760: x_msg_data,
1761: '_PVT'
1762: );
1759: x_msg_count,
1760: x_msg_data,
1761: '_PVT'
1762: );
1763: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1764: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1765: (
1766: l_api_name,
1767: G_PKG_NAME,
1760: x_msg_data,
1761: '_PVT'
1762: );
1763: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1764: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1765: (
1766: l_api_name,
1767: G_PKG_NAME,
1768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1764: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1765: (
1766: l_api_name,
1767: G_PKG_NAME,
1768: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1769: x_msg_count,
1770: x_msg_data,
1771: '_PVT'
1772: );
1770: x_msg_data,
1771: '_PVT'
1772: );
1773: WHEN OTHERS THEN
1774: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1775: (
1776: l_api_name,
1777: G_PKG_NAME,
1778: 'OTHERS',
1793: p_taav_tbl IN taav_tbl_type) IS
1794:
1795: l_api_version CONSTANT NUMBER := 1;
1796: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1797: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1798: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1799: BEGIN
1800: OKC_API.init_msg_list(p_init_msg_list);
1801: -- Make sure PL/SQL table has recrods in it before passing
1794:
1795: l_api_version CONSTANT NUMBER := 1;
1796: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1797: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1798: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1799: BEGIN
1800: OKC_API.init_msg_list(p_init_msg_list);
1801: -- Make sure PL/SQL table has recrods in it before passing
1802: IF (p_taav_tbl.COUNT > 0) THEN
1796: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1797: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1798: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1799: BEGIN
1800: OKC_API.init_msg_list(p_init_msg_list);
1801: -- Make sure PL/SQL table has recrods in it before passing
1802: IF (p_taav_tbl.COUNT > 0) THEN
1803: lock_row(
1804: p_api_version => p_api_version,
1801: -- Make sure PL/SQL table has recrods in it before passing
1802: IF (p_taav_tbl.COUNT > 0) THEN
1803: lock_row(
1804: p_api_version => p_api_version,
1805: p_init_msg_list => OKC_API.G_FALSE,
1806: x_return_status => x_return_status,
1807: x_msg_count => x_msg_count,
1808: x_msg_data => x_msg_data,
1809: p_taav_tbl => p_taav_tbl,
1808: x_msg_data => x_msg_data,
1809: p_taav_tbl => p_taav_tbl,
1810: px_error_tbl => l_error_tbl);
1811: END IF;
1812: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1813: EXCEPTION
1814: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1815: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1816: (
1810: px_error_tbl => l_error_tbl);
1811: END IF;
1812: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1813: EXCEPTION
1814: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1815: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1816: (
1817: l_api_name,
1818: G_PKG_NAME,
1811: END IF;
1812: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1813: EXCEPTION
1814: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1815: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1816: (
1817: l_api_name,
1818: G_PKG_NAME,
1819: 'OKC_API.G_RET_STS_ERROR',
1815: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1816: (
1817: l_api_name,
1818: G_PKG_NAME,
1819: 'OKC_API.G_RET_STS_ERROR',
1820: x_msg_count,
1821: x_msg_data,
1822: '_PVT'
1823: );
1820: x_msg_count,
1821: x_msg_data,
1822: '_PVT'
1823: );
1824: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1826: (
1827: l_api_name,
1828: G_PKG_NAME,
1821: x_msg_data,
1822: '_PVT'
1823: );
1824: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1826: (
1827: l_api_name,
1828: G_PKG_NAME,
1829: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1825: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1826: (
1827: l_api_name,
1828: G_PKG_NAME,
1829: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1830: x_msg_count,
1831: x_msg_data,
1832: '_PVT'
1833: );
1831: x_msg_data,
1832: '_PVT'
1833: );
1834: WHEN OTHERS THEN
1835: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1836: (
1837: l_api_name,
1838: G_PKG_NAME,
1839: 'OTHERS',
1857: x_taa_rec OUT NOCOPY taa_rec_type) IS
1858:
1859: l_api_version CONSTANT NUMBER := 1;
1860: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
1861: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1862: l_taa_rec taa_rec_type := p_taa_rec;
1863: l_def_taa_rec taa_rec_type;
1864: l_row_notfound BOOLEAN := TRUE;
1865: ----------------------------------
1870: x_taa_rec OUT NOCOPY taa_rec_type
1871: ) RETURN VARCHAR2 IS
1872: l_taa_rec taa_rec_type;
1873: l_row_notfound BOOLEAN := TRUE;
1874: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1875: BEGIN
1876: x_taa_rec := p_taa_rec;
1877: -- Get current database values
1878: l_taa_rec := get_rec(p_taa_rec, l_return_status);
1875: BEGIN
1876: x_taa_rec := p_taa_rec;
1877: -- Get current database values
1878: l_taa_rec := get_rec(p_taa_rec, l_return_status);
1879: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1880: IF (x_taa_rec.id = OKC_API.G_MISS_NUM)
1881: THEN
1882: x_taa_rec.id := l_taa_rec.id;
1883: END IF;
1876: x_taa_rec := p_taa_rec;
1877: -- Get current database values
1878: l_taa_rec := get_rec(p_taa_rec, l_return_status);
1879: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1880: IF (x_taa_rec.id = OKC_API.G_MISS_NUM)
1881: THEN
1882: x_taa_rec.id := l_taa_rec.id;
1883: END IF;
1884: IF (x_taa_rec.tcn_id = OKC_API.G_MISS_NUM)
1880: IF (x_taa_rec.id = OKC_API.G_MISS_NUM)
1881: THEN
1882: x_taa_rec.id := l_taa_rec.id;
1883: END IF;
1884: IF (x_taa_rec.tcn_id = OKC_API.G_MISS_NUM)
1885: THEN
1886: x_taa_rec.tcn_id := l_taa_rec.tcn_id;
1887: END IF;
1888: IF (x_taa_rec.new_contract_number = OKC_API.G_MISS_CHAR)
1884: IF (x_taa_rec.tcn_id = OKC_API.G_MISS_NUM)
1885: THEN
1886: x_taa_rec.tcn_id := l_taa_rec.tcn_id;
1887: END IF;
1888: IF (x_taa_rec.new_contract_number = OKC_API.G_MISS_CHAR)
1889: THEN
1890: x_taa_rec.new_contract_number := l_taa_rec.new_contract_number;
1891: END IF;
1892: IF (x_taa_rec.bill_to_site_id = OKC_API.G_MISS_NUM)
1888: IF (x_taa_rec.new_contract_number = OKC_API.G_MISS_CHAR)
1889: THEN
1890: x_taa_rec.new_contract_number := l_taa_rec.new_contract_number;
1891: END IF;
1892: IF (x_taa_rec.bill_to_site_id = OKC_API.G_MISS_NUM)
1893: THEN
1894: x_taa_rec.bill_to_site_id := l_taa_rec.bill_to_site_id;
1895: END IF;
1896: IF (x_taa_rec.cust_acct_id = OKC_API.G_MISS_NUM)
1892: IF (x_taa_rec.bill_to_site_id = OKC_API.G_MISS_NUM)
1893: THEN
1894: x_taa_rec.bill_to_site_id := l_taa_rec.bill_to_site_id;
1895: END IF;
1896: IF (x_taa_rec.cust_acct_id = OKC_API.G_MISS_NUM)
1897: THEN
1898: x_taa_rec.cust_acct_id := l_taa_rec.cust_acct_id;
1899: END IF;
1900: IF (x_taa_rec.bank_acct_id = OKC_API.G_MISS_NUM)
1896: IF (x_taa_rec.cust_acct_id = OKC_API.G_MISS_NUM)
1897: THEN
1898: x_taa_rec.cust_acct_id := l_taa_rec.cust_acct_id;
1899: END IF;
1900: IF (x_taa_rec.bank_acct_id = OKC_API.G_MISS_NUM)
1901: THEN
1902: x_taa_rec.bank_acct_id := l_taa_rec.bank_acct_id;
1903: END IF;
1904: IF (x_taa_rec.invoice_format_id = OKC_API.G_MISS_NUM)
1900: IF (x_taa_rec.bank_acct_id = OKC_API.G_MISS_NUM)
1901: THEN
1902: x_taa_rec.bank_acct_id := l_taa_rec.bank_acct_id;
1903: END IF;
1904: IF (x_taa_rec.invoice_format_id = OKC_API.G_MISS_NUM)
1905: THEN
1906: x_taa_rec.invoice_format_id := l_taa_rec.invoice_format_id;
1907: END IF;
1908: IF (x_taa_rec.payment_mthd_id = OKC_API.G_MISS_NUM)
1904: IF (x_taa_rec.invoice_format_id = OKC_API.G_MISS_NUM)
1905: THEN
1906: x_taa_rec.invoice_format_id := l_taa_rec.invoice_format_id;
1907: END IF;
1908: IF (x_taa_rec.payment_mthd_id = OKC_API.G_MISS_NUM)
1909: THEN
1910: x_taa_rec.payment_mthd_id := l_taa_rec.payment_mthd_id;
1911: END IF;
1912: IF (x_taa_rec.mla_id = OKC_API.G_MISS_NUM)
1908: IF (x_taa_rec.payment_mthd_id = OKC_API.G_MISS_NUM)
1909: THEN
1910: x_taa_rec.payment_mthd_id := l_taa_rec.payment_mthd_id;
1911: END IF;
1912: IF (x_taa_rec.mla_id = OKC_API.G_MISS_NUM)
1913: THEN
1914: x_taa_rec.mla_id := l_taa_rec.mla_id;
1915: END IF;
1916: IF (x_taa_rec.credit_line_id = OKC_API.G_MISS_NUM)
1912: IF (x_taa_rec.mla_id = OKC_API.G_MISS_NUM)
1913: THEN
1914: x_taa_rec.mla_id := l_taa_rec.mla_id;
1915: END IF;
1916: IF (x_taa_rec.credit_line_id = OKC_API.G_MISS_NUM)
1917: THEN
1918: x_taa_rec.credit_line_id := l_taa_rec.credit_line_id;
1919: END IF;
1920: IF (x_taa_rec.insurance_yn = OKC_API.G_MISS_CHAR)
1916: IF (x_taa_rec.credit_line_id = OKC_API.G_MISS_NUM)
1917: THEN
1918: x_taa_rec.credit_line_id := l_taa_rec.credit_line_id;
1919: END IF;
1920: IF (x_taa_rec.insurance_yn = OKC_API.G_MISS_CHAR)
1921: THEN
1922: x_taa_rec.insurance_yn := l_taa_rec.insurance_yn;
1923: END IF;
1924: IF (x_taa_rec.lease_policy_yn = OKC_API.G_MISS_CHAR)
1920: IF (x_taa_rec.insurance_yn = OKC_API.G_MISS_CHAR)
1921: THEN
1922: x_taa_rec.insurance_yn := l_taa_rec.insurance_yn;
1923: END IF;
1924: IF (x_taa_rec.lease_policy_yn = OKC_API.G_MISS_CHAR)
1925: THEN
1926: x_taa_rec.lease_policy_yn := l_taa_rec.lease_policy_yn;
1927: END IF;
1928: IF (x_taa_rec.ipy_type = OKC_API.G_MISS_CHAR)
1924: IF (x_taa_rec.lease_policy_yn = OKC_API.G_MISS_CHAR)
1925: THEN
1926: x_taa_rec.lease_policy_yn := l_taa_rec.lease_policy_yn;
1927: END IF;
1928: IF (x_taa_rec.ipy_type = OKC_API.G_MISS_CHAR)
1929: THEN
1930: x_taa_rec.ipy_type := l_taa_rec.ipy_type;
1931: END IF;
1932: IF (x_taa_rec.policy_number = OKC_API.G_MISS_CHAR)
1928: IF (x_taa_rec.ipy_type = OKC_API.G_MISS_CHAR)
1929: THEN
1930: x_taa_rec.ipy_type := l_taa_rec.ipy_type;
1931: END IF;
1932: IF (x_taa_rec.policy_number = OKC_API.G_MISS_CHAR)
1933: THEN
1934: x_taa_rec.policy_number := l_taa_rec.policy_number;
1935: END IF;
1936: IF (x_taa_rec.covered_amt = OKC_API.G_MISS_NUM)
1932: IF (x_taa_rec.policy_number = OKC_API.G_MISS_CHAR)
1933: THEN
1934: x_taa_rec.policy_number := l_taa_rec.policy_number;
1935: END IF;
1936: IF (x_taa_rec.covered_amt = OKC_API.G_MISS_NUM)
1937: THEN
1938: x_taa_rec.covered_amt := l_taa_rec.covered_amt;
1939: END IF;
1940: IF (x_taa_rec.deductible_amt = OKC_API.G_MISS_NUM)
1936: IF (x_taa_rec.covered_amt = OKC_API.G_MISS_NUM)
1937: THEN
1938: x_taa_rec.covered_amt := l_taa_rec.covered_amt;
1939: END IF;
1940: IF (x_taa_rec.deductible_amt = OKC_API.G_MISS_NUM)
1941: THEN
1942: x_taa_rec.deductible_amt := l_taa_rec.deductible_amt;
1943: END IF;
1944: IF (x_taa_rec.effective_to_date = OKC_API.G_MISS_DATE)
1940: IF (x_taa_rec.deductible_amt = OKC_API.G_MISS_NUM)
1941: THEN
1942: x_taa_rec.deductible_amt := l_taa_rec.deductible_amt;
1943: END IF;
1944: IF (x_taa_rec.effective_to_date = OKC_API.G_MISS_DATE)
1945: THEN
1946: x_taa_rec.effective_to_date := l_taa_rec.effective_to_date;
1947: END IF;
1948: IF (x_taa_rec.effective_from_date = OKC_API.G_MISS_DATE)
1944: IF (x_taa_rec.effective_to_date = OKC_API.G_MISS_DATE)
1945: THEN
1946: x_taa_rec.effective_to_date := l_taa_rec.effective_to_date;
1947: END IF;
1948: IF (x_taa_rec.effective_from_date = OKC_API.G_MISS_DATE)
1949: THEN
1950: x_taa_rec.effective_from_date := l_taa_rec.effective_from_date;
1951: END IF;
1952: IF (x_taa_rec.proof_provided_date = OKC_API.G_MISS_DATE)
1948: IF (x_taa_rec.effective_from_date = OKC_API.G_MISS_DATE)
1949: THEN
1950: x_taa_rec.effective_from_date := l_taa_rec.effective_from_date;
1951: END IF;
1952: IF (x_taa_rec.proof_provided_date = OKC_API.G_MISS_DATE)
1953: THEN
1954: x_taa_rec.proof_provided_date := l_taa_rec.proof_provided_date;
1955: END IF;
1956: IF (x_taa_rec.proof_required_date = OKC_API.G_MISS_DATE)
1952: IF (x_taa_rec.proof_provided_date = OKC_API.G_MISS_DATE)
1953: THEN
1954: x_taa_rec.proof_provided_date := l_taa_rec.proof_provided_date;
1955: END IF;
1956: IF (x_taa_rec.proof_required_date = OKC_API.G_MISS_DATE)
1957: THEN
1958: x_taa_rec.proof_required_date := l_taa_rec.proof_required_date;
1959: END IF;
1960: IF (x_taa_rec.lessor_insured_yn = OKC_API.G_MISS_CHAR)
1956: IF (x_taa_rec.proof_required_date = OKC_API.G_MISS_DATE)
1957: THEN
1958: x_taa_rec.proof_required_date := l_taa_rec.proof_required_date;
1959: END IF;
1960: IF (x_taa_rec.lessor_insured_yn = OKC_API.G_MISS_CHAR)
1961: THEN
1962: x_taa_rec.lessor_insured_yn := l_taa_rec.lessor_insured_yn;
1963: END IF;
1964: IF (x_taa_rec.lessor_payee_yn = OKC_API.G_MISS_CHAR)
1960: IF (x_taa_rec.lessor_insured_yn = OKC_API.G_MISS_CHAR)
1961: THEN
1962: x_taa_rec.lessor_insured_yn := l_taa_rec.lessor_insured_yn;
1963: END IF;
1964: IF (x_taa_rec.lessor_payee_yn = OKC_API.G_MISS_CHAR)
1965: THEN
1966: x_taa_rec.lessor_payee_yn := l_taa_rec.lessor_payee_yn;
1967: END IF;
1968: IF (x_taa_rec.int_id = OKC_API.G_MISS_NUM)
1964: IF (x_taa_rec.lessor_payee_yn = OKC_API.G_MISS_CHAR)
1965: THEN
1966: x_taa_rec.lessor_payee_yn := l_taa_rec.lessor_payee_yn;
1967: END IF;
1968: IF (x_taa_rec.int_id = OKC_API.G_MISS_NUM)
1969: THEN
1970: x_taa_rec.int_id := l_taa_rec.int_id;
1971: END IF;
1972: IF (x_taa_rec.isu_id = OKC_API.G_MISS_NUM)
1968: IF (x_taa_rec.int_id = OKC_API.G_MISS_NUM)
1969: THEN
1970: x_taa_rec.int_id := l_taa_rec.int_id;
1971: END IF;
1972: IF (x_taa_rec.isu_id = OKC_API.G_MISS_NUM)
1973: THEN
1974: x_taa_rec.isu_id := l_taa_rec.isu_id;
1975: END IF;
1976: IF (x_taa_rec.agency_site_id = OKC_API.G_MISS_NUM)
1972: IF (x_taa_rec.isu_id = OKC_API.G_MISS_NUM)
1973: THEN
1974: x_taa_rec.isu_id := l_taa_rec.isu_id;
1975: END IF;
1976: IF (x_taa_rec.agency_site_id = OKC_API.G_MISS_NUM)
1977: THEN
1978: x_taa_rec.agency_site_id := l_taa_rec.agency_site_id;
1979: END IF;
1980: IF (x_taa_rec.agent_site_id = OKC_API.G_MISS_NUM)
1976: IF (x_taa_rec.agency_site_id = OKC_API.G_MISS_NUM)
1977: THEN
1978: x_taa_rec.agency_site_id := l_taa_rec.agency_site_id;
1979: END IF;
1980: IF (x_taa_rec.agent_site_id = OKC_API.G_MISS_NUM)
1981: THEN
1982: x_taa_rec.agent_site_id := l_taa_rec.agent_site_id;
1983: END IF;
1984: IF (x_taa_rec.territory_code = OKC_API.G_MISS_CHAR)
1980: IF (x_taa_rec.agent_site_id = OKC_API.G_MISS_NUM)
1981: THEN
1982: x_taa_rec.agent_site_id := l_taa_rec.agent_site_id;
1983: END IF;
1984: IF (x_taa_rec.territory_code = OKC_API.G_MISS_CHAR)
1985: THEN
1986: x_taa_rec.territory_code := l_taa_rec.territory_code;
1987: END IF;
1988: IF (x_taa_rec.attribute_category = OKC_API.G_MISS_CHAR)
1984: IF (x_taa_rec.territory_code = OKC_API.G_MISS_CHAR)
1985: THEN
1986: x_taa_rec.territory_code := l_taa_rec.territory_code;
1987: END IF;
1988: IF (x_taa_rec.attribute_category = OKC_API.G_MISS_CHAR)
1989: THEN
1990: x_taa_rec.attribute_category := l_taa_rec.attribute_category;
1991: END IF;
1992: IF (x_taa_rec.attribute1 = OKC_API.G_MISS_CHAR)
1988: IF (x_taa_rec.attribute_category = OKC_API.G_MISS_CHAR)
1989: THEN
1990: x_taa_rec.attribute_category := l_taa_rec.attribute_category;
1991: END IF;
1992: IF (x_taa_rec.attribute1 = OKC_API.G_MISS_CHAR)
1993: THEN
1994: x_taa_rec.attribute1 := l_taa_rec.attribute1;
1995: END IF;
1996: IF (x_taa_rec.attribute2 = OKC_API.G_MISS_CHAR)
1992: IF (x_taa_rec.attribute1 = OKC_API.G_MISS_CHAR)
1993: THEN
1994: x_taa_rec.attribute1 := l_taa_rec.attribute1;
1995: END IF;
1996: IF (x_taa_rec.attribute2 = OKC_API.G_MISS_CHAR)
1997: THEN
1998: x_taa_rec.attribute2 := l_taa_rec.attribute2;
1999: END IF;
2000: IF (x_taa_rec.attribute3 = OKC_API.G_MISS_CHAR)
1996: IF (x_taa_rec.attribute2 = OKC_API.G_MISS_CHAR)
1997: THEN
1998: x_taa_rec.attribute2 := l_taa_rec.attribute2;
1999: END IF;
2000: IF (x_taa_rec.attribute3 = OKC_API.G_MISS_CHAR)
2001: THEN
2002: x_taa_rec.attribute3 := l_taa_rec.attribute3;
2003: END IF;
2004: IF (x_taa_rec.attribute4 = OKC_API.G_MISS_CHAR)
2000: IF (x_taa_rec.attribute3 = OKC_API.G_MISS_CHAR)
2001: THEN
2002: x_taa_rec.attribute3 := l_taa_rec.attribute3;
2003: END IF;
2004: IF (x_taa_rec.attribute4 = OKC_API.G_MISS_CHAR)
2005: THEN
2006: x_taa_rec.attribute4 := l_taa_rec.attribute4;
2007: END IF;
2008: IF (x_taa_rec.attribute5 = OKC_API.G_MISS_CHAR)
2004: IF (x_taa_rec.attribute4 = OKC_API.G_MISS_CHAR)
2005: THEN
2006: x_taa_rec.attribute4 := l_taa_rec.attribute4;
2007: END IF;
2008: IF (x_taa_rec.attribute5 = OKC_API.G_MISS_CHAR)
2009: THEN
2010: x_taa_rec.attribute5 := l_taa_rec.attribute5;
2011: END IF;
2012: IF (x_taa_rec.attribute6 = OKC_API.G_MISS_CHAR)
2008: IF (x_taa_rec.attribute5 = OKC_API.G_MISS_CHAR)
2009: THEN
2010: x_taa_rec.attribute5 := l_taa_rec.attribute5;
2011: END IF;
2012: IF (x_taa_rec.attribute6 = OKC_API.G_MISS_CHAR)
2013: THEN
2014: x_taa_rec.attribute6 := l_taa_rec.attribute6;
2015: END IF;
2016: IF (x_taa_rec.attribute7 = OKC_API.G_MISS_CHAR)
2012: IF (x_taa_rec.attribute6 = OKC_API.G_MISS_CHAR)
2013: THEN
2014: x_taa_rec.attribute6 := l_taa_rec.attribute6;
2015: END IF;
2016: IF (x_taa_rec.attribute7 = OKC_API.G_MISS_CHAR)
2017: THEN
2018: x_taa_rec.attribute7 := l_taa_rec.attribute7;
2019: END IF;
2020: IF (x_taa_rec.attribute8 = OKC_API.G_MISS_CHAR)
2016: IF (x_taa_rec.attribute7 = OKC_API.G_MISS_CHAR)
2017: THEN
2018: x_taa_rec.attribute7 := l_taa_rec.attribute7;
2019: END IF;
2020: IF (x_taa_rec.attribute8 = OKC_API.G_MISS_CHAR)
2021: THEN
2022: x_taa_rec.attribute8 := l_taa_rec.attribute8;
2023: END IF;
2024: IF (x_taa_rec.attribute9 = OKC_API.G_MISS_CHAR)
2020: IF (x_taa_rec.attribute8 = OKC_API.G_MISS_CHAR)
2021: THEN
2022: x_taa_rec.attribute8 := l_taa_rec.attribute8;
2023: END IF;
2024: IF (x_taa_rec.attribute9 = OKC_API.G_MISS_CHAR)
2025: THEN
2026: x_taa_rec.attribute9 := l_taa_rec.attribute9;
2027: END IF;
2028: IF (x_taa_rec.attribute10 = OKC_API.G_MISS_CHAR)
2024: IF (x_taa_rec.attribute9 = OKC_API.G_MISS_CHAR)
2025: THEN
2026: x_taa_rec.attribute9 := l_taa_rec.attribute9;
2027: END IF;
2028: IF (x_taa_rec.attribute10 = OKC_API.G_MISS_CHAR)
2029: THEN
2030: x_taa_rec.attribute10 := l_taa_rec.attribute10;
2031: END IF;
2032: IF (x_taa_rec.attribute11 = OKC_API.G_MISS_CHAR)
2028: IF (x_taa_rec.attribute10 = OKC_API.G_MISS_CHAR)
2029: THEN
2030: x_taa_rec.attribute10 := l_taa_rec.attribute10;
2031: END IF;
2032: IF (x_taa_rec.attribute11 = OKC_API.G_MISS_CHAR)
2033: THEN
2034: x_taa_rec.attribute11 := l_taa_rec.attribute11;
2035: END IF;
2036: IF (x_taa_rec.attribute12 = OKC_API.G_MISS_CHAR)
2032: IF (x_taa_rec.attribute11 = OKC_API.G_MISS_CHAR)
2033: THEN
2034: x_taa_rec.attribute11 := l_taa_rec.attribute11;
2035: END IF;
2036: IF (x_taa_rec.attribute12 = OKC_API.G_MISS_CHAR)
2037: THEN
2038: x_taa_rec.attribute12 := l_taa_rec.attribute12;
2039: END IF;
2040: IF (x_taa_rec.attribute13 = OKC_API.G_MISS_CHAR)
2036: IF (x_taa_rec.attribute12 = OKC_API.G_MISS_CHAR)
2037: THEN
2038: x_taa_rec.attribute12 := l_taa_rec.attribute12;
2039: END IF;
2040: IF (x_taa_rec.attribute13 = OKC_API.G_MISS_CHAR)
2041: THEN
2042: x_taa_rec.attribute13 := l_taa_rec.attribute13;
2043: END IF;
2044: IF (x_taa_rec.attribute14 = OKC_API.G_MISS_CHAR)
2040: IF (x_taa_rec.attribute13 = OKC_API.G_MISS_CHAR)
2041: THEN
2042: x_taa_rec.attribute13 := l_taa_rec.attribute13;
2043: END IF;
2044: IF (x_taa_rec.attribute14 = OKC_API.G_MISS_CHAR)
2045: THEN
2046: x_taa_rec.attribute14 := l_taa_rec.attribute14;
2047: END IF;
2048: IF (x_taa_rec.attribute15 = OKC_API.G_MISS_CHAR)
2044: IF (x_taa_rec.attribute14 = OKC_API.G_MISS_CHAR)
2045: THEN
2046: x_taa_rec.attribute14 := l_taa_rec.attribute14;
2047: END IF;
2048: IF (x_taa_rec.attribute15 = OKC_API.G_MISS_CHAR)
2049: THEN
2050: x_taa_rec.attribute15 := l_taa_rec.attribute15;
2051: END IF;
2052: IF (x_taa_rec.created_by = OKC_API.G_MISS_NUM)
2048: IF (x_taa_rec.attribute15 = OKC_API.G_MISS_CHAR)
2049: THEN
2050: x_taa_rec.attribute15 := l_taa_rec.attribute15;
2051: END IF;
2052: IF (x_taa_rec.created_by = OKC_API.G_MISS_NUM)
2053: THEN
2054: x_taa_rec.created_by := l_taa_rec.created_by;
2055: END IF;
2056: IF (x_taa_rec.creation_date = OKC_API.G_MISS_DATE)
2052: IF (x_taa_rec.created_by = OKC_API.G_MISS_NUM)
2053: THEN
2054: x_taa_rec.created_by := l_taa_rec.created_by;
2055: END IF;
2056: IF (x_taa_rec.creation_date = OKC_API.G_MISS_DATE)
2057: THEN
2058: x_taa_rec.creation_date := l_taa_rec.creation_date;
2059: END IF;
2060: IF (x_taa_rec.last_updated_by = OKC_API.G_MISS_NUM)
2056: IF (x_taa_rec.creation_date = OKC_API.G_MISS_DATE)
2057: THEN
2058: x_taa_rec.creation_date := l_taa_rec.creation_date;
2059: END IF;
2060: IF (x_taa_rec.last_updated_by = OKC_API.G_MISS_NUM)
2061: THEN
2062: x_taa_rec.last_updated_by := l_taa_rec.last_updated_by;
2063: END IF;
2064: IF (x_taa_rec.last_update_date = OKC_API.G_MISS_DATE)
2060: IF (x_taa_rec.last_updated_by = OKC_API.G_MISS_NUM)
2061: THEN
2062: x_taa_rec.last_updated_by := l_taa_rec.last_updated_by;
2063: END IF;
2064: IF (x_taa_rec.last_update_date = OKC_API.G_MISS_DATE)
2065: THEN
2066: x_taa_rec.last_update_date := l_taa_rec.last_update_date;
2067: END IF;
2068: IF (x_taa_rec.last_update_login = OKC_API.G_MISS_NUM)
2064: IF (x_taa_rec.last_update_date = OKC_API.G_MISS_DATE)
2065: THEN
2066: x_taa_rec.last_update_date := l_taa_rec.last_update_date;
2067: END IF;
2068: IF (x_taa_rec.last_update_login = OKC_API.G_MISS_NUM)
2069: THEN
2070: x_taa_rec.last_update_login := l_taa_rec.last_update_login;
2071: END IF;
2072: END IF;
2078: FUNCTION Set_Attributes (
2079: p_taa_rec IN taa_rec_type,
2080: x_taa_rec OUT NOCOPY taa_rec_type
2081: ) RETURN VARCHAR2 IS
2082: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2083: BEGIN
2084: x_taa_rec := p_taa_rec;
2085: RETURN(l_return_status);
2086: END Set_Attributes;
2084: x_taa_rec := p_taa_rec;
2085: RETURN(l_return_status);
2086: END Set_Attributes;
2087: BEGIN
2088: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2089: p_init_msg_list,
2090: '_PVT',
2091: x_return_status);
2092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2088: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2089: p_init_msg_list,
2090: '_PVT',
2091: x_return_status);
2092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2094: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2095: RAISE OKC_API.G_EXCEPTION_ERROR;
2096: END IF;
2089: p_init_msg_list,
2090: '_PVT',
2091: x_return_status);
2092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2094: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2095: RAISE OKC_API.G_EXCEPTION_ERROR;
2096: END IF;
2097: --- Setting item attributes
2090: '_PVT',
2091: x_return_status);
2092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2094: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2095: RAISE OKC_API.G_EXCEPTION_ERROR;
2096: END IF;
2097: --- Setting item attributes
2098: l_return_status := Set_Attributes(
2091: x_return_status);
2092: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2093: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2094: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2095: RAISE OKC_API.G_EXCEPTION_ERROR;
2096: END IF;
2097: --- Setting item attributes
2098: l_return_status := Set_Attributes(
2099: p_taa_rec, -- IN
2098: l_return_status := Set_Attributes(
2099: p_taa_rec, -- IN
2100: l_taa_rec); -- OUT
2101: --- If any errors happen abort API
2102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2105: RAISE OKC_API.G_EXCEPTION_ERROR;
2106: END IF;
2099: p_taa_rec, -- IN
2100: l_taa_rec); -- OUT
2101: --- If any errors happen abort API
2102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2105: RAISE OKC_API.G_EXCEPTION_ERROR;
2106: END IF;
2107: l_return_status := populate_new_record(l_taa_rec, l_def_taa_rec);
2100: l_taa_rec); -- OUT
2101: --- If any errors happen abort API
2102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2105: RAISE OKC_API.G_EXCEPTION_ERROR;
2106: END IF;
2107: l_return_status := populate_new_record(l_taa_rec, l_def_taa_rec);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2101: --- If any errors happen abort API
2102: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2103: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2105: RAISE OKC_API.G_EXCEPTION_ERROR;
2106: END IF;
2107: l_return_status := populate_new_record(l_taa_rec, l_def_taa_rec);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2104: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2105: RAISE OKC_API.G_EXCEPTION_ERROR;
2106: END IF;
2107: l_return_status := populate_new_record(l_taa_rec, l_def_taa_rec);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2111: RAISE OKC_API.G_EXCEPTION_ERROR;
2112: END IF;
2105: RAISE OKC_API.G_EXCEPTION_ERROR;
2106: END IF;
2107: l_return_status := populate_new_record(l_taa_rec, l_def_taa_rec);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2111: RAISE OKC_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: UPDATE OKL_TAA_REQUEST_DETAILS_B
2106: END IF;
2107: l_return_status := populate_new_record(l_taa_rec, l_def_taa_rec);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2111: RAISE OKC_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: UPDATE OKL_TAA_REQUEST_DETAILS_B
2114: SET TCN_ID = l_def_taa_rec.tcn_id,
2107: l_return_status := populate_new_record(l_taa_rec, l_def_taa_rec);
2108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2111: RAISE OKC_API.G_EXCEPTION_ERROR;
2112: END IF;
2113: UPDATE OKL_TAA_REQUEST_DETAILS_B
2114: SET TCN_ID = l_def_taa_rec.tcn_id,
2115: NEW_CONTRACT_NUMBER = l_def_taa_rec.new_contract_number,
2161: WHERE ID = l_def_taa_rec.id;
2162:
2163: x_taa_rec := l_taa_rec;
2164: x_return_status := l_return_status;
2165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2166: EXCEPTION
2167: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2168: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2169: (
2163: x_taa_rec := l_taa_rec;
2164: x_return_status := l_return_status;
2165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2166: EXCEPTION
2167: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2168: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2169: (
2170: l_api_name,
2171: G_PKG_NAME,
2164: x_return_status := l_return_status;
2165: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2166: EXCEPTION
2167: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2168: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2169: (
2170: l_api_name,
2171: G_PKG_NAME,
2172: 'OKC_API.G_RET_STS_ERROR',
2168: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2169: (
2170: l_api_name,
2171: G_PKG_NAME,
2172: 'OKC_API.G_RET_STS_ERROR',
2173: x_msg_count,
2174: x_msg_data,
2175: '_PVT'
2176: );
2173: x_msg_count,
2174: x_msg_data,
2175: '_PVT'
2176: );
2177: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2178: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2179: (
2180: l_api_name,
2181: G_PKG_NAME,
2174: x_msg_data,
2175: '_PVT'
2176: );
2177: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2178: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2179: (
2180: l_api_name,
2181: G_PKG_NAME,
2182: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2178: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2179: (
2180: l_api_name,
2181: G_PKG_NAME,
2182: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2183: x_msg_count,
2184: x_msg_data,
2185: '_PVT'
2186: );
2184: x_msg_data,
2185: '_PVT'
2186: );
2187: WHEN OTHERS THEN
2188: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2189: (
2190: l_api_name,
2191: G_PKG_NAME,
2192: 'OTHERS',
2208: x_taav_rec OUT NOCOPY taav_rec_type) IS
2209:
2210: l_api_version CONSTANT NUMBER := 1;
2211: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2212: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2213: l_taav_rec taav_rec_type := p_taav_rec;
2214: l_def_taav_rec taav_rec_type;
2215: l_db_taav_rec taav_rec_type;
2216: l_taa_rec taa_rec_type;
2235: p_taav_rec IN taav_rec_type,
2236: x_taav_rec OUT NOCOPY taav_rec_type
2237: ) RETURN VARCHAR2 IS
2238: l_row_notfound BOOLEAN := TRUE;
2239: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2240: BEGIN
2241: x_taav_rec := p_taav_rec;
2242: -- Get current database values
2243: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2242: -- Get current database values
2243: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2244: -- so it may be verified through LOCK_ROW.
2245: l_db_taav_rec := get_rec(p_taav_rec, l_return_status);
2246: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2247: IF (x_taav_rec.id = OKC_API.G_MISS_NUM)
2248: THEN
2249: x_taav_rec.id := l_db_taav_rec.id;
2250: END IF;
2243: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2244: -- so it may be verified through LOCK_ROW.
2245: l_db_taav_rec := get_rec(p_taav_rec, l_return_status);
2246: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2247: IF (x_taav_rec.id = OKC_API.G_MISS_NUM)
2248: THEN
2249: x_taav_rec.id := l_db_taav_rec.id;
2250: END IF;
2251: IF (x_taav_rec.tcn_id = OKC_API.G_MISS_NUM)
2247: IF (x_taav_rec.id = OKC_API.G_MISS_NUM)
2248: THEN
2249: x_taav_rec.id := l_db_taav_rec.id;
2250: END IF;
2251: IF (x_taav_rec.tcn_id = OKC_API.G_MISS_NUM)
2252: THEN
2253: x_taav_rec.tcn_id := l_db_taav_rec.tcn_id;
2254: END IF;
2255: IF (x_taav_rec.new_contract_number = OKC_API.G_MISS_CHAR)
2251: IF (x_taav_rec.tcn_id = OKC_API.G_MISS_NUM)
2252: THEN
2253: x_taav_rec.tcn_id := l_db_taav_rec.tcn_id;
2254: END IF;
2255: IF (x_taav_rec.new_contract_number = OKC_API.G_MISS_CHAR)
2256: THEN
2257: x_taav_rec.new_contract_number := l_db_taav_rec.new_contract_number;
2258: END IF;
2259: IF (x_taav_rec.bill_to_site_id = OKC_API.G_MISS_NUM)
2255: IF (x_taav_rec.new_contract_number = OKC_API.G_MISS_CHAR)
2256: THEN
2257: x_taav_rec.new_contract_number := l_db_taav_rec.new_contract_number;
2258: END IF;
2259: IF (x_taav_rec.bill_to_site_id = OKC_API.G_MISS_NUM)
2260: THEN
2261: x_taav_rec.bill_to_site_id := l_db_taav_rec.bill_to_site_id;
2262: END IF;
2263: IF (x_taav_rec.cust_acct_id = OKC_API.G_MISS_NUM)
2259: IF (x_taav_rec.bill_to_site_id = OKC_API.G_MISS_NUM)
2260: THEN
2261: x_taav_rec.bill_to_site_id := l_db_taav_rec.bill_to_site_id;
2262: END IF;
2263: IF (x_taav_rec.cust_acct_id = OKC_API.G_MISS_NUM)
2264: THEN
2265: x_taav_rec.cust_acct_id := l_db_taav_rec.cust_acct_id;
2266: END IF;
2267: IF (x_taav_rec.bank_acct_id = OKC_API.G_MISS_NUM)
2263: IF (x_taav_rec.cust_acct_id = OKC_API.G_MISS_NUM)
2264: THEN
2265: x_taav_rec.cust_acct_id := l_db_taav_rec.cust_acct_id;
2266: END IF;
2267: IF (x_taav_rec.bank_acct_id = OKC_API.G_MISS_NUM)
2268: THEN
2269: x_taav_rec.bank_acct_id := l_db_taav_rec.bank_acct_id;
2270: END IF;
2271: IF (x_taav_rec.invoice_format_id = OKC_API.G_MISS_NUM)
2267: IF (x_taav_rec.bank_acct_id = OKC_API.G_MISS_NUM)
2268: THEN
2269: x_taav_rec.bank_acct_id := l_db_taav_rec.bank_acct_id;
2270: END IF;
2271: IF (x_taav_rec.invoice_format_id = OKC_API.G_MISS_NUM)
2272: THEN
2273: x_taav_rec.invoice_format_id := l_db_taav_rec.invoice_format_id;
2274: END IF;
2275: IF (x_taav_rec.payment_mthd_id = OKC_API.G_MISS_NUM)
2271: IF (x_taav_rec.invoice_format_id = OKC_API.G_MISS_NUM)
2272: THEN
2273: x_taav_rec.invoice_format_id := l_db_taav_rec.invoice_format_id;
2274: END IF;
2275: IF (x_taav_rec.payment_mthd_id = OKC_API.G_MISS_NUM)
2276: THEN
2277: x_taav_rec.payment_mthd_id := l_db_taav_rec.payment_mthd_id;
2278: END IF;
2279: IF (x_taav_rec.mla_id = OKC_API.G_MISS_NUM)
2275: IF (x_taav_rec.payment_mthd_id = OKC_API.G_MISS_NUM)
2276: THEN
2277: x_taav_rec.payment_mthd_id := l_db_taav_rec.payment_mthd_id;
2278: END IF;
2279: IF (x_taav_rec.mla_id = OKC_API.G_MISS_NUM)
2280: THEN
2281: x_taav_rec.mla_id := l_db_taav_rec.mla_id;
2282: END IF;
2283: IF (x_taav_rec.credit_line_id = OKC_API.G_MISS_NUM)
2279: IF (x_taav_rec.mla_id = OKC_API.G_MISS_NUM)
2280: THEN
2281: x_taav_rec.mla_id := l_db_taav_rec.mla_id;
2282: END IF;
2283: IF (x_taav_rec.credit_line_id = OKC_API.G_MISS_NUM)
2284: THEN
2285: x_taav_rec.credit_line_id := l_db_taav_rec.credit_line_id;
2286: END IF;
2287: IF (x_taav_rec.insurance_yn = OKC_API.G_MISS_CHAR)
2283: IF (x_taav_rec.credit_line_id = OKC_API.G_MISS_NUM)
2284: THEN
2285: x_taav_rec.credit_line_id := l_db_taav_rec.credit_line_id;
2286: END IF;
2287: IF (x_taav_rec.insurance_yn = OKC_API.G_MISS_CHAR)
2288: THEN
2289: x_taav_rec.insurance_yn := l_db_taav_rec.insurance_yn;
2290: END IF;
2291: IF (x_taav_rec.lease_policy_yn = OKC_API.G_MISS_CHAR)
2287: IF (x_taav_rec.insurance_yn = OKC_API.G_MISS_CHAR)
2288: THEN
2289: x_taav_rec.insurance_yn := l_db_taav_rec.insurance_yn;
2290: END IF;
2291: IF (x_taav_rec.lease_policy_yn = OKC_API.G_MISS_CHAR)
2292: THEN
2293: x_taav_rec.lease_policy_yn := l_db_taav_rec.lease_policy_yn;
2294: END IF;
2295: IF (x_taav_rec.ipy_type = OKC_API.G_MISS_CHAR)
2291: IF (x_taav_rec.lease_policy_yn = OKC_API.G_MISS_CHAR)
2292: THEN
2293: x_taav_rec.lease_policy_yn := l_db_taav_rec.lease_policy_yn;
2294: END IF;
2295: IF (x_taav_rec.ipy_type = OKC_API.G_MISS_CHAR)
2296: THEN
2297: x_taav_rec.ipy_type := l_db_taav_rec.ipy_type;
2298: END IF;
2299: IF (x_taav_rec.policy_number = OKC_API.G_MISS_CHAR)
2295: IF (x_taav_rec.ipy_type = OKC_API.G_MISS_CHAR)
2296: THEN
2297: x_taav_rec.ipy_type := l_db_taav_rec.ipy_type;
2298: END IF;
2299: IF (x_taav_rec.policy_number = OKC_API.G_MISS_CHAR)
2300: THEN
2301: x_taav_rec.policy_number := l_db_taav_rec.policy_number;
2302: END IF;
2303: IF (x_taav_rec.covered_amt = OKC_API.G_MISS_NUM)
2299: IF (x_taav_rec.policy_number = OKC_API.G_MISS_CHAR)
2300: THEN
2301: x_taav_rec.policy_number := l_db_taav_rec.policy_number;
2302: END IF;
2303: IF (x_taav_rec.covered_amt = OKC_API.G_MISS_NUM)
2304: THEN
2305: x_taav_rec.covered_amt := l_db_taav_rec.covered_amt;
2306: END IF;
2307: IF (x_taav_rec.deductible_amt = OKC_API.G_MISS_NUM)
2303: IF (x_taav_rec.covered_amt = OKC_API.G_MISS_NUM)
2304: THEN
2305: x_taav_rec.covered_amt := l_db_taav_rec.covered_amt;
2306: END IF;
2307: IF (x_taav_rec.deductible_amt = OKC_API.G_MISS_NUM)
2308: THEN
2309: x_taav_rec.deductible_amt := l_db_taav_rec.deductible_amt;
2310: END IF;
2311: IF (x_taav_rec.effective_to_date = OKC_API.G_MISS_DATE)
2307: IF (x_taav_rec.deductible_amt = OKC_API.G_MISS_NUM)
2308: THEN
2309: x_taav_rec.deductible_amt := l_db_taav_rec.deductible_amt;
2310: END IF;
2311: IF (x_taav_rec.effective_to_date = OKC_API.G_MISS_DATE)
2312: THEN
2313: x_taav_rec.effective_to_date := l_db_taav_rec.effective_to_date;
2314: END IF;
2315: IF (x_taav_rec.effective_from_date = OKC_API.G_MISS_DATE)
2311: IF (x_taav_rec.effective_to_date = OKC_API.G_MISS_DATE)
2312: THEN
2313: x_taav_rec.effective_to_date := l_db_taav_rec.effective_to_date;
2314: END IF;
2315: IF (x_taav_rec.effective_from_date = OKC_API.G_MISS_DATE)
2316: THEN
2317: x_taav_rec.effective_from_date := l_db_taav_rec.effective_from_date;
2318: END IF;
2319: IF (x_taav_rec.proof_provided_date = OKC_API.G_MISS_DATE)
2315: IF (x_taav_rec.effective_from_date = OKC_API.G_MISS_DATE)
2316: THEN
2317: x_taav_rec.effective_from_date := l_db_taav_rec.effective_from_date;
2318: END IF;
2319: IF (x_taav_rec.proof_provided_date = OKC_API.G_MISS_DATE)
2320: THEN
2321: x_taav_rec.proof_provided_date := l_db_taav_rec.proof_provided_date;
2322: END IF;
2323: IF (x_taav_rec.proof_required_date = OKC_API.G_MISS_DATE)
2319: IF (x_taav_rec.proof_provided_date = OKC_API.G_MISS_DATE)
2320: THEN
2321: x_taav_rec.proof_provided_date := l_db_taav_rec.proof_provided_date;
2322: END IF;
2323: IF (x_taav_rec.proof_required_date = OKC_API.G_MISS_DATE)
2324: THEN
2325: x_taav_rec.proof_required_date := l_db_taav_rec.proof_required_date;
2326: END IF;
2327: IF (x_taav_rec.lessor_insured_yn = OKC_API.G_MISS_CHAR)
2323: IF (x_taav_rec.proof_required_date = OKC_API.G_MISS_DATE)
2324: THEN
2325: x_taav_rec.proof_required_date := l_db_taav_rec.proof_required_date;
2326: END IF;
2327: IF (x_taav_rec.lessor_insured_yn = OKC_API.G_MISS_CHAR)
2328: THEN
2329: x_taav_rec.lessor_insured_yn := l_db_taav_rec.lessor_insured_yn;
2330: END IF;
2331: IF (x_taav_rec.lessor_payee_yn = OKC_API.G_MISS_CHAR)
2327: IF (x_taav_rec.lessor_insured_yn = OKC_API.G_MISS_CHAR)
2328: THEN
2329: x_taav_rec.lessor_insured_yn := l_db_taav_rec.lessor_insured_yn;
2330: END IF;
2331: IF (x_taav_rec.lessor_payee_yn = OKC_API.G_MISS_CHAR)
2332: THEN
2333: x_taav_rec.lessor_payee_yn := l_db_taav_rec.lessor_payee_yn;
2334: END IF;
2335: IF (x_taav_rec.int_id = OKC_API.G_MISS_NUM)
2331: IF (x_taav_rec.lessor_payee_yn = OKC_API.G_MISS_CHAR)
2332: THEN
2333: x_taav_rec.lessor_payee_yn := l_db_taav_rec.lessor_payee_yn;
2334: END IF;
2335: IF (x_taav_rec.int_id = OKC_API.G_MISS_NUM)
2336: THEN
2337: x_taav_rec.int_id := l_db_taav_rec.int_id;
2338: END IF;
2339: IF (x_taav_rec.isu_id = OKC_API.G_MISS_NUM)
2335: IF (x_taav_rec.int_id = OKC_API.G_MISS_NUM)
2336: THEN
2337: x_taav_rec.int_id := l_db_taav_rec.int_id;
2338: END IF;
2339: IF (x_taav_rec.isu_id = OKC_API.G_MISS_NUM)
2340: THEN
2341: x_taav_rec.isu_id := l_db_taav_rec.isu_id;
2342: END IF;
2343: IF (x_taav_rec.agency_site_id = OKC_API.G_MISS_NUM)
2339: IF (x_taav_rec.isu_id = OKC_API.G_MISS_NUM)
2340: THEN
2341: x_taav_rec.isu_id := l_db_taav_rec.isu_id;
2342: END IF;
2343: IF (x_taav_rec.agency_site_id = OKC_API.G_MISS_NUM)
2344: THEN
2345: x_taav_rec.agency_site_id := l_db_taav_rec.agency_site_id;
2346: END IF;
2347: IF (x_taav_rec.agent_site_id = OKC_API.G_MISS_NUM)
2343: IF (x_taav_rec.agency_site_id = OKC_API.G_MISS_NUM)
2344: THEN
2345: x_taav_rec.agency_site_id := l_db_taav_rec.agency_site_id;
2346: END IF;
2347: IF (x_taav_rec.agent_site_id = OKC_API.G_MISS_NUM)
2348: THEN
2349: x_taav_rec.agent_site_id := l_db_taav_rec.agent_site_id;
2350: END IF;
2351: IF (x_taav_rec.territory_code = OKC_API.G_MISS_CHAR)
2347: IF (x_taav_rec.agent_site_id = OKC_API.G_MISS_NUM)
2348: THEN
2349: x_taav_rec.agent_site_id := l_db_taav_rec.agent_site_id;
2350: END IF;
2351: IF (x_taav_rec.territory_code = OKC_API.G_MISS_CHAR)
2352: THEN
2353: x_taav_rec.territory_code := l_db_taav_rec.territory_code;
2354: END IF;
2355: IF (x_taav_rec.attribute_category = OKC_API.G_MISS_CHAR)
2351: IF (x_taav_rec.territory_code = OKC_API.G_MISS_CHAR)
2352: THEN
2353: x_taav_rec.territory_code := l_db_taav_rec.territory_code;
2354: END IF;
2355: IF (x_taav_rec.attribute_category = OKC_API.G_MISS_CHAR)
2356: THEN
2357: x_taav_rec.attribute_category := l_db_taav_rec.attribute_category;
2358: END IF;
2359: IF (x_taav_rec.attribute1 = OKC_API.G_MISS_CHAR)
2355: IF (x_taav_rec.attribute_category = OKC_API.G_MISS_CHAR)
2356: THEN
2357: x_taav_rec.attribute_category := l_db_taav_rec.attribute_category;
2358: END IF;
2359: IF (x_taav_rec.attribute1 = OKC_API.G_MISS_CHAR)
2360: THEN
2361: x_taav_rec.attribute1 := l_db_taav_rec.attribute1;
2362: END IF;
2363: IF (x_taav_rec.attribute2 = OKC_API.G_MISS_CHAR)
2359: IF (x_taav_rec.attribute1 = OKC_API.G_MISS_CHAR)
2360: THEN
2361: x_taav_rec.attribute1 := l_db_taav_rec.attribute1;
2362: END IF;
2363: IF (x_taav_rec.attribute2 = OKC_API.G_MISS_CHAR)
2364: THEN
2365: x_taav_rec.attribute2 := l_db_taav_rec.attribute2;
2366: END IF;
2367: IF (x_taav_rec.attribute3 = OKC_API.G_MISS_CHAR)
2363: IF (x_taav_rec.attribute2 = OKC_API.G_MISS_CHAR)
2364: THEN
2365: x_taav_rec.attribute2 := l_db_taav_rec.attribute2;
2366: END IF;
2367: IF (x_taav_rec.attribute3 = OKC_API.G_MISS_CHAR)
2368: THEN
2369: x_taav_rec.attribute3 := l_db_taav_rec.attribute3;
2370: END IF;
2371: IF (x_taav_rec.attribute4 = OKC_API.G_MISS_CHAR)
2367: IF (x_taav_rec.attribute3 = OKC_API.G_MISS_CHAR)
2368: THEN
2369: x_taav_rec.attribute3 := l_db_taav_rec.attribute3;
2370: END IF;
2371: IF (x_taav_rec.attribute4 = OKC_API.G_MISS_CHAR)
2372: THEN
2373: x_taav_rec.attribute4 := l_db_taav_rec.attribute4;
2374: END IF;
2375: IF (x_taav_rec.attribute5 = OKC_API.G_MISS_CHAR)
2371: IF (x_taav_rec.attribute4 = OKC_API.G_MISS_CHAR)
2372: THEN
2373: x_taav_rec.attribute4 := l_db_taav_rec.attribute4;
2374: END IF;
2375: IF (x_taav_rec.attribute5 = OKC_API.G_MISS_CHAR)
2376: THEN
2377: x_taav_rec.attribute5 := l_db_taav_rec.attribute5;
2378: END IF;
2379: IF (x_taav_rec.attribute6 = OKC_API.G_MISS_CHAR)
2375: IF (x_taav_rec.attribute5 = OKC_API.G_MISS_CHAR)
2376: THEN
2377: x_taav_rec.attribute5 := l_db_taav_rec.attribute5;
2378: END IF;
2379: IF (x_taav_rec.attribute6 = OKC_API.G_MISS_CHAR)
2380: THEN
2381: x_taav_rec.attribute6 := l_db_taav_rec.attribute6;
2382: END IF;
2383: IF (x_taav_rec.attribute7 = OKC_API.G_MISS_CHAR)
2379: IF (x_taav_rec.attribute6 = OKC_API.G_MISS_CHAR)
2380: THEN
2381: x_taav_rec.attribute6 := l_db_taav_rec.attribute6;
2382: END IF;
2383: IF (x_taav_rec.attribute7 = OKC_API.G_MISS_CHAR)
2384: THEN
2385: x_taav_rec.attribute7 := l_db_taav_rec.attribute7;
2386: END IF;
2387: IF (x_taav_rec.attribute8 = OKC_API.G_MISS_CHAR)
2383: IF (x_taav_rec.attribute7 = OKC_API.G_MISS_CHAR)
2384: THEN
2385: x_taav_rec.attribute7 := l_db_taav_rec.attribute7;
2386: END IF;
2387: IF (x_taav_rec.attribute8 = OKC_API.G_MISS_CHAR)
2388: THEN
2389: x_taav_rec.attribute8 := l_db_taav_rec.attribute8;
2390: END IF;
2391: IF (x_taav_rec.attribute9 = OKC_API.G_MISS_CHAR)
2387: IF (x_taav_rec.attribute8 = OKC_API.G_MISS_CHAR)
2388: THEN
2389: x_taav_rec.attribute8 := l_db_taav_rec.attribute8;
2390: END IF;
2391: IF (x_taav_rec.attribute9 = OKC_API.G_MISS_CHAR)
2392: THEN
2393: x_taav_rec.attribute9 := l_db_taav_rec.attribute9;
2394: END IF;
2395: IF (x_taav_rec.attribute10 = OKC_API.G_MISS_CHAR)
2391: IF (x_taav_rec.attribute9 = OKC_API.G_MISS_CHAR)
2392: THEN
2393: x_taav_rec.attribute9 := l_db_taav_rec.attribute9;
2394: END IF;
2395: IF (x_taav_rec.attribute10 = OKC_API.G_MISS_CHAR)
2396: THEN
2397: x_taav_rec.attribute10 := l_db_taav_rec.attribute10;
2398: END IF;
2399: IF (x_taav_rec.attribute11 = OKC_API.G_MISS_CHAR)
2395: IF (x_taav_rec.attribute10 = OKC_API.G_MISS_CHAR)
2396: THEN
2397: x_taav_rec.attribute10 := l_db_taav_rec.attribute10;
2398: END IF;
2399: IF (x_taav_rec.attribute11 = OKC_API.G_MISS_CHAR)
2400: THEN
2401: x_taav_rec.attribute11 := l_db_taav_rec.attribute11;
2402: END IF;
2403: IF (x_taav_rec.attribute12 = OKC_API.G_MISS_CHAR)
2399: IF (x_taav_rec.attribute11 = OKC_API.G_MISS_CHAR)
2400: THEN
2401: x_taav_rec.attribute11 := l_db_taav_rec.attribute11;
2402: END IF;
2403: IF (x_taav_rec.attribute12 = OKC_API.G_MISS_CHAR)
2404: THEN
2405: x_taav_rec.attribute12 := l_db_taav_rec.attribute12;
2406: END IF;
2407: IF (x_taav_rec.attribute13 = OKC_API.G_MISS_CHAR)
2403: IF (x_taav_rec.attribute12 = OKC_API.G_MISS_CHAR)
2404: THEN
2405: x_taav_rec.attribute12 := l_db_taav_rec.attribute12;
2406: END IF;
2407: IF (x_taav_rec.attribute13 = OKC_API.G_MISS_CHAR)
2408: THEN
2409: x_taav_rec.attribute13 := l_db_taav_rec.attribute13;
2410: END IF;
2411: IF (x_taav_rec.attribute14 = OKC_API.G_MISS_CHAR)
2407: IF (x_taav_rec.attribute13 = OKC_API.G_MISS_CHAR)
2408: THEN
2409: x_taav_rec.attribute13 := l_db_taav_rec.attribute13;
2410: END IF;
2411: IF (x_taav_rec.attribute14 = OKC_API.G_MISS_CHAR)
2412: THEN
2413: x_taav_rec.attribute14 := l_db_taav_rec.attribute14;
2414: END IF;
2415: IF (x_taav_rec.attribute15 = OKC_API.G_MISS_CHAR)
2411: IF (x_taav_rec.attribute14 = OKC_API.G_MISS_CHAR)
2412: THEN
2413: x_taav_rec.attribute14 := l_db_taav_rec.attribute14;
2414: END IF;
2415: IF (x_taav_rec.attribute15 = OKC_API.G_MISS_CHAR)
2416: THEN
2417: x_taav_rec.attribute15 := l_db_taav_rec.attribute15;
2418: END IF;
2419: IF (x_taav_rec.created_by = OKC_API.G_MISS_NUM)
2415: IF (x_taav_rec.attribute15 = OKC_API.G_MISS_CHAR)
2416: THEN
2417: x_taav_rec.attribute15 := l_db_taav_rec.attribute15;
2418: END IF;
2419: IF (x_taav_rec.created_by = OKC_API.G_MISS_NUM)
2420: THEN
2421: x_taav_rec.created_by := l_db_taav_rec.created_by;
2422: END IF;
2423: IF (x_taav_rec.creation_date = OKC_API.G_MISS_DATE)
2419: IF (x_taav_rec.created_by = OKC_API.G_MISS_NUM)
2420: THEN
2421: x_taav_rec.created_by := l_db_taav_rec.created_by;
2422: END IF;
2423: IF (x_taav_rec.creation_date = OKC_API.G_MISS_DATE)
2424: THEN
2425: x_taav_rec.creation_date := l_db_taav_rec.creation_date;
2426: END IF;
2427: IF (x_taav_rec.last_updated_by = OKC_API.G_MISS_NUM)
2423: IF (x_taav_rec.creation_date = OKC_API.G_MISS_DATE)
2424: THEN
2425: x_taav_rec.creation_date := l_db_taav_rec.creation_date;
2426: END IF;
2427: IF (x_taav_rec.last_updated_by = OKC_API.G_MISS_NUM)
2428: THEN
2429: x_taav_rec.last_updated_by := l_db_taav_rec.last_updated_by;
2430: END IF;
2431: IF (x_taav_rec.last_update_date = OKC_API.G_MISS_DATE)
2427: IF (x_taav_rec.last_updated_by = OKC_API.G_MISS_NUM)
2428: THEN
2429: x_taav_rec.last_updated_by := l_db_taav_rec.last_updated_by;
2430: END IF;
2431: IF (x_taav_rec.last_update_date = OKC_API.G_MISS_DATE)
2432: THEN
2433: x_taav_rec.last_update_date := l_db_taav_rec.last_update_date;
2434: END IF;
2435: IF (x_taav_rec.last_update_login = OKC_API.G_MISS_NUM)
2431: IF (x_taav_rec.last_update_date = OKC_API.G_MISS_DATE)
2432: THEN
2433: x_taav_rec.last_update_date := l_db_taav_rec.last_update_date;
2434: END IF;
2435: IF (x_taav_rec.last_update_login = OKC_API.G_MISS_NUM)
2436: THEN
2437: x_taav_rec.last_update_login := l_db_taav_rec.last_update_login;
2438: END IF;
2439: END IF;
2445: FUNCTION Set_Attributes (
2446: p_taav_rec IN taav_rec_type,
2447: x_taav_rec OUT NOCOPY taav_rec_type
2448: ) RETURN VARCHAR2 IS
2449: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2450: BEGIN
2451: x_taav_rec := p_taav_rec;
2452: RETURN(l_return_status);
2453: END Set_Attributes;
2451: x_taav_rec := p_taav_rec;
2452: RETURN(l_return_status);
2453: END Set_Attributes;
2454: BEGIN
2455: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2456: G_PKG_NAME,
2457: p_init_msg_list,
2458: l_api_version,
2459: p_api_version,
2458: l_api_version,
2459: p_api_version,
2460: '_PVT',
2461: x_return_status);
2462: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_ERROR;
2466: END IF;
2459: p_api_version,
2460: '_PVT',
2461: x_return_status);
2462: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_ERROR;
2466: END IF;
2467: --- Setting item attributes
2460: '_PVT',
2461: x_return_status);
2462: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_ERROR;
2466: END IF;
2467: --- Setting item attributes
2468: l_return_status := Set_Attributes(
2461: x_return_status);
2462: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2463: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2464: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2465: RAISE OKC_API.G_EXCEPTION_ERROR;
2466: END IF;
2467: --- Setting item attributes
2468: l_return_status := Set_Attributes(
2469: p_taav_rec, -- IN
2468: l_return_status := Set_Attributes(
2469: p_taav_rec, -- IN
2470: x_taav_rec); -- OUT
2471: --- If any errors happen abort API
2472: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2475: RAISE OKC_API.G_EXCEPTION_ERROR;
2476: END IF;
2469: p_taav_rec, -- IN
2470: x_taav_rec); -- OUT
2471: --- If any errors happen abort API
2472: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2475: RAISE OKC_API.G_EXCEPTION_ERROR;
2476: END IF;
2477: l_return_status := populate_new_record(l_taav_rec, l_def_taav_rec);
2470: x_taav_rec); -- OUT
2471: --- If any errors happen abort API
2472: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2475: RAISE OKC_API.G_EXCEPTION_ERROR;
2476: END IF;
2477: l_return_status := populate_new_record(l_taav_rec, l_def_taav_rec);
2478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2471: --- If any errors happen abort API
2472: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2473: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2475: RAISE OKC_API.G_EXCEPTION_ERROR;
2476: END IF;
2477: l_return_status := populate_new_record(l_taav_rec, l_def_taav_rec);
2478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2474: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2475: RAISE OKC_API.G_EXCEPTION_ERROR;
2476: END IF;
2477: l_return_status := populate_new_record(l_taav_rec, l_def_taav_rec);
2478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2475: RAISE OKC_API.G_EXCEPTION_ERROR;
2476: END IF;
2477: l_return_status := populate_new_record(l_taav_rec, l_def_taav_rec);
2478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2483: l_def_taav_rec := fill_who_columns(l_def_taav_rec);
2476: END IF;
2477: l_return_status := populate_new_record(l_taav_rec, l_def_taav_rec);
2478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2483: l_def_taav_rec := fill_who_columns(l_def_taav_rec);
2484: --- Validate all non-missing attributes (Item Level Validation)
2477: l_return_status := populate_new_record(l_taav_rec, l_def_taav_rec);
2478: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2479: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2480: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2481: RAISE OKC_API.G_EXCEPTION_ERROR;
2482: END IF;
2483: l_def_taav_rec := fill_who_columns(l_def_taav_rec);
2484: --- Validate all non-missing attributes (Item Level Validation)
2485: l_return_status := Validate_Attributes(l_def_taav_rec);
2483: l_def_taav_rec := fill_who_columns(l_def_taav_rec);
2484: --- Validate all non-missing attributes (Item Level Validation)
2485: l_return_status := Validate_Attributes(l_def_taav_rec);
2486: --- If any errors happen abort API
2487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2484: --- Validate all non-missing attributes (Item Level Validation)
2485: l_return_status := Validate_Attributes(l_def_taav_rec);
2486: --- If any errors happen abort API
2487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492: l_return_status := Validate_Record(l_def_taav_rec, l_db_taav_rec);
2485: l_return_status := Validate_Attributes(l_def_taav_rec);
2486: --- If any errors happen abort API
2487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492: l_return_status := Validate_Record(l_def_taav_rec, l_db_taav_rec);
2493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2486: --- If any errors happen abort API
2487: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492: l_return_status := Validate_Record(l_def_taav_rec, l_db_taav_rec);
2493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492: l_return_status := Validate_Record(l_def_taav_rec, l_db_taav_rec);
2493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2496: RAISE OKC_API.G_EXCEPTION_ERROR;
2497: END IF;
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492: l_return_status := Validate_Record(l_def_taav_rec, l_db_taav_rec);
2493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2496: RAISE OKC_API.G_EXCEPTION_ERROR;
2497: END IF;
2498:
2491: END IF;
2492: l_return_status := Validate_Record(l_def_taav_rec, l_db_taav_rec);
2493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2496: RAISE OKC_API.G_EXCEPTION_ERROR;
2497: END IF;
2498:
2499: -- Lock the Record
2492: l_return_status := Validate_Record(l_def_taav_rec, l_db_taav_rec);
2493: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2494: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2495: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2496: RAISE OKC_API.G_EXCEPTION_ERROR;
2497: END IF;
2498:
2499: -- Lock the Record
2500: lock_row(
2503: x_return_status => l_return_status,
2504: x_msg_count => x_msg_count,
2505: x_msg_data => x_msg_data,
2506: p_taav_rec => p_taav_rec);
2507: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2509: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2510: RAISE OKC_API.G_EXCEPTION_ERROR;
2511: END IF;
2504: x_msg_count => x_msg_count,
2505: x_msg_data => x_msg_data,
2506: p_taav_rec => p_taav_rec);
2507: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2509: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2510: RAISE OKC_API.G_EXCEPTION_ERROR;
2511: END IF;
2512:
2505: x_msg_data => x_msg_data,
2506: p_taav_rec => p_taav_rec);
2507: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2509: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2510: RAISE OKC_API.G_EXCEPTION_ERROR;
2511: END IF;
2512:
2513: -----------------------------------------
2506: p_taav_rec => p_taav_rec);
2507: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2509: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2510: RAISE OKC_API.G_EXCEPTION_ERROR;
2511: END IF;
2512:
2513: -----------------------------------------
2514: -- Move VIEW record to "Child" records --
2524: x_msg_data,
2525: l_taa_rec,
2526: lx_taa_rec
2527: );
2528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2531: RAISE OKC_API.G_EXCEPTION_ERROR;
2532: END IF;
2525: l_taa_rec,
2526: lx_taa_rec
2527: );
2528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2531: RAISE OKC_API.G_EXCEPTION_ERROR;
2532: END IF;
2533: migrate(lx_taa_rec, l_def_taav_rec);
2526: lx_taa_rec
2527: );
2528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2531: RAISE OKC_API.G_EXCEPTION_ERROR;
2532: END IF;
2533: migrate(lx_taa_rec, l_def_taav_rec);
2534: x_taav_rec := l_def_taav_rec;
2527: );
2528: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2530: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2531: RAISE OKC_API.G_EXCEPTION_ERROR;
2532: END IF;
2533: migrate(lx_taa_rec, l_def_taav_rec);
2534: x_taav_rec := l_def_taav_rec;
2535: x_return_status := l_return_status;
2532: END IF;
2533: migrate(lx_taa_rec, l_def_taav_rec);
2534: x_taav_rec := l_def_taav_rec;
2535: x_return_status := l_return_status;
2536: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2537: EXCEPTION
2538: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2539: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2540: (
2534: x_taav_rec := l_def_taav_rec;
2535: x_return_status := l_return_status;
2536: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2537: EXCEPTION
2538: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2539: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2540: (
2541: l_api_name,
2542: G_PKG_NAME,
2535: x_return_status := l_return_status;
2536: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2537: EXCEPTION
2538: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2539: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2540: (
2541: l_api_name,
2542: G_PKG_NAME,
2543: 'OKC_API.G_RET_STS_ERROR',
2539: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2540: (
2541: l_api_name,
2542: G_PKG_NAME,
2543: 'OKC_API.G_RET_STS_ERROR',
2544: x_msg_count,
2545: x_msg_data,
2546: '_PVT'
2547: );
2544: x_msg_count,
2545: x_msg_data,
2546: '_PVT'
2547: );
2548: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2549: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2550: (
2551: l_api_name,
2552: G_PKG_NAME,
2545: x_msg_data,
2546: '_PVT'
2547: );
2548: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2549: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2550: (
2551: l_api_name,
2552: G_PKG_NAME,
2553: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2549: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2550: (
2551: l_api_name,
2552: G_PKG_NAME,
2553: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2554: x_msg_count,
2555: x_msg_data,
2556: '_PVT'
2557: );
2555: x_msg_data,
2556: '_PVT'
2557: );
2558: WHEN OTHERS THEN
2559: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2560: (
2561: l_api_name,
2562: G_PKG_NAME,
2563: 'OTHERS',
2576: x_msg_count OUT NOCOPY NUMBER,
2577: x_msg_data OUT NOCOPY VARCHAR2,
2578: p_taav_tbl IN taav_tbl_type,
2579: x_taav_tbl OUT NOCOPY taav_tbl_type,
2580: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2581:
2582: l_api_version CONSTANT NUMBER := 1;
2583: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2584: i NUMBER := 0;
2582: l_api_version CONSTANT NUMBER := 1;
2583: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2584: i NUMBER := 0;
2585: BEGIN
2586: OKC_API.init_msg_list(p_init_msg_list);
2587: -- Make sure PL/SQL table has records in it before passing
2588: IF (p_taav_tbl.COUNT > 0) THEN
2589: i := p_taav_tbl.FIRST;
2590: LOOP
2588: IF (p_taav_tbl.COUNT > 0) THEN
2589: i := p_taav_tbl.FIRST;
2590: LOOP
2591: DECLARE
2592: l_error_rec OKC_API.ERROR_REC_TYPE;
2593: BEGIN
2594: l_error_rec.api_name := l_api_name;
2595: l_error_rec.api_package := G_PKG_NAME;
2596: l_error_rec.idx := i;
2595: l_error_rec.api_package := G_PKG_NAME;
2596: l_error_rec.idx := i;
2597: update_row (
2598: p_api_version => p_api_version,
2599: p_init_msg_list => OKC_API.G_FALSE,
2600: x_return_status => l_error_rec.error_type,
2601: x_msg_count => l_error_rec.msg_count,
2602: x_msg_data => l_error_rec.msg_data,
2603: p_taav_rec => p_taav_tbl(i),
2601: x_msg_count => l_error_rec.msg_count,
2602: x_msg_data => l_error_rec.msg_data,
2603: p_taav_rec => p_taav_tbl(i),
2604: x_taav_rec => x_taav_tbl(i));
2605: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2606: l_error_rec.sqlcode := SQLCODE;
2607: load_error_tbl(l_error_rec, px_error_tbl);
2608: ELSE
2609: x_msg_count := l_error_rec.msg_count;
2609: x_msg_count := l_error_rec.msg_count;
2610: x_msg_data := l_error_rec.msg_data;
2611: END IF;
2612: EXCEPTION
2613: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2614: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2615: l_error_rec.sqlcode := SQLCODE;
2616: load_error_tbl(l_error_rec, px_error_tbl);
2617: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2610: x_msg_data := l_error_rec.msg_data;
2611: END IF;
2612: EXCEPTION
2613: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2614: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2615: l_error_rec.sqlcode := SQLCODE;
2616: load_error_tbl(l_error_rec, px_error_tbl);
2617: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2618: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2613: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2614: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2615: l_error_rec.sqlcode := SQLCODE;
2616: load_error_tbl(l_error_rec, px_error_tbl);
2617: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2618: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2619: l_error_rec.sqlcode := SQLCODE;
2620: load_error_tbl(l_error_rec, px_error_tbl);
2621: WHEN OTHERS THEN
2614: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2615: l_error_rec.sqlcode := SQLCODE;
2616: load_error_tbl(l_error_rec, px_error_tbl);
2617: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2618: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2619: l_error_rec.sqlcode := SQLCODE;
2620: load_error_tbl(l_error_rec, px_error_tbl);
2621: WHEN OTHERS THEN
2622: l_error_rec.error_type := 'OTHERS';
2629: END IF;
2630: -- Loop through the error_tbl to find the error with the highest severity
2631: -- and return it.
2632: x_return_status := find_highest_exception(px_error_tbl);
2633: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2634: EXCEPTION
2635: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2636: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2637: (
2631: -- and return it.
2632: x_return_status := find_highest_exception(px_error_tbl);
2633: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2634: EXCEPTION
2635: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2636: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2637: (
2638: l_api_name,
2639: G_PKG_NAME,
2632: x_return_status := find_highest_exception(px_error_tbl);
2633: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2634: EXCEPTION
2635: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2636: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2637: (
2638: l_api_name,
2639: G_PKG_NAME,
2640: 'OKC_API.G_RET_STS_ERROR',
2636: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2637: (
2638: l_api_name,
2639: G_PKG_NAME,
2640: 'OKC_API.G_RET_STS_ERROR',
2641: x_msg_count,
2642: x_msg_data,
2643: '_PVT'
2644: );
2641: x_msg_count,
2642: x_msg_data,
2643: '_PVT'
2644: );
2645: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2646: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2647: (
2648: l_api_name,
2649: G_PKG_NAME,
2642: x_msg_data,
2643: '_PVT'
2644: );
2645: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2646: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2647: (
2648: l_api_name,
2649: G_PKG_NAME,
2650: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2646: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2647: (
2648: l_api_name,
2649: G_PKG_NAME,
2650: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2651: x_msg_count,
2652: x_msg_data,
2653: '_PVT'
2654: );
2652: x_msg_data,
2653: '_PVT'
2654: );
2655: WHEN OTHERS THEN
2656: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2657: (
2658: l_api_name,
2659: G_PKG_NAME,
2660: 'OTHERS',
2679: x_taav_tbl OUT NOCOPY taav_tbl_type) IS
2680:
2681: l_api_version CONSTANT NUMBER := 1;
2682: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2683: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2684: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2685: BEGIN
2686: OKC_API.init_msg_list(p_init_msg_list);
2687: -- Make sure PL/SQL table has records in it before passing
2680:
2681: l_api_version CONSTANT NUMBER := 1;
2682: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2683: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2684: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2685: BEGIN
2686: OKC_API.init_msg_list(p_init_msg_list);
2687: -- Make sure PL/SQL table has records in it before passing
2688: IF (p_taav_tbl.COUNT > 0) THEN
2682: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2683: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2684: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2685: BEGIN
2686: OKC_API.init_msg_list(p_init_msg_list);
2687: -- Make sure PL/SQL table has records in it before passing
2688: IF (p_taav_tbl.COUNT > 0) THEN
2689: update_row (
2690: p_api_version => p_api_version,
2687: -- Make sure PL/SQL table has records in it before passing
2688: IF (p_taav_tbl.COUNT > 0) THEN
2689: update_row (
2690: p_api_version => p_api_version,
2691: p_init_msg_list => OKC_API.G_FALSE,
2692: x_return_status => x_return_status,
2693: x_msg_count => x_msg_count,
2694: x_msg_data => x_msg_data,
2695: p_taav_tbl => p_taav_tbl,
2695: p_taav_tbl => p_taav_tbl,
2696: x_taav_tbl => x_taav_tbl,
2697: px_error_tbl => l_error_tbl);
2698: END IF;
2699: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2700: EXCEPTION
2701: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2702: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2703: (
2697: px_error_tbl => l_error_tbl);
2698: END IF;
2699: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2700: EXCEPTION
2701: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2702: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2703: (
2704: l_api_name,
2705: G_PKG_NAME,
2698: END IF;
2699: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2700: EXCEPTION
2701: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2702: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2703: (
2704: l_api_name,
2705: G_PKG_NAME,
2706: 'OKC_API.G_RET_STS_ERROR',
2702: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2703: (
2704: l_api_name,
2705: G_PKG_NAME,
2706: 'OKC_API.G_RET_STS_ERROR',
2707: x_msg_count,
2708: x_msg_data,
2709: '_PVT'
2710: );
2707: x_msg_count,
2708: x_msg_data,
2709: '_PVT'
2710: );
2711: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2713: (
2714: l_api_name,
2715: G_PKG_NAME,
2708: x_msg_data,
2709: '_PVT'
2710: );
2711: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2713: (
2714: l_api_name,
2715: G_PKG_NAME,
2716: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2712: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2713: (
2714: l_api_name,
2715: G_PKG_NAME,
2716: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2717: x_msg_count,
2718: x_msg_data,
2719: '_PVT'
2720: );
2718: x_msg_data,
2719: '_PVT'
2720: );
2721: WHEN OTHERS THEN
2722: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2723: (
2724: l_api_name,
2725: G_PKG_NAME,
2726: 'OTHERS',
2744: p_taa_rec IN taa_rec_type) IS
2745:
2746: l_api_version CONSTANT NUMBER := 1;
2747: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
2748: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2749: l_taa_rec taa_rec_type := p_taa_rec;
2750: l_row_notfound BOOLEAN := TRUE;
2751: BEGIN
2752: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2748: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2749: l_taa_rec taa_rec_type := p_taa_rec;
2750: l_row_notfound BOOLEAN := TRUE;
2751: BEGIN
2752: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2753: p_init_msg_list,
2754: '_PVT',
2755: x_return_status);
2756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2752: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2753: p_init_msg_list,
2754: '_PVT',
2755: x_return_status);
2756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2757: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2758: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2759: RAISE OKC_API.G_EXCEPTION_ERROR;
2760: END IF;
2753: p_init_msg_list,
2754: '_PVT',
2755: x_return_status);
2756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2757: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2758: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2759: RAISE OKC_API.G_EXCEPTION_ERROR;
2760: END IF;
2761:
2754: '_PVT',
2755: x_return_status);
2756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2757: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2758: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2759: RAISE OKC_API.G_EXCEPTION_ERROR;
2760: END IF;
2761:
2762: DELETE FROM OKL_TAA_REQUEST_DETAILS_B
2755: x_return_status);
2756: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2757: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2758: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2759: RAISE OKC_API.G_EXCEPTION_ERROR;
2760: END IF;
2761:
2762: DELETE FROM OKL_TAA_REQUEST_DETAILS_B
2763: WHERE ID = p_taa_rec.id;
2762: DELETE FROM OKL_TAA_REQUEST_DETAILS_B
2763: WHERE ID = p_taa_rec.id;
2764:
2765: x_return_status := l_return_status;
2766: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2767: EXCEPTION
2768: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2769: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2770: (
2764:
2765: x_return_status := l_return_status;
2766: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2767: EXCEPTION
2768: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2769: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2770: (
2771: l_api_name,
2772: G_PKG_NAME,
2765: x_return_status := l_return_status;
2766: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2767: EXCEPTION
2768: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2769: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2770: (
2771: l_api_name,
2772: G_PKG_NAME,
2773: 'OKC_API.G_RET_STS_ERROR',
2769: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2770: (
2771: l_api_name,
2772: G_PKG_NAME,
2773: 'OKC_API.G_RET_STS_ERROR',
2774: x_msg_count,
2775: x_msg_data,
2776: '_PVT'
2777: );
2774: x_msg_count,
2775: x_msg_data,
2776: '_PVT'
2777: );
2778: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2780: (
2781: l_api_name,
2782: G_PKG_NAME,
2775: x_msg_data,
2776: '_PVT'
2777: );
2778: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2780: (
2781: l_api_name,
2782: G_PKG_NAME,
2783: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2779: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2780: (
2781: l_api_name,
2782: G_PKG_NAME,
2783: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2784: x_msg_count,
2785: x_msg_data,
2786: '_PVT'
2787: );
2785: x_msg_data,
2786: '_PVT'
2787: );
2788: WHEN OTHERS THEN
2789: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2790: (
2791: l_api_name,
2792: G_PKG_NAME,
2793: 'OTHERS',
2808: p_taav_rec IN taav_rec_type) IS
2809:
2810: l_api_version CONSTANT NUMBER := 1;
2811: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2812: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2813: l_taav_rec taav_rec_type := p_taav_rec;
2814: l_taa_rec taa_rec_type;
2815: BEGIN
2816: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2812: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2813: l_taav_rec taav_rec_type := p_taav_rec;
2814: l_taa_rec taa_rec_type;
2815: BEGIN
2816: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2817: G_PKG_NAME,
2818: p_init_msg_list,
2819: l_api_version,
2820: p_api_version,
2819: l_api_version,
2820: p_api_version,
2821: '_PVT',
2822: x_return_status);
2823: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2824: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2825: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2826: RAISE OKC_API.G_EXCEPTION_ERROR;
2827: END IF;
2820: p_api_version,
2821: '_PVT',
2822: x_return_status);
2823: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2824: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2825: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2826: RAISE OKC_API.G_EXCEPTION_ERROR;
2827: END IF;
2828: -----------------------------------------
2821: '_PVT',
2822: x_return_status);
2823: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2824: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2825: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2826: RAISE OKC_API.G_EXCEPTION_ERROR;
2827: END IF;
2828: -----------------------------------------
2829: -- Move VIEW record to "Child" records --
2822: x_return_status);
2823: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2824: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2825: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2826: RAISE OKC_API.G_EXCEPTION_ERROR;
2827: END IF;
2828: -----------------------------------------
2829: -- Move VIEW record to "Child" records --
2830: -----------------------------------------
2838: x_msg_count,
2839: x_msg_data,
2840: l_taa_rec
2841: );
2842: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2843: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2844: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2845: RAISE OKC_API.G_EXCEPTION_ERROR;
2846: END IF;
2839: x_msg_data,
2840: l_taa_rec
2841: );
2842: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2843: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2844: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2845: RAISE OKC_API.G_EXCEPTION_ERROR;
2846: END IF;
2847: x_return_status := l_return_status;
2840: l_taa_rec
2841: );
2842: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2843: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2844: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2845: RAISE OKC_API.G_EXCEPTION_ERROR;
2846: END IF;
2847: x_return_status := l_return_status;
2848: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2841: );
2842: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2843: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2844: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2845: RAISE OKC_API.G_EXCEPTION_ERROR;
2846: END IF;
2847: x_return_status := l_return_status;
2848: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2844: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2845: RAISE OKC_API.G_EXCEPTION_ERROR;
2846: END IF;
2847: x_return_status := l_return_status;
2848: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2850: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2852: (
2846: END IF;
2847: x_return_status := l_return_status;
2848: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2850: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2847: x_return_status := l_return_status;
2848: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2850: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OKC_API.G_RET_STS_ERROR',
2851: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OKC_API.G_RET_STS_ERROR',
2856: x_msg_count,
2857: x_msg_data,
2858: '_PVT'
2859: );
2856: x_msg_count,
2857: x_msg_data,
2858: '_PVT'
2859: );
2860: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2861: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2857: x_msg_data,
2858: '_PVT'
2859: );
2860: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2861: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2865: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2861: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2865: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2866: x_msg_count,
2867: x_msg_data,
2868: '_PVT'
2869: );
2867: x_msg_data,
2868: '_PVT'
2869: );
2870: WHEN OTHERS THEN
2871: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2872: (
2873: l_api_name,
2874: G_PKG_NAME,
2875: 'OTHERS',
2887: x_return_status OUT NOCOPY VARCHAR2,
2888: x_msg_count OUT NOCOPY NUMBER,
2889: x_msg_data OUT NOCOPY VARCHAR2,
2890: p_taav_tbl IN taav_tbl_type,
2891: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2892:
2893: l_api_version CONSTANT NUMBER := 1;
2894: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
2895: i NUMBER := 0;
2893: l_api_version CONSTANT NUMBER := 1;
2894: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
2895: i NUMBER := 0;
2896: BEGIN
2897: OKC_API.init_msg_list(p_init_msg_list);
2898: -- Make sure PL/SQL table has records in it before passing
2899: IF (p_taav_tbl.COUNT > 0) THEN
2900: i := p_taav_tbl.FIRST;
2901: LOOP
2899: IF (p_taav_tbl.COUNT > 0) THEN
2900: i := p_taav_tbl.FIRST;
2901: LOOP
2902: DECLARE
2903: l_error_rec OKC_API.ERROR_REC_TYPE;
2904: BEGIN
2905: l_error_rec.api_name := l_api_name;
2906: l_error_rec.api_package := G_PKG_NAME;
2907: l_error_rec.idx := i;
2906: l_error_rec.api_package := G_PKG_NAME;
2907: l_error_rec.idx := i;
2908: delete_row (
2909: p_api_version => p_api_version,
2910: p_init_msg_list => OKC_API.G_FALSE,
2911: x_return_status => l_error_rec.error_type,
2912: x_msg_count => l_error_rec.msg_count,
2913: x_msg_data => l_error_rec.msg_data,
2914: p_taav_rec => p_taav_tbl(i));
2911: x_return_status => l_error_rec.error_type,
2912: x_msg_count => l_error_rec.msg_count,
2913: x_msg_data => l_error_rec.msg_data,
2914: p_taav_rec => p_taav_tbl(i));
2915: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2916: l_error_rec.sqlcode := SQLCODE;
2917: load_error_tbl(l_error_rec, px_error_tbl);
2918: ELSE
2919: x_msg_count := l_error_rec.msg_count;
2919: x_msg_count := l_error_rec.msg_count;
2920: x_msg_data := l_error_rec.msg_data;
2921: END IF;
2922: EXCEPTION
2923: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2924: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2925: l_error_rec.sqlcode := SQLCODE;
2926: load_error_tbl(l_error_rec, px_error_tbl);
2927: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2920: x_msg_data := l_error_rec.msg_data;
2921: END IF;
2922: EXCEPTION
2923: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2924: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2925: l_error_rec.sqlcode := SQLCODE;
2926: load_error_tbl(l_error_rec, px_error_tbl);
2927: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2928: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2923: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2924: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2925: l_error_rec.sqlcode := SQLCODE;
2926: load_error_tbl(l_error_rec, px_error_tbl);
2927: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2928: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2929: l_error_rec.sqlcode := SQLCODE;
2930: load_error_tbl(l_error_rec, px_error_tbl);
2931: WHEN OTHERS THEN
2924: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2925: l_error_rec.sqlcode := SQLCODE;
2926: load_error_tbl(l_error_rec, px_error_tbl);
2927: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2928: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2929: l_error_rec.sqlcode := SQLCODE;
2930: load_error_tbl(l_error_rec, px_error_tbl);
2931: WHEN OTHERS THEN
2932: l_error_rec.error_type := 'OTHERS';
2939: END IF;
2940: -- Loop through the error_tbl to find the error with the highest severity
2941: -- and return it.
2942: x_return_status := find_highest_exception(px_error_tbl);
2943: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2944: EXCEPTION
2945: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2946: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2947: (
2941: -- and return it.
2942: x_return_status := find_highest_exception(px_error_tbl);
2943: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2944: EXCEPTION
2945: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2946: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2947: (
2948: l_api_name,
2949: G_PKG_NAME,
2942: x_return_status := find_highest_exception(px_error_tbl);
2943: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2944: EXCEPTION
2945: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2946: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2947: (
2948: l_api_name,
2949: G_PKG_NAME,
2950: 'OKC_API.G_RET_STS_ERROR',
2946: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2947: (
2948: l_api_name,
2949: G_PKG_NAME,
2950: 'OKC_API.G_RET_STS_ERROR',
2951: x_msg_count,
2952: x_msg_data,
2953: '_PVT'
2954: );
2951: x_msg_count,
2952: x_msg_data,
2953: '_PVT'
2954: );
2955: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2956: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2957: (
2958: l_api_name,
2959: G_PKG_NAME,
2952: x_msg_data,
2953: '_PVT'
2954: );
2955: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2956: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2957: (
2958: l_api_name,
2959: G_PKG_NAME,
2960: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2956: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2957: (
2958: l_api_name,
2959: G_PKG_NAME,
2960: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2961: x_msg_count,
2962: x_msg_data,
2963: '_PVT'
2964: );
2962: x_msg_data,
2963: '_PVT'
2964: );
2965: WHEN OTHERS THEN
2966: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2967: (
2968: l_api_name,
2969: G_PKG_NAME,
2970: 'OTHERS',
2986: p_taav_tbl IN taav_tbl_type) IS
2987:
2988: l_api_version CONSTANT NUMBER := 1;
2989: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2990: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2991: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2992: BEGIN
2993: OKC_API.init_msg_list(p_init_msg_list);
2994: -- Make sure PL/SQL table has records in it before passing
2987:
2988: l_api_version CONSTANT NUMBER := 1;
2989: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2990: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2991: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2992: BEGIN
2993: OKC_API.init_msg_list(p_init_msg_list);
2994: -- Make sure PL/SQL table has records in it before passing
2995: IF (p_taav_tbl.COUNT > 0) THEN
2989: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2990: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2991: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2992: BEGIN
2993: OKC_API.init_msg_list(p_init_msg_list);
2994: -- Make sure PL/SQL table has records in it before passing
2995: IF (p_taav_tbl.COUNT > 0) THEN
2996: delete_row (
2997: p_api_version => p_api_version,
2994: -- Make sure PL/SQL table has records in it before passing
2995: IF (p_taav_tbl.COUNT > 0) THEN
2996: delete_row (
2997: p_api_version => p_api_version,
2998: p_init_msg_list => OKC_API.G_FALSE,
2999: x_return_status => x_return_status,
3000: x_msg_count => x_msg_count,
3001: x_msg_data => x_msg_data,
3002: p_taav_tbl => p_taav_tbl,
3001: x_msg_data => x_msg_data,
3002: p_taav_tbl => p_taav_tbl,
3003: px_error_tbl => l_error_tbl);
3004: END IF;
3005: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3006: EXCEPTION
3007: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3009: (
3003: px_error_tbl => l_error_tbl);
3004: END IF;
3005: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3006: EXCEPTION
3007: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3009: (
3010: l_api_name,
3011: G_PKG_NAME,
3004: END IF;
3005: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3006: EXCEPTION
3007: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3009: (
3010: l_api_name,
3011: G_PKG_NAME,
3012: 'OKC_API.G_RET_STS_ERROR',
3008: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3009: (
3010: l_api_name,
3011: G_PKG_NAME,
3012: 'OKC_API.G_RET_STS_ERROR',
3013: x_msg_count,
3014: x_msg_data,
3015: '_PVT'
3016: );
3013: x_msg_count,
3014: x_msg_data,
3015: '_PVT'
3016: );
3017: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3018: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3019: (
3020: l_api_name,
3021: G_PKG_NAME,
3014: x_msg_data,
3015: '_PVT'
3016: );
3017: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3018: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3019: (
3020: l_api_name,
3021: G_PKG_NAME,
3022: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3018: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3019: (
3020: l_api_name,
3021: G_PKG_NAME,
3022: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3023: x_msg_count,
3024: x_msg_data,
3025: '_PVT'
3026: );
3024: x_msg_data,
3025: '_PVT'
3026: );
3027: WHEN OTHERS THEN
3028: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3029: (
3030: l_api_name,
3031: G_PKG_NAME,
3032: 'OTHERS',