The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE NAME: update_web_reqs_status
Parameters:
x_req_header_id - req header to be cancelled
x_req_line_id - leave null for now (we only support cancel
at header level; UPS will want line level)
PROCEDURE update_web_reqs_status
(X_req_header_id IN NUMBER,
X_req_line_id IN NUMBER,
X_agent_id IN NUMBER,
X_req_doc_type IN VARCHAR2,
X_req_doc_subtype IN VARCHAR2,
X_req_control_action IN VARCHAR2,
X_req_control_reason IN VARCHAR2,
x_req_control_date IN date,
X_encumbrance_flag IN VARCHAR2,
X_oe_installed_flag IN VARCHAR2,
X_req_control_error_rc IN OUT VARCHAR2) IS
X_progress VARCHAR2(3) := NULL;
SELECT authorization_status
INTO X_req_header_auth_status
FROM PO_REQUISITION_HEADERS
WHERE requisition_header_id = X_req_header_id;
UPDATE PO_REQUISITION_LINES
SET cancel_flag = 'Y',
cancel_date = nvl(X_req_control_date, cancel_date),
cancel_reason = nvl(X_req_control_reason, cancel_reason)
WHERE requisition_header_id = X_req_header_id
AND nvl(cancel_flag, 'N') IN ('N', 'I')
AND nvl(closed_code, 'OPEN') <> 'FINALLY CLOSED';
UPDATE PO_REQUISITION_HEADERS
SET authorization_status = 'CANCELLED'
WHERE requisition_header_id = X_req_header_id;
po_forward_sv1.update_action_history (X_req_header_id,
X_req_doc_type,
NULL,
X_req_action_history_code,
X_req_control_reason,
fnd_global.user_id,
null);
po_forward_sv1.insert_action_history (X_req_header_id,
X_req_doc_type,
X_req_doc_subtype,
NULL,
X_req_action_history_code,
sysdate,
X_agent_id,
NULL,
X_req_control_reason,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
fnd_global.user_id,
null);
po_message_s.sql_error('update_reqs_status', x_progress, sqlcode);
END update_web_reqs_status;
UPDATE MTL_SUPPLY
SET quantity = 0,
change_flag = 'Y'
WHERE supply_type_code = 'REQ'
AND req_header_id = X_supply_id;
UPDATE mtl_supply
SET quantity = 0,
change_flag = 'Y'
WHERE supply_type_code = 'REQ'
AND req_line_id = X_supply_id;