DBA Data[Home] [Help]

APPS.OKL_LRF_GENERATE_PVT dependencies on OKL_API

Line 314: l_return_status varchar2(1) := okl_api.g_ret_sts_success;

310: l_day_conv number;
311: lx_return_status varchar2(1);
312: l_api_name CONSTANT varchar2(30) := 'gen_lrf';
313: l_api_version CONSTANT number := 1.0;
314: l_return_status varchar2(1) := okl_api.g_ret_sts_success;
315: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.okl_lrf_generate_pvt.generate_lease_rate_factors';
316: l_debug_enabled varchar2(10);
317: is_debug_procedure_on boolean;
318: is_debug_statement_on boolean;

Line 339: l_return_status := okl_api.start_activity(p_api_name => l_api_name

335:
336: -- call START_ACTIVITY to create savepoint, check compatibility
337: -- and initialize message list
338:
339: l_return_status := okl_api.start_activity(p_api_name => l_api_name
340: ,p_pkg_name => g_pkg_name
341: ,p_init_msg_list => p_init_msg_list
342: ,l_api_version => l_api_version
343: ,p_api_version => p_api_version

Line 349: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN

345: ,x_return_status => x_return_status);
346:
347: -- check if activity started successfully
348:
349: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
350: RAISE okl_api.g_exception_unexpected_error;
351: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
352: RAISE okl_api.g_exception_error;
353: END IF;

Line 350: RAISE okl_api.g_exception_unexpected_error;

346:
347: -- check if activity started successfully
348:
349: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
350: RAISE okl_api.g_exception_unexpected_error;
351: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
352: RAISE okl_api.g_exception_error;
353: END IF;
354: --IF G_CP_MODE = 'Y' then the procedure is called in Concurrent program

Line 351: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN

347: -- check if activity started successfully
348:
349: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
350: RAISE okl_api.g_exception_unexpected_error;
351: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
352: RAISE okl_api.g_exception_error;
353: END IF;
354: --IF G_CP_MODE = 'Y' then the procedure is called in Concurrent program
355: IF g_cp_mode IS NOT NULL THEN

Line 352: RAISE okl_api.g_exception_error;

348:
349: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
350: RAISE okl_api.g_exception_unexpected_error;
351: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
352: RAISE okl_api.g_exception_error;
353: END IF;
354: --IF G_CP_MODE = 'Y' then the procedure is called in Concurrent program
355: IF g_cp_mode IS NOT NULL THEN
356: IF g_cp_mode <> 'Y' THEN

Line 386: okl_api.set_message(p_app_name => okl_api.g_app_name

382: END IF;
383: END IF;
384: --if rate is still null then throw error
385: IF l_rate IS NULL THEN --set message Rate cannot be determined for RATE_SET_VERSION_ID
386: okl_api.set_message(p_app_name => okl_api.g_app_name
387: ,p_msg_name => 'OKL_RATE_UNDETERMINED_FOR_LRS');
388: RAISE okl_api.g_exception_error;
389: END IF;
390:

Line 388: RAISE okl_api.g_exception_error;

384: --if rate is still null then throw error
385: IF l_rate IS NULL THEN --set message Rate cannot be determined for RATE_SET_VERSION_ID
386: okl_api.set_message(p_app_name => okl_api.g_app_name
387: ,p_msg_name => 'OKL_RATE_UNDETERMINED_FOR_LRS');
388: RAISE okl_api.g_exception_error;
389: END IF;
390:
391: --get the eot residual type
392: OPEN get_eot_resd_type(c_rate_set_rec.end_of_term_ver_id);

Line 454: okl_api.set_message(p_app_name => okl_api.g_app_name

450: --if l_lease_rate_tbl is empty then throw error
451:
452: IF l_lease_rate_tbl.COUNT = 0 THEN
453: NULL; -- NO Term value pairs to generate lrf
454: okl_api.set_message(p_app_name => okl_api.g_app_name
455: ,p_msg_name => 'OKL_NO_VALID_TERM_VALUE_PAIRS');
456: RAISE okl_api.g_exception_error;
457: END IF;
458:

Line 456: RAISE okl_api.g_exception_error;

452: IF l_lease_rate_tbl.COUNT = 0 THEN
453: NULL; -- NO Term value pairs to generate lrf
454: okl_api.set_message(p_app_name => okl_api.g_app_name
455: ,p_msg_name => 'OKL_NO_VALID_TERM_VALUE_PAIRS');
456: RAISE okl_api.g_exception_error;
457: END IF;
458:
459: --validate following
460: --validate that term is exact multiple of payment frequency

Line 479: okl_api.set_message(p_app_name => okl_api.g_app_name

475:
476: END LOOP; --if all records are to be ignored then throw error
477:
478: IF l_gen_lrf_tbl.COUNT = 0 THEN -- NO Term value pairs to generate lrf
479: okl_api.set_message(p_app_name => okl_api.g_app_name
480: ,p_msg_name => 'OKL_NO_VALID_TERM_VALUE_PAIRS');
481: RAISE okl_api.g_exception_error;
482: END IF;
483:

Line 481: RAISE okl_api.g_exception_error;

477:
478: IF l_gen_lrf_tbl.COUNT = 0 THEN -- NO Term value pairs to generate lrf
479: okl_api.set_message(p_app_name => okl_api.g_app_name
480: ,p_msg_name => 'OKL_NO_VALID_TERM_VALUE_PAIRS');
481: RAISE okl_api.g_exception_error;
482: END IF;
483:
484: --validate the residual tolerance
485: --residual tolerance should not be greater than (min of difference between pairs of residual values)

Line 489: okl_api.set_message(p_app_name => okl_api.g_app_name

485: --residual tolerance should not be greater than (min of difference between pairs of residual values)
486:
487: IF NOT is_residual_tolerance_valid(l_gen_lrf_tbl
488: ,c_rate_set_rec.residual_tolerance) THEN
489: okl_api.set_message(p_app_name => okl_api.g_app_name
490: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');
491: RAISE okl_api.g_exception_error;
492: END IF;
493: --generate the lease rate factors for term-value pairs in l_gen_lrf_tbl

Line 491: RAISE okl_api.g_exception_error;

487: IF NOT is_residual_tolerance_valid(l_gen_lrf_tbl
488: ,c_rate_set_rec.residual_tolerance) THEN
489: okl_api.set_message(p_app_name => okl_api.g_app_name
490: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');
491: RAISE okl_api.g_exception_error;
492: END IF;
493: --generate the lease rate factors for term-value pairs in l_gen_lrf_tbl
494: FOR i IN l_gen_lrf_tbl.FIRST..l_gen_lrf_tbl.LAST LOOP
495: l_day_conv := 30 / 360;

Line 509: ,p_init_msg_list => okl_api.g_false

505: l_gen_lrf_tbl(i).lease_rate_factor := trunc(x_lrf, 4);
506: END LOOP;
507: --delete lrf lines and corressponding levels from the okl_ls_rt_fctr_ents_b and okl_fe_lrs_levels table for this lrs version
508: okl_lease_rate_factors_pvt.delete_lease_rate_factors(p_api_version => p_api_version
509: ,p_init_msg_list => okl_api.g_false
510: ,x_return_status => lx_return_status
511: ,x_msg_count => x_msg_count
512: ,x_msg_data => x_msg_data
513: ,p_lrv_id => p_rate_set_version_id);

Line 516: RAISE okl_api.g_exception_error;

512: ,x_msg_data => x_msg_data
513: ,p_lrv_id => p_rate_set_version_id);
514:
515: IF lx_return_status = g_ret_sts_error THEN
516: RAISE okl_api.g_exception_error;
517: ELSIF lx_return_status = g_ret_sts_unexp_error THEN
518: RAISE okl_api.g_exception_unexpected_error;
519: END IF;
520: j := 1; --for each record in l_gen_lrf_tbl do

Line 518: RAISE okl_api.g_exception_unexpected_error;

514:
515: IF lx_return_status = g_ret_sts_error THEN
516: RAISE okl_api.g_exception_error;
517: ELSIF lx_return_status = g_ret_sts_unexp_error THEN
518: RAISE okl_api.g_exception_unexpected_error;
519: END IF;
520: j := 1; --for each record in l_gen_lrf_tbl do
521:
522: FOR i IN l_gen_lrf_tbl.FIRST..l_gen_lrf_tbl.LAST LOOP --populate okl_lrl_tbl

Line 681: ,p_init_msg_list => okl_api.g_false

677: fnd_file.put_line(fnd_file.log, 'Inserting into okl_ls_rt_fctr_ents');
678: END IF;
679: --call handlelrf API to insert levels and factors
680: okl_lease_rate_factors_pvt.handle_lrf_ents(p_api_version => p_api_version
681: ,p_init_msg_list => okl_api.g_false
682: ,x_return_status => lx_return_status
683: ,x_msg_count => x_msg_count
684: ,x_msg_data => x_msg_data
685: ,p_lrfv_tbl => l_lrfv_tbl

Line 691: RAISE okl_api.g_exception_error;

687: ,p_lrlv_tbl => l_lrlv_tbl
688: ,x_lrlv_tbl => lx_lrlv_tbl);
689:
690: IF lx_return_status = g_ret_sts_error THEN
691: RAISE okl_api.g_exception_error;
692: ELSIF lx_return_status = g_ret_sts_unexp_error THEN
693: RAISE okl_api.g_exception_unexpected_error;
694: END IF;
695: x_return_status := lx_return_status;

Line 693: RAISE okl_api.g_exception_unexpected_error;

689:
690: IF lx_return_status = g_ret_sts_error THEN
691: RAISE okl_api.g_exception_error;
692: ELSIF lx_return_status = g_ret_sts_unexp_error THEN
693: RAISE okl_api.g_exception_unexpected_error;
694: END IF;
695: x_return_status := lx_return_status;
696: okl_api.end_activity(x_msg_count => x_msg_count
697: ,x_msg_data => x_msg_data);

Line 696: okl_api.end_activity(x_msg_count => x_msg_count

692: ELSIF lx_return_status = g_ret_sts_unexp_error THEN
693: RAISE okl_api.g_exception_unexpected_error;
694: END IF;
695: x_return_status := lx_return_status;
696: okl_api.end_activity(x_msg_count => x_msg_count
697: ,x_msg_data => x_msg_data);
698:
699: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
700: okl_debug_pub.log_debug(fnd_log.level_procedure

Line 706: WHEN okl_api.g_exception_error THEN

702: ,'end debug OKLRRFGB.pls call generate_lease_rate_factors');
703: END IF;
704:
705: EXCEPTION
706: WHEN okl_api.g_exception_error THEN
707: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
708: ,p_pkg_name => g_pkg_name
709: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
710: ,x_msg_count => x_msg_count

Line 707: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name

703: END IF;
704:
705: EXCEPTION
706: WHEN okl_api.g_exception_error THEN
707: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
708: ,p_pkg_name => g_pkg_name
709: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
710: ,x_msg_count => x_msg_count
711: ,x_msg_data => x_msg_data

Line 709: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'

705: EXCEPTION
706: WHEN okl_api.g_exception_error THEN
707: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
708: ,p_pkg_name => g_pkg_name
709: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
710: ,x_msg_count => x_msg_count
711: ,x_msg_data => x_msg_data
712: ,p_api_type => g_api_type);
713: WHEN okl_api.g_exception_unexpected_error THEN

Line 713: WHEN okl_api.g_exception_unexpected_error THEN

709: ,p_exc_name => 'OKL_API.G_RET_STS_ERROR'
710: ,x_msg_count => x_msg_count
711: ,x_msg_data => x_msg_data
712: ,p_api_type => g_api_type);
713: WHEN okl_api.g_exception_unexpected_error THEN
714: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
715: ,p_pkg_name => g_pkg_name
716: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
717: ,x_msg_count => x_msg_count

Line 714: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name

710: ,x_msg_count => x_msg_count
711: ,x_msg_data => x_msg_data
712: ,p_api_type => g_api_type);
713: WHEN okl_api.g_exception_unexpected_error THEN
714: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
715: ,p_pkg_name => g_pkg_name
716: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
717: ,x_msg_count => x_msg_count
718: ,x_msg_data => x_msg_data

Line 716: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'

712: ,p_api_type => g_api_type);
713: WHEN okl_api.g_exception_unexpected_error THEN
714: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
715: ,p_pkg_name => g_pkg_name
716: ,p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR'
717: ,x_msg_count => x_msg_count
718: ,x_msg_data => x_msg_data
719: ,p_api_type => g_api_type);
720: WHEN OTHERS THEN

Line 721: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name

717: ,x_msg_count => x_msg_count
718: ,x_msg_data => x_msg_data
719: ,p_api_type => g_api_type);
720: WHEN OTHERS THEN
721: x_return_status := okl_api.handle_exceptions(p_api_name => l_api_name
722: ,p_pkg_name => g_pkg_name
723: ,p_exc_name => 'OTHERS'
724: ,x_msg_count => x_msg_count
725: ,x_msg_data => x_msg_data

Line 792: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN

788: ,x_return_status => l_return_status
789: ,x_msg_count => x_msg_count
790: ,x_msg_data => x_msg_data
791: ,p_rate_set_version_id => l_rate_set_version_id);
792: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
793: fnd_file.put_line(fnd_file.log
794: ,'Unexpected error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
795: RAISE okl_api.g_exception_unexpected_error;
796: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN

Line 795: RAISE okl_api.g_exception_unexpected_error;

791: ,p_rate_set_version_id => l_rate_set_version_id);
792: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
793: fnd_file.put_line(fnd_file.log
794: ,'Unexpected error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
795: RAISE okl_api.g_exception_unexpected_error;
796: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
797: fnd_file.put_line(fnd_file.log
798: ,'Error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
799: RAISE okl_api.g_exception_error;

Line 796: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN

792: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
793: fnd_file.put_line(fnd_file.log
794: ,'Unexpected error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
795: RAISE okl_api.g_exception_unexpected_error;
796: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
797: fnd_file.put_line(fnd_file.log
798: ,'Error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
799: RAISE okl_api.g_exception_error;
800: END IF;

Line 799: RAISE okl_api.g_exception_error;

795: RAISE okl_api.g_exception_unexpected_error;
796: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
797: fnd_file.put_line(fnd_file.log
798: ,'Error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
799: RAISE okl_api.g_exception_error;
800: END IF;
801: ELSE
802:
803: FOR lrv IN get_lrs_versions(l_start_date, l_end_date) LOOP

Line 817: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN

813: ,x_return_status => l_return_status
814: ,x_msg_count => x_msg_count
815: ,x_msg_data => x_msg_data
816: ,p_rate_set_version_id => l_rate_set_version_id);
817: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
818: fnd_file.put_line(fnd_file.log
819: ,'Unexpected error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
820: RAISE okl_api.g_exception_unexpected_error;
821: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN

Line 820: RAISE okl_api.g_exception_unexpected_error;

816: ,p_rate_set_version_id => l_rate_set_version_id);
817: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
818: fnd_file.put_line(fnd_file.log
819: ,'Unexpected error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
820: RAISE okl_api.g_exception_unexpected_error;
821: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
822: fnd_file.put_line(fnd_file.log
823: ,'Error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
824:

Line 821: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN

817: IF (l_return_status = okl_api.g_ret_sts_unexp_error) THEN
818: fnd_file.put_line(fnd_file.log
819: ,'Unexpected error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
820: RAISE okl_api.g_exception_unexpected_error;
821: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
822: fnd_file.put_line(fnd_file.log
823: ,'Error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
824:
825: -- RAISE OKL_API.G_EXCEPTION_ERROR;

Line 825: -- RAISE OKL_API.G_EXCEPTION_ERROR;

821: ELSIF (l_return_status = okl_api.g_ret_sts_error) THEN
822: fnd_file.put_line(fnd_file.log
823: ,'Error in call to okl_lrf_generate_pvt.generate_lease_rate_factors');
824:
825: -- RAISE OKL_API.G_EXCEPTION_ERROR;
826: -- print the error message in the log file
827:
828: IF (fnd_msg_pub.count_msg > 0) THEN
829: FOR l_counter IN 1..fnd_msg_pub.count_msg LOOP

Line 857: WHEN okl_api.g_exception_error THEN

853: IF get_lrs_versions%ISOPEN THEN
854: CLOSE get_lrs_versions;
855: END IF;
856:
857: WHEN okl_api.g_exception_error THEN
858: retcode := 2;
859:
860: --close all open cursors
861:

Line 880: WHEN okl_api.g_exception_unexpected_error THEN

876: END LOOP;
877:
878: END IF;
879:
880: WHEN okl_api.g_exception_unexpected_error THEN
881: retcode := 2;
882:
883: --close all open cursors
884: