154: l_exception_id := NULL;
155:
156: IF l_debug_on THEN
157: WSH_DEBUG_SV.logmsg(l_module_name,
158: 'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',
159: WSH_DEBUG_SV.C_PROC_LEVEL);
160: END IF;
161:
162: WSH_XC_UTIL.log_exception(
158: 'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',
159: WSH_DEBUG_SV.C_PROC_LEVEL);
160: END IF;
161:
162: WSH_XC_UTIL.log_exception(
163: p_api_version => 1.0,
164: x_return_status => l_return_status,
165: x_msg_count => l_msg_count,
166: x_msg_data => l_msg_data,
173: p_delivery_id => l_delivery_id,
174: p_message => SUBSTRB(l_exception_message,1,2000));
175:
176: IF l_debug_on THEN
177: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.log_exception: ' || l_return_status);
178: END IF;
179:
180: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
181: l_num_error := l_num_error+1;