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);
212: ) RETURN poxv_rec_type IS
213: l_poxv_rec poxv_rec_type;
214: l_row_notfound BOOLEAN := TRUE;
215: BEGIN
216: x_return_status := OKL_API.G_RET_STS_SUCCESS;
217: l_poxv_rec := get_rec(p_poxv_rec, l_row_notfound);
218: IF (l_row_notfound) THEN
219: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
220: x_return_status := OKL_API.G_RET_STS_ERROR;
215: BEGIN
216: x_return_status := OKL_API.G_RET_STS_SUCCESS;
217: l_poxv_rec := get_rec(p_poxv_rec, l_row_notfound);
218: IF (l_row_notfound) THEN
219: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
220: x_return_status := OKL_API.G_RET_STS_ERROR;
221: END IF;
222: RETURN(l_poxv_rec);
223: END get_rec;
216: x_return_status := OKL_API.G_RET_STS_SUCCESS;
217: l_poxv_rec := get_rec(p_poxv_rec, l_row_notfound);
218: IF (l_row_notfound) THEN
219: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
220: x_return_status := OKL_API.G_RET_STS_ERROR;
221: END IF;
222: RETURN(l_poxv_rec);
223: END get_rec;
224: -----------------------------------------------------------
343: ) RETURN pox_rec_type IS
344: l_pox_rec pox_rec_type;
345: l_row_notfound BOOLEAN := TRUE;
346: BEGIN
347: x_return_status := OKL_API.G_RET_STS_SUCCESS;
348: l_pox_rec := get_rec(p_pox_rec, l_row_notfound);
349: IF (l_row_notfound) THEN
350: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
351: x_return_status := OKL_API.G_RET_STS_ERROR;
346: BEGIN
347: x_return_status := OKL_API.G_RET_STS_SUCCESS;
348: l_pox_rec := get_rec(p_pox_rec, l_row_notfound);
349: IF (l_row_notfound) THEN
350: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
351: x_return_status := OKL_API.G_RET_STS_ERROR;
352: END IF;
353: RETURN(l_pox_rec);
354: END get_rec;
347: x_return_status := OKL_API.G_RET_STS_SUCCESS;
348: l_pox_rec := get_rec(p_pox_rec, l_row_notfound);
349: IF (l_row_notfound) THEN
350: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
351: x_return_status := OKL_API.G_RET_STS_ERROR;
352: END IF;
353: RETURN(l_pox_rec);
354: END get_rec;
355: -----------------------------------------------------------
371: p_poxv_rec IN poxv_rec_type
372: ) RETURN poxv_rec_type IS
373: l_poxv_rec poxv_rec_type := p_poxv_rec;
374: BEGIN
375: IF (l_poxv_rec.id = OKL_API.G_MISS_NUM ) THEN
376: l_poxv_rec.id := NULL;
377: END IF;
378: IF (l_poxv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
379: l_poxv_rec.object_version_number := NULL;
374: BEGIN
375: IF (l_poxv_rec.id = OKL_API.G_MISS_NUM ) THEN
376: l_poxv_rec.id := NULL;
377: END IF;
378: IF (l_poxv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
379: l_poxv_rec.object_version_number := NULL;
380: END IF;
381: IF (l_poxv_rec.pol_id = OKL_API.G_MISS_NUM ) THEN
382: l_poxv_rec.pol_id := NULL;
377: END IF;
378: IF (l_poxv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
379: l_poxv_rec.object_version_number := NULL;
380: END IF;
381: IF (l_poxv_rec.pol_id = OKL_API.G_MISS_NUM ) THEN
382: l_poxv_rec.pol_id := NULL;
383: END IF;
384: IF (l_poxv_rec.transaction_number = OKL_API.G_MISS_NUM ) THEN
385: l_poxv_rec.transaction_number := NULL;
380: END IF;
381: IF (l_poxv_rec.pol_id = OKL_API.G_MISS_NUM ) THEN
382: l_poxv_rec.pol_id := NULL;
383: END IF;
384: IF (l_poxv_rec.transaction_number = OKL_API.G_MISS_NUM ) THEN
385: l_poxv_rec.transaction_number := NULL;
386: END IF;
387: IF (l_poxv_rec.transaction_date = OKL_API.G_MISS_DATE ) THEN
388: l_poxv_rec.transaction_date := NULL;
383: END IF;
384: IF (l_poxv_rec.transaction_number = OKL_API.G_MISS_NUM ) THEN
385: l_poxv_rec.transaction_number := NULL;
386: END IF;
387: IF (l_poxv_rec.transaction_date = OKL_API.G_MISS_DATE ) THEN
388: l_poxv_rec.transaction_date := NULL;
389: END IF;
390: IF (l_poxv_rec.transaction_type = OKL_API.G_MISS_CHAR ) THEN
391: l_poxv_rec.transaction_type := NULL;
386: END IF;
387: IF (l_poxv_rec.transaction_date = OKL_API.G_MISS_DATE ) THEN
388: l_poxv_rec.transaction_date := NULL;
389: END IF;
390: IF (l_poxv_rec.transaction_type = OKL_API.G_MISS_CHAR ) THEN
391: l_poxv_rec.transaction_type := NULL;
392: END IF;
393: IF (l_poxv_rec.transaction_sub_type = OKL_API.G_MISS_CHAR ) THEN
394: l_poxv_rec.transaction_sub_type := NULL;
389: END IF;
390: IF (l_poxv_rec.transaction_type = OKL_API.G_MISS_CHAR ) THEN
391: l_poxv_rec.transaction_type := NULL;
392: END IF;
393: IF (l_poxv_rec.transaction_sub_type = OKL_API.G_MISS_CHAR ) THEN
394: l_poxv_rec.transaction_sub_type := NULL;
395: END IF;
396: IF (l_poxv_rec.date_effective = OKL_API.G_MISS_DATE ) THEN
397: l_poxv_rec.date_effective := NULL;
392: END IF;
393: IF (l_poxv_rec.transaction_sub_type = OKL_API.G_MISS_CHAR ) THEN
394: l_poxv_rec.transaction_sub_type := NULL;
395: END IF;
396: IF (l_poxv_rec.date_effective = OKL_API.G_MISS_DATE ) THEN
397: l_poxv_rec.date_effective := NULL;
398: END IF;
399: IF (l_poxv_rec.currency_code = OKL_API.G_MISS_CHAR ) THEN
400: l_poxv_rec.currency_code := NULL;
395: END IF;
396: IF (l_poxv_rec.date_effective = OKL_API.G_MISS_DATE ) THEN
397: l_poxv_rec.date_effective := NULL;
398: END IF;
399: IF (l_poxv_rec.currency_code = OKL_API.G_MISS_CHAR ) THEN
400: l_poxv_rec.currency_code := NULL;
401: END IF;
402: IF (l_poxv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR ) THEN
403: l_poxv_rec.currency_conversion_type := NULL;
398: END IF;
399: IF (l_poxv_rec.currency_code = OKL_API.G_MISS_CHAR ) THEN
400: l_poxv_rec.currency_code := NULL;
401: END IF;
402: IF (l_poxv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR ) THEN
403: l_poxv_rec.currency_conversion_type := NULL;
404: END IF;
405: IF (l_poxv_rec.currency_conversion_date = OKL_API.G_MISS_DATE ) THEN
406: l_poxv_rec.currency_conversion_date := NULL;
401: END IF;
402: IF (l_poxv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR ) THEN
403: l_poxv_rec.currency_conversion_type := NULL;
404: END IF;
405: IF (l_poxv_rec.currency_conversion_date = OKL_API.G_MISS_DATE ) THEN
406: l_poxv_rec.currency_conversion_date := NULL;
407: END IF;
408: IF (l_poxv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM ) THEN
409: l_poxv_rec.currency_conversion_rate := NULL;
404: END IF;
405: IF (l_poxv_rec.currency_conversion_date = OKL_API.G_MISS_DATE ) THEN
406: l_poxv_rec.currency_conversion_date := NULL;
407: END IF;
408: IF (l_poxv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM ) THEN
409: l_poxv_rec.currency_conversion_rate := NULL;
410: END IF;
411: IF (l_poxv_rec.transaction_reason = OKL_API.G_MISS_CHAR ) THEN
412: l_poxv_rec.transaction_reason := NULL;
407: END IF;
408: IF (l_poxv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM ) THEN
409: l_poxv_rec.currency_conversion_rate := NULL;
410: END IF;
411: IF (l_poxv_rec.transaction_reason = OKL_API.G_MISS_CHAR ) THEN
412: l_poxv_rec.transaction_reason := NULL;
413: END IF;
414: IF (l_poxv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
415: l_poxv_rec.attribute_category := NULL;
410: END IF;
411: IF (l_poxv_rec.transaction_reason = OKL_API.G_MISS_CHAR ) THEN
412: l_poxv_rec.transaction_reason := NULL;
413: END IF;
414: IF (l_poxv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
415: l_poxv_rec.attribute_category := NULL;
416: END IF;
417: IF (l_poxv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
418: l_poxv_rec.attribute1 := NULL;
413: END IF;
414: IF (l_poxv_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
415: l_poxv_rec.attribute_category := NULL;
416: END IF;
417: IF (l_poxv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
418: l_poxv_rec.attribute1 := NULL;
419: END IF;
420: IF (l_poxv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
421: l_poxv_rec.attribute2 := NULL;
416: END IF;
417: IF (l_poxv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
418: l_poxv_rec.attribute1 := NULL;
419: END IF;
420: IF (l_poxv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
421: l_poxv_rec.attribute2 := NULL;
422: END IF;
423: IF (l_poxv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
424: l_poxv_rec.attribute3 := NULL;
419: END IF;
420: IF (l_poxv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
421: l_poxv_rec.attribute2 := NULL;
422: END IF;
423: IF (l_poxv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
424: l_poxv_rec.attribute3 := NULL;
425: END IF;
426: IF (l_poxv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
427: l_poxv_rec.attribute4 := NULL;
422: END IF;
423: IF (l_poxv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
424: l_poxv_rec.attribute3 := NULL;
425: END IF;
426: IF (l_poxv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
427: l_poxv_rec.attribute4 := NULL;
428: END IF;
429: IF (l_poxv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
430: l_poxv_rec.attribute5 := NULL;
425: END IF;
426: IF (l_poxv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
427: l_poxv_rec.attribute4 := NULL;
428: END IF;
429: IF (l_poxv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
430: l_poxv_rec.attribute5 := NULL;
431: END IF;
432: IF (l_poxv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
433: l_poxv_rec.attribute6 := NULL;
428: END IF;
429: IF (l_poxv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
430: l_poxv_rec.attribute5 := NULL;
431: END IF;
432: IF (l_poxv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
433: l_poxv_rec.attribute6 := NULL;
434: END IF;
435: IF (l_poxv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
436: l_poxv_rec.attribute7 := NULL;
431: END IF;
432: IF (l_poxv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
433: l_poxv_rec.attribute6 := NULL;
434: END IF;
435: IF (l_poxv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
436: l_poxv_rec.attribute7 := NULL;
437: END IF;
438: IF (l_poxv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
439: l_poxv_rec.attribute8 := NULL;
434: END IF;
435: IF (l_poxv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
436: l_poxv_rec.attribute7 := NULL;
437: END IF;
438: IF (l_poxv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
439: l_poxv_rec.attribute8 := NULL;
440: END IF;
441: IF (l_poxv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
442: l_poxv_rec.attribute9 := NULL;
437: END IF;
438: IF (l_poxv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
439: l_poxv_rec.attribute8 := NULL;
440: END IF;
441: IF (l_poxv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
442: l_poxv_rec.attribute9 := NULL;
443: END IF;
444: IF (l_poxv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
445: l_poxv_rec.attribute10 := NULL;
440: END IF;
441: IF (l_poxv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
442: l_poxv_rec.attribute9 := NULL;
443: END IF;
444: IF (l_poxv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
445: l_poxv_rec.attribute10 := NULL;
446: END IF;
447: IF (l_poxv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
448: l_poxv_rec.attribute11 := NULL;
443: END IF;
444: IF (l_poxv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
445: l_poxv_rec.attribute10 := NULL;
446: END IF;
447: IF (l_poxv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
448: l_poxv_rec.attribute11 := NULL;
449: END IF;
450: IF (l_poxv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
451: l_poxv_rec.attribute12 := NULL;
446: END IF;
447: IF (l_poxv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
448: l_poxv_rec.attribute11 := NULL;
449: END IF;
450: IF (l_poxv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
451: l_poxv_rec.attribute12 := NULL;
452: END IF;
453: IF (l_poxv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
454: l_poxv_rec.attribute13 := NULL;
449: END IF;
450: IF (l_poxv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
451: l_poxv_rec.attribute12 := NULL;
452: END IF;
453: IF (l_poxv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
454: l_poxv_rec.attribute13 := NULL;
455: END IF;
456: IF (l_poxv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
457: l_poxv_rec.attribute14 := NULL;
452: END IF;
453: IF (l_poxv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
454: l_poxv_rec.attribute13 := NULL;
455: END IF;
456: IF (l_poxv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
457: l_poxv_rec.attribute14 := NULL;
458: END IF;
459: IF (l_poxv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
460: l_poxv_rec.attribute15 := NULL;
455: END IF;
456: IF (l_poxv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
457: l_poxv_rec.attribute14 := NULL;
458: END IF;
459: IF (l_poxv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
460: l_poxv_rec.attribute15 := NULL;
461: END IF;
462: IF (l_poxv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
463: l_poxv_rec.attribute1 := NULL;
458: END IF;
459: IF (l_poxv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
460: l_poxv_rec.attribute15 := NULL;
461: END IF;
462: IF (l_poxv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
463: l_poxv_rec.attribute1 := NULL;
464: END IF;
465: IF (l_poxv_rec.request_id = OKL_API.G_MISS_NUM ) THEN
466: l_poxv_rec.request_id := NULL;
461: END IF;
462: IF (l_poxv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
463: l_poxv_rec.attribute1 := NULL;
464: END IF;
465: IF (l_poxv_rec.request_id = OKL_API.G_MISS_NUM ) THEN
466: l_poxv_rec.request_id := NULL;
467: END IF;
468: IF (l_poxv_rec.program_application_id = OKL_API.G_MISS_NUM ) THEN
469: l_poxv_rec.program_application_id := NULL;
464: END IF;
465: IF (l_poxv_rec.request_id = OKL_API.G_MISS_NUM ) THEN
466: l_poxv_rec.request_id := NULL;
467: END IF;
468: IF (l_poxv_rec.program_application_id = OKL_API.G_MISS_NUM ) THEN
469: l_poxv_rec.program_application_id := NULL;
470: END IF;
471: IF (l_poxv_rec.program_id = OKL_API.G_MISS_NUM ) THEN
472: l_poxv_rec.program_id := NULL;
467: END IF;
468: IF (l_poxv_rec.program_application_id = OKL_API.G_MISS_NUM ) THEN
469: l_poxv_rec.program_application_id := NULL;
470: END IF;
471: IF (l_poxv_rec.program_id = OKL_API.G_MISS_NUM ) THEN
472: l_poxv_rec.program_id := NULL;
473: END IF;
474: IF (l_poxv_rec.program_update_date = OKL_API.G_MISS_DATE ) THEN
475: l_poxv_rec.program_update_date := NULL;
470: END IF;
471: IF (l_poxv_rec.program_id = OKL_API.G_MISS_NUM ) THEN
472: l_poxv_rec.program_id := NULL;
473: END IF;
474: IF (l_poxv_rec.program_update_date = OKL_API.G_MISS_DATE ) THEN
475: l_poxv_rec.program_update_date := NULL;
476: END IF;
477: IF (l_poxv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
478: l_poxv_rec.created_by := NULL;
473: END IF;
474: IF (l_poxv_rec.program_update_date = OKL_API.G_MISS_DATE ) THEN
475: l_poxv_rec.program_update_date := NULL;
476: END IF;
477: IF (l_poxv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
478: l_poxv_rec.created_by := NULL;
479: END IF;
480: IF (l_poxv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
481: l_poxv_rec.creation_date := NULL;
476: END IF;
477: IF (l_poxv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
478: l_poxv_rec.created_by := NULL;
479: END IF;
480: IF (l_poxv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
481: l_poxv_rec.creation_date := NULL;
482: END IF;
483: IF (l_poxv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
484: l_poxv_rec.last_updated_by := NULL;
479: END IF;
480: IF (l_poxv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
481: l_poxv_rec.creation_date := NULL;
482: END IF;
483: IF (l_poxv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
484: l_poxv_rec.last_updated_by := NULL;
485: END IF;
486: IF (l_poxv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
487: l_poxv_rec.last_update_date := NULL;
482: END IF;
483: IF (l_poxv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
484: l_poxv_rec.last_updated_by := NULL;
485: END IF;
486: IF (l_poxv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
487: l_poxv_rec.last_update_date := NULL;
488: END IF;
489: IF (l_poxv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
490: l_poxv_rec.last_update_login := NULL;
485: END IF;
486: IF (l_poxv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
487: l_poxv_rec.last_update_date := NULL;
488: END IF;
489: IF (l_poxv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
490: l_poxv_rec.last_update_login := NULL;
491: END IF;
492: IF (l_poxv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
493: l_poxv_rec.legal_entity_id := NULL;
488: END IF;
489: IF (l_poxv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
490: l_poxv_rec.last_update_login := NULL;
491: END IF;
492: IF (l_poxv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
493: l_poxv_rec.legal_entity_id := NULL;
494: END IF;
495: IF (l_poxv_rec.transaction_status = OKL_API.G_MISS_CHAR ) THEN
496: l_poxv_rec.transaction_status := NULL;
491: END IF;
492: IF (l_poxv_rec.legal_entity_id = OKL_API.G_MISS_NUM ) THEN
493: l_poxv_rec.legal_entity_id := NULL;
494: END IF;
495: IF (l_poxv_rec.transaction_status = OKL_API.G_MISS_CHAR ) THEN
496: l_poxv_rec.transaction_status := NULL;
497: END IF;
498:
499: RETURN(l_poxv_rec);
505: PROCEDURE validate_id(
506: x_return_status OUT NOCOPY VARCHAR2,
507: p_id IN NUMBER) IS
508: BEGIN
509: x_return_status := OKL_API.G_RET_STS_SUCCESS;
510: IF (p_id = OKL_API.G_MISS_NUM OR
511: p_id IS NULL)
512: THEN
513: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
506: x_return_status OUT NOCOPY VARCHAR2,
507: p_id IN NUMBER) IS
508: BEGIN
509: x_return_status := OKL_API.G_RET_STS_SUCCESS;
510: IF (p_id = OKL_API.G_MISS_NUM OR
511: p_id IS NULL)
512: THEN
513: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
514: x_return_status := OKL_API.G_RET_STS_ERROR;
509: x_return_status := OKL_API.G_RET_STS_SUCCESS;
510: IF (p_id = OKL_API.G_MISS_NUM OR
511: p_id IS NULL)
512: THEN
513: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
514: x_return_status := OKL_API.G_RET_STS_ERROR;
515: RAISE G_EXCEPTION_HALT_VALIDATION;
516: END IF;
517: EXCEPTION
510: IF (p_id = OKL_API.G_MISS_NUM OR
511: p_id IS NULL)
512: THEN
513: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
514: x_return_status := OKL_API.G_RET_STS_ERROR;
515: RAISE G_EXCEPTION_HALT_VALIDATION;
516: END IF;
517: EXCEPTION
518: WHEN G_EXCEPTION_HALT_VALIDATION THEN
517: EXCEPTION
518: WHEN G_EXCEPTION_HALT_VALIDATION THEN
519: NULL;
520: WHEN OTHERS THEN
521: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
522: ,p_msg_name => G_UNEXPECTED_ERROR
523: ,p_token1 => G_SQLCODE_TOKEN
524: ,p_token1_value => SQLCODE
525: ,p_token2 => G_SQLERRM_TOKEN
523: ,p_token1 => G_SQLCODE_TOKEN
524: ,p_token1_value => SQLCODE
525: ,p_token2 => G_SQLERRM_TOKEN
526: ,p_token2_value => SQLERRM);
527: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
528: END validate_id;
529:
530: ----------------------------------------------------
531: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
533: PROCEDURE validate_object_version_number(
534: x_return_status OUT NOCOPY VARCHAR2,
535: p_object_version_number IN NUMBER) IS
536: BEGIN
537: x_return_status := OKL_API.G_RET_STS_SUCCESS;
538: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
539: p_object_version_number IS NULL)
540: THEN
541: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
534: x_return_status OUT NOCOPY VARCHAR2,
535: p_object_version_number IN NUMBER) IS
536: BEGIN
537: x_return_status := OKL_API.G_RET_STS_SUCCESS;
538: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
539: p_object_version_number IS NULL)
540: THEN
541: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
542: x_return_status := OKL_API.G_RET_STS_ERROR;
537: x_return_status := OKL_API.G_RET_STS_SUCCESS;
538: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
539: p_object_version_number IS NULL)
540: THEN
541: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
542: x_return_status := OKL_API.G_RET_STS_ERROR;
543: RAISE G_EXCEPTION_HALT_VALIDATION;
544: END IF;
545: EXCEPTION
538: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
539: p_object_version_number IS NULL)
540: THEN
541: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
542: x_return_status := OKL_API.G_RET_STS_ERROR;
543: RAISE G_EXCEPTION_HALT_VALIDATION;
544: END IF;
545: EXCEPTION
546: WHEN G_EXCEPTION_HALT_VALIDATION THEN
545: EXCEPTION
546: WHEN G_EXCEPTION_HALT_VALIDATION THEN
547: NULL;
548: WHEN OTHERS THEN
549: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
550: ,p_msg_name => G_UNEXPECTED_ERROR
551: ,p_token1 => G_SQLCODE_TOKEN
552: ,p_token1_value => SQLCODE
553: ,p_token2 => G_SQLERRM_TOKEN
551: ,p_token1 => G_SQLCODE_TOKEN
552: ,p_token1_value => SQLCODE
553: ,p_token2 => G_SQLERRM_TOKEN
554: ,p_token2_value => SQLERRM);
555: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
556: END validate_object_version_number;
557:
558: -------------------------------------
559: -- Validate_Attributes for: pol_id --
571: FROM OKL_POOLS
572: WHERE OKL_POOLS.id = p_id;
573:
574: BEGIN
575: x_return_status := OKL_API.G_RET_STS_SUCCESS;
576: IF (p_pol_id = OKL_API.G_MISS_NUM OR
577: p_pol_id IS NULL)
578: THEN
579: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pol_id');
572: WHERE OKL_POOLS.id = p_id;
573:
574: BEGIN
575: x_return_status := OKL_API.G_RET_STS_SUCCESS;
576: IF (p_pol_id = OKL_API.G_MISS_NUM OR
577: p_pol_id IS NULL)
578: THEN
579: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pol_id');
580: x_return_status := OKL_API.G_RET_STS_ERROR;
575: x_return_status := OKL_API.G_RET_STS_SUCCESS;
576: IF (p_pol_id = OKL_API.G_MISS_NUM OR
577: p_pol_id IS NULL)
578: THEN
579: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pol_id');
580: x_return_status := OKL_API.G_RET_STS_ERROR;
581: RAISE G_EXCEPTION_HALT_VALIDATION;
582: END IF;
583:
576: IF (p_pol_id = OKL_API.G_MISS_NUM OR
577: p_pol_id IS NULL)
578: THEN
579: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'pol_id');
580: x_return_status := OKL_API.G_RET_STS_ERROR;
581: RAISE G_EXCEPTION_HALT_VALIDATION;
582: END IF;
583:
584: OPEN okl_polv_pk_csr(p_pol_id);
586: l_row_not_found := okl_polv_pk_csr%NOTFOUND;
587: CLOSE okl_polv_pk_csr;
588:
589: IF l_row_not_found THEN
590: OKL_API.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'pol_id');
591: x_return_status := OKL_API.G_RET_STS_ERROR;
592: END IF;
593:
594: EXCEPTION
587: CLOSE okl_polv_pk_csr;
588:
589: IF l_row_not_found THEN
590: OKL_API.set_message(G_OKC_APP,G_INVALID_VALUE,G_COL_NAME_TOKEN,'pol_id');
591: x_return_status := OKL_API.G_RET_STS_ERROR;
592: END IF;
593:
594: EXCEPTION
595: WHEN G_EXCEPTION_HALT_VALIDATION THEN
594: EXCEPTION
595: WHEN G_EXCEPTION_HALT_VALIDATION THEN
596: NULL;
597: WHEN OTHERS THEN
598: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
599: ,p_msg_name => G_UNEXPECTED_ERROR
600: ,p_token1 => G_SQLCODE_TOKEN
601: ,p_token1_value => SQLCODE
602: ,p_token2 => G_SQLERRM_TOKEN
600: ,p_token1 => G_SQLCODE_TOKEN
601: ,p_token1_value => SQLCODE
602: ,p_token2 => G_SQLERRM_TOKEN
603: ,p_token2_value => SQLERRM);
604: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
605: IF okl_polv_pk_csr%ISOPEN THEN
606: CLOSE okl_polv_pk_csr;
607: END IF;
608: END validate_pol_id;
614: x_return_status OUT NOCOPY VARCHAR2,
615: p_transaction_number IN NUMBER) IS
616:
617: BEGIN
618: x_return_status := OKL_API.G_RET_STS_SUCCESS;
619:
620: IF (p_transaction_number = OKL_API.G_MISS_NUM OR
621: p_transaction_number IS NULL)
622: THEN
616:
617: BEGIN
618: x_return_status := OKL_API.G_RET_STS_SUCCESS;
619:
620: IF (p_transaction_number = OKL_API.G_MISS_NUM OR
621: p_transaction_number IS NULL)
622: THEN
623: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_number');
624: x_return_status := OKL_API.G_RET_STS_ERROR;
619:
620: IF (p_transaction_number = OKL_API.G_MISS_NUM OR
621: p_transaction_number IS NULL)
622: THEN
623: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_number');
624: x_return_status := OKL_API.G_RET_STS_ERROR;
625: RAISE G_EXCEPTION_HALT_VALIDATION;
626: END IF;
627:
620: IF (p_transaction_number = OKL_API.G_MISS_NUM OR
621: p_transaction_number IS NULL)
622: THEN
623: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_number');
624: x_return_status := OKL_API.G_RET_STS_ERROR;
625: RAISE G_EXCEPTION_HALT_VALIDATION;
626: END IF;
627:
628: EXCEPTION
628: EXCEPTION
629: WHEN G_EXCEPTION_HALT_VALIDATION THEN
630: NULL;
631: WHEN OTHERS THEN
632: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
633: ,p_msg_name => G_UNEXPECTED_ERROR
634: ,p_token1 => G_SQLCODE_TOKEN
635: ,p_token1_value => SQLCODE
636: ,p_token2 => G_SQLERRM_TOKEN
634: ,p_token1 => G_SQLCODE_TOKEN
635: ,p_token1_value => SQLCODE
636: ,p_token2 => G_SQLERRM_TOKEN
637: ,p_token2_value => SQLERRM);
638: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
639: END validate_transaction_number;
640:
641: -------------------------------------
642: -- Validate_Attributes for: Legal Entity ID --
645: x_return_status OUT NOCOPY VARCHAR2,
646: p_legal_entity_id IN NUMBER) IS
647: l_dummy VARCHAR2(1);
648: BEGIN
649: x_return_status := OKL_API.G_RET_STS_SUCCESS;
650: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
651: p_legal_entity_id IS NULL)
652: THEN
653: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
646: p_legal_entity_id IN NUMBER) IS
647: l_dummy VARCHAR2(1);
648: BEGIN
649: x_return_status := OKL_API.G_RET_STS_SUCCESS;
650: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
651: p_legal_entity_id IS NULL)
652: THEN
653: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
654: x_return_status := OKL_API.G_RET_STS_ERROR;
649: x_return_status := OKL_API.G_RET_STS_SUCCESS;
650: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
651: p_legal_entity_id IS NULL)
652: THEN
653: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
654: x_return_status := OKL_API.G_RET_STS_ERROR;
655: RAISE G_EXCEPTION_HALT_VALIDATION;
656: ELSE
657: l_dummy := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id);
650: IF (p_legal_entity_id = OKL_API.G_MISS_NUM OR
651: p_legal_entity_id IS NULL)
652: THEN
653: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'legal_entity_id');
654: x_return_status := OKL_API.G_RET_STS_ERROR;
655: RAISE G_EXCEPTION_HALT_VALIDATION;
656: ELSE
657: l_dummy := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id);
658: IF l_dummy <>1 THEN
655: RAISE G_EXCEPTION_HALT_VALIDATION;
656: ELSE
657: l_dummy := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id);
658: IF l_dummy <>1 THEN
659: Okl_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'legal_entity_id');
660: x_return_status := OKL_API.G_RET_STS_ERROR;
661: RAISE G_EXCEPTION_HALT_VALIDATION;
662: END IF;
663: END IF;
656: ELSE
657: l_dummy := OKL_LEGAL_ENTITY_UTIL.check_le_id_exists(p_legal_entity_id);
658: IF l_dummy <>1 THEN
659: Okl_Api.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'legal_entity_id');
660: x_return_status := OKL_API.G_RET_STS_ERROR;
661: RAISE G_EXCEPTION_HALT_VALIDATION;
662: END IF;
663: END IF;
664: EXCEPTION
664: EXCEPTION
665: WHEN G_EXCEPTION_HALT_VALIDATION THEN
666: NULL;
667: WHEN OTHERS THEN
668: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
669: ,p_msg_name => G_UNEXPECTED_ERROR
670: ,p_token1 => G_SQLCODE_TOKEN
671: ,p_token1_value => SQLCODE
672: ,p_token2 => G_SQLERRM_TOKEN
670: ,p_token1 => G_SQLCODE_TOKEN
671: ,p_token1_value => SQLCODE
672: ,p_token2 => G_SQLERRM_TOKEN
673: ,p_token2_value => SQLERRM);
674: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
675: END validate_legal_entity_id;
676:
677:
678: -------------------------------------
685: l_dummy VARCHAR2(1) := '?';
686: l_row_not_found BOOLEAN := FALSE;
687:
688: BEGIN
689: x_return_status := OKL_API.G_RET_STS_SUCCESS;
690:
691: IF (p_transaction_date = OKL_API.G_MISS_DATE OR
692: p_transaction_date IS NULL)
693: THEN
687:
688: BEGIN
689: x_return_status := OKL_API.G_RET_STS_SUCCESS;
690:
691: IF (p_transaction_date = OKL_API.G_MISS_DATE OR
692: p_transaction_date IS NULL)
693: THEN
694: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_date');
695: x_return_status := OKL_API.G_RET_STS_ERROR;
690:
691: IF (p_transaction_date = OKL_API.G_MISS_DATE OR
692: p_transaction_date IS NULL)
693: THEN
694: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_date');
695: x_return_status := OKL_API.G_RET_STS_ERROR;
696: RAISE G_EXCEPTION_HALT_VALIDATION;
697: END IF;
698: EXCEPTION
691: IF (p_transaction_date = OKL_API.G_MISS_DATE OR
692: p_transaction_date IS NULL)
693: THEN
694: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_date');
695: x_return_status := OKL_API.G_RET_STS_ERROR;
696: RAISE G_EXCEPTION_HALT_VALIDATION;
697: END IF;
698: EXCEPTION
699: WHEN G_EXCEPTION_HALT_VALIDATION THEN
698: EXCEPTION
699: WHEN G_EXCEPTION_HALT_VALIDATION THEN
700: NULL;
701: WHEN OTHERS THEN
702: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
703: ,p_msg_name => G_UNEXPECTED_ERROR
704: ,p_token1 => G_SQLCODE_TOKEN
705: ,p_token1_value => SQLCODE
706: ,p_token2 => G_SQLERRM_TOKEN
704: ,p_token1 => G_SQLCODE_TOKEN
705: ,p_token1_value => SQLCODE
706: ,p_token2 => G_SQLERRM_TOKEN
707: ,p_token2_value => SQLERRM);
708: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
709: END validate_transaction_date;
710:
711: -------------------------------------
712: -- Validate_Attributes for: transaction_type --
717:
718: l_found VARCHAR2(1);
719:
720: BEGIN
721: x_return_status := OKL_API.G_RET_STS_SUCCESS;
722:
723: IF (p_transaction_type = OKL_API.G_MISS_CHAR OR
724: p_transaction_type IS NULL)
725: THEN
719:
720: BEGIN
721: x_return_status := OKL_API.G_RET_STS_SUCCESS;
722:
723: IF (p_transaction_type = OKL_API.G_MISS_CHAR OR
724: p_transaction_type IS NULL)
725: THEN
726: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_type');
727: x_return_status := OKL_API.G_RET_STS_ERROR;
722:
723: IF (p_transaction_type = OKL_API.G_MISS_CHAR OR
724: p_transaction_type IS NULL)
725: THEN
726: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_type');
727: x_return_status := OKL_API.G_RET_STS_ERROR;
728: RAISE G_EXCEPTION_HALT_VALIDATION;
729: END IF;
730:
723: IF (p_transaction_type = OKL_API.G_MISS_CHAR OR
724: p_transaction_type IS NULL)
725: THEN
726: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_type');
727: x_return_status := OKL_API.G_RET_STS_ERROR;
728: RAISE G_EXCEPTION_HALT_VALIDATION;
729: END IF;
730:
731: --Check if transaction_type exists in the fnd_common_lookups or not
732: l_found := okl_accounting_util.validate_lookup_code(p_lookup_type => 'OKL_POOL_TRANSACTION_TYPE',
733: p_lookup_code => p_transaction_type);
734:
735:
736: IF (l_found <> OKL_API.G_TRUE ) THEN
737: OKL_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'transaction_type');
738: x_return_status := OKL_API.G_RET_STS_ERROR;
739: -- raise the exception as there's no matching foreign key value
740: RAISE G_EXCEPTION_HALT_VALIDATION;
733: p_lookup_code => p_transaction_type);
734:
735:
736: IF (l_found <> OKL_API.G_TRUE ) THEN
737: OKL_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'transaction_type');
738: x_return_status := OKL_API.G_RET_STS_ERROR;
739: -- raise the exception as there's no matching foreign key value
740: RAISE G_EXCEPTION_HALT_VALIDATION;
741: END IF;
734:
735:
736: IF (l_found <> OKL_API.G_TRUE ) THEN
737: OKL_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'transaction_type');
738: x_return_status := OKL_API.G_RET_STS_ERROR;
739: -- raise the exception as there's no matching foreign key value
740: RAISE G_EXCEPTION_HALT_VALIDATION;
741: END IF;
742:
743: EXCEPTION
744: WHEN G_EXCEPTION_HALT_VALIDATION THEN
745: NULL;
746: WHEN OTHERS THEN
747: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
748: ,p_msg_name => G_UNEXPECTED_ERROR
749: ,p_token1 => G_SQLCODE_TOKEN
750: ,p_token1_value => SQLCODE
751: ,p_token2 => G_SQLERRM_TOKEN
749: ,p_token1 => G_SQLCODE_TOKEN
750: ,p_token1_value => SQLCODE
751: ,p_token2 => G_SQLERRM_TOKEN
752: ,p_token2_value => SQLERRM);
753: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
754: END validate_transaction_type;
755:
756: -------------------------------------
757: -- Validate_Attributes for: transaction_reason --
762:
763: l_found VARCHAR2(1);
764:
765: BEGIN
766: x_return_status := OKL_API.G_RET_STS_SUCCESS;
767:
768: IF (p_transaction_reason = OKL_API.G_MISS_CHAR OR
769: p_transaction_reason IS NULL)
770: THEN
764:
765: BEGIN
766: x_return_status := OKL_API.G_RET_STS_SUCCESS;
767:
768: IF (p_transaction_reason = OKL_API.G_MISS_CHAR OR
769: p_transaction_reason IS NULL)
770: THEN
771: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_reason');
772: x_return_status := OKL_API.G_RET_STS_ERROR;
767:
768: IF (p_transaction_reason = OKL_API.G_MISS_CHAR OR
769: p_transaction_reason IS NULL)
770: THEN
771: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_reason');
772: x_return_status := OKL_API.G_RET_STS_ERROR;
773: RAISE G_EXCEPTION_HALT_VALIDATION;
774: END IF;
775:
768: IF (p_transaction_reason = OKL_API.G_MISS_CHAR OR
769: p_transaction_reason IS NULL)
770: THEN
771: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'transaction_reason');
772: x_return_status := OKL_API.G_RET_STS_ERROR;
773: RAISE G_EXCEPTION_HALT_VALIDATION;
774: END IF;
775:
776: --Check if transaction_reason exists in the fnd_common_lookups or not
777: l_found := okl_accounting_util.validate_lookup_code(p_lookup_type => 'OKL_POOL_TRANSACTION_REASON',
778: p_lookup_code => p_transaction_reason);
779:
780:
781: IF (l_found <> OKL_API.G_TRUE ) THEN
782: OKL_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'transaction_reason');
783: x_return_status := OKL_API.G_RET_STS_ERROR;
784: -- raise the exception as there's no matching foreign key value
785: RAISE G_EXCEPTION_HALT_VALIDATION;
778: p_lookup_code => p_transaction_reason);
779:
780:
781: IF (l_found <> OKL_API.G_TRUE ) THEN
782: OKL_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'transaction_reason');
783: x_return_status := OKL_API.G_RET_STS_ERROR;
784: -- raise the exception as there's no matching foreign key value
785: RAISE G_EXCEPTION_HALT_VALIDATION;
786: END IF;
779:
780:
781: IF (l_found <> OKL_API.G_TRUE ) THEN
782: OKL_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'transaction_reason');
783: x_return_status := OKL_API.G_RET_STS_ERROR;
784: -- raise the exception as there's no matching foreign key value
785: RAISE G_EXCEPTION_HALT_VALIDATION;
786: END IF;
787:
788: EXCEPTION
789: WHEN G_EXCEPTION_HALT_VALIDATION THEN
790: NULL;
791: WHEN OTHERS THEN
792: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
793: ,p_msg_name => G_UNEXPECTED_ERROR
794: ,p_token1 => G_SQLCODE_TOKEN
795: ,p_token1_value => SQLCODE
796: ,p_token2 => G_SQLERRM_TOKEN
794: ,p_token1 => G_SQLCODE_TOKEN
795: ,p_token1_value => SQLCODE
796: ,p_token2 => G_SQLERRM_TOKEN
797: ,p_token2_value => SQLERRM);
798: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
799: END validate_transaction_reason;
800: ---------------------------------------------------------------------------
801: -- PROCEDURE Validate_transaction_Status_Record
802: ---------------------------------------------------------------------------
807:
808: l_found VARCHAR2(1);
809:
810: BEGIN
811: x_return_status := OKL_API.G_RET_STS_SUCCESS;
812:
813: IF (p_transaction_status = OKL_API.G_MISS_CHAR OR
814: p_transaction_status IS NULL)
815: THEN
809:
810: BEGIN
811: x_return_status := OKL_API.G_RET_STS_SUCCESS;
812:
813: IF (p_transaction_status = OKL_API.G_MISS_CHAR OR
814: p_transaction_status IS NULL)
815: THEN
816: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'p_transaction_status');
817: x_return_status := OKL_API.G_RET_STS_ERROR;
812:
813: IF (p_transaction_status = OKL_API.G_MISS_CHAR OR
814: p_transaction_status IS NULL)
815: THEN
816: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'p_transaction_status');
817: x_return_status := OKL_API.G_RET_STS_ERROR;
818: RAISE G_EXCEPTION_HALT_VALIDATION;
819: END IF;
820:
813: IF (p_transaction_status = OKL_API.G_MISS_CHAR OR
814: p_transaction_status IS NULL)
815: THEN
816: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'p_transaction_status');
817: x_return_status := OKL_API.G_RET_STS_ERROR;
818: RAISE G_EXCEPTION_HALT_VALIDATION;
819: END IF;
820:
821: --Check if transaction_status exists in the fnd_common_lookups or not
822: l_found := okl_accounting_util.validate_lookup_code(p_lookup_type => 'OKL_POOL_TRANSACTION_STATUS',
823: p_lookup_code => p_transaction_status);
824:
825:
826: IF (l_found <> OKL_API.G_TRUE ) THEN
827: OKL_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'transaction_status');
828: x_return_status := OKL_API.G_RET_STS_ERROR;
829: -- raise the exception as there's no matching foreign key value
830: RAISE G_EXCEPTION_HALT_VALIDATION;
823: p_lookup_code => p_transaction_status);
824:
825:
826: IF (l_found <> OKL_API.G_TRUE ) THEN
827: OKL_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'transaction_status');
828: x_return_status := OKL_API.G_RET_STS_ERROR;
829: -- raise the exception as there's no matching foreign key value
830: RAISE G_EXCEPTION_HALT_VALIDATION;
831: END IF;
824:
825:
826: IF (l_found <> OKL_API.G_TRUE ) THEN
827: OKL_API.set_message(G_OKC_APP, G_INVALID_VALUE,G_COL_NAME_TOKEN,'transaction_status');
828: x_return_status := OKL_API.G_RET_STS_ERROR;
829: -- raise the exception as there's no matching foreign key value
830: RAISE G_EXCEPTION_HALT_VALIDATION;
831: END IF;
832:
833: EXCEPTION
834: WHEN G_EXCEPTION_HALT_VALIDATION THEN
835: NULL;
836: WHEN OTHERS THEN
837: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
838: ,p_msg_name => G_UNEXPECTED_ERROR
839: ,p_token1 => G_SQLCODE_TOKEN
840: ,p_token1_value => SQLCODE
841: ,p_token2 => G_SQLERRM_TOKEN
839: ,p_token1 => G_SQLCODE_TOKEN
840: ,p_token1_value => SQLCODE
841: ,p_token2 => G_SQLERRM_TOKEN
842: ,p_token2_value => SQLERRM);
843: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
844: END validate_transaction_status;
845: */
846: ---------------------------------------------------------------------------
847: -- PROCEDURE Validate_Unique_Pox_Record
870: AND id <> NVL(p_poxv_rec.id,-9999);
871:
872: BEGIN
873: -- initialize return status
874: x_return_status := OKL_API.G_RET_STS_SUCCESS;
875: OPEN okl_pox_uk_csr(p_poxv_rec);
876: FETCH okl_pox_uk_csr INTO l_dummy;
877: l_row_found := okl_pox_uk_csr%FOUND;
878: CLOSE okl_pox_uk_csr;
876: FETCH okl_pox_uk_csr INTO l_dummy;
877: l_row_found := okl_pox_uk_csr%FOUND;
878: CLOSE okl_pox_uk_csr;
879: IF l_row_found THEN
880: OKL_API.set_message(G_APP_NAME,G_OKL_UNQS);
881: x_return_status := OKL_API.G_RET_STS_ERROR;
882: END IF;
883:
884: EXCEPTION
877: l_row_found := okl_pox_uk_csr%FOUND;
878: CLOSE okl_pox_uk_csr;
879: IF l_row_found THEN
880: OKL_API.set_message(G_APP_NAME,G_OKL_UNQS);
881: x_return_status := OKL_API.G_RET_STS_ERROR;
882: END IF;
883:
884: EXCEPTION
885: WHEN G_EXCEPTION_HALT_VALIDATION THEN
888: NULL;
889:
890: WHEN OTHERS THEN
891: -- store SQL error message on message stack for caller
892: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
893: p_msg_name => G_UNEXPECTED_ERROR,
894: p_token1 => G_SQLCODE_TOKEN,
895: p_token1_value => SQLCODE,
896: p_token2 => G_SQLERRM_TOKEN,
895: p_token1_value => SQLCODE,
896: p_token2 => G_SQLERRM_TOKEN,
897: p_token2_value => SQLERRM);
898: -- notify caller of an UNEXPECTED error
899: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
900:
901: IF okl_pox_uk_csr%isopen THEN
902: CLOSE okl_pox_uk_csr;
903: END IF;
913: ---------------------------------------------------
914: FUNCTION Validate_Attributes (
915: p_poxv_rec IN poxv_rec_type
916: ) RETURN VARCHAR2 IS
917: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
918: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
919: BEGIN
920: -----------------------------
921: -- Column Level Validation --
914: FUNCTION Validate_Attributes (
915: p_poxv_rec IN poxv_rec_type
916: ) RETURN VARCHAR2 IS
917: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
918: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
919: BEGIN
920: -----------------------------
921: -- Column Level Validation --
922: -----------------------------
923: -- ***
924: -- id
925: -- ***
926: validate_id(x_return_status, p_poxv_rec.id);
927: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
928: l_return_status := x_return_status;
929: RAISE G_EXCEPTION_HALT_VALIDATION;
930: END IF;
931:
932: -- ***
933: -- object_version_number
934: -- ***
935: validate_object_version_number(x_return_status, p_poxv_rec.object_version_number);
936: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
937: l_return_status := x_return_status;
938: RAISE G_EXCEPTION_HALT_VALIDATION;
939: END IF;
940:
941: -- ***
942: -- pol_id
943: -- ***
944: validate_pol_id(x_return_status, p_poxv_rec.pol_id);
945: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
946: l_return_status := x_return_status;
947: RAISE G_EXCEPTION_HALT_VALIDATION;
948: END IF;
949:
950: -- ***
951: -- transaction_number
952: -- ***
953: validate_transaction_number(x_return_status, p_poxv_rec.transaction_number);
954: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
955: l_return_status := x_return_status;
956: RAISE G_EXCEPTION_HALT_VALIDATION;
957: END IF;
958:
959: -- ***
960: -- transaction_date
961: -- ***
962: validate_transaction_date(x_return_status, p_poxv_rec.transaction_date);
963: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
964: l_return_status := x_return_status;
965: RAISE G_EXCEPTION_HALT_VALIDATION;
966: END IF;
967:
968: -- ***
969: -- transaction_type
970: -- ***
971: validate_transaction_type(x_return_status, p_poxv_rec.transaction_type);
972: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
973: l_return_status := x_return_status;
974: RAISE G_EXCEPTION_HALT_VALIDATION;
975: END IF;
976:
977: -- ***
978: -- transaction_reason
979: -- ***
980: validate_transaction_reason(x_return_status, p_poxv_rec.transaction_reason);
981: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
982: l_return_status := x_return_status;
983: RAISE G_EXCEPTION_HALT_VALIDATION;
984: END IF;
985:
986: -- ***
987: -- legal_entity_id
988: -- ***
989: validate_legal_entity_id(x_return_status, p_poxv_rec.legal_entity_id);
990: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
991: l_return_status := x_return_status;
992: RAISE G_EXCEPTION_HALT_VALIDATION;
993: END IF;
994:
996: EXCEPTION
997: WHEN G_EXCEPTION_HALT_VALIDATION THEN
998: RETURN(l_return_status);
999: WHEN OTHERS THEN
1000: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1001: ,p_msg_name => G_UNEXPECTED_ERROR
1002: ,p_token1 => G_SQLCODE_TOKEN
1003: ,p_token1_value => SQLCODE
1004: ,p_token2 => G_SQLERRM_TOKEN
1002: ,p_token1 => G_SQLCODE_TOKEN
1003: ,p_token1_value => SQLCODE
1004: ,p_token2 => G_SQLERRM_TOKEN
1005: ,p_token2_value => SQLERRM);
1006: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1007: RETURN(l_return_status);
1008: END Validate_Attributes;
1009: ---------------------------------------------------------------------------
1010: -- PROCEDURE Validate_Record
1015: FUNCTION Validate_Record (
1016: p_poxv_rec IN poxv_rec_type,
1017: p_db_poxv_rec IN poxv_rec_type
1018: ) RETURN VARCHAR2 IS
1019: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1020: ------------------------------------
1021: -- FUNCTION validate_foreign_keys --
1022: ------------------------------------
1023: FUNCTION validate_foreign_keys (
1024: p_poxv_rec IN poxv_rec_type,
1025: p_db_poxv_rec IN poxv_rec_type
1026: ) RETURN VARCHAR2 IS
1027: item_not_found_error EXCEPTION;
1028: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1029: l_row_notfound BOOLEAN := TRUE;
1030: BEGIN
1031: RETURN (l_return_status);
1032: EXCEPTION
1030: BEGIN
1031: RETURN (l_return_status);
1032: EXCEPTION
1033: WHEN item_not_found_error THEN
1034: l_return_status := OKL_API.G_RET_STS_ERROR;
1035: RETURN (l_return_status);
1036: END validate_foreign_keys;
1037: BEGIN
1038: l_return_status := validate_foreign_keys(p_poxv_rec, p_db_poxv_rec);
1042: END Validate_Record;
1043: FUNCTION Validate_Record (
1044: p_poxv_rec IN poxv_rec_type
1045: ) RETURN VARCHAR2 IS
1046: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1047: l_db_poxv_rec poxv_rec_type := get_rec(p_poxv_rec);
1048: BEGIN
1049: l_return_status := Validate_Record(p_poxv_rec => p_poxv_rec,
1050: p_db_poxv_rec => l_db_poxv_rec);
1155: -- validate_row for:OKL_POOL_TRANSACTIONS_V --
1156: --------------------------------------------
1157: PROCEDURE validate_row(
1158: p_api_version IN NUMBER,
1159: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1160: x_return_status OUT NOCOPY VARCHAR2,
1161: x_msg_count OUT NOCOPY NUMBER,
1162: x_msg_data OUT NOCOPY VARCHAR2,
1163: p_poxv_rec IN poxv_rec_type) IS
1163: p_poxv_rec IN poxv_rec_type) IS
1164:
1165: l_api_version CONSTANT NUMBER := 1;
1166: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1167: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1168: l_poxv_rec poxv_rec_type := p_poxv_rec;
1169: l_pox_rec pox_rec_type;
1170: l_pox_rec pox_rec_type;
1171: BEGIN
1168: l_poxv_rec poxv_rec_type := p_poxv_rec;
1169: l_pox_rec pox_rec_type;
1170: l_pox_rec pox_rec_type;
1171: BEGIN
1172: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1173: G_PKG_NAME,
1174: p_init_msg_list,
1175: l_api_version,
1176: p_api_version,
1175: l_api_version,
1176: p_api_version,
1177: '_PVT',
1178: x_return_status);
1179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: RAISE OKL_API.G_EXCEPTION_ERROR;
1183: END IF;
1176: p_api_version,
1177: '_PVT',
1178: x_return_status);
1179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: RAISE OKL_API.G_EXCEPTION_ERROR;
1183: END IF;
1184: --- Validate all non-missing attributes (Item Level Validation)
1177: '_PVT',
1178: x_return_status);
1179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: RAISE OKL_API.G_EXCEPTION_ERROR;
1183: END IF;
1184: --- Validate all non-missing attributes (Item Level Validation)
1185: l_return_status := Validate_Attributes(l_poxv_rec);
1178: x_return_status);
1179: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: RAISE OKL_API.G_EXCEPTION_ERROR;
1183: END IF;
1184: --- Validate all non-missing attributes (Item Level Validation)
1185: l_return_status := Validate_Attributes(l_poxv_rec);
1186: --- If any errors happen abort API
1183: END IF;
1184: --- Validate all non-missing attributes (Item Level Validation)
1185: l_return_status := Validate_Attributes(l_poxv_rec);
1186: --- If any errors happen abort API
1187: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1190: RAISE OKL_API.G_EXCEPTION_ERROR;
1191: END IF;
1184: --- Validate all non-missing attributes (Item Level Validation)
1185: l_return_status := Validate_Attributes(l_poxv_rec);
1186: --- If any errors happen abort API
1187: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1190: RAISE OKL_API.G_EXCEPTION_ERROR;
1191: END IF;
1192: l_return_status := Validate_Record(l_poxv_rec);
1185: l_return_status := Validate_Attributes(l_poxv_rec);
1186: --- If any errors happen abort API
1187: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1190: RAISE OKL_API.G_EXCEPTION_ERROR;
1191: END IF;
1192: l_return_status := Validate_Record(l_poxv_rec);
1193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1186: --- If any errors happen abort API
1187: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1188: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1190: RAISE OKL_API.G_EXCEPTION_ERROR;
1191: END IF;
1192: l_return_status := Validate_Record(l_poxv_rec);
1193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1189: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1190: RAISE OKL_API.G_EXCEPTION_ERROR;
1191: END IF;
1192: l_return_status := Validate_Record(l_poxv_rec);
1193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1196: RAISE OKL_API.G_EXCEPTION_ERROR;
1197: END IF;
1190: RAISE OKL_API.G_EXCEPTION_ERROR;
1191: END IF;
1192: l_return_status := Validate_Record(l_poxv_rec);
1193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1196: RAISE OKL_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: x_return_status := l_return_status;
1191: END IF;
1192: l_return_status := Validate_Record(l_poxv_rec);
1193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1196: RAISE OKL_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: x_return_status := l_return_status;
1199: EXCEPTION
1192: l_return_status := Validate_Record(l_poxv_rec);
1193: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1194: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1195: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1196: RAISE OKL_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: x_return_status := l_return_status;
1199: EXCEPTION
1200: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1196: RAISE OKL_API.G_EXCEPTION_ERROR;
1197: END IF;
1198: x_return_status := l_return_status;
1199: EXCEPTION
1200: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1201: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1202: (
1203: l_api_name,
1204: G_PKG_NAME,
1197: END IF;
1198: x_return_status := l_return_status;
1199: EXCEPTION
1200: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1201: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1202: (
1203: l_api_name,
1204: G_PKG_NAME,
1205: 'OKL_API.G_RET_STS_ERROR',
1201: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1202: (
1203: l_api_name,
1204: G_PKG_NAME,
1205: 'OKL_API.G_RET_STS_ERROR',
1206: x_msg_count,
1207: x_msg_data,
1208: '_PVT'
1209: );
1206: x_msg_count,
1207: x_msg_data,
1208: '_PVT'
1209: );
1210: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1211: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1212: (
1213: l_api_name,
1214: G_PKG_NAME,
1207: x_msg_data,
1208: '_PVT'
1209: );
1210: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1211: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1212: (
1213: l_api_name,
1214: G_PKG_NAME,
1215: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1211: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1212: (
1213: l_api_name,
1214: G_PKG_NAME,
1215: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1216: x_msg_count,
1217: x_msg_data,
1218: '_PVT'
1219: );
1217: x_msg_data,
1218: '_PVT'
1219: );
1220: WHEN OTHERS THEN
1221: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1222: (
1223: l_api_name,
1224: G_PKG_NAME,
1225: 'OTHERS',
1232: -- PL/SQL TBL validate_row for:OKL_POOL_TRANSACTIONS_V --
1233: -------------------------------------------------------
1234: PROCEDURE validate_row(
1235: p_api_version IN NUMBER,
1236: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1237: x_return_status OUT NOCOPY VARCHAR2,
1238: x_msg_count OUT NOCOPY NUMBER,
1239: x_msg_data OUT NOCOPY VARCHAR2,
1240: p_poxv_tbl IN poxv_tbl_type,
1237: x_return_status OUT NOCOPY VARCHAR2,
1238: x_msg_count OUT NOCOPY NUMBER,
1239: x_msg_data OUT NOCOPY VARCHAR2,
1240: p_poxv_tbl IN poxv_tbl_type,
1241: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1242:
1243: l_api_version CONSTANT NUMBER := 1;
1244: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1245: i NUMBER := 0;
1243: l_api_version CONSTANT NUMBER := 1;
1244: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1245: i NUMBER := 0;
1246: BEGIN
1247: OKL_API.init_msg_list(p_init_msg_list);
1248: -- Make sure PL/SQL table has records in it before passing
1249: IF (p_poxv_tbl.COUNT > 0) THEN
1250: i := p_poxv_tbl.FIRST;
1251: LOOP
1249: IF (p_poxv_tbl.COUNT > 0) THEN
1250: i := p_poxv_tbl.FIRST;
1251: LOOP
1252: DECLARE
1253: l_error_rec OKL_API.ERROR_REC_TYPE;
1254: BEGIN
1255: l_error_rec.api_name := l_api_name;
1256: l_error_rec.api_package := G_PKG_NAME;
1257: l_error_rec.idx := i;
1256: l_error_rec.api_package := G_PKG_NAME;
1257: l_error_rec.idx := i;
1258: validate_row (
1259: p_api_version => p_api_version,
1260: p_init_msg_list => OKL_API.G_FALSE,
1261: x_return_status => l_error_rec.error_type,
1262: x_msg_count => l_error_rec.msg_count,
1263: x_msg_data => l_error_rec.msg_data,
1264: p_poxv_rec => p_poxv_tbl(i));
1261: x_return_status => l_error_rec.error_type,
1262: x_msg_count => l_error_rec.msg_count,
1263: x_msg_data => l_error_rec.msg_data,
1264: p_poxv_rec => p_poxv_tbl(i));
1265: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1266: l_error_rec.SQLCODE := SQLCODE;
1267: load_error_tbl(l_error_rec, px_error_tbl);
1268: ELSE
1269: x_msg_count := l_error_rec.msg_count;
1269: x_msg_count := l_error_rec.msg_count;
1270: x_msg_data := l_error_rec.msg_data;
1271: END IF;
1272: EXCEPTION
1273: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1274: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1275: l_error_rec.SQLCODE := SQLCODE;
1276: load_error_tbl(l_error_rec, px_error_tbl);
1277: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1270: x_msg_data := l_error_rec.msg_data;
1271: END IF;
1272: EXCEPTION
1273: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1274: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1275: l_error_rec.SQLCODE := SQLCODE;
1276: load_error_tbl(l_error_rec, px_error_tbl);
1277: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1278: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1273: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1274: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1275: l_error_rec.SQLCODE := SQLCODE;
1276: load_error_tbl(l_error_rec, px_error_tbl);
1277: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1278: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1279: l_error_rec.SQLCODE := SQLCODE;
1280: load_error_tbl(l_error_rec, px_error_tbl);
1281: WHEN OTHERS THEN
1274: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1275: l_error_rec.SQLCODE := SQLCODE;
1276: load_error_tbl(l_error_rec, px_error_tbl);
1277: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1278: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1279: l_error_rec.SQLCODE := SQLCODE;
1280: load_error_tbl(l_error_rec, px_error_tbl);
1281: WHEN OTHERS THEN
1282: l_error_rec.error_type := 'OTHERS';
1289: END IF;
1290: -- Loop through the error_tbl to find the error with the highest severity
1291: -- and return it.
1292: x_return_status := find_highest_exception(px_error_tbl);
1293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1294: EXCEPTION
1295: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1297: (
1291: -- and return it.
1292: x_return_status := find_highest_exception(px_error_tbl);
1293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1294: EXCEPTION
1295: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1297: (
1298: l_api_name,
1299: G_PKG_NAME,
1292: x_return_status := find_highest_exception(px_error_tbl);
1293: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1294: EXCEPTION
1295: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1297: (
1298: l_api_name,
1299: G_PKG_NAME,
1300: 'OKL_API.G_RET_STS_ERROR',
1296: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1297: (
1298: l_api_name,
1299: G_PKG_NAME,
1300: 'OKL_API.G_RET_STS_ERROR',
1301: x_msg_count,
1302: x_msg_data,
1303: '_PVT'
1304: );
1301: x_msg_count,
1302: x_msg_data,
1303: '_PVT'
1304: );
1305: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1306: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1307: (
1308: l_api_name,
1309: G_PKG_NAME,
1302: x_msg_data,
1303: '_PVT'
1304: );
1305: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1306: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1307: (
1308: l_api_name,
1309: G_PKG_NAME,
1310: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1306: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1307: (
1308: l_api_name,
1309: G_PKG_NAME,
1310: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1311: x_msg_count,
1312: x_msg_data,
1313: '_PVT'
1314: );
1312: x_msg_data,
1313: '_PVT'
1314: );
1315: WHEN OTHERS THEN
1316: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1317: (
1318: l_api_name,
1319: G_PKG_NAME,
1320: 'OTHERS',
1328: -- PL/SQL TBL validate_row for:OKL_POOL_TRANSACTIONS_V --
1329: -------------------------------------------------------
1330: PROCEDURE validate_row(
1331: p_api_version IN NUMBER,
1332: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1333: x_return_status OUT NOCOPY VARCHAR2,
1334: x_msg_count OUT NOCOPY NUMBER,
1335: x_msg_data OUT NOCOPY VARCHAR2,
1336: p_poxv_tbl IN poxv_tbl_type) IS
1336: p_poxv_tbl IN poxv_tbl_type) IS
1337:
1338: l_api_version CONSTANT NUMBER := 1;
1339: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1340: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1341: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1342: BEGIN
1343: OKL_API.init_msg_list(p_init_msg_list);
1344: -- Make sure PL/SQL table has records in it before passing
1337:
1338: l_api_version CONSTANT NUMBER := 1;
1339: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1340: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1341: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1342: BEGIN
1343: OKL_API.init_msg_list(p_init_msg_list);
1344: -- Make sure PL/SQL table has records in it before passing
1345: IF (p_poxv_tbl.COUNT > 0) THEN
1339: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1340: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1341: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1342: BEGIN
1343: OKL_API.init_msg_list(p_init_msg_list);
1344: -- Make sure PL/SQL table has records in it before passing
1345: IF (p_poxv_tbl.COUNT > 0) THEN
1346: validate_row (
1347: p_api_version => p_api_version,
1344: -- Make sure PL/SQL table has records in it before passing
1345: IF (p_poxv_tbl.COUNT > 0) THEN
1346: validate_row (
1347: p_api_version => p_api_version,
1348: p_init_msg_list => OKL_API.G_FALSE,
1349: x_return_status => x_return_status,
1350: x_msg_count => x_msg_count,
1351: x_msg_data => x_msg_data,
1352: p_poxv_tbl => p_poxv_tbl,
1351: x_msg_data => x_msg_data,
1352: p_poxv_tbl => p_poxv_tbl,
1353: px_error_tbl => l_error_tbl);
1354: END IF;
1355: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1356: EXCEPTION
1357: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1358: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1359: (
1353: px_error_tbl => l_error_tbl);
1354: END IF;
1355: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1356: EXCEPTION
1357: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1358: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1359: (
1360: l_api_name,
1361: G_PKG_NAME,
1354: END IF;
1355: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1356: EXCEPTION
1357: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1358: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1359: (
1360: l_api_name,
1361: G_PKG_NAME,
1362: 'OKL_API.G_RET_STS_ERROR',
1358: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1359: (
1360: l_api_name,
1361: G_PKG_NAME,
1362: 'OKL_API.G_RET_STS_ERROR',
1363: x_msg_count,
1364: x_msg_data,
1365: '_PVT'
1366: );
1363: x_msg_count,
1364: x_msg_data,
1365: '_PVT'
1366: );
1367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1368: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1364: x_msg_data,
1365: '_PVT'
1366: );
1367: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1368: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1372: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1368: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1369: (
1370: l_api_name,
1371: G_PKG_NAME,
1372: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1373: x_msg_count,
1374: x_msg_data,
1375: '_PVT'
1376: );
1374: x_msg_data,
1375: '_PVT'
1376: );
1377: WHEN OTHERS THEN
1378: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1379: (
1380: l_api_name,
1381: G_PKG_NAME,
1382: 'OTHERS',
1392: ----------------------------------------
1393: -- insert_row for:okl_pool_transactions --
1394: ----------------------------------------
1395: PROCEDURE insert_row(
1396: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1397: x_return_status OUT NOCOPY VARCHAR2,
1398: x_msg_count OUT NOCOPY NUMBER,
1399: x_msg_data OUT NOCOPY VARCHAR2,
1400: p_pox_rec IN pox_rec_type,
1401: x_pox_rec OUT NOCOPY pox_rec_type) IS
1402:
1403: l_api_version CONSTANT NUMBER := 1;
1404: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1405: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1406: l_pox_rec pox_rec_type := p_pox_rec;
1407: l_def_pox_rec pox_rec_type;
1408: --------------------------------------------
1409: -- Set_Attributes for:okl_pool_transactions --
1411: FUNCTION Set_Attributes (
1412: p_pox_rec IN pox_rec_type,
1413: x_pox_rec OUT NOCOPY pox_rec_type
1414: ) RETURN VARCHAR2 IS
1415: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1416: BEGIN
1417: x_pox_rec := p_pox_rec;
1418: RETURN(l_return_status);
1419: END Set_Attributes;
1417: x_pox_rec := p_pox_rec;
1418: RETURN(l_return_status);
1419: END Set_Attributes;
1420: BEGIN
1421: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1422: p_init_msg_list,
1423: '_PVT',
1424: x_return_status);
1425: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1421: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1422: p_init_msg_list,
1423: '_PVT',
1424: x_return_status);
1425: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1428: RAISE OKL_API.G_EXCEPTION_ERROR;
1429: END IF;
1422: p_init_msg_list,
1423: '_PVT',
1424: x_return_status);
1425: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1428: RAISE OKL_API.G_EXCEPTION_ERROR;
1429: END IF;
1430: --- Setting item atributes
1423: '_PVT',
1424: x_return_status);
1425: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1428: RAISE OKL_API.G_EXCEPTION_ERROR;
1429: END IF;
1430: --- Setting item atributes
1431: l_return_status := Set_Attributes(
1424: x_return_status);
1425: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1426: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1427: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1428: RAISE OKL_API.G_EXCEPTION_ERROR;
1429: END IF;
1430: --- Setting item atributes
1431: l_return_status := Set_Attributes(
1432: p_pox_rec, -- IN
1431: l_return_status := Set_Attributes(
1432: p_pox_rec, -- IN
1433: l_pox_rec); -- OUT
1434: --- If any errors happen abort API
1435: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1438: RAISE OKL_API.G_EXCEPTION_ERROR;
1439: END IF;
1432: p_pox_rec, -- IN
1433: l_pox_rec); -- OUT
1434: --- If any errors happen abort API
1435: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1438: RAISE OKL_API.G_EXCEPTION_ERROR;
1439: END IF;
1440: INSERT INTO okl_pool_transactions(
1433: l_pox_rec); -- OUT
1434: --- If any errors happen abort API
1435: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1438: RAISE OKL_API.G_EXCEPTION_ERROR;
1439: END IF;
1440: INSERT INTO okl_pool_transactions(
1441: ID,
1434: --- If any errors happen abort API
1435: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1436: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1437: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1438: RAISE OKL_API.G_EXCEPTION_ERROR;
1439: END IF;
1440: INSERT INTO okl_pool_transactions(
1441: ID,
1442: OBJECT_VERSION_NUMBER,
1521: l_pox_rec.transaction_status);
1522: -- Set OUT values
1523: x_pox_rec := l_pox_rec;
1524: x_return_status := l_return_status;
1525: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1526: EXCEPTION
1527: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1528: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1529: (
1523: x_pox_rec := l_pox_rec;
1524: x_return_status := l_return_status;
1525: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1526: EXCEPTION
1527: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1528: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1529: (
1530: l_api_name,
1531: G_PKG_NAME,
1524: x_return_status := l_return_status;
1525: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1526: EXCEPTION
1527: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1528: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1529: (
1530: l_api_name,
1531: G_PKG_NAME,
1532: 'OKL_API.G_RET_STS_ERROR',
1528: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1529: (
1530: l_api_name,
1531: G_PKG_NAME,
1532: 'OKL_API.G_RET_STS_ERROR',
1533: x_msg_count,
1534: x_msg_data,
1535: '_PVT'
1536: );
1533: x_msg_count,
1534: x_msg_data,
1535: '_PVT'
1536: );
1537: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1538: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1539: (
1540: l_api_name,
1541: G_PKG_NAME,
1534: x_msg_data,
1535: '_PVT'
1536: );
1537: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1538: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1539: (
1540: l_api_name,
1541: G_PKG_NAME,
1542: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1538: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1539: (
1540: l_api_name,
1541: G_PKG_NAME,
1542: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1543: x_msg_count,
1544: x_msg_data,
1545: '_PVT'
1546: );
1544: x_msg_data,
1545: '_PVT'
1546: );
1547: WHEN OTHERS THEN
1548: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1549: (
1550: l_api_name,
1551: G_PKG_NAME,
1552: 'OTHERS',
1559: -- insert_row for :OKL_POOL_TRANSACTIONS_V --
1560: -------------------------------------------
1561: PROCEDURE insert_row(
1562: p_api_version IN NUMBER,
1563: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1564: x_return_status OUT NOCOPY VARCHAR2,
1565: x_msg_count OUT NOCOPY NUMBER,
1566: x_msg_data OUT NOCOPY VARCHAR2,
1567: p_poxv_rec IN poxv_rec_type,
1568: x_poxv_rec OUT NOCOPY poxv_rec_type) IS
1569:
1570: l_api_version CONSTANT NUMBER := 1;
1571: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1572: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1573: l_poxv_rec poxv_rec_type := p_poxv_rec;
1574: l_def_poxv_rec poxv_rec_type;
1575: l_pox_rec pox_rec_type;
1576: lx_pox_rec pox_rec_type;
1595: FUNCTION Set_Attributes (
1596: p_poxv_rec IN poxv_rec_type,
1597: x_poxv_rec OUT NOCOPY poxv_rec_type
1598: ) RETURN VARCHAR2 IS
1599: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1600: BEGIN
1601: x_poxv_rec := p_poxv_rec;
1602: x_poxv_rec.OBJECT_VERSION_NUMBER := 1;
1603:
1613: FROM DUAL;
1614: RETURN(l_return_status);
1615: END Set_Attributes;
1616: BEGIN
1617: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1618: G_PKG_NAME,
1619: p_init_msg_list,
1620: l_api_version,
1621: p_api_version,
1620: l_api_version,
1621: p_api_version,
1622: '_PVT',
1623: x_return_status);
1624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_ERROR;
1628: END IF;
1621: p_api_version,
1622: '_PVT',
1623: x_return_status);
1624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_ERROR;
1628: END IF;
1629: l_poxv_rec := null_out_defaults(p_poxv_rec);
1622: '_PVT',
1623: x_return_status);
1624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_ERROR;
1628: END IF;
1629: l_poxv_rec := null_out_defaults(p_poxv_rec);
1630: -- Set primary key value
1623: x_return_status);
1624: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1625: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1626: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1627: RAISE OKL_API.G_EXCEPTION_ERROR;
1628: END IF;
1629: l_poxv_rec := null_out_defaults(p_poxv_rec);
1630: -- Set primary key value
1631: l_poxv_rec.ID := get_seq_id;
1634: l_return_Status := Set_Attributes(
1635: l_poxv_rec, -- IN
1636: l_def_poxv_rec); -- OUT
1637: --- If any errors happen abort API
1638: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1641: RAISE OKL_API.G_EXCEPTION_ERROR;
1642: END IF;
1635: l_poxv_rec, -- IN
1636: l_def_poxv_rec); -- OUT
1637: --- If any errors happen abort API
1638: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1641: RAISE OKL_API.G_EXCEPTION_ERROR;
1642: END IF;
1643: l_def_poxv_rec := fill_who_columns(l_def_poxv_rec);
1636: l_def_poxv_rec); -- OUT
1637: --- If any errors happen abort API
1638: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1641: RAISE OKL_API.G_EXCEPTION_ERROR;
1642: END IF;
1643: l_def_poxv_rec := fill_who_columns(l_def_poxv_rec);
1644: --- Validate all non-missing attributes (Item Level Validation)
1637: --- If any errors happen abort API
1638: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1641: RAISE OKL_API.G_EXCEPTION_ERROR;
1642: END IF;
1643: l_def_poxv_rec := fill_who_columns(l_def_poxv_rec);
1644: --- Validate all non-missing attributes (Item Level Validation)
1645: l_return_status := Validate_Attributes(l_def_poxv_rec);
1643: l_def_poxv_rec := fill_who_columns(l_def_poxv_rec);
1644: --- Validate all non-missing attributes (Item Level Validation)
1645: l_return_status := Validate_Attributes(l_def_poxv_rec);
1646: --- If any errors happen abort API
1647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1649: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1650: RAISE OKL_API.G_EXCEPTION_ERROR;
1651: END IF;
1644: --- Validate all non-missing attributes (Item Level Validation)
1645: l_return_status := Validate_Attributes(l_def_poxv_rec);
1646: --- If any errors happen abort API
1647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1649: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1650: RAISE OKL_API.G_EXCEPTION_ERROR;
1651: END IF;
1652: l_return_status := Validate_Record(l_def_poxv_rec);
1645: l_return_status := Validate_Attributes(l_def_poxv_rec);
1646: --- If any errors happen abort API
1647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1649: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1650: RAISE OKL_API.G_EXCEPTION_ERROR;
1651: END IF;
1652: l_return_status := Validate_Record(l_def_poxv_rec);
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1646: --- If any errors happen abort API
1647: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1648: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1649: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1650: RAISE OKL_API.G_EXCEPTION_ERROR;
1651: END IF;
1652: l_return_status := Validate_Record(l_def_poxv_rec);
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1649: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1650: RAISE OKL_API.G_EXCEPTION_ERROR;
1651: END IF;
1652: l_return_status := Validate_Record(l_def_poxv_rec);
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1650: RAISE OKL_API.G_EXCEPTION_ERROR;
1651: END IF;
1652: l_return_status := Validate_Record(l_def_poxv_rec);
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: -----------------------------------------
1651: END IF;
1652: l_return_status := Validate_Record(l_def_poxv_rec);
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: -----------------------------------------
1659: -- Move VIEW record to "Child" records --
1652: l_return_status := Validate_Record(l_def_poxv_rec);
1653: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1655: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1656: RAISE OKL_API.G_EXCEPTION_ERROR;
1657: END IF;
1658: -----------------------------------------
1659: -- Move VIEW record to "Child" records --
1660: -----------------------------------------
1669: x_msg_data,
1670: l_pox_rec,
1671: lx_pox_rec
1672: );
1673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1670: l_pox_rec,
1671: lx_pox_rec
1672: );
1673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: migrate(lx_pox_rec, l_def_poxv_rec);
1671: lx_pox_rec
1672: );
1673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: migrate(lx_pox_rec, l_def_poxv_rec);
1679: -- Set OUT values
1672: );
1673: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1674: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1675: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1676: RAISE OKL_API.G_EXCEPTION_ERROR;
1677: END IF;
1678: migrate(lx_pox_rec, l_def_poxv_rec);
1679: -- Set OUT values
1680: x_poxv_rec := l_def_poxv_rec;
1678: migrate(lx_pox_rec, l_def_poxv_rec);
1679: -- Set OUT values
1680: x_poxv_rec := l_def_poxv_rec;
1681: x_return_status := l_return_status;
1682: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1683: EXCEPTION
1684: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1685: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1686: (
1680: x_poxv_rec := l_def_poxv_rec;
1681: x_return_status := l_return_status;
1682: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1683: EXCEPTION
1684: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1685: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1686: (
1687: l_api_name,
1688: G_PKG_NAME,
1681: x_return_status := l_return_status;
1682: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1683: EXCEPTION
1684: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1685: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1686: (
1687: l_api_name,
1688: G_PKG_NAME,
1689: 'OKL_API.G_RET_STS_ERROR',
1685: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1686: (
1687: l_api_name,
1688: G_PKG_NAME,
1689: 'OKL_API.G_RET_STS_ERROR',
1690: x_msg_count,
1691: x_msg_data,
1692: '_PVT'
1693: );
1690: x_msg_count,
1691: x_msg_data,
1692: '_PVT'
1693: );
1694: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1695: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1691: x_msg_data,
1692: '_PVT'
1693: );
1694: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1695: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1695: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1696: (
1697: l_api_name,
1698: G_PKG_NAME,
1699: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1700: x_msg_count,
1701: x_msg_data,
1702: '_PVT'
1703: );
1701: x_msg_data,
1702: '_PVT'
1703: );
1704: WHEN OTHERS THEN
1705: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1706: (
1707: l_api_name,
1708: G_PKG_NAME,
1709: 'OTHERS',
1716: -- PL/SQL TBL insert_row for:poxv_TBL --
1717: ----------------------------------------
1718: PROCEDURE insert_row(
1719: p_api_version IN NUMBER,
1720: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1721: x_return_status OUT NOCOPY VARCHAR2,
1722: x_msg_count OUT NOCOPY NUMBER,
1723: x_msg_data OUT NOCOPY VARCHAR2,
1724: p_poxv_tbl IN poxv_tbl_type,
1722: x_msg_count OUT NOCOPY NUMBER,
1723: x_msg_data OUT NOCOPY VARCHAR2,
1724: p_poxv_tbl IN poxv_tbl_type,
1725: x_poxv_tbl OUT NOCOPY poxv_tbl_type,
1726: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1727:
1728: l_api_version CONSTANT NUMBER := 1;
1729: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1730: i NUMBER := 0;
1728: l_api_version CONSTANT NUMBER := 1;
1729: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1730: i NUMBER := 0;
1731: BEGIN
1732: OKL_API.init_msg_list(p_init_msg_list);
1733: -- Make sure PL/SQL table has records in it before passing
1734: IF (p_poxv_tbl.COUNT > 0) THEN
1735: i := p_poxv_tbl.FIRST;
1736: LOOP
1734: IF (p_poxv_tbl.COUNT > 0) THEN
1735: i := p_poxv_tbl.FIRST;
1736: LOOP
1737: DECLARE
1738: l_error_rec OKL_API.ERROR_REC_TYPE;
1739: BEGIN
1740: l_error_rec.api_name := l_api_name;
1741: l_error_rec.api_package := G_PKG_NAME;
1742: l_error_rec.idx := i;
1741: l_error_rec.api_package := G_PKG_NAME;
1742: l_error_rec.idx := i;
1743: insert_row (
1744: p_api_version => p_api_version,
1745: p_init_msg_list => OKL_API.G_FALSE,
1746: x_return_status => l_error_rec.error_type,
1747: x_msg_count => l_error_rec.msg_count,
1748: x_msg_data => l_error_rec.msg_data,
1749: p_poxv_rec => p_poxv_tbl(i),
1747: x_msg_count => l_error_rec.msg_count,
1748: x_msg_data => l_error_rec.msg_data,
1749: p_poxv_rec => p_poxv_tbl(i),
1750: x_poxv_rec => x_poxv_tbl(i));
1751: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1752: l_error_rec.SQLCODE := SQLCODE;
1753: load_error_tbl(l_error_rec, px_error_tbl);
1754: ELSE
1755: x_msg_count := l_error_rec.msg_count;
1755: x_msg_count := l_error_rec.msg_count;
1756: x_msg_data := l_error_rec.msg_data;
1757: END IF;
1758: EXCEPTION
1759: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1760: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1761: l_error_rec.SQLCODE := SQLCODE;
1762: load_error_tbl(l_error_rec, px_error_tbl);
1763: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1756: x_msg_data := l_error_rec.msg_data;
1757: END IF;
1758: EXCEPTION
1759: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1760: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1761: l_error_rec.SQLCODE := SQLCODE;
1762: load_error_tbl(l_error_rec, px_error_tbl);
1763: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1764: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1759: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1760: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1761: l_error_rec.SQLCODE := SQLCODE;
1762: load_error_tbl(l_error_rec, px_error_tbl);
1763: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1764: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1765: l_error_rec.SQLCODE := SQLCODE;
1766: load_error_tbl(l_error_rec, px_error_tbl);
1767: WHEN OTHERS THEN
1760: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1761: l_error_rec.SQLCODE := SQLCODE;
1762: load_error_tbl(l_error_rec, px_error_tbl);
1763: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1764: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1765: l_error_rec.SQLCODE := SQLCODE;
1766: load_error_tbl(l_error_rec, px_error_tbl);
1767: WHEN OTHERS THEN
1768: l_error_rec.error_type := 'OTHERS';
1775: END IF;
1776: -- Loop through the error_tbl to find the error with the highest severity
1777: -- and return it.
1778: x_return_status := find_highest_exception(px_error_tbl);
1779: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1780: EXCEPTION
1781: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1782: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1783: (
1777: -- and return it.
1778: x_return_status := find_highest_exception(px_error_tbl);
1779: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1780: EXCEPTION
1781: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1782: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1783: (
1784: l_api_name,
1785: G_PKG_NAME,
1778: x_return_status := find_highest_exception(px_error_tbl);
1779: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1780: EXCEPTION
1781: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1782: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1783: (
1784: l_api_name,
1785: G_PKG_NAME,
1786: 'OKL_API.G_RET_STS_ERROR',
1782: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1783: (
1784: l_api_name,
1785: G_PKG_NAME,
1786: 'OKL_API.G_RET_STS_ERROR',
1787: x_msg_count,
1788: x_msg_data,
1789: '_PVT'
1790: );
1787: x_msg_count,
1788: x_msg_data,
1789: '_PVT'
1790: );
1791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1792: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1793: (
1794: l_api_name,
1795: G_PKG_NAME,
1788: x_msg_data,
1789: '_PVT'
1790: );
1791: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1792: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1793: (
1794: l_api_name,
1795: G_PKG_NAME,
1796: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1792: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1793: (
1794: l_api_name,
1795: G_PKG_NAME,
1796: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1797: x_msg_count,
1798: x_msg_data,
1799: '_PVT'
1800: );
1798: x_msg_data,
1799: '_PVT'
1800: );
1801: WHEN OTHERS THEN
1802: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1803: (
1804: l_api_name,
1805: G_PKG_NAME,
1806: 'OTHERS',
1814: -- PL/SQL TBL insert_row for:poxv_TBL --
1815: ----------------------------------------
1816: PROCEDURE insert_row(
1817: p_api_version IN NUMBER,
1818: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1819: x_return_status OUT NOCOPY VARCHAR2,
1820: x_msg_count OUT NOCOPY NUMBER,
1821: x_msg_data OUT NOCOPY VARCHAR2,
1822: p_poxv_tbl IN poxv_tbl_type,
1823: x_poxv_tbl OUT NOCOPY poxv_tbl_type) IS
1824:
1825: l_api_version CONSTANT NUMBER := 1;
1826: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1827: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1828: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1829: BEGIN
1830: OKL_API.init_msg_list(p_init_msg_list);
1831: -- Make sure PL/SQL table has records in it before passing
1824:
1825: l_api_version CONSTANT NUMBER := 1;
1826: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1827: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1828: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1829: BEGIN
1830: OKL_API.init_msg_list(p_init_msg_list);
1831: -- Make sure PL/SQL table has records in it before passing
1832: IF (p_poxv_tbl.COUNT > 0) THEN
1826: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1827: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1828: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1829: BEGIN
1830: OKL_API.init_msg_list(p_init_msg_list);
1831: -- Make sure PL/SQL table has records in it before passing
1832: IF (p_poxv_tbl.COUNT > 0) THEN
1833: insert_row (
1834: p_api_version => p_api_version,
1831: -- Make sure PL/SQL table has records in it before passing
1832: IF (p_poxv_tbl.COUNT > 0) THEN
1833: insert_row (
1834: p_api_version => p_api_version,
1835: p_init_msg_list => OKL_API.G_FALSE,
1836: x_return_status => x_return_status,
1837: x_msg_count => x_msg_count,
1838: x_msg_data => x_msg_data,
1839: p_poxv_tbl => p_poxv_tbl,
1839: p_poxv_tbl => p_poxv_tbl,
1840: x_poxv_tbl => x_poxv_tbl,
1841: px_error_tbl => l_error_tbl);
1842: END IF;
1843: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1844: EXCEPTION
1845: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1846: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1847: (
1841: px_error_tbl => l_error_tbl);
1842: END IF;
1843: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1844: EXCEPTION
1845: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1846: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1847: (
1848: l_api_name,
1849: G_PKG_NAME,
1842: END IF;
1843: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1844: EXCEPTION
1845: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1846: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1847: (
1848: l_api_name,
1849: G_PKG_NAME,
1850: 'OKL_API.G_RET_STS_ERROR',
1846: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1847: (
1848: l_api_name,
1849: G_PKG_NAME,
1850: 'OKL_API.G_RET_STS_ERROR',
1851: x_msg_count,
1852: x_msg_data,
1853: '_PVT'
1854: );
1851: x_msg_count,
1852: x_msg_data,
1853: '_PVT'
1854: );
1855: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1856: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1857: (
1858: l_api_name,
1859: G_PKG_NAME,
1852: x_msg_data,
1853: '_PVT'
1854: );
1855: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1856: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1857: (
1858: l_api_name,
1859: G_PKG_NAME,
1860: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1856: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1857: (
1858: l_api_name,
1859: G_PKG_NAME,
1860: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1861: x_msg_count,
1862: x_msg_data,
1863: '_PVT'
1864: );
1862: x_msg_data,
1863: '_PVT'
1864: );
1865: WHEN OTHERS THEN
1866: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1867: (
1868: l_api_name,
1869: G_PKG_NAME,
1870: 'OTHERS',
1880: --------------------------------------
1881: -- lock_row for:okl_pool_transactions --
1882: --------------------------------------
1883: PROCEDURE lock_row(
1884: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1885: x_return_status OUT NOCOPY VARCHAR2,
1886: x_msg_count OUT NOCOPY NUMBER,
1887: x_msg_data OUT NOCOPY VARCHAR2,
1888: p_pox_rec IN pox_rec_type) IS
1901: FROM okl_pool_transactions
1902: WHERE ID = p_pox_rec.id;
1903: l_api_version CONSTANT NUMBER := 1;
1904: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1905: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1906: l_object_version_number okl_pool_transactions.OBJECT_VERSION_NUMBER%TYPE;
1907: lc_object_version_number okl_pool_transactions.OBJECT_VERSION_NUMBER%TYPE;
1908: l_row_notfound BOOLEAN := FALSE;
1909: lc_row_notfound BOOLEAN := FALSE;
1907: lc_object_version_number okl_pool_transactions.OBJECT_VERSION_NUMBER%TYPE;
1908: l_row_notfound BOOLEAN := FALSE;
1909: lc_row_notfound BOOLEAN := FALSE;
1910: BEGIN
1911: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1912: p_init_msg_list,
1913: '_PVT',
1914: x_return_status);
1915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1911: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1912: p_init_msg_list,
1913: '_PVT',
1914: x_return_status);
1915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1912: p_init_msg_list,
1913: '_PVT',
1914: x_return_status);
1915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1920: BEGIN
1913: '_PVT',
1914: x_return_status);
1915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1920: BEGIN
1921: OPEN lock_csr(p_pox_rec);
1914: x_return_status);
1915: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1916: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1917: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1918: RAISE OKL_API.G_EXCEPTION_ERROR;
1919: END IF;
1920: BEGIN
1921: OPEN lock_csr(p_pox_rec);
1922: FETCH lock_csr INTO l_object_version_number;
1926: WHEN E_Resource_Busy THEN
1927: IF (lock_csr%ISOPEN) THEN
1928: CLOSE lock_csr;
1929: END IF;
1930: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1931: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1932: END;
1933:
1934: IF ( l_row_notfound ) THEN
1937: lc_row_notfound := lchk_csr%NOTFOUND;
1938: CLOSE lchk_csr;
1939: END IF;
1940: IF (lc_row_notfound) THEN
1941: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1942: RAISE OKL_API.G_EXCEPTION_ERROR;
1943: ELSIF lc_object_version_number > p_pox_rec.object_version_number THEN
1944: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1938: CLOSE lchk_csr;
1939: END IF;
1940: IF (lc_row_notfound) THEN
1941: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1942: RAISE OKL_API.G_EXCEPTION_ERROR;
1943: ELSIF lc_object_version_number > p_pox_rec.object_version_number THEN
1944: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1946: ELSIF lc_object_version_number <> p_pox_rec.object_version_number THEN
1940: IF (lc_row_notfound) THEN
1941: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1942: RAISE OKL_API.G_EXCEPTION_ERROR;
1943: ELSIF lc_object_version_number > p_pox_rec.object_version_number THEN
1944: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1946: ELSIF lc_object_version_number <> p_pox_rec.object_version_number THEN
1947: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1948: RAISE OKL_API.G_EXCEPTION_ERROR;
1941: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1942: RAISE OKL_API.G_EXCEPTION_ERROR;
1943: ELSIF lc_object_version_number > p_pox_rec.object_version_number THEN
1944: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1946: ELSIF lc_object_version_number <> p_pox_rec.object_version_number THEN
1947: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1948: RAISE OKL_API.G_EXCEPTION_ERROR;
1949: ELSIF lc_object_version_number = -1 THEN
1943: ELSIF lc_object_version_number > p_pox_rec.object_version_number THEN
1944: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1946: ELSIF lc_object_version_number <> p_pox_rec.object_version_number THEN
1947: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1948: RAISE OKL_API.G_EXCEPTION_ERROR;
1949: ELSIF lc_object_version_number = -1 THEN
1950: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1951: RAISE OKL_API.G_EXCEPTION_ERROR;
1944: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1945: RAISE OKL_API.G_EXCEPTION_ERROR;
1946: ELSIF lc_object_version_number <> p_pox_rec.object_version_number THEN
1947: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1948: RAISE OKL_API.G_EXCEPTION_ERROR;
1949: ELSIF lc_object_version_number = -1 THEN
1950: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1951: RAISE OKL_API.G_EXCEPTION_ERROR;
1952: END IF;
1946: ELSIF lc_object_version_number <> p_pox_rec.object_version_number THEN
1947: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1948: RAISE OKL_API.G_EXCEPTION_ERROR;
1949: ELSIF lc_object_version_number = -1 THEN
1950: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1951: RAISE OKL_API.G_EXCEPTION_ERROR;
1952: END IF;
1953: x_return_status := l_return_status;
1954: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1947: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1948: RAISE OKL_API.G_EXCEPTION_ERROR;
1949: ELSIF lc_object_version_number = -1 THEN
1950: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1951: RAISE OKL_API.G_EXCEPTION_ERROR;
1952: END IF;
1953: x_return_status := l_return_status;
1954: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1955: EXCEPTION
1950: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1951: RAISE OKL_API.G_EXCEPTION_ERROR;
1952: END IF;
1953: x_return_status := l_return_status;
1954: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1955: EXCEPTION
1956: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1957: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1958: (
1952: END IF;
1953: x_return_status := l_return_status;
1954: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1955: EXCEPTION
1956: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1957: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1958: (
1959: l_api_name,
1960: G_PKG_NAME,
1953: x_return_status := l_return_status;
1954: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1955: EXCEPTION
1956: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1957: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1958: (
1959: l_api_name,
1960: G_PKG_NAME,
1961: 'OKL_API.G_RET_STS_ERROR',
1957: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1958: (
1959: l_api_name,
1960: G_PKG_NAME,
1961: 'OKL_API.G_RET_STS_ERROR',
1962: x_msg_count,
1963: x_msg_data,
1964: '_PVT'
1965: );
1962: x_msg_count,
1963: x_msg_data,
1964: '_PVT'
1965: );
1966: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1967: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1968: (
1969: l_api_name,
1970: G_PKG_NAME,
1963: x_msg_data,
1964: '_PVT'
1965: );
1966: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1967: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1968: (
1969: l_api_name,
1970: G_PKG_NAME,
1971: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1967: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1968: (
1969: l_api_name,
1970: G_PKG_NAME,
1971: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1972: x_msg_count,
1973: x_msg_data,
1974: '_PVT'
1975: );
1973: x_msg_data,
1974: '_PVT'
1975: );
1976: WHEN OTHERS THEN
1977: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1978: (
1979: l_api_name,
1980: G_PKG_NAME,
1981: 'OTHERS',
1988: -- lock_row for: OKL_POOL_TRANSACTIONS_V --
1989: -----------------------------------------
1990: PROCEDURE lock_row(
1991: p_api_version IN NUMBER,
1992: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1993: x_return_status OUT NOCOPY VARCHAR2,
1994: x_msg_count OUT NOCOPY NUMBER,
1995: x_msg_data OUT NOCOPY VARCHAR2,
1996: p_poxv_rec IN poxv_rec_type) IS
1996: p_poxv_rec IN poxv_rec_type) IS
1997:
1998: l_api_version CONSTANT NUMBER := 1;
1999: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2000: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2001: l_pox_rec pox_rec_type;
2002: BEGIN
2003: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2004: G_PKG_NAME,
1999: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2000: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2001: l_pox_rec pox_rec_type;
2002: BEGIN
2003: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2004: G_PKG_NAME,
2005: p_init_msg_list,
2006: l_api_version,
2007: p_api_version,
2006: l_api_version,
2007: p_api_version,
2008: '_PVT',
2009: x_return_status);
2010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2007: p_api_version,
2008: '_PVT',
2009: x_return_status);
2010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: -----------------------------------------
2008: '_PVT',
2009: x_return_status);
2010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: -----------------------------------------
2016: -- Move VIEW record to "Child" records --
2009: x_return_status);
2010: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2011: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2013: RAISE OKL_API.G_EXCEPTION_ERROR;
2014: END IF;
2015: -----------------------------------------
2016: -- Move VIEW record to "Child" records --
2017: -----------------------------------------
2025: x_msg_count,
2026: x_msg_data,
2027: l_pox_rec
2028: );
2029: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2032: RAISE OKL_API.G_EXCEPTION_ERROR;
2033: END IF;
2026: x_msg_data,
2027: l_pox_rec
2028: );
2029: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2032: RAISE OKL_API.G_EXCEPTION_ERROR;
2033: END IF;
2034: x_return_status := l_return_status;
2027: l_pox_rec
2028: );
2029: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2032: RAISE OKL_API.G_EXCEPTION_ERROR;
2033: END IF;
2034: x_return_status := l_return_status;
2035: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2028: );
2029: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2032: RAISE OKL_API.G_EXCEPTION_ERROR;
2033: END IF;
2034: x_return_status := l_return_status;
2035: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2036: EXCEPTION
2031: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2032: RAISE OKL_API.G_EXCEPTION_ERROR;
2033: END IF;
2034: x_return_status := l_return_status;
2035: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2036: EXCEPTION
2037: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2038: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2039: (
2033: END IF;
2034: x_return_status := l_return_status;
2035: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2036: EXCEPTION
2037: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2038: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2039: (
2040: l_api_name,
2041: G_PKG_NAME,
2034: x_return_status := l_return_status;
2035: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2036: EXCEPTION
2037: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2038: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2039: (
2040: l_api_name,
2041: G_PKG_NAME,
2042: 'OKL_API.G_RET_STS_ERROR',
2038: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2039: (
2040: l_api_name,
2041: G_PKG_NAME,
2042: 'OKL_API.G_RET_STS_ERROR',
2043: x_msg_count,
2044: x_msg_data,
2045: '_PVT'
2046: );
2043: x_msg_count,
2044: x_msg_data,
2045: '_PVT'
2046: );
2047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2048: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2049: (
2050: l_api_name,
2051: G_PKG_NAME,
2044: x_msg_data,
2045: '_PVT'
2046: );
2047: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2048: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2049: (
2050: l_api_name,
2051: G_PKG_NAME,
2052: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2048: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2049: (
2050: l_api_name,
2051: G_PKG_NAME,
2052: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2053: x_msg_count,
2054: x_msg_data,
2055: '_PVT'
2056: );
2054: x_msg_data,
2055: '_PVT'
2056: );
2057: WHEN OTHERS THEN
2058: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2059: (
2060: l_api_name,
2061: G_PKG_NAME,
2062: 'OTHERS',
2069: -- PL/SQL TBL lock_row for:poxv_TBL --
2070: --------------------------------------
2071: PROCEDURE lock_row(
2072: p_api_version IN NUMBER,
2073: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2074: x_return_status OUT NOCOPY VARCHAR2,
2075: x_msg_count OUT NOCOPY NUMBER,
2076: x_msg_data OUT NOCOPY VARCHAR2,
2077: p_poxv_tbl IN poxv_tbl_type,
2074: x_return_status OUT NOCOPY VARCHAR2,
2075: x_msg_count OUT NOCOPY NUMBER,
2076: x_msg_data OUT NOCOPY VARCHAR2,
2077: p_poxv_tbl IN poxv_tbl_type,
2078: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2079:
2080: l_api_version CONSTANT NUMBER := 1;
2081: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2082: i NUMBER := 0;
2080: l_api_version CONSTANT NUMBER := 1;
2081: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2082: i NUMBER := 0;
2083: BEGIN
2084: OKL_API.init_msg_list(p_init_msg_list);
2085: -- Make sure PL/SQL table has recrods in it before passing
2086: IF (p_poxv_tbl.COUNT > 0) THEN
2087: i := p_poxv_tbl.FIRST;
2088: LOOP
2086: IF (p_poxv_tbl.COUNT > 0) THEN
2087: i := p_poxv_tbl.FIRST;
2088: LOOP
2089: DECLARE
2090: l_error_rec OKL_API.ERROR_REC_TYPE;
2091: BEGIN
2092: l_error_rec.api_name := l_api_name;
2093: l_error_rec.api_package := G_PKG_NAME;
2094: l_error_rec.idx := i;
2093: l_error_rec.api_package := G_PKG_NAME;
2094: l_error_rec.idx := i;
2095: lock_row(
2096: p_api_version => p_api_version,
2097: p_init_msg_list => OKL_API.G_FALSE,
2098: x_return_status => l_error_rec.error_type,
2099: x_msg_count => l_error_rec.msg_count,
2100: x_msg_data => l_error_rec.msg_data,
2101: p_poxv_rec => p_poxv_tbl(i));
2098: x_return_status => l_error_rec.error_type,
2099: x_msg_count => l_error_rec.msg_count,
2100: x_msg_data => l_error_rec.msg_data,
2101: p_poxv_rec => p_poxv_tbl(i));
2102: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2103: l_error_rec.SQLCODE := SQLCODE;
2104: load_error_tbl(l_error_rec, px_error_tbl);
2105: ELSE
2106: x_msg_count := l_error_rec.msg_count;
2106: x_msg_count := l_error_rec.msg_count;
2107: x_msg_data := l_error_rec.msg_data;
2108: END IF;
2109: EXCEPTION
2110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2111: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2112: l_error_rec.SQLCODE := SQLCODE;
2113: load_error_tbl(l_error_rec, px_error_tbl);
2114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2107: x_msg_data := l_error_rec.msg_data;
2108: END IF;
2109: EXCEPTION
2110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2111: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2112: l_error_rec.SQLCODE := SQLCODE;
2113: load_error_tbl(l_error_rec, px_error_tbl);
2114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2115: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2110: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2111: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2112: l_error_rec.SQLCODE := SQLCODE;
2113: load_error_tbl(l_error_rec, px_error_tbl);
2114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2115: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2116: l_error_rec.SQLCODE := SQLCODE;
2117: load_error_tbl(l_error_rec, px_error_tbl);
2118: WHEN OTHERS THEN
2111: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2112: l_error_rec.SQLCODE := SQLCODE;
2113: load_error_tbl(l_error_rec, px_error_tbl);
2114: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2115: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2116: l_error_rec.SQLCODE := SQLCODE;
2117: load_error_tbl(l_error_rec, px_error_tbl);
2118: WHEN OTHERS THEN
2119: l_error_rec.error_type := 'OTHERS';
2126: END IF;
2127: -- Loop through the error_tbl to find the error with the highest severity
2128: -- and return it.
2129: x_return_status := find_highest_exception(px_error_tbl);
2130: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2131: EXCEPTION
2132: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2133: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2134: (
2128: -- and return it.
2129: x_return_status := find_highest_exception(px_error_tbl);
2130: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2131: EXCEPTION
2132: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2133: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2134: (
2135: l_api_name,
2136: G_PKG_NAME,
2129: x_return_status := find_highest_exception(px_error_tbl);
2130: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2131: EXCEPTION
2132: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2133: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2134: (
2135: l_api_name,
2136: G_PKG_NAME,
2137: 'OKL_API.G_RET_STS_ERROR',
2133: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2134: (
2135: l_api_name,
2136: G_PKG_NAME,
2137: 'OKL_API.G_RET_STS_ERROR',
2138: x_msg_count,
2139: x_msg_data,
2140: '_PVT'
2141: );
2138: x_msg_count,
2139: x_msg_data,
2140: '_PVT'
2141: );
2142: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2143: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2144: (
2145: l_api_name,
2146: G_PKG_NAME,
2139: x_msg_data,
2140: '_PVT'
2141: );
2142: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2143: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2144: (
2145: l_api_name,
2146: G_PKG_NAME,
2147: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2143: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2144: (
2145: l_api_name,
2146: G_PKG_NAME,
2147: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2148: x_msg_count,
2149: x_msg_data,
2150: '_PVT'
2151: );
2149: x_msg_data,
2150: '_PVT'
2151: );
2152: WHEN OTHERS THEN
2153: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2154: (
2155: l_api_name,
2156: G_PKG_NAME,
2157: 'OTHERS',
2164: -- PL/SQL TBL lock_row for:poxv_TBL --
2165: --------------------------------------
2166: PROCEDURE lock_row(
2167: p_api_version IN NUMBER,
2168: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2169: x_return_status OUT NOCOPY VARCHAR2,
2170: x_msg_count OUT NOCOPY NUMBER,
2171: x_msg_data OUT NOCOPY VARCHAR2,
2172: p_poxv_tbl IN poxv_tbl_type) IS
2172: p_poxv_tbl IN poxv_tbl_type) IS
2173:
2174: l_api_version CONSTANT NUMBER := 1;
2175: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2176: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2177: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2178: BEGIN
2179: OKL_API.init_msg_list(p_init_msg_list);
2180: -- Make sure PL/SQL table has recrods in it before passing
2173:
2174: l_api_version CONSTANT NUMBER := 1;
2175: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2176: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2177: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2178: BEGIN
2179: OKL_API.init_msg_list(p_init_msg_list);
2180: -- Make sure PL/SQL table has recrods in it before passing
2181: IF (p_poxv_tbl.COUNT > 0) THEN
2175: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2176: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2177: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2178: BEGIN
2179: OKL_API.init_msg_list(p_init_msg_list);
2180: -- Make sure PL/SQL table has recrods in it before passing
2181: IF (p_poxv_tbl.COUNT > 0) THEN
2182: lock_row(
2183: p_api_version => p_api_version,
2180: -- Make sure PL/SQL table has recrods in it before passing
2181: IF (p_poxv_tbl.COUNT > 0) THEN
2182: lock_row(
2183: p_api_version => p_api_version,
2184: p_init_msg_list => OKL_API.G_FALSE,
2185: x_return_status => x_return_status,
2186: x_msg_count => x_msg_count,
2187: x_msg_data => x_msg_data,
2188: p_poxv_tbl => p_poxv_tbl,
2187: x_msg_data => x_msg_data,
2188: p_poxv_tbl => p_poxv_tbl,
2189: px_error_tbl => l_error_tbl);
2190: END IF;
2191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2192: EXCEPTION
2193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2194: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2195: (
2189: px_error_tbl => l_error_tbl);
2190: END IF;
2191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2192: EXCEPTION
2193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2194: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2195: (
2196: l_api_name,
2197: G_PKG_NAME,
2190: END IF;
2191: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2192: EXCEPTION
2193: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2194: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2195: (
2196: l_api_name,
2197: G_PKG_NAME,
2198: 'OKL_API.G_RET_STS_ERROR',
2194: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2195: (
2196: l_api_name,
2197: G_PKG_NAME,
2198: 'OKL_API.G_RET_STS_ERROR',
2199: x_msg_count,
2200: x_msg_data,
2201: '_PVT'
2202: );
2199: x_msg_count,
2200: x_msg_data,
2201: '_PVT'
2202: );
2203: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2204: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2205: (
2206: l_api_name,
2207: G_PKG_NAME,
2200: x_msg_data,
2201: '_PVT'
2202: );
2203: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2204: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2205: (
2206: l_api_name,
2207: G_PKG_NAME,
2208: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2204: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2205: (
2206: l_api_name,
2207: G_PKG_NAME,
2208: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2209: x_msg_count,
2210: x_msg_data,
2211: '_PVT'
2212: );
2210: x_msg_data,
2211: '_PVT'
2212: );
2213: WHEN OTHERS THEN
2214: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2215: (
2216: l_api_name,
2217: G_PKG_NAME,
2218: 'OTHERS',
2227: ----------------------------------------
2228: -- update_row for:okl_pool_transactions --
2229: ----------------------------------------
2230: PROCEDURE update_row(
2231: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2232: x_return_status OUT NOCOPY VARCHAR2,
2233: x_msg_count OUT NOCOPY NUMBER,
2234: x_msg_data OUT NOCOPY VARCHAR2,
2235: p_pox_rec IN pox_rec_type,
2236: x_pox_rec OUT NOCOPY pox_rec_type) IS
2237:
2238: l_api_version CONSTANT NUMBER := 1;
2239: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2240: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2241: l_pox_rec pox_rec_type := p_pox_rec;
2242: l_def_pox_rec pox_rec_type;
2243: l_row_notfound BOOLEAN := TRUE;
2244: ----------------------------------
2249: x_pox_rec OUT NOCOPY pox_rec_type
2250: ) RETURN VARCHAR2 IS
2251: l_pox_rec pox_rec_type;
2252: l_row_notfound BOOLEAN := TRUE;
2253: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2254: BEGIN
2255: x_pox_rec := p_pox_rec;
2256: -- Get current database values
2257: l_pox_rec := get_rec(p_pox_rec, l_return_status);
2254: BEGIN
2255: x_pox_rec := p_pox_rec;
2256: -- Get current database values
2257: l_pox_rec := get_rec(p_pox_rec, l_return_status);
2258: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2259:
2260: IF (x_pox_rec.id = OKL_API.G_MISS_NUM)
2261: THEN
2262: x_pox_rec.id := l_pox_rec.id;
2256: -- Get current database values
2257: l_pox_rec := get_rec(p_pox_rec, l_return_status);
2258: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2259:
2260: IF (x_pox_rec.id = OKL_API.G_MISS_NUM)
2261: THEN
2262: x_pox_rec.id := l_pox_rec.id;
2263: END IF;
2264: IF (x_pox_rec.object_version_number = OKL_API.G_MISS_NUM)
2260: IF (x_pox_rec.id = OKL_API.G_MISS_NUM)
2261: THEN
2262: x_pox_rec.id := l_pox_rec.id;
2263: END IF;
2264: IF (x_pox_rec.object_version_number = OKL_API.G_MISS_NUM)
2265: THEN
2266: x_pox_rec.object_version_number := l_pox_rec.object_version_number;
2267: END IF;
2268: IF (x_pox_rec.pol_id = OKL_API.G_MISS_NUM)
2264: IF (x_pox_rec.object_version_number = OKL_API.G_MISS_NUM)
2265: THEN
2266: x_pox_rec.object_version_number := l_pox_rec.object_version_number;
2267: END IF;
2268: IF (x_pox_rec.pol_id = OKL_API.G_MISS_NUM)
2269: THEN
2270: x_pox_rec.pol_id := l_pox_rec.pol_id;
2271: END IF;
2272: IF (x_pox_rec.transaction_number = OKL_API.G_MISS_NUM)
2268: IF (x_pox_rec.pol_id = OKL_API.G_MISS_NUM)
2269: THEN
2270: x_pox_rec.pol_id := l_pox_rec.pol_id;
2271: END IF;
2272: IF (x_pox_rec.transaction_number = OKL_API.G_MISS_NUM)
2273: THEN
2274: x_pox_rec.transaction_number := l_pox_rec.transaction_number;
2275: END IF;
2276: IF (x_pox_rec.transaction_date = OKL_API.G_MISS_DATE)
2272: IF (x_pox_rec.transaction_number = OKL_API.G_MISS_NUM)
2273: THEN
2274: x_pox_rec.transaction_number := l_pox_rec.transaction_number;
2275: END IF;
2276: IF (x_pox_rec.transaction_date = OKL_API.G_MISS_DATE)
2277: THEN
2278: x_pox_rec.transaction_date := l_pox_rec.transaction_date;
2279: END IF;
2280: IF (x_pox_rec.transaction_type = OKL_API.G_MISS_CHAR)
2276: IF (x_pox_rec.transaction_date = OKL_API.G_MISS_DATE)
2277: THEN
2278: x_pox_rec.transaction_date := l_pox_rec.transaction_date;
2279: END IF;
2280: IF (x_pox_rec.transaction_type = OKL_API.G_MISS_CHAR)
2281: THEN
2282: x_pox_rec.transaction_type := l_pox_rec.transaction_type;
2283: END IF;
2284: IF (x_pox_rec.transaction_sub_type = OKL_API.G_MISS_CHAR)
2280: IF (x_pox_rec.transaction_type = OKL_API.G_MISS_CHAR)
2281: THEN
2282: x_pox_rec.transaction_type := l_pox_rec.transaction_type;
2283: END IF;
2284: IF (x_pox_rec.transaction_sub_type = OKL_API.G_MISS_CHAR)
2285: THEN
2286: x_pox_rec.transaction_sub_type := l_pox_rec.transaction_sub_type;
2287: END IF;
2288: IF (x_pox_rec.date_effective = OKL_API.G_MISS_DATE)
2284: IF (x_pox_rec.transaction_sub_type = OKL_API.G_MISS_CHAR)
2285: THEN
2286: x_pox_rec.transaction_sub_type := l_pox_rec.transaction_sub_type;
2287: END IF;
2288: IF (x_pox_rec.date_effective = OKL_API.G_MISS_DATE)
2289: THEN
2290: x_pox_rec.date_effective := l_pox_rec.date_effective;
2291: END IF;
2292: IF (x_pox_rec.currency_code = OKL_API.G_MISS_CHAR)
2288: IF (x_pox_rec.date_effective = OKL_API.G_MISS_DATE)
2289: THEN
2290: x_pox_rec.date_effective := l_pox_rec.date_effective;
2291: END IF;
2292: IF (x_pox_rec.currency_code = OKL_API.G_MISS_CHAR)
2293: THEN
2294: x_pox_rec.currency_code := l_pox_rec.currency_code;
2295: END IF;
2296: IF (x_pox_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
2292: IF (x_pox_rec.currency_code = OKL_API.G_MISS_CHAR)
2293: THEN
2294: x_pox_rec.currency_code := l_pox_rec.currency_code;
2295: END IF;
2296: IF (x_pox_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
2297: THEN
2298: x_pox_rec.currency_conversion_type := l_pox_rec.currency_conversion_type;
2299: END IF;
2300: IF (x_pox_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
2296: IF (x_pox_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
2297: THEN
2298: x_pox_rec.currency_conversion_type := l_pox_rec.currency_conversion_type;
2299: END IF;
2300: IF (x_pox_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
2301: THEN
2302: x_pox_rec.currency_conversion_date := l_pox_rec.currency_conversion_date;
2303: END IF;
2304: IF (x_pox_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
2300: IF (x_pox_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
2301: THEN
2302: x_pox_rec.currency_conversion_date := l_pox_rec.currency_conversion_date;
2303: END IF;
2304: IF (x_pox_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
2305: THEN
2306: x_pox_rec.currency_conversion_rate := l_pox_rec.currency_conversion_rate;
2307: END IF;
2308: IF (x_pox_rec.transaction_reason = OKL_API.G_MISS_CHAR)
2304: IF (x_pox_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
2305: THEN
2306: x_pox_rec.currency_conversion_rate := l_pox_rec.currency_conversion_rate;
2307: END IF;
2308: IF (x_pox_rec.transaction_reason = OKL_API.G_MISS_CHAR)
2309: THEN
2310: x_pox_rec.transaction_reason := l_pox_rec.transaction_reason;
2311: END IF;
2312: IF (x_pox_rec.attribute_category = OKL_API.G_MISS_CHAR)
2308: IF (x_pox_rec.transaction_reason = OKL_API.G_MISS_CHAR)
2309: THEN
2310: x_pox_rec.transaction_reason := l_pox_rec.transaction_reason;
2311: END IF;
2312: IF (x_pox_rec.attribute_category = OKL_API.G_MISS_CHAR)
2313: THEN
2314: x_pox_rec.attribute_category := l_pox_rec.attribute_category;
2315: END IF;
2316: IF (x_pox_rec.attribute1 = OKL_API.G_MISS_CHAR)
2312: IF (x_pox_rec.attribute_category = OKL_API.G_MISS_CHAR)
2313: THEN
2314: x_pox_rec.attribute_category := l_pox_rec.attribute_category;
2315: END IF;
2316: IF (x_pox_rec.attribute1 = OKL_API.G_MISS_CHAR)
2317: THEN
2318: x_pox_rec.attribute1 := l_pox_rec.attribute1;
2319: END IF;
2320: IF (x_pox_rec.attribute2 = OKL_API.G_MISS_CHAR)
2316: IF (x_pox_rec.attribute1 = OKL_API.G_MISS_CHAR)
2317: THEN
2318: x_pox_rec.attribute1 := l_pox_rec.attribute1;
2319: END IF;
2320: IF (x_pox_rec.attribute2 = OKL_API.G_MISS_CHAR)
2321: THEN
2322: x_pox_rec.attribute2 := l_pox_rec.attribute2;
2323: END IF;
2324: IF (x_pox_rec.attribute3 = OKL_API.G_MISS_CHAR)
2320: IF (x_pox_rec.attribute2 = OKL_API.G_MISS_CHAR)
2321: THEN
2322: x_pox_rec.attribute2 := l_pox_rec.attribute2;
2323: END IF;
2324: IF (x_pox_rec.attribute3 = OKL_API.G_MISS_CHAR)
2325: THEN
2326: x_pox_rec.attribute3 := l_pox_rec.attribute3;
2327: END IF;
2328: IF (x_pox_rec.attribute4 = OKL_API.G_MISS_CHAR)
2324: IF (x_pox_rec.attribute3 = OKL_API.G_MISS_CHAR)
2325: THEN
2326: x_pox_rec.attribute3 := l_pox_rec.attribute3;
2327: END IF;
2328: IF (x_pox_rec.attribute4 = OKL_API.G_MISS_CHAR)
2329: THEN
2330: x_pox_rec.attribute4 := l_pox_rec.attribute4;
2331: END IF;
2332: IF (x_pox_rec.attribute5 = OKL_API.G_MISS_CHAR)
2328: IF (x_pox_rec.attribute4 = OKL_API.G_MISS_CHAR)
2329: THEN
2330: x_pox_rec.attribute4 := l_pox_rec.attribute4;
2331: END IF;
2332: IF (x_pox_rec.attribute5 = OKL_API.G_MISS_CHAR)
2333: THEN
2334: x_pox_rec.attribute5 := l_pox_rec.attribute5;
2335: END IF;
2336: IF (x_pox_rec.attribute6 = OKL_API.G_MISS_CHAR)
2332: IF (x_pox_rec.attribute5 = OKL_API.G_MISS_CHAR)
2333: THEN
2334: x_pox_rec.attribute5 := l_pox_rec.attribute5;
2335: END IF;
2336: IF (x_pox_rec.attribute6 = OKL_API.G_MISS_CHAR)
2337: THEN
2338: x_pox_rec.attribute6 := l_pox_rec.attribute6;
2339: END IF;
2340: IF (x_pox_rec.attribute7 = OKL_API.G_MISS_CHAR)
2336: IF (x_pox_rec.attribute6 = OKL_API.G_MISS_CHAR)
2337: THEN
2338: x_pox_rec.attribute6 := l_pox_rec.attribute6;
2339: END IF;
2340: IF (x_pox_rec.attribute7 = OKL_API.G_MISS_CHAR)
2341: THEN
2342: x_pox_rec.attribute7 := l_pox_rec.attribute7;
2343: END IF;
2344: IF (x_pox_rec.attribute8 = OKL_API.G_MISS_CHAR)
2340: IF (x_pox_rec.attribute7 = OKL_API.G_MISS_CHAR)
2341: THEN
2342: x_pox_rec.attribute7 := l_pox_rec.attribute7;
2343: END IF;
2344: IF (x_pox_rec.attribute8 = OKL_API.G_MISS_CHAR)
2345: THEN
2346: x_pox_rec.attribute8 := l_pox_rec.attribute8;
2347: END IF;
2348: IF (x_pox_rec.attribute9 = OKL_API.G_MISS_CHAR)
2344: IF (x_pox_rec.attribute8 = OKL_API.G_MISS_CHAR)
2345: THEN
2346: x_pox_rec.attribute8 := l_pox_rec.attribute8;
2347: END IF;
2348: IF (x_pox_rec.attribute9 = OKL_API.G_MISS_CHAR)
2349: THEN
2350: x_pox_rec.attribute9 := l_pox_rec.attribute9;
2351: END IF;
2352: IF (x_pox_rec.attribute10 = OKL_API.G_MISS_CHAR)
2348: IF (x_pox_rec.attribute9 = OKL_API.G_MISS_CHAR)
2349: THEN
2350: x_pox_rec.attribute9 := l_pox_rec.attribute9;
2351: END IF;
2352: IF (x_pox_rec.attribute10 = OKL_API.G_MISS_CHAR)
2353: THEN
2354: x_pox_rec.attribute10 := l_pox_rec.attribute10;
2355: END IF;
2356: IF (x_pox_rec.attribute11 = OKL_API.G_MISS_CHAR)
2352: IF (x_pox_rec.attribute10 = OKL_API.G_MISS_CHAR)
2353: THEN
2354: x_pox_rec.attribute10 := l_pox_rec.attribute10;
2355: END IF;
2356: IF (x_pox_rec.attribute11 = OKL_API.G_MISS_CHAR)
2357: THEN
2358: x_pox_rec.attribute11 := l_pox_rec.attribute11;
2359: END IF;
2360: IF (x_pox_rec.attribute12 = OKL_API.G_MISS_CHAR)
2356: IF (x_pox_rec.attribute11 = OKL_API.G_MISS_CHAR)
2357: THEN
2358: x_pox_rec.attribute11 := l_pox_rec.attribute11;
2359: END IF;
2360: IF (x_pox_rec.attribute12 = OKL_API.G_MISS_CHAR)
2361: THEN
2362: x_pox_rec.attribute12 := l_pox_rec.attribute12;
2363: END IF;
2364: IF (x_pox_rec.attribute13 = OKL_API.G_MISS_CHAR)
2360: IF (x_pox_rec.attribute12 = OKL_API.G_MISS_CHAR)
2361: THEN
2362: x_pox_rec.attribute12 := l_pox_rec.attribute12;
2363: END IF;
2364: IF (x_pox_rec.attribute13 = OKL_API.G_MISS_CHAR)
2365: THEN
2366: x_pox_rec.attribute13 := l_pox_rec.attribute13;
2367: END IF;
2368: IF (x_pox_rec.attribute14 = OKL_API.G_MISS_CHAR)
2364: IF (x_pox_rec.attribute13 = OKL_API.G_MISS_CHAR)
2365: THEN
2366: x_pox_rec.attribute13 := l_pox_rec.attribute13;
2367: END IF;
2368: IF (x_pox_rec.attribute14 = OKL_API.G_MISS_CHAR)
2369: THEN
2370: x_pox_rec.attribute14 := l_pox_rec.attribute14;
2371: END IF;
2372: IF (x_pox_rec.attribute15 = OKL_API.G_MISS_CHAR)
2368: IF (x_pox_rec.attribute14 = OKL_API.G_MISS_CHAR)
2369: THEN
2370: x_pox_rec.attribute14 := l_pox_rec.attribute14;
2371: END IF;
2372: IF (x_pox_rec.attribute15 = OKL_API.G_MISS_CHAR)
2373: THEN
2374: x_pox_rec.attribute15 := l_pox_rec.attribute15;
2375: END IF;
2376: IF (x_pox_rec.request_id = OKL_API.G_MISS_NUM)
2372: IF (x_pox_rec.attribute15 = OKL_API.G_MISS_CHAR)
2373: THEN
2374: x_pox_rec.attribute15 := l_pox_rec.attribute15;
2375: END IF;
2376: IF (x_pox_rec.request_id = OKL_API.G_MISS_NUM)
2377: THEN
2378: x_pox_rec.request_id := l_pox_rec.request_id;
2379: END IF;
2380: IF (x_pox_rec.program_application_id = OKL_API.G_MISS_NUM)
2376: IF (x_pox_rec.request_id = OKL_API.G_MISS_NUM)
2377: THEN
2378: x_pox_rec.request_id := l_pox_rec.request_id;
2379: END IF;
2380: IF (x_pox_rec.program_application_id = OKL_API.G_MISS_NUM)
2381: THEN
2382: x_pox_rec.program_application_id := l_pox_rec.program_application_id;
2383: END IF;
2384: IF (x_pox_rec.program_id = OKL_API.G_MISS_NUM)
2380: IF (x_pox_rec.program_application_id = OKL_API.G_MISS_NUM)
2381: THEN
2382: x_pox_rec.program_application_id := l_pox_rec.program_application_id;
2383: END IF;
2384: IF (x_pox_rec.program_id = OKL_API.G_MISS_NUM)
2385: THEN
2386: x_pox_rec.program_id := l_pox_rec.program_id;
2387: END IF;
2388: IF (x_pox_rec.program_update_date = OKL_API.G_MISS_DATE)
2384: IF (x_pox_rec.program_id = OKL_API.G_MISS_NUM)
2385: THEN
2386: x_pox_rec.program_id := l_pox_rec.program_id;
2387: END IF;
2388: IF (x_pox_rec.program_update_date = OKL_API.G_MISS_DATE)
2389: THEN
2390: x_pox_rec.program_update_date := l_pox_rec.program_update_date;
2391: END IF;
2392: IF (x_pox_rec.created_by = OKL_API.G_MISS_NUM)
2388: IF (x_pox_rec.program_update_date = OKL_API.G_MISS_DATE)
2389: THEN
2390: x_pox_rec.program_update_date := l_pox_rec.program_update_date;
2391: END IF;
2392: IF (x_pox_rec.created_by = OKL_API.G_MISS_NUM)
2393: THEN
2394: x_pox_rec.created_by := l_pox_rec.created_by;
2395: END IF;
2396: IF (x_pox_rec.creation_date = OKL_API.G_MISS_DATE)
2392: IF (x_pox_rec.created_by = OKL_API.G_MISS_NUM)
2393: THEN
2394: x_pox_rec.created_by := l_pox_rec.created_by;
2395: END IF;
2396: IF (x_pox_rec.creation_date = OKL_API.G_MISS_DATE)
2397: THEN
2398: x_pox_rec.creation_date := l_pox_rec.creation_date;
2399: END IF;
2400: IF (x_pox_rec.last_updated_by = OKL_API.G_MISS_NUM)
2396: IF (x_pox_rec.creation_date = OKL_API.G_MISS_DATE)
2397: THEN
2398: x_pox_rec.creation_date := l_pox_rec.creation_date;
2399: END IF;
2400: IF (x_pox_rec.last_updated_by = OKL_API.G_MISS_NUM)
2401: THEN
2402: x_pox_rec.last_updated_by := l_pox_rec.last_updated_by;
2403: END IF;
2404: IF (x_pox_rec.last_update_date = OKL_API.G_MISS_DATE)
2400: IF (x_pox_rec.last_updated_by = OKL_API.G_MISS_NUM)
2401: THEN
2402: x_pox_rec.last_updated_by := l_pox_rec.last_updated_by;
2403: END IF;
2404: IF (x_pox_rec.last_update_date = OKL_API.G_MISS_DATE)
2405: THEN
2406: x_pox_rec.last_update_date := l_pox_rec.last_update_date;
2407: END IF;
2408: IF (x_pox_rec.last_update_login = OKL_API.G_MISS_NUM)
2404: IF (x_pox_rec.last_update_date = OKL_API.G_MISS_DATE)
2405: THEN
2406: x_pox_rec.last_update_date := l_pox_rec.last_update_date;
2407: END IF;
2408: IF (x_pox_rec.last_update_login = OKL_API.G_MISS_NUM)
2409: THEN
2410: x_pox_rec.last_update_login := l_pox_rec.last_update_login;
2411: END IF;
2412: IF (x_pox_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2408: IF (x_pox_rec.last_update_login = OKL_API.G_MISS_NUM)
2409: THEN
2410: x_pox_rec.last_update_login := l_pox_rec.last_update_login;
2411: END IF;
2412: IF (x_pox_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2413: THEN
2414: x_pox_rec.legal_entity_id := l_pox_rec.legal_entity_id;
2415: END IF;
2416: IF (x_pox_rec.transaction_status = OKL_API.G_MISS_CHAR)
2412: IF (x_pox_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2413: THEN
2414: x_pox_rec.legal_entity_id := l_pox_rec.legal_entity_id;
2415: END IF;
2416: IF (x_pox_rec.transaction_status = OKL_API.G_MISS_CHAR)
2417: THEN
2418: x_pox_rec.transaction_status := l_pox_rec.transaction_status;
2419: END IF;
2420: END IF;
2426: FUNCTION Set_Attributes (
2427: p_pox_rec IN pox_rec_type,
2428: x_pox_rec OUT NOCOPY pox_rec_type
2429: ) RETURN VARCHAR2 IS
2430: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2431: BEGIN
2432: x_pox_rec := p_pox_rec;
2433: x_pox_rec.OBJECT_VERSION_NUMBER := p_pox_rec.OBJECT_VERSION_NUMBER + 1;
2434: RETURN(l_return_status);
2433: x_pox_rec.OBJECT_VERSION_NUMBER := p_pox_rec.OBJECT_VERSION_NUMBER + 1;
2434: RETURN(l_return_status);
2435: END Set_Attributes;
2436: BEGIN
2437: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2438: p_init_msg_list,
2439: '_PVT',
2440: x_return_status);
2441: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2437: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2438: p_init_msg_list,
2439: '_PVT',
2440: x_return_status);
2441: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2443: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2444: RAISE OKL_API.G_EXCEPTION_ERROR;
2445: END IF;
2438: p_init_msg_list,
2439: '_PVT',
2440: x_return_status);
2441: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2443: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2444: RAISE OKL_API.G_EXCEPTION_ERROR;
2445: END IF;
2446: --- Setting item attributes
2439: '_PVT',
2440: x_return_status);
2441: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2443: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2444: RAISE OKL_API.G_EXCEPTION_ERROR;
2445: END IF;
2446: --- Setting item attributes
2447: l_return_status := Set_Attributes(
2440: x_return_status);
2441: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2442: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2443: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2444: RAISE OKL_API.G_EXCEPTION_ERROR;
2445: END IF;
2446: --- Setting item attributes
2447: l_return_status := Set_Attributes(
2448: p_pox_rec, -- IN
2447: l_return_status := Set_Attributes(
2448: p_pox_rec, -- IN
2449: l_pox_rec); -- OUT
2450: --- If any errors happen abort API
2451: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2448: p_pox_rec, -- IN
2449: l_pox_rec); -- OUT
2450: --- If any errors happen abort API
2451: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2456: l_return_status := populate_new_record(l_pox_rec, l_def_pox_rec);
2449: l_pox_rec); -- OUT
2450: --- If any errors happen abort API
2451: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2456: l_return_status := populate_new_record(l_pox_rec, l_def_pox_rec);
2457: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2450: --- If any errors happen abort API
2451: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2452: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2456: l_return_status := populate_new_record(l_pox_rec, l_def_pox_rec);
2457: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2453: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2456: l_return_status := populate_new_record(l_pox_rec, l_def_pox_rec);
2457: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2460: RAISE OKL_API.G_EXCEPTION_ERROR;
2461: END IF;
2454: RAISE OKL_API.G_EXCEPTION_ERROR;
2455: END IF;
2456: l_return_status := populate_new_record(l_pox_rec, l_def_pox_rec);
2457: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2460: RAISE OKL_API.G_EXCEPTION_ERROR;
2461: END IF;
2462: UPDATE okl_pool_transactions
2455: END IF;
2456: l_return_status := populate_new_record(l_pox_rec, l_def_pox_rec);
2457: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2460: RAISE OKL_API.G_EXCEPTION_ERROR;
2461: END IF;
2462: UPDATE okl_pool_transactions
2463: SET OBJECT_VERSION_NUMBER = l_def_pox_rec.object_version_number,
2456: l_return_status := populate_new_record(l_pox_rec, l_def_pox_rec);
2457: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2459: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2460: RAISE OKL_API.G_EXCEPTION_ERROR;
2461: END IF;
2462: UPDATE okl_pool_transactions
2463: SET OBJECT_VERSION_NUMBER = l_def_pox_rec.object_version_number,
2464: POL_ID = l_def_pox_rec.pol_id,
2502: WHERE ID = l_def_pox_rec.id;
2503:
2504: x_pox_rec := l_pox_rec;
2505: x_return_status := l_return_status;
2506: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2507: EXCEPTION
2508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2510: (
2504: x_pox_rec := l_pox_rec;
2505: x_return_status := l_return_status;
2506: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2507: EXCEPTION
2508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2510: (
2511: l_api_name,
2512: G_PKG_NAME,
2505: x_return_status := l_return_status;
2506: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2507: EXCEPTION
2508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2510: (
2511: l_api_name,
2512: G_PKG_NAME,
2513: 'OKL_API.G_RET_STS_ERROR',
2509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2510: (
2511: l_api_name,
2512: G_PKG_NAME,
2513: 'OKL_API.G_RET_STS_ERROR',
2514: x_msg_count,
2515: x_msg_data,
2516: '_PVT'
2517: );
2514: x_msg_count,
2515: x_msg_data,
2516: '_PVT'
2517: );
2518: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2519: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2520: (
2521: l_api_name,
2522: G_PKG_NAME,
2515: x_msg_data,
2516: '_PVT'
2517: );
2518: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2519: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2520: (
2521: l_api_name,
2522: G_PKG_NAME,
2523: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2519: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2520: (
2521: l_api_name,
2522: G_PKG_NAME,
2523: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2524: x_msg_count,
2525: x_msg_data,
2526: '_PVT'
2527: );
2525: x_msg_data,
2526: '_PVT'
2527: );
2528: WHEN OTHERS THEN
2529: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2530: (
2531: l_api_name,
2532: G_PKG_NAME,
2533: 'OTHERS',
2540: -- update_row for:OKL_POOL_TRANSACTIONS_V --
2541: ------------------------------------------
2542: PROCEDURE update_row(
2543: p_api_version IN NUMBER,
2544: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2545: x_return_status OUT NOCOPY VARCHAR2,
2546: x_msg_count OUT NOCOPY NUMBER,
2547: x_msg_data OUT NOCOPY VARCHAR2,
2548: p_poxv_rec IN poxv_rec_type,
2549: x_poxv_rec OUT NOCOPY poxv_rec_type) IS
2550:
2551: l_api_version CONSTANT NUMBER := 1;
2552: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2553: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2554: l_poxv_rec poxv_rec_type := p_poxv_rec;
2555: l_def_poxv_rec poxv_rec_type;
2556: l_db_poxv_rec poxv_rec_type;
2557: l_pox_rec pox_rec_type;
2576: p_poxv_rec IN poxv_rec_type,
2577: x_poxv_rec OUT NOCOPY poxv_rec_type
2578: ) RETURN VARCHAR2 IS
2579: l_row_notfound BOOLEAN := TRUE;
2580: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2581: BEGIN
2582: x_poxv_rec := p_poxv_rec;
2583: -- Get current database values
2584: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2583: -- Get current database values
2584: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2585: -- so it may be verified through LOCK_ROW.
2586: l_db_poxv_rec := get_rec(p_poxv_rec, l_return_status);
2587: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2588: IF (x_poxv_rec.id = OKL_API.G_MISS_NUM)
2589: THEN
2590: x_poxv_rec.id := l_db_poxv_rec.id;
2591: END IF;
2584: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2585: -- so it may be verified through LOCK_ROW.
2586: l_db_poxv_rec := get_rec(p_poxv_rec, l_return_status);
2587: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2588: IF (x_poxv_rec.id = OKL_API.G_MISS_NUM)
2589: THEN
2590: x_poxv_rec.id := l_db_poxv_rec.id;
2591: END IF;
2592: IF (x_poxv_rec.object_version_number = OKL_API.G_MISS_NUM)
2588: IF (x_poxv_rec.id = OKL_API.G_MISS_NUM)
2589: THEN
2590: x_poxv_rec.id := l_db_poxv_rec.id;
2591: END IF;
2592: IF (x_poxv_rec.object_version_number = OKL_API.G_MISS_NUM)
2593: THEN
2594: x_poxv_rec.object_version_number := l_db_poxv_rec.object_version_number;
2595: END IF;
2596: IF (x_poxv_rec.pol_id = OKL_API.G_MISS_NUM)
2592: IF (x_poxv_rec.object_version_number = OKL_API.G_MISS_NUM)
2593: THEN
2594: x_poxv_rec.object_version_number := l_db_poxv_rec.object_version_number;
2595: END IF;
2596: IF (x_poxv_rec.pol_id = OKL_API.G_MISS_NUM)
2597: THEN
2598: x_poxv_rec.pol_id := l_db_poxv_rec.pol_id;
2599: END IF;
2600: IF (x_poxv_rec.transaction_number = OKL_API.G_MISS_NUM)
2596: IF (x_poxv_rec.pol_id = OKL_API.G_MISS_NUM)
2597: THEN
2598: x_poxv_rec.pol_id := l_db_poxv_rec.pol_id;
2599: END IF;
2600: IF (x_poxv_rec.transaction_number = OKL_API.G_MISS_NUM)
2601: THEN
2602: x_poxv_rec.transaction_number := l_db_poxv_rec.transaction_number;
2603: END IF;
2604: IF (x_poxv_rec.transaction_date = OKL_API.G_MISS_DATE)
2600: IF (x_poxv_rec.transaction_number = OKL_API.G_MISS_NUM)
2601: THEN
2602: x_poxv_rec.transaction_number := l_db_poxv_rec.transaction_number;
2603: END IF;
2604: IF (x_poxv_rec.transaction_date = OKL_API.G_MISS_DATE)
2605: THEN
2606: x_poxv_rec.transaction_date := l_db_poxv_rec.transaction_date;
2607: END IF;
2608: IF (x_poxv_rec.transaction_type = OKL_API.G_MISS_CHAR)
2604: IF (x_poxv_rec.transaction_date = OKL_API.G_MISS_DATE)
2605: THEN
2606: x_poxv_rec.transaction_date := l_db_poxv_rec.transaction_date;
2607: END IF;
2608: IF (x_poxv_rec.transaction_type = OKL_API.G_MISS_CHAR)
2609: THEN
2610: x_poxv_rec.transaction_type := l_db_poxv_rec.transaction_type;
2611: END IF;
2612: IF (x_poxv_rec.transaction_sub_type = OKL_API.G_MISS_CHAR)
2608: IF (x_poxv_rec.transaction_type = OKL_API.G_MISS_CHAR)
2609: THEN
2610: x_poxv_rec.transaction_type := l_db_poxv_rec.transaction_type;
2611: END IF;
2612: IF (x_poxv_rec.transaction_sub_type = OKL_API.G_MISS_CHAR)
2613: THEN
2614: x_poxv_rec.transaction_sub_type := l_db_poxv_rec.transaction_sub_type;
2615: END IF;
2616: IF (x_poxv_rec.date_effective = OKL_API.G_MISS_DATE)
2612: IF (x_poxv_rec.transaction_sub_type = OKL_API.G_MISS_CHAR)
2613: THEN
2614: x_poxv_rec.transaction_sub_type := l_db_poxv_rec.transaction_sub_type;
2615: END IF;
2616: IF (x_poxv_rec.date_effective = OKL_API.G_MISS_DATE)
2617: THEN
2618: x_poxv_rec.date_effective := l_db_poxv_rec.date_effective;
2619: END IF;
2620: IF (x_poxv_rec.currency_code = OKL_API.G_MISS_CHAR)
2616: IF (x_poxv_rec.date_effective = OKL_API.G_MISS_DATE)
2617: THEN
2618: x_poxv_rec.date_effective := l_db_poxv_rec.date_effective;
2619: END IF;
2620: IF (x_poxv_rec.currency_code = OKL_API.G_MISS_CHAR)
2621: THEN
2622: x_poxv_rec.currency_code := l_db_poxv_rec.currency_code;
2623: END IF;
2624: IF (x_poxv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
2620: IF (x_poxv_rec.currency_code = OKL_API.G_MISS_CHAR)
2621: THEN
2622: x_poxv_rec.currency_code := l_db_poxv_rec.currency_code;
2623: END IF;
2624: IF (x_poxv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
2625: THEN
2626: x_poxv_rec.currency_conversion_type := l_db_poxv_rec.currency_conversion_type;
2627: END IF;
2628: IF (x_poxv_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
2624: IF (x_poxv_rec.currency_conversion_type = OKL_API.G_MISS_CHAR)
2625: THEN
2626: x_poxv_rec.currency_conversion_type := l_db_poxv_rec.currency_conversion_type;
2627: END IF;
2628: IF (x_poxv_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
2629: THEN
2630: x_poxv_rec.currency_conversion_date := l_db_poxv_rec.currency_conversion_date;
2631: END IF;
2632: IF (x_poxv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
2628: IF (x_poxv_rec.currency_conversion_date = OKL_API.G_MISS_DATE)
2629: THEN
2630: x_poxv_rec.currency_conversion_date := l_db_poxv_rec.currency_conversion_date;
2631: END IF;
2632: IF (x_poxv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
2633: THEN
2634: x_poxv_rec.currency_conversion_rate := l_db_poxv_rec.currency_conversion_rate;
2635: END IF;
2636: IF (x_poxv_rec.transaction_reason = OKL_API.G_MISS_CHAR)
2632: IF (x_poxv_rec.currency_conversion_rate = OKL_API.G_MISS_NUM)
2633: THEN
2634: x_poxv_rec.currency_conversion_rate := l_db_poxv_rec.currency_conversion_rate;
2635: END IF;
2636: IF (x_poxv_rec.transaction_reason = OKL_API.G_MISS_CHAR)
2637: THEN
2638: x_poxv_rec.transaction_reason := l_db_poxv_rec.transaction_reason;
2639: END IF;
2640: IF (x_poxv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2636: IF (x_poxv_rec.transaction_reason = OKL_API.G_MISS_CHAR)
2637: THEN
2638: x_poxv_rec.transaction_reason := l_db_poxv_rec.transaction_reason;
2639: END IF;
2640: IF (x_poxv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2641: THEN
2642: x_poxv_rec.attribute_category := l_db_poxv_rec.attribute_category;
2643: END IF;
2644: IF (x_poxv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2640: IF (x_poxv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2641: THEN
2642: x_poxv_rec.attribute_category := l_db_poxv_rec.attribute_category;
2643: END IF;
2644: IF (x_poxv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2645: THEN
2646: x_poxv_rec.attribute1 := l_db_poxv_rec.attribute1;
2647: END IF;
2648: IF (x_poxv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2644: IF (x_poxv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2645: THEN
2646: x_poxv_rec.attribute1 := l_db_poxv_rec.attribute1;
2647: END IF;
2648: IF (x_poxv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2649: THEN
2650: x_poxv_rec.attribute2 := l_db_poxv_rec.attribute2;
2651: END IF;
2652: IF (x_poxv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2648: IF (x_poxv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2649: THEN
2650: x_poxv_rec.attribute2 := l_db_poxv_rec.attribute2;
2651: END IF;
2652: IF (x_poxv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2653: THEN
2654: x_poxv_rec.attribute3 := l_db_poxv_rec.attribute3;
2655: END IF;
2656: IF (x_poxv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2652: IF (x_poxv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2653: THEN
2654: x_poxv_rec.attribute3 := l_db_poxv_rec.attribute3;
2655: END IF;
2656: IF (x_poxv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2657: THEN
2658: x_poxv_rec.attribute4 := l_db_poxv_rec.attribute4;
2659: END IF;
2660: IF (x_poxv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2656: IF (x_poxv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2657: THEN
2658: x_poxv_rec.attribute4 := l_db_poxv_rec.attribute4;
2659: END IF;
2660: IF (x_poxv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2661: THEN
2662: x_poxv_rec.attribute5 := l_db_poxv_rec.attribute5;
2663: END IF;
2664: IF (x_poxv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2660: IF (x_poxv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2661: THEN
2662: x_poxv_rec.attribute5 := l_db_poxv_rec.attribute5;
2663: END IF;
2664: IF (x_poxv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2665: THEN
2666: x_poxv_rec.attribute6 := l_db_poxv_rec.attribute6;
2667: END IF;
2668: IF (x_poxv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2664: IF (x_poxv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2665: THEN
2666: x_poxv_rec.attribute6 := l_db_poxv_rec.attribute6;
2667: END IF;
2668: IF (x_poxv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2669: THEN
2670: x_poxv_rec.attribute7 := l_db_poxv_rec.attribute7;
2671: END IF;
2672: IF (x_poxv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2668: IF (x_poxv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2669: THEN
2670: x_poxv_rec.attribute7 := l_db_poxv_rec.attribute7;
2671: END IF;
2672: IF (x_poxv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2673: THEN
2674: x_poxv_rec.attribute8 := l_db_poxv_rec.attribute8;
2675: END IF;
2676: IF (x_poxv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2672: IF (x_poxv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2673: THEN
2674: x_poxv_rec.attribute8 := l_db_poxv_rec.attribute8;
2675: END IF;
2676: IF (x_poxv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2677: THEN
2678: x_poxv_rec.attribute9 := l_db_poxv_rec.attribute9;
2679: END IF;
2680: IF (x_poxv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2676: IF (x_poxv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2677: THEN
2678: x_poxv_rec.attribute9 := l_db_poxv_rec.attribute9;
2679: END IF;
2680: IF (x_poxv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2681: THEN
2682: x_poxv_rec.attribute10 := l_db_poxv_rec.attribute10;
2683: END IF;
2684: IF (x_poxv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2680: IF (x_poxv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2681: THEN
2682: x_poxv_rec.attribute10 := l_db_poxv_rec.attribute10;
2683: END IF;
2684: IF (x_poxv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2685: THEN
2686: x_poxv_rec.attribute11 := l_db_poxv_rec.attribute11;
2687: END IF;
2688: IF (x_poxv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2684: IF (x_poxv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2685: THEN
2686: x_poxv_rec.attribute11 := l_db_poxv_rec.attribute11;
2687: END IF;
2688: IF (x_poxv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2689: THEN
2690: x_poxv_rec.attribute12 := l_db_poxv_rec.attribute12;
2691: END IF;
2692: IF (x_poxv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2688: IF (x_poxv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2689: THEN
2690: x_poxv_rec.attribute12 := l_db_poxv_rec.attribute12;
2691: END IF;
2692: IF (x_poxv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2693: THEN
2694: x_poxv_rec.attribute13 := l_db_poxv_rec.attribute13;
2695: END IF;
2696: IF (x_poxv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2692: IF (x_poxv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2693: THEN
2694: x_poxv_rec.attribute13 := l_db_poxv_rec.attribute13;
2695: END IF;
2696: IF (x_poxv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2697: THEN
2698: x_poxv_rec.attribute14 := l_db_poxv_rec.attribute14;
2699: END IF;
2700: IF (x_poxv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2696: IF (x_poxv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2697: THEN
2698: x_poxv_rec.attribute14 := l_db_poxv_rec.attribute14;
2699: END IF;
2700: IF (x_poxv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2701: THEN
2702: x_poxv_rec.attribute15 := l_db_poxv_rec.attribute15;
2703: END IF;
2704: IF (x_poxv_rec.request_id = OKL_API.G_MISS_NUM)
2700: IF (x_poxv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2701: THEN
2702: x_poxv_rec.attribute15 := l_db_poxv_rec.attribute15;
2703: END IF;
2704: IF (x_poxv_rec.request_id = OKL_API.G_MISS_NUM)
2705: THEN
2706: x_poxv_rec.request_id := l_db_poxv_rec.request_id;
2707: END IF;
2708: IF (x_poxv_rec.program_application_id = OKL_API.G_MISS_NUM)
2704: IF (x_poxv_rec.request_id = OKL_API.G_MISS_NUM)
2705: THEN
2706: x_poxv_rec.request_id := l_db_poxv_rec.request_id;
2707: END IF;
2708: IF (x_poxv_rec.program_application_id = OKL_API.G_MISS_NUM)
2709: THEN
2710: x_poxv_rec.program_application_id := l_db_poxv_rec.program_application_id;
2711: END IF;
2712: IF (x_poxv_rec.program_id = OKL_API.G_MISS_NUM)
2708: IF (x_poxv_rec.program_application_id = OKL_API.G_MISS_NUM)
2709: THEN
2710: x_poxv_rec.program_application_id := l_db_poxv_rec.program_application_id;
2711: END IF;
2712: IF (x_poxv_rec.program_id = OKL_API.G_MISS_NUM)
2713: THEN
2714: x_poxv_rec.program_id := l_db_poxv_rec.program_id;
2715: END IF;
2716: IF (x_poxv_rec.program_update_date = OKL_API.G_MISS_DATE)
2712: IF (x_poxv_rec.program_id = OKL_API.G_MISS_NUM)
2713: THEN
2714: x_poxv_rec.program_id := l_db_poxv_rec.program_id;
2715: END IF;
2716: IF (x_poxv_rec.program_update_date = OKL_API.G_MISS_DATE)
2717: THEN
2718: x_poxv_rec.program_update_date := l_db_poxv_rec.program_update_date;
2719: END IF;
2720: IF (x_poxv_rec.created_by = OKL_API.G_MISS_NUM)
2716: IF (x_poxv_rec.program_update_date = OKL_API.G_MISS_DATE)
2717: THEN
2718: x_poxv_rec.program_update_date := l_db_poxv_rec.program_update_date;
2719: END IF;
2720: IF (x_poxv_rec.created_by = OKL_API.G_MISS_NUM)
2721: THEN
2722: x_poxv_rec.created_by := l_db_poxv_rec.created_by;
2723: END IF;
2724: IF (x_poxv_rec.creation_date = OKL_API.G_MISS_DATE)
2720: IF (x_poxv_rec.created_by = OKL_API.G_MISS_NUM)
2721: THEN
2722: x_poxv_rec.created_by := l_db_poxv_rec.created_by;
2723: END IF;
2724: IF (x_poxv_rec.creation_date = OKL_API.G_MISS_DATE)
2725: THEN
2726: x_poxv_rec.creation_date := l_db_poxv_rec.creation_date;
2727: END IF;
2728: IF (x_poxv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2724: IF (x_poxv_rec.creation_date = OKL_API.G_MISS_DATE)
2725: THEN
2726: x_poxv_rec.creation_date := l_db_poxv_rec.creation_date;
2727: END IF;
2728: IF (x_poxv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2729: THEN
2730: x_poxv_rec.last_updated_by := l_db_poxv_rec.last_updated_by;
2731: END IF;
2732: IF (x_poxv_rec.last_update_date = OKL_API.G_MISS_DATE)
2728: IF (x_poxv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2729: THEN
2730: x_poxv_rec.last_updated_by := l_db_poxv_rec.last_updated_by;
2731: END IF;
2732: IF (x_poxv_rec.last_update_date = OKL_API.G_MISS_DATE)
2733: THEN
2734: x_poxv_rec.last_update_date := l_db_poxv_rec.last_update_date;
2735: END IF;
2736: IF (x_poxv_rec.last_update_login = OKL_API.G_MISS_NUM)
2732: IF (x_poxv_rec.last_update_date = OKL_API.G_MISS_DATE)
2733: THEN
2734: x_poxv_rec.last_update_date := l_db_poxv_rec.last_update_date;
2735: END IF;
2736: IF (x_poxv_rec.last_update_login = OKL_API.G_MISS_NUM)
2737: THEN
2738: x_poxv_rec.last_update_login := l_db_poxv_rec.last_update_login;
2739: END IF;
2740: IF (x_poxv_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2736: IF (x_poxv_rec.last_update_login = OKL_API.G_MISS_NUM)
2737: THEN
2738: x_poxv_rec.last_update_login := l_db_poxv_rec.last_update_login;
2739: END IF;
2740: IF (x_poxv_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2741: THEN
2742: x_poxv_rec.legal_entity_id := l_db_poxv_rec.legal_entity_id;
2743: END IF;
2744: IF (x_poxv_rec.transaction_status = OKL_API.G_MISS_CHAR)
2740: IF (x_poxv_rec.legal_entity_id = OKL_API.G_MISS_NUM)
2741: THEN
2742: x_poxv_rec.legal_entity_id := l_db_poxv_rec.legal_entity_id;
2743: END IF;
2744: IF (x_poxv_rec.transaction_status = OKL_API.G_MISS_CHAR)
2745: THEN
2746: x_poxv_rec.transaction_status := l_db_poxv_rec.transaction_status;
2747: END IF;
2748: END IF;
2754: FUNCTION Set_Attributes (
2755: p_poxv_rec IN poxv_rec_type,
2756: x_poxv_rec OUT NOCOPY poxv_rec_type
2757: ) RETURN VARCHAR2 IS
2758: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2759: BEGIN
2760: x_poxv_rec := p_poxv_rec;
2761: RETURN(l_return_status);
2762: END Set_Attributes;
2760: x_poxv_rec := p_poxv_rec;
2761: RETURN(l_return_status);
2762: END Set_Attributes;
2763: BEGIN
2764: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2765: G_PKG_NAME,
2766: p_init_msg_list,
2767: l_api_version,
2768: p_api_version,
2767: l_api_version,
2768: p_api_version,
2769: '_PVT',
2770: x_return_status);
2771: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2773: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2774: RAISE OKL_API.G_EXCEPTION_ERROR;
2775: END IF;
2768: p_api_version,
2769: '_PVT',
2770: x_return_status);
2771: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2773: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2774: RAISE OKL_API.G_EXCEPTION_ERROR;
2775: END IF;
2776: --- Setting item attributes
2769: '_PVT',
2770: x_return_status);
2771: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2773: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2774: RAISE OKL_API.G_EXCEPTION_ERROR;
2775: END IF;
2776: --- Setting item attributes
2777: l_return_status := Set_Attributes(
2770: x_return_status);
2771: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2772: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2773: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2774: RAISE OKL_API.G_EXCEPTION_ERROR;
2775: END IF;
2776: --- Setting item attributes
2777: l_return_status := Set_Attributes(
2778: p_poxv_rec, -- IN
2777: l_return_status := Set_Attributes(
2778: p_poxv_rec, -- IN
2779: x_poxv_rec); -- OUT
2780: --- If any errors happen abort API
2781: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2783: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2784: RAISE OKL_API.G_EXCEPTION_ERROR;
2785: END IF;
2778: p_poxv_rec, -- IN
2779: x_poxv_rec); -- OUT
2780: --- If any errors happen abort API
2781: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2783: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2784: RAISE OKL_API.G_EXCEPTION_ERROR;
2785: END IF;
2786: l_return_status := populate_new_record(l_poxv_rec, l_def_poxv_rec);
2779: x_poxv_rec); -- OUT
2780: --- If any errors happen abort API
2781: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2783: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2784: RAISE OKL_API.G_EXCEPTION_ERROR;
2785: END IF;
2786: l_return_status := populate_new_record(l_poxv_rec, l_def_poxv_rec);
2787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2780: --- If any errors happen abort API
2781: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2782: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2783: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2784: RAISE OKL_API.G_EXCEPTION_ERROR;
2785: END IF;
2786: l_return_status := populate_new_record(l_poxv_rec, l_def_poxv_rec);
2787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2783: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2784: RAISE OKL_API.G_EXCEPTION_ERROR;
2785: END IF;
2786: l_return_status := populate_new_record(l_poxv_rec, l_def_poxv_rec);
2787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2784: RAISE OKL_API.G_EXCEPTION_ERROR;
2785: END IF;
2786: l_return_status := populate_new_record(l_poxv_rec, l_def_poxv_rec);
2787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2792: l_def_poxv_rec := fill_who_columns(l_def_poxv_rec);
2785: END IF;
2786: l_return_status := populate_new_record(l_poxv_rec, l_def_poxv_rec);
2787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2792: l_def_poxv_rec := fill_who_columns(l_def_poxv_rec);
2793: --- Validate all non-missing attributes (Item Level Validation)
2786: l_return_status := populate_new_record(l_poxv_rec, l_def_poxv_rec);
2787: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2788: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2789: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2790: RAISE OKL_API.G_EXCEPTION_ERROR;
2791: END IF;
2792: l_def_poxv_rec := fill_who_columns(l_def_poxv_rec);
2793: --- Validate all non-missing attributes (Item Level Validation)
2794: l_return_status := Validate_Attributes(l_def_poxv_rec);
2792: l_def_poxv_rec := fill_who_columns(l_def_poxv_rec);
2793: --- Validate all non-missing attributes (Item Level Validation)
2794: l_return_status := Validate_Attributes(l_def_poxv_rec);
2795: --- If any errors happen abort API
2796: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2798: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2799: RAISE OKL_API.G_EXCEPTION_ERROR;
2800: END IF;
2793: --- Validate all non-missing attributes (Item Level Validation)
2794: l_return_status := Validate_Attributes(l_def_poxv_rec);
2795: --- If any errors happen abort API
2796: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2798: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2799: RAISE OKL_API.G_EXCEPTION_ERROR;
2800: END IF;
2801: l_return_status := Validate_Record(l_def_poxv_rec, l_db_poxv_rec);
2794: l_return_status := Validate_Attributes(l_def_poxv_rec);
2795: --- If any errors happen abort API
2796: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2798: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2799: RAISE OKL_API.G_EXCEPTION_ERROR;
2800: END IF;
2801: l_return_status := Validate_Record(l_def_poxv_rec, l_db_poxv_rec);
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2795: --- If any errors happen abort API
2796: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2797: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2798: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2799: RAISE OKL_API.G_EXCEPTION_ERROR;
2800: END IF;
2801: l_return_status := Validate_Record(l_def_poxv_rec, l_db_poxv_rec);
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2798: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2799: RAISE OKL_API.G_EXCEPTION_ERROR;
2800: END IF;
2801: l_return_status := Validate_Record(l_def_poxv_rec, l_db_poxv_rec);
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2804: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2805: RAISE OKL_API.G_EXCEPTION_ERROR;
2806: END IF;
2799: RAISE OKL_API.G_EXCEPTION_ERROR;
2800: END IF;
2801: l_return_status := Validate_Record(l_def_poxv_rec, l_db_poxv_rec);
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2804: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2805: RAISE OKL_API.G_EXCEPTION_ERROR;
2806: END IF;
2807:
2800: END IF;
2801: l_return_status := Validate_Record(l_def_poxv_rec, l_db_poxv_rec);
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2804: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2805: RAISE OKL_API.G_EXCEPTION_ERROR;
2806: END IF;
2807:
2808: /*
2801: l_return_status := Validate_Record(l_def_poxv_rec, l_db_poxv_rec);
2802: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2803: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2804: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2805: RAISE OKL_API.G_EXCEPTION_ERROR;
2806: END IF;
2807:
2808: /*
2809: -- mvasudev commented
2814: x_return_status => l_return_status,
2815: x_msg_count => x_msg_count,
2816: x_msg_data => x_msg_data,
2817: p_poxv_rec => p_poxv_rec);
2818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2821: RAISE OKL_API.G_EXCEPTION_ERROR;
2822: END IF;
2815: x_msg_count => x_msg_count,
2816: x_msg_data => x_msg_data,
2817: p_poxv_rec => p_poxv_rec);
2818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2821: RAISE OKL_API.G_EXCEPTION_ERROR;
2822: END IF;
2823: */
2816: x_msg_data => x_msg_data,
2817: p_poxv_rec => p_poxv_rec);
2818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2821: RAISE OKL_API.G_EXCEPTION_ERROR;
2822: END IF;
2823: */
2824:
2817: p_poxv_rec => p_poxv_rec);
2818: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2819: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2820: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2821: RAISE OKL_API.G_EXCEPTION_ERROR;
2822: END IF;
2823: */
2824:
2825: -----------------------------------------
2836: x_msg_data,
2837: l_pox_rec,
2838: lx_pox_rec
2839: );
2840: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2843: RAISE OKL_API.G_EXCEPTION_ERROR;
2844: END IF;
2837: l_pox_rec,
2838: lx_pox_rec
2839: );
2840: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2843: RAISE OKL_API.G_EXCEPTION_ERROR;
2844: END IF;
2845: migrate(lx_pox_rec, l_def_poxv_rec);
2838: lx_pox_rec
2839: );
2840: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2843: RAISE OKL_API.G_EXCEPTION_ERROR;
2844: END IF;
2845: migrate(lx_pox_rec, l_def_poxv_rec);
2846: x_poxv_rec := l_def_poxv_rec;
2839: );
2840: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2842: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2843: RAISE OKL_API.G_EXCEPTION_ERROR;
2844: END IF;
2845: migrate(lx_pox_rec, l_def_poxv_rec);
2846: x_poxv_rec := l_def_poxv_rec;
2847: x_return_status := l_return_status;
2844: END IF;
2845: migrate(lx_pox_rec, l_def_poxv_rec);
2846: x_poxv_rec := l_def_poxv_rec;
2847: x_return_status := l_return_status;
2848: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2850: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2846: x_poxv_rec := l_def_poxv_rec;
2847: x_return_status := l_return_status;
2848: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2850: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2847: x_return_status := l_return_status;
2848: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2849: EXCEPTION
2850: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OKL_API.G_RET_STS_ERROR',
2851: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2852: (
2853: l_api_name,
2854: G_PKG_NAME,
2855: 'OKL_API.G_RET_STS_ERROR',
2856: x_msg_count,
2857: x_msg_data,
2858: '_PVT'
2859: );
2856: x_msg_count,
2857: x_msg_data,
2858: '_PVT'
2859: );
2860: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2861: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2857: x_msg_data,
2858: '_PVT'
2859: );
2860: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2861: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2865: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2861: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2862: (
2863: l_api_name,
2864: G_PKG_NAME,
2865: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2866: x_msg_count,
2867: x_msg_data,
2868: '_PVT'
2869: );
2867: x_msg_data,
2868: '_PVT'
2869: );
2870: WHEN OTHERS THEN
2871: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2872: (
2873: l_api_name,
2874: G_PKG_NAME,
2875: 'OTHERS',
2882: -- PL/SQL TBL update_row for:poxv_tbl --
2883: ----------------------------------------
2884: PROCEDURE update_row(
2885: p_api_version IN NUMBER,
2886: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2887: x_return_status OUT NOCOPY VARCHAR2,
2888: x_msg_count OUT NOCOPY NUMBER,
2889: x_msg_data OUT NOCOPY VARCHAR2,
2890: p_poxv_tbl IN poxv_tbl_type,
2888: x_msg_count OUT NOCOPY NUMBER,
2889: x_msg_data OUT NOCOPY VARCHAR2,
2890: p_poxv_tbl IN poxv_tbl_type,
2891: x_poxv_tbl OUT NOCOPY poxv_tbl_type,
2892: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2893:
2894: l_api_version CONSTANT NUMBER := 1;
2895: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2896: i NUMBER := 0;
2894: l_api_version CONSTANT NUMBER := 1;
2895: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2896: i NUMBER := 0;
2897: BEGIN
2898: OKL_API.init_msg_list(p_init_msg_list);
2899: -- Make sure PL/SQL table has records in it before passing
2900: IF (p_poxv_tbl.COUNT > 0) THEN
2901: i := p_poxv_tbl.FIRST;
2902: LOOP
2900: IF (p_poxv_tbl.COUNT > 0) THEN
2901: i := p_poxv_tbl.FIRST;
2902: LOOP
2903: DECLARE
2904: l_error_rec OKL_API.ERROR_REC_TYPE;
2905: BEGIN
2906: l_error_rec.api_name := l_api_name;
2907: l_error_rec.api_package := G_PKG_NAME;
2908: l_error_rec.idx := i;
2907: l_error_rec.api_package := G_PKG_NAME;
2908: l_error_rec.idx := i;
2909: update_row (
2910: p_api_version => p_api_version,
2911: p_init_msg_list => OKL_API.G_FALSE,
2912: x_return_status => l_error_rec.error_type,
2913: x_msg_count => l_error_rec.msg_count,
2914: x_msg_data => l_error_rec.msg_data,
2915: p_poxv_rec => p_poxv_tbl(i),
2913: x_msg_count => l_error_rec.msg_count,
2914: x_msg_data => l_error_rec.msg_data,
2915: p_poxv_rec => p_poxv_tbl(i),
2916: x_poxv_rec => x_poxv_tbl(i));
2917: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2918: l_error_rec.SQLCODE := SQLCODE;
2919: load_error_tbl(l_error_rec, px_error_tbl);
2920: ELSE
2921: x_msg_count := l_error_rec.msg_count;
2921: x_msg_count := l_error_rec.msg_count;
2922: x_msg_data := l_error_rec.msg_data;
2923: END IF;
2924: EXCEPTION
2925: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2926: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2927: l_error_rec.SQLCODE := SQLCODE;
2928: load_error_tbl(l_error_rec, px_error_tbl);
2929: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2922: x_msg_data := l_error_rec.msg_data;
2923: END IF;
2924: EXCEPTION
2925: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2926: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2927: l_error_rec.SQLCODE := SQLCODE;
2928: load_error_tbl(l_error_rec, px_error_tbl);
2929: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2930: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2925: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2926: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2927: l_error_rec.SQLCODE := SQLCODE;
2928: load_error_tbl(l_error_rec, px_error_tbl);
2929: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2930: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2931: l_error_rec.SQLCODE := SQLCODE;
2932: load_error_tbl(l_error_rec, px_error_tbl);
2933: WHEN OTHERS THEN
2926: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2927: l_error_rec.SQLCODE := SQLCODE;
2928: load_error_tbl(l_error_rec, px_error_tbl);
2929: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2930: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2931: l_error_rec.SQLCODE := SQLCODE;
2932: load_error_tbl(l_error_rec, px_error_tbl);
2933: WHEN OTHERS THEN
2934: l_error_rec.error_type := 'OTHERS';
2941: END IF;
2942: -- Loop through the error_tbl to find the error with the highest severity
2943: -- and return it.
2944: x_return_status := find_highest_exception(px_error_tbl);
2945: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2946: EXCEPTION
2947: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2948: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2949: (
2943: -- and return it.
2944: x_return_status := find_highest_exception(px_error_tbl);
2945: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2946: EXCEPTION
2947: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2948: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2949: (
2950: l_api_name,
2951: G_PKG_NAME,
2944: x_return_status := find_highest_exception(px_error_tbl);
2945: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2946: EXCEPTION
2947: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2948: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2949: (
2950: l_api_name,
2951: G_PKG_NAME,
2952: 'OKL_API.G_RET_STS_ERROR',
2948: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2949: (
2950: l_api_name,
2951: G_PKG_NAME,
2952: 'OKL_API.G_RET_STS_ERROR',
2953: x_msg_count,
2954: x_msg_data,
2955: '_PVT'
2956: );
2953: x_msg_count,
2954: x_msg_data,
2955: '_PVT'
2956: );
2957: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2958: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2959: (
2960: l_api_name,
2961: G_PKG_NAME,
2954: x_msg_data,
2955: '_PVT'
2956: );
2957: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2958: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2959: (
2960: l_api_name,
2961: G_PKG_NAME,
2962: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2958: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2959: (
2960: l_api_name,
2961: G_PKG_NAME,
2962: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2963: x_msg_count,
2964: x_msg_data,
2965: '_PVT'
2966: );
2964: x_msg_data,
2965: '_PVT'
2966: );
2967: WHEN OTHERS THEN
2968: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2969: (
2970: l_api_name,
2971: G_PKG_NAME,
2972: 'OTHERS',
2980: -- PL/SQL TBL update_row for:poxv_TBL --
2981: ----------------------------------------
2982: PROCEDURE update_row(
2983: p_api_version IN NUMBER,
2984: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2985: x_return_status OUT NOCOPY VARCHAR2,
2986: x_msg_count OUT NOCOPY NUMBER,
2987: x_msg_data OUT NOCOPY VARCHAR2,
2988: p_poxv_tbl IN poxv_tbl_type,
2989: x_poxv_tbl OUT NOCOPY poxv_tbl_type) IS
2990:
2991: l_api_version CONSTANT NUMBER := 1;
2992: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2993: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2994: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2995: BEGIN
2996: OKL_API.init_msg_list(p_init_msg_list);
2997: -- Make sure PL/SQL table has records in it before passing
2990:
2991: l_api_version CONSTANT NUMBER := 1;
2992: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2993: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2994: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2995: BEGIN
2996: OKL_API.init_msg_list(p_init_msg_list);
2997: -- Make sure PL/SQL table has records in it before passing
2998: IF (p_poxv_tbl.COUNT > 0) THEN
2992: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2993: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2994: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2995: BEGIN
2996: OKL_API.init_msg_list(p_init_msg_list);
2997: -- Make sure PL/SQL table has records in it before passing
2998: IF (p_poxv_tbl.COUNT > 0) THEN
2999: update_row (
3000: p_api_version => p_api_version,
2997: -- Make sure PL/SQL table has records in it before passing
2998: IF (p_poxv_tbl.COUNT > 0) THEN
2999: update_row (
3000: p_api_version => p_api_version,
3001: p_init_msg_list => OKL_API.G_FALSE,
3002: x_return_status => x_return_status,
3003: x_msg_count => x_msg_count,
3004: x_msg_data => x_msg_data,
3005: p_poxv_tbl => p_poxv_tbl,
3005: p_poxv_tbl => p_poxv_tbl,
3006: x_poxv_tbl => x_poxv_tbl,
3007: px_error_tbl => l_error_tbl);
3008: END IF;
3009: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3010: EXCEPTION
3011: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3012: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3013: (
3007: px_error_tbl => l_error_tbl);
3008: END IF;
3009: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3010: EXCEPTION
3011: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3012: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3013: (
3014: l_api_name,
3015: G_PKG_NAME,
3008: END IF;
3009: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3010: EXCEPTION
3011: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3012: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3013: (
3014: l_api_name,
3015: G_PKG_NAME,
3016: 'OKL_API.G_RET_STS_ERROR',
3012: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3013: (
3014: l_api_name,
3015: G_PKG_NAME,
3016: 'OKL_API.G_RET_STS_ERROR',
3017: x_msg_count,
3018: x_msg_data,
3019: '_PVT'
3020: );
3017: x_msg_count,
3018: x_msg_data,
3019: '_PVT'
3020: );
3021: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3023: (
3024: l_api_name,
3025: G_PKG_NAME,
3018: x_msg_data,
3019: '_PVT'
3020: );
3021: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3023: (
3024: l_api_name,
3025: G_PKG_NAME,
3026: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3022: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3023: (
3024: l_api_name,
3025: G_PKG_NAME,
3026: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3027: x_msg_count,
3028: x_msg_data,
3029: '_PVT'
3030: );
3028: x_msg_data,
3029: '_PVT'
3030: );
3031: WHEN OTHERS THEN
3032: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3033: (
3034: l_api_name,
3035: G_PKG_NAME,
3036: 'OTHERS',
3046: ----------------------------------------
3047: -- delete_row for:okl_pool_transactions --
3048: ----------------------------------------
3049: PROCEDURE delete_row(
3050: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3051: x_return_status OUT NOCOPY VARCHAR2,
3052: x_msg_count OUT NOCOPY NUMBER,
3053: x_msg_data OUT NOCOPY VARCHAR2,
3054: p_pox_rec IN pox_rec_type) IS
3054: p_pox_rec IN pox_rec_type) IS
3055:
3056: l_api_version CONSTANT NUMBER := 1;
3057: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3058: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3059: l_pox_rec pox_rec_type := p_pox_rec;
3060: l_row_notfound BOOLEAN := TRUE;
3061: BEGIN
3062: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3058: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3059: l_pox_rec pox_rec_type := p_pox_rec;
3060: l_row_notfound BOOLEAN := TRUE;
3061: BEGIN
3062: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3063: p_init_msg_list,
3064: '_PVT',
3065: x_return_status);
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3062: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3063: p_init_msg_list,
3064: '_PVT',
3065: x_return_status);
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070: END IF;
3063: p_init_msg_list,
3064: '_PVT',
3065: x_return_status);
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070: END IF;
3071:
3064: '_PVT',
3065: x_return_status);
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070: END IF;
3071:
3072: DELETE FROM okl_pool_transactions
3065: x_return_status);
3066: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3067: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3068: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070: END IF;
3071:
3072: DELETE FROM okl_pool_transactions
3073: WHERE ID = p_pox_rec.id;
3072: DELETE FROM okl_pool_transactions
3073: WHERE ID = p_pox_rec.id;
3074:
3075: x_return_status := l_return_status;
3076: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3077: EXCEPTION
3078: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3079: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3080: (
3074:
3075: x_return_status := l_return_status;
3076: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3077: EXCEPTION
3078: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3079: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3080: (
3081: l_api_name,
3082: G_PKG_NAME,
3075: x_return_status := l_return_status;
3076: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3077: EXCEPTION
3078: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3079: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3080: (
3081: l_api_name,
3082: G_PKG_NAME,
3083: 'OKL_API.G_RET_STS_ERROR',
3079: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3080: (
3081: l_api_name,
3082: G_PKG_NAME,
3083: 'OKL_API.G_RET_STS_ERROR',
3084: x_msg_count,
3085: x_msg_data,
3086: '_PVT'
3087: );
3084: x_msg_count,
3085: x_msg_data,
3086: '_PVT'
3087: );
3088: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3089: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3090: (
3091: l_api_name,
3092: G_PKG_NAME,
3085: x_msg_data,
3086: '_PVT'
3087: );
3088: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3089: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3090: (
3091: l_api_name,
3092: G_PKG_NAME,
3093: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3089: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3090: (
3091: l_api_name,
3092: G_PKG_NAME,
3093: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3094: x_msg_count,
3095: x_msg_data,
3096: '_PVT'
3097: );
3095: x_msg_data,
3096: '_PVT'
3097: );
3098: WHEN OTHERS THEN
3099: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3100: (
3101: l_api_name,
3102: G_PKG_NAME,
3103: 'OTHERS',
3110: -- delete_row for:OKL_POOL_TRANSACTIONS_V --
3111: ------------------------------------------
3112: PROCEDURE delete_row(
3113: p_api_version IN NUMBER,
3114: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3115: x_return_status OUT NOCOPY VARCHAR2,
3116: x_msg_count OUT NOCOPY NUMBER,
3117: x_msg_data OUT NOCOPY VARCHAR2,
3118: p_poxv_rec IN poxv_rec_type) IS
3118: p_poxv_rec IN poxv_rec_type) IS
3119:
3120: l_api_version CONSTANT NUMBER := 1;
3121: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3122: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3123: l_poxv_rec poxv_rec_type := p_poxv_rec;
3124: l_pox_rec pox_rec_type;
3125: BEGIN
3126: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3122: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3123: l_poxv_rec poxv_rec_type := p_poxv_rec;
3124: l_pox_rec pox_rec_type;
3125: BEGIN
3126: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3127: G_PKG_NAME,
3128: p_init_msg_list,
3129: l_api_version,
3130: p_api_version,
3129: l_api_version,
3130: p_api_version,
3131: '_PVT',
3132: x_return_status);
3133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3136: RAISE OKL_API.G_EXCEPTION_ERROR;
3137: END IF;
3130: p_api_version,
3131: '_PVT',
3132: x_return_status);
3133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3136: RAISE OKL_API.G_EXCEPTION_ERROR;
3137: END IF;
3138: -----------------------------------------
3131: '_PVT',
3132: x_return_status);
3133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3136: RAISE OKL_API.G_EXCEPTION_ERROR;
3137: END IF;
3138: -----------------------------------------
3139: -- Move VIEW record to "Child" records --
3132: x_return_status);
3133: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3134: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3135: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3136: RAISE OKL_API.G_EXCEPTION_ERROR;
3137: END IF;
3138: -----------------------------------------
3139: -- Move VIEW record to "Child" records --
3140: -----------------------------------------
3148: x_msg_count,
3149: x_msg_data,
3150: l_pox_rec
3151: );
3152: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3154: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3155: RAISE OKL_API.G_EXCEPTION_ERROR;
3156: END IF;
3149: x_msg_data,
3150: l_pox_rec
3151: );
3152: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3154: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3155: RAISE OKL_API.G_EXCEPTION_ERROR;
3156: END IF;
3157: x_return_status := l_return_status;
3150: l_pox_rec
3151: );
3152: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3154: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3155: RAISE OKL_API.G_EXCEPTION_ERROR;
3156: END IF;
3157: x_return_status := l_return_status;
3158: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3151: );
3152: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3153: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3154: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3155: RAISE OKL_API.G_EXCEPTION_ERROR;
3156: END IF;
3157: x_return_status := l_return_status;
3158: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3159: EXCEPTION
3154: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3155: RAISE OKL_API.G_EXCEPTION_ERROR;
3156: END IF;
3157: x_return_status := l_return_status;
3158: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3159: EXCEPTION
3160: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3161: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3162: (
3156: END IF;
3157: x_return_status := l_return_status;
3158: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3159: EXCEPTION
3160: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3161: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3162: (
3163: l_api_name,
3164: G_PKG_NAME,
3157: x_return_status := l_return_status;
3158: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3159: EXCEPTION
3160: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3161: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3162: (
3163: l_api_name,
3164: G_PKG_NAME,
3165: 'OKL_API.G_RET_STS_ERROR',
3161: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3162: (
3163: l_api_name,
3164: G_PKG_NAME,
3165: 'OKL_API.G_RET_STS_ERROR',
3166: x_msg_count,
3167: x_msg_data,
3168: '_PVT'
3169: );
3166: x_msg_count,
3167: x_msg_data,
3168: '_PVT'
3169: );
3170: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3172: (
3173: l_api_name,
3174: G_PKG_NAME,
3167: x_msg_data,
3168: '_PVT'
3169: );
3170: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3172: (
3173: l_api_name,
3174: G_PKG_NAME,
3175: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3171: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3172: (
3173: l_api_name,
3174: G_PKG_NAME,
3175: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3176: x_msg_count,
3177: x_msg_data,
3178: '_PVT'
3179: );
3177: x_msg_data,
3178: '_PVT'
3179: );
3180: WHEN OTHERS THEN
3181: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3182: (
3183: l_api_name,
3184: G_PKG_NAME,
3185: 'OTHERS',
3192: -- PL/SQL TBL delete_row for:OKL_POOL_TRANSACTIONS_V --
3193: -----------------------------------------------------
3194: PROCEDURE delete_row(
3195: p_api_version IN NUMBER,
3196: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3197: x_return_status OUT NOCOPY VARCHAR2,
3198: x_msg_count OUT NOCOPY NUMBER,
3199: x_msg_data OUT NOCOPY VARCHAR2,
3200: p_poxv_tbl IN poxv_tbl_type,
3197: x_return_status OUT NOCOPY VARCHAR2,
3198: x_msg_count OUT NOCOPY NUMBER,
3199: x_msg_data OUT NOCOPY VARCHAR2,
3200: p_poxv_tbl IN poxv_tbl_type,
3201: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3202:
3203: l_api_version CONSTANT NUMBER := 1;
3204: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3205: i NUMBER := 0;
3203: l_api_version CONSTANT NUMBER := 1;
3204: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3205: i NUMBER := 0;
3206: BEGIN
3207: OKL_API.init_msg_list(p_init_msg_list);
3208: -- Make sure PL/SQL table has records in it before passing
3209: IF (p_poxv_tbl.COUNT > 0) THEN
3210: i := p_poxv_tbl.FIRST;
3211: LOOP
3209: IF (p_poxv_tbl.COUNT > 0) THEN
3210: i := p_poxv_tbl.FIRST;
3211: LOOP
3212: DECLARE
3213: l_error_rec OKL_API.ERROR_REC_TYPE;
3214: BEGIN
3215: l_error_rec.api_name := l_api_name;
3216: l_error_rec.api_package := G_PKG_NAME;
3217: l_error_rec.idx := i;
3216: l_error_rec.api_package := G_PKG_NAME;
3217: l_error_rec.idx := i;
3218: delete_row (
3219: p_api_version => p_api_version,
3220: p_init_msg_list => OKL_API.G_FALSE,
3221: x_return_status => l_error_rec.error_type,
3222: x_msg_count => l_error_rec.msg_count,
3223: x_msg_data => l_error_rec.msg_data,
3224: p_poxv_rec => p_poxv_tbl(i));
3221: x_return_status => l_error_rec.error_type,
3222: x_msg_count => l_error_rec.msg_count,
3223: x_msg_data => l_error_rec.msg_data,
3224: p_poxv_rec => p_poxv_tbl(i));
3225: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3226: l_error_rec.SQLCODE := SQLCODE;
3227: load_error_tbl(l_error_rec, px_error_tbl);
3228: ELSE
3229: x_msg_count := l_error_rec.msg_count;
3229: x_msg_count := l_error_rec.msg_count;
3230: x_msg_data := l_error_rec.msg_data;
3231: END IF;
3232: EXCEPTION
3233: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3234: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3235: l_error_rec.SQLCODE := SQLCODE;
3236: load_error_tbl(l_error_rec, px_error_tbl);
3237: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3230: x_msg_data := l_error_rec.msg_data;
3231: END IF;
3232: EXCEPTION
3233: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3234: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3235: l_error_rec.SQLCODE := SQLCODE;
3236: load_error_tbl(l_error_rec, px_error_tbl);
3237: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3238: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3233: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3234: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3235: l_error_rec.SQLCODE := SQLCODE;
3236: load_error_tbl(l_error_rec, px_error_tbl);
3237: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3238: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3239: l_error_rec.SQLCODE := SQLCODE;
3240: load_error_tbl(l_error_rec, px_error_tbl);
3241: WHEN OTHERS THEN
3234: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3235: l_error_rec.SQLCODE := SQLCODE;
3236: load_error_tbl(l_error_rec, px_error_tbl);
3237: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3238: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3239: l_error_rec.SQLCODE := SQLCODE;
3240: load_error_tbl(l_error_rec, px_error_tbl);
3241: WHEN OTHERS THEN
3242: l_error_rec.error_type := 'OTHERS';
3249: END IF;
3250: -- Loop through the error_tbl to find the error with the highest severity
3251: -- and return it.
3252: x_return_status := find_highest_exception(px_error_tbl);
3253: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3254: EXCEPTION
3255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3256: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3257: (
3251: -- and return it.
3252: x_return_status := find_highest_exception(px_error_tbl);
3253: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3254: EXCEPTION
3255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3256: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3257: (
3258: l_api_name,
3259: G_PKG_NAME,
3252: x_return_status := find_highest_exception(px_error_tbl);
3253: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3254: EXCEPTION
3255: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3256: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3257: (
3258: l_api_name,
3259: G_PKG_NAME,
3260: 'OKL_API.G_RET_STS_ERROR',
3256: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3257: (
3258: l_api_name,
3259: G_PKG_NAME,
3260: 'OKL_API.G_RET_STS_ERROR',
3261: x_msg_count,
3262: x_msg_data,
3263: '_PVT'
3264: );
3261: x_msg_count,
3262: x_msg_data,
3263: '_PVT'
3264: );
3265: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3266: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3267: (
3268: l_api_name,
3269: G_PKG_NAME,
3262: x_msg_data,
3263: '_PVT'
3264: );
3265: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3266: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3267: (
3268: l_api_name,
3269: G_PKG_NAME,
3270: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3266: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3267: (
3268: l_api_name,
3269: G_PKG_NAME,
3270: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3271: x_msg_count,
3272: x_msg_data,
3273: '_PVT'
3274: );
3272: x_msg_data,
3273: '_PVT'
3274: );
3275: WHEN OTHERS THEN
3276: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3277: (
3278: l_api_name,
3279: G_PKG_NAME,
3280: 'OTHERS',
3288: -- PL/SQL TBL delete_row for:OKL_POOL_TRANSACTIONS_V --
3289: -----------------------------------------------------
3290: PROCEDURE delete_row(
3291: p_api_version IN NUMBER,
3292: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3293: x_return_status OUT NOCOPY VARCHAR2,
3294: x_msg_count OUT NOCOPY NUMBER,
3295: x_msg_data OUT NOCOPY VARCHAR2,
3296: p_poxv_tbl IN poxv_tbl_type) IS
3296: p_poxv_tbl IN poxv_tbl_type) IS
3297:
3298: l_api_version CONSTANT NUMBER := 1;
3299: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3300: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3301: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3302: BEGIN
3303: OKL_API.init_msg_list(p_init_msg_list);
3304: -- Make sure PL/SQL table has records in it before passing
3297:
3298: l_api_version CONSTANT NUMBER := 1;
3299: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3300: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3301: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3302: BEGIN
3303: OKL_API.init_msg_list(p_init_msg_list);
3304: -- Make sure PL/SQL table has records in it before passing
3305: IF (p_poxv_tbl.COUNT > 0) THEN
3299: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3300: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3301: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3302: BEGIN
3303: OKL_API.init_msg_list(p_init_msg_list);
3304: -- Make sure PL/SQL table has records in it before passing
3305: IF (p_poxv_tbl.COUNT > 0) THEN
3306: delete_row (
3307: p_api_version => p_api_version,
3304: -- Make sure PL/SQL table has records in it before passing
3305: IF (p_poxv_tbl.COUNT > 0) THEN
3306: delete_row (
3307: p_api_version => p_api_version,
3308: p_init_msg_list => OKL_API.G_FALSE,
3309: x_return_status => x_return_status,
3310: x_msg_count => x_msg_count,
3311: x_msg_data => x_msg_data,
3312: p_poxv_tbl => p_poxv_tbl,
3311: x_msg_data => x_msg_data,
3312: p_poxv_tbl => p_poxv_tbl,
3313: px_error_tbl => l_error_tbl);
3314: END IF;
3315: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3316: EXCEPTION
3317: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3318: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3319: (
3313: px_error_tbl => l_error_tbl);
3314: END IF;
3315: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3316: EXCEPTION
3317: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3318: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3319: (
3320: l_api_name,
3321: G_PKG_NAME,
3314: END IF;
3315: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3316: EXCEPTION
3317: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3318: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3319: (
3320: l_api_name,
3321: G_PKG_NAME,
3322: 'OKL_API.G_RET_STS_ERROR',
3318: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3319: (
3320: l_api_name,
3321: G_PKG_NAME,
3322: 'OKL_API.G_RET_STS_ERROR',
3323: x_msg_count,
3324: x_msg_data,
3325: '_PVT'
3326: );
3323: x_msg_count,
3324: x_msg_data,
3325: '_PVT'
3326: );
3327: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3328: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3329: (
3330: l_api_name,
3331: G_PKG_NAME,
3324: x_msg_data,
3325: '_PVT'
3326: );
3327: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3328: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3329: (
3330: l_api_name,
3331: G_PKG_NAME,
3332: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3328: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3329: (
3330: l_api_name,
3331: G_PKG_NAME,
3332: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3333: x_msg_count,
3334: x_msg_data,
3335: '_PVT'
3336: );
3334: x_msg_data,
3335: '_PVT'
3336: );
3337: WHEN OTHERS THEN
3338: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3339: (
3340: l_api_name,
3341: G_PKG_NAME,
3342: 'OTHERS',