The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT doc_id, transaction_date, budget_level_id, source
FROM fv_be_trx_hdrs
WHERE approval_id = p_approval_id
AND doc_status = DECODE(p_mode, 'C', doc_status, 'IP')
AND NVL(approved_by_user_id,g_user_id) = g_user_id;
delete_rpr_docs(p_doc_id,p_rpr_to_doc_id);
update_doc_status(p_rpr_to_doc_id, g_retcode);
select fvr.transaction_id
into l_doc_id
from fv_be_rpr_transactions fvr,
fv_be_trx_hdrs fvh
where substr(fvh.doc_number, 1, length(fvh.doc_number) -4) = fvr.doc_number
and fvh.doc_id = p_doc_id;
SELECT
DECODE(x_status_code,'SUCCESS', 0,'ADVISORY',0,'FAIL', 1, 'RFAIL',1, 'PARTIAL', 2, 'FATAL',2,'XLA_ERROR',2)
INTO g_retcode
FROM dual;
update_doc_status(p_doc_id, g_retcode);
PROCEDURE update_doc_status(p_doc_id NUMBER,
p_retcode NUMBER)
IS
l_module_name VARCHAR2(200);
l_module_name:= g_module_name || 'update_doc_status';
SELECT DECODE(p_retcode, 0, 'AR', 1, 'NR', 'IN')
INTO l_status
FROM dual;
UPDATE fv_be_trx_hdrs
SET doc_status = l_status,
internal_revision_num = DECODE(l_status, 'AR', revision_num,
internal_revision_num),
distribution_amount = NULL
WHERE doc_id = p_doc_id
AND doc_status = 'IP';
UPDATE fv_be_trx_dtls
SET transaction_status = l_status,
approved_by_user_id = DECODE(l_status, 'AR',g_approver_id, NULL),
approval_date = DECODE(l_status,'AR',SYSDATE,NULL)
WHERE doc_id = p_doc_id
--AND transaction_status = 'IP'
AND transaction_status IN ('IP', 'RD')
AND revision_num IN (SELECT revision_num
FROM fv_be_trx_hdrs
WHERE doc_id = p_doc_id);
g_errbuf := 'Error in update_doc_status procedure. SQL Error is ' ||SQLERRM;
END; --update_doc_status
PROCEDURE delete_rpr_docs (p_doc_id NUMBER,
p_rpr_to_doc_id NUMBER)
IS
l_module_name VARCHAR2(200) ;
SELECT SUBSTR(doc_number,1,INSTR(doc_number,'-RPF') - 1) doc_num,
set_of_books_id sob,budget_level_id id
FROM fv_be_trx_hdrs
WHERE doc_id = p_doc_id;
l_module_name := g_module_name || 'delete_rpr_docs';
UPDATE fv_be_rpr_transactions
SET transaction_status = 'NR'
WHERE doc_number = l_getdoc.doc_num
AND set_of_books_id = l_getdoc.sob
AND budget_level_id = l_getdoc.id;
DELETE FROM fv_be_trx_dtls
WHERE doc_id = l_doc_id;
DELETE FROM fv_be_trx_hdrs
WHERE doc_id = l_doc_id;
g_errbuf := 'Error in delete_rpr_docs procedure. SQL Error is ' ||SQLERRM;
END delete_rpr_docs;
g_errbuf := 'Error in delete_rpr_docs procedure. SQL Error is ' ||SQLERRM;
UPDATE Fv_Be_Trx_hdrs
SET doc_status = DECODE(revision_num,0,'IN','RA')
WHERE doc_id = p_doc_id
AND doc_status = 'IP';
UPDATE Fv_Be_Trx_Dtls
SET transaction_status = 'IN'
WHERE doc_id = p_doc_id
AND transaction_status = 'IP'
AND revision_num IN(SELECT revision_num
FROM fv_be_trx_hdrs
WHERE doc_id = p_doc_id);