DBA Data[Home] [Help]

APPS.QP_FORMULA_PRICE_CALC_PVT dependencies on FND_API

Line 84: x_return_status := FND_API.G_RET_STS_SUCCESS;

80: l_cursor INTEGER;
81:
82: BEGIN
83:
84: x_return_status := FND_API.G_RET_STS_SUCCESS;
85:
86: EXECUTE IMMEDIATE 'SELECT ' || p_formula || ' FROM DUAL';
87:
88: EXCEPTION

Line 89: WHEN FND_API.G_EXC_ERROR THEN

85:
86: EXECUTE IMMEDIATE 'SELECT ' || p_formula || ' FROM DUAL';
87:
88: EXCEPTION
89: WHEN FND_API.G_EXC_ERROR THEN
90:
91: x_return_status := FND_API.G_RET_STS_ERROR;
92:
93: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 91: x_return_status := FND_API.G_RET_STS_ERROR;

87:
88: EXCEPTION
89: WHEN FND_API.G_EXC_ERROR THEN
90:
91: x_return_status := FND_API.G_RET_STS_ERROR;
92:
93: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
94: THEN
95: fnd_message.set_name('QP','QP_FORMULA_NOT_FOUND');

Line 101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

97: END IF;
98:
99: -- RAISE;
100:
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102:
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104:
105: -- RAISE;

Line 103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

99: -- RAISE;
100:
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102:
103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104:
105: -- RAISE;
106:
107: WHEN OTHERS THEN

Line 109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

105: -- RAISE;
106:
107: WHEN OTHERS THEN
108:
109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110:
111: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
112: THEN
113: FND_MSG_PUB.Add_Exc_Msg

Line 119: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

115: , 'Parse Formula'
116: );
117: END IF;
118:
119: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
120:
121: END Parse_Formula;
122:
123:

Line 176: IF l_debug = FND_API.G_TRUE THEN

172: l_new_formula := l_new_formula || l_char;
173: END IF; -- If the character is a number or not
174: END LOOP; -- Loop through every character in the Formula String
175:
176: IF l_debug = FND_API.G_TRUE THEN
177: QP_PREQ_GRP.engine_debug('Formula is ' || l_new_formula);
178: END IF;
179:
180: l_select_stmt := 'SELECT '|| l_new_formula || ' FROM DUAL';

Line 505: x_return_status := FND_API.G_RET_STS_SUCCESS;

501:
502: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
503: l_formula_start_time := dbms_utility.get_time;
504:
505: x_return_status := FND_API.G_RET_STS_SUCCESS;
506:
507: IF l_debug = FND_API.G_TRUE THEN
508: QP_PREQ_GRP.engine_debug('Start Formula...');
509: END IF;

Line 507: IF l_debug = FND_API.G_TRUE THEN

503: l_formula_start_time := dbms_utility.get_time;
504:
505: x_return_status := FND_API.G_RET_STS_SUCCESS;
506:
507: IF l_debug = FND_API.G_TRUE THEN
508: QP_PREQ_GRP.engine_debug('Start Formula...');
509: END IF;
510:
511: --added for formula messages

Line 524: x_return_status := FND_API.G_RET_STS_ERROR;

520: FETCH price_formulas_cur INTO l_formula;
521:
522: IF price_formulas_cur%NOTFOUND THEN
523:
524: x_return_status := FND_API.G_RET_STS_ERROR;
525:
526: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
527: THEN
528: RAISE E_FORMULA_NOT_FOUND;

Line 538: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

534: CLOSE price_formulas_cur;
535:
536: Parse_Formula (l_formula, l_return_status);
537:
538: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
539: x_return_status := l_return_status;
540: RAISE E_INVALID_FORMULA;
541: END IF;
542:

Line 554: x_return_status := FND_API.G_RET_STS_ERROR;

550: WHERE price_formula_id = p_price_formula_id;
551:
552: IF l_no_of_comps = 0 THEN
553:
554: x_return_status := FND_API.G_RET_STS_ERROR;
555:
556: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
557: THEN
558: RAISE E_FORMULA_COMPONENTS_REQ;

Line 572: IF l_debug = FND_API.G_TRUE THEN

568: LOOP
569:
570: IF l_rec.price_formula_line_type_code = 'NUM' THEN
571:
572: IF l_debug = FND_API.G_TRUE THEN
573: QP_PREQ_GRP.engine_debug('Formula Line Type = NUM, Step = '|| l_rec.step_number
574: || ', Value = ' || l_rec.numeric_constant);
575: END IF;
576: l_formula_line_tbl(l_rec.step_number).component_value :=

