The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT count(distribution_id)
INTO x_num_of_dist
FROM po_req_distributions
WHERE requisition_line_id = x_requisition_line_id;
SELECT code_combination_id
INTO x_code_combination_id
FROM po_req_distributions
WHERE requisition_line_id = x_requisition_line_id;
SELECT count(distribution_id)
INTO x_num_of_dist
FROM po_req_distributions_all
WHERE requisition_line_id = x_requisition_line_id;
SELECT code_combination_id
INTO x_code_combination_id
FROM po_req_distributions_all
WHERE requisition_line_id = x_requisition_line_id;
PROCEDURE NAME: update_dist_quantity()
===========================================================================*/
PROCEDURE update_dist_quantity(x_requisition_line_id NUMBER,
x_line_quantity NUMBER)
IS
x_progress VARCHAR2(3) := NULL;
SELECT count(distribution_id)
INTO x_num_of_dist
FROM po_req_distributions
WHERE requisition_line_id = x_requisition_line_id
AND NOT EXISTS (SELECT 'there are encumbered distributions'
FROM po_req_distributions prd2
WHERE prd2.requisition_line_id = x_requisition_line_id
AND ( nvl(prd2.encumbered_flag, 'N') <> 'N')
);
SELECT *
INTO Recinfo
FROM po_req_distributions
WHERE requisition_line_id = x_requisition_line_id
FOR UPDATE OF req_line_quantity NOWAIT;
UPDATE po_req_distributions prd
SET req_line_quantity = x_line_quantity
WHERE prd.requisition_line_id = x_requisition_line_id;
po_message_s.sql_error('update_dist_quantity', x_progress, sqlcode);
END update_dist_quantity;