The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Txn_Hist_Success_WF(Item_type IN VARCHAR2,
Item_key IN VARCHAR2,
Actid IN NUMBER,
Funcmode IN VARCHAR2,
Resultout OUT NOCOPY VARCHAR2
)
IS
l_return_status VARCHAR2(1);
update_history EXCEPTION;
asn_debug.put_line('Entering Update_Txn_Hist_Success_WF');
Update_Txn_History ( Item_type,
Item_key,
'ST',
l_return_status
);
asn_debug.put_line('Update_Txn_Hist_Success_WF.l_return_status is '||l_return_status);
raise update_history;
asn_debug.put_line('Update_Txn_Hist_Success_WF.resultout is '||resultout);
asn_debug.put_line('Exiting Update_Txn_Hist_Success_WF');
WHEN update_history THEN
update mtl_txns_history
set transaction_status = 'ER'
where event_name = Item_type
and event_key = Item_key
and transaction_status = 'IP';
asn_debug.put_line('update_history exception has occured.');
update mtl_txns_history
set transaction_status = 'ER'
where event_name = Item_type
and event_key = Item_key
and transaction_status = 'IP';
END Update_Txn_Hist_Success_WF;
PROCEDURE Update_Txn_History ( p_item_type IN VARCHAR2,
p_item_key IN VARCHAR2,
p_transaction_status IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2
)
IS
pragma AUTONOMOUS_TRANSACTION;
update_history EXCEPTION;
asn_debug.put_line('Entering Update_Txn_History');
asn_debug.put_line('Update_Txn_History.x_return_status is '||x_return_status);
raise update_history;
RCV_TRANSACTIONS_HISTORY_PKG.Create_Update_Txns_History (l_txns_history_rec,
l_xml_document_id,
l_txn_id,
x_return_status );
asn_debug.put_line('Update_Txn_History.x_return_status is '||x_return_status);
raise update_history;
asn_debug.put_line('Exiting Update_Txn_History');
WHEN update_history THEN
update mtl_txns_history
set transaction_status = 'ER'
where event_name = p_item_type
and event_key = p_item_key
and transaction_status = 'IP';
asn_debug.put_line('update_history exception has occured.');
update mtl_txns_history
set transaction_status = 'ER'
where event_name = p_item_type
and event_key = p_item_key
and transaction_status = 'IP';
END Update_Txn_History;
SELECT po_wf_itemkey_s.NEXTVAL
INTO l_orig_Event_Key
FROM DUAL;
SELECT party_id
INTO l_party_id
FROM hz_cust_accounts
WHERE cust_account_id IN (SELECT client_id
FROM mtl_client_parameters
WHERE client_code = P_client_code);
select location_id
into l_party_id
from hr_organization_units_v
where organization_id = P_Org_ID
and rownum = 1;
/* Raise event will insert the record into the transaction history table
for the current transaction.
*/
RCV_EXTERNAL_INTERFACE_SV.Raise_Event ( l_curr_txn_hist_record,
l_xml_document_id,
l_Return_Status );