[Home] [Help]
276: END IF;
277: CLOSE c_line_details;
278:
279: -- muom
280: l_fulfillment_base := WSH_UTIL_CORE.Get_Line_Fulfillment_Base('OE', l_line_rec.line_id);
281:
282: -- HW BUG#:2005977
283: --
284: IF l_debug_on THEN
1041: p_locator_id => l_rsv_rec.locator_id,
1042: p_revision => l_rsv_rec.revision,
1043: p_lot_number => l_rsv_rec.lot_number);
1044:
1045: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
1046: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- rsv.status
1047: --
1048: IF l_debug_on THEN
1049: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
1042: p_revision => l_rsv_rec.revision,
1043: p_lot_number => l_rsv_rec.lot_number);
1044:
1045: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
1046: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- rsv.status
1047: --
1048: IF l_debug_on THEN
1049: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
1050: WSH_DEBUG_SV.logmsg(l_module_name, 'MESSAGE COUNT: '|| TO_CHAR ( L_RESERVE_MSG_COUNT ) );
1063: END IF;
1064: --
1065: END LOOP;
1066: END if; -- rsv.msg.count
1067: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1068: --
1069: IF l_debug_on THEN
1070: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE_UNCONFIRMED_QUANTITY FAILED.. GOING ON... ' );
1071: END IF;
1327: p_subinventory_code => l_rsv_rec.subinventory_code ,
1328: p_locator_id => l_rsv_rec.locator_id,
1329: p_revision => l_rsv_rec.revision,
1330: p_lot_number => l_rsv_rec.lot_number);
1331: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
1332: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- Sts or UnExp. Error
1333: --
1334: IF l_debug_on THEN
1335: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
1328: p_locator_id => l_rsv_rec.locator_id,
1329: p_revision => l_rsv_rec.revision,
1330: p_lot_number => l_rsv_rec.lot_number);
1331: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
1332: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- Sts or UnExp. Error
1333: --
1334: IF l_debug_on THEN
1335: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
1336: END IF;
1353: END IF;
1354: --
1355: END LOOP;
1356: END if; -- If Msg. Count
1357: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1358: --
1359: IF l_debug_on THEN
1360: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE_UNCONFIRMED_QUANTITY FAILED.. GOING ON... ' );
1361: END IF;
1385: --
1386: EXCEPTION
1387: -- bug 2442178: added expected exceptions to appropriately set return status
1388: WHEN FND_API.G_EXC_ERROR THEN
1389: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1390: --
1391: IF l_debug_on THEN
1392: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1393: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1394: END IF;
1395: --
1396: return;
1397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1398: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1399: --
1400: IF l_debug_on THEN
1401: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1402: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1404: --
1405: return;
1406:
1407: WHEN OTHERS THEN
1408: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1409: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UNRESERVE_DELIVERY_DETAIL',l_module_name);
1410: --
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1405: return;
1406:
1407: WHEN OTHERS THEN
1408: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1409: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UNRESERVE_DELIVERY_DETAIL',l_module_name);
1410: --
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1413: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1490: l_wf_rs VARCHAR2(1);
1491: l_start_wf BOOLEAN;
1492: l_raise_pickinitiated_event BOOLEAN;
1493: l_count_picked_lines Number;
1494: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
1495: l_purged_count NUMBER;
1496: --WF: CMR
1497: l_raise_carrierselect_event BOOLEAN;
1498: l_del_ids WSH_UTIL_CORE.ID_tab_type;
1494: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
1495: l_purged_count NUMBER;
1496: --WF: CMR
1497: l_raise_carrierselect_event BOOLEAN;
1498: l_del_ids WSH_UTIL_CORE.ID_tab_type;
1499: l_del_old_carrier_ids WSH_UTIL_CORE.ID_tab_type;
1500: -- Workflow Changes ==/
1501:
1502:
1495: l_purged_count NUMBER;
1496: --WF: CMR
1497: l_raise_carrierselect_event BOOLEAN;
1498: l_del_ids WSH_UTIL_CORE.ID_tab_type;
1499: l_del_old_carrier_ids WSH_UTIL_CORE.ID_tab_type;
1500: -- Workflow Changes ==/
1501:
1502:
1503: l_topmost_delivery_detail_id NUMBER;
1527: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
1528: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_freight_terms_code',x_dlvy_freight_terms_code);
1529: END IF;
1530: --
1531: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1532:
1533: /* if detail is not assigned to a container, update WDA. else find topmost container
1534: in the hierarchy (this can be a detail in case of loose details), iterate thru each
1535: level and assign each level to delivery any error in any level => rollback changes*/
1576: x_dlvy_freight_terms_code => x_dlvy_freight_terms_code, -- J-IB-NPARIKHS
1577: p_caller => p_caller --bug 5100229
1578: );
1579:
1580: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1581: RAISE assign_fail;
1582: END IF;
1583:
1584: --/== Workflow Changes
1615: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
1616: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1617: END IF;
1618:
1619: IF(l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_process_started='Y' ) THEN
1620: IF l_debug_on THEN
1621: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.PURGE_ENTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
1622: END IF;
1623: l_del_entity_ids(1) := p_delivery_id;
1631: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1632: END IF;
1633: END IF; -- If WorkFlow Exists
1634:
1635: IF(l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1636: IF l_debug_on THEN
1637: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.START_WF_PROCESS',WSH_DEBUG_SV.C_PROC_LEVEL);
1638: END IF;
1639:
1690: -- Workflow Changes ==/
1691:
1692: END IF;--for topmost container
1693: CLOSE c_topmost_container;
1694: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1695: --
1696: IF l_debug_on THEN
1697: WSH_DEBUG_SV.pop(l_module_name);
1698: END IF;
1701: --
1702: exception
1703: WHEN assign_fail THEN
1704: ROLLBACK TO before_assign_topmost_cont;
1705: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1706: wsh_util_core.add_message(x_return_status,l_module_name);
1707: --
1708: IF l_debug_on THEN
1709: WSH_DEBUG_SV.logmsg(l_module_name,'ASSIGN_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1702: exception
1703: WHEN assign_fail THEN
1704: ROLLBACK TO before_assign_topmost_cont;
1705: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1706: wsh_util_core.add_message(x_return_status,l_module_name);
1707: --
1708: IF l_debug_on THEN
1709: WSH_DEBUG_SV.logmsg(l_module_name,'ASSIGN_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1710: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ASSIGN_FAIL');
1711: END IF;
1712: --
1713: WHEN others THEN
1714: ROLLBACK TO before_assign_topmost_cont;
1715: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1716: wsh_util_core.add_message(x_return_status,l_module_name);
1717: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DELIVERY_DETAIL',l_module_name);
1718:
1719: --
1712: --
1713: WHEN others THEN
1714: ROLLBACK TO before_assign_topmost_cont;
1715: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1716: wsh_util_core.add_message(x_return_status,l_module_name);
1717: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DELIVERY_DETAIL',l_module_name);
1718:
1719: --
1720: IF l_debug_on THEN
1713: WHEN others THEN
1714: ROLLBACK TO before_assign_topmost_cont;
1715: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1716: wsh_util_core.add_message(x_return_status,l_module_name);
1717: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DELIVERY_DETAIL',l_module_name);
1718:
1719: --
1720: IF l_debug_on THEN
1721: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1760: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1761: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1762: END IF;
1763: --
1764: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1765: --
1766: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
1767: (
1768: p_delivery_id => p_delivery_id
1783: END IF;
1784: --
1785: EXCEPTION
1786: WHEN others THEN
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1788: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_to_Delivery',l_module_name);
1789: --
1790: IF l_debug_on THEN
1791: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1784: --
1785: EXCEPTION
1786: WHEN others THEN
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1788: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_to_Delivery',l_module_name);
1789: --
1790: IF l_debug_on THEN
1791: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1792: END IF;
1867: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER2_ID', p_container2_id);
1868: WSH_DEBUG_SV.log(l_module_name, 'P_ASSIGNMENT_TYPE', p_assignment_type);
1869: END IF;
1870:
1871: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1872: x_delivery_was_empty := FALSE;
1873: x_assign_update := TRUE; -- default to true unless everything on the same delivery.
1874:
1875: IF (p_assignment_type = 'DD2D') THEN --detail to delivery, delivery id provided
1888:
1889: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(p_delivery_id);
1890: IF (l_is_delivery_empty = 'Y') THEN
1891: x_delivery_was_empty := TRUE;
1892: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1893: IF l_debug_on THEN
1894: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1895: END IF;
1896: raise FND_API.G_EXC_ERROR;
1943:
1944: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_delivery1);
1945: IF (l_is_delivery_empty = 'Y') THEN
1946: x_delivery_was_empty := TRUE;
1947: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1950: END IF;
1951: raise FND_API.G_EXC_ERROR;
1954:
1955: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_delivery2);
1956: IF (l_is_delivery_empty = 'Y') THEN
1957: x_delivery_was_empty := TRUE;
1958: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1959: IF l_debug_on THEN
1960: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1961: END IF;
1962: raise FND_API.G_EXC_ERROR;
1983: END IF;
1984:
1985: EXCEPTION
1986: WHEN FND_API.G_EXC_ERROR THEN
1987: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1988:
1989: IF c_get_gross_weight%ISOPEN THEN
1990: CLOSE c_get_gross_weight;
1991: END IF;
2001: END IF;
2002: --
2003: RETURN;
2004: WHEN OTHERS THEN
2005: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2006:
2007: IF c_get_gross_weight%ISOPEN THEN
2008: CLOSE c_get_gross_weight;
2009: END IF;
2051: l_call_update VARCHAR2(1);
2052: l_return_status VARCHAR2(1);
2053: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
2054: l_is_delivery_empty VARCHAR2(1);
2055: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
2056: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
2057: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
2058: l_num_warnings NUMBER;
2059: l_debug_on BOOLEAN;
2053: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
2054: l_is_delivery_empty VARCHAR2(1);
2055: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
2056: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
2057: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
2058: l_num_warnings NUMBER;
2059: l_debug_on BOOLEAN;
2060: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.'||G_PACKAGE_NAME||'.'||'Post_Otm_Assign_Del_Detail';
2061:
2075: WSH_DEBUG_SV.log(l_module_name, 'P_TMS_INTERFACE_FLAG', p_tms_interface_flag);
2076: WSH_DEBUG_SV.log(l_module_name, 'P_GROSS_WEIGHT', p_gross_weight);
2077: END IF;
2078:
2079: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2080:
2081: l_call_update := 'Y';
2082: l_delivery_id_tab(1) := p_delivery_id;
2083:
2083:
2084: IF (p_delivery_was_empty) THEN
2085: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(p_delivery_id);
2086:
2087: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2088: IF l_debug_on THEN
2089: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
2090: END IF;
2091: raise FND_API.G_EXC_ERROR;
2099: p_delivery_id => p_delivery_id,
2100: x_delivery_rec => l_delivery_info,
2101: x_return_status => l_return_status);
2102:
2103: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2104: IF l_debug_on THEN
2105: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
2106: END IF;
2107: raise FND_API.G_EXC_ERROR;
2104: IF l_debug_on THEN
2105: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
2106: END IF;
2107: raise FND_API.G_EXC_ERROR;
2108: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2109: l_num_warnings := l_num_warnings + 1;
2110: END IF;
2111: l_tms_interface_flag := nvl(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT);
2112:
2138: p_delivery_id_tab => l_delivery_id_tab,
2139: p_tms_interface_flag_tab => l_interface_flag_tab,
2140: x_return_status => l_return_status);
2141:
2142: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2143: IF l_debug_on THEN
2144: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
2145: END IF;
2146: raise FND_API.G_EXC_ERROR;
2143: IF l_debug_on THEN
2144: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
2145: END IF;
2146: raise FND_API.G_EXC_ERROR;
2147: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2148: l_num_warnings := l_num_warnings + 1;
2149: END IF;
2150: END IF;
2151:
2150: END IF;
2151:
2152:
2153: IF (l_num_warnings > 0) THEN
2154: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2155: END IF;
2156:
2157: IF l_debug_on THEN
2158: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2160: END IF;
2161:
2162: EXCEPTION
2163: WHEN FND_API.G_EXC_ERROR THEN
2164: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2165: --
2166: IF l_debug_on THEN
2167: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2168: WSH_DEBUG_SV.pop(l_module_name);
2169: END IF;
2170: --
2171: RETURN;
2172: WHEN OTHERS THEN
2173: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2174: --
2175: IF l_debug_on THEN
2176: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2177: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION OTHERS');
2220: l_content_count NUMBER;
2221:
2222: /* H projects: pricing integration csun */
2223: m NUMBER := 0;
2224: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
2225: l_return_status VARCHAR2(1);
2226: mark_reprice_error EXCEPTION;
2227: l_ship_to NUMBER;
2228: l_container_has_content BOOLEAN;
2225: l_return_status VARCHAR2(1);
2226: mark_reprice_error EXCEPTION;
2227: l_ship_to NUMBER;
2228: l_container_has_content BOOLEAN;
2229: l_mdc_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
2230: l_ignore_det_tab WSH_UTIL_CORE.Id_Tab_Type;
2231:
2232: --
2233: l_debug_on BOOLEAN;
2226: mark_reprice_error EXCEPTION;
2227: l_ship_to NUMBER;
2228: l_container_has_content BOOLEAN;
2229: l_mdc_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
2230: l_ignore_det_tab WSH_UTIL_CORE.Id_Tab_Type;
2231:
2232: --
2233: l_debug_on BOOLEAN;
2234: --
2269: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
2270: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
2271: l_action_rec wsh_delivery_autocreate.action_rec_type;
2272: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
2273: l_matched_entities wsh_util_core.id_tab_type;
2274: l_out_rec wsh_delivery_autocreate.out_rec_type;
2275: l_group_index NUMBER;
2276:
2277: l_num_warnings number := 0;
2285:
2286: -- OTM R12 : update delivery
2287: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2288: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
2289: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
2290: l_tms_update VARCHAR2(1);
2291: l_trip_not_found VARCHAR2(1);
2292: l_trip_info_rec WSH_DELIVERY_VALIDATIONS.trip_info_rec_type;
2293: l_tms_version_number WSH_NEW_DELIVERIES.TMS_VERSION_NUMBER%TYPE;
2321: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
2322: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DETAIL_ID',P_PARENT_DETAIL_ID);
2323: END IF;
2324: --
2325: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2326:
2327: -- OTM R12
2328: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
2329:
2324: --
2325: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2326:
2327: -- OTM R12
2328: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
2329:
2330: IF (l_gc3_is_installed IS NULL) THEN
2331: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
2332: END IF;
2327: -- OTM R12
2328: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
2329:
2330: IF (l_gc3_is_installed IS NULL) THEN
2331: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
2332: END IF;
2333: l_assign_update := FALSE; --default assignment tms update to false
2334: -- End of OTM R12
2335:
2385: --
2386: FND_MESSAGE.SET_TOKEN('ENTITY2',
2387: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2388: p_parent_detail_id));
2389: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2390: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2391: --
2392: IF l_debug_on THEN
2393: WSH_DEBUG_SV.pop(l_module_name);
2386: FND_MESSAGE.SET_TOKEN('ENTITY2',
2387: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2388: p_parent_detail_id));
2389: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2390: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2391: --
2392: IF l_debug_on THEN
2393: WSH_DEBUG_SV.pop(l_module_name);
2394: END IF;
2406: --
2407: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2408: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2409: p_parent_detail_id));
2410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2411: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2412: --
2413: IF l_debug_on THEN
2414: WSH_DEBUG_SV.pop(l_module_name);
2407: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2408: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2409: p_parent_detail_id));
2410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2411: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2412: --
2413: IF l_debug_on THEN
2414: WSH_DEBUG_SV.pop(l_module_name);
2415: END IF;
2441: p_in_ids => l_ignore_det_tab,
2442: p_action_code => 'IGNORE_PLAN',
2443: x_return_status => x_return_status);
2444:
2445: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2446:
2447: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_DIFF_IGNOREPLAN');
2448: FND_MESSAGE.SET_TOKEN('ENTITY1',p_detail_id);
2449: --
2453: --
2454: FND_MESSAGE.SET_TOKEN('ENTITY2',
2455: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2456: p_parent_detail_id));
2457: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2458: --
2459: IF l_debug_on THEN
2460: WSH_DEBUG_SV.pop(l_module_name);
2461: END IF;
2475: p_in_ids => l_ignore_det_tab,
2476: p_action_code => 'IGNORE_PLAN',
2477: x_return_status => l_return_status);
2478:
2479: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
2480: l_display_error := TRUE;
2481: ELSE
2482: l_display_error := FALSE;
2483: END IF;--}
2493: --
2494: FND_MESSAGE.SET_TOKEN('ENTITY2',
2495: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2496: p_parent_detail_id));
2497: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2498: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2499: --
2500: IF l_debug_on THEN
2501: WSH_DEBUG_SV.pop(l_module_name);
2494: FND_MESSAGE.SET_TOKEN('ENTITY2',
2495: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2496: p_parent_detail_id));
2497: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2498: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2499: --
2500: IF l_debug_on THEN
2501: WSH_DEBUG_SV.pop(l_module_name);
2502: END IF;
2534: --
2535: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2536: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2537: p_parent_detail_id));
2538: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2539: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2540: --
2541: IF l_debug_on THEN
2542: WSH_DEBUG_SV.pop(l_module_name);
2535: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2536: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2537: p_parent_detail_id));
2538: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2539: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2540: --
2541: IF l_debug_on THEN
2542: WSH_DEBUG_SV.pop(l_module_name);
2543: END IF;
2560: p_client_id => l_del_id_for_detail.client_id, -- LSP PROJECT :
2561: x_group_by_flags => l_group_by_flags,
2562: x_return_status => x_return_status);
2563:
2564: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2565: x_return_status := x_return_status;
2566: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2567: --
2568: IF l_debug_on THEN
2562: x_return_status => x_return_status);
2563:
2564: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2565: x_return_status := x_return_status;
2566: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2567: --
2568: IF l_debug_on THEN
2569: WSH_DEBUG_SV.pop(l_module_name);
2570: END IF;
2606:
2607: if l_plan_flag <> 'N' then
2608: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
2609:
2610: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2611:
2612: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2613: --
2614: IF l_debug_on THEN
2608: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
2609:
2610: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2611:
2612: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2613: --
2614: IF l_debug_on THEN
2615: WSH_DEBUG_SV.pop(l_module_name);
2616: END IF;
2626:
2627: if l_plan_flag <> 'N' then
2628: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
2629:
2630: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2631:
2632: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2633: --
2634: IF l_debug_on THEN
2628: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
2629:
2630: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2631:
2632: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2633: --
2634: IF l_debug_on THEN
2635: WSH_DEBUG_SV.pop(l_module_name);
2636: END IF;
2663: --
2664: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2665: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2666: p_parent_detail_id));
2667: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2668: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2669: --
2670: IF l_debug_on THEN
2671: WSH_DEBUG_SV.pop(l_module_name);
2664: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2665: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2666: p_parent_detail_id));
2667: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2668: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2669: --
2670: IF l_debug_on THEN
2671: WSH_DEBUG_SV.pop(l_module_name);
2672: END IF;
2688: --
2689: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2690: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2691: p_parent_detail_id));
2692: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2693: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2694: --
2695: IF l_debug_on THEN
2696: WSH_DEBUG_SV.pop(l_module_name);
2689: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2690: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2691: p_parent_detail_id));
2692: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2693: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2694: --
2695: IF l_debug_on THEN
2696: WSH_DEBUG_SV.pop(l_module_name);
2697: END IF;
2722: --
2723: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2724: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2725: p_parent_detail_id));
2726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2727: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2728: --
2729: IF l_debug_on THEN
2730: WSH_DEBUG_SV.pop(l_module_name);
2723: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2724: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2725: p_parent_detail_id));
2726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2727: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2728: --
2729: IF l_debug_on THEN
2730: WSH_DEBUG_SV.pop(l_module_name);
2731: END IF;
2756: --
2757: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2758: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2759: p_parent_detail_id));
2760: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2761: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2762: --
2763: IF l_debug_on THEN
2764: WSH_DEBUG_SV.pop(l_module_name);
2757: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2758: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2759: p_parent_detail_id));
2760: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2761: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2762: --
2763: IF l_debug_on THEN
2764: WSH_DEBUG_SV.pop(l_module_name);
2765: END IF;
2794: --
2795: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2796: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2797: p_parent_detail_id));
2798: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2799: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2800: --
2801: IF l_debug_on THEN
2802: WSH_DEBUG_SV.pop(l_module_name);
2795: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2796: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2797: p_parent_detail_id));
2798: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2799: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2800: --
2801: IF l_debug_on THEN
2802: WSH_DEBUG_SV.pop(l_module_name);
2803: END IF;
2826: --
2827: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2828: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2829: p_parent_detail_id));
2830: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2831: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2832: --
2833: IF l_debug_on THEN
2834: WSH_DEBUG_SV.pop(l_module_name);
2827: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2828: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2829: p_parent_detail_id));
2830: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2831: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2832: --
2833: IF l_debug_on THEN
2834: WSH_DEBUG_SV.pop(l_module_name);
2835: END IF;
2865: --
2866: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2867: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2868: p_parent_detail_id));
2869: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2870: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2871: --
2872: IF l_debug_on THEN
2873: WSH_DEBUG_SV.pop(l_module_name);
2866: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2867: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2868: p_parent_detail_id));
2869: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2870: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2871: --
2872: IF l_debug_on THEN
2873: WSH_DEBUG_SV.pop(l_module_name);
2874: END IF;
2902: --
2903: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2904: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2905: p_parent_detail_id));
2906: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2907: WSH_UTIL_CORE.Add_Message(x_return_status);
2908: --
2909: IF l_debug_on THEN
2910: WSH_DEBUG_SV.pop(l_module_name);
2903: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2904: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2905: p_parent_detail_id));
2906: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2907: WSH_UTIL_CORE.Add_Message(x_return_status);
2908: --
2909: IF l_debug_on THEN
2910: WSH_DEBUG_SV.pop(l_module_name);
2911: END IF;
2931: p_diff_volume => -1 * l_del_id_for_detail.volume,
2932: p_diff_fill_volume => -1 * l_del_id_for_detail.volume,
2933: x_return_status => l_return_status);
2934:
2935: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2936: --
2937: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2938: WSH_UTIL_CORE.Add_Message(x_return_status);
2939: IF l_debug_on THEN
2933: x_return_status => l_return_status);
2934:
2935: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2936: --
2937: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2938: WSH_UTIL_CORE.Add_Message(x_return_status);
2939: IF l_debug_on THEN
2940: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2941: WSH_DEBUG_SV.pop(l_module_name);
2934:
2935: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2936: --
2937: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2938: WSH_UTIL_CORE.Add_Message(x_return_status);
2939: IF l_debug_on THEN
2940: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2941: WSH_DEBUG_SV.pop(l_module_name);
2942: END IF;
2974: x_gross_weight1 => l_gross_weight1,
2975: x_gross_weight2 => l_gross_weight2,
2976: x_return_status => l_return_status);
2977:
2978: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2979: IF l_debug_on THEN
2980: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
2981: END IF;
2982: raise FND_API.G_EXC_ERROR;
3004: x_matched_entities => l_matched_entities,
3005: x_out_rec => l_out_rec,
3006: x_return_status => x_return_status);
3007:
3008: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3009: --
3010: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3011: WSH_UTIL_CORE.Add_Message(x_return_status);
3012: IF l_debug_on THEN
3006: x_return_status => x_return_status);
3007:
3008: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3009: --
3010: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3011: WSH_UTIL_CORE.Add_Message(x_return_status);
3012: IF l_debug_on THEN
3013: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3014: WSH_DEBUG_SV.pop(l_module_name);
3007:
3008: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3009: --
3010: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3011: WSH_UTIL_CORE.Add_Message(x_return_status);
3012: IF l_debug_on THEN
3013: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3014: WSH_DEBUG_SV.pop(l_module_name);
3015: END IF;
3017: END IF;
3018:
3019:
3020:
3021: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3022: --
3023: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3024: WSH_UTIL_CORE.Add_Message(x_return_status);
3025: IF l_debug_on THEN
3019:
3020:
3021: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3022: --
3023: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3024: WSH_UTIL_CORE.Add_Message(x_return_status);
3025: IF l_debug_on THEN
3026: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3027: WSH_DEBUG_SV.pop(l_module_name);
3020:
3021: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3022: --
3023: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3024: WSH_UTIL_CORE.Add_Message(x_return_status);
3025: IF l_debug_on THEN
3026: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3027: WSH_DEBUG_SV.pop(l_module_name);
3028: END IF;
3039:
3040: EXCEPTION
3041:
3042: WHEN OTHERS THEN
3043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3044: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
3045: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
3046: IF l_debug_on THEN
3047: WSH_DEBUG_SV.log(l_module_name,'Could not lock delivery: ',l_del_id_for_container.delivery_id);
3041:
3042: WHEN OTHERS THEN
3043: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3044: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
3045: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
3046: IF l_debug_on THEN
3047: WSH_DEBUG_SV.log(l_module_name,'Could not lock delivery: ',l_del_id_for_container.delivery_id);
3048: WSH_DEBUG_SV.pop(l_module_name);
3049: END IF;
3065: (p_delivery_id => l_del_id_for_container.delivery_id,
3066: x_trip_info_rec => l_trip_info_rec,
3067: x_return_status => l_return_status);
3068:
3069: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3070: x_return_status := l_return_status;
3071: IF l_debug_on THEN
3072: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
3073: WSH_DEBUG_SV.pop(l_module_name);
3087: p_delivery_id => l_del_id_for_container.delivery_id,
3088: x_delivery_rec => l_delivery_info,
3089: x_return_status => l_return_status);
3090:
3091: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3092: x_return_status := l_return_status;
3093: IF l_debug_on THEN
3094: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
3095: WSH_DEBUG_SV.pop(l_module_name);
3156: p_delivery_info_tab => l_delivery_info_tab,
3157: p_new_interface_flag_tab => l_new_interface_flag_tab,
3158: x_return_status => l_return_status);
3159:
3160: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3161: x_return_status := l_return_status;
3162: IF l_debug_on THEN
3163: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
3164: WSH_DEBUG_SV.pop(l_module_name);
3193: p_sync_tmp_rec => l_sync_tmp_rec,
3194: x_return_status => l_return_status
3195: );
3196: --
3197: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3198: --
3199: x_return_status := l_return_status;
3200: --
3201: IF l_debug_on THEN
3204: END IF;
3205: --
3206: return;
3207: --
3208: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3209: --
3210: l_num_warnings := l_num_warnings + 1;
3211: --
3212: END IF;
3244: p_tms_interface_flag => l_tms_interface_flag,
3245: p_gross_weight => l_gross_weight1, --using the gross weight of the detail
3246: x_return_status => l_return_status);
3247:
3248: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3249: IF l_debug_on THEN
3250: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3251: END IF;
3252: raise FND_API.G_EXC_ERROR;
3249: IF l_debug_on THEN
3250: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3251: END IF;
3252: raise FND_API.G_EXC_ERROR;
3253: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3254: l_num_warnings := l_num_warnings + 1;
3255: END IF;
3256: END IF;
3257: -- End of OTM R12 : assign delivery detail
3261: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
3262: p_detail_id_tab => l_mdc_detail_tab,
3263: x_return_status => x_return_status);
3264:
3265: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3266: IF l_debug_on THEN
3267: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3268: WSH_DEBUG_SV.pop(l_module_name);
3269: END IF;
3304: p_sync_tmp_rec => l_sync_tmp_rec,
3305: x_return_status => l_return_status
3306: );
3307: --
3308: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3309: --
3310: x_return_status := l_return_status;
3311: --
3312: IF l_debug_on THEN
3315: END IF;
3316: --
3317: return;
3318: --
3319: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3320: --
3321: l_num_warnings := l_num_warnings + 1;
3322: --
3323: END IF;
3338: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
3339: p_detail_id_tab => l_mdc_detail_tab,
3340: x_return_status => x_return_status);
3341:
3342: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3343: IF l_debug_on THEN
3344: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3345: WSH_DEBUG_SV.pop(l_module_name);
3346: END IF;
3404: x_gross_weight1 => l_gross_weight1,
3405: x_gross_weight2 => l_gross_weight2,
3406: x_return_status => l_return_status);
3407:
3408: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3409: IF l_debug_on THEN
3410: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
3411: END IF;
3412: raise FND_API.G_EXC_ERROR;
3451: x_return_status => l_return_status,
3452: p_operation_type => l_operation_type
3453: );
3454: --
3455: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3456: --
3457: x_return_status := l_return_status;
3458: --
3459: IF l_debug_on THEN
3462: END IF;
3463: --
3464: return;
3465: --
3466: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3467: --
3468: l_num_warnings := l_num_warnings + 1;
3469: --
3470: END IF;
3499: p_tms_interface_flag => l_tms_interface_flag,
3500: p_gross_weight => l_gross_weight2, --using the container gross weight
3501: x_return_status => l_return_status);
3502:
3503: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3504: IF l_debug_on THEN
3505: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3506: END IF;
3507: raise FND_API.G_EXC_ERROR;
3504: IF l_debug_on THEN
3505: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3506: END IF;
3507: raise FND_API.G_EXC_ERROR;
3508: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3509: l_num_warnings := l_num_warnings + 1;
3510: END IF;
3511: END IF;
3512: -- End of OTM R12 : assign delivery detail
3517: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
3518: p_detail_id_tab => l_mdc_detail_tab,
3519: x_return_status => x_return_status);
3520:
3521: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3522: IF l_debug_on THEN
3523: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3524: WSH_DEBUG_SV.pop(l_module_name);
3525: END IF;
3549: p_diff_volume => l_del_id_for_container.volume,
3550: p_diff_fill_volume => l_del_id_for_container.volume,
3551: x_return_status => l_return_status);
3552:
3553: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3554: --
3555: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3556: WSH_UTIL_CORE.Add_Message(x_return_status);
3557: IF l_debug_on THEN
3551: x_return_status => l_return_status);
3552:
3553: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3554: --
3555: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3556: WSH_UTIL_CORE.Add_Message(x_return_status);
3557: IF l_debug_on THEN
3558: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3559: WSH_DEBUG_SV.pop(l_module_name);
3552:
3553: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3554: --
3555: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3556: WSH_UTIL_CORE.Add_Message(x_return_status);
3557: IF l_debug_on THEN
3558: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3559: WSH_DEBUG_SV.pop(l_module_name);
3560: END IF;
3585: p_diff_volume => l_del_id_for_detail.volume,
3586: p_diff_fill_volume => l_del_id_for_detail.volume,
3587: x_return_status => l_return_status);
3588:
3589: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3590: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3591: l_num_warnings := l_num_warnings + 1;
3592: ELSE
3593: --
3586: p_diff_fill_volume => l_del_id_for_detail.volume,
3587: x_return_status => l_return_status);
3588:
3589: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3590: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3591: l_num_warnings := l_num_warnings + 1;
3592: ELSE
3593: --
3594: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3590: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3591: l_num_warnings := l_num_warnings + 1;
3592: ELSE
3593: --
3594: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3595: WSH_UTIL_CORE.Add_Message(x_return_status);
3596: IF l_debug_on THEN
3597: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3598: WSH_DEBUG_SV.pop(l_module_name);
3591: l_num_warnings := l_num_warnings + 1;
3592: ELSE
3593: --
3594: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3595: WSH_UTIL_CORE.Add_Message(x_return_status);
3596: IF l_debug_on THEN
3597: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3598: WSH_DEBUG_SV.pop(l_module_name);
3599: END IF;
3614: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3615: p_entity_type => 'DELIVERY',
3616: p_entity_ids => l_del_tab,
3617: x_return_status => l_return_status);
3618: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3619: raise mark_reprice_error;
3620: END IF;
3621: END IF;
3622:
3620: END IF;
3621: END IF;
3622:
3623: IF l_num_warnings > 0 THEN
3624: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3625: END IF;
3626:
3627: --
3628: IF l_debug_on THEN
3632: exception
3633:
3634: -- OTM R12 : assign delivery detail
3635: WHEN FND_API.G_EXC_ERROR then
3636: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3637: --
3638: IF l_debug_on THEN
3639: WSH_DEBUG_SV.pop(l_module_name);
3640: END IF;
3644:
3645: WHEN mark_reprice_error then
3646: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
3647: x_return_status := l_return_status;
3648: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3649: --
3650: IF l_debug_on THEN
3651: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3652: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3652: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3653: END IF;
3654: --
3655: WHEN invalid_detail then
3656: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3657: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
3658: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
3659: wsh_util_core.add_message(x_return_status,l_module_name);
3660: --
3655: WHEN invalid_detail then
3656: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3657: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
3658: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
3659: wsh_util_core.add_message(x_return_status,l_module_name);
3660: --
3661: IF l_debug_on THEN
3662: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3663: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
3664: END IF;
3665: --
3666: RETURN;
3667: WHEN others THEN
3668: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3669: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_CONT',l_module_name);
3670: --
3671: IF l_debug_on THEN
3672: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3665: --
3666: RETURN;
3667: WHEN others THEN
3668: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3669: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_CONT',l_module_name);
3670: --
3671: IF l_debug_on THEN
3672: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3673: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3700: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
3701: l_cont_fill_pc NUMBER;
3702:
3703: /* H projects: pricing integration csun */
3704: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
3705: l_return_status VARCHAR2(1);
3706: l_del_rec C_DEL_ID_FOR_CONT_OR_DETAIL%ROWTYPE;
3707: mark_reprice_error EXCEPTION;
3708:
3709: l_num_warnings number := 0;
3710: -- K LPN CONV. rv
3711: l_wms_org VARCHAR2(10) := 'N';
3712: l_sync_tmp_rec wsh_glbl_var_strct_grp.sync_tmp_rec_type;
3713: l_mdc_detail_tab wsh_util_core.id_tab_type;
3714:
3715: cursor l_parent_cnt_csr (p_cnt_inst_id IN NUMBER) is
3716: select organization_id,
3717: nvl(line_direction,'O')
3745: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
3746: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
3747: END IF;
3748: --
3749: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3750:
3751: -- J: W/V Changes
3752: OPEN C_DEL_ID_FOR_CONT_OR_DETAIL(p_detail_id);
3753: FETCH C_DEL_ID_FOR_CONT_OR_DETAIL INTO l_del_rec;
3809: p_diff_fill_volume => -1 * l_del_rec.volume,
3810: p_check_for_empty => 'Y',
3811: x_return_status => l_return_status);
3812:
3813: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3814: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3815: l_num_warnings := l_num_warnings + 1;
3816: ELSE
3817: --
3810: p_check_for_empty => 'Y',
3811: x_return_status => l_return_status);
3812:
3813: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3814: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3815: l_num_warnings := l_num_warnings + 1;
3816: ELSE
3817: --
3818: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3814: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3815: l_num_warnings := l_num_warnings + 1;
3816: ELSE
3817: --
3818: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3819: WSH_UTIL_CORE.Add_Message(x_return_status);
3820: IF l_debug_on THEN
3821: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3822: WSH_DEBUG_SV.pop(l_module_name);
3815: l_num_warnings := l_num_warnings + 1;
3816: ELSE
3817: --
3818: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3819: WSH_UTIL_CORE.Add_Message(x_return_status);
3820: IF l_debug_on THEN
3821: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3822: WSH_DEBUG_SV.pop(l_module_name);
3823: END IF;
3854: p_sync_tmp_rec => l_sync_tmp_rec,
3855: x_return_status => l_return_status
3856: );
3857:
3858: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3859: THEN
3860: IF l_debug_on THEN
3861: WSH_DEBUG_SV.log(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE returned ',l_return_status);
3862: END IF;
3860: IF l_debug_on THEN
3861: WSH_DEBUG_SV.log(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE returned ',l_return_status);
3862: END IF;
3863: RAISE e_abort;
3864: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3865: l_num_warnings := l_num_warnings + 1;
3866: END IF;
3867: --}
3868: END IF;
3878: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
3879: p_detail_id_tab => l_mdc_detail_tab,
3880: x_return_status => x_return_status);
3881:
3882: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3883: IF l_debug_on THEN
3884: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3885: WSH_DEBUG_SV.pop(l_module_name);
3886: END IF;
3899: p_organization_id => l_del_rec.organization_id,
3900: x_param_info => l_param_info,
3901: x_return_status => l_return_status);
3902:
3903: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3904: IF l_debug_on THEN
3905: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
3906: END IF;
3907: raise e_abort;
3929: p_vol_uom_code => l_del_rec.volume_uom_code,
3930: p_inv_item_id => l_del_rec.inventory_item_id,
3931: x_return_status => l_return_status);
3932:
3933: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3934: THEN
3935: IF l_debug_on THEN
3936: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.ADJUST_PARENT_WV returned '||l_return_status);
3937: END IF;
3935: IF l_debug_on THEN
3936: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.ADJUST_PARENT_WV returned '||l_return_status);
3937: END IF;
3938: RAISE e_abort;
3939: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3940: l_num_warnings := l_num_warnings + 1;
3941: END IF;
3942:
3943: --}
3964: p_diff_net_wt => l_del_rec.net_weight,
3965: p_diff_volume => l_del_rec.volume,
3966: p_diff_fill_volume => l_del_rec.volume,
3967: x_return_status => l_return_status);
3968: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3969: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3970: l_num_warnings := l_num_warnings + 1;
3971: ELSE
3972: --
3965: p_diff_volume => l_del_rec.volume,
3966: p_diff_fill_volume => l_del_rec.volume,
3967: x_return_status => l_return_status);
3968: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3969: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3970: l_num_warnings := l_num_warnings + 1;
3971: ELSE
3972: --
3973: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3969: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3970: l_num_warnings := l_num_warnings + 1;
3971: ELSE
3972: --
3973: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3974: WSH_UTIL_CORE.Add_Message(x_return_status);
3975: IF l_debug_on THEN
3976: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3977: WSH_DEBUG_SV.pop(l_module_name);
3970: l_num_warnings := l_num_warnings + 1;
3971: ELSE
3972: --
3973: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3974: WSH_UTIL_CORE.Add_Message(x_return_status);
3975: IF l_debug_on THEN
3976: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3977: WSH_DEBUG_SV.pop(l_module_name);
3978: END IF;
3994: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3995: p_entity_type => 'DELIVERY',
3996: p_entity_ids => l_del_tab,
3997: x_return_status => l_return_status);
3998: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3999: raise mark_reprice_error;
4000: END IF;
4001: END IF;
4002:
4000: END IF;
4001: END IF;
4002:
4003: IF l_num_warnings > 0 THEN
4004: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4005: END IF;
4006:
4007: --
4008: IF l_debug_on THEN
4011: --
4012: exception
4013: -- J: W/V Changes
4014: WHEN e_abort THEN
4015: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4016: IF l_debug_on THEN
4017: WSH_DEBUG_SV.pop(l_module_name);
4018: END IF;
4019:
4019:
4020: WHEN mark_reprice_error THEN
4021: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
4022: x_return_status := l_return_status;
4023: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
4024:
4025: --
4026: IF l_debug_on THEN
4027: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4028: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
4029: END IF;
4030: --
4031: WHEN invalid_detail then
4032: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4033: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
4034: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
4035: wsh_util_core.add_message(x_return_status,l_module_name);
4036: --
4031: WHEN invalid_detail then
4032: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4033: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
4034: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
4035: wsh_util_core.add_message(x_return_status,l_module_name);
4036: --
4037: IF l_debug_on THEN
4038: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4039: WSH_DEBUG_SV.pop(l_module_name);
4040: END IF;
4041: --
4042: RETURN;
4043: WHEN others THEN
4044: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_CONT',l_module_name);
4045: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4046:
4047: --
4048: IF l_debug_on THEN
4041: --
4042: RETURN;
4043: WHEN others THEN
4044: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_CONT',l_module_name);
4045: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4046:
4047: --
4048: IF l_debug_on THEN
4049: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4077: --
4078: BEGIN
4079: --
4080: --
4081: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4082: --
4083: --
4084: END Assign_Cont_To_Delivery;
4085:
4127: grouping_attributes_not_match exception;
4128: arrival_SET_failed exception;
4129: ship_method_not_match exception;
4130: l_delivery_assignments_info WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_Type;
4131: l_mdc_detail_tab wsh_util_core.id_tab_type;
4132: DETAIL_DEL_FROM_to_not_SAME exception;
4133: det_confirmed exception;
4134: update_mol_carton_group_error exception;
4135:
4202: l_dummy_del_det_id NUMBER;
4203:
4204: /* H projects: pricing integration csun */
4205: l_scc_unassign_from_del NUMBER := 0;
4206: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
4207: l_status WSH_LOOKUPS.meaning%TYPE;
4208: l_return_status VARCHAR2(1);
4209:
4210: CURSOR get_lookup (l_code VARCHAR2) IS
4227: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
4228: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
4229: l_action_rec wsh_delivery_autocreate.action_rec_type;
4230: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
4231: l_matched_entities wsh_util_core.id_tab_type;
4232: l_out_rec wsh_delivery_autocreate.out_rec_type;
4233:
4234: -- K LPN CONV. rv
4235: l_detail_wms_org VARCHAR2(10) := 'N';
4240:
4241: -- OTM R12 : update delivery
4242: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4243: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4244: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
4245: l_tms_update VARCHAR2(1);
4246: l_trip_not_found VARCHAR2(1);
4247: l_trip_info_rec WSH_DELIVERY_VALIDATIONS.trip_info_rec_type;
4248: l_tms_version_number WSH_NEW_DELIVERIES.TMS_VERSION_NUMBER%TYPE;
4283: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
4284: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
4285: END IF;
4286: --
4287: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4288:
4289: -- OTM R12
4290: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4291:
4286: --
4287: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4288:
4289: -- OTM R12
4290: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4291:
4292: IF (l_gc3_is_installed IS NULL) THEN
4293: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
4294: END IF;
4289: -- OTM R12
4290: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4291:
4292: IF (l_gc3_is_installed IS NULL) THEN
4293: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
4294: END IF;
4295: l_assign_update := FALSE; --default assignment tms update to false
4296: -- End of OTM R12
4297:
4305: IF l_delivery_id <> p_delivery_id THEN
4306: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
4307: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
4308: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_id);
4309: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4310: wsh_util_core.add_message(x_return_status,l_module_name);
4311: --
4312: IF l_debug_on THEN
4313: WSH_DEBUG_SV.pop(l_module_name);
4306: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
4307: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
4308: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_id);
4309: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4310: wsh_util_core.add_message(x_return_status,l_module_name);
4311: --
4312: IF l_debug_on THEN
4313: WSH_DEBUG_SV.pop(l_module_name);
4314: END IF;
4390: x_gross_weight1 => l_gross_weight1,
4391: x_gross_weight2 => l_gross_weight2,
4392: x_return_status => l_return_status);
4393:
4394: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4395: IF l_debug_on THEN
4396: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
4397: END IF;
4398: raise FND_API.G_EXC_ERROR;
4428: END LOOP;
4429: CLOSE c_all_details_below;
4430:
4431: FOR j IN 0..(l_dd_id.COUNT-1) LOOP
4432: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4433: /* For each detail */
4434: IF (l_dd_id(j) < 0) THEN
4435: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4436: fnd_message.SET_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
4431: FOR j IN 0..(l_dd_id.COUNT-1) LOOP
4432: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4433: /* For each detail */
4434: IF (l_dd_id(j) < 0) THEN
4435: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4436: fnd_message.SET_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
4437: wsh_util_core.add_message(x_return_status,l_module_name);
4438: --
4439: IF l_debug_on THEN
4433: /* For each detail */
4434: IF (l_dd_id(j) < 0) THEN
4435: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4436: fnd_message.SET_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
4437: wsh_util_core.add_message(x_return_status,l_module_name);
4438: --
4439: IF l_debug_on THEN
4440: WSH_DEBUG_SV.pop(l_module_name);
4441: END IF;
4472: IF ((l_detail.delivery_id IS NOT NULL) AND (l_detail.delivery_id <> p_delivery_id)) THEN
4473: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
4474: FND_MESSAGE.SET_TOKEN('DET_NAME',l_detail.delivery_detail_id);
4475: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_detail.delivery_id);
4476: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4477: wsh_util_core.add_message(x_return_status,l_module_name);
4478: --
4479: IF l_debug_on THEN
4480: WSH_DEBUG_SV.pop(l_module_name);
4473: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
4474: FND_MESSAGE.SET_TOKEN('DET_NAME',l_detail.delivery_detail_id);
4475: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_detail.delivery_id);
4476: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4477: wsh_util_core.add_message(x_return_status,l_module_name);
4478: --
4479: IF l_debug_on THEN
4480: WSH_DEBUG_SV.pop(l_module_name);
4481: END IF;
4487: -- bug 2691385 - check to see if the container is empty
4488: WSH_CONTAINER_UTILITIES.Is_Empty (p_container_instance_id => l_dd_id(j),
4489: x_empty_flag => l_detail_is_empty_cont,
4490: x_return_status => x_return_status);
4491: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4492: return;
4493: END IF;
4494: ELSE --}{
4495: l_detail_is_empty_cont := 'E';
4544: IF l_debug_on THEN
4545: WSH_DEBUG_SV.log(l_module_name,'Return Status is ',l_return_status);
4546: END IF;
4547: --
4548: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4549: --
4550: x_return_status := l_return_status;
4551: --
4552: IF l_debug_on THEN
4554: END IF;
4555: --
4556: return;
4557: --
4558: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4559: --
4560: l_num_warnings := l_num_warnings + 1;
4561: --
4562: END IF;
4581: client_id = l_del.client_id -- LSP PROJECT
4582: WHERE delivery_detail_id = l_dd_id(j);
4583:
4584: IF (SQL%NOTFOUND) THEN
4585: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4586: RAISE NO_DATA_FOUND;
4587: END IF;
4588:
4589: --Bug 3383843
4608: l_detail.delivery_detail_id,
4609: l_attr_flag,
4610: x_return_status);
4611:
4612: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4614: fnd_message.SET_name('WSH', 'WSH_CONT_ATTR_ERROR');
4615: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_detail.delivery_detail_id);
4616: wsh_util_core.add_message(x_return_status,l_module_name);
4609: l_attr_flag,
4610: x_return_status);
4611:
4612: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4614: fnd_message.SET_name('WSH', 'WSH_CONT_ATTR_ERROR');
4615: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_detail.delivery_detail_id);
4616: wsh_util_core.add_message(x_return_status,l_module_name);
4617: --
4612: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4614: fnd_message.SET_name('WSH', 'WSH_CONT_ATTR_ERROR');
4615: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_detail.delivery_detail_id);
4616: wsh_util_core.add_message(x_return_status,l_module_name);
4617: --
4618: IF l_debug_on THEN
4619: WSH_DEBUG_SV.pop(l_module_name);
4620: END IF;
4650: x_matched_entities => l_matched_entities,
4651: x_out_rec => l_out_rec,
4652: x_return_status => l_group_status);
4653:
4654: IF (l_group_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4655: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4656: --
4657: IF l_debug_on THEN
4658: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4651: x_out_rec => l_out_rec,
4652: x_return_status => l_group_status);
4653:
4654: IF (l_group_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4655: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4656: --
4657: IF l_debug_on THEN
4658: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4659: WSH_DEBUG_SV.pop(l_module_name);
4693: (p_delivery_id => p_delivery_id,
4694: x_trip_info_rec => l_trip_info_rec,
4695: x_return_status => l_return_status);
4696:
4697: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4698: x_return_status := l_return_status;
4699: IF l_debug_on THEN
4700: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
4701: WSH_DEBUG_SV.pop(l_module_name);
4715: p_delivery_id => p_delivery_id,
4716: x_delivery_rec => l_delivery_info,
4717: x_return_status => l_return_status);
4718:
4719: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4720: x_return_status := l_return_status;
4721: IF l_debug_on THEN
4722: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
4723: WSH_DEBUG_SV.pop(l_module_name);
4786: p_delivery_info_tab => l_delivery_info_tab,
4787: p_new_interface_flag_tab => l_new_interface_flag_tab,
4788: x_return_status => l_return_status);
4789:
4790: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4791: x_return_status := l_return_status;
4792: IF l_debug_on THEN
4793: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
4794: WSH_DEBUG_SV.pop(l_module_name);
4846: x_return_status => l_return_status
4847: );
4848:
4849: --
4850: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4851: --
4852: x_return_status := l_return_status;
4853: --
4854: IF l_debug_on THEN
4857: END IF;
4858: --
4859: return;
4860: --
4861: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4862: --
4863: l_num_warnings := l_num_warnings + 1;
4864: --
4865: END IF;
4877: WHERE delivery_detail_id = l_detail.delivery_detail_id
4878: AND (type IN ('S', 'O') OR type IS NULL);
4879:
4880: IF (SQL%NOTFOUND) THEN
4881: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4882: RAISE NO_DATA_FOUND;
4883: END IF;
4884:
4885: l_mdc_detail_tab(1) := l_detail.delivery_detail_id;
4886: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
4887: p_detail_id_tab => l_mdc_detail_tab,
4888: x_return_status => x_return_status);
4889:
4890: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4891: IF l_debug_on THEN
4892: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
4893: WSH_DEBUG_SV.pop(l_module_name);
4894: END IF;
4948: WHERE delivery_id = p_delivery_id;
4949: --
4950: IF (SQL%NOTFOUND)
4951: THEN
4952: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4953: RAISE INVALID_DEL;
4954: END IF;
4955: --}
4956: END IF;
4981: x_return_status => x_return_status,
4982: x_msg_cnt => l_msg_count,
4983: x_msg_data => l_msg_data);
4984:
4985: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
4986: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4987: RAISE update_mol_carton_group_error;
4988: END IF;
4989: END IF;
4982: x_msg_cnt => l_msg_count,
4983: x_msg_data => l_msg_data);
4984:
4985: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
4986: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4987: RAISE update_mol_carton_group_error;
4988: END IF;
4989: END IF;
4990: --}
5002: NULL,
5003: p_delivery_id,
5004: l_detail.delivery_detail_id,
5005: x_return_status);
5006: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5007: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
5008: --
5009: IF l_debug_on THEN
5010: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5011: END IF;
5012: --
5013: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_detail.delivery_detail_id);
5014: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
5015: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5016: --
5017: IF l_debug_on THEN
5018: WSH_DEBUG_SV.pop(l_module_name);
5019: END IF;
5020: --
5021: return;
5022: END IF;
5023: END IF;
5024: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5025: END IF;--for container
5026: /* H projects: pricing integration csun , if any lines are
5027: successfully unassign from the delivery, the delivery needs to be marked
5028: for repricing */
5051: p_tms_interface_flag => l_tms_interface_flag,
5052: p_gross_weight => l_gross_weight1,
5053: x_return_status => l_return_status);
5054:
5055: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
5056: IF l_debug_on THEN
5057: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
5058: END IF;
5059: raise FND_API.G_EXC_ERROR;
5056: IF l_debug_on THEN
5057: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
5058: END IF;
5059: raise FND_API.G_EXC_ERROR;
5060: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5061: l_num_warnings := l_num_warnings + 1;
5062: END IF;
5063: END IF;
5064: -- End of OTM R12 : assign delivery detail
5075: p_diff_volume => l_vol,
5076: p_diff_fill_volume => l_vol,
5077: x_return_status => l_return_status);
5078:
5079: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5080: --
5081: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5082: WSH_UTIL_CORE.Add_Message(x_return_status);
5083: IF l_debug_on THEN
5077: x_return_status => l_return_status);
5078:
5079: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5080: --
5081: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5082: WSH_UTIL_CORE.Add_Message(x_return_status);
5083: IF l_debug_on THEN
5084: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
5085: WSH_DEBUG_SV.pop(l_module_name);
5078:
5079: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5080: --
5081: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5082: WSH_UTIL_CORE.Add_Message(x_return_status);
5083: IF l_debug_on THEN
5084: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
5085: WSH_DEBUG_SV.pop(l_module_name);
5086: END IF;
5106: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
5107: p_entity_type => 'DELIVERY',
5108: p_entity_ids => l_del_tab,
5109: x_return_status => l_return_status);
5110: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5111: raise mark_reprice_error;
5112: END IF;
5113: END IF;
5114:
5112: END IF;
5113: END IF;
5114:
5115: -- LPN CONV. rv
5116: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5117: --
5118: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5119: --
5120: ELSE
5114:
5115: -- LPN CONV. rv
5116: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5117: --
5118: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5119: --
5120: ELSE
5121: --
5122: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5118: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5119: --
5120: ELSE
5121: --
5122: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5123: --
5124: END IF;
5125: -- LPN CONV. rv
5126:
5132: --
5133: EXCEPTION
5134: -- J-IB-NPARIKH-{
5135: WHEN FND_API.G_EXC_ERROR THEN
5136: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
5137: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
5138: --
5139: IF l_debug_on
5140: THEN
5133: EXCEPTION
5134: -- J-IB-NPARIKH-{
5135: WHEN FND_API.G_EXC_ERROR THEN
5136: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
5137: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
5138: --
5139: IF l_debug_on
5140: THEN
5141: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
5144:
5145: WHEN mark_reprice_error THEN
5146: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
5147: x_return_status := l_return_status;
5148: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5149:
5150: --
5151: IF l_debug_on THEN
5152: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5155: --
5156: WHEN update_mol_carton_group_error THEN
5157: fnd_message.SET_name('WSH', 'WSH_MOL_CARTON_GROUP_ERROR');
5158: x_return_status := l_return_status;
5159: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5160:
5161: --
5162: IF l_debug_on THEN
5163: WSH_DEBUG_SV.logmsg(l_module_name,'update_mol_carton_group_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5165: END IF;
5166:
5167:
5168: WHEN INVALID_DEL THEN
5169: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5170: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
5171: wsh_util_core.add_message(x_return_status,l_module_name);
5172: --
5173: IF l_debug_on THEN
5167:
5168: WHEN INVALID_DEL THEN
5169: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5170: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
5171: wsh_util_core.add_message(x_return_status,l_module_name);
5172: --
5173: IF l_debug_on THEN
5174: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DEL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DEL');
5176: END IF;
5177: RETURN;
5178: --
5179: WHEN DEL_NOT_UPDATABLE THEN
5180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5181: wsh_util_core.add_message(x_return_status,l_module_name);
5182: --
5183: IF l_debug_on THEN
5184: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5177: RETURN;
5178: --
5179: WHEN DEL_NOT_UPDATABLE THEN
5180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5181: wsh_util_core.add_message(x_return_status,l_module_name);
5182: --
5183: IF l_debug_on THEN
5184: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5185: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DEL_NOT_UPDATABLE');
5186: END IF;
5187: --
5188: RETURN;
5189: WHEN INVALID_DETAIL THEN
5190: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5191: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DETAIL');
5192: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5193: wsh_util_core.add_message(x_return_status,l_module_name);
5194: --
5189: WHEN INVALID_DETAIL THEN
5190: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5191: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DETAIL');
5192: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5193: wsh_util_core.add_message(x_return_status,l_module_name);
5194: --
5195: IF l_debug_on THEN
5196: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5197: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
5198: END IF;
5199: --
5200: RETURN;
5201: WHEN DET_CONFIRMED THEN
5202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5203: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
5204: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5205: wsh_util_core.add_message(x_return_status,l_module_name);
5206: --
5201: WHEN DET_CONFIRMED THEN
5202: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5203: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
5204: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5205: wsh_util_core.add_message(x_return_status,l_module_name);
5206: --
5207: IF l_debug_on THEN
5208: WSH_DEBUG_SV.logmsg(l_module_name,'DET_CONFIRMED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5209: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DET_CONFIRMED');
5210: END IF;
5211: --
5212: RETURN;
5213: WHEN detail_del_FROM_to_not_same THEN
5214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5215: fnd_message.SET_name('WSH', 'WSH_DET_SHIP_F_T_N_MATCH');
5216: wsh_util_core.add_message(x_return_status,l_module_name);
5217:
5218:
5212: RETURN;
5213: WHEN detail_del_FROM_to_not_same THEN
5214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5215: fnd_message.SET_name('WSH', 'WSH_DET_SHIP_F_T_N_MATCH');
5216: wsh_util_core.add_message(x_return_status,l_module_name);
5217:
5218:
5219:
5220: --
5224: END IF;
5225: --
5226: RETURN;
5227: WHEN ship_method_not_match THEN
5228: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5229: fnd_message.SET_name('WSH', 'WSH_DET_SHIP_METHOD_NOT_MATCH');
5230: wsh_util_core.add_message(x_return_status,l_module_name);
5231: --
5232: IF l_debug_on THEN
5226: RETURN;
5227: WHEN ship_method_not_match THEN
5228: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5229: fnd_message.SET_name('WSH', 'WSH_DET_SHIP_METHOD_NOT_MATCH');
5230: wsh_util_core.add_message(x_return_status,l_module_name);
5231: --
5232: IF l_debug_on THEN
5233: WSH_DEBUG_SV.logmsg(l_module_name,'SHIP_METHOD_NOT_MATCH exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5234: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SHIP_METHOD_NOT_MATCH');
5235: END IF;
5236: --
5237: RETURN;
5238: WHEN others THEN
5239: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5240: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5241: --
5242: IF l_debug_on THEN
5243: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5236: --
5237: RETURN;
5238: WHEN others THEN
5239: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5240: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5241: --
5242: IF l_debug_on THEN
5243: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5244: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5281: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
5282: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5283: END IF;
5284: --
5285: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5286: --
5287: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
5288: (
5289: p_delivery_id => p_delivery_id
5303: END IF;
5304: --
5305: EXCEPTION
5306: WHEN others THEN
5307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5308: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5309: --
5310: IF l_debug_on THEN
5311: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5304: --
5305: EXCEPTION
5306: WHEN others THEN
5307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5308: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5309: --
5310: IF l_debug_on THEN
5311: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5312: END IF;
5331: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PACKAGE_NAME || '.' || 'UNASSIGN_CONT_FROM_DELIVERY';
5332: --
5333: BEGIN
5334: --
5335: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5336: --
5337: END Unassign_Cont_FROM_Delivery;
5338:
5339: --
5417: x_pack_status VARCHAR2(30);
5418:
5419: End of adding cursor for fill percentage
5420: */
5421: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5422: l_del_id_for_container1 C_DEL_ID_FOR_CONT_OR_DETAIL%ROWTYPE;
5423: l_del_id_for_container2 C_DEL_ID_FOR_CONT_OR_DETAIL%ROWTYPE;
5424:
5425: detail_cont_name WSH_DELIVERY_DETAILS.CONTAINER_NAME%TYPE;
5427:
5428: l_group_by_flags WSH_DELIVERY_AUTOCREATE.group_by_flags_rec_type;
5429: /* H projects: pricing integration csun */
5430: m NUMBER := 0;
5431: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
5432: mark_reprice_error EXCEPTION;
5433: l_plan_flag varchar2(1);
5434: l_content_count NUMBER;
5435:
5441: l_sync_tmp_recTbl wsh_glbl_var_strct_grp.sync_tmp_recTbl_type;
5442: l_num_warnings NUMBER := 0;
5443: l_operation_type VARCHAR2(100);
5444: -- K LPN CONV. rv
5445: l_mdc_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
5446: l_ignore_det_tab WSH_UTIL_CORE.Id_Tab_Type;
5447:
5448: -- OTM R12 : assign delivery detail
5449: l_delivery_was_empty BOOLEAN;
5442: l_num_warnings NUMBER := 0;
5443: l_operation_type VARCHAR2(100);
5444: -- K LPN CONV. rv
5445: l_mdc_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
5446: l_ignore_det_tab WSH_UTIL_CORE.Id_Tab_Type;
5447:
5448: -- OTM R12 : assign delivery detail
5449: l_delivery_was_empty BOOLEAN;
5450: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
5476: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID1',P_DETAIL_ID1);
5477: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID2',P_DETAIL_ID2);
5478: END IF;
5479: --
5480: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5481:
5482: -- OTM R12
5483: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
5484:
5479: --
5480: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5481:
5482: -- OTM R12
5483: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
5484:
5485: IF (l_gc3_is_installed IS NULL) THEN
5486: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
5487: END IF;
5482: -- OTM R12
5483: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
5484:
5485: IF (l_gc3_is_installed IS NULL) THEN
5486: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
5487: END IF;
5488: l_assign_update := FALSE; --default assignment tms update to false
5489: -- End of OTM R12
5490:
5579: END IF;
5580: --
5581: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5582: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5583: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5584: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5585: --
5586: IF l_debug_on THEN
5587: WSH_DEBUG_SV.pop(l_module_name);
5580: --
5581: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5582: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5583: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5584: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5585: --
5586: IF l_debug_on THEN
5587: WSH_DEBUG_SV.pop(l_module_name);
5588: END IF;
5605: x_gross_weight1 => l_gross_weight1,
5606: x_gross_weight2 => l_gross_weight2,
5607: x_return_status => l_return_status);
5608:
5609: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5610: --handle the error approriately to the procedure this code is in
5611: IF l_debug_on THEN
5612: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
5613: END IF;
5642: END IF;
5643: --
5644: FND_MESSAGE.SET_TOKEN('PARENT_CONTAINER',
5645: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5646: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5647: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5648: --
5649: IF l_debug_on THEN
5650: WSH_DEBUG_SV.pop(l_module_name);
5643: --
5644: FND_MESSAGE.SET_TOKEN('PARENT_CONTAINER',
5645: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5646: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5647: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5648: --
5649: IF l_debug_on THEN
5650: WSH_DEBUG_SV.pop(l_module_name);
5651: END IF;
5673: END IF;
5674: --
5675: FND_MESSAGE.SET_TOKEN('ENTITY2',
5676: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5677: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5678: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5679: --
5680: IF l_debug_on THEN
5681: WSH_DEBUG_SV.pop(l_module_name);
5674: --
5675: FND_MESSAGE.SET_TOKEN('ENTITY2',
5676: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5677: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5678: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5679: --
5680: IF l_debug_on THEN
5681: WSH_DEBUG_SV.pop(l_module_name);
5682: END IF;
5700: END IF;
5701: --
5702: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5703: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5704: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5705: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5706: --
5707: IF l_debug_on THEN
5708: WSH_DEBUG_SV.pop(l_module_name);
5701: --
5702: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5703: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5704: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5705: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5706: --
5707: IF l_debug_on THEN
5708: WSH_DEBUG_SV.pop(l_module_name);
5709: END IF;
5736: p_in_ids => l_ignore_det_tab,
5737: p_action_code => 'IGNORE_PLAN',
5738: x_return_status => x_return_status);
5739:
5740: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5741:
5742: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_DIFF_IGNOREPLAN');
5743: FND_MESSAGE.SET_TOKEN('ENTITY1',nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5744: --
5746: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5747: END IF;
5748: --
5749: FND_MESSAGE.SET_TOKEN('ENTITY2',nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5750: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5751: --
5752: IF l_debug_on THEN
5753: WSH_DEBUG_SV.pop(l_module_name);
5754: END IF;
5776: p_in_ids => l_ignore_det_tab,
5777: p_action_code => 'IGNORE_PLAN',
5778: x_return_status => l_return_status);
5779:
5780: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
5781: l_display_error := TRUE;
5782: ELSE
5783: l_display_error := FALSE;
5784: END IF;--}
5797: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5798: END IF;
5799: --
5800: FND_MESSAGE.SET_TOKEN('ENTITY2',nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5801: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5802: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5803: --
5804: IF l_debug_on THEN
5805: WSH_DEBUG_SV.pop(l_module_name);
5798: END IF;
5799: --
5800: FND_MESSAGE.SET_TOKEN('ENTITY2',nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5801: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5802: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5803: --
5804: IF l_debug_on THEN
5805: WSH_DEBUG_SV.pop(l_module_name);
5806: END IF;
5843: END IF;
5844: --
5845: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5846: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5847: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5848: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5849: --
5850: IF l_debug_on THEN
5851: WSH_DEBUG_SV.pop(l_module_name);
5844: --
5845: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5846: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5847: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5848: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5849: --
5850: IF l_debug_on THEN
5851: WSH_DEBUG_SV.pop(l_module_name);
5852: END IF;
5869: p_client_id => l_del_id_for_container1.client_id, -- LSP PROJECT
5870: x_group_by_flags => l_group_by_flags,
5871: x_return_status => x_return_status);
5872:
5873: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5874: x_return_status := x_return_status;
5875: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5876: --
5877: IF l_debug_on THEN
5871: x_return_status => x_return_status);
5872:
5873: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5874: x_return_status := x_return_status;
5875: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5876: --
5877: IF l_debug_on THEN
5878: WSH_DEBUG_SV.pop(l_module_name);
5879: END IF;
5901:
5902: if l_plan_flag <> 'N' then
5903: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
5904:
5905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5906:
5907: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5908: --
5909: IF l_debug_on THEN
5903: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
5904:
5905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5906:
5907: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5908: --
5909: IF l_debug_on THEN
5910: WSH_DEBUG_SV.pop(l_module_name);
5911: END IF;
5921:
5922: if l_plan_flag <> 'N' then
5923: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
5924:
5925: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5926:
5927: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5928: --
5929: IF l_debug_on THEN
5923: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
5924:
5925: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5926:
5927: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5928: --
5929: IF l_debug_on THEN
5930: WSH_DEBUG_SV.pop(l_module_name);
5931: END IF;
5955: END IF;
5956: --
5957: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5958: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5959: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5960: --
5961: IF l_debug_on THEN
5962: WSH_DEBUG_SV.pop(l_module_name);
5963: END IF;
5982: END IF;
5983: --
5984: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5985: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5986: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5987: --
5988: IF l_debug_on THEN
5989: WSH_DEBUG_SV.pop(l_module_name);
5990: END IF;
6009: END IF;
6010: --
6011: FND_MESSAGE.SET_TOKEN('CONT_NAME',
6012: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
6013: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6014: --
6015: IF l_debug_on THEN
6016: WSH_DEBUG_SV.pop(l_module_name);
6017: END IF;
6036: END IF;
6037: --
6038: FND_MESSAGE.SET_TOKEN('CONT_NAME',
6039: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
6040: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6041: --
6042: IF l_debug_on THEN
6043: WSH_DEBUG_SV.pop(l_module_name);
6044: END IF;
6068: END IF;
6069: --
6070: FND_MESSAGE.SET_TOKEN('CONT_NAME',
6071: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
6072: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
6073: --
6074: IF l_debug_on THEN
6075: WSH_DEBUG_SV.pop(l_module_name);
6076: END IF;
6107: p_diff_volume => -1 * l_del_id_for_container1.volume,
6108: p_diff_fill_volume => -1 * l_del_id_for_container1.volume,
6109: x_return_status => l_return_status);
6110:
6111: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6112: --
6113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6114: WSH_UTIL_CORE.Add_Message(x_return_status);
6115: IF l_debug_on THEN
6109: x_return_status => l_return_status);
6110:
6111: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6112: --
6113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6114: WSH_UTIL_CORE.Add_Message(x_return_status);
6115: IF l_debug_on THEN
6116: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6117: WSH_DEBUG_SV.pop(l_module_name);
6110:
6111: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6112: --
6113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6114: WSH_UTIL_CORE.Add_Message(x_return_status);
6115: IF l_debug_on THEN
6116: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6117: WSH_DEBUG_SV.pop(l_module_name);
6118: END IF;
6176: x_return_status => l_return_status,
6177: p_operation_type => l_operation_type
6178: );
6179: --
6180: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6181: --
6182: x_return_status := l_return_status;
6183: --
6184: IF l_debug_on THEN
6187: END IF;
6188: --
6189: return;
6190: --
6191: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6192: --
6193: l_num_warnings := l_num_warnings + 1;
6194: --
6195: END IF;
6219: p_tms_interface_flag => l_tms_interface_flag,
6220: p_gross_weight => l_gross_weight2, --using the gross weight of container2
6221: x_return_status => l_return_status);
6222:
6223: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6224: IF l_debug_on THEN
6225: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6226: END IF;
6227: raise FND_API.G_EXC_ERROR;
6224: IF l_debug_on THEN
6225: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6226: END IF;
6227: raise FND_API.G_EXC_ERROR;
6228: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6229: l_num_warnings := l_num_warnings + 1;
6230: END IF;
6231:
6232: END IF;
6238: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
6239: p_detail_id_tab => l_mdc_detail_tab,
6240: x_return_status => x_return_status);
6241:
6242: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6243: IF l_debug_on THEN
6244: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6245: WSH_DEBUG_SV.pop(l_module_name);
6246: END IF;
6268: p_diff_volume => l_del_id_for_container2.volume,
6269: p_diff_fill_volume => l_del_id_for_container2.volume,
6270: x_return_status => l_return_status);
6271:
6272: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6273: --
6274: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6275: WSH_UTIL_CORE.Add_Message(x_return_status);
6276: IF l_debug_on THEN
6270: x_return_status => l_return_status);
6271:
6272: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6273: --
6274: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6275: WSH_UTIL_CORE.Add_Message(x_return_status);
6276: IF l_debug_on THEN
6277: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6278: WSH_DEBUG_SV.pop(l_module_name);
6271:
6272: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6273: --
6274: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6275: WSH_UTIL_CORE.Add_Message(x_return_status);
6276: IF l_debug_on THEN
6277: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6278: WSH_DEBUG_SV.pop(l_module_name);
6279: END IF;
6340: x_return_status => l_return_status,
6341: p_operation_type => l_operation_type
6342: );
6343: --
6344: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6345: --
6346: x_return_status := l_return_status;
6347: --
6348: IF l_debug_on THEN
6351: END IF;
6352: --
6353: return;
6354: --
6355: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6356: --
6357: l_num_warnings := l_num_warnings + 1;
6358: --
6359: END IF;
6383: p_tms_interface_flag => l_tms_interface_flag,
6384: p_gross_weight => l_gross_weight1, --using the gross weight of container1
6385: x_return_status => l_return_status);
6386:
6387: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6388: IF l_debug_on THEN
6389: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6390: END IF;
6391: raise FND_API.G_EXC_ERROR;
6388: IF l_debug_on THEN
6389: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6390: END IF;
6391: raise FND_API.G_EXC_ERROR;
6392: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6393: l_num_warnings := l_num_warnings + 1;
6394: END IF;
6395: END IF;
6396: -- End of OTM R12 : assign delivery detail
6401: END LOOP;
6402: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
6403: p_detail_id_tab => l_mdc_detail_tab,
6404: x_return_status => x_return_status);
6405: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6406: IF l_debug_on THEN
6407: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6408: WSH_DEBUG_SV.pop(l_module_name);
6409: END IF;
6450: p_sync_tmp_rec => l_sync_tmp_rec,
6451: x_return_status => l_return_status
6452: );
6453: --
6454: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6455: --
6456: x_return_status := l_return_status;
6457: --
6458: IF l_debug_on THEN
6461: END IF;
6462: --
6463: return;
6464: --
6465: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6466: --
6467: l_num_warnings := l_num_warnings + 1;
6468: --
6469: END IF;
6483: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
6484: p_detail_id_tab => l_mdc_detail_tab,
6485: x_return_status => x_return_status);
6486:
6487: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6488: IF l_debug_on THEN
6489: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6490: WSH_DEBUG_SV.pop(l_module_name);
6491: END IF;
6507: p_diff_volume => l_del_id_for_container1.volume,
6508: p_diff_fill_volume => l_del_id_for_container1.volume,
6509: x_return_status => l_return_status);
6510:
6511: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6512: --
6513: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6514: WSH_UTIL_CORE.Add_Message(x_return_status);
6515: IF l_debug_on THEN
6509: x_return_status => l_return_status);
6510:
6511: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6512: --
6513: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6514: WSH_UTIL_CORE.Add_Message(x_return_status);
6515: IF l_debug_on THEN
6516: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6517: WSH_DEBUG_SV.pop(l_module_name);
6510:
6511: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6512: --
6513: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6514: WSH_UTIL_CORE.Add_Message(x_return_status);
6515: IF l_debug_on THEN
6516: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6517: WSH_DEBUG_SV.pop(l_module_name);
6518: END IF;
6558:
6559: exception
6560: WHEN others THEN
6561: rollback to before_cont_assignment;
6562: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6563: fnd_message.SET_name('WSH', 'WSH_CONT_LOOP_NO_PACK');
6564: fnd_message.set_token('DETAIL_CONTAINER', detail_cont_name);
6565: fnd_message.set_token('PARENT_CONTAINER', parent_cont_name);
6566: wsh_util_core.add_message(x_return_status,l_module_name);
6562: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6563: fnd_message.SET_name('WSH', 'WSH_CONT_LOOP_NO_PACK');
6564: fnd_message.set_token('DETAIL_CONTAINER', detail_cont_name);
6565: fnd_message.set_token('PARENT_CONTAINER', parent_cont_name);
6566: wsh_util_core.add_message(x_return_status,l_module_name);
6567: --
6568: IF l_debug_on THEN
6569: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected Error has occured. Oracle Err Mesg is'||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION1 : OTHERS');
6588: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
6589: p_entity_type => 'DELIVERY',
6590: p_entity_ids => l_del_tab,
6591: x_return_status => l_return_status);
6592: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6593: raise mark_reprice_error;
6594: END IF;
6595: END IF;
6596:
6594: END IF;
6595: END IF;
6596:
6597: -- LPN CONV. rv
6598: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6599: --
6600: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6601: --
6602: ELSE
6596:
6597: -- LPN CONV. rv
6598: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6599: --
6600: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6601: --
6602: ELSE
6603: --
6604: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6600: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6601: --
6602: ELSE
6603: --
6604: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6605: --
6606: END IF;
6607: -- LPN CONV. rv
6608:
6615: exception
6616:
6617: -- OTM R12 : assign delivery detail
6618: WHEN FND_API.G_EXC_ERROR then
6619: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6620: --
6621: IF l_debug_on THEN
6622: WSH_DEBUG_SV.pop(l_module_name);
6623: END IF;
6627:
6628: WHEN mark_reprice_error THEN
6629: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
6630: x_return_status := l_return_status;
6631: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
6632: --
6633: IF l_debug_on THEN
6634: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6635: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
6641: end if;
6642: if c_del_id_for_cont_or_detail%ISOPEN THEN
6643: close c_del_id_for_cont_or_detail;
6644: end if;
6645: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6646: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',l_module_name);
6647: --
6648: IF l_debug_on THEN
6649: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6642: if c_del_id_for_cont_or_detail%ISOPEN THEN
6643: close c_del_id_for_cont_or_detail;
6644: end if;
6645: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6646: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',l_module_name);
6647: --
6648: IF l_debug_on THEN
6649: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6650: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6684: BEGIN
6685:
6686: --
6687: --
6688: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6689: --
6690: --
6691: END Unassign_Cont_from_Cont;
6692:
6745: and wdd.delivery_detail_id = wda.delivery_detail_id
6746: and ((wda.delivery_id IS not null) or (wda.parent_delivery_detail_id IS not null));
6747:
6748: l_assign c_assign_rec%ROWTYPE;
6749: l_mdc_detail_tab wsh_util_core.id_tab_type;
6750: /** We just need a Warning when ever we Unassign a Detail from a Delivery and
6751: if that Detail is part of a Ship Set */
6752: l_delivery_detail_id NUMBER;
6753: invalid_detail exception;
6785: l_vol NUMBER;
6786: l_container_flag VARCHAR2(1);
6787: l_delivery_id NUMBER;
6788:
6789: l_dd_id WSH_UTIL_CORE.Id_Tab_Type;
6790: l_del_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6791: l_parent_dd_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6792: l_line_dir_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6793: l_cnt_flag_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6786: l_container_flag VARCHAR2(1);
6787: l_delivery_id NUMBER;
6788:
6789: l_dd_id WSH_UTIL_CORE.Id_Tab_Type;
6790: l_del_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6791: l_parent_dd_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6792: l_line_dir_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6793: l_cnt_flag_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6794: l_det_org_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6787: l_delivery_id NUMBER;
6788:
6789: l_dd_id WSH_UTIL_CORE.Id_Tab_Type;
6790: l_del_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6791: l_parent_dd_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6792: l_line_dir_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6793: l_cnt_flag_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6794: l_det_org_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6795: i BINARY_INTEGER := 0;
6790: l_del_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6791: l_parent_dd_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6792: l_line_dir_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6793: l_cnt_flag_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6794: l_det_org_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6795: i BINARY_INTEGER := 0;
6796: j BINARY_INTEGER :=0;
6797:
6798: l_dummy_del_det_id NUMBER;
6797:
6798: l_dummy_del_det_id NUMBER;
6799: l_del_det_id NUMBER;
6800:
6801: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
6802: l_status WSH_LOOKUPS.meaning%TYPE;
6803:
6804: CURSOR get_lookup (l_code VARCHAR2) IS
6805: SELECT meaning
6816: l_rel_status VARCHAR2(32767);
6817:
6818: l_null_delivery_id NUMBER; -- Bugfix 3768823
6819:
6820: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
6821: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
6822:
6823: -- K LPN CONV. rv
6824: l_wms_org VARCHAR2(10) := 'N';
6840: -- K LPN CONV. rv
6841: --
6842:
6843: -- OTM R12 : unassign delivery detail
6844: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6845: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6846: l_is_delivery_empty VARCHAR2(1);
6847: l_gc3_is_installed VARCHAR2(1);
6848: l_call_update VARCHAR2(1);
6841: --
6842:
6843: -- OTM R12 : unassign delivery detail
6844: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6845: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6846: l_is_delivery_empty VARCHAR2(1);
6847: l_gc3_is_installed VARCHAR2(1);
6848: l_call_update VARCHAR2(1);
6849: l_gross_weight WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE;
6846: l_is_delivery_empty VARCHAR2(1);
6847: l_gc3_is_installed VARCHAR2(1);
6848: l_call_update VARCHAR2(1);
6849: l_gross_weight WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE;
6850: l_gross_weight_tbl WSH_UTIL_CORE.ID_TAB_TYPE;
6851: -- End of OTM R12 : unassign delivery detail
6852: l_chk_wms_org VARCHAR2(10) := 'N';
6853: l_debug_on BOOLEAN;
6854: --
6874: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
6875: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.caller',p_action_prms.caller);
6876: END IF;
6877: --
6878: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6879: -- OTM R12
6880: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6881:
6882: IF (l_gc3_is_installed IS NULL) THEN
6876: END IF;
6877: --
6878: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6879: -- OTM R12
6880: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6881:
6882: IF (l_gc3_is_installed IS NULL) THEN
6883: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6884: END IF;
6879: -- OTM R12
6880: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6881:
6882: IF (l_gc3_is_installed IS NULL) THEN
6883: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6884: END IF;
6885: -- End of OTM R12
6886:
6887: SAVEPOINT before_unassign;
6909: -- Unassign lines is allowed during ASN/Receipt integration
6910: -- even though lines are shipped, so bypassing checks for those callers.
6911: --
6912: IF l_detail_status = 'C'
6913: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6914: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6915: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6916: THEN
6917: Raise invalid_detail;
6910: -- even though lines are shipped, so bypassing checks for those callers.
6911: --
6912: IF l_detail_status = 'C'
6913: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6914: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6915: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6916: THEN
6917: Raise invalid_detail;
6918: END IF;
6911: --
6912: IF l_detail_status = 'C'
6913: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6914: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6915: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6916: THEN
6917: Raise invalid_detail;
6918: END IF;
6919:
6954: END IF;
6955: WSH_CONTAINER_UTILITIES.Is_Empty (p_container_instance_id => p_detail_id,
6956: x_empty_flag => l_detail_is_empty_cont,
6957: x_return_status => l_return_status);
6958: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6959: Raise invalid_detail;
6960: END IF;
6961: ELSE --}{
6962: l_detail_is_empty_cont := 'E';
6977: (l_del1.status_code = 'SC') or --sperera 940/945
6978: (l_del1.status_code = 'SR') or
6979: (l_del1.planned_flag IN ('Y','F') AND l_detail_status <> 'D' AND l_chk_wms_org <> 'Y' ) or
6980: (l_del1.planned_flag IN ('Y','F') AND l_detail_status <> 'D' AND l_chk_wms_org = 'Y' AND l_detail_is_empty_cont <> 'Y' )) /*Bug7025876 added AND condition*/
6981: --Bug 3543772 AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6982: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6983: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6984: THEN
6985: IF l_del1.planned_flag IN ('Y','F') THEN
6978: (l_del1.status_code = 'SR') or
6979: (l_del1.planned_flag IN ('Y','F') AND l_detail_status <> 'D' AND l_chk_wms_org <> 'Y' ) or
6980: (l_del1.planned_flag IN ('Y','F') AND l_detail_status <> 'D' AND l_chk_wms_org = 'Y' AND l_detail_is_empty_cont <> 'Y' )) /*Bug7025876 added AND condition*/
6981: --Bug 3543772 AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6982: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6983: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6984: THEN
6985: IF l_del1.planned_flag IN ('Y','F') THEN
6986: fnd_message.SET_name('WSH', 'WSH_DET_UNASSIGN_FIRMDEL');
6979: (l_del1.planned_flag IN ('Y','F') AND l_detail_status <> 'D' AND l_chk_wms_org <> 'Y' ) or
6980: (l_del1.planned_flag IN ('Y','F') AND l_detail_status <> 'D' AND l_chk_wms_org = 'Y' AND l_detail_is_empty_cont <> 'Y' )) /*Bug7025876 added AND condition*/
6981: --Bug 3543772 AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6982: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6983: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6984: THEN
6985: IF l_del1.planned_flag IN ('Y','F') THEN
6986: fnd_message.SET_name('WSH', 'WSH_DET_UNASSIGN_FIRMDEL');
6987: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del1.name);
7011: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
7012: p_entity_type => 'DELIVERY',
7013: p_entity_ids => l_del_tab,
7014: x_return_status => l_return_status);
7015: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7016: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7017: RAISE mark_reprice_error;
7018: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7019: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7012: p_entity_type => 'DELIVERY',
7013: p_entity_ids => l_del_tab,
7014: x_return_status => l_return_status);
7015: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7016: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7017: RAISE mark_reprice_error;
7018: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7019: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7020: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7014: x_return_status => l_return_status);
7015: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7016: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7017: RAISE mark_reprice_error;
7018: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7019: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7020: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7021: IF l_debug_on THEN
7022: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required completed with warnings.');
7015: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7016: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7017: RAISE mark_reprice_error;
7018: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7019: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7020: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7021: IF l_debug_on THEN
7022: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required completed with warnings.');
7023: END IF;
7016: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7017: RAISE mark_reprice_error;
7018: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7019: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7020: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7021: IF l_debug_on THEN
7022: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required completed with warnings.');
7023: END IF;
7024:
7039: p_diff_fill_volume => -1 * l_vol,
7040: p_check_for_empty => 'Y',
7041: x_return_status => l_return_status);
7042:
7043: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7044: --
7045: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7046: WSH_UTIL_CORE.Add_Message(x_return_status);
7047: IF l_debug_on THEN
7041: x_return_status => l_return_status);
7042:
7043: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7044: --
7045: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7046: WSH_UTIL_CORE.Add_Message(x_return_status);
7047: IF l_debug_on THEN
7048: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7049: WSH_DEBUG_SV.pop(l_module_name);
7042:
7043: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7044: --
7045: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7046: WSH_UTIL_CORE.Add_Message(x_return_status);
7047: IF l_debug_on THEN
7048: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
7049: WSH_DEBUG_SV.pop(l_module_name);
7050: END IF;
7129: p_sync_tmp_rec => l_sync_tmp_rec,
7130: x_return_status => l_return_status
7131: );
7132: --
7133: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7134: --
7135: x_return_status := l_return_status;
7136: --
7137: IF l_debug_on THEN
7140: END IF;
7141: --
7142: return;
7143: --
7144: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7145: --
7146: l_num_warnings := l_num_warnings + 1;
7147: --
7148: END IF;
7167: last_update_login = FND_GLOBAL.LOGIN_ID
7168: WHERE delivery_detail_id = l_dd_id(j);
7169:
7170: IF (SQL%NOTFOUND) THEN
7171: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7172: RAISE NO_DATA_FOUND;
7173: END IF;
7174:
7175: l_mdc_detail_tab(1) := l_dd_id(j);
7176: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
7177: p_detail_id_tab => l_mdc_detail_tab,
7178: x_return_status => x_return_status);
7179:
7180: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7181: IF l_debug_on THEN
7182: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7183: WSH_DEBUG_SV.pop(l_module_name);
7184: END IF;
7191:
7192:
7193: -- J-IB-NPARIKH-{
7194: IF l_del1.shipment_Direction NOT IN ('O','IO')
7195: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
7196: THEN
7197: l_ib_upd_flag := 'Y';
7198: ELSE
7199: l_ib_upd_flag := 'N';
7232: p_sync_tmp_rec => l_sync_tmp_rec,
7233: x_return_status => l_return_status
7234: );
7235: --
7236: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7237: --
7238: x_return_status := l_return_status;
7239: --
7240: IF l_debug_on THEN
7243: END IF;
7244: --
7245: return;
7246: --
7247: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7248: --
7249: l_num_warnings := l_num_warnings + 1;
7250: --
7251: END IF;
7271: last_updated_by = FND_GLOBAL.USER_ID,
7272: last_update_login = FND_GLOBAL.LOGIN_ID
7273: WHERE delivery_detail_id = l_dd_id(j);
7274: IF (SQL%NOTFOUND) THEN
7275: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7276: RAISE NO_DATA_FOUND;
7277: END IF;
7278: --
7279:
7304: WHERE delivery_detail_id = l_dd_id(j)
7305: returning released_status into l_rel_status;
7306: --bugfix 4530813
7307: IF (SQL%NOTFOUND) THEN
7308: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7309: RAISE NO_DATA_FOUND;
7310: END IF;
7311: IF l_debug_on THEN
7312: WSH_DEBUG_SV.log(l_module_name,'Rel Status after the update is ', l_rel_status);
7348: x_msg_data => l_msg_data,
7349: p_line_id => l_mo_line_id,
7350: p_carton_grouping_id => l_carton_grouping_id);
7351:
7352: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
7353: THEN
7354:
7355: RAISE update_mol_carton_group_error;
7356:
7373: l_call_update := 'Y';
7374: l_delivery_id_tab(1) := l_assign.delivery_id;
7375: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_assign.delivery_id);
7376:
7377: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
7378: --handle the error approriately to the procedure this code is in
7379: IF l_debug_on THEN
7380: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7381: END IF;
7394: p_delivery_id_tab => l_delivery_id_tab,
7395: p_tms_interface_flag_tab => l_interface_flag_tab,
7396: x_return_status => l_return_status);
7397:
7398: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
7399: x_return_status := l_return_status;
7400: IF l_debug_on THEN
7401: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7402: WSH_DEBUG_SV.pop(l_module_name);
7401: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7402: WSH_DEBUG_SV.pop(l_module_name);
7403: END IF;
7404: RETURN;
7405: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7406: l_num_warnings := l_num_warnings + 1;
7407: END IF;
7408: END IF;
7409: END IF;
7423:
7424: IF l_debug_on THEN
7425: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
7426: END IF;
7427: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
7428: x_return_status := l_dbi_rs;
7429: -- just pass this return status to caller API
7430: ROLLBACK TO before_unassign;
7431: --
7479: p_sync_tmp_rec => l_sync_tmp_rec,
7480: x_return_status => l_return_status
7481: );
7482: --
7483: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7484: --
7485: x_return_status := l_return_status;
7486: --
7487: IF l_debug_on THEN
7490: END IF;
7491: --
7492: return;
7493: --
7494: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7495: --
7496: l_num_warnings := l_num_warnings + 1;
7497: --
7498: END IF;
7514: last_update_login = FND_GLOBAL.LOGIN_ID
7515: WHERE delivery_detail_id = p_detail_id;
7516:
7517: IF (SQL%NOTFOUND) THEN
7518: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7519: RAISE NO_DATA_FOUND;
7520: END IF;
7521:
7522: l_mdc_detail_tab(1) := p_detail_id;
7523: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
7524: p_detail_id_tab => l_mdc_detail_tab,
7525: x_return_status => x_return_status);
7526:
7527: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7528: IF l_debug_on THEN
7529: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7530: WSH_DEBUG_SV.pop(l_module_name);
7531: END IF;
7537: x_param_info => l_shipping_param_info,
7538: x_return_status => l_return_status);
7539:
7540:
7541: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
7542: THEN
7543: IF l_debug_on THEN
7544: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
7545: END IF;
7560: p_vol_uom_code => l_assign.volume_uom_code,
7561: p_inv_item_id => l_assign.inventory_item_id,
7562: x_return_status => l_return_status);
7563:
7564: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
7565: THEN
7566: IF l_debug_on THEN
7567: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.ADJUST_PARENT_WV returned '||l_return_status);
7568: END IF;
7575: END IF;
7576:
7577: /* Bug 2769639, remove FTE generated FC for the delivery detail and all the delivery details below it */
7578:
7579: IF WSH_UTIL_CORE.FTE_Is_Installed = 'Y' AND l_dd_id.count > 0
7580: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
7581: THEN
7582: WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs(
7583: p_delivery_details_tab => l_dd_id,
7576:
7577: /* Bug 2769639, remove FTE generated FC for the delivery detail and all the delivery details below it */
7578:
7579: IF WSH_UTIL_CORE.FTE_Is_Installed = 'Y' AND l_dd_id.count > 0
7580: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
7581: THEN
7582: WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs(
7583: p_delivery_details_tab => l_dd_id,
7584: x_return_status => l_return_status) ;
7581: THEN
7582: WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs(
7583: p_delivery_details_tab => l_dd_id,
7584: x_return_status => l_return_status) ;
7585: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7586: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7587: raise remove_FC_error;
7588: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7589: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7582: WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs(
7583: p_delivery_details_tab => l_dd_id,
7584: x_return_status => l_return_status) ;
7585: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7586: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7587: raise remove_FC_error;
7588: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7589: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7590: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7584: x_return_status => l_return_status) ;
7585: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7586: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7587: raise remove_FC_error;
7588: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7589: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7590: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7591: END IF;
7592: END IF;
7585: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7586: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7587: raise remove_FC_error;
7588: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7589: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7590: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7591: END IF;
7592: END IF;
7593: IF l_debug_on THEN
7586: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7587: raise remove_FC_error;
7588: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7589: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7590: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7591: END IF;
7592: END IF;
7593: IF l_debug_on THEN
7594: WSH_DEBUG_SV.log(l_module_name,'Remove_FTE_Freight_Costs completed returns with status: ' ||
7598: NULL;
7599: END IF;
7600:
7601: -- LPN CONV. rv
7602: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7603: --
7604: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7605: --
7606: ELSE
7600:
7601: -- LPN CONV. rv
7602: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7603: --
7604: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7605: --
7606: ELSE
7607: --
7608: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7604: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7605: --
7606: ELSE
7607: --
7608: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7609: --
7610: END IF;
7611: -- LPN CONV. rv
7612:
7620: EXCEPTION
7621: WHEN mark_reprice_error THEN
7622: x_return_status := l_return_status;
7623: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
7624: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7625: ROLLBACK TO before_unassign;
7626: --
7627: IF l_debug_on THEN
7628: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7629: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
7630: END IF;
7631: --
7632: WHEN detail_not_assigned THEN
7633: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7634: fnd_message.set_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
7635: wsh_util_core.add_message(x_return_status,l_module_name);
7636: ROLLBACK TO before_unassign;
7637: --
7631: --
7632: WHEN detail_not_assigned THEN
7633: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7634: fnd_message.set_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
7635: wsh_util_core.add_message(x_return_status,l_module_name);
7636: ROLLBACK TO before_unassign;
7637: --
7638: IF l_debug_on THEN
7639: WSH_DEBUG_SV.logmsg(l_module_name,'DETAIL_NOT_ASSIGNED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7640: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DETAIL_NOT_ASSIGNED');
7641: END IF;
7642: --
7643: WHEN del_not_updatable THEN
7644: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7645: wsh_util_core.add_message(x_return_status,l_module_name);
7646: ROLLBACK TO before_unassign;
7647: --
7648: IF l_debug_on THEN
7641: END IF;
7642: --
7643: WHEN del_not_updatable THEN
7644: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7645: wsh_util_core.add_message(x_return_status,l_module_name);
7646: ROLLBACK TO before_unassign;
7647: --
7648: IF l_debug_on THEN
7649: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7652: --
7653: WHEN update_mol_carton_group_error THEN
7654: fnd_message.SET_name('WSH', 'WSH_MOL_CARTON_GROUP_ERROR');
7655: x_return_status := l_return_status;
7656: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7657:
7658: --
7659: IF l_debug_on THEN
7660: WSH_DEBUG_SV.logmsg(l_module_name,'update_mol_carton_group_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7661: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_mol_carton_group_error');
7662: END IF;
7663:
7664: WHEN check_ship_set_failed THEN
7665: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7666:
7667: --
7668: IF l_debug_on THEN
7669: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SHIP_SET_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7670: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SHIP_SET_FAILED');
7671: END IF;
7672: --
7673: WHEN check_smc_failed THEN
7674: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7675: --
7676: IF l_debug_on THEN
7677: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SMC_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7678: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
7678: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
7679: END IF;
7680: --
7681: WHEN remove_FC_error THEN
7682: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7683: --
7684: IF l_debug_on THEN
7685: WSH_DEBUG_SV.logmsg(l_module_name,'Remove_FTE_Freight_Costs failed.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7686: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REMOVE_FC_ERROR');
7686: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REMOVE_FC_ERROR');
7687: END IF;
7688: --
7689: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
7690: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7691: ROLLBACK TO before_unassign;
7692:
7693: WHEN get_shipping_param_err THEN
7694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7690: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7691: ROLLBACK TO before_unassign;
7692:
7693: WHEN get_shipping_param_err THEN
7694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7695: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
7696: FND_MESSAGE.Set_Token('ORGANIZATION_CODE',
7697: wsh_util_core.get_org_name(l_assign.organization_id));
7698: wsh_util_core.add_message(x_return_status,l_module_name);
7693: WHEN get_shipping_param_err THEN
7694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7695: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
7696: FND_MESSAGE.Set_Token('ORGANIZATION_CODE',
7697: wsh_util_core.get_org_name(l_assign.organization_id));
7698: wsh_util_core.add_message(x_return_status,l_module_name);
7699: ROLLBACK TO before_unassign;
7700: --
7701: IF l_debug_on THEN
7694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7695: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
7696: FND_MESSAGE.Set_Token('ORGANIZATION_CODE',
7697: wsh_util_core.get_org_name(l_assign.organization_id));
7698: wsh_util_core.add_message(x_return_status,l_module_name);
7699: ROLLBACK TO before_unassign;
7700: --
7701: IF l_debug_on THEN
7702: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to get Shipping Parameters',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7703: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_SHIPPING_PARAM_ERR');
7704: END IF;
7705:
7706: WHEN adjust_parent_wv_err THEN
7707: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7708: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
7709: FND_MESSAGE.SET_TOKEN('CONT_NAME',WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_assign.parent_delivery_detail_id));
7710: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
7711:
7706: WHEN adjust_parent_wv_err THEN
7707: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7708: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
7709: FND_MESSAGE.SET_TOKEN('CONT_NAME',WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_assign.parent_delivery_detail_id));
7710: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
7711:
7712: ROLLBACK TO before_unassign;
7713: --
7714: IF l_debug_on THEN
7716: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ADJUST_PARENT_WV_ERR');
7717: END IF;
7718:
7719: WHEN others THEN
7720: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7721: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7722: ROLLBACK TO before_unassign;
7723:
7724:
7717: END IF;
7718:
7719: WHEN others THEN
7720: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7721: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7722: ROLLBACK TO before_unassign;
7723:
7724:
7725: --
7782: END IF;
7783: --
7784: EXCEPTION
7785: WHEN others THEN
7786: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7787: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7788: --
7789: IF l_debug_on THEN
7790: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7783: --
7784: EXCEPTION
7785: WHEN others THEN
7786: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7787: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7788: --
7789: IF l_debug_on THEN
7790: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7791: END IF;
7802: -- P_from_container
7803: -- x_return_status
7804: --Desription: Unasigns multiple details FROM a delivery or a container
7805: PROCEDURE Unassign_Multiple_Details(
7806: P_REC_OF_DETAIL_IDS IN WSH_UTIL_CORE.ID_TAB_TYPE
7807: , P_FROM_delivery IN VARCHAR2
7808: , P_FROM_container IN VARCHAR2
7809: , x_return_status out NOCOPY varchar2
7810: , p_validate_flag IN VARCHAR2
7841: l_volume NUMBER;
7842: l_fill NUMBER;
7843: l_cont_name VARCHAR2(30);
7844: --
7845: l_dlvy_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7846: l_dlvy_ext_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7847: l_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
7848: l_index NUMBER;
7849: L_DLVY_FREIGHT_TERMS_CODE VARCHAR2(30);
7842: l_fill NUMBER;
7843: l_cont_name VARCHAR2(30);
7844: --
7845: l_dlvy_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7846: l_dlvy_ext_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7847: l_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
7848: l_index NUMBER;
7849: L_DLVY_FREIGHT_TERMS_CODE VARCHAR2(30);
7850:
7843: l_cont_name VARCHAR2(30);
7844: --
7845: l_dlvy_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7846: l_dlvy_ext_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7847: l_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
7848: l_index NUMBER;
7849: L_DLVY_FREIGHT_TERMS_CODE VARCHAR2(30);
7850:
7851: Cursor c_empty_delivery ( p_del_id number) --Pick To POD WF : Raise PO Cancellation for empty Inbound delivery
7889: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
7890: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7891: END IF;
7892: --
7893: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7894:
7895: -- initialize summary variables
7896: l_num_warnings := 0;
7897: l_num_errors := 0;
7908: END IF;
7909:
7910: IF (c_multi_assign_rec%NOTFOUND) THEN
7911: l_num_warnings := l_num_warnings + 1;
7912: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7913: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7914: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7915: wsh_util_core.add_message(x_return_status,l_module_name);
7916: /* go ahead and process the next line */
7911: l_num_warnings := l_num_warnings + 1;
7912: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7913: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7914: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7915: wsh_util_core.add_message(x_return_status,l_module_name);
7916: /* go ahead and process the next line */
7917: CLOSE c_multi_assign_rec;
7918: GOTO start_over_1;
7919: END IF;
7920: CLOSE c_multi_assign_rec;
7921:
7922: IF (l_multi_assign_rec.delivery_id IS null) THEN
7923: l_num_warnings := l_num_warnings + 1;
7924: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7925: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7926: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7927: wsh_util_core.add_message(x_return_status,l_module_name);
7928: /* go ahead and process the next line */
7923: l_num_warnings := l_num_warnings + 1;
7924: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7925: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7926: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7927: wsh_util_core.add_message(x_return_status,l_module_name);
7928: /* go ahead and process the next line */
7929: GOTO start_over_1;
7930: END IF;
7931:
7932: -- J-IB-NPARIKH-{
7933: --
7934: --
7935: IF l_debug_on THEN
7936: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
7937: END IF;
7938: --
7939: -- Build a cache of uniqye delivery IDs , from which lines are being unassigned
7940: --
7938: --
7939: -- Build a cache of uniqye delivery IDs , from which lines are being unassigned
7940: --
7941: --
7942: WSH_UTIL_CORE.get_Cached_value
7943: (
7944: p_cache_tbl => l_dlvy_tbl,
7945: p_cache_ext_tbl => l_dlvy_ext_tbl,
7946: p_key => l_multi_assign_rec.delivery_id,
7949: x_return_status => l_return_status
7950: );
7951: --
7952: --
7953: wsh_util_core.api_post_call
7954: (
7955: p_return_status => l_return_status,
7956: x_num_warnings => l_num_warnings,
7957: x_num_errors => l_num_errors
7965: p_validate_flag => p_validate_flag,
7966: x_return_status => l_return_status,
7967: p_action_prms => p_action_prms -- J-IB-NPARIKH
7968: );
7969: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
7970: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7971: l_num_errors := l_num_errors + 1;
7972: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7973: l_num_warnings := l_num_warnings + 1;
7966: x_return_status => l_return_status,
7967: p_action_prms => p_action_prms -- J-IB-NPARIKH
7968: );
7969: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
7970: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7971: l_num_errors := l_num_errors + 1;
7972: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7973: l_num_warnings := l_num_warnings + 1;
7974: END IF;
7968: );
7969: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
7970: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7971: l_num_errors := l_num_errors + 1;
7972: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7973: l_num_warnings := l_num_warnings + 1;
7974: END IF;
7975:
7976:
7986: WHILE l_index IS NOT NULL
7987: LOOP
7988: --{
7989:
7990: IF NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
7991: THEN
7992: --{
7993: IF l_debug_on THEN
7994: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.calculate_cont_del_tpdates',WSH_DEBUG_SV.C_PROC_LEVEL);
8000: p_entity_ids =>l_del_tab,
8001: x_return_status => l_return_status);
8002: --}
8003: /*CURRENTLY NOT IN USE
8004: IF ( p_action_prms.caller = WSH_UTIL_CORE.C_IB_PO_PREFIX ) -- Added for Pick to POD WF
8005: THEN --PO cancellation unassigns DD from delivery, we check if delivery gets emptied out then we raise a event
8006: OPEN c_empty_delivery( l_dlvy_tbl(l_index).value ) ;
8007: Fetch c_empty_delivery into l_del_id, l_org_id;
8008: If (c_empty_delivery%FOUND )
8039: x_freight_terms_code => l_dlvy_freight_terms_code
8040: );
8041: --
8042: --
8043: wsh_util_core.api_post_call
8044: (
8045: p_return_status => l_return_status,
8046: x_num_warnings => l_num_warnings,
8047: x_num_errors => l_num_errors
8058: WHILE l_index IS NOT NULL
8059: LOOP
8060: --{
8061: --
8062: IF NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
8063: THEN
8064: --{
8065:
8066: IF l_debug_on THEN
8071: p_entity => 'DLVY',
8072: p_entity_ids =>l_del_tab,
8073: x_return_status => l_return_status);
8074: --}
8075: /*IF ( p_action_prms.caller = WSH_UTIL_CORE.C_IB_PO_PREFIX ) -- Added for Pick to POD WF
8076: THEN --PO cancellation unassigns DD from delivery, we check if delivery gets emptied out then we raise a event
8077: OPEN c_empty_delivery( l_dlvy_ext_tbl(l_index).value ) ;
8078: Fetch c_empty_delivery into l_del_id, l_org_id;
8079: If (c_empty_delivery%FOUND )
8108: x_freight_terms_code => l_dlvy_freight_terms_code
8109: );
8110: --
8111: --
8112: wsh_util_core.api_post_call
8113: (
8114: p_return_status => l_return_status,
8115: x_num_warnings => l_num_warnings,
8116: x_num_errors => l_num_errors
8140: WSH_DEBUG_SV.log(l_module_name,'l_multi_assign_rec',
8141: l_multi_assign_rec.delivery_id);
8142: END IF;
8143: IF (c_multi_assign_rec%NOTFOUND) THEN
8144: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8145: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
8146: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
8147: wsh_util_core.add_message(x_return_status,l_module_name);
8148: /* go ahead and process the next line */
8143: IF (c_multi_assign_rec%NOTFOUND) THEN
8144: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8145: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
8146: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
8147: wsh_util_core.add_message(x_return_status,l_module_name);
8148: /* go ahead and process the next line */
8149: CLOSE c_multi_assign_rec;
8150: GOTO start_over_2;
8151: END IF;
8153:
8154: /* Bug 2166715 - check if line was actually packed or not */
8155: IF l_multi_assign_rec.parent_delivery_detail_id IS NULL THEN l_num_warnings := l_num_warnings + 1;
8156: fnd_message.SET_name('WSH','WSH_CONT_UNASSG_NULL');
8157: wsh_util_core.add_message(x_return_status,l_module_name);
8158: END IF;
8159:
8160: Unassign_detail_FROM_cont(
8161: p_detail_id => p_rec_of_detail_ids(i),
8161: p_detail_id => p_rec_of_detail_ids(i),
8162: p_validate_flag => p_validate_flag,
8163: x_return_status => l_return_status
8164: );
8165: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8166: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8167: l_num_errors := l_num_errors + 1;
8168: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8169: l_num_warnings := l_num_warnings + 1;
8162: p_validate_flag => p_validate_flag,
8163: x_return_status => l_return_status
8164: );
8165: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8166: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8167: l_num_errors := l_num_errors + 1;
8168: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8169: l_num_warnings := l_num_warnings + 1;
8170:
8164: );
8165: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8166: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8167: l_num_errors := l_num_errors + 1;
8168: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8169: l_num_warnings := l_num_warnings + 1;
8170:
8171: END IF;
8172:
8205: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8206: END IF;
8207: --
8208: --
8209: WSH_UTIL_CORE.API_POST_CALL
8210: (
8211: p_return_status => l_return_status,
8212: x_num_warnings => l_num_warnings,
8213: x_num_errors => l_num_errors,
8219: -- K LPN CONV. rv
8220: --
8221: --
8222: IF (l_num_errors >= p_rec_of_detail_ids.COUNT) THEN
8223: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8224: ELSIF (l_num_warnings > 0 OR l_num_errors>0) THEN
8225: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8226: END IF;
8227: IF l_debug_on THEN
8221: --
8222: IF (l_num_errors >= p_rec_of_detail_ids.COUNT) THEN
8223: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8224: ELSIF (l_num_warnings > 0 OR l_num_errors>0) THEN
8225: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8226: END IF;
8227: IF l_debug_on THEN
8228: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
8229: WSH_DEBUG_SV.log(l_module_name,'l_num_warnings',l_num_warnings);
8256: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8257: END IF;
8258: --
8259: --
8260: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8261: x_return_status := l_return_status;
8262: END IF;
8263: --
8264: --}
8309: --
8310:
8311: -- J-IB-NPARIKH-}
8312: WHEN CHECK_SHIP_SET_FAILED THEN
8313: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8314: --
8315: --
8316: -- K LPN CONV. rv
8317: --
8334: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8335: END IF;
8336: --
8337: --
8338: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8339: x_return_status := l_return_status;
8340: END IF;
8341: --
8342: --}
8349: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SHIP_SET_FAILED');
8350: END IF;
8351: --
8352: WHEN check_smc_failed THEN
8353: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8354: --
8355: -- K LPN CONV. rv
8356: --
8357: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8373: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8374: END IF;
8375: --
8376: --
8377: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8378: x_return_status := l_return_status;
8379: END IF;
8380: --
8381: --}
8389: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
8390: END IF;
8391: --
8392: WHEN others THEN
8393: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8394: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8395: --
8396: IF l_debug_on THEN
8397: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8390: END IF;
8391: --
8392: WHEN others THEN
8393: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8394: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8395: --
8396: IF l_debug_on THEN
8397: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8398: END IF;
8438: -- this procedure.
8439: -------------------------------------------------------------------
8440:
8441: PROCEDURE Unassign_Multiple_Details(
8442: P_REC_OF_DETAIL_IDS IN WSH_UTIL_CORE.ID_TAB_TYPE
8443: , P_FROM_delivery IN VARCHAR2
8444: , P_FROM_container IN VARCHAR2
8445: , x_return_status out NOCOPY varchar2
8446: , p_validate_flag IN VARCHAR2
8470: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
8471: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
8472: END IF;
8473: --
8474: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8475: --
8476: IF l_debug_on THEN
8477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
8478: END IF;
8492: END IF;
8493:
8494: EXCEPTION
8495: WHEN others THEN
8496: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8497: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8498: --
8499: IF l_debug_on THEN
8500: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8493:
8494: EXCEPTION
8495: WHEN others THEN
8496: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8497: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8498: --
8499: IF l_debug_on THEN
8500: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8501: END IF;
8510: -- x_return_status
8511: --Desription: Assings multiple details to a delivery or a container
8512:
8513: PROCEDURE Assign_Multiple_Details(
8514: p_rec_of_detail_ids IN WSH_UTIL_CORE.ID_TAB_TYPE,
8515: p_delivery_id NUMBER,
8516: P_cont_ins_id number,
8517: x_return_status OUT NOCOPY varchar2)
8518: IS
8537:
8538: l_scc_unassign_from_del NUMBER := 0;
8539: l_scc_unassign_from_con NUMBER := 0;
8540: l_delivery_id NUMBER := 0;
8541: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
8542: l_return_status VARCHAR2(1);
8543: m NUMBER := 0;
8544:
8545:
8576: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8577: WSH_DEBUG_SV.log(l_module_name,'P_CONT_INS_ID',P_CONT_INS_ID);
8578: END IF;
8579: --
8580: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8581: l_del_tab.delete;
8582: l_num_errors := 0;
8583: l_num_warnings := 0;
8584:
8582: l_num_errors := 0;
8583: l_num_warnings := 0;
8584:
8585: IF ((p_delivery_id = -9999) AND (p_cont_ins_id = -9999 )) THEN
8586: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8587: --
8588: IF l_debug_on THEN
8589: WSH_DEBUG_SV.pop(l_module_name);
8590: END IF;
8635: x_dlvy_has_lines => l_has_lines, -- J-IB-NPARIKH
8636: x_dlvy_freight_terms_code => l_dlvy_freight_terms_code -- J-IB-NPARIKH
8637: );
8638:
8639: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8640: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8642: l_num_errors := l_num_errors + 1;
8643: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8636: x_dlvy_freight_terms_code => l_dlvy_freight_terms_code -- J-IB-NPARIKH
8637: );
8638:
8639: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8640: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8642: l_num_errors := l_num_errors + 1;
8643: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8644: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8637: );
8638:
8639: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8640: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8642: l_num_errors := l_num_errors + 1;
8643: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8644: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8645: l_num_warnings := l_num_warnings + 1;
8639: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8640: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8642: l_num_errors := l_num_errors + 1;
8643: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8644: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8645: l_num_warnings := l_num_warnings + 1;
8646: END IF;
8647: goto start_over;
8640: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8642: l_num_errors := l_num_errors + 1;
8643: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8644: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8645: l_num_warnings := l_num_warnings + 1;
8646: END IF;
8647: goto start_over;
8648: /* H project : pricing integration csun , need to mark the reprice
8659: p_detail_id => P_REC_OF_DETAIL_IDS(i),
8660: p_parent_detail_id => p_cont_ins_id,
8661: x_return_status => x_return_status);
8662:
8663: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8664: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8665: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8666: l_num_errors := l_num_errors + 1;
8667: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8660: p_parent_detail_id => p_cont_ins_id,
8661: x_return_status => x_return_status);
8662:
8663: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8664: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8665: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8666: l_num_errors := l_num_errors + 1;
8667: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8668: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8661: x_return_status => x_return_status);
8662:
8663: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8664: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8665: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8666: l_num_errors := l_num_errors + 1;
8667: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8668: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8669: l_num_warnings := l_num_warnings + 1;
8663: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8664: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8665: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8666: l_num_errors := l_num_errors + 1;
8667: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8668: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8669: l_num_warnings := l_num_warnings + 1;
8670: END IF;
8671: goto start_over;
8664: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8665: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8666: l_num_errors := l_num_errors + 1;
8667: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8668: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8669: l_num_warnings := l_num_warnings + 1;
8670: END IF;
8671: goto start_over;
8672: /* H project : pricing integration csun , need to mark the reprice
8689: l_scc_unassign_from_con);
8690: END IF;
8691:
8692: IF (l_num_errors > 0) THEN
8693: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8694: --
8695: IF l_debug_on THEN
8696: WSH_DEBUG_SV.log(l_module_name,'Ret status is error',l_num_errors);
8697: WSH_DEBUG_SV.pop(l_module_name);
8698: END IF;
8699: --
8700: return;
8701: ELSIF (l_num_warnings > 0) THEN
8702: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8703: END IF;
8704:
8705:
8706: /* H projects: pricing integration csun get the delivery id the container is
8727: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
8728: p_entity_type => 'DELIVERY',
8729: p_entity_ids => l_del_tab,
8730: x_return_status => l_return_status);
8731: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8732: raise mark_reprice_error;
8733: END IF;
8734: END IF;
8735:
8740: END IF;
8741: --
8742: exception
8743: WHEN mark_reprice_error THEN
8744: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8745: fnd_message.SET_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8746: wsh_util_core.add_message(x_return_status,l_module_name);
8747:
8748: --
8742: exception
8743: WHEN mark_reprice_error THEN
8744: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8745: fnd_message.SET_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8746: wsh_util_core.add_message(x_return_status,l_module_name);
8747:
8748: --
8749: IF l_debug_on THEN
8750: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8751: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
8752: END IF;
8753: --
8754: WHEN delivery_id_locked THEN
8755: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8756: fnd_message.SET_name('WSH', 'WSH_NO_LOCK');
8757: wsh_util_core.add_message(x_return_status,l_module_name);
8758: --
8759: IF l_debug_on THEN
8753: --
8754: WHEN delivery_id_locked THEN
8755: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8756: fnd_message.SET_name('WSH', 'WSH_NO_LOCK');
8757: wsh_util_core.add_message(x_return_status,l_module_name);
8758: --
8759: IF l_debug_on THEN
8760: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Id Locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8761: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION : DELIVERY_ID_LOCKED');
8769: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_ID_LOCKED');
8770: END IF;
8771: --
8772: WHEN others THEN
8773: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8774: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_MULTIPLE_DETAILS',l_module_name);
8775:
8776: --
8777: IF l_debug_on THEN
8770: END IF;
8771: --
8772: WHEN others THEN
8773: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8774: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_MULTIPLE_DETAILS',l_module_name);
8775:
8776: --
8777: IF l_debug_on THEN
8778: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8818: p_converted_flag IN VARCHAR2,
8819: p_manual_split IN VARCHAR2 ,
8820: p_num_of_split IN NUMBER , -- for empty container cases
8821: x_new_detail_id OUT NOCOPY NUMBER,
8822: x_dd_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
8823: x_return_status OUT NOCOPY VARCHAR2
8824: )
8825: IS
8826:
8859: zero_qty EXCEPTION;
8860: /* H integration: Pricing integration csun
8861: mark reprice required flag when split_delivery_details
8862: */
8863: l_entity_ids WSH_UTIL_CORE.id_tab_type;
8864: reprice_required_err EXCEPTION;
8865: l_delivery_assignments_info WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_Type;
8866: l_delivery_details_info WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
8867: l_split_weight number;
8871: l_old_stage_qty NUMBER := NULL;
8872: l_ser_qty NUMBER := NULL;
8873:
8874:
8875: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
8876: l_num_of_split NUMBER;
8877:
8878: old_delivery_detail_rec SplitDetailRecType;
8879:
8887: i NUMBER;
8888: j NUMBER;
8889: l_serial_orig_rec WSH_DELIVERY_DETAILS_ACTIONS.SplitDetailRecType;
8890: l_new_serial_rec WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
8891: l_transaction_id_tab WSH_UTIL_CORE.id_tab_type;
8892: l_serial_number WSH_DELIVERY_DETAILS.serial_number%TYPE;
8893: TYPE l_sr_no_tab IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
8894: l_serial_number_tab l_sr_no_tab;
8895: l_id1 NUMBER;
8920: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
8921: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
8922: END IF;
8923: --
8924: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8925:
8926: OPEN c_split_detail_info(p_from_detail_id);
8927: FETCH c_split_detail_info into old_delivery_detail_rec;
8928: CLOSE c_split_detail_info;
8996: p_uom_code => old_delivery_detail_rec.requested_quantity_UOM,
8997: x_output_quantity => l_output_quantity,
8998: x_return_status => l_qty_return_status);
8999:
9000: IF (l_qty_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
9001: RAISE chk_decimal_qty_failed;
9002: END IF;
9003: IF (l_output_quantity IS not NULL) THEN
9004: p_req_quantity := l_output_quantity;
9083: x_dd_id_tab => l_dd_id_tab
9084: );
9085:
9086: -- Message will be set in split_detail_int_bulk
9087: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
9088: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
9089: ) THEN
9090: return;
9091: END IF;
9084: );
9085:
9086: -- Message will be set in split_detail_int_bulk
9087: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
9088: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
9089: ) THEN
9090: return;
9091: END IF;
9092:
9123: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
9124: p_entity_type => 'DELIVERY_DETAIL',
9125: p_entity_ids => l_entity_ids,
9126: x_return_status => l_return_status);
9127: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
9128: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
9129: ) THEN
9130: raise reprice_required_err;
9131: END IF;
9124: p_entity_type => 'DELIVERY_DETAIL',
9125: p_entity_ids => l_entity_ids,
9126: x_return_status => l_return_status);
9127: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
9128: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
9129: ) THEN
9130: raise reprice_required_err;
9131: END IF;
9132:
9136: END IF;
9137: --
9138: EXCEPTION
9139: WHEN chk_decimal_qty_failed THEN
9140: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9141: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
9142: wsh_util_core.add_message(x_return_status,l_module_name);
9143: --
9144: IF l_debug_on THEN
9138: EXCEPTION
9139: WHEN chk_decimal_qty_failed THEN
9140: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9141: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
9142: wsh_util_core.add_message(x_return_status,l_module_name);
9143: --
9144: IF l_debug_on THEN
9145: WSH_DEBUG_SV.logmsg(l_module_name,'CHK_DECIMAL_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9146: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
9146: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
9147: END IF;
9148: --
9149: WHEN quantity_over THEN
9150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9151: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
9152: wsh_util_core.add_message(x_return_status,l_module_name);
9153: --
9154: IF l_debug_on THEN
9148: --
9149: WHEN quantity_over THEN
9150: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9151: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
9152: wsh_util_core.add_message(x_return_status,l_module_name);
9153: --
9154: IF l_debug_on THEN
9155: WSH_DEBUG_SV.logmsg(l_module_name,'QUANTITY_OVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9156: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
9156: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
9157: END IF;
9158: --
9159: WHEN zero_qty THEN
9160: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9161: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
9162: wsh_util_core.add_message(x_return_status,l_module_name);
9163: --
9164: IF l_debug_on THEN
9158: --
9159: WHEN zero_qty THEN
9160: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9161: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
9162: wsh_util_core.add_message(x_return_status,l_module_name);
9163: --
9164: IF l_debug_on THEN
9165: WSH_DEBUG_SV.logmsg(l_module_name,'ZERO_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9166: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
9166: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
9167: END IF;
9168: --
9169: WHEN negative_qty THEN
9170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9171: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
9172: wsh_util_core.add_message(x_return_status,l_module_name);
9173: --
9174: IF l_debug_on THEN
9168: --
9169: WHEN negative_qty THEN
9170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9171: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
9172: wsh_util_core.add_message(x_return_status,l_module_name);
9173: --
9174: IF l_debug_on THEN
9175: WSH_DEBUG_SV.logmsg(l_module_name,'NEGATIVE_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9176: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
9176: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
9177: END IF;
9178: --
9179: WHEN reprice_required_err THEN
9180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9181: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9182: wsh_util_core.add_message(x_return_status,l_module_name);
9183: --
9184: IF l_debug_on THEN
9178: --
9179: WHEN reprice_required_err THEN
9180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9181: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9182: wsh_util_core.add_message(x_return_status,l_module_name);
9183: --
9184: IF l_debug_on THEN
9185: WSH_DEBUG_SV.logmsg(l_module_name,'REPRICE_REQUIRED_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9186: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
9186: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
9187: END IF;
9188: --
9189: WHEN others THEN
9190: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9191: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',l_module_name);
9192: --
9193: IF l_debug_on THEN
9194: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9187: END IF;
9188: --
9189: WHEN others THEN
9190: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9191: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',l_module_name);
9192: --
9193: IF l_debug_on THEN
9194: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9195: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9231: p_split_sn IN VARCHAR2 ,
9232: p_num_of_split IN NUMBER, -- for empty container cases
9233: x_split_detail_id OUT NOCOPY NUMBER,
9234: x_return_status OUT NOCOPY VARCHAR2,
9235: x_dd_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type
9236: ) IS
9237:
9238: l_new_delivery_detail_id number;
9239:
9299: WSH_SN_SPLIT_ERR EXCEPTION;
9300: WSH_NO_DATA_FOUND EXCEPTION;
9301:
9302: l_num_of_split NUMBER; -- added for BULK Auto packing
9303: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
9304: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
9305:
9306: l_updated_delivery_detail_rec SplitDetailRecType;
9307:
9300: WSH_NO_DATA_FOUND EXCEPTION;
9301:
9302: l_num_of_split NUMBER; -- added for BULK Auto packing
9303: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
9304: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
9305:
9306: l_updated_delivery_detail_rec SplitDetailRecType;
9307:
9308: l_req_qty_update_index NUMBER;
9322: l_requested_quantity2 WSH_DELIVERY_DETAILS.requested_quantity%TYPE;
9323: l_picked_quantity WSH_DELIVERY_DETAILS.picked_quantity%TYPE;
9324: wsh_split_error EXCEPTION;
9325:
9326: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
9327: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
9328:
9329: --
9330: l_action VARCHAR2(100) := 'SPLIT-LINE';
9381: p_old_delivery_detail_rec.container_flag);
9382: END IF;
9383: --
9384: SAVEPOINT split_savepoint;
9385: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9386:
9387: /* need to validate the quantity passed meets the decimal quantity
9388: standard */
9389:
9664: p_delivery_detail_id => p_old_delivery_detail_rec.delivery_detail_id,
9665: p_primary_quantity => l_final_req_qty,
9666: p_split_delivery_detail_id => l_dd_id_tab(i),
9667: x_return_status => x_return_status );
9668: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9669: --{
9670: rollback to split_savepoint;
9671: IF l_debug_on THEN
9672: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
9741: IF l_debug_on THEN
9742: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
9743: END IF;
9744: -- Only Handle Unexpected error
9745: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9746: x_return_status := l_dbi_rs;
9747: rollback to split_savepoint;
9748: --
9749: IF l_debug_on THEN
9785: p_update_flag => 'Y',
9786: x_net_weight => l_split_weight,
9787: x_volume => l_split_volume,
9788: x_return_status => l_split_return_status);
9789: IF (l_split_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
9790: RAISE new_det_wt_vol_failed;
9791: END IF;
9792:
9793: l_total_net_wt := l_total_net_wt + l_split_weight;
9848: p_dd_id_tab => l_dd_id_tab,
9849: x_da_id_tab => l_da_id_tab,
9850: x_return_status => l_cr_assg_status
9851: );
9852: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
9853: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
9854: ) THEN
9855: x_return_status := l_cr_assg_status;
9856: return;
9849: x_da_id_tab => l_da_id_tab,
9850: x_return_status => l_cr_assg_status
9851: );
9852: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
9853: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
9854: ) THEN
9855: x_return_status := l_cr_assg_status;
9856: return;
9857: END IF;
9967:
9968: IF l_debug_on THEN
9969: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
9970: END IF;
9971: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9972: x_return_status := l_dbi_rs;
9973: -- just pass this return status to caller API
9974: rollback to split_savepoint;
9975: --
9996: p_diff_net_wt => -1 * l_total_net_wt,
9997: p_diff_fill_volume => -1 * l_total_vol,
9998: x_return_status => l_return_status);
9999:
10000: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
10001: --
10002: rollback to split_savepoint;
10003: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10004: WSH_UTIL_CORE.Add_Message(x_return_status);
9999:
10000: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
10001: --
10002: rollback to split_savepoint;
10003: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10004: WSH_UTIL_CORE.Add_Message(x_return_status);
10005: IF l_debug_on THEN
10006: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
10007: WSH_DEBUG_SV.pop(l_module_name);
10000: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
10001: --
10002: rollback to split_savepoint;
10003: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10004: WSH_UTIL_CORE.Add_Message(x_return_status);
10005: IF l_debug_on THEN
10006: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
10007: WSH_DEBUG_SV.pop(l_module_name);
10008: END IF;
10021: -- HW OPMCONV. Removed OPM excpetion
10022:
10023: WHEN old_det_wt_vol_failed THEN
10024: rollback to split_savepoint;
10025: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10026: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
10027: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
10028: wsh_util_core.add_message(x_return_status,l_module_name);
10029: --
10024: rollback to split_savepoint;
10025: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10026: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
10027: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
10028: wsh_util_core.add_message(x_return_status,l_module_name);
10029: --
10030: IF l_debug_on THEN
10031: WSH_DEBUG_SV.logmsg(l_module_name,'OLD_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10032: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
10033: END IF;
10034: --
10035: WHEN new_det_wt_vol_failed THEN
10036: rollback to split_savepoint;
10037: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10038: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
10039: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
10040: wsh_util_core.add_message(x_return_status,l_module_name);
10041: --
10036: rollback to split_savepoint;
10037: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10038: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
10039: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
10040: wsh_util_core.add_message(x_return_status,l_module_name);
10041: --
10042: IF l_debug_on THEN
10043: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10044: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
10045: END IF;
10046: --
10047: WHEN WSH_SPLIT_ERROR THEN
10048: rollback to split_savepoint;
10049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10050: fnd_message.set_name('WSH', 'WSH_SPLIT_ERROR');
10051: fnd_message.set_token('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
10052: wsh_util_core.add_message(x_return_status,l_module_name);
10053: --
10048: rollback to split_savepoint;
10049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10050: fnd_message.set_name('WSH', 'WSH_SPLIT_ERROR');
10051: fnd_message.set_token('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
10052: wsh_util_core.add_message(x_return_status,l_module_name);
10053: --
10054: IF l_debug_on THEN
10055: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SPLIT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10056: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SPLIT_ERROR');
10056: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SPLIT_ERROR');
10057: END IF;
10058: WHEN WSH_SN_SPLIT_ERR THEN
10059: rollback to split_savepoint;
10060: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10061: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
10062: wsh_util_core.add_message(x_return_status,l_module_name);
10063: --
10064: IF l_debug_on THEN
10058: WHEN WSH_SN_SPLIT_ERR THEN
10059: rollback to split_savepoint;
10060: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10061: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
10062: wsh_util_core.add_message(x_return_status,l_module_name);
10063: --
10064: IF l_debug_on THEN
10065: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10066: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SN_SPLIT_ERR');
10070: IF c_get_req_pick_qty%ISOPEN THEN
10071: CLOSE c_get_req_pick_qty;
10072: END IF;
10073: rollback to split_savepoint;
10074: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10075: fnd_message.set_name('WSH', 'WSH_NO_DATA_FOUND');
10076: IF l_debug_on THEN
10077: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10078: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_DATA_FOUND');
10082: IF c_get_req_pick_qty%ISOPEN THEN
10083: CLOSE c_get_req_pick_qty;
10084: END IF;
10085: rollback to split_savepoint;
10086: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10087: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT_BULK',l_module_name);
10088: --
10089: IF l_debug_on THEN
10090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10083: CLOSE c_get_req_pick_qty;
10084: END IF;
10085: rollback to split_savepoint;
10086: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10087: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT_BULK',l_module_name);
10088: --
10089: IF l_debug_on THEN
10090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10164: fail_create_detail EXCEPTION;
10165: /* H integration: Pricing integration csun
10166: mark reprice required flag when split_delivery_details
10167: */
10168: l_entity_ids WSH_UTIL_CORE.id_tab_type;
10169: reprice_required_err EXCEPTION;
10170: l_delivery_assignments_info WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_Type;
10171: l_delivery_details_info WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
10172: l_split_weight number;
10210: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10211: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10212: END IF;
10213: --
10214: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10215:
10216: OPEN c_split_detail_info(p_from_detail_id);
10217: FETCH c_split_detail_info into old_delivery_detail_rec;
10218: CLOSE c_split_detail_info;
10221: -- determines the value of oe_interfaced_flag for newly created dd
10222: old_delivery_detail_rec.oe_interfaced_flag:= NULL;
10223:
10224: -- muom
10225: l_fulfillment_base := WSH_UTIL_CORE.Get_Line_Fulfillment_Base(old_delivery_detail_rec.source_code, old_delivery_detail_rec.source_line_id);
10226:
10227: -- muom
10228: IF l_fulfillment_base = 'P' THEN
10229: -- Bug 1289812
10335: p_uom_code => old_delivery_detail_rec.requested_quantity_UOM,
10336: x_output_quantity => l_output_quantity,
10337: x_return_status => l_qty_return_status);
10338:
10339: IF (l_qty_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
10340: RAISE chk_decimal_qty_failed;
10341: END IF;
10342: IF (l_output_quantity IS not NULL) THEN
10343: p_req_quantity := l_output_quantity;
10367:
10368: -- Bug 3724578 : Return back to the caller if any error occurs
10369: -- while splitting the delivery detail line
10370: --- Message will be set in Split_Detail_INT
10371: IF x_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
10372: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
10373: ) THEN
10374: return;
10375: END IF;
10368: -- Bug 3724578 : Return back to the caller if any error occurs
10369: -- while splitting the delivery detail line
10370: --- Message will be set in Split_Detail_INT
10371: IF x_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
10372: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
10373: ) THEN
10374: return;
10375: END IF;
10376:
10388: -- muom
10389: p_primary_quantity => old_delivery_detail_rec.requested_quantity - l_qty,
10390: p_split_delivery_detail_id => x_new_detail_id,
10391: x_return_status => x_return_status);
10392: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10393: --{
10394: IF l_debug_on THEN
10395: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
10396: WSH_DEBUG_SV.pop(l_module_name);
10414: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
10415: p_entity_type => 'DELIVERY_DETAIL',
10416: p_entity_ids => l_entity_ids,
10417: x_return_status => l_return_status);
10418: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10419: raise reprice_required_err;
10420: END IF;
10421:
10422: --
10425: END IF;
10426: --
10427: EXCEPTION
10428: WHEN chk_decimal_qty_failed THEN
10429: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10430: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
10431: wsh_util_core.add_message(x_return_status,l_module_name);
10432: --
10433: IF l_debug_on THEN
10427: EXCEPTION
10428: WHEN chk_decimal_qty_failed THEN
10429: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10430: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
10431: wsh_util_core.add_message(x_return_status,l_module_name);
10432: --
10433: IF l_debug_on THEN
10434: WSH_DEBUG_SV.logmsg(l_module_name,'CHK_DECIMAL_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10435: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
10435: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
10436: END IF;
10437: --
10438: WHEN quantity_over THEN
10439: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10440: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
10441: wsh_util_core.add_message(x_return_status,l_module_name);
10442: --
10443: IF l_debug_on THEN
10437: --
10438: WHEN quantity_over THEN
10439: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10440: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
10441: wsh_util_core.add_message(x_return_status,l_module_name);
10442: --
10443: IF l_debug_on THEN
10444: WSH_DEBUG_SV.logmsg(l_module_name,'QUANTITY_OVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10445: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
10445: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
10446: END IF;
10447: --
10448: WHEN zero_qty THEN
10449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10450: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
10451: wsh_util_core.add_message(x_return_status,l_module_name);
10452: --
10453: IF l_debug_on THEN
10447: --
10448: WHEN zero_qty THEN
10449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10450: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
10451: wsh_util_core.add_message(x_return_status,l_module_name);
10452: --
10453: IF l_debug_on THEN
10454: WSH_DEBUG_SV.logmsg(l_module_name,'ZERO_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10455: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
10455: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
10456: END IF;
10457: --
10458: WHEN negative_qty THEN
10459: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10460: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
10461: wsh_util_core.add_message(x_return_status,l_module_name);
10462: --
10463: IF l_debug_on THEN
10457: --
10458: WHEN negative_qty THEN
10459: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10460: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
10461: wsh_util_core.add_message(x_return_status,l_module_name);
10462: --
10463: IF l_debug_on THEN
10464: WSH_DEBUG_SV.logmsg(l_module_name,'NEGATIVE_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10465: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
10465: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
10466: END IF;
10467: --
10468: WHEN reprice_required_err THEN
10469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10470: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
10471: wsh_util_core.add_message(x_return_status,l_module_name);
10472: --
10473: IF l_debug_on THEN
10467: --
10468: WHEN reprice_required_err THEN
10469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10470: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
10471: wsh_util_core.add_message(x_return_status,l_module_name);
10472: --
10473: IF l_debug_on THEN
10474: WSH_DEBUG_SV.logmsg(l_module_name,'REPRICE_REQUIRED_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10475: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
10475: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
10476: END IF;
10477: --
10478: WHEN others THEN
10479: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10480: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',l_module_name);
10481: --
10482: IF l_debug_on THEN
10483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10476: END IF;
10477: --
10478: WHEN others THEN
10479: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10480: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',l_module_name);
10481: --
10482: IF l_debug_on THEN
10483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10484: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10640: WSH_SN_SPLIT_ERR EXCEPTION;
10641:
10642: l_updated_delivery_detail_rec SplitDetailRecType;
10643:
10644: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
10645: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
10646: --
10647: l_upd_wv_on_split_stg_dd VARCHAR2(1); -- bug #7580785.
10648: --
10674: -- muom
10675: WSH_DEBUG_SV.log(l_module_name,'P_FULFILLMENT_BASE',P_FULFILLMENT_BASE);
10676: END IF;
10677: --
10678: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10679:
10680: /* need to validate the quantity passed meets the decimal quantity
10681: standard */
10682:
11154: p_old_shipped_quantity => l_original_shipped_qty,
11155: p_new_shipped_quantity => l_split_shipped_qty,
11156: x_return_status => l_split_return_status);
11157:
11158: IF (l_split_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
11159: RAISE wsh_sn_split_err;
11160: END IF;
11161:
11162: END IF; -- are there serial numbers to split?
11172: x_row_id => detail_rowid,
11173: x_delivery_detail_id => l_new_delivery_detail_id,
11174: x_return_status => l_cr_dt_status);
11175:
11176: IF l_cr_dt_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
11177: RAISE WSH_CREATE_DET_ERR;
11178: END IF;
11179:
11180:
11195: p_update_flag => 'Y',
11196: x_net_weight => l_split_weight,
11197: x_volume => l_split_volume,
11198: x_return_status => l_split_return_status);
11199: IF (l_split_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
11200: RAISE new_det_wt_vol_failed;
11201: END IF;
11202: IF l_debug_on THEN
11203: WSH_DEBUG_SV.logmsg(l_module_name, ' After Update w/v');
11255:
11256: -- Bug 3724578 : Return back to the caller if any error occurs
11257: -- while creating the delivery detail assignments
11258: --- Message will be set in create_delivery_assignments
11259: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
11260: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
11261: ) THEN
11262: x_return_status := l_cr_assg_status;
11263: return;
11256: -- Bug 3724578 : Return back to the caller if any error occurs
11257: -- while creating the delivery detail assignments
11258: --- Message will be set in create_delivery_assignments
11259: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
11260: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
11261: ) THEN
11262: x_return_status := l_cr_assg_status;
11263: return;
11264: END IF;
11277: l_delivery_assignment_id,
11278: l_cr_assg_status
11279: );
11280:
11281: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
11282: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
11283: ) THEN
11284: x_return_status := l_cr_assg_status;
11285: return;
11278: l_cr_assg_status
11279: );
11280:
11281: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
11282: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
11283: ) THEN
11284: x_return_status := l_cr_assg_status;
11285: return;
11286: END IF;
11366:
11367: IF l_debug_on THEN
11368: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
11369: END IF;
11370: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
11371: x_return_status := l_dbi_rs;
11372: -- just pass this return status to caller API
11373: IF l_debug_on THEN
11374: WSH_DEBUG_SV.pop(l_module_name);
11392: p_diff_net_wt => l_split_weight,
11393: p_diff_fill_volume => NULL,
11394: p_diff_volume => l_split_volume,
11395: x_return_status => l_split_return_status);
11396: IF (l_split_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
11397: RAISE new_det_wt_vol_failed;
11398: END IF;
11399: --}
11400: END IF;
11413: p_diff_net_wt => -1 * l_total_net_wt,
11414: p_diff_fill_volume => -1 * l_total_vol,
11415: x_return_status => l_return_status);
11416:
11417: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
11418: --
11419: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11420: WSH_UTIL_CORE.Add_Message(x_return_status);
11421: IF l_debug_on THEN
11415: x_return_status => l_return_status);
11416:
11417: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
11418: --
11419: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11420: WSH_UTIL_CORE.Add_Message(x_return_status);
11421: IF l_debug_on THEN
11422: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
11423: WSH_DEBUG_SV.pop(l_module_name);
11416:
11417: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
11418: --
11419: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11420: WSH_UTIL_CORE.Add_Message(x_return_status);
11421: IF l_debug_on THEN
11422: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
11423: WSH_DEBUG_SV.pop(l_module_name);
11424: END IF;
11434: EXCEPTION
11435: -- HW OPMCONV. Removed OPM exception
11436:
11437: WHEN old_det_wt_vol_failed THEN
11438: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11439: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
11440: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
11441: wsh_util_core.add_message(x_return_status,l_module_name);
11442: --
11437: WHEN old_det_wt_vol_failed THEN
11438: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11439: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
11440: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
11441: wsh_util_core.add_message(x_return_status,l_module_name);
11442: --
11443: IF l_debug_on THEN
11444: WSH_DEBUG_SV.logmsg(l_module_name,'OLD_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11445: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
11445: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
11446: END IF;
11447: --
11448: WHEN new_det_wt_vol_failed THEN
11449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11450: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
11451: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
11452: wsh_util_core.add_message(x_return_status,l_module_name);
11453: --
11448: WHEN new_det_wt_vol_failed THEN
11449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11450: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
11451: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
11452: wsh_util_core.add_message(x_return_status,l_module_name);
11453: --
11454: IF l_debug_on THEN
11455: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11456: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
11456: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
11457: END IF;
11458: --
11459: WHEN WSH_SN_SPLIT_ERR THEN
11460: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11461: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
11462: wsh_util_core.add_message(x_return_status,l_module_name);
11463: --
11464: IF l_debug_on THEN
11458: --
11459: WHEN WSH_SN_SPLIT_ERR THEN
11460: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11461: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
11462: wsh_util_core.add_message(x_return_status,l_module_name);
11463: --
11464: IF l_debug_on THEN
11465: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11466: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SN_SPLIT_ERR');
11473: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_DET_ERR');
11474: END IF;
11475:
11476: WHEN others THEN
11477: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11478: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT',l_module_name);
11479: --
11480: IF l_debug_on THEN
11481: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11474: END IF;
11475:
11476: WHEN others THEN
11477: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11478: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT',l_module_name);
11479: --
11480: IF l_debug_on THEN
11481: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11482: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11669: OPEN c_temp_id;
11670: FETCH c_temp_id INTO l_transaction_temp_id;
11671: IF c_temp_id%NOTFOUND THEN
11672: CLOSE c_temp_id;
11673: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11674: --
11675: IF l_debug_on THEN
11676: WSH_DEBUG_SV.log(l_module_name,'Return Status is error',x_return_status);
11677: WSH_DEBUG_SV.pop(l_module_name);
11873: IF l_success < 0 THEN
11874: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11875: FND_MESSAGE.SET_TOKEN('FM_SERIAL',l_new_sn);
11876: FND_MESSAGE.SET_TOKEN('TO_SERIAL',l_new_to_sn);
11877: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11878: WSH_UTIL_CORE.Add_Message(x_return_status);
11879: END IF;
11880: -- bug 2740681
11881:
11874: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11875: FND_MESSAGE.SET_TOKEN('FM_SERIAL',l_new_sn);
11876: FND_MESSAGE.SET_TOKEN('TO_SERIAL',l_new_to_sn);
11877: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11878: WSH_UTIL_CORE.Add_Message(x_return_status);
11879: END IF;
11880: -- bug 2740681
11881:
11882: ELSE
11966: IF l_success < 0 THEN
11967: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11968: FND_MESSAGE.SET_TOKEN('FM_SERIAL', c.fm_serial_number);
11969: FND_MESSAGE.SET_TOKEN('TO_SERIAL', c.to_serial_number);
11970: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11971: WSH_UTIL_CORE.Add_Message(x_return_status);
11972: END IF;
11973: --bug 2740681
11974: ELSE
11967: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11968: FND_MESSAGE.SET_TOKEN('FM_SERIAL', c.fm_serial_number);
11969: FND_MESSAGE.SET_TOKEN('TO_SERIAL', c.to_serial_number);
11970: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11971: WSH_UTIL_CORE.Add_Message(x_return_status);
11972: END IF;
11973: --bug 2740681
11974: ELSE
11975: -- we need to remove this serial number range (which has count of 1)
12005: END IF;
12006: --
12007: EXCEPTION
12008: WHEN others THEN
12009: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12010: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.SPLIT_SERIAL_NUMBERS_INT',l_module_name);
12011:
12012: --
12013: IF l_debug_on THEN
12006: --
12007: EXCEPTION
12008: WHEN others THEN
12009: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12010: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.SPLIT_SERIAL_NUMBERS_INT',l_module_name);
12011:
12012: --
12013: IF l_debug_on THEN
12014: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12047: --
12048: BEGIN
12049: --
12050: --
12051: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12052: --
12053: --
12054: END explode_delivery_Details;
12055:
12064: REM become empty because of the current line was unpacked, those containers are left
12065: REM packed/assigned to the Delivery.
12066: */
12067: PROCEDURE unassign_unpack_empty_cont (
12068: p_ids_tobe_unassigned IN wsh_util_core.id_tab_type,
12069: p_validate_flag IN VARCHAR2,
12070: x_return_status OUT NOCOPY VARCHAR2
12071: )
12072: IS
12082: FROM wsh_delivery_assignments_v
12083: WHERE parent_delivery_detail_id = cont_id
12084: AND delivery_detail_id <> detail_id;
12085:
12086: l_parent_container_id wsh_util_core.id_tab_type ;
12087: l_delivery_id wsh_delivery_assignments_v.delivery_id%type;
12088: l_return_status VARCHAR2(1):=NULL ;
12089: l_line_id NUMBER := NULL;
12090:
12128: --
12129: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
12130: END IF;
12131:
12132: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12133:
12134: IF ( p_ids_tobe_unassigned.COUNT = 0 ) THEN
12135: --
12136: IF l_debug_on THEN
12171: WSH_DEBUG_SV.log(l_module_name, 'AFTER CALLING UNASSIGN_DETAIL_FROM_DELIVERY: ', L_RETURN_STATUS);
12172: END IF;
12173: --
12174: -- Check if the Parent Container is empty, if yes, recursivelly call this API
12175: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
12176: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_UNASSIGN_DET_ERROR');
12177: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id)); -- Bug#3542095
12178: FND_MESSAGE.SET_TOKEN('DET_NAME',p_ids_tobe_unassigned(i));
12179: x_return_status := l_return_status;
12176: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_UNASSIGN_DET_ERROR');
12177: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id)); -- Bug#3542095
12178: FND_MESSAGE.SET_TOKEN('DET_NAME',p_ids_tobe_unassigned(i));
12179: x_return_status := l_return_status;
12180: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
12181: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12182: --
12183: --IF l_debug_on THEN
12184: --WSH_DEBUG_SV.pop(l_module_name);
12177: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id)); -- Bug#3542095
12178: FND_MESSAGE.SET_TOKEN('DET_NAME',p_ids_tobe_unassigned(i));
12179: x_return_status := l_return_status;
12180: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
12181: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12182: --
12183: --IF l_debug_on THEN
12184: --WSH_DEBUG_SV.pop(l_module_name);
12185: --END IF;
12234: x_return_status => l_return_status);
12235: IF l_debug_on THEN
12236: WSH_DEBUG_SV.log(l_module_name, 'After calling UNASSIGN_UNPACK_EMPTY_CONT: ', L_RETURN_STATUS);
12237: END IF;
12238: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
12239: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12240: x_return_status := l_return_status ;
12241: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
12242: x_return_status := l_return_status ;
12235: IF l_debug_on THEN
12236: WSH_DEBUG_SV.log(l_module_name, 'After calling UNASSIGN_UNPACK_EMPTY_CONT: ', L_RETURN_STATUS);
12237: END IF;
12238: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
12239: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12240: x_return_status := l_return_status ;
12241: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
12242: x_return_status := l_return_status ;
12243: END IF;
12237: END IF;
12238: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
12239: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12240: x_return_status := l_return_status ;
12241: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
12242: x_return_status := l_return_status ;
12243: END IF;
12244: END IF;
12245: IF x_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
12241: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
12242: x_return_status := l_return_status ;
12243: END IF;
12244: END IF;
12245: IF x_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
12246: --IF l_debug_on THEN
12247: --WSH_DEBUG_SV.pop(l_module_name);
12248: --END IF;
12249: --RETURN; LPN CONV. rv
12277: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
12278: END IF;
12279: --
12280: --
12281: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
12282: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12283: x_return_status := l_return_status ;
12284: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) and x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12285: x_return_status := l_return_status ;
12278: END IF;
12279: --
12280: --
12281: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
12282: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12283: x_return_status := l_return_status ;
12284: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) and x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12285: x_return_status := l_return_status ;
12286: END IF;
12280: --
12281: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
12282: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12283: x_return_status := l_return_status ;
12284: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) and x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12285: x_return_status := l_return_status ;
12286: END IF;
12287: END IF;
12288:
12320: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
12321: END IF;
12322: --
12323: --
12324: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
12325: x_return_status := l_return_status;
12326: END IF;
12327: --
12328: --}
12334: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_return_excp');
12335: END IF;
12336:
12337: WHEN OTHERS THEN
12338: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.unassign_unpack_empty_cont');
12339: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12340: --
12341: IF l_debug_on THEN
12342: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12335: END IF;
12336:
12337: WHEN OTHERS THEN
12338: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.unassign_unpack_empty_cont');
12339: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12340: --
12341: IF l_debug_on THEN
12342: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12343: END IF;
12579: p_status => pexceptions.status,
12580: p_action => p_action);
12581:
12582: END LOOP;
12583: IF (l_exception_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12584: --
12585: -- Debug Statements
12586: --
12587: IF l_debug_on THEN
12619: --
12620: -- HW OPM BUG#:3121616 added requested_quantity2
12621: PROCEDURE Consolidate_Source_Line(
12622: p_Cons_Source_Line_Rec_Tab IN WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
12623: x_consolidate_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12624: x_return_status OUT NOCOPY VARCHAR2 ) IS
12625:
12626: CURSOR get_bo_dds_cur(p_delivery_detail_id IN NUMBER, p_source_line_id IN NUMBER,p_delivery_id IN NUMBER) is
12627: SELECT wdd.delivery_detail_id, wdd.requested_quantity,wdd.requested_quantity2
12646:
12647:
12648: -- Tables to store delivery detail id's
12649:
12650: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the final delivery details
12651: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12652: -- HW OPM BUG#:3121616 added qty2s
12653: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12654: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12647:
12648: -- Tables to store delivery detail id's
12649:
12650: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the final delivery details
12651: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12652: -- HW OPM BUG#:3121616 added qty2s
12653: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12654: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12655: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12649:
12650: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the final delivery details
12651: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12652: -- HW OPM BUG#:3121616 added qty2s
12653: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12654: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12655: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12656: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12657: -- HW OPM BUG#:3121616 added qty2s
12650: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the final delivery details
12651: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12652: -- HW OPM BUG#:3121616 added qty2s
12653: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12654: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12655: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12656: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12657: -- HW OPM BUG#:3121616 added qty2s
12658: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12651: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12652: -- HW OPM BUG#:3121616 added qty2s
12653: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12654: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12655: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12656: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12657: -- HW OPM BUG#:3121616 added qty2s
12658: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12659: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12652: -- HW OPM BUG#:3121616 added qty2s
12653: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12654: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12655: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12656: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12657: -- HW OPM BUG#:3121616 added qty2s
12658: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12659: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12660: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12654: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12655: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12656: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12657: -- HW OPM BUG#:3121616 added qty2s
12658: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12659: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12660: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12661: l_ship_instructions WSH_UTIL_CORE.tbl_varchar; -- To store shipping instructions
12662: l_pack_instructions WSH_UTIL_CORE.tbl_varchar; -- To store packing instructions
12655: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12656: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12657: -- HW OPM BUG#:3121616 added qty2s
12658: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12659: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12660: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12661: l_ship_instructions WSH_UTIL_CORE.tbl_varchar; -- To store shipping instructions
12662: l_pack_instructions WSH_UTIL_CORE.tbl_varchar; -- To store packing instructions
12663:
12657: -- HW OPM BUG#:3121616 added qty2s
12658: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12659: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12660: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12661: l_ship_instructions WSH_UTIL_CORE.tbl_varchar; -- To store shipping instructions
12662: l_pack_instructions WSH_UTIL_CORE.tbl_varchar; -- To store packing instructions
12663:
12664:
12665:
12658: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12659: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12660: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12661: l_ship_instructions WSH_UTIL_CORE.tbl_varchar; -- To store shipping instructions
12662: l_pack_instructions WSH_UTIL_CORE.tbl_varchar; -- To store packing instructions
12663:
12664:
12665:
12666: l_del_det_Id NUMBER;
12717: WSH_DEBUG_SV.push(l_module_name);
12718: END IF;
12719: --
12720:
12721: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12722: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12723: l_user_id := FND_GLOBAL.user_id;
12724: l_login_id := FND_GLOBAL.login_id;
12725:
12718: END IF;
12719: --
12720:
12721: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12722: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12723: l_user_id := FND_GLOBAL.user_id;
12724: l_login_id := FND_GLOBAL.login_id;
12725:
12726: FOR i IN 1..p_Cons_Source_Line_Rec_Tab.count --{ Looping thru' the input params
12888: WSH_DD_TXNS_PVT.create_dd_txn_from_dd (p_delivery_detail_id => l_cons_dd_ids(i),
12889: x_dd_txn_id => l_dd_txn_id,
12890: x_return_status =>l_txn_return_status);
12891:
12892: IF (l_txn_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12893: x_return_status := l_txn_return_status;
12894: RETURN;
12895: END IF;
12896: END LOOP;
12911: IF l_debug_on THEN
12912: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
12913: END IF;
12914: -- Only Handle Unexpected error
12915: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12916: --
12917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12918: END IF;
12919: -- End of Code for DBI Project
12955: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12956: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12957: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12958: RAISE FND_API.G_EXC_ERROR;
12959: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12960: x_return_status := l_return_status;
12961: END IF;
12962:
12963: END LOOP;
12990: IF l_debug_on THEN
12991: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
12992: END IF;
12993: -- Only Handle Unexpected error
12994: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12995: --
12996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12997: END IF;
12998: -- End of Code for DBI Project
13048: p_diff_net_wt => -1 * (l_net_weight - l_new_net_wt),
13049: p_diff_fill_volume => -1 * (l_volume - l_new_vol),
13050: x_return_status => l_return_status);
13051:
13052: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
13053: --
13054: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13055: WSH_UTIL_CORE.Add_Message(x_return_status);
13056: IF l_debug_on THEN
13050: x_return_status => l_return_status);
13051:
13052: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
13053: --
13054: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13055: WSH_UTIL_CORE.Add_Message(x_return_status);
13056: IF l_debug_on THEN
13057: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
13058: WSH_DEBUG_SV.pop(l_module_name);
13051:
13052: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
13053: --
13054: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13055: WSH_UTIL_CORE.Add_Message(x_return_status);
13056: IF l_debug_on THEN
13057: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
13058: WSH_DEBUG_SV.pop(l_module_name);
13059: END IF;
13073: --
13074: EXCEPTION
13075:
13076: WHEN FND_API.G_EXC_ERROR THEN
13077: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13078:
13079: --
13080: IF l_debug_on THEN
13081: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13083: END IF;
13084: --
13085: return;
13086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13087: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13088: --
13089: IF l_debug_on THEN
13090: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13095:
13096:
13097: WHEN OTHERS THEN
13098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13099: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Source_Lines ' );
13100: --
13101: -- Debug Statements
13102: --
13103: IF l_debug_on THEN
13132: p_delete_flag IN VARCHAR2 DEFAULT NULL,
13133: x_return_status OUT NOCOPY VARCHAR2
13134: ) IS
13135:
13136: l_delivery_detail_ids WSH_UTIL_CORE.Id_Tab_Type;
13137: l_idx NUMBER;
13138:
13139: l_inventory_item_id NUMBER := NULL;
13140: l_organization_id NUMBER := NULL;
13146: --Added for bug 10062808
13147: CURSOR c_detail(c_detail_id NUMBER) IS
13148: SELECT organization_id,
13149: inventory_item_id,
13150: WSH_UTIL_CORE.Get_Line_Fulfillment_Base('OE',source_line_id) fulfillment_base
13151: FROM wsh_delivery_details
13152: WHERE delivery_detail_id = c_detail_id AND
13153: NVL(container_flag, 'N') = 'N';
13154: l_qty_unres NUMBER;
13185: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
13186: WSH_DEBUG_SV.log(l_module_name,'P_DELETE_FLAG',P_DELETE_FLAG);
13187: END IF;
13188: --
13189: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13190:
13191: --
13192: -- Debug Statements
13193: --
13201: p_ids_tobe_unassigned => l_delivery_detail_ids ,
13202: p_validate_flag => 'N',
13203: x_return_status => l_return_status
13204: );
13205: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13206: raise FND_API.G_EXC_ERROR;
13207: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13208: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13209: END IF;
13203: x_return_status => l_return_status
13204: );
13205: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13206: raise FND_API.G_EXC_ERROR;
13207: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13208: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13209: END IF;
13210: END IF; --}
13211: --Added for bug 10062808
13218: p_inventory_item_id => l_inventory_item_id,
13219: x_mtl_system_items_rec => l_item_info,
13220: x_return_status => l_return_status
13221: );
13222: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13223: raise FND_API.G_EXC_ERROR;
13224: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13225: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13226: END IF;
13220: x_return_status => l_return_status
13221: );
13222: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13223: raise FND_API.G_EXC_ERROR;
13224: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13225: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13226: END IF;
13227: IF l_debug_on THEN
13228: WSH_DEBUG_SV.LOG(l_module_name, 'Is item lot divisible?', l_item_info.lot_divisible_flag);
13264: p_quantity2_to_unreserve => p_bo_qty2s,
13265: x_return_status => l_return_status
13266: );
13267: END IF;
13268: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13269: raise FND_API.G_EXC_ERROR;
13270: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13271: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13272: END IF;
13266: );
13267: END IF;
13268: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13269: raise FND_API.G_EXC_ERROR;
13270: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13271: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13272: END IF;
13273: END IF; --}
13274:
13327: x_return_status => l_return_status
13328: );
13329: END IF;
13330: END IF;
13331: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13332: raise FND_API.G_EXC_ERROR;
13333: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13334: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13335: END IF;
13329: END IF;
13330: END IF;
13331: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13332: raise FND_API.G_EXC_ERROR;
13333: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13334: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13335: END IF;
13336: END IF; --}
13337: ELSE
13390: p_quantity2_to_unreserve => l_qty2_unres ,
13391: x_return_status => l_return_status
13392: );
13393: END IF;
13394: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13395: raise FND_API.G_EXC_ERROR;
13396: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13397: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13398: END IF;
13392: );
13393: END IF;
13394: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13395: raise FND_API.G_EXC_ERROR;
13396: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13397: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13398: END IF;
13399:
13400: END IF; --}
13414: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details(
13415: p_delivery_detail_id => p_delivery_detail_id,
13416: p_cancel_flag => 'N',
13417: x_return_status => l_return_status);
13418: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13419: raise FND_API.G_EXC_ERROR;
13420: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13421: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13422: END IF;
13416: p_cancel_flag => 'N',
13417: x_return_status => l_return_status);
13418: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13419: raise FND_API.G_EXC_ERROR;
13420: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13421: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13422: END IF;
13423: END IF; --}
13424:
13427: END IF;
13428:
13429: EXCEPTION
13430: WHEN FND_API.G_EXC_ERROR then
13431: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13432: IF c_detail%ISOPEN THEN
13433: CLOSE c_detail;
13434: END IF;
13435: IF l_debug_on THEN
13435: IF l_debug_on THEN
13436: WSH_DEBUG_SV.pop(l_module_name);
13437: END IF;
13438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR then
13439: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13440: IF c_detail%ISOPEN THEN
13441: CLOSE c_detail;
13442: END IF;
13443: IF l_debug_on THEN
13443: IF l_debug_on THEN
13444: WSH_DEBUG_SV.pop(l_module_name);
13445: END IF;
13446: WHEN others THEN
13447: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13448: IF c_detail%ISOPEN THEN
13449: CLOSE c_detail;
13450: END IF;
13451: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Process_Delivery_Details',l_module_name);
13447: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13448: IF c_detail%ISOPEN THEN
13449: CLOSE c_detail;
13450: END IF;
13451: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Process_Delivery_Details',l_module_name);
13452: --
13453: IF l_debug_on THEN
13454: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13455: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13483: PROCEDURE Consolidate_Delivery_Details(
13484: p_delivery_details_tab IN WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
13485: p_bo_mode IN VARCHAR2,
13486: x_cons_delivery_details_tab OUT NOCOPY WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
13487: x_remain_bo_qtys OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13488: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13489: x_return_status OUT NOCOPY VARCHAR2
13490: ) IS
13491: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
13484: p_delivery_details_tab IN WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
13485: p_bo_mode IN VARCHAR2,
13486: x_cons_delivery_details_tab OUT NOCOPY WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
13487: x_remain_bo_qtys OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13488: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13489: x_return_status OUT NOCOPY VARCHAR2
13490: ) IS
13491: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
13492: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
13487: x_remain_bo_qtys OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13488: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13489: x_return_status OUT NOCOPY VARCHAR2
13490: ) IS
13491: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
13492: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
13493: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
13494: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
13495: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
13488: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13489: x_return_status OUT NOCOPY VARCHAR2
13490: ) IS
13491: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
13492: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
13493: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
13494: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
13495: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
13496: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
13490: ) IS
13491: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
13492: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
13493: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
13494: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
13495: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
13496: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
13497: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
13498: -- HW OPM BUG#:3121616 added qty2s
13491: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
13492: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
13493: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
13494: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
13495: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
13496: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
13497: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
13498: -- HW OPM BUG#:3121616 added qty2s
13499: -- muom
13492: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
13493: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
13494: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
13495: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
13496: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
13497: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
13498: -- HW OPM BUG#:3121616 added qty2s
13499: -- muom
13500: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13493: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
13494: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
13495: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
13496: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
13497: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
13498: -- HW OPM BUG#:3121616 added qty2s
13499: -- muom
13500: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13501: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13496: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
13497: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
13498: -- HW OPM BUG#:3121616 added qty2s
13499: -- muom
13500: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13501: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13502: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
13503: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
13504: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
13497: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
13498: -- HW OPM BUG#:3121616 added qty2s
13499: -- muom
13500: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13501: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13502: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
13503: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
13504: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
13505: l_cons_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13498: -- HW OPM BUG#:3121616 added qty2s
13499: -- muom
13500: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13501: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13502: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
13503: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
13504: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
13505: l_cons_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13506: l_cons_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores overpicked qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13499: -- muom
13500: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13501: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13502: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
13503: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
13504: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
13505: l_cons_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13506: l_cons_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores overpicked qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13507: -- HW OPM BUG#:3121616 added qty2s
13500: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13501: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13502: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
13503: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
13504: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
13505: l_cons_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13506: l_cons_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores overpicked qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13507: -- HW OPM BUG#:3121616 added qty2s
13508: l_cons_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty2 of consolidate dd_id for line_id at l_cons_bo2_ids(line_id)
13501: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type;
13502: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
13503: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
13504: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
13505: l_cons_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13506: l_cons_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores overpicked qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13507: -- HW OPM BUG#:3121616 added qty2s
13508: l_cons_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty2 of consolidate dd_id for line_id at l_cons_bo2_ids(line_id)
13509: l_cons_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores req qty of consolidate dd_id for line_id at l_cons_req_ids(line_id)
13502: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
13503: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
13504: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
13505: l_cons_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13506: l_cons_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores overpicked qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13507: -- HW OPM BUG#:3121616 added qty2s
13508: l_cons_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty2 of consolidate dd_id for line_id at l_cons_bo2_ids(line_id)
13509: l_cons_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores req qty of consolidate dd_id for line_id at l_cons_req_ids(line_id)
13510: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the all delivery details need to be deleted(that are getting
13504: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
13505: l_cons_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13506: l_cons_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores overpicked qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13507: -- HW OPM BUG#:3121616 added qty2s
13508: l_cons_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty2 of consolidate dd_id for line_id at l_cons_bo2_ids(line_id)
13509: l_cons_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores req qty of consolidate dd_id for line_id at l_cons_req_ids(line_id)
13510: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the all delivery details need to be deleted(that are getting
13511: -- completely BackOrdered), except one delivery detail for each source line.
13512:
13505: l_cons_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13506: l_cons_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores overpicked qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13507: -- HW OPM BUG#:3121616 added qty2s
13508: l_cons_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty2 of consolidate dd_id for line_id at l_cons_bo2_ids(line_id)
13509: l_cons_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores req qty of consolidate dd_id for line_id at l_cons_req_ids(line_id)
13510: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the all delivery details need to be deleted(that are getting
13511: -- completely BackOrdered), except one delivery detail for each source line.
13512:
13513: l_curr_line_id NUMBER; -- This temporary variable stores the current line_id in a loop.
13506: l_cons_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores overpicked qty of consolidate dd_id for line_id at l_cons_bo_ids(line_id)
13507: -- HW OPM BUG#:3121616 added qty2s
13508: l_cons_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores bo qty2 of consolidate dd_id for line_id at l_cons_bo2_ids(line_id)
13509: l_cons_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores req qty of consolidate dd_id for line_id at l_cons_req_ids(line_id)
13510: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the all delivery details need to be deleted(that are getting
13511: -- completely BackOrdered), except one delivery detail for each source line.
13512:
13513: l_curr_line_id NUMBER; -- This temporary variable stores the current line_id in a loop.
13514: l_cons_dd_id NUMBER; -- This contains the delivery_detail_id that gets consolidation into
13521: l_idx NUMBER := 1;
13522: l_cmp_idx NUMBER := 1;
13523: l_next_idx NUMBER := 1;
13524:
13525: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
13526: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
13527: -- muom
13528: l_fulfillment_base WSH_UTIL_CORE.Column_Tab_Type;
13529:
13524:
13525: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
13526: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
13527: -- muom
13528: l_fulfillment_base WSH_UTIL_CORE.Column_Tab_Type;
13529:
13530: --
13531: l_debug_on BOOLEAN;
13532: --
13728: -- muom
13729: p_overpick_qty2s => l_overpick_qty2s(l_cmp_idx),
13730: x_return_status => l_return_status
13731: );
13732: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13733: raise FND_API.G_EXC_ERROR;
13734: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13735: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13736: END IF;
13730: x_return_status => l_return_status
13731: );
13732: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13733: raise FND_API.G_EXC_ERROR;
13734: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13735: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13736: END IF;
13737:
13738: -- If a delivery detail is partially backordered , unreserve the backordered
13757: -- muom
13758: p_overpick_qty2s => l_overpick_qty2s(l_cmp_idx),
13759: x_return_status => l_return_status
13760: );
13761: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13762: raise FND_API.G_EXC_ERROR;
13763: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13764: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13765: END IF;
13759: x_return_status => l_return_status
13760: );
13761: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13762: raise FND_API.G_EXC_ERROR;
13763: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13764: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13765: END IF;
13766:
13767: -- HW OPM BUG#:3121616 added qty2s
13802:
13803: IF l_debug_on THEN
13804: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
13805: END IF;
13806: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13807: -- just pass this return status to caller API
13808: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13809: END IF;
13810: -- End of Code for DBI Project
13895: --
13896:
13897: WHEN OTHERS THEN
13898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13899: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details',l_module_name);
13900: --
13901: -- Debug Statements
13902: --
13903: IF l_debug_on THEN
13910:
13911:
13912: -- K: MDC
13913: PROCEDURE Delete_Consol_Record(
13914: p_detail_id_tab IN wsh_util_core.id_tab_type,
13915: x_return_status OUT NOCOPY VARCHAR2) IS
13916:
13917: l_debug_on BOOLEAN;
13918: --
13949: END IF;
13950: EXCEPTION
13951: WHEN OTHERS THEN
13952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13953: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Top_Detail_from_Delivery',l_module_name);
13954: --
13955: -- Debug Statements
13956: --
13957: IF l_debug_on THEN
13961: --
13962: END Delete_Consol_Record;
13963:
13964: PROCEDURE Create_Consol_Record(
13965: p_detail_id_tab IN wsh_util_core.id_tab_type,
13966: x_return_status OUT NOCOPY VARCHAR2) IS
13967:
13968: cursor c_get_consolidation_delivery (p_det_id IN NUMBER) is
13969: select l1.delivery_id, l2.delivery_id
13973: and l1.parent_delivery_leg_id = l2.delivery_leg_id
13974: and a.parent_delivery_detail_id is NULL
13975: and NVL(a.type, 'S') = 'S';
13976:
13977: l_consol_delivery_id_tab wsh_util_core.id_tab_type;
13978: l_delivery_id_tab wsh_util_core.id_tab_type;
13979: l_detail_id_tab wsh_util_core.id_tab_type;
13980: l_delivery_id NUMBER;
13981: l_consol_delivery_id NUMBER;
13974: and a.parent_delivery_detail_id is NULL
13975: and NVL(a.type, 'S') = 'S';
13976:
13977: l_consol_delivery_id_tab wsh_util_core.id_tab_type;
13978: l_delivery_id_tab wsh_util_core.id_tab_type;
13979: l_detail_id_tab wsh_util_core.id_tab_type;
13980: l_delivery_id NUMBER;
13981: l_consol_delivery_id NUMBER;
13982: i NUMBER;
13975: and NVL(a.type, 'S') = 'S';
13976:
13977: l_consol_delivery_id_tab wsh_util_core.id_tab_type;
13978: l_delivery_id_tab wsh_util_core.id_tab_type;
13979: l_detail_id_tab wsh_util_core.id_tab_type;
13980: l_delivery_id NUMBER;
13981: l_consol_delivery_id NUMBER;
13982: i NUMBER;
13983: j NUMBER := 0;
14081: EXCEPTION
14082:
14083: WHEN OTHERS THEN
14084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14085: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record',l_module_name);
14086: --
14087: -- Debug Statements
14088: --
14089: IF l_debug_on THEN