The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
SELECT ENTITY_NUMBER
INTO l_entity_number
FROM WSH_TRANSACTIONS_HISTORY
WHERE ENTITY_TYPE ='DLVY'
AND DOCUMENT_NUMBER = p_delivery_number
AND ROWNUM < 2;
PROCEDURE UPDATE_COLLABORATION(
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
p_delivery_number IN VARCHAR2,
p_tp_type IN VARCHAR2,
p_tp_id IN VARCHAR2,
p_tp_site_id IN VARCHAR2,
p_doc_dir IN VARCHAR2,
p_txn_type IN VARCHAR2,
p_txn_subtype IN VARCHAR2,
p_xmlg_doc_id IN VARCHAR2,
p_appl_ref_id IN VARCHAR2,
p_int_ctrl_num IN VARCHAR2)
IS
l_return_status VARCHAR2(1000);
cln_debug_pub.Add('ENTERING UPDATE_COLLABORATION', 2);
SELECT ENTITY_NUMBER
INTO l_entity_number
FROM WSH_TRANSACTIONS_HISTORY
WHERE ENTITY_TYPE ='DLVY'
AND DOCUMENT_NUMBER = p_delivery_number
AND ROWNUM < 2;
SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.update',
l_event_key, NULL, l_cln_ch_parameters, NULL);
cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.update raised', 1);
cln_debug_pub.Add('EXITING UPDATE_COLLABORATION', 2);
x_msg_data := 'While trying to update the collaboration'
|| ' for 3B12 outbound document delivery number '
|| l_entity_number
|| ', the following error is encountered:'
|| x_msg_data;
cln_debug_pub.Add('EXITING UPDATE_COLLABORATION', 2);
END UPDATE_COLLABORATION;
SELECT WDD.CUST_PO_NUMBER, WDD.CUSTOMER_ID, WND.CREATION_DATE
INTO x_customer_po_number, x_customer_id, x_delivery_creation_date
FROM WSH_NEW_DELIVERIES WND,
WSH_TRANSACTIONS_HISTORY WTH,
WSH_DELIVERY_DETAILS WDD,
WSH_DELIVERY_ASSIGNMENTS WDA
WHERE WTH.ENTITY_NUMBER = WND.NAME
AND WTH.ENTITY_TYPE ='DLVY'
AND WTH.DOCUMENT_DIRECTION = 'O'
AND WTH.DOCUMENT_NUMBER = P_DOCUMENT_NUMBER
AND WDD.CONTAINER_FLAG = 'N'
AND WDD.DELIVERY_DETAIL_ID = WDA.DELIVERY_DETAIL_ID
AND WDA.DELIVERY_ID = WND.DELIVERY_ID
AND ROWNUM < 2;
SELECT WND.ORGANIZATION_ID
INTO l_org_id
FROM WSH_NEW_DELIVERIES WND,
WSH_TRANSACTIONS_HISTORY WTH
WHERE WTH.ENTITY_NUMBER = WND.NAME
AND WTH.ENTITY_TYPE ='DLVY'
AND WTH.DOCUMENT_DIRECTION = 'O'
AND WTH.DOCUMENT_NUMBER = P_DOCUMENT_NUMBER;
SELECT WND.INITIAL_PICKUP_LOCATION_ID
INTO l_loc_id
FROM WSH_NEW_DELIVERIES WND,
WSH_TRANSACTIONS_HISTORY WTH
WHERE WTH.ENTITY_NUMBER = WND.NAME
AND WTH.ENTITY_TYPE ='DLVY'
AND WTH.DOCUMENT_DIRECTION = 'O'
AND WTH.DOCUMENT_NUMBER = P_DOCUMENT_NUMBER;