301: X_progress := '620';
302:
303: SELECT count(1)
304: INTO X_number_of_inv_dest
305: FROM rcv_shipment_lines rsl
306: WHERE rsl.shipment_line_id = X_shipment_line_id
307: AND rsl.destination_type_code = 'INVENTORY';
308: END IF;
309:
1203: INTO v_delete_allowed
1204: FROM sys.dual
1205: WHERE NOT EXISTS (
1206: SELECT null
1207: FROM RCV_SHIPMENT_LINES
1208: WHERE ship_to_location_id = p_location_id
1209: OR deliver_to_location_id = p_location_id
1210: );
1211: