DBA Data[Home] [Help]

APPS.OKL_LEASE_RATE_FACTORS_PVT dependencies on DUAL

Line 714: FROM dual;

710: END IF;
711:
712: SELECT decode(p_freq, 'M', 1, 'Q', 3, 'S', 6, 'A', 12)
713: INTO l_freq
714: FROM dual;
715:
716: FOR i IN p_lrfv_tbl.FIRST..p_lrfv_tbl.LAST LOOP
717:
718: --term should be exact multiple of frequency

Line 766: This function validates whether the residual tolerance is less than or equal

762: END IF;
763: RETURN okl_api.g_ret_sts_success;
764: END validate_factor_levels;
765: /**
766: This function validates whether the residual tolerance is less than or equal
767: to the minimum of the difference between the residual values.
768: **/
769:
770: FUNCTION is_residual_tolerance_valid(p_lrfv_tbl IN lrfv_tbl_type

Line 767: to the minimum of the difference between the residual values.

763: RETURN okl_api.g_ret_sts_success;
764: END validate_factor_levels;
765: /**
766: This function validates whether the residual tolerance is less than or equal
767: to the minimum of the difference between the residual values.
768: **/
769:
770: FUNCTION is_residual_tolerance_valid(p_lrfv_tbl IN lrfv_tbl_type
771: ,p_residual_tolerance number) RETURN boolean IS

Line 770: FUNCTION is_residual_tolerance_valid(p_lrfv_tbl IN lrfv_tbl_type

766: This function validates whether the residual tolerance is less than or equal
767: to the minimum of the difference between the residual values.
768: **/
769:
770: FUNCTION is_residual_tolerance_valid(p_lrfv_tbl IN lrfv_tbl_type
771: ,p_residual_tolerance number) RETURN boolean IS
772: mindiff number;
773: diffij number;
774: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.okl_lease_rate_factors_pvt.is_residual_tolerance_valid';

Line 771: ,p_residual_tolerance number) RETURN boolean IS

767: to the minimum of the difference between the residual values.
768: **/
769:
770: FUNCTION is_residual_tolerance_valid(p_lrfv_tbl IN lrfv_tbl_type
771: ,p_residual_tolerance number) RETURN boolean IS
772: mindiff number;
773: diffij number;
774: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.okl_lease_rate_factors_pvt.is_residual_tolerance_valid';
775: l_debug_enabled varchar2(10);

Line 774: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.okl_lease_rate_factors_pvt.is_residual_tolerance_valid';

770: FUNCTION is_residual_tolerance_valid(p_lrfv_tbl IN lrfv_tbl_type
771: ,p_residual_tolerance number) RETURN boolean IS
772: mindiff number;
773: diffij number;
774: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.okl_lease_rate_factors_pvt.is_residual_tolerance_valid';
775: l_debug_enabled varchar2(10);
776: is_debug_procedure_on boolean;
777: is_debug_statement_on boolean;
778:

Line 787: ,'begin debug OKLPLRFB.pls call is_residual_tolerance_valid');

783:
784: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
785: okl_debug_pub.log_debug(fnd_log.level_procedure
786: ,l_module
787: ,'begin debug OKLPLRFB.pls call is_residual_tolerance_valid');
788: END IF;
789:
790: -- check for logging on STATEMENT level
791:

Line 795: IF p_residual_tolerance = 0 OR p_lrfv_tbl.COUNT = 1 THEN

791:
792: is_debug_statement_on := okl_debug_pub.check_log_on(l_module
793: ,fnd_log.level_statement);
794:
795: IF p_residual_tolerance = 0 OR p_lrfv_tbl.COUNT = 1 THEN
796: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
797: okl_debug_pub.log_debug(fnd_log.level_procedure
798: ,l_module
799: ,'end debug OKLRECVB.pls.pls call is_residual_tolerance_valid');

Line 799: ,'end debug OKLRECVB.pls.pls call is_residual_tolerance_valid');

795: IF p_residual_tolerance = 0 OR p_lrfv_tbl.COUNT = 1 THEN
796: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
797: okl_debug_pub.log_debug(fnd_log.level_procedure
798: ,l_module
799: ,'end debug OKLRECVB.pls.pls call is_residual_tolerance_valid');
800: END IF;
801: RETURN true;
802: END IF;
803: mindiff := abs(p_lrfv_tbl(1).residual_value_percent - p_lrfv_tbl(2).residual_value_percent);

Line 803: mindiff := abs(p_lrfv_tbl(1).residual_value_percent - p_lrfv_tbl(2).residual_value_percent);

