297:
298:
299: -- check if the organization is TPW org
300: IF l_debug_on THEN
301: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type',WSH_DEBUG_SV.C_PROC_LEVEL);
302: END IF;
303:
304: l_org_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_type(
305: p_organization_id => l_sel_del_attr.org_id,
300: IF l_debug_on THEN
301: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type',WSH_DEBUG_SV.C_PROC_LEVEL);
302: END IF;
303:
304: l_org_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_type(
305: p_organization_id => l_sel_del_attr.org_id,
306: x_return_status => l_return_status);
307:
308: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING)
307:
308: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING)
309: THEN
310: IF l_debug_on THEN
311: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type returned with warnings');
312: END IF;
313: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
314: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
315: THEN
312: END IF;
313: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
314: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
315: THEN
316: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
317: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
318: errbuf := 'Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type';
319: retcode := '2';
320: IF l_debug_on THEN
313: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
314: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
315: THEN
316: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
317: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
318: errbuf := 'Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type';
319: retcode := '2';
320: IF l_debug_on THEN
321: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
314: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
315: THEN
316: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
317: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
318: errbuf := 'Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type';
319: retcode := '2';
320: IF l_debug_on THEN
321: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
322: END IF;
317: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR','WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
318: errbuf := 'Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type';
319: retcode := '2';
320: IF l_debug_on THEN
321: WSH_DEBUG_SV.logmsg(l_module_name, 'Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
322: END IF;
323: raise FND_API.G_EXC_ERROR;
324: END IF;
325:
413: IF(l_cms_org_flag)
414: THEN
415:
416: IF l_debug_on THEN
417: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type',WSH_DEBUG_SV.C_PROC_LEVEL);
418: END IF;
419:
420: l_del_cms := null;
421: l_del_cms := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
417: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type',WSH_DEBUG_SV.C_PROC_LEVEL);
418: END IF;
419:
420: l_del_cms := null;
421: l_del_cms := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
422: ( p_organization_id => l_delivery_tab(i).organization_id,
423: p_delivery_id => l_delivery_tab(i).delivery_id,
424: p_carrier_id => l_delivery_tab(i).carrier_id,
425: x_return_status => l_return_status
426: );
427: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING)
428: THEN
429: IF l_debug_on THEN
430: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type returned with warnings');
431: END IF;
432: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
433: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
434: THEN
431: END IF;
432: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR)
433: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
434: THEN
435: WSH_UTIL_CORE.PrintMsg('Error occurred in WSH_EXTERNAL_INTERFACE.SV.Get_Warehouse_type');
436: WSH_UTIL_CORE.PrintMsg('Failed to get the manifest information. Removing delivery '||l_delivery_tab(i).delivery_id||' from consolidation');
437: l_completion_status := 'WARNING';
438: retcode := '1';
439: