The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure delete_measure_data(errbuf out nocopy varchar2,
retcode out nocopy number,
p_instance_id in number,
p_measure_code in varchar2,
p_from_date in varchar2,
p_to_date in varchar2,
p_dim_code in varchar2 default 'ALL',
p_dummy_dim_code in varchar2 default null,
p_dim_value_from in varchar2,
p_dim_value_to in varchar2) is
l_sql varchar2(20000) := '';
l_sql := 'select measure_value_id from qpr_measure_data ';
delete qpr_measure_data where measure_value_id = t_meas_data(i);
fnd_file.put_line(fnd_file.log, 'Deleted Records = ' || t_meas_data.count);
t_meas_data.delete;
fnd_file.put_line(fnd_file.log, 'Unable to delete ODS data');
end delete_measure_data;
procedure delete_dimension_data(errbuf out nocopy varchar2,
retcode out nocopy number,
p_instance_id in number,
p_dim_code in varchar2,
p_dummy_dim_code in varchar2 default null,
p_dim_value_from in varchar2,
p_dim_value_to in varchar2) is
l_sql varchar2(20000) := '';
l_sql := 'select dim_value_id from qpr_dimension_values where instance_id = ';
delete qpr_dimension_values where dim_value_id = t_dim_data(i);
fnd_file.put_line(fnd_file.log, 'Deleted Records = ' || t_dim_data.count);
t_dim_data.delete;
fnd_file.put_line(fnd_file.log, 'Unable to delete ODS data');
end delete_dimension_data;