241: --
242: l_stmt := 'declare key_type_id number := '||ktyTab(i).key_type_id||';
243: begin :l_clause := '||ktyTab(i).key_function||';
244: end;';
245: source_cursor := dbms_sql.open_cursor;
246: begin
247: l_error_mesg := fnd_message.get_string('PER','PER_74874_PARSE_ERROR');
248: dbms_sql.parse(source_cursor,l_stmt,dbms_sql.v7);
249: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
244: end;';
245: source_cursor := dbms_sql.open_cursor;
246: begin
247: l_error_mesg := fnd_message.get_string('PER','PER_74874_PARSE_ERROR');
248: dbms_sql.parse(source_cursor,l_stmt,dbms_sql.v7);
249: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
250: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
251: ignore := dbms_sql.execute(source_cursor);
252: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
245: source_cursor := dbms_sql.open_cursor;
246: begin
247: l_error_mesg := fnd_message.get_string('PER','PER_74874_PARSE_ERROR');
248: dbms_sql.parse(source_cursor,l_stmt,dbms_sql.v7);
249: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
250: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
251: ignore := dbms_sql.execute(source_cursor);
252: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
253: dbms_sql.variable_value(source_cursor,'l_clause',l_key_clause);
247: l_error_mesg := fnd_message.get_string('PER','PER_74874_PARSE_ERROR');
248: dbms_sql.parse(source_cursor,l_stmt,dbms_sql.v7);
249: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
250: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
251: ignore := dbms_sql.execute(source_cursor);
252: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
253: dbms_sql.variable_value(source_cursor,'l_clause',l_key_clause);
254: dbms_sql.close_cursor(source_cursor);
255: exception when others then
249: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
250: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
251: ignore := dbms_sql.execute(source_cursor);
252: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
253: dbms_sql.variable_value(source_cursor,'l_clause',l_key_clause);
254: dbms_sql.close_cursor(source_cursor);
255: exception when others then
256: if p_store_data then
257: p_retcode :=1; /* error occurred in key type. set status to warning */
250: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
251: ignore := dbms_sql.execute(source_cursor);
252: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
253: dbms_sql.variable_value(source_cursor,'l_clause',l_key_clause);
254: dbms_sql.close_cursor(source_cursor);
255: exception when others then
256: if p_store_data then
257: p_retcode :=1; /* error occurred in key type. set status to warning */
258: write_error(l_error_mesg);
690: --
691: l_stmt := 'declare key_type_id number := '||ktyTab(i).key_type_id||';
692: begin :l_clause := '||ktyTab(i).key_function||';
693: end;';
694: source_cursor := dbms_sql.open_cursor;
695: begin
696: l_error_mesg := fnd_message.get_string('PER','PER_74874_PARSE_ERROR');
697: dbms_sql.parse(source_cursor,l_stmt,dbms_sql.v7);
698: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
693: end;';
694: source_cursor := dbms_sql.open_cursor;
695: begin
696: l_error_mesg := fnd_message.get_string('PER','PER_74874_PARSE_ERROR');
697: dbms_sql.parse(source_cursor,l_stmt,dbms_sql.v7);
698: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
699: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
700: ignore := dbms_sql.execute(source_cursor);
701: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
694: source_cursor := dbms_sql.open_cursor;
695: begin
696: l_error_mesg := fnd_message.get_string('PER','PER_74874_PARSE_ERROR');
697: dbms_sql.parse(source_cursor,l_stmt,dbms_sql.v7);
698: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
699: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
700: ignore := dbms_sql.execute(source_cursor);
701: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
702: dbms_sql.variable_value(source_cursor,'l_clause',l_key_clause);
696: l_error_mesg := fnd_message.get_string('PER','PER_74874_PARSE_ERROR');
697: dbms_sql.parse(source_cursor,l_stmt,dbms_sql.v7);
698: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
699: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
700: ignore := dbms_sql.execute(source_cursor);
701: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
702: dbms_sql.variable_value(source_cursor,'l_clause',l_key_clause);
703: dbms_sql.close_cursor(source_cursor);
704: exception when others then
698: dbms_sql.bind_variable(source_cursor,'l_clause',l_key_clause, 32000);
699: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
700: ignore := dbms_sql.execute(source_cursor);
701: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
702: dbms_sql.variable_value(source_cursor,'l_clause',l_key_clause);
703: dbms_sql.close_cursor(source_cursor);
704: exception when others then
705: if p_store_data then
706: --p_retcode :=1; /* error occurred in key type. set status to warning */
699: l_error_mesg := fnd_message.get_string('PER','PER_74875_EXECUTE_ERROR');
700: ignore := dbms_sql.execute(source_cursor);
701: l_error_mesg := fnd_message.get_string('PER','PER_74876_ASSIGN_VARIABLE');
702: dbms_sql.variable_value(source_cursor,'l_clause',l_key_clause);
703: dbms_sql.close_cursor(source_cursor);
704: exception when others then
705: if p_store_data then
706: --p_retcode :=1; /* error occurred in key type. set status to warning */
707: write_error(l_error_mesg);