The following lines contain the word 'select', 'insert', 'update' or 'delete':
INSERT_INTO_OPEN_INTERFACE CONSTANT pls_integer := 3000;
procedure build_insert_stmt (
p_insert_cursor IN OUT NOCOPY pls_integer,
p_level IN pls_integer) IS
i_method_name varchar2(2000) := 'ecx_actions.build_insert_stmt';
cInsert_stmt varchar2(32000) := 'INSERT INTO ';
cInsert_stmt := cInsert_stmt || ' ' ||
ecx_utils.g_target_levels(p_level).base_table_name || ' (';
cInsert_stmt := cInsert_stmt || ' ' ||
ecx_utils.g_target(i).base_column_name || ',';
cInsert_stmt := RTRIM(cInsert_stmt, ',') || ')';
cInsert_stmt := cInsert_stmt || cValue_stmt;
ecx_debug.log(l_statement,'Insert_statement ', cInsert_stmt,i_method_name);
p_insert_cursor := dbms_sql.open_cursor;
ecx_debug.log(l_statement,'p_insert_cursor', p_insert_cursor,i_method_name);
dbms_sql.parse (p_insert_cursor, cInsert_stmt, dbms_sql.native);
ecx_error_handling_pvt.print_parse_error (l_error_position, cInsert_stmt);
ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.BUILD_INSERT_STMT');
ecx_debug.log(l_unexpected,'ECX', 'ECX_PROGRAM_ERROR', 'PROGRESS_LEVEL', 'ECX_ACTIONS.BUILD_INSERT_STMT');
ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.BUILD_INSERT_STMT');
END build_insert_stmt;
procedure insert_level_into_table (
p_level IN pls_integer) IS
i_method_name varchar2(2000) := 'ecx_actions.insert_level_into_table';
l_insert_cursor pls_integer;
l_insert_failed EXCEPTION;
build_insert_stmt (ecx_utils.g_target_levels(p_level).cursor_handle, p_level);
l_insert_cursor := ecx_utils.g_target_levels(p_level).cursor_handle;
dbms_sql.bind_variable (l_insert_cursor, 'f' || k, l_date);
dbms_sql.bind_variable (l_insert_cursor, 'f' || k, l_number);
dbms_sql.bind_variable (l_insert_cursor, 'f' || k,l_clob_value );
dbms_sql.bind_variable (l_insert_cursor, 'f' || k,l_value);
l_dummy := dbms_sql.execute(l_insert_cursor);
raise l_insert_failed;
WHEN l_insert_failed then
if(l_unexpectedEnabled) then
ecx_debug.log(l_unexpected ,'ECX', 'ECX_STAGE_INSERT_FAILED',i_method_name, 'LEVEL', p_level);
ecx_debug.log(l_unexpected, 'ECX', 'ECX_PROGRAM_ERROR',i_method_name, 'PROGRESS_LEVEL', 'ECX_ACTIONS.INSERT_LEVEL_INTO_TABLE');
ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.INSERT_LEVEL_INTO_TABLE');
ecx_debug.log(l_unexpected,'ECX', 'ECX_PROGRAM_ERROR',i_method_name, 'PROGRESS_LEVEL', 'ECX_ACTIONS.INSERT_LEVEL_INTO_TABLE');
ecx_debug.setErrorInfo(2,30,SQLERRM||' - ECX_ACTIONS.INSERT_LEVEL_INTO_TABLE');
END insert_level_into_table;
Executes a select string and returns the First Column from the select
clause as OUT parameter.
**/
procedure execute_string (
cString IN Varchar2,
o_value OUT NOCOPY Varchar2) IS
i_method_name varchar2(2000) := 'ecx_actions.execute_string';
cString := 'select '||i_seq_name||'.NEXTVAL from dual';
Returns the Function Value by building a select Clause for the
Function name.
**/
procedure get_function_value (
i_function_name IN Varchar2,
o_value OUT NOCOPY Varchar2) IS
i_method_name varchar2(2000) := 'ecx_actions.get_function_value';
select to_char(SYSDATE,'YYYYMMDD HH24MISS') into o_value from dual;
cString := 'select '||cString||' from dual';
select count(*) into i_prod_code_cnt from fnd_application where APPLICATION_SHORT_NAME = substr(i_msg, 1, i_len);
select count(*) into i_prod_code_cnt from fnd_application where APPLICATION_SHORT_NAME = substr(i_msg, 1, i_len);
/* select substr(value, 1, 1)
into nls_dec_char
from v$nls_parameters
where parameter = 'NLS_NUMERIC_CHARACTERS';
select payload
into l_xslt_payload
from ecx_files
where (i_version is null or version = i_version)
and (i_application_code is null or application_code = i_application_code)
and name = i_filename
and type = 'XSLT';
select variable_name,
variable_value,
variable_direction,
data_type datatype
from ecx_tran_stage_data ets
where ets.map_id = ecx_utils.g_map_id
and variable_level = 0
and action_type = 10;
ecx_utils.g_stack.DELETE;
elsif ecx_utils.g_stage_data(i).action_type = INSERT_INTO_OPEN_INTERFACE then
insert_level_into_table (i_level);
procedure delete_doctype as
begin
null;