[Home] [Help]
3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
36: ---------------------------------------------------------------------------
37: -- FUNCTION find_highest_exception
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);
200: ) RETURN qabv_rec_type IS
201: l_qabv_rec qabv_rec_type;
202: l_row_notfound BOOLEAN := TRUE;
203: BEGIN
204: x_return_status := OKC_API.G_RET_STS_SUCCESS;
205: l_qabv_rec := get_rec(p_qabv_rec, l_row_notfound);
206: IF (l_row_notfound) THEN
207: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
208: x_return_status := OKC_API.G_RET_STS_ERROR;
203: BEGIN
204: x_return_status := OKC_API.G_RET_STS_SUCCESS;
205: l_qabv_rec := get_rec(p_qabv_rec, l_row_notfound);
206: IF (l_row_notfound) THEN
207: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
208: x_return_status := OKC_API.G_RET_STS_ERROR;
209: END IF;
210: RETURN(l_qabv_rec);
211: END get_rec;
204: x_return_status := OKC_API.G_RET_STS_SUCCESS;
205: l_qabv_rec := get_rec(p_qabv_rec, l_row_notfound);
206: IF (l_row_notfound) THEN
207: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
208: x_return_status := OKC_API.G_RET_STS_ERROR;
209: END IF;
210: RETURN(l_qabv_rec);
211: END get_rec;
212: -----------------------------------------------------------
329: ) RETURN qab_rec_type IS
330: l_qab_rec qab_rec_type;
331: l_row_notfound BOOLEAN := TRUE;
332: BEGIN
333: x_return_status := OKC_API.G_RET_STS_SUCCESS;
334: l_qab_rec := get_rec(p_qab_rec, l_row_notfound);
335: IF (l_row_notfound) THEN
336: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
337: x_return_status := OKC_API.G_RET_STS_ERROR;
332: BEGIN
333: x_return_status := OKC_API.G_RET_STS_SUCCESS;
334: l_qab_rec := get_rec(p_qab_rec, l_row_notfound);
335: IF (l_row_notfound) THEN
336: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
337: x_return_status := OKC_API.G_RET_STS_ERROR;
338: END IF;
339: RETURN(l_qab_rec);
340: END get_rec;
333: x_return_status := OKC_API.G_RET_STS_SUCCESS;
334: l_qab_rec := get_rec(p_qab_rec, l_row_notfound);
335: IF (l_row_notfound) THEN
336: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
337: x_return_status := OKC_API.G_RET_STS_ERROR;
338: END IF;
339: RETURN(l_qab_rec);
340: END get_rec;
341: -----------------------------------------------------------
355: p_qabv_rec IN qabv_rec_type
356: ) RETURN qabv_rec_type IS
357: l_qabv_rec qabv_rec_type := p_qabv_rec;
358: BEGIN
359: IF (l_qabv_rec.id = OKC_API.G_MISS_NUM ) THEN
360: l_qabv_rec.id := NULL;
361: END IF;
362: IF (l_qabv_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
363: l_qabv_rec.object_version_number := NULL;
358: BEGIN
359: IF (l_qabv_rec.id = OKC_API.G_MISS_NUM ) THEN
360: l_qabv_rec.id := NULL;
361: END IF;
362: IF (l_qabv_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
363: l_qabv_rec.object_version_number := NULL;
364: END IF;
365: IF (l_qabv_rec.khr_id = OKC_API.G_MISS_NUM ) THEN
366: l_qabv_rec.khr_id := NULL;
361: END IF;
362: IF (l_qabv_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
363: l_qabv_rec.object_version_number := NULL;
364: END IF;
365: IF (l_qabv_rec.khr_id = OKC_API.G_MISS_NUM ) THEN
366: l_qabv_rec.khr_id := NULL;
367: END IF;
368: IF (l_qabv_rec.qte_id = OKC_API.G_MISS_NUM ) THEN
369: l_qabv_rec.qte_id := NULL;
364: END IF;
365: IF (l_qabv_rec.khr_id = OKC_API.G_MISS_NUM ) THEN
366: l_qabv_rec.khr_id := NULL;
367: END IF;
368: IF (l_qabv_rec.qte_id = OKC_API.G_MISS_NUM ) THEN
369: l_qabv_rec.qte_id := NULL;
370: END IF;
371: IF (l_qabv_rec.kle_id = OKC_API.G_MISS_NUM ) THEN
372: l_qabv_rec.kle_id := NULL;
367: END IF;
368: IF (l_qabv_rec.qte_id = OKC_API.G_MISS_NUM ) THEN
369: l_qabv_rec.qte_id := NULL;
370: END IF;
371: IF (l_qabv_rec.kle_id = OKC_API.G_MISS_NUM ) THEN
372: l_qabv_rec.kle_id := NULL;
373: END IF;
374: IF (l_qabv_rec.sty_id = OKC_API.G_MISS_NUM ) THEN
375: l_qabv_rec.sty_id := NULL;
370: END IF;
371: IF (l_qabv_rec.kle_id = OKC_API.G_MISS_NUM ) THEN
372: l_qabv_rec.kle_id := NULL;
373: END IF;
374: IF (l_qabv_rec.sty_id = OKC_API.G_MISS_NUM ) THEN
375: l_qabv_rec.sty_id := NULL;
376: END IF;
377: -- rmunjulu EDAT ADDED
378: IF (l_qabv_rec.sel_date = OKC_API.G_MISS_DATE ) THEN
374: IF (l_qabv_rec.sty_id = OKC_API.G_MISS_NUM ) THEN
375: l_qabv_rec.sty_id := NULL;
376: END IF;
377: -- rmunjulu EDAT ADDED
378: IF (l_qabv_rec.sel_date = OKC_API.G_MISS_DATE ) THEN
379: l_qabv_rec.sel_date := NULL;
380: END IF;
381: IF (l_qabv_rec.amount = OKC_API.G_MISS_NUM ) THEN
382: l_qabv_rec.amount := NULL;
377: -- rmunjulu EDAT ADDED
378: IF (l_qabv_rec.sel_date = OKC_API.G_MISS_DATE ) THEN
379: l_qabv_rec.sel_date := NULL;
380: END IF;
381: IF (l_qabv_rec.amount = OKC_API.G_MISS_NUM ) THEN
382: l_qabv_rec.amount := NULL;
383: END IF;
384: IF (l_qabv_rec.org_id = OKC_API.G_MISS_NUM ) THEN
385: l_qabv_rec.org_id := NULL;
380: END IF;
381: IF (l_qabv_rec.amount = OKC_API.G_MISS_NUM ) THEN
382: l_qabv_rec.amount := NULL;
383: END IF;
384: IF (l_qabv_rec.org_id = OKC_API.G_MISS_NUM ) THEN
385: l_qabv_rec.org_id := NULL;
386: END IF;
387: IF (l_qabv_rec.request_id = OKC_API.G_MISS_NUM ) THEN
388: l_qabv_rec.request_id := NULL;
383: END IF;
384: IF (l_qabv_rec.org_id = OKC_API.G_MISS_NUM ) THEN
385: l_qabv_rec.org_id := NULL;
386: END IF;
387: IF (l_qabv_rec.request_id = OKC_API.G_MISS_NUM ) THEN
388: l_qabv_rec.request_id := NULL;
389: END IF;
390: IF (l_qabv_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
391: l_qabv_rec.program_application_id := NULL;
386: END IF;
387: IF (l_qabv_rec.request_id = OKC_API.G_MISS_NUM ) THEN
388: l_qabv_rec.request_id := NULL;
389: END IF;
390: IF (l_qabv_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
391: l_qabv_rec.program_application_id := NULL;
392: END IF;
393: IF (l_qabv_rec.program_id = OKC_API.G_MISS_NUM ) THEN
394: l_qabv_rec.program_id := NULL;
389: END IF;
390: IF (l_qabv_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
391: l_qabv_rec.program_application_id := NULL;
392: END IF;
393: IF (l_qabv_rec.program_id = OKC_API.G_MISS_NUM ) THEN
394: l_qabv_rec.program_id := NULL;
395: END IF;
396: IF (l_qabv_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
397: l_qabv_rec.program_update_date := NULL;
392: END IF;
393: IF (l_qabv_rec.program_id = OKC_API.G_MISS_NUM ) THEN
394: l_qabv_rec.program_id := NULL;
395: END IF;
396: IF (l_qabv_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
397: l_qabv_rec.program_update_date := NULL;
398: END IF;
399: IF (l_qabv_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
400: l_qabv_rec.attribute_category := NULL;
395: END IF;
396: IF (l_qabv_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
397: l_qabv_rec.program_update_date := NULL;
398: END IF;
399: IF (l_qabv_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
400: l_qabv_rec.attribute_category := NULL;
401: END IF;
402: IF (l_qabv_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
403: l_qabv_rec.attribute1 := NULL;
398: END IF;
399: IF (l_qabv_rec.attribute_category = OKC_API.G_MISS_CHAR ) THEN
400: l_qabv_rec.attribute_category := NULL;
401: END IF;
402: IF (l_qabv_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
403: l_qabv_rec.attribute1 := NULL;
404: END IF;
405: IF (l_qabv_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
406: l_qabv_rec.attribute2 := NULL;
401: END IF;
402: IF (l_qabv_rec.attribute1 = OKC_API.G_MISS_CHAR ) THEN
403: l_qabv_rec.attribute1 := NULL;
404: END IF;
405: IF (l_qabv_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
406: l_qabv_rec.attribute2 := NULL;
407: END IF;
408: IF (l_qabv_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
409: l_qabv_rec.attribute3 := NULL;
404: END IF;
405: IF (l_qabv_rec.attribute2 = OKC_API.G_MISS_CHAR ) THEN
406: l_qabv_rec.attribute2 := NULL;
407: END IF;
408: IF (l_qabv_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
409: l_qabv_rec.attribute3 := NULL;
410: END IF;
411: IF (l_qabv_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
412: l_qabv_rec.attribute4 := NULL;
407: END IF;
408: IF (l_qabv_rec.attribute3 = OKC_API.G_MISS_CHAR ) THEN
409: l_qabv_rec.attribute3 := NULL;
410: END IF;
411: IF (l_qabv_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
412: l_qabv_rec.attribute4 := NULL;
413: END IF;
414: IF (l_qabv_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
415: l_qabv_rec.attribute5 := NULL;
410: END IF;
411: IF (l_qabv_rec.attribute4 = OKC_API.G_MISS_CHAR ) THEN
412: l_qabv_rec.attribute4 := NULL;
413: END IF;
414: IF (l_qabv_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
415: l_qabv_rec.attribute5 := NULL;
416: END IF;
417: IF (l_qabv_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
418: l_qabv_rec.attribute6 := NULL;
413: END IF;
414: IF (l_qabv_rec.attribute5 = OKC_API.G_MISS_CHAR ) THEN
415: l_qabv_rec.attribute5 := NULL;
416: END IF;
417: IF (l_qabv_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
418: l_qabv_rec.attribute6 := NULL;
419: END IF;
420: IF (l_qabv_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
421: l_qabv_rec.attribute7 := NULL;
416: END IF;
417: IF (l_qabv_rec.attribute6 = OKC_API.G_MISS_CHAR ) THEN
418: l_qabv_rec.attribute6 := NULL;
419: END IF;
420: IF (l_qabv_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
421: l_qabv_rec.attribute7 := NULL;
422: END IF;
423: IF (l_qabv_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
424: l_qabv_rec.attribute8 := NULL;
419: END IF;
420: IF (l_qabv_rec.attribute7 = OKC_API.G_MISS_CHAR ) THEN
421: l_qabv_rec.attribute7 := NULL;
422: END IF;
423: IF (l_qabv_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
424: l_qabv_rec.attribute8 := NULL;
425: END IF;
426: IF (l_qabv_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
427: l_qabv_rec.attribute9 := NULL;
422: END IF;
423: IF (l_qabv_rec.attribute8 = OKC_API.G_MISS_CHAR ) THEN
424: l_qabv_rec.attribute8 := NULL;
425: END IF;
426: IF (l_qabv_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
427: l_qabv_rec.attribute9 := NULL;
428: END IF;
429: IF (l_qabv_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
430: l_qabv_rec.attribute10 := NULL;
425: END IF;
426: IF (l_qabv_rec.attribute9 = OKC_API.G_MISS_CHAR ) THEN
427: l_qabv_rec.attribute9 := NULL;
428: END IF;
429: IF (l_qabv_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
430: l_qabv_rec.attribute10 := NULL;
431: END IF;
432: IF (l_qabv_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
433: l_qabv_rec.attribute11 := NULL;
428: END IF;
429: IF (l_qabv_rec.attribute10 = OKC_API.G_MISS_CHAR ) THEN
430: l_qabv_rec.attribute10 := NULL;
431: END IF;
432: IF (l_qabv_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
433: l_qabv_rec.attribute11 := NULL;
434: END IF;
435: IF (l_qabv_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
436: l_qabv_rec.attribute12 := NULL;
431: END IF;
432: IF (l_qabv_rec.attribute11 = OKC_API.G_MISS_CHAR ) THEN
433: l_qabv_rec.attribute11 := NULL;
434: END IF;
435: IF (l_qabv_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
436: l_qabv_rec.attribute12 := NULL;
437: END IF;
438: IF (l_qabv_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
439: l_qabv_rec.attribute13 := NULL;
434: END IF;
435: IF (l_qabv_rec.attribute12 = OKC_API.G_MISS_CHAR ) THEN
436: l_qabv_rec.attribute12 := NULL;
437: END IF;
438: IF (l_qabv_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
439: l_qabv_rec.attribute13 := NULL;
440: END IF;
441: IF (l_qabv_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
442: l_qabv_rec.attribute14 := NULL;
437: END IF;
438: IF (l_qabv_rec.attribute13 = OKC_API.G_MISS_CHAR ) THEN
439: l_qabv_rec.attribute13 := NULL;
440: END IF;
441: IF (l_qabv_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
442: l_qabv_rec.attribute14 := NULL;
443: END IF;
444: IF (l_qabv_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
445: l_qabv_rec.attribute15 := NULL;
440: END IF;
441: IF (l_qabv_rec.attribute14 = OKC_API.G_MISS_CHAR ) THEN
442: l_qabv_rec.attribute14 := NULL;
443: END IF;
444: IF (l_qabv_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
445: l_qabv_rec.attribute15 := NULL;
446: END IF;
447: IF (l_qabv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
448: l_qabv_rec.created_by := NULL;
443: END IF;
444: IF (l_qabv_rec.attribute15 = OKC_API.G_MISS_CHAR ) THEN
445: l_qabv_rec.attribute15 := NULL;
446: END IF;
447: IF (l_qabv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
448: l_qabv_rec.created_by := NULL;
449: END IF;
450: IF (l_qabv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
451: l_qabv_rec.creation_date := NULL;
446: END IF;
447: IF (l_qabv_rec.created_by = OKC_API.G_MISS_NUM ) THEN
448: l_qabv_rec.created_by := NULL;
449: END IF;
450: IF (l_qabv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
451: l_qabv_rec.creation_date := NULL;
452: END IF;
453: IF (l_qabv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
454: l_qabv_rec.last_updated_by := NULL;
449: END IF;
450: IF (l_qabv_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
451: l_qabv_rec.creation_date := NULL;
452: END IF;
453: IF (l_qabv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
454: l_qabv_rec.last_updated_by := NULL;
455: END IF;
456: IF (l_qabv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
457: l_qabv_rec.last_update_date := NULL;
452: END IF;
453: IF (l_qabv_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
454: l_qabv_rec.last_updated_by := NULL;
455: END IF;
456: IF (l_qabv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
457: l_qabv_rec.last_update_date := NULL;
458: END IF;
459: IF (l_qabv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
460: l_qabv_rec.last_update_login := NULL;
455: END IF;
456: IF (l_qabv_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
457: l_qabv_rec.last_update_date := NULL;
458: END IF;
459: IF (l_qabv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
460: l_qabv_rec.last_update_login := NULL;
461: END IF;
462: IF (l_qabv_rec.currency_code = OKC_API.G_MISS_CHAR ) THEN
463: l_qabv_rec.currency_code := NULL;
458: END IF;
459: IF (l_qabv_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
460: l_qabv_rec.last_update_login := NULL;
461: END IF;
462: IF (l_qabv_rec.currency_code = OKC_API.G_MISS_CHAR ) THEN
463: l_qabv_rec.currency_code := NULL;
464: END IF;
465: IF (l_qabv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR ) THEN
466: l_qabv_rec.currency_conversion_code := NULL;
461: END IF;
462: IF (l_qabv_rec.currency_code = OKC_API.G_MISS_CHAR ) THEN
463: l_qabv_rec.currency_code := NULL;
464: END IF;
465: IF (l_qabv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR ) THEN
466: l_qabv_rec.currency_conversion_code := NULL;
467: END IF;
468: IF (l_qabv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR ) THEN
469: l_qabv_rec.currency_conversion_type := NULL;
464: END IF;
465: IF (l_qabv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR ) THEN
466: l_qabv_rec.currency_conversion_code := NULL;
467: END IF;
468: IF (l_qabv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR ) THEN
469: l_qabv_rec.currency_conversion_type := NULL;
470: END IF;
471: IF (l_qabv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM ) THEN
472: l_qabv_rec.currency_conversion_rate := NULL;
467: END IF;
468: IF (l_qabv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR ) THEN
469: l_qabv_rec.currency_conversion_type := NULL;
470: END IF;
471: IF (l_qabv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM ) THEN
472: l_qabv_rec.currency_conversion_rate := NULL;
473: END IF;
474: IF (l_qabv_rec.currency_conversion_date = OKC_API.G_MISS_DATE ) THEN
475: l_qabv_rec.currency_conversion_date := NULL;
470: END IF;
471: IF (l_qabv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM ) THEN
472: l_qabv_rec.currency_conversion_rate := NULL;
473: END IF;
474: IF (l_qabv_rec.currency_conversion_date = OKC_API.G_MISS_DATE ) THEN
475: l_qabv_rec.currency_conversion_date := NULL;
476: END IF;
477: RETURN(l_qabv_rec);
478: END null_out_defaults;
482: PROCEDURE validate_id(
483: x_return_status OUT NOCOPY VARCHAR2,
484: p_id IN NUMBER) IS
485: BEGIN
486: x_return_status := OKC_API.G_RET_STS_SUCCESS;
487: IF (p_id = OKC_API.G_MISS_NUM OR
488: p_id IS NULL)
489: THEN
490: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
483: x_return_status OUT NOCOPY VARCHAR2,
484: p_id IN NUMBER) IS
485: BEGIN
486: x_return_status := OKC_API.G_RET_STS_SUCCESS;
487: IF (p_id = OKC_API.G_MISS_NUM OR
488: p_id IS NULL)
489: THEN
490: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
491: x_return_status := OKC_API.G_RET_STS_ERROR;
486: x_return_status := OKC_API.G_RET_STS_SUCCESS;
487: IF (p_id = OKC_API.G_MISS_NUM OR
488: p_id IS NULL)
489: THEN
490: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
491: x_return_status := OKC_API.G_RET_STS_ERROR;
492: RAISE G_EXCEPTION_HALT_VALIDATION;
493: END IF;
494: EXCEPTION
487: IF (p_id = OKC_API.G_MISS_NUM OR
488: p_id IS NULL)
489: THEN
490: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
491: x_return_status := OKC_API.G_RET_STS_ERROR;
492: RAISE G_EXCEPTION_HALT_VALIDATION;
493: END IF;
494: EXCEPTION
495: WHEN G_EXCEPTION_HALT_VALIDATION THEN
494: EXCEPTION
495: WHEN G_EXCEPTION_HALT_VALIDATION THEN
496: null;
497: WHEN OTHERS THEN
498: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
499: ,p_msg_name => G_UNEXPECTED_ERROR
500: ,p_token1 => G_SQLCODE_TOKEN
501: ,p_token1_value => SQLCODE
502: ,p_token2 => G_SQLERRM_TOKEN
500: ,p_token1 => G_SQLCODE_TOKEN
501: ,p_token1_value => SQLCODE
502: ,p_token2 => G_SQLERRM_TOKEN
503: ,p_token2_value => SQLERRM);
504: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
505: END validate_id;
506: ----------------------------------------------------
507: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
508: ----------------------------------------------------
509: PROCEDURE validate_object_version_number(
510: x_return_status OUT NOCOPY VARCHAR2,
511: p_object_version_number IN NUMBER) IS
512: BEGIN
513: x_return_status := OKC_API.G_RET_STS_SUCCESS;
514: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
515: p_object_version_number IS NULL)
516: THEN
517: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
510: x_return_status OUT NOCOPY VARCHAR2,
511: p_object_version_number IN NUMBER) IS
512: BEGIN
513: x_return_status := OKC_API.G_RET_STS_SUCCESS;
514: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
515: p_object_version_number IS NULL)
516: THEN
517: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
518: x_return_status := OKC_API.G_RET_STS_ERROR;
513: x_return_status := OKC_API.G_RET_STS_SUCCESS;
514: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
515: p_object_version_number IS NULL)
516: THEN
517: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
518: x_return_status := OKC_API.G_RET_STS_ERROR;
519: RAISE G_EXCEPTION_HALT_VALIDATION;
520: END IF;
521: EXCEPTION
514: IF (p_object_version_number = OKC_API.G_MISS_NUM OR
515: p_object_version_number IS NULL)
516: THEN
517: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
518: x_return_status := OKC_API.G_RET_STS_ERROR;
519: RAISE G_EXCEPTION_HALT_VALIDATION;
520: END IF;
521: EXCEPTION
522: WHEN G_EXCEPTION_HALT_VALIDATION THEN
521: EXCEPTION
522: WHEN G_EXCEPTION_HALT_VALIDATION THEN
523: null;
524: WHEN OTHERS THEN
525: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
526: ,p_msg_name => G_UNEXPECTED_ERROR
527: ,p_token1 => G_SQLCODE_TOKEN
528: ,p_token1_value => SQLCODE
529: ,p_token2 => G_SQLERRM_TOKEN
527: ,p_token1 => G_SQLCODE_TOKEN
528: ,p_token1_value => SQLCODE
529: ,p_token2 => G_SQLERRM_TOKEN
530: ,p_token2_value => SQLERRM);
531: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
532: END validate_object_version_number;
533: -------------------------------------
534: -- Validate_Attributes for: KHR_ID --
535: -------------------------------------
549: l_val VARCHAR2(3);
550: l_invalid_value VARCHAR2(3);
551:
552: BEGIN
553: x_return_status := OKC_API.G_RET_STS_SUCCESS;
554: -- rmunjulu
555: l_invalid_value := 'N';
556:
557: IF (p_khr_id = OKC_API.G_MISS_NUM OR
553: x_return_status := OKC_API.G_RET_STS_SUCCESS;
554: -- rmunjulu
555: l_invalid_value := 'N';
556:
557: IF (p_khr_id = OKC_API.G_MISS_NUM OR
558: p_khr_id IS NULL)
559: THEN
560: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
561: x_return_status := OKC_API.G_RET_STS_ERROR;
556:
557: IF (p_khr_id = OKC_API.G_MISS_NUM OR
558: p_khr_id IS NULL)
559: THEN
560: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
561: x_return_status := OKC_API.G_RET_STS_ERROR;
562: RAISE G_EXCEPTION_HALT_VALIDATION;
563: ELSE
564: -- rmunjulu added condition for fkey
557: IF (p_khr_id = OKC_API.G_MISS_NUM OR
558: p_khr_id IS NULL)
559: THEN
560: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'khr_id');
561: x_return_status := OKC_API.G_RET_STS_ERROR;
562: RAISE G_EXCEPTION_HALT_VALIDATION;
563: ELSE
564: -- rmunjulu added condition for fkey
565: OPEN okl_khr_csr(p_khr_id);
568: l_invalid_value := 'Y';
569: END IF;
570: CLOSE okl_khr_csr;
571: IF l_invalid_value = 'Y' THEN
572: OKC_API.set_message(G_APP_NAME, G_NO_PARENT_RECORD, G_COL_NAME_TOKEN, 'khr_id',
573: G_CHILD_TABLE_TOKEN, 'OKL_TXL_QTE_ANTCPT_BILL_V', G_PARENT_TABLE_TOKEN, 'OKC_K_HEADERS_B');
574: x_return_status := OKC_API.G_RET_STS_ERROR;
575: RAISE G_EXCEPTION_HALT_VALIDATION;
576: END IF;
570: CLOSE okl_khr_csr;
571: IF l_invalid_value = 'Y' THEN
572: OKC_API.set_message(G_APP_NAME, G_NO_PARENT_RECORD, G_COL_NAME_TOKEN, 'khr_id',
573: G_CHILD_TABLE_TOKEN, 'OKL_TXL_QTE_ANTCPT_BILL_V', G_PARENT_TABLE_TOKEN, 'OKC_K_HEADERS_B');
574: x_return_status := OKC_API.G_RET_STS_ERROR;
575: RAISE G_EXCEPTION_HALT_VALIDATION;
576: END IF;
577: END IF;
578:
587: -- rmunjulu
588: IF okl_khr_csr%ISOPEN THEN
589: CLOSE okl_khr_csr;
590: END IF;
591: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
592: ,p_msg_name => G_UNEXPECTED_ERROR
593: ,p_token1 => G_SQLCODE_TOKEN
594: ,p_token1_value => SQLCODE
595: ,p_token2 => G_SQLERRM_TOKEN
593: ,p_token1 => G_SQLCODE_TOKEN
594: ,p_token1_value => SQLCODE
595: ,p_token2 => G_SQLERRM_TOKEN
596: ,p_token2_value => SQLERRM);
597: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
598: END validate_khr_id;
599: -------------------------------------
600: -- Validate_Attributes for: QTE_ID --
601: -------------------------------------
615: l_val VARCHAR2(3);
616: l_invalid_value VARCHAR2(3);
617:
618: BEGIN
619: x_return_status := OKC_API.G_RET_STS_SUCCESS;
620: -- rmunjulu
621: l_invalid_value := 'N';
622:
623: IF (p_qte_id = OKC_API.G_MISS_NUM OR
619: x_return_status := OKC_API.G_RET_STS_SUCCESS;
620: -- rmunjulu
621: l_invalid_value := 'N';
622:
623: IF (p_qte_id = OKC_API.G_MISS_NUM OR
624: p_qte_id IS NULL)
625: THEN
626: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'qte_id');
627: x_return_status := OKC_API.G_RET_STS_ERROR;
622:
623: IF (p_qte_id = OKC_API.G_MISS_NUM OR
624: p_qte_id IS NULL)
625: THEN
626: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'qte_id');
627: x_return_status := OKC_API.G_RET_STS_ERROR;
628: RAISE G_EXCEPTION_HALT_VALIDATION;
629: ELSE
630: -- rmunjulu added condition for fkey
623: IF (p_qte_id = OKC_API.G_MISS_NUM OR
624: p_qte_id IS NULL)
625: THEN
626: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'qte_id');
627: x_return_status := OKC_API.G_RET_STS_ERROR;
628: RAISE G_EXCEPTION_HALT_VALIDATION;
629: ELSE
630: -- rmunjulu added condition for fkey
631: OPEN okl_qte_csr(p_qte_id);
634: l_invalid_value := 'Y';
635: END IF;
636: CLOSE okl_qte_csr;
637: IF l_invalid_value = 'Y' THEN
638: OKC_API.set_message(G_APP_NAME, G_NO_PARENT_RECORD, G_COL_NAME_TOKEN, 'qte_id',
639: G_CHILD_TABLE_TOKEN, 'OKL_TXL_QTE_ANTCPT_BILL_V', G_PARENT_TABLE_TOKEN, 'OKL_TRX_QUOTES_B');
640: x_return_status := OKC_API.G_RET_STS_ERROR;
641: RAISE G_EXCEPTION_HALT_VALIDATION;
642: END IF;
636: CLOSE okl_qte_csr;
637: IF l_invalid_value = 'Y' THEN
638: OKC_API.set_message(G_APP_NAME, G_NO_PARENT_RECORD, G_COL_NAME_TOKEN, 'qte_id',
639: G_CHILD_TABLE_TOKEN, 'OKL_TXL_QTE_ANTCPT_BILL_V', G_PARENT_TABLE_TOKEN, 'OKL_TRX_QUOTES_B');
640: x_return_status := OKC_API.G_RET_STS_ERROR;
641: RAISE G_EXCEPTION_HALT_VALIDATION;
642: END IF;
643: END IF;
644: EXCEPTION
652: -- rmunjulu
653: IF okl_qte_csr%ISOPEN THEN
654: CLOSE okl_qte_csr;
655: END IF;
656: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
657: ,p_msg_name => G_UNEXPECTED_ERROR
658: ,p_token1 => G_SQLCODE_TOKEN
659: ,p_token1_value => SQLCODE
660: ,p_token2 => G_SQLERRM_TOKEN
658: ,p_token1 => G_SQLCODE_TOKEN
659: ,p_token1_value => SQLCODE
660: ,p_token2 => G_SQLERRM_TOKEN
661: ,p_token2_value => SQLERRM);
662: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
663: END validate_qte_id;
664: -------------------------------------
665: -- Validate_Attributes for: STY_ID --
666: -------------------------------------
680: l_val VARCHAR2(3);
681: l_invalid_value VARCHAR2(3);
682:
683: BEGIN
684: x_return_status := OKC_API.G_RET_STS_SUCCESS;
685: -- rmunjulu
686: l_invalid_value := 'N';
687:
688: IF (p_sty_id = OKC_API.G_MISS_NUM OR
684: x_return_status := OKC_API.G_RET_STS_SUCCESS;
685: -- rmunjulu
686: l_invalid_value := 'N';
687:
688: IF (p_sty_id = OKC_API.G_MISS_NUM OR
689: p_sty_id IS NULL)
690: THEN
691: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
692: x_return_status := OKC_API.G_RET_STS_ERROR;
687:
688: IF (p_sty_id = OKC_API.G_MISS_NUM OR
689: p_sty_id IS NULL)
690: THEN
691: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
692: x_return_status := OKC_API.G_RET_STS_ERROR;
693: RAISE G_EXCEPTION_HALT_VALIDATION;
694: ELSE
695: -- rmunjulu added condition for fkey
688: IF (p_sty_id = OKC_API.G_MISS_NUM OR
689: p_sty_id IS NULL)
690: THEN
691: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sty_id');
692: x_return_status := OKC_API.G_RET_STS_ERROR;
693: RAISE G_EXCEPTION_HALT_VALIDATION;
694: ELSE
695: -- rmunjulu added condition for fkey
696: OPEN okl_sty_csr(p_sty_id);
699: l_invalid_value := 'Y';
700: END IF;
701: CLOSE okl_sty_csr;
702: IF l_invalid_value = 'Y' THEN
703: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'sty_id');
704: x_return_status := OKC_API.G_RET_STS_ERROR;
705: RAISE G_EXCEPTION_HALT_VALIDATION;
706: END IF;
707: END IF;
700: END IF;
701: CLOSE okl_sty_csr;
702: IF l_invalid_value = 'Y' THEN
703: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'sty_id');
704: x_return_status := OKC_API.G_RET_STS_ERROR;
705: RAISE G_EXCEPTION_HALT_VALIDATION;
706: END IF;
707: END IF;
708: EXCEPTION
716: -- rmunjulu
717: IF okl_sty_csr%ISOPEN THEN
718: CLOSE okl_sty_csr;
719: END IF;
720: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
721: ,p_msg_name => G_UNEXPECTED_ERROR
722: ,p_token1 => G_SQLCODE_TOKEN
723: ,p_token1_value => SQLCODE
724: ,p_token2 => G_SQLERRM_TOKEN
722: ,p_token1 => G_SQLCODE_TOKEN
723: ,p_token1_value => SQLCODE
724: ,p_token2 => G_SQLERRM_TOKEN
725: ,p_token2_value => SQLERRM);
726: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
727: END validate_sty_id;
728: -------------------------------------
729: -- Validate_Attributes for: AMOUNT --
730: -------------------------------------
731: PROCEDURE validate_amount(
732: x_return_status OUT NOCOPY VARCHAR2,
733: p_amount IN NUMBER) IS
734: BEGIN
735: x_return_status := OKC_API.G_RET_STS_SUCCESS;
736: IF (p_amount = OKC_API.G_MISS_NUM OR
737: p_amount IS NULL)
738: THEN
739: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'amount');
732: x_return_status OUT NOCOPY VARCHAR2,
733: p_amount IN NUMBER) IS
734: BEGIN
735: x_return_status := OKC_API.G_RET_STS_SUCCESS;
736: IF (p_amount = OKC_API.G_MISS_NUM OR
737: p_amount IS NULL)
738: THEN
739: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'amount');
740: x_return_status := OKC_API.G_RET_STS_ERROR;
735: x_return_status := OKC_API.G_RET_STS_SUCCESS;
736: IF (p_amount = OKC_API.G_MISS_NUM OR
737: p_amount IS NULL)
738: THEN
739: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'amount');
740: x_return_status := OKC_API.G_RET_STS_ERROR;
741: RAISE G_EXCEPTION_HALT_VALIDATION;
742: END IF;
743: EXCEPTION
736: IF (p_amount = OKC_API.G_MISS_NUM OR
737: p_amount IS NULL)
738: THEN
739: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'amount');
740: x_return_status := OKC_API.G_RET_STS_ERROR;
741: RAISE G_EXCEPTION_HALT_VALIDATION;
742: END IF;
743: EXCEPTION
744: WHEN G_EXCEPTION_HALT_VALIDATION THEN
743: EXCEPTION
744: WHEN G_EXCEPTION_HALT_VALIDATION THEN
745: null;
746: WHEN OTHERS THEN
747: OKC_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 := OKC_API.G_RET_STS_UNEXP_ERROR;
754: END validate_amount;
755:
756: -------------------------------------
757: -- Validate_Attributes for: KLE_ID --
772: l_val VARCHAR2(3);
773: l_invalid_value VARCHAR2(3);
774:
775: BEGIN
776: x_return_status := OKC_API.G_RET_STS_SUCCESS;
777: -- rmunjulu
778: l_invalid_value := 'N';
779:
780: IF (p_kle_id <> OKC_API.G_MISS_NUM AND
776: x_return_status := OKC_API.G_RET_STS_SUCCESS;
777: -- rmunjulu
778: l_invalid_value := 'N';
779:
780: IF (p_kle_id <> OKC_API.G_MISS_NUM AND
781: p_kle_id IS NOT NULL)
782: THEN
783: -- rmunjulu added condition for fkey
784: OPEN okl_kle_csr(p_kle_id);
787: l_invalid_value := 'Y';
788: END IF;
789: CLOSE okl_kle_csr;
790: IF l_invalid_value = 'Y' THEN
791: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'kle_id');
792: x_return_status := OKC_API.G_RET_STS_ERROR;
793: RAISE G_EXCEPTION_HALT_VALIDATION;
794: END IF;
795: END IF;
788: END IF;
789: CLOSE okl_kle_csr;
790: IF l_invalid_value = 'Y' THEN
791: OKC_API.set_message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'kle_id');
792: x_return_status := OKC_API.G_RET_STS_ERROR;
793: RAISE G_EXCEPTION_HALT_VALIDATION;
794: END IF;
795: END IF;
796: EXCEPTION
804: -- rmunjulu
805: IF okl_kle_csr%ISOPEN THEN
806: CLOSE okl_kle_csr;
807: END IF;
808: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
809: ,p_msg_name => G_UNEXPECTED_ERROR
810: ,p_token1 => G_SQLCODE_TOKEN
811: ,p_token1_value => SQLCODE
812: ,p_token2 => G_SQLERRM_TOKEN
810: ,p_token1 => G_SQLCODE_TOKEN
811: ,p_token1_value => SQLCODE
812: ,p_token2 => G_SQLERRM_TOKEN
813: ,p_token2_value => SQLERRM);
814: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
815: END validate_kle_id;
816:
817: -- Start of comments
818: -- Procedure Name : validate_currency_record
827: -- End of comments
828: PROCEDURE validate_currency_record(p_qabv_rec IN qabv_rec_type,
829: x_return_status OUT NOCOPY VARCHAR2) IS
830: BEGIN
831: x_return_status := OKC_API.G_RET_STS_SUCCESS;
832: -- If transaction currency <> functional currency, then conversion columns
833: -- are mandatory
834: IF (p_qabv_rec.currency_code <> p_qabv_rec.currency_conversion_code) THEN
835: IF (p_qabv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR OR
831: x_return_status := OKC_API.G_RET_STS_SUCCESS;
832: -- If transaction currency <> functional currency, then conversion columns
833: -- are mandatory
834: IF (p_qabv_rec.currency_code <> p_qabv_rec.currency_conversion_code) THEN
835: IF (p_qabv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR OR
836: p_qabv_rec.currency_conversion_type IS NULL) THEN
837: --SET MESSAGE
838: OKC_API.set_message(p_app_name => G_APP_NAME,
839: p_msg_name => G_REQUIRED_VALUE,
834: IF (p_qabv_rec.currency_code <> p_qabv_rec.currency_conversion_code) THEN
835: IF (p_qabv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR OR
836: p_qabv_rec.currency_conversion_type IS NULL) THEN
837: --SET MESSAGE
838: OKC_API.set_message(p_app_name => G_APP_NAME,
839: p_msg_name => G_REQUIRED_VALUE,
840: p_token1 => G_COL_NAME_TOKEN,
841: p_token1_value => 'currency_conversion_type');
842: x_return_status := OKC_API.G_RET_STS_ERROR;
838: OKC_API.set_message(p_app_name => G_APP_NAME,
839: p_msg_name => G_REQUIRED_VALUE,
840: p_token1 => G_COL_NAME_TOKEN,
841: p_token1_value => 'currency_conversion_type');
842: x_return_status := OKC_API.G_RET_STS_ERROR;
843: END IF;
844: IF (p_qabv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM OR
845: p_qabv_rec.currency_conversion_rate IS NULL) THEN
846: --SET MESSAGE
840: p_token1 => G_COL_NAME_TOKEN,
841: p_token1_value => 'currency_conversion_type');
842: x_return_status := OKC_API.G_RET_STS_ERROR;
843: END IF;
844: IF (p_qabv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM OR
845: p_qabv_rec.currency_conversion_rate IS NULL) THEN
846: --SET MESSAGE
847: OKC_API.set_message(p_app_name => G_APP_NAME,
848: p_msg_name => G_REQUIRED_VALUE,
843: END IF;
844: IF (p_qabv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM OR
845: p_qabv_rec.currency_conversion_rate IS NULL) THEN
846: --SET MESSAGE
847: OKC_API.set_message(p_app_name => G_APP_NAME,
848: p_msg_name => G_REQUIRED_VALUE,
849: p_token1 => G_COL_NAME_TOKEN,
850: p_token1_value => 'currency_conversion_rate');
851: x_return_status := OKC_API.G_RET_STS_ERROR;
847: OKC_API.set_message(p_app_name => G_APP_NAME,
848: p_msg_name => G_REQUIRED_VALUE,
849: p_token1 => G_COL_NAME_TOKEN,
850: p_token1_value => 'currency_conversion_rate');
851: x_return_status := OKC_API.G_RET_STS_ERROR;
852: END IF;
853: IF (p_qabv_rec.currency_conversion_date = OKC_API.G_MISS_DATE OR
854: p_qabv_rec.currency_conversion_date IS NULL) THEN
855: --SET MESSAGE
849: p_token1 => G_COL_NAME_TOKEN,
850: p_token1_value => 'currency_conversion_rate');
851: x_return_status := OKC_API.G_RET_STS_ERROR;
852: END IF;
853: IF (p_qabv_rec.currency_conversion_date = OKC_API.G_MISS_DATE OR
854: p_qabv_rec.currency_conversion_date IS NULL) THEN
855: --SET MESSAGE
856: OKC_API.set_message(p_app_name => G_APP_NAME,
857: p_msg_name => G_REQUIRED_VALUE,
852: END IF;
853: IF (p_qabv_rec.currency_conversion_date = OKC_API.G_MISS_DATE OR
854: p_qabv_rec.currency_conversion_date IS NULL) THEN
855: --SET MESSAGE
856: OKC_API.set_message(p_app_name => G_APP_NAME,
857: p_msg_name => G_REQUIRED_VALUE,
858: p_token1 => G_COL_NAME_TOKEN,
859: p_token1_value => 'currency_conversion_date');
860: x_return_status := OKC_API.G_RET_STS_ERROR;
856: OKC_API.set_message(p_app_name => G_APP_NAME,
857: p_msg_name => G_REQUIRED_VALUE,
858: p_token1 => G_COL_NAME_TOKEN,
859: p_token1_value => 'currency_conversion_date');
860: x_return_status := OKC_API.G_RET_STS_ERROR;
861: END IF;
862: -- Else If transaction currency = functional currency, then conversion columns
863: -- should all be NULL
864: ELSIF (p_qabv_rec.currency_code = p_qabv_rec.currency_conversion_code) THEN
867: (p_qabv_rec.currency_conversion_date IS NOT NULL) THEN
868: --SET MESSAGE
869: -- Currency conversion columns should be all null
870: IF p_qabv_rec.currency_conversion_rate IS NOT NULL THEN
871: OKC_API.set_message(p_app_name => G_APP_NAME,
872: p_msg_name => G_INVALID_VALUE,
873: p_token1 => G_COL_NAME_TOKEN,
874: p_token1_value => 'currency_conversion_rate');
875: END IF;
873: p_token1 => G_COL_NAME_TOKEN,
874: p_token1_value => 'currency_conversion_rate');
875: END IF;
876: IF p_qabv_rec.currency_conversion_date IS NOT NULL THEN
877: OKC_API.set_message(p_app_name => G_APP_NAME,
878: p_msg_name => G_INVALID_VALUE,
879: p_token1 => G_COL_NAME_TOKEN,
880: p_token1_value => 'currency_conversion_date');
881: END IF;
879: p_token1 => G_COL_NAME_TOKEN,
880: p_token1_value => 'currency_conversion_date');
881: END IF;
882: IF p_qabv_rec.currency_conversion_type IS NOT NULL THEN
883: OKC_API.set_message(p_app_name => G_APP_NAME,
884: p_msg_name => G_INVALID_VALUE,
885: p_token1 => G_COL_NAME_TOKEN,
886: p_token1_value => 'currency_conversion_type');
887: END IF;
884: p_msg_name => G_INVALID_VALUE,
885: p_token1 => G_COL_NAME_TOKEN,
886: p_token1_value => 'currency_conversion_type');
887: END IF;
888: x_return_status := OKC_API.G_RET_STS_ERROR;
889: END IF;
890: ELSE
891: x_return_status := OKC_API.G_RET_STS_ERROR;
892: END IF;
887: END IF;
888: x_return_status := OKC_API.G_RET_STS_ERROR;
889: END IF;
890: ELSE
891: x_return_status := OKC_API.G_RET_STS_ERROR;
892: END IF;
893: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
894: RAISE G_EXCEPTION_HALT_VALIDATION;
895: END IF;
889: END IF;
890: ELSE
891: x_return_status := OKC_API.G_RET_STS_ERROR;
892: END IF;
893: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
894: RAISE G_EXCEPTION_HALT_VALIDATION;
895: END IF;
896: EXCEPTION
897: WHEN G_EXCEPTION_HALT_VALIDATION THEN
894: RAISE G_EXCEPTION_HALT_VALIDATION;
895: END IF;
896: EXCEPTION
897: WHEN G_EXCEPTION_HALT_VALIDATION THEN
898: x_return_status := OKC_API.G_RET_STS_ERROR;
899: WHEN OTHERS THEN
900: -- store SQL error message on message stack for caller
901: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
902: p_msg_name => g_unexpected_error,
897: WHEN G_EXCEPTION_HALT_VALIDATION THEN
898: x_return_status := OKC_API.G_RET_STS_ERROR;
899: WHEN OTHERS THEN
900: -- store SQL error message on message stack for caller
901: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
902: p_msg_name => g_unexpected_error,
903: p_token1 => g_sqlcode_token,
904: p_token1_value => sqlcode,
905: p_token2 => g_sqlerrm_token,
904: p_token1_value => sqlcode,
905: p_token2 => g_sqlerrm_token,
906: p_token2_value => sqlerrm);
907: -- notify caller of an UNEXPECTED error
908: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
909: END validate_currency_record;
910:
911:
912: -- Start of comments
918: -- History : 20-Sep-2004 rmunjulu :Added new procedure
919: -- End of comments
920: PROCEDURE validate_currency_code(p_qabv_rec IN qabv_rec_type,
921: x_return_status OUT NOCOPY VARCHAR2) IS
922: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
923: BEGIN
924: -- initialize return status
925: x_return_status := OKC_API.G_RET_STS_SUCCESS;
926: -- data is required
921: x_return_status OUT NOCOPY VARCHAR2) IS
922: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
923: BEGIN
924: -- initialize return status
925: x_return_status := OKC_API.G_RET_STS_SUCCESS;
926: -- data is required
927: IF (p_qabv_rec.currency_code IS NULL) OR
928: (p_qabv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
929: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
924: -- initialize return status
925: x_return_status := OKC_API.G_RET_STS_SUCCESS;
926: -- data is required
927: IF (p_qabv_rec.currency_code IS NULL) OR
928: (p_qabv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
929: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
930: ,p_msg_name => G_REQUIRED_VALUE
931: ,p_token1 => G_COL_NAME_TOKEN
932: ,p_token1_value => 'currency_code');
925: x_return_status := OKC_API.G_RET_STS_SUCCESS;
926: -- data is required
927: IF (p_qabv_rec.currency_code IS NULL) OR
928: (p_qabv_rec.currency_code = OKC_API.G_MISS_CHAR) THEN
929: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
930: ,p_msg_name => G_REQUIRED_VALUE
931: ,p_token1 => G_COL_NAME_TOKEN
932: ,p_token1_value => 'currency_code');
933:
935: RAISE G_EXCEPTION_HALT_VALIDATION;
936: END IF;
937: -- check from currency values using the generic okl_util.validate_currency_code
938: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_code(p_qabv_rec.currency_code);
939: IF (l_return_status <> OKC_API.G_TRUE) THEN
940: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
941: p_msg_name => g_invalid_value,
942: p_token1 => g_col_name_token,
943: p_token1_value => 'currency_code');
936: END IF;
937: -- check from currency values using the generic okl_util.validate_currency_code
938: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_code(p_qabv_rec.currency_code);
939: IF (l_return_status <> OKC_API.G_TRUE) THEN
940: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
941: p_msg_name => g_invalid_value,
942: p_token1 => g_col_name_token,
943: p_token1_value => 'currency_code');
944: -- halt further validation of this column
945: RAISE G_EXCEPTION_HALT_VALIDATION;
946: END IF;
947: EXCEPTION
948: WHEN G_EXCEPTION_HALT_VALIDATION THEN
949: x_return_status := OKC_API.G_RET_STS_ERROR;
950: WHEN OTHERS THEN
951: -- store SQL error message on message stack for caller
952: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
953: p_msg_name => g_unexpected_error,
948: WHEN G_EXCEPTION_HALT_VALIDATION THEN
949: x_return_status := OKC_API.G_RET_STS_ERROR;
950: WHEN OTHERS THEN
951: -- store SQL error message on message stack for caller
952: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
953: p_msg_name => g_unexpected_error,
954: p_token1 => g_sqlcode_token,
955: p_token1_value => sqlcode,
956: p_token2 => g_sqlerrm_token,
955: p_token1_value => sqlcode,
956: p_token2 => g_sqlerrm_token,
957: p_token2_value => sqlerrm);
958: -- notify caller of an UNEXPECTED error
959: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
960: END validate_currency_code;
961:
962:
963:
970: -- History : 20-Sep-2004 rmunjulu :Added new procedure
971: -- End of comments
972: PROCEDURE validate_currency_con_code(p_qabv_rec IN qabv_rec_type,
973: x_return_status OUT NOCOPY VARCHAR2) IS
974: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
975: BEGIN
976: -- initialize return status
977: x_return_status := OKC_API.G_RET_STS_SUCCESS;
978: -- data is required
973: x_return_status OUT NOCOPY VARCHAR2) IS
974: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
975: BEGIN
976: -- initialize return status
977: x_return_status := OKC_API.G_RET_STS_SUCCESS;
978: -- data is required
979: IF (p_qabv_rec.currency_conversion_code IS NULL) OR
980: (p_qabv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR) THEN
981: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
976: -- initialize return status
977: x_return_status := OKC_API.G_RET_STS_SUCCESS;
978: -- data is required
979: IF (p_qabv_rec.currency_conversion_code IS NULL) OR
980: (p_qabv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR) THEN
981: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
982: ,p_msg_name => G_REQUIRED_VALUE
983: ,p_token1 => G_COL_NAME_TOKEN
984: ,p_token1_value => 'currency_conversion_code');
977: x_return_status := OKC_API.G_RET_STS_SUCCESS;
978: -- data is required
979: IF (p_qabv_rec.currency_conversion_code IS NULL) OR
980: (p_qabv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR) THEN
981: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
982: ,p_msg_name => G_REQUIRED_VALUE
983: ,p_token1 => G_COL_NAME_TOKEN
984: ,p_token1_value => 'currency_conversion_code');
985: -- halt further validation of this column
986: RAISE G_EXCEPTION_HALT_VALIDATION;
987: END IF;
988: -- check from currency values using the generic okl_util.validate_currency_code
989: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_code(p_qabv_rec.currency_conversion_code);
990: IF (l_return_status <> OKC_API.G_TRUE) THEN
991: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
992: p_msg_name => g_invalid_value,
993: p_token1 => g_col_name_token,
994: p_token1_value => 'currency_conversion_code');
987: END IF;
988: -- check from currency values using the generic okl_util.validate_currency_code
989: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_code(p_qabv_rec.currency_conversion_code);
990: IF (l_return_status <> OKC_API.G_TRUE) THEN
991: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
992: p_msg_name => g_invalid_value,
993: p_token1 => g_col_name_token,
994: p_token1_value => 'currency_conversion_code');
995: -- halt further validation of this column
996: RAISE G_EXCEPTION_HALT_VALIDATION;
997: END IF;
998: EXCEPTION
999: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1000: x_return_status := OKC_API.G_RET_STS_ERROR;
1001: WHEN OTHERS THEN
1002: -- store SQL error message on message stack for caller
1003: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1004: p_msg_name => g_unexpected_error,
999: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1000: x_return_status := OKC_API.G_RET_STS_ERROR;
1001: WHEN OTHERS THEN
1002: -- store SQL error message on message stack for caller
1003: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1004: p_msg_name => g_unexpected_error,
1005: p_token1 => g_sqlcode_token,
1006: p_token1_value => sqlcode,
1007: p_token2 => g_sqlerrm_token,
1007: p_token2 => g_sqlerrm_token,
1008: p_token2_value => sqlerrm);
1009:
1010: -- notify caller of an UNEXPECTED error
1011: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1012: END validate_currency_con_code;
1013:
1014:
1015:
1022: -- History : 20-Sep-2004 rmunjulu :Added new procedure
1023: -- End of comments
1024: PROCEDURE validate_currency_con_type(p_qabv_rec IN qabv_rec_type,
1025: x_return_status OUT NOCOPY VARCHAR2) IS
1026: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
1027: BEGIN
1028: -- initialize return status
1029: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1030: IF (p_qabv_rec.currency_conversion_type <> OKL_API.G_MISS_CHAR AND
1025: x_return_status OUT NOCOPY VARCHAR2) IS
1026: l_return_status VARCHAR2(3) := OKC_API.G_TRUE;
1027: BEGIN
1028: -- initialize return status
1029: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1030: IF (p_qabv_rec.currency_conversion_type <> OKL_API.G_MISS_CHAR AND
1031: p_qabv_rec.currency_conversion_type IS NOT NULL) THEN
1032: -- check from currency values using the generic okl_util.validate_currency_code
1033: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_con_type(p_qabv_rec.currency_conversion_type);
1030: IF (p_qabv_rec.currency_conversion_type <> OKL_API.G_MISS_CHAR AND
1031: p_qabv_rec.currency_conversion_type IS NOT NULL) THEN
1032: -- check from currency values using the generic okl_util.validate_currency_code
1033: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_con_type(p_qabv_rec.currency_conversion_type);
1034: IF (l_return_status <> OKC_API.G_TRUE) THEN
1035: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1036: p_msg_name => g_invalid_value,
1037: p_token1 => g_col_name_token,
1038: p_token1_value => 'currency_conversion_type');
1031: p_qabv_rec.currency_conversion_type IS NOT NULL) THEN
1032: -- check from currency values using the generic okl_util.validate_currency_code
1033: l_return_status := OKL_ACCOUNTING_UTIL.validate_currency_con_type(p_qabv_rec.currency_conversion_type);
1034: IF (l_return_status <> OKC_API.G_TRUE) THEN
1035: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1036: p_msg_name => g_invalid_value,
1037: p_token1 => g_col_name_token,
1038: p_token1_value => 'currency_conversion_type');
1039: -- halt further validation of this column
1041: END IF;
1042: END IF;
1043: EXCEPTION
1044: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1045: x_return_status := OKC_API.G_RET_STS_ERROR;
1046: WHEN OTHERS THEN
1047: -- store SQL error message on message stack for caller
1048: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1049: p_msg_name => g_unexpected_error,
1044: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1045: x_return_status := OKC_API.G_RET_STS_ERROR;
1046: WHEN OTHERS THEN
1047: -- store SQL error message on message stack for caller
1048: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1049: p_msg_name => g_unexpected_error,
1050: p_token1 => g_sqlcode_token,
1051: p_token1_value => sqlcode,
1052: p_token2 => g_sqlerrm_token,
1051: p_token1_value => sqlcode,
1052: p_token2 => g_sqlerrm_token,
1053: p_token2_value => sqlerrm);
1054: -- notify caller of an UNEXPECTED error
1055: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1056: END validate_currency_con_type;
1057:
1058:
1059: -- Start of comments
1066: -- End of comments
1067: PROCEDURE validate_org_id(
1068: x_return_status OUT NOCOPY VARCHAR2,
1069: p_org_id IN NUMBER) IS
1070: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1071: BEGIN
1072: -- initialize return status
1073: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1074:
1069: p_org_id IN NUMBER) IS
1070: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1071: BEGIN
1072: -- initialize return status
1073: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1074:
1075: -- check org id validity using the generic function okl_util.check_org_id()
1076: l_return_status := OKL_UTIL.check_org_id (p_org_id);
1077:
1074:
1075: -- check org id validity using the generic function okl_util.check_org_id()
1076: l_return_status := OKL_UTIL.check_org_id (p_org_id);
1077:
1078: IF ( l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1079: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1080: p_msg_name => g_invalid_value,
1081: p_token1 => g_col_name_token,
1082: p_token1_value => 'org_id');
1075: -- check org id validity using the generic function okl_util.check_org_id()
1076: l_return_status := OKL_UTIL.check_org_id (p_org_id);
1077:
1078: IF ( l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1079: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1080: p_msg_name => g_invalid_value,
1081: p_token1 => g_col_name_token,
1082: p_token1_value => 'org_id');
1083:
1081: p_token1 => g_col_name_token,
1082: p_token1_value => 'org_id');
1083:
1084: -- notify caller of an error
1085: x_return_status := OKC_API.G_RET_STS_ERROR;
1086: raise G_EXCEPTION_HALT_VALIDATION;
1087:
1088: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1084: -- notify caller of an error
1085: x_return_status := OKC_API.G_RET_STS_ERROR;
1086: raise G_EXCEPTION_HALT_VALIDATION;
1087:
1088: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1090: raise G_EXCEPTION_HALT_VALIDATION;
1091:
1092: END IF;
1085: x_return_status := OKC_API.G_RET_STS_ERROR;
1086: raise G_EXCEPTION_HALT_VALIDATION;
1087:
1088: ELSIF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1090: raise G_EXCEPTION_HALT_VALIDATION;
1091:
1092: END IF;
1093:
1097: NULL;
1098:
1099: WHEN OTHERS THEN
1100: -- store SQL error message on message stack for caller
1101: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
1102: p_msg_name => g_unexpected_error,
1103: p_token1 => g_sqlcode_token,
1104: p_token1_value => sqlcode,
1105: p_token2 => g_sqlerrm_token,
1105: p_token2 => g_sqlerrm_token,
1106: p_token2_value => sqlerrm);
1107:
1108: -- notify caller of an UNEXPECTED error
1109: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1110:
1111: END validate_org_id;
1112:
1113: ---------------------------------------------------------------------------
1118: -------------------------------------------------------
1119: FUNCTION Validate_Attributes (
1120: p_qabv_rec IN qabv_rec_type
1121: ) RETURN VARCHAR2 IS
1122: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1123: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1124: BEGIN
1125: -----------------------------
1126: -- Column Level Validation --
1119: FUNCTION Validate_Attributes (
1120: p_qabv_rec IN qabv_rec_type
1121: ) RETURN VARCHAR2 IS
1122: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1123: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1124: BEGIN
1125: -----------------------------
1126: -- Column Level Validation --
1127: -----------------------------
1128: -- ***
1129: -- id
1130: -- ***
1131: validate_id(x_return_status, p_qabv_rec.id);
1132: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1133: l_return_status := x_return_status;
1134: RAISE G_EXCEPTION_HALT_VALIDATION;
1135: END IF;
1136:
1137: -- ***
1138: -- object_version_number
1139: -- ***
1140: validate_object_version_number(x_return_status, p_qabv_rec.object_version_number);
1141: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1142: l_return_status := x_return_status;
1143: RAISE G_EXCEPTION_HALT_VALIDATION;
1144: END IF;
1145:
1146: -- ***
1147: -- khr_id
1148: -- ***
1149: validate_khr_id(x_return_status, p_qabv_rec.khr_id);
1150: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1151: l_return_status := x_return_status;
1152: RAISE G_EXCEPTION_HALT_VALIDATION;
1153: END IF;
1154:
1155: -- ***
1156: -- qte_id
1157: -- ***
1158: validate_qte_id(x_return_status, p_qabv_rec.qte_id);
1159: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1160: l_return_status := x_return_status;
1161: RAISE G_EXCEPTION_HALT_VALIDATION;
1162: END IF;
1163:
1164: -- ***
1165: -- sty_id
1166: -- ***
1167: validate_sty_id(x_return_status, p_qabv_rec.sty_id);
1168: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1169: l_return_status := x_return_status;
1170: RAISE G_EXCEPTION_HALT_VALIDATION;
1171: END IF;
1172:
1173: -- ***
1174: -- amount
1175: -- ***
1176: validate_amount(x_return_status, p_qabv_rec.amount);
1177: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1178: l_return_status := x_return_status;
1179: RAISE G_EXCEPTION_HALT_VALIDATION;
1180: END IF;
1181:
1182: -- rmunjulu Post Tapi Gen Changes Start
1183:
1184: validate_org_id(x_return_status => l_return_status,
1185: p_org_id => p_qabv_rec.org_id);
1186: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1187: l_return_status := x_return_status;
1188: RAISE G_EXCEPTION_HALT_VALIDATION;
1189: END IF;
1190:
1189: END IF;
1190:
1191: validate_kle_id(x_return_status => x_return_status,
1192: p_kle_id => p_qabv_rec.kle_id);
1193: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1194: l_return_status := x_return_status;
1195: RAISE G_EXCEPTION_HALT_VALIDATION;
1196: END IF;
1197:
1197:
1198: validate_currency_code(p_qabv_rec => p_qabv_rec,
1199: x_return_status => l_return_status);
1200: -- store the highest degree of error
1201: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1202: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: x_return_status := l_return_status;
1204: END IF;
1205: END IF;
1198: validate_currency_code(p_qabv_rec => p_qabv_rec,
1199: x_return_status => l_return_status);
1200: -- store the highest degree of error
1201: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1202: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1203: x_return_status := l_return_status;
1204: END IF;
1205: END IF;
1206: validate_currency_con_code(p_qabv_rec => p_qabv_rec,
1205: END IF;
1206: validate_currency_con_code(p_qabv_rec => p_qabv_rec,
1207: x_return_status => l_return_status);
1208: -- store the highest degree of error
1209: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1210: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1211: x_return_status := l_return_status;
1212: END IF;
1213: END IF;
1206: validate_currency_con_code(p_qabv_rec => p_qabv_rec,
1207: x_return_status => l_return_status);
1208: -- store the highest degree of error
1209: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1210: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1211: x_return_status := l_return_status;
1212: END IF;
1213: END IF;
1214: validate_currency_con_type(p_qabv_rec => p_qabv_rec,
1213: END IF;
1214: validate_currency_con_type(p_qabv_rec => p_qabv_rec,
1215: x_return_status => l_return_status);
1216: -- store the highest degree of error
1217: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1218: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: x_return_status := l_return_status;
1220: END IF;
1221: END IF;
1214: validate_currency_con_type(p_qabv_rec => p_qabv_rec,
1215: x_return_status => l_return_status);
1216: -- store the highest degree of error
1217: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1218: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1219: x_return_status := l_return_status;
1220: END IF;
1221: END IF;
1222: -- rmunjulu Post Tapi Gen Changes End
1225: EXCEPTION
1226: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1227: RETURN(l_return_status);
1228: WHEN OTHERS THEN
1229: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1230: ,p_msg_name => G_UNEXPECTED_ERROR
1231: ,p_token1 => G_SQLCODE_TOKEN
1232: ,p_token1_value => SQLCODE
1233: ,p_token2 => G_SQLERRM_TOKEN
1231: ,p_token1 => G_SQLCODE_TOKEN
1232: ,p_token1_value => SQLCODE
1233: ,p_token2 => G_SQLERRM_TOKEN
1234: ,p_token2_value => SQLERRM);
1235: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1236: RETURN(l_return_status);
1237: END Validate_Attributes;
1238: ---------------------------------------------------------------------------
1239: -- PROCEDURE Validate_Record
1244: FUNCTION Validate_Record (
1245: p_qabv_rec IN qabv_rec_type,
1246: p_db_qabv_rec IN qabv_rec_type
1247: ) RETURN VARCHAR2 IS
1248: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1249: BEGIN
1250: RETURN (l_return_status);
1251: END Validate_Record;
1252: FUNCTION Validate_Record (
1251: END Validate_Record;
1252: FUNCTION Validate_Record (
1253: p_qabv_rec IN qabv_rec_type
1254: ) RETURN VARCHAR2 IS
1255: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1256: l_db_qabv_rec qabv_rec_type := get_rec(p_qabv_rec);
1257:
1258: -- rmunjulu post TAPI gen changes
1259: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1255: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1256: l_db_qabv_rec qabv_rec_type := get_rec(p_qabv_rec);
1257:
1258: -- rmunjulu post TAPI gen changes
1259: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1260:
1261: BEGIN
1262:
1263: -- rmunjulu post TAPI gen changes
1263: -- rmunjulu post TAPI gen changes
1264: validate_currency_record(p_qabv_rec => p_qabv_rec,
1265: x_return_status => l_return_status);
1266: -- store the highest degree of error
1267: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1268: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: x_return_status := l_return_status;
1270: END IF;
1271: END IF;
1264: validate_currency_record(p_qabv_rec => p_qabv_rec,
1265: x_return_status => l_return_status);
1266: -- store the highest degree of error
1267: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1268: IF (x_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1269: x_return_status := l_return_status;
1270: END IF;
1271: END IF;
1272:
1383: p_qabv_rec IN qabv_rec_type) IS
1384:
1385: l_api_version CONSTANT NUMBER := 1;
1386: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1387: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1388: l_qabv_rec qabv_rec_type := p_qabv_rec;
1389: l_qab_rec qab_rec_type;
1390: l_qab_rec qab_rec_type;
1391: BEGIN
1388: l_qabv_rec qabv_rec_type := p_qabv_rec;
1389: l_qab_rec qab_rec_type;
1390: l_qab_rec qab_rec_type;
1391: BEGIN
1392: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1393: G_PKG_NAME,
1394: p_init_msg_list,
1395: l_api_version,
1396: p_api_version,
1395: l_api_version,
1396: p_api_version,
1397: '_PVT',
1398: x_return_status);
1399: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1401: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_ERROR;
1403: END IF;
1396: p_api_version,
1397: '_PVT',
1398: x_return_status);
1399: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1401: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_ERROR;
1403: END IF;
1404: --- Validate all non-missing attributes (Item Level Validation)
1397: '_PVT',
1398: x_return_status);
1399: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1401: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_ERROR;
1403: END IF;
1404: --- Validate all non-missing attributes (Item Level Validation)
1405: l_return_status := Validate_Attributes(l_qabv_rec);
1398: x_return_status);
1399: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1400: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1401: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1402: RAISE OKC_API.G_EXCEPTION_ERROR;
1403: END IF;
1404: --- Validate all non-missing attributes (Item Level Validation)
1405: l_return_status := Validate_Attributes(l_qabv_rec);
1406: --- If any errors happen abort API
1403: END IF;
1404: --- Validate all non-missing attributes (Item Level Validation)
1405: l_return_status := Validate_Attributes(l_qabv_rec);
1406: --- If any errors happen abort API
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1404: --- Validate all non-missing attributes (Item Level Validation)
1405: l_return_status := Validate_Attributes(l_qabv_rec);
1406: --- If any errors happen abort API
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412: l_return_status := Validate_Record(l_qabv_rec);
1405: l_return_status := Validate_Attributes(l_qabv_rec);
1406: --- If any errors happen abort API
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412: l_return_status := Validate_Record(l_qabv_rec);
1413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1406: --- If any errors happen abort API
1407: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1408: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412: l_return_status := Validate_Record(l_qabv_rec);
1413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1409: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412: l_return_status := Validate_Record(l_qabv_rec);
1413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1416: RAISE OKC_API.G_EXCEPTION_ERROR;
1417: END IF;
1410: RAISE OKC_API.G_EXCEPTION_ERROR;
1411: END IF;
1412: l_return_status := Validate_Record(l_qabv_rec);
1413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1416: RAISE OKC_API.G_EXCEPTION_ERROR;
1417: END IF;
1418: x_return_status := l_return_status;
1411: END IF;
1412: l_return_status := Validate_Record(l_qabv_rec);
1413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1416: RAISE OKC_API.G_EXCEPTION_ERROR;
1417: END IF;
1418: x_return_status := l_return_status;
1419: EXCEPTION
1412: l_return_status := Validate_Record(l_qabv_rec);
1413: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1416: RAISE OKC_API.G_EXCEPTION_ERROR;
1417: END IF;
1418: x_return_status := l_return_status;
1419: EXCEPTION
1420: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1416: RAISE OKC_API.G_EXCEPTION_ERROR;
1417: END IF;
1418: x_return_status := l_return_status;
1419: EXCEPTION
1420: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1421: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1422: (
1423: l_api_name,
1424: G_PKG_NAME,
1417: END IF;
1418: x_return_status := l_return_status;
1419: EXCEPTION
1420: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1421: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1422: (
1423: l_api_name,
1424: G_PKG_NAME,
1425: 'OKC_API.G_RET_STS_ERROR',
1421: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1422: (
1423: l_api_name,
1424: G_PKG_NAME,
1425: 'OKC_API.G_RET_STS_ERROR',
1426: x_msg_count,
1427: x_msg_data,
1428: '_PVT'
1429: );
1426: x_msg_count,
1427: x_msg_data,
1428: '_PVT'
1429: );
1430: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1431: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1432: (
1433: l_api_name,
1434: G_PKG_NAME,
1427: x_msg_data,
1428: '_PVT'
1429: );
1430: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1431: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1432: (
1433: l_api_name,
1434: G_PKG_NAME,
1435: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1431: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1432: (
1433: l_api_name,
1434: G_PKG_NAME,
1435: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1436: x_msg_count,
1437: x_msg_data,
1438: '_PVT'
1439: );
1437: x_msg_data,
1438: '_PVT'
1439: );
1440: WHEN OTHERS THEN
1441: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1442: (
1443: l_api_name,
1444: G_PKG_NAME,
1445: 'OTHERS',
1457: x_return_status OUT NOCOPY VARCHAR2,
1458: x_msg_count OUT NOCOPY NUMBER,
1459: x_msg_data OUT NOCOPY VARCHAR2,
1460: p_qabv_tbl IN qabv_tbl_type,
1461: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1462:
1463: l_api_version CONSTANT NUMBER := 1;
1464: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1465: i NUMBER := 0;
1463: l_api_version CONSTANT NUMBER := 1;
1464: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1465: i NUMBER := 0;
1466: BEGIN
1467: OKC_API.init_msg_list(p_init_msg_list);
1468: -- Make sure PL/SQL table has records in it before passing
1469: IF (p_qabv_tbl.COUNT > 0) THEN
1470: i := p_qabv_tbl.FIRST;
1471: LOOP
1469: IF (p_qabv_tbl.COUNT > 0) THEN
1470: i := p_qabv_tbl.FIRST;
1471: LOOP
1472: DECLARE
1473: l_error_rec OKC_API.ERROR_REC_TYPE;
1474: BEGIN
1475: l_error_rec.api_name := l_api_name;
1476: l_error_rec.api_package := G_PKG_NAME;
1477: l_error_rec.idx := i;
1476: l_error_rec.api_package := G_PKG_NAME;
1477: l_error_rec.idx := i;
1478: validate_row (
1479: p_api_version => p_api_version,
1480: p_init_msg_list => OKC_API.G_FALSE,
1481: x_return_status => l_error_rec.error_type,
1482: x_msg_count => l_error_rec.msg_count,
1483: x_msg_data => l_error_rec.msg_data,
1484: p_qabv_rec => p_qabv_tbl(i));
1481: x_return_status => l_error_rec.error_type,
1482: x_msg_count => l_error_rec.msg_count,
1483: x_msg_data => l_error_rec.msg_data,
1484: p_qabv_rec => p_qabv_tbl(i));
1485: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1486: l_error_rec.sqlcode := SQLCODE;
1487: load_error_tbl(l_error_rec, px_error_tbl);
1488: ELSE
1489: x_msg_count := l_error_rec.msg_count;
1489: x_msg_count := l_error_rec.msg_count;
1490: x_msg_data := l_error_rec.msg_data;
1491: END IF;
1492: EXCEPTION
1493: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1494: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1495: l_error_rec.sqlcode := SQLCODE;
1496: load_error_tbl(l_error_rec, px_error_tbl);
1497: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1490: x_msg_data := l_error_rec.msg_data;
1491: END IF;
1492: EXCEPTION
1493: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1494: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1495: l_error_rec.sqlcode := SQLCODE;
1496: load_error_tbl(l_error_rec, px_error_tbl);
1497: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1498: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1493: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1494: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1495: l_error_rec.sqlcode := SQLCODE;
1496: load_error_tbl(l_error_rec, px_error_tbl);
1497: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1498: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1499: l_error_rec.sqlcode := SQLCODE;
1500: load_error_tbl(l_error_rec, px_error_tbl);
1501: WHEN OTHERS THEN
1494: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1495: l_error_rec.sqlcode := SQLCODE;
1496: load_error_tbl(l_error_rec, px_error_tbl);
1497: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1498: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1499: l_error_rec.sqlcode := SQLCODE;
1500: load_error_tbl(l_error_rec, px_error_tbl);
1501: WHEN OTHERS THEN
1502: l_error_rec.error_type := 'OTHERS';
1509: END IF;
1510: -- Loop through the error_tbl to find the error with the highest severity
1511: -- and return it.
1512: x_return_status := find_highest_exception(px_error_tbl);
1513: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1514: EXCEPTION
1515: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1516: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1517: (
1511: -- and return it.
1512: x_return_status := find_highest_exception(px_error_tbl);
1513: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1514: EXCEPTION
1515: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1516: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1517: (
1518: l_api_name,
1519: G_PKG_NAME,
1512: x_return_status := find_highest_exception(px_error_tbl);
1513: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1514: EXCEPTION
1515: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1516: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1517: (
1518: l_api_name,
1519: G_PKG_NAME,
1520: 'OKC_API.G_RET_STS_ERROR',
1516: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1517: (
1518: l_api_name,
1519: G_PKG_NAME,
1520: 'OKC_API.G_RET_STS_ERROR',
1521: x_msg_count,
1522: x_msg_data,
1523: '_PVT'
1524: );
1521: x_msg_count,
1522: x_msg_data,
1523: '_PVT'
1524: );
1525: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1526: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1527: (
1528: l_api_name,
1529: G_PKG_NAME,
1522: x_msg_data,
1523: '_PVT'
1524: );
1525: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1526: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1527: (
1528: l_api_name,
1529: G_PKG_NAME,
1530: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1526: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1527: (
1528: l_api_name,
1529: G_PKG_NAME,
1530: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1531: x_msg_count,
1532: x_msg_data,
1533: '_PVT'
1534: );
1532: x_msg_data,
1533: '_PVT'
1534: );
1535: WHEN OTHERS THEN
1536: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1537: (
1538: l_api_name,
1539: G_PKG_NAME,
1540: 'OTHERS',
1556: p_qabv_tbl IN qabv_tbl_type) IS
1557:
1558: l_api_version CONSTANT NUMBER := 1;
1559: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1560: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1561: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1562: BEGIN
1563: OKC_API.init_msg_list(p_init_msg_list);
1564: -- Make sure PL/SQL table has records in it before passing
1557:
1558: l_api_version CONSTANT NUMBER := 1;
1559: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1560: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1561: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1562: BEGIN
1563: OKC_API.init_msg_list(p_init_msg_list);
1564: -- Make sure PL/SQL table has records in it before passing
1565: IF (p_qabv_tbl.COUNT > 0) THEN
1559: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1560: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1561: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1562: BEGIN
1563: OKC_API.init_msg_list(p_init_msg_list);
1564: -- Make sure PL/SQL table has records in it before passing
1565: IF (p_qabv_tbl.COUNT > 0) THEN
1566: validate_row (
1567: p_api_version => p_api_version,
1564: -- Make sure PL/SQL table has records in it before passing
1565: IF (p_qabv_tbl.COUNT > 0) THEN
1566: validate_row (
1567: p_api_version => p_api_version,
1568: p_init_msg_list => OKC_API.G_FALSE,
1569: x_return_status => x_return_status,
1570: x_msg_count => x_msg_count,
1571: x_msg_data => x_msg_data,
1572: p_qabv_tbl => p_qabv_tbl,
1571: x_msg_data => x_msg_data,
1572: p_qabv_tbl => p_qabv_tbl,
1573: px_error_tbl => l_error_tbl);
1574: END IF;
1575: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1576: EXCEPTION
1577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1573: px_error_tbl => l_error_tbl);
1574: END IF;
1575: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1576: EXCEPTION
1577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name,
1581: G_PKG_NAME,
1574: END IF;
1575: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1576: EXCEPTION
1577: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name,
1581: G_PKG_NAME,
1582: 'OKC_API.G_RET_STS_ERROR',
1578: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1579: (
1580: l_api_name,
1581: G_PKG_NAME,
1582: 'OKC_API.G_RET_STS_ERROR',
1583: x_msg_count,
1584: x_msg_data,
1585: '_PVT'
1586: );
1583: x_msg_count,
1584: x_msg_data,
1585: '_PVT'
1586: );
1587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1589: (
1590: l_api_name,
1591: G_PKG_NAME,
1584: x_msg_data,
1585: '_PVT'
1586: );
1587: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1589: (
1590: l_api_name,
1591: G_PKG_NAME,
1592: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1588: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1589: (
1590: l_api_name,
1591: G_PKG_NAME,
1592: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1593: x_msg_count,
1594: x_msg_data,
1595: '_PVT'
1596: );
1594: x_msg_data,
1595: '_PVT'
1596: );
1597: WHEN OTHERS THEN
1598: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1599: (
1600: l_api_name,
1601: G_PKG_NAME,
1602: 'OTHERS',
1621: x_qab_rec OUT NOCOPY qab_rec_type) IS
1622:
1623: l_api_version CONSTANT NUMBER := 1;
1624: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1625: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1626: l_qab_rec qab_rec_type := p_qab_rec;
1627: l_def_qab_rec qab_rec_type;
1628: ------------------------------------------------
1629: -- Set_Attributes for:OKL_TXD_QTE_ANTCPT_BILL --
1631: FUNCTION Set_Attributes (
1632: p_qab_rec IN qab_rec_type,
1633: x_qab_rec OUT NOCOPY qab_rec_type
1634: ) RETURN VARCHAR2 IS
1635: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1636: BEGIN
1637: x_qab_rec := p_qab_rec;
1638: RETURN(l_return_status);
1639: END Set_Attributes;
1637: x_qab_rec := p_qab_rec;
1638: RETURN(l_return_status);
1639: END Set_Attributes;
1640: BEGIN
1641: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1642: p_init_msg_list,
1643: '_PVT',
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1641: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1642: p_init_msg_list,
1643: '_PVT',
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1642: p_init_msg_list,
1643: '_PVT',
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650: --- Setting item atributes
1643: '_PVT',
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650: --- Setting item atributes
1651: l_return_status := Set_Attributes(
1644: x_return_status);
1645: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1646: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1647: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1648: RAISE OKC_API.G_EXCEPTION_ERROR;
1649: END IF;
1650: --- Setting item atributes
1651: l_return_status := Set_Attributes(
1652: p_qab_rec, -- IN
1651: l_return_status := Set_Attributes(
1652: p_qab_rec, -- IN
1653: l_qab_rec); -- OUT
1654: --- If any errors happen abort API
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1652: p_qab_rec, -- IN
1653: l_qab_rec); -- OUT
1654: --- If any errors happen abort API
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1660: INSERT INTO OKL_TXD_QTE_ANTCPT_BILL(
1653: l_qab_rec); -- OUT
1654: --- If any errors happen abort API
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1660: INSERT INTO OKL_TXD_QTE_ANTCPT_BILL(
1661: id,
1654: --- If any errors happen abort API
1655: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1656: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1657: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1658: RAISE OKC_API.G_EXCEPTION_ERROR;
1659: END IF;
1660: INSERT INTO OKL_TXD_QTE_ANTCPT_BILL(
1661: id,
1662: object_version_number,
1739: l_qab_rec.currency_conversion_date);
1740: -- Set OUT values
1741: x_qab_rec := l_qab_rec;
1742: x_return_status := l_return_status;
1743: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1744: EXCEPTION
1745: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1746: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1747: (
1741: x_qab_rec := l_qab_rec;
1742: x_return_status := l_return_status;
1743: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1744: EXCEPTION
1745: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1746: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1747: (
1748: l_api_name,
1749: G_PKG_NAME,
1742: x_return_status := l_return_status;
1743: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1744: EXCEPTION
1745: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1746: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1747: (
1748: l_api_name,
1749: G_PKG_NAME,
1750: 'OKC_API.G_RET_STS_ERROR',
1746: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1747: (
1748: l_api_name,
1749: G_PKG_NAME,
1750: 'OKC_API.G_RET_STS_ERROR',
1751: x_msg_count,
1752: x_msg_data,
1753: '_PVT'
1754: );
1751: x_msg_count,
1752: x_msg_data,
1753: '_PVT'
1754: );
1755: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1756: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1757: (
1758: l_api_name,
1759: G_PKG_NAME,
1752: x_msg_data,
1753: '_PVT'
1754: );
1755: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1756: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1757: (
1758: l_api_name,
1759: G_PKG_NAME,
1760: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1756: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1757: (
1758: l_api_name,
1759: G_PKG_NAME,
1760: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1761: x_msg_count,
1762: x_msg_data,
1763: '_PVT'
1764: );
1762: x_msg_data,
1763: '_PVT'
1764: );
1765: WHEN OTHERS THEN
1766: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1767: (
1768: l_api_name,
1769: G_PKG_NAME,
1770: 'OTHERS',
1786: x_qabv_rec OUT NOCOPY qabv_rec_type) IS
1787:
1788: l_api_version CONSTANT NUMBER := 1;
1789: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1790: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1791: l_qabv_rec qabv_rec_type := p_qabv_rec;
1792: l_def_qabv_rec qabv_rec_type;
1793: l_qab_rec qab_rec_type;
1794: lx_qab_rec qab_rec_type;
1813: FUNCTION Set_Attributes (
1814: p_qabv_rec IN qabv_rec_type,
1815: x_qabv_rec OUT NOCOPY qabv_rec_type
1816: ) RETURN VARCHAR2 IS
1817: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1818: BEGIN
1819: x_qabv_rec := p_qabv_rec;
1820: x_qabv_rec.OBJECT_VERSION_NUMBER := 1;
1821:
1822: -- rmunjulu Post Tapi Gen Changes --- Start +++++++++++++++++++++++++++++
1823:
1824: -- Default the ORG ID if no value passed
1825: IF p_qabv_rec.org_id IS NULL
1826: OR p_qabv_rec.org_id = OKC_API.G_MISS_NUM THEN
1827: x_qabv_rec.org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
1828: END IF;
1829:
1830: x_qabv_rec.currency_conversion_code := OKL_AM_UTIL_PVT.get_functional_currency;
1829:
1830: x_qabv_rec.currency_conversion_code := OKL_AM_UTIL_PVT.get_functional_currency;
1831:
1832: IF p_qabv_rec.currency_code IS NULL
1833: OR p_qabv_rec.currency_code = OKC_API.G_MISS_CHAR THEN
1834: x_qabv_rec.currency_code := x_qabv_rec.currency_conversion_code;
1835: END IF;
1836:
1837: -- rmunjulu Post Tapi Gen Changes --- End +++++++++++++++++++++++++++++
1838:
1839: RETURN(l_return_status);
1840: END Set_Attributes;
1841: BEGIN
1842: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1843: G_PKG_NAME,
1844: p_init_msg_list,
1845: l_api_version,
1846: p_api_version,
1845: l_api_version,
1846: p_api_version,
1847: '_PVT',
1848: x_return_status);
1849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1846: p_api_version,
1847: '_PVT',
1848: x_return_status);
1849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: l_qabv_rec := null_out_defaults(p_qabv_rec);
1847: '_PVT',
1848: x_return_status);
1849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: l_qabv_rec := null_out_defaults(p_qabv_rec);
1855: -- Set primary key value
1848: x_return_status);
1849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: l_qabv_rec := null_out_defaults(p_qabv_rec);
1855: -- Set primary key value
1856: l_qabv_rec.ID := get_seq_id;
1858: l_return_Status := Set_Attributes(
1859: l_qabv_rec, -- IN
1860: l_def_qabv_rec); -- OUT
1861: --- If any errors happen abort API
1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1859: l_qabv_rec, -- IN
1860: l_def_qabv_rec); -- OUT
1861: --- If any errors happen abort API
1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: l_def_qabv_rec := fill_who_columns(l_def_qabv_rec);
1860: l_def_qabv_rec); -- OUT
1861: --- If any errors happen abort API
1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: l_def_qabv_rec := fill_who_columns(l_def_qabv_rec);
1868: --- Validate all non-missing attributes (Item Level Validation)
1861: --- If any errors happen abort API
1862: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1863: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1864: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1865: RAISE OKC_API.G_EXCEPTION_ERROR;
1866: END IF;
1867: l_def_qabv_rec := fill_who_columns(l_def_qabv_rec);
1868: --- Validate all non-missing attributes (Item Level Validation)
1869: l_return_status := Validate_Attributes(l_def_qabv_rec);
1867: l_def_qabv_rec := fill_who_columns(l_def_qabv_rec);
1868: --- Validate all non-missing attributes (Item Level Validation)
1869: l_return_status := Validate_Attributes(l_def_qabv_rec);
1870: --- If any errors happen abort API
1871: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1868: --- Validate all non-missing attributes (Item Level Validation)
1869: l_return_status := Validate_Attributes(l_def_qabv_rec);
1870: --- If any errors happen abort API
1871: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: l_return_status := Validate_Record(l_def_qabv_rec);
1869: l_return_status := Validate_Attributes(l_def_qabv_rec);
1870: --- If any errors happen abort API
1871: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: l_return_status := Validate_Record(l_def_qabv_rec);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: --- If any errors happen abort API
1871: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1872: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: l_return_status := Validate_Record(l_def_qabv_rec);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1873: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: l_return_status := Validate_Record(l_def_qabv_rec);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1874: RAISE OKC_API.G_EXCEPTION_ERROR;
1875: END IF;
1876: l_return_status := Validate_Record(l_def_qabv_rec);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1882: -----------------------------------------
1875: END IF;
1876: l_return_status := Validate_Record(l_def_qabv_rec);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1882: -----------------------------------------
1883: -- Move VIEW record to "Child" records --
1876: l_return_status := Validate_Record(l_def_qabv_rec);
1877: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1878: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1879: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1880: RAISE OKC_API.G_EXCEPTION_ERROR;
1881: END IF;
1882: -----------------------------------------
1883: -- Move VIEW record to "Child" records --
1884: -----------------------------------------
1893: x_msg_data,
1894: l_qab_rec,
1895: lx_qab_rec
1896: );
1897: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1898: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1899: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_ERROR;
1901: END IF;
1894: l_qab_rec,
1895: lx_qab_rec
1896: );
1897: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1898: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1899: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_ERROR;
1901: END IF;
1902: migrate(lx_qab_rec, l_def_qabv_rec);
1895: lx_qab_rec
1896: );
1897: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1898: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1899: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_ERROR;
1901: END IF;
1902: migrate(lx_qab_rec, l_def_qabv_rec);
1903: -- Set OUT values
1896: );
1897: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1898: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1899: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1900: RAISE OKC_API.G_EXCEPTION_ERROR;
1901: END IF;
1902: migrate(lx_qab_rec, l_def_qabv_rec);
1903: -- Set OUT values
1904: x_qabv_rec := l_def_qabv_rec;
1902: migrate(lx_qab_rec, l_def_qabv_rec);
1903: -- Set OUT values
1904: x_qabv_rec := l_def_qabv_rec;
1905: x_return_status := l_return_status;
1906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1907: EXCEPTION
1908: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1910: (
1904: x_qabv_rec := l_def_qabv_rec;
1905: x_return_status := l_return_status;
1906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1907: EXCEPTION
1908: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1910: (
1911: l_api_name,
1912: G_PKG_NAME,
1905: x_return_status := l_return_status;
1906: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1907: EXCEPTION
1908: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1910: (
1911: l_api_name,
1912: G_PKG_NAME,
1913: 'OKC_API.G_RET_STS_ERROR',
1909: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1910: (
1911: l_api_name,
1912: G_PKG_NAME,
1913: 'OKC_API.G_RET_STS_ERROR',
1914: x_msg_count,
1915: x_msg_data,
1916: '_PVT'
1917: );
1914: x_msg_count,
1915: x_msg_data,
1916: '_PVT'
1917: );
1918: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1920: (
1921: l_api_name,
1922: G_PKG_NAME,
1915: x_msg_data,
1916: '_PVT'
1917: );
1918: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1920: (
1921: l_api_name,
1922: G_PKG_NAME,
1923: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1919: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1920: (
1921: l_api_name,
1922: G_PKG_NAME,
1923: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1924: x_msg_count,
1925: x_msg_data,
1926: '_PVT'
1927: );
1925: x_msg_data,
1926: '_PVT'
1927: );
1928: WHEN OTHERS THEN
1929: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1930: (
1931: l_api_name,
1932: G_PKG_NAME,
1933: 'OTHERS',
1946: x_msg_count OUT NOCOPY NUMBER,
1947: x_msg_data OUT NOCOPY VARCHAR2,
1948: p_qabv_tbl IN qabv_tbl_type,
1949: x_qabv_tbl OUT NOCOPY qabv_tbl_type,
1950: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1951:
1952: l_api_version CONSTANT NUMBER := 1;
1953: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1954: i NUMBER := 0;
1952: l_api_version CONSTANT NUMBER := 1;
1953: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1954: i NUMBER := 0;
1955: BEGIN
1956: OKC_API.init_msg_list(p_init_msg_list);
1957: -- Make sure PL/SQL table has records in it before passing
1958: IF (p_qabv_tbl.COUNT > 0) THEN
1959: i := p_qabv_tbl.FIRST;
1960: LOOP
1958: IF (p_qabv_tbl.COUNT > 0) THEN
1959: i := p_qabv_tbl.FIRST;
1960: LOOP
1961: DECLARE
1962: l_error_rec OKC_API.ERROR_REC_TYPE;
1963: BEGIN
1964: l_error_rec.api_name := l_api_name;
1965: l_error_rec.api_package := G_PKG_NAME;
1966: l_error_rec.idx := i;
1965: l_error_rec.api_package := G_PKG_NAME;
1966: l_error_rec.idx := i;
1967: insert_row (
1968: p_api_version => p_api_version,
1969: p_init_msg_list => OKC_API.G_FALSE,
1970: x_return_status => l_error_rec.error_type,
1971: x_msg_count => l_error_rec.msg_count,
1972: x_msg_data => l_error_rec.msg_data,
1973: p_qabv_rec => p_qabv_tbl(i),
1971: x_msg_count => l_error_rec.msg_count,
1972: x_msg_data => l_error_rec.msg_data,
1973: p_qabv_rec => p_qabv_tbl(i),
1974: x_qabv_rec => x_qabv_tbl(i));
1975: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1976: l_error_rec.sqlcode := SQLCODE;
1977: load_error_tbl(l_error_rec, px_error_tbl);
1978: ELSE
1979: x_msg_count := l_error_rec.msg_count;
1979: x_msg_count := l_error_rec.msg_count;
1980: x_msg_data := l_error_rec.msg_data;
1981: END IF;
1982: EXCEPTION
1983: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1984: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1985: l_error_rec.sqlcode := SQLCODE;
1986: load_error_tbl(l_error_rec, px_error_tbl);
1987: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1980: x_msg_data := l_error_rec.msg_data;
1981: END IF;
1982: EXCEPTION
1983: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1984: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1985: l_error_rec.sqlcode := SQLCODE;
1986: load_error_tbl(l_error_rec, px_error_tbl);
1987: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1988: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1983: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1984: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1985: l_error_rec.sqlcode := SQLCODE;
1986: load_error_tbl(l_error_rec, px_error_tbl);
1987: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1988: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1989: l_error_rec.sqlcode := SQLCODE;
1990: load_error_tbl(l_error_rec, px_error_tbl);
1991: WHEN OTHERS THEN
1984: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1985: l_error_rec.sqlcode := SQLCODE;
1986: load_error_tbl(l_error_rec, px_error_tbl);
1987: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1988: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1989: l_error_rec.sqlcode := SQLCODE;
1990: load_error_tbl(l_error_rec, px_error_tbl);
1991: WHEN OTHERS THEN
1992: l_error_rec.error_type := 'OTHERS';
1999: END IF;
2000: -- Loop through the error_tbl to find the error with the highest severity
2001: -- and return it.
2002: x_return_status := find_highest_exception(px_error_tbl);
2003: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2004: EXCEPTION
2005: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2006: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2007: (
2001: -- and return it.
2002: x_return_status := find_highest_exception(px_error_tbl);
2003: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2004: EXCEPTION
2005: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2006: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2007: (
2008: l_api_name,
2009: G_PKG_NAME,
2002: x_return_status := find_highest_exception(px_error_tbl);
2003: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2004: EXCEPTION
2005: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2006: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2007: (
2008: l_api_name,
2009: G_PKG_NAME,
2010: 'OKC_API.G_RET_STS_ERROR',
2006: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2007: (
2008: l_api_name,
2009: G_PKG_NAME,
2010: 'OKC_API.G_RET_STS_ERROR',
2011: x_msg_count,
2012: x_msg_data,
2013: '_PVT'
2014: );
2011: x_msg_count,
2012: x_msg_data,
2013: '_PVT'
2014: );
2015: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2016: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2017: (
2018: l_api_name,
2019: G_PKG_NAME,
2012: x_msg_data,
2013: '_PVT'
2014: );
2015: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2016: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2017: (
2018: l_api_name,
2019: G_PKG_NAME,
2020: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2016: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2017: (
2018: l_api_name,
2019: G_PKG_NAME,
2020: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2021: x_msg_count,
2022: x_msg_data,
2023: '_PVT'
2024: );
2022: x_msg_data,
2023: '_PVT'
2024: );
2025: WHEN OTHERS THEN
2026: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2027: (
2028: l_api_name,
2029: G_PKG_NAME,
2030: 'OTHERS',
2049: x_qabv_tbl OUT NOCOPY qabv_tbl_type) IS
2050:
2051: l_api_version CONSTANT NUMBER := 1;
2052: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2053: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2054: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2055: BEGIN
2056: OKC_API.init_msg_list(p_init_msg_list);
2057: -- Make sure PL/SQL table has records in it before passing
2050:
2051: l_api_version CONSTANT NUMBER := 1;
2052: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2053: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2054: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2055: BEGIN
2056: OKC_API.init_msg_list(p_init_msg_list);
2057: -- Make sure PL/SQL table has records in it before passing
2058: IF (p_qabv_tbl.COUNT > 0) THEN
2052: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2053: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2054: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2055: BEGIN
2056: OKC_API.init_msg_list(p_init_msg_list);
2057: -- Make sure PL/SQL table has records in it before passing
2058: IF (p_qabv_tbl.COUNT > 0) THEN
2059: insert_row (
2060: p_api_version => p_api_version,
2057: -- Make sure PL/SQL table has records in it before passing
2058: IF (p_qabv_tbl.COUNT > 0) THEN
2059: insert_row (
2060: p_api_version => p_api_version,
2061: p_init_msg_list => OKC_API.G_FALSE,
2062: x_return_status => x_return_status,
2063: x_msg_count => x_msg_count,
2064: x_msg_data => x_msg_data,
2065: p_qabv_tbl => p_qabv_tbl,
2065: p_qabv_tbl => p_qabv_tbl,
2066: x_qabv_tbl => x_qabv_tbl,
2067: px_error_tbl => l_error_tbl);
2068: END IF;
2069: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2070: EXCEPTION
2071: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2073: (
2067: px_error_tbl => l_error_tbl);
2068: END IF;
2069: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2070: EXCEPTION
2071: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2073: (
2074: l_api_name,
2075: G_PKG_NAME,
2068: END IF;
2069: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2070: EXCEPTION
2071: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2073: (
2074: l_api_name,
2075: G_PKG_NAME,
2076: 'OKC_API.G_RET_STS_ERROR',
2072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2073: (
2074: l_api_name,
2075: G_PKG_NAME,
2076: 'OKC_API.G_RET_STS_ERROR',
2077: x_msg_count,
2078: x_msg_data,
2079: '_PVT'
2080: );
2077: x_msg_count,
2078: x_msg_data,
2079: '_PVT'
2080: );
2081: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2082: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2083: (
2084: l_api_name,
2085: G_PKG_NAME,
2078: x_msg_data,
2079: '_PVT'
2080: );
2081: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2082: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2083: (
2084: l_api_name,
2085: G_PKG_NAME,
2086: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2082: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2083: (
2084: l_api_name,
2085: G_PKG_NAME,
2086: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2087: x_msg_count,
2088: x_msg_data,
2089: '_PVT'
2090: );
2088: x_msg_data,
2089: '_PVT'
2090: );
2091: WHEN OTHERS THEN
2092: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2093: (
2094: l_api_name,
2095: G_PKG_NAME,
2096: 'OTHERS',
2127: FROM OKL_TXD_QTE_ANTCPT_BILL
2128: WHERE ID = p_qab_rec.id;
2129: l_api_version CONSTANT NUMBER := 1;
2130: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2131: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2132: l_object_version_number OKL_TXD_QTE_ANTCPT_BILL.OBJECT_VERSION_NUMBER%TYPE;
2133: lc_object_version_number OKL_TXD_QTE_ANTCPT_BILL.OBJECT_VERSION_NUMBER%TYPE;
2134: l_row_notfound BOOLEAN := FALSE;
2135: lc_row_notfound BOOLEAN := FALSE;
2133: lc_object_version_number OKL_TXD_QTE_ANTCPT_BILL.OBJECT_VERSION_NUMBER%TYPE;
2134: l_row_notfound BOOLEAN := FALSE;
2135: lc_row_notfound BOOLEAN := FALSE;
2136: BEGIN
2137: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2138: p_init_msg_list,
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2137: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2138: p_init_msg_list,
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2138: p_init_msg_list,
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: BEGIN
2139: '_PVT',
2140: x_return_status);
2141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: BEGIN
2147: OPEN lock_csr(p_qab_rec);
2140: x_return_status);
2141: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2142: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2143: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2144: RAISE OKC_API.G_EXCEPTION_ERROR;
2145: END IF;
2146: BEGIN
2147: OPEN lock_csr(p_qab_rec);
2148: FETCH lock_csr INTO l_object_version_number;
2152: WHEN E_Resource_Busy THEN
2153: IF (lock_csr%ISOPEN) THEN
2154: CLOSE lock_csr;
2155: END IF;
2156: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2157: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
2158: END;
2159:
2160: IF ( l_row_notfound ) THEN
2163: lc_row_notfound := lchk_csr%NOTFOUND;
2164: CLOSE lchk_csr;
2165: END IF;
2166: IF (lc_row_notfound) THEN
2167: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2168: RAISE OKC_API.G_EXCEPTION_ERROR;
2169: ELSIF lc_object_version_number > p_qab_rec.object_version_number THEN
2170: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2171: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: CLOSE lchk_csr;
2165: END IF;
2166: IF (lc_row_notfound) THEN
2167: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2168: RAISE OKC_API.G_EXCEPTION_ERROR;
2169: ELSIF lc_object_version_number > p_qab_rec.object_version_number THEN
2170: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2171: RAISE OKC_API.G_EXCEPTION_ERROR;
2172: ELSIF lc_object_version_number <> p_qab_rec.object_version_number THEN
2166: IF (lc_row_notfound) THEN
2167: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2168: RAISE OKC_API.G_EXCEPTION_ERROR;
2169: ELSIF lc_object_version_number > p_qab_rec.object_version_number THEN
2170: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2171: RAISE OKC_API.G_EXCEPTION_ERROR;
2172: ELSIF lc_object_version_number <> p_qab_rec.object_version_number THEN
2173: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2174: RAISE OKC_API.G_EXCEPTION_ERROR;
2167: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2168: RAISE OKC_API.G_EXCEPTION_ERROR;
2169: ELSIF lc_object_version_number > p_qab_rec.object_version_number THEN
2170: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2171: RAISE OKC_API.G_EXCEPTION_ERROR;
2172: ELSIF lc_object_version_number <> p_qab_rec.object_version_number THEN
2173: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2174: RAISE OKC_API.G_EXCEPTION_ERROR;
2175: ELSIF lc_object_version_number = -1 THEN
2169: ELSIF lc_object_version_number > p_qab_rec.object_version_number THEN
2170: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2171: RAISE OKC_API.G_EXCEPTION_ERROR;
2172: ELSIF lc_object_version_number <> p_qab_rec.object_version_number THEN
2173: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2174: RAISE OKC_API.G_EXCEPTION_ERROR;
2175: ELSIF lc_object_version_number = -1 THEN
2176: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2177: RAISE OKC_API.G_EXCEPTION_ERROR;
2170: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2171: RAISE OKC_API.G_EXCEPTION_ERROR;
2172: ELSIF lc_object_version_number <> p_qab_rec.object_version_number THEN
2173: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2174: RAISE OKC_API.G_EXCEPTION_ERROR;
2175: ELSIF lc_object_version_number = -1 THEN
2176: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2177: RAISE OKC_API.G_EXCEPTION_ERROR;
2178: END IF;
2172: ELSIF lc_object_version_number <> p_qab_rec.object_version_number THEN
2173: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2174: RAISE OKC_API.G_EXCEPTION_ERROR;
2175: ELSIF lc_object_version_number = -1 THEN
2176: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2177: RAISE OKC_API.G_EXCEPTION_ERROR;
2178: END IF;
2179: x_return_status := l_return_status;
2180: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2173: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2174: RAISE OKC_API.G_EXCEPTION_ERROR;
2175: ELSIF lc_object_version_number = -1 THEN
2176: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2177: RAISE OKC_API.G_EXCEPTION_ERROR;
2178: END IF;
2179: x_return_status := l_return_status;
2180: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2181: EXCEPTION
2176: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2177: RAISE OKC_API.G_EXCEPTION_ERROR;
2178: END IF;
2179: x_return_status := l_return_status;
2180: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2181: EXCEPTION
2182: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2184: (
2178: END IF;
2179: x_return_status := l_return_status;
2180: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2181: EXCEPTION
2182: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2184: (
2185: l_api_name,
2186: G_PKG_NAME,
2179: x_return_status := l_return_status;
2180: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2181: EXCEPTION
2182: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2184: (
2185: l_api_name,
2186: G_PKG_NAME,
2187: 'OKC_API.G_RET_STS_ERROR',
2183: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2184: (
2185: l_api_name,
2186: G_PKG_NAME,
2187: 'OKC_API.G_RET_STS_ERROR',
2188: x_msg_count,
2189: x_msg_data,
2190: '_PVT'
2191: );
2188: x_msg_count,
2189: x_msg_data,
2190: '_PVT'
2191: );
2192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2193: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2194: (
2195: l_api_name,
2196: G_PKG_NAME,
2189: x_msg_data,
2190: '_PVT'
2191: );
2192: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2193: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2194: (
2195: l_api_name,
2196: G_PKG_NAME,
2197: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2193: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2194: (
2195: l_api_name,
2196: G_PKG_NAME,
2197: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2198: x_msg_count,
2199: x_msg_data,
2200: '_PVT'
2201: );
2199: x_msg_data,
2200: '_PVT'
2201: );
2202: WHEN OTHERS THEN
2203: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2204: (
2205: l_api_name,
2206: G_PKG_NAME,
2207: 'OTHERS',
2222: p_qabv_rec IN qabv_rec_type) IS
2223:
2224: l_api_version CONSTANT NUMBER := 1;
2225: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2226: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2227: l_qab_rec qab_rec_type;
2228: BEGIN
2229: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2230: G_PKG_NAME,
2225: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2226: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2227: l_qab_rec qab_rec_type;
2228: BEGIN
2229: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2230: G_PKG_NAME,
2231: p_init_msg_list,
2232: l_api_version,
2233: p_api_version,
2232: l_api_version,
2233: p_api_version,
2234: '_PVT',
2235: x_return_status);
2236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2233: p_api_version,
2234: '_PVT',
2235: x_return_status);
2236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: -----------------------------------------
2234: '_PVT',
2235: x_return_status);
2236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: -----------------------------------------
2242: -- Move VIEW record to "Child" records --
2235: x_return_status);
2236: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2238: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2239: RAISE OKC_API.G_EXCEPTION_ERROR;
2240: END IF;
2241: -----------------------------------------
2242: -- Move VIEW record to "Child" records --
2243: -----------------------------------------
2251: x_msg_count,
2252: x_msg_data,
2253: l_qab_rec
2254: );
2255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2258: RAISE OKC_API.G_EXCEPTION_ERROR;
2259: END IF;
2252: x_msg_data,
2253: l_qab_rec
2254: );
2255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2258: RAISE OKC_API.G_EXCEPTION_ERROR;
2259: END IF;
2260: x_return_status := l_return_status;
2253: l_qab_rec
2254: );
2255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2258: RAISE OKC_API.G_EXCEPTION_ERROR;
2259: END IF;
2260: x_return_status := l_return_status;
2261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2254: );
2255: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2256: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2258: RAISE OKC_API.G_EXCEPTION_ERROR;
2259: END IF;
2260: x_return_status := l_return_status;
2261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2262: EXCEPTION
2257: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2258: RAISE OKC_API.G_EXCEPTION_ERROR;
2259: END IF;
2260: x_return_status := l_return_status;
2261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2262: EXCEPTION
2263: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2264: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2265: (
2259: END IF;
2260: x_return_status := l_return_status;
2261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2262: EXCEPTION
2263: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2264: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2265: (
2266: l_api_name,
2267: G_PKG_NAME,
2260: x_return_status := l_return_status;
2261: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2262: EXCEPTION
2263: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2264: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2265: (
2266: l_api_name,
2267: G_PKG_NAME,
2268: 'OKC_API.G_RET_STS_ERROR',
2264: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2265: (
2266: l_api_name,
2267: G_PKG_NAME,
2268: 'OKC_API.G_RET_STS_ERROR',
2269: x_msg_count,
2270: x_msg_data,
2271: '_PVT'
2272: );
2269: x_msg_count,
2270: x_msg_data,
2271: '_PVT'
2272: );
2273: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2274: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2275: (
2276: l_api_name,
2277: G_PKG_NAME,
2270: x_msg_data,
2271: '_PVT'
2272: );
2273: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2274: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2275: (
2276: l_api_name,
2277: G_PKG_NAME,
2278: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2274: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2275: (
2276: l_api_name,
2277: G_PKG_NAME,
2278: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2279: x_msg_count,
2280: x_msg_data,
2281: '_PVT'
2282: );
2280: x_msg_data,
2281: '_PVT'
2282: );
2283: WHEN OTHERS THEN
2284: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2285: (
2286: l_api_name,
2287: G_PKG_NAME,
2288: 'OTHERS',
2300: x_return_status OUT NOCOPY VARCHAR2,
2301: x_msg_count OUT NOCOPY NUMBER,
2302: x_msg_data OUT NOCOPY VARCHAR2,
2303: p_qabv_tbl IN qabv_tbl_type,
2304: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2305:
2306: l_api_version CONSTANT NUMBER := 1;
2307: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2308: i NUMBER := 0;
2306: l_api_version CONSTANT NUMBER := 1;
2307: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
2308: i NUMBER := 0;
2309: BEGIN
2310: OKC_API.init_msg_list(p_init_msg_list);
2311: -- Make sure PL/SQL table has recrods in it before passing
2312: IF (p_qabv_tbl.COUNT > 0) THEN
2313: i := p_qabv_tbl.FIRST;
2314: LOOP
2312: IF (p_qabv_tbl.COUNT > 0) THEN
2313: i := p_qabv_tbl.FIRST;
2314: LOOP
2315: DECLARE
2316: l_error_rec OKC_API.ERROR_REC_TYPE;
2317: BEGIN
2318: l_error_rec.api_name := l_api_name;
2319: l_error_rec.api_package := G_PKG_NAME;
2320: l_error_rec.idx := i;
2319: l_error_rec.api_package := G_PKG_NAME;
2320: l_error_rec.idx := i;
2321: lock_row(
2322: p_api_version => p_api_version,
2323: p_init_msg_list => OKC_API.G_FALSE,
2324: x_return_status => l_error_rec.error_type,
2325: x_msg_count => l_error_rec.msg_count,
2326: x_msg_data => l_error_rec.msg_data,
2327: p_qabv_rec => p_qabv_tbl(i));
2324: x_return_status => l_error_rec.error_type,
2325: x_msg_count => l_error_rec.msg_count,
2326: x_msg_data => l_error_rec.msg_data,
2327: p_qabv_rec => p_qabv_tbl(i));
2328: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2329: l_error_rec.sqlcode := SQLCODE;
2330: load_error_tbl(l_error_rec, px_error_tbl);
2331: ELSE
2332: x_msg_count := l_error_rec.msg_count;
2332: x_msg_count := l_error_rec.msg_count;
2333: x_msg_data := l_error_rec.msg_data;
2334: END IF;
2335: EXCEPTION
2336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2337: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2338: l_error_rec.sqlcode := SQLCODE;
2339: load_error_tbl(l_error_rec, px_error_tbl);
2340: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2333: x_msg_data := l_error_rec.msg_data;
2334: END IF;
2335: EXCEPTION
2336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2337: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2338: l_error_rec.sqlcode := SQLCODE;
2339: load_error_tbl(l_error_rec, px_error_tbl);
2340: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2341: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2336: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2337: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2338: l_error_rec.sqlcode := SQLCODE;
2339: load_error_tbl(l_error_rec, px_error_tbl);
2340: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2341: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2342: l_error_rec.sqlcode := SQLCODE;
2343: load_error_tbl(l_error_rec, px_error_tbl);
2344: WHEN OTHERS THEN
2337: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2338: l_error_rec.sqlcode := SQLCODE;
2339: load_error_tbl(l_error_rec, px_error_tbl);
2340: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2341: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2342: l_error_rec.sqlcode := SQLCODE;
2343: load_error_tbl(l_error_rec, px_error_tbl);
2344: WHEN OTHERS THEN
2345: l_error_rec.error_type := 'OTHERS';
2352: END IF;
2353: -- Loop through the error_tbl to find the error with the highest severity
2354: -- and return it.
2355: x_return_status := find_highest_exception(px_error_tbl);
2356: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2357: EXCEPTION
2358: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2360: (
2354: -- and return it.
2355: x_return_status := find_highest_exception(px_error_tbl);
2356: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2357: EXCEPTION
2358: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2360: (
2361: l_api_name,
2362: G_PKG_NAME,
2355: x_return_status := find_highest_exception(px_error_tbl);
2356: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2357: EXCEPTION
2358: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2360: (
2361: l_api_name,
2362: G_PKG_NAME,
2363: 'OKC_API.G_RET_STS_ERROR',
2359: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2360: (
2361: l_api_name,
2362: G_PKG_NAME,
2363: 'OKC_API.G_RET_STS_ERROR',
2364: x_msg_count,
2365: x_msg_data,
2366: '_PVT'
2367: );
2364: x_msg_count,
2365: x_msg_data,
2366: '_PVT'
2367: );
2368: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2369: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2370: (
2371: l_api_name,
2372: G_PKG_NAME,
2365: x_msg_data,
2366: '_PVT'
2367: );
2368: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2369: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2370: (
2371: l_api_name,
2372: G_PKG_NAME,
2373: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2369: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2370: (
2371: l_api_name,
2372: G_PKG_NAME,
2373: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2374: x_msg_count,
2375: x_msg_data,
2376: '_PVT'
2377: );
2375: x_msg_data,
2376: '_PVT'
2377: );
2378: WHEN OTHERS THEN
2379: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2380: (
2381: l_api_name,
2382: G_PKG_NAME,
2383: 'OTHERS',
2398: p_qabv_tbl IN qabv_tbl_type) IS
2399:
2400: l_api_version CONSTANT NUMBER := 1;
2401: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2402: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2403: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2404: BEGIN
2405: OKC_API.init_msg_list(p_init_msg_list);
2406: -- Make sure PL/SQL table has recrods in it before passing
2399:
2400: l_api_version CONSTANT NUMBER := 1;
2401: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2402: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2403: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2404: BEGIN
2405: OKC_API.init_msg_list(p_init_msg_list);
2406: -- Make sure PL/SQL table has recrods in it before passing
2407: IF (p_qabv_tbl.COUNT > 0) THEN
2401: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2402: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2403: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2404: BEGIN
2405: OKC_API.init_msg_list(p_init_msg_list);
2406: -- Make sure PL/SQL table has recrods in it before passing
2407: IF (p_qabv_tbl.COUNT > 0) THEN
2408: lock_row(
2409: p_api_version => p_api_version,
2406: -- Make sure PL/SQL table has recrods in it before passing
2407: IF (p_qabv_tbl.COUNT > 0) THEN
2408: lock_row(
2409: p_api_version => p_api_version,
2410: p_init_msg_list => OKC_API.G_FALSE,
2411: x_return_status => x_return_status,
2412: x_msg_count => x_msg_count,
2413: x_msg_data => x_msg_data,
2414: p_qabv_tbl => p_qabv_tbl,
2413: x_msg_data => x_msg_data,
2414: p_qabv_tbl => p_qabv_tbl,
2415: px_error_tbl => l_error_tbl);
2416: END IF;
2417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2418: EXCEPTION
2419: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2420: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2421: (
2415: px_error_tbl => l_error_tbl);
2416: END IF;
2417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2418: EXCEPTION
2419: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2420: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2421: (
2422: l_api_name,
2423: G_PKG_NAME,
2416: END IF;
2417: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2418: EXCEPTION
2419: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2420: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2421: (
2422: l_api_name,
2423: G_PKG_NAME,
2424: 'OKC_API.G_RET_STS_ERROR',
2420: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2421: (
2422: l_api_name,
2423: G_PKG_NAME,
2424: 'OKC_API.G_RET_STS_ERROR',
2425: x_msg_count,
2426: x_msg_data,
2427: '_PVT'
2428: );
2425: x_msg_count,
2426: x_msg_data,
2427: '_PVT'
2428: );
2429: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2430: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2431: (
2432: l_api_name,
2433: G_PKG_NAME,
2426: x_msg_data,
2427: '_PVT'
2428: );
2429: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2430: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2431: (
2432: l_api_name,
2433: G_PKG_NAME,
2434: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2430: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2431: (
2432: l_api_name,
2433: G_PKG_NAME,
2434: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2435: x_msg_count,
2436: x_msg_data,
2437: '_PVT'
2438: );
2436: x_msg_data,
2437: '_PVT'
2438: );
2439: WHEN OTHERS THEN
2440: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2441: (
2442: l_api_name,
2443: G_PKG_NAME,
2444: 'OTHERS',
2462: x_qab_rec OUT NOCOPY qab_rec_type) IS
2463:
2464: l_api_version CONSTANT NUMBER := 1;
2465: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2466: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2467: l_qab_rec qab_rec_type := p_qab_rec;
2468: l_def_qab_rec qab_rec_type;
2469: l_row_notfound BOOLEAN := TRUE;
2470: ----------------------------------
2475: x_qab_rec OUT NOCOPY qab_rec_type
2476: ) RETURN VARCHAR2 IS
2477: l_qab_rec qab_rec_type;
2478: l_row_notfound BOOLEAN := TRUE;
2479: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2480: BEGIN
2481: x_qab_rec := p_qab_rec;
2482: -- Get current database values
2483: l_qab_rec := get_rec(p_qab_rec, l_return_status);
2480: BEGIN
2481: x_qab_rec := p_qab_rec;
2482: -- Get current database values
2483: l_qab_rec := get_rec(p_qab_rec, l_return_status);
2484: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2485: IF (x_qab_rec.id = OKC_API.G_MISS_NUM)
2486: THEN
2487: x_qab_rec.id := l_qab_rec.id;
2488: END IF;
2481: x_qab_rec := p_qab_rec;
2482: -- Get current database values
2483: l_qab_rec := get_rec(p_qab_rec, l_return_status);
2484: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2485: IF (x_qab_rec.id = OKC_API.G_MISS_NUM)
2486: THEN
2487: x_qab_rec.id := l_qab_rec.id;
2488: END IF;
2489: IF (x_qab_rec.object_version_number = OKC_API.G_MISS_NUM)
2485: IF (x_qab_rec.id = OKC_API.G_MISS_NUM)
2486: THEN
2487: x_qab_rec.id := l_qab_rec.id;
2488: END IF;
2489: IF (x_qab_rec.object_version_number = OKC_API.G_MISS_NUM)
2490: THEN
2491: x_qab_rec.object_version_number := l_qab_rec.object_version_number;
2492: END IF;
2493: IF (x_qab_rec.khr_id = OKC_API.G_MISS_NUM)
2489: IF (x_qab_rec.object_version_number = OKC_API.G_MISS_NUM)
2490: THEN
2491: x_qab_rec.object_version_number := l_qab_rec.object_version_number;
2492: END IF;
2493: IF (x_qab_rec.khr_id = OKC_API.G_MISS_NUM)
2494: THEN
2495: x_qab_rec.khr_id := l_qab_rec.khr_id;
2496: END IF;
2497: IF (x_qab_rec.qte_id = OKC_API.G_MISS_NUM)
2493: IF (x_qab_rec.khr_id = OKC_API.G_MISS_NUM)
2494: THEN
2495: x_qab_rec.khr_id := l_qab_rec.khr_id;
2496: END IF;
2497: IF (x_qab_rec.qte_id = OKC_API.G_MISS_NUM)
2498: THEN
2499: x_qab_rec.qte_id := l_qab_rec.qte_id;
2500: END IF;
2501: IF (x_qab_rec.kle_id = OKC_API.G_MISS_NUM)
2497: IF (x_qab_rec.qte_id = OKC_API.G_MISS_NUM)
2498: THEN
2499: x_qab_rec.qte_id := l_qab_rec.qte_id;
2500: END IF;
2501: IF (x_qab_rec.kle_id = OKC_API.G_MISS_NUM)
2502: THEN
2503: x_qab_rec.kle_id := l_qab_rec.kle_id;
2504: END IF;
2505: IF (x_qab_rec.sty_id = OKC_API.G_MISS_NUM)
2501: IF (x_qab_rec.kle_id = OKC_API.G_MISS_NUM)
2502: THEN
2503: x_qab_rec.kle_id := l_qab_rec.kle_id;
2504: END IF;
2505: IF (x_qab_rec.sty_id = OKC_API.G_MISS_NUM)
2506: THEN
2507: x_qab_rec.sty_id := l_qab_rec.sty_id;
2508: END IF;
2509: -- rmunjulu EDAT ADDED
2506: THEN
2507: x_qab_rec.sty_id := l_qab_rec.sty_id;
2508: END IF;
2509: -- rmunjulu EDAT ADDED
2510: IF (x_qab_rec.sel_date = OKC_API.G_MISS_DATE)
2511: THEN
2512: x_qab_rec.sel_date := l_qab_rec.sel_date;
2513: END IF;
2514: IF (x_qab_rec.amount = OKC_API.G_MISS_NUM)
2510: IF (x_qab_rec.sel_date = OKC_API.G_MISS_DATE)
2511: THEN
2512: x_qab_rec.sel_date := l_qab_rec.sel_date;
2513: END IF;
2514: IF (x_qab_rec.amount = OKC_API.G_MISS_NUM)
2515: THEN
2516: x_qab_rec.amount := l_qab_rec.amount;
2517: END IF;
2518: IF (x_qab_rec.org_id = OKC_API.G_MISS_NUM)
2514: IF (x_qab_rec.amount = OKC_API.G_MISS_NUM)
2515: THEN
2516: x_qab_rec.amount := l_qab_rec.amount;
2517: END IF;
2518: IF (x_qab_rec.org_id = OKC_API.G_MISS_NUM)
2519: THEN
2520: x_qab_rec.org_id := l_qab_rec.org_id;
2521: END IF;
2522: IF (x_qab_rec.request_id = OKC_API.G_MISS_NUM)
2518: IF (x_qab_rec.org_id = OKC_API.G_MISS_NUM)
2519: THEN
2520: x_qab_rec.org_id := l_qab_rec.org_id;
2521: END IF;
2522: IF (x_qab_rec.request_id = OKC_API.G_MISS_NUM)
2523: THEN
2524: x_qab_rec.request_id := l_qab_rec.request_id;
2525: END IF;
2526: IF (x_qab_rec.program_application_id = OKC_API.G_MISS_NUM)
2522: IF (x_qab_rec.request_id = OKC_API.G_MISS_NUM)
2523: THEN
2524: x_qab_rec.request_id := l_qab_rec.request_id;
2525: END IF;
2526: IF (x_qab_rec.program_application_id = OKC_API.G_MISS_NUM)
2527: THEN
2528: x_qab_rec.program_application_id := l_qab_rec.program_application_id;
2529: END IF;
2530: IF (x_qab_rec.program_id = OKC_API.G_MISS_NUM)
2526: IF (x_qab_rec.program_application_id = OKC_API.G_MISS_NUM)
2527: THEN
2528: x_qab_rec.program_application_id := l_qab_rec.program_application_id;
2529: END IF;
2530: IF (x_qab_rec.program_id = OKC_API.G_MISS_NUM)
2531: THEN
2532: x_qab_rec.program_id := l_qab_rec.program_id;
2533: END IF;
2534: IF (x_qab_rec.program_update_date = OKC_API.G_MISS_DATE)
2530: IF (x_qab_rec.program_id = OKC_API.G_MISS_NUM)
2531: THEN
2532: x_qab_rec.program_id := l_qab_rec.program_id;
2533: END IF;
2534: IF (x_qab_rec.program_update_date = OKC_API.G_MISS_DATE)
2535: THEN
2536: x_qab_rec.program_update_date := l_qab_rec.program_update_date;
2537: END IF;
2538: IF (x_qab_rec.attribute_category = OKC_API.G_MISS_CHAR)
2534: IF (x_qab_rec.program_update_date = OKC_API.G_MISS_DATE)
2535: THEN
2536: x_qab_rec.program_update_date := l_qab_rec.program_update_date;
2537: END IF;
2538: IF (x_qab_rec.attribute_category = OKC_API.G_MISS_CHAR)
2539: THEN
2540: x_qab_rec.attribute_category := l_qab_rec.attribute_category;
2541: END IF;
2542: IF (x_qab_rec.attribute1 = OKC_API.G_MISS_CHAR)
2538: IF (x_qab_rec.attribute_category = OKC_API.G_MISS_CHAR)
2539: THEN
2540: x_qab_rec.attribute_category := l_qab_rec.attribute_category;
2541: END IF;
2542: IF (x_qab_rec.attribute1 = OKC_API.G_MISS_CHAR)
2543: THEN
2544: x_qab_rec.attribute1 := l_qab_rec.attribute1;
2545: END IF;
2546: IF (x_qab_rec.attribute2 = OKC_API.G_MISS_CHAR)
2542: IF (x_qab_rec.attribute1 = OKC_API.G_MISS_CHAR)
2543: THEN
2544: x_qab_rec.attribute1 := l_qab_rec.attribute1;
2545: END IF;
2546: IF (x_qab_rec.attribute2 = OKC_API.G_MISS_CHAR)
2547: THEN
2548: x_qab_rec.attribute2 := l_qab_rec.attribute2;
2549: END IF;
2550: IF (x_qab_rec.attribute3 = OKC_API.G_MISS_CHAR)
2546: IF (x_qab_rec.attribute2 = OKC_API.G_MISS_CHAR)
2547: THEN
2548: x_qab_rec.attribute2 := l_qab_rec.attribute2;
2549: END IF;
2550: IF (x_qab_rec.attribute3 = OKC_API.G_MISS_CHAR)
2551: THEN
2552: x_qab_rec.attribute3 := l_qab_rec.attribute3;
2553: END IF;
2554: IF (x_qab_rec.attribute4 = OKC_API.G_MISS_CHAR)
2550: IF (x_qab_rec.attribute3 = OKC_API.G_MISS_CHAR)
2551: THEN
2552: x_qab_rec.attribute3 := l_qab_rec.attribute3;
2553: END IF;
2554: IF (x_qab_rec.attribute4 = OKC_API.G_MISS_CHAR)
2555: THEN
2556: x_qab_rec.attribute4 := l_qab_rec.attribute4;
2557: END IF;
2558: IF (x_qab_rec.attribute5 = OKC_API.G_MISS_CHAR)
2554: IF (x_qab_rec.attribute4 = OKC_API.G_MISS_CHAR)
2555: THEN
2556: x_qab_rec.attribute4 := l_qab_rec.attribute4;
2557: END IF;
2558: IF (x_qab_rec.attribute5 = OKC_API.G_MISS_CHAR)
2559: THEN
2560: x_qab_rec.attribute5 := l_qab_rec.attribute5;
2561: END IF;
2562: IF (x_qab_rec.attribute6 = OKC_API.G_MISS_CHAR)
2558: IF (x_qab_rec.attribute5 = OKC_API.G_MISS_CHAR)
2559: THEN
2560: x_qab_rec.attribute5 := l_qab_rec.attribute5;
2561: END IF;
2562: IF (x_qab_rec.attribute6 = OKC_API.G_MISS_CHAR)
2563: THEN
2564: x_qab_rec.attribute6 := l_qab_rec.attribute6;
2565: END IF;
2566: IF (x_qab_rec.attribute7 = OKC_API.G_MISS_CHAR)
2562: IF (x_qab_rec.attribute6 = OKC_API.G_MISS_CHAR)
2563: THEN
2564: x_qab_rec.attribute6 := l_qab_rec.attribute6;
2565: END IF;
2566: IF (x_qab_rec.attribute7 = OKC_API.G_MISS_CHAR)
2567: THEN
2568: x_qab_rec.attribute7 := l_qab_rec.attribute7;
2569: END IF;
2570: IF (x_qab_rec.attribute8 = OKC_API.G_MISS_CHAR)
2566: IF (x_qab_rec.attribute7 = OKC_API.G_MISS_CHAR)
2567: THEN
2568: x_qab_rec.attribute7 := l_qab_rec.attribute7;
2569: END IF;
2570: IF (x_qab_rec.attribute8 = OKC_API.G_MISS_CHAR)
2571: THEN
2572: x_qab_rec.attribute8 := l_qab_rec.attribute8;
2573: END IF;
2574: IF (x_qab_rec.attribute9 = OKC_API.G_MISS_CHAR)
2570: IF (x_qab_rec.attribute8 = OKC_API.G_MISS_CHAR)
2571: THEN
2572: x_qab_rec.attribute8 := l_qab_rec.attribute8;
2573: END IF;
2574: IF (x_qab_rec.attribute9 = OKC_API.G_MISS_CHAR)
2575: THEN
2576: x_qab_rec.attribute9 := l_qab_rec.attribute9;
2577: END IF;
2578: IF (x_qab_rec.attribute10 = OKC_API.G_MISS_CHAR)
2574: IF (x_qab_rec.attribute9 = OKC_API.G_MISS_CHAR)
2575: THEN
2576: x_qab_rec.attribute9 := l_qab_rec.attribute9;
2577: END IF;
2578: IF (x_qab_rec.attribute10 = OKC_API.G_MISS_CHAR)
2579: THEN
2580: x_qab_rec.attribute10 := l_qab_rec.attribute10;
2581: END IF;
2582: IF (x_qab_rec.attribute11 = OKC_API.G_MISS_CHAR)
2578: IF (x_qab_rec.attribute10 = OKC_API.G_MISS_CHAR)
2579: THEN
2580: x_qab_rec.attribute10 := l_qab_rec.attribute10;
2581: END IF;
2582: IF (x_qab_rec.attribute11 = OKC_API.G_MISS_CHAR)
2583: THEN
2584: x_qab_rec.attribute11 := l_qab_rec.attribute11;
2585: END IF;
2586: IF (x_qab_rec.attribute12 = OKC_API.G_MISS_CHAR)
2582: IF (x_qab_rec.attribute11 = OKC_API.G_MISS_CHAR)
2583: THEN
2584: x_qab_rec.attribute11 := l_qab_rec.attribute11;
2585: END IF;
2586: IF (x_qab_rec.attribute12 = OKC_API.G_MISS_CHAR)
2587: THEN
2588: x_qab_rec.attribute12 := l_qab_rec.attribute12;
2589: END IF;
2590: IF (x_qab_rec.attribute13 = OKC_API.G_MISS_CHAR)
2586: IF (x_qab_rec.attribute12 = OKC_API.G_MISS_CHAR)
2587: THEN
2588: x_qab_rec.attribute12 := l_qab_rec.attribute12;
2589: END IF;
2590: IF (x_qab_rec.attribute13 = OKC_API.G_MISS_CHAR)
2591: THEN
2592: x_qab_rec.attribute13 := l_qab_rec.attribute13;
2593: END IF;
2594: IF (x_qab_rec.attribute14 = OKC_API.G_MISS_CHAR)
2590: IF (x_qab_rec.attribute13 = OKC_API.G_MISS_CHAR)
2591: THEN
2592: x_qab_rec.attribute13 := l_qab_rec.attribute13;
2593: END IF;
2594: IF (x_qab_rec.attribute14 = OKC_API.G_MISS_CHAR)
2595: THEN
2596: x_qab_rec.attribute14 := l_qab_rec.attribute14;
2597: END IF;
2598: IF (x_qab_rec.attribute15 = OKC_API.G_MISS_CHAR)
2594: IF (x_qab_rec.attribute14 = OKC_API.G_MISS_CHAR)
2595: THEN
2596: x_qab_rec.attribute14 := l_qab_rec.attribute14;
2597: END IF;
2598: IF (x_qab_rec.attribute15 = OKC_API.G_MISS_CHAR)
2599: THEN
2600: x_qab_rec.attribute15 := l_qab_rec.attribute15;
2601: END IF;
2602: IF (x_qab_rec.created_by = OKC_API.G_MISS_NUM)
2598: IF (x_qab_rec.attribute15 = OKC_API.G_MISS_CHAR)
2599: THEN
2600: x_qab_rec.attribute15 := l_qab_rec.attribute15;
2601: END IF;
2602: IF (x_qab_rec.created_by = OKC_API.G_MISS_NUM)
2603: THEN
2604: x_qab_rec.created_by := l_qab_rec.created_by;
2605: END IF;
2606: IF (x_qab_rec.creation_date = OKC_API.G_MISS_DATE)
2602: IF (x_qab_rec.created_by = OKC_API.G_MISS_NUM)
2603: THEN
2604: x_qab_rec.created_by := l_qab_rec.created_by;
2605: END IF;
2606: IF (x_qab_rec.creation_date = OKC_API.G_MISS_DATE)
2607: THEN
2608: x_qab_rec.creation_date := l_qab_rec.creation_date;
2609: END IF;
2610: IF (x_qab_rec.last_updated_by = OKC_API.G_MISS_NUM)
2606: IF (x_qab_rec.creation_date = OKC_API.G_MISS_DATE)
2607: THEN
2608: x_qab_rec.creation_date := l_qab_rec.creation_date;
2609: END IF;
2610: IF (x_qab_rec.last_updated_by = OKC_API.G_MISS_NUM)
2611: THEN
2612: x_qab_rec.last_updated_by := l_qab_rec.last_updated_by;
2613: END IF;
2614: IF (x_qab_rec.last_update_date = OKC_API.G_MISS_DATE)
2610: IF (x_qab_rec.last_updated_by = OKC_API.G_MISS_NUM)
2611: THEN
2612: x_qab_rec.last_updated_by := l_qab_rec.last_updated_by;
2613: END IF;
2614: IF (x_qab_rec.last_update_date = OKC_API.G_MISS_DATE)
2615: THEN
2616: x_qab_rec.last_update_date := l_qab_rec.last_update_date;
2617: END IF;
2618: IF (x_qab_rec.last_update_login = OKC_API.G_MISS_NUM)
2614: IF (x_qab_rec.last_update_date = OKC_API.G_MISS_DATE)
2615: THEN
2616: x_qab_rec.last_update_date := l_qab_rec.last_update_date;
2617: END IF;
2618: IF (x_qab_rec.last_update_login = OKC_API.G_MISS_NUM)
2619: THEN
2620: x_qab_rec.last_update_login := l_qab_rec.last_update_login;
2621: END IF;
2622: IF (x_qab_rec.currency_code = OKC_API.G_MISS_CHAR)
2618: IF (x_qab_rec.last_update_login = OKC_API.G_MISS_NUM)
2619: THEN
2620: x_qab_rec.last_update_login := l_qab_rec.last_update_login;
2621: END IF;
2622: IF (x_qab_rec.currency_code = OKC_API.G_MISS_CHAR)
2623: THEN
2624: x_qab_rec.currency_code := l_qab_rec.currency_code;
2625: END IF;
2626: IF (x_qab_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
2622: IF (x_qab_rec.currency_code = OKC_API.G_MISS_CHAR)
2623: THEN
2624: x_qab_rec.currency_code := l_qab_rec.currency_code;
2625: END IF;
2626: IF (x_qab_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
2627: THEN
2628: x_qab_rec.currency_conversion_code := l_qab_rec.currency_conversion_code;
2629: END IF;
2630: IF (x_qab_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2626: IF (x_qab_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
2627: THEN
2628: x_qab_rec.currency_conversion_code := l_qab_rec.currency_conversion_code;
2629: END IF;
2630: IF (x_qab_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2631: THEN
2632: x_qab_rec.currency_conversion_type := l_qab_rec.currency_conversion_type;
2633: END IF;
2634: IF (x_qab_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2630: IF (x_qab_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2631: THEN
2632: x_qab_rec.currency_conversion_type := l_qab_rec.currency_conversion_type;
2633: END IF;
2634: IF (x_qab_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2635: THEN
2636: x_qab_rec.currency_conversion_rate := l_qab_rec.currency_conversion_rate;
2637: END IF;
2638: IF (x_qab_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
2634: IF (x_qab_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2635: THEN
2636: x_qab_rec.currency_conversion_rate := l_qab_rec.currency_conversion_rate;
2637: END IF;
2638: IF (x_qab_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
2639: THEN
2640: x_qab_rec.currency_conversion_date := l_qab_rec.currency_conversion_date;
2641: END IF;
2642: END IF;
2648: FUNCTION Set_Attributes (
2649: p_qab_rec IN qab_rec_type,
2650: x_qab_rec OUT NOCOPY qab_rec_type
2651: ) RETURN VARCHAR2 IS
2652: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2653: BEGIN
2654: x_qab_rec := p_qab_rec;
2655: x_qab_rec.OBJECT_VERSION_NUMBER := p_qab_rec.OBJECT_VERSION_NUMBER + 1;
2656: RETURN(l_return_status);
2655: x_qab_rec.OBJECT_VERSION_NUMBER := p_qab_rec.OBJECT_VERSION_NUMBER + 1;
2656: RETURN(l_return_status);
2657: END Set_Attributes;
2658: BEGIN
2659: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2660: p_init_msg_list,
2661: '_PVT',
2662: x_return_status);
2663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2659: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2660: p_init_msg_list,
2661: '_PVT',
2662: x_return_status);
2663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2666: RAISE OKC_API.G_EXCEPTION_ERROR;
2667: END IF;
2660: p_init_msg_list,
2661: '_PVT',
2662: x_return_status);
2663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2666: RAISE OKC_API.G_EXCEPTION_ERROR;
2667: END IF;
2668: --- Setting item attributes
2661: '_PVT',
2662: x_return_status);
2663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2666: RAISE OKC_API.G_EXCEPTION_ERROR;
2667: END IF;
2668: --- Setting item attributes
2669: l_return_status := Set_Attributes(
2662: x_return_status);
2663: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2664: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2665: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2666: RAISE OKC_API.G_EXCEPTION_ERROR;
2667: END IF;
2668: --- Setting item attributes
2669: l_return_status := Set_Attributes(
2670: p_qab_rec, -- IN
2669: l_return_status := Set_Attributes(
2670: p_qab_rec, -- IN
2671: l_qab_rec); -- OUT
2672: --- If any errors happen abort API
2673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2670: p_qab_rec, -- IN
2671: l_qab_rec); -- OUT
2672: --- If any errors happen abort API
2673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: l_return_status := populate_new_record(l_qab_rec, l_def_qab_rec);
2671: l_qab_rec); -- OUT
2672: --- If any errors happen abort API
2673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: l_return_status := populate_new_record(l_qab_rec, l_def_qab_rec);
2679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2672: --- If any errors happen abort API
2673: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2674: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: l_return_status := populate_new_record(l_qab_rec, l_def_qab_rec);
2679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2675: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: l_return_status := populate_new_record(l_qab_rec, l_def_qab_rec);
2679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2681: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2682: RAISE OKC_API.G_EXCEPTION_ERROR;
2683: END IF;
2676: RAISE OKC_API.G_EXCEPTION_ERROR;
2677: END IF;
2678: l_return_status := populate_new_record(l_qab_rec, l_def_qab_rec);
2679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2681: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2682: RAISE OKC_API.G_EXCEPTION_ERROR;
2683: END IF;
2684: UPDATE OKL_TXD_QTE_ANTCPT_BILL
2677: END IF;
2678: l_return_status := populate_new_record(l_qab_rec, l_def_qab_rec);
2679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2681: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2682: RAISE OKC_API.G_EXCEPTION_ERROR;
2683: END IF;
2684: UPDATE OKL_TXD_QTE_ANTCPT_BILL
2685: SET OBJECT_VERSION_NUMBER = l_def_qab_rec.object_version_number,
2678: l_return_status := populate_new_record(l_qab_rec, l_def_qab_rec);
2679: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2680: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2681: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2682: RAISE OKC_API.G_EXCEPTION_ERROR;
2683: END IF;
2684: UPDATE OKL_TXD_QTE_ANTCPT_BILL
2685: SET OBJECT_VERSION_NUMBER = l_def_qab_rec.object_version_number,
2686: KHR_ID = l_def_qab_rec.khr_id,
2723: WHERE ID = l_def_qab_rec.id;
2724:
2725: x_qab_rec := l_qab_rec;
2726: x_return_status := l_return_status;
2727: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2728: EXCEPTION
2729: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2730: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2731: (
2725: x_qab_rec := l_qab_rec;
2726: x_return_status := l_return_status;
2727: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2728: EXCEPTION
2729: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2730: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2731: (
2732: l_api_name,
2733: G_PKG_NAME,
2726: x_return_status := l_return_status;
2727: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2728: EXCEPTION
2729: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2730: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2731: (
2732: l_api_name,
2733: G_PKG_NAME,
2734: 'OKC_API.G_RET_STS_ERROR',
2730: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2731: (
2732: l_api_name,
2733: G_PKG_NAME,
2734: 'OKC_API.G_RET_STS_ERROR',
2735: x_msg_count,
2736: x_msg_data,
2737: '_PVT'
2738: );
2735: x_msg_count,
2736: x_msg_data,
2737: '_PVT'
2738: );
2739: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2736: x_msg_data,
2737: '_PVT'
2738: );
2739: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2744: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2740: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2741: (
2742: l_api_name,
2743: G_PKG_NAME,
2744: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2745: x_msg_count,
2746: x_msg_data,
2747: '_PVT'
2748: );
2746: x_msg_data,
2747: '_PVT'
2748: );
2749: WHEN OTHERS THEN
2750: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2751: (
2752: l_api_name,
2753: G_PKG_NAME,
2754: 'OTHERS',
2770: x_qabv_rec OUT NOCOPY qabv_rec_type) IS
2771:
2772: l_api_version CONSTANT NUMBER := 1;
2773: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2774: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2775: l_qabv_rec qabv_rec_type := p_qabv_rec;
2776: l_def_qabv_rec qabv_rec_type;
2777: l_db_qabv_rec qabv_rec_type;
2778: l_qab_rec qab_rec_type;
2797: p_qabv_rec IN qabv_rec_type,
2798: x_qabv_rec OUT NOCOPY qabv_rec_type
2799: ) RETURN VARCHAR2 IS
2800: l_row_notfound BOOLEAN := TRUE;
2801: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2802: BEGIN
2803: x_qabv_rec := p_qabv_rec;
2804: -- Get current database values
2805: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2804: -- Get current database values
2805: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2806: -- so it may be verified through LOCK_ROW.
2807: l_db_qabv_rec := get_rec(p_qabv_rec, l_return_status);
2808: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2809: IF (x_qabv_rec.id = OKC_API.G_MISS_NUM)
2810: THEN
2811: x_qabv_rec.id := l_db_qabv_rec.id;
2812: END IF;
2805: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2806: -- so it may be verified through LOCK_ROW.
2807: l_db_qabv_rec := get_rec(p_qabv_rec, l_return_status);
2808: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
2809: IF (x_qabv_rec.id = OKC_API.G_MISS_NUM)
2810: THEN
2811: x_qabv_rec.id := l_db_qabv_rec.id;
2812: END IF;
2813: IF (x_qabv_rec.khr_id = OKC_API.G_MISS_NUM)
2809: IF (x_qabv_rec.id = OKC_API.G_MISS_NUM)
2810: THEN
2811: x_qabv_rec.id := l_db_qabv_rec.id;
2812: END IF;
2813: IF (x_qabv_rec.khr_id = OKC_API.G_MISS_NUM)
2814: THEN
2815: x_qabv_rec.khr_id := l_db_qabv_rec.khr_id;
2816: END IF;
2817: IF (x_qabv_rec.qte_id = OKC_API.G_MISS_NUM)
2813: IF (x_qabv_rec.khr_id = OKC_API.G_MISS_NUM)
2814: THEN
2815: x_qabv_rec.khr_id := l_db_qabv_rec.khr_id;
2816: END IF;
2817: IF (x_qabv_rec.qte_id = OKC_API.G_MISS_NUM)
2818: THEN
2819: x_qabv_rec.qte_id := l_db_qabv_rec.qte_id;
2820: END IF;
2821: IF (x_qabv_rec.kle_id = OKC_API.G_MISS_NUM)
2817: IF (x_qabv_rec.qte_id = OKC_API.G_MISS_NUM)
2818: THEN
2819: x_qabv_rec.qte_id := l_db_qabv_rec.qte_id;
2820: END IF;
2821: IF (x_qabv_rec.kle_id = OKC_API.G_MISS_NUM)
2822: THEN
2823: x_qabv_rec.kle_id := l_db_qabv_rec.kle_id;
2824: END IF;
2825: IF (x_qabv_rec.sty_id = OKC_API.G_MISS_NUM)
2821: IF (x_qabv_rec.kle_id = OKC_API.G_MISS_NUM)
2822: THEN
2823: x_qabv_rec.kle_id := l_db_qabv_rec.kle_id;
2824: END IF;
2825: IF (x_qabv_rec.sty_id = OKC_API.G_MISS_NUM)
2826: THEN
2827: x_qabv_rec.sty_id := l_db_qabv_rec.sty_id;
2828: END IF;
2829: -- rmunjulu EDAT ADDED
2826: THEN
2827: x_qabv_rec.sty_id := l_db_qabv_rec.sty_id;
2828: END IF;
2829: -- rmunjulu EDAT ADDED
2830: IF (x_qabv_rec.sel_date = OKC_API.G_MISS_DATE)
2831: THEN
2832: x_qabv_rec.sel_date := l_db_qabv_rec.sel_date;
2833: END IF;
2834: IF (x_qabv_rec.amount = OKC_API.G_MISS_NUM)
2830: IF (x_qabv_rec.sel_date = OKC_API.G_MISS_DATE)
2831: THEN
2832: x_qabv_rec.sel_date := l_db_qabv_rec.sel_date;
2833: END IF;
2834: IF (x_qabv_rec.amount = OKC_API.G_MISS_NUM)
2835: THEN
2836: x_qabv_rec.amount := l_db_qabv_rec.amount;
2837: END IF;
2838: IF (x_qabv_rec.org_id = OKC_API.G_MISS_NUM)
2834: IF (x_qabv_rec.amount = OKC_API.G_MISS_NUM)
2835: THEN
2836: x_qabv_rec.amount := l_db_qabv_rec.amount;
2837: END IF;
2838: IF (x_qabv_rec.org_id = OKC_API.G_MISS_NUM)
2839: THEN
2840: x_qabv_rec.org_id := l_db_qabv_rec.org_id;
2841: END IF;
2842: IF (x_qabv_rec.request_id = OKC_API.G_MISS_NUM)
2838: IF (x_qabv_rec.org_id = OKC_API.G_MISS_NUM)
2839: THEN
2840: x_qabv_rec.org_id := l_db_qabv_rec.org_id;
2841: END IF;
2842: IF (x_qabv_rec.request_id = OKC_API.G_MISS_NUM)
2843: THEN
2844: x_qabv_rec.request_id := l_db_qabv_rec.request_id;
2845: END IF;
2846: IF (x_qabv_rec.program_application_id = OKC_API.G_MISS_NUM)
2842: IF (x_qabv_rec.request_id = OKC_API.G_MISS_NUM)
2843: THEN
2844: x_qabv_rec.request_id := l_db_qabv_rec.request_id;
2845: END IF;
2846: IF (x_qabv_rec.program_application_id = OKC_API.G_MISS_NUM)
2847: THEN
2848: x_qabv_rec.program_application_id := l_db_qabv_rec.program_application_id;
2849: END IF;
2850: IF (x_qabv_rec.program_id = OKC_API.G_MISS_NUM)
2846: IF (x_qabv_rec.program_application_id = OKC_API.G_MISS_NUM)
2847: THEN
2848: x_qabv_rec.program_application_id := l_db_qabv_rec.program_application_id;
2849: END IF;
2850: IF (x_qabv_rec.program_id = OKC_API.G_MISS_NUM)
2851: THEN
2852: x_qabv_rec.program_id := l_db_qabv_rec.program_id;
2853: END IF;
2854: IF (x_qabv_rec.program_update_date = OKC_API.G_MISS_DATE)
2850: IF (x_qabv_rec.program_id = OKC_API.G_MISS_NUM)
2851: THEN
2852: x_qabv_rec.program_id := l_db_qabv_rec.program_id;
2853: END IF;
2854: IF (x_qabv_rec.program_update_date = OKC_API.G_MISS_DATE)
2855: THEN
2856: x_qabv_rec.program_update_date := l_db_qabv_rec.program_update_date;
2857: END IF;
2858: IF (x_qabv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2854: IF (x_qabv_rec.program_update_date = OKC_API.G_MISS_DATE)
2855: THEN
2856: x_qabv_rec.program_update_date := l_db_qabv_rec.program_update_date;
2857: END IF;
2858: IF (x_qabv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2859: THEN
2860: x_qabv_rec.attribute_category := l_db_qabv_rec.attribute_category;
2861: END IF;
2862: IF (x_qabv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2858: IF (x_qabv_rec.attribute_category = OKC_API.G_MISS_CHAR)
2859: THEN
2860: x_qabv_rec.attribute_category := l_db_qabv_rec.attribute_category;
2861: END IF;
2862: IF (x_qabv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2863: THEN
2864: x_qabv_rec.attribute1 := l_db_qabv_rec.attribute1;
2865: END IF;
2866: IF (x_qabv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2862: IF (x_qabv_rec.attribute1 = OKC_API.G_MISS_CHAR)
2863: THEN
2864: x_qabv_rec.attribute1 := l_db_qabv_rec.attribute1;
2865: END IF;
2866: IF (x_qabv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2867: THEN
2868: x_qabv_rec.attribute2 := l_db_qabv_rec.attribute2;
2869: END IF;
2870: IF (x_qabv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2866: IF (x_qabv_rec.attribute2 = OKC_API.G_MISS_CHAR)
2867: THEN
2868: x_qabv_rec.attribute2 := l_db_qabv_rec.attribute2;
2869: END IF;
2870: IF (x_qabv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2871: THEN
2872: x_qabv_rec.attribute3 := l_db_qabv_rec.attribute3;
2873: END IF;
2874: IF (x_qabv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2870: IF (x_qabv_rec.attribute3 = OKC_API.G_MISS_CHAR)
2871: THEN
2872: x_qabv_rec.attribute3 := l_db_qabv_rec.attribute3;
2873: END IF;
2874: IF (x_qabv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2875: THEN
2876: x_qabv_rec.attribute4 := l_db_qabv_rec.attribute4;
2877: END IF;
2878: IF (x_qabv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2874: IF (x_qabv_rec.attribute4 = OKC_API.G_MISS_CHAR)
2875: THEN
2876: x_qabv_rec.attribute4 := l_db_qabv_rec.attribute4;
2877: END IF;
2878: IF (x_qabv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2879: THEN
2880: x_qabv_rec.attribute5 := l_db_qabv_rec.attribute5;
2881: END IF;
2882: IF (x_qabv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2878: IF (x_qabv_rec.attribute5 = OKC_API.G_MISS_CHAR)
2879: THEN
2880: x_qabv_rec.attribute5 := l_db_qabv_rec.attribute5;
2881: END IF;
2882: IF (x_qabv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2883: THEN
2884: x_qabv_rec.attribute6 := l_db_qabv_rec.attribute6;
2885: END IF;
2886: IF (x_qabv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2882: IF (x_qabv_rec.attribute6 = OKC_API.G_MISS_CHAR)
2883: THEN
2884: x_qabv_rec.attribute6 := l_db_qabv_rec.attribute6;
2885: END IF;
2886: IF (x_qabv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2887: THEN
2888: x_qabv_rec.attribute7 := l_db_qabv_rec.attribute7;
2889: END IF;
2890: IF (x_qabv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2886: IF (x_qabv_rec.attribute7 = OKC_API.G_MISS_CHAR)
2887: THEN
2888: x_qabv_rec.attribute7 := l_db_qabv_rec.attribute7;
2889: END IF;
2890: IF (x_qabv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2891: THEN
2892: x_qabv_rec.attribute8 := l_db_qabv_rec.attribute8;
2893: END IF;
2894: IF (x_qabv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2890: IF (x_qabv_rec.attribute8 = OKC_API.G_MISS_CHAR)
2891: THEN
2892: x_qabv_rec.attribute8 := l_db_qabv_rec.attribute8;
2893: END IF;
2894: IF (x_qabv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2895: THEN
2896: x_qabv_rec.attribute9 := l_db_qabv_rec.attribute9;
2897: END IF;
2898: IF (x_qabv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2894: IF (x_qabv_rec.attribute9 = OKC_API.G_MISS_CHAR)
2895: THEN
2896: x_qabv_rec.attribute9 := l_db_qabv_rec.attribute9;
2897: END IF;
2898: IF (x_qabv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2899: THEN
2900: x_qabv_rec.attribute10 := l_db_qabv_rec.attribute10;
2901: END IF;
2902: IF (x_qabv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2898: IF (x_qabv_rec.attribute10 = OKC_API.G_MISS_CHAR)
2899: THEN
2900: x_qabv_rec.attribute10 := l_db_qabv_rec.attribute10;
2901: END IF;
2902: IF (x_qabv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2903: THEN
2904: x_qabv_rec.attribute11 := l_db_qabv_rec.attribute11;
2905: END IF;
2906: IF (x_qabv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2902: IF (x_qabv_rec.attribute11 = OKC_API.G_MISS_CHAR)
2903: THEN
2904: x_qabv_rec.attribute11 := l_db_qabv_rec.attribute11;
2905: END IF;
2906: IF (x_qabv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2907: THEN
2908: x_qabv_rec.attribute12 := l_db_qabv_rec.attribute12;
2909: END IF;
2910: IF (x_qabv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2906: IF (x_qabv_rec.attribute12 = OKC_API.G_MISS_CHAR)
2907: THEN
2908: x_qabv_rec.attribute12 := l_db_qabv_rec.attribute12;
2909: END IF;
2910: IF (x_qabv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2911: THEN
2912: x_qabv_rec.attribute13 := l_db_qabv_rec.attribute13;
2913: END IF;
2914: IF (x_qabv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2910: IF (x_qabv_rec.attribute13 = OKC_API.G_MISS_CHAR)
2911: THEN
2912: x_qabv_rec.attribute13 := l_db_qabv_rec.attribute13;
2913: END IF;
2914: IF (x_qabv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2915: THEN
2916: x_qabv_rec.attribute14 := l_db_qabv_rec.attribute14;
2917: END IF;
2918: IF (x_qabv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2914: IF (x_qabv_rec.attribute14 = OKC_API.G_MISS_CHAR)
2915: THEN
2916: x_qabv_rec.attribute14 := l_db_qabv_rec.attribute14;
2917: END IF;
2918: IF (x_qabv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2919: THEN
2920: x_qabv_rec.attribute15 := l_db_qabv_rec.attribute15;
2921: END IF;
2922: IF (x_qabv_rec.created_by = OKC_API.G_MISS_NUM)
2918: IF (x_qabv_rec.attribute15 = OKC_API.G_MISS_CHAR)
2919: THEN
2920: x_qabv_rec.attribute15 := l_db_qabv_rec.attribute15;
2921: END IF;
2922: IF (x_qabv_rec.created_by = OKC_API.G_MISS_NUM)
2923: THEN
2924: x_qabv_rec.created_by := l_db_qabv_rec.created_by;
2925: END IF;
2926: IF (x_qabv_rec.creation_date = OKC_API.G_MISS_DATE)
2922: IF (x_qabv_rec.created_by = OKC_API.G_MISS_NUM)
2923: THEN
2924: x_qabv_rec.created_by := l_db_qabv_rec.created_by;
2925: END IF;
2926: IF (x_qabv_rec.creation_date = OKC_API.G_MISS_DATE)
2927: THEN
2928: x_qabv_rec.creation_date := l_db_qabv_rec.creation_date;
2929: END IF;
2930: IF (x_qabv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2926: IF (x_qabv_rec.creation_date = OKC_API.G_MISS_DATE)
2927: THEN
2928: x_qabv_rec.creation_date := l_db_qabv_rec.creation_date;
2929: END IF;
2930: IF (x_qabv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2931: THEN
2932: x_qabv_rec.last_updated_by := l_db_qabv_rec.last_updated_by;
2933: END IF;
2934: IF (x_qabv_rec.last_update_date = OKC_API.G_MISS_DATE)
2930: IF (x_qabv_rec.last_updated_by = OKC_API.G_MISS_NUM)
2931: THEN
2932: x_qabv_rec.last_updated_by := l_db_qabv_rec.last_updated_by;
2933: END IF;
2934: IF (x_qabv_rec.last_update_date = OKC_API.G_MISS_DATE)
2935: THEN
2936: x_qabv_rec.last_update_date := l_db_qabv_rec.last_update_date;
2937: END IF;
2938: IF (x_qabv_rec.last_update_login = OKC_API.G_MISS_NUM)
2934: IF (x_qabv_rec.last_update_date = OKC_API.G_MISS_DATE)
2935: THEN
2936: x_qabv_rec.last_update_date := l_db_qabv_rec.last_update_date;
2937: END IF;
2938: IF (x_qabv_rec.last_update_login = OKC_API.G_MISS_NUM)
2939: THEN
2940: x_qabv_rec.last_update_login := l_db_qabv_rec.last_update_login;
2941: END IF;
2942: IF (x_qabv_rec.currency_code = OKC_API.G_MISS_CHAR)
2938: IF (x_qabv_rec.last_update_login = OKC_API.G_MISS_NUM)
2939: THEN
2940: x_qabv_rec.last_update_login := l_db_qabv_rec.last_update_login;
2941: END IF;
2942: IF (x_qabv_rec.currency_code = OKC_API.G_MISS_CHAR)
2943: THEN
2944: x_qabv_rec.currency_code := l_db_qabv_rec.currency_code;
2945: END IF;
2946: IF (x_qabv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
2942: IF (x_qabv_rec.currency_code = OKC_API.G_MISS_CHAR)
2943: THEN
2944: x_qabv_rec.currency_code := l_db_qabv_rec.currency_code;
2945: END IF;
2946: IF (x_qabv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
2947: THEN
2948: x_qabv_rec.currency_conversion_code := l_db_qabv_rec.currency_conversion_code;
2949: END IF;
2950: IF (x_qabv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2946: IF (x_qabv_rec.currency_conversion_code = OKC_API.G_MISS_CHAR)
2947: THEN
2948: x_qabv_rec.currency_conversion_code := l_db_qabv_rec.currency_conversion_code;
2949: END IF;
2950: IF (x_qabv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2951: THEN
2952: x_qabv_rec.currency_conversion_type := l_db_qabv_rec.currency_conversion_type;
2953: END IF;
2954: IF (x_qabv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2950: IF (x_qabv_rec.currency_conversion_type = OKC_API.G_MISS_CHAR)
2951: THEN
2952: x_qabv_rec.currency_conversion_type := l_db_qabv_rec.currency_conversion_type;
2953: END IF;
2954: IF (x_qabv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2955: THEN
2956: x_qabv_rec.currency_conversion_rate := l_db_qabv_rec.currency_conversion_rate;
2957: END IF;
2958: IF (x_qabv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
2954: IF (x_qabv_rec.currency_conversion_rate = OKC_API.G_MISS_NUM)
2955: THEN
2956: x_qabv_rec.currency_conversion_rate := l_db_qabv_rec.currency_conversion_rate;
2957: END IF;
2958: IF (x_qabv_rec.currency_conversion_date = OKC_API.G_MISS_DATE)
2959: THEN
2960: x_qabv_rec.currency_conversion_date := l_db_qabv_rec.currency_conversion_date;
2961: END IF;
2962: END IF;
2968: FUNCTION Set_Attributes (
2969: p_qabv_rec IN qabv_rec_type,
2970: x_qabv_rec OUT NOCOPY qabv_rec_type
2971: ) RETURN VARCHAR2 IS
2972: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2973: BEGIN
2974: x_qabv_rec := p_qabv_rec;
2975: RETURN(l_return_status);
2976: END Set_Attributes;
2974: x_qabv_rec := p_qabv_rec;
2975: RETURN(l_return_status);
2976: END Set_Attributes;
2977: BEGIN
2978: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2979: G_PKG_NAME,
2980: p_init_msg_list,
2981: l_api_version,
2982: p_api_version,
2981: l_api_version,
2982: p_api_version,
2983: '_PVT',
2984: x_return_status);
2985: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2986: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2987: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2988: RAISE OKC_API.G_EXCEPTION_ERROR;
2989: END IF;
2982: p_api_version,
2983: '_PVT',
2984: x_return_status);
2985: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2986: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2987: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2988: RAISE OKC_API.G_EXCEPTION_ERROR;
2989: END IF;
2990: --- Setting item attributes
2983: '_PVT',
2984: x_return_status);
2985: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2986: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2987: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2988: RAISE OKC_API.G_EXCEPTION_ERROR;
2989: END IF;
2990: --- Setting item attributes
2991: l_return_status := Set_Attributes(
2984: x_return_status);
2985: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2986: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2987: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2988: RAISE OKC_API.G_EXCEPTION_ERROR;
2989: END IF;
2990: --- Setting item attributes
2991: l_return_status := Set_Attributes(
2992: p_qabv_rec, -- IN
2991: l_return_status := Set_Attributes(
2992: p_qabv_rec, -- IN
2993: x_qabv_rec); -- OUT
2994: --- If any errors happen abort API
2995: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2996: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2998: RAISE OKC_API.G_EXCEPTION_ERROR;
2999: END IF;
2992: p_qabv_rec, -- IN
2993: x_qabv_rec); -- OUT
2994: --- If any errors happen abort API
2995: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2996: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2998: RAISE OKC_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: l_return_status := populate_new_record(l_qabv_rec, l_def_qabv_rec);
2993: x_qabv_rec); -- OUT
2994: --- If any errors happen abort API
2995: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2996: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2998: RAISE OKC_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: l_return_status := populate_new_record(l_qabv_rec, l_def_qabv_rec);
3001: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2994: --- If any errors happen abort API
2995: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2996: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2998: RAISE OKC_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: l_return_status := populate_new_record(l_qabv_rec, l_def_qabv_rec);
3001: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3002: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2997: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2998: RAISE OKC_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: l_return_status := populate_new_record(l_qabv_rec, l_def_qabv_rec);
3001: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3002: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3003: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3004: RAISE OKC_API.G_EXCEPTION_ERROR;
3005: END IF;
2998: RAISE OKC_API.G_EXCEPTION_ERROR;
2999: END IF;
3000: l_return_status := populate_new_record(l_qabv_rec, l_def_qabv_rec);
3001: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3002: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3003: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3004: RAISE OKC_API.G_EXCEPTION_ERROR;
3005: END IF;
3006: l_def_qabv_rec := fill_who_columns(l_def_qabv_rec);
2999: END IF;
3000: l_return_status := populate_new_record(l_qabv_rec, l_def_qabv_rec);
3001: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3002: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3003: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3004: RAISE OKC_API.G_EXCEPTION_ERROR;
3005: END IF;
3006: l_def_qabv_rec := fill_who_columns(l_def_qabv_rec);
3007: --- Validate all non-missing attributes (Item Level Validation)
3000: l_return_status := populate_new_record(l_qabv_rec, l_def_qabv_rec);
3001: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3002: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3003: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3004: RAISE OKC_API.G_EXCEPTION_ERROR;
3005: END IF;
3006: l_def_qabv_rec := fill_who_columns(l_def_qabv_rec);
3007: --- Validate all non-missing attributes (Item Level Validation)
3008: l_return_status := Validate_Attributes(l_def_qabv_rec);
3006: l_def_qabv_rec := fill_who_columns(l_def_qabv_rec);
3007: --- Validate all non-missing attributes (Item Level Validation)
3008: l_return_status := Validate_Attributes(l_def_qabv_rec);
3009: --- If any errors happen abort API
3010: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3013: RAISE OKC_API.G_EXCEPTION_ERROR;
3014: END IF;
3007: --- Validate all non-missing attributes (Item Level Validation)
3008: l_return_status := Validate_Attributes(l_def_qabv_rec);
3009: --- If any errors happen abort API
3010: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3013: RAISE OKC_API.G_EXCEPTION_ERROR;
3014: END IF;
3015: l_return_status := Validate_Record(l_def_qabv_rec, l_db_qabv_rec);
3008: l_return_status := Validate_Attributes(l_def_qabv_rec);
3009: --- If any errors happen abort API
3010: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3013: RAISE OKC_API.G_EXCEPTION_ERROR;
3014: END IF;
3015: l_return_status := Validate_Record(l_def_qabv_rec, l_db_qabv_rec);
3016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3009: --- If any errors happen abort API
3010: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3011: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3013: RAISE OKC_API.G_EXCEPTION_ERROR;
3014: END IF;
3015: l_return_status := Validate_Record(l_def_qabv_rec, l_db_qabv_rec);
3016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3012: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3013: RAISE OKC_API.G_EXCEPTION_ERROR;
3014: END IF;
3015: l_return_status := Validate_Record(l_def_qabv_rec, l_db_qabv_rec);
3016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3018: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3019: RAISE OKC_API.G_EXCEPTION_ERROR;
3020: END IF;
3013: RAISE OKC_API.G_EXCEPTION_ERROR;
3014: END IF;
3015: l_return_status := Validate_Record(l_def_qabv_rec, l_db_qabv_rec);
3016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3018: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3019: RAISE OKC_API.G_EXCEPTION_ERROR;
3020: END IF;
3021:
3014: END IF;
3015: l_return_status := Validate_Record(l_def_qabv_rec, l_db_qabv_rec);
3016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3018: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3019: RAISE OKC_API.G_EXCEPTION_ERROR;
3020: END IF;
3021:
3022: -- Lock the Record
3015: l_return_status := Validate_Record(l_def_qabv_rec, l_db_qabv_rec);
3016: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3017: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3018: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3019: RAISE OKC_API.G_EXCEPTION_ERROR;
3020: END IF;
3021:
3022: -- Lock the Record
3023: lock_row(
3026: x_return_status => l_return_status,
3027: x_msg_count => x_msg_count,
3028: x_msg_data => x_msg_data,
3029: p_qabv_rec => p_qabv_rec);
3030: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3033: RAISE OKC_API.G_EXCEPTION_ERROR;
3034: END IF;
3027: x_msg_count => x_msg_count,
3028: x_msg_data => x_msg_data,
3029: p_qabv_rec => p_qabv_rec);
3030: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3033: RAISE OKC_API.G_EXCEPTION_ERROR;
3034: END IF;
3035:
3028: x_msg_data => x_msg_data,
3029: p_qabv_rec => p_qabv_rec);
3030: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3033: RAISE OKC_API.G_EXCEPTION_ERROR;
3034: END IF;
3035:
3036: -----------------------------------------
3029: p_qabv_rec => p_qabv_rec);
3030: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3032: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3033: RAISE OKC_API.G_EXCEPTION_ERROR;
3034: END IF;
3035:
3036: -----------------------------------------
3037: -- Move VIEW record to "Child" records --
3047: x_msg_data,
3048: l_qab_rec,
3049: lx_qab_rec
3050: );
3051: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3052: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3053: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3054: RAISE OKC_API.G_EXCEPTION_ERROR;
3055: END IF;
3048: l_qab_rec,
3049: lx_qab_rec
3050: );
3051: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3052: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3053: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3054: RAISE OKC_API.G_EXCEPTION_ERROR;
3055: END IF;
3056: migrate(lx_qab_rec, l_def_qabv_rec);
3049: lx_qab_rec
3050: );
3051: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3052: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3053: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3054: RAISE OKC_API.G_EXCEPTION_ERROR;
3055: END IF;
3056: migrate(lx_qab_rec, l_def_qabv_rec);
3057: x_qabv_rec := l_def_qabv_rec;
3050: );
3051: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3052: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3053: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3054: RAISE OKC_API.G_EXCEPTION_ERROR;
3055: END IF;
3056: migrate(lx_qab_rec, l_def_qabv_rec);
3057: x_qabv_rec := l_def_qabv_rec;
3058: x_return_status := l_return_status;
3055: END IF;
3056: migrate(lx_qab_rec, l_def_qabv_rec);
3057: x_qabv_rec := l_def_qabv_rec;
3058: x_return_status := l_return_status;
3059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3060: EXCEPTION
3061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3063: (
3057: x_qabv_rec := l_def_qabv_rec;
3058: x_return_status := l_return_status;
3059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3060: EXCEPTION
3061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3063: (
3064: l_api_name,
3065: G_PKG_NAME,
3058: x_return_status := l_return_status;
3059: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3060: EXCEPTION
3061: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3063: (
3064: l_api_name,
3065: G_PKG_NAME,
3066: 'OKC_API.G_RET_STS_ERROR',
3062: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3063: (
3064: l_api_name,
3065: G_PKG_NAME,
3066: 'OKC_API.G_RET_STS_ERROR',
3067: x_msg_count,
3068: x_msg_data,
3069: '_PVT'
3070: );
3067: x_msg_count,
3068: x_msg_data,
3069: '_PVT'
3070: );
3071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3073: (
3074: l_api_name,
3075: G_PKG_NAME,
3068: x_msg_data,
3069: '_PVT'
3070: );
3071: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3073: (
3074: l_api_name,
3075: G_PKG_NAME,
3076: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3072: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3073: (
3074: l_api_name,
3075: G_PKG_NAME,
3076: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3077: x_msg_count,
3078: x_msg_data,
3079: '_PVT'
3080: );
3078: x_msg_data,
3079: '_PVT'
3080: );
3081: WHEN OTHERS THEN
3082: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3083: (
3084: l_api_name,
3085: G_PKG_NAME,
3086: 'OTHERS',
3099: x_msg_count OUT NOCOPY NUMBER,
3100: x_msg_data OUT NOCOPY VARCHAR2,
3101: p_qabv_tbl IN qabv_tbl_type,
3102: x_qabv_tbl OUT NOCOPY qabv_tbl_type,
3103: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
3104:
3105: l_api_version CONSTANT NUMBER := 1;
3106: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3107: i NUMBER := 0;
3105: l_api_version CONSTANT NUMBER := 1;
3106: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
3107: i NUMBER := 0;
3108: BEGIN
3109: OKC_API.init_msg_list(p_init_msg_list);
3110: -- Make sure PL/SQL table has records in it before passing
3111: IF (p_qabv_tbl.COUNT > 0) THEN
3112: i := p_qabv_tbl.FIRST;
3113: LOOP
3111: IF (p_qabv_tbl.COUNT > 0) THEN
3112: i := p_qabv_tbl.FIRST;
3113: LOOP
3114: DECLARE
3115: l_error_rec OKC_API.ERROR_REC_TYPE;
3116: BEGIN
3117: l_error_rec.api_name := l_api_name;
3118: l_error_rec.api_package := G_PKG_NAME;
3119: l_error_rec.idx := i;
3118: l_error_rec.api_package := G_PKG_NAME;
3119: l_error_rec.idx := i;
3120: update_row (
3121: p_api_version => p_api_version,
3122: p_init_msg_list => OKC_API.G_FALSE,
3123: x_return_status => l_error_rec.error_type,
3124: x_msg_count => l_error_rec.msg_count,
3125: x_msg_data => l_error_rec.msg_data,
3126: p_qabv_rec => p_qabv_tbl(i),
3124: x_msg_count => l_error_rec.msg_count,
3125: x_msg_data => l_error_rec.msg_data,
3126: p_qabv_rec => p_qabv_tbl(i),
3127: x_qabv_rec => x_qabv_tbl(i));
3128: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
3129: l_error_rec.sqlcode := SQLCODE;
3130: load_error_tbl(l_error_rec, px_error_tbl);
3131: ELSE
3132: x_msg_count := l_error_rec.msg_count;
3132: x_msg_count := l_error_rec.msg_count;
3133: x_msg_data := l_error_rec.msg_data;
3134: END IF;
3135: EXCEPTION
3136: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3137: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3138: l_error_rec.sqlcode := SQLCODE;
3139: load_error_tbl(l_error_rec, px_error_tbl);
3140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3133: x_msg_data := l_error_rec.msg_data;
3134: END IF;
3135: EXCEPTION
3136: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3137: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3138: l_error_rec.sqlcode := SQLCODE;
3139: load_error_tbl(l_error_rec, px_error_tbl);
3140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3141: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3136: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3137: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3138: l_error_rec.sqlcode := SQLCODE;
3139: load_error_tbl(l_error_rec, px_error_tbl);
3140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3141: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3142: l_error_rec.sqlcode := SQLCODE;
3143: load_error_tbl(l_error_rec, px_error_tbl);
3144: WHEN OTHERS THEN
3137: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3138: l_error_rec.sqlcode := SQLCODE;
3139: load_error_tbl(l_error_rec, px_error_tbl);
3140: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3141: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3142: l_error_rec.sqlcode := SQLCODE;
3143: load_error_tbl(l_error_rec, px_error_tbl);
3144: WHEN OTHERS THEN
3145: l_error_rec.error_type := 'OTHERS';
3152: END IF;
3153: -- Loop through the error_tbl to find the error with the highest severity
3154: -- and return it.
3155: x_return_status := find_highest_exception(px_error_tbl);
3156: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3157: EXCEPTION
3158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3160: (
3154: -- and return it.
3155: x_return_status := find_highest_exception(px_error_tbl);
3156: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3157: EXCEPTION
3158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3155: x_return_status := find_highest_exception(px_error_tbl);
3156: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3157: EXCEPTION
3158: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3163: 'OKC_API.G_RET_STS_ERROR',
3159: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3160: (
3161: l_api_name,
3162: G_PKG_NAME,
3163: 'OKC_API.G_RET_STS_ERROR',
3164: x_msg_count,
3165: x_msg_data,
3166: '_PVT'
3167: );
3164: x_msg_count,
3165: x_msg_data,
3166: '_PVT'
3167: );
3168: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3169: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3170: (
3171: l_api_name,
3172: G_PKG_NAME,
3165: x_msg_data,
3166: '_PVT'
3167: );
3168: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3169: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3170: (
3171: l_api_name,
3172: G_PKG_NAME,
3173: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3169: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3170: (
3171: l_api_name,
3172: G_PKG_NAME,
3173: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3174: x_msg_count,
3175: x_msg_data,
3176: '_PVT'
3177: );
3175: x_msg_data,
3176: '_PVT'
3177: );
3178: WHEN OTHERS THEN
3179: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3180: (
3181: l_api_name,
3182: G_PKG_NAME,
3183: 'OTHERS',
3202: x_qabv_tbl OUT NOCOPY qabv_tbl_type) IS
3203:
3204: l_api_version CONSTANT NUMBER := 1;
3205: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3206: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3207: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3208: BEGIN
3209: OKC_API.init_msg_list(p_init_msg_list);
3210: -- Make sure PL/SQL table has records in it before passing
3203:
3204: l_api_version CONSTANT NUMBER := 1;
3205: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3206: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3207: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3208: BEGIN
3209: OKC_API.init_msg_list(p_init_msg_list);
3210: -- Make sure PL/SQL table has records in it before passing
3211: IF (p_qabv_tbl.COUNT > 0) THEN
3205: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3206: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3207: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3208: BEGIN
3209: OKC_API.init_msg_list(p_init_msg_list);
3210: -- Make sure PL/SQL table has records in it before passing
3211: IF (p_qabv_tbl.COUNT > 0) THEN
3212: update_row (
3213: p_api_version => p_api_version,
3210: -- Make sure PL/SQL table has records in it before passing
3211: IF (p_qabv_tbl.COUNT > 0) THEN
3212: update_row (
3213: p_api_version => p_api_version,
3214: p_init_msg_list => OKC_API.G_FALSE,
3215: x_return_status => x_return_status,
3216: x_msg_count => x_msg_count,
3217: x_msg_data => x_msg_data,
3218: p_qabv_tbl => p_qabv_tbl,
3218: p_qabv_tbl => p_qabv_tbl,
3219: x_qabv_tbl => x_qabv_tbl,
3220: px_error_tbl => l_error_tbl);
3221: END IF;
3222: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3223: EXCEPTION
3224: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3225: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3226: (
3220: px_error_tbl => l_error_tbl);
3221: END IF;
3222: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3223: EXCEPTION
3224: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3225: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3226: (
3227: l_api_name,
3228: G_PKG_NAME,
3221: END IF;
3222: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3223: EXCEPTION
3224: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3225: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3226: (
3227: l_api_name,
3228: G_PKG_NAME,
3229: 'OKC_API.G_RET_STS_ERROR',
3225: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3226: (
3227: l_api_name,
3228: G_PKG_NAME,
3229: 'OKC_API.G_RET_STS_ERROR',
3230: x_msg_count,
3231: x_msg_data,
3232: '_PVT'
3233: );
3230: x_msg_count,
3231: x_msg_data,
3232: '_PVT'
3233: );
3234: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3236: (
3237: l_api_name,
3238: G_PKG_NAME,
3231: x_msg_data,
3232: '_PVT'
3233: );
3234: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3236: (
3237: l_api_name,
3238: G_PKG_NAME,
3239: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3235: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3236: (
3237: l_api_name,
3238: G_PKG_NAME,
3239: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3240: x_msg_count,
3241: x_msg_data,
3242: '_PVT'
3243: );
3241: x_msg_data,
3242: '_PVT'
3243: );
3244: WHEN OTHERS THEN
3245: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3246: (
3247: l_api_name,
3248: G_PKG_NAME,
3249: 'OTHERS',
3267: p_qab_rec IN qab_rec_type) IS
3268:
3269: l_api_version CONSTANT NUMBER := 1;
3270: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3271: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3272: l_qab_rec qab_rec_type := p_qab_rec;
3273: l_row_notfound BOOLEAN := TRUE;
3274: BEGIN
3275: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3271: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3272: l_qab_rec qab_rec_type := p_qab_rec;
3273: l_row_notfound BOOLEAN := TRUE;
3274: BEGIN
3275: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3276: p_init_msg_list,
3277: '_PVT',
3278: x_return_status);
3279: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3275: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3276: p_init_msg_list,
3277: '_PVT',
3278: x_return_status);
3279: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3282: RAISE OKC_API.G_EXCEPTION_ERROR;
3283: END IF;
3276: p_init_msg_list,
3277: '_PVT',
3278: x_return_status);
3279: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3282: RAISE OKC_API.G_EXCEPTION_ERROR;
3283: END IF;
3284:
3277: '_PVT',
3278: x_return_status);
3279: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3282: RAISE OKC_API.G_EXCEPTION_ERROR;
3283: END IF;
3284:
3285: DELETE FROM OKL_TXD_QTE_ANTCPT_BILL
3278: x_return_status);
3279: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3280: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3281: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3282: RAISE OKC_API.G_EXCEPTION_ERROR;
3283: END IF;
3284:
3285: DELETE FROM OKL_TXD_QTE_ANTCPT_BILL
3286: WHERE ID = p_qab_rec.id;
3285: DELETE FROM OKL_TXD_QTE_ANTCPT_BILL
3286: WHERE ID = p_qab_rec.id;
3287:
3288: x_return_status := l_return_status;
3289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3290: EXCEPTION
3291: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3293: (
3287:
3288: x_return_status := l_return_status;
3289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3290: EXCEPTION
3291: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3293: (
3294: l_api_name,
3295: G_PKG_NAME,
3288: x_return_status := l_return_status;
3289: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3290: EXCEPTION
3291: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3293: (
3294: l_api_name,
3295: G_PKG_NAME,
3296: 'OKC_API.G_RET_STS_ERROR',
3292: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3293: (
3294: l_api_name,
3295: G_PKG_NAME,
3296: 'OKC_API.G_RET_STS_ERROR',
3297: x_msg_count,
3298: x_msg_data,
3299: '_PVT'
3300: );
3297: x_msg_count,
3298: x_msg_data,
3299: '_PVT'
3300: );
3301: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3303: (
3304: l_api_name,
3305: G_PKG_NAME,
3298: x_msg_data,
3299: '_PVT'
3300: );
3301: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3303: (
3304: l_api_name,
3305: G_PKG_NAME,
3306: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3302: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3303: (
3304: l_api_name,
3305: G_PKG_NAME,
3306: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3307: x_msg_count,
3308: x_msg_data,
3309: '_PVT'
3310: );
3308: x_msg_data,
3309: '_PVT'
3310: );
3311: WHEN OTHERS THEN
3312: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3313: (
3314: l_api_name,
3315: G_PKG_NAME,
3316: 'OTHERS',
3331: p_qabv_rec IN qabv_rec_type) IS
3332:
3333: l_api_version CONSTANT NUMBER := 1;
3334: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3335: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3336: l_qabv_rec qabv_rec_type := p_qabv_rec;
3337: l_qab_rec qab_rec_type;
3338: BEGIN
3339: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3335: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3336: l_qabv_rec qabv_rec_type := p_qabv_rec;
3337: l_qab_rec qab_rec_type;
3338: BEGIN
3339: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
3340: G_PKG_NAME,
3341: p_init_msg_list,
3342: l_api_version,
3343: p_api_version,
3342: l_api_version,
3343: p_api_version,
3344: '_PVT',
3345: x_return_status);
3346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3349: RAISE OKC_API.G_EXCEPTION_ERROR;
3350: END IF;
3343: p_api_version,
3344: '_PVT',
3345: x_return_status);
3346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3349: RAISE OKC_API.G_EXCEPTION_ERROR;
3350: END IF;
3351: -----------------------------------------
3344: '_PVT',
3345: x_return_status);
3346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3349: RAISE OKC_API.G_EXCEPTION_ERROR;
3350: END IF;
3351: -----------------------------------------
3352: -- Move VIEW record to "Child" records --
3345: x_return_status);
3346: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3347: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3348: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3349: RAISE OKC_API.G_EXCEPTION_ERROR;
3350: END IF;
3351: -----------------------------------------
3352: -- Move VIEW record to "Child" records --
3353: -----------------------------------------
3361: x_msg_count,
3362: x_msg_data,
3363: l_qab_rec
3364: );
3365: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3368: RAISE OKC_API.G_EXCEPTION_ERROR;
3369: END IF;
3362: x_msg_data,
3363: l_qab_rec
3364: );
3365: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3368: RAISE OKC_API.G_EXCEPTION_ERROR;
3369: END IF;
3370: x_return_status := l_return_status;
3363: l_qab_rec
3364: );
3365: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3368: RAISE OKC_API.G_EXCEPTION_ERROR;
3369: END IF;
3370: x_return_status := l_return_status;
3371: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3364: );
3365: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
3366: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3368: RAISE OKC_API.G_EXCEPTION_ERROR;
3369: END IF;
3370: x_return_status := l_return_status;
3371: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3372: EXCEPTION
3367: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3368: RAISE OKC_API.G_EXCEPTION_ERROR;
3369: END IF;
3370: x_return_status := l_return_status;
3371: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3372: EXCEPTION
3373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3375: (
3369: END IF;
3370: x_return_status := l_return_status;
3371: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3372: EXCEPTION
3373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3375: (
3376: l_api_name,
3377: G_PKG_NAME,
3370: x_return_status := l_return_status;
3371: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3372: EXCEPTION
3373: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3375: (
3376: l_api_name,
3377: G_PKG_NAME,
3378: 'OKC_API.G_RET_STS_ERROR',
3374: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3375: (
3376: l_api_name,
3377: G_PKG_NAME,
3378: 'OKC_API.G_RET_STS_ERROR',
3379: x_msg_count,
3380: x_msg_data,
3381: '_PVT'
3382: );
3379: x_msg_count,
3380: x_msg_data,
3381: '_PVT'
3382: );
3383: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3385: (
3386: l_api_name,
3387: G_PKG_NAME,
3380: x_msg_data,
3381: '_PVT'
3382: );
3383: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3385: (
3386: l_api_name,
3387: G_PKG_NAME,
3388: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3385: (
3386: l_api_name,
3387: G_PKG_NAME,
3388: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3389: x_msg_count,
3390: x_msg_data,
3391: '_PVT'
3392: );
3390: x_msg_data,
3391: '_PVT'
3392: );
3393: WHEN OTHERS THEN
3394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3395: (
3396: l_api_name,
3397: G_PKG_NAME,
3398: 'OTHERS',
3410: x_return_status OUT NOCOPY VARCHAR2,
3411: x_msg_count OUT NOCOPY NUMBER,
3412: x_msg_data OUT NOCOPY VARCHAR2,
3413: p_qabv_tbl IN qabv_tbl_type,
3414: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
3415:
3416: l_api_version CONSTANT NUMBER := 1;
3417: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3418: i NUMBER := 0;
3416: l_api_version CONSTANT NUMBER := 1;
3417: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3418: i NUMBER := 0;
3419: BEGIN
3420: OKC_API.init_msg_list(p_init_msg_list);
3421: -- Make sure PL/SQL table has records in it before passing
3422: IF (p_qabv_tbl.COUNT > 0) THEN
3423: i := p_qabv_tbl.FIRST;
3424: LOOP
3422: IF (p_qabv_tbl.COUNT > 0) THEN
3423: i := p_qabv_tbl.FIRST;
3424: LOOP
3425: DECLARE
3426: l_error_rec OKC_API.ERROR_REC_TYPE;
3427: BEGIN
3428: l_error_rec.api_name := l_api_name;
3429: l_error_rec.api_package := G_PKG_NAME;
3430: l_error_rec.idx := i;
3429: l_error_rec.api_package := G_PKG_NAME;
3430: l_error_rec.idx := i;
3431: delete_row (
3432: p_api_version => p_api_version,
3433: p_init_msg_list => OKC_API.G_FALSE,
3434: x_return_status => l_error_rec.error_type,
3435: x_msg_count => l_error_rec.msg_count,
3436: x_msg_data => l_error_rec.msg_data,
3437: p_qabv_rec => p_qabv_tbl(i));
3434: x_return_status => l_error_rec.error_type,
3435: x_msg_count => l_error_rec.msg_count,
3436: x_msg_data => l_error_rec.msg_data,
3437: p_qabv_rec => p_qabv_tbl(i));
3438: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
3439: l_error_rec.sqlcode := SQLCODE;
3440: load_error_tbl(l_error_rec, px_error_tbl);
3441: ELSE
3442: x_msg_count := l_error_rec.msg_count;
3442: x_msg_count := l_error_rec.msg_count;
3443: x_msg_data := l_error_rec.msg_data;
3444: END IF;
3445: EXCEPTION
3446: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3447: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3448: l_error_rec.sqlcode := SQLCODE;
3449: load_error_tbl(l_error_rec, px_error_tbl);
3450: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3443: x_msg_data := l_error_rec.msg_data;
3444: END IF;
3445: EXCEPTION
3446: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3447: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3448: l_error_rec.sqlcode := SQLCODE;
3449: load_error_tbl(l_error_rec, px_error_tbl);
3450: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3451: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3446: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3447: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3448: l_error_rec.sqlcode := SQLCODE;
3449: load_error_tbl(l_error_rec, px_error_tbl);
3450: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3451: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3452: l_error_rec.sqlcode := SQLCODE;
3453: load_error_tbl(l_error_rec, px_error_tbl);
3454: WHEN OTHERS THEN
3447: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
3448: l_error_rec.sqlcode := SQLCODE;
3449: load_error_tbl(l_error_rec, px_error_tbl);
3450: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3451: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
3452: l_error_rec.sqlcode := SQLCODE;
3453: load_error_tbl(l_error_rec, px_error_tbl);
3454: WHEN OTHERS THEN
3455: l_error_rec.error_type := 'OTHERS';
3462: END IF;
3463: -- Loop through the error_tbl to find the error with the highest severity
3464: -- and return it.
3465: x_return_status := find_highest_exception(px_error_tbl);
3466: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3467: EXCEPTION
3468: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3470: (
3464: -- and return it.
3465: x_return_status := find_highest_exception(px_error_tbl);
3466: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3467: EXCEPTION
3468: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3470: (
3471: l_api_name,
3472: G_PKG_NAME,
3465: x_return_status := find_highest_exception(px_error_tbl);
3466: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3467: EXCEPTION
3468: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3470: (
3471: l_api_name,
3472: G_PKG_NAME,
3473: 'OKC_API.G_RET_STS_ERROR',
3469: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3470: (
3471: l_api_name,
3472: G_PKG_NAME,
3473: 'OKC_API.G_RET_STS_ERROR',
3474: x_msg_count,
3475: x_msg_data,
3476: '_PVT'
3477: );
3474: x_msg_count,
3475: x_msg_data,
3476: '_PVT'
3477: );
3478: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3479: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3480: (
3481: l_api_name,
3482: G_PKG_NAME,
3475: x_msg_data,
3476: '_PVT'
3477: );
3478: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3479: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3480: (
3481: l_api_name,
3482: G_PKG_NAME,
3483: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3479: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3480: (
3481: l_api_name,
3482: G_PKG_NAME,
3483: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3484: x_msg_count,
3485: x_msg_data,
3486: '_PVT'
3487: );
3485: x_msg_data,
3486: '_PVT'
3487: );
3488: WHEN OTHERS THEN
3489: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3490: (
3491: l_api_name,
3492: G_PKG_NAME,
3493: 'OTHERS',
3509: p_qabv_tbl IN qabv_tbl_type) IS
3510:
3511: l_api_version CONSTANT NUMBER := 1;
3512: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3513: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3514: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3515: BEGIN
3516: OKC_API.init_msg_list(p_init_msg_list);
3517: -- Make sure PL/SQL table has records in it before passing
3510:
3511: l_api_version CONSTANT NUMBER := 1;
3512: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3513: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3514: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3515: BEGIN
3516: OKC_API.init_msg_list(p_init_msg_list);
3517: -- Make sure PL/SQL table has records in it before passing
3518: IF (p_qabv_tbl.COUNT > 0) THEN
3512: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3513: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3514: l_error_tbl OKC_API.ERROR_TBL_TYPE;
3515: BEGIN
3516: OKC_API.init_msg_list(p_init_msg_list);
3517: -- Make sure PL/SQL table has records in it before passing
3518: IF (p_qabv_tbl.COUNT > 0) THEN
3519: delete_row (
3520: p_api_version => p_api_version,
3517: -- Make sure PL/SQL table has records in it before passing
3518: IF (p_qabv_tbl.COUNT > 0) THEN
3519: delete_row (
3520: p_api_version => p_api_version,
3521: p_init_msg_list => OKC_API.G_FALSE,
3522: x_return_status => x_return_status,
3523: x_msg_count => x_msg_count,
3524: x_msg_data => x_msg_data,
3525: p_qabv_tbl => p_qabv_tbl,
3524: x_msg_data => x_msg_data,
3525: p_qabv_tbl => p_qabv_tbl,
3526: px_error_tbl => l_error_tbl);
3527: END IF;
3528: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3529: EXCEPTION
3530: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3531: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3532: (
3526: px_error_tbl => l_error_tbl);
3527: END IF;
3528: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3529: EXCEPTION
3530: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3531: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3532: (
3533: l_api_name,
3534: G_PKG_NAME,
3527: END IF;
3528: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3529: EXCEPTION
3530: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3531: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3532: (
3533: l_api_name,
3534: G_PKG_NAME,
3535: 'OKC_API.G_RET_STS_ERROR',
3531: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3532: (
3533: l_api_name,
3534: G_PKG_NAME,
3535: 'OKC_API.G_RET_STS_ERROR',
3536: x_msg_count,
3537: x_msg_data,
3538: '_PVT'
3539: );
3536: x_msg_count,
3537: x_msg_data,
3538: '_PVT'
3539: );
3540: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3541: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3542: (
3543: l_api_name,
3544: G_PKG_NAME,
3537: x_msg_data,
3538: '_PVT'
3539: );
3540: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3541: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3542: (
3543: l_api_name,
3544: G_PKG_NAME,
3545: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3541: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3542: (
3543: l_api_name,
3544: G_PKG_NAME,
3545: 'OKC_API.G_RET_STS_UNEXP_ERROR',
3546: x_msg_count,
3547: x_msg_data,
3548: '_PVT'
3549: );
3547: x_msg_data,
3548: '_PVT'
3549: );
3550: WHEN OTHERS THEN
3551: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3552: (
3553: l_api_name,
3554: G_PKG_NAME,
3555: 'OTHERS',