Line 594: IF l_debug = FND_API.G_TRUE THEN

590: p_list_line_type_code;
591:
592: ELSIF l_rec.price_formula_line_type_code = 'LP' THEN
593:
594: IF l_debug = FND_API.G_TRUE THEN
595: QP_PREQ_GRP.engine_debug('Formula Line Type = LP, Step = ' || l_rec.step_number
596: || ', Value = '|| p_list_price);
597: END IF;
598: l_formula_line_tbl(l_rec.step_number).component_value := p_list_price;

Line 619: IF l_debug = FND_API.G_TRUE THEN

615: END IF;
616:
617: ELSIF l_rec.price_formula_line_type_code = 'MV' THEN
618:
619: IF l_debug = FND_API.G_TRUE THEN
620: QP_PREQ_GRP.engine_debug('Formula Line Type = MV, Step = ' || l_rec.step_number || ', Value = '|| p_modifier_value);
621:
622: END IF;
623: l_formula_line_tbl(l_rec.step_number).component_value := p_modifier_value;

Line 645: IF l_debug = FND_API.G_TRUE THEN

641: END IF;
642:
643: ELSIF l_rec.price_formula_line_type_code = 'FUNC' THEN
644:
645: IF l_debug = FND_API.G_TRUE THEN
646: QP_PREQ_GRP.engine_debug('Formula Line Type = FUNC, Step = ' ||l_rec.step_number);
647: END IF;
648: l_customized := FND_PROFILE.VALUE('QP_GET_CUSTOM_PRICE_CUSTOMIZED');
649: IF l_customized = 'Y' THEN

Line 650: IF l_debug = FND_API.G_TRUE THEN

646: QP_PREQ_GRP.engine_debug('Formula Line Type = FUNC, Step = ' ||l_rec.step_number);
647: END IF;
648: l_customized := FND_PROFILE.VALUE('QP_GET_CUSTOM_PRICE_CUSTOMIZED');
649: IF l_customized = 'Y' THEN
650: IF l_debug = FND_API.G_TRUE THEN
651: QP_PREQ_GRP.engine_debug('l_customized is Y');
652:
653: END IF;
654: --Populate l_req_line_attrs_tbl

Line 709: x_return_status := FND_API.G_RET_STS_ERROR;

705: l_null_step_number_tbl(l_rec.step_number) := l_rec.step_number;
706: END;
707:
708: ELSE --If customized = 'N'
709: x_return_status := FND_API.G_RET_STS_ERROR;
710: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
711: THEN
712: RAISE E_CUSTOMIZE_GET_CUSTOM_PRICE;
713: END IF;

Line 718: IF l_debug = FND_API.G_TRUE THEN

