74: WHERE lrfv.id = p_id;
75: x_return_status := g_ret_sts_success;
76: RETURN l_lrfv_rec;
77: EXCEPTION
78: WHEN okl_api.g_exception_error THEN
79: x_return_status := g_ret_sts_error;
80: WHEN okl_api.g_exception_unexpected_error THEN
81: x_return_status := g_ret_sts_unexp_error;
82: WHEN OTHERS THEN
76: RETURN l_lrfv_rec;
77: EXCEPTION
78: WHEN okl_api.g_exception_error THEN
79: x_return_status := g_ret_sts_error;
80: WHEN okl_api.g_exception_unexpected_error THEN
81: x_return_status := g_ret_sts_unexp_error;
82: WHEN OTHERS THEN
83: okl_api.set_message(p_app_name => g_app_name
84: ,p_msg_name => g_db_error
79: x_return_status := g_ret_sts_error;
80: WHEN okl_api.g_exception_unexpected_error THEN
81: x_return_status := g_ret_sts_unexp_error;
82: WHEN OTHERS THEN
83: okl_api.set_message(p_app_name => g_app_name
84: ,p_msg_name => g_db_error
85: ,p_token1 => g_prog_name_token
86: ,p_token1_value => l_api_name
87: ,p_token2 => g_sqlcode_token
229:
230: BEGIN
231:
232: IF p_id IS NULL THEN
233: okl_api.set_message(p_app_name => g_app_name
234: ,p_msg_name => g_required_value
235: ,p_token1 => g_col_name_token
236: ,p_token1_value => 'id');
237: RAISE okl_api.g_exception_error;
233: okl_api.set_message(p_app_name => g_app_name
234: ,p_msg_name => g_required_value
235: ,p_token1 => g_col_name_token
236: ,p_token1_value => 'id');
237: RAISE okl_api.g_exception_error;
238: END IF;
239: x_return_status := g_ret_sts_success;
240: EXCEPTION
241: WHEN okl_api.g_exception_error THEN
237: RAISE okl_api.g_exception_error;
238: END IF;
239: x_return_status := g_ret_sts_success;
240: EXCEPTION
241: WHEN okl_api.g_exception_error THEN
242: x_return_status := g_ret_sts_error;
243: WHEN okl_api.g_exception_unexpected_error THEN
244: x_return_status := g_ret_sts_unexp_error;
245: WHEN OTHERS THEN
239: x_return_status := g_ret_sts_success;
240: EXCEPTION
241: WHEN okl_api.g_exception_error THEN
242: x_return_status := g_ret_sts_error;
243: WHEN okl_api.g_exception_unexpected_error THEN
244: x_return_status := g_ret_sts_unexp_error;
245: WHEN OTHERS THEN
246: okl_api.set_message(p_app_name => g_app_name
247: ,p_msg_name => g_db_error
242: x_return_status := g_ret_sts_error;
243: WHEN okl_api.g_exception_unexpected_error THEN
244: x_return_status := g_ret_sts_unexp_error;
245: WHEN OTHERS THEN
246: okl_api.set_message(p_app_name => g_app_name
247: ,p_msg_name => g_db_error
248: ,p_token1 => g_prog_name_token
249: ,p_token1_value => l_api_name
250: ,p_token2 => g_sqlcode_token
260:
261: BEGIN
262:
263: IF (p_object_version_number IS NULL) OR (p_object_version_number = g_miss_num) THEN
264: okl_api.set_message(p_app_name => g_app_name
265: ,p_msg_name => g_required_value
266: ,p_token1 => g_col_name_token
267: ,p_token1_value => 'object_version_number');
268: RAISE okl_api.g_exception_error;
264: okl_api.set_message(p_app_name => g_app_name
265: ,p_msg_name => g_required_value
266: ,p_token1 => g_col_name_token
267: ,p_token1_value => 'object_version_number');
268: RAISE okl_api.g_exception_error;
269: END IF;
270: x_return_status := g_ret_sts_success;
271: EXCEPTION
272: WHEN okl_api.g_exception_error THEN
268: RAISE okl_api.g_exception_error;
269: END IF;
270: x_return_status := g_ret_sts_success;
271: EXCEPTION
272: WHEN okl_api.g_exception_error THEN
273: x_return_status := g_ret_sts_error;
274: WHEN okl_api.g_exception_unexpected_error THEN
275: x_return_status := g_ret_sts_unexp_error;
276: WHEN OTHERS THEN
270: x_return_status := g_ret_sts_success;
271: EXCEPTION
272: WHEN okl_api.g_exception_error THEN
273: x_return_status := g_ret_sts_error;
274: WHEN okl_api.g_exception_unexpected_error THEN
275: x_return_status := g_ret_sts_unexp_error;
276: WHEN OTHERS THEN
277: okl_api.set_message(p_app_name => g_app_name
278: ,p_msg_name => g_db_error
273: x_return_status := g_ret_sts_error;
274: WHEN okl_api.g_exception_unexpected_error THEN
275: x_return_status := g_ret_sts_unexp_error;
276: WHEN OTHERS THEN
277: okl_api.set_message(p_app_name => g_app_name
278: ,p_msg_name => g_db_error
279: ,p_token1 => g_prog_name_token
280: ,p_token1_value => l_api_name
281: ,p_token2 => g_sqlcode_token
301:
302: BEGIN
303:
304: IF p_lrt_id IS NULL THEN
305: okl_api.set_message(p_app_name => g_app_name
306: ,p_msg_name => g_required_value
307: ,p_token1 => g_col_name_token
308: ,p_token1_value => 'lrt_id');
309: RAISE okl_api.g_exception_error;
305: okl_api.set_message(p_app_name => g_app_name
306: ,p_msg_name => g_required_value
307: ,p_token1 => g_col_name_token
308: ,p_token1_value => 'lrt_id');
309: RAISE okl_api.g_exception_error;
310: END IF;
311: OPEN c_lrt_id;
312: FETCH c_lrt_id INTO l_dummy ;
313: CLOSE c_lrt_id;
312: FETCH c_lrt_id INTO l_dummy ;
313: CLOSE c_lrt_id;
314:
315: IF l_dummy IS NULL THEN
316: okl_api.set_message(p_app_name => g_app_name
317: ,p_msg_name => g_invalid_value
318: ,p_token1 => g_col_name_token
319: ,p_token1_value => 'lrt_id');
320: RAISE okl_api.g_exception_error;
316: okl_api.set_message(p_app_name => g_app_name
317: ,p_msg_name => g_invalid_value
318: ,p_token1 => g_col_name_token
319: ,p_token1_value => 'lrt_id');
320: RAISE okl_api.g_exception_error;
321: END IF;
322: x_return_status := g_ret_sts_success;
323: EXCEPTION
324: WHEN okl_api.g_exception_error THEN
320: RAISE okl_api.g_exception_error;
321: END IF;
322: x_return_status := g_ret_sts_success;
323: EXCEPTION
324: WHEN okl_api.g_exception_error THEN
325: x_return_status := g_ret_sts_error;
326: WHEN okl_api.g_exception_unexpected_error THEN
327: x_return_status := g_ret_sts_unexp_error;
328: WHEN OTHERS THEN
322: x_return_status := g_ret_sts_success;
323: EXCEPTION
324: WHEN okl_api.g_exception_error THEN
325: x_return_status := g_ret_sts_error;
326: WHEN okl_api.g_exception_unexpected_error THEN
327: x_return_status := g_ret_sts_unexp_error;
328: WHEN OTHERS THEN
329: okl_api.set_message(p_app_name => g_app_name
330: ,p_msg_name => g_db_error
325: x_return_status := g_ret_sts_error;
326: WHEN okl_api.g_exception_unexpected_error THEN
327: x_return_status := g_ret_sts_unexp_error;
328: WHEN OTHERS THEN
329: okl_api.set_message(p_app_name => g_app_name
330: ,p_msg_name => g_db_error
331: ,p_token1 => g_prog_name_token
332: ,p_token1_value => l_api_name
333: ,p_token2 => g_sqlcode_token
347:
348: BEGIN
349:
350: IF p_term_in_months IS NULL THEN
351: okl_api.set_message(p_app_name => g_app_name
352: ,p_msg_name => g_required_value
353: ,p_token1 => g_col_name_token
354: ,p_token1_value => 'term_in_months');
355: RAISE okl_api.g_exception_error;
351: okl_api.set_message(p_app_name => g_app_name
352: ,p_msg_name => g_required_value
353: ,p_token1 => g_col_name_token
354: ,p_token1_value => 'term_in_months');
355: RAISE okl_api.g_exception_error;
356: END IF;
357:
358: IF p_term_in_months <= 0 THEN
359: okl_api.set_message(okl_api.g_app_name, 'OKL_INVALID_TERM');
355: RAISE okl_api.g_exception_error;
356: END IF;
357:
358: IF p_term_in_months <= 0 THEN
359: okl_api.set_message(okl_api.g_app_name, 'OKL_INVALID_TERM');
360: RAISE okl_api.g_exception_error;
361: END IF;
362:
363: IF trunc(p_term_in_months) <> p_term_in_months THEN
356: END IF;
357:
358: IF p_term_in_months <= 0 THEN
359: okl_api.set_message(okl_api.g_app_name, 'OKL_INVALID_TERM');
360: RAISE okl_api.g_exception_error;
361: END IF;
362:
363: IF trunc(p_term_in_months) <> p_term_in_months THEN
364: okl_api.set_message(okl_api.g_app_name, 'OKL_INVALID_TERM2');
360: RAISE okl_api.g_exception_error;
361: END IF;
362:
363: IF trunc(p_term_in_months) <> p_term_in_months THEN
364: okl_api.set_message(okl_api.g_app_name, 'OKL_INVALID_TERM2');
365: RAISE okl_api.g_exception_error;
366: END IF;
367: x_return_status := g_ret_sts_success;
368: EXCEPTION
361: END IF;
362:
363: IF trunc(p_term_in_months) <> p_term_in_months THEN
364: okl_api.set_message(okl_api.g_app_name, 'OKL_INVALID_TERM2');
365: RAISE okl_api.g_exception_error;
366: END IF;
367: x_return_status := g_ret_sts_success;
368: EXCEPTION
369: WHEN okl_api.g_exception_error THEN
365: RAISE okl_api.g_exception_error;
366: END IF;
367: x_return_status := g_ret_sts_success;
368: EXCEPTION
369: WHEN okl_api.g_exception_error THEN
370: x_return_status := g_ret_sts_error;
371: WHEN okl_api.g_exception_unexpected_error THEN
372: x_return_status := g_ret_sts_unexp_error;
373: WHEN OTHERS THEN
367: x_return_status := g_ret_sts_success;
368: EXCEPTION
369: WHEN okl_api.g_exception_error THEN
370: x_return_status := g_ret_sts_error;
371: WHEN okl_api.g_exception_unexpected_error THEN
372: x_return_status := g_ret_sts_unexp_error;
373: WHEN OTHERS THEN
374: okl_api.set_message(p_app_name => g_app_name
375: ,p_msg_name => g_db_error
370: x_return_status := g_ret_sts_error;
371: WHEN okl_api.g_exception_unexpected_error THEN
372: x_return_status := g_ret_sts_unexp_error;
373: WHEN OTHERS THEN
374: okl_api.set_message(p_app_name => g_app_name
375: ,p_msg_name => g_db_error
376: ,p_token1 => g_prog_name_token
377: ,p_token1_value => l_api_name
378: ,p_token2 => g_sqlcode_token
393: BEGIN
394:
395:
396: IF p_residual_value_percent IS NULL THEN
397: okl_api.set_message(p_app_name => g_app_name
398: ,p_msg_name => g_required_value
399: ,p_token1 => g_col_name_token
400: ,p_token1_value => 'residual_value_percent');
401: RAISE okl_api.g_exception_error;
397: okl_api.set_message(p_app_name => g_app_name
398: ,p_msg_name => g_required_value
399: ,p_token1 => g_col_name_token
400: ,p_token1_value => 'residual_value_percent');
401: RAISE okl_api.g_exception_error;
402: END IF;
403:
404: IF p_residual_value_percent < 0 OR p_residual_value_percent >= 100 THEN
405: okl_api.set_message(okl_api.g_app_name, 'OKL_INVALID_RV');
401: RAISE okl_api.g_exception_error;
402: END IF;
403:
404: IF p_residual_value_percent < 0 OR p_residual_value_percent >= 100 THEN
405: okl_api.set_message(okl_api.g_app_name, 'OKL_INVALID_RV');
406: RAISE okl_api.g_exception_error;
407: END IF;
408: x_return_status := g_ret_sts_success;
409: EXCEPTION
402: END IF;
403:
404: IF p_residual_value_percent < 0 OR p_residual_value_percent >= 100 THEN
405: okl_api.set_message(okl_api.g_app_name, 'OKL_INVALID_RV');
406: RAISE okl_api.g_exception_error;
407: END IF;
408: x_return_status := g_ret_sts_success;
409: EXCEPTION
410: WHEN okl_api.g_exception_error THEN
406: RAISE okl_api.g_exception_error;
407: END IF;
408: x_return_status := g_ret_sts_success;
409: EXCEPTION
410: WHEN okl_api.g_exception_error THEN
411: x_return_status := g_ret_sts_error;
412: WHEN okl_api.g_exception_unexpected_error THEN
413: x_return_status := g_ret_sts_unexp_error;
414: WHEN OTHERS THEN
408: x_return_status := g_ret_sts_success;
409: EXCEPTION
410: WHEN okl_api.g_exception_error THEN
411: x_return_status := g_ret_sts_error;
412: WHEN okl_api.g_exception_unexpected_error THEN
413: x_return_status := g_ret_sts_unexp_error;
414: WHEN OTHERS THEN
415: okl_api.set_message(p_app_name => g_app_name
416: ,p_msg_name => g_db_error
411: x_return_status := g_ret_sts_error;
412: WHEN okl_api.g_exception_unexpected_error THEN
413: x_return_status := g_ret_sts_unexp_error;
414: WHEN OTHERS THEN
415: okl_api.set_message(p_app_name => g_app_name
416: ,p_msg_name => g_db_error
417: ,p_token1 => g_prog_name_token
418: ,p_token1_value => l_api_name
419: ,p_token2 => g_sqlcode_token
433:
434: BEGIN
435:
436: IF p_interest_rate IS NULL THEN
437: okl_api.set_message(p_app_name => g_app_name
438: ,p_msg_name => g_required_value
439: ,p_token1 => g_col_name_token
440: ,p_token1_value => 'interest_rate');
441: RAISE okl_api.g_exception_error;
437: okl_api.set_message(p_app_name => g_app_name
438: ,p_msg_name => g_required_value
439: ,p_token1 => g_col_name_token
440: ,p_token1_value => 'interest_rate');
441: RAISE okl_api.g_exception_error;
442: END IF;
443: x_return_status := g_ret_sts_success;
444: EXCEPTION
445: WHEN okl_api.g_exception_error THEN
441: RAISE okl_api.g_exception_error;
442: END IF;
443: x_return_status := g_ret_sts_success;
444: EXCEPTION
445: WHEN okl_api.g_exception_error THEN
446: x_return_status := g_ret_sts_error;
447: WHEN okl_api.g_exception_unexpected_error THEN
448: x_return_status := g_ret_sts_unexp_error;
449: WHEN OTHERS THEN
443: x_return_status := g_ret_sts_success;
444: EXCEPTION
445: WHEN okl_api.g_exception_error THEN
446: x_return_status := g_ret_sts_error;
447: WHEN okl_api.g_exception_unexpected_error THEN
448: x_return_status := g_ret_sts_unexp_error;
449: WHEN OTHERS THEN
450: okl_api.set_message(p_app_name => g_app_name
451: ,p_msg_name => g_db_error
446: x_return_status := g_ret_sts_error;
447: WHEN okl_api.g_exception_unexpected_error THEN
448: x_return_status := g_ret_sts_unexp_error;
449: WHEN OTHERS THEN
450: okl_api.set_message(p_app_name => g_app_name
451: ,p_msg_name => g_db_error
452: ,p_token1 => g_prog_name_token
453: ,p_token1_value => l_api_name
454: ,p_token2 => g_sqlcode_token
468:
469: BEGIN
470:
471: IF p_lease_rate_factor IS NULL THEN
472: okl_api.set_message(p_app_name => g_app_name
473: ,p_msg_name => g_required_value
474: ,p_token1 => g_col_name_token
475: ,p_token1_value => 'lease_rate_factor');
476: RAISE okl_api.g_exception_error;
472: okl_api.set_message(p_app_name => g_app_name
473: ,p_msg_name => g_required_value
474: ,p_token1 => g_col_name_token
475: ,p_token1_value => 'lease_rate_factor');
476: RAISE okl_api.g_exception_error;
477: END IF;
478: x_return_status := g_ret_sts_success;
479: EXCEPTION
480: WHEN okl_api.g_exception_error THEN
476: RAISE okl_api.g_exception_error;
477: END IF;
478: x_return_status := g_ret_sts_success;
479: EXCEPTION
480: WHEN okl_api.g_exception_error THEN
481: x_return_status := g_ret_sts_error;
482: WHEN okl_api.g_exception_unexpected_error THEN
483: x_return_status := g_ret_sts_unexp_error;
484: WHEN OTHERS THEN
478: x_return_status := g_ret_sts_success;
479: EXCEPTION
480: WHEN okl_api.g_exception_error THEN
481: x_return_status := g_ret_sts_error;
482: WHEN okl_api.g_exception_unexpected_error THEN
483: x_return_status := g_ret_sts_unexp_error;
484: WHEN OTHERS THEN
485: okl_api.set_message(p_app_name => g_app_name
486: ,p_msg_name => g_db_error
481: x_return_status := g_ret_sts_error;
482: WHEN okl_api.g_exception_unexpected_error THEN
483: x_return_status := g_ret_sts_unexp_error;
484: WHEN OTHERS THEN
485: okl_api.set_message(p_app_name => g_app_name
486: ,p_msg_name => g_db_error
487: ,p_token1 => g_prog_name_token
488: ,p_token1_value => l_api_name
489: ,p_token2 => g_sqlcode_token
509:
510: BEGIN
511:
512: IF p_rate_set_version_id IS NULL THEN
513: okl_api.set_message(p_app_name => g_app_name
514: ,p_msg_name => g_required_value
515: ,p_token1 => g_col_name_token
516: ,p_token1_value => 'RATE_SET_VERSION_ID');
517: RAISE okl_api.g_exception_error;
513: okl_api.set_message(p_app_name => g_app_name
514: ,p_msg_name => g_required_value
515: ,p_token1 => g_col_name_token
516: ,p_token1_value => 'RATE_SET_VERSION_ID');
517: RAISE okl_api.g_exception_error;
518: END IF;
519: OPEN c_rate_set_version_id;
520: FETCH c_rate_set_version_id INTO l_dummy ;
521: CLOSE c_rate_set_version_id;
520: FETCH c_rate_set_version_id INTO l_dummy ;
521: CLOSE c_rate_set_version_id;
522:
523: IF l_dummy IS NULL THEN
524: okl_api.set_message(p_app_name => g_app_name
525: ,p_msg_name => g_invalid_value
526: ,p_token1 => g_col_name_token
527: ,p_token1_value => 'RATE_SET_VERSION_ID');
528: RAISE okl_api.g_exception_error;
524: okl_api.set_message(p_app_name => g_app_name
525: ,p_msg_name => g_invalid_value
526: ,p_token1 => g_col_name_token
527: ,p_token1_value => 'RATE_SET_VERSION_ID');
528: RAISE okl_api.g_exception_error;
529: END IF;
530: x_return_status := g_ret_sts_success;
531: EXCEPTION
532: WHEN okl_api.g_exception_error THEN
528: RAISE okl_api.g_exception_error;
529: END IF;
530: x_return_status := g_ret_sts_success;
531: EXCEPTION
532: WHEN okl_api.g_exception_error THEN
533: x_return_status := g_ret_sts_error;
534: WHEN okl_api.g_exception_unexpected_error THEN
535: x_return_status := g_ret_sts_unexp_error;
536: WHEN OTHERS THEN
530: x_return_status := g_ret_sts_success;
531: EXCEPTION
532: WHEN okl_api.g_exception_error THEN
533: x_return_status := g_ret_sts_error;
534: WHEN okl_api.g_exception_unexpected_error THEN
535: x_return_status := g_ret_sts_unexp_error;
536: WHEN OTHERS THEN
537: okl_api.set_message(p_app_name => g_app_name
538: ,p_msg_name => g_db_error
533: x_return_status := g_ret_sts_error;
534: WHEN okl_api.g_exception_unexpected_error THEN
535: x_return_status := g_ret_sts_unexp_error;
536: WHEN OTHERS THEN
537: okl_api.set_message(p_app_name => g_app_name
538: ,p_msg_name => g_db_error
539: ,p_token1 => g_prog_name_token
540: ,p_token1_value => l_api_name
541: ,p_token2 => g_sqlcode_token
561:
562: validate_id(l_return_status, p_lrfv_rec.id);
563:
564: IF (l_return_status = g_ret_sts_unexp_error) THEN
565: RAISE okl_api.g_exception_unexpected_error;
566: ELSIF (l_return_status = g_ret_sts_error) THEN
567: RAISE okl_api.g_exception_error;
568: END IF;
569:
563:
564: IF (l_return_status = g_ret_sts_unexp_error) THEN
565: RAISE okl_api.g_exception_unexpected_error;
566: ELSIF (l_return_status = g_ret_sts_error) THEN
567: RAISE okl_api.g_exception_error;
568: END IF;
569:
570: -- ***
571: -- object_version_number
574: validate_object_version_number(l_return_status
575: ,p_lrfv_rec.object_version_number);
576:
577: IF (l_return_status = g_ret_sts_unexp_error) THEN
578: RAISE okl_api.g_exception_unexpected_error;
579: ELSIF (l_return_status = g_ret_sts_error) THEN
580: RAISE okl_api.g_exception_error;
581: END IF;
582:
576:
577: IF (l_return_status = g_ret_sts_unexp_error) THEN
578: RAISE okl_api.g_exception_unexpected_error;
579: ELSIF (l_return_status = g_ret_sts_error) THEN
580: RAISE okl_api.g_exception_error;
581: END IF;
582:
583: -- ***
584: -- lrt_id
586:
587: validate_lrt_id(l_return_status, p_lrfv_rec.lrt_id);
588:
589: IF (l_return_status = g_ret_sts_unexp_error) THEN
590: RAISE okl_api.g_exception_unexpected_error;
591: ELSIF (l_return_status = g_ret_sts_error) THEN
592: RAISE okl_api.g_exception_error;
593: END IF;
594:
588:
589: IF (l_return_status = g_ret_sts_unexp_error) THEN
590: RAISE okl_api.g_exception_unexpected_error;
591: ELSIF (l_return_status = g_ret_sts_error) THEN
592: RAISE okl_api.g_exception_error;
593: END IF;
594:
595: -- ***
596: -- term_in_months
598:
599: validate_term_in_months(l_return_status, p_lrfv_rec.term_in_months);
600:
601: IF (l_return_status = g_ret_sts_unexp_error) THEN
602: RAISE okl_api.g_exception_unexpected_error;
603: ELSIF (l_return_status = g_ret_sts_error) THEN
604: RAISE okl_api.g_exception_error;
605: END IF;
606:
600:
601: IF (l_return_status = g_ret_sts_unexp_error) THEN
602: RAISE okl_api.g_exception_unexpected_error;
603: ELSIF (l_return_status = g_ret_sts_error) THEN
604: RAISE okl_api.g_exception_error;
605: END IF;
606:
607: -- ***
608: -- residual_value_percent
610:
611: validate_rv_percent(l_return_status, p_lrfv_rec.residual_value_percent);
612:
613: IF (l_return_status = g_ret_sts_unexp_error) THEN
614: RAISE okl_api.g_exception_unexpected_error;
615: ELSIF (l_return_status = g_ret_sts_error) THEN
616: RAISE okl_api.g_exception_error;
617: END IF;
618:
612:
613: IF (l_return_status = g_ret_sts_unexp_error) THEN
614: RAISE okl_api.g_exception_unexpected_error;
615: ELSIF (l_return_status = g_ret_sts_error) THEN
616: RAISE okl_api.g_exception_error;
617: END IF;
618:
619: -- ***
620: -- interest_rate
622:
623: validate_interest_rate(l_return_status, p_lrfv_rec.interest_rate);
624:
625: IF (l_return_status = g_ret_sts_unexp_error) THEN
626: RAISE okl_api.g_exception_unexpected_error;
627: ELSIF (l_return_status = g_ret_sts_error) THEN
628: RAISE okl_api.g_exception_error;
629: END IF;
630:
624:
625: IF (l_return_status = g_ret_sts_unexp_error) THEN
626: RAISE okl_api.g_exception_unexpected_error;
627: ELSIF (l_return_status = g_ret_sts_error) THEN
628: RAISE okl_api.g_exception_error;
629: END IF;
630:
631: -- ***
632: -- lease_rate_factor
635: validate_lease_rate_factor (l_return_status
636: ,p_lrfv_rec.lease_rate_factor);
637:
638: IF (l_return_status = g_ret_sts_unexp_error) THEN
639: RAISE okl_api.g_exception_unexpected_error;
640: ELSIF (l_return_status = g_ret_sts_error) THEN
641: RAISE okl_api.g_exception_error;
642: END IF;
643:
637:
638: IF (l_return_status = g_ret_sts_unexp_error) THEN
639: RAISE okl_api.g_exception_unexpected_error;
640: ELSIF (l_return_status = g_ret_sts_error) THEN
641: RAISE okl_api.g_exception_error;
642: END IF;
643:
644: -- ***
645: -- RATE_SET_VERSION_ID
648: validate_rate_set_version_id(l_return_status
649: ,p_lrfv_rec.rate_set_version_id);
650:
651: IF (l_return_status = g_ret_sts_unexp_error) THEN
652: RAISE okl_api.g_exception_unexpected_error;
653: ELSIF (l_return_status = g_ret_sts_error) THEN
654: RAISE okl_api.g_exception_error;
655: END IF;
656:
650:
651: IF (l_return_status = g_ret_sts_unexp_error) THEN
652: RAISE okl_api.g_exception_unexpected_error;
653: ELSIF (l_return_status = g_ret_sts_error) THEN
654: RAISE okl_api.g_exception_error;
655: END IF;
656:
657:
658: RETURN g_ret_sts_success;
656:
657:
658: RETURN g_ret_sts_success;
659: EXCEPTION
660: WHEN okl_api.g_exception_error THEN
661: RETURN g_ret_sts_error;
662: WHEN okl_api.g_exception_unexpected_error THEN
663: RETURN g_ret_sts_unexp_error;
664: WHEN OTHERS THEN
658: RETURN g_ret_sts_success;
659: EXCEPTION
660: WHEN okl_api.g_exception_error THEN
661: RETURN g_ret_sts_error;
662: WHEN okl_api.g_exception_unexpected_error THEN
663: RETURN g_ret_sts_unexp_error;
664: WHEN OTHERS THEN
665: okl_api.set_message(p_app_name => g_app_name
666: ,p_msg_name => g_db_error
661: RETURN g_ret_sts_error;
662: WHEN okl_api.g_exception_unexpected_error THEN
663: RETURN g_ret_sts_unexp_error;
664: WHEN OTHERS THEN
665: okl_api.set_message(p_app_name => g_app_name
666: ,p_msg_name => g_db_error
667: ,p_token1 => g_prog_name_token
668: ,p_token1_value => l_api_name
669: ,p_token2 => g_sqlcode_token
697: FETCH c_enforce_uk INTO l_dummy ;
698: CLOSE c_enforce_uk;
699:
700: IF l_dummy IS NOT NULL THEN
701: okl_api.set_message(p_app_name => g_app_name
702: ,p_msg_name => 'OKL_LRF_EXISTS');
703: RAISE okl_api.g_exception_error;
704: END IF;
705: RETURN g_ret_sts_success;
699:
700: IF l_dummy IS NOT NULL THEN
701: okl_api.set_message(p_app_name => g_app_name
702: ,p_msg_name => 'OKL_LRF_EXISTS');
703: RAISE okl_api.g_exception_error;
704: END IF;
705: RETURN g_ret_sts_success;
706: EXCEPTION
707: WHEN okl_api.g_exception_error THEN
703: RAISE okl_api.g_exception_error;
704: END IF;
705: RETURN g_ret_sts_success;
706: EXCEPTION
707: WHEN okl_api.g_exception_error THEN
708: RETURN g_ret_sts_error;
709: WHEN okl_api.g_exception_unexpected_error THEN
710: RETURN g_ret_sts_unexp_error;
711: WHEN OTHERS THEN
705: RETURN g_ret_sts_success;
706: EXCEPTION
707: WHEN okl_api.g_exception_error THEN
708: RETURN g_ret_sts_error;
709: WHEN okl_api.g_exception_unexpected_error THEN
710: RETURN g_ret_sts_unexp_error;
711: WHEN OTHERS THEN
712: okl_api.set_message(p_app_name => g_app_name
713: ,p_msg_name => g_db_error
708: RETURN g_ret_sts_error;
709: WHEN okl_api.g_exception_unexpected_error THEN
710: RETURN g_ret_sts_unexp_error;
711: WHEN OTHERS THEN
712: okl_api.set_message(p_app_name => g_app_name
713: ,p_msg_name => g_db_error
714: ,p_token1 => g_prog_name_token
715: ,p_token1_value => l_api_name
716: ,p_token2 => g_sqlcode_token
736: BEGIN
737: l_return_status := validate_attributes(p_lrfv_rec);
738:
739: IF (l_return_status = g_ret_sts_unexp_error) THEN
740: RAISE okl_api.g_exception_unexpected_error;
741: ELSIF (l_return_status = g_ret_sts_error) THEN
742: RAISE okl_api.g_exception_error;
743: END IF;
744: l_return_status := validate_record(p_lrfv_rec);
738:
739: IF (l_return_status = g_ret_sts_unexp_error) THEN
740: RAISE okl_api.g_exception_unexpected_error;
741: ELSIF (l_return_status = g_ret_sts_error) THEN
742: RAISE okl_api.g_exception_error;
743: END IF;
744: l_return_status := validate_record(p_lrfv_rec);
745:
746: IF (l_return_status = g_ret_sts_unexp_error) THEN
743: END IF;
744: l_return_status := validate_record(p_lrfv_rec);
745:
746: IF (l_return_status = g_ret_sts_unexp_error) THEN
747: RAISE okl_api.g_exception_unexpected_error;
748: ELSIF (l_return_status = g_ret_sts_error) THEN
749: RAISE okl_api.g_exception_error;
750: END IF;
751:
745:
746: IF (l_return_status = g_ret_sts_unexp_error) THEN
747: RAISE okl_api.g_exception_unexpected_error;
748: ELSIF (l_return_status = g_ret_sts_error) THEN
749: RAISE okl_api.g_exception_error;
750: END IF;
751:
752: EXCEPTION
753: WHEN okl_api.g_exception_error THEN
749: RAISE okl_api.g_exception_error;
750: END IF;
751:
752: EXCEPTION
753: WHEN okl_api.g_exception_error THEN
754: x_return_status := g_ret_sts_error;
755: WHEN okl_api.g_exception_unexpected_error THEN
756: x_return_status := g_ret_sts_unexp_error;
757: WHEN OTHERS THEN
751:
752: EXCEPTION
753: WHEN okl_api.g_exception_error THEN
754: x_return_status := g_ret_sts_error;
755: WHEN okl_api.g_exception_unexpected_error THEN
756: x_return_status := g_ret_sts_unexp_error;
757: WHEN OTHERS THEN
758: okl_api.set_message(p_app_name => g_app_name
759: ,p_msg_name => g_db_error
754: x_return_status := g_ret_sts_error;
755: WHEN okl_api.g_exception_unexpected_error THEN
756: x_return_status := g_ret_sts_unexp_error;
757: WHEN OTHERS THEN
758: okl_api.set_message(p_app_name => g_app_name
759: ,p_msg_name => g_db_error
760: ,p_token1 => g_prog_name_token
761: ,p_token1_value => l_api_name
762: ,p_token2 => g_sqlcode_token
793: ,x_msg_count => x_msg_count
794: ,x_msg_data => x_msg_data
795: ,p_lrfv_rec => p_lrfv_tbl(i));
796: IF l_return_status = g_ret_sts_error THEN
797: RAISE okl_api.g_exception_error;
798: ELSIF l_return_status = g_ret_sts_unexp_error THEN
799: RAISE okl_api.g_exception_unexpected_error;
800: END IF;
801: EXIT WHEN i = p_lrfv_tbl.LAST;
795: ,p_lrfv_rec => p_lrfv_tbl(i));
796: IF l_return_status = g_ret_sts_error THEN
797: RAISE okl_api.g_exception_error;
798: ELSIF l_return_status = g_ret_sts_unexp_error THEN
799: RAISE okl_api.g_exception_unexpected_error;
800: END IF;
801: EXIT WHEN i = p_lrfv_tbl.LAST;
802: i := p_lrfv_tbl.next(i);
803: END IF;
805:
806: END IF;
807: x_return_status := l_return_status;
808: EXCEPTION
809: WHEN okl_api.g_exception_error THEN
810: x_return_status := g_ret_sts_error;
811: WHEN okl_api.g_exception_unexpected_error THEN
812: x_return_status := g_ret_sts_unexp_error;
813: WHEN OTHERS THEN
807: x_return_status := l_return_status;
808: EXCEPTION
809: WHEN okl_api.g_exception_error THEN
810: x_return_status := g_ret_sts_error;
811: WHEN okl_api.g_exception_unexpected_error THEN
812: x_return_status := g_ret_sts_unexp_error;
813: WHEN OTHERS THEN
814: okl_api.set_message(p_app_name => g_app_name
815: ,p_msg_name => g_db_error
810: x_return_status := g_ret_sts_error;
811: WHEN okl_api.g_exception_unexpected_error THEN
812: x_return_status := g_ret_sts_unexp_error;
813: WHEN OTHERS THEN
814: okl_api.set_message(p_app_name => g_app_name
815: ,p_msg_name => g_db_error
816: ,p_token1 => g_prog_name_token
817: ,p_token1_value => l_api_name
818: ,p_token2 => g_sqlcode_token
849:
850: l_return_status := validate_attributes(l_lrfv_rec);
851:
852: IF (l_return_status = g_ret_sts_unexp_error) THEN
853: RAISE okl_api.g_exception_unexpected_error;
854: ELSIF (l_return_status = g_ret_sts_error) THEN
855: RAISE okl_api.g_exception_error;
856: END IF;
857: l_return_status := validate_record(l_lrfv_rec);
851:
852: IF (l_return_status = g_ret_sts_unexp_error) THEN
853: RAISE okl_api.g_exception_unexpected_error;
854: ELSIF (l_return_status = g_ret_sts_error) THEN
855: RAISE okl_api.g_exception_error;
856: END IF;
857: l_return_status := validate_record(l_lrfv_rec);
858:
859: IF (l_return_status = g_ret_sts_unexp_error) THEN
856: END IF;
857: l_return_status := validate_record(l_lrfv_rec);
858:
859: IF (l_return_status = g_ret_sts_unexp_error) THEN
860: RAISE okl_api.g_exception_unexpected_error;
861: ELSIF (l_return_status = g_ret_sts_error) THEN
862: RAISE okl_api.g_exception_error;
863: END IF;
864:
858:
859: IF (l_return_status = g_ret_sts_unexp_error) THEN
860: RAISE okl_api.g_exception_unexpected_error;
861: ELSIF (l_return_status = g_ret_sts_error) THEN
862: RAISE okl_api.g_exception_error;
863: END IF;
864:
865: INSERT INTO okl_ls_rt_fctr_ents
866: (id
924:
925: x_lrfv_rec := l_lrfv_rec;
926: x_return_status := l_return_status;
927: EXCEPTION
928: WHEN okl_api.g_exception_error THEN
929: x_return_status := g_ret_sts_error;
930: WHEN okl_api.g_exception_unexpected_error THEN
931: x_return_status := g_ret_sts_unexp_error;
932: WHEN OTHERS THEN
926: x_return_status := l_return_status;
927: EXCEPTION
928: WHEN okl_api.g_exception_error THEN
929: x_return_status := g_ret_sts_error;
930: WHEN okl_api.g_exception_unexpected_error THEN
931: x_return_status := g_ret_sts_unexp_error;
932: WHEN OTHERS THEN
933: okl_api.set_message(p_app_name => g_app_name
934: ,p_msg_name => g_db_error
929: x_return_status := g_ret_sts_error;
930: WHEN okl_api.g_exception_unexpected_error THEN
931: x_return_status := g_ret_sts_unexp_error;
932: WHEN OTHERS THEN
933: okl_api.set_message(p_app_name => g_app_name
934: ,p_msg_name => g_db_error
935: ,p_token1 => g_prog_name_token
936: ,p_token1_value => l_api_name
937: ,p_token2 => g_sqlcode_token
970: ,x_msg_data => x_msg_data
971: ,p_lrfv_rec => p_lrfv_tbl(i)
972: ,x_lrfv_rec => x_lrfv_tbl(i));
973: IF l_return_status = g_ret_sts_unexp_error THEN
974: RAISE okl_api.g_exception_unexpected_error;
975: ELSIF l_return_status = g_ret_sts_error THEN
976: RAISE okl_api.g_exception_error;
977: END IF;
978: EXIT WHEN(i = p_lrfv_tbl.LAST);
972: ,x_lrfv_rec => x_lrfv_tbl(i));
973: IF l_return_status = g_ret_sts_unexp_error THEN
974: RAISE okl_api.g_exception_unexpected_error;
975: ELSIF l_return_status = g_ret_sts_error THEN
976: RAISE okl_api.g_exception_error;
977: END IF;
978: EXIT WHEN(i = p_lrfv_tbl.LAST);
979: i := p_lrfv_tbl.next(i);
980: END IF;
982:
983: END IF;
984: x_return_status := g_ret_sts_success;
985: EXCEPTION
986: WHEN okl_api.g_exception_error THEN
987: x_return_status := g_ret_sts_error;
988: WHEN okl_api.g_exception_unexpected_error THEN
989: x_return_status := g_ret_sts_unexp_error;
990: WHEN OTHERS THEN
984: x_return_status := g_ret_sts_success;
985: EXCEPTION
986: WHEN okl_api.g_exception_error THEN
987: x_return_status := g_ret_sts_error;
988: WHEN okl_api.g_exception_unexpected_error THEN
989: x_return_status := g_ret_sts_unexp_error;
990: WHEN OTHERS THEN
991: okl_api.set_message(p_app_name => g_app_name
992: ,p_msg_name => g_db_error
987: x_return_status := g_ret_sts_error;
988: WHEN okl_api.g_exception_unexpected_error THEN
989: x_return_status := g_ret_sts_unexp_error;
990: WHEN OTHERS THEN
991: okl_api.set_message(p_app_name => g_app_name
992: ,p_msg_name => g_db_error
993: ,p_token1 => g_prog_name_token
994: ,p_token1_value => l_api_name
995: ,p_token2 => g_sqlcode_token
1069: RAISE okc_api.g_exception_error;
1070: END IF;
1071: x_return_status := l_return_status;
1072: EXCEPTION
1073: WHEN okl_api.g_exception_error THEN
1074: x_return_status := g_ret_sts_error;
1075: WHEN okl_api.g_exception_unexpected_error THEN
1076: x_return_status := g_ret_sts_unexp_error;
1077: WHEN OTHERS THEN
1071: x_return_status := l_return_status;
1072: EXCEPTION
1073: WHEN okl_api.g_exception_error THEN
1074: x_return_status := g_ret_sts_error;
1075: WHEN okl_api.g_exception_unexpected_error THEN
1076: x_return_status := g_ret_sts_unexp_error;
1077: WHEN OTHERS THEN
1078: okl_api.set_message(p_app_name => g_app_name
1079: ,p_msg_name => g_db_error
1074: x_return_status := g_ret_sts_error;
1075: WHEN okl_api.g_exception_unexpected_error THEN
1076: x_return_status := g_ret_sts_unexp_error;
1077: WHEN OTHERS THEN
1078: okl_api.set_message(p_app_name => g_app_name
1079: ,p_msg_name => g_db_error
1080: ,p_token1 => g_prog_name_token
1081: ,p_token1_value => l_api_name
1082: ,p_token2 => g_sqlcode_token
1113: ,x_msg_count => x_msg_count
1114: ,x_msg_data => x_msg_data
1115: ,p_lrfv_rec => p_lrfv_tbl(i));
1116: IF l_return_status = g_ret_sts_unexp_error THEN
1117: RAISE okl_api.g_exception_unexpected_error;
1118: ELSIF l_return_status = g_ret_sts_error THEN
1119: RAISE okl_api.g_exception_error;
1120: END IF;
1121: EXIT WHEN(i = p_lrfv_tbl.LAST);
1115: ,p_lrfv_rec => p_lrfv_tbl(i));
1116: IF l_return_status = g_ret_sts_unexp_error THEN
1117: RAISE okl_api.g_exception_unexpected_error;
1118: ELSIF l_return_status = g_ret_sts_error THEN
1119: RAISE okl_api.g_exception_error;
1120: END IF;
1121: EXIT WHEN(i = p_lrfv_tbl.LAST);
1122: i := p_lrfv_tbl.next(i);
1123: END IF;
1125:
1126: END IF;
1127: x_return_status := l_return_status;
1128: EXCEPTION
1129: WHEN okl_api.g_exception_error THEN
1130: x_return_status := g_ret_sts_error;
1131: WHEN okl_api.g_exception_unexpected_error THEN
1132: x_return_status := g_ret_sts_unexp_error;
1133: WHEN OTHERS THEN
1127: x_return_status := l_return_status;
1128: EXCEPTION
1129: WHEN okl_api.g_exception_error THEN
1130: x_return_status := g_ret_sts_error;
1131: WHEN okl_api.g_exception_unexpected_error THEN
1132: x_return_status := g_ret_sts_unexp_error;
1133: WHEN OTHERS THEN
1134: okl_api.set_message(p_app_name => g_app_name
1135: ,p_msg_name => g_db_error
1130: x_return_status := g_ret_sts_error;
1131: WHEN okl_api.g_exception_unexpected_error THEN
1132: x_return_status := g_ret_sts_unexp_error;
1133: WHEN OTHERS THEN
1134: okl_api.set_message(p_app_name => g_app_name
1135: ,p_msg_name => g_db_error
1136: ,p_token1 => g_prog_name_token
1137: ,p_token1_value => l_api_name
1138: ,p_token2 => g_sqlcode_token
1170: x_lrfv_rec := p_lrfv_rec;
1171: l_db_lrfv_rec := get_rec(p_lrfv_rec.id, l_return_status);
1172:
1173: IF l_return_status = g_ret_sts_unexp_error THEN
1174: RAISE okl_api.g_exception_unexpected_error;
1175: ELSIF l_return_status = g_ret_sts_error THEN
1176: RAISE okl_api.g_exception_error;
1177: END IF;
1178:
1172:
1173: IF l_return_status = g_ret_sts_unexp_error THEN
1174: RAISE okl_api.g_exception_unexpected_error;
1175: ELSIF l_return_status = g_ret_sts_error THEN
1176: RAISE okl_api.g_exception_error;
1177: END IF;
1178:
1179: -- Do NOT default the following 4 standard attributes from the DB
1180: -- object_version_number
1283: END IF;
1284:
1285: RETURN l_return_status;
1286: EXCEPTION
1287: WHEN okl_api.g_exception_error THEN
1288: x_return_status := g_ret_sts_error;
1289: WHEN okl_api.g_exception_unexpected_error THEN
1290: x_return_status := g_ret_sts_unexp_error;
1291: WHEN OTHERS THEN
1285: RETURN l_return_status;
1286: EXCEPTION
1287: WHEN okl_api.g_exception_error THEN
1288: x_return_status := g_ret_sts_error;
1289: WHEN okl_api.g_exception_unexpected_error THEN
1290: x_return_status := g_ret_sts_unexp_error;
1291: WHEN OTHERS THEN
1292: okl_api.set_message(p_app_name => g_app_name
1293: ,p_msg_name => g_db_error
1288: x_return_status := g_ret_sts_error;
1289: WHEN okl_api.g_exception_unexpected_error THEN
1290: x_return_status := g_ret_sts_unexp_error;
1291: WHEN OTHERS THEN
1292: okl_api.set_message(p_app_name => g_app_name
1293: ,p_msg_name => g_db_error
1294: ,p_token1 => g_prog_name_token
1295: ,p_token1_value => l_api_name
1296: ,p_token2 => g_sqlcode_token
1303: BEGIN
1304: l_return_status := populate_new_record(p_lrfv_rec, l_lrfv_rec);
1305:
1306: IF (l_return_status = g_ret_sts_unexp_error) THEN
1307: RAISE okl_api.g_exception_unexpected_error;
1308: ELSIF (l_return_status = g_ret_sts_error) THEN
1309: RAISE okl_api.g_exception_error;
1310: END IF;
1311:
1305:
1306: IF (l_return_status = g_ret_sts_unexp_error) THEN
1307: RAISE okl_api.g_exception_unexpected_error;
1308: ELSIF (l_return_status = g_ret_sts_error) THEN
1309: RAISE okl_api.g_exception_error;
1310: END IF;
1311:
1312: --null out g miss values
1313:
1317: l_lrfv_rec.last_update_login := fnd_global.login_id;
1318: l_return_status := validate_attributes(l_lrfv_rec);
1319:
1320: IF (l_return_status = g_ret_sts_unexp_error) THEN
1321: RAISE okl_api.g_exception_unexpected_error;
1322: ELSIF (l_return_status = g_ret_sts_error) THEN
1323: RAISE okl_api.g_exception_error;
1324: END IF;
1325: l_return_status := validate_record(l_lrfv_rec);
1319:
1320: IF (l_return_status = g_ret_sts_unexp_error) THEN
1321: RAISE okl_api.g_exception_unexpected_error;
1322: ELSIF (l_return_status = g_ret_sts_error) THEN
1323: RAISE okl_api.g_exception_error;
1324: END IF;
1325: l_return_status := validate_record(l_lrfv_rec);
1326:
1327: IF (l_return_status = g_ret_sts_unexp_error) THEN
1324: END IF;
1325: l_return_status := validate_record(l_lrfv_rec);
1326:
1327: IF (l_return_status = g_ret_sts_unexp_error) THEN
1328: RAISE okl_api.g_exception_unexpected_error;
1329: ELSIF (l_return_status = g_ret_sts_error) THEN
1330: RAISE okl_api.g_exception_error;
1331: END IF;
1332: lock_row(p_api_version => g_api_version
1326:
1327: IF (l_return_status = g_ret_sts_unexp_error) THEN
1328: RAISE okl_api.g_exception_unexpected_error;
1329: ELSIF (l_return_status = g_ret_sts_error) THEN
1330: RAISE okl_api.g_exception_error;
1331: END IF;
1332: lock_row(p_api_version => g_api_version
1333: ,p_init_msg_list => g_false
1334: ,x_return_status => l_return_status
1336: ,x_msg_data => x_msg_data
1337: ,p_lrfv_rec => l_lrfv_rec);
1338:
1339: IF (l_return_status = g_ret_sts_unexp_error) THEN
1340: RAISE okl_api.g_exception_unexpected_error;
1341: ELSIF (l_return_status = g_ret_sts_error) THEN
1342: RAISE okl_api.g_exception_error;
1343: END IF;
1344:
1338:
1339: IF (l_return_status = g_ret_sts_unexp_error) THEN
1340: RAISE okl_api.g_exception_unexpected_error;
1341: ELSIF (l_return_status = g_ret_sts_error) THEN
1342: RAISE okl_api.g_exception_error;
1343: END IF;
1344:
1345: UPDATE okl_ls_rt_fctr_ents
1346: SET object_version_number = l_lrfv_rec.object_version_number + 1
1374: WHERE id = l_lrfv_rec.id;
1375: x_lrfv_rec := l_lrfv_rec;
1376: x_return_status := l_return_status;
1377: EXCEPTION
1378: WHEN okl_api.g_exception_error THEN
1379: x_return_status := g_ret_sts_error;
1380: WHEN okl_api.g_exception_unexpected_error THEN
1381: x_return_status := g_ret_sts_unexp_error;
1382: WHEN OTHERS THEN
1376: x_return_status := l_return_status;
1377: EXCEPTION
1378: WHEN okl_api.g_exception_error THEN
1379: x_return_status := g_ret_sts_error;
1380: WHEN okl_api.g_exception_unexpected_error THEN
1381: x_return_status := g_ret_sts_unexp_error;
1382: WHEN OTHERS THEN
1383: okl_api.set_message(p_app_name => g_app_name
1384: ,p_msg_name => g_db_error
1379: x_return_status := g_ret_sts_error;
1380: WHEN okl_api.g_exception_unexpected_error THEN
1381: x_return_status := g_ret_sts_unexp_error;
1382: WHEN OTHERS THEN
1383: okl_api.set_message(p_app_name => g_app_name
1384: ,p_msg_name => g_db_error
1385: ,p_token1 => g_prog_name_token
1386: ,p_token1_value => l_api_name
1387: ,p_token2 => g_sqlcode_token
1420: ,x_msg_data => x_msg_data
1421: ,p_lrfv_rec => p_lrfv_tbl(i)
1422: ,x_lrfv_rec => x_lrfv_tbl(i));
1423: IF l_return_status = g_ret_sts_unexp_error THEN
1424: RAISE okl_api.g_exception_unexpected_error;
1425: ELSIF l_return_status = g_ret_sts_error THEN
1426: RAISE okl_api.g_exception_error;
1427: END IF;
1428: EXIT WHEN(i = p_lrfv_tbl.LAST);
1422: ,x_lrfv_rec => x_lrfv_tbl(i));
1423: IF l_return_status = g_ret_sts_unexp_error THEN
1424: RAISE okl_api.g_exception_unexpected_error;
1425: ELSIF l_return_status = g_ret_sts_error THEN
1426: RAISE okl_api.g_exception_error;
1427: END IF;
1428: EXIT WHEN(i = p_lrfv_tbl.LAST);
1429: i := p_lrfv_tbl.next(i);
1430: END IF;
1432:
1433: END IF;
1434: x_return_status := l_return_status;
1435: EXCEPTION
1436: WHEN okl_api.g_exception_error THEN
1437: x_return_status := g_ret_sts_error;
1438: WHEN okl_api.g_exception_unexpected_error THEN
1439: x_return_status := g_ret_sts_unexp_error;
1440: WHEN OTHERS THEN
1434: x_return_status := l_return_status;
1435: EXCEPTION
1436: WHEN okl_api.g_exception_error THEN
1437: x_return_status := g_ret_sts_error;
1438: WHEN okl_api.g_exception_unexpected_error THEN
1439: x_return_status := g_ret_sts_unexp_error;
1440: WHEN OTHERS THEN
1441: okl_api.set_message(p_app_name => g_app_name
1442: ,p_msg_name => g_db_error
1437: x_return_status := g_ret_sts_error;
1438: WHEN okl_api.g_exception_unexpected_error THEN
1439: x_return_status := g_ret_sts_unexp_error;
1440: WHEN OTHERS THEN
1441: okl_api.set_message(p_app_name => g_app_name
1442: ,p_msg_name => g_db_error
1443: ,p_token1 => g_prog_name_token
1444: ,p_token1_value => l_api_name
1445: ,p_token2 => g_sqlcode_token
1466: DELETE FROM okl_ls_rt_fctr_ents
1467: WHERE id = p_lrfv_rec.id;
1468: x_return_status := g_ret_sts_success;
1469: EXCEPTION
1470: WHEN okl_api.g_exception_error THEN
1471: x_return_status := g_ret_sts_error;
1472: WHEN okl_api.g_exception_unexpected_error THEN
1473: x_return_status := g_ret_sts_unexp_error;
1474: WHEN OTHERS THEN
1468: x_return_status := g_ret_sts_success;
1469: EXCEPTION
1470: WHEN okl_api.g_exception_error THEN
1471: x_return_status := g_ret_sts_error;
1472: WHEN okl_api.g_exception_unexpected_error THEN
1473: x_return_status := g_ret_sts_unexp_error;
1474: WHEN OTHERS THEN
1475: okl_api.set_message(p_app_name => g_app_name
1476: ,p_msg_name => g_db_error
1471: x_return_status := g_ret_sts_error;
1472: WHEN okl_api.g_exception_unexpected_error THEN
1473: x_return_status := g_ret_sts_unexp_error;
1474: WHEN OTHERS THEN
1475: okl_api.set_message(p_app_name => g_app_name
1476: ,p_msg_name => g_db_error
1477: ,p_token1 => g_prog_name_token
1478: ,p_token1_value => l_api_name
1479: ,p_token2 => g_sqlcode_token
1510: ,x_msg_count => x_msg_count
1511: ,x_msg_data => x_msg_data
1512: ,p_lrfv_rec => p_lrfv_tbl(i));
1513: IF l_return_status = g_ret_sts_unexp_error THEN
1514: RAISE okl_api.g_exception_unexpected_error;
1515: ELSIF l_return_status = g_ret_sts_error THEN
1516: RAISE okl_api.g_exception_error;
1517: END IF;
1518: EXIT WHEN(i = p_lrfv_tbl.LAST);
1512: ,p_lrfv_rec => p_lrfv_tbl(i));
1513: IF l_return_status = g_ret_sts_unexp_error THEN
1514: RAISE okl_api.g_exception_unexpected_error;
1515: ELSIF l_return_status = g_ret_sts_error THEN
1516: RAISE okl_api.g_exception_error;
1517: END IF;
1518: EXIT WHEN(i = p_lrfv_tbl.LAST);
1519: i := p_lrfv_tbl.next(i);
1520: END IF;
1522:
1523: END IF;
1524: x_return_status := l_return_status;
1525: EXCEPTION
1526: WHEN okl_api.g_exception_error THEN
1527: x_return_status := g_ret_sts_error;
1528: WHEN okl_api.g_exception_unexpected_error THEN
1529: x_return_status := g_ret_sts_unexp_error;
1530: WHEN OTHERS THEN
1524: x_return_status := l_return_status;
1525: EXCEPTION
1526: WHEN okl_api.g_exception_error THEN
1527: x_return_status := g_ret_sts_error;
1528: WHEN okl_api.g_exception_unexpected_error THEN
1529: x_return_status := g_ret_sts_unexp_error;
1530: WHEN OTHERS THEN
1531: okl_api.set_message(p_app_name => g_app_name
1532: ,p_msg_name => g_db_error
1527: x_return_status := g_ret_sts_error;
1528: WHEN okl_api.g_exception_unexpected_error THEN
1529: x_return_status := g_ret_sts_unexp_error;
1530: WHEN OTHERS THEN
1531: okl_api.set_message(p_app_name => g_app_name
1532: ,p_msg_name => g_db_error
1533: ,p_token1 => g_prog_name_token
1534: ,p_token1_value => l_api_name
1535: ,p_token2 => g_sqlcode_token