The following lines contain the word 'select', 'insert', 'update' or 'delete':
* delivery records and selects only those whose indexes exist in
* p_IndexTab table
**/
PROCEDURE BuildDeliveryTable(p_IndexTab IN WSH_UTIL_CORE.ID_TAB_TYPE,
p_DeliveryTab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
x_deliveryTab IN OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type) IS
--
l_debugOn BOOLEAN;
wsh_debug_sv.log(l_moduleName, 'Total number of deliveries selected', v_DelivTab.COUNT);
l_DelTab.DELETE;
l_deliveryTab.DELETE;
wsh_debug_sv.logmsg(l_moduleName, 'No deliveries selected for this hashValue');
v_Select VARCHAR2(1000);
v_select := 'SELECT wnd.DELIVERY_ID, wnd.ORGANIZATION_ID, wnd.STATUS_CODE, wnd.PLANNED_FLAG, ' ||
' wnd.NAME, wnd.INITIAL_PICKUP_DATE, wnd.INITIAL_PICKUP_LOCATION_ID, ' ||
' wnd.ULTIMATE_DROPOFF_LOCATION_ID, wnd.ULTIMATE_DROPOFF_DATE, wnd.CUSTOMER_ID, ' ||
' wnd.INTMED_SHIP_TO_LOCATION_ID, wnd.SHIP_METHOD_CODE, wnd.DELIVERY_TYPE, ' ||
' wnd.CARRIER_ID, wnd.SERVICE_LEVEL, wnd.MODE_OF_TRANSPORT, ' ||
' wnd.SHIPMENT_DIRECTION, wnd.PARTY_ID, wnd.SHIPPING_CONTROL, ' ||
' NVL(wnd.ignore_for_planning, ''N''), NULL ';
' NOT EXISTS (SELECT 1 FROM wsh_delivery_legs ' ||
' WHERE delivery_id = wnd.delivery_id) ';
x_Query := v_select || v_from || v_where || v_OrderBy;
wsh_debug_sv.log(l_moduleName, 'v_Select', v_Select);
SELECT count(DISTINCT delivery_id)
FROM wsh_trips wt, wsh_trip_stops wts1,
wsh_trip_stops wts2, wsh_delivery_legs wdl
WHERE wt.trip_id = p_tripId
AND wts1.stop_id = wdl.pick_up_stop_id
AND wts2.stop_id = wdl.drop_off_stop_id
AND wts1.trip_id = wt.trip_id
AND wts2.trip_id = wt.trip_id;
l_delivery_tab.DELETE;
l_delivery_tab.DELETE;
l_delivery_tab.DELETE;