The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_draft_events (
p_init_msg_list IN VARCHAR2,
p_ledger_id IN NUMBER,
p_start_date IN DATE,
p_end_date IN DATE,
p_calling_sequence IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
CURSOR c_get_unprocessed_events IS
SELECT DISTINCT xe.event_id,
xe.event_type_code,
xe.event_date,
xe.event_status_code,
xe.process_status_code,
xte.entity_id,
xte.legal_entity_id,
xte.entity_code,
xte.source_id_int_1,
xte.source_id_int_2,
xte.source_id_int_3,
xte.source_id_int_4,
xte.source_id_char_1
FROM xla_transaction_entities xte,
xla_events xe
WHERE NVL(xe.budgetary_control_flag, 'N') ='Y'
AND xte.entity_code IN ('REQUISITION','PURCHASE_ORDER','RELEASE')
AND xte.application_id = 201
AND xe.application_id =xte.application_id
AND xte.entity_id = xe.entity_id
AND xe.EVENT_STATUS_CODE in ('U' ,'I')
AND xe.PROCESS_STATUS_CODE IN ('I','D')
AND xte.ledger_id = p_ledger_id
AND xe.event_date BETWEEN p_start_date AND p_end_date;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_DRAFT_EVENTS';
fnd_file.put_line(fnd_file.log ,'>> PO_DRAFT_EVENTS_PKG.DELETE_DRAFT_EVENTS');
DELETE FROM XLA_EVENTS_INT_GT;
PO_DEBUG.debug_stmt(l_log_head,l_progress,'# Rows deleted from xla_events_int_gt'|| SQL%ROWCOUNT );
INSERT INTO XLA_EVENTS_INT_GT
VALUES l_events_tab(i) ;
PO_DEBUG.debug_stmt(l_log_head,l_progress,'#Rows inserted into xla_events_int_gt table:' || l_event_count);
PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling XLA_EVENTS_PUB_PKG.DELETE_BULK_EVENT ');
XLA_EVENTS_PUB_PKG.DELETE_BULK_EVENTS(p_application_id => 201);
fnd_file.put_line(fnd_file.log ,'The following BC unprocessed/Error events have been deleted');
fnd_file.put_line(fnd_file.log ,'Count of BC events deleted:' || l_event_count);
fnd_file.put_line(fnd_file.log ,'>> PO_DRAFT_EVENTS_PKG.DELETE_DRAFT_EVENTS');
DELETE FROM po_bc_distributions
WHERE ae_event_id = l_events_tab(i).event_id;
END delete_draft_events;