The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT RL.EXPORT_COMPLIANCE_TYPE COMPL_TYPE,
DECODE(RL.EXPORT_COMPLIANCE_SUCCESS, 'Y', 'COMPLIANT', 'N', 'NOT_COMPLIANT') COMPL_STATUS,
RL.EXPORT_COMPLIANCE_DESCRIPTION COMPL_DESC,
RL.ERROR_CODE ERROR_CODE,
RL.ERROR_TYPE ERROR_TYPE,
RL.ERROR_TEXT ERROR_TEXT,
WRR.INTERPRETED_VALUE_CODE INTERPRETED_VALUE
FROM WSH_ITM_RESPONSE_HEADERS RH,
WSH_ITM_RESPONSE_LINES RL,
WSH_ITM_REQUEST_CONTROL REQ,
WSH_ITM_RESPONSE_RULES WRR
WHERE
REQ.REQUEST_CONTROL_ID = p_req_ctrl_id AND
REQ.RESPONSE_HEADER_ID = RH.RESPONSE_HEADER_ID AND
RH.RESPONSE_HEADER_ID = RL.RESPONSE_HEADER_ID AND
UPPER(RH.EXPORT_COMPLIANCE_STATUS) = p_status AND
WRR.ERROR_CODE(+) = RL.error_code AND
WRR.ERROR_TYPE(+) =RL.ERROR_TYPE;
SELECT PROCESS_FLAG INTO L_PROCESS_FLAG
FROM WSH_ITM_REQUEST_CONTROL
WHERE REQUEST_CONTROL_ID = P_REQUEST_CONTROL_ID;
SELECT WE.EXCEPTION_LOCATION_ID,
WE.DELIVERY_ID,
WE.DELIVERY_NAME,
WE.EXCEPTION_ID,
IRC.TRIGGERING_POINT,
WE.STATUS,
IRC.ORGANIZATION_ID
INTO l_location_id,
l_delivery_id,
l_delivery_name,
l_exception_id,
l_event_name,
l_old_status,
l_organization_id
FROM WSH_EXCEPTIONS WE ,
WSH_ITM_REQUEST_CONTROL IRC
WHERE WE.DELIVERY_ID = IRC.ORIGINAL_SYSTEM_REFERENCE
AND WE.EXCEPTION_NAME = DECODE(IRC.TRIGGERING_POINT,G_PICK_RELEASE_EVENT,G_SUB_PICK_RELEASE_EXCEPTION,G_SHIP_CONFIRM_EVENT,G_SUB_SHIP_CONFIRM_EXCEPTION)
AND IRC.REQUEST_CONTROL_ID = P_REQUEST_CONTROL_ID
AND WE.STATUS <> 'CLOSED';
/* delete from wsh_itm_response_lines where response_header_id IN
(
select response_header_id
from wsh_itm_response_headers
where request_control_id = p_request_control_id
);
delete from wsh_itm_response_headers where request_control_id = p_request_control_id;
delete from wsh_itm_request_control where request_control_id = p_request_control_id; */
UPDATE wsh_exceptions
SET error_message = l_exception_message ,
last_update_date = SYSDATE ,
last_updated_by = fnd_global.user_id
WHERE exception_id = l_exception_id;
UPDATE wsh_itm_request_control
SET process_flag = 1 ,
last_update_date= sysdate,
last_updated_by = fnd_global.user_id
WHERE request_control_id = p_request_control_id;
/*delete from wsh_itm_response_lines where response_header_id IN
(
select response_header_id
from wsh_itm_response_headers
where request_control_id = p_request_control_id
);