[Home] [Help]
3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
36: ---------------------------------------------------------------------------
37: -- FUNCTION find_highest_exception
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);
210: ) RETURN polv_rec_type IS
211: l_polv_rec polv_rec_type;
212: l_row_notfound BOOLEAN := TRUE;
213: BEGIN
214: x_return_status := OKL_API.G_RET_STS_SUCCESS;
215: l_polv_rec := get_rec(p_polv_rec, l_row_notfound);
216: IF (l_row_notfound) THEN
217: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
218: x_return_status := OKL_API.G_RET_STS_ERROR;
213: BEGIN
214: x_return_status := OKL_API.G_RET_STS_SUCCESS;
215: l_polv_rec := get_rec(p_polv_rec, l_row_notfound);
216: IF (l_row_notfound) THEN
217: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
218: x_return_status := OKL_API.G_RET_STS_ERROR;
219: END IF;
220: RETURN(l_polv_rec);
221: END get_rec;
214: x_return_status := OKL_API.G_RET_STS_SUCCESS;
215: l_polv_rec := get_rec(p_polv_rec, l_row_notfound);
216: IF (l_row_notfound) THEN
217: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
218: x_return_status := OKL_API.G_RET_STS_ERROR;
219: END IF;
220: RETURN(l_polv_rec);
221: END get_rec;
222: -----------------------------------------------------------
349: ) RETURN pol_rec_type IS
350: l_pol_rec pol_rec_type;
351: l_row_notfound BOOLEAN := TRUE;
352: BEGIN
353: x_return_status := OKL_API.G_RET_STS_SUCCESS;
354: l_pol_rec := get_rec(p_pol_rec, l_row_notfound);
355: IF (l_row_notfound) THEN
356: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
357: x_return_status := OKL_API.G_RET_STS_ERROR;
352: BEGIN
353: x_return_status := OKL_API.G_RET_STS_SUCCESS;
354: l_pol_rec := get_rec(p_pol_rec, l_row_notfound);
355: IF (l_row_notfound) THEN
356: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
357: x_return_status := OKL_API.G_RET_STS_ERROR;
358: END IF;
359: RETURN(l_pol_rec);
360: END get_rec;
353: x_return_status := OKL_API.G_RET_STS_SUCCESS;
354: l_pol_rec := get_rec(p_pol_rec, l_row_notfound);
355: IF (l_row_notfound) THEN
356: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
357: x_return_status := OKL_API.G_RET_STS_ERROR;
358: END IF;
359: RETURN(l_pol_rec);
360: END get_rec;
361: -----------------------------------------------------------
377: p_polv_rec IN polv_rec_type
378: ) RETURN polv_rec_type IS
379: l_polv_rec polv_rec_type := p_polv_rec;
380: BEGIN
381: IF (l_polv_rec.id = OKL_API.G_MISS_NUM ) THEN
382: l_polv_rec.id := NULL;
383: END IF;
384: IF (l_polv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
385: l_polv_rec.object_version_number := NULL;
380: BEGIN
381: IF (l_polv_rec.id = OKL_API.G_MISS_NUM ) THEN
382: l_polv_rec.id := NULL;
383: END IF;
384: IF (l_polv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
385: l_polv_rec.object_version_number := NULL;
386: END IF;
387: IF (l_polv_rec.pot_id = OKL_API.G_MISS_NUM ) THEN
388: l_polv_rec.pot_id := NULL;
383: END IF;
384: IF (l_polv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
385: l_polv_rec.object_version_number := NULL;
386: END IF;
387: IF (l_polv_rec.pot_id = OKL_API.G_MISS_NUM ) THEN
388: l_polv_rec.pot_id := NULL;
389: END IF;
390: IF (l_polv_rec.khr_id = OKL_API.G_MISS_NUM ) THEN
391: l_polv_rec.khr_id := NULL;
386: END IF;
387: IF (l_polv_rec.pot_id = OKL_API.G_MISS_NUM ) THEN
388: l_polv_rec.pot_id := NULL;
389: END IF;
390: IF (l_polv_rec.khr_id = OKL_API.G_MISS_NUM ) THEN
391: l_polv_rec.khr_id := NULL;
392: END IF;
393: IF (l_polv_rec.pool_number = OKL_API.G_MISS_CHAR ) THEN
394: l_polv_rec.pool_number := NULL;
389: END IF;
390: IF (l_polv_rec.khr_id = OKL_API.G_MISS_NUM ) THEN
391: l_polv_rec.khr_id := NULL;
392: END IF;
393: IF (l_polv_rec.pool_number = OKL_API.G_MISS_CHAR ) THEN
394: l_polv_rec.pool_number := NULL;
395: END IF;
396: IF (l_polv_rec.description = OKL_API.G_MISS_CHAR ) THEN
397: l_polv_rec.description := NULL;
392: END IF;
393: IF (l_polv_rec.pool_number = OKL_API.G_MISS_CHAR ) THEN
394: l_polv_rec.pool_number := NULL;
395: END IF;
396: IF (l_polv_rec.description = OKL_API.G_MISS_CHAR ) THEN
397: l_polv_rec.description := NULL;
398: END IF;
399: IF (l_polv_rec.short_description = OKL_API.G_MISS_CHAR ) THEN
400: l_polv_rec.short_description := NULL;
395: END IF;
396: IF (l_polv_rec.description = OKL_API.G_MISS_CHAR ) THEN
397: l_polv_rec.description := NULL;
398: END IF;
399: IF (l_polv_rec.short_description = OKL_API.G_MISS_CHAR ) THEN
400: l_polv_rec.short_description := NULL;
401: END IF;
402: IF (l_polv_rec.currency_code = OKL_API.G_MISS_CHAR ) THEN
403: l_polv_rec.currency_code := NULL;
398: END IF;
399: IF (l_polv_rec.short_description = OKL_API.G_MISS_CHAR ) THEN
400: l_polv_rec.short_description := NULL;
401: END IF;
402: IF (l_polv_rec.currency_code = OKL_API.G_MISS_CHAR ) THEN
403: l_polv_rec.currency_code := NULL;
404: END IF;
405: IF (l_polv_rec.total_principal_amount = OKL_API.G_MISS_NUM ) THEN
406: l_polv_rec.total_principal_amount := NULL;
401: END IF;
402: IF (l_polv_rec.currency_code = OKL_API.G_MISS_CHAR ) THEN
403: l_polv_rec.currency_code := NULL;
404: END IF;
405: IF (l_polv_rec.total_principal_amount = OKL_API.G_MISS_NUM ) THEN
406: l_polv_rec.total_principal_amount := NULL;
407: END IF;
408: IF (l_polv_rec.total_receivable_amount = OKL_API.G_MISS_NUM ) THEN
409: l_polv_rec.total_receivable_amount := NULL;
404: END IF;
405: IF (l_polv_rec.total_principal_amount = OKL_API.G_MISS_NUM ) THEN
406: l_polv_rec.total_principal_amount := NULL;
407: END IF;
408: IF (l_polv_rec.total_receivable_amount = OKL_API.G_MISS_NUM ) THEN
409: l_polv_rec.total_receivable_amount := NULL;
410: END IF;
411: IF (l_polv_rec.securities_credit_rating = OKL_API.G_MISS_CHAR ) THEN
412: l_polv_rec.securities_credit_rating := NULL;
407: END IF;
408: IF (l_polv_rec.total_receivable_amount = OKL_API.G_MISS_NUM ) THEN
409: l_polv_rec.total_receivable_amount := NULL;
410: END IF;
411: IF (l_polv_rec.securities_credit_rating = OKL_API.G_MISS_CHAR ) THEN
412: l_polv_rec.securities_credit_rating := NULL;
413: END IF;
414: IF (l_polv_rec.date_created = OKL_API.G_MISS_DATE ) THEN
415: l_polv_rec.date_created := NULL;
410: END IF;
411: IF (l_polv_rec.securities_credit_rating = OKL_API.G_MISS_CHAR ) THEN
412: l_polv_rec.securities_credit_rating := NULL;
413: END IF;
414: IF (l_polv_rec.date_created = OKL_API.G_MISS_DATE ) THEN
415: l_polv_rec.date_created := NULL;
416: END IF;
417: IF (l_polv_rec.date_last_updated = OKL_API.G_MISS_DATE ) THEN
418: l_polv_rec.date_last_updated := NULL;
413: END IF;
414: IF (l_polv_rec.date_created = OKL_API.G_MISS_DATE ) THEN
415: l_polv_rec.date_created := NULL;
416: END IF;
417: IF (l_polv_rec.date_last_updated = OKL_API.G_MISS_DATE ) THEN
418: l_polv_rec.date_last_updated := NULL;
419: END IF;
420: IF (l_polv_rec.date_last_reconciled = OKL_API.G_MISS_DATE ) THEN
421: l_polv_rec.date_last_reconciled := NULL;
416: END IF;
417: IF (l_polv_rec.date_last_updated = OKL_API.G_MISS_DATE ) THEN
418: l_polv_rec.date_last_updated := NULL;
419: END IF;
420: IF (l_polv_rec.date_last_reconciled = OKL_API.G_MISS_DATE ) THEN
421: l_polv_rec.date_last_reconciled := NULL;
422: END IF;
423: IF (l_polv_rec.date_total_principal_calc = OKL_API.G_MISS_DATE ) THEN
424: l_polv_rec.date_total_principal_calc := NULL;
419: END IF;
420: IF (l_polv_rec.date_last_reconciled = OKL_API.G_MISS_DATE ) THEN
421: l_polv_rec.date_last_reconciled := NULL;
422: END IF;
423: IF (l_polv_rec.date_total_principal_calc = OKL_API.G_MISS_DATE ) THEN
424: l_polv_rec.date_total_principal_calc := NULL;
425: END IF;
426: IF (l_polv_rec.status_code = OKL_API.G_MISS_CHAR ) THEN
427: l_polv_rec.status_code := NULL;
422: END IF;
423: IF (l_polv_rec.date_total_principal_calc = OKL_API.G_MISS_DATE ) THEN
424: l_polv_rec.date_total_principal_calc := NULL;
425: END IF;
426: IF (l_polv_rec.status_code = OKL_API.G_MISS_CHAR ) THEN
427: l_polv_rec.status_code := NULL;
428: END IF;
429: IF (l_polv_rec.display_in_lease_center = OKL_API.G_MISS_CHAR ) THEN
430: l_polv_rec.display_in_lease_center := NULL;
425: END IF;
426: IF (l_polv_rec.status_code = OKL_API.G_MISS_CHAR ) THEN
427: l_polv_rec.status_code := NULL;
428: END IF;
429: IF (l_polv_rec.display_in_lease_center = OKL_API.G_MISS_CHAR ) THEN
430: l_polv_rec.display_in_lease_center := NULL;
431: END IF;
432: IF (l_polv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
433: l_polv_rec.attribute_category := NULL;
428: END IF;
429: IF (l_polv_rec.display_in_lease_center = OKL_API.G_MISS_CHAR ) THEN
430: l_polv_rec.display_in_lease_center := NULL;
431: END IF;
432: IF (l_polv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
433: l_polv_rec.attribute_category := NULL;
434: END IF;
435: IF (l_polv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
436: l_polv_rec.attribute1 := NULL;
431: END IF;
432: IF (l_polv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
433: l_polv_rec.attribute_category := NULL;
434: END IF;
435: IF (l_polv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
436: l_polv_rec.attribute1 := NULL;
437: END IF;
438: IF (l_polv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
439: l_polv_rec.attribute2 := NULL;
434: END IF;
435: IF (l_polv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
436: l_polv_rec.attribute1 := NULL;
437: END IF;
438: IF (l_polv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
439: l_polv_rec.attribute2 := NULL;
440: END IF;
441: IF (l_polv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
442: l_polv_rec.attribute3 := NULL;
437: END IF;
438: IF (l_polv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
439: l_polv_rec.attribute2 := NULL;
440: END IF;
441: IF (l_polv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
442: l_polv_rec.attribute3 := NULL;
443: END IF;
444: IF (l_polv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
445: l_polv_rec.attribute4 := NULL;
440: END IF;
441: IF (l_polv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
442: l_polv_rec.attribute3 := NULL;
443: END IF;
444: IF (l_polv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
445: l_polv_rec.attribute4 := NULL;
446: END IF;
447: IF (l_polv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
448: l_polv_rec.attribute5 := NULL;
443: END IF;
444: IF (l_polv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
445: l_polv_rec.attribute4 := NULL;
446: END IF;
447: IF (l_polv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
448: l_polv_rec.attribute5 := NULL;
449: END IF;
450: IF (l_polv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
451: l_polv_rec.attribute6 := NULL;
446: END IF;
447: IF (l_polv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
448: l_polv_rec.attribute5 := NULL;
449: END IF;
450: IF (l_polv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
451: l_polv_rec.attribute6 := NULL;
452: END IF;
453: IF (l_polv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
454: l_polv_rec.attribute7 := NULL;
449: END IF;
450: IF (l_polv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
451: l_polv_rec.attribute6 := NULL;
452: END IF;
453: IF (l_polv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
454: l_polv_rec.attribute7 := NULL;
455: END IF;
456: IF (l_polv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
457: l_polv_rec.attribute8 := NULL;
452: END IF;
453: IF (l_polv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
454: l_polv_rec.attribute7 := NULL;
455: END IF;
456: IF (l_polv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
457: l_polv_rec.attribute8 := NULL;
458: END IF;
459: IF (l_polv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
460: l_polv_rec.attribute9 := NULL;
455: END IF;
456: IF (l_polv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
457: l_polv_rec.attribute8 := NULL;
458: END IF;
459: IF (l_polv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
460: l_polv_rec.attribute9 := NULL;
461: END IF;
462: IF (l_polv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
463: l_polv_rec.attribute10 := NULL;
458: END IF;
459: IF (l_polv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
460: l_polv_rec.attribute9 := NULL;
461: END IF;
462: IF (l_polv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
463: l_polv_rec.attribute10 := NULL;
464: END IF;
465: IF (l_polv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
466: l_polv_rec.attribute11 := NULL;
461: END IF;
462: IF (l_polv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
463: l_polv_rec.attribute10 := NULL;
464: END IF;
465: IF (l_polv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
466: l_polv_rec.attribute11 := NULL;
467: END IF;
468: IF (l_polv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
469: l_polv_rec.attribute12 := NULL;
464: END IF;
465: IF (l_polv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
466: l_polv_rec.attribute11 := NULL;
467: END IF;
468: IF (l_polv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
469: l_polv_rec.attribute12 := NULL;
470: END IF;
471: IF (l_polv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
472: l_polv_rec.attribute13 := NULL;
467: END IF;
468: IF (l_polv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
469: l_polv_rec.attribute12 := NULL;
470: END IF;
471: IF (l_polv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
472: l_polv_rec.attribute13 := NULL;
473: END IF;
474: IF (l_polv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
475: l_polv_rec.attribute14 := NULL;
470: END IF;
471: IF (l_polv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
472: l_polv_rec.attribute13 := NULL;
473: END IF;
474: IF (l_polv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
475: l_polv_rec.attribute14 := NULL;
476: END IF;
477: IF (l_polv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
478: l_polv_rec.attribute15 := NULL;
473: END IF;
474: IF (l_polv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
475: l_polv_rec.attribute14 := NULL;
476: END IF;
477: IF (l_polv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
478: l_polv_rec.attribute15 := NULL;
479: END IF;
480: IF (l_polv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
481: l_polv_rec.attribute1 := NULL;
476: END IF;
477: IF (l_polv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
478: l_polv_rec.attribute15 := NULL;
479: END IF;
480: IF (l_polv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
481: l_polv_rec.attribute1 := NULL;
482: END IF;
483: IF (l_polv_rec.org_id = OKL_API.G_MISS_NUM ) THEN
484: l_polv_rec.org_id := NULL;
479: END IF;
480: IF (l_polv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
481: l_polv_rec.attribute1 := NULL;
482: END IF;
483: IF (l_polv_rec.org_id = OKL_API.G_MISS_NUM ) THEN
484: l_polv_rec.org_id := NULL;
485: END IF;
486: IF (l_polv_rec.request_id = OKL_API.G_MISS_NUM ) THEN
487: l_polv_rec.request_id := NULL;
482: END IF;
483: IF (l_polv_rec.org_id = OKL_API.G_MISS_NUM ) THEN
484: l_polv_rec.org_id := NULL;
485: END IF;
486: IF (l_polv_rec.request_id = OKL_API.G_MISS_NUM ) THEN
487: l_polv_rec.request_id := NULL;
488: END IF;
489: IF (l_polv_rec.program_application_id = OKL_API.G_MISS_NUM ) THEN
490: l_polv_rec.program_application_id := NULL;
485: END IF;
486: IF (l_polv_rec.request_id = OKL_API.G_MISS_NUM ) THEN
487: l_polv_rec.request_id := NULL;
488: END IF;
489: IF (l_polv_rec.program_application_id = OKL_API.G_MISS_NUM ) THEN
490: l_polv_rec.program_application_id := NULL;
491: END IF;
492: IF (l_polv_rec.program_id = OKL_API.G_MISS_NUM ) THEN
493: l_polv_rec.program_id := NULL;
488: END IF;
489: IF (l_polv_rec.program_application_id = OKL_API.G_MISS_NUM ) THEN
490: l_polv_rec.program_application_id := NULL;
491: END IF;
492: IF (l_polv_rec.program_id = OKL_API.G_MISS_NUM ) THEN
493: l_polv_rec.program_id := NULL;
494: END IF;
495: IF (l_polv_rec.program_update_date = OKL_API.G_MISS_DATE ) THEN
496: l_polv_rec.program_update_date := NULL;
491: END IF;
492: IF (l_polv_rec.program_id = OKL_API.G_MISS_NUM ) THEN
493: l_polv_rec.program_id := NULL;
494: END IF;
495: IF (l_polv_rec.program_update_date = OKL_API.G_MISS_DATE ) THEN
496: l_polv_rec.program_update_date := NULL;
497: END IF;
498: IF (l_polv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
499: l_polv_rec.created_by := NULL;
494: END IF;
495: IF (l_polv_rec.program_update_date = OKL_API.G_MISS_DATE ) THEN
496: l_polv_rec.program_update_date := NULL;
497: END IF;
498: IF (l_polv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
499: l_polv_rec.created_by := NULL;
500: END IF;
501: IF (l_polv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
502: l_polv_rec.creation_date := NULL;
497: END IF;
498: IF (l_polv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
499: l_polv_rec.created_by := NULL;
500: END IF;
501: IF (l_polv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
502: l_polv_rec.creation_date := NULL;
503: END IF;
504: IF (l_polv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
505: l_polv_rec.last_updated_by := NULL;
500: END IF;
501: IF (l_polv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
502: l_polv_rec.creation_date := NULL;
503: END IF;
504: IF (l_polv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
505: l_polv_rec.last_updated_by := NULL;
506: END IF;
507: IF (l_polv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
508: l_polv_rec.last_update_date := NULL;
503: END IF;
504: IF (l_polv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
505: l_polv_rec.last_updated_by := NULL;
506: END IF;
507: IF (l_polv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
508: l_polv_rec.last_update_date := NULL;
509: END IF;
510: IF (l_polv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
511: l_polv_rec.last_update_login := NULL;
506: END IF;
507: IF (l_polv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
508: l_polv_rec.last_update_date := NULL;
509: END IF;
510: IF (l_polv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
511: l_polv_rec.last_update_login := NULL;
512: END IF;
513: IF (l_polv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
514: l_polv_rec.legal_entity_id := NULL;
509: END IF;
510: IF (l_polv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
511: l_polv_rec.last_update_login := NULL;
512: END IF;
513: IF (l_polv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
514: l_polv_rec.legal_entity_id := NULL;
515: END IF;
516: RETURN(l_polv_rec);
517: END null_out_defaults;
522: PROCEDURE validate_id(
523: x_return_status OUT NOCOPY VARCHAR2,
524: p_id IN NUMBER) IS
525: BEGIN
526: x_return_status := OKL_API.G_RET_STS_SUCCESS;
527: IF (p_id = OKL_API.G_MISS_NUM OR
528: p_id IS NULL)
529: THEN
530: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
523: x_return_status OUT NOCOPY VARCHAR2,
524: p_id IN NUMBER) IS
525: BEGIN
526: x_return_status := OKL_API.G_RET_STS_SUCCESS;
527: IF (p_id = OKL_API.G_MISS_NUM OR
528: p_id IS NULL)
529: THEN
530: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
531: x_return_status := OKL_API.G_RET_STS_ERROR;
526: x_return_status := OKL_API.G_RET_STS_SUCCESS;
527: IF (p_id = OKL_API.G_MISS_NUM OR
528: p_id IS NULL)
529: THEN
530: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
531: x_return_status := OKL_API.G_RET_STS_ERROR;
532: RAISE G_EXCEPTION_HALT_VALIDATION;
533: END IF;
534: EXCEPTION
527: IF (p_id = OKL_API.G_MISS_NUM OR
528: p_id IS NULL)
529: THEN
530: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
531: x_return_status := OKL_API.G_RET_STS_ERROR;
532: RAISE G_EXCEPTION_HALT_VALIDATION;
533: END IF;
534: EXCEPTION
535: WHEN G_EXCEPTION_HALT_VALIDATION THEN
534: EXCEPTION
535: WHEN G_EXCEPTION_HALT_VALIDATION THEN
536: NULL;
537: WHEN OTHERS THEN
538: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
539: ,p_msg_name => G_UNEXPECTED_ERROR
540: ,p_token1 => G_SQLCODE_TOKEN
541: ,p_token1_value => SQLCODE
542: ,p_token2 => G_SQLERRM_TOKEN
540: ,p_token1 => G_SQLCODE_TOKEN
541: ,p_token1_value => SQLCODE
542: ,p_token2 => G_SQLERRM_TOKEN
543: ,p_token2_value => SQLERRM);
544: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
545: END validate_id;
546:
547: ----------------------------------------------------
548: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
550: PROCEDURE validate_object_version_number(
551: x_return_status OUT NOCOPY VARCHAR2,
552: p_object_version_number IN NUMBER) IS
553: BEGIN
554: x_return_status := OKL_API.G_RET_STS_SUCCESS;
555: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
556: p_object_version_number IS NULL)
557: THEN
558: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'OBJECT_VERSION_NUMBER');
551: x_return_status OUT NOCOPY VARCHAR2,
552: p_object_version_number IN NUMBER) IS
553: BEGIN
554: x_return_status := OKL_API.G_RET_STS_SUCCESS;
555: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
556: p_object_version_number IS NULL)
557: THEN
558: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'OBJECT_VERSION_NUMBER');
559: x_return_status := OKL_API.G_RET_STS_ERROR;
554: x_return_status := OKL_API.G_RET_STS_SUCCESS;
555: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
556: p_object_version_number IS NULL)
557: THEN
558: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'OBJECT_VERSION_NUMBER');
559: x_return_status := OKL_API.G_RET_STS_ERROR;
560: RAISE G_EXCEPTION_HALT_VALIDATION;
561: END IF;
562: EXCEPTION
555: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
556: p_object_version_number IS NULL)
557: THEN
558: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'OBJECT_VERSION_NUMBER');
559: x_return_status := OKL_API.G_RET_STS_ERROR;
560: RAISE G_EXCEPTION_HALT_VALIDATION;
561: END IF;
562: EXCEPTION
563: WHEN G_EXCEPTION_HALT_VALIDATION THEN
562: EXCEPTION
563: WHEN G_EXCEPTION_HALT_VALIDATION THEN
564: NULL;
565: WHEN OTHERS THEN
566: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
567: ,p_msg_name => G_UNEXPECTED_ERROR
568: ,p_token1 => G_SQLCODE_TOKEN
569: ,p_token1_value => SQLCODE
570: ,p_token2 => G_SQLERRM_TOKEN
568: ,p_token1 => G_SQLCODE_TOKEN
569: ,p_token1_value => SQLCODE
570: ,p_token2 => G_SQLERRM_TOKEN
571: ,p_token2_value => SQLERRM);
572: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
573: END validate_object_version_number;
574:
575: -------------------------------------
576: -- Validate_Attributes for: pot_id --
588: FROM OKL_POOL_TYPES_V
589: WHERE OKL_POOL_TYPES_V.id = p_id;
590:
591: BEGIN
592: x_return_status := OKL_API.G_RET_STS_SUCCESS;
593: IF (p_pot_id <> OKL_API.G_MISS_NUM AND p_pot_id IS NOT NULL)
594: THEN
595: OPEN okl_potv_pk_csr(p_pot_id);
596: FETCH okl_potv_pk_csr INTO l_dummy;
589: WHERE OKL_POOL_TYPES_V.id = p_id;
590:
591: BEGIN
592: x_return_status := OKL_API.G_RET_STS_SUCCESS;
593: IF (p_pot_id <> OKL_API.G_MISS_NUM AND p_pot_id IS NOT NULL)
594: THEN
595: OPEN okl_potv_pk_csr(p_pot_id);
596: FETCH okl_potv_pk_csr INTO l_dummy;
597: l_row_not_found := okl_potv_pk_csr%NOTFOUND;
597: l_row_not_found := okl_potv_pk_csr%NOTFOUND;
598: CLOSE okl_potv_pk_csr;
599:
600: IF l_row_not_found THEN
601: OKL_API.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'pot_id');
602: x_return_status := OKL_API.G_RET_STS_ERROR;
603: END IF;
604: END IF;
605:
598: CLOSE okl_potv_pk_csr;
599:
600: IF l_row_not_found THEN
601: OKL_API.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'pot_id');
602: x_return_status := OKL_API.G_RET_STS_ERROR;
603: END IF;
604: END IF;
605:
606: EXCEPTION
606: EXCEPTION
607: WHEN G_EXCEPTION_HALT_VALIDATION THEN
608: NULL;
609: WHEN OTHERS THEN
610: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
611: ,p_msg_name => G_UNEXPECTED_ERROR
612: ,p_token1 => G_SQLCODE_TOKEN
613: ,p_token1_value => SQLCODE
614: ,p_token2 => G_SQLERRM_TOKEN
612: ,p_token1 => G_SQLCODE_TOKEN
613: ,p_token1_value => SQLCODE
614: ,p_token2 => G_SQLERRM_TOKEN
615: ,p_token2_value => SQLERRM);
616: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
617: IF okl_potv_pk_csr%ISOPEN THEN
618: CLOSE okl_potv_pk_csr;
619: END IF;
620: END validate_pot_id;
635: FROM OKL_K_HEADERS_V
636: WHERE OKL_K_HEADERS_V.id = p_id;
637:
638: BEGIN
639: x_return_status := OKL_API.G_RET_STS_SUCCESS;
640: IF (p_khr_id <> OKL_API.G_MISS_NUM AND p_khr_id IS NOT NULL)
641: THEN
642: OPEN okl_khrv_pk_csr(p_khr_id);
643: FETCH okl_khrv_pk_csr INTO l_dummy;
636: WHERE OKL_K_HEADERS_V.id = p_id;
637:
638: BEGIN
639: x_return_status := OKL_API.G_RET_STS_SUCCESS;
640: IF (p_khr_id <> OKL_API.G_MISS_NUM AND p_khr_id IS NOT NULL)
641: THEN
642: OPEN okl_khrv_pk_csr(p_khr_id);
643: FETCH okl_khrv_pk_csr INTO l_dummy;
644: l_row_not_found := okl_khrv_pk_csr%NOTFOUND;
644: l_row_not_found := okl_khrv_pk_csr%NOTFOUND;
645: CLOSE okl_khrv_pk_csr;
646:
647: IF l_row_not_found THEN
648: OKL_API.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'khr_id');
649: x_return_status := OKL_API.G_RET_STS_ERROR;
650: END IF;
651: END IF;
652:
645: CLOSE okl_khrv_pk_csr;
646:
647: IF l_row_not_found THEN
648: OKL_API.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'khr_id');
649: x_return_status := OKL_API.G_RET_STS_ERROR;
650: END IF;
651: END IF;
652:
653: EXCEPTION
653: EXCEPTION
654: WHEN G_EXCEPTION_HALT_VALIDATION THEN
655: NULL;
656: WHEN OTHERS THEN
657: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
658: ,p_msg_name => G_UNEXPECTED_ERROR
659: ,p_token1 => G_SQLCODE_TOKEN
660: ,p_token1_value => SQLCODE
661: ,p_token2 => G_SQLERRM_TOKEN
659: ,p_token1 => G_SQLCODE_TOKEN
660: ,p_token1_value => SQLCODE
661: ,p_token2 => G_SQLERRM_TOKEN
662: ,p_token2_value => SQLERRM);
663: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
664: IF okl_khrv_pk_csr%ISOPEN THEN
665: CLOSE okl_khrv_pk_csr;
666: END IF;
667: END validate_khr_id;
672: PROCEDURE validate_pool_number(
673: x_return_status OUT NOCOPY VARCHAR2,
674: p_pool_number IN VARCHAR2) IS
675: BEGIN
676: x_return_status := OKL_API.G_RET_STS_SUCCESS;
677: IF (p_pool_number = OKL_API.G_MISS_CHAR OR
678: p_pool_number IS NULL)
679: THEN
680: g_ak_prompt := Okl_Accounting_Util.Get_Message_Token(
673: x_return_status OUT NOCOPY VARCHAR2,
674: p_pool_number IN VARCHAR2) IS
675: BEGIN
676: x_return_status := OKL_API.G_RET_STS_SUCCESS;
677: IF (p_pool_number = OKL_API.G_MISS_CHAR OR
678: p_pool_number IS NULL)
679: THEN
680: g_ak_prompt := Okl_Accounting_Util.Get_Message_Token(
681: p_region_code => G_AK_REGION_NAME,
679: THEN
680: g_ak_prompt := Okl_Accounting_Util.Get_Message_Token(
681: p_region_code => G_AK_REGION_NAME,
682: p_attribute_code => 'OKL_POOL_NUMBER');
683: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
684: p_msg_name => 'OKL_REQUIRED_VALUE',
685: p_token1 => 'COL_NAME',
686: p_token1_value => g_ak_prompt);
687: x_return_status := OKL_API.G_RET_STS_ERROR;
683: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
684: p_msg_name => 'OKL_REQUIRED_VALUE',
685: p_token1 => 'COL_NAME',
686: p_token1_value => g_ak_prompt);
687: x_return_status := OKL_API.G_RET_STS_ERROR;
688: RAISE G_EXCEPTION_HALT_VALIDATION;
689: END IF;
690: EXCEPTION
691: WHEN G_EXCEPTION_HALT_VALIDATION THEN
690: EXCEPTION
691: WHEN G_EXCEPTION_HALT_VALIDATION THEN
692: NULL;
693: WHEN OTHERS THEN
694: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
695: ,p_msg_name => G_UNEXPECTED_ERROR
696: ,p_token1 => G_SQLCODE_TOKEN
697: ,p_token1_value => SQLCODE
698: ,p_token2 => G_SQLERRM_TOKEN
696: ,p_token1 => G_SQLCODE_TOKEN
697: ,p_token1_value => SQLCODE
698: ,p_token2 => G_SQLERRM_TOKEN
699: ,p_token2_value => SQLERRM);
700: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
701: END validate_pool_number;
702:
703: --------------------------------------------
704: -- Validate_Attributes for: currency_code --
717: WHERE FND_CURRENCIES_VL.currency_code = p_code; -- Bug 6982517. Changed to use the parameter.
718:
719:
720: BEGIN
721: x_return_status := OKL_API.G_RET_STS_SUCCESS;
722: IF (p_currency_code = OKL_API.G_MISS_CHAR OR
723: p_currency_code IS NULL)
724: THEN
725: g_ak_prompt := Okl_Accounting_Util.Get_Message_Token(
718:
719:
720: BEGIN
721: x_return_status := OKL_API.G_RET_STS_SUCCESS;
722: IF (p_currency_code = OKL_API.G_MISS_CHAR OR
723: p_currency_code IS NULL)
724: THEN
725: g_ak_prompt := Okl_Accounting_Util.Get_Message_Token(
726: p_region_code => G_AK_REGION_NAME,
724: THEN
725: g_ak_prompt := Okl_Accounting_Util.Get_Message_Token(
726: p_region_code => G_AK_REGION_NAME,
727: p_attribute_code => 'OKL_CURRENCY');
728: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
729: p_msg_name => 'OKL_REQUIRED_VALUE',
730: p_token1 => 'COL_NAME',
731: p_token1_value => g_ak_prompt);
732: x_return_status := OKL_API.G_RET_STS_ERROR;
728: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
729: p_msg_name => 'OKL_REQUIRED_VALUE',
730: p_token1 => 'COL_NAME',
731: p_token1_value => g_ak_prompt);
732: x_return_status := OKL_API.G_RET_STS_ERROR;
733: RAISE G_EXCEPTION_HALT_VALIDATION;
734: END IF;
735:
736: OPEN okl_fnd_curr_csr(p_currency_code);
738: l_row_not_found := okl_fnd_curr_csr%NOTFOUND;
739: CLOSE okl_fnd_curr_csr;
740:
741: IF l_row_not_found THEN
742: OKL_API.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'currency_code');
743: x_return_status := OKL_API.G_RET_STS_ERROR;
744: END IF;
745:
746: EXCEPTION
739: CLOSE okl_fnd_curr_csr;
740:
741: IF l_row_not_found THEN
742: OKL_API.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'currency_code');
743: x_return_status := OKL_API.G_RET_STS_ERROR;
744: END IF;
745:
746: EXCEPTION
747: WHEN G_EXCEPTION_HALT_VALIDATION THEN
746: EXCEPTION
747: WHEN G_EXCEPTION_HALT_VALIDATION THEN
748: NULL;
749: WHEN OTHERS THEN
750: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
751: ,p_msg_name => G_UNEXPECTED_ERROR
752: ,p_token1 => G_SQLCODE_TOKEN
753: ,p_token1_value => SQLCODE
754: ,p_token2 => G_SQLERRM_TOKEN
752: ,p_token1 => G_SQLCODE_TOKEN
753: ,p_token1_value => SQLCODE
754: ,p_token2 => G_SQLERRM_TOKEN
755: ,p_token2_value => SQLERRM);
756: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
757: IF okl_fnd_curr_csr%ISOPEN THEN
758: CLOSE okl_fnd_curr_csr;
759: END IF;
760: END validate_currency_code;
764: PROCEDURE validate_date_created(
765: x_return_status OUT NOCOPY VARCHAR2,
766: p_date_created IN DATE) IS
767: BEGIN
768: x_return_status := OKL_API.G_RET_STS_SUCCESS;
769: IF (p_date_created = OKL_API.G_MISS_DATE OR
770: p_date_created IS NULL)
771: THEN
772: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'date_created');
765: x_return_status OUT NOCOPY VARCHAR2,
766: p_date_created IN DATE) IS
767: BEGIN
768: x_return_status := OKL_API.G_RET_STS_SUCCESS;
769: IF (p_date_created = OKL_API.G_MISS_DATE OR
770: p_date_created IS NULL)
771: THEN
772: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'date_created');
773: x_return_status := OKL_API.G_RET_STS_ERROR;
768: x_return_status := OKL_API.G_RET_STS_SUCCESS;
769: IF (p_date_created = OKL_API.G_MISS_DATE OR
770: p_date_created IS NULL)
771: THEN
772: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'date_created');
773: x_return_status := OKL_API.G_RET_STS_ERROR;
774: RAISE G_EXCEPTION_HALT_VALIDATION;
775: END IF;
776: EXCEPTION
769: IF (p_date_created = OKL_API.G_MISS_DATE OR
770: p_date_created IS NULL)
771: THEN
772: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'date_created');
773: x_return_status := OKL_API.G_RET_STS_ERROR;
774: RAISE G_EXCEPTION_HALT_VALIDATION;
775: END IF;
776: EXCEPTION
777: WHEN G_EXCEPTION_HALT_VALIDATION THEN
776: EXCEPTION
777: WHEN G_EXCEPTION_HALT_VALIDATION THEN
778: NULL;
779: WHEN OTHERS THEN
780: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
781: ,p_msg_name => G_UNEXPECTED_ERROR
782: ,p_token1 => G_SQLCODE_TOKEN
783: ,p_token1_value => SQLCODE
784: ,p_token2 => G_SQLERRM_TOKEN
782: ,p_token1 => G_SQLCODE_TOKEN
783: ,p_token1_value => SQLCODE
784: ,p_token2 => G_SQLERRM_TOKEN
785: ,p_token2_value => SQLERRM);
786: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
787: END validate_date_created;
788:
789:
790: -----------------------------------------
794: x_return_status OUT NOCOPY VARCHAR2,
795: p_legal_entity_id IN NUMBER) IS
796: l_dummy VARCHAR2(1);
797: BEGIN
798: x_return_status := OKL_API.G_RET_STS_SUCCESS;
799:
800: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
801: p_legal_entity_id IS NULL)
802: THEN
796: l_dummy VARCHAR2(1);
797: BEGIN
798: x_return_status := OKL_API.G_RET_STS_SUCCESS;
799:
800: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
801: p_legal_entity_id IS NULL)
802: THEN
803: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
804: x_return_status := OKL_API.G_RET_STS_ERROR;
799:
800: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
801: p_legal_entity_id IS NULL)
802: THEN
803: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
804: x_return_status := OKL_API.G_RET_STS_ERROR;
805: RAISE G_EXCEPTION_HALT_VALIDATION;
806: ELSE
807: l_dummy := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id);
800: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
801: p_legal_entity_id IS NULL)
802: THEN
803: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
804: x_return_status := OKL_API.G_RET_STS_ERROR;
805: RAISE G_EXCEPTION_HALT_VALIDATION;
806: ELSE
807: l_dummy := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id);
808: IF l_dummy <>1 THEN
805: RAISE G_EXCEPTION_HALT_VALIDATION;
806: ELSE
807: l_dummy := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id);
808: IF l_dummy <>1 THEN
809: Okl_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'legal_entity_id');
810: x_return_status := OKL_API.G_RET_STS_ERROR;
811: RAISE G_EXCEPTION_HALT_VALIDATION;
812: END IF;
813: END IF;
806: ELSE
807: l_dummy := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id);
808: IF l_dummy <>1 THEN
809: Okl_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'legal_entity_id');
810: x_return_status := OKL_API.G_RET_STS_ERROR;
811: RAISE G_EXCEPTION_HALT_VALIDATION;
812: END IF;
813: END IF;
814: EXCEPTION
814: EXCEPTION
815: WHEN G_EXCEPTION_HALT_VALIDATION THEN
816: NULL;
817: WHEN OTHERS THEN
818: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
819: ,p_msg_name => G_UNEXPECTED_ERROR
820: ,p_token1 => G_SQLCODE_TOKEN
821: ,p_token1_value => SQLCODE
822: ,p_token2 => G_SQLERRM_TOKEN
820: ,p_token1 => G_SQLCODE_TOKEN
821: ,p_token1_value => SQLCODE
822: ,p_token2 => G_SQLERRM_TOKEN
823: ,p_token2_value => SQLERRM);
824: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
825: END validate_legal_entity_id;
826:
827:
828:
832: PROCEDURE validate_date_last_updated(
833: x_return_status OUT NOCOPY VARCHAR2,
834: p_date_last_updated IN DATE) IS
835: BEGIN
836: x_return_status := OKL_API.G_RET_STS_SUCCESS;
837: IF (p_date_last_updated = OKL_API.G_MISS_DATE OR
838: p_date_last_updated IS NULL)
839: THEN
840: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'date_last_updated');
833: x_return_status OUT NOCOPY VARCHAR2,
834: p_date_last_updated IN DATE) IS
835: BEGIN
836: x_return_status := OKL_API.G_RET_STS_SUCCESS;
837: IF (p_date_last_updated = OKL_API.G_MISS_DATE OR
838: p_date_last_updated IS NULL)
839: THEN
840: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'date_last_updated');
841: x_return_status := OKL_API.G_RET_STS_ERROR;
836: x_return_status := OKL_API.G_RET_STS_SUCCESS;
837: IF (p_date_last_updated = OKL_API.G_MISS_DATE OR
838: p_date_last_updated IS NULL)
839: THEN
840: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'date_last_updated');
841: x_return_status := OKL_API.G_RET_STS_ERROR;
842: RAISE G_EXCEPTION_HALT_VALIDATION;
843: END IF;
844: EXCEPTION
837: IF (p_date_last_updated = OKL_API.G_MISS_DATE OR
838: p_date_last_updated IS NULL)
839: THEN
840: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'date_last_updated');
841: x_return_status := OKL_API.G_RET_STS_ERROR;
842: RAISE G_EXCEPTION_HALT_VALIDATION;
843: END IF;
844: EXCEPTION
845: WHEN G_EXCEPTION_HALT_VALIDATION THEN
844: EXCEPTION
845: WHEN G_EXCEPTION_HALT_VALIDATION THEN
846: NULL;
847: WHEN OTHERS THEN
848: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
849: ,p_msg_name => G_UNEXPECTED_ERROR
850: ,p_token1 => G_SQLCODE_TOKEN
851: ,p_token1_value => SQLCODE
852: ,p_token2 => G_SQLERRM_TOKEN
850: ,p_token1 => G_SQLCODE_TOKEN
851: ,p_token1_value => SQLCODE
852: ,p_token2 => G_SQLERRM_TOKEN
853: ,p_token2_value => SQLERRM);
854: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
855: END validate_date_last_updated;
856:
857: ---------------------------------------------------------------------------
858: -- FUNCTION Validate_Attributes
862: ---------------------------------------------------
863: FUNCTION Validate_Attributes (
864: p_polv_rec IN polv_rec_type
865: ) RETURN VARCHAR2 IS
866: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
867: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
868: BEGIN
869: -----------------------------
870: -- Column Level Validation --
863: FUNCTION Validate_Attributes (
864: p_polv_rec IN polv_rec_type
865: ) RETURN VARCHAR2 IS
866: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
867: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
868: BEGIN
869: -----------------------------
870: -- Column Level Validation --
871: -----------------------------
872: -- ***
873: -- id
874: -- ***
875: validate_id(x_return_status, p_polv_rec.id);
876: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
877: l_return_status := x_return_status;
878: RAISE G_EXCEPTION_HALT_VALIDATION;
879: END IF;
880:
881: -- ***
882: -- object_version_number
883: -- ***
884: validate_object_version_number(x_return_status, p_polv_rec.object_version_number);
885: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
886: l_return_status := x_return_status;
887: RAISE G_EXCEPTION_HALT_VALIDATION;
888: END IF;
889:
890: -- ***
891: -- pot_id
892: -- ***
893: validate_pot_id(x_return_status, p_polv_rec.pot_id);
894: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
895: l_return_status := x_return_status;
896: RAISE G_EXCEPTION_HALT_VALIDATION;
897: END IF;
898:
899: -- ***
900: -- khr_id
901: -- ***
902: validate_khr_id(x_return_status, p_polv_rec.khr_id);
903: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
904: l_return_status := x_return_status;
905: RAISE G_EXCEPTION_HALT_VALIDATION;
906: END IF;
907:
908: -- ***
909: -- pool_number
910: -- ***
911: validate_pool_number(x_return_status, p_polv_rec.pool_number);
912: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
913: l_return_status := x_return_status;
914: RAISE G_EXCEPTION_HALT_VALIDATION;
915: END IF;
916:
917: -- ***
918: -- currency_code
919: -- ***
920: validate_currency_code(x_return_status, p_polv_rec.currency_code);
921: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
922: l_return_status := x_return_status;
923: RAISE G_EXCEPTION_HALT_VALIDATION;
924: END IF;
925:
926: -- ***
927: -- date_created
928: -- ***
929: validate_date_created(x_return_status, p_polv_rec.date_created);
930: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
931: l_return_status := x_return_status;
932: RAISE G_EXCEPTION_HALT_VALIDATION;
933: END IF;
934:
935: -- ***
936: -- date_last_updated
937: -- ***
938: validate_date_last_updated(x_return_status, p_polv_rec.date_last_updated);
939: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
940: l_return_status := x_return_status;
941: RAISE G_EXCEPTION_HALT_VALIDATION;
942: END IF;
943:
944: -- ***
945: -- legal_entity_id
946: -- ***
947: validate_legal_entity_id(x_return_status, p_polv_rec.legal_entity_id);
948: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
949: l_return_status := x_return_status;
950: RAISE G_EXCEPTION_HALT_VALIDATION;
951: END IF;
952:
954: EXCEPTION
955: WHEN G_EXCEPTION_HALT_VALIDATION THEN
956: RETURN(l_return_status);
957: WHEN OTHERS THEN
958: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
959: ,p_msg_name => G_UNEXPECTED_ERROR
960: ,p_token1 => G_SQLCODE_TOKEN
961: ,p_token1_value => SQLCODE
962: ,p_token2 => G_SQLERRM_TOKEN
960: ,p_token1 => G_SQLCODE_TOKEN
961: ,p_token1_value => SQLCODE
962: ,p_token2 => G_SQLERRM_TOKEN
963: ,p_token2_value => SQLERRM);
964: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
965: RETURN(l_return_status);
966: END Validate_Attributes;
967:
968: ---------------------------------------------------------------------------
994:
995: BEGIN
996:
997: -- initialize return status
998: x_return_status := OKL_API.G_RET_STS_SUCCESS;
999: OPEN okl_pol_uk_csr(p_polv_rec);
1000: FETCH okl_pol_uk_csr INTO l_dummy;
1001: l_row_found := okl_pol_uk_csr%FOUND;
1002: CLOSE okl_pol_uk_csr;
1000: FETCH okl_pol_uk_csr INTO l_dummy;
1001: l_row_found := okl_pol_uk_csr%FOUND;
1002: CLOSE okl_pol_uk_csr;
1003: IF l_row_found THEN
1004: OKL_API.set_message(G_APP_NAME,G_OKL_UNQS);
1005: x_return_status := OKL_API.G_RET_STS_ERROR;
1006: END IF;
1007: EXCEPTION
1008: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1001: l_row_found := okl_pol_uk_csr%FOUND;
1002: CLOSE okl_pol_uk_csr;
1003: IF l_row_found THEN
1004: OKL_API.set_message(G_APP_NAME,G_OKL_UNQS);
1005: x_return_status := OKL_API.G_RET_STS_ERROR;
1006: END IF;
1007: EXCEPTION
1008: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1009: -- no processing necessary; validation can continue
1011: NULL;
1012:
1013: WHEN OTHERS THEN
1014: -- store SQL error message on message stack for caller
1015: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME
1016: ,p_msg_name => G_OKL_UNEXPECTED_ERROR
1017: ,p_token1 => G_OKL_SQLCODE_TOKEN
1018: ,p_token1_value => SQLCODE
1019: ,p_token2 => G_OKL_SQLERRM_TOKEN
1019: ,p_token2 => G_OKL_SQLERRM_TOKEN
1020: ,p_token2_value => SQLERRM);
1021:
1022: -- notify caller of an UNEXPECTED error
1023: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1024: -- verify that the cursor was closed
1025: IF okl_pol_uk_csr%ISOPEN THEN
1026: CLOSE okl_pol_uk_csr;
1027: END IF;
1036: FUNCTION Validate_Record (
1037: p_polv_rec IN polv_rec_type,
1038: p_db_polv_rec IN polv_rec_type
1039: ) RETURN VARCHAR2 IS
1040: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1041: ------------------------------------
1042: -- FUNCTION validate_foreign_keys --
1043: ------------------------------------
1044: FUNCTION validate_foreign_keys (
1045: p_polv_rec IN polv_rec_type,
1046: p_db_polv_rec IN polv_rec_type
1047: ) RETURN VARCHAR2 IS
1048: item_not_found_error EXCEPTION;
1049: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1050: l_row_notfound BOOLEAN := TRUE;
1051: BEGIN
1052: RETURN (l_return_status);
1053: EXCEPTION
1051: BEGIN
1052: RETURN (l_return_status);
1053: EXCEPTION
1054: WHEN item_not_found_error THEN
1055: l_return_status := OKL_API.G_RET_STS_ERROR;
1056: RETURN (l_return_status);
1057: END validate_foreign_keys;
1058: BEGIN
1059: l_return_status := validate_foreign_keys(p_polv_rec, p_db_polv_rec);
1064:
1065: FUNCTION Validate_Record (
1066: p_polv_rec IN polv_rec_type
1067: ) RETURN VARCHAR2 IS
1068: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1069: l_db_polv_rec polv_rec_type := get_rec(p_polv_rec);
1070: BEGIN
1071: l_return_status := Validate_Record(p_polv_rec => p_polv_rec,
1072: p_db_polv_rec => l_db_polv_rec);
1184: -- validate_row for:OKL_POOLS_V --
1185: --------------------------------------------
1186: PROCEDURE validate_row(
1187: p_api_version IN NUMBER,
1188: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1189: x_return_status OUT NOCOPY VARCHAR2,
1190: x_msg_count OUT NOCOPY NUMBER,
1191: x_msg_data OUT NOCOPY VARCHAR2,
1192: p_polv_rec IN polv_rec_type) IS
1192: p_polv_rec IN polv_rec_type) IS
1193:
1194: l_api_version CONSTANT NUMBER := 1;
1195: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1196: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1197: l_polv_rec polv_rec_type := p_polv_rec;
1198: l_pol_rec pol_rec_type;
1199: l_pol_rec pol_rec_type;
1200: BEGIN
1197: l_polv_rec polv_rec_type := p_polv_rec;
1198: l_pol_rec pol_rec_type;
1199: l_pol_rec pol_rec_type;
1200: BEGIN
1201: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1202: G_PKG_NAME,
1203: p_init_msg_list,
1204: l_api_version,
1205: p_api_version,
1204: l_api_version,
1205: p_api_version,
1206: '_PVT',
1207: x_return_status);
1208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1211: RAISE OKL_API.G_EXCEPTION_ERROR;
1212: END IF;
1205: p_api_version,
1206: '_PVT',
1207: x_return_status);
1208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1211: RAISE OKL_API.G_EXCEPTION_ERROR;
1212: END IF;
1213: --- Validate all non-missing attributes (Item Level Validation)
1206: '_PVT',
1207: x_return_status);
1208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1211: RAISE OKL_API.G_EXCEPTION_ERROR;
1212: END IF;
1213: --- Validate all non-missing attributes (Item Level Validation)
1214: l_return_status := Validate_Attributes(l_polv_rec);
1207: x_return_status);
1208: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1209: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1210: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1211: RAISE OKL_API.G_EXCEPTION_ERROR;
1212: END IF;
1213: --- Validate all non-missing attributes (Item Level Validation)
1214: l_return_status := Validate_Attributes(l_polv_rec);
1215: --- If any errors happen abort API
1212: END IF;
1213: --- Validate all non-missing attributes (Item Level Validation)
1214: l_return_status := Validate_Attributes(l_polv_rec);
1215: --- If any errors happen abort API
1216: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_ERROR;
1220: END IF;
1213: --- Validate all non-missing attributes (Item Level Validation)
1214: l_return_status := Validate_Attributes(l_polv_rec);
1215: --- If any errors happen abort API
1216: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_ERROR;
1220: END IF;
1221: l_return_status := Validate_Record(l_polv_rec);
1214: l_return_status := Validate_Attributes(l_polv_rec);
1215: --- If any errors happen abort API
1216: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_ERROR;
1220: END IF;
1221: l_return_status := Validate_Record(l_polv_rec);
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1215: --- If any errors happen abort API
1216: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1217: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_ERROR;
1220: END IF;
1221: l_return_status := Validate_Record(l_polv_rec);
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1218: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1219: RAISE OKL_API.G_EXCEPTION_ERROR;
1220: END IF;
1221: l_return_status := Validate_Record(l_polv_rec);
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1219: RAISE OKL_API.G_EXCEPTION_ERROR;
1220: END IF;
1221: l_return_status := Validate_Record(l_polv_rec);
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1227: x_return_status := l_return_status;
1220: END IF;
1221: l_return_status := Validate_Record(l_polv_rec);
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1227: x_return_status := l_return_status;
1228: EXCEPTION
1221: l_return_status := Validate_Record(l_polv_rec);
1222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1227: x_return_status := l_return_status;
1228: EXCEPTION
1229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1225: RAISE OKL_API.G_EXCEPTION_ERROR;
1226: END IF;
1227: x_return_status := l_return_status;
1228: EXCEPTION
1229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1226: END IF;
1227: x_return_status := l_return_status;
1228: EXCEPTION
1229: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1234: 'OKL_API.G_RET_STS_ERROR',
1230: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1231: (
1232: l_api_name,
1233: G_PKG_NAME,
1234: 'OKL_API.G_RET_STS_ERROR',
1235: x_msg_count,
1236: x_msg_data,
1237: '_PVT'
1238: );
1235: x_msg_count,
1236: x_msg_data,
1237: '_PVT'
1238: );
1239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1240: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1241: (
1242: l_api_name,
1243: G_PKG_NAME,
1236: x_msg_data,
1237: '_PVT'
1238: );
1239: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1240: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1241: (
1242: l_api_name,
1243: G_PKG_NAME,
1244: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1240: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1241: (
1242: l_api_name,
1243: G_PKG_NAME,
1244: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1245: x_msg_count,
1246: x_msg_data,
1247: '_PVT'
1248: );
1246: x_msg_data,
1247: '_PVT'
1248: );
1249: WHEN OTHERS THEN
1250: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1251: (
1252: l_api_name,
1253: G_PKG_NAME,
1254: 'OTHERS',
1261: -- PL/SQL TBL validate_row for:OKL_POOLS_V --
1262: -------------------------------------------------------
1263: PROCEDURE validate_row(
1264: p_api_version IN NUMBER,
1265: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1266: x_return_status OUT NOCOPY VARCHAR2,
1267: x_msg_count OUT NOCOPY NUMBER,
1268: x_msg_data OUT NOCOPY VARCHAR2,
1269: p_polv_tbl IN polv_tbl_type,
1266: x_return_status OUT NOCOPY VARCHAR2,
1267: x_msg_count OUT NOCOPY NUMBER,
1268: x_msg_data OUT NOCOPY VARCHAR2,
1269: p_polv_tbl IN polv_tbl_type,
1270: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1271:
1272: l_api_version CONSTANT NUMBER := 1;
1273: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1274: i NUMBER := 0;
1272: l_api_version CONSTANT NUMBER := 1;
1273: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1274: i NUMBER := 0;
1275: BEGIN
1276: OKL_API.init_msg_list(p_init_msg_list);
1277: -- Make sure PL/SQL table has records in it before passing
1278: IF (p_polv_tbl.COUNT > 0) THEN
1279: i := p_polv_tbl.FIRST;
1280: LOOP
1278: IF (p_polv_tbl.COUNT > 0) THEN
1279: i := p_polv_tbl.FIRST;
1280: LOOP
1281: DECLARE
1282: l_error_rec OKL_API.ERROR_REC_TYPE;
1283: BEGIN
1284: l_error_rec.api_name := l_api_name;
1285: l_error_rec.api_package := G_PKG_NAME;
1286: l_error_rec.idx := i;
1285: l_error_rec.api_package := G_PKG_NAME;
1286: l_error_rec.idx := i;
1287: validate_row (
1288: p_api_version => p_api_version,
1289: p_init_msg_list => OKL_API.G_FALSE,
1290: x_return_status => l_error_rec.error_type,
1291: x_msg_count => l_error_rec.msg_count,
1292: x_msg_data => l_error_rec.msg_data,
1293: p_polv_rec => p_polv_tbl(i));
1290: x_return_status => l_error_rec.error_type,
1291: x_msg_count => l_error_rec.msg_count,
1292: x_msg_data => l_error_rec.msg_data,
1293: p_polv_rec => p_polv_tbl(i));
1294: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1295: l_error_rec.SQLCODE := SQLCODE;
1296: load_error_tbl(l_error_rec, px_error_tbl);
1297: ELSE
1298: x_msg_count := l_error_rec.msg_count;
1298: x_msg_count := l_error_rec.msg_count;
1299: x_msg_data := l_error_rec.msg_data;
1300: END IF;
1301: EXCEPTION
1302: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1303: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1304: l_error_rec.SQLCODE := SQLCODE;
1305: load_error_tbl(l_error_rec, px_error_tbl);
1306: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1299: x_msg_data := l_error_rec.msg_data;
1300: END IF;
1301: EXCEPTION
1302: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1303: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1304: l_error_rec.SQLCODE := SQLCODE;
1305: load_error_tbl(l_error_rec, px_error_tbl);
1306: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1307: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1302: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1303: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1304: l_error_rec.SQLCODE := SQLCODE;
1305: load_error_tbl(l_error_rec, px_error_tbl);
1306: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1307: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1308: l_error_rec.SQLCODE := SQLCODE;
1309: load_error_tbl(l_error_rec, px_error_tbl);
1310: WHEN OTHERS THEN
1303: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1304: l_error_rec.SQLCODE := SQLCODE;
1305: load_error_tbl(l_error_rec, px_error_tbl);
1306: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1307: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1308: l_error_rec.SQLCODE := SQLCODE;
1309: load_error_tbl(l_error_rec, px_error_tbl);
1310: WHEN OTHERS THEN
1311: l_error_rec.error_type := 'OTHERS';
1318: END IF;
1319: -- Loop through the error_tbl to find the error with the highest severity
1320: -- and return it.
1321: x_return_status := find_highest_exception(px_error_tbl);
1322: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1323: EXCEPTION
1324: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1325: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1326: (
1320: -- and return it.
1321: x_return_status := find_highest_exception(px_error_tbl);
1322: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1323: EXCEPTION
1324: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1325: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1326: (
1327: l_api_name,
1328: G_PKG_NAME,
1321: x_return_status := find_highest_exception(px_error_tbl);
1322: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1323: EXCEPTION
1324: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1325: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1326: (
1327: l_api_name,
1328: G_PKG_NAME,
1329: 'OKL_API.G_RET_STS_ERROR',
1325: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1326: (
1327: l_api_name,
1328: G_PKG_NAME,
1329: 'OKL_API.G_RET_STS_ERROR',
1330: x_msg_count,
1331: x_msg_data,
1332: '_PVT'
1333: );
1330: x_msg_count,
1331: x_msg_data,
1332: '_PVT'
1333: );
1334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1335: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1336: (
1337: l_api_name,
1338: G_PKG_NAME,
1331: x_msg_data,
1332: '_PVT'
1333: );
1334: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1335: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1336: (
1337: l_api_name,
1338: G_PKG_NAME,
1339: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1335: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1336: (
1337: l_api_name,
1338: G_PKG_NAME,
1339: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1340: x_msg_count,
1341: x_msg_data,
1342: '_PVT'
1343: );
1341: x_msg_data,
1342: '_PVT'
1343: );
1344: WHEN OTHERS THEN
1345: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1346: (
1347: l_api_name,
1348: G_PKG_NAME,
1349: 'OTHERS',
1357: -- PL/SQL TBL validate_row for:OKL_POOLS_V --
1358: -------------------------------------------------------
1359: PROCEDURE validate_row(
1360: p_api_version IN NUMBER,
1361: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1362: x_return_status OUT NOCOPY VARCHAR2,
1363: x_msg_count OUT NOCOPY NUMBER,
1364: x_msg_data OUT NOCOPY VARCHAR2,
1365: p_polv_tbl IN polv_tbl_type) IS
1365: p_polv_tbl IN polv_tbl_type) IS
1366:
1367: l_api_version CONSTANT NUMBER := 1;
1368: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1369: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1370: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1371: BEGIN
1372: OKL_API.init_msg_list(p_init_msg_list);
1373: -- Make sure PL/SQL table has records in it before passing
1366:
1367: l_api_version CONSTANT NUMBER := 1;
1368: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1369: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1370: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1371: BEGIN
1372: OKL_API.init_msg_list(p_init_msg_list);
1373: -- Make sure PL/SQL table has records in it before passing
1374: IF (p_polv_tbl.COUNT > 0) THEN
1368: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1369: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1370: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1371: BEGIN
1372: OKL_API.init_msg_list(p_init_msg_list);
1373: -- Make sure PL/SQL table has records in it before passing
1374: IF (p_polv_tbl.COUNT > 0) THEN
1375: validate_row (
1376: p_api_version => p_api_version,
1373: -- Make sure PL/SQL table has records in it before passing
1374: IF (p_polv_tbl.COUNT > 0) THEN
1375: validate_row (
1376: p_api_version => p_api_version,
1377: p_init_msg_list => OKL_API.G_FALSE,
1378: x_return_status => x_return_status,
1379: x_msg_count => x_msg_count,
1380: x_msg_data => x_msg_data,
1381: p_polv_tbl => p_polv_tbl,
1380: x_msg_data => x_msg_data,
1381: p_polv_tbl => p_polv_tbl,
1382: px_error_tbl => l_error_tbl);
1383: END IF;
1384: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1385: EXCEPTION
1386: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1387: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1388: (
1382: px_error_tbl => l_error_tbl);
1383: END IF;
1384: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1385: EXCEPTION
1386: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1387: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1388: (
1389: l_api_name,
1390: G_PKG_NAME,
1383: END IF;
1384: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1385: EXCEPTION
1386: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1387: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1388: (
1389: l_api_name,
1390: G_PKG_NAME,
1391: 'OKL_API.G_RET_STS_ERROR',
1387: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1388: (
1389: l_api_name,
1390: G_PKG_NAME,
1391: 'OKL_API.G_RET_STS_ERROR',
1392: x_msg_count,
1393: x_msg_data,
1394: '_PVT'
1395: );
1392: x_msg_count,
1393: x_msg_data,
1394: '_PVT'
1395: );
1396: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1397: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1398: (
1399: l_api_name,
1400: G_PKG_NAME,
1393: x_msg_data,
1394: '_PVT'
1395: );
1396: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1397: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1398: (
1399: l_api_name,
1400: G_PKG_NAME,
1401: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1397: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1398: (
1399: l_api_name,
1400: G_PKG_NAME,
1401: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1402: x_msg_count,
1403: x_msg_data,
1404: '_PVT'
1405: );
1403: x_msg_data,
1404: '_PVT'
1405: );
1406: WHEN OTHERS THEN
1407: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1408: (
1409: l_api_name,
1410: G_PKG_NAME,
1411: 'OTHERS',
1421: ----------------------------------------
1422: -- insert_row for:okl_pools --
1423: ----------------------------------------
1424: PROCEDURE insert_row(
1425: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1426: x_return_status OUT NOCOPY VARCHAR2,
1427: x_msg_count OUT NOCOPY NUMBER,
1428: x_msg_data OUT NOCOPY VARCHAR2,
1429: p_pol_rec IN pol_rec_type,
1430: x_pol_rec OUT NOCOPY pol_rec_type) IS
1431:
1432: l_api_version CONSTANT NUMBER := 1;
1433: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1434: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1435: l_pol_rec pol_rec_type := p_pol_rec;
1436: l_def_pol_rec pol_rec_type;
1437: --------------------------------------------
1438: -- Set_Attributes for:okl_pools --
1440: FUNCTION Set_Attributes (
1441: p_pol_rec IN pol_rec_type,
1442: x_pol_rec OUT NOCOPY pol_rec_type
1443: ) RETURN VARCHAR2 IS
1444: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1445: BEGIN
1446: x_pol_rec := p_pol_rec;
1447: RETURN(l_return_status);
1448: END Set_Attributes;
1446: x_pol_rec := p_pol_rec;
1447: RETURN(l_return_status);
1448: END Set_Attributes;
1449: BEGIN
1450: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1451: p_init_msg_list,
1452: '_PVT',
1453: x_return_status);
1454: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1450: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1451: p_init_msg_list,
1452: '_PVT',
1453: x_return_status);
1454: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1457: RAISE OKL_API.G_EXCEPTION_ERROR;
1458: END IF;
1451: p_init_msg_list,
1452: '_PVT',
1453: x_return_status);
1454: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1457: RAISE OKL_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: --- Setting item atributes
1452: '_PVT',
1453: x_return_status);
1454: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1457: RAISE OKL_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: --- Setting item atributes
1460: l_return_status := Set_Attributes(
1453: x_return_status);
1454: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1455: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1456: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1457: RAISE OKL_API.G_EXCEPTION_ERROR;
1458: END IF;
1459: --- Setting item atributes
1460: l_return_status := Set_Attributes(
1461: p_pol_rec, -- IN
1460: l_return_status := Set_Attributes(
1461: p_pol_rec, -- IN
1462: l_pol_rec); -- OUT
1463: --- If any errors happen abort API
1464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1467: RAISE OKL_API.G_EXCEPTION_ERROR;
1468: END IF;
1461: p_pol_rec, -- IN
1462: l_pol_rec); -- OUT
1463: --- If any errors happen abort API
1464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1467: RAISE OKL_API.G_EXCEPTION_ERROR;
1468: END IF;
1469: INSERT INTO okl_pools(
1462: l_pol_rec); -- OUT
1463: --- If any errors happen abort API
1464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1467: RAISE OKL_API.G_EXCEPTION_ERROR;
1468: END IF;
1469: INSERT INTO okl_pools(
1470: ID,
1463: --- If any errors happen abort API
1464: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1465: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1466: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1467: RAISE OKL_API.G_EXCEPTION_ERROR;
1468: END IF;
1469: INSERT INTO okl_pools(
1470: ID,
1471: OBJECT_VERSION_NUMBER,
1558: l_pol_rec.legal_entity_id);
1559: -- Set OUT values
1560: x_pol_rec := l_pol_rec;
1561: x_return_status := l_return_status;
1562: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1563: EXCEPTION
1564: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1565: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1566: (
1560: x_pol_rec := l_pol_rec;
1561: x_return_status := l_return_status;
1562: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1563: EXCEPTION
1564: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1565: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1566: (
1567: l_api_name,
1568: G_PKG_NAME,
1561: x_return_status := l_return_status;
1562: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1563: EXCEPTION
1564: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1565: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1566: (
1567: l_api_name,
1568: G_PKG_NAME,
1569: 'OKL_API.G_RET_STS_ERROR',
1565: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1566: (
1567: l_api_name,
1568: G_PKG_NAME,
1569: 'OKL_API.G_RET_STS_ERROR',
1570: x_msg_count,
1571: x_msg_data,
1572: '_PVT'
1573: );
1570: x_msg_count,
1571: x_msg_data,
1572: '_PVT'
1573: );
1574: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1575: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1571: x_msg_data,
1572: '_PVT'
1573: );
1574: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1575: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1575: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1576: (
1577: l_api_name,
1578: G_PKG_NAME,
1579: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1580: x_msg_count,
1581: x_msg_data,
1582: '_PVT'
1583: );
1581: x_msg_data,
1582: '_PVT'
1583: );
1584: WHEN OTHERS THEN
1585: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1586: (
1587: l_api_name,
1588: G_PKG_NAME,
1589: 'OTHERS',
1596: -- insert_row for :OKL_POOLS_V --
1597: -------------------------------------------
1598: PROCEDURE insert_row(
1599: p_api_version IN NUMBER,
1600: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1601: x_return_status OUT NOCOPY VARCHAR2,
1602: x_msg_count OUT NOCOPY NUMBER,
1603: x_msg_data OUT NOCOPY VARCHAR2,
1604: p_polv_rec IN polv_rec_type,
1605: x_polv_rec OUT NOCOPY polv_rec_type) IS
1606:
1607: l_api_version CONSTANT NUMBER := 1;
1608: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1609: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1610: l_polv_rec polv_rec_type := p_polv_rec;
1611: l_def_polv_rec polv_rec_type;
1612: l_pol_rec pol_rec_type;
1613: lx_pol_rec pol_rec_type;
1632: FUNCTION Set_Attributes (
1633: p_polv_rec IN polv_rec_type,
1634: x_polv_rec OUT NOCOPY polv_rec_type
1635: ) RETURN VARCHAR2 IS
1636: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1637: BEGIN
1638: x_polv_rec := p_polv_rec;
1639: x_polv_rec.OBJECT_VERSION_NUMBER := 1;
1640:
1651: x_polv_rec.org_id := mo_global.get_current_org_id();
1652: RETURN(l_return_status);
1653: END Set_Attributes;
1654: BEGIN
1655: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1656: G_PKG_NAME,
1657: p_init_msg_list,
1658: l_api_version,
1659: p_api_version,
1658: l_api_version,
1659: p_api_version,
1660: '_PVT',
1661: x_return_status);
1662: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1665: RAISE OKL_API.G_EXCEPTION_ERROR;
1666: END IF;
1659: p_api_version,
1660: '_PVT',
1661: x_return_status);
1662: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1665: RAISE OKL_API.G_EXCEPTION_ERROR;
1666: END IF;
1667: l_polv_rec := null_out_defaults(p_polv_rec);
1660: '_PVT',
1661: x_return_status);
1662: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1665: RAISE OKL_API.G_EXCEPTION_ERROR;
1666: END IF;
1667: l_polv_rec := null_out_defaults(p_polv_rec);
1668: -- Set primary key value
1661: x_return_status);
1662: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1663: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1664: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1665: RAISE OKL_API.G_EXCEPTION_ERROR;
1666: END IF;
1667: l_polv_rec := null_out_defaults(p_polv_rec);
1668: -- Set primary key value
1669: l_polv_rec.ID := get_seq_id;
1671: l_return_Status := Set_Attributes(
1672: l_polv_rec, -- IN
1673: l_def_polv_rec); -- OUT
1674: --- If any errors happen abort API
1675: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1677: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1678: RAISE OKL_API.G_EXCEPTION_ERROR;
1679: END IF;
1672: l_polv_rec, -- IN
1673: l_def_polv_rec); -- OUT
1674: --- If any errors happen abort API
1675: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1677: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1678: RAISE OKL_API.G_EXCEPTION_ERROR;
1679: END IF;
1680: l_def_polv_rec := fill_who_columns(l_def_polv_rec);
1673: l_def_polv_rec); -- OUT
1674: --- If any errors happen abort API
1675: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1677: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1678: RAISE OKL_API.G_EXCEPTION_ERROR;
1679: END IF;
1680: l_def_polv_rec := fill_who_columns(l_def_polv_rec);
1681: --- Validate all non-missing attributes (Item Level Validation)
1674: --- If any errors happen abort API
1675: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1677: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1678: RAISE OKL_API.G_EXCEPTION_ERROR;
1679: END IF;
1680: l_def_polv_rec := fill_who_columns(l_def_polv_rec);
1681: --- Validate all non-missing attributes (Item Level Validation)
1682: l_return_status := Validate_Attributes(l_def_polv_rec);
1680: l_def_polv_rec := fill_who_columns(l_def_polv_rec);
1681: --- Validate all non-missing attributes (Item Level Validation)
1682: l_return_status := Validate_Attributes(l_def_polv_rec);
1683: --- If any errors happen abort API
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1681: --- Validate all non-missing attributes (Item Level Validation)
1682: l_return_status := Validate_Attributes(l_def_polv_rec);
1683: --- If any errors happen abort API
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: l_return_status := Validate_Record(l_def_polv_rec);
1682: l_return_status := Validate_Attributes(l_def_polv_rec);
1683: --- If any errors happen abort API
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: l_return_status := Validate_Record(l_def_polv_rec);
1690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1683: --- If any errors happen abort API
1684: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1685: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: l_return_status := Validate_Record(l_def_polv_rec);
1690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1686: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: l_return_status := Validate_Record(l_def_polv_rec);
1690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1693: RAISE OKL_API.G_EXCEPTION_ERROR;
1694: END IF;
1687: RAISE OKL_API.G_EXCEPTION_ERROR;
1688: END IF;
1689: l_return_status := Validate_Record(l_def_polv_rec);
1690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1693: RAISE OKL_API.G_EXCEPTION_ERROR;
1694: END IF;
1695: -----------------------------------------
1688: END IF;
1689: l_return_status := Validate_Record(l_def_polv_rec);
1690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1693: RAISE OKL_API.G_EXCEPTION_ERROR;
1694: END IF;
1695: -----------------------------------------
1696: -- Move VIEW record to "Child" records --
1689: l_return_status := Validate_Record(l_def_polv_rec);
1690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1693: RAISE OKL_API.G_EXCEPTION_ERROR;
1694: END IF;
1695: -----------------------------------------
1696: -- Move VIEW record to "Child" records --
1697: -----------------------------------------
1706: x_msg_data,
1707: l_pol_rec,
1708: lx_pol_rec
1709: );
1710: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1707: l_pol_rec,
1708: lx_pol_rec
1709: );
1710: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: migrate(lx_pol_rec, l_def_polv_rec);
1708: lx_pol_rec
1709: );
1710: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: migrate(lx_pol_rec, l_def_polv_rec);
1716: -- Set OUT values
1709: );
1710: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: migrate(lx_pol_rec, l_def_polv_rec);
1716: -- Set OUT values
1717: x_polv_rec := l_def_polv_rec;
1715: migrate(lx_pol_rec, l_def_polv_rec);
1716: -- Set OUT values
1717: x_polv_rec := l_def_polv_rec;
1718: x_return_status := l_return_status;
1719: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1720: EXCEPTION
1721: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1722: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1723: (
1717: x_polv_rec := l_def_polv_rec;
1718: x_return_status := l_return_status;
1719: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1720: EXCEPTION
1721: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1722: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1723: (
1724: l_api_name,
1725: G_PKG_NAME,
1718: x_return_status := l_return_status;
1719: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1720: EXCEPTION
1721: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1722: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1723: (
1724: l_api_name,
1725: G_PKG_NAME,
1726: 'OKL_API.G_RET_STS_ERROR',
1722: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1723: (
1724: l_api_name,
1725: G_PKG_NAME,
1726: 'OKL_API.G_RET_STS_ERROR',
1727: x_msg_count,
1728: x_msg_data,
1729: '_PVT'
1730: );
1727: x_msg_count,
1728: x_msg_data,
1729: '_PVT'
1730: );
1731: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1732: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1733: (
1734: l_api_name,
1735: G_PKG_NAME,
1728: x_msg_data,
1729: '_PVT'
1730: );
1731: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1732: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1733: (
1734: l_api_name,
1735: G_PKG_NAME,
1736: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1732: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1733: (
1734: l_api_name,
1735: G_PKG_NAME,
1736: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1737: x_msg_count,
1738: x_msg_data,
1739: '_PVT'
1740: );
1738: x_msg_data,
1739: '_PVT'
1740: );
1741: WHEN OTHERS THEN
1742: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1743: (
1744: l_api_name,
1745: G_PKG_NAME,
1746: 'OTHERS',
1753: -- PL/SQL TBL insert_row for:polV_TBL --
1754: ----------------------------------------
1755: PROCEDURE insert_row(
1756: p_api_version IN NUMBER,
1757: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1758: x_return_status OUT NOCOPY VARCHAR2,
1759: x_msg_count OUT NOCOPY NUMBER,
1760: x_msg_data OUT NOCOPY VARCHAR2,
1761: p_polv_tbl IN polv_tbl_type,
1759: x_msg_count OUT NOCOPY NUMBER,
1760: x_msg_data OUT NOCOPY VARCHAR2,
1761: p_polv_tbl IN polv_tbl_type,
1762: x_polv_tbl OUT NOCOPY polv_tbl_type,
1763: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1764:
1765: l_api_version CONSTANT NUMBER := 1;
1766: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1767: i NUMBER := 0;
1765: l_api_version CONSTANT NUMBER := 1;
1766: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1767: i NUMBER := 0;
1768: BEGIN
1769: OKL_API.init_msg_list(p_init_msg_list);
1770: -- Make sure PL/SQL table has records in it before passing
1771: IF (p_polv_tbl.COUNT > 0) THEN
1772: i := p_polv_tbl.FIRST;
1773: LOOP
1771: IF (p_polv_tbl.COUNT > 0) THEN
1772: i := p_polv_tbl.FIRST;
1773: LOOP
1774: DECLARE
1775: l_error_rec OKL_API.ERROR_REC_TYPE;
1776: BEGIN
1777: l_error_rec.api_name := l_api_name;
1778: l_error_rec.api_package := G_PKG_NAME;
1779: l_error_rec.idx := i;
1778: l_error_rec.api_package := G_PKG_NAME;
1779: l_error_rec.idx := i;
1780: insert_row (
1781: p_api_version => p_api_version,
1782: p_init_msg_list => OKL_API.G_FALSE,
1783: x_return_status => l_error_rec.error_type,
1784: x_msg_count => l_error_rec.msg_count,
1785: x_msg_data => l_error_rec.msg_data,
1786: p_polv_rec => p_polv_tbl(i),
1784: x_msg_count => l_error_rec.msg_count,
1785: x_msg_data => l_error_rec.msg_data,
1786: p_polv_rec => p_polv_tbl(i),
1787: x_polv_rec => x_polv_tbl(i));
1788: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1789: l_error_rec.SQLCODE := SQLCODE;
1790: load_error_tbl(l_error_rec, px_error_tbl);
1791: ELSE
1792: x_msg_count := l_error_rec.msg_count;
1792: x_msg_count := l_error_rec.msg_count;
1793: x_msg_data := l_error_rec.msg_data;
1794: END IF;
1795: EXCEPTION
1796: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1797: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1798: l_error_rec.SQLCODE := SQLCODE;
1799: load_error_tbl(l_error_rec, px_error_tbl);
1800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1793: x_msg_data := l_error_rec.msg_data;
1794: END IF;
1795: EXCEPTION
1796: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1797: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1798: l_error_rec.SQLCODE := SQLCODE;
1799: load_error_tbl(l_error_rec, px_error_tbl);
1800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1801: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1796: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1797: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1798: l_error_rec.SQLCODE := SQLCODE;
1799: load_error_tbl(l_error_rec, px_error_tbl);
1800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1801: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1802: l_error_rec.SQLCODE := SQLCODE;
1803: load_error_tbl(l_error_rec, px_error_tbl);
1804: WHEN OTHERS THEN
1797: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1798: l_error_rec.SQLCODE := SQLCODE;
1799: load_error_tbl(l_error_rec, px_error_tbl);
1800: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1801: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1802: l_error_rec.SQLCODE := SQLCODE;
1803: load_error_tbl(l_error_rec, px_error_tbl);
1804: WHEN OTHERS THEN
1805: l_error_rec.error_type := 'OTHERS';
1812: END IF;
1813: -- Loop through the error_tbl to find the error with the highest severity
1814: -- and return it.
1815: x_return_status := find_highest_exception(px_error_tbl);
1816: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1817: EXCEPTION
1818: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1819: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1820: (
1814: -- and return it.
1815: x_return_status := find_highest_exception(px_error_tbl);
1816: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1817: EXCEPTION
1818: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1819: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1820: (
1821: l_api_name,
1822: G_PKG_NAME,
1815: x_return_status := find_highest_exception(px_error_tbl);
1816: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1817: EXCEPTION
1818: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1819: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1820: (
1821: l_api_name,
1822: G_PKG_NAME,
1823: 'OKL_API.G_RET_STS_ERROR',
1819: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1820: (
1821: l_api_name,
1822: G_PKG_NAME,
1823: 'OKL_API.G_RET_STS_ERROR',
1824: x_msg_count,
1825: x_msg_data,
1826: '_PVT'
1827: );
1824: x_msg_count,
1825: x_msg_data,
1826: '_PVT'
1827: );
1828: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1829: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1825: x_msg_data,
1826: '_PVT'
1827: );
1828: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1829: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1833: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1829: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1830: (
1831: l_api_name,
1832: G_PKG_NAME,
1833: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1834: x_msg_count,
1835: x_msg_data,
1836: '_PVT'
1837: );
1835: x_msg_data,
1836: '_PVT'
1837: );
1838: WHEN OTHERS THEN
1839: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1840: (
1841: l_api_name,
1842: G_PKG_NAME,
1843: 'OTHERS',
1851: -- PL/SQL TBL insert_row for:polV_TBL --
1852: ----------------------------------------
1853: PROCEDURE insert_row(
1854: p_api_version IN NUMBER,
1855: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1856: x_return_status OUT NOCOPY VARCHAR2,
1857: x_msg_count OUT NOCOPY NUMBER,
1858: x_msg_data OUT NOCOPY VARCHAR2,
1859: p_polv_tbl IN polv_tbl_type,
1860: x_polv_tbl OUT NOCOPY polv_tbl_type) IS
1861:
1862: l_api_version CONSTANT NUMBER := 1;
1863: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1864: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1865: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1866: BEGIN
1867: OKL_API.init_msg_list(p_init_msg_list);
1868: -- Make sure PL/SQL table has records in it before passing
1861:
1862: l_api_version CONSTANT NUMBER := 1;
1863: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1864: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1865: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1866: BEGIN
1867: OKL_API.init_msg_list(p_init_msg_list);
1868: -- Make sure PL/SQL table has records in it before passing
1869: IF (p_polv_tbl.COUNT > 0) THEN
1863: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1864: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1865: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1866: BEGIN
1867: OKL_API.init_msg_list(p_init_msg_list);
1868: -- Make sure PL/SQL table has records in it before passing
1869: IF (p_polv_tbl.COUNT > 0) THEN
1870: insert_row (
1871: p_api_version => p_api_version,
1868: -- Make sure PL/SQL table has records in it before passing
1869: IF (p_polv_tbl.COUNT > 0) THEN
1870: insert_row (
1871: p_api_version => p_api_version,
1872: p_init_msg_list => OKL_API.G_FALSE,
1873: x_return_status => x_return_status,
1874: x_msg_count => x_msg_count,
1875: x_msg_data => x_msg_data,
1876: p_polv_tbl => p_polv_tbl,
1876: p_polv_tbl => p_polv_tbl,
1877: x_polv_tbl => x_polv_tbl,
1878: px_error_tbl => l_error_tbl);
1879: END IF;
1880: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1881: EXCEPTION
1882: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1883: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1884: (
1878: px_error_tbl => l_error_tbl);
1879: END IF;
1880: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1881: EXCEPTION
1882: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1883: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1884: (
1885: l_api_name,
1886: G_PKG_NAME,
1879: END IF;
1880: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1881: EXCEPTION
1882: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1883: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1884: (
1885: l_api_name,
1886: G_PKG_NAME,
1887: 'OKL_API.G_RET_STS_ERROR',
1883: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1884: (
1885: l_api_name,
1886: G_PKG_NAME,
1887: 'OKL_API.G_RET_STS_ERROR',
1888: x_msg_count,
1889: x_msg_data,
1890: '_PVT'
1891: );
1888: x_msg_count,
1889: x_msg_data,
1890: '_PVT'
1891: );
1892: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1893: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1894: (
1895: l_api_name,
1896: G_PKG_NAME,
1889: x_msg_data,
1890: '_PVT'
1891: );
1892: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1893: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1894: (
1895: l_api_name,
1896: G_PKG_NAME,
1897: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1893: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1894: (
1895: l_api_name,
1896: G_PKG_NAME,
1897: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1898: x_msg_count,
1899: x_msg_data,
1900: '_PVT'
1901: );
1899: x_msg_data,
1900: '_PVT'
1901: );
1902: WHEN OTHERS THEN
1903: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1904: (
1905: l_api_name,
1906: G_PKG_NAME,
1907: 'OTHERS',
1917: --------------------------------------
1918: -- lock_row for:okl_pools --
1919: --------------------------------------
1920: PROCEDURE lock_row(
1921: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1922: x_return_status OUT NOCOPY VARCHAR2,
1923: x_msg_count OUT NOCOPY NUMBER,
1924: x_msg_data OUT NOCOPY VARCHAR2,
1925: p_pol_rec IN pol_rec_type) IS
1938: FROM okl_pools
1939: WHERE ID = p_pol_rec.id;
1940: l_api_version CONSTANT NUMBER := 1;
1941: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1942: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1943: l_object_version_number okl_pools.OBJECT_VERSION_NUMBER%TYPE;
1944: lc_object_version_number okl_pools.OBJECT_VERSION_NUMBER%TYPE;
1945: l_row_notfound BOOLEAN := FALSE;
1946: lc_row_notfound BOOLEAN := FALSE;
1944: lc_object_version_number okl_pools.OBJECT_VERSION_NUMBER%TYPE;
1945: l_row_notfound BOOLEAN := FALSE;
1946: lc_row_notfound BOOLEAN := FALSE;
1947: BEGIN
1948: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1949: p_init_msg_list,
1950: '_PVT',
1951: x_return_status);
1952: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1948: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1949: p_init_msg_list,
1950: '_PVT',
1951: x_return_status);
1952: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1954: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1955: RAISE OKL_API.G_EXCEPTION_ERROR;
1956: END IF;
1949: p_init_msg_list,
1950: '_PVT',
1951: x_return_status);
1952: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1954: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1955: RAISE OKL_API.G_EXCEPTION_ERROR;
1956: END IF;
1957: BEGIN
1950: '_PVT',
1951: x_return_status);
1952: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1954: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1955: RAISE OKL_API.G_EXCEPTION_ERROR;
1956: END IF;
1957: BEGIN
1958: OPEN lock_csr(p_pol_rec);
1951: x_return_status);
1952: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1953: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1954: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1955: RAISE OKL_API.G_EXCEPTION_ERROR;
1956: END IF;
1957: BEGIN
1958: OPEN lock_csr(p_pol_rec);
1959: FETCH lock_csr INTO l_object_version_number;
1963: WHEN E_Resource_Busy THEN
1964: IF (lock_csr%ISOPEN) THEN
1965: CLOSE lock_csr;
1966: END IF;
1967: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1968: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1969: END;
1970:
1971: IF ( l_row_notfound ) THEN
1974: lc_row_notfound := lchk_csr%NOTFOUND;
1975: CLOSE lchk_csr;
1976: END IF;
1977: IF (lc_row_notfound) THEN
1978: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1979: RAISE OKL_API.G_EXCEPTION_ERROR;
1980: ELSIF lc_object_version_number > p_pol_rec.object_version_number THEN
1981: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1975: CLOSE lchk_csr;
1976: END IF;
1977: IF (lc_row_notfound) THEN
1978: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1979: RAISE OKL_API.G_EXCEPTION_ERROR;
1980: ELSIF lc_object_version_number > p_pol_rec.object_version_number THEN
1981: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: ELSIF lc_object_version_number <> p_pol_rec.object_version_number THEN
1977: IF (lc_row_notfound) THEN
1978: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1979: RAISE OKL_API.G_EXCEPTION_ERROR;
1980: ELSIF lc_object_version_number > p_pol_rec.object_version_number THEN
1981: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: ELSIF lc_object_version_number <> p_pol_rec.object_version_number THEN
1984: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1985: RAISE OKL_API.G_EXCEPTION_ERROR;
1978: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1979: RAISE OKL_API.G_EXCEPTION_ERROR;
1980: ELSIF lc_object_version_number > p_pol_rec.object_version_number THEN
1981: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: ELSIF lc_object_version_number <> p_pol_rec.object_version_number THEN
1984: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1985: RAISE OKL_API.G_EXCEPTION_ERROR;
1986: ELSIF lc_object_version_number = -1 THEN
1980: ELSIF lc_object_version_number > p_pol_rec.object_version_number THEN
1981: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: ELSIF lc_object_version_number <> p_pol_rec.object_version_number THEN
1984: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1985: RAISE OKL_API.G_EXCEPTION_ERROR;
1986: ELSIF lc_object_version_number = -1 THEN
1987: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1981: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1982: RAISE OKL_API.G_EXCEPTION_ERROR;
1983: ELSIF lc_object_version_number <> p_pol_rec.object_version_number THEN
1984: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1985: RAISE OKL_API.G_EXCEPTION_ERROR;
1986: ELSIF lc_object_version_number = -1 THEN
1987: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1983: ELSIF lc_object_version_number <> p_pol_rec.object_version_number THEN
1984: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1985: RAISE OKL_API.G_EXCEPTION_ERROR;
1986: ELSIF lc_object_version_number = -1 THEN
1987: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990: x_return_status := l_return_status;
1991: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1984: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1985: RAISE OKL_API.G_EXCEPTION_ERROR;
1986: ELSIF lc_object_version_number = -1 THEN
1987: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990: x_return_status := l_return_status;
1991: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1992: EXCEPTION
1987: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990: x_return_status := l_return_status;
1991: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1992: EXCEPTION
1993: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1994: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1995: (
1989: END IF;
1990: x_return_status := l_return_status;
1991: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1992: EXCEPTION
1993: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1994: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1995: (
1996: l_api_name,
1997: G_PKG_NAME,
1990: x_return_status := l_return_status;
1991: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1992: EXCEPTION
1993: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1994: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1995: (
1996: l_api_name,
1997: G_PKG_NAME,
1998: 'OKL_API.G_RET_STS_ERROR',
1994: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1995: (
1996: l_api_name,
1997: G_PKG_NAME,
1998: 'OKL_API.G_RET_STS_ERROR',
1999: x_msg_count,
2000: x_msg_data,
2001: '_PVT'
2002: );
1999: x_msg_count,
2000: x_msg_data,
2001: '_PVT'
2002: );
2003: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2004: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2005: (
2006: l_api_name,
2007: G_PKG_NAME,
2000: x_msg_data,
2001: '_PVT'
2002: );
2003: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2004: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2005: (
2006: l_api_name,
2007: G_PKG_NAME,
2008: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2004: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2005: (
2006: l_api_name,
2007: G_PKG_NAME,
2008: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2009: x_msg_count,
2010: x_msg_data,
2011: '_PVT'
2012: );
2010: x_msg_data,
2011: '_PVT'
2012: );
2013: WHEN OTHERS THEN
2014: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2015: (
2016: l_api_name,
2017: G_PKG_NAME,
2018: 'OTHERS',
2025: -- lock_row for: OKL_POOLS_V --
2026: -----------------------------------------
2027: PROCEDURE lock_row(
2028: p_api_version IN NUMBER,
2029: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2030: x_return_status OUT NOCOPY VARCHAR2,
2031: x_msg_count OUT NOCOPY NUMBER,
2032: x_msg_data OUT NOCOPY VARCHAR2,
2033: p_polv_rec IN polv_rec_type) IS
2033: p_polv_rec IN polv_rec_type) IS
2034:
2035: l_api_version CONSTANT NUMBER := 1;
2036: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2037: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2038: l_pol_rec pol_rec_type;
2039: BEGIN
2040: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2041: G_PKG_NAME,
2036: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2037: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2038: l_pol_rec pol_rec_type;
2039: BEGIN
2040: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2041: G_PKG_NAME,
2042: p_init_msg_list,
2043: l_api_version,
2044: p_api_version,
2043: l_api_version,
2044: p_api_version,
2045: '_PVT',
2046: x_return_status);
2047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2050: RAISE OKL_API.G_EXCEPTION_ERROR;
2051: END IF;
2044: p_api_version,
2045: '_PVT',
2046: x_return_status);
2047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2050: RAISE OKL_API.G_EXCEPTION_ERROR;
2051: END IF;
2052: -----------------------------------------
2045: '_PVT',
2046: x_return_status);
2047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2050: RAISE OKL_API.G_EXCEPTION_ERROR;
2051: END IF;
2052: -----------------------------------------
2053: -- Move VIEW record to "Child" records --
2046: x_return_status);
2047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2048: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2049: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2050: RAISE OKL_API.G_EXCEPTION_ERROR;
2051: END IF;
2052: -----------------------------------------
2053: -- Move VIEW record to "Child" records --
2054: -----------------------------------------
2062: x_msg_count,
2063: x_msg_data,
2064: l_pol_rec
2065: );
2066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_ERROR;
2070: END IF;
2063: x_msg_data,
2064: l_pol_rec
2065: );
2066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_ERROR;
2070: END IF;
2071: x_return_status := l_return_status;
2064: l_pol_rec
2065: );
2066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_ERROR;
2070: END IF;
2071: x_return_status := l_return_status;
2072: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2065: );
2066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_ERROR;
2070: END IF;
2071: x_return_status := l_return_status;
2072: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2073: EXCEPTION
2068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2069: RAISE OKL_API.G_EXCEPTION_ERROR;
2070: END IF;
2071: x_return_status := l_return_status;
2072: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2073: EXCEPTION
2074: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2075: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2076: (
2070: END IF;
2071: x_return_status := l_return_status;
2072: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2073: EXCEPTION
2074: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2075: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2076: (
2077: l_api_name,
2078: G_PKG_NAME,
2071: x_return_status := l_return_status;
2072: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2073: EXCEPTION
2074: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2075: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2076: (
2077: l_api_name,
2078: G_PKG_NAME,
2079: 'OKL_API.G_RET_STS_ERROR',
2075: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2076: (
2077: l_api_name,
2078: G_PKG_NAME,
2079: 'OKL_API.G_RET_STS_ERROR',
2080: x_msg_count,
2081: x_msg_data,
2082: '_PVT'
2083: );
2080: x_msg_count,
2081: x_msg_data,
2082: '_PVT'
2083: );
2084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2085: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2086: (
2087: l_api_name,
2088: G_PKG_NAME,
2081: x_msg_data,
2082: '_PVT'
2083: );
2084: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2085: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2086: (
2087: l_api_name,
2088: G_PKG_NAME,
2089: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2085: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2086: (
2087: l_api_name,
2088: G_PKG_NAME,
2089: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2090: x_msg_count,
2091: x_msg_data,
2092: '_PVT'
2093: );
2091: x_msg_data,
2092: '_PVT'
2093: );
2094: WHEN OTHERS THEN
2095: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2096: (
2097: l_api_name,
2098: G_PKG_NAME,
2099: 'OTHERS',
2106: -- PL/SQL TBL lock_row for:polV_TBL --
2107: --------------------------------------
2108: PROCEDURE lock_row(
2109: p_api_version IN NUMBER,
2110: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2111: x_return_status OUT NOCOPY VARCHAR2,
2112: x_msg_count OUT NOCOPY NUMBER,
2113: x_msg_data OUT NOCOPY VARCHAR2,
2114: p_polv_tbl IN polv_tbl_type,
2111: x_return_status OUT NOCOPY VARCHAR2,
2112: x_msg_count OUT NOCOPY NUMBER,
2113: x_msg_data OUT NOCOPY VARCHAR2,
2114: p_polv_tbl IN polv_tbl_type,
2115: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2116:
2117: l_api_version CONSTANT NUMBER := 1;
2118: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2119: i NUMBER := 0;
2117: l_api_version CONSTANT NUMBER := 1;
2118: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2119: i NUMBER := 0;
2120: BEGIN
2121: OKL_API.init_msg_list(p_init_msg_list);
2122: -- Make sure PL/SQL table has recrods in it before passing
2123: IF (p_polv_tbl.COUNT > 0) THEN
2124: i := p_polv_tbl.FIRST;
2125: LOOP
2123: IF (p_polv_tbl.COUNT > 0) THEN
2124: i := p_polv_tbl.FIRST;
2125: LOOP
2126: DECLARE
2127: l_error_rec OKL_API.ERROR_REC_TYPE;
2128: BEGIN
2129: l_error_rec.api_name := l_api_name;
2130: l_error_rec.api_package := G_PKG_NAME;
2131: l_error_rec.idx := i;
2130: l_error_rec.api_package := G_PKG_NAME;
2131: l_error_rec.idx := i;
2132: lock_row(
2133: p_api_version => p_api_version,
2134: p_init_msg_list => OKL_API.G_FALSE,
2135: x_return_status => l_error_rec.error_type,
2136: x_msg_count => l_error_rec.msg_count,
2137: x_msg_data => l_error_rec.msg_data,
2138: p_polv_rec => p_polv_tbl(i));
2135: x_return_status => l_error_rec.error_type,
2136: x_msg_count => l_error_rec.msg_count,
2137: x_msg_data => l_error_rec.msg_data,
2138: p_polv_rec => p_polv_tbl(i));
2139: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2140: l_error_rec.SQLCODE := SQLCODE;
2141: load_error_tbl(l_error_rec, px_error_tbl);
2142: ELSE
2143: x_msg_count := l_error_rec.msg_count;
2143: x_msg_count := l_error_rec.msg_count;
2144: x_msg_data := l_error_rec.msg_data;
2145: END IF;
2146: EXCEPTION
2147: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2148: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2149: l_error_rec.SQLCODE := SQLCODE;
2150: load_error_tbl(l_error_rec, px_error_tbl);
2151: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2144: x_msg_data := l_error_rec.msg_data;
2145: END IF;
2146: EXCEPTION
2147: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2148: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2149: l_error_rec.SQLCODE := SQLCODE;
2150: load_error_tbl(l_error_rec, px_error_tbl);
2151: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2152: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2147: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2148: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2149: l_error_rec.SQLCODE := SQLCODE;
2150: load_error_tbl(l_error_rec, px_error_tbl);
2151: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2152: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2153: l_error_rec.SQLCODE := SQLCODE;
2154: load_error_tbl(l_error_rec, px_error_tbl);
2155: WHEN OTHERS THEN
2148: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2149: l_error_rec.SQLCODE := SQLCODE;
2150: load_error_tbl(l_error_rec, px_error_tbl);
2151: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2152: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2153: l_error_rec.SQLCODE := SQLCODE;
2154: load_error_tbl(l_error_rec, px_error_tbl);
2155: WHEN OTHERS THEN
2156: l_error_rec.error_type := 'OTHERS';
2163: END IF;
2164: -- Loop through the error_tbl to find the error with the highest severity
2165: -- and return it.
2166: x_return_status := find_highest_exception(px_error_tbl);
2167: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2168: EXCEPTION
2169: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2170: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2171: (
2165: -- and return it.
2166: x_return_status := find_highest_exception(px_error_tbl);
2167: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2168: EXCEPTION
2169: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2170: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2171: (
2172: l_api_name,
2173: G_PKG_NAME,
2166: x_return_status := find_highest_exception(px_error_tbl);
2167: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2168: EXCEPTION
2169: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2170: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2171: (
2172: l_api_name,
2173: G_PKG_NAME,
2174: 'OKL_API.G_RET_STS_ERROR',
2170: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2171: (
2172: l_api_name,
2173: G_PKG_NAME,
2174: 'OKL_API.G_RET_STS_ERROR',
2175: x_msg_count,
2176: x_msg_data,
2177: '_PVT'
2178: );
2175: x_msg_count,
2176: x_msg_data,
2177: '_PVT'
2178: );
2179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2180: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2181: (
2182: l_api_name,
2183: G_PKG_NAME,
2176: x_msg_data,
2177: '_PVT'
2178: );
2179: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2180: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2181: (
2182: l_api_name,
2183: G_PKG_NAME,
2184: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2180: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2181: (
2182: l_api_name,
2183: G_PKG_NAME,
2184: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2185: x_msg_count,
2186: x_msg_data,
2187: '_PVT'
2188: );
2186: x_msg_data,
2187: '_PVT'
2188: );
2189: WHEN OTHERS THEN
2190: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2191: (
2192: l_api_name,
2193: G_PKG_NAME,
2194: 'OTHERS',
2201: -- PL/SQL TBL lock_row for:polV_TBL --
2202: --------------------------------------
2203: PROCEDURE lock_row(
2204: p_api_version IN NUMBER,
2205: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2206: x_return_status OUT NOCOPY VARCHAR2,
2207: x_msg_count OUT NOCOPY NUMBER,
2208: x_msg_data OUT NOCOPY VARCHAR2,
2209: p_polv_tbl IN polv_tbl_type) IS
2209: p_polv_tbl IN polv_tbl_type) IS
2210:
2211: l_api_version CONSTANT NUMBER := 1;
2212: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2213: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2214: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2215: BEGIN
2216: OKL_API.init_msg_list(p_init_msg_list);
2217: -- Make sure PL/SQL table has recrods in it before passing
2210:
2211: l_api_version CONSTANT NUMBER := 1;
2212: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2213: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2214: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2215: BEGIN
2216: OKL_API.init_msg_list(p_init_msg_list);
2217: -- Make sure PL/SQL table has recrods in it before passing
2218: IF (p_polv_tbl.COUNT > 0) THEN
2212: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2213: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2214: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2215: BEGIN
2216: OKL_API.init_msg_list(p_init_msg_list);
2217: -- Make sure PL/SQL table has recrods in it before passing
2218: IF (p_polv_tbl.COUNT > 0) THEN
2219: lock_row(
2220: p_api_version => p_api_version,
2217: -- Make sure PL/SQL table has recrods in it before passing
2218: IF (p_polv_tbl.COUNT > 0) THEN
2219: lock_row(
2220: p_api_version => p_api_version,
2221: p_init_msg_list => OKL_API.G_FALSE,
2222: x_return_status => x_return_status,
2223: x_msg_count => x_msg_count,
2224: x_msg_data => x_msg_data,
2225: p_polv_tbl => p_polv_tbl,
2224: x_msg_data => x_msg_data,
2225: p_polv_tbl => p_polv_tbl,
2226: px_error_tbl => l_error_tbl);
2227: END IF;
2228: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2229: EXCEPTION
2230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2231: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2232: (
2226: px_error_tbl => l_error_tbl);
2227: END IF;
2228: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2229: EXCEPTION
2230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2231: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2232: (
2233: l_api_name,
2234: G_PKG_NAME,
2227: END IF;
2228: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2229: EXCEPTION
2230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2231: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2232: (
2233: l_api_name,
2234: G_PKG_NAME,
2235: 'OKL_API.G_RET_STS_ERROR',
2231: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2232: (
2233: l_api_name,
2234: G_PKG_NAME,
2235: 'OKL_API.G_RET_STS_ERROR',
2236: x_msg_count,
2237: x_msg_data,
2238: '_PVT'
2239: );
2236: x_msg_count,
2237: x_msg_data,
2238: '_PVT'
2239: );
2240: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2242: (
2243: l_api_name,
2244: G_PKG_NAME,
2237: x_msg_data,
2238: '_PVT'
2239: );
2240: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2242: (
2243: l_api_name,
2244: G_PKG_NAME,
2245: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2242: (
2243: l_api_name,
2244: G_PKG_NAME,
2245: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2246: x_msg_count,
2247: x_msg_data,
2248: '_PVT'
2249: );
2247: x_msg_data,
2248: '_PVT'
2249: );
2250: WHEN OTHERS THEN
2251: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2252: (
2253: l_api_name,
2254: G_PKG_NAME,
2255: 'OTHERS',
2264: ----------------------------------------
2265: -- update_row for:okl_pools --
2266: ----------------------------------------
2267: PROCEDURE update_row(
2268: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2269: x_return_status OUT NOCOPY VARCHAR2,
2270: x_msg_count OUT NOCOPY NUMBER,
2271: x_msg_data OUT NOCOPY VARCHAR2,
2272: p_pol_rec IN pol_rec_type,
2273: x_pol_rec OUT NOCOPY pol_rec_type) IS
2274:
2275: l_api_version CONSTANT NUMBER := 1;
2276: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2277: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2278: l_pol_rec pol_rec_type := p_pol_rec;
2279: l_def_pol_rec pol_rec_type;
2280: l_row_notfound BOOLEAN := TRUE;
2281: ----------------------------------
2286: x_pol_rec OUT NOCOPY pol_rec_type
2287: ) RETURN VARCHAR2 IS
2288: l_pol_rec pol_rec_type;
2289: l_row_notfound BOOLEAN := TRUE;
2290: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2291: BEGIN
2292: x_pol_rec := p_pol_rec;
2293: -- Get current database values
2294: l_pol_rec := get_rec(p_pol_rec, l_return_status);
2291: BEGIN
2292: x_pol_rec := p_pol_rec;
2293: -- Get current database values
2294: l_pol_rec := get_rec(p_pol_rec, l_return_status);
2295: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2296: IF (x_pol_rec.id = OKL_API.G_MISS_NUM)
2297: THEN
2298: x_pol_rec.id := l_pol_rec.id;
2299: END IF;
2292: x_pol_rec := p_pol_rec;
2293: -- Get current database values
2294: l_pol_rec := get_rec(p_pol_rec, l_return_status);
2295: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2296: IF (x_pol_rec.id = OKL_API.G_MISS_NUM)
2297: THEN
2298: x_pol_rec.id := l_pol_rec.id;
2299: END IF;
2300: IF (x_pol_rec.object_version_number = OKL_API.G_MISS_NUM)
2296: IF (x_pol_rec.id = OKL_API.G_MISS_NUM)
2297: THEN
2298: x_pol_rec.id := l_pol_rec.id;
2299: END IF;
2300: IF (x_pol_rec.object_version_number = OKL_API.G_MISS_NUM)
2301: THEN
2302: x_pol_rec.object_version_number := l_pol_rec.object_version_number;
2303: END IF;
2304: IF (x_pol_rec.pot_id = OKL_API.G_MISS_NUM)
2300: IF (x_pol_rec.object_version_number = OKL_API.G_MISS_NUM)
2301: THEN
2302: x_pol_rec.object_version_number := l_pol_rec.object_version_number;
2303: END IF;
2304: IF (x_pol_rec.pot_id = OKL_API.G_MISS_NUM)
2305: THEN
2306: x_pol_rec.pot_id := l_pol_rec.pot_id;
2307: END IF;
2308: IF (x_pol_rec.khr_id = OKL_API.G_MISS_NUM)
2304: IF (x_pol_rec.pot_id = OKL_API.G_MISS_NUM)
2305: THEN
2306: x_pol_rec.pot_id := l_pol_rec.pot_id;
2307: END IF;
2308: IF (x_pol_rec.khr_id = OKL_API.G_MISS_NUM)
2309: THEN
2310: x_pol_rec.khr_id := l_pol_rec.khr_id;
2311: END IF;
2312: IF (x_pol_rec.pool_number = OKL_API.G_MISS_CHAR)
2308: IF (x_pol_rec.khr_id = OKL_API.G_MISS_NUM)
2309: THEN
2310: x_pol_rec.khr_id := l_pol_rec.khr_id;
2311: END IF;
2312: IF (x_pol_rec.pool_number = OKL_API.G_MISS_CHAR)
2313: THEN
2314: x_pol_rec.pool_number := l_pol_rec.pool_number;
2315: END IF;
2316: IF (x_pol_rec.description = OKL_API.G_MISS_CHAR)
2312: IF (x_pol_rec.pool_number = OKL_API.G_MISS_CHAR)
2313: THEN
2314: x_pol_rec.pool_number := l_pol_rec.pool_number;
2315: END IF;
2316: IF (x_pol_rec.description = OKL_API.G_MISS_CHAR)
2317: THEN
2318: x_pol_rec.description := l_pol_rec.description;
2319: END IF;
2320: IF (x_pol_rec.short_description = OKL_API.G_MISS_CHAR)
2316: IF (x_pol_rec.description = OKL_API.G_MISS_CHAR)
2317: THEN
2318: x_pol_rec.description := l_pol_rec.description;
2319: END IF;
2320: IF (x_pol_rec.short_description = OKL_API.G_MISS_CHAR)
2321: THEN
2322: x_pol_rec.short_description := l_pol_rec.short_description;
2323: END IF;
2324: IF (x_pol_rec.currency_code = OKL_API.G_MISS_CHAR)
2320: IF (x_pol_rec.short_description = OKL_API.G_MISS_CHAR)
2321: THEN
2322: x_pol_rec.short_description := l_pol_rec.short_description;
2323: END IF;
2324: IF (x_pol_rec.currency_code = OKL_API.G_MISS_CHAR)
2325: THEN
2326: x_pol_rec.currency_code := l_pol_rec.currency_code;
2327: END IF;
2328: IF (x_pol_rec.total_principal_amount = OKL_API.G_MISS_NUM)
2324: IF (x_pol_rec.currency_code = OKL_API.G_MISS_CHAR)
2325: THEN
2326: x_pol_rec.currency_code := l_pol_rec.currency_code;
2327: END IF;
2328: IF (x_pol_rec.total_principal_amount = OKL_API.G_MISS_NUM)
2329: THEN
2330: x_pol_rec.total_principal_amount := l_pol_rec.total_principal_amount;
2331: END IF;
2332: IF (x_pol_rec.total_receivable_amount = OKL_API.G_MISS_NUM)
2328: IF (x_pol_rec.total_principal_amount = OKL_API.G_MISS_NUM)
2329: THEN
2330: x_pol_rec.total_principal_amount := l_pol_rec.total_principal_amount;
2331: END IF;
2332: IF (x_pol_rec.total_receivable_amount = OKL_API.G_MISS_NUM)
2333: THEN
2334: x_pol_rec.total_receivable_amount := l_pol_rec.total_receivable_amount;
2335: END IF;
2336: IF (x_pol_rec.securities_credit_rating = OKL_API.G_MISS_CHAR)
2332: IF (x_pol_rec.total_receivable_amount = OKL_API.G_MISS_NUM)
2333: THEN
2334: x_pol_rec.total_receivable_amount := l_pol_rec.total_receivable_amount;
2335: END IF;
2336: IF (x_pol_rec.securities_credit_rating = OKL_API.G_MISS_CHAR)
2337: THEN
2338: x_pol_rec.securities_credit_rating := l_pol_rec.securities_credit_rating;
2339: END IF;
2340: IF (x_pol_rec.date_created = OKL_API.G_MISS_DATE)
2336: IF (x_pol_rec.securities_credit_rating = OKL_API.G_MISS_CHAR)
2337: THEN
2338: x_pol_rec.securities_credit_rating := l_pol_rec.securities_credit_rating;
2339: END IF;
2340: IF (x_pol_rec.date_created = OKL_API.G_MISS_DATE)
2341: THEN
2342: x_pol_rec.date_created := l_pol_rec.date_created;
2343: END IF;
2344: IF (x_pol_rec.date_last_updated = OKL_API.G_MISS_DATE)
2340: IF (x_pol_rec.date_created = OKL_API.G_MISS_DATE)
2341: THEN
2342: x_pol_rec.date_created := l_pol_rec.date_created;
2343: END IF;
2344: IF (x_pol_rec.date_last_updated = OKL_API.G_MISS_DATE)
2345: THEN
2346: x_pol_rec.date_last_updated := l_pol_rec.date_last_updated;
2347: END IF;
2348: IF (x_pol_rec.date_last_reconciled = OKL_API.G_MISS_DATE)
2344: IF (x_pol_rec.date_last_updated = OKL_API.G_MISS_DATE)
2345: THEN
2346: x_pol_rec.date_last_updated := l_pol_rec.date_last_updated;
2347: END IF;
2348: IF (x_pol_rec.date_last_reconciled = OKL_API.G_MISS_DATE)
2349: THEN
2350: x_pol_rec.date_last_reconciled := l_pol_rec.date_last_reconciled;
2351: END IF;
2352: IF (x_pol_rec.date_total_principal_calc = OKL_API.G_MISS_DATE)
2348: IF (x_pol_rec.date_last_reconciled = OKL_API.G_MISS_DATE)
2349: THEN
2350: x_pol_rec.date_last_reconciled := l_pol_rec.date_last_reconciled;
2351: END IF;
2352: IF (x_pol_rec.date_total_principal_calc = OKL_API.G_MISS_DATE)
2353: THEN
2354: x_pol_rec.date_total_principal_calc := l_pol_rec.date_total_principal_calc;
2355: END IF;
2356: IF (x_pol_rec.status_code = OKL_API.G_MISS_CHAR)
2352: IF (x_pol_rec.date_total_principal_calc = OKL_API.G_MISS_DATE)
2353: THEN
2354: x_pol_rec.date_total_principal_calc := l_pol_rec.date_total_principal_calc;
2355: END IF;
2356: IF (x_pol_rec.status_code = OKL_API.G_MISS_CHAR)
2357: THEN
2358: x_pol_rec.status_code := l_pol_rec.status_code;
2359: END IF;
2360: IF (x_pol_rec.display_in_lease_center = OKL_API.G_MISS_CHAR)
2356: IF (x_pol_rec.status_code = OKL_API.G_MISS_CHAR)
2357: THEN
2358: x_pol_rec.status_code := l_pol_rec.status_code;
2359: END IF;
2360: IF (x_pol_rec.display_in_lease_center = OKL_API.G_MISS_CHAR)
2361: THEN
2362: x_pol_rec.display_in_lease_center := l_pol_rec.display_in_lease_center;
2363: END IF;
2364: IF (x_pol_rec.attribute_category = OKL_API.G_MISS_CHAR)
2360: IF (x_pol_rec.display_in_lease_center = OKL_API.G_MISS_CHAR)
2361: THEN
2362: x_pol_rec.display_in_lease_center := l_pol_rec.display_in_lease_center;
2363: END IF;
2364: IF (x_pol_rec.attribute_category = OKL_API.G_MISS_CHAR)
2365: THEN
2366: x_pol_rec.attribute_category := l_pol_rec.attribute_category;
2367: END IF;
2368: IF (x_pol_rec.attribute1 = OKL_API.G_MISS_CHAR)
2364: IF (x_pol_rec.attribute_category = OKL_API.G_MISS_CHAR)
2365: THEN
2366: x_pol_rec.attribute_category := l_pol_rec.attribute_category;
2367: END IF;
2368: IF (x_pol_rec.attribute1 = OKL_API.G_MISS_CHAR)
2369: THEN
2370: x_pol_rec.attribute1 := l_pol_rec.attribute1;
2371: END IF;
2372: IF (x_pol_rec.attribute2 = OKL_API.G_MISS_CHAR)
2368: IF (x_pol_rec.attribute1 = OKL_API.G_MISS_CHAR)
2369: THEN
2370: x_pol_rec.attribute1 := l_pol_rec.attribute1;
2371: END IF;
2372: IF (x_pol_rec.attribute2 = OKL_API.G_MISS_CHAR)
2373: THEN
2374: x_pol_rec.attribute2 := l_pol_rec.attribute2;
2375: END IF;
2376: IF (x_pol_rec.attribute3 = OKL_API.G_MISS_CHAR)
2372: IF (x_pol_rec.attribute2 = OKL_API.G_MISS_CHAR)
2373: THEN
2374: x_pol_rec.attribute2 := l_pol_rec.attribute2;
2375: END IF;
2376: IF (x_pol_rec.attribute3 = OKL_API.G_MISS_CHAR)
2377: THEN
2378: x_pol_rec.attribute3 := l_pol_rec.attribute3;
2379: END IF;
2380: IF (x_pol_rec.attribute4 = OKL_API.G_MISS_CHAR)
2376: IF (x_pol_rec.attribute3 = OKL_API.G_MISS_CHAR)
2377: THEN
2378: x_pol_rec.attribute3 := l_pol_rec.attribute3;
2379: END IF;
2380: IF (x_pol_rec.attribute4 = OKL_API.G_MISS_CHAR)
2381: THEN
2382: x_pol_rec.attribute4 := l_pol_rec.attribute4;
2383: END IF;
2384: IF (x_pol_rec.attribute5 = OKL_API.G_MISS_CHAR)
2380: IF (x_pol_rec.attribute4 = OKL_API.G_MISS_CHAR)
2381: THEN
2382: x_pol_rec.attribute4 := l_pol_rec.attribute4;
2383: END IF;
2384: IF (x_pol_rec.attribute5 = OKL_API.G_MISS_CHAR)
2385: THEN
2386: x_pol_rec.attribute5 := l_pol_rec.attribute5;
2387: END IF;
2388: IF (x_pol_rec.attribute6 = OKL_API.G_MISS_CHAR)
2384: IF (x_pol_rec.attribute5 = OKL_API.G_MISS_CHAR)
2385: THEN
2386: x_pol_rec.attribute5 := l_pol_rec.attribute5;
2387: END IF;
2388: IF (x_pol_rec.attribute6 = OKL_API.G_MISS_CHAR)
2389: THEN
2390: x_pol_rec.attribute6 := l_pol_rec.attribute6;
2391: END IF;
2392: IF (x_pol_rec.attribute7 = OKL_API.G_MISS_CHAR)
2388: IF (x_pol_rec.attribute6 = OKL_API.G_MISS_CHAR)
2389: THEN
2390: x_pol_rec.attribute6 := l_pol_rec.attribute6;
2391: END IF;
2392: IF (x_pol_rec.attribute7 = OKL_API.G_MISS_CHAR)
2393: THEN
2394: x_pol_rec.attribute7 := l_pol_rec.attribute7;
2395: END IF;
2396: IF (x_pol_rec.attribute8 = OKL_API.G_MISS_CHAR)
2392: IF (x_pol_rec.attribute7 = OKL_API.G_MISS_CHAR)
2393: THEN
2394: x_pol_rec.attribute7 := l_pol_rec.attribute7;
2395: END IF;
2396: IF (x_pol_rec.attribute8 = OKL_API.G_MISS_CHAR)
2397: THEN
2398: x_pol_rec.attribute8 := l_pol_rec.attribute8;
2399: END IF;
2400: IF (x_pol_rec.attribute9 = OKL_API.G_MISS_CHAR)
2396: IF (x_pol_rec.attribute8 = OKL_API.G_MISS_CHAR)
2397: THEN
2398: x_pol_rec.attribute8 := l_pol_rec.attribute8;
2399: END IF;
2400: IF (x_pol_rec.attribute9 = OKL_API.G_MISS_CHAR)
2401: THEN
2402: x_pol_rec.attribute9 := l_pol_rec.attribute9;
2403: END IF;
2404: IF (x_pol_rec.attribute10 = OKL_API.G_MISS_CHAR)
2400: IF (x_pol_rec.attribute9 = OKL_API.G_MISS_CHAR)
2401: THEN
2402: x_pol_rec.attribute9 := l_pol_rec.attribute9;
2403: END IF;
2404: IF (x_pol_rec.attribute10 = OKL_API.G_MISS_CHAR)
2405: THEN
2406: x_pol_rec.attribute10 := l_pol_rec.attribute10;
2407: END IF;
2408: IF (x_pol_rec.attribute11 = OKL_API.G_MISS_CHAR)
2404: IF (x_pol_rec.attribute10 = OKL_API.G_MISS_CHAR)
2405: THEN
2406: x_pol_rec.attribute10 := l_pol_rec.attribute10;
2407: END IF;
2408: IF (x_pol_rec.attribute11 = OKL_API.G_MISS_CHAR)
2409: THEN
2410: x_pol_rec.attribute11 := l_pol_rec.attribute11;
2411: END IF;
2412: IF (x_pol_rec.attribute12 = OKL_API.G_MISS_CHAR)
2408: IF (x_pol_rec.attribute11 = OKL_API.G_MISS_CHAR)
2409: THEN
2410: x_pol_rec.attribute11 := l_pol_rec.attribute11;
2411: END IF;
2412: IF (x_pol_rec.attribute12 = OKL_API.G_MISS_CHAR)
2413: THEN
2414: x_pol_rec.attribute12 := l_pol_rec.attribute12;
2415: END IF;
2416: IF (x_pol_rec.attribute13 = OKL_API.G_MISS_CHAR)
2412: IF (x_pol_rec.attribute12 = OKL_API.G_MISS_CHAR)
2413: THEN
2414: x_pol_rec.attribute12 := l_pol_rec.attribute12;
2415: END IF;
2416: IF (x_pol_rec.attribute13 = OKL_API.G_MISS_CHAR)
2417: THEN
2418: x_pol_rec.attribute13 := l_pol_rec.attribute13;
2419: END IF;
2420: IF (x_pol_rec.attribute14 = OKL_API.G_MISS_CHAR)
2416: IF (x_pol_rec.attribute13 = OKL_API.G_MISS_CHAR)
2417: THEN
2418: x_pol_rec.attribute13 := l_pol_rec.attribute13;
2419: END IF;
2420: IF (x_pol_rec.attribute14 = OKL_API.G_MISS_CHAR)
2421: THEN
2422: x_pol_rec.attribute14 := l_pol_rec.attribute14;
2423: END IF;
2424: IF (x_pol_rec.attribute15 = OKL_API.G_MISS_CHAR)
2420: IF (x_pol_rec.attribute14 = OKL_API.G_MISS_CHAR)
2421: THEN
2422: x_pol_rec.attribute14 := l_pol_rec.attribute14;
2423: END IF;
2424: IF (x_pol_rec.attribute15 = OKL_API.G_MISS_CHAR)
2425: THEN
2426: x_pol_rec.attribute15 := l_pol_rec.attribute15;
2427: END IF;
2428:
2426: x_pol_rec.attribute15 := l_pol_rec.attribute15;
2427: END IF;
2428:
2429:
2430: IF (x_pol_rec.org_id = OKL_API.G_MISS_NUM)
2431: THEN
2432: x_pol_rec.org_id := l_pol_rec.org_id;
2433: END IF;
2434: IF (x_pol_rec.request_id = OKL_API.G_MISS_NUM)
2430: IF (x_pol_rec.org_id = OKL_API.G_MISS_NUM)
2431: THEN
2432: x_pol_rec.org_id := l_pol_rec.org_id;
2433: END IF;
2434: IF (x_pol_rec.request_id = OKL_API.G_MISS_NUM)
2435: THEN
2436: x_pol_rec.request_id := l_pol_rec.request_id;
2437: END IF;
2438: IF (x_pol_rec.program_application_id = OKL_API.G_MISS_NUM)
2434: IF (x_pol_rec.request_id = OKL_API.G_MISS_NUM)
2435: THEN
2436: x_pol_rec.request_id := l_pol_rec.request_id;
2437: END IF;
2438: IF (x_pol_rec.program_application_id = OKL_API.G_MISS_NUM)
2439: THEN
2440: x_pol_rec.program_application_id := l_pol_rec.program_application_id;
2441: END IF;
2442: IF (x_pol_rec.program_id = OKL_API.G_MISS_NUM)
2438: IF (x_pol_rec.program_application_id = OKL_API.G_MISS_NUM)
2439: THEN
2440: x_pol_rec.program_application_id := l_pol_rec.program_application_id;
2441: END IF;
2442: IF (x_pol_rec.program_id = OKL_API.G_MISS_NUM)
2443: THEN
2444: x_pol_rec.program_id := l_pol_rec.program_id;
2445: END IF;
2446: IF (x_pol_rec.program_update_date = OKL_API.G_MISS_DATE)
2442: IF (x_pol_rec.program_id = OKL_API.G_MISS_NUM)
2443: THEN
2444: x_pol_rec.program_id := l_pol_rec.program_id;
2445: END IF;
2446: IF (x_pol_rec.program_update_date = OKL_API.G_MISS_DATE)
2447: THEN
2448: x_pol_rec.program_update_date := l_pol_rec.program_update_date;
2449: END IF;
2450: IF (x_pol_rec.created_by = OKL_API.G_MISS_NUM)
2446: IF (x_pol_rec.program_update_date = OKL_API.G_MISS_DATE)
2447: THEN
2448: x_pol_rec.program_update_date := l_pol_rec.program_update_date;
2449: END IF;
2450: IF (x_pol_rec.created_by = OKL_API.G_MISS_NUM)
2451: THEN
2452: x_pol_rec.created_by := l_pol_rec.created_by;
2453: END IF;
2454: IF (x_pol_rec.creation_date = OKL_API.G_MISS_DATE)
2450: IF (x_pol_rec.created_by = OKL_API.G_MISS_NUM)
2451: THEN
2452: x_pol_rec.created_by := l_pol_rec.created_by;
2453: END IF;
2454: IF (x_pol_rec.creation_date = OKL_API.G_MISS_DATE)
2455: THEN
2456: x_pol_rec.creation_date := l_pol_rec.creation_date;
2457: END IF;
2458: IF (x_pol_rec.last_updated_by = OKL_API.G_MISS_NUM)
2454: IF (x_pol_rec.creation_date = OKL_API.G_MISS_DATE)
2455: THEN
2456: x_pol_rec.creation_date := l_pol_rec.creation_date;
2457: END IF;
2458: IF (x_pol_rec.last_updated_by = OKL_API.G_MISS_NUM)
2459: THEN
2460: x_pol_rec.last_updated_by := l_pol_rec.last_updated_by;
2461: END IF;
2462: IF (x_pol_rec.last_update_date = OKL_API.G_MISS_DATE)
2458: IF (x_pol_rec.last_updated_by = OKL_API.G_MISS_NUM)
2459: THEN
2460: x_pol_rec.last_updated_by := l_pol_rec.last_updated_by;
2461: END IF;
2462: IF (x_pol_rec.last_update_date = OKL_API.G_MISS_DATE)
2463: THEN
2464: x_pol_rec.last_update_date := l_pol_rec.last_update_date;
2465: END IF;
2466: IF (x_pol_rec.last_update_login = OKL_API.G_MISS_NUM)
2462: IF (x_pol_rec.last_update_date = OKL_API.G_MISS_DATE)
2463: THEN
2464: x_pol_rec.last_update_date := l_pol_rec.last_update_date;
2465: END IF;
2466: IF (x_pol_rec.last_update_login = OKL_API.G_MISS_NUM)
2467: THEN
2468: x_pol_rec.last_update_login := l_pol_rec.last_update_login;
2469: END IF;
2470: IF (x_pol_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2466: IF (x_pol_rec.last_update_login = OKL_API.G_MISS_NUM)
2467: THEN
2468: x_pol_rec.last_update_login := l_pol_rec.last_update_login;
2469: END IF;
2470: IF (x_pol_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2471: THEN
2472: x_pol_rec.legal_entity_id := l_pol_rec.legal_entity_id;
2473: END IF;
2474: END IF;
2480: FUNCTION Set_Attributes (
2481: p_pol_rec IN pol_rec_type,
2482: x_pol_rec OUT NOCOPY pol_rec_type
2483: ) RETURN VARCHAR2 IS
2484: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2485: BEGIN
2486: x_pol_rec := p_pol_rec;
2487: RETURN(l_return_status);
2488: END Set_Attributes;
2486: x_pol_rec := p_pol_rec;
2487: RETURN(l_return_status);
2488: END Set_Attributes;
2489: BEGIN
2490: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2491: p_init_msg_list,
2492: '_PVT',
2493: x_return_status);
2494: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2490: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2491: p_init_msg_list,
2492: '_PVT',
2493: x_return_status);
2494: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2496: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2497: RAISE OKL_API.G_EXCEPTION_ERROR;
2498: END IF;
2491: p_init_msg_list,
2492: '_PVT',
2493: x_return_status);
2494: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2496: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2497: RAISE OKL_API.G_EXCEPTION_ERROR;
2498: END IF;
2499: --- Setting item attributes
2492: '_PVT',
2493: x_return_status);
2494: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2496: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2497: RAISE OKL_API.G_EXCEPTION_ERROR;
2498: END IF;
2499: --- Setting item attributes
2500: l_return_status := Set_Attributes(
2493: x_return_status);
2494: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2495: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2496: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2497: RAISE OKL_API.G_EXCEPTION_ERROR;
2498: END IF;
2499: --- Setting item attributes
2500: l_return_status := Set_Attributes(
2501: p_pol_rec, -- IN
2500: l_return_status := Set_Attributes(
2501: p_pol_rec, -- IN
2502: l_pol_rec); -- OUT
2503: --- If any errors happen abort API
2504: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2506: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2507: RAISE OKL_API.G_EXCEPTION_ERROR;
2508: END IF;
2501: p_pol_rec, -- IN
2502: l_pol_rec); -- OUT
2503: --- If any errors happen abort API
2504: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2506: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2507: RAISE OKL_API.G_EXCEPTION_ERROR;
2508: END IF;
2509: l_return_status := populate_new_record(l_pol_rec, l_def_pol_rec);
2502: l_pol_rec); -- OUT
2503: --- If any errors happen abort API
2504: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2506: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2507: RAISE OKL_API.G_EXCEPTION_ERROR;
2508: END IF;
2509: l_return_status := populate_new_record(l_pol_rec, l_def_pol_rec);
2510: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2503: --- If any errors happen abort API
2504: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2505: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2506: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2507: RAISE OKL_API.G_EXCEPTION_ERROR;
2508: END IF;
2509: l_return_status := populate_new_record(l_pol_rec, l_def_pol_rec);
2510: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2506: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2507: RAISE OKL_API.G_EXCEPTION_ERROR;
2508: END IF;
2509: l_return_status := populate_new_record(l_pol_rec, l_def_pol_rec);
2510: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2512: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2507: RAISE OKL_API.G_EXCEPTION_ERROR;
2508: END IF;
2509: l_return_status := populate_new_record(l_pol_rec, l_def_pol_rec);
2510: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2512: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2515: UPDATE okl_pools
2508: END IF;
2509: l_return_status := populate_new_record(l_pol_rec, l_def_pol_rec);
2510: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2512: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2515: UPDATE okl_pools
2516: SET OBJECT_VERSION_NUMBER = l_def_pol_rec.object_version_number,
2509: l_return_status := populate_new_record(l_pol_rec, l_def_pol_rec);
2510: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2511: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2512: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2513: RAISE OKL_API.G_EXCEPTION_ERROR;
2514: END IF;
2515: UPDATE okl_pools
2516: SET OBJECT_VERSION_NUMBER = l_def_pol_rec.object_version_number,
2517: POT_ID = l_def_pol_rec.pot_id,
2559: WHERE ID = l_def_pol_rec.id;
2560:
2561: x_pol_rec := l_pol_rec;
2562: x_return_status := l_return_status;
2563: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2564: EXCEPTION
2565: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2566: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2567: (
2561: x_pol_rec := l_pol_rec;
2562: x_return_status := l_return_status;
2563: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2564: EXCEPTION
2565: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2566: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2567: (
2568: l_api_name,
2569: G_PKG_NAME,
2562: x_return_status := l_return_status;
2563: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2564: EXCEPTION
2565: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2566: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2567: (
2568: l_api_name,
2569: G_PKG_NAME,
2570: 'OKL_API.G_RET_STS_ERROR',
2566: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2567: (
2568: l_api_name,
2569: G_PKG_NAME,
2570: 'OKL_API.G_RET_STS_ERROR',
2571: x_msg_count,
2572: x_msg_data,
2573: '_PVT'
2574: );
2571: x_msg_count,
2572: x_msg_data,
2573: '_PVT'
2574: );
2575: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2576: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2577: (
2578: l_api_name,
2579: G_PKG_NAME,
2572: x_msg_data,
2573: '_PVT'
2574: );
2575: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2576: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2577: (
2578: l_api_name,
2579: G_PKG_NAME,
2580: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2576: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2577: (
2578: l_api_name,
2579: G_PKG_NAME,
2580: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2581: x_msg_count,
2582: x_msg_data,
2583: '_PVT'
2584: );
2582: x_msg_data,
2583: '_PVT'
2584: );
2585: WHEN OTHERS THEN
2586: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2587: (
2588: l_api_name,
2589: G_PKG_NAME,
2590: 'OTHERS',
2597: -- update_row for:OKL_POOLS_V --
2598: ------------------------------------------
2599: PROCEDURE update_row(
2600: p_api_version IN NUMBER,
2601: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2602: x_return_status OUT NOCOPY VARCHAR2,
2603: x_msg_count OUT NOCOPY NUMBER,
2604: x_msg_data OUT NOCOPY VARCHAR2,
2605: p_polv_rec IN polv_rec_type,
2606: x_polv_rec OUT NOCOPY polv_rec_type) IS
2607:
2608: l_api_version CONSTANT NUMBER := 1;
2609: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2610: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2611: l_polv_rec polv_rec_type := p_polv_rec;
2612: l_def_polv_rec polv_rec_type;
2613: l_db_polv_rec polv_rec_type;
2614: l_pol_rec pol_rec_type;
2633: p_polv_rec IN polv_rec_type,
2634: x_polv_rec OUT NOCOPY polv_rec_type
2635: ) RETURN VARCHAR2 IS
2636: l_row_notfound BOOLEAN := TRUE;
2637: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2638: BEGIN
2639: x_polv_rec := p_polv_rec;
2640: -- Get current database values
2641: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2640: -- Get current database values
2641: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2642: -- so it may be verified through LOCK_ROW.
2643: l_db_polv_rec := get_rec(p_polv_rec, l_return_status);
2644: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2645: IF (x_polv_rec.id = OKL_API.G_MISS_NUM)
2646: THEN
2647: x_polv_rec.id := l_db_polv_rec.id;
2648: END IF;
2641: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2642: -- so it may be verified through LOCK_ROW.
2643: l_db_polv_rec := get_rec(p_polv_rec, l_return_status);
2644: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2645: IF (x_polv_rec.id = OKL_API.G_MISS_NUM)
2646: THEN
2647: x_polv_rec.id := l_db_polv_rec.id;
2648: END IF;
2649: IF (x_polv_rec.object_version_number = OKL_API.G_MISS_NUM)
2645: IF (x_polv_rec.id = OKL_API.G_MISS_NUM)
2646: THEN
2647: x_polv_rec.id := l_db_polv_rec.id;
2648: END IF;
2649: IF (x_polv_rec.object_version_number = OKL_API.G_MISS_NUM)
2650: THEN
2651: x_polv_rec.object_version_number := l_db_polv_rec.object_version_number;
2652: END IF;
2653: IF (x_polv_rec.pot_id = OKL_API.G_MISS_NUM)
2649: IF (x_polv_rec.object_version_number = OKL_API.G_MISS_NUM)
2650: THEN
2651: x_polv_rec.object_version_number := l_db_polv_rec.object_version_number;
2652: END IF;
2653: IF (x_polv_rec.pot_id = OKL_API.G_MISS_NUM)
2654: THEN
2655: x_polv_rec.pot_id := l_db_polv_rec.pot_id;
2656: END IF;
2657: IF (x_polv_rec.khr_id = OKL_API.G_MISS_NUM)
2653: IF (x_polv_rec.pot_id = OKL_API.G_MISS_NUM)
2654: THEN
2655: x_polv_rec.pot_id := l_db_polv_rec.pot_id;
2656: END IF;
2657: IF (x_polv_rec.khr_id = OKL_API.G_MISS_NUM)
2658: THEN
2659: x_polv_rec.khr_id := l_db_polv_rec.khr_id;
2660: END IF;
2661: IF (x_polv_rec.pool_number = OKL_API.G_MISS_CHAR)
2657: IF (x_polv_rec.khr_id = OKL_API.G_MISS_NUM)
2658: THEN
2659: x_polv_rec.khr_id := l_db_polv_rec.khr_id;
2660: END IF;
2661: IF (x_polv_rec.pool_number = OKL_API.G_MISS_CHAR)
2662: THEN
2663: x_polv_rec.pool_number := l_db_polv_rec.pool_number;
2664: END IF;
2665: IF (x_polv_rec.description = OKL_API.G_MISS_CHAR)
2661: IF (x_polv_rec.pool_number = OKL_API.G_MISS_CHAR)
2662: THEN
2663: x_polv_rec.pool_number := l_db_polv_rec.pool_number;
2664: END IF;
2665: IF (x_polv_rec.description = OKL_API.G_MISS_CHAR)
2666: THEN
2667: x_polv_rec.description := l_db_polv_rec.description;
2668: END IF;
2669: IF (x_polv_rec.currency_code = OKL_API.G_MISS_CHAR)
2665: IF (x_polv_rec.description = OKL_API.G_MISS_CHAR)
2666: THEN
2667: x_polv_rec.description := l_db_polv_rec.description;
2668: END IF;
2669: IF (x_polv_rec.currency_code = OKL_API.G_MISS_CHAR)
2670: THEN
2671: x_polv_rec.currency_code := l_db_polv_rec.currency_code;
2672: END IF;
2673: IF (x_polv_rec.total_principal_amount = OKL_API.G_MISS_NUM)
2669: IF (x_polv_rec.currency_code = OKL_API.G_MISS_CHAR)
2670: THEN
2671: x_polv_rec.currency_code := l_db_polv_rec.currency_code;
2672: END IF;
2673: IF (x_polv_rec.total_principal_amount = OKL_API.G_MISS_NUM)
2674: THEN
2675: x_polv_rec.total_principal_amount := l_db_polv_rec.total_principal_amount;
2676: END IF;
2677: IF (x_polv_rec.total_receivable_amount = OKL_API.G_MISS_NUM)
2673: IF (x_polv_rec.total_principal_amount = OKL_API.G_MISS_NUM)
2674: THEN
2675: x_polv_rec.total_principal_amount := l_db_polv_rec.total_principal_amount;
2676: END IF;
2677: IF (x_polv_rec.total_receivable_amount = OKL_API.G_MISS_NUM)
2678: THEN
2679: x_polv_rec.total_receivable_amount := l_db_polv_rec.total_receivable_amount;
2680: END IF;
2681: IF (x_polv_rec.securities_credit_rating = OKL_API.G_MISS_CHAR)
2677: IF (x_polv_rec.total_receivable_amount = OKL_API.G_MISS_NUM)
2678: THEN
2679: x_polv_rec.total_receivable_amount := l_db_polv_rec.total_receivable_amount;
2680: END IF;
2681: IF (x_polv_rec.securities_credit_rating = OKL_API.G_MISS_CHAR)
2682: THEN
2683: x_polv_rec.securities_credit_rating := l_db_polv_rec.securities_credit_rating;
2684: END IF;
2685: IF (x_polv_rec.date_created = OKL_API.G_MISS_DATE)
2681: IF (x_polv_rec.securities_credit_rating = OKL_API.G_MISS_CHAR)
2682: THEN
2683: x_polv_rec.securities_credit_rating := l_db_polv_rec.securities_credit_rating;
2684: END IF;
2685: IF (x_polv_rec.date_created = OKL_API.G_MISS_DATE)
2686: THEN
2687: x_polv_rec.date_created := l_db_polv_rec.date_created;
2688: END IF;
2689: IF (x_polv_rec.date_last_updated = OKL_API.G_MISS_DATE)
2685: IF (x_polv_rec.date_created = OKL_API.G_MISS_DATE)
2686: THEN
2687: x_polv_rec.date_created := l_db_polv_rec.date_created;
2688: END IF;
2689: IF (x_polv_rec.date_last_updated = OKL_API.G_MISS_DATE)
2690: THEN
2691: x_polv_rec.date_last_updated := l_db_polv_rec.date_last_updated;
2692: END IF;
2693: IF (x_polv_rec.date_last_reconciled = OKL_API.G_MISS_DATE)
2689: IF (x_polv_rec.date_last_updated = OKL_API.G_MISS_DATE)
2690: THEN
2691: x_polv_rec.date_last_updated := l_db_polv_rec.date_last_updated;
2692: END IF;
2693: IF (x_polv_rec.date_last_reconciled = OKL_API.G_MISS_DATE)
2694: THEN
2695: x_polv_rec.date_last_reconciled := l_db_polv_rec.date_last_reconciled;
2696: END IF;
2697: IF (x_polv_rec.date_total_principal_calc = OKL_API.G_MISS_DATE)
2693: IF (x_polv_rec.date_last_reconciled = OKL_API.G_MISS_DATE)
2694: THEN
2695: x_polv_rec.date_last_reconciled := l_db_polv_rec.date_last_reconciled;
2696: END IF;
2697: IF (x_polv_rec.date_total_principal_calc = OKL_API.G_MISS_DATE)
2698: THEN
2699: x_polv_rec.date_total_principal_calc := l_db_polv_rec.date_total_principal_calc;
2700: END IF;
2701: IF (x_polv_rec.status_code = OKL_API.G_MISS_CHAR)
2697: IF (x_polv_rec.date_total_principal_calc = OKL_API.G_MISS_DATE)
2698: THEN
2699: x_polv_rec.date_total_principal_calc := l_db_polv_rec.date_total_principal_calc;
2700: END IF;
2701: IF (x_polv_rec.status_code = OKL_API.G_MISS_CHAR)
2702: THEN
2703: x_polv_rec.status_code := l_db_polv_rec.status_code;
2704: END IF;
2705: IF (x_polv_rec.display_in_lease_center = OKL_API.G_MISS_CHAR)
2701: IF (x_polv_rec.status_code = OKL_API.G_MISS_CHAR)
2702: THEN
2703: x_polv_rec.status_code := l_db_polv_rec.status_code;
2704: END IF;
2705: IF (x_polv_rec.display_in_lease_center = OKL_API.G_MISS_CHAR)
2706: THEN
2707: x_polv_rec.display_in_lease_center := l_db_polv_rec.display_in_lease_center;
2708: END IF;
2709: IF (x_polv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2705: IF (x_polv_rec.display_in_lease_center = OKL_API.G_MISS_CHAR)
2706: THEN
2707: x_polv_rec.display_in_lease_center := l_db_polv_rec.display_in_lease_center;
2708: END IF;
2709: IF (x_polv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2710: THEN
2711: x_polv_rec.attribute_category := l_db_polv_rec.attribute_category;
2712: END IF;
2713: IF (x_polv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2709: IF (x_polv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2710: THEN
2711: x_polv_rec.attribute_category := l_db_polv_rec.attribute_category;
2712: END IF;
2713: IF (x_polv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2714: THEN
2715: x_polv_rec.attribute1 := l_db_polv_rec.attribute1;
2716: END IF;
2717: IF (x_polv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2713: IF (x_polv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2714: THEN
2715: x_polv_rec.attribute1 := l_db_polv_rec.attribute1;
2716: END IF;
2717: IF (x_polv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2718: THEN
2719: x_polv_rec.attribute2 := l_db_polv_rec.attribute2;
2720: END IF;
2721: IF (x_polv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2717: IF (x_polv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2718: THEN
2719: x_polv_rec.attribute2 := l_db_polv_rec.attribute2;
2720: END IF;
2721: IF (x_polv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2722: THEN
2723: x_polv_rec.attribute3 := l_db_polv_rec.attribute3;
2724: END IF;
2725: IF (x_polv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2721: IF (x_polv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2722: THEN
2723: x_polv_rec.attribute3 := l_db_polv_rec.attribute3;
2724: END IF;
2725: IF (x_polv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2726: THEN
2727: x_polv_rec.attribute4 := l_db_polv_rec.attribute4;
2728: END IF;
2729: IF (x_polv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2725: IF (x_polv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2726: THEN
2727: x_polv_rec.attribute4 := l_db_polv_rec.attribute4;
2728: END IF;
2729: IF (x_polv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2730: THEN
2731: x_polv_rec.attribute5 := l_db_polv_rec.attribute5;
2732: END IF;
2733: IF (x_polv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2729: IF (x_polv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2730: THEN
2731: x_polv_rec.attribute5 := l_db_polv_rec.attribute5;
2732: END IF;
2733: IF (x_polv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2734: THEN
2735: x_polv_rec.attribute6 := l_db_polv_rec.attribute6;
2736: END IF;
2737: IF (x_polv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2733: IF (x_polv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2734: THEN
2735: x_polv_rec.attribute6 := l_db_polv_rec.attribute6;
2736: END IF;
2737: IF (x_polv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2738: THEN
2739: x_polv_rec.attribute7 := l_db_polv_rec.attribute7;
2740: END IF;
2741: IF (x_polv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2737: IF (x_polv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2738: THEN
2739: x_polv_rec.attribute7 := l_db_polv_rec.attribute7;
2740: END IF;
2741: IF (x_polv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2742: THEN
2743: x_polv_rec.attribute8 := l_db_polv_rec.attribute8;
2744: END IF;
2745: IF (x_polv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2741: IF (x_polv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2742: THEN
2743: x_polv_rec.attribute8 := l_db_polv_rec.attribute8;
2744: END IF;
2745: IF (x_polv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2746: THEN
2747: x_polv_rec.attribute9 := l_db_polv_rec.attribute9;
2748: END IF;
2749: IF (x_polv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2745: IF (x_polv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2746: THEN
2747: x_polv_rec.attribute9 := l_db_polv_rec.attribute9;
2748: END IF;
2749: IF (x_polv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2750: THEN
2751: x_polv_rec.attribute10 := l_db_polv_rec.attribute10;
2752: END IF;
2753: IF (x_polv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2749: IF (x_polv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2750: THEN
2751: x_polv_rec.attribute10 := l_db_polv_rec.attribute10;
2752: END IF;
2753: IF (x_polv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2754: THEN
2755: x_polv_rec.attribute11 := l_db_polv_rec.attribute11;
2756: END IF;
2757: IF (x_polv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2753: IF (x_polv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2754: THEN
2755: x_polv_rec.attribute11 := l_db_polv_rec.attribute11;
2756: END IF;
2757: IF (x_polv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2758: THEN
2759: x_polv_rec.attribute12 := l_db_polv_rec.attribute12;
2760: END IF;
2761: IF (x_polv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2757: IF (x_polv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2758: THEN
2759: x_polv_rec.attribute12 := l_db_polv_rec.attribute12;
2760: END IF;
2761: IF (x_polv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2762: THEN
2763: x_polv_rec.attribute13 := l_db_polv_rec.attribute13;
2764: END IF;
2765: IF (x_polv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2761: IF (x_polv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2762: THEN
2763: x_polv_rec.attribute13 := l_db_polv_rec.attribute13;
2764: END IF;
2765: IF (x_polv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2766: THEN
2767: x_polv_rec.attribute14 := l_db_polv_rec.attribute14;
2768: END IF;
2769: IF (x_polv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2765: IF (x_polv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2766: THEN
2767: x_polv_rec.attribute14 := l_db_polv_rec.attribute14;
2768: END IF;
2769: IF (x_polv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2770: THEN
2771: x_polv_rec.attribute15 := l_db_polv_rec.attribute15;
2772: END IF;
2773: IF (x_polv_rec.org_id = OKL_API.G_MISS_NUM)
2769: IF (x_polv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2770: THEN
2771: x_polv_rec.attribute15 := l_db_polv_rec.attribute15;
2772: END IF;
2773: IF (x_polv_rec.org_id = OKL_API.G_MISS_NUM)
2774: THEN
2775: x_polv_rec.org_id := l_db_polv_rec.org_id;
2776: END IF;
2777: IF (x_polv_rec.request_id = OKL_API.G_MISS_NUM)
2773: IF (x_polv_rec.org_id = OKL_API.G_MISS_NUM)
2774: THEN
2775: x_polv_rec.org_id := l_db_polv_rec.org_id;
2776: END IF;
2777: IF (x_polv_rec.request_id = OKL_API.G_MISS_NUM)
2778: THEN
2779: x_polv_rec.request_id := l_db_polv_rec.request_id;
2780: END IF;
2781: IF (x_polv_rec.program_application_id = OKL_API.G_MISS_NUM)
2777: IF (x_polv_rec.request_id = OKL_API.G_MISS_NUM)
2778: THEN
2779: x_polv_rec.request_id := l_db_polv_rec.request_id;
2780: END IF;
2781: IF (x_polv_rec.program_application_id = OKL_API.G_MISS_NUM)
2782: THEN
2783: x_polv_rec.program_application_id := l_db_polv_rec.program_application_id;
2784: END IF;
2785: IF (x_polv_rec.program_id = OKL_API.G_MISS_NUM)
2781: IF (x_polv_rec.program_application_id = OKL_API.G_MISS_NUM)
2782: THEN
2783: x_polv_rec.program_application_id := l_db_polv_rec.program_application_id;
2784: END IF;
2785: IF (x_polv_rec.program_id = OKL_API.G_MISS_NUM)
2786: THEN
2787: x_polv_rec.program_id := l_db_polv_rec.program_id;
2788: END IF;
2789: IF (x_polv_rec.program_update_date = OKL_API.G_MISS_DATE)
2785: IF (x_polv_rec.program_id = OKL_API.G_MISS_NUM)
2786: THEN
2787: x_polv_rec.program_id := l_db_polv_rec.program_id;
2788: END IF;
2789: IF (x_polv_rec.program_update_date = OKL_API.G_MISS_DATE)
2790: THEN
2791: x_polv_rec.program_update_date := l_db_polv_rec.program_update_date;
2792: END IF;
2793: IF (x_polv_rec.created_by = OKL_API.G_MISS_NUM)
2789: IF (x_polv_rec.program_update_date = OKL_API.G_MISS_DATE)
2790: THEN
2791: x_polv_rec.program_update_date := l_db_polv_rec.program_update_date;
2792: END IF;
2793: IF (x_polv_rec.created_by = OKL_API.G_MISS_NUM)
2794: THEN
2795: x_polv_rec.created_by := l_db_polv_rec.created_by;
2796: END IF;
2797: IF (x_polv_rec.creation_date = OKL_API.G_MISS_DATE)
2793: IF (x_polv_rec.created_by = OKL_API.G_MISS_NUM)
2794: THEN
2795: x_polv_rec.created_by := l_db_polv_rec.created_by;
2796: END IF;
2797: IF (x_polv_rec.creation_date = OKL_API.G_MISS_DATE)
2798: THEN
2799: x_polv_rec.creation_date := l_db_polv_rec.creation_date;
2800: END IF;
2801: IF (x_polv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2797: IF (x_polv_rec.creation_date = OKL_API.G_MISS_DATE)
2798: THEN
2799: x_polv_rec.creation_date := l_db_polv_rec.creation_date;
2800: END IF;
2801: IF (x_polv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2802: THEN
2803: x_polv_rec.last_updated_by := l_db_polv_rec.last_updated_by;
2804: END IF;
2805: IF (x_polv_rec.last_update_date = OKL_API.G_MISS_DATE)
2801: IF (x_polv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2802: THEN
2803: x_polv_rec.last_updated_by := l_db_polv_rec.last_updated_by;
2804: END IF;
2805: IF (x_polv_rec.last_update_date = OKL_API.G_MISS_DATE)
2806: THEN
2807: x_polv_rec.last_update_date := l_db_polv_rec.last_update_date;
2808: END IF;
2809: IF (x_polv_rec.last_update_login = OKL_API.G_MISS_NUM)
2805: IF (x_polv_rec.last_update_date = OKL_API.G_MISS_DATE)
2806: THEN
2807: x_polv_rec.last_update_date := l_db_polv_rec.last_update_date;
2808: END IF;
2809: IF (x_polv_rec.last_update_login = OKL_API.G_MISS_NUM)
2810: THEN
2811: x_polv_rec.last_update_login := l_db_polv_rec.last_update_login;
2812: END IF;
2813: IF (x_polv_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2809: IF (x_polv_rec.last_update_login = OKL_API.G_MISS_NUM)
2810: THEN
2811: x_polv_rec.last_update_login := l_db_polv_rec.last_update_login;
2812: END IF;
2813: IF (x_polv_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2814: THEN
2815: x_polv_rec.legal_entity_id := l_db_polv_rec.legal_entity_id;
2816: END IF;
2817: END IF;
2823: FUNCTION Set_Attributes (
2824: p_polv_rec IN polv_rec_type,
2825: x_polv_rec OUT NOCOPY polv_rec_type
2826: ) RETURN VARCHAR2 IS
2827: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2828: BEGIN
2829: x_polv_rec := p_polv_rec;
2830: x_polv_rec.OBJECT_VERSION_NUMBER := NVL(x_polv_rec.OBJECT_VERSION_NUMBER,0) + 1;
2831: RETURN(l_return_status);
2830: x_polv_rec.OBJECT_VERSION_NUMBER := NVL(x_polv_rec.OBJECT_VERSION_NUMBER,0) + 1;
2831: RETURN(l_return_status);
2832: END Set_Attributes;
2833: BEGIN
2834: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2835: G_PKG_NAME,
2836: p_init_msg_list,
2837: l_api_version,
2838: p_api_version,
2837: l_api_version,
2838: p_api_version,
2839: '_PVT',
2840: x_return_status);
2841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2844: RAISE OKL_API.G_EXCEPTION_ERROR;
2845: END IF;
2838: p_api_version,
2839: '_PVT',
2840: x_return_status);
2841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2844: RAISE OKL_API.G_EXCEPTION_ERROR;
2845: END IF;
2846: --- Setting item attributes
2839: '_PVT',
2840: x_return_status);
2841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2844: RAISE OKL_API.G_EXCEPTION_ERROR;
2845: END IF;
2846: --- Setting item attributes
2847: l_return_status := Set_Attributes(
2840: x_return_status);
2841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2843: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2844: RAISE OKL_API.G_EXCEPTION_ERROR;
2845: END IF;
2846: --- Setting item attributes
2847: l_return_status := Set_Attributes(
2848: p_polv_rec, -- IN
2847: l_return_status := Set_Attributes(
2848: p_polv_rec, -- IN
2849: x_polv_rec); -- OUT
2850: --- If any errors happen abort API
2851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2848: p_polv_rec, -- IN
2849: x_polv_rec); -- OUT
2850: --- If any errors happen abort API
2851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856: l_return_status := populate_new_record(l_polv_rec, l_def_polv_rec);
2849: x_polv_rec); -- OUT
2850: --- If any errors happen abort API
2851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856: l_return_status := populate_new_record(l_polv_rec, l_def_polv_rec);
2857: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2850: --- If any errors happen abort API
2851: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2852: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856: l_return_status := populate_new_record(l_polv_rec, l_def_polv_rec);
2857: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2853: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856: l_return_status := populate_new_record(l_polv_rec, l_def_polv_rec);
2857: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2854: RAISE OKL_API.G_EXCEPTION_ERROR;
2855: END IF;
2856: l_return_status := populate_new_record(l_polv_rec, l_def_polv_rec);
2857: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_def_polv_rec := fill_who_columns(l_def_polv_rec);
2855: END IF;
2856: l_return_status := populate_new_record(l_polv_rec, l_def_polv_rec);
2857: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_def_polv_rec := fill_who_columns(l_def_polv_rec);
2863: --- Validate all non-missing attributes (Item Level Validation)
2856: l_return_status := populate_new_record(l_polv_rec, l_def_polv_rec);
2857: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2859: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2860: RAISE OKL_API.G_EXCEPTION_ERROR;
2861: END IF;
2862: l_def_polv_rec := fill_who_columns(l_def_polv_rec);
2863: --- Validate all non-missing attributes (Item Level Validation)
2864: l_return_status := Validate_Attributes(l_def_polv_rec);
2862: l_def_polv_rec := fill_who_columns(l_def_polv_rec);
2863: --- Validate all non-missing attributes (Item Level Validation)
2864: l_return_status := Validate_Attributes(l_def_polv_rec);
2865: --- If any errors happen abort API
2866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2868: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2869: RAISE OKL_API.G_EXCEPTION_ERROR;
2870: END IF;
2863: --- Validate all non-missing attributes (Item Level Validation)
2864: l_return_status := Validate_Attributes(l_def_polv_rec);
2865: --- If any errors happen abort API
2866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2868: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2869: RAISE OKL_API.G_EXCEPTION_ERROR;
2870: END IF;
2871: l_return_status := Validate_Record(l_def_polv_rec, l_db_polv_rec);
2864: l_return_status := Validate_Attributes(l_def_polv_rec);
2865: --- If any errors happen abort API
2866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2868: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2869: RAISE OKL_API.G_EXCEPTION_ERROR;
2870: END IF;
2871: l_return_status := Validate_Record(l_def_polv_rec, l_db_polv_rec);
2872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2865: --- If any errors happen abort API
2866: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2867: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2868: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2869: RAISE OKL_API.G_EXCEPTION_ERROR;
2870: END IF;
2871: l_return_status := Validate_Record(l_def_polv_rec, l_db_polv_rec);
2872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2868: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2869: RAISE OKL_API.G_EXCEPTION_ERROR;
2870: END IF;
2871: l_return_status := Validate_Record(l_def_polv_rec, l_db_polv_rec);
2872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2875: RAISE OKL_API.G_EXCEPTION_ERROR;
2876: END IF;
2869: RAISE OKL_API.G_EXCEPTION_ERROR;
2870: END IF;
2871: l_return_status := Validate_Record(l_def_polv_rec, l_db_polv_rec);
2872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2875: RAISE OKL_API.G_EXCEPTION_ERROR;
2876: END IF;
2877:
2870: END IF;
2871: l_return_status := Validate_Record(l_def_polv_rec, l_db_polv_rec);
2872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2875: RAISE OKL_API.G_EXCEPTION_ERROR;
2876: END IF;
2877:
2878: /*
2871: l_return_status := Validate_Record(l_def_polv_rec, l_db_polv_rec);
2872: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2873: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2874: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2875: RAISE OKL_API.G_EXCEPTION_ERROR;
2876: END IF;
2877:
2878: /*
2879: -- MVASUDEV COMMENTED
2884: x_return_status => l_return_status,
2885: x_msg_count => x_msg_count,
2886: x_msg_data => x_msg_data,
2887: p_polv_rec => p_polv_rec);
2888: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2891: RAISE OKL_API.G_EXCEPTION_ERROR;
2892: END IF;
2885: x_msg_count => x_msg_count,
2886: x_msg_data => x_msg_data,
2887: p_polv_rec => p_polv_rec);
2888: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2891: RAISE OKL_API.G_EXCEPTION_ERROR;
2892: END IF;
2893: */
2886: x_msg_data => x_msg_data,
2887: p_polv_rec => p_polv_rec);
2888: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2891: RAISE OKL_API.G_EXCEPTION_ERROR;
2892: END IF;
2893: */
2894:
2887: p_polv_rec => p_polv_rec);
2888: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2889: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2890: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2891: RAISE OKL_API.G_EXCEPTION_ERROR;
2892: END IF;
2893: */
2894:
2895: -----------------------------------------
2906: x_msg_data,
2907: l_pol_rec,
2908: lx_pol_rec
2909: );
2910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2913: RAISE OKL_API.G_EXCEPTION_ERROR;
2914: END IF;
2907: l_pol_rec,
2908: lx_pol_rec
2909: );
2910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2913: RAISE OKL_API.G_EXCEPTION_ERROR;
2914: END IF;
2915: migrate(lx_pol_rec, l_def_polv_rec);
2908: lx_pol_rec
2909: );
2910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2913: RAISE OKL_API.G_EXCEPTION_ERROR;
2914: END IF;
2915: migrate(lx_pol_rec, l_def_polv_rec);
2916: x_polv_rec := l_def_polv_rec;
2909: );
2910: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2911: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2912: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2913: RAISE OKL_API.G_EXCEPTION_ERROR;
2914: END IF;
2915: migrate(lx_pol_rec, l_def_polv_rec);
2916: x_polv_rec := l_def_polv_rec;
2917: x_return_status := l_return_status;
2914: END IF;
2915: migrate(lx_pol_rec, l_def_polv_rec);
2916: x_polv_rec := l_def_polv_rec;
2917: x_return_status := l_return_status;
2918: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2919: EXCEPTION
2920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2921: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2922: (
2916: x_polv_rec := l_def_polv_rec;
2917: x_return_status := l_return_status;
2918: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2919: EXCEPTION
2920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2921: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2922: (
2923: l_api_name,
2924: G_PKG_NAME,
2917: x_return_status := l_return_status;
2918: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2919: EXCEPTION
2920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2921: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2922: (
2923: l_api_name,
2924: G_PKG_NAME,
2925: 'OKL_API.G_RET_STS_ERROR',
2921: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2922: (
2923: l_api_name,
2924: G_PKG_NAME,
2925: 'OKL_API.G_RET_STS_ERROR',
2926: x_msg_count,
2927: x_msg_data,
2928: '_PVT'
2929: );
2926: x_msg_count,
2927: x_msg_data,
2928: '_PVT'
2929: );
2930: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2931: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2932: (
2933: l_api_name,
2934: G_PKG_NAME,
2927: x_msg_data,
2928: '_PVT'
2929: );
2930: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2931: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2932: (
2933: l_api_name,
2934: G_PKG_NAME,
2935: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2931: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2932: (
2933: l_api_name,
2934: G_PKG_NAME,
2935: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2936: x_msg_count,
2937: x_msg_data,
2938: '_PVT'
2939: );
2937: x_msg_data,
2938: '_PVT'
2939: );
2940: WHEN OTHERS THEN
2941: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2942: (
2943: l_api_name,
2944: G_PKG_NAME,
2945: 'OTHERS',
2952: -- PL/SQL TBL update_row for:polv_tbl --
2953: ----------------------------------------
2954: PROCEDURE update_row(
2955: p_api_version IN NUMBER,
2956: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2957: x_return_status OUT NOCOPY VARCHAR2,
2958: x_msg_count OUT NOCOPY NUMBER,
2959: x_msg_data OUT NOCOPY VARCHAR2,
2960: p_polv_tbl IN polv_tbl_type,
2958: x_msg_count OUT NOCOPY NUMBER,
2959: x_msg_data OUT NOCOPY VARCHAR2,
2960: p_polv_tbl IN polv_tbl_type,
2961: x_polv_tbl OUT NOCOPY polv_tbl_type,
2962: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2963:
2964: l_api_version CONSTANT NUMBER := 1;
2965: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2966: i NUMBER := 0;
2964: l_api_version CONSTANT NUMBER := 1;
2965: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2966: i NUMBER := 0;
2967: BEGIN
2968: OKL_API.init_msg_list(p_init_msg_list);
2969: -- Make sure PL/SQL table has records in it before passing
2970: IF (p_polv_tbl.COUNT > 0) THEN
2971: i := p_polv_tbl.FIRST;
2972: LOOP
2970: IF (p_polv_tbl.COUNT > 0) THEN
2971: i := p_polv_tbl.FIRST;
2972: LOOP
2973: DECLARE
2974: l_error_rec OKL_API.ERROR_REC_TYPE;
2975: BEGIN
2976: l_error_rec.api_name := l_api_name;
2977: l_error_rec.api_package := G_PKG_NAME;
2978: l_error_rec.idx := i;
2977: l_error_rec.api_package := G_PKG_NAME;
2978: l_error_rec.idx := i;
2979: update_row (
2980: p_api_version => p_api_version,
2981: p_init_msg_list => OKL_API.G_FALSE,
2982: x_return_status => l_error_rec.error_type,
2983: x_msg_count => l_error_rec.msg_count,
2984: x_msg_data => l_error_rec.msg_data,
2985: p_polv_rec => p_polv_tbl(i),
2983: x_msg_count => l_error_rec.msg_count,
2984: x_msg_data => l_error_rec.msg_data,
2985: p_polv_rec => p_polv_tbl(i),
2986: x_polv_rec => x_polv_tbl(i));
2987: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2988: l_error_rec.SQLCODE := SQLCODE;
2989: load_error_tbl(l_error_rec, px_error_tbl);
2990: ELSE
2991: x_msg_count := l_error_rec.msg_count;
2991: x_msg_count := l_error_rec.msg_count;
2992: x_msg_data := l_error_rec.msg_data;
2993: END IF;
2994: EXCEPTION
2995: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2996: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2997: l_error_rec.SQLCODE := SQLCODE;
2998: load_error_tbl(l_error_rec, px_error_tbl);
2999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2992: x_msg_data := l_error_rec.msg_data;
2993: END IF;
2994: EXCEPTION
2995: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2996: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2997: l_error_rec.SQLCODE := SQLCODE;
2998: load_error_tbl(l_error_rec, px_error_tbl);
2999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3000: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2995: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2996: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2997: l_error_rec.SQLCODE := SQLCODE;
2998: load_error_tbl(l_error_rec, px_error_tbl);
2999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3000: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3001: l_error_rec.SQLCODE := SQLCODE;
3002: load_error_tbl(l_error_rec, px_error_tbl);
3003: WHEN OTHERS THEN
2996: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2997: l_error_rec.SQLCODE := SQLCODE;
2998: load_error_tbl(l_error_rec, px_error_tbl);
2999: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3000: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3001: l_error_rec.SQLCODE := SQLCODE;
3002: load_error_tbl(l_error_rec, px_error_tbl);
3003: WHEN OTHERS THEN
3004: l_error_rec.error_type := 'OTHERS';
3011: END IF;
3012: -- Loop through the error_tbl to find the error with the highest severity
3013: -- and return it.
3014: x_return_status := find_highest_exception(px_error_tbl);
3015: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3016: EXCEPTION
3017: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3018: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3019: (
3013: -- and return it.
3014: x_return_status := find_highest_exception(px_error_tbl);
3015: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3016: EXCEPTION
3017: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3018: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3019: (
3020: l_api_name,
3021: G_PKG_NAME,
3014: x_return_status := find_highest_exception(px_error_tbl);
3015: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3016: EXCEPTION
3017: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3018: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3019: (
3020: l_api_name,
3021: G_PKG_NAME,
3022: 'OKL_API.G_RET_STS_ERROR',
3018: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3019: (
3020: l_api_name,
3021: G_PKG_NAME,
3022: 'OKL_API.G_RET_STS_ERROR',
3023: x_msg_count,
3024: x_msg_data,
3025: '_PVT'
3026: );
3023: x_msg_count,
3024: x_msg_data,
3025: '_PVT'
3026: );
3027: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3028: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3029: (
3030: l_api_name,
3031: G_PKG_NAME,
3024: x_msg_data,
3025: '_PVT'
3026: );
3027: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3028: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3029: (
3030: l_api_name,
3031: G_PKG_NAME,
3032: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3028: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3029: (
3030: l_api_name,
3031: G_PKG_NAME,
3032: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3033: x_msg_count,
3034: x_msg_data,
3035: '_PVT'
3036: );
3034: x_msg_data,
3035: '_PVT'
3036: );
3037: WHEN OTHERS THEN
3038: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3039: (
3040: l_api_name,
3041: G_PKG_NAME,
3042: 'OTHERS',
3050: -- PL/SQL TBL update_row for:polV_TBL --
3051: ----------------------------------------
3052: PROCEDURE update_row(
3053: p_api_version IN NUMBER,
3054: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3055: x_return_status OUT NOCOPY VARCHAR2,
3056: x_msg_count OUT NOCOPY NUMBER,
3057: x_msg_data OUT NOCOPY VARCHAR2,
3058: p_polv_tbl IN polv_tbl_type,
3059: x_polv_tbl OUT NOCOPY polv_tbl_type) IS
3060:
3061: l_api_version CONSTANT NUMBER := 1;
3062: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3063: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3064: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3065: BEGIN
3066: OKL_API.init_msg_list(p_init_msg_list);
3067: -- Make sure PL/SQL table has records in it before passing
3060:
3061: l_api_version CONSTANT NUMBER := 1;
3062: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3063: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3064: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3065: BEGIN
3066: OKL_API.init_msg_list(p_init_msg_list);
3067: -- Make sure PL/SQL table has records in it before passing
3068: IF (p_polv_tbl.COUNT > 0) THEN
3062: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3063: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3064: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3065: BEGIN
3066: OKL_API.init_msg_list(p_init_msg_list);
3067: -- Make sure PL/SQL table has records in it before passing
3068: IF (p_polv_tbl.COUNT > 0) THEN
3069: update_row (
3070: p_api_version => p_api_version,
3067: -- Make sure PL/SQL table has records in it before passing
3068: IF (p_polv_tbl.COUNT > 0) THEN
3069: update_row (
3070: p_api_version => p_api_version,
3071: p_init_msg_list => OKL_API.G_FALSE,
3072: x_return_status => x_return_status,
3073: x_msg_count => x_msg_count,
3074: x_msg_data => x_msg_data,
3075: p_polv_tbl => p_polv_tbl,
3075: p_polv_tbl => p_polv_tbl,
3076: x_polv_tbl => x_polv_tbl,
3077: px_error_tbl => l_error_tbl);
3078: END IF;
3079: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3080: EXCEPTION
3081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3083: (
3077: px_error_tbl => l_error_tbl);
3078: END IF;
3079: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3080: EXCEPTION
3081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3083: (
3084: l_api_name,
3085: G_PKG_NAME,
3078: END IF;
3079: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3080: EXCEPTION
3081: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3083: (
3084: l_api_name,
3085: G_PKG_NAME,
3086: 'OKL_API.G_RET_STS_ERROR',
3082: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3083: (
3084: l_api_name,
3085: G_PKG_NAME,
3086: 'OKL_API.G_RET_STS_ERROR',
3087: x_msg_count,
3088: x_msg_data,
3089: '_PVT'
3090: );
3087: x_msg_count,
3088: x_msg_data,
3089: '_PVT'
3090: );
3091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3093: (
3094: l_api_name,
3095: G_PKG_NAME,
3088: x_msg_data,
3089: '_PVT'
3090: );
3091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3093: (
3094: l_api_name,
3095: G_PKG_NAME,
3096: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3092: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3093: (
3094: l_api_name,
3095: G_PKG_NAME,
3096: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3097: x_msg_count,
3098: x_msg_data,
3099: '_PVT'
3100: );
3098: x_msg_data,
3099: '_PVT'
3100: );
3101: WHEN OTHERS THEN
3102: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3103: (
3104: l_api_name,
3105: G_PKG_NAME,
3106: 'OTHERS',
3116: ----------------------------------------
3117: -- delete_row for:okl_pools --
3118: ----------------------------------------
3119: PROCEDURE delete_row(
3120: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3121: x_return_status OUT NOCOPY VARCHAR2,
3122: x_msg_count OUT NOCOPY NUMBER,
3123: x_msg_data OUT NOCOPY VARCHAR2,
3124: p_pol_rec IN pol_rec_type) IS
3124: p_pol_rec IN pol_rec_type) IS
3125:
3126: l_api_version CONSTANT NUMBER := 1;
3127: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3128: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3129: l_pol_rec pol_rec_type := p_pol_rec;
3130: l_row_notfound BOOLEAN := TRUE;
3131: BEGIN
3132: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3128: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3129: l_pol_rec pol_rec_type := p_pol_rec;
3130: l_row_notfound BOOLEAN := TRUE;
3131: BEGIN
3132: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3133: p_init_msg_list,
3134: '_PVT',
3135: x_return_status);
3136: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3132: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3133: p_init_msg_list,
3134: '_PVT',
3135: x_return_status);
3136: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3139: RAISE OKL_API.G_EXCEPTION_ERROR;
3140: END IF;
3133: p_init_msg_list,
3134: '_PVT',
3135: x_return_status);
3136: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3139: RAISE OKL_API.G_EXCEPTION_ERROR;
3140: END IF;
3141:
3134: '_PVT',
3135: x_return_status);
3136: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3139: RAISE OKL_API.G_EXCEPTION_ERROR;
3140: END IF;
3141:
3142: DELETE FROM okl_pools
3135: x_return_status);
3136: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3139: RAISE OKL_API.G_EXCEPTION_ERROR;
3140: END IF;
3141:
3142: DELETE FROM okl_pools
3143: WHERE ID = p_pol_rec.id;
3142: DELETE FROM okl_pools
3143: WHERE ID = p_pol_rec.id;
3144:
3145: x_return_status := l_return_status;
3146: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3147: EXCEPTION
3148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3149: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3150: (
3144:
3145: x_return_status := l_return_status;
3146: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3147: EXCEPTION
3148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3149: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3150: (
3151: l_api_name,
3152: G_PKG_NAME,
3145: x_return_status := l_return_status;
3146: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3147: EXCEPTION
3148: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3149: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3150: (
3151: l_api_name,
3152: G_PKG_NAME,
3153: 'OKL_API.G_RET_STS_ERROR',
3149: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3150: (
3151: l_api_name,
3152: G_PKG_NAME,
3153: 'OKL_API.G_RET_STS_ERROR',
3154: x_msg_count,
3155: x_msg_data,
3156: '_PVT'
3157: );
3154: x_msg_count,
3155: x_msg_data,
3156: '_PVT'
3157: );
3158: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3159: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3155: x_msg_data,
3156: '_PVT'
3157: );
3158: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3159: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3163: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3159: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3163: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3164: x_msg_count,
3165: x_msg_data,
3166: '_PVT'
3167: );
3165: x_msg_data,
3166: '_PVT'
3167: );
3168: WHEN OTHERS THEN
3169: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3170: (
3171: l_api_name,
3172: G_PKG_NAME,
3173: 'OTHERS',
3180: -- delete_row for:OKL_POOLS_V --
3181: ------------------------------------------
3182: PROCEDURE delete_row(
3183: p_api_version IN NUMBER,
3184: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3185: x_return_status OUT NOCOPY VARCHAR2,
3186: x_msg_count OUT NOCOPY NUMBER,
3187: x_msg_data OUT NOCOPY VARCHAR2,
3188: p_polv_rec IN polv_rec_type) IS
3188: p_polv_rec IN polv_rec_type) IS
3189:
3190: l_api_version CONSTANT NUMBER := 1;
3191: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3192: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3193: l_polv_rec polv_rec_type := p_polv_rec;
3194: l_pol_rec pol_rec_type;
3195: BEGIN
3196: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3192: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3193: l_polv_rec polv_rec_type := p_polv_rec;
3194: l_pol_rec pol_rec_type;
3195: BEGIN
3196: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3197: G_PKG_NAME,
3198: p_init_msg_list,
3199: l_api_version,
3200: p_api_version,
3199: l_api_version,
3200: p_api_version,
3201: '_PVT',
3202: x_return_status);
3203: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3206: RAISE OKL_API.G_EXCEPTION_ERROR;
3207: END IF;
3200: p_api_version,
3201: '_PVT',
3202: x_return_status);
3203: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3206: RAISE OKL_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: -----------------------------------------
3201: '_PVT',
3202: x_return_status);
3203: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3206: RAISE OKL_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: -----------------------------------------
3209: -- Move VIEW record to "Child" records --
3202: x_return_status);
3203: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3204: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3205: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3206: RAISE OKL_API.G_EXCEPTION_ERROR;
3207: END IF;
3208: -----------------------------------------
3209: -- Move VIEW record to "Child" records --
3210: -----------------------------------------
3218: x_msg_count,
3219: x_msg_data,
3220: l_pol_rec
3221: );
3222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3225: RAISE OKL_API.G_EXCEPTION_ERROR;
3226: END IF;
3219: x_msg_data,
3220: l_pol_rec
3221: );
3222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3225: RAISE OKL_API.G_EXCEPTION_ERROR;
3226: END IF;
3227: x_return_status := l_return_status;
3220: l_pol_rec
3221: );
3222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3225: RAISE OKL_API.G_EXCEPTION_ERROR;
3226: END IF;
3227: x_return_status := l_return_status;
3228: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3221: );
3222: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3223: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3225: RAISE OKL_API.G_EXCEPTION_ERROR;
3226: END IF;
3227: x_return_status := l_return_status;
3228: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3229: EXCEPTION
3224: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3225: RAISE OKL_API.G_EXCEPTION_ERROR;
3226: END IF;
3227: x_return_status := l_return_status;
3228: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3229: EXCEPTION
3230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3231: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3232: (
3226: END IF;
3227: x_return_status := l_return_status;
3228: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3229: EXCEPTION
3230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3231: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3232: (
3233: l_api_name,
3234: G_PKG_NAME,
3227: x_return_status := l_return_status;
3228: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3229: EXCEPTION
3230: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3231: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3232: (
3233: l_api_name,
3234: G_PKG_NAME,
3235: 'OKL_API.G_RET_STS_ERROR',
3231: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3232: (
3233: l_api_name,
3234: G_PKG_NAME,
3235: 'OKL_API.G_RET_STS_ERROR',
3236: x_msg_count,
3237: x_msg_data,
3238: '_PVT'
3239: );
3236: x_msg_count,
3237: x_msg_data,
3238: '_PVT'
3239: );
3240: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3242: (
3243: l_api_name,
3244: G_PKG_NAME,
3237: x_msg_data,
3238: '_PVT'
3239: );
3240: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3242: (
3243: l_api_name,
3244: G_PKG_NAME,
3245: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3241: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3242: (
3243: l_api_name,
3244: G_PKG_NAME,
3245: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3246: x_msg_count,
3247: x_msg_data,
3248: '_PVT'
3249: );
3247: x_msg_data,
3248: '_PVT'
3249: );
3250: WHEN OTHERS THEN
3251: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3252: (
3253: l_api_name,
3254: G_PKG_NAME,
3255: 'OTHERS',
3262: -- PL/SQL TBL delete_row for:OKL_POOLS_V --
3263: -----------------------------------------------------
3264: PROCEDURE delete_row(
3265: p_api_version IN NUMBER,
3266: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3267: x_return_status OUT NOCOPY VARCHAR2,
3268: x_msg_count OUT NOCOPY NUMBER,
3269: x_msg_data OUT NOCOPY VARCHAR2,
3270: p_polv_tbl IN polv_tbl_type,
3267: x_return_status OUT NOCOPY VARCHAR2,
3268: x_msg_count OUT NOCOPY NUMBER,
3269: x_msg_data OUT NOCOPY VARCHAR2,
3270: p_polv_tbl IN polv_tbl_type,
3271: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3272:
3273: l_api_version CONSTANT NUMBER := 1;
3274: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3275: i NUMBER := 0;
3273: l_api_version CONSTANT NUMBER := 1;
3274: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3275: i NUMBER := 0;
3276: BEGIN
3277: OKL_API.init_msg_list(p_init_msg_list);
3278: -- Make sure PL/SQL table has records in it before passing
3279: IF (p_polv_tbl.COUNT > 0) THEN
3280: i := p_polv_tbl.FIRST;
3281: LOOP
3279: IF (p_polv_tbl.COUNT > 0) THEN
3280: i := p_polv_tbl.FIRST;
3281: LOOP
3282: DECLARE
3283: l_error_rec OKL_API.ERROR_REC_TYPE;
3284: BEGIN
3285: l_error_rec.api_name := l_api_name;
3286: l_error_rec.api_package := G_PKG_NAME;
3287: l_error_rec.idx := i;
3286: l_error_rec.api_package := G_PKG_NAME;
3287: l_error_rec.idx := i;
3288: delete_row (
3289: p_api_version => p_api_version,
3290: p_init_msg_list => OKL_API.G_FALSE,
3291: x_return_status => l_error_rec.error_type,
3292: x_msg_count => l_error_rec.msg_count,
3293: x_msg_data => l_error_rec.msg_data,
3294: p_polv_rec => p_polv_tbl(i));
3291: x_return_status => l_error_rec.error_type,
3292: x_msg_count => l_error_rec.msg_count,
3293: x_msg_data => l_error_rec.msg_data,
3294: p_polv_rec => p_polv_tbl(i));
3295: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3296: l_error_rec.SQLCODE := SQLCODE;
3297: load_error_tbl(l_error_rec, px_error_tbl);
3298: ELSE
3299: x_msg_count := l_error_rec.msg_count;
3299: x_msg_count := l_error_rec.msg_count;
3300: x_msg_data := l_error_rec.msg_data;
3301: END IF;
3302: EXCEPTION
3303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3304: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3305: l_error_rec.SQLCODE := SQLCODE;
3306: load_error_tbl(l_error_rec, px_error_tbl);
3307: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3300: x_msg_data := l_error_rec.msg_data;
3301: END IF;
3302: EXCEPTION
3303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3304: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3305: l_error_rec.SQLCODE := SQLCODE;
3306: load_error_tbl(l_error_rec, px_error_tbl);
3307: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3308: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3303: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3304: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3305: l_error_rec.SQLCODE := SQLCODE;
3306: load_error_tbl(l_error_rec, px_error_tbl);
3307: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3308: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3309: l_error_rec.SQLCODE := SQLCODE;
3310: load_error_tbl(l_error_rec, px_error_tbl);
3311: WHEN OTHERS THEN
3304: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3305: l_error_rec.SQLCODE := SQLCODE;
3306: load_error_tbl(l_error_rec, px_error_tbl);
3307: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3308: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3309: l_error_rec.SQLCODE := SQLCODE;
3310: load_error_tbl(l_error_rec, px_error_tbl);
3311: WHEN OTHERS THEN
3312: l_error_rec.error_type := 'OTHERS';
3319: END IF;
3320: -- Loop through the error_tbl to find the error with the highest severity
3321: -- and return it.
3322: x_return_status := find_highest_exception(px_error_tbl);
3323: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3324: EXCEPTION
3325: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3326: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3327: (
3321: -- and return it.
3322: x_return_status := find_highest_exception(px_error_tbl);
3323: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3324: EXCEPTION
3325: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3326: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3327: (
3328: l_api_name,
3329: G_PKG_NAME,
3322: x_return_status := find_highest_exception(px_error_tbl);
3323: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3324: EXCEPTION
3325: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3326: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3327: (
3328: l_api_name,
3329: G_PKG_NAME,
3330: 'OKL_API.G_RET_STS_ERROR',
3326: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3327: (
3328: l_api_name,
3329: G_PKG_NAME,
3330: 'OKL_API.G_RET_STS_ERROR',
3331: x_msg_count,
3332: x_msg_data,
3333: '_PVT'
3334: );
3331: x_msg_count,
3332: x_msg_data,
3333: '_PVT'
3334: );
3335: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3336: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3337: (
3338: l_api_name,
3339: G_PKG_NAME,
3332: x_msg_data,
3333: '_PVT'
3334: );
3335: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3336: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3337: (
3338: l_api_name,
3339: G_PKG_NAME,
3340: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3336: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3337: (
3338: l_api_name,
3339: G_PKG_NAME,
3340: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3341: x_msg_count,
3342: x_msg_data,
3343: '_PVT'
3344: );
3342: x_msg_data,
3343: '_PVT'
3344: );
3345: WHEN OTHERS THEN
3346: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3347: (
3348: l_api_name,
3349: G_PKG_NAME,
3350: 'OTHERS',
3358: -- PL/SQL TBL delete_row for:OKL_POOLS_V --
3359: -----------------------------------------------------
3360: PROCEDURE delete_row(
3361: p_api_version IN NUMBER,
3362: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3363: x_return_status OUT NOCOPY VARCHAR2,
3364: x_msg_count OUT NOCOPY NUMBER,
3365: x_msg_data OUT NOCOPY VARCHAR2,
3366: p_polv_tbl IN polv_tbl_type) IS
3366: p_polv_tbl IN polv_tbl_type) IS
3367:
3368: l_api_version CONSTANT NUMBER := 1;
3369: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3370: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3371: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3372: BEGIN
3373: OKL_API.init_msg_list(p_init_msg_list);
3374: -- Make sure PL/SQL table has records in it before passing
3367:
3368: l_api_version CONSTANT NUMBER := 1;
3369: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3370: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3371: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3372: BEGIN
3373: OKL_API.init_msg_list(p_init_msg_list);
3374: -- Make sure PL/SQL table has records in it before passing
3375: IF (p_polv_tbl.COUNT > 0) THEN
3369: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3370: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3371: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3372: BEGIN
3373: OKL_API.init_msg_list(p_init_msg_list);
3374: -- Make sure PL/SQL table has records in it before passing
3375: IF (p_polv_tbl.COUNT > 0) THEN
3376: delete_row (
3377: p_api_version => p_api_version,
3374: -- Make sure PL/SQL table has records in it before passing
3375: IF (p_polv_tbl.COUNT > 0) THEN
3376: delete_row (
3377: p_api_version => p_api_version,
3378: p_init_msg_list => OKL_API.G_FALSE,
3379: x_return_status => x_return_status,
3380: x_msg_count => x_msg_count,
3381: x_msg_data => x_msg_data,
3382: p_polv_tbl => p_polv_tbl,
3381: x_msg_data => x_msg_data,
3382: p_polv_tbl => p_polv_tbl,
3383: px_error_tbl => l_error_tbl);
3384: END IF;
3385: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3386: EXCEPTION
3387: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3388: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3389: (
3383: px_error_tbl => l_error_tbl);
3384: END IF;
3385: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3386: EXCEPTION
3387: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3388: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3389: (
3390: l_api_name,
3391: G_PKG_NAME,
3384: END IF;
3385: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3386: EXCEPTION
3387: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3388: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3389: (
3390: l_api_name,
3391: G_PKG_NAME,
3392: 'OKL_API.G_RET_STS_ERROR',
3388: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3389: (
3390: l_api_name,
3391: G_PKG_NAME,
3392: 'OKL_API.G_RET_STS_ERROR',
3393: x_msg_count,
3394: x_msg_data,
3395: '_PVT'
3396: );
3393: x_msg_count,
3394: x_msg_data,
3395: '_PVT'
3396: );
3397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3398: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3399: (
3400: l_api_name,
3401: G_PKG_NAME,
3394: x_msg_data,
3395: '_PVT'
3396: );
3397: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3398: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3399: (
3400: l_api_name,
3401: G_PKG_NAME,
3402: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3398: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3399: (
3400: l_api_name,
3401: G_PKG_NAME,
3402: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3403: x_msg_count,
3404: x_msg_data,
3405: '_PVT'
3406: );
3404: x_msg_data,
3405: '_PVT'
3406: );
3407: WHEN OTHERS THEN
3408: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3409: (
3410: l_api_name,
3411: G_PKG_NAME,
3412: 'OTHERS',