The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_job_status(p_jobno in number,
p_new_status in varchar2,
p_loaded_items in number,
p_failed_items in number,
p_loaded_price in number,
p_failed_price in number,
p_loaded_header in number,
p_failed_header in number,
p_user_id IN NUMBER) is
l_progress varchar2(10) := '000';
update icx_por_batch_jobs
set job_status = p_new_status,
start_datetime = decode(p_new_status, 'RUNNING', sysdate, start_datetime),
items_loaded = p_loaded_items,
items_failed = p_failed_items,
prices_loaded= p_loaded_price,
prices_failed= p_failed_price,
headers_loaded = p_loaded_header,
headers_failed = p_failed_header,
last_updated_by = p_user_id,
last_update_date = sysdate
where job_number = p_jobno;
Debug('[update_job_status-'||l_progress||'] '||SQLERRM);
(-20000, 'Exception at icx_por_track_validate_job_s.update_job_status(ErrLoc = ' || l_progress ||') ' ||
'SQL Error : ' || SQLERRM);
select icx_por_batch_jobs_s.nextval
into l_jobno
from sys.dual;
insert into icx_por_batch_jobs (
job_number,
request_id,
supplier_id,
supplier_file_name,
exchange_file_name,
items_loaded,
items_failed,
job_status,
submission_datetime,
start_datetime,
completion_datetime,
failure_message,
host_ip_address,
exchange_operator_id,
job_type,
max_failed_lines,
timezone,
created_by,
creation_date,
last_updated_by,
last_update_date)
values (
l_jobno,
l_jobno,
p_supplier_id,
p_supplier_file,
p_exchange_file,
0,
0,
'PENDING',
sysdate,
null,
null,
null,
p_host_ip_address,
p_exchange_operator_id,
p_job_type,
p_max_failed_lines,
p_timezone,
p_user_id,
sysdate,
p_user_id,
sysdate
);
select icx_por_batch_jobs_s.nextval
into l_jobno
from sys.dual;
insert into icx_por_batch_jobs (
job_number,
request_id,
supplier_id,
supplier_file_name,
exchange_file_name,
items_loaded,
items_failed,
job_status,
submission_datetime,
start_datetime,
completion_datetime,
failure_message,
host_ip_address,
job_type
)
values (
l_jobno,
l_jobno,
p_supplier_id,
p_supplier_file,
p_exchange_file,
0,
0,
'PENDING',
sysdate,
null,
null,
null,
p_host_ip_address,
p_job_type
);
FUNCTION delete_job(p_jobno in number) return varchar2 is
BEGIN
DELETE FROM ICX_POR_BATCH_JOBS WHERE JOB_NUMBER = p_jobno;
DELETE FROM ICX_POR_FAILED_LINES WHERE JOB_NUMBER = p_jobno;
DELETE FROM ICX_POR_FAILED_LINE_MESSAGES WHERE JOB_NUMBER = p_jobno;
END delete_job;
* Procedure to insert the debug message into
* FND_LOG_MESSAGES table using the AOL API.
* @param p_debug_message debug message
* @param p_log_type log types
LOADER: Logs into the loader log file using the fnd apis
CONCURRENT: Logs into the concurrent mgr log using the
ICX_POR_EXT_UTIL package
*/
PROCEDURE log(p_debug_message VARCHAR2,
p_log_type VARCHAR2 DEFAULT 'LOADER' ) is
l_size NUMBER := 2000;
/*Insert the Debug string */
IF p_log_type = 'LOADER' THEN
WHILE l_start < l_debug_msg_length LOOP
l_start := l_start + l_size;