The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT b.user_id, b.user_name
FROM JTF_RS_RESOURCE_EXTNS a
, JTF_RS_RESOURCE_EXTNS b
WHERE b.source_id = a.source_mgr_id
AND a.user_id = p_user_id;
SELECT TO_CHAR(IEX_DEL_WF_S.NEXTVAL) INTO l_sequence FROM dual;
SELECT user_name INTO l_user_name from JTF_RS_RESOURCE_EXTNS
WHERE user_id = p_user_id;
PROCEDURE update_approval_status(
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
result OUT NOCOPY VARCHAR2
) is
l_manager_name varchar2(60);
l_api_name VARCHAR2(100) := 'update_approval_status';
update IEX_DELINQUENCIES_ALL
set SERVICE_HOLD_APPROVED_FLAG = 'Y'
where delinquency_id = l_delinquency_id;
update IEX_REPOSSESSIONS
set SERVICE_HOLD_APPROVED_FLAG = 'Y'
where repossession_id = l_repossession_id;
update IEX_LITIGATIONS
set SERVICE_HOLD_APPROVED_FLAG = 'Y'
where litigation_id = l_litigation_id;
update IEX_WRITEOFFS
set SERVICE_HOLD_APPROVED_FLAG = 'Y'
where writeoff_id = l_writeoff_id;
update IEX_BANKRUPTCIES
set SERVICE_HOLD_APPROVED_FLAG = 'Y'
where bankruptcy_id = l_bankruptcy_id;
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_manager_name varchar2(60);
l_api_name VARCHAR2(100) := 'update rejection Status';
update IEX_DELINQUENCIES_ALL
set SERVICE_HOLD_APPROVED_FLAG = 'N'
where delinquency_id = l_delinquency_id;
update IEX_REPOSSESSIONS
set SERVICE_HOLD_APPROVED_FLAG = 'N'
where repossession_id = l_repossession_id;
update IEX_LITIGATIONS
set SERVICE_HOLD_APPROVED_FLAG = 'N'
where litigation_id = l_litigation_id;
update IEX_WRITEOFFS
set SERVICE_HOLD_APPROVED_FLAG = 'N'
where writeoff_id = l_writeoff_id;
update IEX_BANKRUPTCIES
set SERVICE_HOLD_APPROVED_FLAG = 'Y'
where bankruptcy_id = l_bankruptcy_id;
END update_rejection_status;
procedure select_type(
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) := 'select type';
update IEX_DELINQUENCIES_ALL
set SERVICE_HOLD_APPROVED_FLAG = 'N'
where delinquency_id = TO_NUMBER(substr(itemkey, 3));
update IEX_REPOSSESSIONS
set SERVICE_HOLD_APPROVED_FLAG = 'N'
where repossession_id = TO_NUMBER(substr(itemkey, 3));
update IEX_LITIGATIONS
set SERVICE_HOLD_APPROVED_FLAG = 'N'
where litigation_id = TO_NUMBER(substr(itemkey, 3));
update IEX_WRITEOFFS
set SERVICE_HOLD_APPROVED_FLAG = 'N'
where writeoff_id = TO_NUMBER(substr(itemkey, 3));
update IEX_BANKRUPTCIES
set SERVICE_HOLD_APPROVED_FLAG = 'Y'
where bankruptcy_id = TO_NUMBER(substr(itemkey, 4));
WF_CORE.Context('IEX_WF_DEL_REQ_SERVICE_PUB', 'Select Type',
itemtype, itemkey, actid, funcmode);
END select_type;