714: END IF;
715:
716: ELSIF l_rec.price_formula_line_type_code = 'PRA' THEN
717:
718: IF l_debug = FND_API.G_TRUE THEN
719: QP_PREQ_GRP.engine_debug('Formula Line Type = PRA, Step = ' ||l_rec.step_number);
720:
721: END IF;
722: OPEN pra_cur(l_rec.pricing_attribute_context, l_rec.pricing_attribute,

Line 730: IF l_debug = FND_API.G_TRUE THEN

726: IF pra_cur%FOUND THEN
727: --Return the matching pricing attribute value that is found.
728: BEGIN
729: -- bug 2195879
730: IF l_debug = FND_API.G_TRUE THEN
731: QP_PREQ_GRP.engine_debug('l_pra_rec.value_from = '||l_pra_rec.value_from);
732: END IF;
733: l_formula_line_tbl(l_rec.step_number).component_value :=
734: qp_number.canonical_to_number(l_pra_rec.value_from);

Line 738: IF l_debug = FND_API.G_TRUE THEN

734: qp_number.canonical_to_number(l_pra_rec.value_from);
735:
736: l_Operand_Tbl(l_rec.step_number) := l_formula_line_tbl(l_rec.step_number).component_value;
737:
738: IF l_debug = FND_API.G_TRUE THEN
739: QP_PREQ_GRP.engine_debug('Just after pra cur value from to number conversion');
740: END IF;
741: EXCEPTION
742: WHEN OTHERS THEN

Line 743: x_return_status := FND_API.G_RET_STS_ERROR;

739: QP_PREQ_GRP.engine_debug('Just after pra cur value from to number conversion');
740: END IF;
741: EXCEPTION
742: WHEN OTHERS THEN
743: x_return_status := FND_API.G_RET_STS_ERROR;
744: IF l_debug = FND_API.G_TRUE THEN
745: QP_PREQ_GRP.engine_debug('Error converting PRA value to number');
746: END IF;
747: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 744: IF l_debug = FND_API.G_TRUE THEN

740: END IF;
741: EXCEPTION
742: WHEN OTHERS THEN
743: x_return_status := FND_API.G_RET_STS_ERROR;
744: IF l_debug = FND_API.G_TRUE THEN
745: QP_PREQ_GRP.engine_debug('Error converting PRA value to number');
746: END IF;
747: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
748: THEN

Line 776: IF l_debug = FND_API.G_TRUE THEN

772: p_list_line_type_code;
773:
774: ELSIF l_rec.price_formula_line_type_code = 'PLL' THEN
775:
776: IF l_debug = FND_API.G_TRUE THEN
777: QP_PREQ_GRP.engine_debug('Formula Line Type = PLL, Step = ' ||l_rec.step_number);
778: END IF;
779: /*
780: INDX,QP_FORMULA_PRICE_CALC_PVT.calculate.sel2,QP_LIST_LINES_PK,LIST_LINE_ID,1

Line 811: IF l_debug = FND_API.G_TRUE THEN

807: p_list_line_type_code;
808:
809: ELSIF l_rec.price_formula_line_type_code = 'ML' THEN
810:
811: IF l_debug = FND_API.G_TRUE THEN
812: QP_PREQ_GRP.engine_debug('Formula Line Type = ML, Step = ' ||l_rec.step_number);
813: END IF;
814: --null; --Do nothing here. All factor lists will be processed together later
815: l_Operand_Tbl(l_rec.step_number) :=null;----6726052,7249280 smbalara

Line 820: x_return_status := FND_API.G_RET_STS_ERROR;

816: --added for formula messages
817: l_null_step_number_tbl(l_rec.step_number) := l_rec.step_number;
818: ELSE --if price_formula_line_type_code is not one of the expected values.
819:
820: x_return_status := FND_API.G_RET_STS_ERROR;
821: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
822: THEN
823: FND_MESSAGE.SET_NAME('QP','QP_INVALID_FORMULA_LINE_TYPE');
824: END IF;

Line 831: IF l_debug = FND_API.G_TRUE THEN

827: l_req_line_attrs_tbl.delete; --3531890 attribute were getting accumulated for every step
828: -- smbalara bug 7188211
829: --Based on a profile option,formula step values will be inserted into qp_nformula_step_values_tmp
830: IF QP_PREQ_GRP.G_INSERT_FORMULA_STEP_VALUES = 'Y' THEN
831: IF l_debug = FND_API.G_TRUE THEN
832: QP_PREQ_GRP.engine_debug('Before populating formula stepvalues temp table');
833: QP_PREQ_GRP.engine_debug('Value 1='||l_formula_line_tbl(l_rec.step_number).price_formula_id );
834: QP_PREQ_GRP.engine_debug('Value 2='||l_formula_line_tbl(l_rec.step_number).step_number );
835: QP_PREQ_GRP.engine_debug('Value 3='||l_formula_line_tbl(l_rec.step_number).component_value );

Line 863: IF l_debug = FND_API.G_TRUE THEN

859: l_formula_line_tbl(l_rec.step_number).list_line_type_code,
860: l_formula_line_tbl(l_rec.step_number).list_header_id,
861: l_formula_line_tbl(l_rec.step_number).list_line_id
862: );
863: IF l_debug = FND_API.G_TRUE THEN
864: QP_PREQ_GRP.engine_debug('After populating formula step values temp table');
865: END IF;
866: END IF;
867: -- smbalara bug 7188211

Line 875: IF l_debug = FND_API.G_TRUE THEN

871: 'FM999999999999999999999.9999999999999999999999999999999999999999';
872:
873: -- Now Process all Factor Lists in the formula
874:
875: IF l_debug = FND_API.G_TRUE THEN
876: QP_PREQ_GRP.engine_debug('Before populating plsql table of formula lines');
877:
878: END IF;
879: --Populate l_formula_line_tbl for all factor lists in the formula

Line 884: IF l_debug = FND_API.G_TRUE THEN

880: FOR l_factors_rec IN factors_cur (p_price_formula_id, p_line_index,
881: p_price_effective_date)
882: LOOP
883:
884: IF l_debug = FND_API.G_TRUE THEN
885: QP_PREQ_GRP.engine_debug('enter factors_cur loop');
886:
887: END IF;
888: IF l_skip_factor AND

Line 895: IF l_debug = FND_API.G_TRUE THEN

891: l_old_step_number := l_factors_rec.step_number;
892: GOTO factors_loop;
893: END IF;
894:
895: IF l_debug = FND_API.G_TRUE THEN
896: QP_PREQ_GRP.engine_debug('after skip check ');
897:
898: END IF;
899: l_skip_factor := FALSE;

Line 924: IF l_debug = FND_API.G_TRUE THEN

920: l_factors_rec.list_line_id;
921: l_formula_line_tbl(l_factors_rec.step_number).list_line_type_code :=
922: p_list_line_type_code;
923:
924: IF l_debug = FND_API.G_TRUE THEN
925: QP_PREQ_GRP.engine_debug('In factors_cur, step = ' ||l_factors_rec.step_number);
926:
927: END IF;
928: l_skip_factor := TRUE;

Line 966: IF l_debug = FND_API.G_TRUE THEN

962: l_factors_rec.list_line_id;
963: l_formula_line_tbl(l_factors_rec.step_number).list_line_type_code :=
964: p_list_line_type_code;
965:
966: IF l_debug = FND_API.G_TRUE THEN
967: QP_PREQ_GRP.engine_debug('In sub_factors_cur, step = ' ||l_factors_rec.step_number);
968:
969: END IF;
970: l_skip_factor := TRUE;

Line 984: IF l_debug = FND_API.G_TRUE THEN

980:
981: <>
982: null;
983:
984: IF l_debug = FND_API.G_TRUE THEN
985: QP_PREQ_GRP.engine_debug('exit factors_cur loop');
986:
987: END IF;
988: END LOOP; --Loop over factors_cur

Line 990: IF l_debug = FND_API.G_TRUE THEN

986:
987: END IF;
988: END LOOP; --Loop over factors_cur
989:
990: IF l_debug = FND_API.G_TRUE THEN
991: QP_PREQ_GRP.engine_debug('After populating plsql table of formula lines');
992:
993: END IF;
994: --Based on a profile option, loop over plsql table of formula lines to

Line 999: IF l_debug = FND_API.G_TRUE THEN

995: --populate qp_nformula_step_values_tmp table
996: /* commented for bug 7188211 - temp table insert moved above
997: IF QP_PREQ_GRP.G_INSERT_FORMULA_STEP_VALUES = 'Y' THEN
998:
999: IF l_debug = FND_API.G_TRUE THEN
1000: QP_PREQ_GRP.engine_debug('Before populating formula stepvalues temp table');
1001:
1002: END IF;
1003: i:= l_formula_line_tbl.FIRST; --set loop index to first element in plsql tbl

Line 1038: IF l_debug = FND_API.G_TRUE THEN

1034: END IF; --If list_line_type_code = 'PLL'
1035:
1036: EXCEPTION
1037: WHEN OTHERS THEN
1038: IF l_debug = FND_API.G_TRUE THEN
1039: QP_PREQ_GRP.engine_debug(substr(sqlerrm, 1, 240));
1040: END IF;
1041: END;
1042:

Line 1047: IF l_debug = FND_API.G_TRUE THEN

1043: i := l_formula_line_tbl.NEXT(i);--set i to next notnull position in plsql
1044:
1045: END LOOP; --loop over l_formula_line_tbl
1046:
1047: IF l_debug = FND_API.G_TRUE THEN
1048: QP_PREQ_GRP.engine_debug('After populating formula step values temp table');
1049:
1050: END IF;
1051: END IF; --If profile option is set

Line 1053: IF l_debug = FND_API.G_TRUE THEN

1049:
1050: END IF;
1051: END IF; --If profile option is set
1052: commented for bug 7188211*/
1053: IF l_debug = FND_API.G_TRUE THEN
1054: QP_PREQ_GRP.engine_debug('Before Calling - QP_BUILD_FORMULA_RULES.Get_Formula_Values');
1055: QP_PREQ_GRP.engine_debug('For Formula : '||l_formula);----6726052,7249280 smbalara
1056: END IF;
1057: QP_BUILD_FORMULA_RULES.Get_Formula_Values(l_formula,

Line 1063: IF l_debug = FND_API.G_TRUE THEN

1059: 'G', --sfiresto
1060: l_formula_value,
1061: l_return_status);
1062:
1063: IF l_debug = FND_API.G_TRUE THEN
1064: QP_PREQ_GRP.engine_debug('After Calling - QP_BUILD_FORMULA_RULES.Get_Formula_Values');
1065:
1066: QP_PREQ_GRP.engine_debug('Return Status from Get_Formula_Values ' || l_return_status);
1067:

Line 1069: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) OR (l_formula_value IS NULL) THEN

