[Home] [Help]
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
722: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
723: END IF;
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;
725:
726: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'populating delivery info...');
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
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
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;
780:
781: l_ship_method_code := g_dlv_tab(p_delivery_id).ship_method_code;
836: );
837:
838: IF (l_return_status_1 = 'E')
839: THEN
840: RAISE FND_API.G_EXC_ERROR;
841: ELSIF (l_return_status_1 = 'U')
842: THEN
843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
844: END IF;
839: THEN
840: RAISE FND_API.G_EXC_ERROR;
841: ELSIF (l_return_status_1 = 'U')
842: THEN
843: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
844: END IF;
845: END IF; -- l_trip_dleg_cnt > 1
846: */
847: IF (g_trip_info_tab(l_leg_trip_det_rec.trip_id).ship_method_code is not null)
944: WSH_DEBUG_SV.pop(l_module_name);
945: END IF;
946: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
947: --
948: WHEN FND_API.G_EXC_ERROR THEN
949: x_return_code := G_RC_ERROR;
950: IF l_debug_on THEN
951: WSH_DEBUG_SV.pop(l_module_name);
952: END IF;
949: x_return_code := G_RC_ERROR;
950: IF l_debug_on THEN
951: WSH_DEBUG_SV.pop(l_module_name);
952: END IF;
953: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
954: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
955: --
956: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
957: x_return_code := G_RC_ERROR;
952: END IF;
953: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
954: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
955: --
956: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
957: x_return_code := G_RC_ERROR;
958: IF l_debug_on THEN
959: WSH_DEBUG_SV.pop(l_module_name);
960: END IF;
957: x_return_code := G_RC_ERROR;
958: IF l_debug_on THEN
959: WSH_DEBUG_SV.pop(l_module_name);
960: END IF;
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);
1004: --
1005: --
1006: BEGIN
1007: --
1008: x_return_status := FND_API.G_RET_STS_SUCCESS;
1009: --
1010: IF l_debug_on THEN
1011: wsh_debug_sv.push(l_module_name);
1012: END IF;
1035: l_action_prms.caller := 'FTE';
1036: --
1037: WSH_INTERFACE_GRP.Delivery_Action
1038: ( p_api_version_number => 1.0,
1039: p_init_msg_list => FND_API.G_FALSE,
1040: p_commit => FND_API.G_FALSE,
1041: p_action_prms => l_action_prms,
1042: p_delivery_id_tab => l_dlv_id_tab,
1043: x_delivery_out_rec => l_delivery_out_rec,
1036: --
1037: WSH_INTERFACE_GRP.Delivery_Action
1038: ( p_api_version_number => 1.0,
1039: p_init_msg_list => FND_API.G_FALSE,
1040: p_commit => FND_API.G_FALSE,
1041: p_action_prms => l_action_prms,
1042: p_delivery_id_tab => l_dlv_id_tab,
1043: x_delivery_out_rec => l_delivery_out_rec,
1044: x_return_status => l_return_status,
1047: );
1048:
1049: -- WSH_DELIVERIES_GRP.Delivery_Action
1050: -- ( p_api_version_number =>'1.0',
1051: -- p_init_msg_list =>FND_API.G_TRUE,
1052: -- p_commit =>FND_API.G_FALSE,
1053: -- p_action_prms => l_action_prms,
1054: -- p_rec_attr_tab => g_dlv_tab,
1055: -- x_delivery_out_rec => l_delivery_out_rec,
1048:
1049: -- WSH_DELIVERIES_GRP.Delivery_Action
1050: -- ( p_api_version_number =>'1.0',
1051: -- p_init_msg_list =>FND_API.G_TRUE,
1052: -- p_commit =>FND_API.G_FALSE,
1053: -- p_action_prms => l_action_prms,
1054: -- p_rec_attr_tab => g_dlv_tab,
1055: -- x_delivery_out_rec => l_delivery_out_rec,
1056: -- x_defaults_rec => l_defaults_rec,
1073: );
1074: --
1075: IF (l_return_status_1 = 'E')
1076: THEN
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 )
1076: THEN
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;
1116: END IF;
1117: --
1118: --
1119: EXCEPTION
1120: WHEN FND_API.G_EXC_ERROR THEN
1121: x_return_status := FND_API.G_RET_STS_ERROR;
1122: IF l_debug_on THEN
1123: WSH_DEBUG_SV.pop(l_module_name);
1124: END IF;
1117: --
1118: --
1119: EXCEPTION
1120: WHEN FND_API.G_EXC_ERROR THEN
1121: x_return_status := FND_API.G_RET_STS_ERROR;
1122: IF l_debug_on THEN
1123: WSH_DEBUG_SV.pop(l_module_name);
1124: END IF;
1125: --
1122: IF l_debug_on THEN
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;
1193: c_trip_rec c_trip%ROWTYPE;
1194: --
1195: BEGIN
1196: --
1197: x_return_status := FND_API.G_RET_STS_SUCCESS;
1198: --
1199: IF l_debug_on THEN
1200: wsh_debug_sv.push(l_module_name);
1201: END IF;
1340: --call wsh public API
1341: WSH_INTERFACE_GRP.Create_Update_Trip
1342: (
1343: p_api_version_number =>l_api_version_number,
1344: p_init_msg_list =>FND_API.G_FALSE,
1345: p_commit =>FND_API.G_FALSE,
1346: x_return_status =>l_return_status,
1347: x_msg_count =>x_msg_count,
1348: x_msg_data =>x_msg_data,
1341: WSH_INTERFACE_GRP.Create_Update_Trip
1342: (
1343: p_api_version_number =>l_api_version_number,
1344: p_init_msg_list =>FND_API.G_FALSE,
1345: p_commit =>FND_API.G_FALSE,
1346: x_return_status =>l_return_status,
1347: x_msg_count =>x_msg_count,
1348: x_msg_data =>x_msg_data,
1349: p_trip_info_tab =>l_trip_info_tab,
1365: );
1366: --
1367: IF (l_return_status_1 = 'E')
1368: THEN
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 )
1368: THEN
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;
1379: FND_MSG_PUB.Count_And_Get
1380: (
1381: p_count => x_msg_count,
1382: p_data => x_msg_data,
1383: p_encoded => FND_API.G_FALSE
1384: );
1385: --
1386: IF l_debug_on THEN
1387: WSH_DEBUG_SV.pop(l_module_name);
1389: --
1390: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
1391: --
1392: EXCEPTION
1393: WHEN FND_API.G_EXC_ERROR THEN
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395: FND_MSG_PUB.Count_And_Get
1396: (
1397: p_count => x_msg_count,
1390: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
1391: --
1392: EXCEPTION
1393: WHEN FND_API.G_EXC_ERROR THEN
1394: x_return_status := FND_API.G_RET_STS_ERROR;
1395: FND_MSG_PUB.Count_And_Get
1396: (
1397: p_count => x_msg_count,
1398: p_data => x_msg_data,
1395: FND_MSG_PUB.Count_And_Get
1396: (
1397: p_count => x_msg_count,
1398: p_data => x_msg_data,
1399: p_encoded => FND_API.G_FALSE
1400: );
1401: IF l_debug_on THEN
1402: WSH_DEBUG_SV.pop(l_module_name);
1403: END IF;
1400: );
1401: IF l_debug_on THEN
1402: WSH_DEBUG_SV.pop(l_module_name);
1403: END IF;
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;
1403: END IF;
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,
1409: FND_MSG_PUB.Count_And_Get
1410: (
1411: p_count => x_msg_count,
1412: p_data => x_msg_data,
1413: p_encoded => FND_API.G_FALSE
1414: );
1415: IF l_debug_on THEN
1416: WSH_DEBUG_SV.pop(l_module_name);
1417: END IF;
1414: );
1415: IF l_debug_on THEN
1416: WSH_DEBUG_SV.pop(l_module_name);
1417: END IF;
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);
1424: FND_MSG_PUB.Count_And_Get
1425: (
1426: p_count => x_msg_count,
1427: p_data => x_msg_data,
1428: p_encoded => FND_API.G_FALSE
1429: );
1430: IF l_debug_on THEN
1431: WSH_DEBUG_SV.pop(l_module_name);
1432: END IF;
1457: --
1458: BEGIN
1459: SAVEPOINT UPDATE_TRIPS;
1460: --
1461: x_return_status := FND_API.G_RET_STS_SUCCESS;
1462: --
1463: IF l_debug_on THEN
1464: wsh_debug_sv.push(l_module_name);
1465: END IF;
1496: x_msg_data => l_msg_data );
1497: --
1498: IF (l_return_status = 'E')
1499: THEN
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 )
1499: THEN
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;
1514: FND_MSG_PUB.Count_And_Get
1515: (
1516: p_count => x_msg_count,
1517: p_data => x_msg_data,
1518: p_encoded => FND_API.G_FALSE
1519: );
1520: --
1521: IF l_debug_on THEN
1522: WSH_DEBUG_SV.pop(l_module_name);
1523: END IF;
1524: --
1525: --
1526: EXCEPTION
1527: WHEN FND_API.G_EXC_ERROR THEN
1528: ROLLBACK TO UPDATE_TRIPS;
1529: x_return_status := FND_API.G_RET_STS_ERROR;
1530: FND_MSG_PUB.Count_And_Get
1531: (
1525: --
1526: EXCEPTION
1527: WHEN FND_API.G_EXC_ERROR THEN
1528: ROLLBACK TO UPDATE_TRIPS;
1529: x_return_status := FND_API.G_RET_STS_ERROR;
1530: FND_MSG_PUB.Count_And_Get
1531: (
1532: p_count => x_msg_count,
1533: p_data => x_msg_data,
1530: FND_MSG_PUB.Count_And_Get
1531: (
1532: p_count => x_msg_count,
1533: p_data => x_msg_data,
1534: p_encoded => FND_API.G_FALSE
1535: );
1536: IF l_debug_on THEN
1537: WSH_DEBUG_SV.pop(l_module_name);
1538: END IF;
1536: IF l_debug_on THEN
1537: WSH_DEBUG_SV.pop(l_module_name);
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: (
1543: FND_MSG_PUB.Count_And_Get
1544: (
1545: p_count => x_msg_count,
1546: p_data => x_msg_data,
1547: p_encoded => FND_API.G_FALSE
1548: );
1549: IF l_debug_on THEN
1550: WSH_DEBUG_SV.pop(l_module_name);
1551: END IF;
1557: FND_MSG_PUB.Count_And_Get
1558: (
1559: p_count => x_msg_count,
1560: p_data => x_msg_data,
1561: p_encoded => FND_API.G_FALSE
1562: );
1563: IF l_debug_on THEN
1564: WSH_DEBUG_SV.pop(l_module_name);
1565: END IF;
1591: --
1592: BEGIN
1593: SAVEPOINT UNASSIGN_TRIP;
1594: --
1595: x_return_status := FND_API.G_RET_STS_SUCCESS;
1596: --
1597: IF l_debug_on THEN
1598: wsh_debug_sv.push(l_module_name);
1599: END IF;
1615: --
1616:
1617: WSH_INTERFACE_GRP.Delivery_Action
1618: ( p_api_version_number => 1.0,
1619: p_init_msg_list => FND_API.G_FALSE,
1620: p_commit => FND_API.G_FALSE,
1621: p_action_prms => l_action_prms,
1622: p_delivery_id_tab => l_dlv_id_tab,
1623: x_delivery_out_rec => l_delivery_out_rec,
1616:
1617: WSH_INTERFACE_GRP.Delivery_Action
1618: ( p_api_version_number => 1.0,
1619: p_init_msg_list => FND_API.G_FALSE,
1620: p_commit => FND_API.G_FALSE,
1621: p_action_prms => l_action_prms,
1622: p_delivery_id_tab => l_dlv_id_tab,
1623: x_delivery_out_rec => l_delivery_out_rec,
1624: x_return_status => l_return_status,
1640: );
1641: --
1642: IF (l_return_status_1 = 'E')
1643: THEN
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 )
1643: THEN
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;
1653: FND_MSG_PUB.Count_And_Get
1654: (
1655: p_count => x_msg_count,
1656: p_data => x_msg_data,
1657: p_encoded => FND_API.G_FALSE
1658: );
1659: --
1660: IF l_debug_on THEN
1661: WSH_DEBUG_SV.pop(l_module_name);
1662: END IF;
1663: --
1664: --
1665: EXCEPTION
1666: WHEN FND_API.G_EXC_ERROR THEN
1667: ROLLBACK TO UNASSIGN_TRIP;
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: FND_MSG_PUB.Count_And_Get
1670: (
1664: --
1665: EXCEPTION
1666: WHEN FND_API.G_EXC_ERROR THEN
1667: ROLLBACK TO UNASSIGN_TRIP;
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: FND_MSG_PUB.Count_And_Get
1670: (
1671: p_count => x_msg_count,
1672: p_data => x_msg_data,
1669: FND_MSG_PUB.Count_And_Get
1670: (
1671: p_count => x_msg_count,
1672: p_data => x_msg_data,
1673: p_encoded => FND_API.G_FALSE
1674: );
1675: IF l_debug_on THEN
1676: WSH_DEBUG_SV.pop(l_module_name);
1677: END IF;
1675: IF l_debug_on THEN
1676: WSH_DEBUG_SV.pop(l_module_name);
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: (
1682: FND_MSG_PUB.Count_And_Get
1683: (
1684: p_count => x_msg_count,
1685: p_data => x_msg_data,
1686: p_encoded => FND_API.G_FALSE
1687: );
1688: IF l_debug_on THEN
1689: WSH_DEBUG_SV.pop(l_module_name);
1690: END IF;
1696: FND_MSG_PUB.Count_And_Get
1697: (
1698: p_count => x_msg_count,
1699: p_data => x_msg_data,
1700: p_encoded => FND_API.G_FALSE
1701: );
1702: IF l_debug_on THEN
1703: WSH_DEBUG_SV.pop(l_module_name);
1704: END IF;
1709: --
1710:
1711: PROCEDURE Cancel_Service (
1712: p_api_version IN NUMBER DEFAULT 1.0,
1713: p_init_msg_list VARCHAR2 DEFAULT FND_API.G_FALSE,
1714: p_delivery_id IN NUMBER,
1715: p_action IN VARCHAR2 DEFAULT 'CANCEL',
1716: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1717: x_return_status OUT NOCOPY VARCHAR2,
1712: p_api_version IN NUMBER DEFAULT 1.0,
1713: p_init_msg_list VARCHAR2 DEFAULT FND_API.G_FALSE,
1714: p_delivery_id IN NUMBER,
1715: p_action IN VARCHAR2 DEFAULT 'CANCEL',
1716: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1717: x_return_status OUT NOCOPY VARCHAR2,
1718: x_msg_count OUT NOCOPY NUMBER,
1719: x_msg_data OUT NOCOPY VARCHAR2)
1720: IS
1756: -- Delete all FTE freight cost records tied to the delivery
1757:
1758: SAVEPOINT CANCEL_SERVICE;
1759: --
1760: x_return_status := FND_API.G_RET_STS_SUCCESS;
1761: --
1762: IF l_debug_on THEN
1763: wsh_debug_sv.push(l_module_name);
1764: END IF;
1772: -- supported actions
1773: IF (p_action <> 'CANCEL') THEN
1774: -- raise g_invalid_action;
1775: --
1776: l_return_status := FND_API.G_RET_STS_ERROR;
1777: api_post_call
1778: (
1779: p_api_name => 'FTE_FREIGHT_RATING_DLVY_GRP.CANCEL_SERVICE',
1780: p_api_return_status => l_return_status,
1788: );
1789: --
1790: IF (l_return_status_1 = 'E')
1791: THEN
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 )
1791: THEN
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;
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
1869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1870: END IF;
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;
1872: END IF;
1873:
1895: );
1896: --
1897: IF (l_return_status_1 = 'E')
1898: THEN
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 )
1898: THEN
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;
1928: x_msg_data => l_msg_data );
1929:
1930: IF (l_return_status = 'E')
1931: THEN
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 )
1931: THEN
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;
1944: x_msg_data => l_msg_data );
1945:
1946: IF (l_return_status = 'E')
1947: THEN
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 )
1947: THEN
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;
1968: l_del_in_rec.action_code := 'UPDATE';
1969:
1970: WSH_INTERFACE_GRP.Create_Update_Delivery
1971: ( p_api_version_number =>1.0,
1972: p_init_msg_list =>FND_API.G_FALSE,
1973: -- p_commit =>'F',
1974: p_commit =>FND_API.G_FALSE,
1975: p_in_rec =>l_del_in_rec,
1976: p_rec_attr_tab => g_dlv_tab,
1970: WSH_INTERFACE_GRP.Create_Update_Delivery
1971: ( p_api_version_number =>1.0,
1972: p_init_msg_list =>FND_API.G_FALSE,
1973: -- p_commit =>'F',
1974: p_commit =>FND_API.G_FALSE,
1975: p_in_rec =>l_del_in_rec,
1976: p_rec_attr_tab => g_dlv_tab,
1977: x_del_out_rec_tab => l_del_out_tab,
1978: x_return_status => l_return_status,
1993: );
1994: --
1995: IF (l_return_status_1 = 'E')
1996: THEN
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 )
1996: THEN
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;
2085: END IF;
2086: END LOOP;
2087: END IF;
2088:
2089: IF FND_API.To_Boolean( p_commit ) THEN
2090: COMMIT WORK;
2091: END IF;
2092:
2093: FND_MSG_PUB.Count_And_Get
2093: FND_MSG_PUB.Count_And_Get
2094: (
2095: p_count => x_msg_count,
2096: p_data => x_msg_data,
2097: p_encoded => FND_API.G_FALSE
2098: );
2099: --
2100: IF l_debug_on THEN
2101: WSH_DEBUG_SV.pop(l_module_name);
2102: END IF;
2103: --
2104: --
2105: EXCEPTION
2106: WHEN FND_API.G_EXC_ERROR THEN
2107: ROLLBACK TO CANCEL_SERVICE;
2108: x_return_status := FND_API.G_RET_STS_ERROR;
2109: FND_MSG_PUB.Count_And_Get
2110: (
2104: --
2105: EXCEPTION
2106: WHEN FND_API.G_EXC_ERROR THEN
2107: ROLLBACK TO CANCEL_SERVICE;
2108: x_return_status := FND_API.G_RET_STS_ERROR;
2109: FND_MSG_PUB.Count_And_Get
2110: (
2111: p_count => x_msg_count,
2112: p_data => x_msg_data,
2109: FND_MSG_PUB.Count_And_Get
2110: (
2111: p_count => x_msg_count,
2112: p_data => x_msg_data,
2113: p_encoded => FND_API.G_FALSE
2114: );
2115: IF l_debug_on THEN
2116: WSH_DEBUG_SV.pop(l_module_name);
2117: END IF;
2115: IF l_debug_on THEN
2116: WSH_DEBUG_SV.pop(l_module_name);
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: (
2122: FND_MSG_PUB.Count_And_Get
2123: (
2124: p_count => x_msg_count,
2125: p_data => x_msg_data,
2126: p_encoded => FND_API.G_FALSE
2127: );
2128: IF l_debug_on THEN
2129: WSH_DEBUG_SV.pop(l_module_name);
2130: END IF;
2136: FND_MSG_PUB.Count_And_Get
2137: (
2138: p_count => x_msg_count,
2139: p_data => x_msg_data,
2140: p_encoded => FND_API.G_FALSE
2141: );
2142: IF l_debug_on THEN
2143: WSH_DEBUG_SV.pop(l_module_name);
2144: END IF;
2146: END Cancel_Service;
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,
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,
2156: x_msg_data OUT NOCOPY VARCHAR2)
2157: IS
2183: -- if some deliveries return error, then return_status = WARNING
2184:
2185: SAVEPOINT CANCEL_SERVICE;
2186: --
2187: x_return_status := FND_API.G_RET_STS_SUCCESS;
2188: --
2189: IF l_debug_on THEN
2190: wsh_debug_sv.push(l_module_name);
2191: END IF;
2193: -- supported actions
2194: IF (p_action <> 'CANCEL') THEN
2195: -- raise g_invalid_action;
2196: --
2197: l_return_status := FND_API.G_RET_STS_ERROR;
2198: api_post_call
2199: (
2200: p_api_name => 'FTE_FREIGHT_RATING_DLVY_GRP.CANCEL_SERVICE',
2201: p_api_return_status => l_return_status,
2209: );
2210: --
2211: IF (l_return_status_1 = 'E')
2212: THEN
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 )
2212: THEN
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;
2276: ,WSH_DEBUG_SV.C_PROC_LEVEL);
2277: END IF;
2278:
2279: IF (l_success_cnt = p_delivery_list.COUNT) THEN
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;
2278:
2279: IF (l_success_cnt = p_delivery_list.COUNT) THEN
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:
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;
2289: END IF;
2290:
2291: FND_MSG_PUB.Count_And_Get
2291: FND_MSG_PUB.Count_And_Get
2292: (
2293: p_count => x_msg_count,
2294: p_data => x_msg_data,
2295: p_encoded => FND_API.G_FALSE
2296: );
2297: --
2298: IF l_debug_on THEN
2299: WSH_DEBUG_SV.pop(l_module_name);
2300: END IF;
2301: --
2302: --
2303: EXCEPTION
2304: WHEN FND_API.G_EXC_ERROR THEN
2305: ROLLBACK TO CANCEL_SERVICE;
2306: x_return_status := FND_API.G_RET_STS_ERROR;
2307: FND_MSG_PUB.Count_And_Get
2308: (
2302: --
2303: EXCEPTION
2304: WHEN FND_API.G_EXC_ERROR THEN
2305: ROLLBACK TO CANCEL_SERVICE;
2306: x_return_status := FND_API.G_RET_STS_ERROR;
2307: FND_MSG_PUB.Count_And_Get
2308: (
2309: p_count => x_msg_count,
2310: p_data => x_msg_data,
2307: FND_MSG_PUB.Count_And_Get
2308: (
2309: p_count => x_msg_count,
2310: p_data => x_msg_data,
2311: p_encoded => FND_API.G_FALSE
2312: );
2313: IF l_debug_on THEN
2314: WSH_DEBUG_SV.pop(l_module_name);
2315: END IF;
2313: IF l_debug_on THEN
2314: WSH_DEBUG_SV.pop(l_module_name);
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: (
2320: FND_MSG_PUB.Count_And_Get
2321: (
2322: p_count => x_msg_count,
2323: p_data => x_msg_data,
2324: p_encoded => FND_API.G_FALSE
2325: );
2326: IF l_debug_on THEN
2327: WSH_DEBUG_SV.pop(l_module_name);
2328: END IF;
2334: FND_MSG_PUB.Count_And_Get
2335: (
2336: p_count => x_msg_count,
2337: p_data => x_msg_data,
2338: p_encoded => FND_API.G_FALSE
2339: );
2340: IF l_debug_on THEN
2341: WSH_DEBUG_SV.pop(l_module_name);
2342: END IF;
2603: );
2604:
2605: IF (l_return_status_1 = 'E')
2606: THEN
2607: RAISE FND_API.G_EXC_ERROR;
2608: ELSIF (l_return_status_1 = 'U')
2609: THEN
2610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2611: END IF;
2606: THEN
2607: RAISE FND_API.G_EXC_ERROR;
2608: ELSIF (l_return_status_1 = 'U')
2609: THEN
2610: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2611: END IF;
2612: END IF;
2613:
2614: -- check for empty delivery
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
2642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2643: END IF;
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;
2645: /*
2646: -- after autocreate trip for delivery, the reprice required flag on leg is set to 'N'
2746: WSH_DEBUG_SV.pop(l_module_name);
2747: END IF;
2748: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2749: --
2750: WHEN FND_API.G_EXC_ERROR THEN
2751: x_return_code := G_RC_ERROR;
2752: IF l_debug_on THEN
2753: WSH_DEBUG_SV.pop(l_module_name);
2754: END IF;
2751: x_return_code := G_RC_ERROR;
2752: IF l_debug_on THEN
2753: WSH_DEBUG_SV.pop(l_module_name);
2754: END IF;
2755: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2756: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2757: --
2758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2759: x_return_code := G_RC_ERROR;
2754: END IF;
2755: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2756: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2757: --
2758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2759: x_return_code := G_RC_ERROR;
2760: IF l_debug_on THEN
2761: WSH_DEBUG_SV.pop(l_module_name);
2762: END IF;
2759: x_return_code := G_RC_ERROR;
2760: IF l_debug_on THEN
2761: WSH_DEBUG_SV.pop(l_module_name);
2762: 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);
2859: WSH_DEBUG_SV.pop(l_module_name);
2860: END IF;
2861: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2862: --
2863: WHEN FND_API.G_EXC_ERROR THEN
2864: x_return_code := G_RC_ERROR;
2865: IF l_debug_on THEN
2866: WSH_DEBUG_SV.pop(l_module_name);
2867: END IF;
2864: x_return_code := G_RC_ERROR;
2865: IF l_debug_on THEN
2866: WSH_DEBUG_SV.pop(l_module_name);
2867: END IF;
2868: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2869: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2870: --
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: x_return_code := G_RC_ERROR;
2867: END IF;
2868: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
2869: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
2870: --
2871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2872: x_return_code := G_RC_ERROR;
2873: IF l_debug_on THEN
2874: WSH_DEBUG_SV.pop(l_module_name);
2875: END IF;
2872: x_return_code := G_RC_ERROR;
2873: IF l_debug_on THEN
2874: WSH_DEBUG_SV.pop(l_module_name);
2875: 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);
2935: l_module_name CONSTANT VARCHAR2(100) := 'fte.plsql.' || G_PKG_NAME || '.' || 'SEARCH_SERVICES';
2936: l_api_name CONSTANT VARCHAR2(30) := 'SEARCH_SERVICES';
2937: BEGIN
2938:
2939: x_return_status := FND_API.G_RET_STS_SUCCESS;
2940:
2941: IF l_debug_on THEN
2942: wsh_debug_sv.push(l_module_name);
2943: END IF;
3106: END IF;
3107: --
3108: IF (l_return_status_1 = 'E')
3109: THEN
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 )
3109: THEN
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;
3271: END IF;
3272:
3273: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3274: EXCEPTION
3275: WHEN FND_API.G_EXC_ERROR THEN
3276: x_return_status := FND_API.G_RET_STS_ERROR;
3277: IF l_debug_on THEN
3278: WSH_DEBUG_SV.pop(l_module_name);
3279: END IF;
3272:
3273: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3274: EXCEPTION
3275: WHEN FND_API.G_EXC_ERROR THEN
3276: x_return_status := FND_API.G_RET_STS_ERROR;
3277: IF l_debug_on THEN
3278: WSH_DEBUG_SV.pop(l_module_name);
3279: END IF;
3280: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
3276: x_return_status := FND_API.G_RET_STS_ERROR;
3277: IF l_debug_on THEN
3278: WSH_DEBUG_SV.pop(l_module_name);
3279: END IF;
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;
3279: END IF;
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;
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');
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);
3476: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_SHIPMENT';
3477:
3478: BEGIN
3479:
3480: x_return_status := FND_API.G_RET_STS_SUCCESS;
3481:
3482: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3483: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
3484:
3582:
3583:
3584: FTE_MLS_WRAPPER.Trip_Action(
3585: p_api_version_number=>1,
3586: p_init_msg_list=>FND_API.G_FALSE,
3587: p_tripId=>p_trip_id,
3588: p_action_prms=>l_action_prms,
3589: x_msg_count=>l_msg_count,
3590: x_msg_data=>l_msg_data,
3725:
3726: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'Before calling FTE_CARRIER_RANK_LIST_PVT.RANK_LIST_ACTION UPDATE');
3727: FTE_CARRIER_RANK_LIST_PVT.RANK_LIST_ACTION(
3728: p_api_version_number =>1,
3729: p_init_msg_list =>FND_API.G_FALSE,
3730: p_action_code =>FTE_CARRIER_RANK_LIST_PVT.S_UPDATE,
3731: p_ranklist =>l_rank_tab,
3732: p_trip_id =>p_rank_rec.trip_id,
3733: p_rank_id =>l_rank_id,
3744: l_rank_tab(1).source:=FTE_CARRIER_RANK_LIST_PVT.S_SOURCE_LCSS;
3745:
3746: FTE_CARRIER_RANK_LIST_PVT.RANK_LIST_ACTION(
3747: p_api_version_number =>1,
3748: p_init_msg_list =>FND_API.G_FALSE,
3749: p_action_code =>FTE_CARRIER_RANK_LIST_PVT.S_CREATE,
3750: p_ranklist =>l_rank_tab,
3751: p_trip_id =>p_rank_rec.trip_id,
3752: p_rank_id =>NULL,
3805: x_msg_data => l_msg_data );
3806:
3807: IF (l_return_status = 'E')
3808: THEN
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 )
3808: THEN
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;
3821: x_return_status => l_return_status);
3822:
3823: IF (l_return_status = 'E')
3824: THEN
3825: RAISE FND_API.G_EXC_ERROR;
3826: ELSIF (l_return_status = 'U')
3827: THEN
3828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3829: END IF;
3824: THEN
3825: RAISE FND_API.G_EXC_ERROR;
3826: ELSIF (l_return_status = 'U')
3827: THEN
3828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3829: END IF;
3830:
3831: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3832:
3831: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
3832:
3833: EXCEPTION
3834:
3835: WHEN FND_API.G_EXC_ERROR THEN
3836: x_return_status := FND_API.G_RET_STS_ERROR;
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: --
3832:
3833: EXCEPTION
3834:
3835: WHEN FND_API.G_EXC_ERROR THEN
3836: x_return_status := FND_API.G_RET_STS_ERROR;
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
3833: EXCEPTION
3834:
3835: WHEN FND_API.G_EXC_ERROR THEN
3836: x_return_status := FND_API.G_RET_STS_ERROR;
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;
3836: x_return_status := FND_API.G_RET_STS_ERROR;
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:
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:
3846: WHEN FTE_FREIGHT_PRICING_UTIL.g_rank_list_update_fail THEN
3908: l_rank_rec FTE_CARRIER_RANK_LIST_PVT.carrier_rank_list_rec;
3909:
3910: BEGIN
3911:
3912: x_return_status := FND_API.G_RET_STS_SUCCESS;
3913:
3914: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
3915: FTE_FREIGHT_PRICING_UTIL.set_method(l_log_level,l_api_name,'start');
3916:
3927: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
3928:
3929: IF (l_return_status = 'E')
3930: THEN
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 )
3930: THEN
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:
3940: l_matched_lane_count := l_matched_lanes.COUNT;
3941: IF (l_matched_lane_count = 0) THEN -- no lane found
3942: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'no lane found');
3943: RAISE FND_API.G_EXC_ERROR;
3944: END IF; -- no lane found
3945: END IF; -- no lane on trip
3946:
3947: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'found following lanes...');
3972: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
3973:
3974: IF (l_return_status = 'E')
3975: THEN
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 )
3975: THEN
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;
3992: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'no rates found');
3993:
3994: FTE_TL_RATING.ABORT_LCSS(x_return_status => l_return_status);
3995:
3996: RAISE FND_API.G_EXC_ERROR;
3997:
3998: END IF;
3999:
4000:
4032: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4033:
4034: IF (l_return_status = 'E')
4035: THEN
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 )
4035: THEN
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;
4064: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4065:
4066: IF (l_return_status = 'E')
4067: THEN
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 )
4067: THEN
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;
4087:
4088:
4089: IF (l_return_status = 'E')
4090: THEN
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 )
4090: THEN
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;
4112: EXCEPTION
4113: WHEN g_finished_success THEN
4114: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4115: --
4116: WHEN FND_API.G_EXC_ERROR THEN
4117: x_return_status := FND_API.G_RET_STS_ERROR;
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: --
4113: WHEN g_finished_success THEN
4114: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4115: --
4116: WHEN FND_API.G_EXC_ERROR THEN
4117: x_return_status := FND_API.G_RET_STS_ERROR;
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
4114: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4115: --
4116: WHEN FND_API.G_EXC_ERROR THEN
4117: x_return_status := FND_API.G_RET_STS_ERROR;
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;
4117: x_return_status := FND_API.G_RET_STS_ERROR;
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: --
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
4127: WSH_UTIL_CORE.DEFAULT_HANDLER(G_PKG_NAME||'.'||l_api_name);
4168: l_msg_data VARCHAR2(32767);
4169: --
4170: l_number_of_errors NUMBER;
4171: l_number_of_warnings NUMBER;
4172: l_commit VARCHAR2(100) := FND_API.G_FALSE;
4173: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
4174: l_module_name CONSTANT VARCHAR2(100) := 'fte.plsql.' || G_PKG_NAME || '.' || 'RATE_TRIP2';
4175:
4176: l_lane_rate NUMBER;
4201:
4202: --
4203: BEGIN
4204: --
4205: x_return_status := FND_API.G_RET_STS_SUCCESS;
4206: --
4207: IF l_debug_on THEN
4208: wsh_debug_sv.push(l_module_name);
4209: END IF;
4253: --IF l_ship_method_code is null OR l_carrier_id is null OR l_mode_of_transport is null
4254: IF l_carrier_id is null OR l_mode_of_transport is null
4255: OR l_service_level is null OR l_lane_id is not null THEN
4256: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'should have full ship method and lane is null to reach this point!!!');
4257: raise FND_API.G_EXC_ERROR;
4258: END IF;
4259:
4260:
4261: IF (l_mode_of_transport = 'TRUCK') THEN
4265: p_trip_id => p_trip_id,
4266: x_return_code => l_return_code);
4267:
4268: IF l_return_code = G_RC_ERROR THEN
4269: RAISE FND_API.G_EXC_ERROR;
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
4282: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4283:
4284: IF (l_return_status = 'E')
4285: THEN
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 )
4285: THEN
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;
4308: p_trip_id => p_trip_id,
4309: x_return_code => l_return_code);
4310:
4311: IF l_return_code = G_RC_ERROR THEN
4312: RAISE FND_API.G_EXC_ERROR;
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
4358: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4359:
4360: IF (l_return_status = 'E')
4361: THEN
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 )
4361: THEN
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;
4383: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4384:
4385: IF (l_return_status = 'E')
4386: THEN
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 )
4386: THEN
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;
4396: l_matched_lane_count := l_matched_lanes.COUNT;
4397: IF (l_matched_lane_count = 0) THEN -- no lane found
4398:
4399: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'no services found.');
4400: RAISE FND_API.G_EXC_ERROR;
4401:
4402: ELSE -- found lane
4403:
4404: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'found following lanes...');
4420: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4421:
4422: IF (l_return_status = 'E')
4423: THEN
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 )
4423: THEN
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;
4507: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4508:
4509: IF (l_return_status = 'E')
4510: THEN
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 )
4510: THEN
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;
4541:
4542: IF (l_all_lane_failed) THEN
4543:
4544: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'no rates found.');
4545: RAISE FND_API.G_EXC_ERROR;
4546:
4547: ELSE
4548:
4549: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'updating trip with lane_id and shipmethod...');
4580: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4581:
4582: IF (l_return_status = 'E')
4583: THEN
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 )
4583: THEN
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;
4613: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4614:
4615: IF (l_return_status = 'E')
4616: THEN
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 )
4616: THEN
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;
4637: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
4638:
4639: IF (l_return_status = 'E')
4640: THEN
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 )
4640: THEN
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;
4696: END IF;
4697: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_return_status='||x_return_status);
4698: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4699: --
4700: WHEN FND_API.G_EXC_ERROR THEN
4701: x_return_status := FND_API.G_RET_STS_ERROR;
4702: IF l_debug_on THEN
4703: WSH_DEBUG_SV.pop(l_module_name);
4704: END IF;
4697: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_return_status='||x_return_status);
4698: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
4699: --
4700: WHEN FND_API.G_EXC_ERROR THEN
4701: x_return_status := FND_API.G_RET_STS_ERROR;
4702: IF l_debug_on THEN
4703: WSH_DEBUG_SV.pop(l_module_name);
4704: END IF;
4705: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
4701: x_return_status := FND_API.G_RET_STS_ERROR;
4702: IF l_debug_on THEN
4703: WSH_DEBUG_SV.pop(l_module_name);
4704: END IF;
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;
4704: END IF;
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;
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');
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);
4729: -- assumes that input ship method is validated by the caller and will be used to
4730: -- search the services if any of them is not null
4731: PROCEDURE Rate_Delivery (
4732: p_api_version IN NUMBER DEFAULT 1.0,
4733: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4734: p_delivery_id IN NUMBER DEFAULT NULL,
4735: p_trip_id IN NUMBER DEFAULT NULL,
4736: p_action IN VARCHAR2 DEFAULT 'RATE',
4737: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4733: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4734: p_delivery_id IN NUMBER DEFAULT NULL,
4735: p_trip_id IN NUMBER DEFAULT NULL,
4736: p_action IN VARCHAR2 DEFAULT 'RATE',
4737: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4738: p_init_prc_log IN VARCHAR2 DEFAULT 'Y',
4739: p_carrier_id IN NUMBER DEFAULT NULL,
4740: p_mode_of_transport IN VARCHAR2 DEFAULT NULL,
4741: p_service_level IN VARCHAR2 DEFAULT NULL,
4777: l_msg_data VARCHAR2(32767);
4778: --
4779: l_number_of_errors NUMBER;
4780: l_number_of_warnings NUMBER;
4781: l_commit VARCHAR2(100) := FND_API.G_FALSE;
4782: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
4783: l_module_name CONSTANT VARCHAR2(100) := 'fte.plsql.' || G_PKG_NAME || '.' || 'RATE_DELIVERY';
4784:
4785: l_lane_rate NUMBER;
4840: --
4841: SAVEPOINT RATE_DELIVERY;
4842: --
4843: -- Standard call to check for call compatibility.
4844: IF NOT FND_API.Compatible_API_Call
4845: (
4846: l_api_version,
4847: p_api_version,
4848: l_api_name,
4848: l_api_name,
4849: G_PKG_NAME
4850: )
4851: THEN
4852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4853: END IF;
4854:
4855: -- Initialize message list if p_init_msg_list is set to TRUE.
4856: IF FND_API.to_Boolean( p_init_msg_list )
4852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4853: END IF;
4854:
4855: -- Initialize message list if p_init_msg_list is set to TRUE.
4856: IF FND_API.to_Boolean( p_init_msg_list )
4857: THEN
4858: FND_MSG_PUB.initialize;
4859: END IF;
4860:
4857: THEN
4858: FND_MSG_PUB.initialize;
4859: END IF;
4860:
4861: x_return_status := FND_API.G_RET_STS_SUCCESS;
4862: --
4863: IF l_debug_on THEN
4864: wsh_debug_sv.push(l_module_name);
4865: END IF;
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',
4901: p_api_return_status => l_return_status,
4909: );
4910: --
4911: IF (l_return_status_1 = 'E')
4912: THEN
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 )
4912: THEN
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;
4949: -- raise g_invalid_action;
4950: --
4951: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'invalid action');
4952:
4953: l_return_status := FND_API.G_RET_STS_ERROR;
4954: api_post_call
4955: (
4956: p_api_name => l_module_name,
4957: p_api_return_status => l_return_status,
4965: );
4966: --
4967: IF (l_return_status_1 = 'E')
4968: THEN
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 )
4968: THEN
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;
4981: -- invalid parameters;
4982: --
4983: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'invalid input parameters');
4984:
4985: l_return_status := FND_API.G_RET_STS_ERROR;
4986: api_post_call
4987: (
4988: p_api_name => 'FTE_FREIGHT_RATING_DLVY_GRP.RATE_DELIVERY',
4989: p_api_return_status => l_return_status,
4997: );
4998: --
4999: IF (l_return_status_1 = 'E')
5000: THEN
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 )
5000: THEN
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;
5026: p_delivery_id => p_delivery_id,
5027: x_return_code => l_return_code);
5028:
5029: IF l_return_code = G_RC_ERROR THEN
5030: RAISE FND_API.G_EXC_ERROR;
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
5063: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5064:
5065: IF (l_return_status = 'E')
5066: THEN
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 )
5066: THEN
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;
5090: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5091:
5092: IF (l_return_status = 'E')
5093: THEN
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 )
5093: THEN
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;
5171: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5172:
5173: IF (l_return_status = 'E')
5174: THEN
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 )
5174: THEN
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;
5210: l_action_params.trip_id_list := l_temp_trips_tab;
5211:
5212: FTE_TRIP_RATING_GRP.Rate_Trip (
5213: p_api_version => 1.0,
5214: p_init_msg_list => FND_API.G_FALSE,
5215: p_action_params => l_action_params,
5216: p_commit => FND_API.G_FALSE,
5217: p_init_prc_log => 'N',
5218: x_return_status => l_return_status,
5212: FTE_TRIP_RATING_GRP.Rate_Trip (
5213: p_api_version => 1.0,
5214: p_init_msg_list => FND_API.G_FALSE,
5215: p_action_params => l_action_params,
5216: p_commit => FND_API.G_FALSE,
5217: p_init_prc_log => 'N',
5218: x_return_status => l_return_status,
5219: x_msg_count => l_msg_count,
5220: x_msg_data => l_msg_data);
5222: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5223:
5224: IF (l_return_status = 'E')
5225: THEN
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 )
5225: THEN
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;
5261: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5262:
5263: IF (l_return_status = 'E')
5264: THEN
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 )
5264: THEN
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;
5274: l_matched_lane_count := l_matched_lanes.COUNT;
5275: IF (l_matched_lane_count = 0) THEN -- no lane found
5276:
5277: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'no services found.');
5278: RAISE FND_API.G_EXC_ERROR;
5279: ELSE -- found lane
5280:
5281: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'found following lanes...');
5282: print_matched_lane_tab(p_matched_lane_tab => l_matched_lanes);
5296: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5297:
5298: IF (l_return_status = 'E')
5299: THEN
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 )
5299: THEN
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;
5398: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5399:
5400: IF (l_return_status = 'E')
5401: THEN
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 )
5401: THEN
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;
5470:
5471: IF (l_all_lane_failed AND l_lowest_tl_lane_index IS NULL) THEN
5472:
5473: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'no rates found.');
5474: RAISE FND_API.G_EXC_ERROR;
5475: ELSE
5476:
5477: IF((l_lowest_tl_lane_index IS NOT NULL) AND (l_all_lane_failed))
5478: THEN
5495: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5496:
5497: IF (l_return_status = 'E')
5498: THEN
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 )
5498: THEN
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;
5578: l_del_in_rec.action_code := 'UPDATE';
5579:
5580: WSH_INTERFACE_GRP.Create_Update_Delivery
5581: ( p_api_version_number =>1.0,
5582: p_init_msg_list =>FND_API.G_FALSE,
5583: p_commit =>FND_API.G_FALSE,
5584: p_in_rec =>l_del_in_rec,
5585: p_rec_attr_tab => g_dlv_tab,
5586: x_del_out_rec_tab => l_del_out_tab,
5579:
5580: WSH_INTERFACE_GRP.Create_Update_Delivery
5581: ( p_api_version_number =>1.0,
5582: p_init_msg_list =>FND_API.G_FALSE,
5583: p_commit =>FND_API.G_FALSE,
5584: p_in_rec =>l_del_in_rec,
5585: p_rec_attr_tab => g_dlv_tab,
5586: x_del_out_rec_tab => l_del_out_tab,
5587: x_return_status => l_return_status,
5592: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5593:
5594: IF (l_return_status = 'E')
5595: THEN
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 )
5595: THEN
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;
5636: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5637:
5638: IF (l_return_status = 'E')
5639: THEN
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 )
5639: THEN
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;
5666: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5667:
5668: IF (l_return_status = 'E')
5669: THEN
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 )
5669: THEN
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;
5688: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5689:
5690: IF (l_return_status = 'E')
5691: THEN
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 )
5691: THEN
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;
5708:
5709: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'l_return_status='||l_return_status);
5710:
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;
5710:
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;
5742: l_dleg_id := g_dlv_leg_tab.NEXT(l_dleg_id);
5743: END LOOP; -- dleg loop
5744:
5745: --
5746: IF FND_API.To_Boolean( p_commit ) THEN
5747: COMMIT WORK;
5748: END IF;
5749:
5750: FND_MSG_PUB.Count_And_Get
5750: FND_MSG_PUB.Count_And_Get
5751: (
5752: p_count => x_msg_count,
5753: p_data => x_msg_data,
5754: p_encoded => FND_API.G_FALSE
5755: );
5756: --
5757: IF l_debug_on THEN
5758: WSH_DEBUG_SV.pop(l_module_name);
5770:
5771: EXCEPTION
5772: WHEN g_finished_warning THEN
5773:
5774: IF FND_API.To_Boolean( p_commit ) THEN
5775: COMMIT WORK;
5776: END IF;
5777:
5778: FND_MSG_PUB.Count_And_Get
5778: FND_MSG_PUB.Count_And_Get
5779: (
5780: p_count => x_msg_count,
5781: p_data => x_msg_data,
5782: p_encoded => FND_API.G_FALSE
5783: );
5784: --
5785: IF l_debug_on THEN
5786: WSH_DEBUG_SV.pop(l_module_name);
5797: END IF;
5798: --
5799: WHEN g_finished_success THEN
5800:
5801: IF FND_API.To_Boolean( p_commit ) THEN
5802: COMMIT WORK;
5803: END IF;
5804:
5805: FND_MSG_PUB.Count_And_Get
5805: FND_MSG_PUB.Count_And_Get
5806: (
5807: p_count => x_msg_count,
5808: p_data => x_msg_data,
5809: p_encoded => FND_API.G_FALSE
5810: );
5811: --
5812: IF l_debug_on THEN
5813: WSH_DEBUG_SV.pop(l_module_name);
5820: IF p_init_prc_log = 'Y' THEN
5821: FTE_FREIGHT_PRICING_UTIL.close_logs;
5822: END IF;
5823: --
5824: WHEN FND_API.G_EXC_ERROR THEN
5825: ROLLBACK TO RATE_DELIVERY;
5826: x_return_status := FND_API.G_RET_STS_ERROR;
5827: FND_MSG_PUB.Count_And_Get
5828: (
5822: END IF;
5823: --
5824: WHEN FND_API.G_EXC_ERROR THEN
5825: ROLLBACK TO RATE_DELIVERY;
5826: x_return_status := FND_API.G_RET_STS_ERROR;
5827: FND_MSG_PUB.Count_And_Get
5828: (
5829: p_count => x_msg_count,
5830: p_data => x_msg_data,
5827: FND_MSG_PUB.Count_And_Get
5828: (
5829: p_count => x_msg_count,
5830: p_data => x_msg_data,
5831: p_encoded => FND_API.G_FALSE
5832: );
5833: IF l_debug_on THEN
5834: WSH_DEBUG_SV.pop(l_module_name);
5835: END IF;
5832: );
5833: IF l_debug_on THEN
5834: WSH_DEBUG_SV.pop(l_module_name);
5835: END IF;
5836: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
5837: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
5838: IF p_init_prc_log = 'Y' THEN
5839: FTE_FREIGHT_PRICING_UTIL.close_logs;
5840: END IF;
5838: IF p_init_prc_log = 'Y' THEN
5839: FTE_FREIGHT_PRICING_UTIL.close_logs;
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: (
5845: FND_MSG_PUB.Count_And_Get
5846: (
5847: p_count => x_msg_count,
5848: p_data => x_msg_data,
5849: p_encoded => FND_API.G_FALSE
5850: );
5851: IF l_debug_on THEN
5852: WSH_DEBUG_SV.pop(l_module_name);
5853: END IF;
5850: );
5851: IF l_debug_on THEN
5852: WSH_DEBUG_SV.pop(l_module_name);
5853: END IF;
5854: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
5855: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
5856: IF p_init_prc_log = 'Y' THEN
5857: FTE_FREIGHT_PRICING_UTIL.close_logs;
5858: END IF;
5864: FND_MSG_PUB.Count_And_Get
5865: (
5866: p_count => x_msg_count,
5867: p_data => x_msg_data,
5868: p_encoded => FND_API.G_FALSE
5869: );
5870: IF l_debug_on THEN
5871: WSH_DEBUG_SV.pop(l_module_name);
5872: END IF;
5879: END Rate_Delivery;
5880: --
5881: PROCEDURE Rate_Delivery (
5882: p_api_version IN NUMBER DEFAULT 1.0,
5883: p_init_msg_list VARCHAR2 DEFAULT FND_API.G_FALSE,
5884: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5885: p_in_param_rec IN rate_del_in_param_rec,
5886: x_out_param_rec OUT NOCOPY rate_del_out_param_rec,
5887: x_return_status OUT NOCOPY VARCHAR2,
5880: --
5881: PROCEDURE Rate_Delivery (
5882: p_api_version IN NUMBER DEFAULT 1.0,
5883: p_init_msg_list VARCHAR2 DEFAULT FND_API.G_FALSE,
5884: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5885: p_in_param_rec IN rate_del_in_param_rec,
5886: x_out_param_rec OUT NOCOPY rate_del_out_param_rec,
5887: x_return_status OUT NOCOPY VARCHAR2,
5888: x_msg_count OUT NOCOPY NUMBER,
5910: --fix bug3715247
5911: --SAVEPOINT RATE_MULTIPLE_DELIVERY;
5912: --
5913: -- Standard call to check for call compatibility.
5914: IF NOT FND_API.Compatible_API_Call
5915: (
5916: l_api_version,
5917: p_api_version,
5918: l_api_name,
5918: l_api_name,
5919: G_PKG_NAME
5920: )
5921: THEN
5922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5923: END IF;
5924:
5925: -- Initialize message list if p_init_msg_list is set to TRUE.
5926: IF FND_API.to_Boolean( p_init_msg_list )
5922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5923: END IF;
5924:
5925: -- Initialize message list if p_init_msg_list is set to TRUE.
5926: IF FND_API.to_Boolean( p_init_msg_list )
5927: THEN
5928: FND_MSG_PUB.initialize;
5929: END IF;
5930:
5927: THEN
5928: FND_MSG_PUB.initialize;
5929: END IF;
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
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,
5940: p_api_return_status => l_return_status,
5948: );
5949: --
5950: IF (l_return_status_1 = 'E')
5951: THEN
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 )
5951: THEN
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;
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;
6048: END IF;
6049:
6050: FND_MSG_PUB.Count_And_Get
6051: (
6052: p_count => x_msg_count,
6053: p_data => x_msg_data,
6054: p_encoded => FND_API.G_FALSE
6055: );
6056: --
6057: --
6058: IF l_debug_on THEN
6063: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
6064: FTE_FREIGHT_PRICING_UTIL.close_logs;
6065:
6066: EXCEPTION
6067: WHEN FND_API.G_EXC_ERROR THEN
6068: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_LOG_FILE_NAME');
6069: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
6070: FND_MSG_PUB.ADD;
6071:
6076: p_msg_type => 'E');
6077:
6078: --fix bug3715247
6079: --ROLLBACK TO RATE_MULTIPLE_DELIVERY;
6080: x_return_status := FND_API.G_RET_STS_ERROR;
6081: FND_MSG_PUB.Count_And_Get
6082: (
6083: p_count => x_msg_count,
6084: p_data => x_msg_data,
6081: FND_MSG_PUB.Count_And_Get
6082: (
6083: p_count => x_msg_count,
6084: p_data => x_msg_data,
6085: p_encoded => FND_API.G_FALSE
6086: );
6087: IF l_debug_on THEN
6088: WSH_DEBUG_SV.pop(l_module_name);
6089: END IF;
6086: );
6087: IF l_debug_on THEN
6088: WSH_DEBUG_SV.pop(l_module_name);
6089: END IF;
6090: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
6091: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
6092: FTE_FREIGHT_PRICING_UTIL.close_logs;
6093: --
6094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6090: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_ERROR');
6091: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
6092: FTE_FREIGHT_PRICING_UTIL.close_logs;
6093: --
6094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6095: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_LOG_FILE_NAME');
6096: FND_MESSAGE.SET_TOKEN('LOGFILE',FTE_FREIGHT_PRICING_UTIL.get_log_file_name());
6097: FND_MSG_PUB.ADD;
6098:
6108: FND_MSG_PUB.Count_And_Get
6109: (
6110: p_count => x_msg_count,
6111: p_data => x_msg_data,
6112: p_encoded => FND_API.G_FALSE
6113: );
6114: IF l_debug_on THEN
6115: WSH_DEBUG_SV.pop(l_module_name);
6116: END IF;
6113: );
6114: IF l_debug_on THEN
6115: WSH_DEBUG_SV.pop(l_module_name);
6116: END IF;
6117: FTE_FREIGHT_PRICING_UTIL.set_exception(l_module_name,FTE_FREIGHT_PRICING_UTIL.G_ERR,'FND_API.G_EXC_UNEXPECTED_ERROR');
6118: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
6119: FTE_FREIGHT_PRICING_UTIL.close_logs;
6120: --
6121: WHEN OTHERS THEN
6136: FND_MSG_PUB.Count_And_Get
6137: (
6138: p_count => x_msg_count,
6139: p_data => x_msg_data,
6140: p_encoded => FND_API.G_FALSE
6141: );
6142: IF l_debug_on THEN
6143: WSH_DEBUG_SV.pop(l_module_name);
6144: END IF;
6149: END Rate_Delivery;
6150:
6151: PROCEDURE Rate_Delivery2 (
6152: p_api_version IN NUMBER DEFAULT 1.0,
6153: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6154: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6155: x_return_status OUT NOCOPY VARCHAR2,
6156: x_msg_count OUT NOCOPY NUMBER,
6157: x_msg_data OUT NOCOPY VARCHAR2,
6150:
6151: PROCEDURE Rate_Delivery2 (
6152: p_api_version IN NUMBER DEFAULT 1.0,
6153: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6154: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
6155: x_return_status OUT NOCOPY VARCHAR2,
6156: x_msg_count OUT NOCOPY NUMBER,
6157: x_msg_data OUT NOCOPY VARCHAR2,
6158: p_init_prc_log IN VARCHAR2 DEFAULT 'Y',
6177: BEGIN
6178:
6179: SAVEPOINT RATE_DELIVERY2;
6180:
6181: IF NOT FND_API.Compatible_API_Call (
6182: l_api_version,
6183: p_api_version,
6184: l_api_name,
6185: G_PKG_NAME )
6183: p_api_version,
6184: l_api_name,
6185: G_PKG_NAME )
6186: THEN
6187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6188: END IF;
6189:
6190: IF FND_API.to_Boolean(p_init_msg_list) THEN
6191: FND_MSG_PUB.initialize;
6186: THEN
6187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6188: END IF;
6189:
6190: IF FND_API.to_Boolean(p_init_msg_list) THEN
6191: FND_MSG_PUB.initialize;
6192: END IF;
6193:
6194: IF p_init_prc_log = 'Y' THEN
6199: p_api => l_api_name,
6200: p_exc => ' ',
6201: p_msg_name => 'FTE_PRC_INIT_LOG_FL',
6202: p_msg_type => 'E');
6203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6204: END IF;
6205: END IF;
6206:
6207: FTE_FREIGHT_PRICING_UTIL.reset_dbg_vars;
6215: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_in_rec.carrier_name='||p_delivery_in_rec.carrier_name);
6216: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_in_rec.mode_of_transport='||p_delivery_in_rec.mode_of_transport);
6217: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'p_delivery_in_rec.service_level='||p_delivery_in_rec.service_level);
6218:
6219: x_return_status := FND_API.G_RET_STS_SUCCESS;
6220:
6221: -- API body
6222:
6223: -- validate delivery name and get delivery_id
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:
6234: -- validate carrier_name and get carrier_id
6235: WSH_UTIL_VALIDATE.Validate_Carrier (
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:
6245: -- validate mode_of_transport and get mode_of_transport_code
6246: l_lookup := p_delivery_in_rec.mode_of_transport;
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;
6258:
6259: -- validate service_level and get service_level_code
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;
6272:
6273: -- if delivery is on multiple trips, error out
6285: IF l_leg_count > 1 THEN
6286: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_DLV_MNY_TRP');-- todo PM new msg
6287: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_in_rec.name);
6288: FND_MSG_PUB.ADD;
6289: RAISE FND_API.G_EXC_ERROR;
6290: END IF;
6291:
6292: -- if delivery is on one trip, trip has multiple deliveries, error out
6293: OPEN c_leg_trip_det(l_leg_id);
6302: IF (l_leg_count > 1) THEN
6303: FND_MESSAGE.SET_NAME('FTE','FTE_PRC_TRP_MNY_DLV');
6304: FND_MESSAGE.SET_TOKEN('TRIP_ID', l_trip_id);
6305: FND_MSG_PUB.ADD;
6306: RAISE FND_API.G_EXC_ERROR;
6307: END IF;
6308:
6309: IF (l_carrier_id is not null) or (l_mode_of_transport is not null)
6310: or (l_service_level is not null) THEN
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);
6324: --FND_MSG_PUB.ADD;
6325: RAISE FND_API.G_EXC_ERROR;
6326: END IF;
6327:
6328: END IF;
6329:
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;
6346: RAISE FND_API.G_EXC_ERROR;
6347: END IF;
6348:
6349: -- End of API body
6350:
6347: END IF;
6348:
6349: -- End of API body
6350:
6351: IF FND_API.To_Boolean( p_commit ) THEN
6352: COMMIT WORK;
6353: END IF;
6354:
6355: FND_MSG_PUB.Count_And_Get (
6354:
6355: FND_MSG_PUB.Count_And_Get (
6356: p_count => x_msg_count,
6357: p_data => x_msg_data,
6358: p_encoded => FND_API.G_FALSE
6359: );
6360:
6361: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_return_status='||x_return_status);
6362: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_msg_count='||x_msg_count);
6367: IF p_init_prc_log = 'Y' THEN
6368: FTE_FREIGHT_PRICING_UTIL.close_logs;
6369: END IF;
6370: EXCEPTION
6371: WHEN FND_API.G_EXC_ERROR THEN
6372: ROLLBACK TO RATE_DELIVERY2;
6373: x_return_status := FND_API.G_RET_STS_ERROR;
6374: FND_MSG_PUB.Count_And_Get (
6375: p_count => x_msg_count,
6369: END IF;
6370: EXCEPTION
6371: WHEN FND_API.G_EXC_ERROR THEN
6372: ROLLBACK TO RATE_DELIVERY2;
6373: x_return_status := FND_API.G_RET_STS_ERROR;
6374: FND_MSG_PUB.Count_And_Get (
6375: p_count => x_msg_count,
6376: p_data => x_msg_data,
6377: p_encoded => FND_API.G_FALSE
6373: x_return_status := FND_API.G_RET_STS_ERROR;
6374: FND_MSG_PUB.Count_And_Get (
6375: p_count => x_msg_count,
6376: p_data => x_msg_data,
6377: p_encoded => FND_API.G_FALSE
6378: );
6379: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_return_status='||x_return_status);
6380: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_msg_count='||x_msg_count);
6381: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_msg_data='||x_msg_data);
6382: FTE_FREIGHT_PRICING_UTIL.unset_method(l_log_level,l_api_name);
6383: IF p_init_prc_log = 'Y' THEN
6384: FTE_FREIGHT_PRICING_UTIL.close_logs;
6385: END IF;
6386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6387: ROLLBACK TO RATE_DELIVERY2;
6388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6389: FND_MSG_PUB.Count_And_Get (
6390: p_count => x_msg_count,
6384: FTE_FREIGHT_PRICING_UTIL.close_logs;
6385: END IF;
6386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6387: ROLLBACK TO RATE_DELIVERY2;
6388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6389: FND_MSG_PUB.Count_And_Get (
6390: p_count => x_msg_count,
6391: p_data => x_msg_data,
6392: p_encoded => FND_API.G_FALSE
6388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6389: FND_MSG_PUB.Count_And_Get (
6390: p_count => x_msg_count,
6391: p_data => x_msg_data,
6392: p_encoded => FND_API.G_FALSE
6393: );
6394: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_return_status='||x_return_status);
6395: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_msg_count='||x_msg_count);
6396: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_msg_data='||x_msg_data);
6399: FTE_FREIGHT_PRICING_UTIL.close_logs;
6400: END IF;
6401: WHEN OTHERS THEN
6402: ROLLBACK TO RATE_DELIVERY2;
6403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6404: IF FND_MSG_PUB.Check_Msg_Level
6405: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6406: THEN
6407: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
6408: END IF;
6409: FND_MSG_PUB.Count_And_Get (
6410: p_count => x_msg_count,
6411: p_data => x_msg_data,
6412: p_encoded => FND_API.G_FALSE
6413: );
6414: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_return_status='||x_return_status);
6415: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_msg_count='||x_msg_count);
6416: FTE_FREIGHT_PRICING_UTIL.print_msg(l_log_level,'x_msg_data='||x_msg_data);