The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* Purge Function to delete all Data */
procedure delete_by_date_cp(errbuf out NOCOPY varchar2,
retcode out NOCOPY varchar2,
start_date in varchar2,
end_date in varchar2,
module in varchar2) is
v_strt_date DATE;
deleted_requests_count NUMBER;
deleted_response_count NUMBER;
deleted_method_count NUMBER;
deleted_att_count NUMBER;
deleted_error_count NUMBER;
deleted_log_count NUMBER;
/* Purge Function to delete obsoleted Log Data */
deleted_log_count := delete_log_by_date_range(v_strt_date,v_end_date, v_direction);
FND_FILE.put_line(FND_FILE.log, 'Records purged in FND_LOG_MESSAGES - '||deleted_log_count);
/* Purge Function to delete all requests Data */
deleted_requests_count := delete_requests_by_date_range(v_direction,v_strt_date,v_end_date);
FND_FILE.put_line(FND_FILE.log, 'Records purged in FND_SOA_REQUEST - '||deleted_requests_count);
/* Purge Function to delete all method Data */
deleted_method_count := delete_method_by_date_range(v_strt_date,v_end_date);
FND_FILE.put_line(FND_FILE.log, 'Records purged in FND_SOA_RESPONSE_METHOD - '||deleted_method_count);
/* Purge Function to delete all attachment Data */
deleted_att_count := delete_att_by_date_range(v_strt_date,v_end_date);
FND_FILE.put_line(FND_FILE.log, 'Records purged in FND_SOA_ATTACHMENT - '||deleted_att_count);
/* Purge Function to delete all attachment body Data */
deleted_att_count := delete_body_by_date_range(v_strt_date,v_end_date);
FND_FILE.put_line(FND_FILE.log, 'Records purged in FND_SOA_BODY_PIECE - '||deleted_att_count);
/* Purge Function to delete all Error Data */
deleted_error_count := delete_error_by_date_range(v_strt_date,v_end_date);
FND_FILE.put_line(FND_FILE.log, 'Records purged in FND_SOA_RUNTIME_ERROR - '||deleted_error_count);
end delete_by_date_cp;
/* Purge Function to delete all requests Data */
FUNCTION delete_requests_by_date_range(
x_direction IN VARCHAR2,
x_start_date IN DATE,
x_end_date IN DATE) return NUMBER is
rowcount number := 0;
DELETE FROM FND_SOA_REQUEST
WHERE message_id IN
(SELECT WR.message_id
FROM FND_SOA_REQUEST WR
WHERE (x_start_date IS NOT NULL and x_end_date IS NOT NULL)
AND x_start_date <= WR.request_timestamp
AND x_end_date >= WR.request_timestamp)
AND nvl(direction, 'INBOUND') = x_direction
AND request_status <> 'IN_PROCESS'
AND rownum <= 20000;
fnd_file.put_line(fnd_file.output,'Deleted '|| rowcount ||' rows from FND_SOA_REQUEST ');
/* Purge Function to delete all method Data */
FUNCTION delete_method_by_date_range(
x_start_date IN DATE,
x_end_date IN DATE) return NUMBER is
rowcount number := 0;
DELETE FROM FND_SOA_RESPONSE_METHOD
WHERE message_id NOT IN
(SELECT message_id FROM FND_SOA_REQUEST)
AND rownum <= 20000;
'Deleted '|| rowcount ||' rows from FND_SOA_RESPONSE_METHOD ');
/* Purge Function to delete all attachment Data */
FUNCTION delete_att_by_date_range(
x_start_date IN DATE,
x_end_date IN DATE) return NUMBER is
rowcount number := 0;
DELETE FROM FND_SOA_ATTACHMENT WA
WHERE message_id NOT IN
(SELECT message_id FROM FND_SOA_REQUEST)
AND rownum <= 20000;
'Deleted '|| rowcount ||' rows from FND_SOA_ATTACHMENT');
/* Purge Function to delete all attachment body Data */
FUNCTION delete_body_by_date_range(
x_start_date IN DATE,
x_end_date IN DATE) return NUMBER is
rowcount number := 0;
DELETE
FROM FND_SOA_BODY_PIECE WP
WHERE (message_id NOT IN
(SELECT message_id FROM FND_SOA_REQUEST))
AND rownum <= 20000;
'Deleted '|| rowcount ||' rows from FND_SOA_BODY_PIECE');
/* Purge function to delete all Error Data */
FUNCTION delete_error_by_date_range(
x_start_date IN DATE,
x_end_date IN DATE) return NUMBER is
rowcount number := 0;
DELETE FROM FND_SOA_RUNTIME_ERROR RE
WHERE (message_id NOT IN
(SELECT message_id FROM FND_SOA_REQUEST))
AND rownum <= 20000;
'Deleted '|| rowcount ||' rows from FND_SOA_RUNTIME_ERROR');
/* Purge function to delete all Log Data */
FUNCTION delete_log_by_date_range(
x_start_date IN DATE,
x_end_date IN DATE,
x_direction in varchar2) return NUMBER is
rowcount number := 0;
DELETE from fnd_log_messages
where transaction_context_id in
(select transaction_context_id
from fnd_log_transaction_context
where transaction_type = 'SOA_INSTANCE'
and transaction_id in
(select message_id
from fnd_soa_request
where REQUEST_STATUS = 'SUCCESS'
and x_start_date <= REQUEST_TIMESTAMP
AND x_end_date >= REQUEST_TIMESTAMP
AND direction = x_direction))
AND rownum <= 20000;
'Deleted '|| rowcount ||' rows from FND_LOG_MESSAGES');
/* Purge Function to Delete Log Details by Message ID */
FUNCTION delete_log_by_instance_id(
x_instance_id IN NUMBER) return NUMBER is
rowcount number := 0;
DELETE
from fnd_log_messages
where transaction_context_id in
(select transaction_context_id
from fnd_log_transaction_context
where transaction_type = 'SOA_INSTANCE'
and transaction_id = x_instance_id) and rownum <= 20000;