1065:
1066: QP_PREQ_GRP.engine_debug('Return Status from Get_Formula_Values ' || l_return_status);
1067:
1068: END IF;
1069: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) OR (l_formula_value IS NULL) THEN
1070: l_formula_value := Select_From_Dual(l_formula, l_operand_tbl);
1071:
1072: IF l_formula_value IS NULL THEN
1073: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1073: x_return_status := FND_API.G_RET_STS_ERROR;

1069: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) OR (l_formula_value IS NULL) THEN
1070: l_formula_value := Select_From_Dual(l_formula, l_operand_tbl);
1071:
1072: IF l_formula_value IS NULL THEN
1073: x_return_status := FND_API.G_RET_STS_ERROR;
1074: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1075: THEN
1076: Set_Message( p_price_formula_id => p_price_formula_id,
1077: p_formula_name => l_formula_name,

Line 1085: IF l_debug = FND_API.G_TRUE THEN

1081: END IF;
1082:
1083: END IF;
1084:
1085: IF l_debug = FND_API.G_TRUE THEN
1086: QP_PREQ_GRP.engine_debug('Formula evaluated to ' || l_formula_value);
1087:
1088: QP_PREQ_GRP.engine_debug('Formula Return Status ' || l_return_status);
1089:

Line 1096: IF l_debug = FND_API.G_TRUE THEN

1092:
1093: l_formula_end_time := dbms_utility.get_time;
1094: l_time_difference := (l_formula_end_time - l_formula_start_time)/100 ;
1095:
1096: IF l_debug = FND_API.G_TRUE THEN
1097: QP_PREQ_GRP.engine_debug('##### Total Time in QP_FORMULA_PRICE_CALC_PVT(in sec) : ' || l_time_difference || ' #####');
1098:
1099: END IF;
1100: RETURN l_formula_value;

Line 1106: x_return_status := FND_API.G_RET_STS_ERROR;

1102:
1103: EXCEPTION
1104:
1105: WHEN E_FORMULA_NOT_FOUND THEN
1106: x_return_status := FND_API.G_RET_STS_ERROR;
1107: fnd_message.set_name('QP','QP_FORMULA_NOT_FOUND');
1108: fnd_message.set_token('FORMULA_NAME',l_formula_name);
1109: -- Change mask back to flexible mask
1110: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';

Line 1114: x_return_status := FND_API.G_RET_STS_ERROR;

1110: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';
1111: RETURN l_formula_value;
1112:
1113: WHEN E_INVALID_FORMULA THEN
1114: x_return_status := FND_API.G_RET_STS_ERROR;
1115: fnd_message.set_name('QP','QP_INVALID_FORMULA');
1116: fnd_message.set_token('FORMULA_NAME',l_formula_name);
1117: -- Change mask back to flexible mask
1118: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';

Line 1122: x_return_status := FND_API.G_RET_STS_ERROR;

1118: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';
1119: RETURN l_formula_value;
1120:
1121: WHEN E_FORMULA_COMPONENTS_REQ THEN
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: fnd_message.set_name('QP','QP_FORMULA_COMPONENTS_REQ');
1124: fnd_message.set_token('FORMULA_NAME',l_formula_name);
1125: -- Change mask back to flexible mask
1126: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';

Line 1130: x_return_status := FND_API.G_RET_STS_ERROR;

1126: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';
1127: RETURN l_formula_value;
1128:
1129: WHEN E_CUSTOMIZE_GET_CUSTOM_PRICE THEN
1130: x_return_status := FND_API.G_RET_STS_ERROR;
1131: fnd_message.set_name('QP','QP_CUSTOMIZE_GET_CUSTOM_PRICE');
1132: fnd_message.set_token('FORMULA_NAME',l_formula_name);
1133: -- Change mask back to flexible mask
1134: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';

Line 1138: x_return_status := FND_API.G_RET_STS_ERROR;

1134: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';
1135: RETURN l_formula_value;
1136:
1137: WHEN E_INVALID_NUMBER THEN
1138: x_return_status := FND_API.G_RET_STS_ERROR;
1139: fnd_message.set_name('QP','QP_INVALID_NUMBER');
1140: fnd_message.set_token('FORMULA_NAME',l_formula_name);
1141: -- Change mask back to flexible mask
1142: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';

Line 1145: WHEN FND_API.G_EXC_ERROR THEN

1141: -- Change mask back to flexible mask
1142: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';
1143: RETURN l_formula_value;
1144:
1145: WHEN FND_API.G_EXC_ERROR THEN
1146:
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148:
1149: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)

