[Home] [Help]
6: g_mapped_value_token VARCHAR2(100);
7: g_mapped_key_token VARCHAR2(100);
8:
9: PROCEDURE load_error_tbl (
10: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
11: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
12:
13: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
14: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
7: g_mapped_key_token VARCHAR2(100);
8:
9: PROCEDURE load_error_tbl (
10: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
11: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
12:
13: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
14: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
15: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
39: ---------------------------------------------------------------------------
40: -- FUNCTION find_highest_exception
41: ---------------------------------------------------------------------------
42: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
43: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
44: FUNCTION find_highest_exception(
45: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
46: ) RETURN VARCHAR2 IS
47: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
41: ---------------------------------------------------------------------------
42: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
43: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
44: FUNCTION find_highest_exception(
45: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
46: ) RETURN VARCHAR2 IS
47: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
48: i INTEGER := 1;
49: BEGIN
43: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
44: FUNCTION find_highest_exception(
45: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
46: ) RETURN VARCHAR2 IS
47: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
48: i INTEGER := 1;
49: BEGIN
50: IF (p_error_tbl.COUNT > 0) THEN
51: i := p_error_tbl.FIRST;
49: BEGIN
50: IF (p_error_tbl.COUNT > 0) THEN
51: i := p_error_tbl.FIRST;
52: LOOP
53: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
54: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
55: l_return_status := p_error_tbl(i).error_type;
56: END IF;
57: END IF;
50: IF (p_error_tbl.COUNT > 0) THEN
51: i := p_error_tbl.FIRST;
52: LOOP
53: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
54: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
55: l_return_status := p_error_tbl(i).error_type;
56: END IF;
57: END IF;
58: EXIT WHEN (i = p_error_tbl.LAST);
187: ) RETURN sgnv_rec_type IS
188: l_sgnv_rec sgnv_rec_type;
189: l_row_notfound BOOLEAN := TRUE;
190: BEGIN
191: x_return_status := OKL_API.G_RET_STS_SUCCESS;
192: l_sgnv_rec := get_rec(p_sgnv_rec, l_row_notfound);
193: IF (l_row_notfound) THEN
194: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
195: x_return_status := OKL_API.G_RET_STS_ERROR;
190: BEGIN
191: x_return_status := OKL_API.G_RET_STS_SUCCESS;
192: l_sgnv_rec := get_rec(p_sgnv_rec, l_row_notfound);
193: IF (l_row_notfound) THEN
194: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
195: x_return_status := OKL_API.G_RET_STS_ERROR;
196: END IF;
197: RETURN(l_sgnv_rec);
198: END get_rec;
191: x_return_status := OKL_API.G_RET_STS_SUCCESS;
192: l_sgnv_rec := get_rec(p_sgnv_rec, l_row_notfound);
193: IF (l_row_notfound) THEN
194: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
195: x_return_status := OKL_API.G_RET_STS_ERROR;
196: END IF;
197: RETURN(l_sgnv_rec);
198: END get_rec;
199: -----------------------------------------------------------
300: ) RETURN sgt_rec_type IS
301: l_sgt_rec sgt_rec_type;
302: l_row_notfound BOOLEAN := TRUE;
303: BEGIN
304: x_return_status := OKL_API.G_RET_STS_SUCCESS;
305: l_sgt_rec := get_rec(p_sgt_rec, l_row_notfound);
306: IF (l_row_notfound) THEN
307: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
308: x_return_status := OKL_API.G_RET_STS_ERROR;
303: BEGIN
304: x_return_status := OKL_API.G_RET_STS_SUCCESS;
305: l_sgt_rec := get_rec(p_sgt_rec, l_row_notfound);
306: IF (l_row_notfound) THEN
307: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
308: x_return_status := OKL_API.G_RET_STS_ERROR;
309: END IF;
310: RETURN(l_sgt_rec);
311: END get_rec;
304: x_return_status := OKL_API.G_RET_STS_SUCCESS;
305: l_sgt_rec := get_rec(p_sgt_rec, l_row_notfound);
306: IF (l_row_notfound) THEN
307: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
308: x_return_status := OKL_API.G_RET_STS_ERROR;
309: END IF;
310: RETURN(l_sgt_rec);
311: END get_rec;
312: -----------------------------------------------------------
326: p_sgnv_rec IN sgnv_rec_type
327: ) RETURN sgnv_rec_type IS
328: l_sgnv_rec sgnv_rec_type := p_sgnv_rec;
329: BEGIN
330: IF (l_sgnv_rec.id = OKL_API.G_MISS_NUM ) THEN
331: l_sgnv_rec.id := NULL;
332: END IF;
333: IF (l_sgnv_rec.jtot_object1_code = OKL_API.G_MISS_CHAR ) THEN
334: l_sgnv_rec.jtot_object1_code := NULL;
329: BEGIN
330: IF (l_sgnv_rec.id = OKL_API.G_MISS_NUM ) THEN
331: l_sgnv_rec.id := NULL;
332: END IF;
333: IF (l_sgnv_rec.jtot_object1_code = OKL_API.G_MISS_CHAR ) THEN
334: l_sgnv_rec.jtot_object1_code := NULL;
335: END IF;
336: IF (l_sgnv_rec.object1_id1 = OKL_API.G_MISS_CHAR ) THEN
337: l_sgnv_rec.object1_id1 := NULL;
332: END IF;
333: IF (l_sgnv_rec.jtot_object1_code = OKL_API.G_MISS_CHAR ) THEN
334: l_sgnv_rec.jtot_object1_code := NULL;
335: END IF;
336: IF (l_sgnv_rec.object1_id1 = OKL_API.G_MISS_CHAR ) THEN
337: l_sgnv_rec.object1_id1 := NULL;
338: END IF;
339: IF (l_sgnv_rec.object1_id2 = OKL_API.G_MISS_CHAR ) THEN
340: l_sgnv_rec.object1_id2 := NULL;
335: END IF;
336: IF (l_sgnv_rec.object1_id1 = OKL_API.G_MISS_CHAR ) THEN
337: l_sgnv_rec.object1_id1 := NULL;
338: END IF;
339: IF (l_sgnv_rec.object1_id2 = OKL_API.G_MISS_CHAR ) THEN
340: l_sgnv_rec.object1_id2 := NULL;
341: END IF;
342: IF (l_sgnv_rec.sgn_code = OKL_API.G_MISS_CHAR ) THEN
343: l_sgnv_rec.sgn_code := NULL;
338: END IF;
339: IF (l_sgnv_rec.object1_id2 = OKL_API.G_MISS_CHAR ) THEN
340: l_sgnv_rec.object1_id2 := NULL;
341: END IF;
342: IF (l_sgnv_rec.sgn_code = OKL_API.G_MISS_CHAR ) THEN
343: l_sgnv_rec.sgn_code := NULL;
344: END IF;
345: IF (l_sgnv_rec.value = OKL_API.G_MISS_CHAR ) THEN
346: l_sgnv_rec.value := NULL;
341: END IF;
342: IF (l_sgnv_rec.sgn_code = OKL_API.G_MISS_CHAR ) THEN
343: l_sgnv_rec.sgn_code := NULL;
344: END IF;
345: IF (l_sgnv_rec.value = OKL_API.G_MISS_CHAR ) THEN
346: l_sgnv_rec.value := NULL;
347: END IF;
348: IF (l_sgnv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
349: l_sgnv_rec.object_version_number := NULL;
344: END IF;
345: IF (l_sgnv_rec.value = OKL_API.G_MISS_CHAR ) THEN
346: l_sgnv_rec.value := NULL;
347: END IF;
348: IF (l_sgnv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
349: l_sgnv_rec.object_version_number := NULL;
350: END IF;
351: IF (l_sgnv_rec.default_value = OKL_API.G_MISS_CHAR ) THEN
352: l_sgnv_rec.default_value := NULL;
347: END IF;
348: IF (l_sgnv_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
349: l_sgnv_rec.object_version_number := NULL;
350: END IF;
351: IF (l_sgnv_rec.default_value = OKL_API.G_MISS_CHAR ) THEN
352: l_sgnv_rec.default_value := NULL;
353: END IF;
354: IF (l_sgnv_rec.active_yn = OKL_API.G_MISS_CHAR ) THEN
355: l_sgnv_rec.active_yn := NULL;
350: END IF;
351: IF (l_sgnv_rec.default_value = OKL_API.G_MISS_CHAR ) THEN
352: l_sgnv_rec.default_value := NULL;
353: END IF;
354: IF (l_sgnv_rec.active_yn = OKL_API.G_MISS_CHAR ) THEN
355: l_sgnv_rec.active_yn := NULL;
356: END IF;
357: IF (l_sgnv_rec.start_date = OKL_API.G_MISS_DATE ) THEN
358: l_sgnv_rec.start_date := NULL;
353: END IF;
354: IF (l_sgnv_rec.active_yn = OKL_API.G_MISS_CHAR ) THEN
355: l_sgnv_rec.active_yn := NULL;
356: END IF;
357: IF (l_sgnv_rec.start_date = OKL_API.G_MISS_DATE ) THEN
358: l_sgnv_rec.start_date := NULL;
359: END IF;
360: IF (l_sgnv_rec.end_date = OKL_API.G_MISS_DATE ) THEN
361: l_sgnv_rec.end_date := NULL;
356: END IF;
357: IF (l_sgnv_rec.start_date = OKL_API.G_MISS_DATE ) THEN
358: l_sgnv_rec.start_date := NULL;
359: END IF;
360: IF (l_sgnv_rec.end_date = OKL_API.G_MISS_DATE ) THEN
361: l_sgnv_rec.end_date := NULL;
362: END IF;
363: IF (l_sgnv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
364: l_sgnv_rec.attribute1 := NULL;
359: END IF;
360: IF (l_sgnv_rec.end_date = OKL_API.G_MISS_DATE ) THEN
361: l_sgnv_rec.end_date := NULL;
362: END IF;
363: IF (l_sgnv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
364: l_sgnv_rec.attribute1 := NULL;
365: END IF;
366: IF (l_sgnv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
367: l_sgnv_rec.attribute2 := NULL;
362: END IF;
363: IF (l_sgnv_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
364: l_sgnv_rec.attribute1 := NULL;
365: END IF;
366: IF (l_sgnv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
367: l_sgnv_rec.attribute2 := NULL;
368: END IF;
369: IF (l_sgnv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
370: l_sgnv_rec.attribute3 := NULL;
365: END IF;
366: IF (l_sgnv_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
367: l_sgnv_rec.attribute2 := NULL;
368: END IF;
369: IF (l_sgnv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
370: l_sgnv_rec.attribute3 := NULL;
371: END IF;
372: IF (l_sgnv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
373: l_sgnv_rec.attribute4 := NULL;
368: END IF;
369: IF (l_sgnv_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
370: l_sgnv_rec.attribute3 := NULL;
371: END IF;
372: IF (l_sgnv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
373: l_sgnv_rec.attribute4 := NULL;
374: END IF;
375: IF (l_sgnv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
376: l_sgnv_rec.attribute5 := NULL;
371: END IF;
372: IF (l_sgnv_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
373: l_sgnv_rec.attribute4 := NULL;
374: END IF;
375: IF (l_sgnv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
376: l_sgnv_rec.attribute5 := NULL;
377: END IF;
378: IF (l_sgnv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
379: l_sgnv_rec.attribute6 := NULL;
374: END IF;
375: IF (l_sgnv_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
376: l_sgnv_rec.attribute5 := NULL;
377: END IF;
378: IF (l_sgnv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
379: l_sgnv_rec.attribute6 := NULL;
380: END IF;
381: IF (l_sgnv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
382: l_sgnv_rec.attribute7 := NULL;
377: END IF;
378: IF (l_sgnv_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
379: l_sgnv_rec.attribute6 := NULL;
380: END IF;
381: IF (l_sgnv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
382: l_sgnv_rec.attribute7 := NULL;
383: END IF;
384: IF (l_sgnv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
385: l_sgnv_rec.attribute8 := NULL;
380: END IF;
381: IF (l_sgnv_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
382: l_sgnv_rec.attribute7 := NULL;
383: END IF;
384: IF (l_sgnv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
385: l_sgnv_rec.attribute8 := NULL;
386: END IF;
387: IF (l_sgnv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
388: l_sgnv_rec.attribute9 := NULL;
383: END IF;
384: IF (l_sgnv_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
385: l_sgnv_rec.attribute8 := NULL;
386: END IF;
387: IF (l_sgnv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
388: l_sgnv_rec.attribute9 := NULL;
389: END IF;
390: IF (l_sgnv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
391: l_sgnv_rec.attribute10 := NULL;
386: END IF;
387: IF (l_sgnv_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
388: l_sgnv_rec.attribute9 := NULL;
389: END IF;
390: IF (l_sgnv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
391: l_sgnv_rec.attribute10 := NULL;
392: END IF;
393: IF (l_sgnv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
394: l_sgnv_rec.attribute11 := NULL;
389: END IF;
390: IF (l_sgnv_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
391: l_sgnv_rec.attribute10 := NULL;
392: END IF;
393: IF (l_sgnv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
394: l_sgnv_rec.attribute11 := NULL;
395: END IF;
396: IF (l_sgnv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
397: l_sgnv_rec.attribute12 := NULL;
392: END IF;
393: IF (l_sgnv_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
394: l_sgnv_rec.attribute11 := NULL;
395: END IF;
396: IF (l_sgnv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
397: l_sgnv_rec.attribute12 := NULL;
398: END IF;
399: IF (l_sgnv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
400: l_sgnv_rec.attribute13 := NULL;
395: END IF;
396: IF (l_sgnv_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
397: l_sgnv_rec.attribute12 := NULL;
398: END IF;
399: IF (l_sgnv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
400: l_sgnv_rec.attribute13 := NULL;
401: END IF;
402: IF (l_sgnv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
403: l_sgnv_rec.attribute14 := NULL;
398: END IF;
399: IF (l_sgnv_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
400: l_sgnv_rec.attribute13 := NULL;
401: END IF;
402: IF (l_sgnv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
403: l_sgnv_rec.attribute14 := NULL;
404: END IF;
405: IF (l_sgnv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
406: l_sgnv_rec.attribute15 := NULL;
401: END IF;
402: IF (l_sgnv_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
403: l_sgnv_rec.attribute14 := NULL;
404: END IF;
405: IF (l_sgnv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
406: l_sgnv_rec.attribute15 := NULL;
407: END IF;
408: IF (l_sgnv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
409: l_sgnv_rec.created_by := NULL;
404: END IF;
405: IF (l_sgnv_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
406: l_sgnv_rec.attribute15 := NULL;
407: END IF;
408: IF (l_sgnv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
409: l_sgnv_rec.created_by := NULL;
410: END IF;
411: IF (l_sgnv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
412: l_sgnv_rec.creation_date := NULL;
407: END IF;
408: IF (l_sgnv_rec.created_by = OKL_API.G_MISS_NUM ) THEN
409: l_sgnv_rec.created_by := NULL;
410: END IF;
411: IF (l_sgnv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
412: l_sgnv_rec.creation_date := NULL;
413: END IF;
414: IF (l_sgnv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
415: l_sgnv_rec.last_updated_by := NULL;
410: END IF;
411: IF (l_sgnv_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
412: l_sgnv_rec.creation_date := NULL;
413: END IF;
414: IF (l_sgnv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
415: l_sgnv_rec.last_updated_by := NULL;
416: END IF;
417: IF (l_sgnv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
418: l_sgnv_rec.last_update_date := NULL;
413: END IF;
414: IF (l_sgnv_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
415: l_sgnv_rec.last_updated_by := NULL;
416: END IF;
417: IF (l_sgnv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
418: l_sgnv_rec.last_update_date := NULL;
419: END IF;
420: IF (l_sgnv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
421: l_sgnv_rec.last_update_login := NULL;
416: END IF;
417: IF (l_sgnv_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
418: l_sgnv_rec.last_update_date := NULL;
419: END IF;
420: IF (l_sgnv_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
421: l_sgnv_rec.last_update_login := NULL;
422: END IF;
423: RETURN(l_sgnv_rec);
424: END null_out_defaults;
428: PROCEDURE validate_id(
429: x_return_status OUT NOCOPY VARCHAR2,
430: p_id IN NUMBER) IS
431: BEGIN
432: x_return_status := OKL_API.G_RET_STS_SUCCESS;
433: IF (p_id = OKL_API.G_MISS_NUM OR
434: p_id IS NULL)
435: THEN
436: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
429: x_return_status OUT NOCOPY VARCHAR2,
430: p_id IN NUMBER) IS
431: BEGIN
432: x_return_status := OKL_API.G_RET_STS_SUCCESS;
433: IF (p_id = OKL_API.G_MISS_NUM OR
434: p_id IS NULL)
435: THEN
436: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
437: x_return_status := OKL_API.G_RET_STS_ERROR;
432: x_return_status := OKL_API.G_RET_STS_SUCCESS;
433: IF (p_id = OKL_API.G_MISS_NUM OR
434: p_id IS NULL)
435: THEN
436: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
437: x_return_status := OKL_API.G_RET_STS_ERROR;
438: RAISE G_EXCEPTION_HALT_VALIDATION;
439: END IF;
440: EXCEPTION
433: IF (p_id = OKL_API.G_MISS_NUM OR
434: p_id IS NULL)
435: THEN
436: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
437: x_return_status := OKL_API.G_RET_STS_ERROR;
438: RAISE G_EXCEPTION_HALT_VALIDATION;
439: END IF;
440: EXCEPTION
441: WHEN G_EXCEPTION_HALT_VALIDATION THEN
440: EXCEPTION
441: WHEN G_EXCEPTION_HALT_VALIDATION THEN
442: null;
443: WHEN OTHERS THEN
444: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
445: ,p_msg_name => G_UNEXPECTED_ERROR
446: ,p_token1 => G_SQLCODE_TOKEN
447: ,p_token1_value => SQLCODE
448: ,p_token2 => G_SQLERRM_TOKEN
446: ,p_token1 => G_SQLCODE_TOKEN
447: ,p_token1_value => SQLCODE
448: ,p_token2 => G_SQLERRM_TOKEN
449: ,p_token2_value => SQLERRM);
450: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
451: END validate_id;
452: ------------------------------------------------
453: -- Validate_Attributes for: JTOT_OBJECT1_CODE --
454: ------------------------------------------------
465: FROM jtf_objects_b
466: WHERE object_code = p_jtot_obj_code;
467:
468: BEGIN
469: x_return_status := OKL_API.G_RET_STS_SUCCESS;
470: IF (p_jtot_object1_code = OKL_API.G_MISS_CHAR OR
471: p_jtot_object1_code IS NULL)
472: THEN
473: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'jtot_object1_code');
466: WHERE object_code = p_jtot_obj_code;
467:
468: BEGIN
469: x_return_status := OKL_API.G_RET_STS_SUCCESS;
470: IF (p_jtot_object1_code = OKL_API.G_MISS_CHAR OR
471: p_jtot_object1_code IS NULL)
472: THEN
473: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'jtot_object1_code');
474: x_return_status := OKL_API.G_RET_STS_ERROR;
469: x_return_status := OKL_API.G_RET_STS_SUCCESS;
470: IF (p_jtot_object1_code = OKL_API.G_MISS_CHAR OR
471: p_jtot_object1_code IS NULL)
472: THEN
473: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'jtot_object1_code');
474: x_return_status := OKL_API.G_RET_STS_ERROR;
475: RAISE G_EXCEPTION_HALT_VALIDATION;
476: END IF;
477:
470: IF (p_jtot_object1_code = OKL_API.G_MISS_CHAR OR
471: p_jtot_object1_code IS NULL)
472: THEN
473: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'jtot_object1_code');
474: x_return_status := OKL_API.G_RET_STS_ERROR;
475: RAISE G_EXCEPTION_HALT_VALIDATION;
476: END IF;
477:
478: OPEN jtot_object_csr (p_jtot_object1_code);
487: EXCEPTION
488: WHEN G_EXCEPTION_HALT_VALIDATION THEN
489: null;
490: WHEN OTHERS THEN
491: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
492: ,p_msg_name => G_UNEXPECTED_ERROR
493: ,p_token1 => G_SQLCODE_TOKEN
494: ,p_token1_value => SQLCODE
495: ,p_token2 => G_SQLERRM_TOKEN
493: ,p_token1 => G_SQLCODE_TOKEN
494: ,p_token1_value => SQLCODE
495: ,p_token2 => G_SQLERRM_TOKEN
496: ,p_token2_value => SQLERRM);
497: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
498: END validate_jtot_object1_code;
499: ------------------------------------------
500: -- Validate_Attributes for: OBJECT1_ID1 --
501: ------------------------------------------
532: RETURN FALSE;
533: END;
534:
535: BEGIN
536: x_return_status := OKL_API.G_RET_STS_SUCCESS;
537: IF (p_object1_id1 = OKL_API.G_MISS_CHAR OR
538: p_object1_id1 IS NULL)
539: THEN
540: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
533: END;
534:
535: BEGIN
536: x_return_status := OKL_API.G_RET_STS_SUCCESS;
537: IF (p_object1_id1 = OKL_API.G_MISS_CHAR OR
538: p_object1_id1 IS NULL)
539: THEN
540: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
541: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
536: x_return_status := OKL_API.G_RET_STS_SUCCESS;
537: IF (p_object1_id1 = OKL_API.G_MISS_CHAR OR
538: p_object1_id1 IS NULL)
539: THEN
540: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
541: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
542: p_token1 => 'COLUMN_PROMPT',
543: p_token1_value => g_mapped_key_token);
544: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object1_id1');
540: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
541: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
542: p_token1 => 'COLUMN_PROMPT',
543: p_token1_value => g_mapped_key_token);
544: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object1_id1');
545: x_return_status := OKL_API.G_RET_STS_ERROR;
546: RAISE G_EXCEPTION_HALT_VALIDATION;
547: END IF;
548: IF p_jtot_object1_code = 'OKL_STRMTYP' THEN
541: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
542: p_token1 => 'COLUMN_PROMPT',
543: p_token1_value => g_mapped_key_token);
544: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object1_id1');
545: x_return_status := OKL_API.G_RET_STS_ERROR;
546: RAISE G_EXCEPTION_HALT_VALIDATION;
547: END IF;
548: IF p_jtot_object1_code = 'OKL_STRMTYP' THEN
549: l_stream_type := to_number(p_object1_id1);
554: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'object1_id1');
555: x_return_status := OKC_API.G_RET_STS_ERROR;
556: ELSE
557: IF l_stream_type_class <> 'SUBSIDY' THEN
558: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
559: p_msg_name => 'OKL_ASSOC_STREAM_TYPE');
560: x_return_status := OKC_API.G_RET_STS_ERROR;
561: ELSE
562: x_return_status := OKL_API.G_RET_STS_SUCCESS;
558: Okl_Api.SET_MESSAGE(p_app_name => G_APP_NAME,
559: p_msg_name => 'OKL_ASSOC_STREAM_TYPE');
560: x_return_status := OKC_API.G_RET_STS_ERROR;
561: ELSE
562: x_return_status := OKL_API.G_RET_STS_SUCCESS;
563: END IF;
564: END IF;
565: ELSE
566: OPEN jtot_object_csr (p_jtot_object1_code);
580: DBMS_SQL.DEFINE_COLUMN_CHAR(l_cursor, 1, l_id, 200);
581: l_rows := DBMS_SQL.EXECUTE(l_cursor);
582: IF DBMS_SQL.FETCH_ROWS(l_cursor) = 0 then
583: Okc_Api.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'object1_id1');
584: x_return_status := OKL_API.G_RET_STS_ERROR;
585: END IF;
586: END IF;
587: END IF;
588: EXCEPTION
588: EXCEPTION
589: WHEN G_EXCEPTION_HALT_VALIDATION THEN
590: null;
591: WHEN OTHERS THEN
592: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
593: ,p_msg_name => G_UNEXPECTED_ERROR
594: ,p_token1 => G_SQLCODE_TOKEN
595: ,p_token1_value => SQLCODE
596: ,p_token2 => G_SQLERRM_TOKEN
594: ,p_token1 => G_SQLCODE_TOKEN
595: ,p_token1_value => SQLCODE
596: ,p_token2 => G_SQLERRM_TOKEN
597: ,p_token2_value => SQLERRM);
598: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
599: END validate_object1_id1;
600: ------------------------------------------
601: -- Validate_Attributes for: OBJECT1_ID2 --
602: ------------------------------------------
603: PROCEDURE validate_object1_id2(
604: x_return_status OUT NOCOPY VARCHAR2,
605: p_object1_id2 IN VARCHAR2) IS
606: BEGIN
607: x_return_status := OKL_API.G_RET_STS_SUCCESS;
608: /*
609: IF (p_object1_id2 = OKL_API.G_MISS_CHAR OR
610: p_object1_id2 IS NULL)
611: THEN
605: p_object1_id2 IN VARCHAR2) IS
606: BEGIN
607: x_return_status := OKL_API.G_RET_STS_SUCCESS;
608: /*
609: IF (p_object1_id2 = OKL_API.G_MISS_CHAR OR
610: p_object1_id2 IS NULL)
611: THEN
612: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object1_id2');
613: x_return_status := OKL_API.G_RET_STS_ERROR;
608: /*
609: IF (p_object1_id2 = OKL_API.G_MISS_CHAR OR
610: p_object1_id2 IS NULL)
611: THEN
612: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object1_id2');
613: x_return_status := OKL_API.G_RET_STS_ERROR;
614: RAISE G_EXCEPTION_HALT_VALIDATION;
615: END IF;
616: */
609: IF (p_object1_id2 = OKL_API.G_MISS_CHAR OR
610: p_object1_id2 IS NULL)
611: THEN
612: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object1_id2');
613: x_return_status := OKL_API.G_RET_STS_ERROR;
614: RAISE G_EXCEPTION_HALT_VALIDATION;
615: END IF;
616: */
617: EXCEPTION
617: EXCEPTION
618: WHEN G_EXCEPTION_HALT_VALIDATION THEN
619: null;
620: WHEN OTHERS THEN
621: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
622: ,p_msg_name => G_UNEXPECTED_ERROR
623: ,p_token1 => G_SQLCODE_TOKEN
624: ,p_token1_value => SQLCODE
625: ,p_token2 => G_SQLERRM_TOKEN
623: ,p_token1 => G_SQLCODE_TOKEN
624: ,p_token1_value => SQLCODE
625: ,p_token2 => G_SQLERRM_TOKEN
626: ,p_token2_value => SQLERRM);
627: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
628: END validate_object1_id2;
629: ---------------------------------------
630: -- Validate_Attributes for: SGN_CODE --
631: ---------------------------------------
632: PROCEDURE validate_sgn_code(
633: x_return_status OUT NOCOPY VARCHAR2,
634: p_sgn_code IN VARCHAR2) IS
635: BEGIN
636: x_return_status := OKL_API.G_RET_STS_SUCCESS;
637: IF (p_sgn_code = OKL_API.G_MISS_CHAR OR
638: p_sgn_code IS NULL)
639: THEN
640: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sgn_code');
633: x_return_status OUT NOCOPY VARCHAR2,
634: p_sgn_code IN VARCHAR2) IS
635: BEGIN
636: x_return_status := OKL_API.G_RET_STS_SUCCESS;
637: IF (p_sgn_code = OKL_API.G_MISS_CHAR OR
638: p_sgn_code IS NULL)
639: THEN
640: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sgn_code');
641: x_return_status := OKL_API.G_RET_STS_ERROR;
636: x_return_status := OKL_API.G_RET_STS_SUCCESS;
637: IF (p_sgn_code = OKL_API.G_MISS_CHAR OR
638: p_sgn_code IS NULL)
639: THEN
640: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sgn_code');
641: x_return_status := OKL_API.G_RET_STS_ERROR;
642: RAISE G_EXCEPTION_HALT_VALIDATION;
643: END IF;
644: EXCEPTION
637: IF (p_sgn_code = OKL_API.G_MISS_CHAR OR
638: p_sgn_code IS NULL)
639: THEN
640: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sgn_code');
641: x_return_status := OKL_API.G_RET_STS_ERROR;
642: RAISE G_EXCEPTION_HALT_VALIDATION;
643: END IF;
644: EXCEPTION
645: WHEN G_EXCEPTION_HALT_VALIDATION THEN
644: EXCEPTION
645: WHEN G_EXCEPTION_HALT_VALIDATION THEN
646: null;
647: WHEN OTHERS THEN
648: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
649: ,p_msg_name => G_UNEXPECTED_ERROR
650: ,p_token1 => G_SQLCODE_TOKEN
651: ,p_token1_value => SQLCODE
652: ,p_token2 => G_SQLERRM_TOKEN
650: ,p_token1 => G_SQLCODE_TOKEN
651: ,p_token1_value => SQLCODE
652: ,p_token2 => G_SQLERRM_TOKEN
653: ,p_token2_value => SQLERRM);
654: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
655: END validate_sgn_code;
656: ------------------------------------
657: -- Validate_Attributes for: VALUE --
658: ------------------------------------
660: x_return_status OUT NOCOPY VARCHAR2,
661: p_value IN VARCHAR2) IS
662: l_token1_value VARCHAR2(100);
663: BEGIN
664: x_return_status := OKL_API.G_RET_STS_SUCCESS;
665: IF (p_value = OKL_API.G_MISS_CHAR OR
666: p_value IS NULL)
667: THEN
668: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
661: p_value IN VARCHAR2) IS
662: l_token1_value VARCHAR2(100);
663: BEGIN
664: x_return_status := OKL_API.G_RET_STS_SUCCESS;
665: IF (p_value = OKL_API.G_MISS_CHAR OR
666: p_value IS NULL)
667: THEN
668: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
669: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
664: x_return_status := OKL_API.G_RET_STS_SUCCESS;
665: IF (p_value = OKL_API.G_MISS_CHAR OR
666: p_value IS NULL)
667: THEN
668: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
669: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
670: p_token1 => 'COLUMN_PROMPT',
671: p_token1_value => g_mapped_value_token);
672: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'value');
668: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
669: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
670: p_token1 => 'COLUMN_PROMPT',
671: p_token1_value => g_mapped_value_token);
672: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'value');
673: x_return_status := OKL_API.G_RET_STS_ERROR;
674: RAISE G_EXCEPTION_HALT_VALIDATION;
675: END IF;
676: EXCEPTION
669: p_msg_name => 'OKL_LP_REQUIRED_VALUE',
670: p_token1 => 'COLUMN_PROMPT',
671: p_token1_value => g_mapped_value_token);
672: --OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'value');
673: x_return_status := OKL_API.G_RET_STS_ERROR;
674: RAISE G_EXCEPTION_HALT_VALIDATION;
675: END IF;
676: EXCEPTION
677: WHEN G_EXCEPTION_HALT_VALIDATION THEN
676: EXCEPTION
677: WHEN G_EXCEPTION_HALT_VALIDATION THEN
678: null;
679: WHEN OTHERS THEN
680: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
681: ,p_msg_name => G_UNEXPECTED_ERROR
682: ,p_token1 => G_SQLCODE_TOKEN
683: ,p_token1_value => SQLCODE
684: ,p_token2 => G_SQLERRM_TOKEN
682: ,p_token1 => G_SQLCODE_TOKEN
683: ,p_token1_value => SQLCODE
684: ,p_token2 => G_SQLERRM_TOKEN
685: ,p_token2_value => SQLERRM);
686: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
687: END validate_value;
688: ----------------------------------------------------
689: -- Validate_Attributes for: OBJECT_VERSION_NUMBER --
690: ----------------------------------------------------
691: PROCEDURE validate_object_version_number(
692: x_return_status OUT NOCOPY VARCHAR2,
693: p_object_version_number IN NUMBER) IS
694: BEGIN
695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
696: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
697: p_object_version_number IS NULL)
698: THEN
699: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
692: x_return_status OUT NOCOPY VARCHAR2,
693: p_object_version_number IN NUMBER) IS
694: BEGIN
695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
696: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
697: p_object_version_number IS NULL)
698: THEN
699: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
700: x_return_status := OKL_API.G_RET_STS_ERROR;
695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
696: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
697: p_object_version_number IS NULL)
698: THEN
699: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
700: x_return_status := OKL_API.G_RET_STS_ERROR;
701: RAISE G_EXCEPTION_HALT_VALIDATION;
702: END IF;
703: EXCEPTION
696: IF (p_object_version_number = OKL_API.G_MISS_NUM OR
697: p_object_version_number IS NULL)
698: THEN
699: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
700: x_return_status := OKL_API.G_RET_STS_ERROR;
701: RAISE G_EXCEPTION_HALT_VALIDATION;
702: END IF;
703: EXCEPTION
704: WHEN G_EXCEPTION_HALT_VALIDATION THEN
703: EXCEPTION
704: WHEN G_EXCEPTION_HALT_VALIDATION THEN
705: null;
706: WHEN OTHERS THEN
707: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
708: ,p_msg_name => G_UNEXPECTED_ERROR
709: ,p_token1 => G_SQLCODE_TOKEN
710: ,p_token1_value => SQLCODE
711: ,p_token2 => G_SQLERRM_TOKEN
709: ,p_token1 => G_SQLCODE_TOKEN
710: ,p_token1_value => SQLCODE
711: ,p_token2 => G_SQLERRM_TOKEN
712: ,p_token2_value => SQLERRM);
713: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
714: END validate_object_version_number;
715: ---------------------------------------------------------------------------
716: -- FUNCTION Validate_Attributes
717: ---------------------------------------------------------------------------
720: ----------------------------------------------------
721: FUNCTION Validate_Attributes (
722: p_sgnv_rec IN sgnv_rec_type
723: ) RETURN VARCHAR2 IS
724: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
725: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
726: BEGIN
727: -----------------------------
728: -- Set the global token --
721: FUNCTION Validate_Attributes (
722: p_sgnv_rec IN sgnv_rec_type
723: ) RETURN VARCHAR2 IS
724: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
725: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
726: BEGIN
727: -----------------------------
728: -- Set the global token --
729: -----------------------------
750: -- id
751: -- ***
752:
753: validate_id(x_return_status, p_sgnv_rec.id);
754: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
755: l_return_status := x_return_status;
756: RAISE G_EXCEPTION_HALT_VALIDATION;
757: END IF;
758:
759: -- ***
760: -- jtot_object1_code
761: -- ***
762: validate_jtot_object1_code(x_return_status, p_sgnv_rec.jtot_object1_code);
763: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
764: l_return_status := x_return_status;
765: RAISE G_EXCEPTION_HALT_VALIDATION;
766: END IF;
767:
768: -- ***
769: -- object1_id1
770: -- ***
771: validate_object1_id1(x_return_status, p_sgnv_rec.jtot_object1_code, p_sgnv_rec.object1_id1);
772: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
773: l_return_status := x_return_status;
774: RAISE G_EXCEPTION_HALT_VALIDATION;
775: END IF;
776: -- ***
776: -- ***
777: -- object1_id2
778: -- ***
779: validate_object1_id2(x_return_status, p_sgnv_rec.object1_id2);
780: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
781: l_return_status := x_return_status;
782: RAISE G_EXCEPTION_HALT_VALIDATION;
783: END IF;
784: -- ***
784: -- ***
785: -- sgn_code
786: -- ***
787: validate_sgn_code(x_return_status, p_sgnv_rec.sgn_code);
788: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
789: l_return_status := x_return_status;
790: RAISE G_EXCEPTION_HALT_VALIDATION;
791: END IF;
792: -- ***
792: -- ***
793: -- value
794: -- ***
795: validate_value(x_return_status, p_sgnv_rec.value);
796: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
797: l_return_status := x_return_status;
798: RAISE G_EXCEPTION_HALT_VALIDATION;
799: END IF;
800: -- ***
800: -- ***
801: -- object_version_number
802: -- ***
803: validate_object_version_number(x_return_status, p_sgnv_rec.object_version_number);
804: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
805: l_return_status := x_return_status;
806: RAISE G_EXCEPTION_HALT_VALIDATION;
807: END IF;
808: RETURN(l_return_status);
809: EXCEPTION
810: WHEN G_EXCEPTION_HALT_VALIDATION THEN
811: RETURN(l_return_status);
812: WHEN OTHERS THEN
813: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
814: ,p_msg_name => G_UNEXPECTED_ERROR
815: ,p_token1 => G_SQLCODE_TOKEN
816: ,p_token1_value => SQLCODE
817: ,p_token2 => G_SQLERRM_TOKEN
815: ,p_token1 => G_SQLCODE_TOKEN
816: ,p_token1_value => SQLCODE
817: ,p_token2 => G_SQLERRM_TOKEN
818: ,p_token2_value => SQLERRM);
819: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
820: RETURN(l_return_status);
821: END Validate_Attributes;
822: ---------------------------------------------------------------------------
823: -- PROCEDURE Validate_Record
828: FUNCTION Validate_Record (
829: p_sgnv_rec IN sgnv_rec_type,
830: p_db_sgnv_rec IN sgnv_rec_type
831: ) RETURN VARCHAR2 IS
832: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
833: ------------------------------------
834: -- FUNCTION validate_foreign_keys --
835: ------------------------------------
836: FUNCTION validate_foreign_keys (
843: FROM Fnd_Lookup_Values
844: WHERE fnd_lookup_values.lookup_type = p_lookup_type;
845: l_sgt_flv_fk sgt_flv_fk_csr%ROWTYPE;
846:
847: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
848: l_row_notfound BOOLEAN := TRUE;
849:
850: l_strmgen_lookup_type VARCHAR2(30) := 'OKL_STREAM_GENERATOR';
851:
858: FETCH sgt_flv_fk_csr INTO l_sgt_flv_fk;
859: l_row_notfound := sgt_flv_fk_csr%NOTFOUND;
860: CLOSE sgt_flv_fk_csr;
861: IF (l_row_notfound) THEN
862: OKL_API.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SGN_CODE');
863: RAISE item_not_found_error;
864: END IF;
865: END IF;
866:
866:
867: RETURN (l_return_status);
868: EXCEPTION
869: WHEN item_not_found_error THEN
870: l_return_status := OKL_API.G_RET_STS_ERROR;
871: RETURN (l_return_status);
872: END validate_foreign_keys;
873: BEGIN
874: l_return_status := validate_foreign_keys(p_sgnv_rec, p_db_sgnv_rec);
876: END Validate_Record;
877: FUNCTION Validate_Record (
878: p_sgnv_rec IN sgnv_rec_type
879: ) RETURN VARCHAR2 IS
880: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
881: l_db_sgnv_rec sgnv_rec_type := get_rec(p_sgnv_rec);
882: BEGIN
883: l_return_status := Validate_Record(p_sgnv_rec => p_sgnv_rec,
884: p_db_sgnv_rec => l_db_sgnv_rec);
969: -- validate_row for:OKL_SGN_TRANSLATIONS_V --
970: ---------------------------------------------
971: PROCEDURE validate_row(
972: p_api_version IN NUMBER,
973: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
974: x_return_status OUT NOCOPY VARCHAR2,
975: x_msg_count OUT NOCOPY NUMBER,
976: x_msg_data OUT NOCOPY VARCHAR2,
977: p_sgnv_rec IN sgnv_rec_type) IS
977: p_sgnv_rec IN sgnv_rec_type) IS
978:
979: l_api_version CONSTANT NUMBER := 1;
980: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
981: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
982: l_sgnv_rec sgnv_rec_type := p_sgnv_rec;
983: l_sgt_rec sgt_rec_type;
984: l_sgt_rec sgt_rec_type;
985: BEGIN
982: l_sgnv_rec sgnv_rec_type := p_sgnv_rec;
983: l_sgt_rec sgt_rec_type;
984: l_sgt_rec sgt_rec_type;
985: BEGIN
986: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
987: G_PKG_NAME,
988: p_init_msg_list,
989: l_api_version,
990: p_api_version,
989: l_api_version,
990: p_api_version,
991: '_PVT',
992: x_return_status);
993: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
990: p_api_version,
991: '_PVT',
992: x_return_status);
993: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: --- Validate all non-missing attributes (Item Level Validation)
991: '_PVT',
992: x_return_status);
993: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: --- Validate all non-missing attributes (Item Level Validation)
999: l_return_status := Validate_Attributes(l_sgnv_rec);
992: x_return_status);
993: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
994: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
995: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
996: RAISE OKL_API.G_EXCEPTION_ERROR;
997: END IF;
998: --- Validate all non-missing attributes (Item Level Validation)
999: l_return_status := Validate_Attributes(l_sgnv_rec);
1000: --- If any errors happen abort API
997: END IF;
998: --- Validate all non-missing attributes (Item Level Validation)
999: l_return_status := Validate_Attributes(l_sgnv_rec);
1000: --- If any errors happen abort API
1001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1004: RAISE OKL_API.G_EXCEPTION_ERROR;
1005: END IF;
998: --- Validate all non-missing attributes (Item Level Validation)
999: l_return_status := Validate_Attributes(l_sgnv_rec);
1000: --- If any errors happen abort API
1001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1004: RAISE OKL_API.G_EXCEPTION_ERROR;
1005: END IF;
1006: l_return_status := Validate_Record(l_sgnv_rec);
999: l_return_status := Validate_Attributes(l_sgnv_rec);
1000: --- If any errors happen abort API
1001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1004: RAISE OKL_API.G_EXCEPTION_ERROR;
1005: END IF;
1006: l_return_status := Validate_Record(l_sgnv_rec);
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1000: --- If any errors happen abort API
1001: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1002: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1004: RAISE OKL_API.G_EXCEPTION_ERROR;
1005: END IF;
1006: l_return_status := Validate_Record(l_sgnv_rec);
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1003: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1004: RAISE OKL_API.G_EXCEPTION_ERROR;
1005: END IF;
1006: l_return_status := Validate_Record(l_sgnv_rec);
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1004: RAISE OKL_API.G_EXCEPTION_ERROR;
1005: END IF;
1006: l_return_status := Validate_Record(l_sgnv_rec);
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: x_return_status := l_return_status;
1005: END IF;
1006: l_return_status := Validate_Record(l_sgnv_rec);
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: x_return_status := l_return_status;
1013: EXCEPTION
1006: l_return_status := Validate_Record(l_sgnv_rec);
1007: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1008: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1009: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: x_return_status := l_return_status;
1013: EXCEPTION
1014: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1010: RAISE OKL_API.G_EXCEPTION_ERROR;
1011: END IF;
1012: x_return_status := l_return_status;
1013: EXCEPTION
1014: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1015: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1016: (
1017: l_api_name,
1018: G_PKG_NAME,
1011: END IF;
1012: x_return_status := l_return_status;
1013: EXCEPTION
1014: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1015: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1016: (
1017: l_api_name,
1018: G_PKG_NAME,
1019: 'OKL_API.G_RET_STS_ERROR',
1015: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1016: (
1017: l_api_name,
1018: G_PKG_NAME,
1019: 'OKL_API.G_RET_STS_ERROR',
1020: x_msg_count,
1021: x_msg_data,
1022: '_PVT'
1023: );
1020: x_msg_count,
1021: x_msg_data,
1022: '_PVT'
1023: );
1024: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1025: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1026: (
1027: l_api_name,
1028: G_PKG_NAME,
1021: x_msg_data,
1022: '_PVT'
1023: );
1024: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1025: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1026: (
1027: l_api_name,
1028: G_PKG_NAME,
1029: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1025: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1026: (
1027: l_api_name,
1028: G_PKG_NAME,
1029: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1030: x_msg_count,
1031: x_msg_data,
1032: '_PVT'
1033: );
1031: x_msg_data,
1032: '_PVT'
1033: );
1034: WHEN OTHERS THEN
1035: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1036: (
1037: l_api_name,
1038: G_PKG_NAME,
1039: 'OTHERS',
1046: -- PL/SQL TBL validate_row for:OKL_SGN_TRANSLATIONS_V --
1047: --------------------------------------------------------
1048: PROCEDURE validate_row(
1049: p_api_version IN NUMBER,
1050: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1051: x_return_status OUT NOCOPY VARCHAR2,
1052: x_msg_count OUT NOCOPY NUMBER,
1053: x_msg_data OUT NOCOPY VARCHAR2,
1054: p_sgnv_tbl IN sgnv_tbl_type,
1051: x_return_status OUT NOCOPY VARCHAR2,
1052: x_msg_count OUT NOCOPY NUMBER,
1053: x_msg_data OUT NOCOPY VARCHAR2,
1054: p_sgnv_tbl IN sgnv_tbl_type,
1055: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1056:
1057: l_api_version CONSTANT NUMBER := 1;
1058: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1059: i NUMBER := 0;
1057: l_api_version CONSTANT NUMBER := 1;
1058: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
1059: i NUMBER := 0;
1060: BEGIN
1061: OKL_API.init_msg_list(p_init_msg_list);
1062: -- Make sure PL/SQL table has records in it before passing
1063: IF (p_sgnv_tbl.COUNT > 0) THEN
1064: i := p_sgnv_tbl.FIRST;
1065: LOOP
1063: IF (p_sgnv_tbl.COUNT > 0) THEN
1064: i := p_sgnv_tbl.FIRST;
1065: LOOP
1066: DECLARE
1067: l_error_rec OKL_API.ERROR_REC_TYPE;
1068: BEGIN
1069: l_error_rec.api_name := l_api_name;
1070: l_error_rec.api_package := G_PKG_NAME;
1071: l_error_rec.idx := i;
1070: l_error_rec.api_package := G_PKG_NAME;
1071: l_error_rec.idx := i;
1072: validate_row (
1073: p_api_version => p_api_version,
1074: p_init_msg_list => OKL_API.G_FALSE,
1075: x_return_status => l_error_rec.error_type,
1076: x_msg_count => l_error_rec.msg_count,
1077: x_msg_data => l_error_rec.msg_data,
1078: p_sgnv_rec => p_sgnv_tbl(i));
1075: x_return_status => l_error_rec.error_type,
1076: x_msg_count => l_error_rec.msg_count,
1077: x_msg_data => l_error_rec.msg_data,
1078: p_sgnv_rec => p_sgnv_tbl(i));
1079: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1080: l_error_rec.sqlcode := SQLCODE;
1081: load_error_tbl(l_error_rec, px_error_tbl);
1082: ELSE
1083: x_msg_count := l_error_rec.msg_count;
1083: x_msg_count := l_error_rec.msg_count;
1084: x_msg_data := l_error_rec.msg_data;
1085: END IF;
1086: EXCEPTION
1087: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1088: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1089: l_error_rec.sqlcode := SQLCODE;
1090: load_error_tbl(l_error_rec, px_error_tbl);
1091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1084: x_msg_data := l_error_rec.msg_data;
1085: END IF;
1086: EXCEPTION
1087: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1088: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1089: l_error_rec.sqlcode := SQLCODE;
1090: load_error_tbl(l_error_rec, px_error_tbl);
1091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1092: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1087: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1088: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1089: l_error_rec.sqlcode := SQLCODE;
1090: load_error_tbl(l_error_rec, px_error_tbl);
1091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1092: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1093: l_error_rec.sqlcode := SQLCODE;
1094: load_error_tbl(l_error_rec, px_error_tbl);
1095: WHEN OTHERS THEN
1088: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1089: l_error_rec.sqlcode := SQLCODE;
1090: load_error_tbl(l_error_rec, px_error_tbl);
1091: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1092: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1093: l_error_rec.sqlcode := SQLCODE;
1094: load_error_tbl(l_error_rec, px_error_tbl);
1095: WHEN OTHERS THEN
1096: l_error_rec.error_type := 'OTHERS';
1103: END IF;
1104: -- Loop through the error_tbl to find the error with the highest severity
1105: -- and return it.
1106: x_return_status := find_highest_exception(px_error_tbl);
1107: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1108: EXCEPTION
1109: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1110: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1111: (
1105: -- and return it.
1106: x_return_status := find_highest_exception(px_error_tbl);
1107: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1108: EXCEPTION
1109: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1110: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,
1106: x_return_status := find_highest_exception(px_error_tbl);
1107: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1108: EXCEPTION
1109: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1110: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,
1114: 'OKL_API.G_RET_STS_ERROR',
1110: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1111: (
1112: l_api_name,
1113: G_PKG_NAME,
1114: 'OKL_API.G_RET_STS_ERROR',
1115: x_msg_count,
1116: x_msg_data,
1117: '_PVT'
1118: );
1115: x_msg_count,
1116: x_msg_data,
1117: '_PVT'
1118: );
1119: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1120: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1116: x_msg_data,
1117: '_PVT'
1118: );
1119: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1120: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1120: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1125: x_msg_count,
1126: x_msg_data,
1127: '_PVT'
1128: );
1126: x_msg_data,
1127: '_PVT'
1128: );
1129: WHEN OTHERS THEN
1130: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1131: (
1132: l_api_name,
1133: G_PKG_NAME,
1134: 'OTHERS',
1142: -- PL/SQL TBL validate_row for:OKL_SGN_TRANSLATIONS_V --
1143: --------------------------------------------------------
1144: PROCEDURE validate_row(
1145: p_api_version IN NUMBER,
1146: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1147: x_return_status OUT NOCOPY VARCHAR2,
1148: x_msg_count OUT NOCOPY NUMBER,
1149: x_msg_data OUT NOCOPY VARCHAR2,
1150: p_sgnv_tbl IN sgnv_tbl_type) IS
1150: p_sgnv_tbl IN sgnv_tbl_type) IS
1151:
1152: l_api_version CONSTANT NUMBER := 1;
1153: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1154: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1155: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1156: BEGIN
1157: OKL_API.init_msg_list(p_init_msg_list);
1158: -- Make sure PL/SQL table has records in it before passing
1151:
1152: l_api_version CONSTANT NUMBER := 1;
1153: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1154: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1155: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1156: BEGIN
1157: OKL_API.init_msg_list(p_init_msg_list);
1158: -- Make sure PL/SQL table has records in it before passing
1159: IF (p_sgnv_tbl.COUNT > 0) THEN
1153: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1154: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1155: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1156: BEGIN
1157: OKL_API.init_msg_list(p_init_msg_list);
1158: -- Make sure PL/SQL table has records in it before passing
1159: IF (p_sgnv_tbl.COUNT > 0) THEN
1160: validate_row (
1161: p_api_version => p_api_version,
1158: -- Make sure PL/SQL table has records in it before passing
1159: IF (p_sgnv_tbl.COUNT > 0) THEN
1160: validate_row (
1161: p_api_version => p_api_version,
1162: p_init_msg_list => OKL_API.G_FALSE,
1163: x_return_status => x_return_status,
1164: x_msg_count => x_msg_count,
1165: x_msg_data => x_msg_data,
1166: p_sgnv_tbl => p_sgnv_tbl,
1165: x_msg_data => x_msg_data,
1166: p_sgnv_tbl => p_sgnv_tbl,
1167: px_error_tbl => l_error_tbl);
1168: END IF;
1169: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1170: EXCEPTION
1171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1172: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1173: (
1167: px_error_tbl => l_error_tbl);
1168: END IF;
1169: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1170: EXCEPTION
1171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1172: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1173: (
1174: l_api_name,
1175: G_PKG_NAME,
1168: END IF;
1169: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1170: EXCEPTION
1171: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1172: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1173: (
1174: l_api_name,
1175: G_PKG_NAME,
1176: 'OKL_API.G_RET_STS_ERROR',
1172: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1173: (
1174: l_api_name,
1175: G_PKG_NAME,
1176: 'OKL_API.G_RET_STS_ERROR',
1177: x_msg_count,
1178: x_msg_data,
1179: '_PVT'
1180: );
1177: x_msg_count,
1178: x_msg_data,
1179: '_PVT'
1180: );
1181: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1182: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1183: (
1184: l_api_name,
1185: G_PKG_NAME,
1178: x_msg_data,
1179: '_PVT'
1180: );
1181: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1182: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1183: (
1184: l_api_name,
1185: G_PKG_NAME,
1186: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1182: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1183: (
1184: l_api_name,
1185: G_PKG_NAME,
1186: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1187: x_msg_count,
1188: x_msg_data,
1189: '_PVT'
1190: );
1188: x_msg_data,
1189: '_PVT'
1190: );
1191: WHEN OTHERS THEN
1192: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1193: (
1194: l_api_name,
1195: G_PKG_NAME,
1196: 'OTHERS',
1206: -----------------------------------------
1207: -- insert_row for:OKL_SGN_TRANSLATIONS --
1208: -----------------------------------------
1209: PROCEDURE insert_row(
1210: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1211: x_return_status OUT NOCOPY VARCHAR2,
1212: x_msg_count OUT NOCOPY NUMBER,
1213: x_msg_data OUT NOCOPY VARCHAR2,
1214: p_sgt_rec IN sgt_rec_type,
1215: x_sgt_rec OUT NOCOPY sgt_rec_type) IS
1216:
1217: l_api_version CONSTANT NUMBER := 1;
1218: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1219: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1220: l_sgt_rec sgt_rec_type := p_sgt_rec;
1221: l_def_sgt_rec sgt_rec_type;
1222: ---------------------------------------------
1223: -- Set_Attributes for:OKL_SGN_TRANSLATIONS --
1225: FUNCTION Set_Attributes (
1226: p_sgt_rec IN sgt_rec_type,
1227: x_sgt_rec OUT NOCOPY sgt_rec_type
1228: ) RETURN VARCHAR2 IS
1229: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1230: BEGIN
1231: x_sgt_rec := p_sgt_rec;
1232: RETURN(l_return_status);
1233: END Set_Attributes;
1231: x_sgt_rec := p_sgt_rec;
1232: RETURN(l_return_status);
1233: END Set_Attributes;
1234: BEGIN
1235: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1236: p_init_msg_list,
1237: '_PVT',
1238: x_return_status);
1239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1235: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1236: p_init_msg_list,
1237: '_PVT',
1238: x_return_status);
1239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1242: RAISE OKL_API.G_EXCEPTION_ERROR;
1243: END IF;
1236: p_init_msg_list,
1237: '_PVT',
1238: x_return_status);
1239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1242: RAISE OKL_API.G_EXCEPTION_ERROR;
1243: END IF;
1244: --- Setting item atributes
1237: '_PVT',
1238: x_return_status);
1239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1242: RAISE OKL_API.G_EXCEPTION_ERROR;
1243: END IF;
1244: --- Setting item atributes
1245: l_return_status := Set_Attributes(
1238: x_return_status);
1239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1242: RAISE OKL_API.G_EXCEPTION_ERROR;
1243: END IF;
1244: --- Setting item atributes
1245: l_return_status := Set_Attributes(
1246: p_sgt_rec, -- IN
1245: l_return_status := Set_Attributes(
1246: p_sgt_rec, -- IN
1247: l_sgt_rec); -- OUT
1248: --- If any errors happen abort API
1249: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253: END IF;
1246: p_sgt_rec, -- IN
1247: l_sgt_rec); -- OUT
1248: --- If any errors happen abort API
1249: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253: END IF;
1254: INSERT INTO OKL_SGN_TRANSLATIONS(
1247: l_sgt_rec); -- OUT
1248: --- If any errors happen abort API
1249: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253: END IF;
1254: INSERT INTO OKL_SGN_TRANSLATIONS(
1255: id,
1248: --- If any errors happen abort API
1249: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1250: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1251: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1252: RAISE OKL_API.G_EXCEPTION_ERROR;
1253: END IF;
1254: INSERT INTO OKL_SGN_TRANSLATIONS(
1255: id,
1256: jtot_object1_code,
1317: l_sgt_rec.last_update_login);
1318: -- Set OUT values
1319: x_sgt_rec := l_sgt_rec;
1320: x_return_status := l_return_status;
1321: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1322: EXCEPTION
1323: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1324: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1325: (
1319: x_sgt_rec := l_sgt_rec;
1320: x_return_status := l_return_status;
1321: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1322: EXCEPTION
1323: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1324: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1325: (
1326: l_api_name,
1327: G_PKG_NAME,
1320: x_return_status := l_return_status;
1321: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1322: EXCEPTION
1323: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1324: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1325: (
1326: l_api_name,
1327: G_PKG_NAME,
1328: 'OKL_API.G_RET_STS_ERROR',
1324: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1325: (
1326: l_api_name,
1327: G_PKG_NAME,
1328: 'OKL_API.G_RET_STS_ERROR',
1329: x_msg_count,
1330: x_msg_data,
1331: '_PVT'
1332: );
1329: x_msg_count,
1330: x_msg_data,
1331: '_PVT'
1332: );
1333: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1334: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1335: (
1336: l_api_name,
1337: G_PKG_NAME,
1330: x_msg_data,
1331: '_PVT'
1332: );
1333: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1334: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1335: (
1336: l_api_name,
1337: G_PKG_NAME,
1338: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1334: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1335: (
1336: l_api_name,
1337: G_PKG_NAME,
1338: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1339: x_msg_count,
1340: x_msg_data,
1341: '_PVT'
1342: );
1340: x_msg_data,
1341: '_PVT'
1342: );
1343: WHEN OTHERS THEN
1344: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1345: (
1346: l_api_name,
1347: G_PKG_NAME,
1348: 'OTHERS',
1355: -- insert_row for :OKL_SGN_TRANSLATIONS_V --
1356: --------------------------------------------
1357: PROCEDURE insert_row(
1358: p_api_version IN NUMBER,
1359: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1360: x_return_status OUT NOCOPY VARCHAR2,
1361: x_msg_count OUT NOCOPY NUMBER,
1362: x_msg_data OUT NOCOPY VARCHAR2,
1363: p_sgnv_rec IN sgnv_rec_type,
1364: x_sgnv_rec OUT NOCOPY sgnv_rec_type) IS
1365:
1366: l_api_version CONSTANT NUMBER := 1;
1367: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1368: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1369: l_sgnv_rec sgnv_rec_type := p_sgnv_rec;
1370: l_def_sgnv_rec sgnv_rec_type;
1371: l_sgt_rec sgt_rec_type;
1372: lx_sgt_rec sgt_rec_type;
1429: FUNCTION Set_Attributes (
1430: p_sgnv_rec IN sgnv_rec_type,
1431: x_sgnv_rec OUT NOCOPY sgnv_rec_type
1432: ) RETURN VARCHAR2 IS
1433: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1434: BEGIN
1435: x_sgnv_rec := p_sgnv_rec;
1436: x_sgnv_rec.OBJECT_VERSION_NUMBER := 1;
1437: RETURN(l_return_status);
1436: x_sgnv_rec.OBJECT_VERSION_NUMBER := 1;
1437: RETURN(l_return_status);
1438: END Set_Attributes;
1439: BEGIN
1440: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1441: G_PKG_NAME,
1442: p_init_msg_list,
1443: l_api_version,
1444: p_api_version,
1443: l_api_version,
1444: p_api_version,
1445: '_PVT',
1446: x_return_status);
1447: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1450: RAISE OKL_API.G_EXCEPTION_ERROR;
1451: END IF;
1444: p_api_version,
1445: '_PVT',
1446: x_return_status);
1447: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1450: RAISE OKL_API.G_EXCEPTION_ERROR;
1451: END IF;
1452:
1445: '_PVT',
1446: x_return_status);
1447: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1450: RAISE OKL_API.G_EXCEPTION_ERROR;
1451: END IF;
1452:
1453: IF (p_sgnv_rec.jtot_object1_code = 'FA_BOOK_CONTROLS') THEN
1446: x_return_status);
1447: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1448: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1450: RAISE OKL_API.G_EXCEPTION_ERROR;
1451: END IF;
1452:
1453: IF (p_sgnv_rec.jtot_object1_code = 'FA_BOOK_CONTROLS') THEN
1454: --OPEN fa_book_controls_csr (p_sgnv_rec.jtot_object1_code, p_sgnv_rec.sgn_code, p_sgnv_rec.object1_id1, p_sgnv_rec.value);
1468: p_attribute_code => 'OKL_TAX_BOOK');
1469: l_token4_value := Okl_Accounting_Util.Get_Message_Token(p_region_code => 'OKL_LP_CODE_CONV_CRUPD',
1470: p_attribute_code => 'OKL_DEPRECIATION');
1471:
1472: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
1473: p_msg_name => 'OKL_UNIQUE_BOOK_MAP_MSG',
1474: p_token1 => 'TAX_BOOK',
1475: p_token1_value => p_sgnv_rec.object1_id1,
1476: p_token2 => 'DEPRECIATION',
1489: EXECUTE IMMEDIATE l_sql_stmnt INTO l_token1_value;
1490:
1491: l_token2_value := Okl_Accounting_Util.Get_Message_Token(p_region_code => 'OKL_LP_CODE_CONV_CRUPD',
1492: p_attribute_code => 'OKL_ORACLE_VALUE');
1493: OKL_API.SET_MESSAGE(p_app_name => 'OKL',
1494: p_msg_name => 'OKL_UNIQUE_CONVERSION_MSG',
1495: p_token1 => 'ORACLE_VALUE',
1496: p_token1_value => l_token1_value,
1497: p_token2 => 'ORACLEVALUE_PROMPT', -- Bug Number: 3992148
1498: p_token2_value => l_token2_value);
1499: END IF;
1500: l_return_status := OKC_API.G_RET_STS_ERROR;
1501: END IF;
1502: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1505: RAISE OKL_API.G_EXCEPTION_ERROR;
1506: END IF;
1499: END IF;
1500: l_return_status := OKC_API.G_RET_STS_ERROR;
1501: END IF;
1502: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1505: RAISE OKL_API.G_EXCEPTION_ERROR;
1506: END IF;
1507: l_sgnv_rec := null_out_defaults(p_sgnv_rec);
1500: l_return_status := OKC_API.G_RET_STS_ERROR;
1501: END IF;
1502: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1505: RAISE OKL_API.G_EXCEPTION_ERROR;
1506: END IF;
1507: l_sgnv_rec := null_out_defaults(p_sgnv_rec);
1508: -- Set primary key value
1501: END IF;
1502: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1503: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1505: RAISE OKL_API.G_EXCEPTION_ERROR;
1506: END IF;
1507: l_sgnv_rec := null_out_defaults(p_sgnv_rec);
1508: -- Set primary key value
1509: l_sgnv_rec.ID := get_seq_id;
1511: l_return_Status := Set_Attributes(
1512: l_sgnv_rec, -- IN
1513: l_def_sgnv_rec); -- OUT
1514: --- If any errors happen abort API
1515: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1517: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1518: RAISE OKL_API.G_EXCEPTION_ERROR;
1519: END IF;
1512: l_sgnv_rec, -- IN
1513: l_def_sgnv_rec); -- OUT
1514: --- If any errors happen abort API
1515: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1517: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1518: RAISE OKL_API.G_EXCEPTION_ERROR;
1519: END IF;
1520: l_def_sgnv_rec := fill_who_columns(l_def_sgnv_rec);
1513: l_def_sgnv_rec); -- OUT
1514: --- If any errors happen abort API
1515: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1517: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1518: RAISE OKL_API.G_EXCEPTION_ERROR;
1519: END IF;
1520: l_def_sgnv_rec := fill_who_columns(l_def_sgnv_rec);
1521: --- Validate all non-missing attributes (Item Level Validation)
1514: --- If any errors happen abort API
1515: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1516: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1517: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1518: RAISE OKL_API.G_EXCEPTION_ERROR;
1519: END IF;
1520: l_def_sgnv_rec := fill_who_columns(l_def_sgnv_rec);
1521: --- Validate all non-missing attributes (Item Level Validation)
1522: l_return_status := Validate_Attributes(l_def_sgnv_rec);
1520: l_def_sgnv_rec := fill_who_columns(l_def_sgnv_rec);
1521: --- Validate all non-missing attributes (Item Level Validation)
1522: l_return_status := Validate_Attributes(l_def_sgnv_rec);
1523: --- If any errors happen abort API
1524: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1527: RAISE OKL_API.G_EXCEPTION_ERROR;
1528: END IF;
1521: --- Validate all non-missing attributes (Item Level Validation)
1522: l_return_status := Validate_Attributes(l_def_sgnv_rec);
1523: --- If any errors happen abort API
1524: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1527: RAISE OKL_API.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_sgnv_rec);
1522: l_return_status := Validate_Attributes(l_def_sgnv_rec);
1523: --- If any errors happen abort API
1524: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1527: RAISE OKL_API.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_sgnv_rec);
1530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1523: --- If any errors happen abort API
1524: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1525: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1527: RAISE OKL_API.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_sgnv_rec);
1530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1526: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1527: RAISE OKL_API.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_sgnv_rec);
1530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1527: RAISE OKL_API.G_EXCEPTION_ERROR;
1528: END IF;
1529: l_return_status := Validate_Record(l_def_sgnv_rec);
1530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1535: -----------------------------------------
1528: END IF;
1529: l_return_status := Validate_Record(l_def_sgnv_rec);
1530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1535: -----------------------------------------
1536: -- Move VIEW record to "Child" records --
1529: l_return_status := Validate_Record(l_def_sgnv_rec);
1530: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1531: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1532: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1533: RAISE OKL_API.G_EXCEPTION_ERROR;
1534: END IF;
1535: -----------------------------------------
1536: -- Move VIEW record to "Child" records --
1537: -----------------------------------------
1546: x_msg_data,
1547: l_sgt_rec,
1548: lx_sgt_rec
1549: );
1550: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1553: RAISE OKL_API.G_EXCEPTION_ERROR;
1554: END IF;
1547: l_sgt_rec,
1548: lx_sgt_rec
1549: );
1550: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1553: RAISE OKL_API.G_EXCEPTION_ERROR;
1554: END IF;
1555: migrate(lx_sgt_rec, l_def_sgnv_rec);
1548: lx_sgt_rec
1549: );
1550: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1553: RAISE OKL_API.G_EXCEPTION_ERROR;
1554: END IF;
1555: migrate(lx_sgt_rec, l_def_sgnv_rec);
1556: -- Set OUT values
1549: );
1550: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1551: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1552: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1553: RAISE OKL_API.G_EXCEPTION_ERROR;
1554: END IF;
1555: migrate(lx_sgt_rec, l_def_sgnv_rec);
1556: -- Set OUT values
1557: x_sgnv_rec := l_def_sgnv_rec;
1555: migrate(lx_sgt_rec, l_def_sgnv_rec);
1556: -- Set OUT values
1557: x_sgnv_rec := l_def_sgnv_rec;
1558: x_return_status := l_return_status;
1559: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1560:
1561: EXCEPTION
1562: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1563: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1558: x_return_status := l_return_status;
1559: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1560:
1561: EXCEPTION
1562: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1563: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1564: (
1565: l_api_name,
1566: G_PKG_NAME,
1559: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1560:
1561: EXCEPTION
1562: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1563: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1564: (
1565: l_api_name,
1566: G_PKG_NAME,
1567: 'OKL_API.G_RET_STS_ERROR',
1563: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1564: (
1565: l_api_name,
1566: G_PKG_NAME,
1567: 'OKL_API.G_RET_STS_ERROR',
1568: x_msg_count,
1569: x_msg_data,
1570: '_PVT'
1571: );
1568: x_msg_count,
1569: x_msg_data,
1570: '_PVT'
1571: );
1572: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1573: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1574: (
1575: l_api_name,
1576: G_PKG_NAME,
1569: x_msg_data,
1570: '_PVT'
1571: );
1572: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1573: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1574: (
1575: l_api_name,
1576: G_PKG_NAME,
1577: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1573: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1574: (
1575: l_api_name,
1576: G_PKG_NAME,
1577: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1578: x_msg_count,
1579: x_msg_data,
1580: '_PVT'
1581: );
1579: x_msg_data,
1580: '_PVT'
1581: );
1582: WHEN OTHERS THEN
1583: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1584: (
1585: l_api_name,
1586: G_PKG_NAME,
1587: 'OTHERS',
1594: -- PL/SQL TBL insert_row for:SGNV_TBL --
1595: ----------------------------------------
1596: PROCEDURE insert_row(
1597: p_api_version IN NUMBER,
1598: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1599: x_return_status OUT NOCOPY VARCHAR2,
1600: x_msg_count OUT NOCOPY NUMBER,
1601: x_msg_data OUT NOCOPY VARCHAR2,
1602: p_sgnv_tbl IN sgnv_tbl_type,
1600: x_msg_count OUT NOCOPY NUMBER,
1601: x_msg_data OUT NOCOPY VARCHAR2,
1602: p_sgnv_tbl IN sgnv_tbl_type,
1603: x_sgnv_tbl OUT NOCOPY sgnv_tbl_type,
1604: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1605:
1606: l_api_version CONSTANT NUMBER := 1;
1607: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1608: i NUMBER := 0;
1606: l_api_version CONSTANT NUMBER := 1;
1607: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1608: i NUMBER := 0;
1609: BEGIN
1610: OKL_API.init_msg_list(p_init_msg_list);
1611: -- Make sure PL/SQL table has records in it before passing
1612: IF (p_sgnv_tbl.COUNT > 0) THEN
1613: i := p_sgnv_tbl.FIRST;
1614: LOOP
1612: IF (p_sgnv_tbl.COUNT > 0) THEN
1613: i := p_sgnv_tbl.FIRST;
1614: LOOP
1615: DECLARE
1616: l_error_rec OKL_API.ERROR_REC_TYPE;
1617: BEGIN
1618: l_error_rec.api_name := l_api_name;
1619: l_error_rec.api_package := G_PKG_NAME;
1620: l_error_rec.idx := i;
1619: l_error_rec.api_package := G_PKG_NAME;
1620: l_error_rec.idx := i;
1621: insert_row (
1622: p_api_version => p_api_version,
1623: p_init_msg_list => OKL_API.G_FALSE,
1624: x_return_status => l_error_rec.error_type,
1625: x_msg_count => l_error_rec.msg_count,
1626: x_msg_data => l_error_rec.msg_data,
1627: p_sgnv_rec => p_sgnv_tbl(i),
1625: x_msg_count => l_error_rec.msg_count,
1626: x_msg_data => l_error_rec.msg_data,
1627: p_sgnv_rec => p_sgnv_tbl(i),
1628: x_sgnv_rec => x_sgnv_tbl(i));
1629: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1630: l_error_rec.sqlcode := SQLCODE;
1631: load_error_tbl(l_error_rec, px_error_tbl);
1632: ELSE
1633: x_msg_count := l_error_rec.msg_count;
1633: x_msg_count := l_error_rec.msg_count;
1634: x_msg_data := l_error_rec.msg_data;
1635: END IF;
1636: EXCEPTION
1637: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1638: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1639: l_error_rec.sqlcode := SQLCODE;
1640: load_error_tbl(l_error_rec, px_error_tbl);
1641: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1634: x_msg_data := l_error_rec.msg_data;
1635: END IF;
1636: EXCEPTION
1637: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1638: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1639: l_error_rec.sqlcode := SQLCODE;
1640: load_error_tbl(l_error_rec, px_error_tbl);
1641: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1642: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1637: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1638: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1639: l_error_rec.sqlcode := SQLCODE;
1640: load_error_tbl(l_error_rec, px_error_tbl);
1641: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1642: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1643: l_error_rec.sqlcode := SQLCODE;
1644: load_error_tbl(l_error_rec, px_error_tbl);
1645: WHEN OTHERS THEN
1638: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1639: l_error_rec.sqlcode := SQLCODE;
1640: load_error_tbl(l_error_rec, px_error_tbl);
1641: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1642: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1643: l_error_rec.sqlcode := SQLCODE;
1644: load_error_tbl(l_error_rec, px_error_tbl);
1645: WHEN OTHERS THEN
1646: l_error_rec.error_type := 'OTHERS';
1653: END IF;
1654: -- Loop through the error_tbl to find the error with the highest severity
1655: -- and return it.
1656: x_return_status := find_highest_exception(px_error_tbl);
1657: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1658: EXCEPTION
1659: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1660: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1661: (
1655: -- and return it.
1656: x_return_status := find_highest_exception(px_error_tbl);
1657: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1658: EXCEPTION
1659: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1660: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1661: (
1662: l_api_name,
1663: G_PKG_NAME,
1656: x_return_status := find_highest_exception(px_error_tbl);
1657: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1658: EXCEPTION
1659: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1660: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1661: (
1662: l_api_name,
1663: G_PKG_NAME,
1664: 'OKL_API.G_RET_STS_ERROR',
1660: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1661: (
1662: l_api_name,
1663: G_PKG_NAME,
1664: 'OKL_API.G_RET_STS_ERROR',
1665: x_msg_count,
1666: x_msg_data,
1667: '_PVT'
1668: );
1665: x_msg_count,
1666: x_msg_data,
1667: '_PVT'
1668: );
1669: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1670: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1671: (
1672: l_api_name,
1673: G_PKG_NAME,
1666: x_msg_data,
1667: '_PVT'
1668: );
1669: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1670: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1671: (
1672: l_api_name,
1673: G_PKG_NAME,
1674: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1670: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1671: (
1672: l_api_name,
1673: G_PKG_NAME,
1674: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1675: x_msg_count,
1676: x_msg_data,
1677: '_PVT'
1678: );
1676: x_msg_data,
1677: '_PVT'
1678: );
1679: WHEN OTHERS THEN
1680: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1681: (
1682: l_api_name,
1683: G_PKG_NAME,
1684: 'OTHERS',
1692: -- PL/SQL TBL insert_row for:SGNV_TBL --
1693: ----------------------------------------
1694: PROCEDURE insert_row(
1695: p_api_version IN NUMBER,
1696: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1697: x_return_status OUT NOCOPY VARCHAR2,
1698: x_msg_count OUT NOCOPY NUMBER,
1699: x_msg_data OUT NOCOPY VARCHAR2,
1700: p_sgnv_tbl IN sgnv_tbl_type,
1701: x_sgnv_tbl OUT NOCOPY sgnv_tbl_type) IS
1702:
1703: l_api_version CONSTANT NUMBER := 1;
1704: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1705: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1706: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1707:
1708: BEGIN
1709: OKL_API.init_msg_list(p_init_msg_list);
1702:
1703: l_api_version CONSTANT NUMBER := 1;
1704: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1705: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1706: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1707:
1708: BEGIN
1709: OKL_API.init_msg_list(p_init_msg_list);
1710:
1705: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1706: l_error_tbl OKL_API.ERROR_TBL_TYPE;
1707:
1708: BEGIN
1709: OKL_API.init_msg_list(p_init_msg_list);
1710:
1711: -- Make sure PL/SQL table has records in it before passing
1712: IF (p_sgnv_tbl.COUNT > 0) THEN
1713: insert_row (
1711: -- Make sure PL/SQL table has records in it before passing
1712: IF (p_sgnv_tbl.COUNT > 0) THEN
1713: insert_row (
1714: p_api_version => p_api_version,
1715: p_init_msg_list => OKL_API.G_FALSE,
1716: x_return_status => x_return_status,
1717: x_msg_count => x_msg_count,
1718: x_msg_data => x_msg_data,
1719: p_sgnv_tbl => p_sgnv_tbl,
1719: p_sgnv_tbl => p_sgnv_tbl,
1720: x_sgnv_tbl => x_sgnv_tbl,
1721: px_error_tbl => l_error_tbl);
1722: END IF;
1723: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1724: EXCEPTION
1725: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1726: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1727: (
1721: px_error_tbl => l_error_tbl);
1722: END IF;
1723: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1724: EXCEPTION
1725: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1726: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1727: (
1728: l_api_name,
1729: G_PKG_NAME,
1722: END IF;
1723: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1724: EXCEPTION
1725: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1726: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1727: (
1728: l_api_name,
1729: G_PKG_NAME,
1730: 'OKL_API.G_RET_STS_ERROR',
1726: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1727: (
1728: l_api_name,
1729: G_PKG_NAME,
1730: 'OKL_API.G_RET_STS_ERROR',
1731: x_msg_count,
1732: x_msg_data,
1733: '_PVT'
1734: );
1731: x_msg_count,
1732: x_msg_data,
1733: '_PVT'
1734: );
1735: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1736: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1737: (
1738: l_api_name,
1739: G_PKG_NAME,
1732: x_msg_data,
1733: '_PVT'
1734: );
1735: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1736: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1737: (
1738: l_api_name,
1739: G_PKG_NAME,
1740: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1736: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1737: (
1738: l_api_name,
1739: G_PKG_NAME,
1740: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1741: x_msg_count,
1742: x_msg_data,
1743: '_PVT'
1744: );
1742: x_msg_data,
1743: '_PVT'
1744: );
1745: WHEN OTHERS THEN
1746: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1747: (
1748: l_api_name,
1749: G_PKG_NAME,
1750: 'OTHERS',
1760: ---------------------------------------
1761: -- lock_row for:OKL_SGN_TRANSLATIONS --
1762: ---------------------------------------
1763: PROCEDURE lock_row(
1764: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1765: x_return_status OUT NOCOPY VARCHAR2,
1766: x_msg_count OUT NOCOPY NUMBER,
1767: x_msg_data OUT NOCOPY VARCHAR2,
1768: p_sgt_rec IN sgt_rec_type) IS
1781: FROM OKL_SGN_TRANSLATIONS
1782: WHERE ID = p_sgt_rec.id;
1783: l_api_version CONSTANT NUMBER := 1;
1784: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1785: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1786: l_object_version_number OKL_SGN_TRANSLATIONS.OBJECT_VERSION_NUMBER%TYPE;
1787: lc_object_version_number OKL_SGN_TRANSLATIONS.OBJECT_VERSION_NUMBER%TYPE;
1788: l_row_notfound BOOLEAN := FALSE;
1789: lc_row_notfound BOOLEAN := FALSE;
1787: lc_object_version_number OKL_SGN_TRANSLATIONS.OBJECT_VERSION_NUMBER%TYPE;
1788: l_row_notfound BOOLEAN := FALSE;
1789: lc_row_notfound BOOLEAN := FALSE;
1790: BEGIN
1791: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1792: p_init_msg_list,
1793: '_PVT',
1794: x_return_status);
1795: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1791: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1792: p_init_msg_list,
1793: '_PVT',
1794: x_return_status);
1795: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_ERROR;
1799: END IF;
1792: p_init_msg_list,
1793: '_PVT',
1794: x_return_status);
1795: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_ERROR;
1799: END IF;
1800: BEGIN
1793: '_PVT',
1794: x_return_status);
1795: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_ERROR;
1799: END IF;
1800: BEGIN
1801: OPEN lock_csr(p_sgt_rec);
1794: x_return_status);
1795: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1796: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1797: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1798: RAISE OKL_API.G_EXCEPTION_ERROR;
1799: END IF;
1800: BEGIN
1801: OPEN lock_csr(p_sgt_rec);
1802: FETCH lock_csr INTO l_object_version_number;
1806: WHEN E_Resource_Busy THEN
1807: IF (lock_csr%ISOPEN) THEN
1808: CLOSE lock_csr;
1809: END IF;
1810: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1811: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1812: END;
1813:
1814: IF ( l_row_notfound ) THEN
1817: lc_row_notfound := lchk_csr%NOTFOUND;
1818: CLOSE lchk_csr;
1819: END IF;
1820: IF (lc_row_notfound) THEN
1821: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1822: RAISE OKL_API.G_EXCEPTION_ERROR;
1823: ELSIF lc_object_version_number > p_sgt_rec.object_version_number THEN
1824: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKL_API.G_EXCEPTION_ERROR;
1818: CLOSE lchk_csr;
1819: END IF;
1820: IF (lc_row_notfound) THEN
1821: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1822: RAISE OKL_API.G_EXCEPTION_ERROR;
1823: ELSIF lc_object_version_number > p_sgt_rec.object_version_number THEN
1824: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKL_API.G_EXCEPTION_ERROR;
1826: ELSIF lc_object_version_number <> p_sgt_rec.object_version_number THEN
1820: IF (lc_row_notfound) THEN
1821: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1822: RAISE OKL_API.G_EXCEPTION_ERROR;
1823: ELSIF lc_object_version_number > p_sgt_rec.object_version_number THEN
1824: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKL_API.G_EXCEPTION_ERROR;
1826: ELSIF lc_object_version_number <> p_sgt_rec.object_version_number THEN
1827: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1828: RAISE OKL_API.G_EXCEPTION_ERROR;
1821: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1822: RAISE OKL_API.G_EXCEPTION_ERROR;
1823: ELSIF lc_object_version_number > p_sgt_rec.object_version_number THEN
1824: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKL_API.G_EXCEPTION_ERROR;
1826: ELSIF lc_object_version_number <> p_sgt_rec.object_version_number THEN
1827: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1828: RAISE OKL_API.G_EXCEPTION_ERROR;
1829: ELSIF lc_object_version_number = -1 THEN
1823: ELSIF lc_object_version_number > p_sgt_rec.object_version_number THEN
1824: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKL_API.G_EXCEPTION_ERROR;
1826: ELSIF lc_object_version_number <> p_sgt_rec.object_version_number THEN
1827: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1828: RAISE OKL_API.G_EXCEPTION_ERROR;
1829: ELSIF lc_object_version_number = -1 THEN
1830: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1824: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1825: RAISE OKL_API.G_EXCEPTION_ERROR;
1826: ELSIF lc_object_version_number <> p_sgt_rec.object_version_number THEN
1827: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1828: RAISE OKL_API.G_EXCEPTION_ERROR;
1829: ELSIF lc_object_version_number = -1 THEN
1830: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1826: ELSIF lc_object_version_number <> p_sgt_rec.object_version_number THEN
1827: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1828: RAISE OKL_API.G_EXCEPTION_ERROR;
1829: ELSIF lc_object_version_number = -1 THEN
1830: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1833: x_return_status := l_return_status;
1834: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1827: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1828: RAISE OKL_API.G_EXCEPTION_ERROR;
1829: ELSIF lc_object_version_number = -1 THEN
1830: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1833: x_return_status := l_return_status;
1834: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1835: EXCEPTION
1830: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1831: RAISE OKL_API.G_EXCEPTION_ERROR;
1832: END IF;
1833: x_return_status := l_return_status;
1834: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1835: EXCEPTION
1836: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1837: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1838: (
1832: END IF;
1833: x_return_status := l_return_status;
1834: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1835: EXCEPTION
1836: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1837: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1838: (
1839: l_api_name,
1840: G_PKG_NAME,
1833: x_return_status := l_return_status;
1834: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1835: EXCEPTION
1836: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1837: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1838: (
1839: l_api_name,
1840: G_PKG_NAME,
1841: 'OKL_API.G_RET_STS_ERROR',
1837: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1838: (
1839: l_api_name,
1840: G_PKG_NAME,
1841: 'OKL_API.G_RET_STS_ERROR',
1842: x_msg_count,
1843: x_msg_data,
1844: '_PVT'
1845: );
1842: x_msg_count,
1843: x_msg_data,
1844: '_PVT'
1845: );
1846: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1847: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1848: (
1849: l_api_name,
1850: G_PKG_NAME,
1843: x_msg_data,
1844: '_PVT'
1845: );
1846: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1847: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1848: (
1849: l_api_name,
1850: G_PKG_NAME,
1851: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1847: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1848: (
1849: l_api_name,
1850: G_PKG_NAME,
1851: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1852: x_msg_count,
1853: x_msg_data,
1854: '_PVT'
1855: );
1853: x_msg_data,
1854: '_PVT'
1855: );
1856: WHEN OTHERS THEN
1857: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1858: (
1859: l_api_name,
1860: G_PKG_NAME,
1861: 'OTHERS',
1868: -- lock_row for: OKL_SGN_TRANSLATIONS_V --
1869: ------------------------------------------
1870: PROCEDURE lock_row(
1871: p_api_version IN NUMBER,
1872: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1873: x_return_status OUT NOCOPY VARCHAR2,
1874: x_msg_count OUT NOCOPY NUMBER,
1875: x_msg_data OUT NOCOPY VARCHAR2,
1876: p_sgnv_rec IN sgnv_rec_type) IS
1876: p_sgnv_rec IN sgnv_rec_type) IS
1877:
1878: l_api_version CONSTANT NUMBER := 1;
1879: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1880: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1881: l_sgt_rec sgt_rec_type;
1882: BEGIN
1883: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1884: G_PKG_NAME,
1879: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1880: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1881: l_sgt_rec sgt_rec_type;
1882: BEGIN
1883: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1884: G_PKG_NAME,
1885: p_init_msg_list,
1886: l_api_version,
1887: p_api_version,
1886: l_api_version,
1887: p_api_version,
1888: '_PVT',
1889: x_return_status);
1890: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1892: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1893: RAISE OKL_API.G_EXCEPTION_ERROR;
1894: END IF;
1887: p_api_version,
1888: '_PVT',
1889: x_return_status);
1890: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1892: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1893: RAISE OKL_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: -----------------------------------------
1888: '_PVT',
1889: x_return_status);
1890: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1892: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1893: RAISE OKL_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: -----------------------------------------
1896: -- Move VIEW record to "Child" records --
1889: x_return_status);
1890: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1891: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1892: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1893: RAISE OKL_API.G_EXCEPTION_ERROR;
1894: END IF;
1895: -----------------------------------------
1896: -- Move VIEW record to "Child" records --
1897: -----------------------------------------
1905: x_msg_count,
1906: x_msg_data,
1907: l_sgt_rec
1908: );
1909: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1911: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1912: RAISE OKL_API.G_EXCEPTION_ERROR;
1913: END IF;
1906: x_msg_data,
1907: l_sgt_rec
1908: );
1909: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1911: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1912: RAISE OKL_API.G_EXCEPTION_ERROR;
1913: END IF;
1914: x_return_status := l_return_status;
1907: l_sgt_rec
1908: );
1909: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1911: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1912: RAISE OKL_API.G_EXCEPTION_ERROR;
1913: END IF;
1914: x_return_status := l_return_status;
1915: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1908: );
1909: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1910: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1911: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1912: RAISE OKL_API.G_EXCEPTION_ERROR;
1913: END IF;
1914: x_return_status := l_return_status;
1915: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1916: EXCEPTION
1911: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1912: RAISE OKL_API.G_EXCEPTION_ERROR;
1913: END IF;
1914: x_return_status := l_return_status;
1915: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1916: EXCEPTION
1917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1918: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1919: (
1913: END IF;
1914: x_return_status := l_return_status;
1915: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1916: EXCEPTION
1917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1918: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1919: (
1920: l_api_name,
1921: G_PKG_NAME,
1914: x_return_status := l_return_status;
1915: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1916: EXCEPTION
1917: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1918: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1919: (
1920: l_api_name,
1921: G_PKG_NAME,
1922: 'OKL_API.G_RET_STS_ERROR',
1918: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1919: (
1920: l_api_name,
1921: G_PKG_NAME,
1922: 'OKL_API.G_RET_STS_ERROR',
1923: x_msg_count,
1924: x_msg_data,
1925: '_PVT'
1926: );
1923: x_msg_count,
1924: x_msg_data,
1925: '_PVT'
1926: );
1927: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1928: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1929: (
1930: l_api_name,
1931: G_PKG_NAME,
1924: x_msg_data,
1925: '_PVT'
1926: );
1927: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1928: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1929: (
1930: l_api_name,
1931: G_PKG_NAME,
1932: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1928: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1929: (
1930: l_api_name,
1931: G_PKG_NAME,
1932: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1933: x_msg_count,
1934: x_msg_data,
1935: '_PVT'
1936: );
1934: x_msg_data,
1935: '_PVT'
1936: );
1937: WHEN OTHERS THEN
1938: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1939: (
1940: l_api_name,
1941: G_PKG_NAME,
1942: 'OTHERS',
1949: -- PL/SQL TBL lock_row for:SGNV_TBL --
1950: --------------------------------------
1951: PROCEDURE lock_row(
1952: p_api_version IN NUMBER,
1953: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1954: x_return_status OUT NOCOPY VARCHAR2,
1955: x_msg_count OUT NOCOPY NUMBER,
1956: x_msg_data OUT NOCOPY VARCHAR2,
1957: p_sgnv_tbl IN sgnv_tbl_type,
1954: x_return_status OUT NOCOPY VARCHAR2,
1955: x_msg_count OUT NOCOPY NUMBER,
1956: x_msg_data OUT NOCOPY VARCHAR2,
1957: p_sgnv_tbl IN sgnv_tbl_type,
1958: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
1959:
1960: l_api_version CONSTANT NUMBER := 1;
1961: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1962: i NUMBER := 0;
1960: l_api_version CONSTANT NUMBER := 1;
1961: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1962: i NUMBER := 0;
1963: BEGIN
1964: OKL_API.init_msg_list(p_init_msg_list);
1965: -- Make sure PL/SQL table has recrods in it before passing
1966: IF (p_sgnv_tbl.COUNT > 0) THEN
1967: i := p_sgnv_tbl.FIRST;
1968: LOOP
1966: IF (p_sgnv_tbl.COUNT > 0) THEN
1967: i := p_sgnv_tbl.FIRST;
1968: LOOP
1969: DECLARE
1970: l_error_rec OKL_API.ERROR_REC_TYPE;
1971: BEGIN
1972: l_error_rec.api_name := l_api_name;
1973: l_error_rec.api_package := G_PKG_NAME;
1974: l_error_rec.idx := i;
1973: l_error_rec.api_package := G_PKG_NAME;
1974: l_error_rec.idx := i;
1975: lock_row(
1976: p_api_version => p_api_version,
1977: p_init_msg_list => OKL_API.G_FALSE,
1978: x_return_status => l_error_rec.error_type,
1979: x_msg_count => l_error_rec.msg_count,
1980: x_msg_data => l_error_rec.msg_data,
1981: p_sgnv_rec => p_sgnv_tbl(i));
1978: x_return_status => l_error_rec.error_type,
1979: x_msg_count => l_error_rec.msg_count,
1980: x_msg_data => l_error_rec.msg_data,
1981: p_sgnv_rec => p_sgnv_tbl(i));
1982: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
1983: l_error_rec.sqlcode := SQLCODE;
1984: load_error_tbl(l_error_rec, px_error_tbl);
1985: ELSE
1986: x_msg_count := l_error_rec.msg_count;
1986: x_msg_count := l_error_rec.msg_count;
1987: x_msg_data := l_error_rec.msg_data;
1988: END IF;
1989: EXCEPTION
1990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1991: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1992: l_error_rec.sqlcode := SQLCODE;
1993: load_error_tbl(l_error_rec, px_error_tbl);
1994: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1987: x_msg_data := l_error_rec.msg_data;
1988: END IF;
1989: EXCEPTION
1990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1991: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1992: l_error_rec.sqlcode := SQLCODE;
1993: load_error_tbl(l_error_rec, px_error_tbl);
1994: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1995: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1990: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1991: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1992: l_error_rec.sqlcode := SQLCODE;
1993: load_error_tbl(l_error_rec, px_error_tbl);
1994: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1995: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1996: l_error_rec.sqlcode := SQLCODE;
1997: load_error_tbl(l_error_rec, px_error_tbl);
1998: WHEN OTHERS THEN
1991: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
1992: l_error_rec.sqlcode := SQLCODE;
1993: load_error_tbl(l_error_rec, px_error_tbl);
1994: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1995: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
1996: l_error_rec.sqlcode := SQLCODE;
1997: load_error_tbl(l_error_rec, px_error_tbl);
1998: WHEN OTHERS THEN
1999: l_error_rec.error_type := 'OTHERS';
2006: END IF;
2007: -- Loop through the error_tbl to find the error with the highest severity
2008: -- and return it.
2009: x_return_status := find_highest_exception(px_error_tbl);
2010: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2011: EXCEPTION
2012: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2013: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2014: (
2008: -- and return it.
2009: x_return_status := find_highest_exception(px_error_tbl);
2010: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2011: EXCEPTION
2012: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2013: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2014: (
2015: l_api_name,
2016: G_PKG_NAME,
2009: x_return_status := find_highest_exception(px_error_tbl);
2010: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2011: EXCEPTION
2012: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2013: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2014: (
2015: l_api_name,
2016: G_PKG_NAME,
2017: 'OKL_API.G_RET_STS_ERROR',
2013: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2014: (
2015: l_api_name,
2016: G_PKG_NAME,
2017: 'OKL_API.G_RET_STS_ERROR',
2018: x_msg_count,
2019: x_msg_data,
2020: '_PVT'
2021: );
2018: x_msg_count,
2019: x_msg_data,
2020: '_PVT'
2021: );
2022: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2023: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2024: (
2025: l_api_name,
2026: G_PKG_NAME,
2019: x_msg_data,
2020: '_PVT'
2021: );
2022: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2023: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2024: (
2025: l_api_name,
2026: G_PKG_NAME,
2027: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2023: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2024: (
2025: l_api_name,
2026: G_PKG_NAME,
2027: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2028: x_msg_count,
2029: x_msg_data,
2030: '_PVT'
2031: );
2029: x_msg_data,
2030: '_PVT'
2031: );
2032: WHEN OTHERS THEN
2033: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2034: (
2035: l_api_name,
2036: G_PKG_NAME,
2037: 'OTHERS',
2044: -- PL/SQL TBL lock_row for:SGNV_TBL --
2045: --------------------------------------
2046: PROCEDURE lock_row(
2047: p_api_version IN NUMBER,
2048: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2049: x_return_status OUT NOCOPY VARCHAR2,
2050: x_msg_count OUT NOCOPY NUMBER,
2051: x_msg_data OUT NOCOPY VARCHAR2,
2052: p_sgnv_tbl IN sgnv_tbl_type) IS
2052: p_sgnv_tbl IN sgnv_tbl_type) IS
2053:
2054: l_api_version CONSTANT NUMBER := 1;
2055: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2056: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2057: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2058: BEGIN
2059: OKL_API.init_msg_list(p_init_msg_list);
2060: -- Make sure PL/SQL table has recrods in it before passing
2053:
2054: l_api_version CONSTANT NUMBER := 1;
2055: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2056: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2057: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2058: BEGIN
2059: OKL_API.init_msg_list(p_init_msg_list);
2060: -- Make sure PL/SQL table has recrods in it before passing
2061: IF (p_sgnv_tbl.COUNT > 0) THEN
2055: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2056: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2057: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2058: BEGIN
2059: OKL_API.init_msg_list(p_init_msg_list);
2060: -- Make sure PL/SQL table has recrods in it before passing
2061: IF (p_sgnv_tbl.COUNT > 0) THEN
2062: lock_row(
2063: p_api_version => p_api_version,
2060: -- Make sure PL/SQL table has recrods in it before passing
2061: IF (p_sgnv_tbl.COUNT > 0) THEN
2062: lock_row(
2063: p_api_version => p_api_version,
2064: p_init_msg_list => OKL_API.G_FALSE,
2065: x_return_status => x_return_status,
2066: x_msg_count => x_msg_count,
2067: x_msg_data => x_msg_data,
2068: p_sgnv_tbl => p_sgnv_tbl,
2067: x_msg_data => x_msg_data,
2068: p_sgnv_tbl => p_sgnv_tbl,
2069: px_error_tbl => l_error_tbl);
2070: END IF;
2071: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2072: EXCEPTION
2073: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2074: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2075: (
2069: px_error_tbl => l_error_tbl);
2070: END IF;
2071: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2072: EXCEPTION
2073: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2074: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2075: (
2076: l_api_name,
2077: G_PKG_NAME,
2070: END IF;
2071: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2072: EXCEPTION
2073: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2074: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2075: (
2076: l_api_name,
2077: G_PKG_NAME,
2078: 'OKL_API.G_RET_STS_ERROR',
2074: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2075: (
2076: l_api_name,
2077: G_PKG_NAME,
2078: 'OKL_API.G_RET_STS_ERROR',
2079: x_msg_count,
2080: x_msg_data,
2081: '_PVT'
2082: );
2079: x_msg_count,
2080: x_msg_data,
2081: '_PVT'
2082: );
2083: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2084: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2085: (
2086: l_api_name,
2087: G_PKG_NAME,
2080: x_msg_data,
2081: '_PVT'
2082: );
2083: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2084: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2085: (
2086: l_api_name,
2087: G_PKG_NAME,
2088: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2084: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2085: (
2086: l_api_name,
2087: G_PKG_NAME,
2088: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2089: x_msg_count,
2090: x_msg_data,
2091: '_PVT'
2092: );
2090: x_msg_data,
2091: '_PVT'
2092: );
2093: WHEN OTHERS THEN
2094: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2095: (
2096: l_api_name,
2097: G_PKG_NAME,
2098: 'OTHERS',
2107: -----------------------------------------
2108: -- update_row for:OKL_SGN_TRANSLATIONS --
2109: -----------------------------------------
2110: PROCEDURE update_row(
2111: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2112: x_return_status OUT NOCOPY VARCHAR2,
2113: x_msg_count OUT NOCOPY NUMBER,
2114: x_msg_data OUT NOCOPY VARCHAR2,
2115: p_sgt_rec IN sgt_rec_type,
2116: x_sgt_rec OUT NOCOPY sgt_rec_type) IS
2117:
2118: l_api_version CONSTANT NUMBER := 1;
2119: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2120: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2121: l_sgt_rec sgt_rec_type := p_sgt_rec;
2122: l_def_sgt_rec sgt_rec_type;
2123: l_row_notfound BOOLEAN := TRUE;
2124: ----------------------------------
2129: x_sgt_rec OUT NOCOPY sgt_rec_type
2130: ) RETURN VARCHAR2 IS
2131: l_sgt_rec sgt_rec_type;
2132: l_row_notfound BOOLEAN := TRUE;
2133: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2134: BEGIN
2135: x_sgt_rec := p_sgt_rec;
2136: -- Get current database values
2137: l_sgt_rec := get_rec(p_sgt_rec, l_return_status);
2134: BEGIN
2135: x_sgt_rec := p_sgt_rec;
2136: -- Get current database values
2137: l_sgt_rec := get_rec(p_sgt_rec, l_return_status);
2138: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2139: IF (x_sgt_rec.id = OKL_API.G_MISS_NUM)
2140: THEN
2141: x_sgt_rec.id := l_sgt_rec.id;
2142: END IF;
2135: x_sgt_rec := p_sgt_rec;
2136: -- Get current database values
2137: l_sgt_rec := get_rec(p_sgt_rec, l_return_status);
2138: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2139: IF (x_sgt_rec.id = OKL_API.G_MISS_NUM)
2140: THEN
2141: x_sgt_rec.id := l_sgt_rec.id;
2142: END IF;
2143: IF (x_sgt_rec.jtot_object1_code = OKL_API.G_MISS_CHAR)
2139: IF (x_sgt_rec.id = OKL_API.G_MISS_NUM)
2140: THEN
2141: x_sgt_rec.id := l_sgt_rec.id;
2142: END IF;
2143: IF (x_sgt_rec.jtot_object1_code = OKL_API.G_MISS_CHAR)
2144: THEN
2145: x_sgt_rec.jtot_object1_code := l_sgt_rec.jtot_object1_code;
2146: END IF;
2147: IF (x_sgt_rec.object1_id1 = OKL_API.G_MISS_CHAR)
2143: IF (x_sgt_rec.jtot_object1_code = OKL_API.G_MISS_CHAR)
2144: THEN
2145: x_sgt_rec.jtot_object1_code := l_sgt_rec.jtot_object1_code;
2146: END IF;
2147: IF (x_sgt_rec.object1_id1 = OKL_API.G_MISS_CHAR)
2148: THEN
2149: x_sgt_rec.object1_id1 := l_sgt_rec.object1_id1;
2150: END IF;
2151: IF (x_sgt_rec.object1_id2 = OKL_API.G_MISS_CHAR)
2147: IF (x_sgt_rec.object1_id1 = OKL_API.G_MISS_CHAR)
2148: THEN
2149: x_sgt_rec.object1_id1 := l_sgt_rec.object1_id1;
2150: END IF;
2151: IF (x_sgt_rec.object1_id2 = OKL_API.G_MISS_CHAR)
2152: THEN
2153: x_sgt_rec.object1_id2 := l_sgt_rec.object1_id2;
2154: END IF;
2155: IF (x_sgt_rec.sgn_code = OKL_API.G_MISS_CHAR)
2151: IF (x_sgt_rec.object1_id2 = OKL_API.G_MISS_CHAR)
2152: THEN
2153: x_sgt_rec.object1_id2 := l_sgt_rec.object1_id2;
2154: END IF;
2155: IF (x_sgt_rec.sgn_code = OKL_API.G_MISS_CHAR)
2156: THEN
2157: x_sgt_rec.sgn_code := l_sgt_rec.sgn_code;
2158: END IF;
2159: IF (x_sgt_rec.value = OKL_API.G_MISS_CHAR)
2155: IF (x_sgt_rec.sgn_code = OKL_API.G_MISS_CHAR)
2156: THEN
2157: x_sgt_rec.sgn_code := l_sgt_rec.sgn_code;
2158: END IF;
2159: IF (x_sgt_rec.value = OKL_API.G_MISS_CHAR)
2160: THEN
2161: x_sgt_rec.value := l_sgt_rec.value;
2162: END IF;
2163: IF (x_sgt_rec.object_version_number = OKL_API.G_MISS_NUM)
2159: IF (x_sgt_rec.value = OKL_API.G_MISS_CHAR)
2160: THEN
2161: x_sgt_rec.value := l_sgt_rec.value;
2162: END IF;
2163: IF (x_sgt_rec.object_version_number = OKL_API.G_MISS_NUM)
2164: THEN
2165: x_sgt_rec.object_version_number := l_sgt_rec.object_version_number;
2166: END IF;
2167: IF (x_sgt_rec.default_value = OKL_API.G_MISS_CHAR)
2163: IF (x_sgt_rec.object_version_number = OKL_API.G_MISS_NUM)
2164: THEN
2165: x_sgt_rec.object_version_number := l_sgt_rec.object_version_number;
2166: END IF;
2167: IF (x_sgt_rec.default_value = OKL_API.G_MISS_CHAR)
2168: THEN
2169: x_sgt_rec.default_value := l_sgt_rec.default_value;
2170: END IF;
2171: IF (x_sgt_rec.active_yn = OKL_API.G_MISS_CHAR)
2167: IF (x_sgt_rec.default_value = OKL_API.G_MISS_CHAR)
2168: THEN
2169: x_sgt_rec.default_value := l_sgt_rec.default_value;
2170: END IF;
2171: IF (x_sgt_rec.active_yn = OKL_API.G_MISS_CHAR)
2172: THEN
2173: x_sgt_rec.active_yn := l_sgt_rec.active_yn;
2174: END IF;
2175: IF (x_sgt_rec.start_date = OKL_API.G_MISS_DATE)
2171: IF (x_sgt_rec.active_yn = OKL_API.G_MISS_CHAR)
2172: THEN
2173: x_sgt_rec.active_yn := l_sgt_rec.active_yn;
2174: END IF;
2175: IF (x_sgt_rec.start_date = OKL_API.G_MISS_DATE)
2176: THEN
2177: x_sgt_rec.start_date := l_sgt_rec.start_date;
2178: END IF;
2179: IF (x_sgt_rec.end_date = OKL_API.G_MISS_DATE)
2175: IF (x_sgt_rec.start_date = OKL_API.G_MISS_DATE)
2176: THEN
2177: x_sgt_rec.start_date := l_sgt_rec.start_date;
2178: END IF;
2179: IF (x_sgt_rec.end_date = OKL_API.G_MISS_DATE)
2180: THEN
2181: x_sgt_rec.end_date := l_sgt_rec.end_date;
2182: END IF;
2183: IF (x_sgt_rec.attribute1 = OKL_API.G_MISS_CHAR)
2179: IF (x_sgt_rec.end_date = OKL_API.G_MISS_DATE)
2180: THEN
2181: x_sgt_rec.end_date := l_sgt_rec.end_date;
2182: END IF;
2183: IF (x_sgt_rec.attribute1 = OKL_API.G_MISS_CHAR)
2184: THEN
2185: x_sgt_rec.attribute1 := l_sgt_rec.attribute1;
2186: END IF;
2187: IF (x_sgt_rec.attribute2 = OKL_API.G_MISS_CHAR)
2183: IF (x_sgt_rec.attribute1 = OKL_API.G_MISS_CHAR)
2184: THEN
2185: x_sgt_rec.attribute1 := l_sgt_rec.attribute1;
2186: END IF;
2187: IF (x_sgt_rec.attribute2 = OKL_API.G_MISS_CHAR)
2188: THEN
2189: x_sgt_rec.attribute2 := l_sgt_rec.attribute2;
2190: END IF;
2191: IF (x_sgt_rec.attribute3 = OKL_API.G_MISS_CHAR)
2187: IF (x_sgt_rec.attribute2 = OKL_API.G_MISS_CHAR)
2188: THEN
2189: x_sgt_rec.attribute2 := l_sgt_rec.attribute2;
2190: END IF;
2191: IF (x_sgt_rec.attribute3 = OKL_API.G_MISS_CHAR)
2192: THEN
2193: x_sgt_rec.attribute3 := l_sgt_rec.attribute3;
2194: END IF;
2195: IF (x_sgt_rec.attribute4 = OKL_API.G_MISS_CHAR)
2191: IF (x_sgt_rec.attribute3 = OKL_API.G_MISS_CHAR)
2192: THEN
2193: x_sgt_rec.attribute3 := l_sgt_rec.attribute3;
2194: END IF;
2195: IF (x_sgt_rec.attribute4 = OKL_API.G_MISS_CHAR)
2196: THEN
2197: x_sgt_rec.attribute4 := l_sgt_rec.attribute4;
2198: END IF;
2199: IF (x_sgt_rec.attribute5 = OKL_API.G_MISS_CHAR)
2195: IF (x_sgt_rec.attribute4 = OKL_API.G_MISS_CHAR)
2196: THEN
2197: x_sgt_rec.attribute4 := l_sgt_rec.attribute4;
2198: END IF;
2199: IF (x_sgt_rec.attribute5 = OKL_API.G_MISS_CHAR)
2200: THEN
2201: x_sgt_rec.attribute5 := l_sgt_rec.attribute5;
2202: END IF;
2203: IF (x_sgt_rec.attribute6 = OKL_API.G_MISS_CHAR)
2199: IF (x_sgt_rec.attribute5 = OKL_API.G_MISS_CHAR)
2200: THEN
2201: x_sgt_rec.attribute5 := l_sgt_rec.attribute5;
2202: END IF;
2203: IF (x_sgt_rec.attribute6 = OKL_API.G_MISS_CHAR)
2204: THEN
2205: x_sgt_rec.attribute6 := l_sgt_rec.attribute6;
2206: END IF;
2207: IF (x_sgt_rec.attribute7 = OKL_API.G_MISS_CHAR)
2203: IF (x_sgt_rec.attribute6 = OKL_API.G_MISS_CHAR)
2204: THEN
2205: x_sgt_rec.attribute6 := l_sgt_rec.attribute6;
2206: END IF;
2207: IF (x_sgt_rec.attribute7 = OKL_API.G_MISS_CHAR)
2208: THEN
2209: x_sgt_rec.attribute7 := l_sgt_rec.attribute7;
2210: END IF;
2211: IF (x_sgt_rec.attribute8 = OKL_API.G_MISS_CHAR)
2207: IF (x_sgt_rec.attribute7 = OKL_API.G_MISS_CHAR)
2208: THEN
2209: x_sgt_rec.attribute7 := l_sgt_rec.attribute7;
2210: END IF;
2211: IF (x_sgt_rec.attribute8 = OKL_API.G_MISS_CHAR)
2212: THEN
2213: x_sgt_rec.attribute8 := l_sgt_rec.attribute8;
2214: END IF;
2215: IF (x_sgt_rec.attribute9 = OKL_API.G_MISS_CHAR)
2211: IF (x_sgt_rec.attribute8 = OKL_API.G_MISS_CHAR)
2212: THEN
2213: x_sgt_rec.attribute8 := l_sgt_rec.attribute8;
2214: END IF;
2215: IF (x_sgt_rec.attribute9 = OKL_API.G_MISS_CHAR)
2216: THEN
2217: x_sgt_rec.attribute9 := l_sgt_rec.attribute9;
2218: END IF;
2219: IF (x_sgt_rec.attribute10 = OKL_API.G_MISS_CHAR)
2215: IF (x_sgt_rec.attribute9 = OKL_API.G_MISS_CHAR)
2216: THEN
2217: x_sgt_rec.attribute9 := l_sgt_rec.attribute9;
2218: END IF;
2219: IF (x_sgt_rec.attribute10 = OKL_API.G_MISS_CHAR)
2220: THEN
2221: x_sgt_rec.attribute10 := l_sgt_rec.attribute10;
2222: END IF;
2223: IF (x_sgt_rec.attribute11 = OKL_API.G_MISS_CHAR)
2219: IF (x_sgt_rec.attribute10 = OKL_API.G_MISS_CHAR)
2220: THEN
2221: x_sgt_rec.attribute10 := l_sgt_rec.attribute10;
2222: END IF;
2223: IF (x_sgt_rec.attribute11 = OKL_API.G_MISS_CHAR)
2224: THEN
2225: x_sgt_rec.attribute11 := l_sgt_rec.attribute11;
2226: END IF;
2227: IF (x_sgt_rec.attribute12 = OKL_API.G_MISS_CHAR)
2223: IF (x_sgt_rec.attribute11 = OKL_API.G_MISS_CHAR)
2224: THEN
2225: x_sgt_rec.attribute11 := l_sgt_rec.attribute11;
2226: END IF;
2227: IF (x_sgt_rec.attribute12 = OKL_API.G_MISS_CHAR)
2228: THEN
2229: x_sgt_rec.attribute12 := l_sgt_rec.attribute12;
2230: END IF;
2231: IF (x_sgt_rec.attribute13 = OKL_API.G_MISS_CHAR)
2227: IF (x_sgt_rec.attribute12 = OKL_API.G_MISS_CHAR)
2228: THEN
2229: x_sgt_rec.attribute12 := l_sgt_rec.attribute12;
2230: END IF;
2231: IF (x_sgt_rec.attribute13 = OKL_API.G_MISS_CHAR)
2232: THEN
2233: x_sgt_rec.attribute13 := l_sgt_rec.attribute13;
2234: END IF;
2235: IF (x_sgt_rec.attribute14 = OKL_API.G_MISS_CHAR)
2231: IF (x_sgt_rec.attribute13 = OKL_API.G_MISS_CHAR)
2232: THEN
2233: x_sgt_rec.attribute13 := l_sgt_rec.attribute13;
2234: END IF;
2235: IF (x_sgt_rec.attribute14 = OKL_API.G_MISS_CHAR)
2236: THEN
2237: x_sgt_rec.attribute14 := l_sgt_rec.attribute14;
2238: END IF;
2239: IF (x_sgt_rec.attribute15 = OKL_API.G_MISS_CHAR)
2235: IF (x_sgt_rec.attribute14 = OKL_API.G_MISS_CHAR)
2236: THEN
2237: x_sgt_rec.attribute14 := l_sgt_rec.attribute14;
2238: END IF;
2239: IF (x_sgt_rec.attribute15 = OKL_API.G_MISS_CHAR)
2240: THEN
2241: x_sgt_rec.attribute15 := l_sgt_rec.attribute15;
2242: END IF;
2243: IF (x_sgt_rec.created_by = OKL_API.G_MISS_NUM)
2239: IF (x_sgt_rec.attribute15 = OKL_API.G_MISS_CHAR)
2240: THEN
2241: x_sgt_rec.attribute15 := l_sgt_rec.attribute15;
2242: END IF;
2243: IF (x_sgt_rec.created_by = OKL_API.G_MISS_NUM)
2244: THEN
2245: x_sgt_rec.created_by := l_sgt_rec.created_by;
2246: END IF;
2247: IF (x_sgt_rec.creation_date = OKL_API.G_MISS_DATE)
2243: IF (x_sgt_rec.created_by = OKL_API.G_MISS_NUM)
2244: THEN
2245: x_sgt_rec.created_by := l_sgt_rec.created_by;
2246: END IF;
2247: IF (x_sgt_rec.creation_date = OKL_API.G_MISS_DATE)
2248: THEN
2249: x_sgt_rec.creation_date := l_sgt_rec.creation_date;
2250: END IF;
2251: IF (x_sgt_rec.last_updated_by = OKL_API.G_MISS_NUM)
2247: IF (x_sgt_rec.creation_date = OKL_API.G_MISS_DATE)
2248: THEN
2249: x_sgt_rec.creation_date := l_sgt_rec.creation_date;
2250: END IF;
2251: IF (x_sgt_rec.last_updated_by = OKL_API.G_MISS_NUM)
2252: THEN
2253: x_sgt_rec.last_updated_by := l_sgt_rec.last_updated_by;
2254: END IF;
2255: IF (x_sgt_rec.last_update_date = OKL_API.G_MISS_DATE)
2251: IF (x_sgt_rec.last_updated_by = OKL_API.G_MISS_NUM)
2252: THEN
2253: x_sgt_rec.last_updated_by := l_sgt_rec.last_updated_by;
2254: END IF;
2255: IF (x_sgt_rec.last_update_date = OKL_API.G_MISS_DATE)
2256: THEN
2257: x_sgt_rec.last_update_date := l_sgt_rec.last_update_date;
2258: END IF;
2259: IF (x_sgt_rec.last_update_login = OKL_API.G_MISS_NUM)
2255: IF (x_sgt_rec.last_update_date = OKL_API.G_MISS_DATE)
2256: THEN
2257: x_sgt_rec.last_update_date := l_sgt_rec.last_update_date;
2258: END IF;
2259: IF (x_sgt_rec.last_update_login = OKL_API.G_MISS_NUM)
2260: THEN
2261: x_sgt_rec.last_update_login := l_sgt_rec.last_update_login;
2262: END IF;
2263: END IF;
2269: FUNCTION Set_Attributes (
2270: p_sgt_rec IN sgt_rec_type,
2271: x_sgt_rec OUT NOCOPY sgt_rec_type
2272: ) RETURN VARCHAR2 IS
2273: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2274: BEGIN
2275: x_sgt_rec := p_sgt_rec;
2276: x_sgt_rec.OBJECT_VERSION_NUMBER := p_sgt_rec.OBJECT_VERSION_NUMBER + 1;
2277: RETURN(l_return_status);
2276: x_sgt_rec.OBJECT_VERSION_NUMBER := p_sgt_rec.OBJECT_VERSION_NUMBER + 1;
2277: RETURN(l_return_status);
2278: END Set_Attributes;
2279: BEGIN
2280: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2281: p_init_msg_list,
2282: '_PVT',
2283: x_return_status);
2284: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2280: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2281: p_init_msg_list,
2282: '_PVT',
2283: x_return_status);
2284: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2281: p_init_msg_list,
2282: '_PVT',
2283: x_return_status);
2284: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289: --- Setting item attributes
2282: '_PVT',
2283: x_return_status);
2284: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289: --- Setting item attributes
2290: l_return_status := Set_Attributes(
2283: x_return_status);
2284: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2285: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2286: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2287: RAISE OKL_API.G_EXCEPTION_ERROR;
2288: END IF;
2289: --- Setting item attributes
2290: l_return_status := Set_Attributes(
2291: p_sgt_rec, -- IN
2290: l_return_status := Set_Attributes(
2291: p_sgt_rec, -- IN
2292: l_sgt_rec); -- OUT
2293: --- If any errors happen abort API
2294: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2297: RAISE OKL_API.G_EXCEPTION_ERROR;
2298: END IF;
2291: p_sgt_rec, -- IN
2292: l_sgt_rec); -- OUT
2293: --- If any errors happen abort API
2294: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2297: RAISE OKL_API.G_EXCEPTION_ERROR;
2298: END IF;
2299: l_return_status := populate_new_record(l_sgt_rec, l_def_sgt_rec);
2292: l_sgt_rec); -- OUT
2293: --- If any errors happen abort API
2294: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2297: RAISE OKL_API.G_EXCEPTION_ERROR;
2298: END IF;
2299: l_return_status := populate_new_record(l_sgt_rec, l_def_sgt_rec);
2300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2293: --- If any errors happen abort API
2294: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2295: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2297: RAISE OKL_API.G_EXCEPTION_ERROR;
2298: END IF;
2299: l_return_status := populate_new_record(l_sgt_rec, l_def_sgt_rec);
2300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2296: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2297: RAISE OKL_API.G_EXCEPTION_ERROR;
2298: END IF;
2299: l_return_status := populate_new_record(l_sgt_rec, l_def_sgt_rec);
2300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2303: RAISE OKL_API.G_EXCEPTION_ERROR;
2304: END IF;
2297: RAISE OKL_API.G_EXCEPTION_ERROR;
2298: END IF;
2299: l_return_status := populate_new_record(l_sgt_rec, l_def_sgt_rec);
2300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2303: RAISE OKL_API.G_EXCEPTION_ERROR;
2304: END IF;
2305:
2298: END IF;
2299: l_return_status := populate_new_record(l_sgt_rec, l_def_sgt_rec);
2300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2303: RAISE OKL_API.G_EXCEPTION_ERROR;
2304: END IF;
2305:
2306: UPDATE OKL_SGN_TRANSLATIONS
2299: l_return_status := populate_new_record(l_sgt_rec, l_def_sgt_rec);
2300: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2301: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2302: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2303: RAISE OKL_API.G_EXCEPTION_ERROR;
2304: END IF;
2305:
2306: UPDATE OKL_SGN_TRANSLATIONS
2307: SET JTOT_OBJECT1_CODE = l_def_sgt_rec.jtot_object1_code,
2337: WHERE ID = l_def_sgt_rec.id;
2338:
2339: x_sgt_rec := l_sgt_rec;
2340: x_return_status := l_return_status;
2341: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2342: EXCEPTION
2343: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2344:
2345: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2339: x_sgt_rec := l_sgt_rec;
2340: x_return_status := l_return_status;
2341: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2342: EXCEPTION
2343: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2344:
2345: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2346: (
2347: l_api_name,
2341: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2342: EXCEPTION
2343: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2344:
2345: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2346: (
2347: l_api_name,
2348: G_PKG_NAME,
2349: 'OKL_API.G_RET_STS_ERROR',
2345: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2346: (
2347: l_api_name,
2348: G_PKG_NAME,
2349: 'OKL_API.G_RET_STS_ERROR',
2350: x_msg_count,
2351: x_msg_data,
2352: '_PVT'
2353: );
2350: x_msg_count,
2351: x_msg_data,
2352: '_PVT'
2353: );
2354: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2355:
2356: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2357: (
2358: l_api_name,
2352: '_PVT'
2353: );
2354: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2355:
2356: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2357: (
2358: l_api_name,
2359: G_PKG_NAME,
2360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2356: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2357: (
2358: l_api_name,
2359: G_PKG_NAME,
2360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2361: x_msg_count,
2362: x_msg_data,
2363: '_PVT'
2364: );
2363: '_PVT'
2364: );
2365: WHEN OTHERS THEN
2366:
2367: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2368: (
2369: l_api_name,
2370: G_PKG_NAME,
2371: 'OTHERS',
2378: -- update_row for:OKL_SGN_TRANSLATIONS_V --
2379: -------------------------------------------
2380: PROCEDURE update_row(
2381: p_api_version IN NUMBER,
2382: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2383: x_return_status OUT NOCOPY VARCHAR2,
2384: x_msg_count OUT NOCOPY NUMBER,
2385: x_msg_data OUT NOCOPY VARCHAR2,
2386: p_sgnv_rec IN sgnv_rec_type,
2387: x_sgnv_rec OUT NOCOPY sgnv_rec_type) IS
2388:
2389: l_api_version CONSTANT NUMBER := 1;
2390: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2391: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2392: l_sgnv_rec sgnv_rec_type := p_sgnv_rec;
2393: l_def_sgnv_rec sgnv_rec_type;
2394: l_db_sgnv_rec sgnv_rec_type;
2395: l_sgt_rec sgt_rec_type;
2416: p_sgnv_rec IN sgnv_rec_type,
2417: x_sgnv_rec OUT NOCOPY sgnv_rec_type
2418: ) RETURN VARCHAR2 IS
2419: l_row_notfound BOOLEAN := TRUE;
2420: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2421: BEGIN
2422: x_sgnv_rec := p_sgnv_rec;
2423: -- Get current database values
2424: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2423: -- Get current database values
2424: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2425: -- so it may be verified through LOCK_ROW.
2426: l_db_sgnv_rec := get_rec(p_sgnv_rec, l_return_status);
2427: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2428: IF (x_sgnv_rec.id = OKL_API.G_MISS_NUM)
2429: THEN
2430: x_sgnv_rec.id := l_db_sgnv_rec.id;
2431: END IF;
2424: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
2425: -- so it may be verified through LOCK_ROW.
2426: l_db_sgnv_rec := get_rec(p_sgnv_rec, l_return_status);
2427: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
2428: IF (x_sgnv_rec.id = OKL_API.G_MISS_NUM)
2429: THEN
2430: x_sgnv_rec.id := l_db_sgnv_rec.id;
2431: END IF;
2432: IF (x_sgnv_rec.jtot_object1_code = OKL_API.G_MISS_CHAR)
2428: IF (x_sgnv_rec.id = OKL_API.G_MISS_NUM)
2429: THEN
2430: x_sgnv_rec.id := l_db_sgnv_rec.id;
2431: END IF;
2432: IF (x_sgnv_rec.jtot_object1_code = OKL_API.G_MISS_CHAR)
2433: THEN
2434: x_sgnv_rec.jtot_object1_code := l_db_sgnv_rec.jtot_object1_code;
2435: END IF;
2436: IF (x_sgnv_rec.object1_id1 = OKL_API.G_MISS_CHAR)
2432: IF (x_sgnv_rec.jtot_object1_code = OKL_API.G_MISS_CHAR)
2433: THEN
2434: x_sgnv_rec.jtot_object1_code := l_db_sgnv_rec.jtot_object1_code;
2435: END IF;
2436: IF (x_sgnv_rec.object1_id1 = OKL_API.G_MISS_CHAR)
2437: THEN
2438: x_sgnv_rec.object1_id1 := l_db_sgnv_rec.object1_id1;
2439: END IF;
2440: IF (x_sgnv_rec.object1_id2 = OKL_API.G_MISS_CHAR)
2436: IF (x_sgnv_rec.object1_id1 = OKL_API.G_MISS_CHAR)
2437: THEN
2438: x_sgnv_rec.object1_id1 := l_db_sgnv_rec.object1_id1;
2439: END IF;
2440: IF (x_sgnv_rec.object1_id2 = OKL_API.G_MISS_CHAR)
2441: THEN
2442: x_sgnv_rec.object1_id2 := l_db_sgnv_rec.object1_id2;
2443: END IF;
2444: IF (x_sgnv_rec.sgn_code = OKL_API.G_MISS_CHAR)
2440: IF (x_sgnv_rec.object1_id2 = OKL_API.G_MISS_CHAR)
2441: THEN
2442: x_sgnv_rec.object1_id2 := l_db_sgnv_rec.object1_id2;
2443: END IF;
2444: IF (x_sgnv_rec.sgn_code = OKL_API.G_MISS_CHAR)
2445: THEN
2446: x_sgnv_rec.sgn_code := l_db_sgnv_rec.sgn_code;
2447: END IF;
2448: IF (x_sgnv_rec.value = OKL_API.G_MISS_CHAR)
2444: IF (x_sgnv_rec.sgn_code = OKL_API.G_MISS_CHAR)
2445: THEN
2446: x_sgnv_rec.sgn_code := l_db_sgnv_rec.sgn_code;
2447: END IF;
2448: IF (x_sgnv_rec.value = OKL_API.G_MISS_CHAR)
2449: THEN
2450: x_sgnv_rec.value := l_db_sgnv_rec.value;
2451: END IF;
2452: IF (x_sgnv_rec.default_value = OKL_API.G_MISS_CHAR)
2448: IF (x_sgnv_rec.value = OKL_API.G_MISS_CHAR)
2449: THEN
2450: x_sgnv_rec.value := l_db_sgnv_rec.value;
2451: END IF;
2452: IF (x_sgnv_rec.default_value = OKL_API.G_MISS_CHAR)
2453: THEN
2454: x_sgnv_rec.default_value := l_db_sgnv_rec.default_value;
2455: END IF;
2456: IF (x_sgnv_rec.active_yn = OKL_API.G_MISS_CHAR)
2452: IF (x_sgnv_rec.default_value = OKL_API.G_MISS_CHAR)
2453: THEN
2454: x_sgnv_rec.default_value := l_db_sgnv_rec.default_value;
2455: END IF;
2456: IF (x_sgnv_rec.active_yn = OKL_API.G_MISS_CHAR)
2457: THEN
2458: x_sgnv_rec.active_yn := l_db_sgnv_rec.active_yn;
2459: END IF;
2460: IF (x_sgnv_rec.start_date = OKL_API.G_MISS_DATE)
2456: IF (x_sgnv_rec.active_yn = OKL_API.G_MISS_CHAR)
2457: THEN
2458: x_sgnv_rec.active_yn := l_db_sgnv_rec.active_yn;
2459: END IF;
2460: IF (x_sgnv_rec.start_date = OKL_API.G_MISS_DATE)
2461: THEN
2462: x_sgnv_rec.start_date := l_db_sgnv_rec.start_date;
2463: END IF;
2464: IF (x_sgnv_rec.end_date = OKL_API.G_MISS_DATE)
2460: IF (x_sgnv_rec.start_date = OKL_API.G_MISS_DATE)
2461: THEN
2462: x_sgnv_rec.start_date := l_db_sgnv_rec.start_date;
2463: END IF;
2464: IF (x_sgnv_rec.end_date = OKL_API.G_MISS_DATE)
2465: THEN
2466: x_sgnv_rec.end_date := l_db_sgnv_rec.end_date;
2467: END IF;
2468: IF (x_sgnv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2464: IF (x_sgnv_rec.end_date = OKL_API.G_MISS_DATE)
2465: THEN
2466: x_sgnv_rec.end_date := l_db_sgnv_rec.end_date;
2467: END IF;
2468: IF (x_sgnv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2469: THEN
2470: x_sgnv_rec.attribute1 := l_db_sgnv_rec.attribute1;
2471: END IF;
2472: IF (x_sgnv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2468: IF (x_sgnv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2469: THEN
2470: x_sgnv_rec.attribute1 := l_db_sgnv_rec.attribute1;
2471: END IF;
2472: IF (x_sgnv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2473: THEN
2474: x_sgnv_rec.attribute2 := l_db_sgnv_rec.attribute2;
2475: END IF;
2476: IF (x_sgnv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2472: IF (x_sgnv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2473: THEN
2474: x_sgnv_rec.attribute2 := l_db_sgnv_rec.attribute2;
2475: END IF;
2476: IF (x_sgnv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2477: THEN
2478: x_sgnv_rec.attribute3 := l_db_sgnv_rec.attribute3;
2479: END IF;
2480: IF (x_sgnv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2476: IF (x_sgnv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2477: THEN
2478: x_sgnv_rec.attribute3 := l_db_sgnv_rec.attribute3;
2479: END IF;
2480: IF (x_sgnv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2481: THEN
2482: x_sgnv_rec.attribute4 := l_db_sgnv_rec.attribute4;
2483: END IF;
2484: IF (x_sgnv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2480: IF (x_sgnv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2481: THEN
2482: x_sgnv_rec.attribute4 := l_db_sgnv_rec.attribute4;
2483: END IF;
2484: IF (x_sgnv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2485: THEN
2486: x_sgnv_rec.attribute5 := l_db_sgnv_rec.attribute5;
2487: END IF;
2488: IF (x_sgnv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2484: IF (x_sgnv_rec.attribute5 = OKL_API.G_MISS_CHAR)
2485: THEN
2486: x_sgnv_rec.attribute5 := l_db_sgnv_rec.attribute5;
2487: END IF;
2488: IF (x_sgnv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2489: THEN
2490: x_sgnv_rec.attribute6 := l_db_sgnv_rec.attribute6;
2491: END IF;
2492: IF (x_sgnv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2488: IF (x_sgnv_rec.attribute6 = OKL_API.G_MISS_CHAR)
2489: THEN
2490: x_sgnv_rec.attribute6 := l_db_sgnv_rec.attribute6;
2491: END IF;
2492: IF (x_sgnv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2493: THEN
2494: x_sgnv_rec.attribute7 := l_db_sgnv_rec.attribute7;
2495: END IF;
2496: IF (x_sgnv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2492: IF (x_sgnv_rec.attribute7 = OKL_API.G_MISS_CHAR)
2493: THEN
2494: x_sgnv_rec.attribute7 := l_db_sgnv_rec.attribute7;
2495: END IF;
2496: IF (x_sgnv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2497: THEN
2498: x_sgnv_rec.attribute8 := l_db_sgnv_rec.attribute8;
2499: END IF;
2500: IF (x_sgnv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2496: IF (x_sgnv_rec.attribute8 = OKL_API.G_MISS_CHAR)
2497: THEN
2498: x_sgnv_rec.attribute8 := l_db_sgnv_rec.attribute8;
2499: END IF;
2500: IF (x_sgnv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2501: THEN
2502: x_sgnv_rec.attribute9 := l_db_sgnv_rec.attribute9;
2503: END IF;
2504: IF (x_sgnv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2500: IF (x_sgnv_rec.attribute9 = OKL_API.G_MISS_CHAR)
2501: THEN
2502: x_sgnv_rec.attribute9 := l_db_sgnv_rec.attribute9;
2503: END IF;
2504: IF (x_sgnv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2505: THEN
2506: x_sgnv_rec.attribute10 := l_db_sgnv_rec.attribute10;
2507: END IF;
2508: IF (x_sgnv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2504: IF (x_sgnv_rec.attribute10 = OKL_API.G_MISS_CHAR)
2505: THEN
2506: x_sgnv_rec.attribute10 := l_db_sgnv_rec.attribute10;
2507: END IF;
2508: IF (x_sgnv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2509: THEN
2510: x_sgnv_rec.attribute11 := l_db_sgnv_rec.attribute11;
2511: END IF;
2512: IF (x_sgnv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2508: IF (x_sgnv_rec.attribute11 = OKL_API.G_MISS_CHAR)
2509: THEN
2510: x_sgnv_rec.attribute11 := l_db_sgnv_rec.attribute11;
2511: END IF;
2512: IF (x_sgnv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2513: THEN
2514: x_sgnv_rec.attribute12 := l_db_sgnv_rec.attribute12;
2515: END IF;
2516: IF (x_sgnv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2512: IF (x_sgnv_rec.attribute12 = OKL_API.G_MISS_CHAR)
2513: THEN
2514: x_sgnv_rec.attribute12 := l_db_sgnv_rec.attribute12;
2515: END IF;
2516: IF (x_sgnv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2517: THEN
2518: x_sgnv_rec.attribute13 := l_db_sgnv_rec.attribute13;
2519: END IF;
2520: IF (x_sgnv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2516: IF (x_sgnv_rec.attribute13 = OKL_API.G_MISS_CHAR)
2517: THEN
2518: x_sgnv_rec.attribute13 := l_db_sgnv_rec.attribute13;
2519: END IF;
2520: IF (x_sgnv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2521: THEN
2522: x_sgnv_rec.attribute14 := l_db_sgnv_rec.attribute14;
2523: END IF;
2524: IF (x_sgnv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2520: IF (x_sgnv_rec.attribute14 = OKL_API.G_MISS_CHAR)
2521: THEN
2522: x_sgnv_rec.attribute14 := l_db_sgnv_rec.attribute14;
2523: END IF;
2524: IF (x_sgnv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2525: THEN
2526: x_sgnv_rec.attribute15 := l_db_sgnv_rec.attribute15;
2527: END IF;
2528: IF (x_sgnv_rec.created_by = OKL_API.G_MISS_NUM)
2524: IF (x_sgnv_rec.attribute15 = OKL_API.G_MISS_CHAR)
2525: THEN
2526: x_sgnv_rec.attribute15 := l_db_sgnv_rec.attribute15;
2527: END IF;
2528: IF (x_sgnv_rec.created_by = OKL_API.G_MISS_NUM)
2529: THEN
2530: x_sgnv_rec.created_by := l_db_sgnv_rec.created_by;
2531: END IF;
2532: IF (x_sgnv_rec.creation_date = OKL_API.G_MISS_DATE)
2528: IF (x_sgnv_rec.created_by = OKL_API.G_MISS_NUM)
2529: THEN
2530: x_sgnv_rec.created_by := l_db_sgnv_rec.created_by;
2531: END IF;
2532: IF (x_sgnv_rec.creation_date = OKL_API.G_MISS_DATE)
2533: THEN
2534: x_sgnv_rec.creation_date := l_db_sgnv_rec.creation_date;
2535: END IF;
2536: IF (x_sgnv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2532: IF (x_sgnv_rec.creation_date = OKL_API.G_MISS_DATE)
2533: THEN
2534: x_sgnv_rec.creation_date := l_db_sgnv_rec.creation_date;
2535: END IF;
2536: IF (x_sgnv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2537: THEN
2538: x_sgnv_rec.last_updated_by := l_db_sgnv_rec.last_updated_by;
2539: END IF;
2540: IF (x_sgnv_rec.last_update_date = OKL_API.G_MISS_DATE)
2536: IF (x_sgnv_rec.last_updated_by = OKL_API.G_MISS_NUM)
2537: THEN
2538: x_sgnv_rec.last_updated_by := l_db_sgnv_rec.last_updated_by;
2539: END IF;
2540: IF (x_sgnv_rec.last_update_date = OKL_API.G_MISS_DATE)
2541: THEN
2542: x_sgnv_rec.last_update_date := l_db_sgnv_rec.last_update_date;
2543: END IF;
2544: IF (x_sgnv_rec.last_update_login = OKL_API.G_MISS_NUM)
2540: IF (x_sgnv_rec.last_update_date = OKL_API.G_MISS_DATE)
2541: THEN
2542: x_sgnv_rec.last_update_date := l_db_sgnv_rec.last_update_date;
2543: END IF;
2544: IF (x_sgnv_rec.last_update_login = OKL_API.G_MISS_NUM)
2545: THEN
2546: x_sgnv_rec.last_update_login := l_db_sgnv_rec.last_update_login;
2547: END IF;
2548: END IF;
2554: FUNCTION Set_Attributes (
2555: p_sgnv_rec IN sgnv_rec_type,
2556: x_sgnv_rec OUT NOCOPY sgnv_rec_type
2557: ) RETURN VARCHAR2 IS
2558: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2559: BEGIN
2560: x_sgnv_rec := p_sgnv_rec;
2561: RETURN(l_return_status);
2562: END Set_Attributes;
2560: x_sgnv_rec := p_sgnv_rec;
2561: RETURN(l_return_status);
2562: END Set_Attributes;
2563: BEGIN
2564: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2565: G_PKG_NAME,
2566: p_init_msg_list,
2567: l_api_version,
2568: p_api_version,
2567: l_api_version,
2568: p_api_version,
2569: '_PVT',
2570: x_return_status);
2571: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2568: p_api_version,
2569: '_PVT',
2570: x_return_status);
2571: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: --- Setting item attributes
2569: '_PVT',
2570: x_return_status);
2571: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: --- Setting item attributes
2577: l_return_status := Set_Attributes(
2570: x_return_status);
2571: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2572: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2573: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2574: RAISE OKL_API.G_EXCEPTION_ERROR;
2575: END IF;
2576: --- Setting item attributes
2577: l_return_status := Set_Attributes(
2578: p_sgnv_rec, -- IN
2580: --- If any errors happen abort API
2581:
2582:
2583:
2584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2581:
2582:
2583:
2584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: l_return_status := populate_new_record(l_sgnv_rec, l_def_sgnv_rec);
2582:
2583:
2584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: l_return_status := populate_new_record(l_sgnv_rec, l_def_sgnv_rec);
2590:
2583:
2584: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2585: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2586: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: l_return_status := populate_new_record(l_sgnv_rec, l_def_sgnv_rec);
2590:
2591: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2587: RAISE OKL_API.G_EXCEPTION_ERROR;
2588: END IF;
2589: l_return_status := populate_new_record(l_sgnv_rec, l_def_sgnv_rec);
2590:
2591: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2588: END IF;
2589: l_return_status := populate_new_record(l_sgnv_rec, l_def_sgnv_rec);
2590:
2591: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2596: l_def_sgnv_rec := fill_who_columns(l_def_sgnv_rec);
2589: l_return_status := populate_new_record(l_sgnv_rec, l_def_sgnv_rec);
2590:
2591: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2596: l_def_sgnv_rec := fill_who_columns(l_def_sgnv_rec);
2597: --- Validate all non-missing attributes (Item Level Validation)
2590:
2591: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: RAISE OKL_API.G_EXCEPTION_ERROR;
2595: END IF;
2596: l_def_sgnv_rec := fill_who_columns(l_def_sgnv_rec);
2597: --- Validate all non-missing attributes (Item Level Validation)
2598: l_return_status := Validate_Attributes(l_def_sgnv_rec);
2597: --- Validate all non-missing attributes (Item Level Validation)
2598: l_return_status := Validate_Attributes(l_def_sgnv_rec);
2599:
2600: --- If any errors happen abort API
2601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2604: RAISE OKL_API.G_EXCEPTION_ERROR;
2605: END IF;
2598: l_return_status := Validate_Attributes(l_def_sgnv_rec);
2599:
2600: --- If any errors happen abort API
2601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2604: RAISE OKL_API.G_EXCEPTION_ERROR;
2605: END IF;
2606: l_return_status := Validate_Record(l_def_sgnv_rec, l_db_sgnv_rec);
2599:
2600: --- If any errors happen abort API
2601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2604: RAISE OKL_API.G_EXCEPTION_ERROR;
2605: END IF;
2606: l_return_status := Validate_Record(l_def_sgnv_rec, l_db_sgnv_rec);
2607:
2600: --- If any errors happen abort API
2601: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2602: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2604: RAISE OKL_API.G_EXCEPTION_ERROR;
2605: END IF;
2606: l_return_status := Validate_Record(l_def_sgnv_rec, l_db_sgnv_rec);
2607:
2608: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2604: RAISE OKL_API.G_EXCEPTION_ERROR;
2605: END IF;
2606: l_return_status := Validate_Record(l_def_sgnv_rec, l_db_sgnv_rec);
2607:
2608: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2611: RAISE OKL_API.G_EXCEPTION_ERROR;
2612: END IF;
2605: END IF;
2606: l_return_status := Validate_Record(l_def_sgnv_rec, l_db_sgnv_rec);
2607:
2608: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2611: RAISE OKL_API.G_EXCEPTION_ERROR;
2612: END IF;
2613:
2606: l_return_status := Validate_Record(l_def_sgnv_rec, l_db_sgnv_rec);
2607:
2608: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2611: RAISE OKL_API.G_EXCEPTION_ERROR;
2612: END IF;
2613:
2614: -- Lock the Record
2607:
2608: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2609: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2610: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2611: RAISE OKL_API.G_EXCEPTION_ERROR;
2612: END IF;
2613:
2614: -- Lock the Record
2615: lock_row(
2619: x_msg_count => x_msg_count,
2620: x_msg_data => x_msg_data,
2621: p_sgnv_rec => p_sgnv_rec);
2622:
2623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2626: RAISE OKL_API.G_EXCEPTION_ERROR;
2627: END IF;
2620: x_msg_data => x_msg_data,
2621: p_sgnv_rec => p_sgnv_rec);
2622:
2623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2626: RAISE OKL_API.G_EXCEPTION_ERROR;
2627: END IF;
2628:
2621: p_sgnv_rec => p_sgnv_rec);
2622:
2623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2626: RAISE OKL_API.G_EXCEPTION_ERROR;
2627: END IF;
2628:
2629: -----------------------------------------
2622:
2623: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2624: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2625: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2626: RAISE OKL_API.G_EXCEPTION_ERROR;
2627: END IF;
2628:
2629: -----------------------------------------
2630: -- Move VIEW record to "Child" records --
2641: l_sgt_rec,
2642: lx_sgt_rec
2643: );
2644:
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2642: lx_sgt_rec
2643: );
2644:
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650: migrate(lx_sgt_rec, l_def_sgnv_rec);
2643: );
2644:
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650: migrate(lx_sgt_rec, l_def_sgnv_rec);
2651: x_sgnv_rec := l_def_sgnv_rec;
2644:
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650: migrate(lx_sgt_rec, l_def_sgnv_rec);
2651: x_sgnv_rec := l_def_sgnv_rec;
2652: x_return_status := l_return_status;
2649: END IF;
2650: migrate(lx_sgt_rec, l_def_sgnv_rec);
2651: x_sgnv_rec := l_def_sgnv_rec;
2652: x_return_status := l_return_status;
2653: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2654: EXCEPTION
2655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2656: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2657: (
2651: x_sgnv_rec := l_def_sgnv_rec;
2652: x_return_status := l_return_status;
2653: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2654: EXCEPTION
2655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2656: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2657: (
2658: l_api_name,
2659: G_PKG_NAME,
2652: x_return_status := l_return_status;
2653: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2654: EXCEPTION
2655: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2656: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2657: (
2658: l_api_name,
2659: G_PKG_NAME,
2660: 'OKL_API.G_RET_STS_ERROR',
2656: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2657: (
2658: l_api_name,
2659: G_PKG_NAME,
2660: 'OKL_API.G_RET_STS_ERROR',
2661: x_msg_count,
2662: x_msg_data,
2663: '_PVT'
2664: );
2661: x_msg_count,
2662: x_msg_data,
2663: '_PVT'
2664: );
2665: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2666: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2667: (
2668: l_api_name,
2669: G_PKG_NAME,
2662: x_msg_data,
2663: '_PVT'
2664: );
2665: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2666: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2667: (
2668: l_api_name,
2669: G_PKG_NAME,
2670: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2666: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2667: (
2668: l_api_name,
2669: G_PKG_NAME,
2670: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2671: x_msg_count,
2672: x_msg_data,
2673: '_PVT'
2674: );
2672: x_msg_data,
2673: '_PVT'
2674: );
2675: WHEN OTHERS THEN
2676: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2677: (
2678: l_api_name,
2679: G_PKG_NAME,
2680: 'OTHERS',
2687: -- PL/SQL TBL update_row for:sgnv_tbl --
2688: ----------------------------------------
2689: PROCEDURE update_row(
2690: p_api_version IN NUMBER,
2691: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2692: x_return_status OUT NOCOPY VARCHAR2,
2693: x_msg_count OUT NOCOPY NUMBER,
2694: x_msg_data OUT NOCOPY VARCHAR2,
2695: p_sgnv_tbl IN sgnv_tbl_type,
2693: x_msg_count OUT NOCOPY NUMBER,
2694: x_msg_data OUT NOCOPY VARCHAR2,
2695: p_sgnv_tbl IN sgnv_tbl_type,
2696: x_sgnv_tbl OUT NOCOPY sgnv_tbl_type,
2697: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2698:
2699: l_api_version CONSTANT NUMBER := 1;
2700: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2701: i NUMBER := 0;
2699: l_api_version CONSTANT NUMBER := 1;
2700: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2701: i NUMBER := 0;
2702: BEGIN
2703: OKL_API.init_msg_list(p_init_msg_list);
2704: -- Make sure PL/SQL table has records in it before passing
2705: IF (p_sgnv_tbl.COUNT > 0) THEN
2706: i := p_sgnv_tbl.FIRST;
2707: LOOP
2705: IF (p_sgnv_tbl.COUNT > 0) THEN
2706: i := p_sgnv_tbl.FIRST;
2707: LOOP
2708: DECLARE
2709: l_error_rec OKL_API.ERROR_REC_TYPE;
2710: BEGIN
2711: l_error_rec.api_name := l_api_name;
2712: l_error_rec.api_package := G_PKG_NAME;
2713: l_error_rec.idx := i;
2712: l_error_rec.api_package := G_PKG_NAME;
2713: l_error_rec.idx := i;
2714: update_row (
2715: p_api_version => p_api_version,
2716: p_init_msg_list => OKL_API.G_FALSE,
2717: x_return_status => l_error_rec.error_type,
2718: x_msg_count => l_error_rec.msg_count,
2719: x_msg_data => l_error_rec.msg_data,
2720: p_sgnv_rec => p_sgnv_tbl(i),
2718: x_msg_count => l_error_rec.msg_count,
2719: x_msg_data => l_error_rec.msg_data,
2720: p_sgnv_rec => p_sgnv_tbl(i),
2721: x_sgnv_rec => x_sgnv_tbl(i));
2722: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2723: l_error_rec.sqlcode := SQLCODE;
2724: load_error_tbl(l_error_rec, px_error_tbl);
2725: ELSE
2726: x_msg_count := l_error_rec.msg_count;
2726: x_msg_count := l_error_rec.msg_count;
2727: x_msg_data := l_error_rec.msg_data;
2728: END IF;
2729: EXCEPTION
2730: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2731: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2732: l_error_rec.sqlcode := SQLCODE;
2733: load_error_tbl(l_error_rec, px_error_tbl);
2734: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2727: x_msg_data := l_error_rec.msg_data;
2728: END IF;
2729: EXCEPTION
2730: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2731: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2732: l_error_rec.sqlcode := SQLCODE;
2733: load_error_tbl(l_error_rec, px_error_tbl);
2734: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2735: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2730: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2731: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2732: l_error_rec.sqlcode := SQLCODE;
2733: load_error_tbl(l_error_rec, px_error_tbl);
2734: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2735: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2736: l_error_rec.sqlcode := SQLCODE;
2737: load_error_tbl(l_error_rec, px_error_tbl);
2738: WHEN OTHERS THEN
2731: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2732: l_error_rec.sqlcode := SQLCODE;
2733: load_error_tbl(l_error_rec, px_error_tbl);
2734: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2735: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2736: l_error_rec.sqlcode := SQLCODE;
2737: load_error_tbl(l_error_rec, px_error_tbl);
2738: WHEN OTHERS THEN
2739: l_error_rec.error_type := 'OTHERS';
2746: END IF;
2747: -- Loop through the error_tbl to find the error with the highest severity
2748: -- and return it.
2749: x_return_status := find_highest_exception(px_error_tbl);
2750: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2751: EXCEPTION
2752: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2753: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2754: (
2748: -- and return it.
2749: x_return_status := find_highest_exception(px_error_tbl);
2750: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2751: EXCEPTION
2752: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2753: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2754: (
2755: l_api_name,
2756: G_PKG_NAME,
2749: x_return_status := find_highest_exception(px_error_tbl);
2750: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2751: EXCEPTION
2752: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2753: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2754: (
2755: l_api_name,
2756: G_PKG_NAME,
2757: 'OKL_API.G_RET_STS_ERROR',
2753: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2754: (
2755: l_api_name,
2756: G_PKG_NAME,
2757: 'OKL_API.G_RET_STS_ERROR',
2758: x_msg_count,
2759: x_msg_data,
2760: '_PVT'
2761: );
2758: x_msg_count,
2759: x_msg_data,
2760: '_PVT'
2761: );
2762: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2763: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2764: (
2765: l_api_name,
2766: G_PKG_NAME,
2759: x_msg_data,
2760: '_PVT'
2761: );
2762: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2763: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2764: (
2765: l_api_name,
2766: G_PKG_NAME,
2767: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2763: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2764: (
2765: l_api_name,
2766: G_PKG_NAME,
2767: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2768: x_msg_count,
2769: x_msg_data,
2770: '_PVT'
2771: );
2769: x_msg_data,
2770: '_PVT'
2771: );
2772: WHEN OTHERS THEN
2773: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2774: (
2775: l_api_name,
2776: G_PKG_NAME,
2777: 'OTHERS',
2785: -- PL/SQL TBL update_row for:SGNV_TBL --
2786: ----------------------------------------
2787: PROCEDURE update_row(
2788: p_api_version IN NUMBER,
2789: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2790: x_return_status OUT NOCOPY VARCHAR2,
2791: x_msg_count OUT NOCOPY NUMBER,
2792: x_msg_data OUT NOCOPY VARCHAR2,
2793: p_sgnv_tbl IN sgnv_tbl_type,
2794: x_sgnv_tbl OUT NOCOPY sgnv_tbl_type) IS
2795:
2796: l_api_version CONSTANT NUMBER := 1;
2797: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2798: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2799: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2800: BEGIN
2801: OKL_API.init_msg_list(p_init_msg_list);
2802: -- Make sure PL/SQL table has records in it before passing
2795:
2796: l_api_version CONSTANT NUMBER := 1;
2797: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2798: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2799: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2800: BEGIN
2801: OKL_API.init_msg_list(p_init_msg_list);
2802: -- Make sure PL/SQL table has records in it before passing
2803: IF (p_sgnv_tbl.COUNT > 0) THEN
2797: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2798: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2799: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2800: BEGIN
2801: OKL_API.init_msg_list(p_init_msg_list);
2802: -- Make sure PL/SQL table has records in it before passing
2803: IF (p_sgnv_tbl.COUNT > 0) THEN
2804: update_row (
2805: p_api_version => p_api_version,
2802: -- Make sure PL/SQL table has records in it before passing
2803: IF (p_sgnv_tbl.COUNT > 0) THEN
2804: update_row (
2805: p_api_version => p_api_version,
2806: p_init_msg_list => OKL_API.G_FALSE,
2807: x_return_status => x_return_status,
2808: x_msg_count => x_msg_count,
2809: x_msg_data => x_msg_data,
2810: p_sgnv_tbl => p_sgnv_tbl,
2810: p_sgnv_tbl => p_sgnv_tbl,
2811: x_sgnv_tbl => x_sgnv_tbl,
2812: px_error_tbl => l_error_tbl);
2813: END IF;
2814: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2815: EXCEPTION
2816: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2818: (
2812: px_error_tbl => l_error_tbl);
2813: END IF;
2814: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2815: EXCEPTION
2816: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2818: (
2819: l_api_name,
2820: G_PKG_NAME,
2813: END IF;
2814: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2815: EXCEPTION
2816: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2818: (
2819: l_api_name,
2820: G_PKG_NAME,
2821: 'OKL_API.G_RET_STS_ERROR',
2817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2818: (
2819: l_api_name,
2820: G_PKG_NAME,
2821: 'OKL_API.G_RET_STS_ERROR',
2822: x_msg_count,
2823: x_msg_data,
2824: '_PVT'
2825: );
2822: x_msg_count,
2823: x_msg_data,
2824: '_PVT'
2825: );
2826: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2827: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2828: (
2829: l_api_name,
2830: G_PKG_NAME,
2823: x_msg_data,
2824: '_PVT'
2825: );
2826: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2827: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2828: (
2829: l_api_name,
2830: G_PKG_NAME,
2831: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2827: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2828: (
2829: l_api_name,
2830: G_PKG_NAME,
2831: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2832: x_msg_count,
2833: x_msg_data,
2834: '_PVT'
2835: );
2833: x_msg_data,
2834: '_PVT'
2835: );
2836: WHEN OTHERS THEN
2837: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2838: (
2839: l_api_name,
2840: G_PKG_NAME,
2841: 'OTHERS',
2851: -----------------------------------------
2852: -- delete_row for:OKL_SGN_TRANSLATIONS --
2853: -----------------------------------------
2854: PROCEDURE delete_row(
2855: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2856: x_return_status OUT NOCOPY VARCHAR2,
2857: x_msg_count OUT NOCOPY NUMBER,
2858: x_msg_data OUT NOCOPY VARCHAR2,
2859: p_sgt_rec IN sgt_rec_type) IS
2859: p_sgt_rec IN sgt_rec_type) IS
2860:
2861: l_api_version CONSTANT NUMBER := 1;
2862: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
2863: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2864: l_sgt_rec sgt_rec_type := p_sgt_rec;
2865: l_row_notfound BOOLEAN := TRUE;
2866: BEGIN
2867: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2863: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2864: l_sgt_rec sgt_rec_type := p_sgt_rec;
2865: l_row_notfound BOOLEAN := TRUE;
2866: BEGIN
2867: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2868: p_init_msg_list,
2869: '_PVT',
2870: x_return_status);
2871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2867: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2868: p_init_msg_list,
2869: '_PVT',
2870: x_return_status);
2871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2873: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2874: RAISE OKL_API.G_EXCEPTION_ERROR;
2875: END IF;
2868: p_init_msg_list,
2869: '_PVT',
2870: x_return_status);
2871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2873: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2874: RAISE OKL_API.G_EXCEPTION_ERROR;
2875: END IF;
2876:
2869: '_PVT',
2870: x_return_status);
2871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2873: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2874: RAISE OKL_API.G_EXCEPTION_ERROR;
2875: END IF;
2876:
2877: DELETE FROM OKL_SGN_TRANSLATIONS
2870: x_return_status);
2871: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2872: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2873: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2874: RAISE OKL_API.G_EXCEPTION_ERROR;
2875: END IF;
2876:
2877: DELETE FROM OKL_SGN_TRANSLATIONS
2878: WHERE ID = p_sgt_rec.id;
2877: DELETE FROM OKL_SGN_TRANSLATIONS
2878: WHERE ID = p_sgt_rec.id;
2879:
2880: x_return_status := l_return_status;
2881: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2882: EXCEPTION
2883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2884: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2885: (
2879:
2880: x_return_status := l_return_status;
2881: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2882: EXCEPTION
2883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2884: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2885: (
2886: l_api_name,
2887: G_PKG_NAME,
2880: x_return_status := l_return_status;
2881: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2882: EXCEPTION
2883: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2884: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2885: (
2886: l_api_name,
2887: G_PKG_NAME,
2888: 'OKL_API.G_RET_STS_ERROR',
2884: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2885: (
2886: l_api_name,
2887: G_PKG_NAME,
2888: 'OKL_API.G_RET_STS_ERROR',
2889: x_msg_count,
2890: x_msg_data,
2891: '_PVT'
2892: );
2889: x_msg_count,
2890: x_msg_data,
2891: '_PVT'
2892: );
2893: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2894: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2895: (
2896: l_api_name,
2897: G_PKG_NAME,
2890: x_msg_data,
2891: '_PVT'
2892: );
2893: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2894: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2895: (
2896: l_api_name,
2897: G_PKG_NAME,
2898: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2894: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2895: (
2896: l_api_name,
2897: G_PKG_NAME,
2898: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2899: x_msg_count,
2900: x_msg_data,
2901: '_PVT'
2902: );
2900: x_msg_data,
2901: '_PVT'
2902: );
2903: WHEN OTHERS THEN
2904: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2905: (
2906: l_api_name,
2907: G_PKG_NAME,
2908: 'OTHERS',
2915: -- delete_row for:OKL_SGN_TRANSLATIONS_V --
2916: -------------------------------------------
2917: PROCEDURE delete_row(
2918: p_api_version IN NUMBER,
2919: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2920: x_return_status OUT NOCOPY VARCHAR2,
2921: x_msg_count OUT NOCOPY NUMBER,
2922: x_msg_data OUT NOCOPY VARCHAR2,
2923: p_sgnv_rec IN sgnv_rec_type) IS
2923: p_sgnv_rec IN sgnv_rec_type) IS
2924:
2925: l_api_version CONSTANT NUMBER := 1;
2926: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2927: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2928: l_sgnv_rec sgnv_rec_type := p_sgnv_rec;
2929: l_sgt_rec sgt_rec_type;
2930: BEGIN
2931: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2927: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2928: l_sgnv_rec sgnv_rec_type := p_sgnv_rec;
2929: l_sgt_rec sgt_rec_type;
2930: BEGIN
2931: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2932: G_PKG_NAME,
2933: p_init_msg_list,
2934: l_api_version,
2935: p_api_version,
2934: l_api_version,
2935: p_api_version,
2936: '_PVT',
2937: x_return_status);
2938: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2940: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2941: RAISE OKL_API.G_EXCEPTION_ERROR;
2942: END IF;
2935: p_api_version,
2936: '_PVT',
2937: x_return_status);
2938: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2940: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2941: RAISE OKL_API.G_EXCEPTION_ERROR;
2942: END IF;
2943: -----------------------------------------
2936: '_PVT',
2937: x_return_status);
2938: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2940: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2941: RAISE OKL_API.G_EXCEPTION_ERROR;
2942: END IF;
2943: -----------------------------------------
2944: -- Move VIEW record to "Child" records --
2937: x_return_status);
2938: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2939: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2940: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2941: RAISE OKL_API.G_EXCEPTION_ERROR;
2942: END IF;
2943: -----------------------------------------
2944: -- Move VIEW record to "Child" records --
2945: -----------------------------------------
2953: x_msg_count,
2954: x_msg_data,
2955: l_sgt_rec
2956: );
2957: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2960: RAISE OKL_API.G_EXCEPTION_ERROR;
2961: END IF;
2954: x_msg_data,
2955: l_sgt_rec
2956: );
2957: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2960: RAISE OKL_API.G_EXCEPTION_ERROR;
2961: END IF;
2962: x_return_status := l_return_status;
2955: l_sgt_rec
2956: );
2957: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2960: RAISE OKL_API.G_EXCEPTION_ERROR;
2961: END IF;
2962: x_return_status := l_return_status;
2963: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2956: );
2957: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2958: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2960: RAISE OKL_API.G_EXCEPTION_ERROR;
2961: END IF;
2962: x_return_status := l_return_status;
2963: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2964: EXCEPTION
2959: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2960: RAISE OKL_API.G_EXCEPTION_ERROR;
2961: END IF;
2962: x_return_status := l_return_status;
2963: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2964: EXCEPTION
2965: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2966: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2967: (
2961: END IF;
2962: x_return_status := l_return_status;
2963: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2964: EXCEPTION
2965: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2966: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2967: (
2968: l_api_name,
2969: G_PKG_NAME,
2962: x_return_status := l_return_status;
2963: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2964: EXCEPTION
2965: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2966: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2967: (
2968: l_api_name,
2969: G_PKG_NAME,
2970: 'OKL_API.G_RET_STS_ERROR',
2966: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2967: (
2968: l_api_name,
2969: G_PKG_NAME,
2970: 'OKL_API.G_RET_STS_ERROR',
2971: x_msg_count,
2972: x_msg_data,
2973: '_PVT'
2974: );
2971: x_msg_count,
2972: x_msg_data,
2973: '_PVT'
2974: );
2975: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2976: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2977: (
2978: l_api_name,
2979: G_PKG_NAME,
2972: x_msg_data,
2973: '_PVT'
2974: );
2975: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2976: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2977: (
2978: l_api_name,
2979: G_PKG_NAME,
2980: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2976: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2977: (
2978: l_api_name,
2979: G_PKG_NAME,
2980: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2981: x_msg_count,
2982: x_msg_data,
2983: '_PVT'
2984: );
2982: x_msg_data,
2983: '_PVT'
2984: );
2985: WHEN OTHERS THEN
2986: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2987: (
2988: l_api_name,
2989: G_PKG_NAME,
2990: 'OTHERS',
2997: -- PL/SQL TBL delete_row for:OKL_SGN_TRANSLATIONS_V --
2998: ------------------------------------------------------
2999: PROCEDURE delete_row(
3000: p_api_version IN NUMBER,
3001: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3002: x_return_status OUT NOCOPY VARCHAR2,
3003: x_msg_count OUT NOCOPY NUMBER,
3004: x_msg_data OUT NOCOPY VARCHAR2,
3005: p_sgnv_tbl IN sgnv_tbl_type,
3002: x_return_status OUT NOCOPY VARCHAR2,
3003: x_msg_count OUT NOCOPY NUMBER,
3004: x_msg_data OUT NOCOPY VARCHAR2,
3005: p_sgnv_tbl IN sgnv_tbl_type,
3006: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3007:
3008: l_api_version CONSTANT NUMBER := 1;
3009: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3010: i NUMBER := 0;
3008: l_api_version CONSTANT NUMBER := 1;
3009: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
3010: i NUMBER := 0;
3011: BEGIN
3012: OKL_API.init_msg_list(p_init_msg_list);
3013: -- Make sure PL/SQL table has records in it before passing
3014: IF (p_sgnv_tbl.COUNT > 0) THEN
3015: i := p_sgnv_tbl.FIRST;
3016: LOOP
3014: IF (p_sgnv_tbl.COUNT > 0) THEN
3015: i := p_sgnv_tbl.FIRST;
3016: LOOP
3017: DECLARE
3018: l_error_rec OKL_API.ERROR_REC_TYPE;
3019: BEGIN
3020: l_error_rec.api_name := l_api_name;
3021: l_error_rec.api_package := G_PKG_NAME;
3022: l_error_rec.idx := i;
3021: l_error_rec.api_package := G_PKG_NAME;
3022: l_error_rec.idx := i;
3023: delete_row (
3024: p_api_version => p_api_version,
3025: p_init_msg_list => OKL_API.G_FALSE,
3026: x_return_status => l_error_rec.error_type,
3027: x_msg_count => l_error_rec.msg_count,
3028: x_msg_data => l_error_rec.msg_data,
3029: p_sgnv_rec => p_sgnv_tbl(i));
3026: x_return_status => l_error_rec.error_type,
3027: x_msg_count => l_error_rec.msg_count,
3028: x_msg_data => l_error_rec.msg_data,
3029: p_sgnv_rec => p_sgnv_tbl(i));
3030: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3031: l_error_rec.sqlcode := SQLCODE;
3032: load_error_tbl(l_error_rec, px_error_tbl);
3033: ELSE
3034: x_msg_count := l_error_rec.msg_count;
3034: x_msg_count := l_error_rec.msg_count;
3035: x_msg_data := l_error_rec.msg_data;
3036: END IF;
3037: EXCEPTION
3038: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3039: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3040: l_error_rec.sqlcode := SQLCODE;
3041: load_error_tbl(l_error_rec, px_error_tbl);
3042: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3035: x_msg_data := l_error_rec.msg_data;
3036: END IF;
3037: EXCEPTION
3038: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3039: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3040: l_error_rec.sqlcode := SQLCODE;
3041: load_error_tbl(l_error_rec, px_error_tbl);
3042: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3043: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3038: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3039: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3040: l_error_rec.sqlcode := SQLCODE;
3041: load_error_tbl(l_error_rec, px_error_tbl);
3042: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3043: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3044: l_error_rec.sqlcode := SQLCODE;
3045: load_error_tbl(l_error_rec, px_error_tbl);
3046: WHEN OTHERS THEN
3039: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3040: l_error_rec.sqlcode := SQLCODE;
3041: load_error_tbl(l_error_rec, px_error_tbl);
3042: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3043: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3044: l_error_rec.sqlcode := SQLCODE;
3045: load_error_tbl(l_error_rec, px_error_tbl);
3046: WHEN OTHERS THEN
3047: l_error_rec.error_type := 'OTHERS';
3054: END IF;
3055: -- Loop through the error_tbl to find the error with the highest severity
3056: -- and return it.
3057: x_return_status := find_highest_exception(px_error_tbl);
3058: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3059: EXCEPTION
3060: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3061: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3062: (
3056: -- and return it.
3057: x_return_status := find_highest_exception(px_error_tbl);
3058: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3059: EXCEPTION
3060: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3061: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3062: (
3063: l_api_name,
3064: G_PKG_NAME,
3057: x_return_status := find_highest_exception(px_error_tbl);
3058: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3059: EXCEPTION
3060: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3061: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3062: (
3063: l_api_name,
3064: G_PKG_NAME,
3065: 'OKL_API.G_RET_STS_ERROR',
3061: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3062: (
3063: l_api_name,
3064: G_PKG_NAME,
3065: 'OKL_API.G_RET_STS_ERROR',
3066: x_msg_count,
3067: x_msg_data,
3068: '_PVT'
3069: );
3066: x_msg_count,
3067: x_msg_data,
3068: '_PVT'
3069: );
3070: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3071: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3072: (
3073: l_api_name,
3074: G_PKG_NAME,
3067: x_msg_data,
3068: '_PVT'
3069: );
3070: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3071: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3072: (
3073: l_api_name,
3074: G_PKG_NAME,
3075: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3071: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3072: (
3073: l_api_name,
3074: G_PKG_NAME,
3075: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3076: x_msg_count,
3077: x_msg_data,
3078: '_PVT'
3079: );
3077: x_msg_data,
3078: '_PVT'
3079: );
3080: WHEN OTHERS THEN
3081: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3082: (
3083: l_api_name,
3084: G_PKG_NAME,
3085: 'OTHERS',
3093: -- PL/SQL TBL delete_row for:OKL_SGN_TRANSLATIONS_V --
3094: ------------------------------------------------------
3095: PROCEDURE delete_row(
3096: p_api_version IN NUMBER,
3097: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3098: x_return_status OUT NOCOPY VARCHAR2,
3099: x_msg_count OUT NOCOPY NUMBER,
3100: x_msg_data OUT NOCOPY VARCHAR2,
3101: p_sgnv_tbl IN sgnv_tbl_type) IS
3101: p_sgnv_tbl IN sgnv_tbl_type) IS
3102:
3103: l_api_version CONSTANT NUMBER := 1;
3104: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3105: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3106: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3107: BEGIN
3108: OKL_API.init_msg_list(p_init_msg_list);
3109: -- Make sure PL/SQL table has records in it before passing
3102:
3103: l_api_version CONSTANT NUMBER := 1;
3104: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3105: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3106: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3107: BEGIN
3108: OKL_API.init_msg_list(p_init_msg_list);
3109: -- Make sure PL/SQL table has records in it before passing
3110: IF (p_sgnv_tbl.COUNT > 0) THEN
3104: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3105: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3106: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3107: BEGIN
3108: OKL_API.init_msg_list(p_init_msg_list);
3109: -- Make sure PL/SQL table has records in it before passing
3110: IF (p_sgnv_tbl.COUNT > 0) THEN
3111: delete_row (
3112: p_api_version => p_api_version,
3109: -- Make sure PL/SQL table has records in it before passing
3110: IF (p_sgnv_tbl.COUNT > 0) THEN
3111: delete_row (
3112: p_api_version => p_api_version,
3113: p_init_msg_list => OKL_API.G_FALSE,
3114: x_return_status => x_return_status,
3115: x_msg_count => x_msg_count,
3116: x_msg_data => x_msg_data,
3117: p_sgnv_tbl => p_sgnv_tbl,
3116: x_msg_data => x_msg_data,
3117: p_sgnv_tbl => p_sgnv_tbl,
3118: px_error_tbl => l_error_tbl);
3119: END IF;
3120: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3121: EXCEPTION
3122: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3123: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3124: (
3118: px_error_tbl => l_error_tbl);
3119: END IF;
3120: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3121: EXCEPTION
3122: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3123: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3124: (
3125: l_api_name,
3126: G_PKG_NAME,
3119: END IF;
3120: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3121: EXCEPTION
3122: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3123: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3124: (
3125: l_api_name,
3126: G_PKG_NAME,
3127: 'OKL_API.G_RET_STS_ERROR',
3123: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3124: (
3125: l_api_name,
3126: G_PKG_NAME,
3127: 'OKL_API.G_RET_STS_ERROR',
3128: x_msg_count,
3129: x_msg_data,
3130: '_PVT'
3131: );
3128: x_msg_count,
3129: x_msg_data,
3130: '_PVT'
3131: );
3132: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3133: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3134: (
3135: l_api_name,
3136: G_PKG_NAME,
3129: x_msg_data,
3130: '_PVT'
3131: );
3132: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3133: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3134: (
3135: l_api_name,
3136: G_PKG_NAME,
3137: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3133: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3134: (
3135: l_api_name,
3136: G_PKG_NAME,
3137: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3138: x_msg_count,
3139: x_msg_data,
3140: '_PVT'
3141: );
3139: x_msg_data,
3140: '_PVT'
3141: );
3142: WHEN OTHERS THEN
3143: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3144: (
3145: l_api_name,
3146: G_PKG_NAME,
3147: 'OTHERS',