The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT party_id, party_site_id
INTO l_party_id, l_party_site_id
FROM ecx_tp_headers
WHERE tp_header_id = p_tp_id;
SELECT DOCUMENT_TRANSFER_ID,CUSTOMER_TRX_ID,RCT.ORG_ID
INTO l_doc_transfer_id,l_cust_trx_id,l_org_id
FROM AR_DOCUMENT_TRANSFERS ADT,RA_CUSTOMER_TRX_ALL RCT, HZ_CUST_SITE_USES_ALL CSU, HZ_CUST_ACCT_SITES_ALL CAS, HZ_CUST_ACCOUNTS_ALL CA
WHERE RCT.TRX_NUMBER = p_invoice_num
AND ADT.SOURCE_ID = RCT.CUSTOMER_TRX_ID
AND ADT.SOURCE_TABLE ='RA_CUSTOMER_TRX' -- Bug #4938901.
AND RCT.BILL_TO_CUSTOMER_ID = CA.CUST_ACCOUNT_ID
AND RCT.BILL_TO_SITE_USE_ID = CSU.SITE_USE_ID
AND RCT.COMPLETE_FLAG = 'Y'
AND CAS.PARTY_SITE_ID = l_party_site_id;
cln_debug_pub.Add('Raising the ----oracle.apps.cln.ch.collaboration.update----- event,with parameters ',2);
-- raise the 'oracle.apps.cln.ch.collaboration.update' event for Collaboration History Updation
BEGIN
wf_event.raise(p_event_name => 'oracle.apps.cln.ch.collaboration.update', -- Bug #5219307
p_event_key => l_invoice_ref_id,
p_parameters => l_parameter_list);
cln_debug_pub.Add('----Collaboration History update event raised---',1);
cln_debug_pub.Add('Exception in calling the ----oracle.apps.cln.ch.collaboration.update----- API' ||
':' || l_error_code || ':' || l_errmsg,5);
-- Send Notification and update Collaboration History for Header
IF l_header_reason_code is not null and length(l_header_reason_code) > 0 THEN
IF (l_debug_level <= 2) THEN
cln_debug_pub.Add('Calling ---- CALL_AR_API----' ,2);