799: ,'end debug OKLRECVB.pls.pls call is_residual_tolerance_valid');
800: END IF;
801: RETURN true;
802: END IF;
803: mindiff := abs(p_lrfv_tbl(1).residual_value_percent - p_lrfv_tbl(2).residual_value_percent);
804:
805: --find the minimum difference between residual_value_percent
806:
807: FOR i IN p_lrfv_tbl.FIRST..p_lrfv_tbl.LAST - 1 LOOP

Line 805: --find the minimum difference between residual_value_percent

801: RETURN true;
802: END IF;
803: mindiff := abs(p_lrfv_tbl(1).residual_value_percent - p_lrfv_tbl(2).residual_value_percent);
804:
805: --find the minimum difference between residual_value_percent
806:
807: FOR i IN p_lrfv_tbl.FIRST..p_lrfv_tbl.LAST - 1 LOOP
808: FOR j IN i + 1..p_lrfv_tbl.LAST LOOP
809: diffij := abs(p_lrfv_tbl(i).residual_value_percent - p_lrfv_tbl(j).residual_value_percent);

Line 809: diffij := abs(p_lrfv_tbl(i).residual_value_percent - p_lrfv_tbl(j).residual_value_percent);

805: --find the minimum difference between residual_value_percent
806:
807: FOR i IN p_lrfv_tbl.FIRST..p_lrfv_tbl.LAST - 1 LOOP
808: FOR j IN i + 1..p_lrfv_tbl.LAST LOOP
809: diffij := abs(p_lrfv_tbl(i).residual_value_percent - p_lrfv_tbl(j).residual_value_percent);
810:
811: IF diffij < mindiff THEN
812: mindiff := diffij;
813: END IF;

Line 818: IF p_residual_tolerance >= mindiff / 2 THEN

814:
815: END LOOP;
816: END LOOP;
817:
818: IF p_residual_tolerance >= mindiff / 2 THEN
819: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
820: okl_debug_pub.log_debug(fnd_log.level_procedure
821: ,l_module
822: ,'end debug OKLRECVB.pls.pls call is_residual_tolerance_valid');

Line 822: ,'end debug OKLRECVB.pls.pls call is_residual_tolerance_valid');

818: IF p_residual_tolerance >= mindiff / 2 THEN
819: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
820: okl_debug_pub.log_debug(fnd_log.level_procedure
821: ,l_module
822: ,'end debug OKLRECVB.pls.pls call is_residual_tolerance_valid');
823: END IF;
824: RETURN false;
825: ELSE
826: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN

Line 829: ,'end debug OKLRECVB.pls.pls call is_residual_tolerance_valid');

825: ELSE
826: IF (l_debug_enabled = 'Y' AND is_debug_procedure_on) THEN
827: okl_debug_pub.log_debug(fnd_log.level_procedure
828: ,l_module
829: ,'end debug OKLRECVB.pls.pls call is_residual_tolerance_valid');
830: END IF;
831: RETURN true;
832: END IF;
833:

Line 834: END is_residual_tolerance_valid;

830: END IF;
831: RETURN true;
832: END IF;
833:
834: END is_residual_tolerance_valid;
835: /**
836: This function returns the rate from the standard rate template version,
837: If standard rate template is of type INDEX, it takes the rate from OKL_INDEX_VALUES.
838: **/

Line 953: AND p_lrfv_tbl(i).residual_value_percent = p_lrfv_tbl(j).residual_value_percent THEN

949:
950: FOR i IN p_lrfv_tbl.FIRST..p_lrfv_tbl.LAST - 1 LOOP
951: FOR j IN i + 1..p_lrfv_tbl.LAST LOOP
952: IF p_lrfv_tbl(i).term_in_months = p_lrfv_tbl(j).term_in_months
953: AND p_lrfv_tbl(i).residual_value_percent = p_lrfv_tbl(j).residual_value_percent THEN
954: okl_api.set_message(p_app_name => okl_api.g_app_name
955: ,p_msg_name => 'OKL_DUPLICATE_TERM_VALUE'
956: ,p_token1 => 'TERM'
957: ,p_token1_value => p_lrfv_tbl(i).term_in_months

Line 959: ,p_token2_value => p_lrfv_tbl(i).residual_value_percent);

955: ,p_msg_name => 'OKL_DUPLICATE_TERM_VALUE'
956: ,p_token1 => 'TERM'
957: ,p_token1_value => p_lrfv_tbl(i).term_in_months
958: ,p_token2 => 'VALUE'
959: ,p_token2_value => p_lrfv_tbl(i).residual_value_percent);
960: RETURN okl_api.g_ret_sts_error;
961: END IF;
962: END LOOP;
963: END LOOP;

Line 1088: --validate the residual tolerance

1084: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1085: RAISE okl_api.g_exception_unexpected_error;
1086: END IF;
1087:
1088: --validate the residual tolerance
1089: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1090: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1091: lp_lrvv_rec.residual_tolerance := 0;
1092: END IF;

