[Home] [Help]
425: l_api_name VARCHAR2(50) := 'Get_Trip_Mode';
426:
427: BEGIN
428:
429: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
430: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
431: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
432:
433:
453: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
454:
455: EXCEPTION
456: WHEN others THEN
457: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
458: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
459: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
460: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
461:
486: IF l_debug_on THEN
487: wsh_debug_sv.push(l_module_name);
488: END IF;
489: x_return_status := p_api_return_status; -- default
490: IF p_api_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
491: THEN
492: IF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
493: l_msg_type := 'W';
494: x_number_of_warnings := x_number_of_warnings + 1;
488: END IF;
489: x_return_status := p_api_return_status; -- default
490: IF p_api_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
491: THEN
492: IF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
493: l_msg_type := 'W';
494: x_number_of_warnings := x_number_of_warnings + 1;
495: ELSIF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
496: l_msg_type := 'E';
491: THEN
492: IF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
493: l_msg_type := 'W';
494: x_number_of_warnings := x_number_of_warnings + 1;
495: ELSIF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
496: l_msg_type := 'E';
497: x_number_of_errors := x_number_of_errors + 1;
498: ELSIF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
499: l_msg_type := 'U';
494: x_number_of_warnings := x_number_of_warnings + 1;
495: ELSIF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
496: l_msg_type := 'E';
497: x_number_of_errors := x_number_of_errors + 1;
498: ELSIF p_api_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
499: l_msg_type := 'U';
500: x_number_of_errors := x_number_of_errors + 1;
501: END IF;
502: IF (p_message_name IS NOT NULL
499: l_msg_type := 'U';
500: x_number_of_errors := x_number_of_errors + 1;
501: END IF;
502: IF (p_message_name IS NOT NULL
503: AND p_api_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
504: FTE_FREIGHT_PRICING_UTIL.setmsg(
505: p_api => p_api_name,
506: p_exc => ' ',
507: p_msg_name => p_message_name,
516: END IF;
517: --
518: EXCEPTION
519: WHEN OTHERS THEN
520: wsh_util_core.default_handler(G_PKG_NAME||'.API_POST_CALL');
521: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
522: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
523: END api_post_call;
524: --
517: --
518: EXCEPTION
519: WHEN OTHERS THEN
520: wsh_util_core.default_handler(G_PKG_NAME||'.API_POST_CALL');
521: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
522: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
523: END api_post_call;
524: --
525: --
518: EXCEPTION
519: WHEN OTHERS THEN
520: wsh_util_core.default_handler(G_PKG_NAME||'.API_POST_CALL');
521: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
522: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
523: END api_post_call;
524: --
525: --
526: PROCEDURE load_dlv_rec (p_dlv_rec IN c_delivery%ROWTYPE,
613: IS
614: l_log_level NUMBER := fte_freight_pricing_util.G_DBG;
615: l_api_name VARCHAR2(50) := 'convert_amount';
616: BEGIN
617: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
618: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
619: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
620:
621: fte_freight_pricing_util.print_msg(l_log_level,'p_from_currency= '||p_from_currency);
635: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level, l_api_name);
636:
637: EXCEPTION
638: WHEN others THEN
639: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
640: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
641: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
642: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
643:
699: IF ( l_count <= 0 ) THEN
700:
701: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'empty delivery');
702:
703: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
704: api_post_call
705: (
706: p_api_name => l_module_name,
707: p_api_return_status => l_return_status,
713: x_number_of_warnings => l_number_of_warnings,
714: x_return_status => l_return_status_1
715: );
716:
717: IF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_ERROR )
718: THEN
719: RAISE FND_API.G_EXC_ERROR;
720: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
721: THEN
716:
717: IF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_ERROR )
718: THEN
719: RAISE FND_API.G_EXC_ERROR;
720: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
721: THEN
722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
723: END IF;
724: END IF;
754: IF ( g_dlv_tab(p_delivery_id).status_code <> 'OP' ) THEN
755:
756: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'delivery status is not OPEN');
757:
758: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
759: api_post_call
760: (
761: p_api_name => l_module_name,
762: p_api_return_status => l_return_status,
768: x_number_of_warnings => l_number_of_warnings,
769: x_return_status => l_return_status_1
770: );
771:
772: IF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_ERROR )
773: THEN
774: RAISE FND_API.G_EXC_ERROR;
775: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
776: THEN
771:
772: IF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_ERROR )
773: THEN
774: RAISE FND_API.G_EXC_ERROR;
775: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
776: THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
779: END IF;
820:
821: /* IF (l_trip_dleg_cnt > 1) THEN
822: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trip '||l_trip_id||' has too many dlegs');
823:
824: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
825: api_post_call
826: (
827: p_api_name => l_module_name,
828: p_api_return_status => l_return_status,
961: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
962: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
963: --
964: WHEN OTHERS THEN
965: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
966: x_return_code := G_RC_ERROR;
967: IF l_debug_on THEN
968: WSH_DEBUG_SV.pop(l_module_name);
969: END IF;
993: l_trip_id NUMBER;
994: i NUMBER;
995: c_dleg_rec c_dlv_legs%ROWTYPE;
996: l_leg_trip_det_rec c_leg_trip_det%ROWTYPE;
997: l_dlv_id_tab wsh_util_core.id_tab_type;
998: l_idx NUMBER;
999: --
1000: l_number_of_errors NUMBER;
1001: l_number_of_warnings NUMBER;
1077: RAISE FND_API.G_EXC_ERROR;
1078: ELSIF (l_return_status_1 = 'U')
1079: THEN
1080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1081: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
1082: THEN
1083: x_return_status := l_return_status_1;
1084: END IF;
1085: --
1123: WSH_DEBUG_SV.pop(l_module_name);
1124: END IF;
1125: --
1126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1127: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1128: IF l_debug_on THEN
1129: WSH_DEBUG_SV.pop(l_module_name);
1130: END IF;
1131: --
1129: WSH_DEBUG_SV.pop(l_module_name);
1130: END IF;
1131: --
1132: WHEN OTHERS THEN
1133: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.create_trip');
1134: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.pop(l_module_name);
1137: END IF;
1130: END IF;
1131: --
1132: WHEN OTHERS THEN
1133: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.create_trip');
1134: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.pop(l_module_name);
1137: END IF;
1138: --
1369: RAISE FND_API.G_EXC_ERROR;
1370: ELSIF (l_return_status_1 = 'U')
1371: THEN
1372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1373: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
1374: THEN
1375: x_return_status := l_return_status_1;
1376: END IF;
1377:
1404: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
1405: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
1406: --
1407: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1408: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1409: FND_MSG_PUB.Count_And_Get
1410: (
1411: p_count => x_msg_count,
1412: p_data => x_msg_data,
1418: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
1419: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
1420: --
1421: WHEN OTHERS THEN
1422: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
1423: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1424: FND_MSG_PUB.Count_And_Get
1425: (
1426: p_count => x_msg_count,
1419: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
1420: --
1421: WHEN OTHERS THEN
1422: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
1423: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1424: FND_MSG_PUB.Count_And_Get
1425: (
1426: p_count => x_msg_count,
1427: p_data => x_msg_data,
1500: RAISE FND_API.G_EXC_ERROR;
1501: ELSIF (l_return_status = 'U')
1502: THEN
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
1505: THEN
1506: x_return_status := l_return_status;
1507: END IF;
1508: --
1538: END IF;
1539: --
1540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1541: ROLLBACK TO UPDATE_TRIPS;
1542: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1543: FND_MSG_PUB.Count_And_Get
1544: (
1545: p_count => x_msg_count,
1546: p_data => x_msg_data,
1551: END IF;
1552: --
1553: WHEN OTHERS THEN
1554: ROLLBACK TO UPDATE_TRIPS;
1555: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.update_trips');
1556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1557: FND_MSG_PUB.Count_And_Get
1558: (
1559: p_count => x_msg_count,
1552: --
1553: WHEN OTHERS THEN
1554: ROLLBACK TO UPDATE_TRIPS;
1555: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.update_trips');
1556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1557: FND_MSG_PUB.Count_And_Get
1558: (
1559: p_count => x_msg_count,
1560: p_data => x_msg_data,
1580: l_delivery_out_rec WSH_DELIVERIES_GRP.Delivery_Action_Out_Rec_Type;
1581: l_defaults_rec WSH_DELIVERIES_GRP.default_parameters_rectype;
1582: l_action_prms WSH_DELIVERIES_GRP.action_parameters_rectype;
1583:
1584: l_dlv_id_tab wsh_util_core.id_tab_type;
1585: l_idx NUMBER;
1586:
1587: l_number_of_errors NUMBER;
1588: l_number_of_warnings NUMBER;
1644: RAISE FND_API.G_EXC_ERROR;
1645: ELSIF (l_return_status_1 = 'U')
1646: THEN
1647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1648: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
1649: THEN
1650: x_return_status := l_return_status_1;
1651: END IF;
1652:
1677: END IF;
1678: --
1679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1680: ROLLBACK TO UNASSIGN_TRIP;
1681: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1682: FND_MSG_PUB.Count_And_Get
1683: (
1684: p_count => x_msg_count,
1685: p_data => x_msg_data,
1690: END IF;
1691: --
1692: WHEN OTHERS THEN
1693: ROLLBACK TO UNASSIGN_TRIP;
1694: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.Unassign_Trip');
1695: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1696: FND_MSG_PUB.Count_And_Get
1697: (
1698: p_count => x_msg_count,
1691: --
1692: WHEN OTHERS THEN
1693: ROLLBACK TO UNASSIGN_TRIP;
1694: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.Unassign_Trip');
1695: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1696: FND_MSG_PUB.Count_And_Get
1697: (
1698: p_count => x_msg_count,
1699: p_data => x_msg_data,
1792: RAISE FND_API.G_EXC_ERROR;
1793: ELSIF (l_return_status_1 = 'U')
1794: THEN
1795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1796: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
1797: THEN
1798: x_return_status := l_return_status_1;
1799: END IF;
1800: --
1846: IF ( g_dlv_tab(p_delivery_id).status_code <> 'OP'
1847: OR ( g_dlv_tab(p_delivery_id).status_code = 'OP'
1848: AND g_dlv_tab(p_delivery_id).planned_flag = 'F') ) THEN
1849: --
1850: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1851: api_post_call
1852: (
1853: p_api_name => 'FTE_FREIGHT_RATING_DLVY_GRP.CANCEL_SERVICE',
1854: p_api_return_status => l_return_status,
1860: x_number_of_warnings => l_number_of_warnings,
1861: x_return_status => l_return_status_1
1862: );
1863: --
1864: IF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_ERROR )
1865: THEN
1866: RAISE FND_API.G_EXC_ERROR;
1867: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
1868: THEN
1863: --
1864: IF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_ERROR )
1865: THEN
1866: RAISE FND_API.G_EXC_ERROR;
1867: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
1868: THEN
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: END IF;
1871: END IF;
1879: OR g_trip_info_tab(i).load_tender_status = FTE_TENDER_PVT.S_ACCEPTED
1880: OR g_trip_info_tab(i).load_tender_status = FTE_TENDER_PVT.S_AUTO_ACCEPTED ))
1881: THEN
1882:
1883: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1884: api_post_call
1885: (
1886: p_api_name => 'FTE_FREIGHT_RATING_DLVY_GRP.Cancel_Service',
1887: p_api_return_status => l_return_status,
1899: RAISE FND_API.G_EXC_ERROR;
1900: ELSIF (l_return_status_1 = 'U')
1901: THEN
1902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1903: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
1904: THEN
1905: x_return_status := l_return_status_1;
1906: END IF;
1907:
1932: RAISE FND_API.G_EXC_ERROR;
1933: ELSIF (l_return_status = 'U')
1934: THEN
1935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1936: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
1937: THEN
1938: x_return_status := l_return_status;
1939: END IF;
1940:
1948: RAISE FND_API.G_EXC_ERROR;
1949: ELSIF (l_return_status = 'U')
1950: THEN
1951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1952: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
1953: THEN
1954: x_return_status := l_return_status;
1955: END IF;
1956:
1997: RAISE FND_API.G_EXC_ERROR;
1998: ELSIF (l_return_status_1 = 'U')
1999: THEN
2000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2001: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
2002: THEN
2003: x_return_status := l_return_status_1;
2004: END IF;
2005:
2117: END IF;
2118: --
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120: ROLLBACK TO CANCEL_SERVICE;
2121: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2122: FND_MSG_PUB.Count_And_Get
2123: (
2124: p_count => x_msg_count,
2125: p_data => x_msg_data,
2130: END IF;
2131: --
2132: WHEN OTHERS THEN
2133: ROLLBACK TO CANCEL_SERVICE;
2134: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.Cancel_Service');
2135: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2136: FND_MSG_PUB.Count_And_Get
2137: (
2138: p_count => x_msg_count,
2131: --
2132: WHEN OTHERS THEN
2133: ROLLBACK TO CANCEL_SERVICE;
2134: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.Cancel_Service');
2135: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2136: FND_MSG_PUB.Count_And_Get
2137: (
2138: p_count => x_msg_count,
2139: p_data => x_msg_data,
2147:
2148: PROCEDURE Cancel_Service (
2149: p_api_version IN NUMBER DEFAULT 1.0,
2150: p_init_msg_list VARCHAR2 DEFAULT FND_API.G_FALSE,
2151: p_delivery_list IN WSH_UTIL_CORE.id_tab_type,
2152: p_action IN VARCHAR2 DEFAULT 'CANCEL',
2153: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2154: x_return_status OUT NOCOPY VARCHAR2,
2155: x_msg_count OUT NOCOPY NUMBER,
2213: RAISE FND_API.G_EXC_ERROR;
2214: ELSIF (l_return_status_1 = 'U')
2215: THEN
2216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2217: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
2218: THEN
2219: x_return_status := l_return_status_1;
2220: END IF;
2221: --
2256: l_error_cnt := l_error_cnt + 1;
2257: ELSIF (l_return_status_1 = 'U')
2258: THEN
2259: l_error_cnt := l_error_cnt + 1;
2260: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
2261: THEN
2262: l_warn_cnt := l_warn_cnt + 1;
2263: ELSE
2264: l_success_cnt := l_success_cnt + 1;
2280: x_return_status := FND_API.G_RET_STS_SUCCESS;
2281: ELSIF (l_error_cnt = p_delivery_list.COUNT) THEN
2282: RAISE FND_API.G_EXC_ERROR;
2283: ELSE
2284: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2285: END IF;
2286:
2287: IF FND_API.To_Boolean( p_commit ) THEN
2288: COMMIT WORK;
2315: END IF;
2316: --
2317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2318: ROLLBACK TO CANCEL_SERVICE;
2319: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2320: FND_MSG_PUB.Count_And_Get
2321: (
2322: p_count => x_msg_count,
2323: p_data => x_msg_data,
2328: END IF;
2329: --
2330: WHEN OTHERS THEN
2331: ROLLBACK TO CANCEL_SERVICE;
2332: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.Cancel_Service');
2333: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2334: FND_MSG_PUB.Count_And_Get
2335: (
2336: p_count => x_msg_count,
2329: --
2330: WHEN OTHERS THEN
2331: ROLLBACK TO CANCEL_SERVICE;
2332: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.Cancel_Service');
2333: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2334: FND_MSG_PUB.Count_And_Get
2335: (
2336: p_count => x_msg_count,
2337: p_data => x_msg_data,
2587: CLOSE c_cnt_trip_legs;
2588:
2589: IF (l_trip_dleg_cnt <= 0) THEN
2590: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'trip '||p_trip_id||' has no delivery');
2591: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2592: api_post_call
2593: (
2594: p_api_name => l_module_name,
2595: p_api_return_status => l_return_status,
2619: IF ( l_count <= 0 ) THEN
2620:
2621: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'empty delivery');
2622:
2623: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2624: api_post_call
2625: (
2626: p_api_name => l_module_name,
2627: p_api_return_status => l_return_status,
2633: x_number_of_warnings => l_number_of_warnings,
2634: x_return_status => l_return_status_1
2635: );
2636:
2637: IF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_ERROR )
2638: THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
2641: THEN
2636:
2637: IF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_ERROR )
2638: THEN
2639: RAISE FND_API.G_EXC_ERROR;
2640: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )
2641: THEN
2642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2643: END IF;
2644: END IF;
2763: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
2764: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2765: --
2766: WHEN OTHERS THEN
2767: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2768: x_return_code := G_RC_ERROR;
2769: IF l_debug_on THEN
2770: WSH_DEBUG_SV.pop(l_module_name);
2771: END IF;
2876: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
2877: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2878: --
2879: WHEN OTHERS THEN
2880: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
2881: x_return_code := G_RC_ERROR;
2882: IF l_debug_on THEN
2883: WSH_DEBUG_SV.pop(l_module_name);
2884: END IF;
3110: RAISE FND_API.G_EXC_ERROR;
3111: ELSIF (l_return_status_1 = 'U')
3112: THEN
3113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3114: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
3115: THEN
3116: x_return_status := l_return_status_1;
3117: END IF;
3118:
3280: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
3281: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3282: --
3283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3284: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3285: IF l_debug_on THEN
3286: WSH_DEBUG_SV.pop(l_module_name);
3287: END IF;
3288: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
3288: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
3289: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3290: --
3291: WHEN OTHERS THEN
3292: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
3293: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3294: IF l_debug_on THEN
3295: WSH_DEBUG_SV.pop(l_module_name);
3296: END IF;
3289: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3290: --
3291: WHEN OTHERS THEN
3292: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
3293: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3294: IF l_debug_on THEN
3295: WSH_DEBUG_SV.pop(l_module_name);
3296: END IF;
3297: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3521:
3522: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3523: EXCEPTION
3524: WHEN g_pricing_not_required THEN
3525: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3526: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
3527: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3528: --
3529: WHEN OTHERS THEN
3526: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_pricing_not_required');
3527: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3528: --
3529: WHEN OTHERS THEN
3530: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
3531: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3532: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3533: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3534: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3527: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3528: --
3529: WHEN OTHERS THEN
3530: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
3531: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3532: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3533: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3534: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3535: END populate_shipment;
3551: l_return_status VARCHAR2(1);
3552:
3553: BEGIN
3554:
3555: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3556: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3557: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
3558:
3559:
3600: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3601:
3602: EXCEPTION
3603: WHEN others THEN
3604: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3605: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3606: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3607: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3608:
3650:
3651: BEGIN
3652:
3653:
3654: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3655: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3656: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name);
3657:
3658: OPEN get_rank_id(p_rank_rec.trip_id);
3757:
3758: END IF;
3759:
3760: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After calling FTE_CARRIER_RANK_LIST_PVT.RANK_LIST_ACTION Return status:'||l_return_status||' Message:'||l_msg_data);
3761: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3762: THEN
3763: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3764: THEN
3765:
3759:
3760: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'After calling FTE_CARRIER_RANK_LIST_PVT.RANK_LIST_ACTION Return status:'||l_return_status||' Message:'||l_msg_data);
3761: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
3762: THEN
3763: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING
3764: THEN
3765:
3766: raise FTE_FREIGHT_PRICING_UTIL.g_rank_list_update_fail;
3767: END IF;
3809: RAISE FND_API.G_EXC_ERROR;
3810: ELSIF (l_return_status = 'U')
3811: THEN
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3813: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
3814: THEN
3815: x_return_status := l_return_status;
3816: END IF;
3817:
3837: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
3838: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3839: --
3840: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3841: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3842: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
3843: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3844:
3845:
3843: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3844:
3845:
3846: WHEN FTE_FREIGHT_PRICING_UTIL.g_rank_list_update_fail THEN
3847: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3848: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_rank_list_update_fail');
3849: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3850:
3851:
3849: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3850:
3851:
3852: WHEN others THEN
3853: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3854: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
3855: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
3856: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3857:
3931: RAISE FND_API.G_EXC_ERROR;
3932: ELSIF (l_return_status = 'U')
3933: THEN
3934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3935: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
3936: THEN
3937: x_return_status := l_return_status;
3938: END IF;
3939:
3976: RAISE FND_API.G_EXC_ERROR;
3977: ELSIF (l_return_status = 'U')
3978: THEN
3979: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3980: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
3981: THEN
3982: x_return_status := l_return_status;
3983: END IF;
3984:
4036: RAISE FND_API.G_EXC_ERROR;
4037: ELSIF (l_return_status = 'U')
4038: THEN
4039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4040: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4041: THEN
4042: x_return_status := l_return_status;
4043: END IF;
4044:
4068: RAISE FND_API.G_EXC_ERROR;
4069: ELSIF (l_return_status = 'U')
4070: THEN
4071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4072: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4073: THEN
4074: x_return_status := l_return_status;
4075: END IF;
4076:
4091: RAISE FND_API.G_EXC_ERROR;
4092: ELSIF (l_return_status = 'U')
4093: THEN
4094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4095: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4096: THEN
4097: x_return_status := l_return_status;
4098: END IF;
4099:
4118: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
4119: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4120: --
4121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4122: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4123: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
4124: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4125: --
4126: WHEN OTHERS THEN
4123: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
4124: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4125: --
4126: WHEN OTHERS THEN
4127: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
4128: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4129: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4130: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4131: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4124: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4125: --
4126: WHEN OTHERS THEN
4127: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
4128: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4129: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4130: FTE_FREIGHT_PRICING_UTIL.print_msg(FTE_FREIGHT_PRICING_UTIL.G_ERR,'Unexpected Error : '||SQLCODE||' : '||SQLERRM);
4131: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4132: END rate_tl_trip;
4147: j NUMBER;
4148: k NUMBER;
4149: l_dlv_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4150: l_leg_count NUMBER := 0;
4151: l_dlv_leg_list WSH_UTIL_CORE.id_tab_type;
4152: l_lane_ids WSH_UTIL_CORE.id_tab_type;
4153: l_trip_ids WSH_UTIL_CORE.id_tab_type;
4154: l_lane_ret_code NUMBER;
4155: l_delivery_leg_id NUMBER;
4148: k NUMBER;
4149: l_dlv_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4150: l_leg_count NUMBER := 0;
4151: l_dlv_leg_list WSH_UTIL_CORE.id_tab_type;
4152: l_lane_ids WSH_UTIL_CORE.id_tab_type;
4153: l_trip_ids WSH_UTIL_CORE.id_tab_type;
4154: l_lane_ret_code NUMBER;
4155: l_delivery_leg_id NUMBER;
4156: l_delivery_id NUMBER;
4149: l_dlv_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4150: l_leg_count NUMBER := 0;
4151: l_dlv_leg_list WSH_UTIL_CORE.id_tab_type;
4152: l_lane_ids WSH_UTIL_CORE.id_tab_type;
4153: l_trip_ids WSH_UTIL_CORE.id_tab_type;
4154: l_lane_ret_code NUMBER;
4155: l_delivery_leg_id NUMBER;
4156: l_delivery_id NUMBER;
4157: l_dleg_id NUMBER;
4270: ELSIF l_return_code = G_RC_REPRICE_NOT_REQUIRED THEN
4271: raise g_finished_success;
4272: ELSIF (l_return_code = G_RC_NOT_RATE_FREIGHT_TERM
4273: OR l_return_code = G_RC_NOT_RATE_MANIFESTING) THEN
4274: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4275: raise g_finished_warning;
4276: END IF;
4277:
4278: rate_tl_trip(
4286: RAISE FND_API.G_EXC_ERROR;
4287: ELSIF (l_return_status = 'U')
4288: THEN
4289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4290: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4291: THEN
4292: x_return_status := l_return_status;
4293: raise g_finished_warning;
4294: END IF;
4313: ELSIF l_return_code = G_RC_REPRICE_NOT_REQUIRED THEN
4314: raise g_finished_success;
4315: ELSIF (l_return_code = G_RC_NOT_RATE_FREIGHT_TERM
4316: OR l_return_code = G_RC_NOT_RATE_MANIFESTING) THEN
4317: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4318: raise g_finished_warning;
4319: END IF;
4320:
4321: END IF;
4362: RAISE FND_API.G_EXC_ERROR;
4363: ELSIF (l_return_status = 'U')
4364: THEN
4365: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4366: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4367: THEN
4368: x_return_status := l_return_status;
4369: END IF;
4370:
4387: RAISE FND_API.G_EXC_ERROR;
4388: ELSIF (l_return_status = 'U')
4389: THEN
4390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4391: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4392: THEN
4393: x_return_status := l_return_status;
4394: END IF;
4395:
4424: RAISE FND_API.G_EXC_ERROR;
4425: ELSIF (l_return_status = 'U')
4426: THEN
4427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4428: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4429: THEN
4430: x_return_status := l_return_status;
4431: END IF;
4432:
4459: x_msg_count => l_msg_count,
4460: x_msg_data => l_msg_data
4461: );
4462:
4463: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
4464: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4465:
4466: -- shipment_rating failed
4467: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'shipment rating failed');
4460: x_msg_data => l_msg_data
4461: );
4462:
4463: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
4464: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4465:
4466: -- shipment_rating failed
4467: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'shipment rating failed');
4468: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_index='||i);
4511: RAISE FND_API.G_EXC_ERROR;
4512: ELSIF (l_return_status = 'U')
4513: THEN
4514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4515: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4516: THEN
4517: x_return_status := l_return_status;
4518: END IF;
4519:
4584: RAISE FND_API.G_EXC_ERROR;
4585: ELSIF (l_return_status = 'U')
4586: THEN
4587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4588: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4589: THEN
4590: x_return_status := l_return_status;
4591: END IF;
4592: ELSE
4617: RAISE FND_API.G_EXC_ERROR;
4618: ELSIF (l_return_status = 'U')
4619: THEN
4620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4621: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4622: THEN
4623: x_return_status := l_return_status;
4624: END IF;
4625:
4641: RAISE FND_API.G_EXC_ERROR;
4642: ELSIF (l_return_status = 'U')
4643: THEN
4644: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4645: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
4646: THEN
4647: x_return_status := l_return_status;
4648: END IF;
4649:
4705: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
4706: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4707: --
4708: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4709: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4710: IF l_debug_on THEN
4711: WSH_DEBUG_SV.pop(l_module_name);
4712: END IF;
4713: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
4713: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
4714: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4715: --
4716: WHEN OTHERS THEN
4717: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
4718: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4719: IF l_debug_on THEN
4720: WSH_DEBUG_SV.pop(l_module_name);
4721: END IF;
4714: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4715: --
4716: WHEN OTHERS THEN
4717: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
4718: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4719: IF l_debug_on THEN
4720: WSH_DEBUG_SV.pop(l_module_name);
4721: END IF;
4722: FTE_FREIGHT_PRICING_UTIL.set_exception(l_api_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'g_others');
4756: j NUMBER;
4757: k NUMBER;
4758: l_dlv_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4759: l_leg_count NUMBER := 0;
4760: l_dlv_leg_list WSH_UTIL_CORE.id_tab_type;
4761: l_lane_ids WSH_UTIL_CORE.id_tab_type;
4762: l_trip_ids WSH_UTIL_CORE.id_tab_type;
4763: l_lane_ret_code NUMBER;
4764: l_delivery_leg_id NUMBER;
4757: k NUMBER;
4758: l_dlv_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4759: l_leg_count NUMBER := 0;
4760: l_dlv_leg_list WSH_UTIL_CORE.id_tab_type;
4761: l_lane_ids WSH_UTIL_CORE.id_tab_type;
4762: l_trip_ids WSH_UTIL_CORE.id_tab_type;
4763: l_lane_ret_code NUMBER;
4764: l_delivery_leg_id NUMBER;
4765: l_delivery_id NUMBER;
4758: l_dlv_rec WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
4759: l_leg_count NUMBER := 0;
4760: l_dlv_leg_list WSH_UTIL_CORE.id_tab_type;
4761: l_lane_ids WSH_UTIL_CORE.id_tab_type;
4762: l_trip_ids WSH_UTIL_CORE.id_tab_type;
4763: l_lane_ret_code NUMBER;
4764: l_delivery_leg_id NUMBER;
4765: l_delivery_id NUMBER;
4766: l_dleg_id NUMBER;
4829: l_del_out_tab WSH_DELIVERIES_GRP.Del_Out_Tbl_Type;
4830: l_del_in_rec WSH_DELIVERIES_GRP.Del_In_Rec_Type;
4831: l_seq_tender_flag VARCHAR2(1);
4832: l_action_params FTE_TRIP_RATING_GRP.action_param_rec;
4833: l_temp_trips_tab WSH_UTIL_CORE.id_tab_type;
4834: l_currency_code VARCHAR2(30);
4835:
4836: --
4837: BEGIN
4891:
4892: IF p_init_prc_log = 'Y' THEN
4893: FTE_FREIGHT_PRICING_UTIL.initialize_logging( x_return_status => l_return_status );
4894:
4895: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
4896: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4897: l_return_status := FND_API.G_RET_STS_ERROR;
4898: api_post_call
4899: (
4892: IF p_init_prc_log = 'Y' THEN
4893: FTE_FREIGHT_PRICING_UTIL.initialize_logging( x_return_status => l_return_status );
4894:
4895: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
4896: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4897: l_return_status := FND_API.G_RET_STS_ERROR;
4898: api_post_call
4899: (
4900: p_api_name => 'FTE_FREIGHT_PRICING_UTIL.initialize_logging',
4913: RAISE FND_API.G_EXC_ERROR;
4914: ELSIF (l_return_status_1 = 'U')
4915: THEN
4916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4917: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
4918: THEN
4919: x_return_status := l_return_status_1;
4920: END IF;
4921:
4969: RAISE FND_API.G_EXC_ERROR;
4970: ELSIF (l_return_status_1 = 'U')
4971: THEN
4972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4973: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
4974: THEN
4975: x_return_status := l_return_status_1;
4976: END IF;
4977: --
5001: RAISE FND_API.G_EXC_ERROR;
5002: ELSIF (l_return_status_1 = 'U')
5003: THEN
5004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5005: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
5006: THEN
5007: x_return_status := l_return_status_1;
5008: END IF;
5009: --
5031: ELSIF l_return_code = G_RC_REPRICE_NOT_REQUIRED THEN
5032: raise g_finished_success;
5033: ELSIF (l_return_code = G_RC_NOT_RATE_FREIGHT_TERM
5034: OR l_return_code = G_RC_NOT_RATE_MANIFESTING) THEN
5035: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5036: raise g_finished_warning;
5037: END IF;
5038:
5039: OPEN c_get_del_manifest_enabled(p_delivery_id);
5067: RAISE FND_API.G_EXC_ERROR;
5068: ELSIF (l_return_status = 'U')
5069: THEN
5070: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5071: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5072: THEN
5073: x_return_status := l_return_status;
5074: END IF;
5075:
5094: RAISE FND_API.G_EXC_ERROR;
5095: ELSIF (l_return_status = 'U')
5096: THEN
5097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5098: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5099: THEN
5100: x_return_status := l_return_status;
5101: raise g_finished_warning;
5102: END IF;
5175: RAISE FND_API.G_EXC_ERROR;
5176: ELSIF (l_return_status = 'U')
5177: THEN
5178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5179: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5180: THEN
5181: x_return_status := l_return_status;
5182: END IF;
5183:
5226: RAISE FND_API.G_EXC_ERROR;
5227: ELSIF (l_return_status = 'U')
5228: THEN
5229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5230: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5231: THEN
5232: x_return_status := l_return_status;
5233: END IF;
5234:
5265: RAISE FND_API.G_EXC_ERROR;
5266: ELSIF (l_return_status = 'U')
5267: THEN
5268: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5269: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5270: THEN
5271: x_return_status := l_return_status;
5272: END IF;
5273:
5300: RAISE FND_API.G_EXC_ERROR;
5301: ELSIF (l_return_status = 'U')
5302: THEN
5303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5304: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5305: THEN
5306: x_return_status := l_return_status;
5307: END IF;
5308:
5350: x_return_status => l_return_status,
5351: x_msg_count => l_msg_count,
5352: x_msg_data => l_msg_data );
5353:
5354: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
5355: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5356:
5357: -- shipment_rating failed
5358: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'shipment rating failed');
5351: x_msg_count => l_msg_count,
5352: x_msg_data => l_msg_data );
5353:
5354: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
5355: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5356:
5357: -- shipment_rating failed
5358: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'shipment rating failed');
5359: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_lane_index='||i);
5402: RAISE FND_API.G_EXC_ERROR;
5403: ELSIF (l_return_status = 'U')
5404: THEN
5405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5406: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5407: THEN
5408: x_return_status := l_return_status;
5409: END IF;
5410:
5450: x_vehicle_type=>l_vehicle_type,
5451: x_lane_ref=>l_lowest_tl_lane_index,
5452: x_return_status => l_return_status);
5453:
5454: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
5455: THEN
5456: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
5457: THEN
5458:
5452: x_return_status => l_return_status);
5453:
5454: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS
5455: THEN
5456: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
5457: THEN
5458:
5459: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'TL LCSS failed');
5460:
5499: RAISE FND_API.G_EXC_ERROR;
5500: ELSIF (l_return_status = 'U')
5501: THEN
5502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5503: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5504: THEN
5505: x_return_status := l_return_status;
5506: END IF;
5507: ELSE
5543: AND l_carrier_manifest_enabled = 'Y' THEN
5544:
5545: -- enhancement 3036126
5546: ROLLBACK TO RATE_DELIVERY;
5547: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5548:
5549: OPEN c_get_carrier_name(l_matched_lanes(l_lowest_lane_index).carrier_id);
5550: FETCH c_get_carrier_name INTO l_carrier_name;
5551: CLOSE c_get_carrier_name;
5596: RAISE FND_API.G_EXC_ERROR;
5597: ELSIF (l_return_status = 'U')
5598: THEN
5599: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5600: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5601: THEN
5602: x_return_status := l_return_status;
5603: END IF;
5604:
5640: RAISE FND_API.G_EXC_ERROR;
5641: ELSIF (l_return_status = 'U')
5642: THEN
5643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5644: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5645: THEN
5646: x_return_status := l_return_status;
5647: END IF;
5648: ELSE
5670: RAISE FND_API.G_EXC_ERROR;
5671: ELSIF (l_return_status = 'U')
5672: THEN
5673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5674: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5675: THEN
5676: x_return_status := l_return_status;
5677: END IF;
5678: END IF;
5692: RAISE FND_API.G_EXC_ERROR;
5693: ELSIF (l_return_status = 'U')
5694: THEN
5695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5696: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING )
5697: THEN
5698: x_return_status := l_return_status;
5699: END IF;
5700: ELSE
5711: IF (l_return_status = 'E') THEN
5712: RAISE FND_API.G_EXC_ERROR;
5713: ELSIF (l_return_status = 'U') THEN
5714: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5715: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING ) THEN
5716: x_return_status := l_return_status;
5717: END IF;
5718: END IF;
5719:
5840: END IF;
5841: --
5842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5843: ROLLBACK TO RATE_DELIVERY;
5844: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5845: FND_MSG_PUB.Count_And_Get
5846: (
5847: p_count => x_msg_count,
5848: p_data => x_msg_data,
5858: END IF;
5859: --
5860: WHEN OTHERS THEN
5861: ROLLBACK TO RATE_DELIVERY;
5862: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
5863: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5864: FND_MSG_PUB.Count_And_Get
5865: (
5866: p_count => x_msg_count,
5859: --
5860: WHEN OTHERS THEN
5861: ROLLBACK TO RATE_DELIVERY;
5862: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
5863: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5864: FND_MSG_PUB.Count_And_Get
5865: (
5866: p_count => x_msg_count,
5867: p_data => x_msg_data,
5902: l_msg_data VARCHAR2(32767);
5903: --
5904: l_number_of_errors NUMBER;
5905: l_number_of_warnings NUMBER;
5906: l_failed_delivery_id_list WSH_UTIL_CORE.id_tab_type;
5907: l_seq_tender_flag VARCHAR2(1);
5908: BEGIN
5909: --
5910: --fix bug3715247
5930:
5931: x_return_status := FND_API.G_RET_STS_SUCCESS;
5932: FTE_FREIGHT_PRICING_UTIL.initialize_logging( x_return_status => l_return_status );
5933:
5934: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
5935: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5936: l_return_status := FND_API.G_RET_STS_ERROR;
5937: api_post_call
5938: (
5931: x_return_status := FND_API.G_RET_STS_SUCCESS;
5932: FTE_FREIGHT_PRICING_UTIL.initialize_logging( x_return_status => l_return_status );
5933:
5934: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
5935: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5936: l_return_status := FND_API.G_RET_STS_ERROR;
5937: api_post_call
5938: (
5939: p_api_name => l_module_name,
5952: RAISE FND_API.G_EXC_ERROR;
5953: ELSIF (l_return_status_1 = 'U')
5954: THEN
5955: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5956: ELSIF (l_return_status_1 = WSH_UTIL_CORE.G_RET_STS_WARNING )
5957: THEN
5958: x_return_status := l_return_status_1;
5959: END IF;
5960:
5996: x_return_status => l_return_status,
5997: x_msg_count => l_msg_count,
5998: x_msg_data => l_msg_data);
5999:
6000: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6001: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6002: l_failed_delivery_id_list(i) := p_in_param_rec.delivery_id_list(i);
6003:
6004: FTE_FREIGHT_PRICING_UTIL.setmsg(
5997: x_msg_count => l_msg_count,
5998: x_msg_data => l_msg_data);
5999:
6000: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6001: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6002: l_failed_delivery_id_list(i) := p_in_param_rec.delivery_id_list(i);
6003:
6004: FTE_FREIGHT_PRICING_UTIL.setmsg(
6005: p_api => l_api_name,
6007: p_msg_name => 'FTE_PRC_RATE_DEL_FL',
6008: p_msg_type => 'E',
6009: p_delivery_id => p_in_param_rec.delivery_id_list(i));
6010:
6011: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6012: l_number_of_warnings := l_number_of_warnings + 1;
6013: END IF;
6014:
6015: EXIT WHEN i = p_in_param_rec.delivery_id_list.LAST;
6020: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_failed_delivery_id_list.COUNT='||l_failed_delivery_id_list.COUNT);
6021: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_number_of_warnings='||l_number_of_warnings);
6022:
6023: IF l_failed_delivery_id_list.COUNT > 0 THEN
6024: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6025: x_out_param_rec.failed_delivery_id_list := l_failed_delivery_id_list;
6026:
6027: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_LOG_FILE_NAME');
6028: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
6037: --fix bug3715247
6038: --ROLLBACK TO RATE_MULTIPLE_DELIVERY;
6039: ELSE
6040: IF l_number_of_warnings > 0 THEN
6041: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6042: ELSE
6043: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6044: END IF;
6045: IF FND_API.To_Boolean( p_commit ) THEN
6039: ELSE
6040: IF l_number_of_warnings > 0 THEN
6041: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6042: ELSE
6043: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6044: END IF;
6045: IF FND_API.To_Boolean( p_commit ) THEN
6046: COMMIT WORK;
6047: END IF;
6103: p_msg_type => 'E');
6104:
6105: --fix bug3715247
6106: --ROLLBACK TO RATE_MULTIPLE_DELIVERY;
6107: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6108: FND_MSG_PUB.Count_And_Get
6109: (
6110: p_count => x_msg_count,
6111: p_data => x_msg_data,
6130: p_msg_type => 'E');
6131:
6132: --fix bug3715247
6133: --ROLLBACK TO RATE_MULTIPLE_DELIVERY;
6134: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
6135: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6136: FND_MSG_PUB.Count_And_Get
6137: (
6138: p_count => x_msg_count,
6131:
6132: --fix bug3715247
6133: --ROLLBACK TO RATE_MULTIPLE_DELIVERY;
6134: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
6135: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6136: FND_MSG_PUB.Count_And_Get
6137: (
6138: p_count => x_msg_count,
6139: p_data => x_msg_data,
6192: END IF;
6193:
6194: IF p_init_prc_log = 'Y' THEN
6195: FTE_FREIGHT_PRICING_UTIL.initialize_logging( x_return_status => l_return_status );
6196: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6197: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6198: FTE_FREIGHT_PRICING_UTIL.setmsg(
6199: p_api => l_api_name,
6200: p_exc => ' ',
6193:
6194: IF p_init_prc_log = 'Y' THEN
6195: FTE_FREIGHT_PRICING_UTIL.initialize_logging( x_return_status => l_return_status );
6196: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6197: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6198: FTE_FREIGHT_PRICING_UTIL.setmsg(
6199: p_api => l_api_name,
6200: p_exc => ' ',
6201: p_msg_name => 'FTE_PRC_INIT_LOG_FL',
6224: WSH_UTIL_VALIDATE.Validate_Delivery_Name (
6225: p_delivery_id => l_delivery_id,
6226: p_delivery_name => p_delivery_in_rec.name,
6227: x_return_status => l_return_status);
6228: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6229: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6230: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Invalid delivery name '||p_delivery_in_rec.name);
6231: RAISE FND_API.G_EXC_ERROR;
6232: END IF;
6225: p_delivery_id => l_delivery_id,
6226: p_delivery_name => p_delivery_in_rec.name,
6227: x_return_status => l_return_status);
6228: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6229: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6230: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Invalid delivery name '||p_delivery_in_rec.name);
6231: RAISE FND_API.G_EXC_ERROR;
6232: END IF;
6233:
6235: WSH_UTIL_VALIDATE.Validate_Carrier (
6236: p_carrier_name => p_delivery_in_rec.carrier_name,
6237: x_carrier_id => l_carrier_id,
6238: x_return_status => l_return_status);
6239: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6240: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6241: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Invalid carrier name '||p_delivery_in_rec.carrier_name);
6242: RAISE FND_API.G_EXC_ERROR;
6243: END IF;
6236: p_carrier_name => p_delivery_in_rec.carrier_name,
6237: x_carrier_id => l_carrier_id,
6238: x_return_status => l_return_status);
6239: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6240: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6241: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Invalid carrier name '||p_delivery_in_rec.carrier_name);
6242: RAISE FND_API.G_EXC_ERROR;
6243: END IF;
6244:
6248: p_lookup_type => 'WSH_MODE_OF_TRANSPORT',
6249: p_lookup_code => l_lookup,
6250: p_meaning => null,
6251: x_return_status => l_return_status);
6252: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6253: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6254: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Invalid mode of transport '|| l_lookup);
6255: RAISE FND_API.G_EXC_ERROR;
6256: END IF;
6249: p_lookup_code => l_lookup,
6250: p_meaning => null,
6251: x_return_status => l_return_status);
6252: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6253: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6254: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Invalid mode of transport '|| l_lookup);
6255: RAISE FND_API.G_EXC_ERROR;
6256: END IF;
6257: l_mode_of_transport := p_delivery_in_rec.mode_of_transport;
6262: p_lookup_type => 'WSH_SERVICE_LEVELS',
6263: p_lookup_code => l_lookup,
6264: p_meaning => null,
6265: x_return_status => l_return_status);
6266: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6267: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6268: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Invalid sevice level '|| l_lookup);
6269: RAISE FND_API.G_EXC_ERROR;
6270: END IF;
6263: p_lookup_code => l_lookup,
6264: p_meaning => null,
6265: x_return_status => l_return_status);
6266: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6267: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6268: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Invalid sevice level '|| l_lookup);
6269: RAISE FND_API.G_EXC_ERROR;
6270: END IF;
6271: l_service_level := p_delivery_in_rec.service_level;
6314: x_return_status => l_return_status,
6315: x_msg_count => l_msg_count,
6316: x_msg_data => l_msg_data);
6317:
6318: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6319: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6320: -- if cancel service adds the message to the stack,
6321: -- we do not need to add again.
6322: --FND_MESSAGE.SET_NAME('FTE','FTE_PRC_CAN_SRV_FL');
6315: x_msg_count => l_msg_count,
6316: x_msg_data => l_msg_data);
6317:
6318: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6319: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6320: -- if cancel service adds the message to the stack,
6321: -- we do not need to add again.
6322: --FND_MESSAGE.SET_NAME('FTE','FTE_PRC_CAN_SRV_FL');
6323: --FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_in_rec.name);
6336: x_return_status => l_return_status,
6337: x_msg_count => l_msg_count,
6338: x_msg_data => l_msg_data);
6339:
6340: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6341: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6342: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SHIPMENT_FAIL');
6343: FND_MESSAGE.SET_TOKEN('DEL_NAMES', p_delivery_in_rec.name);
6344: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
6337: x_msg_count => l_msg_count,
6338: x_msg_data => l_msg_data);
6339:
6340: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) and
6341: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6342: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_RERATE_SHIPMENT_FAIL');
6343: FND_MESSAGE.SET_TOKEN('DEL_NAMES', p_delivery_in_rec.name);
6344: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
6345: FND_MSG_PUB.ADD;