40: -------------------------------------------------------------------------------
41:
42: PROCEDURE derive_dependent_fields (
43: p_lines IN OUT NOCOPY PO_REQ_LINES_REC_TYPE,
44: p_distributions IN OUT NOCOPY PO_REQ_DISTRIBUTIONS_REC_TYPE,
45: p_update_source IN VARCHAR2,
46: x_return_status OUT NOCOPY VARCHAR2,
47: x_msg_count OUT NOCOPY NUMBER,
48: x_msg_data OUT NOCOPY VARCHAR2
101: rd.distribution_id,
102: --ReqDistributionQuantity: prorated from line
103: decode(p_lines.quantity(i), null, null,
104: rd.req_line_quantity * p_lines.quantity(i) / rl.quantity)
105: FROM po_requisition_lines rl, po_req_distributions rd
106: where rl.requisition_line_id = p_lines.req_line_id(i)
107: and rd.requisition_line_id = rl.requisition_line_id;
108:
109: -- For each Req Line, Get
139: decode(plt.matching_basis, 'AMOUNT',
140: nvl(p_lines.amount(i), rl.amount),
141: nvl(p_lines.unit_price(i), rl.unit_price)
142: * nvl(p_lines.quantity(i), rl.quantity)))
143: FROM po_requisition_lines rl, po_req_distributions rd, po_line_types plt
144: where rl.requisition_line_id = p_lines.req_line_id(i)
145: and rd.requisition_line_id = rl.requisition_line_id
146: and rl.line_type_id = plt.line_type_id
147: and rd.distribution_id = num10)
319:
320: l_progress := '070';
321: --Apply Req Distribution Changes to Database in Bulk
322: FORALL i IN 1.. p_req_changes.distribution_changes.distribution_id.COUNT
323: update po_req_distributions
324: set req_line_quantity
325: =nvl(p_req_changes.distribution_changes.quantity(i), req_line_quantity)
326: where distribution_id= p_req_changes.distribution_changes.distribution_id(i);
327: