[Home] [Help]
919: p_locator_id => l_rsv_rec.locator_id,
920: p_revision => l_rsv_rec.revision,
921: p_lot_number => l_rsv_rec.lot_number);
922:
923: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
924: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- rsv.status
925: --
926: IF l_debug_on THEN
927: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
920: p_revision => l_rsv_rec.revision,
921: p_lot_number => l_rsv_rec.lot_number);
922:
923: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
924: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- rsv.status
925: --
926: IF l_debug_on THEN
927: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
928: WSH_DEBUG_SV.logmsg(l_module_name, 'MESSAGE COUNT: '|| TO_CHAR ( L_RESERVE_MSG_COUNT ) );
941: END IF;
942: --
943: END LOOP;
944: END if; -- rsv.msg.count
945: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
946: --
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE_UNCONFIRMED_QUANTITY FAILED.. GOING ON... ' );
949: END IF;
1241: p_subinventory_code => l_rsv_rec.subinventory_code ,
1242: p_locator_id => l_rsv_rec.locator_id,
1243: p_revision => l_rsv_rec.revision,
1244: p_lot_number => l_rsv_rec.lot_number);
1245: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
1246: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- Sts or UnExp. Error
1247: --
1248: IF l_debug_on THEN
1249: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
1242: p_locator_id => l_rsv_rec.locator_id,
1243: p_revision => l_rsv_rec.revision,
1244: p_lot_number => l_rsv_rec.lot_number);
1245: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
1246: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- Sts or UnExp. Error
1247: --
1248: IF l_debug_on THEN
1249: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
1250: END IF;
1267: END IF;
1268: --
1269: END LOOP;
1270: END if; -- If Msg. Count
1271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1272: --
1273: IF l_debug_on THEN
1274: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE_UNCONFIRMED_QUANTITY FAILED.. GOING ON... ' );
1275: END IF;
1299: --
1300: EXCEPTION
1301: -- bug 2442178: added expected exceptions to appropriately set return status
1302: WHEN FND_API.G_EXC_ERROR THEN
1303: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1304: --
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1307: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1308: END IF;
1309: --
1310: return;
1311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1313: --
1314: IF l_debug_on THEN
1315: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1318: --
1319: return;
1320:
1321: WHEN OTHERS THEN
1322: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1323: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UNRESERVE_DELIVERY_DETAIL',l_module_name);
1324: --
1325: IF l_debug_on THEN
1326: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1319: return;
1320:
1321: WHEN OTHERS THEN
1322: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1323: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UNRESERVE_DELIVERY_DETAIL',l_module_name);
1324: --
1325: IF l_debug_on THEN
1326: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1392: l_wf_rs VARCHAR2(1);
1393: l_start_wf BOOLEAN;
1394: l_raise_pickinitiated_event BOOLEAN;
1395: l_count_picked_lines Number;
1396: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
1397: l_purged_count NUMBER;
1398: --WF: CMR
1399: l_raise_carrierselect_event BOOLEAN;
1400: l_del_ids WSH_UTIL_CORE.ID_tab_type;
1396: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
1397: l_purged_count NUMBER;
1398: --WF: CMR
1399: l_raise_carrierselect_event BOOLEAN;
1400: l_del_ids WSH_UTIL_CORE.ID_tab_type;
1401: l_del_old_carrier_ids WSH_UTIL_CORE.ID_tab_type;
1402: -- Workflow Changes ==/
1403:
1404:
1397: l_purged_count NUMBER;
1398: --WF: CMR
1399: l_raise_carrierselect_event BOOLEAN;
1400: l_del_ids WSH_UTIL_CORE.ID_tab_type;
1401: l_del_old_carrier_ids WSH_UTIL_CORE.ID_tab_type;
1402: -- Workflow Changes ==/
1403:
1404:
1405: l_topmost_delivery_detail_id NUMBER;
1429: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
1430: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_freight_terms_code',x_dlvy_freight_terms_code);
1431: END IF;
1432: --
1433: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1434:
1435: /* if detail is not assigned to a container, update WDA. else find topmost container
1436: in the hierarchy (this can be a detail in case of loose details), iterate thru each
1437: level and assign each level to delivery any error in any level => rollback changes*/
1471: x_dlvy_freight_terms_code => x_dlvy_freight_terms_code, -- J-IB-NPARIKHS
1472: p_caller => p_caller --bug 5100229
1473: );
1474:
1475: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1476: RAISE assign_fail;
1477: END IF;
1478:
1479: --/== Workflow Changes
1504: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
1505: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1506: END IF;
1507:
1508: IF(l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_process_started='Y' ) THEN
1509: IF l_debug_on THEN
1510: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.PURGE_ENTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
1511: END IF;
1512: l_del_entity_ids(1) := p_delivery_id;
1520: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1521: END IF;
1522: END IF; -- If WorkFlow Exists
1523:
1524: IF(l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1525: IF l_debug_on THEN
1526: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.START_WF_PROCESS',WSH_DEBUG_SV.C_PROC_LEVEL);
1527: END IF;
1528:
1579: -- Workflow Changes ==/
1580:
1581: END IF;--for topmost container
1582: CLOSE c_topmost_container;
1583: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1584: --
1585: IF l_debug_on THEN
1586: WSH_DEBUG_SV.pop(l_module_name);
1587: END IF;
1590: --
1591: exception
1592: WHEN assign_fail THEN
1593: ROLLBACK TO before_assign_topmost_cont;
1594: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1595: wsh_util_core.add_message(x_return_status,l_module_name);
1596: --
1597: IF l_debug_on THEN
1598: WSH_DEBUG_SV.logmsg(l_module_name,'ASSIGN_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1591: exception
1592: WHEN assign_fail THEN
1593: ROLLBACK TO before_assign_topmost_cont;
1594: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1595: wsh_util_core.add_message(x_return_status,l_module_name);
1596: --
1597: IF l_debug_on THEN
1598: WSH_DEBUG_SV.logmsg(l_module_name,'ASSIGN_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ASSIGN_FAIL');
1600: END IF;
1601: --
1602: WHEN others THEN
1603: ROLLBACK TO before_assign_topmost_cont;
1604: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1605: wsh_util_core.add_message(x_return_status,l_module_name);
1606: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DELIVERY_DETAIL',l_module_name);
1607:
1608: --
1601: --
1602: WHEN others THEN
1603: ROLLBACK TO before_assign_topmost_cont;
1604: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1605: wsh_util_core.add_message(x_return_status,l_module_name);
1606: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DELIVERY_DETAIL',l_module_name);
1607:
1608: --
1609: IF l_debug_on THEN
1602: WHEN others THEN
1603: ROLLBACK TO before_assign_topmost_cont;
1604: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1605: wsh_util_core.add_message(x_return_status,l_module_name);
1606: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DELIVERY_DETAIL',l_module_name);
1607:
1608: --
1609: IF l_debug_on THEN
1610: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1649: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1650: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1651: END IF;
1652: --
1653: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1654: --
1655: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
1656: (
1657: p_delivery_id => p_delivery_id
1672: END IF;
1673: --
1674: EXCEPTION
1675: WHEN others THEN
1676: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1677: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_to_Delivery',l_module_name);
1678: --
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1673: --
1674: EXCEPTION
1675: WHEN others THEN
1676: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1677: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_to_Delivery',l_module_name);
1678: --
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1681: END IF;
1756: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER2_ID', p_container2_id);
1757: WSH_DEBUG_SV.log(l_module_name, 'P_ASSIGNMENT_TYPE', p_assignment_type);
1758: END IF;
1759:
1760: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1761: x_delivery_was_empty := FALSE;
1762: x_assign_update := TRUE; -- default to true unless everything on the same delivery.
1763:
1764: IF (p_assignment_type = 'DD2D') THEN --detail to delivery, delivery id provided
1777:
1778: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(p_delivery_id);
1779: IF (l_is_delivery_empty = 'Y') THEN
1780: x_delivery_was_empty := TRUE;
1781: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1782: IF l_debug_on THEN
1783: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1784: END IF;
1785: raise FND_API.G_EXC_ERROR;
1832:
1833: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_delivery1);
1834: IF (l_is_delivery_empty = 'Y') THEN
1835: x_delivery_was_empty := TRUE;
1836: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1837: IF l_debug_on THEN
1838: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1839: END IF;
1840: raise FND_API.G_EXC_ERROR;
1843:
1844: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_delivery2);
1845: IF (l_is_delivery_empty = 'Y') THEN
1846: x_delivery_was_empty := TRUE;
1847: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1848: IF l_debug_on THEN
1849: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1850: END IF;
1851: raise FND_API.G_EXC_ERROR;
1872: END IF;
1873:
1874: EXCEPTION
1875: WHEN FND_API.G_EXC_ERROR THEN
1876: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1877:
1878: IF c_get_gross_weight%ISOPEN THEN
1879: CLOSE c_get_gross_weight;
1880: END IF;
1890: END IF;
1891: --
1892: RETURN;
1893: WHEN OTHERS THEN
1894: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1895:
1896: IF c_get_gross_weight%ISOPEN THEN
1897: CLOSE c_get_gross_weight;
1898: END IF;
1940: l_call_update VARCHAR2(1);
1941: l_return_status VARCHAR2(1);
1942: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
1943: l_is_delivery_empty VARCHAR2(1);
1944: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1945: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
1946: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1947: l_num_warnings NUMBER;
1948: l_debug_on BOOLEAN;
1942: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
1943: l_is_delivery_empty VARCHAR2(1);
1944: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1945: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
1946: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1947: l_num_warnings NUMBER;
1948: l_debug_on BOOLEAN;
1949: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.'||G_PACKAGE_NAME||'.'||'Post_Otm_Assign_Del_Detail';
1950:
1964: WSH_DEBUG_SV.log(l_module_name, 'P_TMS_INTERFACE_FLAG', p_tms_interface_flag);
1965: WSH_DEBUG_SV.log(l_module_name, 'P_GROSS_WEIGHT', p_gross_weight);
1966: END IF;
1967:
1968: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1969:
1970: l_call_update := 'Y';
1971: l_delivery_id_tab(1) := p_delivery_id;
1972:
1972:
1973: IF (p_delivery_was_empty) THEN
1974: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(p_delivery_id);
1975:
1976: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1977: IF l_debug_on THEN
1978: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1979: END IF;
1980: raise FND_API.G_EXC_ERROR;
1988: p_delivery_id => p_delivery_id,
1989: x_delivery_rec => l_delivery_info,
1990: x_return_status => l_return_status);
1991:
1992: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
1993: IF l_debug_on THEN
1994: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
1995: END IF;
1996: raise FND_API.G_EXC_ERROR;
1993: IF l_debug_on THEN
1994: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
1995: END IF;
1996: raise FND_API.G_EXC_ERROR;
1997: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1998: l_num_warnings := l_num_warnings + 1;
1999: END IF;
2000: l_tms_interface_flag := nvl(l_delivery_info.tms_interface_flag, WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT);
2001:
2032: p_delivery_id_tab => l_delivery_id_tab,
2033: p_tms_interface_flag_tab => l_interface_flag_tab,
2034: x_return_status => l_return_status);
2035:
2036: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
2039: END IF;
2040: raise FND_API.G_EXC_ERROR;
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
2039: END IF;
2040: raise FND_API.G_EXC_ERROR;
2041: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2042: l_num_warnings := l_num_warnings + 1;
2043: END IF;
2044: END IF;
2045:
2044: END IF;
2045:
2046:
2047: IF (l_num_warnings > 0) THEN
2048: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2049: END IF;
2050:
2051: IF l_debug_on THEN
2052: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2054: END IF;
2055:
2056: EXCEPTION
2057: WHEN FND_API.G_EXC_ERROR THEN
2058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2059: --
2060: IF l_debug_on THEN
2061: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2062: WSH_DEBUG_SV.pop(l_module_name);
2063: END IF;
2064: --
2065: RETURN;
2066: WHEN OTHERS THEN
2067: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2068: --
2069: IF l_debug_on THEN
2070: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2071: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION OTHERS');
2114: l_content_count NUMBER;
2115:
2116: /* H projects: pricing integration csun */
2117: m NUMBER := 0;
2118: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
2119: l_return_status VARCHAR2(1);
2120: mark_reprice_error EXCEPTION;
2121: l_ship_to NUMBER;
2122: l_container_has_content BOOLEAN;
2119: l_return_status VARCHAR2(1);
2120: mark_reprice_error EXCEPTION;
2121: l_ship_to NUMBER;
2122: l_container_has_content BOOLEAN;
2123: l_mdc_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
2124: l_ignore_det_tab WSH_UTIL_CORE.Id_Tab_Type;
2125:
2126: --
2127: l_debug_on BOOLEAN;
2120: mark_reprice_error EXCEPTION;
2121: l_ship_to NUMBER;
2122: l_container_has_content BOOLEAN;
2123: l_mdc_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
2124: l_ignore_det_tab WSH_UTIL_CORE.Id_Tab_Type;
2125:
2126: --
2127: l_debug_on BOOLEAN;
2128: --
2163: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
2164: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
2165: l_action_rec wsh_delivery_autocreate.action_rec_type;
2166: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
2167: l_matched_entities wsh_util_core.id_tab_type;
2168: l_out_rec wsh_delivery_autocreate.out_rec_type;
2169: l_group_index NUMBER;
2170:
2171: l_num_warnings number := 0;
2179:
2180: -- OTM R12 : update delivery
2181: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2182: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
2183: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
2184: l_tms_update VARCHAR2(1);
2185: l_trip_not_found VARCHAR2(1);
2186: l_trip_info_rec WSH_DELIVERY_VALIDATIONS.trip_info_rec_type;
2187: l_tms_version_number WSH_NEW_DELIVERIES.TMS_VERSION_NUMBER%TYPE;
2215: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
2216: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DETAIL_ID',P_PARENT_DETAIL_ID);
2217: END IF;
2218: --
2219: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2220:
2221: -- OTM R12
2222: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
2223:
2218: --
2219: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2220:
2221: -- OTM R12
2222: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
2223:
2224: IF (l_gc3_is_installed IS NULL) THEN
2225: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
2226: END IF;
2221: -- OTM R12
2222: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
2223:
2224: IF (l_gc3_is_installed IS NULL) THEN
2225: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
2226: END IF;
2227: l_assign_update := FALSE; --default assignment tms update to false
2228: -- End of OTM R12
2229:
2279: --
2280: FND_MESSAGE.SET_TOKEN('ENTITY2',
2281: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2282: p_parent_detail_id));
2283: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2284: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2285: --
2286: IF l_debug_on THEN
2287: WSH_DEBUG_SV.pop(l_module_name);
2280: FND_MESSAGE.SET_TOKEN('ENTITY2',
2281: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2282: p_parent_detail_id));
2283: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2284: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2285: --
2286: IF l_debug_on THEN
2287: WSH_DEBUG_SV.pop(l_module_name);
2288: END IF;
2300: --
2301: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2302: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2303: p_parent_detail_id));
2304: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2305: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2306: --
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.pop(l_module_name);
2301: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2302: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2303: p_parent_detail_id));
2304: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2305: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2306: --
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.pop(l_module_name);
2309: END IF;
2335: p_in_ids => l_ignore_det_tab,
2336: p_action_code => 'IGNORE_PLAN',
2337: x_return_status => x_return_status);
2338:
2339: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2340:
2341: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_DIFF_IGNOREPLAN');
2342: FND_MESSAGE.SET_TOKEN('ENTITY1',p_detail_id);
2343: --
2347: --
2348: FND_MESSAGE.SET_TOKEN('ENTITY2',
2349: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2350: p_parent_detail_id));
2351: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2352: --
2353: IF l_debug_on THEN
2354: WSH_DEBUG_SV.pop(l_module_name);
2355: END IF;
2369: p_in_ids => l_ignore_det_tab,
2370: p_action_code => 'IGNORE_PLAN',
2371: x_return_status => l_return_status);
2372:
2373: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
2374: l_display_error := TRUE;
2375: ELSE
2376: l_display_error := FALSE;
2377: END IF;--}
2387: --
2388: FND_MESSAGE.SET_TOKEN('ENTITY2',
2389: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2390: p_parent_detail_id));
2391: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2392: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2393: --
2394: IF l_debug_on THEN
2395: WSH_DEBUG_SV.pop(l_module_name);
2388: FND_MESSAGE.SET_TOKEN('ENTITY2',
2389: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2390: p_parent_detail_id));
2391: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2392: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2393: --
2394: IF l_debug_on THEN
2395: WSH_DEBUG_SV.pop(l_module_name);
2396: END IF;
2428: --
2429: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2430: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2431: p_parent_detail_id));
2432: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2433: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2434: --
2435: IF l_debug_on THEN
2436: WSH_DEBUG_SV.pop(l_module_name);
2429: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2430: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2431: p_parent_detail_id));
2432: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2433: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2434: --
2435: IF l_debug_on THEN
2436: WSH_DEBUG_SV.pop(l_module_name);
2437: END IF;
2453: p_organization_id => l_del_id_for_detail.organization_id,
2454: x_group_by_flags => l_group_by_flags,
2455: x_return_status => x_return_status);
2456:
2457: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2458: x_return_status := x_return_status;
2459: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2460: --
2461: IF l_debug_on THEN
2455: x_return_status => x_return_status);
2456:
2457: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2458: x_return_status := x_return_status;
2459: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2460: --
2461: IF l_debug_on THEN
2462: WSH_DEBUG_SV.pop(l_module_name);
2463: END IF;
2499:
2500: if l_plan_flag <> 'N' then
2501: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
2502:
2503: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2504:
2505: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2506: --
2507: IF l_debug_on THEN
2501: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
2502:
2503: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2504:
2505: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2506: --
2507: IF l_debug_on THEN
2508: WSH_DEBUG_SV.pop(l_module_name);
2509: END IF;
2519:
2520: if l_plan_flag <> 'N' then
2521: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
2522:
2523: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2524:
2525: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2526: --
2527: IF l_debug_on THEN
2521: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
2522:
2523: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2524:
2525: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2526: --
2527: IF l_debug_on THEN
2528: WSH_DEBUG_SV.pop(l_module_name);
2529: END IF;
2553: --
2554: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2555: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2556: p_parent_detail_id));
2557: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2558: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2559: --
2560: IF l_debug_on THEN
2561: WSH_DEBUG_SV.pop(l_module_name);
2554: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2555: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2556: p_parent_detail_id));
2557: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2558: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2559: --
2560: IF l_debug_on THEN
2561: WSH_DEBUG_SV.pop(l_module_name);
2562: END IF;
2578: --
2579: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2580: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2581: p_parent_detail_id));
2582: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2583: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2584: --
2585: IF l_debug_on THEN
2586: WSH_DEBUG_SV.pop(l_module_name);
2579: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2580: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2581: p_parent_detail_id));
2582: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2583: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2584: --
2585: IF l_debug_on THEN
2586: WSH_DEBUG_SV.pop(l_module_name);
2587: END IF;
2612: --
2613: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2614: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2615: p_parent_detail_id));
2616: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2617: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2618: --
2619: IF l_debug_on THEN
2620: WSH_DEBUG_SV.pop(l_module_name);
2613: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2614: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2615: p_parent_detail_id));
2616: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2617: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2618: --
2619: IF l_debug_on THEN
2620: WSH_DEBUG_SV.pop(l_module_name);
2621: END IF;
2646: --
2647: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2648: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2649: p_parent_detail_id));
2650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2651: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2652: --
2653: IF l_debug_on THEN
2654: WSH_DEBUG_SV.pop(l_module_name);
2647: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2648: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2649: p_parent_detail_id));
2650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2651: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2652: --
2653: IF l_debug_on THEN
2654: WSH_DEBUG_SV.pop(l_module_name);
2655: END IF;
2684: --
2685: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2686: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2687: p_parent_detail_id));
2688: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2689: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2690: --
2691: IF l_debug_on THEN
2692: WSH_DEBUG_SV.pop(l_module_name);
2685: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2686: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2687: p_parent_detail_id));
2688: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2689: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2690: --
2691: IF l_debug_on THEN
2692: WSH_DEBUG_SV.pop(l_module_name);
2693: END IF;
2720: --
2721: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2722: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2723: p_parent_detail_id));
2724: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2725: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2726: --
2727: IF l_debug_on THEN
2728: WSH_DEBUG_SV.pop(l_module_name);
2721: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2722: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2723: p_parent_detail_id));
2724: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2725: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2726: --
2727: IF l_debug_on THEN
2728: WSH_DEBUG_SV.pop(l_module_name);
2729: END IF;
2757: --
2758: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2759: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2760: p_parent_detail_id));
2761: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2762: WSH_UTIL_CORE.Add_Message(x_return_status);
2763: --
2764: IF l_debug_on THEN
2765: WSH_DEBUG_SV.pop(l_module_name);
2758: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2759: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2760: p_parent_detail_id));
2761: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2762: WSH_UTIL_CORE.Add_Message(x_return_status);
2763: --
2764: IF l_debug_on THEN
2765: WSH_DEBUG_SV.pop(l_module_name);
2766: END IF;
2786: p_diff_volume => -1 * l_del_id_for_detail.volume,
2787: p_diff_fill_volume => -1 * l_del_id_for_detail.volume,
2788: x_return_status => l_return_status);
2789:
2790: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2791: --
2792: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2793: WSH_UTIL_CORE.Add_Message(x_return_status);
2794: IF l_debug_on THEN
2788: x_return_status => l_return_status);
2789:
2790: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2791: --
2792: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2793: WSH_UTIL_CORE.Add_Message(x_return_status);
2794: IF l_debug_on THEN
2795: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2796: WSH_DEBUG_SV.pop(l_module_name);
2789:
2790: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2791: --
2792: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2793: WSH_UTIL_CORE.Add_Message(x_return_status);
2794: IF l_debug_on THEN
2795: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2796: WSH_DEBUG_SV.pop(l_module_name);
2797: END IF;
2829: x_gross_weight1 => l_gross_weight1,
2830: x_gross_weight2 => l_gross_weight2,
2831: x_return_status => l_return_status);
2832:
2833: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2834: IF l_debug_on THEN
2835: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
2836: END IF;
2837: raise FND_API.G_EXC_ERROR;
2859: x_matched_entities => l_matched_entities,
2860: x_out_rec => l_out_rec,
2861: x_return_status => x_return_status);
2862:
2863: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2864: --
2865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2866: WSH_UTIL_CORE.Add_Message(x_return_status);
2867: IF l_debug_on THEN
2861: x_return_status => x_return_status);
2862:
2863: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2864: --
2865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2866: WSH_UTIL_CORE.Add_Message(x_return_status);
2867: IF l_debug_on THEN
2868: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2869: WSH_DEBUG_SV.pop(l_module_name);
2862:
2863: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2864: --
2865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2866: WSH_UTIL_CORE.Add_Message(x_return_status);
2867: IF l_debug_on THEN
2868: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2869: WSH_DEBUG_SV.pop(l_module_name);
2870: END IF;
2872: END IF;
2873:
2874:
2875:
2876: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2877: --
2878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2879: WSH_UTIL_CORE.Add_Message(x_return_status);
2880: IF l_debug_on THEN
2874:
2875:
2876: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2877: --
2878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2879: WSH_UTIL_CORE.Add_Message(x_return_status);
2880: IF l_debug_on THEN
2881: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2882: WSH_DEBUG_SV.pop(l_module_name);
2875:
2876: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2877: --
2878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2879: WSH_UTIL_CORE.Add_Message(x_return_status);
2880: IF l_debug_on THEN
2881: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2882: WSH_DEBUG_SV.pop(l_module_name);
2883: END IF;
2894:
2895: EXCEPTION
2896:
2897: WHEN OTHERS THEN
2898: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2899: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
2900: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
2901: IF l_debug_on THEN
2902: WSH_DEBUG_SV.log(l_module_name,'Could not lock delivery: ',l_del_id_for_container.delivery_id);
2896:
2897: WHEN OTHERS THEN
2898: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2899: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
2900: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
2901: IF l_debug_on THEN
2902: WSH_DEBUG_SV.log(l_module_name,'Could not lock delivery: ',l_del_id_for_container.delivery_id);
2903: WSH_DEBUG_SV.pop(l_module_name);
2904: END IF;
2920: (p_delivery_id => l_del_id_for_container.delivery_id,
2921: x_trip_info_rec => l_trip_info_rec,
2922: x_return_status => l_return_status);
2923:
2924: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2925: x_return_status := l_return_status;
2926: IF l_debug_on THEN
2927: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
2928: WSH_DEBUG_SV.pop(l_module_name);
2942: p_delivery_id => l_del_id_for_container.delivery_id,
2943: x_delivery_rec => l_delivery_info,
2944: x_return_status => l_return_status);
2945:
2946: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2947: x_return_status := l_return_status;
2948: IF l_debug_on THEN
2949: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
2950: WSH_DEBUG_SV.pop(l_module_name);
3011: p_delivery_info_tab => l_delivery_info_tab,
3012: p_new_interface_flag_tab => l_new_interface_flag_tab,
3013: x_return_status => l_return_status);
3014:
3015: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3016: x_return_status := l_return_status;
3017: IF l_debug_on THEN
3018: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
3019: WSH_DEBUG_SV.pop(l_module_name);
3048: p_sync_tmp_rec => l_sync_tmp_rec,
3049: x_return_status => l_return_status
3050: );
3051: --
3052: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3053: --
3054: x_return_status := l_return_status;
3055: --
3056: IF l_debug_on THEN
3059: END IF;
3060: --
3061: return;
3062: --
3063: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3064: --
3065: l_num_warnings := l_num_warnings + 1;
3066: --
3067: END IF;
3099: p_tms_interface_flag => l_tms_interface_flag,
3100: p_gross_weight => l_gross_weight1, --using the gross weight of the detail
3101: x_return_status => l_return_status);
3102:
3103: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3104: IF l_debug_on THEN
3105: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3106: END IF;
3107: raise FND_API.G_EXC_ERROR;
3104: IF l_debug_on THEN
3105: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3106: END IF;
3107: raise FND_API.G_EXC_ERROR;
3108: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3109: l_num_warnings := l_num_warnings + 1;
3110: END IF;
3111: END IF;
3112: -- End of OTM R12 : assign delivery detail
3116: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
3117: p_detail_id_tab => l_mdc_detail_tab,
3118: x_return_status => x_return_status);
3119:
3120: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3121: IF l_debug_on THEN
3122: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3123: WSH_DEBUG_SV.pop(l_module_name);
3124: END IF;
3159: p_sync_tmp_rec => l_sync_tmp_rec,
3160: x_return_status => l_return_status
3161: );
3162: --
3163: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3164: --
3165: x_return_status := l_return_status;
3166: --
3167: IF l_debug_on THEN
3170: END IF;
3171: --
3172: return;
3173: --
3174: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3175: --
3176: l_num_warnings := l_num_warnings + 1;
3177: --
3178: END IF;
3193: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
3194: p_detail_id_tab => l_mdc_detail_tab,
3195: x_return_status => x_return_status);
3196:
3197: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3198: IF l_debug_on THEN
3199: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3200: WSH_DEBUG_SV.pop(l_module_name);
3201: END IF;
3259: x_gross_weight1 => l_gross_weight1,
3260: x_gross_weight2 => l_gross_weight2,
3261: x_return_status => l_return_status);
3262:
3263: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3264: IF l_debug_on THEN
3265: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
3266: END IF;
3267: raise FND_API.G_EXC_ERROR;
3306: x_return_status => l_return_status,
3307: p_operation_type => l_operation_type
3308: );
3309: --
3310: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3311: --
3312: x_return_status := l_return_status;
3313: --
3314: IF l_debug_on THEN
3317: END IF;
3318: --
3319: return;
3320: --
3321: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3322: --
3323: l_num_warnings := l_num_warnings + 1;
3324: --
3325: END IF;
3354: p_tms_interface_flag => l_tms_interface_flag,
3355: p_gross_weight => l_gross_weight2, --using the container gross weight
3356: x_return_status => l_return_status);
3357:
3358: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3359: IF l_debug_on THEN
3360: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3361: END IF;
3362: raise FND_API.G_EXC_ERROR;
3359: IF l_debug_on THEN
3360: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3361: END IF;
3362: raise FND_API.G_EXC_ERROR;
3363: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3364: l_num_warnings := l_num_warnings + 1;
3365: END IF;
3366: END IF;
3367: -- End of OTM R12 : assign delivery detail
3372: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
3373: p_detail_id_tab => l_mdc_detail_tab,
3374: x_return_status => x_return_status);
3375:
3376: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3377: IF l_debug_on THEN
3378: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3379: WSH_DEBUG_SV.pop(l_module_name);
3380: END IF;
3404: p_diff_volume => l_del_id_for_container.volume,
3405: p_diff_fill_volume => l_del_id_for_container.volume,
3406: x_return_status => l_return_status);
3407:
3408: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3409: --
3410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3411: WSH_UTIL_CORE.Add_Message(x_return_status);
3412: IF l_debug_on THEN
3406: x_return_status => l_return_status);
3407:
3408: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3409: --
3410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3411: WSH_UTIL_CORE.Add_Message(x_return_status);
3412: IF l_debug_on THEN
3413: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3414: WSH_DEBUG_SV.pop(l_module_name);
3407:
3408: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3409: --
3410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3411: WSH_UTIL_CORE.Add_Message(x_return_status);
3412: IF l_debug_on THEN
3413: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3414: WSH_DEBUG_SV.pop(l_module_name);
3415: END IF;
3440: p_diff_volume => l_del_id_for_detail.volume,
3441: p_diff_fill_volume => l_del_id_for_detail.volume,
3442: x_return_status => l_return_status);
3443:
3444: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3445: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3446: l_num_warnings := l_num_warnings + 1;
3447: ELSE
3448: --
3441: p_diff_fill_volume => l_del_id_for_detail.volume,
3442: x_return_status => l_return_status);
3443:
3444: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3445: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3446: l_num_warnings := l_num_warnings + 1;
3447: ELSE
3448: --
3449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3445: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3446: l_num_warnings := l_num_warnings + 1;
3447: ELSE
3448: --
3449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3450: WSH_UTIL_CORE.Add_Message(x_return_status);
3451: IF l_debug_on THEN
3452: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3453: WSH_DEBUG_SV.pop(l_module_name);
3446: l_num_warnings := l_num_warnings + 1;
3447: ELSE
3448: --
3449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3450: WSH_UTIL_CORE.Add_Message(x_return_status);
3451: IF l_debug_on THEN
3452: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3453: WSH_DEBUG_SV.pop(l_module_name);
3454: END IF;
3469: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3470: p_entity_type => 'DELIVERY',
3471: p_entity_ids => l_del_tab,
3472: x_return_status => l_return_status);
3473: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3474: raise mark_reprice_error;
3475: END IF;
3476: END IF;
3477:
3475: END IF;
3476: END IF;
3477:
3478: IF l_num_warnings > 0 THEN
3479: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3480: END IF;
3481:
3482: --
3483: IF l_debug_on THEN
3487: exception
3488:
3489: -- OTM R12 : assign delivery detail
3490: WHEN FND_API.G_EXC_ERROR then
3491: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3492: --
3493: IF l_debug_on THEN
3494: WSH_DEBUG_SV.pop(l_module_name);
3495: END IF;
3499:
3500: WHEN mark_reprice_error then
3501: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
3502: x_return_status := l_return_status;
3503: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3504: --
3505: IF l_debug_on THEN
3506: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3507: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3507: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3508: END IF;
3509: --
3510: WHEN invalid_detail then
3511: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3512: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
3513: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
3514: wsh_util_core.add_message(x_return_status,l_module_name);
3515: --
3510: WHEN invalid_detail then
3511: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3512: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
3513: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
3514: wsh_util_core.add_message(x_return_status,l_module_name);
3515: --
3516: IF l_debug_on THEN
3517: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
3519: END IF;
3520: --
3521: RETURN;
3522: WHEN others THEN
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3524: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_CONT',l_module_name);
3525: --
3526: IF l_debug_on THEN
3527: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3520: --
3521: RETURN;
3522: WHEN others THEN
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3524: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_CONT',l_module_name);
3525: --
3526: IF l_debug_on THEN
3527: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3528: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3555: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
3556: l_cont_fill_pc NUMBER;
3557:
3558: /* H projects: pricing integration csun */
3559: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
3560: l_return_status VARCHAR2(1);
3561: l_del_rec C_DEL_ID_FOR_CONT_OR_DETAIL%ROWTYPE;
3562: mark_reprice_error EXCEPTION;
3563:
3564: l_num_warnings number := 0;
3565: -- K LPN CONV. rv
3566: l_wms_org VARCHAR2(10) := 'N';
3567: l_sync_tmp_rec wsh_glbl_var_strct_grp.sync_tmp_rec_type;
3568: l_mdc_detail_tab wsh_util_core.id_tab_type;
3569:
3570: cursor l_parent_cnt_csr (p_cnt_inst_id IN NUMBER) is
3571: select organization_id,
3572: nvl(line_direction,'O')
3600: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
3601: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
3602: END IF;
3603: --
3604: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3605:
3606: -- J: W/V Changes
3607: OPEN C_DEL_ID_FOR_CONT_OR_DETAIL(p_detail_id);
3608: FETCH C_DEL_ID_FOR_CONT_OR_DETAIL INTO l_del_rec;
3664: p_diff_fill_volume => -1 * l_del_rec.volume,
3665: p_check_for_empty => 'Y',
3666: x_return_status => l_return_status);
3667:
3668: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3669: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3670: l_num_warnings := l_num_warnings + 1;
3671: ELSE
3672: --
3665: p_check_for_empty => 'Y',
3666: x_return_status => l_return_status);
3667:
3668: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3669: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3670: l_num_warnings := l_num_warnings + 1;
3671: ELSE
3672: --
3673: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3669: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3670: l_num_warnings := l_num_warnings + 1;
3671: ELSE
3672: --
3673: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3674: WSH_UTIL_CORE.Add_Message(x_return_status);
3675: IF l_debug_on THEN
3676: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3677: WSH_DEBUG_SV.pop(l_module_name);
3670: l_num_warnings := l_num_warnings + 1;
3671: ELSE
3672: --
3673: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3674: WSH_UTIL_CORE.Add_Message(x_return_status);
3675: IF l_debug_on THEN
3676: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3677: WSH_DEBUG_SV.pop(l_module_name);
3678: END IF;
3709: p_sync_tmp_rec => l_sync_tmp_rec,
3710: x_return_status => l_return_status
3711: );
3712:
3713: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3714: THEN
3715: IF l_debug_on THEN
3716: WSH_DEBUG_SV.log(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE returned ',l_return_status);
3717: END IF;
3715: IF l_debug_on THEN
3716: WSH_DEBUG_SV.log(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE returned ',l_return_status);
3717: END IF;
3718: RAISE e_abort;
3719: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3720: l_num_warnings := l_num_warnings + 1;
3721: END IF;
3722: --}
3723: END IF;
3733: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
3734: p_detail_id_tab => l_mdc_detail_tab,
3735: x_return_status => x_return_status);
3736:
3737: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3738: IF l_debug_on THEN
3739: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3740: WSH_DEBUG_SV.pop(l_module_name);
3741: END IF;
3754: p_organization_id => l_del_rec.organization_id,
3755: x_param_info => l_param_info,
3756: x_return_status => l_return_status);
3757:
3758: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3759: IF l_debug_on THEN
3760: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
3761: END IF;
3762: raise e_abort;
3784: p_vol_uom_code => l_del_rec.volume_uom_code,
3785: p_inv_item_id => l_del_rec.inventory_item_id,
3786: x_return_status => l_return_status);
3787:
3788: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3789: THEN
3790: IF l_debug_on THEN
3791: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.ADJUST_PARENT_WV returned '||l_return_status);
3792: END IF;
3790: IF l_debug_on THEN
3791: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.ADJUST_PARENT_WV returned '||l_return_status);
3792: END IF;
3793: RAISE e_abort;
3794: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3795: l_num_warnings := l_num_warnings + 1;
3796: END IF;
3797:
3798: --}
3819: p_diff_net_wt => l_del_rec.net_weight,
3820: p_diff_volume => l_del_rec.volume,
3821: p_diff_fill_volume => l_del_rec.volume,
3822: x_return_status => l_return_status);
3823: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3824: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3825: l_num_warnings := l_num_warnings + 1;
3826: ELSE
3827: --
3820: p_diff_volume => l_del_rec.volume,
3821: p_diff_fill_volume => l_del_rec.volume,
3822: x_return_status => l_return_status);
3823: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3824: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3825: l_num_warnings := l_num_warnings + 1;
3826: ELSE
3827: --
3828: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3824: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3825: l_num_warnings := l_num_warnings + 1;
3826: ELSE
3827: --
3828: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3829: WSH_UTIL_CORE.Add_Message(x_return_status);
3830: IF l_debug_on THEN
3831: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3832: WSH_DEBUG_SV.pop(l_module_name);
3825: l_num_warnings := l_num_warnings + 1;
3826: ELSE
3827: --
3828: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3829: WSH_UTIL_CORE.Add_Message(x_return_status);
3830: IF l_debug_on THEN
3831: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3832: WSH_DEBUG_SV.pop(l_module_name);
3833: END IF;
3849: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3850: p_entity_type => 'DELIVERY',
3851: p_entity_ids => l_del_tab,
3852: x_return_status => l_return_status);
3853: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3854: raise mark_reprice_error;
3855: END IF;
3856: END IF;
3857:
3855: END IF;
3856: END IF;
3857:
3858: IF l_num_warnings > 0 THEN
3859: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3860: END IF;
3861:
3862: --
3863: IF l_debug_on THEN
3866: --
3867: exception
3868: -- J: W/V Changes
3869: WHEN e_abort THEN
3870: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3871: IF l_debug_on THEN
3872: WSH_DEBUG_SV.pop(l_module_name);
3873: END IF;
3874:
3874:
3875: WHEN mark_reprice_error THEN
3876: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
3877: x_return_status := l_return_status;
3878: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3879:
3880: --
3881: IF l_debug_on THEN
3882: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3883: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3884: END IF;
3885: --
3886: WHEN invalid_detail then
3887: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3888: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
3889: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
3890: wsh_util_core.add_message(x_return_status,l_module_name);
3891: --
3886: WHEN invalid_detail then
3887: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3888: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
3889: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
3890: wsh_util_core.add_message(x_return_status,l_module_name);
3891: --
3892: IF l_debug_on THEN
3893: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3894: WSH_DEBUG_SV.pop(l_module_name);
3895: END IF;
3896: --
3897: RETURN;
3898: WHEN others THEN
3899: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_CONT',l_module_name);
3900: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3901:
3902: --
3903: IF l_debug_on THEN
3896: --
3897: RETURN;
3898: WHEN others THEN
3899: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_CONT',l_module_name);
3900: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3901:
3902: --
3903: IF l_debug_on THEN
3904: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3932: --
3933: BEGIN
3934: --
3935: --
3936: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3937: --
3938: --
3939: END Assign_Cont_To_Delivery;
3940:
3982: grouping_attributes_not_match exception;
3983: arrival_SET_failed exception;
3984: ship_method_not_match exception;
3985: l_delivery_assignments_info WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_Type;
3986: l_mdc_detail_tab wsh_util_core.id_tab_type;
3987: DETAIL_DEL_FROM_to_not_SAME exception;
3988: det_confirmed exception;
3989: update_mol_carton_group_error exception;
3990:
4055: l_dummy_del_det_id NUMBER;
4056:
4057: /* H projects: pricing integration csun */
4058: l_scc_unassign_from_del NUMBER := 0;
4059: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
4060: l_status WSH_LOOKUPS.meaning%TYPE;
4061: l_return_status VARCHAR2(1);
4062:
4063: CURSOR get_lookup (l_code VARCHAR2) IS
4080: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
4081: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
4082: l_action_rec wsh_delivery_autocreate.action_rec_type;
4083: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
4084: l_matched_entities wsh_util_core.id_tab_type;
4085: l_out_rec wsh_delivery_autocreate.out_rec_type;
4086:
4087: -- K LPN CONV. rv
4088: l_detail_wms_org VARCHAR2(10) := 'N';
4093:
4094: -- OTM R12 : update delivery
4095: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4096: l_delivery_info WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4097: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
4098: l_tms_update VARCHAR2(1);
4099: l_trip_not_found VARCHAR2(1);
4100: l_trip_info_rec WSH_DELIVERY_VALIDATIONS.trip_info_rec_type;
4101: l_tms_version_number WSH_NEW_DELIVERIES.TMS_VERSION_NUMBER%TYPE;
4135: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
4136: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
4137: END IF;
4138: --
4139: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4140:
4141: -- OTM R12
4142: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4143:
4138: --
4139: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4140:
4141: -- OTM R12
4142: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4143:
4144: IF (l_gc3_is_installed IS NULL) THEN
4145: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
4146: END IF;
4141: -- OTM R12
4142: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4143:
4144: IF (l_gc3_is_installed IS NULL) THEN
4145: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
4146: END IF;
4147: l_assign_update := FALSE; --default assignment tms update to false
4148: -- End of OTM R12
4149:
4157: IF l_delivery_id <> p_delivery_id THEN
4158: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
4159: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
4160: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_id);
4161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4162: wsh_util_core.add_message(x_return_status,l_module_name);
4163: --
4164: IF l_debug_on THEN
4165: WSH_DEBUG_SV.pop(l_module_name);
4158: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
4159: FND_MESSAGE.SET_TOKEN('DET_NAME',p_detail_id);
4160: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_id);
4161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4162: wsh_util_core.add_message(x_return_status,l_module_name);
4163: --
4164: IF l_debug_on THEN
4165: WSH_DEBUG_SV.pop(l_module_name);
4166: END IF;
4242: x_gross_weight1 => l_gross_weight1,
4243: x_gross_weight2 => l_gross_weight2,
4244: x_return_status => l_return_status);
4245:
4246: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4247: IF l_debug_on THEN
4248: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
4249: END IF;
4250: raise FND_API.G_EXC_ERROR;
4280: END LOOP;
4281: CLOSE c_all_details_below;
4282:
4283: FOR j IN 0..(l_dd_id.COUNT-1) LOOP
4284: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4285: /* For each detail */
4286: IF (l_dd_id(j) < 0) THEN
4287: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4288: fnd_message.SET_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
4283: FOR j IN 0..(l_dd_id.COUNT-1) LOOP
4284: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4285: /* For each detail */
4286: IF (l_dd_id(j) < 0) THEN
4287: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4288: fnd_message.SET_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
4289: wsh_util_core.add_message(x_return_status,l_module_name);
4290: --
4291: IF l_debug_on THEN
4285: /* For each detail */
4286: IF (l_dd_id(j) < 0) THEN
4287: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4288: fnd_message.SET_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
4289: wsh_util_core.add_message(x_return_status,l_module_name);
4290: --
4291: IF l_debug_on THEN
4292: WSH_DEBUG_SV.pop(l_module_name);
4293: END IF;
4324: IF ((l_detail.delivery_id IS NOT NULL) AND (l_detail.delivery_id <> p_delivery_id)) THEN
4325: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
4326: FND_MESSAGE.SET_TOKEN('DET_NAME',l_detail.delivery_detail_id);
4327: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_detail.delivery_id);
4328: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4329: wsh_util_core.add_message(x_return_status,l_module_name);
4330: --
4331: IF l_debug_on THEN
4332: WSH_DEBUG_SV.pop(l_module_name);
4325: FND_MESSAGE.SET_NAME('WSH','WSH_DET_ASSIGNED_DEL');
4326: FND_MESSAGE.SET_TOKEN('DET_NAME',l_detail.delivery_detail_id);
4327: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_detail.delivery_id);
4328: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4329: wsh_util_core.add_message(x_return_status,l_module_name);
4330: --
4331: IF l_debug_on THEN
4332: WSH_DEBUG_SV.pop(l_module_name);
4333: END IF;
4339: -- bug 2691385 - check to see if the container is empty
4340: WSH_CONTAINER_UTILITIES.Is_Empty (p_container_instance_id => l_dd_id(j),
4341: x_empty_flag => l_detail_is_empty_cont,
4342: x_return_status => x_return_status);
4343: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4344: return;
4345: END IF;
4346: ELSE --}{
4347: l_detail_is_empty_cont := 'E';
4396: IF l_debug_on THEN
4397: WSH_DEBUG_SV.log(l_module_name,'Return Status is ',l_return_status);
4398: END IF;
4399: --
4400: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4401: --
4402: x_return_status := l_return_status;
4403: --
4404: IF l_debug_on THEN
4406: END IF;
4407: --
4408: return;
4409: --
4410: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4411: --
4412: l_num_warnings := l_num_warnings + 1;
4413: --
4414: END IF;
4432: shipping_control = l_del.shipping_control -- J-IB-NPARIKH
4433: WHERE delivery_detail_id = l_dd_id(j);
4434:
4435: IF (SQL%NOTFOUND) THEN
4436: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4437: RAISE NO_DATA_FOUND;
4438: END IF;
4439:
4440: --Bug 3383843
4459: l_detail.delivery_detail_id,
4460: l_attr_flag,
4461: x_return_status);
4462:
4463: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4464: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4465: fnd_message.SET_name('WSH', 'WSH_CONT_ATTR_ERROR');
4466: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_detail.delivery_detail_id);
4467: wsh_util_core.add_message(x_return_status,l_module_name);
4460: l_attr_flag,
4461: x_return_status);
4462:
4463: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4464: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4465: fnd_message.SET_name('WSH', 'WSH_CONT_ATTR_ERROR');
4466: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_detail.delivery_detail_id);
4467: wsh_util_core.add_message(x_return_status,l_module_name);
4468: --
4463: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4464: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4465: fnd_message.SET_name('WSH', 'WSH_CONT_ATTR_ERROR');
4466: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_detail.delivery_detail_id);
4467: wsh_util_core.add_message(x_return_status,l_module_name);
4468: --
4469: IF l_debug_on THEN
4470: WSH_DEBUG_SV.pop(l_module_name);
4471: END IF;
4501: x_matched_entities => l_matched_entities,
4502: x_out_rec => l_out_rec,
4503: x_return_status => l_group_status);
4504:
4505: IF (l_group_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4506: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4507: --
4508: IF l_debug_on THEN
4509: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4502: x_out_rec => l_out_rec,
4503: x_return_status => l_group_status);
4504:
4505: IF (l_group_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4506: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4507: --
4508: IF l_debug_on THEN
4509: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4510: WSH_DEBUG_SV.pop(l_module_name);
4543: (p_delivery_id => p_delivery_id,
4544: x_trip_info_rec => l_trip_info_rec,
4545: x_return_status => l_return_status);
4546:
4547: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4548: x_return_status := l_return_status;
4549: IF l_debug_on THEN
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
4551: WSH_DEBUG_SV.pop(l_module_name);
4565: p_delivery_id => p_delivery_id,
4566: x_delivery_rec => l_delivery_info,
4567: x_return_status => l_return_status);
4568:
4569: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4570: x_return_status := l_return_status;
4571: IF l_debug_on THEN
4572: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
4573: WSH_DEBUG_SV.pop(l_module_name);
4635: p_delivery_info_tab => l_delivery_info_tab,
4636: p_new_interface_flag_tab => l_new_interface_flag_tab,
4637: x_return_status => l_return_status);
4638:
4639: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4640: x_return_status := l_return_status;
4641: IF l_debug_on THEN
4642: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
4643: WSH_DEBUG_SV.pop(l_module_name);
4695: x_return_status => l_return_status
4696: );
4697:
4698: --
4699: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4700: --
4701: x_return_status := l_return_status;
4702: --
4703: IF l_debug_on THEN
4706: END IF;
4707: --
4708: return;
4709: --
4710: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4711: --
4712: l_num_warnings := l_num_warnings + 1;
4713: --
4714: END IF;
4724: last_updated_by = FND_GLOBAL.USER_ID,
4725: last_update_login = FND_GLOBAL.LOGIN_ID
4726: WHERE delivery_detail_id = l_detail.delivery_detail_id;
4727: IF (SQL%NOTFOUND) THEN
4728: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4729: RAISE NO_DATA_FOUND;
4730: END IF;
4731:
4732: l_mdc_detail_tab(1) := l_detail.delivery_detail_id;
4733: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
4734: p_detail_id_tab => l_mdc_detail_tab,
4735: x_return_status => x_return_status);
4736:
4737: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4738: IF l_debug_on THEN
4739: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
4740: WSH_DEBUG_SV.pop(l_module_name);
4741: END IF;
4795: WHERE delivery_id = p_delivery_id;
4796: --
4797: IF (SQL%NOTFOUND)
4798: THEN
4799: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4800: RAISE INVALID_DEL;
4801: END IF;
4802: --}
4803: END IF;
4828: x_return_status => x_return_status,
4829: x_msg_cnt => l_msg_count,
4830: x_msg_data => l_msg_data);
4831:
4832: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
4833: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4834: RAISE update_mol_carton_group_error;
4835: END IF;
4836: END IF;
4829: x_msg_cnt => l_msg_count,
4830: x_msg_data => l_msg_data);
4831:
4832: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
4833: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4834: RAISE update_mol_carton_group_error;
4835: END IF;
4836: END IF;
4837: --}
4849: NULL,
4850: p_delivery_id,
4851: l_detail.delivery_detail_id,
4852: x_return_status);
4853: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4854: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
4855: --
4856: IF l_debug_on THEN
4857: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4858: END IF;
4859: --
4860: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_detail.delivery_detail_id);
4861: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4862: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4863: --
4864: IF l_debug_on THEN
4865: WSH_DEBUG_SV.pop(l_module_name);
4866: END IF;
4867: --
4868: return;
4869: END IF;
4870: END IF;
4871: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4872: END IF;--for container
4873: /* H projects: pricing integration csun , if any lines are
4874: successfully unassign from the delivery, the delivery needs to be marked
4875: for repricing */
4898: p_tms_interface_flag => l_tms_interface_flag,
4899: p_gross_weight => l_gross_weight1,
4900: x_return_status => l_return_status);
4901:
4902: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4903: IF l_debug_on THEN
4904: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
4905: END IF;
4906: raise FND_API.G_EXC_ERROR;
4903: IF l_debug_on THEN
4904: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
4905: END IF;
4906: raise FND_API.G_EXC_ERROR;
4907: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4908: l_num_warnings := l_num_warnings + 1;
4909: END IF;
4910: END IF;
4911: -- End of OTM R12 : assign delivery detail
4922: p_diff_volume => l_vol,
4923: p_diff_fill_volume => l_vol,
4924: x_return_status => l_return_status);
4925:
4926: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4927: --
4928: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4929: WSH_UTIL_CORE.Add_Message(x_return_status);
4930: IF l_debug_on THEN
4924: x_return_status => l_return_status);
4925:
4926: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4927: --
4928: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4929: WSH_UTIL_CORE.Add_Message(x_return_status);
4930: IF l_debug_on THEN
4931: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4932: WSH_DEBUG_SV.pop(l_module_name);
4925:
4926: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4927: --
4928: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4929: WSH_UTIL_CORE.Add_Message(x_return_status);
4930: IF l_debug_on THEN
4931: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4932: WSH_DEBUG_SV.pop(l_module_name);
4933: END IF;
4953: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
4954: p_entity_type => 'DELIVERY',
4955: p_entity_ids => l_del_tab,
4956: x_return_status => l_return_status);
4957: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4958: raise mark_reprice_error;
4959: END IF;
4960: END IF;
4961:
4959: END IF;
4960: END IF;
4961:
4962: -- LPN CONV. rv
4963: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4964: --
4965: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4966: --
4967: ELSE
4961:
4962: -- LPN CONV. rv
4963: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4964: --
4965: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4966: --
4967: ELSE
4968: --
4969: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4965: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4966: --
4967: ELSE
4968: --
4969: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4970: --
4971: END IF;
4972: -- LPN CONV. rv
4973:
4979: --
4980: EXCEPTION
4981: -- J-IB-NPARIKH-{
4982: WHEN FND_API.G_EXC_ERROR THEN
4983: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
4984: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
4985: --
4986: IF l_debug_on
4987: THEN
4980: EXCEPTION
4981: -- J-IB-NPARIKH-{
4982: WHEN FND_API.G_EXC_ERROR THEN
4983: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
4984: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
4985: --
4986: IF l_debug_on
4987: THEN
4988: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
4991:
4992: WHEN mark_reprice_error THEN
4993: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
4994: x_return_status := l_return_status;
4995: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
4996:
4997: --
4998: IF l_debug_on THEN
4999: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5002: --
5003: WHEN update_mol_carton_group_error THEN
5004: fnd_message.SET_name('WSH', 'WSH_MOL_CARTON_GROUP_ERROR');
5005: x_return_status := l_return_status;
5006: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5007:
5008: --
5009: IF l_debug_on THEN
5010: WSH_DEBUG_SV.logmsg(l_module_name,'update_mol_carton_group_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5012: END IF;
5013:
5014:
5015: WHEN INVALID_DEL THEN
5016: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5017: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
5018: wsh_util_core.add_message(x_return_status,l_module_name);
5019: --
5020: IF l_debug_on THEN
5014:
5015: WHEN INVALID_DEL THEN
5016: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5017: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
5018: wsh_util_core.add_message(x_return_status,l_module_name);
5019: --
5020: IF l_debug_on THEN
5021: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DEL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DEL');
5023: END IF;
5024: RETURN;
5025: --
5026: WHEN DEL_NOT_UPDATABLE THEN
5027: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5028: wsh_util_core.add_message(x_return_status,l_module_name);
5029: --
5030: IF l_debug_on THEN
5031: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5024: RETURN;
5025: --
5026: WHEN DEL_NOT_UPDATABLE THEN
5027: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5028: wsh_util_core.add_message(x_return_status,l_module_name);
5029: --
5030: IF l_debug_on THEN
5031: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5032: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DEL_NOT_UPDATABLE');
5033: END IF;
5034: --
5035: RETURN;
5036: WHEN INVALID_DETAIL THEN
5037: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5038: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DETAIL');
5039: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5040: wsh_util_core.add_message(x_return_status,l_module_name);
5041: --
5036: WHEN INVALID_DETAIL THEN
5037: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5038: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DETAIL');
5039: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5040: wsh_util_core.add_message(x_return_status,l_module_name);
5041: --
5042: IF l_debug_on THEN
5043: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5044: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
5045: END IF;
5046: --
5047: RETURN;
5048: WHEN DET_CONFIRMED THEN
5049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5050: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
5051: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5052: wsh_util_core.add_message(x_return_status,l_module_name);
5053: --
5048: WHEN DET_CONFIRMED THEN
5049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5050: fnd_message.SET_name('WSH', 'WSH_DET_CONFIRMED_DETAIL');
5051: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5052: wsh_util_core.add_message(x_return_status,l_module_name);
5053: --
5054: IF l_debug_on THEN
5055: WSH_DEBUG_SV.logmsg(l_module_name,'DET_CONFIRMED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5056: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DET_CONFIRMED');
5057: END IF;
5058: --
5059: RETURN;
5060: WHEN detail_del_FROM_to_not_same THEN
5061: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5062: fnd_message.SET_name('WSH', 'WSH_DET_SHIP_F_T_N_MATCH');
5063: wsh_util_core.add_message(x_return_status,l_module_name);
5064:
5065:
5059: RETURN;
5060: WHEN detail_del_FROM_to_not_same THEN
5061: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5062: fnd_message.SET_name('WSH', 'WSH_DET_SHIP_F_T_N_MATCH');
5063: wsh_util_core.add_message(x_return_status,l_module_name);
5064:
5065:
5066:
5067: --
5071: END IF;
5072: --
5073: RETURN;
5074: WHEN ship_method_not_match THEN
5075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5076: fnd_message.SET_name('WSH', 'WSH_DET_SHIP_METHOD_NOT_MATCH');
5077: wsh_util_core.add_message(x_return_status,l_module_name);
5078: --
5079: IF l_debug_on THEN
5073: RETURN;
5074: WHEN ship_method_not_match THEN
5075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5076: fnd_message.SET_name('WSH', 'WSH_DET_SHIP_METHOD_NOT_MATCH');
5077: wsh_util_core.add_message(x_return_status,l_module_name);
5078: --
5079: IF l_debug_on THEN
5080: WSH_DEBUG_SV.logmsg(l_module_name,'SHIP_METHOD_NOT_MATCH exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5081: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SHIP_METHOD_NOT_MATCH');
5082: END IF;
5083: --
5084: RETURN;
5085: WHEN others THEN
5086: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5087: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5088: --
5089: IF l_debug_on THEN
5090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5083: --
5084: RETURN;
5085: WHEN others THEN
5086: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5087: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5088: --
5089: IF l_debug_on THEN
5090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5128: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
5129: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5130: END IF;
5131: --
5132: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5133: --
5134: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
5135: (
5136: p_delivery_id => p_delivery_id
5150: END IF;
5151: --
5152: EXCEPTION
5153: WHEN others THEN
5154: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5155: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5156: --
5157: IF l_debug_on THEN
5158: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5151: --
5152: EXCEPTION
5153: WHEN others THEN
5154: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5155: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5156: --
5157: IF l_debug_on THEN
5158: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5159: END IF;
5178: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PACKAGE_NAME || '.' || 'UNASSIGN_CONT_FROM_DELIVERY';
5179: --
5180: BEGIN
5181: --
5182: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5183: --
5184: END Unassign_Cont_FROM_Delivery;
5185:
5186: --
5264: x_pack_status VARCHAR2(30);
5265:
5266: End of adding cursor for fill percentage
5267: */
5268: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5269: l_del_id_for_container1 C_DEL_ID_FOR_CONT_OR_DETAIL%ROWTYPE;
5270: l_del_id_for_container2 C_DEL_ID_FOR_CONT_OR_DETAIL%ROWTYPE;
5271:
5272: detail_cont_name WSH_DELIVERY_DETAILS.CONTAINER_NAME%TYPE;
5274:
5275: l_group_by_flags WSH_DELIVERY_AUTOCREATE.group_by_flags_rec_type;
5276: /* H projects: pricing integration csun */
5277: m NUMBER := 0;
5278: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
5279: mark_reprice_error EXCEPTION;
5280: l_plan_flag varchar2(1);
5281: l_content_count NUMBER;
5282:
5288: l_sync_tmp_recTbl wsh_glbl_var_strct_grp.sync_tmp_recTbl_type;
5289: l_num_warnings NUMBER := 0;
5290: l_operation_type VARCHAR2(100);
5291: -- K LPN CONV. rv
5292: l_mdc_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
5293: l_ignore_det_tab WSH_UTIL_CORE.Id_Tab_Type;
5294:
5295: -- OTM R12 : assign delivery detail
5296: l_delivery_was_empty BOOLEAN;
5289: l_num_warnings NUMBER := 0;
5290: l_operation_type VARCHAR2(100);
5291: -- K LPN CONV. rv
5292: l_mdc_detail_tab WSH_UTIL_CORE.Id_Tab_Type;
5293: l_ignore_det_tab WSH_UTIL_CORE.Id_Tab_Type;
5294:
5295: -- OTM R12 : assign delivery detail
5296: l_delivery_was_empty BOOLEAN;
5297: l_tms_interface_flag WSH_NEW_DELIVERIES.TMS_INTERFACE_FLAG%TYPE;
5323: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID1',P_DETAIL_ID1);
5324: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID2',P_DETAIL_ID2);
5325: END IF;
5326: --
5327: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5328:
5329: -- OTM R12
5330: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
5331:
5326: --
5327: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5328:
5329: -- OTM R12
5330: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
5331:
5332: IF (l_gc3_is_installed IS NULL) THEN
5333: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
5334: END IF;
5329: -- OTM R12
5330: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
5331:
5332: IF (l_gc3_is_installed IS NULL) THEN
5333: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
5334: END IF;
5335: l_assign_update := FALSE; --default assignment tms update to false
5336: -- End of OTM R12
5337:
5426: END IF;
5427: --
5428: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5429: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5430: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5431: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5432: --
5433: IF l_debug_on THEN
5434: WSH_DEBUG_SV.pop(l_module_name);
5427: --
5428: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5429: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5430: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5431: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5432: --
5433: IF l_debug_on THEN
5434: WSH_DEBUG_SV.pop(l_module_name);
5435: END IF;
5452: x_gross_weight1 => l_gross_weight1,
5453: x_gross_weight2 => l_gross_weight2,
5454: x_return_status => l_return_status);
5455:
5456: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5457: --handle the error approriately to the procedure this code is in
5458: IF l_debug_on THEN
5459: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
5460: END IF;
5489: END IF;
5490: --
5491: FND_MESSAGE.SET_TOKEN('PARENT_CONTAINER',
5492: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5493: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5494: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5495: --
5496: IF l_debug_on THEN
5497: WSH_DEBUG_SV.pop(l_module_name);
5490: --
5491: FND_MESSAGE.SET_TOKEN('PARENT_CONTAINER',
5492: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5493: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5494: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5495: --
5496: IF l_debug_on THEN
5497: WSH_DEBUG_SV.pop(l_module_name);
5498: END IF;
5520: END IF;
5521: --
5522: FND_MESSAGE.SET_TOKEN('ENTITY2',
5523: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5524: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5525: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5526: --
5527: IF l_debug_on THEN
5528: WSH_DEBUG_SV.pop(l_module_name);
5521: --
5522: FND_MESSAGE.SET_TOKEN('ENTITY2',
5523: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5524: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5525: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5526: --
5527: IF l_debug_on THEN
5528: WSH_DEBUG_SV.pop(l_module_name);
5529: END IF;
5547: END IF;
5548: --
5549: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5550: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5551: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5552: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5553: --
5554: IF l_debug_on THEN
5555: WSH_DEBUG_SV.pop(l_module_name);
5548: --
5549: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5550: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5551: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5552: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5553: --
5554: IF l_debug_on THEN
5555: WSH_DEBUG_SV.pop(l_module_name);
5556: END IF;
5583: p_in_ids => l_ignore_det_tab,
5584: p_action_code => 'IGNORE_PLAN',
5585: x_return_status => x_return_status);
5586:
5587: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5588:
5589: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_DIFF_IGNOREPLAN');
5590: FND_MESSAGE.SET_TOKEN('ENTITY1',nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5591: --
5593: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5594: END IF;
5595: --
5596: FND_MESSAGE.SET_TOKEN('ENTITY2',nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5597: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5598: --
5599: IF l_debug_on THEN
5600: WSH_DEBUG_SV.pop(l_module_name);
5601: END IF;
5623: p_in_ids => l_ignore_det_tab,
5624: p_action_code => 'IGNORE_PLAN',
5625: x_return_status => l_return_status);
5626:
5627: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
5628: l_display_error := TRUE;
5629: ELSE
5630: l_display_error := FALSE;
5631: END IF;--}
5644: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5645: END IF;
5646: --
5647: FND_MESSAGE.SET_TOKEN('ENTITY2',nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5648: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5649: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5650: --
5651: IF l_debug_on THEN
5652: WSH_DEBUG_SV.pop(l_module_name);
5645: END IF;
5646: --
5647: FND_MESSAGE.SET_TOKEN('ENTITY2',nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5648: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5649: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5650: --
5651: IF l_debug_on THEN
5652: WSH_DEBUG_SV.pop(l_module_name);
5653: END IF;
5690: END IF;
5691: --
5692: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5693: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5695: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5696: --
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.pop(l_module_name);
5691: --
5692: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5693: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5695: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5696: --
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.pop(l_module_name);
5699: END IF;
5715: p_organization_id => l_del_id_for_container1.organization_id,
5716: x_group_by_flags => l_group_by_flags,
5717: x_return_status => x_return_status);
5718:
5719: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5720: x_return_status := x_return_status;
5721: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5722: --
5723: IF l_debug_on THEN
5717: x_return_status => x_return_status);
5718:
5719: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5720: x_return_status := x_return_status;
5721: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5722: --
5723: IF l_debug_on THEN
5724: WSH_DEBUG_SV.pop(l_module_name);
5725: END IF;
5747:
5748: if l_plan_flag <> 'N' then
5749: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
5750:
5751: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5752:
5753: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5754: --
5755: IF l_debug_on THEN
5749: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
5750:
5751: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5752:
5753: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5754: --
5755: IF l_debug_on THEN
5756: WSH_DEBUG_SV.pop(l_module_name);
5757: END IF;
5767:
5768: if l_plan_flag <> 'N' then
5769: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
5770:
5771: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5772:
5773: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5774: --
5775: IF l_debug_on THEN
5769: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_STATUS_NOT_PROPER');
5770:
5771: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5772:
5773: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5774: --
5775: IF l_debug_on THEN
5776: WSH_DEBUG_SV.pop(l_module_name);
5777: END IF;
5801: END IF;
5802: --
5803: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5804: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5805: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5806: --
5807: IF l_debug_on THEN
5808: WSH_DEBUG_SV.pop(l_module_name);
5809: END IF;
5828: END IF;
5829: --
5830: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5831: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5832: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5833: --
5834: IF l_debug_on THEN
5835: WSH_DEBUG_SV.pop(l_module_name);
5836: END IF;
5855: END IF;
5856: --
5857: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5858: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5859: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5860: --
5861: IF l_debug_on THEN
5862: WSH_DEBUG_SV.pop(l_module_name);
5863: END IF;
5882: END IF;
5883: --
5884: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5885: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5886: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5887: --
5888: IF l_debug_on THEN
5889: WSH_DEBUG_SV.pop(l_module_name);
5890: END IF;
5914: END IF;
5915: --
5916: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5917: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5918: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5919: --
5920: IF l_debug_on THEN
5921: WSH_DEBUG_SV.pop(l_module_name);
5922: END IF;
5953: p_diff_volume => -1 * l_del_id_for_container1.volume,
5954: p_diff_fill_volume => -1 * l_del_id_for_container1.volume,
5955: x_return_status => l_return_status);
5956:
5957: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5958: --
5959: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5960: WSH_UTIL_CORE.Add_Message(x_return_status);
5961: IF l_debug_on THEN
5955: x_return_status => l_return_status);
5956:
5957: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5958: --
5959: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5960: WSH_UTIL_CORE.Add_Message(x_return_status);
5961: IF l_debug_on THEN
5962: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
5963: WSH_DEBUG_SV.pop(l_module_name);
5956:
5957: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5958: --
5959: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5960: WSH_UTIL_CORE.Add_Message(x_return_status);
5961: IF l_debug_on THEN
5962: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
5963: WSH_DEBUG_SV.pop(l_module_name);
5964: END IF;
6022: x_return_status => l_return_status,
6023: p_operation_type => l_operation_type
6024: );
6025: --
6026: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6027: --
6028: x_return_status := l_return_status;
6029: --
6030: IF l_debug_on THEN
6033: END IF;
6034: --
6035: return;
6036: --
6037: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6038: --
6039: l_num_warnings := l_num_warnings + 1;
6040: --
6041: END IF;
6065: p_tms_interface_flag => l_tms_interface_flag,
6066: p_gross_weight => l_gross_weight2, --using the gross weight of container2
6067: x_return_status => l_return_status);
6068:
6069: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6070: IF l_debug_on THEN
6071: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6072: END IF;
6073: raise FND_API.G_EXC_ERROR;
6070: IF l_debug_on THEN
6071: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6072: END IF;
6073: raise FND_API.G_EXC_ERROR;
6074: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6075: l_num_warnings := l_num_warnings + 1;
6076: END IF;
6077:
6078: END IF;
6084: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
6085: p_detail_id_tab => l_mdc_detail_tab,
6086: x_return_status => x_return_status);
6087:
6088: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6089: IF l_debug_on THEN
6090: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6091: WSH_DEBUG_SV.pop(l_module_name);
6092: END IF;
6114: p_diff_volume => l_del_id_for_container2.volume,
6115: p_diff_fill_volume => l_del_id_for_container2.volume,
6116: x_return_status => l_return_status);
6117:
6118: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6119: --
6120: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6121: WSH_UTIL_CORE.Add_Message(x_return_status);
6122: IF l_debug_on THEN
6116: x_return_status => l_return_status);
6117:
6118: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6119: --
6120: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6121: WSH_UTIL_CORE.Add_Message(x_return_status);
6122: IF l_debug_on THEN
6123: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6124: WSH_DEBUG_SV.pop(l_module_name);
6117:
6118: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6119: --
6120: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6121: WSH_UTIL_CORE.Add_Message(x_return_status);
6122: IF l_debug_on THEN
6123: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6124: WSH_DEBUG_SV.pop(l_module_name);
6125: END IF;
6186: x_return_status => l_return_status,
6187: p_operation_type => l_operation_type
6188: );
6189: --
6190: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6191: --
6192: x_return_status := l_return_status;
6193: --
6194: IF l_debug_on THEN
6197: END IF;
6198: --
6199: return;
6200: --
6201: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6202: --
6203: l_num_warnings := l_num_warnings + 1;
6204: --
6205: END IF;
6229: p_tms_interface_flag => l_tms_interface_flag,
6230: p_gross_weight => l_gross_weight1, --using the gross weight of container1
6231: x_return_status => l_return_status);
6232:
6233: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6234: IF l_debug_on THEN
6235: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6236: END IF;
6237: raise FND_API.G_EXC_ERROR;
6234: IF l_debug_on THEN
6235: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6236: END IF;
6237: raise FND_API.G_EXC_ERROR;
6238: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6239: l_num_warnings := l_num_warnings + 1;
6240: END IF;
6241: END IF;
6242: -- End of OTM R12 : assign delivery detail
6247: END LOOP;
6248: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
6249: p_detail_id_tab => l_mdc_detail_tab,
6250: x_return_status => x_return_status);
6251: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6252: IF l_debug_on THEN
6253: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6254: WSH_DEBUG_SV.pop(l_module_name);
6255: END IF;
6296: p_sync_tmp_rec => l_sync_tmp_rec,
6297: x_return_status => l_return_status
6298: );
6299: --
6300: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6301: --
6302: x_return_status := l_return_status;
6303: --
6304: IF l_debug_on THEN
6307: END IF;
6308: --
6309: return;
6310: --
6311: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6312: --
6313: l_num_warnings := l_num_warnings + 1;
6314: --
6315: END IF;
6329: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
6330: p_detail_id_tab => l_mdc_detail_tab,
6331: x_return_status => x_return_status);
6332:
6333: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6334: IF l_debug_on THEN
6335: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6336: WSH_DEBUG_SV.pop(l_module_name);
6337: END IF;
6353: p_diff_volume => l_del_id_for_container1.volume,
6354: p_diff_fill_volume => l_del_id_for_container1.volume,
6355: x_return_status => l_return_status);
6356:
6357: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6358: --
6359: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6360: WSH_UTIL_CORE.Add_Message(x_return_status);
6361: IF l_debug_on THEN
6355: x_return_status => l_return_status);
6356:
6357: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6358: --
6359: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6360: WSH_UTIL_CORE.Add_Message(x_return_status);
6361: IF l_debug_on THEN
6362: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6363: WSH_DEBUG_SV.pop(l_module_name);
6356:
6357: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6358: --
6359: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6360: WSH_UTIL_CORE.Add_Message(x_return_status);
6361: IF l_debug_on THEN
6362: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6363: WSH_DEBUG_SV.pop(l_module_name);
6364: END IF;
6404:
6405: exception
6406: WHEN others THEN
6407: rollback to before_cont_assignment;
6408: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6409: fnd_message.SET_name('WSH', 'WSH_CONT_LOOP_NO_PACK');
6410: fnd_message.set_token('DETAIL_CONTAINER', detail_cont_name);
6411: fnd_message.set_token('PARENT_CONTAINER', parent_cont_name);
6412: wsh_util_core.add_message(x_return_status,l_module_name);
6408: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6409: fnd_message.SET_name('WSH', 'WSH_CONT_LOOP_NO_PACK');
6410: fnd_message.set_token('DETAIL_CONTAINER', detail_cont_name);
6411: fnd_message.set_token('PARENT_CONTAINER', parent_cont_name);
6412: wsh_util_core.add_message(x_return_status,l_module_name);
6413: --
6414: IF l_debug_on THEN
6415: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected Error has occured. Oracle Err Mesg is'||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6416: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION1 : OTHERS');
6434: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
6435: p_entity_type => 'DELIVERY',
6436: p_entity_ids => l_del_tab,
6437: x_return_status => l_return_status);
6438: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6439: raise mark_reprice_error;
6440: END IF;
6441: END IF;
6442:
6440: END IF;
6441: END IF;
6442:
6443: -- LPN CONV. rv
6444: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6445: --
6446: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6447: --
6448: ELSE
6442:
6443: -- LPN CONV. rv
6444: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6445: --
6446: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6447: --
6448: ELSE
6449: --
6450: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6446: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6447: --
6448: ELSE
6449: --
6450: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6451: --
6452: END IF;
6453: -- LPN CONV. rv
6454:
6461: exception
6462:
6463: -- OTM R12 : assign delivery detail
6464: WHEN FND_API.G_EXC_ERROR then
6465: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6466: --
6467: IF l_debug_on THEN
6468: WSH_DEBUG_SV.pop(l_module_name);
6469: END IF;
6473:
6474: WHEN mark_reprice_error THEN
6475: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
6476: x_return_status := l_return_status;
6477: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
6478: --
6479: IF l_debug_on THEN
6480: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6481: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
6487: end if;
6488: if c_del_id_for_cont_or_detail%ISOPEN THEN
6489: close c_del_id_for_cont_or_detail;
6490: end if;
6491: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6492: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',l_module_name);
6493: --
6494: IF l_debug_on THEN
6495: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6488: if c_del_id_for_cont_or_detail%ISOPEN THEN
6489: close c_del_id_for_cont_or_detail;
6490: end if;
6491: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6492: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',l_module_name);
6493: --
6494: IF l_debug_on THEN
6495: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6530: BEGIN
6531:
6532: --
6533: --
6534: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6535: --
6536: --
6537: END Unassign_Cont_from_Cont;
6538:
6591: and wdd.delivery_detail_id = wda.delivery_detail_id
6592: and ((wda.delivery_id IS not null) or (wda.parent_delivery_detail_id IS not null));
6593:
6594: l_assign c_assign_rec%ROWTYPE;
6595: l_mdc_detail_tab wsh_util_core.id_tab_type;
6596: /** We just need a Warning when ever we Unassign a Detail from a Delivery and
6597: if that Detail is part of a Ship Set */
6598: l_delivery_detail_id NUMBER;
6599: invalid_detail exception;
6631: l_vol NUMBER;
6632: l_container_flag VARCHAR2(1);
6633: l_delivery_id NUMBER;
6634:
6635: l_dd_id WSH_UTIL_CORE.Id_Tab_Type;
6636: l_del_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6637: l_parent_dd_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6638: l_line_dir_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6639: l_cnt_flag_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6632: l_container_flag VARCHAR2(1);
6633: l_delivery_id NUMBER;
6634:
6635: l_dd_id WSH_UTIL_CORE.Id_Tab_Type;
6636: l_del_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6637: l_parent_dd_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6638: l_line_dir_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6639: l_cnt_flag_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6640: l_det_org_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6633: l_delivery_id NUMBER;
6634:
6635: l_dd_id WSH_UTIL_CORE.Id_Tab_Type;
6636: l_del_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6637: l_parent_dd_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6638: l_line_dir_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6639: l_cnt_flag_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6640: l_det_org_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6641: i BINARY_INTEGER := 0;
6636: l_del_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6637: l_parent_dd_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6638: l_line_dir_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6639: l_cnt_flag_tbl WSH_GLBL_VAR_STRCT_GRP.v3_Tbl_Type; -- LPN CONV. rv
6640: l_det_org_id_tbl WSH_UTIL_CORE.Id_Tab_Type; -- LPN CONV. rv
6641: i BINARY_INTEGER := 0;
6642: j BINARY_INTEGER :=0;
6643:
6644: l_dummy_del_det_id NUMBER;
6643:
6644: l_dummy_del_det_id NUMBER;
6645: l_del_det_id NUMBER;
6646:
6647: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
6648: l_status WSH_LOOKUPS.meaning%TYPE;
6649:
6650: CURSOR get_lookup (l_code VARCHAR2) IS
6651: SELECT meaning
6662: l_rel_status VARCHAR2(32767);
6663:
6664: l_null_delivery_id NUMBER; -- Bugfix 3768823
6665:
6666: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
6667: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
6668:
6669: -- K LPN CONV. rv
6670: l_wms_org VARCHAR2(10) := 'N';
6686: -- K LPN CONV. rv
6687: --
6688:
6689: -- OTM R12 : unassign delivery detail
6690: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6691: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6692: l_is_delivery_empty VARCHAR2(1);
6693: l_gc3_is_installed VARCHAR2(1);
6694: l_call_update VARCHAR2(1);
6687: --
6688:
6689: -- OTM R12 : unassign delivery detail
6690: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
6691: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
6692: l_is_delivery_empty VARCHAR2(1);
6693: l_gc3_is_installed VARCHAR2(1);
6694: l_call_update VARCHAR2(1);
6695: l_gross_weight WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE;
6692: l_is_delivery_empty VARCHAR2(1);
6693: l_gc3_is_installed VARCHAR2(1);
6694: l_call_update VARCHAR2(1);
6695: l_gross_weight WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE;
6696: l_gross_weight_tbl WSH_UTIL_CORE.ID_TAB_TYPE;
6697: -- End of OTM R12 : unassign delivery detail
6698:
6699: l_debug_on BOOLEAN;
6700: --
6720: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
6721: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.caller',p_action_prms.caller);
6722: END IF;
6723: --
6724: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6725: -- OTM R12
6726: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6727:
6728: IF (l_gc3_is_installed IS NULL) THEN
6722: END IF;
6723: --
6724: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6725: -- OTM R12
6726: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6727:
6728: IF (l_gc3_is_installed IS NULL) THEN
6729: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6730: END IF;
6725: -- OTM R12
6726: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
6727:
6728: IF (l_gc3_is_installed IS NULL) THEN
6729: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
6730: END IF;
6731: -- End of OTM R12
6732:
6733: SAVEPOINT before_unassign;
6755: -- Unassign lines is allowed during ASN/Receipt integration
6756: -- even though lines are shipped, so bypassing checks for those callers.
6757: --
6758: IF l_detail_status = 'C'
6759: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6760: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6761: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6762: THEN
6763: Raise invalid_detail;
6756: -- even though lines are shipped, so bypassing checks for those callers.
6757: --
6758: IF l_detail_status = 'C'
6759: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6760: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6761: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6762: THEN
6763: Raise invalid_detail;
6764: END IF;
6757: --
6758: IF l_detail_status = 'C'
6759: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6760: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6761: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6762: THEN
6763: Raise invalid_detail;
6764: END IF;
6765:
6795: (l_del1.status_code = 'CO') or
6796: (l_del1.status_code = 'SC') or --sperera 940/945
6797: (l_del1.status_code = 'SR') or
6798: (l_del1.planned_flag IN ('Y','F') AND l_detail_status <> 'D')) /*Bug7025876 added AND condition*/
6799: --Bug 3543772 AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6800: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6801: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6802: THEN
6803: IF l_del1.planned_flag IN ('Y','F') THEN
6796: (l_del1.status_code = 'SC') or --sperera 940/945
6797: (l_del1.status_code = 'SR') or
6798: (l_del1.planned_flag IN ('Y','F') AND l_detail_status <> 'D')) /*Bug7025876 added AND condition*/
6799: --Bug 3543772 AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6800: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6801: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6802: THEN
6803: IF l_del1.planned_flag IN ('Y','F') THEN
6804: fnd_message.SET_name('WSH', 'WSH_DET_UNASSIGN_FIRMDEL');
6797: (l_del1.status_code = 'SR') or
6798: (l_del1.planned_flag IN ('Y','F') AND l_detail_status <> 'D')) /*Bug7025876 added AND condition*/
6799: --Bug 3543772 AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX -- J-IB-NPARIKH
6800: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_ASN_PREFIX || '%' -- J-IB-NPARIKH
6801: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
6802: THEN
6803: IF l_del1.planned_flag IN ('Y','F') THEN
6804: fnd_message.SET_name('WSH', 'WSH_DET_UNASSIGN_FIRMDEL');
6805: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del1.name);
6822: END IF;
6823: WSH_CONTAINER_UTILITIES.Is_Empty (p_container_instance_id => p_detail_id,
6824: x_empty_flag => l_detail_is_empty_cont,
6825: x_return_status => l_return_status);
6826: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6827: Raise invalid_detail;
6828: END IF;
6829: ELSE --}{
6830: l_detail_is_empty_cont := 'E';
6842: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
6843: p_entity_type => 'DELIVERY',
6844: p_entity_ids => l_del_tab,
6845: x_return_status => l_return_status);
6846: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
6847: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6848: RAISE mark_reprice_error;
6849: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6850: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6843: p_entity_type => 'DELIVERY',
6844: p_entity_ids => l_del_tab,
6845: x_return_status => l_return_status);
6846: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
6847: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6848: RAISE mark_reprice_error;
6849: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6850: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6851: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6845: x_return_status => l_return_status);
6846: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
6847: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6848: RAISE mark_reprice_error;
6849: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6850: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6851: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6852: IF l_debug_on THEN
6853: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required completed with warnings.');
6846: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
6847: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6848: RAISE mark_reprice_error;
6849: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6850: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6851: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6852: IF l_debug_on THEN
6853: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required completed with warnings.');
6854: END IF;
6847: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6848: RAISE mark_reprice_error;
6849: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6850: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6851: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6852: IF l_debug_on THEN
6853: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required completed with warnings.');
6854: END IF;
6855:
6870: p_diff_fill_volume => -1 * l_vol,
6871: p_check_for_empty => 'Y',
6872: x_return_status => l_return_status);
6873:
6874: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6875: --
6876: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6877: WSH_UTIL_CORE.Add_Message(x_return_status);
6878: IF l_debug_on THEN
6872: x_return_status => l_return_status);
6873:
6874: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6875: --
6876: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6877: WSH_UTIL_CORE.Add_Message(x_return_status);
6878: IF l_debug_on THEN
6879: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6880: WSH_DEBUG_SV.pop(l_module_name);
6873:
6874: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6875: --
6876: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6877: WSH_UTIL_CORE.Add_Message(x_return_status);
6878: IF l_debug_on THEN
6879: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6880: WSH_DEBUG_SV.pop(l_module_name);
6881: END IF;
6960: p_sync_tmp_rec => l_sync_tmp_rec,
6961: x_return_status => l_return_status
6962: );
6963: --
6964: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6965: --
6966: x_return_status := l_return_status;
6967: --
6968: IF l_debug_on THEN
6971: END IF;
6972: --
6973: return;
6974: --
6975: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6976: --
6977: l_num_warnings := l_num_warnings + 1;
6978: --
6979: END IF;
6998: last_update_login = FND_GLOBAL.LOGIN_ID
6999: WHERE delivery_detail_id = l_dd_id(j);
7000:
7001: IF (SQL%NOTFOUND) THEN
7002: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7003: RAISE NO_DATA_FOUND;
7004: END IF;
7005:
7006: l_mdc_detail_tab(1) := l_dd_id(j);
7007: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
7008: p_detail_id_tab => l_mdc_detail_tab,
7009: x_return_status => x_return_status);
7010:
7011: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7012: IF l_debug_on THEN
7013: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7014: WSH_DEBUG_SV.pop(l_module_name);
7015: END IF;
7022:
7023:
7024: -- J-IB-NPARIKH-{
7025: IF l_del1.shipment_Direction NOT IN ('O','IO')
7026: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
7027: THEN
7028: l_ib_upd_flag := 'Y';
7029: ELSE
7030: l_ib_upd_flag := 'N';
7063: p_sync_tmp_rec => l_sync_tmp_rec,
7064: x_return_status => l_return_status
7065: );
7066: --
7067: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7068: --
7069: x_return_status := l_return_status;
7070: --
7071: IF l_debug_on THEN
7074: END IF;
7075: --
7076: return;
7077: --
7078: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7079: --
7080: l_num_warnings := l_num_warnings + 1;
7081: --
7082: END IF;
7102: last_updated_by = FND_GLOBAL.USER_ID,
7103: last_update_login = FND_GLOBAL.LOGIN_ID
7104: WHERE delivery_detail_id = l_dd_id(j);
7105: IF (SQL%NOTFOUND) THEN
7106: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7107: RAISE NO_DATA_FOUND;
7108: END IF;
7109: --
7110:
7135: WHERE delivery_detail_id = l_dd_id(j)
7136: returning released_status into l_rel_status;
7137: --bugfix 4530813
7138: IF (SQL%NOTFOUND) THEN
7139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7140: RAISE NO_DATA_FOUND;
7141: END IF;
7142: IF l_debug_on THEN
7143: WSH_DEBUG_SV.log(l_module_name,'Rel Status after the update is ', l_rel_status);
7179: x_msg_data => l_msg_data,
7180: p_line_id => l_mo_line_id,
7181: p_carton_grouping_id => l_carton_grouping_id);
7182:
7183: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
7184: THEN
7185:
7186: RAISE update_mol_carton_group_error;
7187:
7204: l_call_update := 'Y';
7205: l_delivery_id_tab(1) := l_assign.delivery_id;
7206: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_assign.delivery_id);
7207:
7208: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
7209: --handle the error approriately to the procedure this code is in
7210: IF l_debug_on THEN
7211: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7212: END IF;
7230: p_delivery_id_tab => l_delivery_id_tab,
7231: p_tms_interface_flag_tab => l_interface_flag_tab,
7232: x_return_status => l_return_status);
7233:
7234: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
7235: x_return_status := l_return_status;
7236: IF l_debug_on THEN
7237: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7238: WSH_DEBUG_SV.pop(l_module_name);
7237: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7238: WSH_DEBUG_SV.pop(l_module_name);
7239: END IF;
7240: RETURN;
7241: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7242: l_num_warnings := l_num_warnings + 1;
7243: END IF;
7244: END IF;
7245: END IF;
7259:
7260: IF l_debug_on THEN
7261: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
7262: END IF;
7263: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
7264: x_return_status := l_dbi_rs;
7265: -- just pass this return status to caller API
7266: ROLLBACK TO before_unassign;
7267: --
7315: p_sync_tmp_rec => l_sync_tmp_rec,
7316: x_return_status => l_return_status
7317: );
7318: --
7319: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7320: --
7321: x_return_status := l_return_status;
7322: --
7323: IF l_debug_on THEN
7326: END IF;
7327: --
7328: return;
7329: --
7330: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7331: --
7332: l_num_warnings := l_num_warnings + 1;
7333: --
7334: END IF;
7350: last_update_login = FND_GLOBAL.LOGIN_ID
7351: WHERE delivery_detail_id = p_detail_id;
7352:
7353: IF (SQL%NOTFOUND) THEN
7354: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7355: RAISE NO_DATA_FOUND;
7356: END IF;
7357:
7358: l_mdc_detail_tab(1) := p_detail_id;
7359: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
7360: p_detail_id_tab => l_mdc_detail_tab,
7361: x_return_status => x_return_status);
7362:
7363: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7364: IF l_debug_on THEN
7365: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7366: WSH_DEBUG_SV.pop(l_module_name);
7367: END IF;
7373: x_param_info => l_shipping_param_info,
7374: x_return_status => l_return_status);
7375:
7376:
7377: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
7378: THEN
7379: IF l_debug_on THEN
7380: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
7381: END IF;
7396: p_vol_uom_code => l_assign.volume_uom_code,
7397: p_inv_item_id => l_assign.inventory_item_id,
7398: x_return_status => l_return_status);
7399:
7400: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
7401: THEN
7402: IF l_debug_on THEN
7403: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.ADJUST_PARENT_WV returned '||l_return_status);
7404: END IF;
7411: END IF;
7412:
7413: /* Bug 2769639, remove FTE generated FC for the delivery detail and all the delivery details below it */
7414:
7415: IF WSH_UTIL_CORE.FTE_Is_Installed = 'Y' AND l_dd_id.count > 0
7416: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
7417: THEN
7418: WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs(
7419: p_delivery_details_tab => l_dd_id,
7412:
7413: /* Bug 2769639, remove FTE generated FC for the delivery detail and all the delivery details below it */
7414:
7415: IF WSH_UTIL_CORE.FTE_Is_Installed = 'Y' AND l_dd_id.count > 0
7416: AND NVL(p_action_prms.caller,'!!!!') NOT LIKE '%' || WSH_UTIL_CORE.C_SPLIT_DLVY_SUFFIX
7417: THEN
7418: WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs(
7419: p_delivery_details_tab => l_dd_id,
7420: x_return_status => l_return_status) ;
7417: THEN
7418: WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs(
7419: p_delivery_details_tab => l_dd_id,
7420: x_return_status => l_return_status) ;
7421: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7422: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7423: raise remove_FC_error;
7424: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7425: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7418: WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs(
7419: p_delivery_details_tab => l_dd_id,
7420: x_return_status => l_return_status) ;
7421: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7422: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7423: raise remove_FC_error;
7424: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7425: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7426: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7420: x_return_status => l_return_status) ;
7421: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7422: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7423: raise remove_FC_error;
7424: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7425: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7426: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7427: END IF;
7428: END IF;
7421: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS AND
7422: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7423: raise remove_FC_error;
7424: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7425: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7426: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7427: END IF;
7428: END IF;
7429: IF l_debug_on THEN
7422: l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7423: raise remove_FC_error;
7424: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7425: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
7426: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7427: END IF;
7428: END IF;
7429: IF l_debug_on THEN
7430: WSH_DEBUG_SV.log(l_module_name,'Remove_FTE_Freight_Costs completed returns with status: ' ||
7434: NULL;
7435: END IF;
7436:
7437: -- LPN CONV. rv
7438: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7439: --
7440: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7441: --
7442: ELSE
7436:
7437: -- LPN CONV. rv
7438: IF (l_num_warnings > 0 AND x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7439: --
7440: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7441: --
7442: ELSE
7443: --
7444: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7440: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7441: --
7442: ELSE
7443: --
7444: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7445: --
7446: END IF;
7447: -- LPN CONV. rv
7448:
7456: EXCEPTION
7457: WHEN mark_reprice_error THEN
7458: x_return_status := l_return_status;
7459: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
7460: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7461: ROLLBACK TO before_unassign;
7462: --
7463: IF l_debug_on THEN
7464: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7465: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
7466: END IF;
7467: --
7468: WHEN detail_not_assigned THEN
7469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7470: fnd_message.set_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
7471: wsh_util_core.add_message(x_return_status,l_module_name);
7472: ROLLBACK TO before_unassign;
7473: --
7467: --
7468: WHEN detail_not_assigned THEN
7469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7470: fnd_message.set_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
7471: wsh_util_core.add_message(x_return_status,l_module_name);
7472: ROLLBACK TO before_unassign;
7473: --
7474: IF l_debug_on THEN
7475: WSH_DEBUG_SV.logmsg(l_module_name,'DETAIL_NOT_ASSIGNED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7476: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DETAIL_NOT_ASSIGNED');
7477: END IF;
7478: --
7479: WHEN del_not_updatable THEN
7480: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7481: wsh_util_core.add_message(x_return_status,l_module_name);
7482: ROLLBACK TO before_unassign;
7483: --
7484: IF l_debug_on THEN
7477: END IF;
7478: --
7479: WHEN del_not_updatable THEN
7480: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7481: wsh_util_core.add_message(x_return_status,l_module_name);
7482: ROLLBACK TO before_unassign;
7483: --
7484: IF l_debug_on THEN
7485: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7488: --
7489: WHEN update_mol_carton_group_error THEN
7490: fnd_message.SET_name('WSH', 'WSH_MOL_CARTON_GROUP_ERROR');
7491: x_return_status := l_return_status;
7492: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7493:
7494: --
7495: IF l_debug_on THEN
7496: WSH_DEBUG_SV.logmsg(l_module_name,'update_mol_carton_group_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7497: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_mol_carton_group_error');
7498: END IF;
7499:
7500: WHEN check_ship_set_failed THEN
7501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7502:
7503: --
7504: IF l_debug_on THEN
7505: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SHIP_SET_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7506: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SHIP_SET_FAILED');
7507: END IF;
7508: --
7509: WHEN check_smc_failed THEN
7510: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7511: --
7512: IF l_debug_on THEN
7513: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SMC_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7514: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
7514: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
7515: END IF;
7516: --
7517: WHEN remove_FC_error THEN
7518: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7519: --
7520: IF l_debug_on THEN
7521: WSH_DEBUG_SV.logmsg(l_module_name,'Remove_FTE_Freight_Costs failed.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7522: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REMOVE_FC_ERROR');
7522: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REMOVE_FC_ERROR');
7523: END IF;
7524: --
7525: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
7526: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7527: ROLLBACK TO before_unassign;
7528:
7529: WHEN get_shipping_param_err THEN
7530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7526: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7527: ROLLBACK TO before_unassign;
7528:
7529: WHEN get_shipping_param_err THEN
7530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7531: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
7532: FND_MESSAGE.Set_Token('ORGANIZATION_CODE',
7533: wsh_util_core.get_org_name(l_assign.organization_id));
7534: wsh_util_core.add_message(x_return_status,l_module_name);
7529: WHEN get_shipping_param_err THEN
7530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7531: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
7532: FND_MESSAGE.Set_Token('ORGANIZATION_CODE',
7533: wsh_util_core.get_org_name(l_assign.organization_id));
7534: wsh_util_core.add_message(x_return_status,l_module_name);
7535: ROLLBACK TO before_unassign;
7536: --
7537: IF l_debug_on THEN
7530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7531: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
7532: FND_MESSAGE.Set_Token('ORGANIZATION_CODE',
7533: wsh_util_core.get_org_name(l_assign.organization_id));
7534: wsh_util_core.add_message(x_return_status,l_module_name);
7535: ROLLBACK TO before_unassign;
7536: --
7537: IF l_debug_on THEN
7538: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to get Shipping Parameters',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_SHIPPING_PARAM_ERR');
7540: END IF;
7541:
7542: WHEN adjust_parent_wv_err THEN
7543: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7544: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
7545: FND_MESSAGE.SET_TOKEN('CONT_NAME',WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_assign.parent_delivery_detail_id));
7546: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
7547:
7542: WHEN adjust_parent_wv_err THEN
7543: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7544: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_WT_VOL_FAILED');
7545: FND_MESSAGE.SET_TOKEN('CONT_NAME',WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_assign.parent_delivery_detail_id));
7546: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
7547:
7548: ROLLBACK TO before_unassign;
7549: --
7550: IF l_debug_on THEN
7552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ADJUST_PARENT_WV_ERR');
7553: END IF;
7554:
7555: WHEN others THEN
7556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7557: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7558: ROLLBACK TO before_unassign;
7559:
7560:
7553: END IF;
7554:
7555: WHEN others THEN
7556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7557: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7558: ROLLBACK TO before_unassign;
7559:
7560:
7561: --
7618: END IF;
7619: --
7620: EXCEPTION
7621: WHEN others THEN
7622: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7623: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7624: --
7625: IF l_debug_on THEN
7626: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7619: --
7620: EXCEPTION
7621: WHEN others THEN
7622: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7623: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7624: --
7625: IF l_debug_on THEN
7626: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7627: END IF;
7638: -- P_from_container
7639: -- x_return_status
7640: --Desription: Unasigns multiple details FROM a delivery or a container
7641: PROCEDURE Unassign_Multiple_Details(
7642: P_REC_OF_DETAIL_IDS IN WSH_UTIL_CORE.ID_TAB_TYPE
7643: , P_FROM_delivery IN VARCHAR2
7644: , P_FROM_container IN VARCHAR2
7645: , x_return_status out NOCOPY varchar2
7646: , p_validate_flag IN VARCHAR2
7677: l_volume NUMBER;
7678: l_fill NUMBER;
7679: l_cont_name VARCHAR2(30);
7680: --
7681: l_dlvy_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7682: l_dlvy_ext_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7683: l_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
7684: l_index NUMBER;
7685: L_DLVY_FREIGHT_TERMS_CODE VARCHAR2(30);
7678: l_fill NUMBER;
7679: l_cont_name VARCHAR2(30);
7680: --
7681: l_dlvy_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7682: l_dlvy_ext_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7683: l_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
7684: l_index NUMBER;
7685: L_DLVY_FREIGHT_TERMS_CODE VARCHAR2(30);
7686:
7679: l_cont_name VARCHAR2(30);
7680: --
7681: l_dlvy_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7682: l_dlvy_ext_tbl WSH_UTIL_CORE.key_value_tab_type; -- J-IB-NPARIKH
7683: l_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
7684: l_index NUMBER;
7685: L_DLVY_FREIGHT_TERMS_CODE VARCHAR2(30);
7686:
7687: Cursor c_empty_delivery ( p_del_id number) --Pick To POD WF : Raise PO Cancellation for empty Inbound delivery
7725: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
7726: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7727: END IF;
7728: --
7729: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7730:
7731: -- initialize summary variables
7732: l_num_warnings := 0;
7733: l_num_errors := 0;
7744: END IF;
7745:
7746: IF (c_multi_assign_rec%NOTFOUND) THEN
7747: l_num_warnings := l_num_warnings + 1;
7748: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7749: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7750: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7751: wsh_util_core.add_message(x_return_status,l_module_name);
7752: /* go ahead and process the next line */
7747: l_num_warnings := l_num_warnings + 1;
7748: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7749: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7750: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7751: wsh_util_core.add_message(x_return_status,l_module_name);
7752: /* go ahead and process the next line */
7753: CLOSE c_multi_assign_rec;
7754: GOTO start_over_1;
7755: END IF;
7756: CLOSE c_multi_assign_rec;
7757:
7758: IF (l_multi_assign_rec.delivery_id IS null) THEN
7759: l_num_warnings := l_num_warnings + 1;
7760: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7761: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7762: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7763: wsh_util_core.add_message(x_return_status,l_module_name);
7764: /* go ahead and process the next line */
7759: l_num_warnings := l_num_warnings + 1;
7760: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7761: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7762: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7763: wsh_util_core.add_message(x_return_status,l_module_name);
7764: /* go ahead and process the next line */
7765: GOTO start_over_1;
7766: END IF;
7767:
7768: -- J-IB-NPARIKH-{
7769: --
7770: --
7771: IF l_debug_on THEN
7772: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
7773: END IF;
7774: --
7775: -- Build a cache of uniqye delivery IDs , from which lines are being unassigned
7776: --
7774: --
7775: -- Build a cache of uniqye delivery IDs , from which lines are being unassigned
7776: --
7777: --
7778: WSH_UTIL_CORE.get_Cached_value
7779: (
7780: p_cache_tbl => l_dlvy_tbl,
7781: p_cache_ext_tbl => l_dlvy_ext_tbl,
7782: p_key => l_multi_assign_rec.delivery_id,
7785: x_return_status => l_return_status
7786: );
7787: --
7788: --
7789: wsh_util_core.api_post_call
7790: (
7791: p_return_status => l_return_status,
7792: x_num_warnings => l_num_warnings,
7793: x_num_errors => l_num_errors
7801: p_validate_flag => p_validate_flag,
7802: x_return_status => l_return_status,
7803: p_action_prms => p_action_prms -- J-IB-NPARIKH
7804: );
7805: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
7806: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7807: l_num_errors := l_num_errors + 1;
7808: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7809: l_num_warnings := l_num_warnings + 1;
7802: x_return_status => l_return_status,
7803: p_action_prms => p_action_prms -- J-IB-NPARIKH
7804: );
7805: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
7806: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7807: l_num_errors := l_num_errors + 1;
7808: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7809: l_num_warnings := l_num_warnings + 1;
7810: END IF;
7804: );
7805: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
7806: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7807: l_num_errors := l_num_errors + 1;
7808: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7809: l_num_warnings := l_num_warnings + 1;
7810: END IF;
7811:
7812:
7822: WHILE l_index IS NOT NULL
7823: LOOP
7824: --{
7825:
7826: IF NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
7827: THEN
7828: --{
7829: IF l_debug_on THEN
7830: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.calculate_cont_del_tpdates',WSH_DEBUG_SV.C_PROC_LEVEL);
7836: p_entity_ids =>l_del_tab,
7837: x_return_status => l_return_status);
7838: --}
7839: /*CURRENTLY NOT IN USE
7840: IF ( p_action_prms.caller = WSH_UTIL_CORE.C_IB_PO_PREFIX ) -- Added for Pick to POD WF
7841: THEN --PO cancellation unassigns DD from delivery, we check if delivery gets emptied out then we raise a event
7842: OPEN c_empty_delivery( l_dlvy_tbl(l_index).value ) ;
7843: Fetch c_empty_delivery into l_del_id, l_org_id;
7844: If (c_empty_delivery%FOUND )
7875: x_freight_terms_code => l_dlvy_freight_terms_code
7876: );
7877: --
7878: --
7879: wsh_util_core.api_post_call
7880: (
7881: p_return_status => l_return_status,
7882: x_num_warnings => l_num_warnings,
7883: x_num_errors => l_num_errors
7894: WHILE l_index IS NOT NULL
7895: LOOP
7896: --{
7897: --
7898: IF NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
7899: THEN
7900: --{
7901:
7902: IF l_debug_on THEN
7907: p_entity => 'DLVY',
7908: p_entity_ids =>l_del_tab,
7909: x_return_status => l_return_status);
7910: --}
7911: /*IF ( p_action_prms.caller = WSH_UTIL_CORE.C_IB_PO_PREFIX ) -- Added for Pick to POD WF
7912: THEN --PO cancellation unassigns DD from delivery, we check if delivery gets emptied out then we raise a event
7913: OPEN c_empty_delivery( l_dlvy_ext_tbl(l_index).value ) ;
7914: Fetch c_empty_delivery into l_del_id, l_org_id;
7915: If (c_empty_delivery%FOUND )
7944: x_freight_terms_code => l_dlvy_freight_terms_code
7945: );
7946: --
7947: --
7948: wsh_util_core.api_post_call
7949: (
7950: p_return_status => l_return_status,
7951: x_num_warnings => l_num_warnings,
7952: x_num_errors => l_num_errors
7976: WSH_DEBUG_SV.log(l_module_name,'l_multi_assign_rec',
7977: l_multi_assign_rec.delivery_id);
7978: END IF;
7979: IF (c_multi_assign_rec%NOTFOUND) THEN
7980: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7981: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7982: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7983: wsh_util_core.add_message(x_return_status,l_module_name);
7984: /* go ahead and process the next line */
7979: IF (c_multi_assign_rec%NOTFOUND) THEN
7980: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7981: fnd_message.SET_name('WSH','WSH_DET_SPEC_DET_NOT_ASSIGNED');
7982: fnd_message.SET_token('DELIVERY_DETAIL_ID', p_rec_of_detail_ids(i));
7983: wsh_util_core.add_message(x_return_status,l_module_name);
7984: /* go ahead and process the next line */
7985: CLOSE c_multi_assign_rec;
7986: GOTO start_over_2;
7987: END IF;
7989:
7990: /* Bug 2166715 - check if line was actually packed or not */
7991: IF l_multi_assign_rec.parent_delivery_detail_id IS NULL THEN l_num_warnings := l_num_warnings + 1;
7992: fnd_message.SET_name('WSH','WSH_CONT_UNASSG_NULL');
7993: wsh_util_core.add_message(x_return_status,l_module_name);
7994: END IF;
7995:
7996: Unassign_detail_FROM_cont(
7997: p_detail_id => p_rec_of_detail_ids(i),
7997: p_detail_id => p_rec_of_detail_ids(i),
7998: p_validate_flag => p_validate_flag,
7999: x_return_status => l_return_status
8000: );
8001: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8002: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8003: l_num_errors := l_num_errors + 1;
8004: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8005: l_num_warnings := l_num_warnings + 1;
7998: p_validate_flag => p_validate_flag,
7999: x_return_status => l_return_status
8000: );
8001: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8002: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8003: l_num_errors := l_num_errors + 1;
8004: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8005: l_num_warnings := l_num_warnings + 1;
8006:
8000: );
8001: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
8002: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8003: l_num_errors := l_num_errors + 1;
8004: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8005: l_num_warnings := l_num_warnings + 1;
8006:
8007: END IF;
8008:
8041: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8042: END IF;
8043: --
8044: --
8045: WSH_UTIL_CORE.API_POST_CALL
8046: (
8047: p_return_status => l_return_status,
8048: x_num_warnings => l_num_warnings,
8049: x_num_errors => l_num_errors,
8055: -- K LPN CONV. rv
8056: --
8057: --
8058: IF (l_num_errors >= p_rec_of_detail_ids.COUNT) THEN
8059: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8060: ELSIF (l_num_warnings > 0 OR l_num_errors>0) THEN
8061: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8062: END IF;
8063: IF l_debug_on THEN
8057: --
8058: IF (l_num_errors >= p_rec_of_detail_ids.COUNT) THEN
8059: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8060: ELSIF (l_num_warnings > 0 OR l_num_errors>0) THEN
8061: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8062: END IF;
8063: IF l_debug_on THEN
8064: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
8065: WSH_DEBUG_SV.log(l_module_name,'l_num_warnings',l_num_warnings);
8092: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8093: END IF;
8094: --
8095: --
8096: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8097: x_return_status := l_return_status;
8098: END IF;
8099: --
8100: --}
8145: --
8146:
8147: -- J-IB-NPARIKH-}
8148: WHEN CHECK_SHIP_SET_FAILED THEN
8149: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8150: --
8151: --
8152: -- K LPN CONV. rv
8153: --
8170: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8171: END IF;
8172: --
8173: --
8174: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8175: x_return_status := l_return_status;
8176: END IF;
8177: --
8178: --}
8185: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SHIP_SET_FAILED');
8186: END IF;
8187: --
8188: WHEN check_smc_failed THEN
8189: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8190: --
8191: -- K LPN CONV. rv
8192: --
8193: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8209: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8210: END IF;
8211: --
8212: --
8213: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8214: x_return_status := l_return_status;
8215: END IF;
8216: --
8217: --}
8225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
8226: END IF;
8227: --
8228: WHEN others THEN
8229: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8230: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8231: --
8232: IF l_debug_on THEN
8233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8226: END IF;
8227: --
8228: WHEN others THEN
8229: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8230: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8231: --
8232: IF l_debug_on THEN
8233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8234: END IF;
8274: -- this procedure.
8275: -------------------------------------------------------------------
8276:
8277: PROCEDURE Unassign_Multiple_Details(
8278: P_REC_OF_DETAIL_IDS IN WSH_UTIL_CORE.ID_TAB_TYPE
8279: , P_FROM_delivery IN VARCHAR2
8280: , P_FROM_container IN VARCHAR2
8281: , x_return_status out NOCOPY varchar2
8282: , p_validate_flag IN VARCHAR2
8306: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
8307: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
8308: END IF;
8309: --
8310: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8311: --
8312: IF l_debug_on THEN
8313: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
8314: END IF;
8328: END IF;
8329:
8330: EXCEPTION
8331: WHEN others THEN
8332: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8333: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8334: --
8335: IF l_debug_on THEN
8336: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8329:
8330: EXCEPTION
8331: WHEN others THEN
8332: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8333: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8334: --
8335: IF l_debug_on THEN
8336: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8337: END IF;
8346: -- x_return_status
8347: --Desription: Assings multiple details to a delivery or a container
8348:
8349: PROCEDURE Assign_Multiple_Details(
8350: p_rec_of_detail_ids IN WSH_UTIL_CORE.ID_TAB_TYPE,
8351: p_delivery_id NUMBER,
8352: P_cont_ins_id number,
8353: x_return_status OUT NOCOPY varchar2)
8354: IS
8373:
8374: l_scc_unassign_from_del NUMBER := 0;
8375: l_scc_unassign_from_con NUMBER := 0;
8376: l_delivery_id NUMBER := 0;
8377: l_del_tab WSH_UTIL_CORE.Id_Tab_Type;
8378: l_return_status VARCHAR2(1);
8379: m NUMBER := 0;
8380:
8381:
8412: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8413: WSH_DEBUG_SV.log(l_module_name,'P_CONT_INS_ID',P_CONT_INS_ID);
8414: END IF;
8415: --
8416: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8417: l_del_tab.delete;
8418: l_num_errors := 0;
8419: l_num_warnings := 0;
8420:
8418: l_num_errors := 0;
8419: l_num_warnings := 0;
8420:
8421: IF ((p_delivery_id = -9999) AND (p_cont_ins_id = -9999 )) THEN
8422: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8423: --
8424: IF l_debug_on THEN
8425: WSH_DEBUG_SV.pop(l_module_name);
8426: END IF;
8471: x_dlvy_has_lines => l_has_lines, -- J-IB-NPARIKH
8472: x_dlvy_freight_terms_code => l_dlvy_freight_terms_code -- J-IB-NPARIKH
8473: );
8474:
8475: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8476: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8477: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8478: l_num_errors := l_num_errors + 1;
8479: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8472: x_dlvy_freight_terms_code => l_dlvy_freight_terms_code -- J-IB-NPARIKH
8473: );
8474:
8475: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8476: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8477: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8478: l_num_errors := l_num_errors + 1;
8479: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8480: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8473: );
8474:
8475: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8476: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8477: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8478: l_num_errors := l_num_errors + 1;
8479: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8480: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8481: l_num_warnings := l_num_warnings + 1;
8475: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8476: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8477: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8478: l_num_errors := l_num_errors + 1;
8479: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8480: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8481: l_num_warnings := l_num_warnings + 1;
8482: END IF;
8483: goto start_over;
8476: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8477: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8478: l_num_errors := l_num_errors + 1;
8479: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8480: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8481: l_num_warnings := l_num_warnings + 1;
8482: END IF;
8483: goto start_over;
8484: /* H project : pricing integration csun , need to mark the reprice
8495: p_detail_id => P_REC_OF_DETAIL_IDS(i),
8496: p_parent_detail_id => p_cont_ins_id,
8497: x_return_status => x_return_status);
8498:
8499: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8500: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8502: l_num_errors := l_num_errors + 1;
8503: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8496: p_parent_detail_id => p_cont_ins_id,
8497: x_return_status => x_return_status);
8498:
8499: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8500: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8502: l_num_errors := l_num_errors + 1;
8503: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8504: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8497: x_return_status => x_return_status);
8498:
8499: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8500: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8502: l_num_errors := l_num_errors + 1;
8503: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8504: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8505: l_num_warnings := l_num_warnings + 1;
8499: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8500: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8502: l_num_errors := l_num_errors + 1;
8503: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8504: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8505: l_num_warnings := l_num_warnings + 1;
8506: END IF;
8507: goto start_over;
8500: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8502: l_num_errors := l_num_errors + 1;
8503: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
8504: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8505: l_num_warnings := l_num_warnings + 1;
8506: END IF;
8507: goto start_over;
8508: /* H project : pricing integration csun , need to mark the reprice
8525: l_scc_unassign_from_con);
8526: END IF;
8527:
8528: IF (l_num_errors > 0) THEN
8529: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8530: --
8531: IF l_debug_on THEN
8532: WSH_DEBUG_SV.log(l_module_name,'Ret status is error',l_num_errors);
8533: WSH_DEBUG_SV.pop(l_module_name);
8534: END IF;
8535: --
8536: return;
8537: ELSIF (l_num_warnings > 0) THEN
8538: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8539: END IF;
8540:
8541:
8542: /* H projects: pricing integration csun get the delivery id the container is
8563: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
8564: p_entity_type => 'DELIVERY',
8565: p_entity_ids => l_del_tab,
8566: x_return_status => l_return_status);
8567: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
8568: raise mark_reprice_error;
8569: END IF;
8570: END IF;
8571:
8576: END IF;
8577: --
8578: exception
8579: WHEN mark_reprice_error THEN
8580: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8581: fnd_message.SET_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8582: wsh_util_core.add_message(x_return_status,l_module_name);
8583:
8584: --
8578: exception
8579: WHEN mark_reprice_error THEN
8580: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8581: fnd_message.SET_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
8582: wsh_util_core.add_message(x_return_status,l_module_name);
8583:
8584: --
8585: IF l_debug_on THEN
8586: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8587: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
8588: END IF;
8589: --
8590: WHEN delivery_id_locked THEN
8591: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8592: fnd_message.SET_name('WSH', 'WSH_NO_LOCK');
8593: wsh_util_core.add_message(x_return_status,l_module_name);
8594: --
8595: IF l_debug_on THEN
8589: --
8590: WHEN delivery_id_locked THEN
8591: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8592: fnd_message.SET_name('WSH', 'WSH_NO_LOCK');
8593: wsh_util_core.add_message(x_return_status,l_module_name);
8594: --
8595: IF l_debug_on THEN
8596: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Id Locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8597: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION : DELIVERY_ID_LOCKED');
8605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_ID_LOCKED');
8606: END IF;
8607: --
8608: WHEN others THEN
8609: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8610: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_MULTIPLE_DETAILS',l_module_name);
8611:
8612: --
8613: IF l_debug_on THEN
8606: END IF;
8607: --
8608: WHEN others THEN
8609: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8610: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_MULTIPLE_DETAILS',l_module_name);
8611:
8612: --
8613: IF l_debug_on THEN
8614: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8654: p_converted_flag IN VARCHAR2,
8655: p_manual_split IN VARCHAR2 ,
8656: p_num_of_split IN NUMBER , -- for empty container cases
8657: x_new_detail_id OUT NOCOPY NUMBER,
8658: x_dd_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
8659: x_return_status OUT NOCOPY VARCHAR2
8660: )
8661: IS
8662:
8695: zero_qty EXCEPTION;
8696: /* H integration: Pricing integration csun
8697: mark reprice required flag when split_delivery_details
8698: */
8699: l_entity_ids WSH_UTIL_CORE.id_tab_type;
8700: reprice_required_err EXCEPTION;
8701: l_delivery_assignments_info WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_Type;
8702: l_delivery_details_info WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
8703: l_split_weight number;
8707: l_old_stage_qty NUMBER := NULL;
8708: l_ser_qty NUMBER := NULL;
8709:
8710:
8711: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
8712: l_num_of_split NUMBER;
8713:
8714: old_delivery_detail_rec SplitDetailRecType;
8715:
8723: i NUMBER;
8724: j NUMBER;
8725: l_serial_orig_rec WSH_DELIVERY_DETAILS_ACTIONS.SplitDetailRecType;
8726: l_new_serial_rec WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
8727: l_transaction_id_tab WSH_UTIL_CORE.id_tab_type;
8728: l_serial_number WSH_DELIVERY_DETAILS.serial_number%TYPE;
8729: TYPE l_sr_no_tab IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
8730: l_serial_number_tab l_sr_no_tab;
8731: l_id1 NUMBER;
8756: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
8757: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
8758: END IF;
8759: --
8760: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8761:
8762: OPEN c_split_detail_info(p_from_detail_id);
8763: FETCH c_split_detail_info into old_delivery_detail_rec;
8764: CLOSE c_split_detail_info;
8832: p_uom_code => old_delivery_detail_rec.requested_quantity_UOM,
8833: x_output_quantity => l_output_quantity,
8834: x_return_status => l_qty_return_status);
8835:
8836: IF (l_qty_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
8837: RAISE chk_decimal_qty_failed;
8838: END IF;
8839: IF (l_output_quantity IS not NULL) THEN
8840: p_req_quantity := l_output_quantity;
8919: x_dd_id_tab => l_dd_id_tab
8920: );
8921:
8922: -- Message will be set in split_detail_int_bulk
8923: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
8924: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
8925: ) THEN
8926: return;
8927: END IF;
8920: );
8921:
8922: -- Message will be set in split_detail_int_bulk
8923: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
8924: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
8925: ) THEN
8926: return;
8927: END IF;
8928:
8959: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
8960: p_entity_type => 'DELIVERY_DETAIL',
8961: p_entity_ids => l_entity_ids,
8962: x_return_status => l_return_status);
8963: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
8964: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
8965: ) THEN
8966: raise reprice_required_err;
8967: END IF;
8960: p_entity_type => 'DELIVERY_DETAIL',
8961: p_entity_ids => l_entity_ids,
8962: x_return_status => l_return_status);
8963: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
8964: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
8965: ) THEN
8966: raise reprice_required_err;
8967: END IF;
8968:
8972: END IF;
8973: --
8974: EXCEPTION
8975: WHEN chk_decimal_qty_failed THEN
8976: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8977: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
8978: wsh_util_core.add_message(x_return_status,l_module_name);
8979: --
8980: IF l_debug_on THEN
8974: EXCEPTION
8975: WHEN chk_decimal_qty_failed THEN
8976: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8977: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
8978: wsh_util_core.add_message(x_return_status,l_module_name);
8979: --
8980: IF l_debug_on THEN
8981: WSH_DEBUG_SV.logmsg(l_module_name,'CHK_DECIMAL_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8982: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
8982: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
8983: END IF;
8984: --
8985: WHEN quantity_over THEN
8986: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8987: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
8988: wsh_util_core.add_message(x_return_status,l_module_name);
8989: --
8990: IF l_debug_on THEN
8984: --
8985: WHEN quantity_over THEN
8986: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8987: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
8988: wsh_util_core.add_message(x_return_status,l_module_name);
8989: --
8990: IF l_debug_on THEN
8991: WSH_DEBUG_SV.logmsg(l_module_name,'QUANTITY_OVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8992: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
8992: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
8993: END IF;
8994: --
8995: WHEN zero_qty THEN
8996: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8997: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
8998: wsh_util_core.add_message(x_return_status,l_module_name);
8999: --
9000: IF l_debug_on THEN
8994: --
8995: WHEN zero_qty THEN
8996: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8997: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
8998: wsh_util_core.add_message(x_return_status,l_module_name);
8999: --
9000: IF l_debug_on THEN
9001: WSH_DEBUG_SV.logmsg(l_module_name,'ZERO_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9002: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
9002: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
9003: END IF;
9004: --
9005: WHEN negative_qty THEN
9006: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9007: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
9008: wsh_util_core.add_message(x_return_status,l_module_name);
9009: --
9010: IF l_debug_on THEN
9004: --
9005: WHEN negative_qty THEN
9006: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9007: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
9008: wsh_util_core.add_message(x_return_status,l_module_name);
9009: --
9010: IF l_debug_on THEN
9011: WSH_DEBUG_SV.logmsg(l_module_name,'NEGATIVE_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9012: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
9012: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
9013: END IF;
9014: --
9015: WHEN reprice_required_err THEN
9016: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9017: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9018: wsh_util_core.add_message(x_return_status,l_module_name);
9019: --
9020: IF l_debug_on THEN
9014: --
9015: WHEN reprice_required_err THEN
9016: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9017: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9018: wsh_util_core.add_message(x_return_status,l_module_name);
9019: --
9020: IF l_debug_on THEN
9021: WSH_DEBUG_SV.logmsg(l_module_name,'REPRICE_REQUIRED_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
9022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
9023: END IF;
9024: --
9025: WHEN others THEN
9026: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9027: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',l_module_name);
9028: --
9029: IF l_debug_on THEN
9030: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9023: END IF;
9024: --
9025: WHEN others THEN
9026: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9027: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',l_module_name);
9028: --
9029: IF l_debug_on THEN
9030: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9031: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9067: p_split_sn IN VARCHAR2 ,
9068: p_num_of_split IN NUMBER, -- for empty container cases
9069: x_split_detail_id OUT NOCOPY NUMBER,
9070: x_return_status OUT NOCOPY VARCHAR2,
9071: x_dd_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type
9072: ) IS
9073:
9074: l_new_delivery_detail_id number;
9075:
9135: WSH_SN_SPLIT_ERR EXCEPTION;
9136: WSH_NO_DATA_FOUND EXCEPTION;
9137:
9138: l_num_of_split NUMBER; -- added for BULK Auto packing
9139: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
9140: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
9141:
9142: l_updated_delivery_detail_rec SplitDetailRecType;
9143:
9136: WSH_NO_DATA_FOUND EXCEPTION;
9137:
9138: l_num_of_split NUMBER; -- added for BULK Auto packing
9139: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
9140: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
9141:
9142: l_updated_delivery_detail_rec SplitDetailRecType;
9143:
9144: l_req_qty_update_index NUMBER;
9158: l_requested_quantity2 WSH_DELIVERY_DETAILS.requested_quantity%TYPE;
9159: l_picked_quantity WSH_DELIVERY_DETAILS.picked_quantity%TYPE;
9160: wsh_split_error EXCEPTION;
9161:
9162: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
9163: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
9164:
9165: --
9166: l_action VARCHAR2(100) := 'SPLIT-LINE';
9217: p_old_delivery_detail_rec.container_flag);
9218: END IF;
9219: --
9220: SAVEPOINT split_savepoint;
9221: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9222:
9223: /* need to validate the quantity passed meets the decimal quantity
9224: standard */
9225:
9484: p_delivery_detail_id => p_old_delivery_detail_rec.delivery_detail_id,
9485: p_primary_quantity => l_final_req_qty,
9486: p_split_delivery_detail_id => l_dd_id_tab(i),
9487: x_return_status => x_return_status );
9488: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9489: --{
9490: rollback to split_savepoint;
9491: IF l_debug_on THEN
9492: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
9561: IF l_debug_on THEN
9562: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
9563: END IF;
9564: -- Only Handle Unexpected error
9565: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9566: x_return_status := l_dbi_rs;
9567: rollback to split_savepoint;
9568: --
9569: IF l_debug_on THEN
9605: p_update_flag => 'Y',
9606: x_net_weight => l_split_weight,
9607: x_volume => l_split_volume,
9608: x_return_status => l_split_return_status);
9609: IF (l_split_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
9610: RAISE new_det_wt_vol_failed;
9611: END IF;
9612:
9613: l_total_net_wt := l_total_net_wt + l_split_weight;
9668: p_dd_id_tab => l_dd_id_tab,
9669: x_da_id_tab => l_da_id_tab,
9670: x_return_status => l_cr_assg_status
9671: );
9672: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
9673: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
9674: ) THEN
9675: x_return_status := l_cr_assg_status;
9676: return;
9669: x_da_id_tab => l_da_id_tab,
9670: x_return_status => l_cr_assg_status
9671: );
9672: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
9673: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
9674: ) THEN
9675: x_return_status := l_cr_assg_status;
9676: return;
9677: END IF;
9787:
9788: IF l_debug_on THEN
9789: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
9790: END IF;
9791: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9792: x_return_status := l_dbi_rs;
9793: -- just pass this return status to caller API
9794: rollback to split_savepoint;
9795: --
9816: p_diff_net_wt => -1 * l_total_net_wt,
9817: p_diff_fill_volume => -1 * l_total_vol,
9818: x_return_status => l_return_status);
9819:
9820: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
9821: --
9822: rollback to split_savepoint;
9823: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9824: WSH_UTIL_CORE.Add_Message(x_return_status);
9819:
9820: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
9821: --
9822: rollback to split_savepoint;
9823: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9824: WSH_UTIL_CORE.Add_Message(x_return_status);
9825: IF l_debug_on THEN
9826: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
9827: WSH_DEBUG_SV.pop(l_module_name);
9820: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
9821: --
9822: rollback to split_savepoint;
9823: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9824: WSH_UTIL_CORE.Add_Message(x_return_status);
9825: IF l_debug_on THEN
9826: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
9827: WSH_DEBUG_SV.pop(l_module_name);
9828: END IF;
9841: -- HW OPMCONV. Removed OPM excpetion
9842:
9843: WHEN old_det_wt_vol_failed THEN
9844: rollback to split_savepoint;
9845: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9846: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
9847: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
9848: wsh_util_core.add_message(x_return_status,l_module_name);
9849: --
9844: rollback to split_savepoint;
9845: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9846: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
9847: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
9848: wsh_util_core.add_message(x_return_status,l_module_name);
9849: --
9850: IF l_debug_on THEN
9851: WSH_DEBUG_SV.logmsg(l_module_name,'OLD_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9852: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
9853: END IF;
9854: --
9855: WHEN new_det_wt_vol_failed THEN
9856: rollback to split_savepoint;
9857: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9858: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
9859: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
9860: wsh_util_core.add_message(x_return_status,l_module_name);
9861: --
9856: rollback to split_savepoint;
9857: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9858: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
9859: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
9860: wsh_util_core.add_message(x_return_status,l_module_name);
9861: --
9862: IF l_debug_on THEN
9863: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9864: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
9865: END IF;
9866: --
9867: WHEN WSH_SPLIT_ERROR THEN
9868: rollback to split_savepoint;
9869: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9870: fnd_message.set_name('WSH', 'WSH_SPLIT_ERROR');
9871: fnd_message.set_token('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
9872: wsh_util_core.add_message(x_return_status,l_module_name);
9873: --
9868: rollback to split_savepoint;
9869: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9870: fnd_message.set_name('WSH', 'WSH_SPLIT_ERROR');
9871: fnd_message.set_token('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
9872: wsh_util_core.add_message(x_return_status,l_module_name);
9873: --
9874: IF l_debug_on THEN
9875: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SPLIT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9876: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SPLIT_ERROR');
9876: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SPLIT_ERROR');
9877: END IF;
9878: WHEN WSH_SN_SPLIT_ERR THEN
9879: rollback to split_savepoint;
9880: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9881: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
9882: wsh_util_core.add_message(x_return_status,l_module_name);
9883: --
9884: IF l_debug_on THEN
9878: WHEN WSH_SN_SPLIT_ERR THEN
9879: rollback to split_savepoint;
9880: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9881: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
9882: wsh_util_core.add_message(x_return_status,l_module_name);
9883: --
9884: IF l_debug_on THEN
9885: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9886: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SN_SPLIT_ERR');
9890: IF c_get_req_pick_qty%ISOPEN THEN
9891: CLOSE c_get_req_pick_qty;
9892: END IF;
9893: rollback to split_savepoint;
9894: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9895: fnd_message.set_name('WSH', 'WSH_NO_DATA_FOUND');
9896: IF l_debug_on THEN
9897: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9898: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_DATA_FOUND');
9902: IF c_get_req_pick_qty%ISOPEN THEN
9903: CLOSE c_get_req_pick_qty;
9904: END IF;
9905: rollback to split_savepoint;
9906: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9907: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT_BULK',l_module_name);
9908: --
9909: IF l_debug_on THEN
9910: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9903: CLOSE c_get_req_pick_qty;
9904: END IF;
9905: rollback to split_savepoint;
9906: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9907: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT_BULK',l_module_name);
9908: --
9909: IF l_debug_on THEN
9910: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9911: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9982: fail_create_detail EXCEPTION;
9983: /* H integration: Pricing integration csun
9984: mark reprice required flag when split_delivery_details
9985: */
9986: l_entity_ids WSH_UTIL_CORE.id_tab_type;
9987: reprice_required_err EXCEPTION;
9988: l_delivery_assignments_info WSH_DELIVERY_DETAILS_PKG.Delivery_Assignments_Rec_Type;
9989: l_delivery_details_info WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
9990: l_split_weight number;
10025: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10026: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10027: END IF;
10028: --
10029: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10030:
10031: OPEN c_split_detail_info(p_from_detail_id);
10032: FETCH c_split_detail_info into old_delivery_detail_rec;
10033: CLOSE c_split_detail_info;
10106: p_uom_code => old_delivery_detail_rec.requested_quantity_UOM,
10107: x_output_quantity => l_output_quantity,
10108: x_return_status => l_qty_return_status);
10109:
10110: IF (l_qty_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
10111: RAISE chk_decimal_qty_failed;
10112: END IF;
10113: IF (l_output_quantity IS not NULL) THEN
10114: p_req_quantity := l_output_quantity;
10138:
10139: -- Bug 3724578 : Return back to the caller if any error occurs
10140: -- while splitting the delivery detail line
10141: --- Message will be set in Split_Detail_INT
10142: IF x_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
10143: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
10144: ) THEN
10145: return;
10146: END IF;
10139: -- Bug 3724578 : Return back to the caller if any error occurs
10140: -- while splitting the delivery detail line
10141: --- Message will be set in Split_Detail_INT
10142: IF x_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
10143: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
10144: ) THEN
10145: return;
10146: END IF;
10147:
10158: p_delivery_detail_id => old_delivery_detail_rec.delivery_detail_id,
10159: p_primary_quantity => old_delivery_detail_rec.requested_quantity - p_req_quantity,
10160: p_split_delivery_detail_id => x_new_detail_id,
10161: x_return_status => x_return_status);
10162: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10163: --{
10164: IF l_debug_on THEN
10165: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
10166: WSH_DEBUG_SV.pop(l_module_name);
10184: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
10185: p_entity_type => 'DELIVERY_DETAIL',
10186: p_entity_ids => l_entity_ids,
10187: x_return_status => l_return_status);
10188: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10189: raise reprice_required_err;
10190: END IF;
10191:
10192: --
10195: END IF;
10196: --
10197: EXCEPTION
10198: WHEN chk_decimal_qty_failed THEN
10199: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10200: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
10201: wsh_util_core.add_message(x_return_status,l_module_name);
10202: --
10203: IF l_debug_on THEN
10197: EXCEPTION
10198: WHEN chk_decimal_qty_failed THEN
10199: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10200: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
10201: wsh_util_core.add_message(x_return_status,l_module_name);
10202: --
10203: IF l_debug_on THEN
10204: WSH_DEBUG_SV.logmsg(l_module_name,'CHK_DECIMAL_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10205: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
10205: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
10206: END IF;
10207: --
10208: WHEN quantity_over THEN
10209: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10210: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
10211: wsh_util_core.add_message(x_return_status,l_module_name);
10212: --
10213: IF l_debug_on THEN
10207: --
10208: WHEN quantity_over THEN
10209: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10210: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
10211: wsh_util_core.add_message(x_return_status,l_module_name);
10212: --
10213: IF l_debug_on THEN
10214: WSH_DEBUG_SV.logmsg(l_module_name,'QUANTITY_OVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10215: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
10215: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
10216: END IF;
10217: --
10218: WHEN zero_qty THEN
10219: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10220: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
10221: wsh_util_core.add_message(x_return_status,l_module_name);
10222: --
10223: IF l_debug_on THEN
10217: --
10218: WHEN zero_qty THEN
10219: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10220: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
10221: wsh_util_core.add_message(x_return_status,l_module_name);
10222: --
10223: IF l_debug_on THEN
10224: WSH_DEBUG_SV.logmsg(l_module_name,'ZERO_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
10225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
10226: END IF;
10227: --
10228: WHEN negative_qty THEN
10229: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10230: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
10231: wsh_util_core.add_message(x_return_status,l_module_name);
10232: --
10233: IF l_debug_on THEN
10227: --
10228: WHEN negative_qty THEN
10229: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10230: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
10231: wsh_util_core.add_message(x_return_status,l_module_name);
10232: --
10233: IF l_debug_on THEN
10234: WSH_DEBUG_SV.logmsg(l_module_name,'NEGATIVE_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
10235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
10236: END IF;
10237: --
10238: WHEN reprice_required_err THEN
10239: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10240: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
10241: wsh_util_core.add_message(x_return_status,l_module_name);
10242: --
10243: IF l_debug_on THEN
10237: --
10238: WHEN reprice_required_err THEN
10239: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10240: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
10241: wsh_util_core.add_message(x_return_status,l_module_name);
10242: --
10243: IF l_debug_on THEN
10244: WSH_DEBUG_SV.logmsg(l_module_name,'REPRICE_REQUIRED_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10245: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
10245: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
10246: END IF;
10247: --
10248: WHEN others THEN
10249: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10250: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',l_module_name);
10251: --
10252: IF l_debug_on THEN
10253: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10246: END IF;
10247: --
10248: WHEN others THEN
10249: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10250: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',l_module_name);
10251: --
10252: IF l_debug_on THEN
10253: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10254: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10367: WSH_SN_SPLIT_ERR EXCEPTION;
10368:
10369: l_updated_delivery_detail_rec SplitDetailRecType;
10370:
10371: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
10372: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
10373:
10374: --
10375: l_debug_on BOOLEAN;
10398: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10399: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
10400: END IF;
10401: --
10402: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10403:
10404: /* need to validate the quantity passed meets the decimal quantity
10405: standard */
10406:
10770: p_old_shipped_quantity => l_original_shipped_qty,
10771: p_new_shipped_quantity => l_split_shipped_qty,
10772: x_return_status => l_split_return_status);
10773:
10774: IF (l_split_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
10775: RAISE wsh_sn_split_err;
10776: END IF;
10777:
10778: END IF; -- are there serial numbers to split?
10788: x_row_id => detail_rowid,
10789: x_delivery_detail_id => l_new_delivery_detail_id,
10790: x_return_status => l_cr_dt_status);
10791:
10792: IF l_cr_dt_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
10793: RAISE WSH_CREATE_DET_ERR;
10794: END IF;
10795:
10796:
10816: p_update_flag => 'Y',
10817: x_net_weight => l_split_weight,
10818: x_volume => l_split_volume,
10819: x_return_status => l_split_return_status);
10820: IF (l_split_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
10821: RAISE new_det_wt_vol_failed;
10822: END IF;
10823: l_total_net_wt := l_split_weight;
10824: l_total_gross_wt := l_split_weight;
10858:
10859: -- Bug 3724578 : Return back to the caller if any error occurs
10860: -- while creating the delivery detail assignments
10861: --- Message will be set in create_delivery_assignments
10862: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
10863: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
10864: ) THEN
10865: x_return_status := l_cr_assg_status;
10866: return;
10859: -- Bug 3724578 : Return back to the caller if any error occurs
10860: -- while creating the delivery detail assignments
10861: --- Message will be set in create_delivery_assignments
10862: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
10863: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
10864: ) THEN
10865: x_return_status := l_cr_assg_status;
10866: return;
10867: END IF;
10880: l_delivery_assignment_id,
10881: l_cr_assg_status
10882: );
10883:
10884: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
10885: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
10886: ) THEN
10887: x_return_status := l_cr_assg_status;
10888: return;
10881: l_cr_assg_status
10882: );
10883:
10884: IF l_cr_assg_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,
10885: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
10886: ) THEN
10887: x_return_status := l_cr_assg_status;
10888: return;
10889: END IF;
10957:
10958: IF l_debug_on THEN
10959: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
10960: END IF;
10961: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
10962: x_return_status := l_dbi_rs;
10963: -- just pass this return status to caller API
10964: IF l_debug_on THEN
10965: WSH_DEBUG_SV.pop(l_module_name);
10982: p_diff_net_wt => -1 * l_total_net_wt,
10983: p_diff_fill_volume => -1 * l_total_vol,
10984: x_return_status => l_return_status);
10985:
10986: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
10987: --
10988: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10989: WSH_UTIL_CORE.Add_Message(x_return_status);
10990: IF l_debug_on THEN
10984: x_return_status => l_return_status);
10985:
10986: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
10987: --
10988: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10989: WSH_UTIL_CORE.Add_Message(x_return_status);
10990: IF l_debug_on THEN
10991: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
10992: WSH_DEBUG_SV.pop(l_module_name);
10985:
10986: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
10987: --
10988: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10989: WSH_UTIL_CORE.Add_Message(x_return_status);
10990: IF l_debug_on THEN
10991: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
10992: WSH_DEBUG_SV.pop(l_module_name);
10993: END IF;
11003: EXCEPTION
11004: -- HW OPMCONV. Removed OPM exception
11005:
11006: WHEN old_det_wt_vol_failed THEN
11007: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11008: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
11009: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
11010: wsh_util_core.add_message(x_return_status,l_module_name);
11011: --
11006: WHEN old_det_wt_vol_failed THEN
11007: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11008: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
11009: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
11010: wsh_util_core.add_message(x_return_status,l_module_name);
11011: --
11012: IF l_debug_on THEN
11013: WSH_DEBUG_SV.logmsg(l_module_name,'OLD_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11014: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
11014: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
11015: END IF;
11016: --
11017: WHEN new_det_wt_vol_failed THEN
11018: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11019: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
11020: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
11021: wsh_util_core.add_message(x_return_status,l_module_name);
11022: --
11017: WHEN new_det_wt_vol_failed THEN
11018: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11019: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
11020: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
11021: wsh_util_core.add_message(x_return_status,l_module_name);
11022: --
11023: IF l_debug_on THEN
11024: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11025: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
11025: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
11026: END IF;
11027: --
11028: WHEN WSH_SN_SPLIT_ERR THEN
11029: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11030: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
11031: wsh_util_core.add_message(x_return_status,l_module_name);
11032: --
11033: IF l_debug_on THEN
11027: --
11028: WHEN WSH_SN_SPLIT_ERR THEN
11029: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11030: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
11031: wsh_util_core.add_message(x_return_status,l_module_name);
11032: --
11033: IF l_debug_on THEN
11034: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11035: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SN_SPLIT_ERR');
11042: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_DET_ERR');
11043: END IF;
11044:
11045: WHEN others THEN
11046: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11047: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT',l_module_name);
11048: --
11049: IF l_debug_on THEN
11050: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11043: END IF;
11044:
11045: WHEN others THEN
11046: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11047: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT',l_module_name);
11048: --
11049: IF l_debug_on THEN
11050: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11238: OPEN c_temp_id;
11239: FETCH c_temp_id INTO l_transaction_temp_id;
11240: IF c_temp_id%NOTFOUND THEN
11241: CLOSE c_temp_id;
11242: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11243: --
11244: IF l_debug_on THEN
11245: WSH_DEBUG_SV.log(l_module_name,'Return Status is error',x_return_status);
11246: WSH_DEBUG_SV.pop(l_module_name);
11425: IF l_success < 0 THEN
11426: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11427: FND_MESSAGE.SET_TOKEN('FM_SERIAL',l_new_sn);
11428: FND_MESSAGE.SET_TOKEN('TO_SERIAL',l_new_to_sn);
11429: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11430: WSH_UTIL_CORE.Add_Message(x_return_status);
11431: END IF;
11432: -- bug 2740681
11433:
11426: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11427: FND_MESSAGE.SET_TOKEN('FM_SERIAL',l_new_sn);
11428: FND_MESSAGE.SET_TOKEN('TO_SERIAL',l_new_to_sn);
11429: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11430: WSH_UTIL_CORE.Add_Message(x_return_status);
11431: END IF;
11432: -- bug 2740681
11433:
11434: ELSE
11501: IF l_success < 0 THEN
11502: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11503: FND_MESSAGE.SET_TOKEN('FM_SERIAL', c.fm_serial_number);
11504: FND_MESSAGE.SET_TOKEN('TO_SERIAL', c.to_serial_number);
11505: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11506: WSH_UTIL_CORE.Add_Message(x_return_status);
11507: END IF;
11508: --bug 2740681
11509: ELSE
11502: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11503: FND_MESSAGE.SET_TOKEN('FM_SERIAL', c.fm_serial_number);
11504: FND_MESSAGE.SET_TOKEN('TO_SERIAL', c.to_serial_number);
11505: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11506: WSH_UTIL_CORE.Add_Message(x_return_status);
11507: END IF;
11508: --bug 2740681
11509: ELSE
11510: -- we need to remove this serial number range (which has count of 1)
11540: END IF;
11541: --
11542: EXCEPTION
11543: WHEN others THEN
11544: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11545: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.SPLIT_SERIAL_NUMBERS_INT',l_module_name);
11546:
11547: --
11548: IF l_debug_on THEN
11541: --
11542: EXCEPTION
11543: WHEN others THEN
11544: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11545: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.SPLIT_SERIAL_NUMBERS_INT',l_module_name);
11546:
11547: --
11548: IF l_debug_on THEN
11549: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11582: --
11583: BEGIN
11584: --
11585: --
11586: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11587: --
11588: --
11589: END explode_delivery_Details;
11590:
11599: REM become empty because of the current line was unpacked, those containers are left
11600: REM packed/assigned to the Delivery.
11601: */
11602: PROCEDURE unassign_unpack_empty_cont (
11603: p_ids_tobe_unassigned IN wsh_util_core.id_tab_type,
11604: p_validate_flag IN VARCHAR2,
11605: x_return_status OUT NOCOPY VARCHAR2
11606: )
11607: IS
11617: FROM wsh_delivery_assignments_v
11618: WHERE parent_delivery_detail_id = cont_id
11619: AND delivery_detail_id <> detail_id;
11620:
11621: l_parent_container_id wsh_util_core.id_tab_type ;
11622: l_delivery_id wsh_delivery_assignments_v.delivery_id%type;
11623: l_return_status VARCHAR2(1):=NULL ;
11624: l_line_id NUMBER := NULL;
11625:
11663: --
11664: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
11665: END IF;
11666:
11667: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11668:
11669: IF ( p_ids_tobe_unassigned.COUNT = 0 ) THEN
11670: --
11671: IF l_debug_on THEN
11706: WSH_DEBUG_SV.log(l_module_name, 'AFTER CALLING UNASSIGN_DETAIL_FROM_DELIVERY: ', L_RETURN_STATUS);
11707: END IF;
11708: --
11709: -- Check if the Parent Container is empty, if yes, recursivelly call this API
11710: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11711: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_UNASSIGN_DET_ERROR');
11712: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id)); -- Bug#3542095
11713: FND_MESSAGE.SET_TOKEN('DET_NAME',p_ids_tobe_unassigned(i));
11714: x_return_status := l_return_status;
11711: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_UNASSIGN_DET_ERROR');
11712: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id)); -- Bug#3542095
11713: FND_MESSAGE.SET_TOKEN('DET_NAME',p_ids_tobe_unassigned(i));
11714: x_return_status := l_return_status;
11715: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
11716: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11717: --
11718: --IF l_debug_on THEN
11719: --WSH_DEBUG_SV.pop(l_module_name);
11712: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id)); -- Bug#3542095
11713: FND_MESSAGE.SET_TOKEN('DET_NAME',p_ids_tobe_unassigned(i));
11714: x_return_status := l_return_status;
11715: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
11716: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11717: --
11718: --IF l_debug_on THEN
11719: --WSH_DEBUG_SV.pop(l_module_name);
11720: --END IF;
11769: x_return_status => l_return_status);
11770: IF l_debug_on THEN
11771: WSH_DEBUG_SV.log(l_module_name, 'After calling UNASSIGN_UNPACK_EMPTY_CONT: ', L_RETURN_STATUS);
11772: END IF;
11773: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11774: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11775: x_return_status := l_return_status ;
11776: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
11777: x_return_status := l_return_status ;
11770: IF l_debug_on THEN
11771: WSH_DEBUG_SV.log(l_module_name, 'After calling UNASSIGN_UNPACK_EMPTY_CONT: ', L_RETURN_STATUS);
11772: END IF;
11773: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11774: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11775: x_return_status := l_return_status ;
11776: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
11777: x_return_status := l_return_status ;
11778: END IF;
11772: END IF;
11773: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11774: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11775: x_return_status := l_return_status ;
11776: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
11777: x_return_status := l_return_status ;
11778: END IF;
11779: END IF;
11780: IF x_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
11776: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
11777: x_return_status := l_return_status ;
11778: END IF;
11779: END IF;
11780: IF x_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
11781: --IF l_debug_on THEN
11782: --WSH_DEBUG_SV.pop(l_module_name);
11783: --END IF;
11784: --RETURN; LPN CONV. rv
11812: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
11813: END IF;
11814: --
11815: --
11816: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11817: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11818: x_return_status := l_return_status ;
11819: 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
11820: x_return_status := l_return_status ;
11813: END IF;
11814: --
11815: --
11816: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11817: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11818: x_return_status := l_return_status ;
11819: 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
11820: x_return_status := l_return_status ;
11821: END IF;
11815: --
11816: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11817: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11818: x_return_status := l_return_status ;
11819: 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
11820: x_return_status := l_return_status ;
11821: END IF;
11822: END IF;
11823:
11855: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
11856: END IF;
11857: --
11858: --
11859: 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
11860: x_return_status := l_return_status;
11861: END IF;
11862: --
11863: --}
11869: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_return_excp');
11870: END IF;
11871:
11872: WHEN OTHERS THEN
11873: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.unassign_unpack_empty_cont');
11874: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11875: --
11876: IF l_debug_on THEN
11877: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11870: END IF;
11871:
11872: WHEN OTHERS THEN
11873: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.unassign_unpack_empty_cont');
11874: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11875: --
11876: IF l_debug_on THEN
11877: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11878: END IF;
12114: p_status => pexceptions.status,
12115: p_action => p_action);
12116:
12117: END LOOP;
12118: IF (l_exception_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12119: --
12120: -- Debug Statements
12121: --
12122: IF l_debug_on THEN
12154: --
12155: -- HW OPM BUG#:3121616 added requested_quantity2
12156: PROCEDURE Consolidate_Source_Line(
12157: p_Cons_Source_Line_Rec_Tab IN WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
12158: x_consolidate_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12159: x_return_status OUT NOCOPY VARCHAR2 ) IS
12160:
12161: CURSOR get_bo_dds_cur(p_delivery_detail_id IN NUMBER, p_source_line_id IN NUMBER,p_delivery_id IN NUMBER) is
12162: SELECT wdd.delivery_detail_id, wdd.requested_quantity,wdd.requested_quantity2
12181:
12182:
12183: -- Tables to store delivery detail id's
12184:
12185: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the final delivery details
12186: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12187: -- HW OPM BUG#:3121616 added qty2s
12188: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12189: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12182:
12183: -- Tables to store delivery detail id's
12184:
12185: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the final delivery details
12186: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12187: -- HW OPM BUG#:3121616 added qty2s
12188: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12189: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12190: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12184:
12185: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the final delivery details
12186: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12187: -- HW OPM BUG#:3121616 added qty2s
12188: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12189: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12190: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12191: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12192: -- HW OPM BUG#:3121616 added qty2s
12185: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the final delivery details
12186: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12187: -- HW OPM BUG#:3121616 added qty2s
12188: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12189: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12190: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12191: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12192: -- HW OPM BUG#:3121616 added qty2s
12193: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12186: l_cons_qtys WSH_UTIL_CORE.Id_Tab_Type;
12187: -- HW OPM BUG#:3121616 added qty2s
12188: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12189: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12190: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12191: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12192: -- HW OPM BUG#:3121616 added qty2s
12193: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12194: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12187: -- HW OPM BUG#:3121616 added qty2s
12188: l_cons_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12189: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12190: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12191: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12192: -- HW OPM BUG#:3121616 added qty2s
12193: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12194: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12195: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12189: l_partial_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store partial Back Order Del Det
12190: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12191: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12192: -- HW OPM BUG#:3121616 added qty2s
12193: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12194: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12195: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12196: l_ship_instructions WSH_UTIL_CORE.tbl_varchar; -- To store shipping instructions
12197: l_pack_instructions WSH_UTIL_CORE.tbl_varchar; -- To store packing instructions
12190: l_partial_org_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12191: l_partial_req_qtys WSH_UTIL_CORE.Id_Tab_Type;
12192: -- HW OPM BUG#:3121616 added qty2s
12193: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12194: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12195: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12196: l_ship_instructions WSH_UTIL_CORE.tbl_varchar; -- To store shipping instructions
12197: l_pack_instructions WSH_UTIL_CORE.tbl_varchar; -- To store packing instructions
12198:
12192: -- HW OPM BUG#:3121616 added qty2s
12193: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12194: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12195: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12196: l_ship_instructions WSH_UTIL_CORE.tbl_varchar; -- To store shipping instructions
12197: l_pack_instructions WSH_UTIL_CORE.tbl_varchar; -- To store packing instructions
12198:
12199:
12200:
12193: l_partial_req_qty2s WSH_UTIL_CORE.Id_Tab_Type;
12194: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- To store the Del Det to be deleted
12195: -- Bug#3399109 :Changed the Data Type from Id_Tab_Type to tbl_varchar
12196: l_ship_instructions WSH_UTIL_CORE.tbl_varchar; -- To store shipping instructions
12197: l_pack_instructions WSH_UTIL_CORE.tbl_varchar; -- To store packing instructions
12198:
12199:
12200:
12201: l_del_det_Id NUMBER;
12249: WSH_DEBUG_SV.push(l_module_name);
12250: END IF;
12251: --
12252:
12253: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12254: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12255: l_user_id := FND_GLOBAL.user_id;
12256: l_login_id := FND_GLOBAL.login_id;
12257:
12250: END IF;
12251: --
12252:
12253: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12254: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12255: l_user_id := FND_GLOBAL.user_id;
12256: l_login_id := FND_GLOBAL.login_id;
12257:
12258: FOR i IN 1..p_Cons_Source_Line_Rec_Tab.count --{ Looping thru' the input params
12412: WSH_DD_TXNS_PVT.create_dd_txn_from_dd (p_delivery_detail_id => l_cons_dd_ids(i),
12413: x_dd_txn_id => l_dd_txn_id,
12414: x_return_status =>l_txn_return_status);
12415:
12416: IF (l_txn_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12417: x_return_status := l_txn_return_status;
12418: RETURN;
12419: END IF;
12420: END LOOP;
12435: IF l_debug_on THEN
12436: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
12437: END IF;
12438: -- Only Handle Unexpected error
12439: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12440: --
12441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12442: END IF;
12443: -- End of Code for DBI Project
12479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12482: RAISE FND_API.G_EXC_ERROR;
12483: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12484: x_return_status := l_return_status;
12485: END IF;
12486:
12487: END LOOP;
12514: IF l_debug_on THEN
12515: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
12516: END IF;
12517: -- Only Handle Unexpected error
12518: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12519: --
12520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12521: END IF;
12522: -- End of Code for DBI Project
12572: p_diff_net_wt => -1 * (l_net_weight - l_new_net_wt),
12573: p_diff_fill_volume => -1 * (l_volume - l_new_vol),
12574: x_return_status => l_return_status);
12575:
12576: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12577: --
12578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12579: WSH_UTIL_CORE.Add_Message(x_return_status);
12580: IF l_debug_on THEN
12574: x_return_status => l_return_status);
12575:
12576: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12577: --
12578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12579: WSH_UTIL_CORE.Add_Message(x_return_status);
12580: IF l_debug_on THEN
12581: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
12582: WSH_DEBUG_SV.pop(l_module_name);
12575:
12576: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12577: --
12578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12579: WSH_UTIL_CORE.Add_Message(x_return_status);
12580: IF l_debug_on THEN
12581: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
12582: WSH_DEBUG_SV.pop(l_module_name);
12583: END IF;
12597: --
12598: EXCEPTION
12599:
12600: WHEN FND_API.G_EXC_ERROR THEN
12601: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12602:
12603: --
12604: IF l_debug_on THEN
12605: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12607: END IF;
12608: --
12609: return;
12610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12611: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12612: --
12613: IF l_debug_on THEN
12614: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12619:
12620:
12621: WHEN OTHERS THEN
12622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12623: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Source_Lines ' );
12624: --
12625: -- Debug Statements
12626: --
12627: IF l_debug_on THEN
12654: p_delete_flag IN VARCHAR2 DEFAULT NULL,
12655: x_return_status OUT NOCOPY VARCHAR2
12656: ) IS
12657:
12658: l_delivery_detail_ids WSH_UTIL_CORE.Id_Tab_Type;
12659: l_idx NUMBER;
12660:
12661: l_inventory_item_id NUMBER := NULL;
12662: l_organization_id NUMBER := NULL;
12690: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
12691: WSH_DEBUG_SV.log(l_module_name,'P_DELETE_FLAG',P_DELETE_FLAG);
12692: END IF;
12693: --
12694: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12695:
12696: --
12697: -- Debug Statements
12698: --
12706: p_ids_tobe_unassigned => l_delivery_detail_ids ,
12707: p_validate_flag => 'N',
12708: x_return_status => l_return_status
12709: );
12710: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12711: raise FND_API.G_EXC_ERROR;
12712: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12713: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12714: END IF;
12708: x_return_status => l_return_status
12709: );
12710: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12711: raise FND_API.G_EXC_ERROR;
12712: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12713: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12714: END IF;
12715: END IF; --}
12716:
12732: p_override_retain_ato_rsv => 'N',
12733: p_quantity2_to_unreserve => p_bo_qty2s,
12734: x_return_status => l_return_status
12735: );
12736: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12737: raise FND_API.G_EXC_ERROR;
12738: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12739: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12740: END IF;
12734: x_return_status => l_return_status
12735: );
12736: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12737: raise FND_API.G_EXC_ERROR;
12738: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12739: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12740: END IF;
12741: END IF; --}
12742:
12770: p_quantity2_to_unreserve => p_bo_qty2s,
12771: x_return_status => l_return_status
12772: );
12773: END IF;
12774: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12775: raise FND_API.G_EXC_ERROR;
12776: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12777: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12778: END IF;
12772: );
12773: END IF;
12774: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12775: raise FND_API.G_EXC_ERROR;
12776: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12777: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12778: END IF;
12779: END IF; --}
12780:
12790: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details(
12791: p_delivery_detail_id => p_delivery_detail_id,
12792: p_cancel_flag => 'N',
12793: x_return_status => l_return_status);
12794: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12795: raise FND_API.G_EXC_ERROR;
12796: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12797: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12798: END IF;
12792: p_cancel_flag => 'N',
12793: x_return_status => l_return_status);
12794: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
12795: raise FND_API.G_EXC_ERROR;
12796: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12797: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12798: END IF;
12799: END IF; --}
12800:
12803: END IF;
12804:
12805: EXCEPTION
12806: WHEN others THEN
12807: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12808: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Process_Delivery_Details',l_module_name);
12809: --
12810: IF l_debug_on THEN
12811: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12804:
12805: EXCEPTION
12806: WHEN others THEN
12807: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12808: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Process_Delivery_Details',l_module_name);
12809: --
12810: IF l_debug_on THEN
12811: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12812: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12840: PROCEDURE Consolidate_Delivery_Details(
12841: p_delivery_details_tab IN WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
12842: p_bo_mode IN VARCHAR2,
12843: x_cons_delivery_details_tab OUT NOCOPY WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
12844: x_remain_bo_qtys OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12845: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12846: x_return_status OUT NOCOPY VARCHAR2
12847: ) IS
12848: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
12841: p_delivery_details_tab IN WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
12842: p_bo_mode IN VARCHAR2,
12843: x_cons_delivery_details_tab OUT NOCOPY WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
12844: x_remain_bo_qtys OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12845: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12846: x_return_status OUT NOCOPY VARCHAR2
12847: ) IS
12848: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
12849: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
12844: x_remain_bo_qtys OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12845: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12846: x_return_status OUT NOCOPY VARCHAR2
12847: ) IS
12848: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
12849: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
12850: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
12851: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
12852: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
12845: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12846: x_return_status OUT NOCOPY VARCHAR2
12847: ) IS
12848: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
12849: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
12850: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
12851: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
12852: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
12853: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
12847: ) IS
12848: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
12849: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
12850: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
12851: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
12852: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
12853: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
12854: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
12855: -- HW OPM BUG#:3121616 added qty2s
12848: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
12849: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
12850: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
12851: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
12852: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
12853: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
12854: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
12855: -- HW OPM BUG#:3121616 added qty2s
12856: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
12849: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
12850: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
12851: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
12852: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
12853: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
12854: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
12855: -- HW OPM BUG#:3121616 added qty2s
12856: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
12857: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
12850: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
12851: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
12852: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
12853: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
12854: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
12855: -- HW OPM BUG#:3121616 added qty2s
12856: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
12857: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
12858: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
12852: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
12853: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
12854: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
12855: -- HW OPM BUG#:3121616 added qty2s
12856: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
12857: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
12858: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
12859: 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)
12860: 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)
12853: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
12854: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
12855: -- HW OPM BUG#:3121616 added qty2s
12856: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
12857: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
12858: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
12859: 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)
12860: 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)
12861: -- HW OPM BUG#:3121616 added qty2s
12854: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
12855: -- HW OPM BUG#:3121616 added qty2s
12856: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
12857: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
12858: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
12859: 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)
12860: 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)
12861: -- HW OPM BUG#:3121616 added qty2s
12862: 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)
12855: -- HW OPM BUG#:3121616 added qty2s
12856: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
12857: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
12858: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
12859: 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)
12860: 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)
12861: -- HW OPM BUG#:3121616 added qty2s
12862: 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)
12863: 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)
12856: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities2 passed as parameter
12857: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores consolidate dd_id for line_id at l_cons_dd_ids(line_id)
12858: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
12859: 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)
12860: 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)
12861: -- HW OPM BUG#:3121616 added qty2s
12862: 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)
12863: 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)
12864: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the all delivery details need to be deleted(that are getting
12858: l_cons_dd_flags WSH_UTIL_CORE.Column_Tab_Type;
12859: 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)
12860: 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)
12861: -- HW OPM BUG#:3121616 added qty2s
12862: 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)
12863: 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)
12864: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the all delivery details need to be deleted(that are getting
12865: -- completely BackOrdered), except one delivery detail for each source line.
12866:
12859: 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)
12860: 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)
12861: -- HW OPM BUG#:3121616 added qty2s
12862: 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)
12863: 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)
12864: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the all delivery details need to be deleted(that are getting
12865: -- completely BackOrdered), except one delivery detail for each source line.
12866:
12867: l_curr_line_id NUMBER; -- This temporary variable stores the current line_id in a loop.
12860: 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)
12861: -- HW OPM BUG#:3121616 added qty2s
12862: 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)
12863: 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)
12864: l_delete_dd_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the all delivery details need to be deleted(that are getting
12865: -- completely BackOrdered), except one delivery detail for each source line.
12866:
12867: l_curr_line_id NUMBER; -- This temporary variable stores the current line_id in a loop.
12868: l_cons_dd_id NUMBER; -- This contains the delivery_detail_id that gets consolidation into
12875: l_idx NUMBER := 1;
12876: l_cmp_idx NUMBER := 1;
12877: l_next_idx NUMBER := 1;
12878:
12879: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
12880: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
12881:
12882: --
12883: l_debug_on BOOLEAN;
13046: p_delete_flag => 'Y',
13047: p_bo_qty2s => l_bo_qty2s(l_cmp_idx),
13048: x_return_status => l_return_status
13049: );
13050: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13051: raise FND_API.G_EXC_ERROR;
13052: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13053: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13054: END IF;
13048: x_return_status => l_return_status
13049: );
13050: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13051: raise FND_API.G_EXC_ERROR;
13052: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13053: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13054: END IF;
13055:
13056: -- If a delivery detail is partially backordered , unreserve the backordered
13071: p_delete_flag => 'N',
13072: p_bo_qty2s => l_bo_qty2s(l_cmp_idx),
13073: x_return_status => l_return_status
13074: );
13075: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13076: raise FND_API.G_EXC_ERROR;
13077: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13078: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13079: END IF;
13073: x_return_status => l_return_status
13074: );
13075: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
13076: raise FND_API.G_EXC_ERROR;
13077: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13078: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13079: END IF;
13080:
13081: -- HW OPM BUG#:3121616 added qty2s
13117:
13118: IF l_debug_on THEN
13119: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
13120: END IF;
13121: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13122: -- just pass this return status to caller API
13123: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13124: END IF;
13125: -- End of Code for DBI Project
13204: --
13205:
13206: WHEN OTHERS THEN
13207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13208: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details',l_module_name);
13209: --
13210: -- Debug Statements
13211: --
13212: IF l_debug_on THEN
13219:
13220:
13221: -- K: MDC
13222: PROCEDURE Delete_Consol_Record(
13223: p_detail_id_tab IN wsh_util_core.id_tab_type,
13224: x_return_status OUT NOCOPY VARCHAR2) IS
13225:
13226: l_debug_on BOOLEAN;
13227: --
13258: END IF;
13259: EXCEPTION
13260: WHEN OTHERS THEN
13261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13262: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Top_Detail_from_Delivery',l_module_name);
13263: --
13264: -- Debug Statements
13265: --
13266: IF l_debug_on THEN
13270: --
13271: END Delete_Consol_Record;
13272:
13273: PROCEDURE Create_Consol_Record(
13274: p_detail_id_tab IN wsh_util_core.id_tab_type,
13275: x_return_status OUT NOCOPY VARCHAR2) IS
13276:
13277: cursor c_get_consolidation_delivery (p_det_id IN NUMBER) is
13278: select l1.delivery_id, l2.delivery_id
13282: and l1.parent_delivery_leg_id = l2.delivery_leg_id
13283: and a.parent_delivery_detail_id is NULL
13284: and NVL(a.type, 'S') = 'S';
13285:
13286: l_consol_delivery_id_tab wsh_util_core.id_tab_type;
13287: l_delivery_id_tab wsh_util_core.id_tab_type;
13288: l_detail_id_tab wsh_util_core.id_tab_type;
13289: l_delivery_id NUMBER;
13290: l_consol_delivery_id NUMBER;
13283: and a.parent_delivery_detail_id is NULL
13284: and NVL(a.type, 'S') = 'S';
13285:
13286: l_consol_delivery_id_tab wsh_util_core.id_tab_type;
13287: l_delivery_id_tab wsh_util_core.id_tab_type;
13288: l_detail_id_tab wsh_util_core.id_tab_type;
13289: l_delivery_id NUMBER;
13290: l_consol_delivery_id NUMBER;
13291: i NUMBER;
13284: and NVL(a.type, 'S') = 'S';
13285:
13286: l_consol_delivery_id_tab wsh_util_core.id_tab_type;
13287: l_delivery_id_tab wsh_util_core.id_tab_type;
13288: l_detail_id_tab wsh_util_core.id_tab_type;
13289: l_delivery_id NUMBER;
13290: l_consol_delivery_id NUMBER;
13291: i NUMBER;
13292: j NUMBER := 0;
13390: EXCEPTION
13391:
13392: WHEN OTHERS THEN
13393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13394: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record',l_module_name);
13395: --
13396: -- Debug Statements
13397: --
13398: IF l_debug_on THEN