3: ---------------------------------------------------------------------------
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6: PROCEDURE load_error_tbl (
7: px_error_rec IN OUT NOCOPY OKC_API.ERROR_REC_TYPE,
8: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
9:
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
36: ---------------------------------------------------------------------------
37: -- FUNCTION find_highest_exception
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
38: ---------------------------------------------------------------------------
39: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
40: -- in a OKC_API.ERROR_TBL_TYPE, and returns it.
41: FUNCTION find_highest_exception(
42: p_error_tbl IN OKC_API.ERROR_TBL_TYPE
43: ) RETURN VARCHAR2 IS
44: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
45: i INTEGER := 1;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
46: BEGIN
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
47: IF (p_error_tbl.COUNT > 0) THEN
48: i := p_error_tbl.FIRST;
49: LOOP
50: IF (p_error_tbl(i).error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
51: IF (l_return_status <> OKC_API.G_RET_STS_UNEXP_ERROR) THEN
52: l_return_status := p_error_tbl(i).error_type;
53: END IF;
54: END IF;
55: EXIT WHEN (i = p_error_tbl.LAST);
190: ) RETURN OksBillrateSchedulesVRecType IS
191: l_oks_billrate_schedules_v_rec OksBillrateSchedulesVRecType;
192: l_row_notfound BOOLEAN := TRUE;
193: BEGIN
194: x_return_status := OKC_API.G_RET_STS_SUCCESS;
195: l_oks_billrate_schedules_v_rec := get_rec(p_oks_billrate_schedules_v_rec, l_row_notfound);
196: IF (l_row_notfound) THEN
197: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
198: x_return_status := OKC_API.G_RET_STS_ERROR;
193: BEGIN
194: x_return_status := OKC_API.G_RET_STS_SUCCESS;
195: l_oks_billrate_schedules_v_rec := get_rec(p_oks_billrate_schedules_v_rec, l_row_notfound);
196: IF (l_row_notfound) THEN
197: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
198: x_return_status := OKC_API.G_RET_STS_ERROR;
199: END IF;
200: RETURN(l_oks_billrate_schedules_v_rec);
201: END get_rec;
194: x_return_status := OKC_API.G_RET_STS_SUCCESS;
195: l_oks_billrate_schedules_v_rec := get_rec(p_oks_billrate_schedules_v_rec, l_row_notfound);
196: IF (l_row_notfound) THEN
197: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
198: x_return_status := OKC_API.G_RET_STS_ERROR;
199: END IF;
200: RETURN(l_oks_billrate_schedules_v_rec);
201: END get_rec;
202: -----------------------------------------------------------
307: ) RETURN OksBillrateSchedulesRecType IS
308: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
309: l_row_notfound BOOLEAN := TRUE;
310: BEGIN
311: x_return_status := OKC_API.G_RET_STS_SUCCESS;
312: l_oks_billrate_schedules_rec := get_rec(p_oks_billrate_schedules_rec, l_row_notfound);
313: IF (l_row_notfound) THEN
314: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
315: x_return_status := OKC_API.G_RET_STS_ERROR;
310: BEGIN
311: x_return_status := OKC_API.G_RET_STS_SUCCESS;
312: l_oks_billrate_schedules_rec := get_rec(p_oks_billrate_schedules_rec, l_row_notfound);
313: IF (l_row_notfound) THEN
314: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
315: x_return_status := OKC_API.G_RET_STS_ERROR;
316: END IF;
317: RETURN(l_oks_billrate_schedules_rec);
318: END get_rec;
311: x_return_status := OKC_API.G_RET_STS_SUCCESS;
312: l_oks_billrate_schedules_rec := get_rec(p_oks_billrate_schedules_rec, l_row_notfound);
313: IF (l_row_notfound) THEN
314: OKC_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'ID');
315: x_return_status := OKC_API.G_RET_STS_ERROR;
316: END IF;
317: RETURN(l_oks_billrate_schedules_rec);
318: END get_rec;
319: -----------------------------------------------------------
333: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType
334: ) RETURN OksBillrateSchedulesVRecType IS
335: l_oks_billrate_schedules_v_rec OksBillrateSchedulesVRecType := p_oks_billrate_schedules_v_rec;
336: BEGIN
337: IF (l_oks_billrate_schedules_v_rec.id = OKC_API.G_MISS_NUM ) THEN
338: l_oks_billrate_schedules_v_rec.id := NULL;
339: END IF;
340: IF (l_oks_billrate_schedules_v_rec.cle_id = OKC_API.G_MISS_NUM ) THEN
341: l_oks_billrate_schedules_v_rec.cle_id := NULL;
336: BEGIN
337: IF (l_oks_billrate_schedules_v_rec.id = OKC_API.G_MISS_NUM ) THEN
338: l_oks_billrate_schedules_v_rec.id := NULL;
339: END IF;
340: IF (l_oks_billrate_schedules_v_rec.cle_id = OKC_API.G_MISS_NUM ) THEN
341: l_oks_billrate_schedules_v_rec.cle_id := NULL;
342: END IF;
343: IF (l_oks_billrate_schedules_v_rec.bt_cle_id = OKC_API.G_MISS_NUM ) THEN
344: l_oks_billrate_schedules_v_rec.bt_cle_id := NULL;
339: END IF;
340: IF (l_oks_billrate_schedules_v_rec.cle_id = OKC_API.G_MISS_NUM ) THEN
341: l_oks_billrate_schedules_v_rec.cle_id := NULL;
342: END IF;
343: IF (l_oks_billrate_schedules_v_rec.bt_cle_id = OKC_API.G_MISS_NUM ) THEN
344: l_oks_billrate_schedules_v_rec.bt_cle_id := NULL;
345: END IF;
346: IF (l_oks_billrate_schedules_v_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) THEN
347: l_oks_billrate_schedules_v_rec.dnz_chr_id := NULL;
342: END IF;
343: IF (l_oks_billrate_schedules_v_rec.bt_cle_id = OKC_API.G_MISS_NUM ) THEN
344: l_oks_billrate_schedules_v_rec.bt_cle_id := NULL;
345: END IF;
346: IF (l_oks_billrate_schedules_v_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) THEN
347: l_oks_billrate_schedules_v_rec.dnz_chr_id := NULL;
348: END IF;
349: IF (l_oks_billrate_schedules_v_rec.start_hour = OKC_API.G_MISS_NUM ) THEN
350: l_oks_billrate_schedules_v_rec.start_hour := NULL;
345: END IF;
346: IF (l_oks_billrate_schedules_v_rec.dnz_chr_id = OKC_API.G_MISS_NUM ) THEN
347: l_oks_billrate_schedules_v_rec.dnz_chr_id := NULL;
348: END IF;
349: IF (l_oks_billrate_schedules_v_rec.start_hour = OKC_API.G_MISS_NUM ) THEN
350: l_oks_billrate_schedules_v_rec.start_hour := NULL;
351: END IF;
352: IF (l_oks_billrate_schedules_v_rec.start_minute = OKC_API.G_MISS_NUM ) THEN
353: l_oks_billrate_schedules_v_rec.start_minute := NULL;
348: END IF;
349: IF (l_oks_billrate_schedules_v_rec.start_hour = OKC_API.G_MISS_NUM ) THEN
350: l_oks_billrate_schedules_v_rec.start_hour := NULL;
351: END IF;
352: IF (l_oks_billrate_schedules_v_rec.start_minute = OKC_API.G_MISS_NUM ) THEN
353: l_oks_billrate_schedules_v_rec.start_minute := NULL;
354: END IF;
355: IF (l_oks_billrate_schedules_v_rec.end_hour = OKC_API.G_MISS_NUM ) THEN
356: l_oks_billrate_schedules_v_rec.end_hour := NULL;
351: END IF;
352: IF (l_oks_billrate_schedules_v_rec.start_minute = OKC_API.G_MISS_NUM ) THEN
353: l_oks_billrate_schedules_v_rec.start_minute := NULL;
354: END IF;
355: IF (l_oks_billrate_schedules_v_rec.end_hour = OKC_API.G_MISS_NUM ) THEN
356: l_oks_billrate_schedules_v_rec.end_hour := NULL;
357: END IF;
358: IF (l_oks_billrate_schedules_v_rec.end_minute = OKC_API.G_MISS_NUM ) THEN
359: l_oks_billrate_schedules_v_rec.end_minute := NULL;
354: END IF;
355: IF (l_oks_billrate_schedules_v_rec.end_hour = OKC_API.G_MISS_NUM ) THEN
356: l_oks_billrate_schedules_v_rec.end_hour := NULL;
357: END IF;
358: IF (l_oks_billrate_schedules_v_rec.end_minute = OKC_API.G_MISS_NUM ) THEN
359: l_oks_billrate_schedules_v_rec.end_minute := NULL;
360: END IF;
361: IF (l_oks_billrate_schedules_v_rec.monday_flag = OKC_API.G_MISS_CHAR ) THEN
362: l_oks_billrate_schedules_v_rec.monday_flag := NULL;
357: END IF;
358: IF (l_oks_billrate_schedules_v_rec.end_minute = OKC_API.G_MISS_NUM ) THEN
359: l_oks_billrate_schedules_v_rec.end_minute := NULL;
360: END IF;
361: IF (l_oks_billrate_schedules_v_rec.monday_flag = OKC_API.G_MISS_CHAR ) THEN
362: l_oks_billrate_schedules_v_rec.monday_flag := NULL;
363: END IF;
364: IF (l_oks_billrate_schedules_v_rec.tuesday_flag = OKC_API.G_MISS_CHAR ) THEN
365: l_oks_billrate_schedules_v_rec.tuesday_flag := NULL;
360: END IF;
361: IF (l_oks_billrate_schedules_v_rec.monday_flag = OKC_API.G_MISS_CHAR ) THEN
362: l_oks_billrate_schedules_v_rec.monday_flag := NULL;
363: END IF;
364: IF (l_oks_billrate_schedules_v_rec.tuesday_flag = OKC_API.G_MISS_CHAR ) THEN
365: l_oks_billrate_schedules_v_rec.tuesday_flag := NULL;
366: END IF;
367: IF (l_oks_billrate_schedules_v_rec.wednesday_flag = OKC_API.G_MISS_CHAR ) THEN
368: l_oks_billrate_schedules_v_rec.wednesday_flag := NULL;
363: END IF;
364: IF (l_oks_billrate_schedules_v_rec.tuesday_flag = OKC_API.G_MISS_CHAR ) THEN
365: l_oks_billrate_schedules_v_rec.tuesday_flag := NULL;
366: END IF;
367: IF (l_oks_billrate_schedules_v_rec.wednesday_flag = OKC_API.G_MISS_CHAR ) THEN
368: l_oks_billrate_schedules_v_rec.wednesday_flag := NULL;
369: END IF;
370: IF (l_oks_billrate_schedules_v_rec.thursday_flag = OKC_API.G_MISS_CHAR ) THEN
371: l_oks_billrate_schedules_v_rec.thursday_flag := NULL;
366: END IF;
367: IF (l_oks_billrate_schedules_v_rec.wednesday_flag = OKC_API.G_MISS_CHAR ) THEN
368: l_oks_billrate_schedules_v_rec.wednesday_flag := NULL;
369: END IF;
370: IF (l_oks_billrate_schedules_v_rec.thursday_flag = OKC_API.G_MISS_CHAR ) THEN
371: l_oks_billrate_schedules_v_rec.thursday_flag := NULL;
372: END IF;
373: IF (l_oks_billrate_schedules_v_rec.friday_flag = OKC_API.G_MISS_CHAR ) THEN
374: l_oks_billrate_schedules_v_rec.friday_flag := NULL;
369: END IF;
370: IF (l_oks_billrate_schedules_v_rec.thursday_flag = OKC_API.G_MISS_CHAR ) THEN
371: l_oks_billrate_schedules_v_rec.thursday_flag := NULL;
372: END IF;
373: IF (l_oks_billrate_schedules_v_rec.friday_flag = OKC_API.G_MISS_CHAR ) THEN
374: l_oks_billrate_schedules_v_rec.friday_flag := NULL;
375: END IF;
376: IF (l_oks_billrate_schedules_v_rec.saturday_flag = OKC_API.G_MISS_CHAR ) THEN
377: l_oks_billrate_schedules_v_rec.saturday_flag := NULL;
372: END IF;
373: IF (l_oks_billrate_schedules_v_rec.friday_flag = OKC_API.G_MISS_CHAR ) THEN
374: l_oks_billrate_schedules_v_rec.friday_flag := NULL;
375: END IF;
376: IF (l_oks_billrate_schedules_v_rec.saturday_flag = OKC_API.G_MISS_CHAR ) THEN
377: l_oks_billrate_schedules_v_rec.saturday_flag := NULL;
378: END IF;
379: IF (l_oks_billrate_schedules_v_rec.sunday_flag = OKC_API.G_MISS_CHAR ) THEN
380: l_oks_billrate_schedules_v_rec.sunday_flag := NULL;
375: END IF;
376: IF (l_oks_billrate_schedules_v_rec.saturday_flag = OKC_API.G_MISS_CHAR ) THEN
377: l_oks_billrate_schedules_v_rec.saturday_flag := NULL;
378: END IF;
379: IF (l_oks_billrate_schedules_v_rec.sunday_flag = OKC_API.G_MISS_CHAR ) THEN
380: l_oks_billrate_schedules_v_rec.sunday_flag := NULL;
381: END IF;
382: IF (l_oks_billrate_schedules_v_rec.object1_id1 = OKC_API.G_MISS_CHAR ) THEN
383: l_oks_billrate_schedules_v_rec.object1_id1 := NULL;
378: END IF;
379: IF (l_oks_billrate_schedules_v_rec.sunday_flag = OKC_API.G_MISS_CHAR ) THEN
380: l_oks_billrate_schedules_v_rec.sunday_flag := NULL;
381: END IF;
382: IF (l_oks_billrate_schedules_v_rec.object1_id1 = OKC_API.G_MISS_CHAR ) THEN
383: l_oks_billrate_schedules_v_rec.object1_id1 := NULL;
384: END IF;
385: IF (l_oks_billrate_schedules_v_rec.object1_id2 = OKC_API.G_MISS_CHAR ) THEN
386: l_oks_billrate_schedules_v_rec.object1_id2 := NULL;
381: END IF;
382: IF (l_oks_billrate_schedules_v_rec.object1_id1 = OKC_API.G_MISS_CHAR ) THEN
383: l_oks_billrate_schedules_v_rec.object1_id1 := NULL;
384: END IF;
385: IF (l_oks_billrate_schedules_v_rec.object1_id2 = OKC_API.G_MISS_CHAR ) THEN
386: l_oks_billrate_schedules_v_rec.object1_id2 := NULL;
387: END IF;
388: IF (l_oks_billrate_schedules_v_rec.jtot_object1_code = OKC_API.G_MISS_CHAR ) THEN
389: l_oks_billrate_schedules_v_rec.jtot_object1_code := NULL;
384: END IF;
385: IF (l_oks_billrate_schedules_v_rec.object1_id2 = OKC_API.G_MISS_CHAR ) THEN
386: l_oks_billrate_schedules_v_rec.object1_id2 := NULL;
387: END IF;
388: IF (l_oks_billrate_schedules_v_rec.jtot_object1_code = OKC_API.G_MISS_CHAR ) THEN
389: l_oks_billrate_schedules_v_rec.jtot_object1_code := NULL;
390: END IF;
391: IF (l_oks_billrate_schedules_v_rec.bill_rate_code = OKC_API.G_MISS_CHAR ) THEN
392: l_oks_billrate_schedules_v_rec.bill_rate_code := NULL;
387: END IF;
388: IF (l_oks_billrate_schedules_v_rec.jtot_object1_code = OKC_API.G_MISS_CHAR ) THEN
389: l_oks_billrate_schedules_v_rec.jtot_object1_code := NULL;
390: END IF;
391: IF (l_oks_billrate_schedules_v_rec.bill_rate_code = OKC_API.G_MISS_CHAR ) THEN
392: l_oks_billrate_schedules_v_rec.bill_rate_code := NULL;
393: END IF;
394: IF (l_oks_billrate_schedules_v_rec.uom = OKC_API.G_MISS_CHAR ) THEN
395: l_oks_billrate_schedules_v_rec.uom := NULL;
390: END IF;
391: IF (l_oks_billrate_schedules_v_rec.bill_rate_code = OKC_API.G_MISS_CHAR ) THEN
392: l_oks_billrate_schedules_v_rec.bill_rate_code := NULL;
393: END IF;
394: IF (l_oks_billrate_schedules_v_rec.uom = OKC_API.G_MISS_CHAR ) THEN
395: l_oks_billrate_schedules_v_rec.uom := NULL;
396: END IF;
397: IF (l_oks_billrate_schedules_v_rec.flat_rate = OKC_API.G_MISS_NUM ) THEN
398: l_oks_billrate_schedules_v_rec.flat_rate := NULL;
393: END IF;
394: IF (l_oks_billrate_schedules_v_rec.uom = OKC_API.G_MISS_CHAR ) THEN
395: l_oks_billrate_schedules_v_rec.uom := NULL;
396: END IF;
397: IF (l_oks_billrate_schedules_v_rec.flat_rate = OKC_API.G_MISS_NUM ) THEN
398: l_oks_billrate_schedules_v_rec.flat_rate := NULL;
399: END IF;
400: IF (l_oks_billrate_schedules_v_rec.holiday_yn = OKC_API.G_MISS_CHAR ) THEN
401: l_oks_billrate_schedules_v_rec.holiday_yn := NULL;
396: END IF;
397: IF (l_oks_billrate_schedules_v_rec.flat_rate = OKC_API.G_MISS_NUM ) THEN
398: l_oks_billrate_schedules_v_rec.flat_rate := NULL;
399: END IF;
400: IF (l_oks_billrate_schedules_v_rec.holiday_yn = OKC_API.G_MISS_CHAR ) THEN
401: l_oks_billrate_schedules_v_rec.holiday_yn := NULL;
402: END IF;
403: IF (l_oks_billrate_schedules_v_rec.percent_over_list_price = OKC_API.G_MISS_NUM ) THEN
404: l_oks_billrate_schedules_v_rec.percent_over_list_price := NULL;
399: END IF;
400: IF (l_oks_billrate_schedules_v_rec.holiday_yn = OKC_API.G_MISS_CHAR ) THEN
401: l_oks_billrate_schedules_v_rec.holiday_yn := NULL;
402: END IF;
403: IF (l_oks_billrate_schedules_v_rec.percent_over_list_price = OKC_API.G_MISS_NUM ) THEN
404: l_oks_billrate_schedules_v_rec.percent_over_list_price := NULL;
405: END IF;
406: IF (l_oks_billrate_schedules_v_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
407: l_oks_billrate_schedules_v_rec.program_application_id := NULL;
402: END IF;
403: IF (l_oks_billrate_schedules_v_rec.percent_over_list_price = OKC_API.G_MISS_NUM ) THEN
404: l_oks_billrate_schedules_v_rec.percent_over_list_price := NULL;
405: END IF;
406: IF (l_oks_billrate_schedules_v_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
407: l_oks_billrate_schedules_v_rec.program_application_id := NULL;
408: END IF;
409: IF (l_oks_billrate_schedules_v_rec.program_id = OKC_API.G_MISS_NUM ) THEN
410: l_oks_billrate_schedules_v_rec.program_id := NULL;
405: END IF;
406: IF (l_oks_billrate_schedules_v_rec.program_application_id = OKC_API.G_MISS_NUM ) THEN
407: l_oks_billrate_schedules_v_rec.program_application_id := NULL;
408: END IF;
409: IF (l_oks_billrate_schedules_v_rec.program_id = OKC_API.G_MISS_NUM ) THEN
410: l_oks_billrate_schedules_v_rec.program_id := NULL;
411: END IF;
412: IF (l_oks_billrate_schedules_v_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
413: l_oks_billrate_schedules_v_rec.program_update_date := NULL;
408: END IF;
409: IF (l_oks_billrate_schedules_v_rec.program_id = OKC_API.G_MISS_NUM ) THEN
410: l_oks_billrate_schedules_v_rec.program_id := NULL;
411: END IF;
412: IF (l_oks_billrate_schedules_v_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
413: l_oks_billrate_schedules_v_rec.program_update_date := NULL;
414: END IF;
415: IF (l_oks_billrate_schedules_v_rec.request_id = OKC_API.G_MISS_NUM ) THEN
416: l_oks_billrate_schedules_v_rec.request_id := NULL;
411: END IF;
412: IF (l_oks_billrate_schedules_v_rec.program_update_date = OKC_API.G_MISS_DATE ) THEN
413: l_oks_billrate_schedules_v_rec.program_update_date := NULL;
414: END IF;
415: IF (l_oks_billrate_schedules_v_rec.request_id = OKC_API.G_MISS_NUM ) THEN
416: l_oks_billrate_schedules_v_rec.request_id := NULL;
417: END IF;
418: IF (l_oks_billrate_schedules_v_rec.created_by = OKC_API.G_MISS_NUM ) THEN
419: l_oks_billrate_schedules_v_rec.created_by := NULL;
414: END IF;
415: IF (l_oks_billrate_schedules_v_rec.request_id = OKC_API.G_MISS_NUM ) THEN
416: l_oks_billrate_schedules_v_rec.request_id := NULL;
417: END IF;
418: IF (l_oks_billrate_schedules_v_rec.created_by = OKC_API.G_MISS_NUM ) THEN
419: l_oks_billrate_schedules_v_rec.created_by := NULL;
420: END IF;
421: IF (l_oks_billrate_schedules_v_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
422: l_oks_billrate_schedules_v_rec.creation_date := NULL;
417: END IF;
418: IF (l_oks_billrate_schedules_v_rec.created_by = OKC_API.G_MISS_NUM ) THEN
419: l_oks_billrate_schedules_v_rec.created_by := NULL;
420: END IF;
421: IF (l_oks_billrate_schedules_v_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
422: l_oks_billrate_schedules_v_rec.creation_date := NULL;
423: END IF;
424: IF (l_oks_billrate_schedules_v_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
425: l_oks_billrate_schedules_v_rec.last_updated_by := NULL;
420: END IF;
421: IF (l_oks_billrate_schedules_v_rec.creation_date = OKC_API.G_MISS_DATE ) THEN
422: l_oks_billrate_schedules_v_rec.creation_date := NULL;
423: END IF;
424: IF (l_oks_billrate_schedules_v_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
425: l_oks_billrate_schedules_v_rec.last_updated_by := NULL;
426: END IF;
427: IF (l_oks_billrate_schedules_v_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
428: l_oks_billrate_schedules_v_rec.last_update_date := NULL;
423: END IF;
424: IF (l_oks_billrate_schedules_v_rec.last_updated_by = OKC_API.G_MISS_NUM ) THEN
425: l_oks_billrate_schedules_v_rec.last_updated_by := NULL;
426: END IF;
427: IF (l_oks_billrate_schedules_v_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
428: l_oks_billrate_schedules_v_rec.last_update_date := NULL;
429: END IF;
430: IF (l_oks_billrate_schedules_v_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
431: l_oks_billrate_schedules_v_rec.last_update_login := NULL;
426: END IF;
427: IF (l_oks_billrate_schedules_v_rec.last_update_date = OKC_API.G_MISS_DATE ) THEN
428: l_oks_billrate_schedules_v_rec.last_update_date := NULL;
429: END IF;
430: IF (l_oks_billrate_schedules_v_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
431: l_oks_billrate_schedules_v_rec.last_update_login := NULL;
432: END IF;
433: IF (l_oks_billrate_schedules_v_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
434: l_oks_billrate_schedules_v_rec.object_version_number := NULL;
429: END IF;
430: IF (l_oks_billrate_schedules_v_rec.last_update_login = OKC_API.G_MISS_NUM ) THEN
431: l_oks_billrate_schedules_v_rec.last_update_login := NULL;
432: END IF;
433: IF (l_oks_billrate_schedules_v_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
434: l_oks_billrate_schedules_v_rec.object_version_number := NULL;
435: END IF;
436: IF (l_oks_billrate_schedules_v_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
437: l_oks_billrate_schedules_v_rec.security_group_id := NULL;
432: END IF;
433: IF (l_oks_billrate_schedules_v_rec.object_version_number = OKC_API.G_MISS_NUM ) THEN
434: l_oks_billrate_schedules_v_rec.object_version_number := NULL;
435: END IF;
436: IF (l_oks_billrate_schedules_v_rec.security_group_id = OKC_API.G_MISS_NUM ) THEN
437: l_oks_billrate_schedules_v_rec.security_group_id := NULL;
438: END IF;
439: RETURN(l_oks_billrate_schedules_v_rec);
440: END null_out_defaults;
444: PROCEDURE validate_id(
445: x_return_status OUT NOCOPY VARCHAR2,
446: p_id IN NUMBER) IS
447: BEGIN
448: x_return_status := OKC_API.G_RET_STS_SUCCESS;
449: IF (p_id = OKC_API.G_MISS_NUM OR
450: p_id IS NULL)
451: THEN
452: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
445: x_return_status OUT NOCOPY VARCHAR2,
446: p_id IN NUMBER) IS
447: BEGIN
448: x_return_status := OKC_API.G_RET_STS_SUCCESS;
449: IF (p_id = OKC_API.G_MISS_NUM OR
450: p_id IS NULL)
451: THEN
452: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
453: x_return_status := OKC_API.G_RET_STS_ERROR;
448: x_return_status := OKC_API.G_RET_STS_SUCCESS;
449: IF (p_id = OKC_API.G_MISS_NUM OR
450: p_id IS NULL)
451: THEN
452: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
453: x_return_status := OKC_API.G_RET_STS_ERROR;
454: RAISE G_EXCEPTION_HALT_VALIDATION;
455: END IF;
456: EXCEPTION
449: IF (p_id = OKC_API.G_MISS_NUM OR
450: p_id IS NULL)
451: THEN
452: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
453: x_return_status := OKC_API.G_RET_STS_ERROR;
454: RAISE G_EXCEPTION_HALT_VALIDATION;
455: END IF;
456: EXCEPTION
457: WHEN G_EXCEPTION_HALT_VALIDATION THEN
456: EXCEPTION
457: WHEN G_EXCEPTION_HALT_VALIDATION THEN
458: null;
459: WHEN OTHERS THEN
460: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
461: ,p_msg_name => G_UNEXPECTED_ERROR
462: ,p_token1 => G_SQLCODE_TOKEN
463: ,p_token1_value => SQLCODE
464: ,p_token2 => G_SQLERRM_TOKEN
462: ,p_token1 => G_SQLCODE_TOKEN
463: ,p_token1_value => SQLCODE
464: ,p_token2 => G_SQLERRM_TOKEN
465: ,p_token2_value => SQLERRM);
466: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
467: END validate_id;
468: ---------------------------------------------------------------------------
469: -- FUNCTION Validate_Attributes
470: ---------------------------------------------------------------------------
473: ------------------------------------------------------
474: FUNCTION Validate_Attributes (
475: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType
476: ) RETURN VARCHAR2 IS
477: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
478: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
479: BEGIN
480: -----------------------------
481: -- Column Level Validation --
474: FUNCTION Validate_Attributes (
475: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType
476: ) RETURN VARCHAR2 IS
477: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
478: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
479: BEGIN
480: -----------------------------
481: -- Column Level Validation --
482: -----------------------------
483: -- ***
484: -- id
485: -- ***
486: validate_id(x_return_status, p_oks_billrate_schedules_v_rec.id);
487: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
488: l_return_status := x_return_status;
489: RAISE G_EXCEPTION_HALT_VALIDATION;
490: END IF;
491:
493: EXCEPTION
494: WHEN G_EXCEPTION_HALT_VALIDATION THEN
495: RETURN(l_return_status);
496: WHEN OTHERS THEN
497: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
498: ,p_msg_name => G_UNEXPECTED_ERROR
499: ,p_token1 => G_SQLCODE_TOKEN
500: ,p_token1_value => SQLCODE
501: ,p_token2 => G_SQLERRM_TOKEN
499: ,p_token1 => G_SQLCODE_TOKEN
500: ,p_token1_value => SQLCODE
501: ,p_token2 => G_SQLERRM_TOKEN
502: ,p_token2_value => SQLERRM);
503: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
504: RETURN(l_return_status);
505: END Validate_Attributes;
506: ---------------------------------------------------------------------------
507: -- PROCEDURE Validate_Record
512: FUNCTION Validate_Record (
513: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType,
514: p_db_oks_billrate_sch1 IN OksBillrateSchedulesVRecType
515: ) RETURN VARCHAR2 IS
516: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
517: BEGIN
518: RETURN (l_return_status);
519: END Validate_Record;
520: FUNCTION Validate_Record (
519: END Validate_Record;
520: FUNCTION Validate_Record (
521: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType
522: ) RETURN VARCHAR2 IS
523: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
524: l_db_oks_billrate_sch1 OksBillrateSchedulesVRecType := get_rec(p_oks_billrate_schedules_v_rec);
525: BEGIN
526: l_return_status := Validate_Record(p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_rec,
527: p_db_oks_billrate_sch1 => l_db_oks_billrate_sch1);
624: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType) IS
625:
626: l_api_version CONSTANT NUMBER := 1;
627: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
628: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
629: l_oks_billrate_schedules_v_rec OksBillrateSchedulesVRecType := p_oks_billrate_schedules_v_rec;
630: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
631: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
632: BEGIN
629: l_oks_billrate_schedules_v_rec OksBillrateSchedulesVRecType := p_oks_billrate_schedules_v_rec;
630: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
631: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
632: BEGIN
633: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
634: G_PKG_NAME,
635: p_init_msg_list,
636: l_api_version,
637: p_api_version,
636: l_api_version,
637: p_api_version,
638: '_PVT',
639: x_return_status);
640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
642: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
643: RAISE OKC_API.G_EXCEPTION_ERROR;
644: END IF;
637: p_api_version,
638: '_PVT',
639: x_return_status);
640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
642: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
643: RAISE OKC_API.G_EXCEPTION_ERROR;
644: END IF;
645: --- Validate all non-missing attributes (Item Level Validation)
638: '_PVT',
639: x_return_status);
640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
642: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
643: RAISE OKC_API.G_EXCEPTION_ERROR;
644: END IF;
645: --- Validate all non-missing attributes (Item Level Validation)
646: l_return_status := Validate_Attributes(l_oks_billrate_schedules_v_rec);
639: x_return_status);
640: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
641: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
642: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
643: RAISE OKC_API.G_EXCEPTION_ERROR;
644: END IF;
645: --- Validate all non-missing attributes (Item Level Validation)
646: l_return_status := Validate_Attributes(l_oks_billrate_schedules_v_rec);
647: --- If any errors happen abort API
644: END IF;
645: --- Validate all non-missing attributes (Item Level Validation)
646: l_return_status := Validate_Attributes(l_oks_billrate_schedules_v_rec);
647: --- If any errors happen abort API
648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
651: RAISE OKC_API.G_EXCEPTION_ERROR;
652: END IF;
645: --- Validate all non-missing attributes (Item Level Validation)
646: l_return_status := Validate_Attributes(l_oks_billrate_schedules_v_rec);
647: --- If any errors happen abort API
648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
651: RAISE OKC_API.G_EXCEPTION_ERROR;
652: END IF;
653: l_return_status := Validate_Record(l_oks_billrate_schedules_v_rec);
646: l_return_status := Validate_Attributes(l_oks_billrate_schedules_v_rec);
647: --- If any errors happen abort API
648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
651: RAISE OKC_API.G_EXCEPTION_ERROR;
652: END IF;
653: l_return_status := Validate_Record(l_oks_billrate_schedules_v_rec);
654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
647: --- If any errors happen abort API
648: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
649: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
651: RAISE OKC_API.G_EXCEPTION_ERROR;
652: END IF;
653: l_return_status := Validate_Record(l_oks_billrate_schedules_v_rec);
654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
650: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
651: RAISE OKC_API.G_EXCEPTION_ERROR;
652: END IF;
653: l_return_status := Validate_Record(l_oks_billrate_schedules_v_rec);
654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
657: RAISE OKC_API.G_EXCEPTION_ERROR;
658: END IF;
651: RAISE OKC_API.G_EXCEPTION_ERROR;
652: END IF;
653: l_return_status := Validate_Record(l_oks_billrate_schedules_v_rec);
654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
657: RAISE OKC_API.G_EXCEPTION_ERROR;
658: END IF;
659: x_return_status := l_return_status;
652: END IF;
653: l_return_status := Validate_Record(l_oks_billrate_schedules_v_rec);
654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
657: RAISE OKC_API.G_EXCEPTION_ERROR;
658: END IF;
659: x_return_status := l_return_status;
660: EXCEPTION
653: l_return_status := Validate_Record(l_oks_billrate_schedules_v_rec);
654: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
655: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
656: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
657: RAISE OKC_API.G_EXCEPTION_ERROR;
658: END IF;
659: x_return_status := l_return_status;
660: EXCEPTION
661: WHEN OKC_API.G_EXCEPTION_ERROR THEN
657: RAISE OKC_API.G_EXCEPTION_ERROR;
658: END IF;
659: x_return_status := l_return_status;
660: EXCEPTION
661: WHEN OKC_API.G_EXCEPTION_ERROR THEN
662: x_return_status := OKC_API.HANDLE_EXCEPTIONS
663: (
664: l_api_name,
665: G_PKG_NAME,
658: END IF;
659: x_return_status := l_return_status;
660: EXCEPTION
661: WHEN OKC_API.G_EXCEPTION_ERROR THEN
662: x_return_status := OKC_API.HANDLE_EXCEPTIONS
663: (
664: l_api_name,
665: G_PKG_NAME,
666: 'OKC_API.G_RET_STS_ERROR',
662: x_return_status := OKC_API.HANDLE_EXCEPTIONS
663: (
664: l_api_name,
665: G_PKG_NAME,
666: 'OKC_API.G_RET_STS_ERROR',
667: x_msg_count,
668: x_msg_data,
669: '_PVT'
670: );
667: x_msg_count,
668: x_msg_data,
669: '_PVT'
670: );
671: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
672: x_return_status := OKC_API.HANDLE_EXCEPTIONS
673: (
674: l_api_name,
675: G_PKG_NAME,
668: x_msg_data,
669: '_PVT'
670: );
671: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
672: x_return_status := OKC_API.HANDLE_EXCEPTIONS
673: (
674: l_api_name,
675: G_PKG_NAME,
676: 'OKC_API.G_RET_STS_UNEXP_ERROR',
672: x_return_status := OKC_API.HANDLE_EXCEPTIONS
673: (
674: l_api_name,
675: G_PKG_NAME,
676: 'OKC_API.G_RET_STS_UNEXP_ERROR',
677: x_msg_count,
678: x_msg_data,
679: '_PVT'
680: );
678: x_msg_data,
679: '_PVT'
680: );
681: WHEN OTHERS THEN
682: x_return_status := OKC_API.HANDLE_EXCEPTIONS
683: (
684: l_api_name,
685: G_PKG_NAME,
686: 'OTHERS',
698: x_return_status OUT NOCOPY VARCHAR2,
699: x_msg_count OUT NOCOPY NUMBER,
700: x_msg_data OUT NOCOPY VARCHAR2,
701: p_oks_billrate_schedules_v_tbl IN OksBillrateSchedulesVTblType,
702: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
703:
704: l_api_version CONSTANT NUMBER := 1;
705: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
706: i NUMBER := 0;
704: l_api_version CONSTANT NUMBER := 1;
705: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_validate_row';
706: i NUMBER := 0;
707: BEGIN
708: OKC_API.init_msg_list(p_init_msg_list);
709: -- Make sure PL/SQL table has records in it before passing
710: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
711: i := p_oks_billrate_schedules_v_tbl.FIRST;
712: LOOP
710: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
711: i := p_oks_billrate_schedules_v_tbl.FIRST;
712: LOOP
713: DECLARE
714: l_error_rec OKC_API.ERROR_REC_TYPE;
715: BEGIN
716: l_error_rec.api_name := l_api_name;
717: l_error_rec.api_package := G_PKG_NAME;
718: l_error_rec.idx := i;
717: l_error_rec.api_package := G_PKG_NAME;
718: l_error_rec.idx := i;
719: validate_row (
720: p_api_version => p_api_version,
721: p_init_msg_list => OKC_API.G_FALSE,
722: x_return_status => l_error_rec.error_type,
723: x_msg_count => l_error_rec.msg_count,
724: x_msg_data => l_error_rec.msg_data,
725: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i));
722: x_return_status => l_error_rec.error_type,
723: x_msg_count => l_error_rec.msg_count,
724: x_msg_data => l_error_rec.msg_data,
725: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i));
726: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
727: l_error_rec.sqlcode := SQLCODE;
728: load_error_tbl(l_error_rec, px_error_tbl);
729: ELSE
730: x_msg_count := l_error_rec.msg_count;
730: x_msg_count := l_error_rec.msg_count;
731: x_msg_data := l_error_rec.msg_data;
732: END IF;
733: EXCEPTION
734: WHEN OKC_API.G_EXCEPTION_ERROR THEN
735: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
736: l_error_rec.sqlcode := SQLCODE;
737: load_error_tbl(l_error_rec, px_error_tbl);
738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
731: x_msg_data := l_error_rec.msg_data;
732: END IF;
733: EXCEPTION
734: WHEN OKC_API.G_EXCEPTION_ERROR THEN
735: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
736: l_error_rec.sqlcode := SQLCODE;
737: load_error_tbl(l_error_rec, px_error_tbl);
738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
739: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
734: WHEN OKC_API.G_EXCEPTION_ERROR THEN
735: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
736: l_error_rec.sqlcode := SQLCODE;
737: load_error_tbl(l_error_rec, px_error_tbl);
738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
739: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
740: l_error_rec.sqlcode := SQLCODE;
741: load_error_tbl(l_error_rec, px_error_tbl);
742: WHEN OTHERS THEN
735: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
736: l_error_rec.sqlcode := SQLCODE;
737: load_error_tbl(l_error_rec, px_error_tbl);
738: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
739: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
740: l_error_rec.sqlcode := SQLCODE;
741: load_error_tbl(l_error_rec, px_error_tbl);
742: WHEN OTHERS THEN
743: l_error_rec.error_type := 'OTHERS';
750: END IF;
751: -- Loop through the error_tbl to find the error with the highest severity
752: -- and return it.
753: x_return_status := find_highest_exception(px_error_tbl);
754: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
755: EXCEPTION
756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
758: (
752: -- and return it.
753: x_return_status := find_highest_exception(px_error_tbl);
754: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
755: EXCEPTION
756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
758: (
759: l_api_name,
760: G_PKG_NAME,
753: x_return_status := find_highest_exception(px_error_tbl);
754: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
755: EXCEPTION
756: WHEN OKC_API.G_EXCEPTION_ERROR THEN
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
758: (
759: l_api_name,
760: G_PKG_NAME,
761: 'OKC_API.G_RET_STS_ERROR',
757: x_return_status := OKC_API.HANDLE_EXCEPTIONS
758: (
759: l_api_name,
760: G_PKG_NAME,
761: 'OKC_API.G_RET_STS_ERROR',
762: x_msg_count,
763: x_msg_data,
764: '_PVT'
765: );
762: x_msg_count,
763: x_msg_data,
764: '_PVT'
765: );
766: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
767: x_return_status := OKC_API.HANDLE_EXCEPTIONS
768: (
769: l_api_name,
770: G_PKG_NAME,
763: x_msg_data,
764: '_PVT'
765: );
766: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
767: x_return_status := OKC_API.HANDLE_EXCEPTIONS
768: (
769: l_api_name,
770: G_PKG_NAME,
771: 'OKC_API.G_RET_STS_UNEXP_ERROR',
767: x_return_status := OKC_API.HANDLE_EXCEPTIONS
768: (
769: l_api_name,
770: G_PKG_NAME,
771: 'OKC_API.G_RET_STS_UNEXP_ERROR',
772: x_msg_count,
773: x_msg_data,
774: '_PVT'
775: );
773: x_msg_data,
774: '_PVT'
775: );
776: WHEN OTHERS THEN
777: x_return_status := OKC_API.HANDLE_EXCEPTIONS
778: (
779: l_api_name,
780: G_PKG_NAME,
781: 'OTHERS',
797: p_oks_billrate_schedules_v_tbl IN OksBillrateSchedulesVTblType) IS
798:
799: l_api_version CONSTANT NUMBER := 1;
800: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
801: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
802: l_error_tbl OKC_API.ERROR_TBL_TYPE;
803: BEGIN
804: OKC_API.init_msg_list(p_init_msg_list);
805: -- Make sure PL/SQL table has records in it before passing
798:
799: l_api_version CONSTANT NUMBER := 1;
800: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
801: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
802: l_error_tbl OKC_API.ERROR_TBL_TYPE;
803: BEGIN
804: OKC_API.init_msg_list(p_init_msg_list);
805: -- Make sure PL/SQL table has records in it before passing
806: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
800: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
801: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
802: l_error_tbl OKC_API.ERROR_TBL_TYPE;
803: BEGIN
804: OKC_API.init_msg_list(p_init_msg_list);
805: -- Make sure PL/SQL table has records in it before passing
806: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
807: validate_row (
808: p_api_version => p_api_version,
805: -- Make sure PL/SQL table has records in it before passing
806: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
807: validate_row (
808: p_api_version => p_api_version,
809: p_init_msg_list => OKC_API.G_FALSE,
810: x_return_status => x_return_status,
811: x_msg_count => x_msg_count,
812: x_msg_data => x_msg_data,
813: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
812: x_msg_data => x_msg_data,
813: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
814: px_error_tbl => l_error_tbl);
815: END IF;
816: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
817: EXCEPTION
818: WHEN OKC_API.G_EXCEPTION_ERROR THEN
819: x_return_status := OKC_API.HANDLE_EXCEPTIONS
820: (
814: px_error_tbl => l_error_tbl);
815: END IF;
816: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
817: EXCEPTION
818: WHEN OKC_API.G_EXCEPTION_ERROR THEN
819: x_return_status := OKC_API.HANDLE_EXCEPTIONS
820: (
821: l_api_name,
822: G_PKG_NAME,
815: END IF;
816: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
817: EXCEPTION
818: WHEN OKC_API.G_EXCEPTION_ERROR THEN
819: x_return_status := OKC_API.HANDLE_EXCEPTIONS
820: (
821: l_api_name,
822: G_PKG_NAME,
823: 'OKC_API.G_RET_STS_ERROR',
819: x_return_status := OKC_API.HANDLE_EXCEPTIONS
820: (
821: l_api_name,
822: G_PKG_NAME,
823: 'OKC_API.G_RET_STS_ERROR',
824: x_msg_count,
825: x_msg_data,
826: '_PVT'
827: );
824: x_msg_count,
825: x_msg_data,
826: '_PVT'
827: );
828: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
829: x_return_status := OKC_API.HANDLE_EXCEPTIONS
830: (
831: l_api_name,
832: G_PKG_NAME,
825: x_msg_data,
826: '_PVT'
827: );
828: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
829: x_return_status := OKC_API.HANDLE_EXCEPTIONS
830: (
831: l_api_name,
832: G_PKG_NAME,
833: 'OKC_API.G_RET_STS_UNEXP_ERROR',
829: x_return_status := OKC_API.HANDLE_EXCEPTIONS
830: (
831: l_api_name,
832: G_PKG_NAME,
833: 'OKC_API.G_RET_STS_UNEXP_ERROR',
834: x_msg_count,
835: x_msg_data,
836: '_PVT'
837: );
835: x_msg_data,
836: '_PVT'
837: );
838: WHEN OTHERS THEN
839: x_return_status := OKC_API.HANDLE_EXCEPTIONS
840: (
841: l_api_name,
842: G_PKG_NAME,
843: 'OTHERS',
862: x_oks_billrate_schedules_rec OUT NOCOPY OksBillrateSchedulesRecType) IS
863:
864: l_api_version CONSTANT NUMBER := 1;
865: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
866: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
867: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType := p_oks_billrate_schedules_rec;
868: LDefOksBillrateSchedulesRec OksBillrateSchedulesRecType;
869: -----------------------------------------------
870: -- Set_Attributes for:OKS_BILLRATE_SCHEDULES --
872: FUNCTION Set_Attributes (
873: p_oks_billrate_schedules_rec IN OksBillrateSchedulesRecType,
874: x_oks_billrate_schedules_rec OUT NOCOPY OksBillrateSchedulesRecType
875: ) RETURN VARCHAR2 IS
876: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
877: BEGIN
878: x_oks_billrate_schedules_rec := p_oks_billrate_schedules_rec;
879: RETURN(l_return_status);
880: END Set_Attributes;
878: x_oks_billrate_schedules_rec := p_oks_billrate_schedules_rec;
879: RETURN(l_return_status);
880: END Set_Attributes;
881: BEGIN
882: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
883: p_init_msg_list,
884: '_PVT',
885: x_return_status);
886: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
882: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
883: p_init_msg_list,
884: '_PVT',
885: x_return_status);
886: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
889: RAISE OKC_API.G_EXCEPTION_ERROR;
890: END IF;
883: p_init_msg_list,
884: '_PVT',
885: x_return_status);
886: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
889: RAISE OKC_API.G_EXCEPTION_ERROR;
890: END IF;
891: --- Setting item atributes
884: '_PVT',
885: x_return_status);
886: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
889: RAISE OKC_API.G_EXCEPTION_ERROR;
890: END IF;
891: --- Setting item atributes
892: l_return_status := Set_Attributes(
885: x_return_status);
886: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
887: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
888: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
889: RAISE OKC_API.G_EXCEPTION_ERROR;
890: END IF;
891: --- Setting item atributes
892: l_return_status := Set_Attributes(
893: p_oks_billrate_schedules_rec, -- IN
892: l_return_status := Set_Attributes(
893: p_oks_billrate_schedules_rec, -- IN
894: l_oks_billrate_schedules_rec); -- OUT
895: --- If any errors happen abort API
896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
899: RAISE OKC_API.G_EXCEPTION_ERROR;
900: END IF;
893: p_oks_billrate_schedules_rec, -- IN
894: l_oks_billrate_schedules_rec); -- OUT
895: --- If any errors happen abort API
896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
899: RAISE OKC_API.G_EXCEPTION_ERROR;
900: END IF;
901: INSERT INTO OKS_BILLRATE_SCHEDULES(
894: l_oks_billrate_schedules_rec); -- OUT
895: --- If any errors happen abort API
896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
899: RAISE OKC_API.G_EXCEPTION_ERROR;
900: END IF;
901: INSERT INTO OKS_BILLRATE_SCHEDULES(
902: id,
895: --- If any errors happen abort API
896: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
897: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
898: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
899: RAISE OKC_API.G_EXCEPTION_ERROR;
900: END IF;
901: INSERT INTO OKS_BILLRATE_SCHEDULES(
902: id,
903: cle_id,
968: l_oks_billrate_schedules_rec.object_version_number);
969: -- Set OUT values
970: x_oks_billrate_schedules_rec := l_oks_billrate_schedules_rec;
971: x_return_status := l_return_status;
972: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
973: EXCEPTION
974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
975: x_return_status := OKC_API.HANDLE_EXCEPTIONS
976: (
970: x_oks_billrate_schedules_rec := l_oks_billrate_schedules_rec;
971: x_return_status := l_return_status;
972: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
973: EXCEPTION
974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
975: x_return_status := OKC_API.HANDLE_EXCEPTIONS
976: (
977: l_api_name,
978: G_PKG_NAME,
971: x_return_status := l_return_status;
972: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
973: EXCEPTION
974: WHEN OKC_API.G_EXCEPTION_ERROR THEN
975: x_return_status := OKC_API.HANDLE_EXCEPTIONS
976: (
977: l_api_name,
978: G_PKG_NAME,
979: 'OKC_API.G_RET_STS_ERROR',
975: x_return_status := OKC_API.HANDLE_EXCEPTIONS
976: (
977: l_api_name,
978: G_PKG_NAME,
979: 'OKC_API.G_RET_STS_ERROR',
980: x_msg_count,
981: x_msg_data,
982: '_PVT'
983: );
980: x_msg_count,
981: x_msg_data,
982: '_PVT'
983: );
984: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
986: (
987: l_api_name,
988: G_PKG_NAME,
981: x_msg_data,
982: '_PVT'
983: );
984: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
986: (
987: l_api_name,
988: G_PKG_NAME,
989: 'OKC_API.G_RET_STS_UNEXP_ERROR',
985: x_return_status := OKC_API.HANDLE_EXCEPTIONS
986: (
987: l_api_name,
988: G_PKG_NAME,
989: 'OKC_API.G_RET_STS_UNEXP_ERROR',
990: x_msg_count,
991: x_msg_data,
992: '_PVT'
993: );
991: x_msg_data,
992: '_PVT'
993: );
994: WHEN OTHERS THEN
995: x_return_status := OKC_API.HANDLE_EXCEPTIONS
996: (
997: l_api_name,
998: G_PKG_NAME,
999: 'OTHERS',
1015: x_oks_billrate_schedules_v_rec OUT NOCOPY OksBillrateSchedulesVRecType) IS
1016:
1017: l_api_version CONSTANT NUMBER := 1;
1018: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1019: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1020: l_oks_billrate_schedules_v_rec OksBillrateSchedulesVRecType := p_oks_billrate_schedules_v_rec;
1021: LDefOksBillrateSchedulesVRec OksBillrateSchedulesVRecType;
1022: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
1023: lx_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
1042: FUNCTION Set_Attributes (
1043: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType,
1044: x_oks_billrate_schedules_v_rec OUT NOCOPY OksBillrateSchedulesVRecType
1045: ) RETURN VARCHAR2 IS
1046: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1047: BEGIN
1048: x_oks_billrate_schedules_v_rec := p_oks_billrate_schedules_v_rec;
1049: x_oks_billrate_schedules_v_rec.OBJECT_VERSION_NUMBER := 1;
1050: RETURN(l_return_status);
1049: x_oks_billrate_schedules_v_rec.OBJECT_VERSION_NUMBER := 1;
1050: RETURN(l_return_status);
1051: END Set_Attributes;
1052: BEGIN
1053: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1054: G_PKG_NAME,
1055: p_init_msg_list,
1056: l_api_version,
1057: p_api_version,
1056: l_api_version,
1057: p_api_version,
1058: '_PVT',
1059: x_return_status);
1060: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1061: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1062: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_ERROR;
1064: END IF;
1057: p_api_version,
1058: '_PVT',
1059: x_return_status);
1060: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1061: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1062: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_ERROR;
1064: END IF;
1065: l_oks_billrate_schedules_v_rec := null_out_defaults(p_oks_billrate_schedules_v_rec);
1058: '_PVT',
1059: x_return_status);
1060: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1061: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1062: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_ERROR;
1064: END IF;
1065: l_oks_billrate_schedules_v_rec := null_out_defaults(p_oks_billrate_schedules_v_rec);
1066: -- Set primary key value
1059: x_return_status);
1060: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1061: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1062: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1063: RAISE OKC_API.G_EXCEPTION_ERROR;
1064: END IF;
1065: l_oks_billrate_schedules_v_rec := null_out_defaults(p_oks_billrate_schedules_v_rec);
1066: -- Set primary key value
1067: l_oks_billrate_schedules_v_rec.ID := get_seq_id;
1069: l_return_Status := Set_Attributes(
1070: l_oks_billrate_schedules_v_rec, -- IN
1071: LDefOksBillrateSchedulesVRec); -- OUT
1072: --- If any errors happen abort API
1073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1070: l_oks_billrate_schedules_v_rec, -- IN
1071: LDefOksBillrateSchedulesVRec); -- OUT
1072: --- If any errors happen abort API
1073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078: LDefOksBillrateSchedulesVRec := fill_who_columns(LDefOksBillrateSchedulesVRec);
1071: LDefOksBillrateSchedulesVRec); -- OUT
1072: --- If any errors happen abort API
1073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078: LDefOksBillrateSchedulesVRec := fill_who_columns(LDefOksBillrateSchedulesVRec);
1079: --- Validate all non-missing attributes (Item Level Validation)
1072: --- If any errors happen abort API
1073: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1074: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1075: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1076: RAISE OKC_API.G_EXCEPTION_ERROR;
1077: END IF;
1078: LDefOksBillrateSchedulesVRec := fill_who_columns(LDefOksBillrateSchedulesVRec);
1079: --- Validate all non-missing attributes (Item Level Validation)
1080: l_return_status := Validate_Attributes(LDefOksBillrateSchedulesVRec);
1078: LDefOksBillrateSchedulesVRec := fill_who_columns(LDefOksBillrateSchedulesVRec);
1079: --- Validate all non-missing attributes (Item Level Validation)
1080: l_return_status := Validate_Attributes(LDefOksBillrateSchedulesVRec);
1081: --- If any errors happen abort API
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1079: --- Validate all non-missing attributes (Item Level Validation)
1080: l_return_status := Validate_Attributes(LDefOksBillrateSchedulesVRec);
1081: --- If any errors happen abort API
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec);
1080: l_return_status := Validate_Attributes(LDefOksBillrateSchedulesVRec);
1081: --- If any errors happen abort API
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec);
1088: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1081: --- If any errors happen abort API
1082: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1083: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec);
1088: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1084: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec);
1088: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1090: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1091: RAISE OKC_API.G_EXCEPTION_ERROR;
1092: END IF;
1085: RAISE OKC_API.G_EXCEPTION_ERROR;
1086: END IF;
1087: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec);
1088: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1090: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1091: RAISE OKC_API.G_EXCEPTION_ERROR;
1092: END IF;
1093: -----------------------------------------
1086: END IF;
1087: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec);
1088: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1090: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1091: RAISE OKC_API.G_EXCEPTION_ERROR;
1092: END IF;
1093: -----------------------------------------
1094: -- Move VIEW record to "Child" records --
1087: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec);
1088: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1089: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1090: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1091: RAISE OKC_API.G_EXCEPTION_ERROR;
1092: END IF;
1093: -----------------------------------------
1094: -- Move VIEW record to "Child" records --
1095: -----------------------------------------
1104: x_msg_data,
1105: l_oks_billrate_schedules_rec,
1106: lx_oks_billrate_schedules_rec
1107: );
1108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1111: RAISE OKC_API.G_EXCEPTION_ERROR;
1112: END IF;
1105: l_oks_billrate_schedules_rec,
1106: lx_oks_billrate_schedules_rec
1107: );
1108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1111: RAISE OKC_API.G_EXCEPTION_ERROR;
1112: END IF;
1113: migrate(lx_oks_billrate_schedules_rec, LDefOksBillrateSchedulesVRec);
1106: lx_oks_billrate_schedules_rec
1107: );
1108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1111: RAISE OKC_API.G_EXCEPTION_ERROR;
1112: END IF;
1113: migrate(lx_oks_billrate_schedules_rec, LDefOksBillrateSchedulesVRec);
1114: -- Set OUT values
1107: );
1108: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1109: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1110: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1111: RAISE OKC_API.G_EXCEPTION_ERROR;
1112: END IF;
1113: migrate(lx_oks_billrate_schedules_rec, LDefOksBillrateSchedulesVRec);
1114: -- Set OUT values
1115: x_oks_billrate_schedules_v_rec := LDefOksBillrateSchedulesVRec;
1113: migrate(lx_oks_billrate_schedules_rec, LDefOksBillrateSchedulesVRec);
1114: -- Set OUT values
1115: x_oks_billrate_schedules_v_rec := LDefOksBillrateSchedulesVRec;
1116: x_return_status := l_return_status;
1117: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1118: EXCEPTION
1119: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1121: (
1115: x_oks_billrate_schedules_v_rec := LDefOksBillrateSchedulesVRec;
1116: x_return_status := l_return_status;
1117: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1118: EXCEPTION
1119: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1116: x_return_status := l_return_status;
1117: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1118: EXCEPTION
1119: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKC_API.G_RET_STS_ERROR',
1120: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1121: (
1122: l_api_name,
1123: G_PKG_NAME,
1124: 'OKC_API.G_RET_STS_ERROR',
1125: x_msg_count,
1126: x_msg_data,
1127: '_PVT'
1128: );
1125: x_msg_count,
1126: x_msg_data,
1127: '_PVT'
1128: );
1129: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1131: (
1132: l_api_name,
1133: G_PKG_NAME,
1126: x_msg_data,
1127: '_PVT'
1128: );
1129: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1131: (
1132: l_api_name,
1133: G_PKG_NAME,
1134: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1130: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1131: (
1132: l_api_name,
1133: G_PKG_NAME,
1134: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1135: x_msg_count,
1136: x_msg_data,
1137: '_PVT'
1138: );
1136: x_msg_data,
1137: '_PVT'
1138: );
1139: WHEN OTHERS THEN
1140: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1141: (
1142: l_api_name,
1143: G_PKG_NAME,
1144: 'OTHERS',
1157: x_msg_count OUT NOCOPY NUMBER,
1158: x_msg_data OUT NOCOPY VARCHAR2,
1159: p_oks_billrate_schedules_v_tbl IN OksBillrateSchedulesVTblType,
1160: x_oks_billrate_schedules_v_tbl OUT NOCOPY OksBillrateSchedulesVTblType,
1161: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1162:
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1165: i NUMBER := 0;
1163: l_api_version CONSTANT NUMBER := 1;
1164: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_insert_row';
1165: i NUMBER := 0;
1166: BEGIN
1167: OKC_API.init_msg_list(p_init_msg_list);
1168: -- Make sure PL/SQL table has records in it before passing
1169: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1170: i := p_oks_billrate_schedules_v_tbl.FIRST;
1171: LOOP
1169: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1170: i := p_oks_billrate_schedules_v_tbl.FIRST;
1171: LOOP
1172: DECLARE
1173: l_error_rec OKC_API.ERROR_REC_TYPE;
1174: BEGIN
1175: l_error_rec.api_name := l_api_name;
1176: l_error_rec.api_package := G_PKG_NAME;
1177: l_error_rec.idx := i;
1176: l_error_rec.api_package := G_PKG_NAME;
1177: l_error_rec.idx := i;
1178: insert_row (
1179: p_api_version => p_api_version,
1180: p_init_msg_list => OKC_API.G_FALSE,
1181: x_return_status => l_error_rec.error_type,
1182: x_msg_count => l_error_rec.msg_count,
1183: x_msg_data => l_error_rec.msg_data,
1184: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i),
1182: x_msg_count => l_error_rec.msg_count,
1183: x_msg_data => l_error_rec.msg_data,
1184: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i),
1185: x_oks_billrate_schedules_v_rec => x_oks_billrate_schedules_v_tbl(i));
1186: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1187: l_error_rec.sqlcode := SQLCODE;
1188: load_error_tbl(l_error_rec, px_error_tbl);
1189: ELSE
1190: x_msg_count := l_error_rec.msg_count;
1190: x_msg_count := l_error_rec.msg_count;
1191: x_msg_data := l_error_rec.msg_data;
1192: END IF;
1193: EXCEPTION
1194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1195: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1196: l_error_rec.sqlcode := SQLCODE;
1197: load_error_tbl(l_error_rec, px_error_tbl);
1198: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1191: x_msg_data := l_error_rec.msg_data;
1192: END IF;
1193: EXCEPTION
1194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1195: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1196: l_error_rec.sqlcode := SQLCODE;
1197: load_error_tbl(l_error_rec, px_error_tbl);
1198: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1199: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1194: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1195: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1196: l_error_rec.sqlcode := SQLCODE;
1197: load_error_tbl(l_error_rec, px_error_tbl);
1198: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1199: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1200: l_error_rec.sqlcode := SQLCODE;
1201: load_error_tbl(l_error_rec, px_error_tbl);
1202: WHEN OTHERS THEN
1195: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1196: l_error_rec.sqlcode := SQLCODE;
1197: load_error_tbl(l_error_rec, px_error_tbl);
1198: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1199: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1200: l_error_rec.sqlcode := SQLCODE;
1201: load_error_tbl(l_error_rec, px_error_tbl);
1202: WHEN OTHERS THEN
1203: l_error_rec.error_type := 'OTHERS';
1210: END IF;
1211: -- Loop through the error_tbl to find the error with the highest severity
1212: -- and return it.
1213: x_return_status := find_highest_exception(px_error_tbl);
1214: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1215: EXCEPTION
1216: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1217: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1218: (
1212: -- and return it.
1213: x_return_status := find_highest_exception(px_error_tbl);
1214: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1215: EXCEPTION
1216: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1217: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1218: (
1219: l_api_name,
1220: G_PKG_NAME,
1213: x_return_status := find_highest_exception(px_error_tbl);
1214: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1215: EXCEPTION
1216: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1217: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1218: (
1219: l_api_name,
1220: G_PKG_NAME,
1221: 'OKC_API.G_RET_STS_ERROR',
1217: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1218: (
1219: l_api_name,
1220: G_PKG_NAME,
1221: 'OKC_API.G_RET_STS_ERROR',
1222: x_msg_count,
1223: x_msg_data,
1224: '_PVT'
1225: );
1222: x_msg_count,
1223: x_msg_data,
1224: '_PVT'
1225: );
1226: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1228: (
1229: l_api_name,
1230: G_PKG_NAME,
1223: x_msg_data,
1224: '_PVT'
1225: );
1226: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1228: (
1229: l_api_name,
1230: G_PKG_NAME,
1231: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1227: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1228: (
1229: l_api_name,
1230: G_PKG_NAME,
1231: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1232: x_msg_count,
1233: x_msg_data,
1234: '_PVT'
1235: );
1233: x_msg_data,
1234: '_PVT'
1235: );
1236: WHEN OTHERS THEN
1237: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1238: (
1239: l_api_name,
1240: G_PKG_NAME,
1241: 'OTHERS',
1260: x_oks_billrate_schedules_v_tbl OUT NOCOPY OksBillrateSchedulesVTblType) IS
1261:
1262: l_api_version CONSTANT NUMBER := 1;
1263: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1264: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1265: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1266: BEGIN
1267: OKC_API.init_msg_list(p_init_msg_list);
1268: -- Make sure PL/SQL table has records in it before passing
1261:
1262: l_api_version CONSTANT NUMBER := 1;
1263: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1264: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1265: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1266: BEGIN
1267: OKC_API.init_msg_list(p_init_msg_list);
1268: -- Make sure PL/SQL table has records in it before passing
1269: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1263: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
1264: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1265: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1266: BEGIN
1267: OKC_API.init_msg_list(p_init_msg_list);
1268: -- Make sure PL/SQL table has records in it before passing
1269: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1270: insert_row (
1271: p_api_version => p_api_version,
1268: -- Make sure PL/SQL table has records in it before passing
1269: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1270: insert_row (
1271: p_api_version => p_api_version,
1272: p_init_msg_list => OKC_API.G_FALSE,
1273: x_return_status => x_return_status,
1274: x_msg_count => x_msg_count,
1275: x_msg_data => x_msg_data,
1276: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
1276: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
1277: x_oks_billrate_schedules_v_tbl => x_oks_billrate_schedules_v_tbl,
1278: px_error_tbl => l_error_tbl);
1279: END IF;
1280: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1281: EXCEPTION
1282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1284: (
1278: px_error_tbl => l_error_tbl);
1279: END IF;
1280: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1281: EXCEPTION
1282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1284: (
1285: l_api_name,
1286: G_PKG_NAME,
1279: END IF;
1280: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1281: EXCEPTION
1282: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1284: (
1285: l_api_name,
1286: G_PKG_NAME,
1287: 'OKC_API.G_RET_STS_ERROR',
1283: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1284: (
1285: l_api_name,
1286: G_PKG_NAME,
1287: 'OKC_API.G_RET_STS_ERROR',
1288: x_msg_count,
1289: x_msg_data,
1290: '_PVT'
1291: );
1288: x_msg_count,
1289: x_msg_data,
1290: '_PVT'
1291: );
1292: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1293: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1294: (
1295: l_api_name,
1296: G_PKG_NAME,
1289: x_msg_data,
1290: '_PVT'
1291: );
1292: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1293: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1294: (
1295: l_api_name,
1296: G_PKG_NAME,
1297: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1293: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1294: (
1295: l_api_name,
1296: G_PKG_NAME,
1297: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1298: x_msg_count,
1299: x_msg_data,
1300: '_PVT'
1301: );
1299: x_msg_data,
1300: '_PVT'
1301: );
1302: WHEN OTHERS THEN
1303: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1304: (
1305: l_api_name,
1306: G_PKG_NAME,
1307: 'OTHERS',
1338: FROM OKS_BILLRATE_SCHEDULES
1339: WHERE ID = p_oks_billrate_schedules_rec.id;
1340: l_api_version CONSTANT NUMBER := 1;
1341: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1342: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1343: l_object_version_number OKS_BILLRATE_SCHEDULES.OBJECT_VERSION_NUMBER%TYPE;
1344: lc_object_version_number OKS_BILLRATE_SCHEDULES.OBJECT_VERSION_NUMBER%TYPE;
1345: l_row_notfound BOOLEAN := FALSE;
1346: lc_row_notfound BOOLEAN := FALSE;
1344: lc_object_version_number OKS_BILLRATE_SCHEDULES.OBJECT_VERSION_NUMBER%TYPE;
1345: l_row_notfound BOOLEAN := FALSE;
1346: lc_row_notfound BOOLEAN := FALSE;
1347: BEGIN
1348: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1349: p_init_msg_list,
1350: '_PVT',
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1348: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1349: p_init_msg_list,
1350: '_PVT',
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1349: p_init_msg_list,
1350: '_PVT',
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: BEGIN
1350: '_PVT',
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: BEGIN
1358: OPEN lock_csr(p_oks_billrate_schedules_rec);
1351: x_return_status);
1352: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: BEGIN
1358: OPEN lock_csr(p_oks_billrate_schedules_rec);
1359: FETCH lock_csr INTO l_object_version_number;
1363: WHEN E_Resource_Busy THEN
1364: IF (lock_csr%ISOPEN) THEN
1365: CLOSE lock_csr;
1366: END IF;
1367: OKC_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
1368: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
1369: END;
1370:
1371: IF ( l_row_notfound ) THEN
1374: lc_row_notfound := lchk_csr%NOTFOUND;
1375: CLOSE lchk_csr;
1376: END IF;
1377: IF (lc_row_notfound) THEN
1378: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1379: RAISE OKC_API.G_EXCEPTION_ERROR;
1380: ELSIF lc_object_version_number > p_oks_billrate_schedules_rec.object_version_number THEN
1381: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1375: CLOSE lchk_csr;
1376: END IF;
1377: IF (lc_row_notfound) THEN
1378: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1379: RAISE OKC_API.G_EXCEPTION_ERROR;
1380: ELSIF lc_object_version_number > p_oks_billrate_schedules_rec.object_version_number THEN
1381: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1383: ELSIF lc_object_version_number <> p_oks_billrate_schedules_rec.object_version_number THEN
1377: IF (lc_row_notfound) THEN
1378: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1379: RAISE OKC_API.G_EXCEPTION_ERROR;
1380: ELSIF lc_object_version_number > p_oks_billrate_schedules_rec.object_version_number THEN
1381: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1383: ELSIF lc_object_version_number <> p_oks_billrate_schedules_rec.object_version_number THEN
1384: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1378: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
1379: RAISE OKC_API.G_EXCEPTION_ERROR;
1380: ELSIF lc_object_version_number > p_oks_billrate_schedules_rec.object_version_number THEN
1381: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1383: ELSIF lc_object_version_number <> p_oks_billrate_schedules_rec.object_version_number THEN
1384: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1386: ELSIF lc_object_version_number = -1 THEN
1380: ELSIF lc_object_version_number > p_oks_billrate_schedules_rec.object_version_number THEN
1381: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1383: ELSIF lc_object_version_number <> p_oks_billrate_schedules_rec.object_version_number THEN
1384: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1386: ELSIF lc_object_version_number = -1 THEN
1387: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1388: RAISE OKC_API.G_EXCEPTION_ERROR;
1381: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1383: ELSIF lc_object_version_number <> p_oks_billrate_schedules_rec.object_version_number THEN
1384: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1386: ELSIF lc_object_version_number = -1 THEN
1387: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1388: RAISE OKC_API.G_EXCEPTION_ERROR;
1389: END IF;
1383: ELSIF lc_object_version_number <> p_oks_billrate_schedules_rec.object_version_number THEN
1384: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1386: ELSIF lc_object_version_number = -1 THEN
1387: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1388: RAISE OKC_API.G_EXCEPTION_ERROR;
1389: END IF;
1390: x_return_status := l_return_status;
1391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1384: OKC_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
1385: RAISE OKC_API.G_EXCEPTION_ERROR;
1386: ELSIF lc_object_version_number = -1 THEN
1387: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1388: RAISE OKC_API.G_EXCEPTION_ERROR;
1389: END IF;
1390: x_return_status := l_return_status;
1391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1392: EXCEPTION
1387: OKC_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1388: RAISE OKC_API.G_EXCEPTION_ERROR;
1389: END IF;
1390: x_return_status := l_return_status;
1391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1392: EXCEPTION
1393: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1395: (
1389: END IF;
1390: x_return_status := l_return_status;
1391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1392: EXCEPTION
1393: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1395: (
1396: l_api_name,
1397: G_PKG_NAME,
1390: x_return_status := l_return_status;
1391: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1392: EXCEPTION
1393: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1395: (
1396: l_api_name,
1397: G_PKG_NAME,
1398: 'OKC_API.G_RET_STS_ERROR',
1394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1395: (
1396: l_api_name,
1397: G_PKG_NAME,
1398: 'OKC_API.G_RET_STS_ERROR',
1399: x_msg_count,
1400: x_msg_data,
1401: '_PVT'
1402: );
1399: x_msg_count,
1400: x_msg_data,
1401: '_PVT'
1402: );
1403: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1404: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1405: (
1406: l_api_name,
1407: G_PKG_NAME,
1400: x_msg_data,
1401: '_PVT'
1402: );
1403: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1404: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1405: (
1406: l_api_name,
1407: G_PKG_NAME,
1408: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1404: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1405: (
1406: l_api_name,
1407: G_PKG_NAME,
1408: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1409: x_msg_count,
1410: x_msg_data,
1411: '_PVT'
1412: );
1410: x_msg_data,
1411: '_PVT'
1412: );
1413: WHEN OTHERS THEN
1414: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1415: (
1416: l_api_name,
1417: G_PKG_NAME,
1418: 'OTHERS',
1433: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType) IS
1434:
1435: l_api_version CONSTANT NUMBER := 1;
1436: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1437: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1438: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
1439: BEGIN
1440: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1441: G_PKG_NAME,
1436: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
1437: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1438: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
1439: BEGIN
1440: l_return_status := OKC_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 = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1450: RAISE OKC_API.G_EXCEPTION_ERROR;
1451: END IF;
1444: p_api_version,
1445: '_PVT',
1446: x_return_status);
1447: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1450: RAISE OKC_API.G_EXCEPTION_ERROR;
1451: END IF;
1452: -----------------------------------------
1445: '_PVT',
1446: x_return_status);
1447: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1450: RAISE OKC_API.G_EXCEPTION_ERROR;
1451: END IF;
1452: -----------------------------------------
1453: -- Move VIEW record to "Child" records --
1446: x_return_status);
1447: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1448: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1449: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1450: RAISE OKC_API.G_EXCEPTION_ERROR;
1451: END IF;
1452: -----------------------------------------
1453: -- Move VIEW record to "Child" records --
1454: -----------------------------------------
1462: x_msg_count,
1463: x_msg_data,
1464: l_oks_billrate_schedules_rec
1465: );
1466: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_ERROR;
1470: END IF;
1463: x_msg_data,
1464: l_oks_billrate_schedules_rec
1465: );
1466: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_ERROR;
1470: END IF;
1471: x_return_status := l_return_status;
1464: l_oks_billrate_schedules_rec
1465: );
1466: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_ERROR;
1470: END IF;
1471: x_return_status := l_return_status;
1472: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1465: );
1466: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1467: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1468: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_ERROR;
1470: END IF;
1471: x_return_status := l_return_status;
1472: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1473: EXCEPTION
1468: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1469: RAISE OKC_API.G_EXCEPTION_ERROR;
1470: END IF;
1471: x_return_status := l_return_status;
1472: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1473: EXCEPTION
1474: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1475: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1476: (
1470: END IF;
1471: x_return_status := l_return_status;
1472: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1473: EXCEPTION
1474: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1475: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1476: (
1477: l_api_name,
1478: G_PKG_NAME,
1471: x_return_status := l_return_status;
1472: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1473: EXCEPTION
1474: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1475: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1476: (
1477: l_api_name,
1478: G_PKG_NAME,
1479: 'OKC_API.G_RET_STS_ERROR',
1475: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1476: (
1477: l_api_name,
1478: G_PKG_NAME,
1479: 'OKC_API.G_RET_STS_ERROR',
1480: x_msg_count,
1481: x_msg_data,
1482: '_PVT'
1483: );
1480: x_msg_count,
1481: x_msg_data,
1482: '_PVT'
1483: );
1484: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1485: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1488: G_PKG_NAME,
1481: x_msg_data,
1482: '_PVT'
1483: );
1484: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1485: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1488: G_PKG_NAME,
1489: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1485: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1486: (
1487: l_api_name,
1488: G_PKG_NAME,
1489: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1490: x_msg_count,
1491: x_msg_data,
1492: '_PVT'
1493: );
1491: x_msg_data,
1492: '_PVT'
1493: );
1494: WHEN OTHERS THEN
1495: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1496: (
1497: l_api_name,
1498: G_PKG_NAME,
1499: 'OTHERS',
1511: x_return_status OUT NOCOPY VARCHAR2,
1512: x_msg_count OUT NOCOPY NUMBER,
1513: x_msg_data OUT NOCOPY VARCHAR2,
1514: p_oks_billrate_schedules_v_tbl IN OksBillrateSchedulesVTblType,
1515: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
1516:
1517: l_api_version CONSTANT NUMBER := 1;
1518: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1519: i NUMBER := 0;
1517: l_api_version CONSTANT NUMBER := 1;
1518: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_lock_row';
1519: i NUMBER := 0;
1520: BEGIN
1521: OKC_API.init_msg_list(p_init_msg_list);
1522: -- Make sure PL/SQL table has recrods in it before passing
1523: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1524: i := p_oks_billrate_schedules_v_tbl.FIRST;
1525: LOOP
1523: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1524: i := p_oks_billrate_schedules_v_tbl.FIRST;
1525: LOOP
1526: DECLARE
1527: l_error_rec OKC_API.ERROR_REC_TYPE;
1528: BEGIN
1529: l_error_rec.api_name := l_api_name;
1530: l_error_rec.api_package := G_PKG_NAME;
1531: l_error_rec.idx := i;
1530: l_error_rec.api_package := G_PKG_NAME;
1531: l_error_rec.idx := i;
1532: lock_row(
1533: p_api_version => p_api_version,
1534: p_init_msg_list => OKC_API.G_FALSE,
1535: x_return_status => l_error_rec.error_type,
1536: x_msg_count => l_error_rec.msg_count,
1537: x_msg_data => l_error_rec.msg_data,
1538: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i));
1535: x_return_status => l_error_rec.error_type,
1536: x_msg_count => l_error_rec.msg_count,
1537: x_msg_data => l_error_rec.msg_data,
1538: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i));
1539: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
1540: l_error_rec.sqlcode := SQLCODE;
1541: load_error_tbl(l_error_rec, px_error_tbl);
1542: ELSE
1543: x_msg_count := l_error_rec.msg_count;
1543: x_msg_count := l_error_rec.msg_count;
1544: x_msg_data := l_error_rec.msg_data;
1545: END IF;
1546: EXCEPTION
1547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1548: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1549: l_error_rec.sqlcode := SQLCODE;
1550: load_error_tbl(l_error_rec, px_error_tbl);
1551: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1544: x_msg_data := l_error_rec.msg_data;
1545: END IF;
1546: EXCEPTION
1547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1548: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1549: l_error_rec.sqlcode := SQLCODE;
1550: load_error_tbl(l_error_rec, px_error_tbl);
1551: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1552: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1547: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1548: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1549: l_error_rec.sqlcode := SQLCODE;
1550: load_error_tbl(l_error_rec, px_error_tbl);
1551: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1552: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1553: l_error_rec.sqlcode := SQLCODE;
1554: load_error_tbl(l_error_rec, px_error_tbl);
1555: WHEN OTHERS THEN
1548: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
1549: l_error_rec.sqlcode := SQLCODE;
1550: load_error_tbl(l_error_rec, px_error_tbl);
1551: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1552: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
1553: l_error_rec.sqlcode := SQLCODE;
1554: load_error_tbl(l_error_rec, px_error_tbl);
1555: WHEN OTHERS THEN
1556: l_error_rec.error_type := 'OTHERS';
1563: END IF;
1564: -- Loop through the error_tbl to find the error with the highest severity
1565: -- and return it.
1566: x_return_status := find_highest_exception(px_error_tbl);
1567: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1568: EXCEPTION
1569: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1570: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1571: (
1565: -- and return it.
1566: x_return_status := find_highest_exception(px_error_tbl);
1567: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1568: EXCEPTION
1569: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1570: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1571: (
1572: l_api_name,
1573: G_PKG_NAME,
1566: x_return_status := find_highest_exception(px_error_tbl);
1567: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1568: EXCEPTION
1569: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1570: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1571: (
1572: l_api_name,
1573: G_PKG_NAME,
1574: 'OKC_API.G_RET_STS_ERROR',
1570: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1571: (
1572: l_api_name,
1573: G_PKG_NAME,
1574: 'OKC_API.G_RET_STS_ERROR',
1575: x_msg_count,
1576: x_msg_data,
1577: '_PVT'
1578: );
1575: x_msg_count,
1576: x_msg_data,
1577: '_PVT'
1578: );
1579: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1580: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1581: (
1582: l_api_name,
1583: G_PKG_NAME,
1576: x_msg_data,
1577: '_PVT'
1578: );
1579: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1580: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1581: (
1582: l_api_name,
1583: G_PKG_NAME,
1584: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1580: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1581: (
1582: l_api_name,
1583: G_PKG_NAME,
1584: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1585: x_msg_count,
1586: x_msg_data,
1587: '_PVT'
1588: );
1586: x_msg_data,
1587: '_PVT'
1588: );
1589: WHEN OTHERS THEN
1590: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1591: (
1592: l_api_name,
1593: G_PKG_NAME,
1594: 'OTHERS',
1609: p_oks_billrate_schedules_v_tbl IN OksBillrateSchedulesVTblType) IS
1610:
1611: l_api_version CONSTANT NUMBER := 1;
1612: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1613: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1614: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1615: BEGIN
1616: OKC_API.init_msg_list(p_init_msg_list);
1617: -- Make sure PL/SQL table has recrods in it before passing
1610:
1611: l_api_version CONSTANT NUMBER := 1;
1612: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1613: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1614: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1615: BEGIN
1616: OKC_API.init_msg_list(p_init_msg_list);
1617: -- Make sure PL/SQL table has recrods in it before passing
1618: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1612: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
1613: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1614: l_error_tbl OKC_API.ERROR_TBL_TYPE;
1615: BEGIN
1616: OKC_API.init_msg_list(p_init_msg_list);
1617: -- Make sure PL/SQL table has recrods in it before passing
1618: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1619: lock_row(
1620: p_api_version => p_api_version,
1617: -- Make sure PL/SQL table has recrods in it before passing
1618: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
1619: lock_row(
1620: p_api_version => p_api_version,
1621: p_init_msg_list => OKC_API.G_FALSE,
1622: x_return_status => x_return_status,
1623: x_msg_count => x_msg_count,
1624: x_msg_data => x_msg_data,
1625: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
1624: x_msg_data => x_msg_data,
1625: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
1626: px_error_tbl => l_error_tbl);
1627: END IF;
1628: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1629: EXCEPTION
1630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1626: px_error_tbl => l_error_tbl);
1627: END IF;
1628: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1629: EXCEPTION
1630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1633: l_api_name,
1634: G_PKG_NAME,
1627: END IF;
1628: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1629: EXCEPTION
1630: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1633: l_api_name,
1634: G_PKG_NAME,
1635: 'OKC_API.G_RET_STS_ERROR',
1631: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1632: (
1633: l_api_name,
1634: G_PKG_NAME,
1635: 'OKC_API.G_RET_STS_ERROR',
1636: x_msg_count,
1637: x_msg_data,
1638: '_PVT'
1639: );
1636: x_msg_count,
1637: x_msg_data,
1638: '_PVT'
1639: );
1640: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1641: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1637: x_msg_data,
1638: '_PVT'
1639: );
1640: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1641: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1641: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1642: (
1643: l_api_name,
1644: G_PKG_NAME,
1645: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1646: x_msg_count,
1647: x_msg_data,
1648: '_PVT'
1649: );
1647: x_msg_data,
1648: '_PVT'
1649: );
1650: WHEN OTHERS THEN
1651: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1652: (
1653: l_api_name,
1654: G_PKG_NAME,
1655: 'OTHERS',
1673: x_oks_billrate_schedules_rec OUT NOCOPY OksBillrateSchedulesRecType) IS
1674:
1675: l_api_version CONSTANT NUMBER := 1;
1676: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
1677: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1678: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType := p_oks_billrate_schedules_rec;
1679: LDefOksBillrateSchedulesRec OksBillrateSchedulesRecType;
1680: l_row_notfound BOOLEAN := TRUE;
1681: ----------------------------------
1686: x_oks_billrate_schedules_rec OUT NOCOPY OksBillrateSchedulesRecType
1687: ) RETURN VARCHAR2 IS
1688: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
1689: l_row_notfound BOOLEAN := TRUE;
1690: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1691: BEGIN
1692: x_oks_billrate_schedules_rec := p_oks_billrate_schedules_rec;
1693: -- Get current database values
1694: l_oks_billrate_schedules_rec := get_rec(p_oks_billrate_schedules_rec, l_return_status);
1691: BEGIN
1692: x_oks_billrate_schedules_rec := p_oks_billrate_schedules_rec;
1693: -- Get current database values
1694: l_oks_billrate_schedules_rec := get_rec(p_oks_billrate_schedules_rec, l_return_status);
1695: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1696: IF (x_oks_billrate_schedules_rec.id = OKC_API.G_MISS_NUM)
1697: THEN
1698: x_oks_billrate_schedules_rec.id := l_oks_billrate_schedules_rec.id;
1699: END IF;
1692: x_oks_billrate_schedules_rec := p_oks_billrate_schedules_rec;
1693: -- Get current database values
1694: l_oks_billrate_schedules_rec := get_rec(p_oks_billrate_schedules_rec, l_return_status);
1695: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1696: IF (x_oks_billrate_schedules_rec.id = OKC_API.G_MISS_NUM)
1697: THEN
1698: x_oks_billrate_schedules_rec.id := l_oks_billrate_schedules_rec.id;
1699: END IF;
1700: IF (x_oks_billrate_schedules_rec.cle_id = OKC_API.G_MISS_NUM)
1696: IF (x_oks_billrate_schedules_rec.id = OKC_API.G_MISS_NUM)
1697: THEN
1698: x_oks_billrate_schedules_rec.id := l_oks_billrate_schedules_rec.id;
1699: END IF;
1700: IF (x_oks_billrate_schedules_rec.cle_id = OKC_API.G_MISS_NUM)
1701: THEN
1702: x_oks_billrate_schedules_rec.cle_id := l_oks_billrate_schedules_rec.cle_id;
1703: END IF;
1704: IF (x_oks_billrate_schedules_rec.bt_cle_id = OKC_API.G_MISS_NUM)
1700: IF (x_oks_billrate_schedules_rec.cle_id = OKC_API.G_MISS_NUM)
1701: THEN
1702: x_oks_billrate_schedules_rec.cle_id := l_oks_billrate_schedules_rec.cle_id;
1703: END IF;
1704: IF (x_oks_billrate_schedules_rec.bt_cle_id = OKC_API.G_MISS_NUM)
1705: THEN
1706: x_oks_billrate_schedules_rec.bt_cle_id := l_oks_billrate_schedules_rec.bt_cle_id;
1707: END IF;
1708: IF (x_oks_billrate_schedules_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1704: IF (x_oks_billrate_schedules_rec.bt_cle_id = OKC_API.G_MISS_NUM)
1705: THEN
1706: x_oks_billrate_schedules_rec.bt_cle_id := l_oks_billrate_schedules_rec.bt_cle_id;
1707: END IF;
1708: IF (x_oks_billrate_schedules_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1709: THEN
1710: x_oks_billrate_schedules_rec.dnz_chr_id := l_oks_billrate_schedules_rec.dnz_chr_id;
1711: END IF;
1712: IF (x_oks_billrate_schedules_rec.start_hour = OKC_API.G_MISS_NUM)
1708: IF (x_oks_billrate_schedules_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1709: THEN
1710: x_oks_billrate_schedules_rec.dnz_chr_id := l_oks_billrate_schedules_rec.dnz_chr_id;
1711: END IF;
1712: IF (x_oks_billrate_schedules_rec.start_hour = OKC_API.G_MISS_NUM)
1713: THEN
1714: x_oks_billrate_schedules_rec.start_hour := l_oks_billrate_schedules_rec.start_hour;
1715: END IF;
1716: IF (x_oks_billrate_schedules_rec.start_minute = OKC_API.G_MISS_NUM)
1712: IF (x_oks_billrate_schedules_rec.start_hour = OKC_API.G_MISS_NUM)
1713: THEN
1714: x_oks_billrate_schedules_rec.start_hour := l_oks_billrate_schedules_rec.start_hour;
1715: END IF;
1716: IF (x_oks_billrate_schedules_rec.start_minute = OKC_API.G_MISS_NUM)
1717: THEN
1718: x_oks_billrate_schedules_rec.start_minute := l_oks_billrate_schedules_rec.start_minute;
1719: END IF;
1720: IF (x_oks_billrate_schedules_rec.end_hour = OKC_API.G_MISS_NUM)
1716: IF (x_oks_billrate_schedules_rec.start_minute = OKC_API.G_MISS_NUM)
1717: THEN
1718: x_oks_billrate_schedules_rec.start_minute := l_oks_billrate_schedules_rec.start_minute;
1719: END IF;
1720: IF (x_oks_billrate_schedules_rec.end_hour = OKC_API.G_MISS_NUM)
1721: THEN
1722: x_oks_billrate_schedules_rec.end_hour := l_oks_billrate_schedules_rec.end_hour;
1723: END IF;
1724: IF (x_oks_billrate_schedules_rec.end_minute = OKC_API.G_MISS_NUM)
1720: IF (x_oks_billrate_schedules_rec.end_hour = OKC_API.G_MISS_NUM)
1721: THEN
1722: x_oks_billrate_schedules_rec.end_hour := l_oks_billrate_schedules_rec.end_hour;
1723: END IF;
1724: IF (x_oks_billrate_schedules_rec.end_minute = OKC_API.G_MISS_NUM)
1725: THEN
1726: x_oks_billrate_schedules_rec.end_minute := l_oks_billrate_schedules_rec.end_minute;
1727: END IF;
1728: IF (x_oks_billrate_schedules_rec.monday_flag = OKC_API.G_MISS_CHAR)
1724: IF (x_oks_billrate_schedules_rec.end_minute = OKC_API.G_MISS_NUM)
1725: THEN
1726: x_oks_billrate_schedules_rec.end_minute := l_oks_billrate_schedules_rec.end_minute;
1727: END IF;
1728: IF (x_oks_billrate_schedules_rec.monday_flag = OKC_API.G_MISS_CHAR)
1729: THEN
1730: x_oks_billrate_schedules_rec.monday_flag := l_oks_billrate_schedules_rec.monday_flag;
1731: END IF;
1732: IF (x_oks_billrate_schedules_rec.tuesday_flag = OKC_API.G_MISS_CHAR)
1728: IF (x_oks_billrate_schedules_rec.monday_flag = OKC_API.G_MISS_CHAR)
1729: THEN
1730: x_oks_billrate_schedules_rec.monday_flag := l_oks_billrate_schedules_rec.monday_flag;
1731: END IF;
1732: IF (x_oks_billrate_schedules_rec.tuesday_flag = OKC_API.G_MISS_CHAR)
1733: THEN
1734: x_oks_billrate_schedules_rec.tuesday_flag := l_oks_billrate_schedules_rec.tuesday_flag;
1735: END IF;
1736: IF (x_oks_billrate_schedules_rec.wednesday_flag = OKC_API.G_MISS_CHAR)
1732: IF (x_oks_billrate_schedules_rec.tuesday_flag = OKC_API.G_MISS_CHAR)
1733: THEN
1734: x_oks_billrate_schedules_rec.tuesday_flag := l_oks_billrate_schedules_rec.tuesday_flag;
1735: END IF;
1736: IF (x_oks_billrate_schedules_rec.wednesday_flag = OKC_API.G_MISS_CHAR)
1737: THEN
1738: x_oks_billrate_schedules_rec.wednesday_flag := l_oks_billrate_schedules_rec.wednesday_flag;
1739: END IF;
1740: IF (x_oks_billrate_schedules_rec.thursday_flag = OKC_API.G_MISS_CHAR)
1736: IF (x_oks_billrate_schedules_rec.wednesday_flag = OKC_API.G_MISS_CHAR)
1737: THEN
1738: x_oks_billrate_schedules_rec.wednesday_flag := l_oks_billrate_schedules_rec.wednesday_flag;
1739: END IF;
1740: IF (x_oks_billrate_schedules_rec.thursday_flag = OKC_API.G_MISS_CHAR)
1741: THEN
1742: x_oks_billrate_schedules_rec.thursday_flag := l_oks_billrate_schedules_rec.thursday_flag;
1743: END IF;
1744: IF (x_oks_billrate_schedules_rec.friday_flag = OKC_API.G_MISS_CHAR)
1740: IF (x_oks_billrate_schedules_rec.thursday_flag = OKC_API.G_MISS_CHAR)
1741: THEN
1742: x_oks_billrate_schedules_rec.thursday_flag := l_oks_billrate_schedules_rec.thursday_flag;
1743: END IF;
1744: IF (x_oks_billrate_schedules_rec.friday_flag = OKC_API.G_MISS_CHAR)
1745: THEN
1746: x_oks_billrate_schedules_rec.friday_flag := l_oks_billrate_schedules_rec.friday_flag;
1747: END IF;
1748: IF (x_oks_billrate_schedules_rec.saturday_flag = OKC_API.G_MISS_CHAR)
1744: IF (x_oks_billrate_schedules_rec.friday_flag = OKC_API.G_MISS_CHAR)
1745: THEN
1746: x_oks_billrate_schedules_rec.friday_flag := l_oks_billrate_schedules_rec.friday_flag;
1747: END IF;
1748: IF (x_oks_billrate_schedules_rec.saturday_flag = OKC_API.G_MISS_CHAR)
1749: THEN
1750: x_oks_billrate_schedules_rec.saturday_flag := l_oks_billrate_schedules_rec.saturday_flag;
1751: END IF;
1752: IF (x_oks_billrate_schedules_rec.sunday_flag = OKC_API.G_MISS_CHAR)
1748: IF (x_oks_billrate_schedules_rec.saturday_flag = OKC_API.G_MISS_CHAR)
1749: THEN
1750: x_oks_billrate_schedules_rec.saturday_flag := l_oks_billrate_schedules_rec.saturday_flag;
1751: END IF;
1752: IF (x_oks_billrate_schedules_rec.sunday_flag = OKC_API.G_MISS_CHAR)
1753: THEN
1754: x_oks_billrate_schedules_rec.sunday_flag := l_oks_billrate_schedules_rec.sunday_flag;
1755: END IF;
1756: IF (x_oks_billrate_schedules_rec.object1_id1 = OKC_API.G_MISS_CHAR)
1752: IF (x_oks_billrate_schedules_rec.sunday_flag = OKC_API.G_MISS_CHAR)
1753: THEN
1754: x_oks_billrate_schedules_rec.sunday_flag := l_oks_billrate_schedules_rec.sunday_flag;
1755: END IF;
1756: IF (x_oks_billrate_schedules_rec.object1_id1 = OKC_API.G_MISS_CHAR)
1757: THEN
1758: x_oks_billrate_schedules_rec.object1_id1 := l_oks_billrate_schedules_rec.object1_id1;
1759: END IF;
1760: IF (x_oks_billrate_schedules_rec.object1_id2 = OKC_API.G_MISS_CHAR)
1756: IF (x_oks_billrate_schedules_rec.object1_id1 = OKC_API.G_MISS_CHAR)
1757: THEN
1758: x_oks_billrate_schedules_rec.object1_id1 := l_oks_billrate_schedules_rec.object1_id1;
1759: END IF;
1760: IF (x_oks_billrate_schedules_rec.object1_id2 = OKC_API.G_MISS_CHAR)
1761: THEN
1762: x_oks_billrate_schedules_rec.object1_id2 := l_oks_billrate_schedules_rec.object1_id2;
1763: END IF;
1764: IF (x_oks_billrate_schedules_rec.jtot_object1_code = OKC_API.G_MISS_CHAR)
1760: IF (x_oks_billrate_schedules_rec.object1_id2 = OKC_API.G_MISS_CHAR)
1761: THEN
1762: x_oks_billrate_schedules_rec.object1_id2 := l_oks_billrate_schedules_rec.object1_id2;
1763: END IF;
1764: IF (x_oks_billrate_schedules_rec.jtot_object1_code = OKC_API.G_MISS_CHAR)
1765: THEN
1766: x_oks_billrate_schedules_rec.jtot_object1_code := l_oks_billrate_schedules_rec.jtot_object1_code;
1767: END IF;
1768: IF (x_oks_billrate_schedules_rec.bill_rate_code = OKC_API.G_MISS_CHAR)
1764: IF (x_oks_billrate_schedules_rec.jtot_object1_code = OKC_API.G_MISS_CHAR)
1765: THEN
1766: x_oks_billrate_schedules_rec.jtot_object1_code := l_oks_billrate_schedules_rec.jtot_object1_code;
1767: END IF;
1768: IF (x_oks_billrate_schedules_rec.bill_rate_code = OKC_API.G_MISS_CHAR)
1769: THEN
1770: x_oks_billrate_schedules_rec.bill_rate_code := l_oks_billrate_schedules_rec.bill_rate_code;
1771: END IF;
1772: IF (x_oks_billrate_schedules_rec.flat_rate = OKC_API.G_MISS_NUM)
1768: IF (x_oks_billrate_schedules_rec.bill_rate_code = OKC_API.G_MISS_CHAR)
1769: THEN
1770: x_oks_billrate_schedules_rec.bill_rate_code := l_oks_billrate_schedules_rec.bill_rate_code;
1771: END IF;
1772: IF (x_oks_billrate_schedules_rec.flat_rate = OKC_API.G_MISS_NUM)
1773: THEN
1774: x_oks_billrate_schedules_rec.flat_rate := l_oks_billrate_schedules_rec.flat_rate;
1775: END IF;
1776: IF (x_oks_billrate_schedules_rec.uom = OKC_API.G_MISS_CHAR)
1772: IF (x_oks_billrate_schedules_rec.flat_rate = OKC_API.G_MISS_NUM)
1773: THEN
1774: x_oks_billrate_schedules_rec.flat_rate := l_oks_billrate_schedules_rec.flat_rate;
1775: END IF;
1776: IF (x_oks_billrate_schedules_rec.uom = OKC_API.G_MISS_CHAR)
1777: THEN
1778: x_oks_billrate_schedules_rec.uom := l_oks_billrate_schedules_rec.uom;
1779: END IF;
1780: IF (x_oks_billrate_schedules_rec.holiday_yn = OKC_API.G_MISS_CHAR)
1776: IF (x_oks_billrate_schedules_rec.uom = OKC_API.G_MISS_CHAR)
1777: THEN
1778: x_oks_billrate_schedules_rec.uom := l_oks_billrate_schedules_rec.uom;
1779: END IF;
1780: IF (x_oks_billrate_schedules_rec.holiday_yn = OKC_API.G_MISS_CHAR)
1781: THEN
1782: x_oks_billrate_schedules_rec.holiday_yn := l_oks_billrate_schedules_rec.holiday_yn;
1783: END IF;
1784: IF (x_oks_billrate_schedules_rec.percent_over_list_price = OKC_API.G_MISS_NUM)
1780: IF (x_oks_billrate_schedules_rec.holiday_yn = OKC_API.G_MISS_CHAR)
1781: THEN
1782: x_oks_billrate_schedules_rec.holiday_yn := l_oks_billrate_schedules_rec.holiday_yn;
1783: END IF;
1784: IF (x_oks_billrate_schedules_rec.percent_over_list_price = OKC_API.G_MISS_NUM)
1785: THEN
1786: x_oks_billrate_schedules_rec.percent_over_list_price := l_oks_billrate_schedules_rec.percent_over_list_price;
1787: END IF;
1788: IF (x_oks_billrate_schedules_rec.program_application_id = OKC_API.G_MISS_NUM)
1784: IF (x_oks_billrate_schedules_rec.percent_over_list_price = OKC_API.G_MISS_NUM)
1785: THEN
1786: x_oks_billrate_schedules_rec.percent_over_list_price := l_oks_billrate_schedules_rec.percent_over_list_price;
1787: END IF;
1788: IF (x_oks_billrate_schedules_rec.program_application_id = OKC_API.G_MISS_NUM)
1789: THEN
1790: x_oks_billrate_schedules_rec.program_application_id := l_oks_billrate_schedules_rec.program_application_id;
1791: END IF;
1792: IF (x_oks_billrate_schedules_rec.program_id = OKC_API.G_MISS_NUM)
1788: IF (x_oks_billrate_schedules_rec.program_application_id = OKC_API.G_MISS_NUM)
1789: THEN
1790: x_oks_billrate_schedules_rec.program_application_id := l_oks_billrate_schedules_rec.program_application_id;
1791: END IF;
1792: IF (x_oks_billrate_schedules_rec.program_id = OKC_API.G_MISS_NUM)
1793: THEN
1794: x_oks_billrate_schedules_rec.program_id := l_oks_billrate_schedules_rec.program_id;
1795: END IF;
1796: IF (x_oks_billrate_schedules_rec.program_update_date = OKC_API.G_MISS_DATE)
1792: IF (x_oks_billrate_schedules_rec.program_id = OKC_API.G_MISS_NUM)
1793: THEN
1794: x_oks_billrate_schedules_rec.program_id := l_oks_billrate_schedules_rec.program_id;
1795: END IF;
1796: IF (x_oks_billrate_schedules_rec.program_update_date = OKC_API.G_MISS_DATE)
1797: THEN
1798: x_oks_billrate_schedules_rec.program_update_date := l_oks_billrate_schedules_rec.program_update_date;
1799: END IF;
1800: IF (x_oks_billrate_schedules_rec.request_id = OKC_API.G_MISS_NUM)
1796: IF (x_oks_billrate_schedules_rec.program_update_date = OKC_API.G_MISS_DATE)
1797: THEN
1798: x_oks_billrate_schedules_rec.program_update_date := l_oks_billrate_schedules_rec.program_update_date;
1799: END IF;
1800: IF (x_oks_billrate_schedules_rec.request_id = OKC_API.G_MISS_NUM)
1801: THEN
1802: x_oks_billrate_schedules_rec.request_id := l_oks_billrate_schedules_rec.request_id;
1803: END IF;
1804: IF (x_oks_billrate_schedules_rec.created_by = OKC_API.G_MISS_NUM)
1800: IF (x_oks_billrate_schedules_rec.request_id = OKC_API.G_MISS_NUM)
1801: THEN
1802: x_oks_billrate_schedules_rec.request_id := l_oks_billrate_schedules_rec.request_id;
1803: END IF;
1804: IF (x_oks_billrate_schedules_rec.created_by = OKC_API.G_MISS_NUM)
1805: THEN
1806: x_oks_billrate_schedules_rec.created_by := l_oks_billrate_schedules_rec.created_by;
1807: END IF;
1808: IF (x_oks_billrate_schedules_rec.creation_date = OKC_API.G_MISS_DATE)
1804: IF (x_oks_billrate_schedules_rec.created_by = OKC_API.G_MISS_NUM)
1805: THEN
1806: x_oks_billrate_schedules_rec.created_by := l_oks_billrate_schedules_rec.created_by;
1807: END IF;
1808: IF (x_oks_billrate_schedules_rec.creation_date = OKC_API.G_MISS_DATE)
1809: THEN
1810: x_oks_billrate_schedules_rec.creation_date := l_oks_billrate_schedules_rec.creation_date;
1811: END IF;
1812: IF (x_oks_billrate_schedules_rec.last_updated_by = OKC_API.G_MISS_NUM)
1808: IF (x_oks_billrate_schedules_rec.creation_date = OKC_API.G_MISS_DATE)
1809: THEN
1810: x_oks_billrate_schedules_rec.creation_date := l_oks_billrate_schedules_rec.creation_date;
1811: END IF;
1812: IF (x_oks_billrate_schedules_rec.last_updated_by = OKC_API.G_MISS_NUM)
1813: THEN
1814: x_oks_billrate_schedules_rec.last_updated_by := l_oks_billrate_schedules_rec.last_updated_by;
1815: END IF;
1816: IF (x_oks_billrate_schedules_rec.last_update_date = OKC_API.G_MISS_DATE)
1812: IF (x_oks_billrate_schedules_rec.last_updated_by = OKC_API.G_MISS_NUM)
1813: THEN
1814: x_oks_billrate_schedules_rec.last_updated_by := l_oks_billrate_schedules_rec.last_updated_by;
1815: END IF;
1816: IF (x_oks_billrate_schedules_rec.last_update_date = OKC_API.G_MISS_DATE)
1817: THEN
1818: x_oks_billrate_schedules_rec.last_update_date := l_oks_billrate_schedules_rec.last_update_date;
1819: END IF;
1820: IF (x_oks_billrate_schedules_rec.last_update_login = OKC_API.G_MISS_NUM)
1816: IF (x_oks_billrate_schedules_rec.last_update_date = OKC_API.G_MISS_DATE)
1817: THEN
1818: x_oks_billrate_schedules_rec.last_update_date := l_oks_billrate_schedules_rec.last_update_date;
1819: END IF;
1820: IF (x_oks_billrate_schedules_rec.last_update_login = OKC_API.G_MISS_NUM)
1821: THEN
1822: x_oks_billrate_schedules_rec.last_update_login := l_oks_billrate_schedules_rec.last_update_login;
1823: END IF;
1824: IF (x_oks_billrate_schedules_rec.object_version_number = OKC_API.G_MISS_NUM)
1820: IF (x_oks_billrate_schedules_rec.last_update_login = OKC_API.G_MISS_NUM)
1821: THEN
1822: x_oks_billrate_schedules_rec.last_update_login := l_oks_billrate_schedules_rec.last_update_login;
1823: END IF;
1824: IF (x_oks_billrate_schedules_rec.object_version_number = OKC_API.G_MISS_NUM)
1825: THEN
1826: x_oks_billrate_schedules_rec.object_version_number := l_oks_billrate_schedules_rec.object_version_number;
1827: END IF;
1828: END IF;
1834: FUNCTION Set_Attributes (
1835: p_oks_billrate_schedules_rec IN OksBillrateSchedulesRecType,
1836: x_oks_billrate_schedules_rec OUT NOCOPY OksBillrateSchedulesRecType
1837: ) RETURN VARCHAR2 IS
1838: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1839: BEGIN
1840: x_oks_billrate_schedules_rec := p_oks_billrate_schedules_rec;
1841: x_oks_billrate_schedules_rec.OBJECT_VERSION_NUMBER := p_oks_billrate_schedules_rec.OBJECT_VERSION_NUMBER + 1;
1842: RETURN(l_return_status);
1841: x_oks_billrate_schedules_rec.OBJECT_VERSION_NUMBER := p_oks_billrate_schedules_rec.OBJECT_VERSION_NUMBER + 1;
1842: RETURN(l_return_status);
1843: END Set_Attributes;
1844: BEGIN
1845: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1846: p_init_msg_list,
1847: '_PVT',
1848: x_return_status);
1849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1845: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1846: p_init_msg_list,
1847: '_PVT',
1848: x_return_status);
1849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1846: p_init_msg_list,
1847: '_PVT',
1848: x_return_status);
1849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: --- Setting item attributes
1847: '_PVT',
1848: x_return_status);
1849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: --- Setting item attributes
1855: l_return_status := Set_Attributes(
1848: x_return_status);
1849: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1850: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1851: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1852: RAISE OKC_API.G_EXCEPTION_ERROR;
1853: END IF;
1854: --- Setting item attributes
1855: l_return_status := Set_Attributes(
1856: p_oks_billrate_schedules_rec, -- IN
1855: l_return_status := Set_Attributes(
1856: p_oks_billrate_schedules_rec, -- IN
1857: l_oks_billrate_schedules_rec); -- OUT
1858: --- If any errors happen abort API
1859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1862: RAISE OKC_API.G_EXCEPTION_ERROR;
1863: END IF;
1856: p_oks_billrate_schedules_rec, -- IN
1857: l_oks_billrate_schedules_rec); -- OUT
1858: --- If any errors happen abort API
1859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1862: RAISE OKC_API.G_EXCEPTION_ERROR;
1863: END IF;
1864: l_return_status := populate_new_record(l_oks_billrate_schedules_rec, LDefOksBillrateSchedulesRec);
1857: l_oks_billrate_schedules_rec); -- OUT
1858: --- If any errors happen abort API
1859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1862: RAISE OKC_API.G_EXCEPTION_ERROR;
1863: END IF;
1864: l_return_status := populate_new_record(l_oks_billrate_schedules_rec, LDefOksBillrateSchedulesRec);
1865: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1858: --- If any errors happen abort API
1859: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1860: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1862: RAISE OKC_API.G_EXCEPTION_ERROR;
1863: END IF;
1864: l_return_status := populate_new_record(l_oks_billrate_schedules_rec, LDefOksBillrateSchedulesRec);
1865: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1866: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1861: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1862: RAISE OKC_API.G_EXCEPTION_ERROR;
1863: END IF;
1864: l_return_status := populate_new_record(l_oks_billrate_schedules_rec, LDefOksBillrateSchedulesRec);
1865: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1866: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1867: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1868: RAISE OKC_API.G_EXCEPTION_ERROR;
1869: END IF;
1862: RAISE OKC_API.G_EXCEPTION_ERROR;
1863: END IF;
1864: l_return_status := populate_new_record(l_oks_billrate_schedules_rec, LDefOksBillrateSchedulesRec);
1865: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1866: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1867: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1868: RAISE OKC_API.G_EXCEPTION_ERROR;
1869: END IF;
1870: UPDATE OKS_BILLRATE_SCHEDULES
1863: END IF;
1864: l_return_status := populate_new_record(l_oks_billrate_schedules_rec, LDefOksBillrateSchedulesRec);
1865: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1866: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1867: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1868: RAISE OKC_API.G_EXCEPTION_ERROR;
1869: END IF;
1870: UPDATE OKS_BILLRATE_SCHEDULES
1871: SET CLE_ID = LDefOksBillrateSchedulesRec.cle_id,
1864: l_return_status := populate_new_record(l_oks_billrate_schedules_rec, LDefOksBillrateSchedulesRec);
1865: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1866: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1867: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1868: RAISE OKC_API.G_EXCEPTION_ERROR;
1869: END IF;
1870: UPDATE OKS_BILLRATE_SCHEDULES
1871: SET CLE_ID = LDefOksBillrateSchedulesRec.cle_id,
1872: BT_CLE_ID = LDefOksBillrateSchedulesRec.bt_cle_id,
1903: WHERE ID = LDefOksBillrateSchedulesRec.id;
1904:
1905: x_oks_billrate_schedules_rec := l_oks_billrate_schedules_rec;
1906: x_return_status := l_return_status;
1907: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1908: EXCEPTION
1909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1910: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1911: (
1905: x_oks_billrate_schedules_rec := l_oks_billrate_schedules_rec;
1906: x_return_status := l_return_status;
1907: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1908: EXCEPTION
1909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1910: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1911: (
1912: l_api_name,
1913: G_PKG_NAME,
1906: x_return_status := l_return_status;
1907: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1908: EXCEPTION
1909: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1910: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1911: (
1912: l_api_name,
1913: G_PKG_NAME,
1914: 'OKC_API.G_RET_STS_ERROR',
1910: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1911: (
1912: l_api_name,
1913: G_PKG_NAME,
1914: 'OKC_API.G_RET_STS_ERROR',
1915: x_msg_count,
1916: x_msg_data,
1917: '_PVT'
1918: );
1915: x_msg_count,
1916: x_msg_data,
1917: '_PVT'
1918: );
1919: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1920: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1921: (
1922: l_api_name,
1923: G_PKG_NAME,
1916: x_msg_data,
1917: '_PVT'
1918: );
1919: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1920: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1921: (
1922: l_api_name,
1923: G_PKG_NAME,
1924: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1920: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1921: (
1922: l_api_name,
1923: G_PKG_NAME,
1924: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1925: x_msg_count,
1926: x_msg_data,
1927: '_PVT'
1928: );
1926: x_msg_data,
1927: '_PVT'
1928: );
1929: WHEN OTHERS THEN
1930: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1931: (
1932: l_api_name,
1933: G_PKG_NAME,
1934: 'OTHERS',
1950: x_oks_billrate_schedules_v_rec OUT NOCOPY OksBillrateSchedulesVRecType) IS
1951:
1952: l_api_version CONSTANT NUMBER := 1;
1953: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
1954: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1955: l_oks_billrate_schedules_v_rec OksBillrateSchedulesVRecType := p_oks_billrate_schedules_v_rec;
1956: LDefOksBillrateSchedulesVRec OksBillrateSchedulesVRecType;
1957: l_db_oks_billrate_sch1 OksBillrateSchedulesVRecType;
1958: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
1977: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType,
1978: x_oks_billrate_schedules_v_rec OUT NOCOPY OksBillrateSchedulesVRecType
1979: ) RETURN VARCHAR2 IS
1980: l_row_notfound BOOLEAN := TRUE;
1981: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1982: BEGIN
1983: x_oks_billrate_schedules_v_rec := p_oks_billrate_schedules_v_rec;
1984: -- Get current database values
1985: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
1984: -- Get current database values
1985: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
1986: -- so it may be verified through LOCK_ROW.
1987: l_db_oks_billrate_sch1 := get_rec(p_oks_billrate_schedules_v_rec, l_return_status);
1988: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1989: IF (x_oks_billrate_schedules_v_rec.id = OKC_API.G_MISS_NUM)
1990: THEN
1991: x_oks_billrate_schedules_v_rec.id := l_db_oks_billrate_sch1.id;
1992: END IF;
1985: -- NOTE: Never assign the OBJECT_VERSION_NUMBER. Force the user to pass it
1986: -- so it may be verified through LOCK_ROW.
1987: l_db_oks_billrate_sch1 := get_rec(p_oks_billrate_schedules_v_rec, l_return_status);
1988: IF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
1989: IF (x_oks_billrate_schedules_v_rec.id = OKC_API.G_MISS_NUM)
1990: THEN
1991: x_oks_billrate_schedules_v_rec.id := l_db_oks_billrate_sch1.id;
1992: END IF;
1993: IF (x_oks_billrate_schedules_v_rec.cle_id = OKC_API.G_MISS_NUM)
1989: IF (x_oks_billrate_schedules_v_rec.id = OKC_API.G_MISS_NUM)
1990: THEN
1991: x_oks_billrate_schedules_v_rec.id := l_db_oks_billrate_sch1.id;
1992: END IF;
1993: IF (x_oks_billrate_schedules_v_rec.cle_id = OKC_API.G_MISS_NUM)
1994: THEN
1995: x_oks_billrate_schedules_v_rec.cle_id := l_db_oks_billrate_sch1.cle_id;
1996: END IF;
1997: IF (x_oks_billrate_schedules_v_rec.bt_cle_id = OKC_API.G_MISS_NUM)
1993: IF (x_oks_billrate_schedules_v_rec.cle_id = OKC_API.G_MISS_NUM)
1994: THEN
1995: x_oks_billrate_schedules_v_rec.cle_id := l_db_oks_billrate_sch1.cle_id;
1996: END IF;
1997: IF (x_oks_billrate_schedules_v_rec.bt_cle_id = OKC_API.G_MISS_NUM)
1998: THEN
1999: x_oks_billrate_schedules_v_rec.bt_cle_id := l_db_oks_billrate_sch1.bt_cle_id;
2000: END IF;
2001: IF (x_oks_billrate_schedules_v_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
1997: IF (x_oks_billrate_schedules_v_rec.bt_cle_id = OKC_API.G_MISS_NUM)
1998: THEN
1999: x_oks_billrate_schedules_v_rec.bt_cle_id := l_db_oks_billrate_sch1.bt_cle_id;
2000: END IF;
2001: IF (x_oks_billrate_schedules_v_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2002: THEN
2003: x_oks_billrate_schedules_v_rec.dnz_chr_id := l_db_oks_billrate_sch1.dnz_chr_id;
2004: END IF;
2005: IF (x_oks_billrate_schedules_v_rec.start_hour = OKC_API.G_MISS_NUM)
2001: IF (x_oks_billrate_schedules_v_rec.dnz_chr_id = OKC_API.G_MISS_NUM)
2002: THEN
2003: x_oks_billrate_schedules_v_rec.dnz_chr_id := l_db_oks_billrate_sch1.dnz_chr_id;
2004: END IF;
2005: IF (x_oks_billrate_schedules_v_rec.start_hour = OKC_API.G_MISS_NUM)
2006: THEN
2007: x_oks_billrate_schedules_v_rec.start_hour := l_db_oks_billrate_sch1.start_hour;
2008: END IF;
2009: IF (x_oks_billrate_schedules_v_rec.start_minute = OKC_API.G_MISS_NUM)
2005: IF (x_oks_billrate_schedules_v_rec.start_hour = OKC_API.G_MISS_NUM)
2006: THEN
2007: x_oks_billrate_schedules_v_rec.start_hour := l_db_oks_billrate_sch1.start_hour;
2008: END IF;
2009: IF (x_oks_billrate_schedules_v_rec.start_minute = OKC_API.G_MISS_NUM)
2010: THEN
2011: x_oks_billrate_schedules_v_rec.start_minute := l_db_oks_billrate_sch1.start_minute;
2012: END IF;
2013: IF (x_oks_billrate_schedules_v_rec.end_hour = OKC_API.G_MISS_NUM)
2009: IF (x_oks_billrate_schedules_v_rec.start_minute = OKC_API.G_MISS_NUM)
2010: THEN
2011: x_oks_billrate_schedules_v_rec.start_minute := l_db_oks_billrate_sch1.start_minute;
2012: END IF;
2013: IF (x_oks_billrate_schedules_v_rec.end_hour = OKC_API.G_MISS_NUM)
2014: THEN
2015: x_oks_billrate_schedules_v_rec.end_hour := l_db_oks_billrate_sch1.end_hour;
2016: END IF;
2017: IF (x_oks_billrate_schedules_v_rec.end_minute = OKC_API.G_MISS_NUM)
2013: IF (x_oks_billrate_schedules_v_rec.end_hour = OKC_API.G_MISS_NUM)
2014: THEN
2015: x_oks_billrate_schedules_v_rec.end_hour := l_db_oks_billrate_sch1.end_hour;
2016: END IF;
2017: IF (x_oks_billrate_schedules_v_rec.end_minute = OKC_API.G_MISS_NUM)
2018: THEN
2019: x_oks_billrate_schedules_v_rec.end_minute := l_db_oks_billrate_sch1.end_minute;
2020: END IF;
2021: IF (x_oks_billrate_schedules_v_rec.monday_flag = OKC_API.G_MISS_CHAR)
2017: IF (x_oks_billrate_schedules_v_rec.end_minute = OKC_API.G_MISS_NUM)
2018: THEN
2019: x_oks_billrate_schedules_v_rec.end_minute := l_db_oks_billrate_sch1.end_minute;
2020: END IF;
2021: IF (x_oks_billrate_schedules_v_rec.monday_flag = OKC_API.G_MISS_CHAR)
2022: THEN
2023: x_oks_billrate_schedules_v_rec.monday_flag := l_db_oks_billrate_sch1.monday_flag;
2024: END IF;
2025: IF (x_oks_billrate_schedules_v_rec.tuesday_flag = OKC_API.G_MISS_CHAR)
2021: IF (x_oks_billrate_schedules_v_rec.monday_flag = OKC_API.G_MISS_CHAR)
2022: THEN
2023: x_oks_billrate_schedules_v_rec.monday_flag := l_db_oks_billrate_sch1.monday_flag;
2024: END IF;
2025: IF (x_oks_billrate_schedules_v_rec.tuesday_flag = OKC_API.G_MISS_CHAR)
2026: THEN
2027: x_oks_billrate_schedules_v_rec.tuesday_flag := l_db_oks_billrate_sch1.tuesday_flag;
2028: END IF;
2029: IF (x_oks_billrate_schedules_v_rec.wednesday_flag = OKC_API.G_MISS_CHAR)
2025: IF (x_oks_billrate_schedules_v_rec.tuesday_flag = OKC_API.G_MISS_CHAR)
2026: THEN
2027: x_oks_billrate_schedules_v_rec.tuesday_flag := l_db_oks_billrate_sch1.tuesday_flag;
2028: END IF;
2029: IF (x_oks_billrate_schedules_v_rec.wednesday_flag = OKC_API.G_MISS_CHAR)
2030: THEN
2031: x_oks_billrate_schedules_v_rec.wednesday_flag := l_db_oks_billrate_sch1.wednesday_flag;
2032: END IF;
2033: IF (x_oks_billrate_schedules_v_rec.thursday_flag = OKC_API.G_MISS_CHAR)
2029: IF (x_oks_billrate_schedules_v_rec.wednesday_flag = OKC_API.G_MISS_CHAR)
2030: THEN
2031: x_oks_billrate_schedules_v_rec.wednesday_flag := l_db_oks_billrate_sch1.wednesday_flag;
2032: END IF;
2033: IF (x_oks_billrate_schedules_v_rec.thursday_flag = OKC_API.G_MISS_CHAR)
2034: THEN
2035: x_oks_billrate_schedules_v_rec.thursday_flag := l_db_oks_billrate_sch1.thursday_flag;
2036: END IF;
2037: IF (x_oks_billrate_schedules_v_rec.friday_flag = OKC_API.G_MISS_CHAR)
2033: IF (x_oks_billrate_schedules_v_rec.thursday_flag = OKC_API.G_MISS_CHAR)
2034: THEN
2035: x_oks_billrate_schedules_v_rec.thursday_flag := l_db_oks_billrate_sch1.thursday_flag;
2036: END IF;
2037: IF (x_oks_billrate_schedules_v_rec.friday_flag = OKC_API.G_MISS_CHAR)
2038: THEN
2039: x_oks_billrate_schedules_v_rec.friday_flag := l_db_oks_billrate_sch1.friday_flag;
2040: END IF;
2041: IF (x_oks_billrate_schedules_v_rec.saturday_flag = OKC_API.G_MISS_CHAR)
2037: IF (x_oks_billrate_schedules_v_rec.friday_flag = OKC_API.G_MISS_CHAR)
2038: THEN
2039: x_oks_billrate_schedules_v_rec.friday_flag := l_db_oks_billrate_sch1.friday_flag;
2040: END IF;
2041: IF (x_oks_billrate_schedules_v_rec.saturday_flag = OKC_API.G_MISS_CHAR)
2042: THEN
2043: x_oks_billrate_schedules_v_rec.saturday_flag := l_db_oks_billrate_sch1.saturday_flag;
2044: END IF;
2045: IF (x_oks_billrate_schedules_v_rec.sunday_flag = OKC_API.G_MISS_CHAR)
2041: IF (x_oks_billrate_schedules_v_rec.saturday_flag = OKC_API.G_MISS_CHAR)
2042: THEN
2043: x_oks_billrate_schedules_v_rec.saturday_flag := l_db_oks_billrate_sch1.saturday_flag;
2044: END IF;
2045: IF (x_oks_billrate_schedules_v_rec.sunday_flag = OKC_API.G_MISS_CHAR)
2046: THEN
2047: x_oks_billrate_schedules_v_rec.sunday_flag := l_db_oks_billrate_sch1.sunday_flag;
2048: END IF;
2049: IF (x_oks_billrate_schedules_v_rec.object1_id1 = OKC_API.G_MISS_CHAR)
2045: IF (x_oks_billrate_schedules_v_rec.sunday_flag = OKC_API.G_MISS_CHAR)
2046: THEN
2047: x_oks_billrate_schedules_v_rec.sunday_flag := l_db_oks_billrate_sch1.sunday_flag;
2048: END IF;
2049: IF (x_oks_billrate_schedules_v_rec.object1_id1 = OKC_API.G_MISS_CHAR)
2050: THEN
2051: x_oks_billrate_schedules_v_rec.object1_id1 := l_db_oks_billrate_sch1.object1_id1;
2052: END IF;
2053: IF (x_oks_billrate_schedules_v_rec.object1_id2 = OKC_API.G_MISS_CHAR)
2049: IF (x_oks_billrate_schedules_v_rec.object1_id1 = OKC_API.G_MISS_CHAR)
2050: THEN
2051: x_oks_billrate_schedules_v_rec.object1_id1 := l_db_oks_billrate_sch1.object1_id1;
2052: END IF;
2053: IF (x_oks_billrate_schedules_v_rec.object1_id2 = OKC_API.G_MISS_CHAR)
2054: THEN
2055: x_oks_billrate_schedules_v_rec.object1_id2 := l_db_oks_billrate_sch1.object1_id2;
2056: END IF;
2057: IF (x_oks_billrate_schedules_v_rec.jtot_object1_code = OKC_API.G_MISS_CHAR)
2053: IF (x_oks_billrate_schedules_v_rec.object1_id2 = OKC_API.G_MISS_CHAR)
2054: THEN
2055: x_oks_billrate_schedules_v_rec.object1_id2 := l_db_oks_billrate_sch1.object1_id2;
2056: END IF;
2057: IF (x_oks_billrate_schedules_v_rec.jtot_object1_code = OKC_API.G_MISS_CHAR)
2058: THEN
2059: x_oks_billrate_schedules_v_rec.jtot_object1_code := l_db_oks_billrate_sch1.jtot_object1_code;
2060: END IF;
2061: IF (x_oks_billrate_schedules_v_rec.bill_rate_code = OKC_API.G_MISS_CHAR)
2057: IF (x_oks_billrate_schedules_v_rec.jtot_object1_code = OKC_API.G_MISS_CHAR)
2058: THEN
2059: x_oks_billrate_schedules_v_rec.jtot_object1_code := l_db_oks_billrate_sch1.jtot_object1_code;
2060: END IF;
2061: IF (x_oks_billrate_schedules_v_rec.bill_rate_code = OKC_API.G_MISS_CHAR)
2062: THEN
2063: x_oks_billrate_schedules_v_rec.bill_rate_code := l_db_oks_billrate_sch1.bill_rate_code;
2064: END IF;
2065: IF (x_oks_billrate_schedules_v_rec.uom = OKC_API.G_MISS_CHAR)
2061: IF (x_oks_billrate_schedules_v_rec.bill_rate_code = OKC_API.G_MISS_CHAR)
2062: THEN
2063: x_oks_billrate_schedules_v_rec.bill_rate_code := l_db_oks_billrate_sch1.bill_rate_code;
2064: END IF;
2065: IF (x_oks_billrate_schedules_v_rec.uom = OKC_API.G_MISS_CHAR)
2066: THEN
2067: x_oks_billrate_schedules_v_rec.uom := l_db_oks_billrate_sch1.uom;
2068: END IF;
2069: IF (x_oks_billrate_schedules_v_rec.flat_rate = OKC_API.G_MISS_NUM)
2065: IF (x_oks_billrate_schedules_v_rec.uom = OKC_API.G_MISS_CHAR)
2066: THEN
2067: x_oks_billrate_schedules_v_rec.uom := l_db_oks_billrate_sch1.uom;
2068: END IF;
2069: IF (x_oks_billrate_schedules_v_rec.flat_rate = OKC_API.G_MISS_NUM)
2070: THEN
2071: x_oks_billrate_schedules_v_rec.flat_rate := l_db_oks_billrate_sch1.flat_rate;
2072: END IF;
2073: IF (x_oks_billrate_schedules_v_rec.holiday_yn = OKC_API.G_MISS_CHAR)
2069: IF (x_oks_billrate_schedules_v_rec.flat_rate = OKC_API.G_MISS_NUM)
2070: THEN
2071: x_oks_billrate_schedules_v_rec.flat_rate := l_db_oks_billrate_sch1.flat_rate;
2072: END IF;
2073: IF (x_oks_billrate_schedules_v_rec.holiday_yn = OKC_API.G_MISS_CHAR)
2074: THEN
2075: x_oks_billrate_schedules_v_rec.holiday_yn := l_db_oks_billrate_sch1.holiday_yn;
2076: END IF;
2077: IF (x_oks_billrate_schedules_v_rec.percent_over_list_price = OKC_API.G_MISS_NUM)
2073: IF (x_oks_billrate_schedules_v_rec.holiday_yn = OKC_API.G_MISS_CHAR)
2074: THEN
2075: x_oks_billrate_schedules_v_rec.holiday_yn := l_db_oks_billrate_sch1.holiday_yn;
2076: END IF;
2077: IF (x_oks_billrate_schedules_v_rec.percent_over_list_price = OKC_API.G_MISS_NUM)
2078: THEN
2079: x_oks_billrate_schedules_v_rec.percent_over_list_price := l_db_oks_billrate_sch1.percent_over_list_price;
2080: END IF;
2081: IF (x_oks_billrate_schedules_v_rec.program_application_id = OKC_API.G_MISS_NUM)
2077: IF (x_oks_billrate_schedules_v_rec.percent_over_list_price = OKC_API.G_MISS_NUM)
2078: THEN
2079: x_oks_billrate_schedules_v_rec.percent_over_list_price := l_db_oks_billrate_sch1.percent_over_list_price;
2080: END IF;
2081: IF (x_oks_billrate_schedules_v_rec.program_application_id = OKC_API.G_MISS_NUM)
2082: THEN
2083: x_oks_billrate_schedules_v_rec.program_application_id := l_db_oks_billrate_sch1.program_application_id;
2084: END IF;
2085: IF (x_oks_billrate_schedules_v_rec.program_id = OKC_API.G_MISS_NUM)
2081: IF (x_oks_billrate_schedules_v_rec.program_application_id = OKC_API.G_MISS_NUM)
2082: THEN
2083: x_oks_billrate_schedules_v_rec.program_application_id := l_db_oks_billrate_sch1.program_application_id;
2084: END IF;
2085: IF (x_oks_billrate_schedules_v_rec.program_id = OKC_API.G_MISS_NUM)
2086: THEN
2087: x_oks_billrate_schedules_v_rec.program_id := l_db_oks_billrate_sch1.program_id;
2088: END IF;
2089: IF (x_oks_billrate_schedules_v_rec.program_update_date = OKC_API.G_MISS_DATE)
2085: IF (x_oks_billrate_schedules_v_rec.program_id = OKC_API.G_MISS_NUM)
2086: THEN
2087: x_oks_billrate_schedules_v_rec.program_id := l_db_oks_billrate_sch1.program_id;
2088: END IF;
2089: IF (x_oks_billrate_schedules_v_rec.program_update_date = OKC_API.G_MISS_DATE)
2090: THEN
2091: x_oks_billrate_schedules_v_rec.program_update_date := l_db_oks_billrate_sch1.program_update_date;
2092: END IF;
2093: IF (x_oks_billrate_schedules_v_rec.request_id = OKC_API.G_MISS_NUM)
2089: IF (x_oks_billrate_schedules_v_rec.program_update_date = OKC_API.G_MISS_DATE)
2090: THEN
2091: x_oks_billrate_schedules_v_rec.program_update_date := l_db_oks_billrate_sch1.program_update_date;
2092: END IF;
2093: IF (x_oks_billrate_schedules_v_rec.request_id = OKC_API.G_MISS_NUM)
2094: THEN
2095: x_oks_billrate_schedules_v_rec.request_id := l_db_oks_billrate_sch1.request_id;
2096: END IF;
2097: IF (x_oks_billrate_schedules_v_rec.created_by = OKC_API.G_MISS_NUM)
2093: IF (x_oks_billrate_schedules_v_rec.request_id = OKC_API.G_MISS_NUM)
2094: THEN
2095: x_oks_billrate_schedules_v_rec.request_id := l_db_oks_billrate_sch1.request_id;
2096: END IF;
2097: IF (x_oks_billrate_schedules_v_rec.created_by = OKC_API.G_MISS_NUM)
2098: THEN
2099: x_oks_billrate_schedules_v_rec.created_by := l_db_oks_billrate_sch1.created_by;
2100: END IF;
2101: IF (x_oks_billrate_schedules_v_rec.creation_date = OKC_API.G_MISS_DATE)
2097: IF (x_oks_billrate_schedules_v_rec.created_by = OKC_API.G_MISS_NUM)
2098: THEN
2099: x_oks_billrate_schedules_v_rec.created_by := l_db_oks_billrate_sch1.created_by;
2100: END IF;
2101: IF (x_oks_billrate_schedules_v_rec.creation_date = OKC_API.G_MISS_DATE)
2102: THEN
2103: x_oks_billrate_schedules_v_rec.creation_date := l_db_oks_billrate_sch1.creation_date;
2104: END IF;
2105: IF (x_oks_billrate_schedules_v_rec.last_updated_by = OKC_API.G_MISS_NUM)
2101: IF (x_oks_billrate_schedules_v_rec.creation_date = OKC_API.G_MISS_DATE)
2102: THEN
2103: x_oks_billrate_schedules_v_rec.creation_date := l_db_oks_billrate_sch1.creation_date;
2104: END IF;
2105: IF (x_oks_billrate_schedules_v_rec.last_updated_by = OKC_API.G_MISS_NUM)
2106: THEN
2107: x_oks_billrate_schedules_v_rec.last_updated_by := l_db_oks_billrate_sch1.last_updated_by;
2108: END IF;
2109: IF (x_oks_billrate_schedules_v_rec.last_update_date = OKC_API.G_MISS_DATE)
2105: IF (x_oks_billrate_schedules_v_rec.last_updated_by = OKC_API.G_MISS_NUM)
2106: THEN
2107: x_oks_billrate_schedules_v_rec.last_updated_by := l_db_oks_billrate_sch1.last_updated_by;
2108: END IF;
2109: IF (x_oks_billrate_schedules_v_rec.last_update_date = OKC_API.G_MISS_DATE)
2110: THEN
2111: x_oks_billrate_schedules_v_rec.last_update_date := l_db_oks_billrate_sch1.last_update_date;
2112: END IF;
2113: IF (x_oks_billrate_schedules_v_rec.last_update_login = OKC_API.G_MISS_NUM)
2109: IF (x_oks_billrate_schedules_v_rec.last_update_date = OKC_API.G_MISS_DATE)
2110: THEN
2111: x_oks_billrate_schedules_v_rec.last_update_date := l_db_oks_billrate_sch1.last_update_date;
2112: END IF;
2113: IF (x_oks_billrate_schedules_v_rec.last_update_login = OKC_API.G_MISS_NUM)
2114: THEN
2115: x_oks_billrate_schedules_v_rec.last_update_login := l_db_oks_billrate_sch1.last_update_login;
2116: END IF;
2117: IF (x_oks_billrate_schedules_v_rec.security_group_id = OKC_API.G_MISS_NUM)
2113: IF (x_oks_billrate_schedules_v_rec.last_update_login = OKC_API.G_MISS_NUM)
2114: THEN
2115: x_oks_billrate_schedules_v_rec.last_update_login := l_db_oks_billrate_sch1.last_update_login;
2116: END IF;
2117: IF (x_oks_billrate_schedules_v_rec.security_group_id = OKC_API.G_MISS_NUM)
2118: THEN
2119: x_oks_billrate_schedules_v_rec.security_group_id := l_db_oks_billrate_sch1.security_group_id;
2120: END IF;
2121: END IF;
2127: FUNCTION Set_Attributes (
2128: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType,
2129: x_oks_billrate_schedules_v_rec OUT NOCOPY OksBillrateSchedulesVRecType
2130: ) RETURN VARCHAR2 IS
2131: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2132: BEGIN
2133: x_oks_billrate_schedules_v_rec := p_oks_billrate_schedules_v_rec;
2134: RETURN(l_return_status);
2135: END Set_Attributes;
2133: x_oks_billrate_schedules_v_rec := p_oks_billrate_schedules_v_rec;
2134: RETURN(l_return_status);
2135: END Set_Attributes;
2136: BEGIN
2137: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2138: G_PKG_NAME,
2139: p_init_msg_list,
2140: l_api_version,
2141: p_api_version,
2140: l_api_version,
2141: p_api_version,
2142: '_PVT',
2143: x_return_status);
2144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2147: RAISE OKC_API.G_EXCEPTION_ERROR;
2148: END IF;
2141: p_api_version,
2142: '_PVT',
2143: x_return_status);
2144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2147: RAISE OKC_API.G_EXCEPTION_ERROR;
2148: END IF;
2149: --- Setting item attributes
2142: '_PVT',
2143: x_return_status);
2144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2147: RAISE OKC_API.G_EXCEPTION_ERROR;
2148: END IF;
2149: --- Setting item attributes
2150: l_return_status := Set_Attributes(
2143: x_return_status);
2144: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2145: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2146: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2147: RAISE OKC_API.G_EXCEPTION_ERROR;
2148: END IF;
2149: --- Setting item attributes
2150: l_return_status := Set_Attributes(
2151: p_oks_billrate_schedules_v_rec, -- IN
2150: l_return_status := Set_Attributes(
2151: p_oks_billrate_schedules_v_rec, -- IN
2152: x_oks_billrate_schedules_v_rec); -- OUT
2153: --- If any errors happen abort API
2154: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: RAISE OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2151: p_oks_billrate_schedules_v_rec, -- IN
2152: x_oks_billrate_schedules_v_rec); -- OUT
2153: --- If any errors happen abort API
2154: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: RAISE OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: l_return_status := populate_new_record(l_oks_billrate_schedules_v_rec, LDefOksBillrateSchedulesVRec);
2152: x_oks_billrate_schedules_v_rec); -- OUT
2153: --- If any errors happen abort API
2154: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: RAISE OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: l_return_status := populate_new_record(l_oks_billrate_schedules_v_rec, LDefOksBillrateSchedulesVRec);
2160: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2153: --- If any errors happen abort API
2154: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2155: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: RAISE OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: l_return_status := populate_new_record(l_oks_billrate_schedules_v_rec, LDefOksBillrateSchedulesVRec);
2160: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2156: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2157: RAISE OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: l_return_status := populate_new_record(l_oks_billrate_schedules_v_rec, LDefOksBillrateSchedulesVRec);
2160: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2157: RAISE OKC_API.G_EXCEPTION_ERROR;
2158: END IF;
2159: l_return_status := populate_new_record(l_oks_billrate_schedules_v_rec, LDefOksBillrateSchedulesVRec);
2160: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: LDefOksBillrateSchedulesVRec := fill_who_columns(LDefOksBillrateSchedulesVRec);
2158: END IF;
2159: l_return_status := populate_new_record(l_oks_billrate_schedules_v_rec, LDefOksBillrateSchedulesVRec);
2160: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: LDefOksBillrateSchedulesVRec := fill_who_columns(LDefOksBillrateSchedulesVRec);
2166: --- Validate all non-missing attributes (Item Level Validation)
2159: l_return_status := populate_new_record(l_oks_billrate_schedules_v_rec, LDefOksBillrateSchedulesVRec);
2160: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2161: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2162: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2163: RAISE OKC_API.G_EXCEPTION_ERROR;
2164: END IF;
2165: LDefOksBillrateSchedulesVRec := fill_who_columns(LDefOksBillrateSchedulesVRec);
2166: --- Validate all non-missing attributes (Item Level Validation)
2167: l_return_status := Validate_Attributes(LDefOksBillrateSchedulesVRec);
2165: LDefOksBillrateSchedulesVRec := fill_who_columns(LDefOksBillrateSchedulesVRec);
2166: --- Validate all non-missing attributes (Item Level Validation)
2167: l_return_status := Validate_Attributes(LDefOksBillrateSchedulesVRec);
2168: --- If any errors happen abort API
2169: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2166: --- Validate all non-missing attributes (Item Level Validation)
2167: l_return_status := Validate_Attributes(LDefOksBillrateSchedulesVRec);
2168: --- If any errors happen abort API
2169: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec, l_db_oks_billrate_sch1);
2167: l_return_status := Validate_Attributes(LDefOksBillrateSchedulesVRec);
2168: --- If any errors happen abort API
2169: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec, l_db_oks_billrate_sch1);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2168: --- If any errors happen abort API
2169: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2170: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec, l_db_oks_billrate_sch1);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2171: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec, l_db_oks_billrate_sch1);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: END IF;
2172: RAISE OKC_API.G_EXCEPTION_ERROR;
2173: END IF;
2174: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec, l_db_oks_billrate_sch1);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: END IF;
2180:
2173: END IF;
2174: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec, l_db_oks_billrate_sch1);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: END IF;
2180:
2181: -- Lock the Record
2174: l_return_status := Validate_Record(LDefOksBillrateSchedulesVRec, l_db_oks_billrate_sch1);
2175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2178: RAISE OKC_API.G_EXCEPTION_ERROR;
2179: END IF;
2180:
2181: -- Lock the Record
2182: lock_row(
2185: x_return_status => l_return_status,
2186: x_msg_count => x_msg_count,
2187: x_msg_data => x_msg_data,
2188: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_rec);
2189: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2191: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2193: END IF;
2186: x_msg_count => x_msg_count,
2187: x_msg_data => x_msg_data,
2188: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_rec);
2189: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2191: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2193: END IF;
2194:
2187: x_msg_data => x_msg_data,
2188: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_rec);
2189: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2191: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2193: END IF;
2194:
2195: -----------------------------------------
2188: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_rec);
2189: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2191: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2192: RAISE OKC_API.G_EXCEPTION_ERROR;
2193: END IF;
2194:
2195: -----------------------------------------
2196: -- Move VIEW record to "Child" records --
2206: x_msg_data,
2207: l_oks_billrate_schedules_rec,
2208: lx_oks_billrate_schedules_rec
2209: );
2210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_ERROR;
2214: END IF;
2207: l_oks_billrate_schedules_rec,
2208: lx_oks_billrate_schedules_rec
2209: );
2210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_ERROR;
2214: END IF;
2215: migrate(lx_oks_billrate_schedules_rec, LDefOksBillrateSchedulesVRec);
2208: lx_oks_billrate_schedules_rec
2209: );
2210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_ERROR;
2214: END IF;
2215: migrate(lx_oks_billrate_schedules_rec, LDefOksBillrateSchedulesVRec);
2216: x_oks_billrate_schedules_v_rec := LDefOksBillrateSchedulesVRec;
2209: );
2210: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2211: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2212: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2213: RAISE OKC_API.G_EXCEPTION_ERROR;
2214: END IF;
2215: migrate(lx_oks_billrate_schedules_rec, LDefOksBillrateSchedulesVRec);
2216: x_oks_billrate_schedules_v_rec := LDefOksBillrateSchedulesVRec;
2217: x_return_status := l_return_status;
2214: END IF;
2215: migrate(lx_oks_billrate_schedules_rec, LDefOksBillrateSchedulesVRec);
2216: x_oks_billrate_schedules_v_rec := LDefOksBillrateSchedulesVRec;
2217: x_return_status := l_return_status;
2218: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2219: EXCEPTION
2220: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2222: (
2216: x_oks_billrate_schedules_v_rec := LDefOksBillrateSchedulesVRec;
2217: x_return_status := l_return_status;
2218: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2219: EXCEPTION
2220: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2222: (
2223: l_api_name,
2224: G_PKG_NAME,
2217: x_return_status := l_return_status;
2218: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2219: EXCEPTION
2220: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2222: (
2223: l_api_name,
2224: G_PKG_NAME,
2225: 'OKC_API.G_RET_STS_ERROR',
2221: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2222: (
2223: l_api_name,
2224: G_PKG_NAME,
2225: 'OKC_API.G_RET_STS_ERROR',
2226: x_msg_count,
2227: x_msg_data,
2228: '_PVT'
2229: );
2226: x_msg_count,
2227: x_msg_data,
2228: '_PVT'
2229: );
2230: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2232: (
2233: l_api_name,
2234: G_PKG_NAME,
2227: x_msg_data,
2228: '_PVT'
2229: );
2230: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2232: (
2233: l_api_name,
2234: G_PKG_NAME,
2235: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2231: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2232: (
2233: l_api_name,
2234: G_PKG_NAME,
2235: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2236: x_msg_count,
2237: x_msg_data,
2238: '_PVT'
2239: );
2237: x_msg_data,
2238: '_PVT'
2239: );
2240: WHEN OTHERS THEN
2241: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2242: (
2243: l_api_name,
2244: G_PKG_NAME,
2245: 'OTHERS',
2258: x_msg_count OUT NOCOPY NUMBER,
2259: x_msg_data OUT NOCOPY VARCHAR2,
2260: p_oks_billrate_schedules_v_tbl IN OksBillrateSchedulesVTblType,
2261: x_oks_billrate_schedules_v_tbl OUT NOCOPY OksBillrateSchedulesVTblType,
2262: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2263:
2264: l_api_version CONSTANT NUMBER := 1;
2265: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2266: i NUMBER := 0;
2264: l_api_version CONSTANT NUMBER := 1;
2265: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_update_row';
2266: i NUMBER := 0;
2267: BEGIN
2268: OKC_API.init_msg_list(p_init_msg_list);
2269: -- Make sure PL/SQL table has records in it before passing
2270: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2271: i := p_oks_billrate_schedules_v_tbl.FIRST;
2272: LOOP
2270: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2271: i := p_oks_billrate_schedules_v_tbl.FIRST;
2272: LOOP
2273: DECLARE
2274: l_error_rec OKC_API.ERROR_REC_TYPE;
2275: BEGIN
2276: l_error_rec.api_name := l_api_name;
2277: l_error_rec.api_package := G_PKG_NAME;
2278: l_error_rec.idx := i;
2277: l_error_rec.api_package := G_PKG_NAME;
2278: l_error_rec.idx := i;
2279: update_row (
2280: p_api_version => p_api_version,
2281: p_init_msg_list => OKC_API.G_FALSE,
2282: x_return_status => l_error_rec.error_type,
2283: x_msg_count => l_error_rec.msg_count,
2284: x_msg_data => l_error_rec.msg_data,
2285: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i),
2283: x_msg_count => l_error_rec.msg_count,
2284: x_msg_data => l_error_rec.msg_data,
2285: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i),
2286: x_oks_billrate_schedules_v_rec => x_oks_billrate_schedules_v_tbl(i));
2287: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2288: l_error_rec.sqlcode := SQLCODE;
2289: load_error_tbl(l_error_rec, px_error_tbl);
2290: ELSE
2291: x_msg_count := l_error_rec.msg_count;
2291: x_msg_count := l_error_rec.msg_count;
2292: x_msg_data := l_error_rec.msg_data;
2293: END IF;
2294: EXCEPTION
2295: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2296: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2297: l_error_rec.sqlcode := SQLCODE;
2298: load_error_tbl(l_error_rec, px_error_tbl);
2299: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2292: x_msg_data := l_error_rec.msg_data;
2293: END IF;
2294: EXCEPTION
2295: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2296: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2297: l_error_rec.sqlcode := SQLCODE;
2298: load_error_tbl(l_error_rec, px_error_tbl);
2299: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2300: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2295: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2296: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2297: l_error_rec.sqlcode := SQLCODE;
2298: load_error_tbl(l_error_rec, px_error_tbl);
2299: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2300: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2301: l_error_rec.sqlcode := SQLCODE;
2302: load_error_tbl(l_error_rec, px_error_tbl);
2303: WHEN OTHERS THEN
2296: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2297: l_error_rec.sqlcode := SQLCODE;
2298: load_error_tbl(l_error_rec, px_error_tbl);
2299: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2300: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2301: l_error_rec.sqlcode := SQLCODE;
2302: load_error_tbl(l_error_rec, px_error_tbl);
2303: WHEN OTHERS THEN
2304: l_error_rec.error_type := 'OTHERS';
2311: END IF;
2312: -- Loop through the error_tbl to find the error with the highest severity
2313: -- and return it.
2314: x_return_status := find_highest_exception(px_error_tbl);
2315: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2316: EXCEPTION
2317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2318: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2319: (
2313: -- and return it.
2314: x_return_status := find_highest_exception(px_error_tbl);
2315: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2316: EXCEPTION
2317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2318: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2319: (
2320: l_api_name,
2321: G_PKG_NAME,
2314: x_return_status := find_highest_exception(px_error_tbl);
2315: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2316: EXCEPTION
2317: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2318: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2319: (
2320: l_api_name,
2321: G_PKG_NAME,
2322: 'OKC_API.G_RET_STS_ERROR',
2318: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2319: (
2320: l_api_name,
2321: G_PKG_NAME,
2322: 'OKC_API.G_RET_STS_ERROR',
2323: x_msg_count,
2324: x_msg_data,
2325: '_PVT'
2326: );
2323: x_msg_count,
2324: x_msg_data,
2325: '_PVT'
2326: );
2327: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2330: l_api_name,
2331: G_PKG_NAME,
2324: x_msg_data,
2325: '_PVT'
2326: );
2327: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2330: l_api_name,
2331: G_PKG_NAME,
2332: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2328: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2329: (
2330: l_api_name,
2331: G_PKG_NAME,
2332: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2333: x_msg_count,
2334: x_msg_data,
2335: '_PVT'
2336: );
2334: x_msg_data,
2335: '_PVT'
2336: );
2337: WHEN OTHERS THEN
2338: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2339: (
2340: l_api_name,
2341: G_PKG_NAME,
2342: 'OTHERS',
2361: x_oks_billrate_schedules_v_tbl OUT NOCOPY OksBillrateSchedulesVTblType) IS
2362:
2363: l_api_version CONSTANT NUMBER := 1;
2364: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2365: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2366: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2367: BEGIN
2368: OKC_API.init_msg_list(p_init_msg_list);
2369: -- Make sure PL/SQL table has records in it before passing
2362:
2363: l_api_version CONSTANT NUMBER := 1;
2364: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2365: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2366: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2367: BEGIN
2368: OKC_API.init_msg_list(p_init_msg_list);
2369: -- Make sure PL/SQL table has records in it before passing
2370: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2364: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
2365: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2366: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2367: BEGIN
2368: OKC_API.init_msg_list(p_init_msg_list);
2369: -- Make sure PL/SQL table has records in it before passing
2370: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2371: update_row (
2372: p_api_version => p_api_version,
2369: -- Make sure PL/SQL table has records in it before passing
2370: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2371: update_row (
2372: p_api_version => p_api_version,
2373: p_init_msg_list => OKC_API.G_FALSE,
2374: x_return_status => x_return_status,
2375: x_msg_count => x_msg_count,
2376: x_msg_data => x_msg_data,
2377: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
2377: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
2378: x_oks_billrate_schedules_v_tbl => x_oks_billrate_schedules_v_tbl,
2379: px_error_tbl => l_error_tbl);
2380: END IF;
2381: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2382: EXCEPTION
2383: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2385: (
2379: px_error_tbl => l_error_tbl);
2380: END IF;
2381: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2382: EXCEPTION
2383: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2385: (
2386: l_api_name,
2387: G_PKG_NAME,
2380: END IF;
2381: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2382: EXCEPTION
2383: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2385: (
2386: l_api_name,
2387: G_PKG_NAME,
2388: 'OKC_API.G_RET_STS_ERROR',
2384: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2385: (
2386: l_api_name,
2387: G_PKG_NAME,
2388: 'OKC_API.G_RET_STS_ERROR',
2389: x_msg_count,
2390: x_msg_data,
2391: '_PVT'
2392: );
2389: x_msg_count,
2390: x_msg_data,
2391: '_PVT'
2392: );
2393: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2395: (
2396: l_api_name,
2397: G_PKG_NAME,
2390: x_msg_data,
2391: '_PVT'
2392: );
2393: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2395: (
2396: l_api_name,
2397: G_PKG_NAME,
2398: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2394: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2395: (
2396: l_api_name,
2397: G_PKG_NAME,
2398: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2399: x_msg_count,
2400: x_msg_data,
2401: '_PVT'
2402: );
2400: x_msg_data,
2401: '_PVT'
2402: );
2403: WHEN OTHERS THEN
2404: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2405: (
2406: l_api_name,
2407: G_PKG_NAME,
2408: 'OTHERS',
2426: p_oks_billrate_schedules_rec IN OksBillrateSchedulesRecType) IS
2427:
2428: l_api_version CONSTANT NUMBER := 1;
2429: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
2430: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2431: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType := p_oks_billrate_schedules_rec;
2432: l_row_notfound BOOLEAN := TRUE;
2433: BEGIN
2434: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2430: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2431: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType := p_oks_billrate_schedules_rec;
2432: l_row_notfound BOOLEAN := TRUE;
2433: BEGIN
2434: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2435: p_init_msg_list,
2436: '_PVT',
2437: x_return_status);
2438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2434: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2435: p_init_msg_list,
2436: '_PVT',
2437: x_return_status);
2438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_ERROR;
2442: END IF;
2435: p_init_msg_list,
2436: '_PVT',
2437: x_return_status);
2438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_ERROR;
2442: END IF;
2443:
2436: '_PVT',
2437: x_return_status);
2438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_ERROR;
2442: END IF;
2443:
2444: DELETE FROM OKS_BILLRATE_SCHEDULES
2437: x_return_status);
2438: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2439: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2440: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2441: RAISE OKC_API.G_EXCEPTION_ERROR;
2442: END IF;
2443:
2444: DELETE FROM OKS_BILLRATE_SCHEDULES
2445: WHERE ID = p_oks_billrate_schedules_rec.id;
2444: DELETE FROM OKS_BILLRATE_SCHEDULES
2445: WHERE ID = p_oks_billrate_schedules_rec.id;
2446:
2447: x_return_status := l_return_status;
2448: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2449: EXCEPTION
2450: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2452: (
2446:
2447: x_return_status := l_return_status;
2448: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2449: EXCEPTION
2450: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2452: (
2453: l_api_name,
2454: G_PKG_NAME,
2447: x_return_status := l_return_status;
2448: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2449: EXCEPTION
2450: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2452: (
2453: l_api_name,
2454: G_PKG_NAME,
2455: 'OKC_API.G_RET_STS_ERROR',
2451: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2452: (
2453: l_api_name,
2454: G_PKG_NAME,
2455: 'OKC_API.G_RET_STS_ERROR',
2456: x_msg_count,
2457: x_msg_data,
2458: '_PVT'
2459: );
2456: x_msg_count,
2457: x_msg_data,
2458: '_PVT'
2459: );
2460: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2461: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2462: (
2463: l_api_name,
2464: G_PKG_NAME,
2457: x_msg_data,
2458: '_PVT'
2459: );
2460: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2461: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2462: (
2463: l_api_name,
2464: G_PKG_NAME,
2465: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2461: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2462: (
2463: l_api_name,
2464: G_PKG_NAME,
2465: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2466: x_msg_count,
2467: x_msg_data,
2468: '_PVT'
2469: );
2467: x_msg_data,
2468: '_PVT'
2469: );
2470: WHEN OTHERS THEN
2471: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2472: (
2473: l_api_name,
2474: G_PKG_NAME,
2475: 'OTHERS',
2490: p_oks_billrate_schedules_v_rec IN OksBillrateSchedulesVRecType) IS
2491:
2492: l_api_version CONSTANT NUMBER := 1;
2493: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
2494: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2495: l_oks_billrate_schedules_v_rec OksBillrateSchedulesVRecType := p_oks_billrate_schedules_v_rec;
2496: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
2497: BEGIN
2498: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2494: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2495: l_oks_billrate_schedules_v_rec OksBillrateSchedulesVRecType := p_oks_billrate_schedules_v_rec;
2496: l_oks_billrate_schedules_rec OksBillrateSchedulesRecType;
2497: BEGIN
2498: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2499: G_PKG_NAME,
2500: p_init_msg_list,
2501: l_api_version,
2502: p_api_version,
2501: l_api_version,
2502: p_api_version,
2503: '_PVT',
2504: x_return_status);
2505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2502: p_api_version,
2503: '_PVT',
2504: x_return_status);
2505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2510: -----------------------------------------
2503: '_PVT',
2504: x_return_status);
2505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2510: -----------------------------------------
2511: -- Move VIEW record to "Child" records --
2504: x_return_status);
2505: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2506: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2507: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2508: RAISE OKC_API.G_EXCEPTION_ERROR;
2509: END IF;
2510: -----------------------------------------
2511: -- Move VIEW record to "Child" records --
2512: -----------------------------------------
2520: x_msg_count,
2521: x_msg_data,
2522: l_oks_billrate_schedules_rec
2523: );
2524: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2527: RAISE OKC_API.G_EXCEPTION_ERROR;
2528: END IF;
2521: x_msg_data,
2522: l_oks_billrate_schedules_rec
2523: );
2524: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2527: RAISE OKC_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: x_return_status := l_return_status;
2522: l_oks_billrate_schedules_rec
2523: );
2524: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2527: RAISE OKC_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: x_return_status := l_return_status;
2530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2523: );
2524: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
2525: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2526: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2527: RAISE OKC_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: x_return_status := l_return_status;
2530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2531: EXCEPTION
2526: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2527: RAISE OKC_API.G_EXCEPTION_ERROR;
2528: END IF;
2529: x_return_status := l_return_status;
2530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2531: EXCEPTION
2532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2534: (
2528: END IF;
2529: x_return_status := l_return_status;
2530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2531: EXCEPTION
2532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2534: (
2535: l_api_name,
2536: G_PKG_NAME,
2529: x_return_status := l_return_status;
2530: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2531: EXCEPTION
2532: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2534: (
2535: l_api_name,
2536: G_PKG_NAME,
2537: 'OKC_API.G_RET_STS_ERROR',
2533: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2534: (
2535: l_api_name,
2536: G_PKG_NAME,
2537: 'OKC_API.G_RET_STS_ERROR',
2538: x_msg_count,
2539: x_msg_data,
2540: '_PVT'
2541: );
2538: x_msg_count,
2539: x_msg_data,
2540: '_PVT'
2541: );
2542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2544: (
2545: l_api_name,
2546: G_PKG_NAME,
2539: x_msg_data,
2540: '_PVT'
2541: );
2542: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2544: (
2545: l_api_name,
2546: G_PKG_NAME,
2547: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2543: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2544: (
2545: l_api_name,
2546: G_PKG_NAME,
2547: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2548: x_msg_count,
2549: x_msg_data,
2550: '_PVT'
2551: );
2549: x_msg_data,
2550: '_PVT'
2551: );
2552: WHEN OTHERS THEN
2553: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2554: (
2555: l_api_name,
2556: G_PKG_NAME,
2557: 'OTHERS',
2569: x_return_status OUT NOCOPY VARCHAR2,
2570: x_msg_count OUT NOCOPY NUMBER,
2571: x_msg_data OUT NOCOPY VARCHAR2,
2572: p_oks_billrate_schedules_v_tbl IN OksBillrateSchedulesVTblType,
2573: px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
2574:
2575: l_api_version CONSTANT NUMBER := 1;
2576: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
2577: i NUMBER := 0;
2575: l_api_version CONSTANT NUMBER := 1;
2576: l_api_name CONSTANT VARCHAR2(30) := 'V_error_tbl_delete_row';
2577: i NUMBER := 0;
2578: BEGIN
2579: OKC_API.init_msg_list(p_init_msg_list);
2580: -- Make sure PL/SQL table has records in it before passing
2581: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2582: i := p_oks_billrate_schedules_v_tbl.FIRST;
2583: LOOP
2581: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2582: i := p_oks_billrate_schedules_v_tbl.FIRST;
2583: LOOP
2584: DECLARE
2585: l_error_rec OKC_API.ERROR_REC_TYPE;
2586: BEGIN
2587: l_error_rec.api_name := l_api_name;
2588: l_error_rec.api_package := G_PKG_NAME;
2589: l_error_rec.idx := i;
2588: l_error_rec.api_package := G_PKG_NAME;
2589: l_error_rec.idx := i;
2590: delete_row (
2591: p_api_version => p_api_version,
2592: p_init_msg_list => OKC_API.G_FALSE,
2593: x_return_status => l_error_rec.error_type,
2594: x_msg_count => l_error_rec.msg_count,
2595: x_msg_data => l_error_rec.msg_data,
2596: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i));
2593: x_return_status => l_error_rec.error_type,
2594: x_msg_count => l_error_rec.msg_count,
2595: x_msg_data => l_error_rec.msg_data,
2596: p_oks_billrate_schedules_v_rec => p_oks_billrate_schedules_v_tbl(i));
2597: IF (l_error_rec.error_type <> OKC_API.G_RET_STS_SUCCESS) THEN
2598: l_error_rec.sqlcode := SQLCODE;
2599: load_error_tbl(l_error_rec, px_error_tbl);
2600: ELSE
2601: x_msg_count := l_error_rec.msg_count;
2601: x_msg_count := l_error_rec.msg_count;
2602: x_msg_data := l_error_rec.msg_data;
2603: END IF;
2604: EXCEPTION
2605: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2606: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2607: l_error_rec.sqlcode := SQLCODE;
2608: load_error_tbl(l_error_rec, px_error_tbl);
2609: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2602: x_msg_data := l_error_rec.msg_data;
2603: END IF;
2604: EXCEPTION
2605: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2606: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2607: l_error_rec.sqlcode := SQLCODE;
2608: load_error_tbl(l_error_rec, px_error_tbl);
2609: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2610: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2605: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2606: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2607: l_error_rec.sqlcode := SQLCODE;
2608: load_error_tbl(l_error_rec, px_error_tbl);
2609: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2610: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2611: l_error_rec.sqlcode := SQLCODE;
2612: load_error_tbl(l_error_rec, px_error_tbl);
2613: WHEN OTHERS THEN
2606: l_error_rec.error_type := OKC_API.G_RET_STS_ERROR;
2607: l_error_rec.sqlcode := SQLCODE;
2608: load_error_tbl(l_error_rec, px_error_tbl);
2609: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2610: l_error_rec.error_type := OKC_API.G_RET_STS_UNEXP_ERROR;
2611: l_error_rec.sqlcode := SQLCODE;
2612: load_error_tbl(l_error_rec, px_error_tbl);
2613: WHEN OTHERS THEN
2614: l_error_rec.error_type := 'OTHERS';
2621: END IF;
2622: -- Loop through the error_tbl to find the error with the highest severity
2623: -- and return it.
2624: x_return_status := find_highest_exception(px_error_tbl);
2625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2629: (
2623: -- and return it.
2624: x_return_status := find_highest_exception(px_error_tbl);
2625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2629: (
2630: l_api_name,
2631: G_PKG_NAME,
2624: x_return_status := find_highest_exception(px_error_tbl);
2625: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626: EXCEPTION
2627: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2629: (
2630: l_api_name,
2631: G_PKG_NAME,
2632: 'OKC_API.G_RET_STS_ERROR',
2628: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2629: (
2630: l_api_name,
2631: G_PKG_NAME,
2632: 'OKC_API.G_RET_STS_ERROR',
2633: x_msg_count,
2634: x_msg_data,
2635: '_PVT'
2636: );
2633: x_msg_count,
2634: x_msg_data,
2635: '_PVT'
2636: );
2637: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2638: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2634: x_msg_data,
2635: '_PVT'
2636: );
2637: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2638: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2642: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2638: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2639: (
2640: l_api_name,
2641: G_PKG_NAME,
2642: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2643: x_msg_count,
2644: x_msg_data,
2645: '_PVT'
2646: );
2644: x_msg_data,
2645: '_PVT'
2646: );
2647: WHEN OTHERS THEN
2648: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2649: (
2650: l_api_name,
2651: G_PKG_NAME,
2652: 'OTHERS',
2668: p_oks_billrate_schedules_v_tbl IN OksBillrateSchedulesVTblType) IS
2669:
2670: l_api_version CONSTANT NUMBER := 1;
2671: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2672: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2673: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2674: BEGIN
2675: OKC_API.init_msg_list(p_init_msg_list);
2676: -- Make sure PL/SQL table has records in it before passing
2669:
2670: l_api_version CONSTANT NUMBER := 1;
2671: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2672: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2673: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2674: BEGIN
2675: OKC_API.init_msg_list(p_init_msg_list);
2676: -- Make sure PL/SQL table has records in it before passing
2677: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2671: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
2672: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2673: l_error_tbl OKC_API.ERROR_TBL_TYPE;
2674: BEGIN
2675: OKC_API.init_msg_list(p_init_msg_list);
2676: -- Make sure PL/SQL table has records in it before passing
2677: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2678: delete_row (
2679: p_api_version => p_api_version,
2676: -- Make sure PL/SQL table has records in it before passing
2677: IF (p_oks_billrate_schedules_v_tbl.COUNT > 0) THEN
2678: delete_row (
2679: p_api_version => p_api_version,
2680: p_init_msg_list => OKC_API.G_FALSE,
2681: x_return_status => x_return_status,
2682: x_msg_count => x_msg_count,
2683: x_msg_data => x_msg_data,
2684: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
2683: x_msg_data => x_msg_data,
2684: p_oks_billrate_schedules_v_tbl => p_oks_billrate_schedules_v_tbl,
2685: px_error_tbl => l_error_tbl);
2686: END IF;
2687: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2688: EXCEPTION
2689: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2690: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2691: (
2685: px_error_tbl => l_error_tbl);
2686: END IF;
2687: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2688: EXCEPTION
2689: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2690: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2691: (
2692: l_api_name,
2693: G_PKG_NAME,
2686: END IF;
2687: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2688: EXCEPTION
2689: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2690: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2691: (
2692: l_api_name,
2693: G_PKG_NAME,
2694: 'OKC_API.G_RET_STS_ERROR',
2690: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2691: (
2692: l_api_name,
2693: G_PKG_NAME,
2694: 'OKC_API.G_RET_STS_ERROR',
2695: x_msg_count,
2696: x_msg_data,
2697: '_PVT'
2698: );
2695: x_msg_count,
2696: x_msg_data,
2697: '_PVT'
2698: );
2699: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2700: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2701: (
2702: l_api_name,
2703: G_PKG_NAME,
2696: x_msg_data,
2697: '_PVT'
2698: );
2699: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2700: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2701: (
2702: l_api_name,
2703: G_PKG_NAME,
2704: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2700: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2701: (
2702: l_api_name,
2703: G_PKG_NAME,
2704: 'OKC_API.G_RET_STS_UNEXP_ERROR',
2705: x_msg_count,
2706: x_msg_data,
2707: '_PVT'
2708: );
2706: x_msg_data,
2707: '_PVT'
2708: );
2709: WHEN OTHERS THEN
2710: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2711: (
2712: l_api_name,
2713: G_PKG_NAME,
2714: 'OTHERS',
2721: FUNCTION Create_Version(
2722: p_id IN NUMBER,
2723: p_major_version IN NUMBER) RETURN VARCHAR2 IS
2724:
2725: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
2726: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
2727:
2728: BEGIN
2729:
2822: okc_debug.Reset_Indentation;
2823:
2824: END IF;
2825:
2826: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
2827: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
2828: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
2829: p_token1_value => sqlcode,
2830: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2829: p_token1_value => sqlcode,
2830: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2831: p_token2_value => sqlerrm);
2832:
2833: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2834: return l_return_status;
2835: END Create_Version;
2836:
2837:
2839: FUNCTION Restore_Version(
2840: p_id IN NUMBER,
2841: p_major_version IN NUMBER) RETURN VARCHAR2 IS
2842:
2843: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
2844: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
2845:
2846: BEGIN
2847:
2939: IF (l_debug = 'Y') THEN
2940: okc_debug.log('24200: Exiting restore_version:OTHERS Exception', 2);
2941: okc_debug.Reset_Indentation;
2942: END IF;
2943: OKC_API.SET_MESSAGE(p_app_name => okc_version_pvt.G_APP_NAME,
2944: p_msg_name => okc_version_pvt.G_UNEXPECTED_ERROR,
2945: p_token1 => okc_version_pvt.G_SQLCODE_TOKEN,
2946: p_token1_value => sqlcode,
2947: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2946: p_token1_value => sqlcode,
2947: p_token2 => okc_version_pvt.G_SQLERRM_TOKEN,
2948: p_token2_value => sqlerrm);
2949:
2950: l_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2951:
2952: return l_return_status;
2953: END Restore_Version;
2954: