[Home] [Help]
52: --
53: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
54: END IF;
55: --
56: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
57:
58: IF (p_organization_id IS NULL) THEN
59: group_by_info := default_group_by_info;
60: --
99: x_param_info => l_shipping_params,
100: x_return_status => x_return_status);
101:
102:
103: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
104:
105: FND_MESSAGE.SET_NAME('WSH','WSH_SHP_NOT_FOUND');
106: --
107: -- Debug Statements
106: --
107: -- Debug Statements
108: --
109: IF l_debug_on THEN
110: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
111: END IF;
112: --
113: FND_MESSAGE.SET_TOKEN('ORG_NAME',wsh_util_core.get_org_name(p_organization_id));
114: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
109: IF l_debug_on THEN
110: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
111: END IF;
112: --
113: FND_MESSAGE.SET_TOKEN('ORG_NAME',wsh_util_core.get_org_name(p_organization_id));
114: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
115: wsh_util_core.add_message(x_return_status);
116: --
117: -- Debug Statements
110: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
111: END IF;
112: --
113: FND_MESSAGE.SET_TOKEN('ORG_NAME',wsh_util_core.get_org_name(p_organization_id));
114: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
115: wsh_util_core.add_message(x_return_status);
116: --
117: -- Debug Statements
118: --
111: END IF;
112: --
113: FND_MESSAGE.SET_TOKEN('ORG_NAME',wsh_util_core.get_org_name(p_organization_id));
114: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
115: wsh_util_core.add_message(x_return_status);
116: --
117: -- Debug Statements
118: --
119: IF l_debug_on THEN
144: WSH_DEBUG_SV.logmsg(l_module_name, 'group_by_info.ship_method ' || group_by_info.ship_method );
145: WSH_DEBUG_SV.logmsg(l_module_name, 'group_by_info.carrier ' || group_by_info.carrier );
146: WSH_DEBUG_SV.logmsg(l_module_name, 'group_by_info.header ' || group_by_info.header );
147: END IF;
148: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
149:
150: --
151: -- Debug Statements
152: --
164: IF l_debug_on THEN
165: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM GET_GROUP_BY_ATTR IS ' || L_ERROR_TEXT );
166: END IF;
167: --
168: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.GET_GROUP_BY_ATTR');
169: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
170:
171: --
172: -- Debug Statements
165: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM GET_GROUP_BY_ATTR IS ' || L_ERROR_TEXT );
166: END IF;
167: --
168: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.GET_GROUP_BY_ATTR');
169: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
170:
171: --
172: -- Debug Statements
173: --
564:
565:
566: END LOOP;
567:
568: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
569:
570: IF l_debug_on THEN
571: WSH_DEBUG_SV.pop(l_module_name);
572: END IF;
573:
574: EXCEPTION
575:
576: WHEN Others THEN
577: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_AUTOCREATE.Create_Hash');
578: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
579: --
580: -- Debug Statements
581: --
574: EXCEPTION
575:
576: WHEN Others THEN
577: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_AUTOCREATE.Create_Hash');
578: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
579: --
580: -- Debug Statements
581: --
582: IF l_debug_on THEN
612: --
613: IF l_debug_on THEN
614: WSH_DEBUG_SV.push(l_module_name);
615: END IF;
616: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
617:
618: l_grp_attr_tab(1).ship_to_location_id := p_delivery_rec.ultimate_dropoff_location_id;
619: l_grp_attr_tab(1).ship_from_location_id := p_delivery_rec.initial_pickup_location_id;
620: l_grp_attr_tab(1).customer_id := p_delivery_rec.customer_id;
638: p_action_code => NULL,
639: x_return_status => x_return_status);
640:
641:
642: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
643:
644: RAISE FAIL_CREATE_HASH;
645:
646: END IF;
656:
657: EXCEPTION
658:
659: WHEN FAIL_CREATE_HASH THEN
660: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
661: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_CREATE_HASH');
662: WSH_UTIL_CORE.Add_Message(x_return_status);
663: --
664: -- Debug Statements
658:
659: WHEN FAIL_CREATE_HASH THEN
660: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
661: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_CREATE_HASH');
662: WSH_UTIL_CORE.Add_Message(x_return_status);
663: --
664: -- Debug Statements
665: --
666: IF l_debug_on THEN
669: END IF;
670: --
671:
672: WHEN Others THEN
673: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_AUTOCREATE.Create_Update_Hash');
674: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
675: --
676: -- Debug Statements
677: --
670: --
671:
672: WHEN Others THEN
673: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_AUTOCREATE.Create_Update_Hash');
674: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
675: --
676: -- Debug Statements
677: --
678: IF l_debug_on THEN
724: IF l_debug_on THEN
725: WSH_DEBUG_SV.push(l_module_name);
726: END IF;
727: --
728: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
729:
730: i := p_attr_tab.FIRST;
731: WHILE i is NOT NULL LOOP
732:
943:
944:
945: EXCEPTION
946: WHEN MULTIPLE_GROUPS THEN
947: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
948: FND_MESSAGE.SET_NAME('WSH','WSH_MULTIPLE_GROUPS');
949: WSH_UTIL_CORE.Add_Message(x_return_status);
950: --
951: -- Debug Statements
945: EXCEPTION
946: WHEN MULTIPLE_GROUPS THEN
947: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
948: FND_MESSAGE.SET_NAME('WSH','WSH_MULTIPLE_GROUPS');
949: WSH_UTIL_CORE.Add_Message(x_return_status);
950: --
951: -- Debug Statements
952: --
953: IF l_debug_on THEN
956: END IF;
957: --
958:
959: WHEN Others THEN
960: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_AUTOCREATE.Create_Groups');
961: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
962: --
963: -- Debug Statements
964: --
957: --
958:
959: WHEN Others THEN
960: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_AUTOCREATE.Create_Groups');
961: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
962: --
963: -- Debug Statements
964: --
965: IF l_debug_on THEN
1002: procedure Find_Matching_Groups(p_attr_tab IN OUT NOCOPY grp_attr_tab_type,
1003: p_action_rec IN action_rec_type,
1004: p_target_rec IN grp_attr_rec_type,
1005: p_group_tab IN OUT NOCOPY grp_attr_tab_type,
1006: x_matched_entities OUT NOCOPY wsh_util_core.id_tab_type,
1007: x_out_rec OUT NOCOPY out_rec_type,
1008: x_return_status OUT NOCOPY varchar2) IS
1009:
1010: --Bug 5241742 Added organization_id in where clause for indexing
1115: l_mode_of_transport VARCHAR2(30);
1116: l_ship_method_code VARCHAR2(30); --bug 6074966
1117: l_hash_value NUMBER;
1118: l_hash_string varchar2(1000);
1119: l_matched_entities wsh_util_core.id_tab_type;
1120: l_tmp_attr_tab grp_attr_tab_type;
1121: l_check_one_group varchar2(1);
1122: l_query_string varchar2(4000);
1123:
1155: RAISE INVALID_ACTION;
1156:
1157: END IF;
1158:
1159: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1160:
1161: IF p_action_rec.action = 'MATCH_GROUPS' AND p_target_rec.entity_id is NOT NULL THEN
1162:
1163: p_attr_tab(p_attr_tab.FIRST - 1).entity_id := p_target_rec.entity_id;
1198: p_container_instance_id => p_attr_tab(p_attr_tab.FIRST).entity_id,
1199: x_empty_flag => l_empty_container,
1200: x_return_status => x_return_status);
1201:
1202: IF x_return_status <> wsh_util_core.g_ret_sts_success THEN
1203: RAISE fnd_api.g_exc_error;
1204: END IF;
1205:
1206: IF l_debug_on THEN
1222: p_group_by_header => p_action_rec.group_by_header_flag,
1223: p_action_code => p_action_rec.action,
1224: x_return_status => x_return_status);
1225:
1226: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1227:
1228: RAISE FAIL_CREATE_HASH;
1229:
1230: END IF;
1247: p_check_one_group => l_check_one_group,
1248: p_action_code => p_action_rec.action,
1249: x_return_status => x_return_status);
1250:
1251: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1252:
1253: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1254:
1255: IF p_action_rec.check_single_grp = 'Y' THEN
1249: x_return_status => x_return_status);
1250:
1251: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1252:
1253: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1254:
1255: IF p_action_rec.check_single_grp = 'Y' THEN
1256:
1257: -- We need to check only if the records can be grouped together.
1377:
1378: FORALL i IN 1..l_matched_entities.count
1379: INSERT INTO wsh_tmp (id) VALUES(l_matched_entities(i));
1380:
1381: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1382:
1383: IF l_debug_on THEN
1384: WSH_DEBUG_SV.pop(l_module_name);
1385: END IF;
1391:
1392: x_matched_entities := l_matched_entities;
1393:
1394:
1395: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1396:
1397: IF l_debug_on THEN
1398: WSH_DEBUG_SV.pop(l_module_name);
1399: END IF;
1445: x_out_rec.bind_service_level := l_service_level;
1446: x_out_rec.bind_mode_of_transport := l_mode_of_transport;
1447: x_out_rec.bind_ship_method_code := l_ship_method_code;
1448:
1449: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1450:
1451: IF l_debug_on THEN
1452: WSH_DEBUG_SV.pop(l_module_name);
1453: END IF;
1472: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
1473: END IF;
1474: --
1475: WHEN DELIVERY_NOT_MATCH THEN
1476: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1477: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_NOT_MATCH');
1478: WSH_UTIL_CORE.Add_Message(x_return_status);
1479: --
1480: -- Debug Statements
1474: --
1475: WHEN DELIVERY_NOT_MATCH THEN
1476: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1477: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_NOT_MATCH');
1478: WSH_UTIL_CORE.Add_Message(x_return_status);
1479: --
1480: -- Debug Statements
1481: --
1482: IF l_debug_on THEN
1484: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_NOT_MATCH');
1485: END IF;
1486: --
1487: WHEN FAIL_CREATE_GROUP THEN
1488: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1489: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_CREATE_GROUP');
1490: WSH_UTIL_CORE.Add_Message(x_return_status);
1491: --
1492: -- Debug Statements
1486: --
1487: WHEN FAIL_CREATE_GROUP THEN
1488: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1489: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_CREATE_GROUP');
1490: WSH_UTIL_CORE.Add_Message(x_return_status);
1491: --
1492: -- Debug Statements
1493: --
1494: IF l_debug_on THEN
1496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FAIL_CREATE_GROUP');
1497: END IF;
1498: --
1499: WHEN FAIL_CREATE_HASH THEN
1500: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1501: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_CREATE_HASH');
1502: WSH_UTIL_CORE.Add_Message(x_return_status);
1503: --
1504: -- Debug Statements
1498: --
1499: WHEN FAIL_CREATE_HASH THEN
1500: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1501: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_CREATE_HASH');
1502: WSH_UTIL_CORE.Add_Message(x_return_status);
1503: --
1504: -- Debug Statements
1505: --
1506: IF l_debug_on THEN
1510: END IF;
1511: --
1512:
1513: WHEN Others THEN
1514: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
1515: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1516:
1517: IF c_matching_deliveries%ISOPEN THEN
1518: CLOSE c_matching_deliveries;
1511: --
1512:
1513: WHEN Others THEN
1514: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_AUTOCREATE.Find_Matching_Groups');
1515: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1516:
1517: IF c_matching_deliveries%ISOPEN THEN
1518: CLOSE c_matching_deliveries;
1519: END IF;
1667: IF l_debug_on IS NULL THEN
1668: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1669: END IF;
1670:
1671: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1672:
1673: IF l_debug_on THEN
1674: WSH_DEBUG_SV.push(l_module_name);
1675: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.CREATE_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
1674: WSH_DEBUG_SV.push(l_module_name);
1675: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.CREATE_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
1676: END IF;
1677: WSH_NEW_DELIVERIES_PVT.Create_Delivery(p_delivery_info, x_rowid, x_delivery_id, x_delivery_name, x_return_status);
1678: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_NEW_DELIVERIES_PVT.CREATE_DELIVERY ');
1681: END IF;
1682: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1678: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_NEW_DELIVERIES_PVT.CREATE_DELIVERY ');
1681: END IF;
1682: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1683: IF l_debug_on THEN
1684: WSH_DEBUG_SV.logmsg(l_module_name,'PROC WSH_NEW_DELIVERIES_PVT.CREATE_DELIVERY RETURNED UNEXPECTED ERROR');
1685: END IF;
1686: RAISE OTHERS;
1705: (p_table_name => 'WSH_NEW_DELIVERIES',
1706: p_primary_id => x_delivery_id,
1707: x_return_status => x_return_status);
1708:
1709: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1710: IF l_debug_on THEN
1711: WSH_DEBUG_SV.logmsg(l_module_name, 'PROC WSH_FLEXFIELD_UTILS.WRITE_DFF_ATTRIBUTES RETURNED ERROR' );
1712: WSH_DEBUG_SV.pop(l_module_name);
1713: END IF;
1718: IF l_debug_on THEN
1719: WSH_DEBUG_SV.log(l_module_name,'Autonomous Return status ', x_return_status);
1720: END IF;
1721:
1722: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1723: COMMIT;
1724: ELSE
1725: ROLLBACK;
1726: END IF;
1730: END IF;
1731:
1732: EXCEPTION
1733: WHEN OTHERS THEN
1734: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.AUTONOMOUS_CREATE_DELIVERY');
1735: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1736: IF l_debug_on THEN
1737: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1738: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1731:
1732: EXCEPTION
1733: WHEN OTHERS THEN
1734: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.AUTONOMOUS_CREATE_DELIVERY');
1735: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1736: IF l_debug_on THEN
1737: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1738: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1739: END IF;
1762: -- x_return_status - Status of execution
1763: --------------------------------------------------------------------------
1764:
1765: PROCEDURE autocreate_deliveries(
1766: p_line_rows IN wsh_util_core.id_tab_type,
1767: p_init_flag IN VARCHAR2,
1768: p_pick_release_flag IN VARCHAR2,
1769: p_container_flag IN VARCHAR2 := 'N',
1770: p_check_flag IN VARCHAR2 := 'N',
1770: p_check_flag IN VARCHAR2 := 'N',
1771: p_caller IN VARCHAR2 DEFAULT NULL,
1772: p_generate_carton_group_id IN VARCHAR2 := 'N',
1773: p_max_detail_commit IN NUMBER := 1000,
1774: x_del_rows OUT NOCOPY wsh_util_core.id_tab_type,
1775: x_grouping_rows OUT NOCOPY wsh_util_core.id_tab_type,
1776: x_return_status OUT NOCOPY VARCHAR2 ) IS
1777:
1778:
1771: p_caller IN VARCHAR2 DEFAULT NULL,
1772: p_generate_carton_group_id IN VARCHAR2 := 'N',
1773: p_max_detail_commit IN NUMBER := 1000,
1774: x_del_rows OUT NOCOPY wsh_util_core.id_tab_type,
1775: x_grouping_rows OUT NOCOPY wsh_util_core.id_tab_type,
1776: x_return_status OUT NOCOPY VARCHAR2 ) IS
1777:
1778:
1779: /* Bug 3206620 : cursor to get the container flag of the delivery detail*/
1835:
1836: l_attr_tab wsh_delivery_autocreate.grp_attr_tab_type;
1837: l_action_rec wsh_delivery_autocreate.action_rec_type;
1838: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
1839: l_matched_entities wsh_util_core.id_tab_type;
1840: l_out_rec wsh_delivery_autocreate.out_rec_type;
1841: l_del_select_carrier wsh_util_core.id_tab_type;
1842: l_del_rate wsh_util_core.id_tab_type;
1843: l_del_rate_location wsh_util_core.id_tab_type;
1837: l_action_rec wsh_delivery_autocreate.action_rec_type;
1838: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
1839: l_matched_entities wsh_util_core.id_tab_type;
1840: l_out_rec wsh_delivery_autocreate.out_rec_type;
1841: l_del_select_carrier wsh_util_core.id_tab_type;
1842: l_del_rate wsh_util_core.id_tab_type;
1843: l_del_rate_location wsh_util_core.id_tab_type;
1844:
1845: l_delivery_tab wsh_util_core.id_tab_type;
1838: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
1839: l_matched_entities wsh_util_core.id_tab_type;
1840: l_out_rec wsh_delivery_autocreate.out_rec_type;
1841: l_del_select_carrier wsh_util_core.id_tab_type;
1842: l_del_rate wsh_util_core.id_tab_type;
1843: l_del_rate_location wsh_util_core.id_tab_type;
1844:
1845: l_delivery_tab wsh_util_core.id_tab_type;
1846: l_delivery_rows wsh_util_core.id_tab_type;
1839: l_matched_entities wsh_util_core.id_tab_type;
1840: l_out_rec wsh_delivery_autocreate.out_rec_type;
1841: l_del_select_carrier wsh_util_core.id_tab_type;
1842: l_del_rate wsh_util_core.id_tab_type;
1843: l_del_rate_location wsh_util_core.id_tab_type;
1844:
1845: l_delivery_tab wsh_util_core.id_tab_type;
1846: l_delivery_rows wsh_util_core.id_tab_type;
1847: j NUMBER;
1841: l_del_select_carrier wsh_util_core.id_tab_type;
1842: l_del_rate wsh_util_core.id_tab_type;
1843: l_del_rate_location wsh_util_core.id_tab_type;
1844:
1845: l_delivery_tab wsh_util_core.id_tab_type;
1846: l_delivery_rows wsh_util_core.id_tab_type;
1847: j NUMBER;
1848:
1849: l_exception_id NUMBER;
1842: l_del_rate wsh_util_core.id_tab_type;
1843: l_del_rate_location wsh_util_core.id_tab_type;
1844:
1845: l_delivery_tab wsh_util_core.id_tab_type;
1846: l_delivery_rows wsh_util_core.id_tab_type;
1847: j NUMBER;
1848:
1849: l_exception_id NUMBER;
1850: l_exception_message VARCHAR2(2000);
1901: WSH_DEBUG_SV.log(l_module_name,'P_MAX_DETAIL_COMMIT',P_MAX_DETAIL_COMMIT);
1902: WSH_DEBUG_SV.log(l_module_name,'P_CALLER', P_CALLER);
1903: END IF;
1904: --
1905: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1906:
1907:
1908: IF (p_line_rows.count = 0) THEN
1909: IF l_debug_on THEN
1941: x_matched_entities => l_matched_entities,
1942: x_out_rec => l_out_rec,
1943: x_return_status => x_return_status);
1944:
1945: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1946: raise e_return_excp;
1947: END IF;
1948:
1949: IF l_debug_on THEN
1982: WSH_CONTAINER_UTILITIES.Is_Empty (p_container_instance_id => l_attr_tab(i).entity_id,
1983: x_empty_flag => l_detail_is_empty_cont,
1984: x_return_status => l_return_status);
1985:
1986: IF (l_return_status IN(WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1987: x_return_status := l_return_status;
1988: wsh_util_core.add_message(x_return_status);
1989: IF l_debug_on THEN
1990: WSH_DEBUG_SV.logmsg(l_module_name,'Error returned from WSH_CONTAINER_UTILITIES.Is_Empty');
1984: x_return_status => l_return_status);
1985:
1986: IF (l_return_status IN(WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1987: x_return_status := l_return_status;
1988: wsh_util_core.add_message(x_return_status);
1989: IF l_debug_on THEN
1990: WSH_DEBUG_SV.logmsg(l_module_name,'Error returned from WSH_CONTAINER_UTILITIES.Is_Empty');
1991: END IF;
1992: raise e_return_excp; -- LPN CONV. rv
1997: END IF;
1998:
1999: IF l_detail_is_empty_cont = 'Y' then
2000: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_EMPTY');
2001: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2002: wsh_util_core.add_message(x_return_status);
2003: IF l_debug_on THEN
2004: WSH_DEBUG_SV.logmsg(l_module_name, 'container empty,autocreate delivery not allowed');
2005: WSH_DEBUG_SV.pop(l_module_name);
1998:
1999: IF l_detail_is_empty_cont = 'Y' then
2000: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_EMPTY');
2001: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2002: wsh_util_core.add_message(x_return_status);
2003: IF l_debug_on THEN
2004: WSH_DEBUG_SV.logmsg(l_module_name, 'container empty,autocreate delivery not allowed');
2005: WSH_DEBUG_SV.pop(l_module_name);
2006: END IF;
2007: raise e_return_excp; -- LPN CONV. rv
2008: ELSE
2009: FND_MESSAGE.SET_NAME('WSH','WSH_ULT_DROPOFF_LOC_ID_NOT_FND');
2010: FND_MESSAGE.SET_TOKEN('LINE_LPN_ID',l_line_lpn_id);
2011: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2012: wsh_util_core.add_message(x_return_status);
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIPTO LOCATION NOT FOUND FOR '||P_LINE_ROWS ( I ) );
2015: END IF;
2008: ELSE
2009: FND_MESSAGE.SET_NAME('WSH','WSH_ULT_DROPOFF_LOC_ID_NOT_FND');
2010: FND_MESSAGE.SET_TOKEN('LINE_LPN_ID',l_line_lpn_id);
2011: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2012: wsh_util_core.add_message(x_return_status);
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIPTO LOCATION NOT FOUND FOR '||P_LINE_ROWS ( I ) );
2015: END IF;
2016: raise e_return_excp; -- LPN CONV. rv
2017: END IF;
2018: ELSE
2019: FND_MESSAGE.SET_NAME('WSH','WSH_ULT_DROPOFF_LOC_ID_NOT_FND');
2020: FND_MESSAGE.SET_TOKEN('LINE_LPN_ID',l_line_lpn_id);
2021: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2022: wsh_util_core.add_message(x_return_status);
2023: IF l_debug_on THEN
2024: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIPTO LOCATION NOT FOUND FOR '||P_LINE_ROWS ( I ) );
2025: END IF;
2018: ELSE
2019: FND_MESSAGE.SET_NAME('WSH','WSH_ULT_DROPOFF_LOC_ID_NOT_FND');
2020: FND_MESSAGE.SET_TOKEN('LINE_LPN_ID',l_line_lpn_id);
2021: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2022: wsh_util_core.add_message(x_return_status);
2023: IF l_debug_on THEN
2024: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIPTO LOCATION NOT FOUND FOR '||P_LINE_ROWS ( I ) );
2025: END IF;
2026: raise e_return_excp; -- LPN CONV. rv
2038: --
2039: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_ASSIGNED_DEL');
2040: FND_MESSAGE.SET_TOKEN('DET_NAME', l_attr_tab(i).entity_id);
2041: FND_MESSAGE.SET_TOKEN('DEL_NAME', WSH_NEW_DELIVERIES_PVT.get_name(l_attr_tab(i).DELIVERY_ID));
2042: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
2043:
2044: l_assigned_flag := 'Y';
2045:
2046: ELSE --{ not assigned
2157: END IF;
2158: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2159: l_lock_handle := NULL;
2160:
2161: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2162: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2163: raise others;
2164: ELSE
2165: IF l_debug_on THEN
2158: l_lock_status := DBMS_LOCK.Release(l_lock_handle);
2159: l_lock_handle := NULL;
2160:
2161: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2162: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2163: raise others;
2164: ELSE
2165: IF l_debug_on THEN
2166: WSH_DEBUG_SV.logmsg(l_module_name, 'PROC WSH_DELIVERY_AUTOCREATE.Autonomous_Create_Delivery RETURNED ERROR');
2187: -- Any other problems in acquiring the lock,
2188: -- raise error and return
2189: -- This can happen only if there's a timeout issue
2190: -- or unexpected error
2191: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2192: IF l_debug_on THEN
2193: WSH_DEBUG_SV.logmsg(l_module_name, 'Error when trying to acquire User Lock, Lock Status :'||l_lock_status );
2194: END IF;
2195: raise e_return_excp;
2200: IF l_debug_on THEN
2201: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.CREATE_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2202: END IF;
2203: wsh_new_deliveries_pvt.create_delivery(l_delivery_info, l_rowid, l_delivery_id, l_delivery_name, x_return_status);
2204: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2205: IF l_debug_on THEN
2206: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_NEW_DELIVERIES_PVT.CREATE_DELIVERY FOR '||P_LINE_ROWS ( I ) );
2207: END IF;
2208: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2204: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2205: IF l_debug_on THEN
2206: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_NEW_DELIVERIES_PVT.CREATE_DELIVERY FOR '||P_LINE_ROWS ( I ) );
2207: END IF;
2208: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2209: IF l_debug_on THEN
2210: WSH_DEBUG_SV.logmsg(l_module_name,'PROC WSH_NEW_DELIVERIES_PVT.CREATE_DELIVERY RETURNED UNEXPECTED ERROR');
2211: END IF;
2212: raise others;
2231: (p_table_name => 'WSH_NEW_DELIVERIES',
2232: p_primary_id => l_delivery_id,
2233: x_return_status => x_return_status);
2234:
2235: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2236: IF l_debug_on THEN
2237: WSH_DEBUG_SV.logmsg(l_module_name, 'PROC WSH_FLEXFIELD_UTILS.WRITE_DFF_ATTRIBUTES RETURNED ERROR' );
2238: END IF;
2239: raise e_return_excp;
2260: -- Only modification is to add message. Since there was no code
2261: -- to exit or return after
2262: -- call to the above procedure, leaving that behavior the same.
2263:
2264: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2265: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARAM_NOT_DEFINED');
2266: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2267: wsh_util_core.get_org_name(l_delivery_info.organization_id));
2268: wsh_util_core.add_message(l_return_status,l_module_name);
2263:
2264: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2265: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARAM_NOT_DEFINED');
2266: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2267: wsh_util_core.get_org_name(l_delivery_info.organization_id));
2268: wsh_util_core.add_message(l_return_status,l_module_name);
2269: END IF;
2270:
2271: --
2264: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2265: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARAM_NOT_DEFINED');
2266: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2267: wsh_util_core.get_org_name(l_delivery_info.organization_id));
2268: wsh_util_core.add_message(l_return_status,l_module_name);
2269: END IF;
2270:
2271: --
2272: -- ITM Check is required only for outbound lines
2290: IF l_debug_on THEN
2291: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',l_return_status);
2292: END IF;
2293:
2294: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2295: x_return_status := l_return_status;
2296: raise e_return_excp; -- LPN CONV. rv
2297: END IF;
2298:
2308: IF l_debug_on THEN
2309: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception',l_return_status);
2310: END IF;
2311:
2312: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2313: x_return_status := l_return_status;
2314: raise e_return_excp; -- LPN CONV. rv
2315: END IF;
2316: END IF;
2362: x_return_status => x_return_status,
2363: p_caller => 'AUTOCREATE'); --bug 5100229
2364:
2365:
2366: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2367: IF l_debug_on THEN
2368: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_DELIVERY FOR '||P_LINE_ROWS ( I ) || ' TO '||L_DELIVERY_ID );
2369: END IF;
2370: --
2367: IF l_debug_on THEN
2368: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_DELIVERY FOR '||P_LINE_ROWS ( I ) || ' TO '||L_DELIVERY_ID );
2369: END IF;
2370: --
2371: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2372: IF l_debug_on THEN
2373: WSH_DEBUG_SV.logmsg(l_module_name, 'PROC WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_DELIVERY RETURNED UNEXPECTED ERROR' );
2374: END IF;
2375: --
2390: END LOOP;
2391:
2392:
2393: IF (l_assigned_flag = 'Y') THEN
2394: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2395: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2396: ELSE
2397: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2398: END IF;
2391:
2392:
2393: IF (l_assigned_flag = 'Y') THEN
2394: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2395: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2396: ELSE
2397: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2398: END IF;
2399: END IF;
2393: IF (l_assigned_flag = 'Y') THEN
2394: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2395: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2396: ELSE
2397: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2398: END IF;
2399: END IF;
2400:
2401: IF (l_group_info.count = 0) THEN
2410: wsh_tp_release.calculate_cont_del_tpdates(
2411: p_entity => 'DLVY',
2412: p_entity_ids => l_delivery_rows,
2413: x_return_status => l_return_status);
2414: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2415: raise others;
2416: ELSIF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR , WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2417: l_warn_num := l_warn_num + 1;
2418: END IF;
2412: p_entity_ids => l_delivery_rows,
2413: x_return_status => l_return_status);
2414: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2415: raise others;
2416: ELSIF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR , WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2417: l_warn_num := l_warn_num + 1;
2418: END IF;
2419: -- Bug 4658241 end
2420:
2434: -- [BUG: 2301717] added check to IF statement below to ensure that
2435: -- a table of deliveries is populated with at least one delivery so
2436: -- that processing can be done correctly
2437: --
2438: l_check_fte_inst := WSH_UTIL_CORE.FTE_Is_Installed;
2439: IF (l_check_fte_inst = 'Y') THEN
2440:
2441: IF ((WSH_PICK_LIST.G_BATCH_ID is null) AND
2442: (l_delivery_rows.COUNT > 0) AND l_del_select_carrier.count > 0 ) THEN
2460: p_caller => l_caller,
2461: x_return_message => l_error_text,
2462: x_return_status => l_return_status);
2463:
2464: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2465: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2466: raise others;
2467: ELSE
2468: IF l_debug_on THEN
2461: x_return_message => l_error_text,
2462: x_return_status => l_return_status);
2463:
2464: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2465: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2466: raise others;
2467: ELSE
2468: IF l_debug_on THEN
2469: WSH_DEBUG_SV.log(l_module_name, 'Return status from WSH_NEW_DELIVERY_ACTIONS.Process_Carrier_Selection', l_return_status );
2503: IF l_debug_on THEN
2504: wsh_debug_sv.log(l_module_name,'Return Status from WSH_FTE_INTEGRATION.Rate_Delivery' ,l_return_status);
2505: END IF;
2506:
2507: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2508: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2509: raise others;
2510: ELSE
2511: i := l_out_param_rec.failed_delivery_id_list.FIRST;
2504: wsh_debug_sv.log(l_module_name,'Return Status from WSH_FTE_INTEGRATION.Rate_Delivery' ,l_return_status);
2505: END IF;
2506:
2507: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2508: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2509: raise others;
2510: ELSE
2511: i := l_out_param_rec.failed_delivery_id_list.FIRST;
2512: WHILE i is not NULL LOOP
2512: WHILE i is not NULL LOOP
2513:
2514: FND_MESSAGE.SET_NAME('WSH', 'WSH_RATE_CREATE_DEL');
2515: FND_MESSAGE.SET_TOKEN('DELIVERY_ID' , to_char(l_out_param_rec.failed_delivery_id_list(i)));
2516: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
2517:
2518: FND_MESSAGE.SET_NAME('WSH', 'WSH_RATE_CREATE_DEL');
2519: FND_MESSAGE.SET_TOKEN('DELIVERY_ID' , to_char(l_out_param_rec.failed_delivery_id_list(i)));
2520: l_exception_message := FND_MESSAGE.Get;
2560: IF l_debug_on THEN
2561: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
2562: END IF;
2563: --
2564: WSH_UTIL_CORE.API_POST_CALL
2565: (
2566: p_return_status => l_return_status,
2567: x_num_warnings => l_warn_num,
2568: x_num_errors => l_error_num,
2574: --
2575:
2576: x_del_rows := l_delivery_rows;
2577: IF l_error_num > 0 THEN -- LPN CONV. rv
2578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2579: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS
2580: AND l_warn_num > 0 THEN
2581: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
2582: END IF;
2575:
2576: x_del_rows := l_delivery_rows;
2577: IF l_error_num > 0 THEN -- LPN CONV. rv
2578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2579: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS
2580: AND l_warn_num > 0 THEN
2581: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
2582: END IF;
2583:
2577: IF l_error_num > 0 THEN -- LPN CONV. rv
2578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2579: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS
2580: AND l_warn_num > 0 THEN
2581: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
2582: END IF;
2583:
2584: IF l_debug_on THEN
2585: WSH_DEBUG_SV.log(l_module_name, 'Return status from WSH_DELIVERY_AUTOCREATE.autocreate_deliveries', x_return_status);
2592: -- LPN CONV. rv
2593: WHEN e_return_excp THEN
2594: --
2595: FND_MESSAGE.SET_NAME('WSH','WSH_AUTOCREATE_DEL_ERROR');
2596: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2597: wsh_util_core.add_message(x_return_status);
2598: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y' THEN
2599: --{
2600: --
2593: WHEN e_return_excp THEN
2594: --
2595: FND_MESSAGE.SET_NAME('WSH','WSH_AUTOCREATE_DEL_ERROR');
2596: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2597: wsh_util_core.add_message(x_return_status);
2598: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y' THEN
2599: --{
2600: --
2601: IF l_debug_on THEN
2612: IF l_debug_on THEN
2613: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
2614: WSH_DEBUG_SV.pop(l_module_name);
2615: END IF;
2616: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2617: x_return_status := l_return_status;
2618: END IF;
2619: --}
2620: END IF;
2632: END IF;
2633:
2634: WHEN cannot_autocreate_del THEN
2635: FND_MESSAGE.SET_NAME('WSH','WSH_AUTOCREATE_DEL_ERROR');
2636: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2637: wsh_util_core.add_message(x_return_status);
2638: --
2639: -- LPN CONV. rv
2640: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y' THEN
2633:
2634: WHEN cannot_autocreate_del THEN
2635: FND_MESSAGE.SET_NAME('WSH','WSH_AUTOCREATE_DEL_ERROR');
2636: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2637: wsh_util_core.add_message(x_return_status);
2638: --
2639: -- LPN CONV. rv
2640: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y' THEN
2641: --{
2652: --
2653: IF l_debug_on THEN
2654: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
2655: END IF;
2656: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2657: x_return_status := l_return_status;
2658: END IF;
2659: --
2660: --}
2718: IF l_debug_on THEN
2719: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES IS ' || L_ERROR_TEXT );
2720: END IF;
2721: --
2722: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES');
2723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2724:
2725: IF l_debug_on THEN
2726: WSH_DEBUG_SV.pop(l_module_name);
2719: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES IS ' || L_ERROR_TEXT );
2720: END IF;
2721: --
2722: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES');
2723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2724:
2725: IF l_debug_on THEN
2726: WSH_DEBUG_SV.pop(l_module_name);
2727: END IF;
2751: -- x_return_status - Status of execution
2752: --------------------------------------------------------------------------
2753:
2754: PROCEDURE autocreate_del_across_orgs(
2755: p_line_rows IN wsh_util_core.id_tab_type,
2756: p_org_rows IN wsh_util_core.id_tab_type,
2757: p_container_flag IN VARCHAR2 := 'N',
2758: p_check_flag IN VARCHAR2 := 'N',
2759: p_caller IN VARCHAR2 DEFAULT NULL,
2752: --------------------------------------------------------------------------
2753:
2754: PROCEDURE autocreate_del_across_orgs(
2755: p_line_rows IN wsh_util_core.id_tab_type,
2756: p_org_rows IN wsh_util_core.id_tab_type,
2757: p_container_flag IN VARCHAR2 := 'N',
2758: p_check_flag IN VARCHAR2 := 'N',
2759: p_caller IN VARCHAR2 DEFAULT NULL,
2760: p_max_detail_commit IN NUMBER := 1000,
2758: p_check_flag IN VARCHAR2 := 'N',
2759: p_caller IN VARCHAR2 DEFAULT NULL,
2760: p_max_detail_commit IN NUMBER := 1000,
2761: p_group_by_header_flag IN VARCHAR2 DEFAULT NULL,
2762: x_del_rows OUT NOCOPY wsh_util_core.id_tab_type,
2763: x_grouping_rows OUT NOCOPY wsh_util_core.id_tab_type,
2764: x_return_status OUT NOCOPY VARCHAR2 ) IS
2765:
2766: lower_bound NUMBER;
2759: p_caller IN VARCHAR2 DEFAULT NULL,
2760: p_max_detail_commit IN NUMBER := 1000,
2761: p_group_by_header_flag IN VARCHAR2 DEFAULT NULL,
2762: x_del_rows OUT NOCOPY wsh_util_core.id_tab_type,
2763: x_grouping_rows OUT NOCOPY wsh_util_core.id_tab_type,
2764: x_return_status OUT NOCOPY VARCHAR2 ) IS
2765:
2766: lower_bound NUMBER;
2767: upper_bound NUMBER;
2775: t_line_warehouse_id line_org_rec_type;
2776:
2777: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2778:
2779: temp_ids wsh_util_core.id_tab_type;
2780: curr_warehouse_id NUMBER;
2781:
2782: l_count NUMBER;
2783: l_prev_count NUMBER;
2781:
2782: l_count NUMBER;
2783: l_prev_count NUMBER;
2784: delcount NUMBER;
2785: l_del_rows wsh_util_core.id_tab_type;
2786: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2787: l_warn_num NUMBER := 0;
2788: --BUG 3379499
2789: l_err_num NUMBER := 0;
2782: l_count NUMBER;
2783: l_prev_count NUMBER;
2784: delcount NUMBER;
2785: l_del_rows wsh_util_core.id_tab_type;
2786: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2787: l_warn_num NUMBER := 0;
2788: --BUG 3379499
2789: l_err_num NUMBER := 0;
2790: l_ac_dlvy_count NUMBER := 0;
2817: WSH_DEBUG_SV.log(l_module_name,'P_MAX_DETAIL_COMMIT',P_MAX_DETAIL_COMMIT);
2818: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
2819: END IF;
2820: --
2821: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2822:
2823: IF (p_line_rows.count = 0) THEN
2824: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2825: fnd_message.SET_name('WSH', 'WSH_NOT_ELIGIBLE_DELIVERIES');
2820: --
2821: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2822:
2823: IF (p_line_rows.count = 0) THEN
2824: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2825: fnd_message.SET_name('WSH', 'WSH_NOT_ELIGIBLE_DELIVERIES');
2826: wsh_util_core.add_message(x_return_status);
2827: --
2828: -- Debug Statements
2822:
2823: IF (p_line_rows.count = 0) THEN
2824: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2825: fnd_message.SET_name('WSH', 'WSH_NOT_ELIGIBLE_DELIVERIES');
2826: wsh_util_core.add_message(x_return_status);
2827: --
2828: -- Debug Statements
2829: --
2830: IF l_debug_on THEN
2880: Only modification is to add message. Since there was no code to exit or return after
2881: call to the above procedure, leaving that behavior the same.
2882: */
2883:
2884: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2885: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARAM_NOT_DEFINED');
2886: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2887: wsh_util_core.get_org_name(curr_warehouse_id));
2888: wsh_util_core.add_message(x_return_status,l_module_name);
2883:
2884: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2885: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARAM_NOT_DEFINED');
2886: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2887: wsh_util_core.get_org_name(curr_warehouse_id));
2888: wsh_util_core.add_message(x_return_status,l_module_name);
2889: END IF;
2890:
2891:
2884: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2885: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARAM_NOT_DEFINED');
2886: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2887: wsh_util_core.get_org_name(curr_warehouse_id));
2888: wsh_util_core.add_message(x_return_status,l_module_name);
2889: END IF;
2890:
2891:
2892: -- Process Deliveries change, use set up from shipping parameter only if
2920: FOR delcount IN 1..l_count LOOP
2921: x_del_rows(l_prev_count+delcount):=l_del_rows(delcount);
2922: END LOOP;
2923:
2924: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2925: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2926: raise others;
2927: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2928: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
2921: x_del_rows(l_prev_count+delcount):=l_del_rows(delcount);
2922: END LOOP;
2923:
2924: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2925: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2926: raise others;
2927: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2928: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
2929: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2923:
2924: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2925: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2926: raise others;
2927: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2928: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
2929: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2930: wsh_util_core.get_org_name(curr_warehouse_id));
2931: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2926: raise others;
2927: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2928: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
2929: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2930: wsh_util_core.get_org_name(curr_warehouse_id));
2931: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2932: --BUG 3379499
2933: --Keep count of errors
2934: l_err_num := l_err_num + 1;
2927: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2928: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
2929: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2930: wsh_util_core.get_org_name(curr_warehouse_id));
2931: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2932: --BUG 3379499
2933: --Keep count of errors
2934: l_err_num := l_err_num + 1;
2935: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2931: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
2932: --BUG 3379499
2933: --Keep count of errors
2934: l_err_num := l_err_num + 1;
2935: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2936: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_WRN');
2937: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2938: wsh_util_core.get_org_name(curr_warehouse_id));
2939: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2934: l_err_num := l_err_num + 1;
2935: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2936: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_WRN');
2937: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2938: wsh_util_core.get_org_name(curr_warehouse_id));
2939: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2940: l_warn_num := l_warn_num + 1;
2941: END IF;
2942: END IF;
2935: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2936: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_WRN');
2937: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2938: wsh_util_core.get_org_name(curr_warehouse_id));
2939: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2940: l_warn_num := l_warn_num + 1;
2941: END IF;
2942: END IF;
2943: -- Bug 4658241
2944: /*wsh_tp_release.calculate_cont_del_tpdates(
2945: p_entity => 'DLVY',
2946: p_entity_ids => x_del_rows,
2947: x_return_status => l_return_status);
2948: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2949: raise others;
2950: ELSIF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR , WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2951: l_warn_num := l_warn_num + 1;
2952: END IF; */
2946: p_entity_ids => x_del_rows,
2947: x_return_status => l_return_status);
2948: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2949: raise others;
2950: ELSIF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR , WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2951: l_warn_num := l_warn_num + 1;
2952: END IF; */
2953: -- Bug 4658241 end
2954: temp_ids.delete;
2969: Only modification is to add message. Since there was no code to exit or return after
2970: call to the above procedure, leaving that behavior the same.
2971: */
2972:
2973: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2974: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARAM_NOT_DEFINED');
2975: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2976: wsh_util_core.get_org_name(curr_warehouse_id));
2977: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2972:
2973: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2974: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARAM_NOT_DEFINED');
2975: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2976: wsh_util_core.get_org_name(curr_warehouse_id));
2977: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2978: l_warn_num := l_warn_num + 1;
2979: END IF;
2980:
2973: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2974: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARAM_NOT_DEFINED');
2975: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
2976: wsh_util_core.get_org_name(curr_warehouse_id));
2977: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2978: l_warn_num := l_warn_num + 1;
2979: END IF;
2980:
2981: -- Process Deliveries change, use set up from shipping parameter only if
3007: FOR delcount IN 1..l_count LOOP
3008: x_del_rows(l_prev_count+delcount):=l_del_rows(delcount);
3009: END LOOP;
3010:
3011: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3012: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3013: raise others;
3014: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3015: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
3008: x_del_rows(l_prev_count+delcount):=l_del_rows(delcount);
3009: END LOOP;
3010:
3011: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3012: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3013: raise others;
3014: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3015: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
3016: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
3010:
3011: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3012: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3013: raise others;
3014: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3015: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
3016: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
3017: wsh_util_core.get_org_name(curr_warehouse_id));
3018: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
3013: raise others;
3014: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3015: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
3016: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
3017: wsh_util_core.get_org_name(curr_warehouse_id));
3018: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
3019: --BUG 3379499
3020: --Keep count of errors
3021: l_err_num := l_err_num + 1;
3014: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3015: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_ERR');
3016: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
3017: wsh_util_core.get_org_name(curr_warehouse_id));
3018: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
3019: --BUG 3379499
3020: --Keep count of errors
3021: l_err_num := l_err_num + 1;
3022: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3018: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
3019: --BUG 3379499
3020: --Keep count of errors
3021: l_err_num := l_err_num + 1;
3022: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3023: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_WRN');
3024: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
3025: wsh_util_core.get_org_name(curr_warehouse_id));
3026: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3021: l_err_num := l_err_num + 1;
3022: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3023: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_WRN');
3024: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
3025: wsh_util_core.get_org_name(curr_warehouse_id));
3026: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3027: l_warn_num := l_warn_num + 1;
3028: END IF;
3029: END IF;
3022: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3023: FND_MESSAGE.SET_NAME('WSH', 'WSH_AUTOCREATE_DEL_ORG_WRN');
3024: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',
3025: wsh_util_core.get_org_name(curr_warehouse_id));
3026: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
3027: l_warn_num := l_warn_num + 1;
3028: END IF;
3029: END IF;
3030:
3033: /*wsh_tp_release.calculate_cont_del_tpdates(
3034: p_entity => 'DLVY',
3035: p_entity_ids => x_del_rows,
3036: x_return_status => l_return_status);
3037: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3038: raise others;
3039: ELSIF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR , WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3040: l_warn_num := l_warn_num + 1;
3041: END IF; */
3035: p_entity_ids => x_del_rows,
3036: x_return_status => l_return_status);
3037: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3038: raise others;
3039: ELSIF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR , WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3040: l_warn_num := l_warn_num + 1;
3041: END IF; */
3042: -- Bug 4658241 end
3043: END IF;
3051: END IF;
3052: IF l_err_num > 0 THEN
3053: IF l_err_num < l_ac_dlvy_count
3054: THEN
3055: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3056: ELSE
3057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3058: END IF;
3059: ELSIF l_warn_num > 0 THEN
3053: IF l_err_num < l_ac_dlvy_count
3054: THEN
3055: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3056: ELSE
3057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3058: END IF;
3059: ELSIF l_warn_num > 0 THEN
3060: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3061: END IF;
3056: ELSE
3057: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3058: END IF;
3059: ELSIF l_warn_num > 0 THEN
3060: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3061: END IF;
3062:
3063: --
3064: -- Debug Statements
3073: --
3074: EXCEPTION
3075: WHEN Others THEN
3076:
3077: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DEL_ACROSS_ORGS');
3078: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3079: --
3080: -- Debug Statements
3081: --
3074: EXCEPTION
3075: WHEN Others THEN
3076:
3077: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DEL_ACROSS_ORGS');
3078: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3079: --
3080: -- Debug Statements
3081: --
3082: IF l_debug_on THEN
3130: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETING EMPTY DELIVERIES FOR BATCH '||P_BATCH_ID );
3131: END IF;
3132: --
3133: --OTM R12
3134: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3135:
3136: IF l_gc3_is_installed IS NULL THEN
3137: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
3138: END IF; --
3133: --OTM R12
3134: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3135:
3136: IF l_gc3_is_installed IS NULL THEN
3137: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
3138: END IF; --
3139: --
3140:
3141: IF (p_batch_id is NOT NULL and p_batch_id > 0) THEN
3173: END IF;
3174: --
3175:
3176: END IF;
3177: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3178:
3179: --
3180: -- Debug Statements
3181: --
3184: END IF;
3185: --
3186: EXCEPTION
3187: WHEN OTHERS THEN
3188: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.DELETE_EMPTY_DELIVERIES');
3189: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3190: --
3191: -- Debug Statements
3192: --
3185: --
3186: EXCEPTION
3187: WHEN OTHERS THEN
3188: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.DELETE_EMPTY_DELIVERIES');
3189: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3190: --
3191: -- Debug Statements
3192: --
3193: IF l_debug_on THEN
3227: l_msg_count NUMBER;
3228: l_msg_data VARCHAR2(32767);
3229: l_index NUMBER;
3230:
3231: l_del_det_id_tbl wsh_util_core.id_tab_type;
3232: l_organization_id_tbl wsh_util_core.id_tab_type;
3233: l_line_direction_tbl wsh_util_core.column_tab_type;
3234:
3235: l_lpn_in_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_in_rec_type;
3228: l_msg_data VARCHAR2(32767);
3229: l_index NUMBER;
3230:
3231: l_del_det_id_tbl wsh_util_core.id_tab_type;
3232: l_organization_id_tbl wsh_util_core.id_tab_type;
3233: l_line_direction_tbl wsh_util_core.column_tab_type;
3234:
3235: l_lpn_in_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_in_rec_type;
3236: l_lpn_out_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_out_rec_type;
3229: l_index NUMBER;
3230:
3231: l_del_det_id_tbl wsh_util_core.id_tab_type;
3232: l_organization_id_tbl wsh_util_core.id_tab_type;
3233: l_line_direction_tbl wsh_util_core.column_tab_type;
3234:
3235: l_lpn_in_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_in_rec_type;
3236: l_lpn_out_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_out_rec_type;
3237: l_operation_type VARCHAR2(100);
3243: where delivery_detail_id = p_detail_id;
3244: -- LPN CONV. rv
3245:
3246: -- bug 4416863
3247: l_gross_weight_tbl wsh_util_core.id_tab_type;
3248: l_net_weight_tbl wsh_util_core.id_tab_type;
3249: l_volume_tbl wsh_util_core.id_tab_type;
3250: l_filled_volume_tbl wsh_util_core.id_tab_type;
3251:
3244: -- LPN CONV. rv
3245:
3246: -- bug 4416863
3247: l_gross_weight_tbl wsh_util_core.id_tab_type;
3248: l_net_weight_tbl wsh_util_core.id_tab_type;
3249: l_volume_tbl wsh_util_core.id_tab_type;
3250: l_filled_volume_tbl wsh_util_core.id_tab_type;
3251:
3252: --
3245:
3246: -- bug 4416863
3247: l_gross_weight_tbl wsh_util_core.id_tab_type;
3248: l_net_weight_tbl wsh_util_core.id_tab_type;
3249: l_volume_tbl wsh_util_core.id_tab_type;
3250: l_filled_volume_tbl wsh_util_core.id_tab_type;
3251:
3252: --
3253: l_debug_on BOOLEAN;
3246: -- bug 4416863
3247: l_gross_weight_tbl wsh_util_core.id_tab_type;
3248: l_net_weight_tbl wsh_util_core.id_tab_type;
3249: l_volume_tbl wsh_util_core.id_tab_type;
3250: l_filled_volume_tbl wsh_util_core.id_tab_type;
3251:
3252: --
3253: l_debug_on BOOLEAN;
3254: --
3413: IF l_debug_on THEN
3414: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
3415: END IF;
3416: --
3417: WSH_UTIL_CORE.API_POST_CALL
3418: (
3419: p_return_status => l_return_status,
3420: x_num_warnings => l_num_warnings,
3421: x_num_errors => l_num_errors
3444: IF l_debug_on THEN
3445: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
3446: END IF;
3447: --
3448: WSH_UTIL_CORE.API_POST_CALL
3449: (
3450: p_return_status => l_return_status,
3451: x_num_warnings => l_num_warnings,
3452: x_num_errors => l_num_errors
3487: IF l_debug_on THEN
3488: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
3489: END IF;
3490: --
3491: WSH_UTIL_CORE.API_POST_CALL
3492: (
3493: p_return_status => l_return_status,
3494: x_num_warnings => l_num_warnings,
3495: x_num_errors => l_num_errors
3517: IF l_debug_on THEN
3518: wsh_debug_sv.log(l_module_name, 'Return status after the call to WSH_WMS_SYNC_TMP_PKG.MERGE_BULK is ', l_return_status);
3519: END IF;
3520: --
3521: WSH_UTIL_CORE.API_POST_CALL
3522: (
3523: p_return_status => l_return_status,
3524: x_num_warnings => l_num_warnings,
3525: x_num_errors => l_num_errors
3552: p_diff_volume => -1 * nvl(l_volume_tbl(l_counter), 0),
3553: p_diff_fill_volume => -1 * nvl(l_filled_volume_tbl(l_counter), 0),
3554: x_return_status => l_return_status);
3555:
3556: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3557: --
3558: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3559: WSH_UTIL_CORE.Add_Message(x_return_status);
3560: IF l_debug_on THEN
3554: x_return_status => l_return_status);
3555:
3556: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3557: --
3558: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3559: WSH_UTIL_CORE.Add_Message(x_return_status);
3560: IF l_debug_on THEN
3561: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3562: WSH_DEBUG_SV.pop(l_module_name);
3555:
3556: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3557: --
3558: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3559: WSH_UTIL_CORE.Add_Message(x_return_status);
3560: IF l_debug_on THEN
3561: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3562: WSH_DEBUG_SV.pop(l_module_name);
3563: END IF;
3636: IF l_debug_on THEN
3637: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
3638: END IF;
3639: --
3640: WSH_UTIL_CORE.API_POST_CALL
3641: (
3642: p_return_status => l_return_status,
3643: x_num_warnings => l_num_warnings,
3644: x_num_errors => l_num_errors,
3650: --
3651: --
3652: --
3653: IF l_num_errors > 0 THEN
3654: x_return_status := wsh_util_core.g_ret_sts_error;
3655: ELSIF l_num_warnings > 0 THEN
3656: x_return_status := wsh_util_core.g_ret_sts_warning;
3657: ELSE
3658: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3652: --
3653: IF l_num_errors > 0 THEN
3654: x_return_status := wsh_util_core.g_ret_sts_error;
3655: ELSIF l_num_warnings > 0 THEN
3656: x_return_status := wsh_util_core.g_ret_sts_warning;
3657: ELSE
3658: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3659: END IF;
3660: -- LPN CONV. rv
3654: x_return_status := wsh_util_core.g_ret_sts_error;
3655: ELSIF l_num_warnings > 0 THEN
3656: x_return_status := wsh_util_core.g_ret_sts_warning;
3657: ELSE
3658: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3659: END IF;
3660: -- LPN CONV. rv
3661: --
3662: -- Debug Statements
3664: IF l_debug_on THEN
3665: WSH_DEBUG_SV.logmsg(l_module_name, 'END OF API FOR UNASSIGNING EMPTY CONTAINERS FROM DELIVERIES' );
3666: END IF;
3667: --
3668: --x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS; LPN CONV. rv
3669:
3670: --
3671: -- Debug Statements
3672: --
3676: --
3677: EXCEPTION
3678: WHEN FND_API.G_EXC_ERROR THEN
3679: --
3680: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3681: --
3682: IF l_debug_on THEN
3683: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS FROM FND_API.G_EXC_ERROR',WSH_DEBUG_SV.C_PROC_LEVEL);
3684: END IF;
3699: --
3700: IF l_debug_on THEN
3701: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
3702: END IF;
3703: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3704: x_return_status := l_return_status;
3705: END IF;
3706: --}
3707: END IF;
3714: END IF;
3715: --
3716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3717: --
3718: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3719: --
3720: IF l_debug_on THEN
3721: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS FROM FND_API.G_EXC_UNEXPECTED_ERROR',WSH_DEBUG_SV.C_PROC_LEVEL);
3722: END IF;
3739: --
3740: IF l_debug_on THEN
3741: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
3742: END IF;
3743: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3744: x_return_status := l_return_status;
3745: END IF;
3746: --}
3747: END IF;
3781: END IF;
3782: --
3783: -- LPN CONV. rv
3784: --
3785: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.unassign_empty_containers');
3786: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3787: --
3788: -- Debug Statements
3789: --
3782: --
3783: -- LPN CONV. rv
3784: --
3785: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.unassign_empty_containers');
3786: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3787: --
3788: -- Debug Statements
3789: --
3790: IF l_debug_on THEN
3854: l_trip_id_temp NUMBER;
3855: -- l_trip_info_rec_tab is table of c_trip_info%rowtype index by binary_integer;
3856:
3857: l_del_attributes WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
3858: l_del_tab WSH_UTIL_CORE.id_tab_type;
3859: l_trip_del_tab WSH_UTIL_CORE.id_tab_type;
3860: l_intermediate_loc_tab WSH_UTIL_CORE.id_tab_type;
3861: l_pickup_stop_id NUMBER;
3862: l_dropoff_stop_id NUMBER;
3855: -- l_trip_info_rec_tab is table of c_trip_info%rowtype index by binary_integer;
3856:
3857: l_del_attributes WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
3858: l_del_tab WSH_UTIL_CORE.id_tab_type;
3859: l_trip_del_tab WSH_UTIL_CORE.id_tab_type;
3860: l_intermediate_loc_tab WSH_UTIL_CORE.id_tab_type;
3861: l_pickup_stop_id NUMBER;
3862: l_dropoff_stop_id NUMBER;
3863: l_caller VARCHAR2(30);
3856:
3857: l_del_attributes WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type;
3858: l_del_tab WSH_UTIL_CORE.id_tab_type;
3859: l_trip_del_tab WSH_UTIL_CORE.id_tab_type;
3860: l_intermediate_loc_tab WSH_UTIL_CORE.id_tab_type;
3861: l_pickup_stop_id NUMBER;
3862: l_dropoff_stop_id NUMBER;
3863: l_caller VARCHAR2(30);
3864: l_delivery_leg_id_dummy NUMBER;
3873: l_dummy VARCHAR2(1);
3874: l_rowid VARCHAR2(30);
3875: l_delivery_id NUMBER;
3876: l_delivery_name VARCHAR2(30);
3877: l_delivery_id_tab WSH_UTIL_CORE.id_tab_type;
3878: l_valid_trip VARCHAR2(1);
3879: l_trip_name_tab wsh_util_core.Column_Tab_Type;
3880: l_trip_id_tab wsh_util_core.id_tab_type;
3881: l_empty_stops_tab wsh_util_core.id_tab_type;
3875: l_delivery_id NUMBER;
3876: l_delivery_name VARCHAR2(30);
3877: l_delivery_id_tab WSH_UTIL_CORE.id_tab_type;
3878: l_valid_trip VARCHAR2(1);
3879: l_trip_name_tab wsh_util_core.Column_Tab_Type;
3880: l_trip_id_tab wsh_util_core.id_tab_type;
3881: l_empty_stops_tab wsh_util_core.id_tab_type;
3882: l_transit_time NUMBER;
3883: l_deconsol_do_date DATE;
3876: l_delivery_name VARCHAR2(30);
3877: l_delivery_id_tab WSH_UTIL_CORE.id_tab_type;
3878: l_valid_trip VARCHAR2(1);
3879: l_trip_name_tab wsh_util_core.Column_Tab_Type;
3880: l_trip_id_tab wsh_util_core.id_tab_type;
3881: l_empty_stops_tab wsh_util_core.id_tab_type;
3882: l_transit_time NUMBER;
3883: l_deconsol_do_date DATE;
3884: l_num_warnings NUMBER := 0;
3877: l_delivery_id_tab WSH_UTIL_CORE.id_tab_type;
3878: l_valid_trip VARCHAR2(1);
3879: l_trip_name_tab wsh_util_core.Column_Tab_Type;
3880: l_trip_id_tab wsh_util_core.id_tab_type;
3881: l_empty_stops_tab wsh_util_core.id_tab_type;
3882: l_transit_time NUMBER;
3883: l_deconsol_do_date DATE;
3884: l_num_warnings NUMBER := 0;
3885: l_num_errors NUMBER := 0;
3887:
3888: WSH_INVALID_TRIPS EXCEPTION;
3889:
3890: --OTM R12, changes for MDC
3891: l_non_trip_del_tab WSH_UTIL_CORE.id_tab_type;
3892: l_non_trip_del_count NUMBER;
3893: l_trip_ignore VARCHAR2(1);
3894: l_trip_ignore_temp VARCHAR2(1);
3895: l_gc3_is_installed VARCHAR2(1);
3892: l_non_trip_del_count NUMBER;
3893: l_trip_ignore VARCHAR2(1);
3894: l_trip_ignore_temp VARCHAR2(1);
3895: l_gc3_is_installed VARCHAR2(1);
3896: l_otm_trip_tab WSH_UTIL_CORE.id_tab_type;
3897: --END OTM R12
3898:
3899: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Autocreate_Consol_Delivery';
3900: l_debug_on BOOLEAN;
3916: END IF;
3917:
3918: --OTM R12, initialize
3919: l_non_trip_del_count := 1;
3920: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3921:
3922: IF l_gc3_is_installed IS NULL THEN
3923: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
3924: END IF;
3919: l_non_trip_del_count := 1;
3920: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3921:
3922: IF l_gc3_is_installed IS NULL THEN
3923: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
3924: END IF;
3925: --END OTM R12
3926:
3927: -- If the caller is consolidation SRS program then
3987: x_msg_count => l_msg_count,
3988: x_msg_data => l_msg_data
3989: );
3990:
3991: wsh_util_core.api_post_call
3992: (
3993: p_return_status => l_return_status,
3994: x_num_warnings => l_num_warnings,
3995: x_num_errors => l_num_errors
4026: p_in_ids => l_otm_trip_tab,
4027: p_action_code => 'IGNORE_PLAN',
4028: x_return_status => l_return_status);
4029:
4030: wsh_util_core.api_post_call
4031: (
4032: p_return_status => l_return_status,
4033: x_num_warnings => l_num_warnings,
4034: x_num_errors => l_num_errors
4045: p_in_ids => l_non_trip_del_tab,
4046: p_action_code => 'IGNORE_PLAN',
4047: x_return_status => l_return_status);
4048:
4049: wsh_util_core.api_post_call
4050: (
4051: p_return_status => l_return_status,
4052: x_num_warnings => l_num_warnings,
4053: x_num_errors => l_num_errors
4168: END IF;
4169:
4170: wsh_new_deliveries_pvt.create_delivery(l_del_attributes, l_rowid, l_delivery_id, l_delivery_name, l_return_status);
4171:
4172: wsh_util_core.api_post_call
4173: (
4174: p_return_status => l_return_status,
4175: x_num_warnings => l_num_warnings,
4176: x_num_errors => l_num_errors
4190: WSH_TRIPS_ACTIONS.Unassign_Trip(p_del_rows => l_trip_del_tab,
4191: p_trip_id => l_trip_id,
4192: x_return_status => l_return_status);
4193:
4194: wsh_util_core.api_post_call
4195: (
4196: p_return_status => l_return_status,
4197: x_num_warnings => l_num_warnings,
4198: x_num_errors => l_num_errors
4209: WSH_DEBUG_SV.log(l_module_name,'empty stop '||i,l_empty_stops_tab(i));
4210: END LOOP;
4211: END IF;
4212:
4213: WSH_UTIL_CORE.Delete(p_type => 'STOP',
4214: p_rows => l_empty_stops_tab,
4215: x_return_status => l_return_status);
4216:
4217: wsh_util_core.api_post_call
4213: WSH_UTIL_CORE.Delete(p_type => 'STOP',
4214: p_rows => l_empty_stops_tab,
4215: x_return_status => l_return_status);
4216:
4217: wsh_util_core.api_post_call
4218: (
4219: p_return_status => l_return_status,
4220: x_num_warnings => l_num_warnings,
4221: x_num_errors => l_num_errors
4237: p_dropoff_dep_date => l_del_attributes.ultimate_dropoff_date,
4238: x_return_status => l_return_status,
4239: p_caller => p_caller);
4240:
4241: wsh_util_core.api_post_call
4242: (
4243: p_return_status => l_return_status,
4244: x_num_warnings => l_num_warnings,
4245: x_num_errors => l_num_errors
4257: x_trip_ids => l_trip_id_tab,
4258: x_trip_names => l_trip_name_tab,
4259: x_return_status => l_return_status);
4260:
4261: wsh_util_core.api_post_call
4262: (
4263: p_return_status => l_return_status,
4264: x_num_warnings => l_num_warnings,
4265: x_num_errors => l_num_errors
4288: p_parent_del_id => l_delivery_id,
4289: p_caller => l_caller,
4290: x_return_status => l_return_status);
4291:
4292: wsh_util_core.api_post_call
4293: (
4294: p_return_status => l_return_status,
4295: x_num_warnings => l_num_warnings,
4296: x_num_errors => l_num_errors
4304:
4305:
4306: IF l_num_errors > 0
4307: THEN
4308: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4309: ELSIF l_num_warnings > 0
4310: THEN
4311: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4312: ELSE
4307: THEN
4308: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4309: ELSIF l_num_warnings > 0
4310: THEN
4311: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4312: ELSE
4313: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4314: END IF;
4315:
4309: ELSIF l_num_warnings > 0
4310: THEN
4311: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4312: ELSE
4313: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4314: END IF;
4315:
4316: x_parent_del_id := l_delivery_id;
4317: x_parent_trip_id := l_trip_id;
4320: wsh_debug_sv.pop(l_module_name);
4321: END IF;
4322: EXCEPTION
4323: WHEN FND_API.G_EXC_ERROR THEN
4324: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4325: --
4326: -- Debug Statements
4327: --
4328: IF l_debug_on THEN
4330: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4331: END IF;
4332: --
4333: WHEN WSH_INVALID_TRIPS THEN
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4335: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRIPS');
4336: WSH_UTIL_CORE.Add_Message(x_return_status);
4337: --
4338: -- Debug Statements
4332: --
4333: WHEN WSH_INVALID_TRIPS THEN
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4335: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRIPS');
4336: WSH_UTIL_CORE.Add_Message(x_return_status);
4337: --
4338: -- Debug Statements
4339: --
4340: IF l_debug_on THEN
4344: END IF;
4345: --
4346:
4347: WHEN OTHERS THEN
4348: wsh_util_core.default_handler('WSH_DELIVERY_AUTOCREATE.Autocreate_Consol_Delivery',l_module_name);
4349: --
4350: IF l_debug_on THEN
4351: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
4352: END IF;