Line 1089: --residual tolerance should not be greater than (min of difference between pairs of residual values)

1085: RAISE okl_api.g_exception_unexpected_error;
1086: END IF;
1087:
1088: --validate the residual tolerance
1089: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1090: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1091: lp_lrvv_rec.residual_tolerance := 0;
1092: END IF;
1093: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl

Line 1090: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN

1086: END IF;
1087:
1088: --validate the residual tolerance
1089: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1090: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1091: lp_lrvv_rec.residual_tolerance := 0;
1092: END IF;
1093: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1094: ,nvl(lp_lrvv_rec.residual_tolerance

Line 1091: lp_lrvv_rec.residual_tolerance := 0;

1087:
1088: --validate the residual tolerance
1089: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1090: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1091: lp_lrvv_rec.residual_tolerance := 0;
1092: END IF;
1093: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1094: ,nvl(lp_lrvv_rec.residual_tolerance
1095: ,0)) THEN

Line 1093: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl

1089: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1090: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1091: lp_lrvv_rec.residual_tolerance := 0;
1092: END IF;
1093: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1094: ,nvl(lp_lrvv_rec.residual_tolerance
1095: ,0)) THEN
1096: okl_api.set_message(p_app_name => okl_api.g_app_name
1097: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');

Line 1094: ,nvl(lp_lrvv_rec.residual_tolerance

1090: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1091: lp_lrvv_rec.residual_tolerance := 0;
1092: END IF;
1093: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1094: ,nvl(lp_lrvv_rec.residual_tolerance
1095: ,0)) THEN
1096: okl_api.set_message(p_app_name => okl_api.g_app_name
1097: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');
1098: RAISE okl_api.g_exception_error;

Line 1097: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');

1093: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1094: ,nvl(lp_lrvv_rec.residual_tolerance
1095: ,0)) THEN
1096: okl_api.set_message(p_app_name => okl_api.g_app_name
1097: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');
1098: RAISE okl_api.g_exception_error;
1099: END IF;
1100:
1101: --set the foreign key values and interest rate

Line 1307: --validate the residual tolerance

1303: ELSIF l_return_status = g_ret_sts_unexp_error THEN
1304: RAISE okl_api.g_exception_unexpected_error;
1305: END IF;
1306:
1307: --validate the residual tolerance
1308: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1309: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1310: lp_lrvv_rec.residual_tolerance := 0;
1311: END IF;

Line 1308: --residual tolerance should not be greater than (min of difference between pairs of residual values)

1304: RAISE okl_api.g_exception_unexpected_error;
1305: END IF;
1306:
1307: --validate the residual tolerance
1308: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1309: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1310: lp_lrvv_rec.residual_tolerance := 0;
1311: END IF;
1312: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl

Line 1309: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN

1305: END IF;
1306:
1307: --validate the residual tolerance
1308: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1309: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1310: lp_lrvv_rec.residual_tolerance := 0;
1311: END IF;
1312: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1313: ,nvl(lp_lrvv_rec.residual_tolerance

Line 1310: lp_lrvv_rec.residual_tolerance := 0;

1306:
1307: --validate the residual tolerance
1308: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1309: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1310: lp_lrvv_rec.residual_tolerance := 0;
1311: END IF;
1312: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1313: ,nvl(lp_lrvv_rec.residual_tolerance
1314: ,0)) THEN

Line 1312: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl

1308: --residual tolerance should not be greater than (min of difference between pairs of residual values)
1309: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1310: lp_lrvv_rec.residual_tolerance := 0;
1311: END IF;
1312: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1313: ,nvl(lp_lrvv_rec.residual_tolerance
1314: ,0)) THEN
1315: okl_api.set_message(p_app_name => okl_api.g_app_name
1316: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');

Line 1313: ,nvl(lp_lrvv_rec.residual_tolerance

1309: IF lp_lrvv_rec.residual_tolerance = okl_api.g_miss_num THEN
1310: lp_lrvv_rec.residual_tolerance := 0;
1311: END IF;
1312: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1313: ,nvl(lp_lrvv_rec.residual_tolerance
1314: ,0)) THEN
1315: okl_api.set_message(p_app_name => okl_api.g_app_name
1316: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');
1317: RAISE okl_api.g_exception_error;

Line 1316: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');

1312: IF NOT is_residual_tolerance_valid(lp_lrfv_tbl
1313: ,nvl(lp_lrvv_rec.residual_tolerance
1314: ,0)) THEN
1315: okl_api.set_message(p_app_name => okl_api.g_app_name
1316: ,p_msg_name => 'OKL_INVALID_RESIDUAL_TOLERANCE');
1317: RAISE okl_api.g_exception_error;
1318: END IF;
1319:
1320: --set the foreign key values and interest rate