The following lines contain the word 'select', 'insert', 'update' or 'delete':
select replace(l_formula,'''','''''') into l_formula from dual;--6726052,7249280 smbalara
select line, text
from user_errors
where name = upper(l_pkg_name)
and type = decode(p_pkg_type,'SPEC','PACKAGE',
'BODY','PACKAGE BODY');
l_insert_row VARCHAR2(10):='N';
SELECT SEEDED_VALUE INTO l_pkg_ver FROM qp_parameters_b WHERE PARAMETER_CODE='BLD_FORMULA_ACTV_VER' AND ROWNUM=1;
l_insert_row := 'Y';
IF (l_insert_row = 'N') THEN
PUT_LINE('found row in qp_params row updated with new version: ' || To_Char(To_Number(l_pkg_ver)+1));
oe_debug_pub.add('found row in qp_params row updated with new version: ' || To_Char(To_Number(l_pkg_ver)+1));
UPDATE qp_parameters_b
SET SEEDED_VALUE=Decode(l_pkg_ver,'5','1',To_Char(To_Number(l_pkg_ver)+1)),
LAST_UPDATE_DATE = sysdate,
LAST_UPDATED_BY = nvl(TO_NUMBER (FND_PROFILE.VALUE ('USER_ID')),-1) ,
LAST_UPDATE_LOGIN = nvl(TO_NUMBER (FND_PROFILE.VALUE ('LOGIN_ ID')),-1)
WHERE parameter_code='BLD_FORMULA_ACTV_VER';
INSERT INTO qp_parameters_b (parameter_id, parameter_level,parameter_code,value_set_id,
ADVANCED_PRICING_ONLY,SEEDED_VALUE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_DATE,LAST_UPDATED_BY,LAST_UPDATE_LOGIN)
VALUES (-8888,'CONC','BLD_FORMULA_ACTV_VER',-8888,
'N','1',SYSDATE,
-1,SYSDATE,-1,-1);
PUT_LINE('found row in qp_params but no row updated so insert: ' );
oe_debug_pub.add('found row in qp_params but no row updated so insert: ');
PUT_LINE('insert row flag is Y ' );
oe_debug_pub.add('insert row flag is Y ');
INSERT INTO qp_parameters_b (parameter_id, parameter_level,parameter_code,value_set_id,
ADVANCED_PRICING_ONLY,SEEDED_VALUE,CREATION_DATE,CREATED_BY,
LAST_UPDATE_DATE,LAST_UPDATED_BY,LAST_UPDATE_LOGIN)
VALUES (-8888,'CONC','BLD_FORMULA_ACTV_VER',-8888,
'N','1',SYSDATE,
-1,SYSDATE,-1,-1);
SELECT distinct formula
FROM qp_price_formulas_b
WHERE NVL(end_date_active,SYSDATE) >= SYSDATE; --Added for 5713302 to discard expired formulas
l_select_stmt VARCHAR2(32000) := '';
l_select_stmt := '';
l_expression := 'declare l_res number; TYPE t_Operand_Tbl_Type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER; p_Operand_Tbl t_Operand_Tbl_Type; begin Select ' || l_new_formula || ' into l_res from dual; end;';
l_select_stmt := 'SELECT '|| l_new_formula || ' INTO x_formula_value FROM DUAL';
Break_Text(l_select_stmt, 4);
--select replace(l_temp_new_formula,'''','''''') into l_temp_new_formula from dual;--6726052,7249280 smbalara:commented for 8348005
l_select_stmt := 'EXECUTE IMMEDIATE '' SELECT '|| l_temp_new_formula || ' FROM DUAL '' INTO x_formula_value using ' || l_using_clause;
Break_Text(l_select_stmt, 4);