284: WSH_DEBUG_SV.log(l_module_name, 'l_ship_to_loc_code', l_ship_to_loc_code);
285: END IF;
286:
287: IF l_ship_to_loc_code IS NULL THEN
288: raise fnd_api.g_exc_error;
289: END IF;
290:
291: IF (l_ship_to_site_contact_id is not null) THEN
292: --{
296: l_contact_person_name,
297: l_return_status
298: );
299: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
300: RAISE FND_API.G_EXC_ERROR;
301: END IF;
302:
303: x_cnsgn_cont_per_name := l_contact_person_name;
304: x_cnsgn_cont_per_ph := l_per_ph_number;
370: wsh_debug_sv.pop (l_module_name);
371: END IF;
372: EXCEPTION
373: --bug 3920178
374: WHEN fnd_api.g_exc_error THEN
375: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
376: IF l_debug_on THEN
377: WSH_DEBUG_SV.logmsg(l_module_name,'fnd_api.g_exc_error has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
378: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:fnd_api.g_exc_error');
373: --bug 3920178
374: WHEN fnd_api.g_exc_error THEN
375: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
376: IF l_debug_on THEN
377: WSH_DEBUG_SV.logmsg(l_module_name,'fnd_api.g_exc_error has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
378: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:fnd_api.g_exc_error');
379: END IF;
380: WHEN wsh_invalid_delivery_id THEN
381: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
374: WHEN fnd_api.g_exc_error THEN
375: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
376: IF l_debug_on THEN
377: WSH_DEBUG_SV.logmsg(l_module_name,'fnd_api.g_exc_error has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
378: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:fnd_api.g_exc_error');
379: END IF;
380: WHEN wsh_invalid_delivery_id THEN
381: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
382: IF l_debug_on THEN
1049: end if;
1050:
1051: /* bug 4227777
1052: IF l_location IS NULL THEN
1053: raise fnd_api.g_exc_error;
1054: END IF;
1055: */
1056: x_location := l_location;
1057:
1147: l_contact_person_name,
1148: l_return_status
1149: );
1150: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1151: RAISE FND_API.G_EXC_ERROR;
1152: END IF;
1153:
1154: x_cnsgn_cont_per_name := l_contact_person_name;
1155: x_cnsgn_cont_per_ph := l_per_ph_number;
1165: wsh_debug_sv.pop(l_module_name);
1166: END IF;
1167:
1168: EXCEPTION
1169: WHEN FND_API.G_EXC_ERROR THEN
1170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1171: wsh_util_core.add_message(x_return_status, l_module_name);
1172: --
1173: IF l_debug_on THEN
1170: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1171: wsh_util_core.add_message(x_return_status, l_module_name);
1172: --
1173: IF l_debug_on THEN
1174: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1176: END IF;
1177: WHEN OTHERS THEN
1178: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1171: wsh_util_core.add_message(x_return_status, l_module_name);
1172: --
1173: IF l_debug_on THEN
1174: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1176: END IF;
1177: WHEN OTHERS THEN
1178: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1179: IF l_debug_on THEN