Line 1147: x_return_status := FND_API.G_RET_STS_ERROR;

1143: RETURN l_formula_value;
1144:
1145: WHEN FND_API.G_EXC_ERROR THEN
1146:
1147: x_return_status := FND_API.G_RET_STS_ERROR;
1148:
1149: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1150: THEN
1151: FND_MESSAGE.SET_NAME('QP','QP_FORMULA_FAILED');

Line 1153: IF l_debug = FND_API.G_TRUE THEN

1149: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1150: THEN
1151: FND_MESSAGE.SET_NAME('QP','QP_FORMULA_FAILED');
1152: END IF;
1153: IF l_debug = FND_API.G_TRUE THEN
1154: QP_PREQ_GRP.engine_debug('Exception '||substr(sqlerrm, 1, 240));
1155: QP_PREQ_GRP.engine_debug('Exception occurred. Formula value returned is ' ||
1156: l_formula_value);
1157: END IF;

Line 1166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1162: qp_number.canonical_mask := 'FM999999999999999999999.9999999999999999999999999999999999999999';
1163:
1164: RETURN l_formula_value;
1165:
1166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1167:
1168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1169: IF l_debug = FND_API.G_TRUE THEN
1170: QP_PREQ_GRP.engine_debug('Unexpected Exception '||substr(sqlerrm, 1, 240));

