The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insert_error(p_interface_id IN number,
p_error_type IN Varchar2,
p_error IN Varchar2,
p_last_update_date IN Date,
p_creation_date IN Date,
p_created_by IN Number,
p_last_update_login IN Number,
p_updated_by IN Number);
l_last_update_login number;
l_last_updated_by number;
select last_update_login,
last_updated_by,
created_by
into l_last_update_login,
l_last_updated_by,
l_created_by
from wip_job_schedule_interface
where interface_id = current_errors(error_no).interface_id;
select last_update_login,
last_updated_by,
created_by
into l_last_update_login,
l_last_updated_by,
l_created_by
from wip_job_dtls_interface
where interface_id = current_errors(error_no).interface_id;
insert_error(p_interface_id => current_errors(error_no).interface_id,
p_error_type => current_errors(error_no).error_type,
p_error => current_errors(error_no).error,
p_last_update_date => sysdate,
p_creation_date => sysdate,
p_created_by => l_created_by,
p_last_update_login => l_last_update_login,
p_updated_by => l_last_updated_by);
current_errors.delete ;
procedure insert_error(p_interface_id IN number,
p_error_type IN Varchar2,
p_error IN Varchar2,
p_last_update_date IN Date,
p_creation_date IN Date,
p_created_by IN Number,
p_last_update_login IN Number,
p_updated_by IN Number) is
PRAGMA AUTONOMOUS_TRANSACTION;
insert into wip_interface_errors
(interface_id,
error_type,
error,
last_update_date,
creation_date,
created_by,
last_update_login,
last_updated_by
)
Values
(p_interface_id,
p_error_type,
p_error,
p_last_update_date,
p_creation_date,
p_created_by,
p_last_update_login,
p_updated_by);
End insert_error;