[Home] [Help]
1: PACKAGE BODY WSH_DELIVERY_DETAILS_SPLITTER as
2: /* $Header: WSHDTSPB.pls 120.1.12000000.2 2007/02/01 22:48:04 jishen noship $ */
3:
4: G_PACKAGE_NAME CONSTANT VARCHAR2(50) := 'WSH_DELIVERY_DETAILS_SPLITTER';
5:
1: PACKAGE BODY WSH_DELIVERY_DETAILS_SPLITTER as
2: /* $Header: WSHDTSPB.pls 120.1.12000000.2 2007/02/01 22:48:04 jishen noship $ */
3:
4: G_PACKAGE_NAME CONSTANT VARCHAR2(50) := 'WSH_DELIVERY_DETAILS_SPLITTER';
5:
6:
7: --OTM R12
8: ------------------------------------------------------------
29: x_return_status OUT NOCOPY VARCHAR2) IS
30:
31: l_parameter_info WSH_SHIPPING_PARAMS_PVT.PARAMETER_REC_TYP;
32: l_global_param_info WSH_SHIPPING_PARAMS_PVT.GLOBAL_PARAMETERS_REC_TYP;
33: l_max_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
34: l_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
35: l_new_detail_id WSH_DELIVERY_DETAILS.DELIVERY_DETAIL_ID%TYPE;
36: l_num_split NUMBER;
37: l_msg_count NUMBER;
30:
31: l_parameter_info WSH_SHIPPING_PARAMS_PVT.PARAMETER_REC_TYP;
32: l_global_param_info WSH_SHIPPING_PARAMS_PVT.GLOBAL_PARAMETERS_REC_TYP;
33: l_max_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
34: l_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
35: l_new_detail_id WSH_DELIVERY_DETAILS.DELIVERY_DETAIL_ID%TYPE;
36: l_num_split NUMBER;
37: l_msg_count NUMBER;
38: l_msg_data VARCHAR2(32767);
31: l_parameter_info WSH_SHIPPING_PARAMS_PVT.PARAMETER_REC_TYP;
32: l_global_param_info WSH_SHIPPING_PARAMS_PVT.GLOBAL_PARAMETERS_REC_TYP;
33: l_max_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
34: l_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
35: l_new_detail_id WSH_DELIVERY_DETAILS.DELIVERY_DETAIL_ID%TYPE;
36: l_num_split NUMBER;
37: l_msg_count NUMBER;
38: l_msg_data VARCHAR2(32767);
39: l_exception_id WSH_EXCEPTIONS.EXCEPTION_ID%TYPE;
279: l_new_detail_id := NULL;
280:
281: IF l_debug_on THEN
282: WSH_DEBUG_SV.logmsg(l_module_name,
283: 'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',
284: WSH_DEBUG_SV.C_PROC_LEVEL);
285: WSH_DEBUG_SV.log(l_module_name, 'l_num_split', l_num_split);
286: END IF;
287:
284: WSH_DEBUG_SV.C_PROC_LEVEL);
285: WSH_DEBUG_SV.log(l_module_name, 'l_num_split', l_num_split);
286: END IF;
287:
288: WSH_DELIVERY_DETAILS_ACTIONS.split_delivery_details_bulk (
289: p_from_detail_id => p_detail_tab(i).entity_id,
290: p_req_quantity => l_max_quantity,
291: p_num_of_split => l_num_split,
292: x_new_detail_id => l_new_detail_id,
294: x_return_status => l_return_status
295: );
296:
297: IF l_debug_on THEN
298: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK: ' || l_return_status);
299: END IF;
300:
301: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
302: RAISE split_error;
354: END IF;
355:
356: IF l_debug_on THEN
357: wsh_debug_sv.logmsg(l_module_name,
358: 'WSH_DELIVERY_DETAILS_SPLITTER.TMS_DELIVERY_DETAIL_SPLIT exception has occured ',
359: wsh_debug_sv.c_excep_level);
360: END IF;
361:
362: END;
386:
387: WHEN OTHERS THEN
388: --
389: WSH_UTIL_CORE.default_handler(
390: 'WSH_DELIVERY_DETAILS_SPLITTER.TMS_DELIVERY_DETAIL_SPLIT', l_module_name);
391: IF l_debug_on THEN
392: WSH_DEBUG_SV.logmsg(l_module_name,
393: 'Unexpected error has occured. Oracle error message is '||
394: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
395: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
396: END IF;
397: END TMS_DELIVERY_DETAIL_SPLIT;
398:
399: END WSH_DELIVERY_DETAILS_SPLITTER;