The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_approval_status(itemtype IN varchar2,
itemkey IN varchar2,
actid IN number,
funcmode IN varchar2,
result OUT NOCOPY varchar2) is
l_responder varchar2(100);
l_api_name VARCHAR2(100) := 'update_approval_status';
update IEX_WRITEOFFS
set SUGGESTION_APPROVED_FLAG = 'Y',
WRITEOFF_DATE = sysdate
where WRITEOFF_ID = to_number(substr(itemkey, 2));
update IEX_REPOSSESSIONS
set SUGGESTION_APPROVED_FLAG = 'Y',
REPOSSESSION_DATE = sysdate
where REPOSSESSION_ID = to_number(substr(itemkey, 2));
update IEX_LITIGATIONS
set SUGGESTION_APPROVED_FLAG = 'Y'
where LITIGATION_ID = to_number(substr(itemkey, 2));
END update_approval_status;
procedure update_rejection_status(
itemtype IN varchar2,
itemkey IN varchar2,
actid IN number,
funcmode IN varchar2,
result OUT NOCOPY varchar2) is
l_responder varchar2(100);
l_api_name VARCHAR2(100) := 'update_rejection_status';
update IEX_WRITEOFFS
set SUGGESTION_APPROVED_FLAG = 'N',
WRITEOFF_DATE = sysdate
where WRITEOFF_ID = to_number(substr(itemkey, 2));
update IEX_REPOSSESSIONS
set SUGGESTION_APPROVED_FLAG = 'N',
REPOSSESSION_DATE = sysdate
where REPOSSESSION_ID = to_number(substr(itemkey, 2));
update IEX_LITIGATIONS
set SUGGESTION_APPROVED_FLAG = 'N'
where LITIGATION_ID = to_number(substr(itemkey, 2));
END update_rejection_status;