639: p_message => 'Create shipment: Create a new shipment');
640: END IF;
641:
642: l_progress:='240';
643: SELECT po_line_locations_s.nextval INTO x_line_location_id FROM sys.dual;
644:
645: -- Get the taxable_flag based on the following priority
646: -- 1. preferences (global.po_taxable_flag)
647: -- 2. ship_to_org (x_ship_to_org_taxable_flag)
1558: )
1559: VALUES
1560: (
1561: po_autocreate_params.g_draft_id ,
1562: PO_LINE_LOCATIONS_S.nextval ,
1563: p_lines.last_update_date_tbl(i) ,
1564: p_lines.last_updated_by_tbl(i) ,
1565: p_lines.po_header_id_tbl(i) ,
1566: p_lines.creation_date_tbl(i) ,
1709: WHERE polli.interface_line_location_id = line_location_rec.interface_line_location_id;
1710:
1711: d_progress := 240;
1712: -- Bug9441838: Added variable to pass sequence current value
1713: SELECT PO_LINE_LOCATIONS_S.currval
1714: INTO x_line_location_id
1715: FROM sys.dual;
1716:
1717: IF (PO_AUTOCREATE_PARAMS.g_document_subtype IN ('STANDARD','PLANNED','BLANKET')) THEN
1825: END IF;
1826:
1827: BEGIN
1828: l_progress := '030';
1829: SELECT po_line_locations_s.nextval INTO x_line_location_id FROM sys.dual;
1830:
1831: EXCEPTION
1832: WHEN OTHERS THEN
1833: IF g_debug_unexp THEN