The following lines contain the word 'select', 'insert', 'update' or 'delete':
CURSOR l_khr_csr(cp_delinquency_id IN NUMBER) IS SELECT ico.object_id
FROM iex_delinquencies_all ida
,iex_case_objects ico
WHERE ida.delinquency_id = cp_delinquency_id
AND ida.case_id = ico.cas_id;
iex_open_interface_pub.insert_pending(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
p_object1_id1 => cur.object_id,
p_object1_id2 => '#',
p_jtot_object1_code => 'OKX_LEASE',
p_action => IEX_OPI_PVT.ACTION_NOTIFY_CUST,
p_status => IEX_OPI_PVT.STATUS_PENDING_AUTO,
p_comments => OKC_API.G_MISS_CHAR,
p_ext_agncy_id => NULL,
p_review_date => NULL,
p_recall_date => NULL,
p_automatic_recall_flag => NULL,
p_review_before_recall_flag => NULL,
x_return_status => l_return_status,
x_msg_count => lx_msg_count,
x_msg_data => lx_msg_data);
CURSOR l_khr_csr(cp_delinquency_id IN NUMBER) IS SELECT ico.object_id
FROM iex_delinquencies_all ida
,iex_case_objects ico
WHERE ida.delinquency_id = cp_delinquency_id
AND ida.case_id = ico.cas_id;
iex_open_interface_pub.insert_pending(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
p_object1_id1 => cur.object_id,
p_object1_id2 => '#',
p_jtot_object1_code => 'OKX_LEASE',
p_action => IEX_OPI_PVT.ACTION_REPORT_CB,
p_status => IEX_OPI_PVT.STATUS_PENDING_AUTO,
p_comments => OKC_API.G_MISS_CHAR,
p_ext_agncy_id => NULL,
p_review_date => NULL,
p_recall_date => NULL,
p_automatic_recall_flag => NULL,
p_review_before_recall_flag => NULL,
x_return_status => l_return_status,
x_msg_count => lx_msg_count,
x_msg_data => lx_msg_data);
CURSOR l_khr_csr(cp_delinquency_id IN NUMBER) IS SELECT ico.object_id
FROM iex_delinquencies_all ida
,iex_case_objects ico
WHERE ida.delinquency_id = cp_delinquency_id
AND ida.case_id = ico.cas_id;
iex_open_interface_pub.insert_pending(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
p_object1_id1 => cur.object_id,
p_object1_id2 => '#',
p_jtot_object1_code => 'OKX_LEASE',
p_action => IEX_OPI_PVT.ACTION_TRANSFER_EXT_AGNCY,
p_status => IEX_OPI_PVT.STATUS_PENDING_AUTO,
p_comments => OKC_API.G_MISS_CHAR,
p_ext_agncy_id => NULL,
p_review_date => NULL,
p_recall_date => NULL,
p_automatic_recall_flag => NULL,
p_review_before_recall_flag => NULL,
x_return_status => l_return_status,
x_msg_count => lx_msg_count,
x_msg_data => lx_msg_data);
CURSOR l_khr_csr(cp_delinquency_id IN NUMBER) IS SELECT OIN.ID,
OIN.KHR_ID,
OIN.CAS_ID,
IOH.ID HST_ID,
IOH.OBJECT1_ID1,
IOH.OBJECT1_ID2,
IOH.JTOT_OBJECT1_CODE,
IOH.ACTION,
IOH.STATUS,
IOH.REQUEST_DATE,
IOH.PROCESS_DATE,
IOH.EXT_AGNCY_ID
FROM iex_delinquencies_all ida
,iex_case_objects ico
,Okl_Open_Int OIN
,Iex_Open_Int_Hst IOH
WHERE ida.delinquency_id = cp_delinquency_id
AND ida.case_id = ico.cas_id
AND ico.object_id = oin.khr_id
AND OIN.khr_id = TO_NUMBER(IOH.object1_id1)
AND IOH.jtot_object1_code = 'OKX_LEASE'
AND (IOH.ACTION = IEX_OPI_PVT.ACTION_TRANSFER_EXT_AGNCY)
AND (IOH.STATUS = IEX_OPI_PVT.STATUS_PROCESSED);
CURSOR l_khr_csr(cp_delinquency_id IN NUMBER) IS SELECT OIN.ID,
OIN.KHR_ID,
IOH.ID hst_id,
IOH.OBJECT1_ID1,
IOH.OBJECT1_ID2,
IOH.JTOT_OBJECT1_CODE,
IOH.EXT_AGNCY_ID
FROM iex_delinquencies_all ida
,iex_case_objects ico
,Okl_Open_Int OIN
,Iex_Open_Int_Hst IOH
WHERE ida.delinquency_id = cp_delinquency_id
AND ida.case_id = ico.cas_id
AND ico.object_id = oin.khr_id
AND OIN.khr_id = TO_NUMBER(IOH.object1_id1)
AND IOH.jtot_object1_code = 'OKX_LEASE'
AND (IOH.ACTION = IEX_OPI_PVT.ACTION_TRANSFER_EXT_AGNCY)
AND (IOH.STATUS = IEX_OPI_PVT.STATUS_NOTIFIED OR IOH.STATUS = IEX_OPI_PVT.STATUS_PROCESSED);
* flow is over and also updates the work item
* the send signal is sent when the agent REJECTS the
* notification since the vendor didn't approve it ,
* so set the status to 'CANCELLED'.
**/
PROCEDURE wf_send_signal_cancelled(
itemtype in varchar2,
itemkey in varchar2,
actid in number,
funcmode in varchar2,
result out NOCOPY varchar2) AS
l_work_item_id number;
iex_stry_utl_pub.update_work_item(
p_api_version => 1.0,
p_commit => FND_API.G_TRUE,
p_init_msg_list => FND_API.G_TRUE,
p_work_item_id => l_work_item_id,
p_status => 'CANCELLED',
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
end if; -- if update is succcessful;
* flow is over and also updates the work item
* the send signal is sent when the agent REJECTS the
* notification since the vendor didn't approve it ,
* so set the status to 'COMPLETE'.
**/
PROCEDURE wf_send_signal_complete(
itemtype in varchar2,
itemkey in varchar2,
actid in number,
funcmode in varchar2,
result out NOCOPY varchar2) AS
l_work_item_id number;
iex_stry_utl_pub.update_work_item(
p_api_version => 1.0,
p_commit => FND_API.G_TRUE,
p_init_msg_list => FND_API.G_TRUE,
p_work_item_id => l_work_item_id,
p_status => 'COMPLETE',
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data
);
end if; -- if update is succcessful;
SELECT okl_wf_item_s.nextval
FROM dual;