[Home] [Help]
436: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
437: END IF;
438:
439: -- TPW - Distributed changes - Start
440: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') in ( 'TPW', 'TW2')) THEN
441:
442: UPDATE wsh_delivery_details
443: SET released_status = 'Y'
444: WHERE delivery_detail_id IN (
449: AND container_flag = 'N'
450: RETURNING delivery_detail_id, organization_id BULK COLLECT INTO l_detail_tab, l_organization_tab; -- Added for TPW - Distributed changes;
451:
452: -- TPW - Distributed changes - Starts
453: -- Moved above update statement from api WSH_INBOUND_SHIP_ADVICE_PKG.Process_Ship_Advice,
454: -- as part of TPW - Distribution changes, however missed including call to Raise Business
455: -- Event and DBI API in earlier version
456: --Raise Event : Pick To Pod Workflow
457: IF l_detail_tab.count > 0 THEN -- {
499: --
500: -- TPW - Distributed changes - Ends
501: END IF;
502:
503: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') in ( 'TPW', 'TW2', 'CMS')) THEN
504: update wsh_new_deliveries
505: set status_code ='SA'
506: where delivery_id = p_delivery_id
507: and status_code IN ('OP','SR','SC');
1270: del_det_int_rec.delivery_detail_id := l_cont_instance_id;
1271:
1272: -- TPW - Distributed changes
1273: --Add the container instance id to the list of detail ids that need assignment
1274: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
1275: l_new_detail_ids(l_new_detail_ids.COUNT+1) := l_cont_instance_id;
1276: END IF;
1277:
1278: END IF; -- if l_cont_inst_exists
1299: wsh_debug_sv.log (l_module_name, 'del_det_int_rec.source_line_id', del_det_int_rec.source_line_id);
1300: wsh_debug_sv.log (l_module_name, 'del_det_int_rec.source_header_number', del_det_int_rec.source_header_number);
1301: END IF;
1302:
1303: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN --{
1304:
1305: IF l_debug_on THEN
1306: wsh_debug_sv.logmsg(l_module_name, 'Line Direction '||del_det_int_rec.line_direction||
1307: ' SHN '||del_det_int_rec.source_header_number||
1793: l_curr_index := l_curr_index + 1;
1794:
1795: END IF; --}
1796:
1797: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TPW') THEN
1798: l_prev_int_rec.cycle_count_quantity := l_total_cc_qty;
1799: ELSE
1800: l_prev_int_rec.cycle_count_quantity := null;
1801: END IF;
1811: RAISE fnd_api.g_exc_error;
1812: END IF;
1813:
1814:
1815: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
1816: l_new_detail_ids(l_new_detail_ids.COUNT+1) := l_prev_int_rec.delivery_detail_id;
1817: END IF;
1818:
1819: END LOOP; --}
1900: l_curr_index := l_curr_index + 1;
1901:
1902: END IF; --}
1903:
1904: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TPW') THEN
1905: l_prev_int_rec.cycle_count_quantity := l_total_cc_qty;
1906: ELSE
1907: l_prev_int_rec.cycle_count_quantity := null;
1908: END IF;
1918: RAISE fnd_api.g_exc_error;
1919: END IF;
1920:
1921:
1922: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
1923: l_new_detail_ids(l_new_detail_ids.COUNT+1) := l_prev_int_rec.delivery_detail_id;
1924: END IF;
1925:
1926: END LOOP; --}
1997: l_curr_index := l_curr_index + 1;
1998:
1999: END IF; --}
2000:
2001: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TPW') THEN
2002: l_prev_int_rec.cycle_count_quantity := l_total_cc_qty;
2003: ELSE
2004: l_prev_int_rec.cycle_count_quantity := null;
2005: END IF;
2015: RAISE fnd_api.g_exc_error;
2016: END IF;
2017:
2018:
2019: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
2020: l_new_detail_ids(l_new_detail_ids.COUNT+1) := l_prev_int_rec.delivery_detail_id;
2021: END IF;
2022:
2023: END LOOP; --}
2052:
2053: -- TPW - Distributed changes
2054: if (del_det_int_rec.container_flag = 'N') THEN
2055:
2056: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
2057:
2058: IF l_debug_on THEN
2059: wsh_debug_sv.logmsg(l_module_name, 'Line Direction '||del_det_int_rec.line_direction||
2060: ' SHN '||del_det_int_rec.source_header_number||
2121: END IF; --}
2122:
2123: l_total_req_qty := l_total_req_qty + del_det_int_rec.requested_quantity;
2124: l_total_shp_qty := l_total_shp_qty + del_det_int_rec.shipped_quantity;
2125: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TPW') THEN
2126: l_total_cc_qty := l_total_cc_qty + del_det_int_rec.cycle_count_quantity;
2127: ELSE
2128: l_total_cc_qty := null;
2129: END IF;
2130:
2131: --
2132: IF del_det_int_rec.serial_number IS NOT NULL THEN
2133: -- { If Organization is TW2 then check if item is serial controlled - Start
2134: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
2135: IF l_debug_on THEN
2136: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.inventory_item_id', del_det_int_rec.inventory_item_id);
2137: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.organization_id', del_det_int_rec.organization_id);
2138: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.serial_number', del_det_int_rec.serial_number);
2268: l_curr_index := l_curr_index + 1;
2269:
2270: END IF; --}
2271:
2272: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TPW') THEN
2273: l_prev_int_rec.cycle_count_quantity := l_total_cc_qty;
2274: ELSE
2275: l_prev_int_rec.cycle_count_quantity := null;
2276: END IF;
2286: RAISE fnd_api.g_exc_error;
2287: END IF;
2288:
2289:
2290: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
2291: l_new_detail_ids(l_new_detail_ids.COUNT+1) := l_prev_int_rec.delivery_detail_id;
2292: END IF;
2293:
2294: END LOOP; --}
2365: l_curr_index := l_curr_index + 1;
2366:
2367: END IF; --}
2368:
2369: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TPW') THEN
2370: l_prev_int_rec.cycle_count_quantity := l_total_cc_qty;
2371: ELSE
2372: l_prev_int_rec.cycle_count_quantity := null;
2373: END IF;
2383: RAISE fnd_api.g_exc_error;
2384: END IF;
2385:
2386:
2387: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
2388: l_new_detail_ids(l_new_detail_ids.COUNT+1) := l_prev_int_rec.delivery_detail_id;
2389: END IF;
2390:
2391: END LOOP; --}
2905: IF l_debug_on THEN
2906: wsh_debug_sv.push(l_module_name,'Process_Interfaced_Deliveries');
2907: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
2908: wsh_debug_sv.log (l_module_name,'Action Code', p_action_code);
2909: wsh_debug_sv.log (l_module_name, 'Warehouse type', WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE);
2910: END IF;
2911:
2912: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2913:
2973: l_del_int_rec.carrier_id := l_carrier_id;
2974: -- }
2975: end if;
2976: --
2977: IF(nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, FND_API.G_MISS_CHAR) = 'CMS')
2978: THEN
2979: -- {
2980: -- For updates from CMS, need to check if the ship method code
2981: -- is the same. Error out if different.
3251: END LOOP; -- for l_del_int_rec
3252:
3253: --Bug 3458160
3254: -- TPW - Distributed changes
3255: IF (p_action_code = 'CREATE') AND (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') <> 'TW2') THEN
3256: l_in_rec.caller := 'WSH_TPW_INBOUND';
3257: ELSE
3258: l_in_rec.caller := 'WSH_INBOUND';
3259: END IF;
3317: END IF;
3318: x_dlvy_id := l_dlvy_out_rec_tab(l_dlvy_out_rec_tab.first).delivery_id;
3319:
3320: -- TPW - Distributed changes
3321: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
3322: update wsh_new_del_interface
3323: set delivery_id = x_dlvy_id
3324: where delivery_interface_id = p_delivery_interface_id;
3325:
3558: raise no_lock_found;
3559: END IF;
3560:
3561: -- TPW - Distributed changes
3562: ELSIF (l_action_code = 'CREATE') AND (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
3563:
3564: --Lock the records
3565: Lock_Delivery_Details(
3566: p_delivery_interface_id => p_delivery_interface_id,
3610: x_delivery_id := l_created_delivery_id;
3611:
3612: -- Now process the delivery details
3613: -- TPW - Distributed changes
3614: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
3615: Process_Interfaced_Del_Details(
3616: p_delivery_interface_id => p_delivery_interface_id,
3617: p_delivery_id => l_created_delivery_id,
3618: p_new_delivery_id => l_created_delivery_id,
4217: raise update_shipping_att_failed;
4218: END IF;
4219:
4220: -- TPW - Distribution Organization Changes - Inv. Rsv API Integration Changes - Starts
4221: IF ( nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2' )
4222: THEN --{
4223: FOR i in G_Update_Attributes_Tab.first..G_Update_Attributes_Tab.last
4224: LOOP --{
4225: --
4956: l_changed_attributes.preferred_grade := p_del_det_int_rec.preferred_grade;
4957:
4958: --bugfix 8841528
4959:
4960: IF(nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, FND_API.G_MISS_CHAR) = 'CMS') AND (p_del_det_int_rec.container_flag = 'Y') THEN
4961:
4962: OPEN inv_detail_cur;
4963: FETCH inv_detail_cur INTO l_delivery_detail_id,l_subinventory,l_locator_id;
4964: CLOSE inv_detail_cur;
5044: AND (NVL(p_del_det_int_rec.container_name ,FND_API.G_MISS_CHAR) <>
5045: FND_API.G_MISS_CHAR)
5046: AND (NVL(p_del_det_int_rec.delivery_detail_id,FND_API.G_MISS_NUM) <>
5047: FND_API.G_MISS_NUM)
5048: AND (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, FND_API.G_MISS_CHAR) <> 'CMS')
5049: THEN
5050: l_changed_attributes.container_name :=
5051: SUBSTRB(p_del_det_int_rec.container_name ,1,30);
5052: ELSE