Line 1168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1164: RETURN l_formula_value;
1165:
1166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1167:
1168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1169: IF l_debug = FND_API.G_TRUE THEN
1170: QP_PREQ_GRP.engine_debug('Unexpected Exception '||substr(sqlerrm, 1, 240));
1171: QP_PREQ_GRP.engine_debug('Exception occurred. Formula value returned is ' ||
1172: l_formula_value);

Line 1169: IF l_debug = FND_API.G_TRUE THEN

1165:
1166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1167:
1168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1169: IF l_debug = FND_API.G_TRUE THEN
1170: QP_PREQ_GRP.engine_debug('Unexpected Exception '||substr(sqlerrm, 1, 240));
1171: QP_PREQ_GRP.engine_debug('Exception occurred. Formula value returned is ' ||
1172: l_formula_value);
1173:

Line 1184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1180: RETURN l_formula_value;
1181:
1182: WHEN OTHERS THEN
1183:
1184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1185:
1186: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1187: THEN
1188: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,

Line 1192: IF l_debug = FND_API.G_TRUE THEN

1188: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
1189: 'Calculate:'||sqlerrm);
1190: END IF;
1191:
1192: IF l_debug = FND_API.G_TRUE THEN
1193: QP_PREQ_GRP.engine_debug('Other Exception '||substr(sqlerrm, 1, 240));
1194: QP_PREQ_GRP.engine_debug('Exception occurred. Formula value returned is ' ||
1195: l_formula_value);
1196:

Line 1367: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) OR (x_formula_value IS NULL) THEN

1363:
1364: QP_Build_Formula_Rules.Get_Formula_Values(p_formula, l_operand_tbl, p_procedure_type,
1365: x_formula_value, x_return_status);
1366:
1367: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) OR (x_formula_value IS NULL) THEN
1368: x_formula_value := Select_From_Dual(p_formula, l_operand_tbl);
1369:
1370: IF x_formula_value IS NULL THEN
1371: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1371: x_return_status := FND_API.G_RET_STS_ERROR;

1367: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) OR (x_formula_value IS NULL) THEN
1368: x_formula_value := Select_From_Dual(p_formula, l_operand_tbl);
1369:
1370: IF x_formula_value IS NULL THEN
1371: x_return_status := FND_API.G_RET_STS_ERROR;
1372: ELSE
1373: x_return_status := FND_API.G_RET_STS_SUCCESS;
1374: END IF;
1375: END IF;

Line 1373: x_return_status := FND_API.G_RET_STS_SUCCESS;

1369:
1370: IF x_formula_value IS NULL THEN
1371: x_return_status := FND_API.G_RET_STS_ERROR;
1372: ELSE
1373: x_return_status := FND_API.G_RET_STS_SUCCESS;
1374: END IF;
1375: END IF;
1376: END Java_Get_Formula_Values;
1377: