The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* This procedure inserts a record into the FND_LOG_MESSAGES table
FND uses an autonomous transaction so even when the hookinsert is
rolled back because of an error the log messages still exists
*/
g_initialize_log BOOLEAN :=FALSE;
/* This procedure deletes all records in the message table */
/* use truncate to prevent the database from running out of rollback segments*/
/* PWU: these queries are costly and there are issues with performance
we take them out since we only provide for developer to conveniently
remove the log records. */
/*
PROCEDURE PURGE
IS
PRAGMA AUTONOMOUS_TRANSACTION;
DELETE FND_LOG_MESSAGES
WHERE lower(MODULE) LIKE 'jtm%';
DELETE FND_LOG_MESSAGES
WHERE lower(MODULE) LIKE 'csl%';
PROCEDURE INSERT_CONC_STATUS_LOG(v_package_name IN VARCHAR2
,v_procedure_name IN VARCHAR2
,v_con_query_id IN NUMBER
,v_query_stmt IN VARCHAR2
,v_start_time IN DATE
,v_end_time IN DATE
,v_status IN VARCHAR2
,v_message IN VARCHAR2
,x_log_id OUT NOCOPY NUMBER
,x_status OUT NOCOPY VARCHAR2
,x_msg_data OUT NOCOPY VARCHAR2)
IS
l_dml varchar2(2000);
l_dml := 'INSERT INTO JTM_CONC_RUN_STATUS_LOG' ||
'(LOG_ID,PACKAGE_NAME,PROCEDURE_NAME,CONC_QUERY_ID,QUERY_STMT, ' ||
'CREATED_BY,CREATION_DATE,LAST_UPDATED_BY,LAST_UPDATE_DATE,' ||
'START_TIME,END_TIME,STATUS, MESSAGE)' ||
'VALUES (JTM_CONC_RUN_STATUS_LOG_S.nextval, :1, :2, :3, :4,-1, sysdate, -1, sysdate, :5, :6, :7, :8) RETURNING LOG_ID INTO :9';
x_msg_data := 'Insert record into JTM_CONC_RUN_STATUS_LOG successfully';
END INSERT_CONC_STATUS_LOG;
PROCEDURE UPDATE_CONC_STATUS_LOG(v_log_id IN NUMBER
,v_query_stmt IN VARCHAR2
,v_start_time IN DATE
,v_end_time IN DATE
,v_status IN VARCHAR2
,v_message IN VARCHAR2
,x_status OUT NOCOPY VARCHAR2
,x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_dml varchar2(2000);
l_dml := 'UPDATE JTM_CONC_RUN_STATUS_LOG SET QUERY_STMT = :1, START_TIME = :2 ,END_TIME= :3' ||
',STATUS= :4 , MESSAGE= :5 WHERE LOG_ID = :5';
x_msg_data := 'UPDATE UPDATE_CONC_STATUS_LOG ' || v_log_id || ' successfully';
END UPDATE_CONC_STATUS_LOG;
PROCEDURE DELETE_CONC_STATUS_LOG(v_log_id IN NUMBER)
IS
l_dml varchar2(2000);
l_dml := 'DELETE FROM JTM_CONC_RUN_STATUS_LOG WHERE LOG_ID = :1';
DELETE FROM JTM_CONC_RUN_STATUS_LOG WHERE LOG_ID = v_log_id;
END DELETE_CONC_STATUS_LOG;