[Home] [Help]
108: l_content_detail_info c_content_details%ROWTYPE;
109: l_counter NUMBER := 0;
110: l_delivery_id NUMBER := 0;
111: l_stop_id NUMBER := 0;
112: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS ;
113: l_container_id NUMBER := 0;
114: l_parent_container_id NUMBER := 0;
115: l_find_parent VARCHAR2(1) := 'F';
116: i NUMBER := 0;
143: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
144: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
145: END IF;
146: --
147: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
148: --
149: -- Debug Statements
150: --
151: IF l_debug_on THEN
348: p_stop_id => p_stop_id,
349: p_trip_id => p_trip_id,
350: x_Relevant_Info_Tab => x_Relevant_Info_Tab,
351: x_return_status => l_return_status );
352: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
353: RAISE WSH_FC_INFO_ERR;
354: END IF;
355: END LOOP;
356: CLOSE c_pickup_deliveries;
365: p_stop_id => l_stop_id,
366: p_trip_id => p_trip_id,
367: x_Relevant_Info_Tab => x_Relevant_Info_Tab,
368: x_return_status => l_return_status );
369: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
370: RAISE WSH_FC_INFO_ERR;
371: END IF;
372: END LOOP;
373: CLOSE c_trip_stops;
391: IF l_debug_on THEN
392: WSH_DEBUG_SV.logmsg(l_module_name, 'GET RELEVANT_INFO FAILED' );
393: END IF;
394: --
395: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
396:
397: --
398: -- Debug Statements
399: --
402: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_FC_INFO_ERR');
403: END IF;
404: --
405: WHEN others THEN
406: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Get_Relevant_Info');
407: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
408:
409: --
410: -- Debug Statements
403: END IF;
404: --
405: WHEN others THEN
406: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Get_Relevant_Info');
407: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
408:
409: --
410: -- Debug Statements
411: --
471: WSH_DEBUG_SV.log(l_module_name,'P_COST_FACTOR',P_COST_FACTOR);
472: WSH_DEBUG_SV.log(l_module_name,'X_RETURN_STATUS',X_RETURN_STATUS);
473: END IF;
474: --
475: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
476: --
477: -- Debug Statements
478: --
479: IF l_debug_on THEN
688: IF l_debug_on THEN
689: WSH_DEBUG_SV.logmsg(l_module_name, 'UOM CODE IS NULL' );
690: END IF;
691: --
692: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
693:
694: --
695: -- Debug Statements
696: --
699: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NULL_UOM');
700: END IF;
701: --
702: WHEN others THEN
703: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Get_Container_Level_Breakdown');
704: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
705:
706: --
707: -- Debug Statements
700: END IF;
701: --
702: WHEN others THEN
703: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Get_Container_Level_Breakdown');
704: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
705:
706: --
707: -- Debug Statements
708: --
767: WSH_DEBUG_SV.log(l_module_name,'P_COST_FACTOR',P_COST_FACTOR);
768: WSH_DEBUG_SV.log(l_module_name,'X_RETURN_STATUS',X_RETURN_STATUS);
769: END IF;
770: --
771: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
772: --
773: -- Debug Statements
774: --
775: IF l_debug_on THEN
980: IF l_debug_on THEN
981: WSH_DEBUG_SV.logmsg(l_module_name, 'UOM CODE IS NULL' );
982: END IF;
983: --
984: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
985:
986: --
987: -- Debug Statements
988: --
991: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NULL_UOM');
992: END IF;
993: --
994: WHEN others THEN
995: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Get_Delivery_Level_Breakdown');
996: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
997:
998: --
999: -- Debug Statements
992: END IF;
993: --
994: WHEN others THEN
995: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Get_Delivery_Level_Breakdown');
996: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
997:
998: --
999: -- Debug Statements
1000: --
1059: WSH_DEBUG_SV.log(l_module_name,'P_COST_FACTOR',P_COST_FACTOR);
1060: WSH_DEBUG_SV.log(l_module_name,'P_RELEVANT_INFO_TAB.COUNT',P_RELEVANT_INFO_TAB.count);
1061: END IF;
1062: --
1063: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1064: --
1065: -- Debug Statements
1066: --
1067: IF l_debug_on THEN
1271: IF l_debug_on THEN
1272: WSH_DEBUG_SV.logmsg(l_module_name, 'UOM CODE IS NULL' );
1273: END IF;
1274: --
1275: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1276:
1277: --
1278: -- Debug Statements
1279: --
1282: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NULL_UOM');
1283: END IF;
1284: --
1285: WHEN others THEN
1286: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Get_Stop_Level_Breakdown');
1287: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1288:
1289: --
1290: -- Debug Statements
1283: END IF;
1284: --
1285: WHEN others THEN
1286: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Get_Stop_Level_Breakdown');
1287: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1288:
1289: --
1290: -- Debug Statements
1291: --
1321: l_cost_brk_count NUMBER := 0;
1322: l_prorated_cost_count NUMBER := 0;
1323: l_container_quantity NUMBER := 0;
1324: l_Cost_Breakdown CostBreakdownTabType;
1325: l_return_status VARCHAR2(10) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1326:
1327:
1328: WSH_ROUND_AMOUNT_ERROR EXCEPTION;
1329: WSH_GET_BREAKDOWN_ERR EXCEPTION;
1357: WSH_DEBUG_SV.log(l_module_name,'P_RELEVANT_INFO_TAB.COUNT',P_RELEVANT_INFO_TAB.count);
1358:
1359: END IF;
1360: --
1361: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1362: --
1363: -- Debug Statements
1364: --
1365: IF l_debug_on THEN
1375: x_return_status => l_return_status
1376: );
1377:
1378:
1379: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1380: RAISE WSH_GET_BREAKDOWN_ERR;
1381: END IF;
1382:
1383:
1388: FOR l_counter IN 1..(l_cost_brk_count -1) LOOP
1389: l_prorated_cost_count := l_prorated_cost_count +1;
1390: l_distributed_cost := p_Freight_Cost_Amount * ( l_Cost_Breakdown(l_counter).quantity / l_container_quantity);
1391: Round_Cost_Amount(l_distributed_cost, p_From_Currency_Code, l_round_distributed_cost, l_return_status);
1392: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1393: RAISE WSH_ROUND_AMOUNT_ERROR;
1394: END IF;
1395: x_Prorated_Freight_Cost(l_prorated_cost_count).delivery_detail_id := l_Cost_Breakdown(l_counter).delivery_detail_id;
1396: x_Prorated_Freight_Cost(l_prorated_cost_count).freight_cost_type_code := p_freight_cost_type_code;
1419: -- last record
1420: l_prorated_cost_count := l_prorated_cost_count +1;
1421: l_distributed_cost := l_rest_amount;
1422: Round_Cost_Amount(l_distributed_cost, p_From_Currency_Code, l_round_distributed_cost, l_return_status);
1423: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1424: RAISE WSH_ROUND_AMOUNT_ERROR;
1425: END IF;
1426: x_Prorated_Freight_Cost(l_prorated_cost_count).delivery_detail_id := l_Cost_Breakdown(l_cost_brk_count).delivery_detail_id;
1427: x_Prorated_Freight_Cost(l_prorated_cost_count).freight_cost_type_code := p_freight_cost_type_code;
1464: IF l_debug_on THEN
1465: WSH_DEBUG_SV.logmsg(l_module_name, 'GET COST BREAKDOWN ERROR AT CONTAINER ' || P_CONTAINER_ID );
1466: END IF;
1467: --
1468: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1469:
1470: --
1471: -- Debug Statements
1472: --
1482: IF l_debug_on THEN
1483: WSH_DEBUG_SV.logmsg(l_module_name, 'GET ROUND AMOUNT ERROR AT CONTAINER ' || P_CONTAINER_ID );
1484: END IF;
1485: --
1486: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1487:
1488: --
1489: -- Debug Statements
1490: --
1493: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_ROUND_AMOUNT_ERROR');
1494: END IF;
1495: --
1496: WHEN others THEN
1497: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Container_Level_Cost');
1498: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1499:
1500: --
1501: -- Debug Statements
1494: END IF;
1495: --
1496: WHEN others THEN
1497: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Container_Level_Cost');
1498: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1499:
1500: --
1501: -- Debug Statements
1502: --
1565: WSH_DEBUG_SV.log(l_module_name,'P_RELEVANT_INFO_TAB.COUNT',P_RELEVANT_INFO_TAB.count);
1566:
1567: END IF;
1568: --
1569: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1570: l_next_table_id := x_Prorated_Freight_Cost.COUNT + 1;
1571: x_Prorated_Freight_Cost(l_next_table_id).delivery_detail_id := p_delivery_detail_id;
1572: x_Prorated_Freight_Cost(l_next_table_id).freight_cost_type_code := p_freight_cost_type_code;
1573: x_prorated_Freight_Cost(l_next_table_id).freight_cost_id := p_freight_cost_id;
1592: END IF;
1593: --
1594: Exception
1595: WHEN others THEN
1596: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Detail_Level_Cost');
1597: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1598: --
1599: -- Debug Statements
1600: --
1593: --
1594: Exception
1595: WHEN others THEN
1596: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Detail_Level_Cost');
1597: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1598: --
1599: -- Debug Statements
1600: --
1601: IF l_debug_on THEN
1638: l_cost_brk_count NUMBER := 0;
1639: l_prorated_cost_count NUMBER := 0;
1640: l_delivery_quantity NUMBER := 0;
1641: l_Cost_Breakdown CostBreakdownTabType;
1642: l_return_status VARCHAR2(10) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1643:
1644: WSH_ROUND_AMOUNT_ERROR EXCEPTION;
1645: WSH_GET_BREAKDOWN_ERR EXCEPTION;
1646:
1676: WSH_DEBUG_SV.log(l_module_name,'P_RELEVANT_INFO_TAB.COUNT',P_RELEVANT_INFO_TAB.count);
1677:
1678: END IF;
1679: --
1680: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1681: --
1682: -- Debug Statements
1683: --
1684: IF l_debug_on THEN
1695: x_return_status => l_return_status
1696: );
1697:
1698:
1699: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1700: RAISE WSH_GET_BREAKDOWN_ERR;
1701: END IF;
1702:
1703: l_cost_brk_count := l_Cost_Breakdown.count;
1707: FOR l_counter IN 1..(l_cost_brk_count -1) LOOP
1708: l_prorated_cost_count := l_prorated_cost_count +1;
1709: l_distributed_cost := p_Freight_Cost_Amount * ( l_Cost_Breakdown(l_counter).quantity / l_delivery_quantity);
1710: Round_Cost_Amount(l_distributed_cost, p_From_Currency_Code, l_round_distributed_cost, l_return_status);
1711: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1712: RAISE WSH_ROUND_AMOUNT_ERROR;
1713: END IF;
1714: x_Prorated_Freight_Cost(l_prorated_cost_count).delivery_detail_id := l_Cost_Breakdown(l_counter).delivery_detail_id;
1715: x_Prorated_Freight_Cost(l_prorated_cost_count).freight_cost_type_code := p_freight_cost_type_code;
1736: -- last record
1737: l_prorated_cost_count := l_prorated_cost_count +1;
1738: l_distributed_cost := l_rest_amount;
1739: Round_Cost_Amount(l_distributed_cost, p_From_Currency_Code, l_round_distributed_cost, l_return_status);
1740: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1741: RAISE WSH_ROUND_AMOUNT_ERROR;
1742: END IF;
1743: x_Prorated_Freight_Cost(l_prorated_cost_count).delivery_detail_id := l_Cost_Breakdown(l_cost_brk_count).delivery_detail_id;
1744: x_Prorated_Freight_Cost(l_prorated_cost_count).freight_cost_type_code := p_freight_cost_type_code;
1779: IF l_debug_on THEN
1780: WSH_DEBUG_SV.logmsg(l_module_name, 'GET COST BREAKDOWN ERROR AT DELIVERY ' || P_DELIVERY_ID );
1781: END IF;
1782: --
1783: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1784:
1785: --
1786: -- Debug Statements
1787: --
1797: IF l_debug_on THEN
1798: WSH_DEBUG_SV.logmsg(l_module_name, 'GET ROUND AMOUNT ERROR AT DELIVERY' || P_DELIVERY_ID );
1799: END IF;
1800: --
1801: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1802:
1803: --
1804: -- Debug Statements
1805: --
1808: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_ROUND_AMOUNT_ERROR');
1809: END IF;
1810: --
1811: WHEN others THEN
1812: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Delivery_Level_Cost');
1813: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1814:
1815: --
1816: -- Debug Statements
1809: END IF;
1810: --
1811: WHEN others THEN
1812: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Delivery_Level_Cost');
1813: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1814:
1815: --
1816: -- Debug Statements
1817: --
1852: l_cost_brk_count NUMBER := 0;
1853: l_prorated_cost_count NUMBER := 0;
1854: l_stop_quantity NUMBER := 0;
1855: l_Cost_Breakdown CostBreakdownTabType;
1856: l_return_status VARCHAR2(10) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1857:
1858: WSH_ROUND_AMOUNT_ERROR EXCEPTION;
1859: WSH_GET_BREAKDOWN_ERR EXCEPTION;
1860:
1904: WSH_DEBUG_SV.log(l_module_name,'P_RELEVANT_INFO_TAB.volume_uom_code',P_RELEVANT_INFO_TAB.volume_uom_code);
1905: */
1906: END IF;
1907: --
1908: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1909: --
1910: -- Debug Statements
1911: --
1912: IF l_debug_on THEN
1923: x_return_status => l_return_status
1924: );
1925:
1926:
1927: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1928: RAISE WSH_GET_BREAKDOWN_ERR;
1929: END IF;
1930:
1931: l_cost_brk_count := l_Cost_Breakdown.count;
1935: FOR l_counter IN 1..(l_cost_brk_count -1) LOOP
1936: l_prorated_cost_count := l_prorated_cost_count +1;
1937: l_distributed_cost := p_Freight_Cost_Amount * ( l_Cost_Breakdown(l_counter).quantity / l_stop_quantity);
1938: Round_Cost_Amount(l_distributed_cost, p_From_Currency_Code, l_round_distributed_cost, l_return_status);
1939: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1940: RAISE WSH_ROUND_AMOUNT_ERROR;
1941: END IF;
1942: x_Prorated_Freight_Cost(l_prorated_cost_count).delivery_detail_id := l_Cost_Breakdown(l_counter).delivery_detail_id;
1943: x_Prorated_Freight_Cost(l_prorated_cost_count).freight_cost_type_code := p_freight_cost_type_code;
1966: -- last record
1967: l_prorated_cost_count := l_prorated_cost_count +1;
1968: l_distributed_cost := l_rest_amount;
1969: Round_Cost_Amount(l_distributed_cost, p_From_Currency_Code, l_round_distributed_cost, l_return_status);
1970: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1971: RAISE WSH_ROUND_AMOUNT_ERROR;
1972: END IF;
1973: x_Prorated_Freight_Cost(l_prorated_cost_count).delivery_detail_id := l_Cost_Breakdown(l_cost_brk_count).delivery_detail_id;
1974: x_Prorated_Freight_Cost(l_prorated_cost_count).freight_cost_type_code := p_freight_cost_type_code;
2008: IF l_debug_on THEN
2009: WSH_DEBUG_SV.logmsg(l_module_name, 'GET COST BREAKDOWN ERROR AT STOP ' || P_STOP_ID );
2010: END IF;
2011: --
2012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2013:
2014: --
2015: -- Debug Statements
2016: --
2026: IF l_debug_on THEN
2027: WSH_DEBUG_SV.logmsg(l_module_name, 'GET ROUND AMOUNT ERROR AT STOP' || P_STOP_ID );
2028: END IF;
2029: --
2030: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2031:
2032: --
2033: -- Debug Statements
2034: --
2037: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_ROUND_AMOUNT_ERROR');
2038: END IF;
2039: --
2040: WHEN others THEN
2041: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Stop_Level_Cost');
2042: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2043:
2044: --
2045: -- Debug Statements
2038: END IF;
2039: --
2040: WHEN others THEN
2041: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Stop_Level_Cost');
2042: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2043:
2044: --
2045: -- Debug Statements
2046: --
2101: l_cost_per_stop NUMBER := 0;
2102: l_round_cost_per_stop NUMBER := 0;
2103: l_remained_cost NUMBER := 0;
2104: l_Cost_Breakdown CostBreakdownTabType;
2105: l_return_status VARCHAR2(10) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2106:
2107:
2108: WSH_ROUND_AMOUNT_ERROR EXCEPTION;
2109:
2142:
2143: WSH_DEBUG_SV.log(l_module_name,'P_RELEVANT_INFO_TAB.COUNT',P_RELEVANT_INFO_TAB.count);
2144: END IF;
2145: --
2146: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2147: --
2148: -- Debug Statements
2149: --
2150: IF l_debug_on THEN
2180: IF l_number_of_stops > 0 THEN
2181:
2182: l_cost_per_stop := p_Freight_Cost_Amount/ l_number_of_stops;
2183: Round_Cost_Amount(l_cost_per_stop, p_From_Currency_Code, l_round_cost_per_stop, l_return_status);
2184: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2185: RAISE WSH_ROUND_AMOUNT_ERROR;
2186: END IF;
2187:
2188: OPEN C_Sharing_Stops;
2245: IF l_debug_on THEN
2246: WSH_DEBUG_SV.logmsg(l_module_name, 'GET ROUND AMOUNT ERROR AT TRIP ' || P_TRIP_ID );
2247: END IF;
2248: --
2249: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2250:
2251: --
2252: -- Debug Statements
2253: --
2256: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_ROUND_AMOUNT_ERROR');
2257: END IF;
2258: --
2259: WHEN others THEN
2260: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Trip_Level_Cost');
2261: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2262:
2263: --
2264: -- Debug Statements
2257: END IF;
2258: --
2259: WHEN others THEN
2260: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Trip_Level_Cost');
2261: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2262:
2263: --
2264: -- Debug Statements
2265: --
2310: WSH_DEBUG_SV.log(l_module_name,'P_AMOUNT',P_AMOUNT);
2311: WSH_DEBUG_SV.log(l_module_name,'P_CURRENCY_CODE',P_CURRENCY_CODE);
2312: END IF;
2313: --
2314: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2315: SELECT precision, nvl(minimum_accountable_unit, 0)
2316: INTO l_precision, l_minimum_accountable_unit
2317: FROM fnd_currencies
2318: WHERE currency_code = p_Currency_Code;
2347: IF l_debug_on THEN
2348: WSH_DEBUG_SV.logmsg(l_module_name, 'THE FREIGHT COST CURRENCY IS NOT RECOGNIZED IN THE SYSTEM' );
2349: END IF;
2350: --
2351: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2352:
2353: --
2354: -- Debug Statements
2355: --
2358: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_CURRENCY');
2359: END IF;
2360: --
2361: WHEN others THEN
2362: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Round_Cost_Amount');
2363: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2364:
2365: --
2366: -- Debug Statements
2359: END IF;
2360: --
2361: WHEN others THEN
2362: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Round_Cost_Amount');
2363: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2364:
2365: --
2366: -- Debug Statements
2367: --
2464:
2465: */
2466: END IF;
2467: --
2468: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2469: --
2470: -- Debug Statements
2471: --
2472: IF l_debug_on THEN
2842: IF l_debug_on THEN
2843: WSH_DEBUG_SV.logmsg(l_module_name, 'STOP '|| P_STOP_ID || ' NOT FOUND' );
2844: END IF;
2845: --
2846: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2847: --
2848: -- Debug Statements
2849: --
2850: IF l_debug_on THEN
2859: IF l_debug_on THEN
2860: WSH_DEBUG_SV.logmsg(l_module_name, 'NO ACTUAL DEPARTURE DATE FOR STOP '|| P_STOP_ID );
2861: END IF;
2862: --
2863: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2864: --
2865: -- Debug Statements
2866: --
2867: IF l_debug_on THEN
2876: IF l_debug_on THEN
2877: WSH_DEBUG_SV.logmsg(l_module_name, 'PROCESS FREIGHT COSTS FAILED BECUASE NO RATE EXISTS BETWEEN THESE TWO CURRENCY' );
2878: END IF;
2879: --
2880: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2881: --
2882: -- Debug Statements
2883: --
2884: IF l_debug_on THEN
2893: IF l_debug_on THEN
2894: WSH_DEBUG_SV.logmsg(l_module_name, 'INVALID CURRENCY FOR FROM CURRENCY_CODE OR TO CURRENCY_CODE' );
2895: END IF;
2896: --
2897: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2898: --
2899: -- Debug Statements
2900: --
2901: IF l_debug_on THEN
2910: IF l_debug_on THEN
2911: WSH_DEBUG_SV.logmsg(l_module_name, 'CURRENCY_CODE FROM OM HEADER TABLE DOES NOT EXIST' );
2912: END IF;
2913: --
2914: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2915: --
2916: -- Debug Statements
2917: --
2918: IF l_debug_on THEN
2927: IF l_debug_on THEN
2928: WSH_DEBUG_SV.logmsg(l_module_name, 'FREIGHT COST API FAILED BECAUSE CONVERSION_TYPE IS USER BUG NO USER-DEFINED RATE EXISTS' );
2929: END IF;
2930: --
2931: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2932: --
2933: -- Debug Statements
2934: --
2935: IF l_debug_on THEN
2937: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_USER_DEFINED_RATE');
2938: END IF;
2939: --
2940: WHEN others THEN
2941: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Source_line_level_cost');
2942: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2943:
2944: --
2945: -- Debug Statements
2938: END IF;
2939: --
2940: WHEN others THEN
2941: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Source_line_level_cost');
2942: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2943:
2944: --
2945: -- Debug Statements
2946: --
3150: --
3151: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
3152: END IF;
3153: --
3154: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3155: --
3156: -- Debug Statements
3157: --
3158: IF l_debug_on THEN
3170: p_level=> 'TRIP',
3171: p_trip_id => temp_trip_fc_rec.trip_id,
3172: x_Relevant_Info_Tab => l_Relevant_Info_Tab,
3173: x_return_status => l_return_status );
3174: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3175: RAISE WSH_FC_GET_INFO_ERR;
3176: END IF;
3177: l_already_got_info := 'T';
3178: END IF;
3189: p_Relevant_Info_Tab => l_Relevant_Info_Tab,
3190: x_Prorated_Freight_Cost => l_prorated_freight_cost,
3191: x_return_status => l_return_status);
3192: -- check the status
3193: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3194: RAISE WSH_TRIP_FC_ERROR;
3195: END IF;
3196: END LOOP Trip_Loop;
3197: CLOSE C_Trip_Level_FC;
3207: p_level=> 'STOP',
3208: p_stop_id => temp_stop_fc_rec.stop_id,
3209: x_Relevant_Info_Tab => l_Relevant_Info_Tab,
3210: x_return_status => l_return_status );
3211: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3212: RAISE WSH_FC_GET_INFO_ERR;
3213: END IF;
3214: l_already_got_info := 'T';
3215: END IF;
3225: p_Relevant_Info_Tab => l_Relevant_Info_Tab,
3226: x_Prorated_freight_cost => l_prorated_freight_cost,
3227: x_return_status => l_return_status);
3228: -- check the status
3229: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3230: RAISE WSH_STOP_FC_ERROR;
3231: END IF;
3232: END LOOP Stop_Loop;
3233: CLOSE C_Stop_Level_FC;
3253: p_level=> 'DELIVERY',
3254: p_delivery_id => temp_Delivery_fc_rec.delivery_id,
3255: x_Relevant_Info_Tab => l_Relevant_Info_Tab,
3256: x_return_status => l_return_status );
3257: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3258: RAISE WSH_FC_GET_INFO_ERR;
3259: END IF;
3260: l_already_got_info := 'T';
3261: END IF;
3270: p_conversion_rate => temp_Delivery_fc_rec.conversion_rate,
3271: p_Relevant_Info_Tab => l_Relevant_Info_Tab,
3272: x_Prorated_Freight_Cost => l_prorated_freight_cost,
3273: x_return_status => l_return_status);
3274: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3275: RAISE WSH_DELIVERY_FC_ERROR;
3276: END IF;
3277: END LOOP Delivery_Loop;
3278: CLOSE C_Delivery_Level_FC;
3279:
3280: OPEN C_Container_Level_FC;
3281: <
3282: LOOP
3283: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3284: FETCH C_Container_Level_FC INTO temp_container_fc_rec;
3285: EXIT Container_FC_Loop WHEN C_Container_Level_FC%NOTFOUND;
3286: l_got_container_info := 'F';
3287: FOR i in 1 .. l_Relevant_Info_Tab.count LOOP
3296: p_level=> 'CONTAINER',
3297: p_container_id => temp_container_fc_rec.delivery_detail_id ,
3298: x_Relevant_Info_Tab => l_Relevant_Info_Tab,
3299: x_return_status => l_return_status );
3300: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3301: RAISE WSH_FC_GET_INFO_ERR;
3302: END IF;
3303: END IF;
3304:
3312: p_conversion_rate => temp_container_fc_rec.conversion_rate,
3313: p_relevant_info_tab=>l_Relevant_Info_Tab,
3314: x_prorated_freight_cost=>l_prorated_freight_cost,
3315: x_return_status=>l_return_status);
3316: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3317: RAISE WSH_CONTAINER_FC_ERROR;
3318: END IF;
3319:
3320: END LOOP Container_FC_LOOP;
3323: -- Calculate Delivery detail level
3324: OPEN C_detail_level_fc;
3325: <
3326: LOOP
3327: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3328: FETCH C_detail_level_fc INTO temp_detail_fc_rec;
3329: EXIT Detail_Loop WHEN C_detail_level_fc%NOTFOUND;
3330:
3331: Calculate_Detail_Level_Cost(
3338: p_conversion_rate => temp_detail_fc_rec.conversion_rate,
3339: p_relevant_info_tab=>l_Relevant_Info_Tab,
3340: x_prorated_freight_cost=>l_prorated_freight_cost,
3341: x_return_status=>l_return_status);
3342: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3343: RAISE WSH_DETAIL_FC_ERROR;
3344: END IF;
3345: END LOOP Detail_Loop;
3346: CLOSE C_detail_level_fc;
3344: END IF;
3345: END LOOP Detail_Loop;
3346: CLOSE C_detail_level_fc;
3347:
3348: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3349: Source_Line_Level_Cost(
3350: p_stop_id => p_stop_id,
3351: p_prorated_freight_cost => l_prorated_freight_cost,
3352: x_final_cost => x_freight_costs,
3351: p_prorated_freight_cost => l_prorated_freight_cost,
3352: x_final_cost => x_freight_costs,
3353: x_return_status => l_return_status
3354: );
3355: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3356: --
3357: -- Debug Statements
3358: --
3359: IF l_debug_on THEN
3359: IF l_debug_on THEN
3360: WSH_DEBUG_SV.logmsg(l_module_name, 'SOURCE_LINE_LEVEL_COST API FAILED' );
3361: END IF;
3362: --
3363: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3364: END IF;
3365:
3366: IF x_freight_costs.COUNT = 0 THEN
3367: -- this indicates there is not freight cost for this stop
3388: IF l_debug_on THEN
3389: WSH_DEBUG_SV.logmsg(l_module_name, 'CALCULATE_TRIP_LEVEL_COST FAILED' );
3390: END IF;
3391: --
3392: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3393:
3394: --
3395: -- Debug Statements
3396: --
3406: IF l_debug_on THEN
3407: WSH_DEBUG_SV.logmsg(l_module_name, 'CALCULATE_STOP_LEVEL_COST FAILED' );
3408: END IF;
3409: --
3410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3411:
3412: --
3413: -- Debug Statements
3414: --
3424: IF l_debug_on THEN
3425: WSH_DEBUG_SV.logmsg(l_module_name, 'CALCULATE_DELIVERY_LEVEL_COST FAILED' );
3426: END IF;
3427: --
3428: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3429:
3430: --
3431: -- Debug Statements
3432: --
3442: IF l_debug_on THEN
3443: WSH_DEBUG_SV.logmsg(l_module_name, 'CALCULATE_CONTAINER_LEVEL_COST FAILED' );
3444: END IF;
3445: --
3446: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3447:
3448: --
3449: -- Debug Statements
3450: --
3460: IF l_debug_on THEN
3461: WSH_DEBUG_SV.logmsg(l_module_name, 'CALCULATE_DETAIL_LEVEL_COST FAILED' );
3462: END IF;
3463: --
3464: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3465:
3466: --
3467: -- Debug Statements
3468: --
3478: IF l_debug_on THEN
3479: WSH_DEBUG_SV.logmsg(l_module_name, 'GET RELEVANT INFO FAILED' );
3480: END IF;
3481: --
3482: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3483:
3484: --
3485: -- Debug Statements
3486: --
3489: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_FC_GET_INFO_ERR');
3490: END IF;
3491: --
3492: WHEN others THEN
3493: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Freight_Costs');
3494: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3495:
3496: --
3497: -- Debug Statements
3490: END IF;
3491: --
3492: WHEN others THEN
3493: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Calculate_Freight_Costs');
3494: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3495:
3496: --
3497: -- Debug Statements
3498: --
3540: WSH_DEBUG_SV.log(l_module_name,'P_start_index',p_start_index);
3541: WSH_DEBUG_SV.log(l_module_name,'P_LINE_ID_TBL.count',P_LINE_ID_TBL.count);
3542: END IF;
3543: --
3544: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3545:
3546:
3547: IF x_Freight_Costs_ALL.count = 0 THEN
3548: Calculate_Freight_Costs(
3549: p_stop_id => p_stop_id,
3550: x_freight_costs => x_Freight_Costs_ALL,
3551: x_return_status => l_return_status
3552: );
3553: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3554: RAISE Calculate_failed;
3555: END IF;
3556: --
3557: IF l_debug_on THEN
3651: IF l_debug_on THEN
3652: WSH_DEBUG_SV.logmsg(l_module_name, 'CALCULATE_FREIGHT_COST API FAILED' );
3653: END IF;
3654: --
3655: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3656:
3657: IF l_debug_on THEN
3658: WSH_DEBUG_SV.logmsg(l_module_name,'CALCULATE_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3659: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CALCULATE_FAILED');
3659: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CALCULATE_FAILED');
3660: END IF;
3661:
3662: WHEN others THEN
3663: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Process_Freight_Costs');
3664: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3665: --
3666: IF l_debug_on THEN
3667: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3660: END IF;
3661:
3662: WHEN others THEN
3663: WSH_UTIL_CORE.Default_Handler('WSH_FC_INTERFACE.Process_Freight_Costs');
3664: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3665: --
3666: IF l_debug_on THEN
3667: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3668: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3836: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INPUT_INCONSISTENT');
3837: END IF;
3838: --
3839: RETURN (-9999);
3840: --WSH_UTIL_CORE.println('The parameter passed in conflict with each other');
3841:
3842: END Prorate_Freight_Charge;
3843:
3844:
3877: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3878: WSH_DEBUG_SV.log(l_module_name,'P_CONTAINER_INSTANCE_ID',P_CONTAINER_INSTANCE_ID);
3879: END IF;
3880: --
3881: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3882: --
3883: -- Debug Statements
3884: --
3885: IF l_debug_on THEN