The following lines contain the word 'select', 'insert', 'update' or 'delete':
select upper(hrpmp.api_parameter_name),
upper(hrpmp.mapping_type),
upper(hrpmp.mapping_definition),
hrpmp.default_value
from hr_api_modules ham,
hr_pump_module_parameters hrpmp
where upper(ham.module_package) = upper(p_module_package)
and upper(ham.module_name) = upper(p_module_name)
and upper(ham.api_module_type) in ( 'AI', 'BP','DM' )
and upper(hrpmp.module_name) = upper(p_module_name)
and upper(hrpmp.api_module_type) = upper(ham.api_module_type);
select mp.mapping_package
from hr_pump_mapping_packages mp,
hr_api_modules am
where (mp.module_name is not null and
upper(mp.module_name) = upper(p_module_name) and
upper(am.module_name) = upper(p_module_name) and
upper(am.api_module_type) = upper(mp.api_module_type))
or (mp.module_package is not null and
upper(mp.module_package) = upper(p_module_package))
or (mp.module_package is null and mp.module_name is null)
order by checking_order asc;
p_mapping_package_tbl.delete;
l_distinct_overloads.delete(i);
hr_utility.trace('Selected overload: ' || l_chosen_overload);
p_overload.delete(i);
p_position.delete(i);
p_level.delete(i);
p_argument_name.delete(i);
p_datatype.delete(i);
p_default_value.delete(i);
p_in_out.delete(i);
p_length.delete(i);
p_precision.delete(i);
p_scale.delete(i);
p_radix.delete(i);
p_spare.delete(i);
hr_utility.trace('get_latest_api: deleted unwanted overloads');
p_function_tbl.delete;
l_mapping_package_tbl.delete;
select decode( count(0), 0, c_default_hr_api, c_default_null )
from hr_pump_default_exceptions hrpde,
hr_api_modules ham
where upper(ham.module_package) = upper(p_module_package)
and upper(ham.module_name) = upper(p_module_name)
and upper(ham.api_module_type) in ('AI', 'BP', 'DM')
and upper(hrpde.module_name) = upper(p_module_name)
and upper(hrpde.api_module_type) = upper(ham.api_module_type);
l_seed_parameter_tbl.delete;
l_mapping_package_tbl.delete;
l_distinct_parameter_tbl.delete;
select status
from user_objects
where upper(object_name) = upper(p_object_name)
and upper(object_type) = upper(p_object_type);
'select ';
procedure generate_insert
(
p_api_module_id in number,
p_parameter_tbl in t_parameter_tbl,
p_parameter_counts in t_parameter_counts,
p_header in out nocopy varchar2,
p_body in out nocopy varchar2
)
is
l_interface varchar2(32767);
l_insert_part1 varchar2(32767);
l_insert_part2 varchar2(32767);
l_pre_insert varchar2(32767) := null;
l_insert_part1 := c_newline ||
'if blid is not null then' || c_newline ||
'delete from hr_pump_batch_lines where batch_line_id = blid;' ||
c_newline || 'delete from hr_pump_batch_exceptions' ||
c_newline || 'where source_type = ''BATCH_LINE'' and source_id = blid;' ||
'insert into hr_pump_batch_lines' || c_newline ||
'(batch_id' || c_newline ||
',batch_line_id' || c_newline ||
',business_group_name' || c_newline ||
',api_module_id' || c_newline ||
',line_status' || c_newline ||
',user_sequence' || c_newline ||
',link_value';
l_insert_part2 := 'values' || c_newline ||
'(p_batch_id' || c_newline ||
',nvl(blid,hr_pump_batch_lines_s.nextval)' || c_newline ||
',p_data_pump_business_grp_name' || c_newline ||
',' || to_char(p_api_module_id) || c_newline ||
',''U''' || c_newline ||
',p_user_sequence' || c_newline ||
',p_link_value';
l_insert_part1 :=
l_insert_part1 || c_newline || ',' ||
p_parameter_tbl(i).batch_lines_column;
l_insert_part2 :=
l_insert_part2 || c_newline || ',';
l_insert_part2 :=
l_insert_part2 || 'dd(' || p_parameter_tbl(i).parameter_name ||
',' || l_indicator || ')';
l_insert_part2 :=
l_insert_part2 || 'dc(' || p_parameter_tbl(i).parameter_name || ')';
l_pre_insert :=
l_pre_insert || c_newline ||
'if ' || p_parameter_tbl(i).parameter_name || ' is null then' ||
c_newline ||
' ' || l_local_var || ' := null;' || c_newline ||
l_insert_part2 := l_insert_part2 || l_local_var;
l_insert_part2 :=
l_insert_part2 || 'nd(' || p_parameter_tbl(i).parameter_name ||
',' || l_indicator || ')';
l_insert_part2 := l_insert_part2 || p_parameter_tbl(i).parameter_name;
l_insert_part1 := l_insert_part1 || ')' || c_newline;
l_insert_part2 := l_insert_part2 || ');' || c_newline;
p_header := p_header || 'procedure insert_batch_lines' || l_interface || ';';
p_body || 'procedure insert_batch_lines' || l_interface || ' is';
if l_pre_insert is not null then
p_body := p_body || l_pre_insert;
p_body || l_insert_part1 || l_insert_part2 || 'end insert_batch_lines;';
end generate_insert;
'insert into hr_pump_batch_line_user_keys' || c_newline ||
'(user_key_id, batch_line_id,user_key_value,unique_key_id)' ||
c_newline ||
'values' || c_newline ||
'(hr_pump_batch_line_user_keys_s.nextval,' || c_newline ||
'p_batch_line_id,' || c_newline ||
'p_user_key_value,' || c_newline ||
'p_unique_key_id);' || c_newline ||
procedure add_to_update
(
p_update in out nocopy varchar2,
p_parameter in t_parameter,
p_local_variable in varchar2,
p_first_update in out nocopy boolean
)
is
l_cursor_field varchar2(64);
if p_first_update then
p_first_update := false;
p_update := p_update || ',';
p_update :=
p_update || c_newline ||
l_column || ' = decode(' || l_cursor_field || ',null,cn,';
p_update := p_update || 'dc(' || l_cursor_field || ')';
p_update := p_update || l_cursor_field;
p_update := p_update || ')';
end add_to_update;
l_update varchar2(32767); -- Update batch lines with output data.
l_first_update boolean := true;
l_cursor := 'cursor cr is' || c_newline || 'select l.rowid myrowid';
l_update := 'update hr_pump_batch_lines l set';
add_to_update( l_update, p_parameter_tbl(i), l_local_variable,
l_first_update );
if not l_first_update then
l_update :=
l_update || c_newline ||
'where l.rowid = c.myrowid;';
l_update := null;
p_body := p_body || l_update || c_newline || '--' || c_newline;
generate_insert( p_api_module_id, p_parameter_tbl, p_parameter_counts,
l_header, l_body );
select api_module_id
from hr_api_modules
where upper(module_name) = upper(p_module_name)
and upper(module_package) = upper(p_module_package)
and upper(api_module_type) in ('AI', 'BP', 'DM');
l_parameter_tbl.delete;
l_function_tbl.delete;
l_function_call_tbl.delete;
generate( 'hr_assignment_api', 'update_emp_asg' );
generate( 'hr_assignment_api', 'update_emp_asg_criteria' );
generate( 'hr_position_api', 'update_position' );
generate( 'HR_PERSON_ADDRESS_API', 'UPDATE_PERSON_ADDRESS' );
generate( 'HR_PERSON_ADDRESS_API', 'UPDATE_US_PERSON_ADDRESS' );
generate( 'HR_PERSON_ADDRESS_API', 'UPDATE_GB_PERSON_ADDRESS' );
generate( 'PY_ELEMENT_ENTRY_API', 'UPDATE_ELEMENT_ENTRY' );
generate( 'PY_ELEMENT_ENTRY_API', 'DELETE_ELEMENT_ENTRY' );
generate( 'HR_PERSONAL_PAY_METHOD_API', 'UPDATE_PERSONAL_PAY_METHOD' );
generate( 'HR_PERSONAL_PAY_METHOD_API', 'UPDATE_GB_PERSONAL_PAY_METHOD' );
generate( 'HR_PERSONAL_PAY_METHOD_API', 'UPDATE_US_PERSONAL_PAY_METHOD' );
generate( 'HR_PERSONAL_PAY_METHOD_API', 'DELETE_PERSONAL_PAY_METHOD' );
generate( 'HR_PERSON_API', 'UPDATE_PERSON' );
generate( 'HR_PERSON_API', 'UPDATE_GB_PERSON' );
generate( 'HR_PERSON_API', 'UPDATE_US_PERSON' );
generate( 'HR_ASSIGNMENT_API', 'UPDATE_US_EMP_ASG' );
generate( 'HR_ASSIGNMENT_API', 'UPDATE_GB_EMP_ASG' );
purge( 'hr_assignment_api', 'update_emp_asg' );
purge( 'hr_assignment_api', 'update_emp_asg_criteria' );
purge( 'hr_position_api', 'update_position' );
purge( 'HR_PERSON_ADDRESS_API', 'UPDATE_PERSON_ADDRESS' );
purge( 'HR_PERSON_ADDRESS_API', 'UPDATE_US_PERSON_ADDRESS' );
purge( 'HR_PERSON_ADDRESS_API', 'UPDATE_GB_PERSON_ADDRESS' );
purge( 'PY_ELEMENT_ENTRY_API', 'UPDATE_ELEMENT_ENTRY' );
purge( 'PY_ELEMENT_ENTRY_API', 'DELETE_ELEMENT_ENTRY' );
purge( 'HR_PERSONAL_PAY_METHOD_API', 'UPDATE_PERSONAL_PAY_METHOD' );
purge( 'HR_PERSONAL_PAY_METHOD_API', 'UPDATE_GB_PERSONAL_PAY_METHOD' );
purge( 'HR_PERSONAL_PAY_METHOD_API', 'UPDATE_US_PERSONAL_PAY_METHOD' );
purge( 'HR_PERSONAL_PAY_METHOD_API', 'DELETE_PERSONAL_PAY_METHOD' );
purge( 'HR_PERSON_API', 'UPDATE_PERSON' );
purge( 'HR_PERSON_API', 'UPDATE_GB_PERSON' );
purge( 'HR_PERSON_API', 'UPDATE_US_PERSON' );
purge( 'HR_ASSIGNMENT_API', 'UPDATE_US_EMP_ASG' );
purge( 'HR_ASSIGNMENT_API', 'UPDATE_GB_EMP_ASG' );
l_parameter_tbl.delete;
l_function_tbl.delete;
l_function_call_tbl.delete;
select 1 from user_views
where upper(view_name) = upper(p_view_name);
select 1 from user_objects
where upper(object_name) = upper(p_pkg_name)
and object_type = 'PACKAGE';
select module_package,module_name
into l_module_package,l_module_name
from hr_api_modules
where api_module_id = p_api_id;