[Home] [Help]
20: -- Note that this routine is only called if there is only one
21: -- shipment.
22: SELECT line_location_id
23: INTO X_line_location_id
24: FROM po_line_locations PLL
25: WHERE PLL.po_line_id = X_po_line_id
26: AND PLL.shipment_type = X_shipment_type;
27:
28: -- togeorge 10/26/2000 commented out due to the problems while arcs in.
50: BEGIN
51:
52: SELECT max(line_location_id) into x_po_line_location_id_record.po_line_location_id
53: from po_lines_all pol, --
54: po_line_locations poll
55: where pol.po_line_id = poll.po_line_id
56: and NVL(X_po_line_location_id_record.item_id, pol.item_id) = pol.item_id
57: and NVL(X_po_line_location_id_record.po_line_id, pol.po_line_id) = pol.po_line_id
58: and pol.po_header_id = X_po_line_location_id_record.po_header_id
93:
94: -- Get the sum of the quantity of all shipments.
95: SELECT sum(PLL.quantity - nvl(PLL.quantity_cancelled,0))
96: INTO X_quantity_ordered
97: FROM po_line_locations PLL
98: WHERE PLL.po_line_id = X_po_line_id
99: AND PLL.shipment_type = 'PLANNED' ;
100:
101: -- togeorge 10/26/2000 commented out due to the problems while arcs in.
263: -- Otherwise, display a message to the user and
264: -- abort insert_row.
265:
266: X_progress := '005';
267: po_line_locations_pkg_s3.check_unique(
268: X_rowid,
269: X_shipment_num,
270: X_po_line_id,
271: X_po_release_id,
287:
288: -- Get the line_location_id for this release shipment.
289: X_progress := '020';
290:
291: SELECT po_line_locations_s.nextval
292: INTO X_line_location_id
293: FROM sys.dual;
294:
295: --
305: --
306:
307:
308: -- Call the insert row routine with all parameters.
309: po_line_locations_pkg_s0.insert_row(
310: X_Rowid,
311: X_Line_Location_Id,
312: X_Last_Update_Date,
313: X_Last_Updated_By,