[Home] [Help]
193: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity);
194: IF p_entity_id IS NOT NULL THEN --{
195:
196: IF p_entity_name = 'WSH_DELIVERY' THEN
197: l_name_of_delivery := WSH_NEW_DELIVERIES_PVT.Get_Name(p_entity_id);
198: IF l_name_of_delivery IS NOT NULL THEN
199: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_name_of_delivery);
200: ELSE
201: FND_MESSAGE.SET_TOKEN('ENTITY_ID',p_entity_id);
897: wdd.weight_uom_code, wdd.volume_uom_code,
898: wdd.original_subinventory, wdd.pickable_flag ,
899: NVL(wnd.status_code, 'OP'), NVL(wnd.planned_flag, 'N'), NVL(wnd.tms_interface_flag, 'NS'),
900: wdd.replenishment_status
901: from wsh_delivery_details wdd, wsh_delivery_assignments wda, wsh_new_deliveries wnd
902: where wdd.source_line_id = p_attributes_rec.source_line_id
903: and wdd.source_code = p_source_code
904: and wdd.delivery_detail_id = wda.delivery_detail_id
905: and wda.delivery_id = wnd.delivery_id(+)
906: order by decode(wdd.released_status, 'Y', 1, 2);
907:
908: CURSOR c_del_status IS
909: SELECT wnd.status_code,wsp.export_screening_flag
910: FROM wsh_delivery_details wdd, wsh_delivery_assignments wda, wsh_new_deliveries wnd,
911: wsh_shipping_parameters wsp
912: WHERE wdd.source_code = p_source_code
913: AND wdd.source_line_id = p_attributes_rec.source_line_id
914: AND wdd.delivery_detail_id = wda.delivery_detail_id
1817: i := l_otm_del_tab.NEXT(i);
1818: END LOOP;
1819: IF l_delivery_id_tab.FIRST IS NOT NULL THEN
1820: IF l_debug_on THEN
1821: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
1822: END IF;
1823: WSH_NEW_DELIVERIES_PVT.Update_TMS_Interface_Flag
1824: (p_delivery_id_tab => l_delivery_id_tab,
1825: p_tms_interface_flag_tab => l_tms_interface_flag_tab,
1819: IF l_delivery_id_tab.FIRST IS NOT NULL THEN
1820: IF l_debug_on THEN
1821: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
1822: END IF;
1823: WSH_NEW_DELIVERIES_PVT.Update_TMS_Interface_Flag
1824: (p_delivery_id_tab => l_delivery_id_tab,
1825: p_tms_interface_flag_tab => l_tms_interface_flag_tab,
1826: x_return_status => l_return_status);
1827: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1826: x_return_status => l_return_status);
1827: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1828: x_return_status := l_return_status;
1829: IF l_debug_on THEN
1830: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_NEW_DELIVERIES_PVT.Update_Tms_interface_flag',l_return_status);
1831: END IF;
1832: RAISE item_update_not_allowed;
1833: END IF;
1834: END IF; --}
2528: select wdd.delivery_detail_id, wdd.ship_from_location_id,
2529: wda.delivery_id, wda.parent_delivery_detail_id,
2530: wdd.released_status, wnd.service_level service_level, wnd.mode_of_transport mode_of_transport,
2531: wnd.carrier_id carrier_id, wnd.ship_method_code ship_method_code
2532: from wsh_delivery_details wdd, wsh_delivery_assignments_v wda, wsh_new_deliveries wnd
2533: where wdd.source_line_id = p_source_line_id
2534: and wdd.source_code = p_source_code
2535: and wdd.delivery_detail_id = wda.delivery_detail_id
2536: and wda.delivery_id = wnd.delivery_id
2562: l_msg_data VARCHAR2(4000);
2563: l_delivery_ids wsh_util_core.id_tab_type;
2564:
2565:
2566: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2567: l_del_out_rec_tab WSH_DELIVERIES_GRP.Del_Out_Tbl_Type;
2568: l_del_in_rec WSH_DELIVERIES_GRP.Del_In_Rec_Type;
2569:
2570: l_detail_info_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
2927: OR l_group_tab(l_group_index).mode_of_transport IS NOT NULL
2928: OR l_group_tab(l_group_index).carrier_id IS NOT NULL THEN
2929:
2930:
2931: WSH_NEW_DELIVERIES_PVT.Table_to_Record(
2932: p_delivery_id => dd.delivery_id,
2933: x_delivery_rec => l_delivery_info_tab(1),
2934: x_return_status => x_return_status);
2935: