The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_status(p_status in varchar2,
p_doc_transfer_id in NUMBER,
p_msgid in VARCHAR2,
p_exception_message in varchar2 default null,
p_exception_type in varchar2 default null) is
cursor doc is
select * from ar_document_transfers
where document_transfer_id = p_doc_transfer_id;
if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.update_status(+)'); end if;
ar_document_transfer_pkg.updateRow(doc_rec);
if ar_doc_transfer_standard.isDebugOn then ar_doc_transfer_standard.debug('AR_CONFIRMATION_ACTION.update_status(-)'); end if;
cursor trx is select dt.responsibility_id,
dt.status,
trx.trx_number,
trx.trx_date,
trx.INVOICE_CURRENCY_CODE,
trxl.line_number
from ar_document_transfers dt,
ra_customer_trx trx,
ra_customer_trx_lines trxl
where dt.document_transfer_id = l_doc_transfer_id and
trx.customer_trx_id = l_trx_id and
trxl.customer_trx_line_id(+) = l_trx_line_id and
dt.source_table = 'RA_CUSTOMER_TRX' and
dt.source_id = trx.customer_trx_id and
trx.customer_trx_id = trxl.customer_trx_id(+);
select description from ap_lookup_codes
where lookup_type = 'REJECT CODE' and lookup_code = p_reason_code;
update_status('REJECTED', l_doc_transfer_id, p_msgid, l_body, 'AR');
update_status('ACCEPTED', l_doc_transfer_id, p_msgid);