The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE RAISE_UPDATE_EVENT(
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
p_orig_ref IN VARCHAR2,
p_delivery_doc_id IN VARCHAR2,
p_internal_control_number IN NUMBER,
p_partner_document_number IN VARCHAR2 )
IS
l_cln_ch_parameters wf_parameter_list_t;
cln_debug_pub.Add('-------- ENTERING RAISE_UPDATE_EVENT --------------', 2);
SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
SELECT entity_number
INTO l_entity_number
FROM wsh_transactions_history
WHERE document_number = p_delivery_doc_id
AND document_direction = 'O';
cln_debug_pub.Add('Workflow event- oracle.apps.cln.ch.collaboration.update', 1);
WF_EVENT.Raise('oracle.apps.cln.ch.collaboration.update',l_event_key, NULL, l_cln_ch_parameters, NULL);
cln_debug_pub.Add('----------- EXITING RAISE_UPDATE_EVENT ------------', 2);
cln_debug_pub.Add('----------- ERROR:EXITING RAISE_UPDATE_EVENT ------------', 2);
cln_debug_pub.Add('----------- ERROR:EXITING RAISE_UPDATE_EVENT ------------', 2);
END RAISE_UPDATE_EVENT;
PROCEDURE UPDATE_NEW_DEL_INTERFACE(
x_return_status IN OUT NOCOPY VARCHAR2,
x_msg_data IN OUT NOCOPY VARCHAR2,
p_delivery_interface_id IN VARCHAR2,
p_delivery_name IN VARCHAR2,
p_waybill IN VARCHAR2 )
IS
l_error_code NUMBER;
cln_debug_pub.Add('-------- ENTERING UPDATE_NEW_DEL_INTERFACE ------------', 2);
SELECT entity_number
INTO l_delivery_name
FROM wsh_transactions_history
WHERE document_number = p_delivery_name
AND document_direction = 'O'
AND rownum < 2;
UPDATE WSH_NEW_DEL_INTERFACE
SET WAYBILL = p_waybill,
NAME = l_delivery_name
WHERE DELIVERY_INTERFACE_ID = p_delivery_interface_id ;
cln_debug_pub.Add('--------- EXITING UPDATE_NEW_DEL_INTERFACE -------------', 2);
cln_debug_pub.Add('----------- ERROR:EXITING UPDATE_NEW_DEL_INTERFACE ------------', 2);
END UPDATE_NEW_DEL_INTERFACE;