229: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
230: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
231: END IF;
232: --
233: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
234: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
235: x_line_shp_qty := 0;
236: x_line_shp_qty2 := 0; -- OPM KYH 12/SEP/00
237: open c_shipped_rec;
230: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
231: END IF;
232: --
233: WSH_UTIL_CORE.Enable_Concurrent_Log_Print;
234: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
235: x_line_shp_qty := 0;
236: x_line_shp_qty2 := 0; -- OPM KYH 12/SEP/00
237: open c_shipped_rec;
238: LOOP
260: END IF;
261: --
262: EXCEPTION
263: when NOT_ASSIGNED_TO_DEL_ERROR then
264: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
265: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
266: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
267: --
268: -- Debug Statements
262: EXCEPTION
263: when NOT_ASSIGNED_TO_DEL_ERROR then
264: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
265: FND_MESSAGE.SET_NAME('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
266: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
267: --
268: -- Debug Statements
269: --
270: IF l_debug_on THEN
272: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NOT_ASSIGNED_TO_DEL_ERROR');
273: END IF;
274: --
275: when others then
276: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
277: l_error_code := SQLCODE;
278: l_error_text := SQLERRM;
279: --
280: WSH_UTIL_CORE.default_handler('WSH_SHIP_CONFIRM_ACTIONS2.Ship_zero_quantity',l_module_name);
276: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
277: l_error_code := SQLCODE;
278: l_error_text := SQLERRM;
279: --
280: WSH_UTIL_CORE.default_handler('WSH_SHIP_CONFIRM_ACTIONS2.Ship_zero_quantity',l_module_name);
281: --
282: -- Debug Statements
283: --
284: IF l_debug_on THEN
296: )
297: IS
298:
299: BEGIN
300: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
301:
302: END Ship_Zero_Quantity;
303:
304: /*
315: -- WSH_USA_INV_PVT.backorder_delivery_detail while pick releasing. Default value for this parameter
316: -- is 'SHIP' ( no change in the existing functionality when called without this parameter value).
317:
318: PROCEDURE Backorder(
319: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
320: p_line_ids IN WSH_UTIL_CORE.Id_Tab_Type , -- Consolidation of BO Delivery Details project
321: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
322: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
323: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
316: -- is 'SHIP' ( no change in the existing functionality when called without this parameter value).
317:
318: PROCEDURE Backorder(
319: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
320: p_line_ids IN WSH_UTIL_CORE.Id_Tab_Type , -- Consolidation of BO Delivery Details project
321: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
322: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
323: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
324: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
317:
318: PROCEDURE Backorder(
319: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
320: p_line_ids IN WSH_UTIL_CORE.Id_Tab_Type , -- Consolidation of BO Delivery Details project
321: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
322: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
323: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
324: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
325: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
318: PROCEDURE Backorder(
319: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
320: p_line_ids IN WSH_UTIL_CORE.Id_Tab_Type , -- Consolidation of BO Delivery Details project
321: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
322: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
323: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
324: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
325: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
326: p_sources IN WSH_UTIL_CORE.Column_Tab_Type, -- RTV BO Cons Changes
319: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
320: p_line_ids IN WSH_UTIL_CORE.Id_Tab_Type , -- Consolidation of BO Delivery Details project
321: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
322: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
323: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
324: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
325: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
326: p_sources IN WSH_UTIL_CORE.Column_Tab_Type, -- RTV BO Cons Changes
327: p_bo_mode IN VARCHAR2,
320: p_line_ids IN WSH_UTIL_CORE.Id_Tab_Type , -- Consolidation of BO Delivery Details project
321: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
322: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
323: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
324: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
325: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
326: p_sources IN WSH_UTIL_CORE.Column_Tab_Type, -- RTV BO Cons Changes
327: p_bo_mode IN VARCHAR2,
328: p_bo_source IN VARCHAR2 DEFAULT 'SHIP',
321: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
322: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
323: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
324: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
325: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
326: p_sources IN WSH_UTIL_CORE.Column_Tab_Type, -- RTV BO Cons Changes
327: p_bo_mode IN VARCHAR2,
328: p_bo_source IN VARCHAR2 DEFAULT 'SHIP',
329: x_out_rows OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
322: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
323: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
324: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
325: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
326: p_sources IN WSH_UTIL_CORE.Column_Tab_Type, -- RTV BO Cons Changes
327: p_bo_mode IN VARCHAR2,
328: p_bo_source IN VARCHAR2 DEFAULT 'SHIP',
329: x_out_rows OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
330: x_cons_flags OUT NOCOPY WSH_UTIL_CORE.Column_Tab_Type, -- Consolidation of BO Delivery Details project
325: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
326: p_sources IN WSH_UTIL_CORE.Column_Tab_Type, -- RTV BO Cons Changes
327: p_bo_mode IN VARCHAR2,
328: p_bo_source IN VARCHAR2 DEFAULT 'SHIP',
329: x_out_rows OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
330: x_cons_flags OUT NOCOPY WSH_UTIL_CORE.Column_Tab_Type, -- Consolidation of BO Delivery Details project
331: x_return_status OUT NOCOPY VARCHAR2 )
332: IS
333: CURSOR c_detail(x_detail_id NUMBER) IS
326: p_sources IN WSH_UTIL_CORE.Column_Tab_Type, -- RTV BO Cons Changes
327: p_bo_mode IN VARCHAR2,
328: p_bo_source IN VARCHAR2 DEFAULT 'SHIP',
329: x_out_rows OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
330: x_cons_flags OUT NOCOPY WSH_UTIL_CORE.Column_Tab_Type, -- Consolidation of BO Delivery Details project
331: x_return_status OUT NOCOPY VARCHAR2 )
332: IS
333: CURSOR c_detail(x_detail_id NUMBER) IS
334: --Changed for BUG#3330869
362: l_trohdr_rec INV_MOVE_ORDER_PUB.Trohdr_Rec_Type;
363: l_trohdr_val_rec INV_MOVE_ORDER_PUB.Trohdr_Val_Rec_Type;
364: l_trolin_tbl INV_MOVE_ORDER_PUB.Trolin_Tbl_Type;
365: l_trolin_val_tbl INV_MOVE_ORDER_PUB.Trolin_Val_Tbl_Type;
366: l_cr_hdr_return_status varchar2(30) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
367: l_cr_hdr_message varchar2(4000) := NULL;
368: l_cr_hdr_msg_count number:= NULL;
369: l_cr_hdr_msg_data varchar2(4000) := NULL;
370: l_cr_ln_return_status varchar2(30) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
366: l_cr_hdr_return_status varchar2(30) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
367: l_cr_hdr_message varchar2(4000) := NULL;
368: l_cr_hdr_msg_count number:= NULL;
369: l_cr_hdr_msg_data varchar2(4000) := NULL;
370: l_cr_ln_return_status varchar2(30) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
371: l_cr_ln_msg_count number := NULL;
372: l_cr_ln_msg_data varchar2(4000) := NULL;
373: l_cr_ln_message varchar2(4000) := NULL;
374: l_sales_order_id NUMBER := NULL;
436: l_bo_detail_id NUMBER;
437:
438: l_bo_qty NUMBER ;
439: l_bo_qty2 NUMBER ;
440: l_unassign_dds WSH_UTIL_CORE.Id_Tab_Type ;
441: l_unassign_dds_tmp WSH_UTIL_CORE.Id_Tab_Type ; -- bug 7460785
442: l_delete_dds WSH_UTIL_CORE.Id_Tab_Type ; -- to delete overpicked delivery lines
443: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
444:
437:
438: l_bo_qty NUMBER ;
439: l_bo_qty2 NUMBER ;
440: l_unassign_dds WSH_UTIL_CORE.Id_Tab_Type ;
441: l_unassign_dds_tmp WSH_UTIL_CORE.Id_Tab_Type ; -- bug 7460785
442: l_delete_dds WSH_UTIL_CORE.Id_Tab_Type ; -- to delete overpicked delivery lines
443: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
444:
445: invalid_source_code EXCEPTION; /*Bug 2096052- added for OKE */
438: l_bo_qty NUMBER ;
439: l_bo_qty2 NUMBER ;
440: l_unassign_dds WSH_UTIL_CORE.Id_Tab_Type ;
441: l_unassign_dds_tmp WSH_UTIL_CORE.Id_Tab_Type ; -- bug 7460785
442: l_delete_dds WSH_UTIL_CORE.Id_Tab_Type ; -- to delete overpicked delivery lines
443: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
444:
445: invalid_source_code EXCEPTION; /*Bug 2096052- added for OKE */
446: no_backorder_full EXCEPTION; /*Bug 2399729- added for third party warehouse shipment line */
460: -- an unshipped, overpicked line packed in container
461: l_new_picked_quantity NUMBER;
462: -- muom
463: l_new_picked_quantity2 NUMBER;
464: l_fulfillment_base WSH_UTIL_CORE.Column_Tab_Type;
465:
466: -- Newly added variables for Consolidation of BO Delivery Details project
467: --
468: l_global_param_rec WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
465:
466: -- Newly added variables for Consolidation of BO Delivery Details project
467: --
468: l_global_param_rec WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
469: l_line_ids WSH_UTIL_CORE.Id_Tab_Type ;
470: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type ;
471: -- HW 3457369
472: l_detail_ids_OPM WSH_UTIL_CORE.Id_Tab_Type ;
473: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type ;
466: -- Newly added variables for Consolidation of BO Delivery Details project
467: --
468: l_global_param_rec WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
469: l_line_ids WSH_UTIL_CORE.Id_Tab_Type ;
470: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type ;
471: -- HW 3457369
472: l_detail_ids_OPM WSH_UTIL_CORE.Id_Tab_Type ;
473: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type ;
474: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ;
468: l_global_param_rec WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
469: l_line_ids WSH_UTIL_CORE.Id_Tab_Type ;
470: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type ;
471: -- HW 3457369
472: l_detail_ids_OPM WSH_UTIL_CORE.Id_Tab_Type ;
473: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type ;
474: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ;
475: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type ;
476: -- HW OPM BUG#:3121616 added qty2s
469: l_line_ids WSH_UTIL_CORE.Id_Tab_Type ;
470: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type ;
471: -- HW 3457369
472: l_detail_ids_OPM WSH_UTIL_CORE.Id_Tab_Type ;
473: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type ;
474: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ;
475: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type ;
476: -- HW OPM BUG#:3121616 added qty2s
477: -- muom
470: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type ;
471: -- HW 3457369
472: l_detail_ids_OPM WSH_UTIL_CORE.Id_Tab_Type ;
473: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type ;
474: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ;
475: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type ;
476: -- HW OPM BUG#:3121616 added qty2s
477: -- muom
478: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
471: -- HW 3457369
472: l_detail_ids_OPM WSH_UTIL_CORE.Id_Tab_Type ;
473: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type ;
474: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ;
475: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type ;
476: -- HW OPM BUG#:3121616 added qty2s
477: -- muom
478: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
479: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
474: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ;
475: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type ;
476: -- HW OPM BUG#:3121616 added qty2s
477: -- muom
478: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
479: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
480: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
481: -- end of 3121616
482: l_delivery_ids WSH_UTIL_CORE.Id_Tab_Type ;
475: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type ;
476: -- HW OPM BUG#:3121616 added qty2s
477: -- muom
478: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
479: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
480: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
481: -- end of 3121616
482: l_delivery_ids WSH_UTIL_CORE.Id_Tab_Type ;
483: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type ; --Stores the dd_ids returned by Consolidate_Source_Line
476: -- HW OPM BUG#:3121616 added qty2s
477: -- muom
478: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
479: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
480: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
481: -- end of 3121616
482: l_delivery_ids WSH_UTIL_CORE.Id_Tab_Type ;
483: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type ; --Stores the dd_ids returned by Consolidate_Source_Line
484: l_remain_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ; --Stores the remaining bo qty returned by Consolidate_Delivery_details
478: l_req_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
479: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
480: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
481: -- end of 3121616
482: l_delivery_ids WSH_UTIL_CORE.Id_Tab_Type ;
483: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type ; --Stores the dd_ids returned by Consolidate_Source_Line
484: l_remain_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ; --Stores the remaining bo qty returned by Consolidate_Delivery_details
485: -- HW OPM BUG#:3121616 added qty2s
486: l_remain_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ; --Stores the remaining bo qty2 returned by Consolidate_Delivery_details
479: l_overpick_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
480: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
481: -- end of 3121616
482: l_delivery_ids WSH_UTIL_CORE.Id_Tab_Type ;
483: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type ; --Stores the dd_ids returned by Consolidate_Source_Line
484: l_remain_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ; --Stores the remaining bo qty returned by Consolidate_Delivery_details
485: -- HW OPM BUG#:3121616 added qty2s
486: l_remain_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ; --Stores the remaining bo qty2 returned by Consolidate_Delivery_details
487: -- end of 3121616
480: l_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ;
481: -- end of 3121616
482: l_delivery_ids WSH_UTIL_CORE.Id_Tab_Type ;
483: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type ; --Stores the dd_ids returned by Consolidate_Source_Line
484: l_remain_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ; --Stores the remaining bo qty returned by Consolidate_Delivery_details
485: -- HW OPM BUG#:3121616 added qty2s
486: l_remain_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ; --Stores the remaining bo qty2 returned by Consolidate_Delivery_details
487: -- end of 3121616
488: l_cons_source_line_rec_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab;
482: l_delivery_ids WSH_UTIL_CORE.Id_Tab_Type ;
483: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type ; --Stores the dd_ids returned by Consolidate_Source_Line
484: l_remain_bo_qtys WSH_UTIL_CORE.Id_Tab_Type ; --Stores the remaining bo qty returned by Consolidate_Delivery_details
485: -- HW OPM BUG#:3121616 added qty2s
486: l_remain_bo_qty2s WSH_UTIL_CORE.Id_Tab_Type ; --Stores the remaining bo qty2 returned by Consolidate_Delivery_details
487: -- end of 3121616
488: l_cons_source_line_rec_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab;
489: l_dd_rec_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab;
490: l_cons_dd_rec_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab;
514: -- HW OPMCONV changed size of grade to 150
515: l_oeline_pref_grade VARCHAR2(150) := NULL;
516: --End OPM Bug 3561937
517:
518: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
519: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
520:
521: --
522: l_debug_on BOOLEAN;
541: -- muom
542: l_source_code VARCHAR2(30);
543: l_source_line_id NUMBER;
544: BEGIN
545: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
546: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
547: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
548: END IF;
549: --
542: l_source_code VARCHAR2(30);
543: l_source_line_id NUMBER;
544: BEGIN
545: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
546: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
547: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
548: END IF;
549: --
550: -- Debug Statements
543: l_source_line_id NUMBER;
544: BEGIN
545: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
546: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
547: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
548: END IF;
549: --
550: -- Debug Statements
551: --
569: END IF;
570: --
571: SAVEPOINT before_backorder;
572:
573: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
574: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
575:
576: -- Consolidation of BO Delivery Details project
577: -- Begin
570: --
571: SAVEPOINT before_backorder;
572:
573: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
574: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
575:
576: -- Consolidation of BO Delivery Details project
577: -- Begin
578: l_line_ids.DELETE;
594: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
595: END IF;
596: --
597: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec, l_return_status);
598: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
599: wsh_util_core.add_message(l_return_status,'WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details');
600: x_return_status := l_return_status;
601: RAISE backorder_error;
602: END IF;
595: END IF;
596: --
597: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec, l_return_status);
598: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
599: wsh_util_core.add_message(l_return_status,'WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details');
600: x_return_status := l_return_status;
601: RAISE backorder_error;
602: END IF;
603:
623: l_dd_rec_tab(l_dd_rec_tab.count).source := p_sources(i);
624:
625: -- muom
626: IF p_sources(i) is not null and p_line_ids(i) is not null THEN
627: l_dd_rec_tab(l_dd_rec_tab.count).fulfillment_base := WSH_UTIL_CORE.Get_Line_Fulfillment_Base(p_sources(i), p_line_ids(i));
628: ELSE
629: l_dd_rec_tab(l_dd_rec_tab.count).fulfillment_base := 'P';
630: END IF;
631: IF l_debug_on THEN
648: x_remain_bo_qtys => l_remain_bo_qtys,
649: x_remain_bo_qty2s => l_remain_bo_qty2s,
650: x_return_status => l_return_status
651: );
652: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
653: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
654: wsh_util_core.add_message(l_return_status,'WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details');
655: x_return_status := l_return_status;
656: RAISE backorder_error;
649: x_remain_bo_qty2s => l_remain_bo_qty2s,
650: x_return_status => l_return_status
651: );
652: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
653: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
654: wsh_util_core.add_message(l_return_status,'WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details');
655: x_return_status := l_return_status;
656: RAISE backorder_error;
657: END IF;
650: x_return_status => l_return_status
651: );
652: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
653: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
654: wsh_util_core.add_message(l_return_status,'WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details');
655: x_return_status := l_return_status;
656: RAISE backorder_error;
657: END IF;
658:
735: --
736:
737: -- muom: l_fulfillment_base will not be populated if the details are not consolidated
738: IF (NOT l_fulfillment_base.exists(i)) THEN
739: l_fulfillment_base(i) := WSH_UTIL_CORE.Get_Line_Fulfillment_Base(l_source_code, l_source_line_id);
740: END IF;
741: IF l_debug_on THEN
742: WSH_DEBUG_SV.logmsg(l_module_name,'Fulfillment Base is '||l_fulfillment_base(i));
743: END IF;
766:
767: l_bo_qty := l_bo_qtys(i);
768: l_bo_qty2 := p_bo_qtys2(i);
769:
770: -- wsh_util_core.println('splitting ' || l_detail_ids(i) );
771: --
772: -- Debug Statements
773: --
774: IF l_debug_on THEN
786: WSH_DEBUG_SV.log(l_module_name,'SPLIT_DELIVERY_DETAILS l_return_status',l_return_status);
787: END IF;
788:
789: /* Bug 2308509 */
790: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
791: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
792: wsh_util_core.add_message(l_return_status,l_module_name);
793: x_return_status := l_return_status;
794: RAISE backorder_error;
787: END IF;
788:
789: /* Bug 2308509 */
790: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
791: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
792: wsh_util_core.add_message(l_return_status,l_module_name);
793: x_return_status := l_return_status;
794: RAISE backorder_error;
795: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
788:
789: /* Bug 2308509 */
790: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
791: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
792: wsh_util_core.add_message(l_return_status,l_module_name);
793: x_return_status := l_return_status;
794: RAISE backorder_error;
795: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
796: l_num_warn := l_num_warn + 1;
791: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
792: wsh_util_core.add_message(l_return_status,l_module_name);
793: x_return_status := l_return_status;
794: RAISE backorder_error;
795: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
796: l_num_warn := l_num_warn + 1;
797: END IF;
798: /* End of Bug 2308509 */
799:
835: x_mtl_system_items_rec => l_item_info,
836: x_return_status => l_return_status
837: );
838:
839: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
840: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
841: -- this is unlikely to happen
842: fnd_message.set_name('WSH', 'WSH_INVALID_INV_ITEM');
843: fnd_message.set_token('ITEM_NAME', l_detail_rec.inventory_item_id);
836: x_return_status => l_return_status
837: );
838:
839: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
840: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
841: -- this is unlikely to happen
842: fnd_message.set_name('WSH', 'WSH_INVALID_INV_ITEM');
843: fnd_message.set_token('ITEM_NAME', l_detail_rec.inventory_item_id);
844: wsh_util_core.add_message(l_return_status,l_module_name);
840: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
841: -- this is unlikely to happen
842: fnd_message.set_name('WSH', 'WSH_INVALID_INV_ITEM');
843: fnd_message.set_token('ITEM_NAME', l_detail_rec.inventory_item_id);
844: wsh_util_core.add_message(l_return_status,l_module_name);
845: x_return_status := l_return_status;
846: RAISE backorder_error;
847: END IF;
848: ELSE
986: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
987: END IF;
988:
989: /* Bug 2308509 */
990: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
991: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
992: ) THEN
993: fnd_message.set_name('WSH', 'WSH_BO_RESERVED_ERROR');
994: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
987: END IF;
988:
989: /* Bug 2308509 */
990: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
991: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
992: ) THEN
993: fnd_message.set_name('WSH', 'WSH_BO_RESERVED_ERROR');
994: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
995: wsh_util_core.add_message(l_return_status,l_module_name);
991: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
992: ) THEN
993: fnd_message.set_name('WSH', 'WSH_BO_RESERVED_ERROR');
994: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
995: wsh_util_core.add_message(l_return_status,l_module_name);
996: x_return_status := l_return_status;
997: RAISE backorder_error;
998: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
999: l_num_warn := l_num_warn + 1;
994: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
995: wsh_util_core.add_message(l_return_status,l_module_name);
996: x_return_status := l_return_status;
997: RAISE backorder_error;
998: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
999: l_num_warn := l_num_warn + 1;
1000: END IF;
1001: /* End ofBug 2308509 */
1002:
1006: IF l_debug_on THEN
1007: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVED FLAG = ' || L_RESERVED_FLAG );
1008: END IF;
1009: --
1010: -- wsh_util_core.println('BO Mode = ' || p_bo_mode );
1011: -- HW BUG#:2005977
1012:
1013:
1014: -- HW OPMCONV. Removed branching
1072: IF l_debug_on THEN
1073: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1074: END IF;
1075:
1076: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1077: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1078: fnd_message.set_name('WSH', 'WSH_BO_UNRESERVE_ERROR');
1079: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
1080: -- muom
1073: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1074: END IF;
1075:
1076: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1077: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1078: fnd_message.set_name('WSH', 'WSH_BO_UNRESERVE_ERROR');
1079: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
1080: -- muom
1081: IF l_fulfillment_base(i) = 'P' THEN
1082: fnd_message.set_token('QUANTITY', l_qty);
1083: ELSE
1084: fnd_message.set_token('QUANTITY', l_qty2);
1085: END IF;
1086: wsh_util_core.add_message(l_return_status,l_module_name);
1087: x_return_status := l_return_status;
1088: RAISE backorder_error;
1089: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1090: l_num_warn := l_num_warn + 1;
1085: END IF;
1086: wsh_util_core.add_message(l_return_status,l_module_name);
1087: x_return_status := l_return_status;
1088: RAISE backorder_error;
1089: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1090: l_num_warn := l_num_warn + 1;
1091: END IF;
1092: END IF;
1093: END; --} lot indivisible reservation block
1138:
1139: IF l_debug_on THEN
1140: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1141: END IF;
1142: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1143: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1144: fnd_message.set_name('WSH', 'WSH_BO_UNRESERVE_ERROR');
1145: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
1146: -- muom
1139: IF l_debug_on THEN
1140: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1141: END IF;
1142: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1143: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1144: fnd_message.set_name('WSH', 'WSH_BO_UNRESERVE_ERROR');
1145: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
1146: -- muom
1147: IF l_fulfillment_base(i) = 'P' THEN
1148: fnd_message.set_token('QUANTITY', l_overpick_qtys(i));
1149: ELSE
1150: fnd_message.set_token('QUANTITY', l_overpick_qty2s(i));
1151: END IF;
1152: wsh_util_core.add_message(l_return_status,l_module_name);
1153: x_return_status := l_return_status;
1154: RAISE backorder_error;
1155: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1156: l_num_warn := l_num_warn + 1;
1151: END IF;
1152: wsh_util_core.add_message(l_return_status,l_module_name);
1153: x_return_status := l_return_status;
1154: RAISE backorder_error;
1155: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1156: l_num_warn := l_num_warn + 1;
1157: END IF;
1158:
1159: END IF; -- l_overpick_qtys(i) > 0
1190: end if;
1191: IF l_debug_on THEN
1192: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1193: END IF;
1194: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1195: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1196: fnd_message.set_name('WSH', 'WSH_BO_UNRESERVE_ERROR');
1197: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
1198: -- muom
1191: IF l_debug_on THEN
1192: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1193: END IF;
1194: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1195: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1196: fnd_message.set_name('WSH', 'WSH_BO_UNRESERVE_ERROR');
1197: fnd_message.set_token('DETAIL_ID', l_detail_ids(i));
1198: -- muom
1199: IF l_fulfillment_base(i) = 'P' THEN
1200: fnd_message.set_token('QUANTITY', l_bo_qtys(i));
1201: ELSE
1202: fnd_message.set_token('QUANTITY', l_bo_qty2s(i));
1203: END IF;
1204: wsh_util_core.add_message(l_return_status,l_module_name);
1205: x_return_status := l_return_status;
1206: RAISE backorder_error;
1207: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1208: l_num_warn := l_num_warn + 1;
1203: END IF;
1204: wsh_util_core.add_message(l_return_status,l_module_name);
1205: x_return_status := l_return_status;
1206: RAISE backorder_error;
1207: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1208: l_num_warn := l_num_warn + 1;
1209:
1210: END IF;
1211: END IF; -- l_bo_qtys(i) > 0
1250: IF l_debug_on THEN
1251: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1252: END IF;
1253: /* Bug 2308509 */
1254: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1255: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1256: wsh_util_core.add_message(l_return_status,l_module_name);
1257: x_return_status := l_return_status;
1258: RAISE backorder_error;
1251: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1252: END IF;
1253: /* Bug 2308509 */
1254: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1255: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1256: wsh_util_core.add_message(l_return_status,l_module_name);
1257: x_return_status := l_return_status;
1258: RAISE backorder_error;
1259: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1252: END IF;
1253: /* Bug 2308509 */
1254: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1255: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1256: wsh_util_core.add_message(l_return_status,l_module_name);
1257: x_return_status := l_return_status;
1258: RAISE backorder_error;
1259: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1260: l_num_warn := l_num_warn + 1;
1255: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1256: wsh_util_core.add_message(l_return_status,l_module_name);
1257: x_return_status := l_return_status;
1258: RAISE backorder_error;
1259: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1260: l_num_warn := l_num_warn + 1;
1261: END IF;
1262: /* End of Bug 2308509 */
1263: --
1276: /* Bug 2308509 */
1277: IF l_debug_on THEN
1278: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1279: END IF;
1280: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1281: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1282: wsh_util_core.add_message(l_return_status,l_module_name);
1283: x_return_status := l_return_status;
1284: RAISE backorder_error;
1277: IF l_debug_on THEN
1278: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1279: END IF;
1280: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1281: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1282: wsh_util_core.add_message(l_return_status,l_module_name);
1283: x_return_status := l_return_status;
1284: RAISE backorder_error;
1285: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1278: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1279: END IF;
1280: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1281: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1282: wsh_util_core.add_message(l_return_status,l_module_name);
1283: x_return_status := l_return_status;
1284: RAISE backorder_error;
1285: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1286: l_num_warn := l_num_warn + 1;
1281: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1282: wsh_util_core.add_message(l_return_status,l_module_name);
1283: x_return_status := l_return_status;
1284: RAISE backorder_error;
1285: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1286: l_num_warn := l_num_warn + 1;
1287: END IF;
1288: /* End of Bug 2308509 */
1289:
1386:
1387: WSH_DD_TXNS_PVT.create_dd_txn_from_dd (p_delivery_detail_id => l_detail_rec.delivery_detail_id,
1388: x_dd_txn_id => l_dd_txn_id,
1389: x_return_status =>l_txn_return_status);
1390: IF (l_txn_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1391: x_return_status := l_txn_return_status;
1392: --RETURN;
1393: raise e_return_excp; -- LPN CONV. rv
1394: END IF;
1408: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ', l_detail_rec.delivery_detail_id );
1409: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1410: END IF;
1411: --Even if raising of event fails the flow continues.
1412: --IF (l_wf_rs <>WSH_UTIL_CORE.G_RET_STS_SUCCESS ) then
1413: --No Action
1414: --END IF;
1415: --Done Raise Event: Pick To Pod Workflow
1416:
1436:
1437: WSH_DD_TXNS_PVT.create_dd_txn_from_dd(p_delivery_detail_id => l_detail_rec.delivery_detail_id,
1438: x_dd_txn_id => l_dd_txn_id,
1439: x_return_status =>l_txn_return_status);
1440: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1441: x_return_status := l_return_status;
1442: raise e_return_excp;
1443: END IF;
1444:
1471:
1472: IF l_debug_on THEN
1473: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1474: END IF;
1475: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1476: x_return_status := l_dbi_rs;
1477: -- just pass this return status to caller API, raise as above
1478: -- Added in Above API already,wsh_util_core.add_message(x_return_status,l_module_name);
1479: RAISE backorder_error;
1474: END IF;
1475: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1476: x_return_status := l_dbi_rs;
1477: -- just pass this return status to caller API, raise as above
1478: -- Added in Above API already,wsh_util_core.add_message(x_return_status,l_module_name);
1479: RAISE backorder_error;
1480: END IF;
1481: -- treat all other return status as Success
1482: -- End of Code for DBI Project
1498: x_return_status => l_return_status);
1499: IF l_debug_on THEN
1500: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1501: END IF;
1502: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1503: wsh_util_core.add_message(l_return_status,l_module_name);
1504: x_return_status := l_return_status;
1505: RAISE new_det_wt_vol_failed;
1506: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1499: IF l_debug_on THEN
1500: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1501: END IF;
1502: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1503: wsh_util_core.add_message(l_return_status,l_module_name);
1504: x_return_status := l_return_status;
1505: RAISE new_det_wt_vol_failed;
1506: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1507: l_num_warn := l_num_warn + 1;
1502: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1503: wsh_util_core.add_message(l_return_status,l_module_name);
1504: x_return_status := l_return_status;
1505: RAISE new_det_wt_vol_failed;
1506: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1507: l_num_warn := l_num_warn + 1;
1508: END IF;
1509: END IF; -- Bug 3547300
1510:
1547: IF l_debug_on THEN
1548: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER UNASSIGN AND UNPACK EMPTY CONTAINER '|| L_RETURN_STATUS );
1549: END IF;
1550:
1551: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1552: --{
1553: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1554: l_num_warn := l_num_warn + 1;
1555: ELSE
1549: END IF;
1550:
1551: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1552: --{
1553: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1554: l_num_warn := l_num_warn + 1;
1555: ELSE
1556: x_return_status := l_return_status;
1557: RAISE backorder_error;
1588: p_Cons_Source_Line_Rec_Tab => l_cons_source_line_rec_tab,
1589: x_consolidate_ids => l_cons_dd_ids,
1590: x_return_status => l_return_status
1591: );
1592: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )THEN
1593: --{
1594: x_return_status := l_return_status;
1595: RAISE backorder_error;
1596: --}
1642: --
1643: IF l_debug_on THEN
1644: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER UNASSIGN AND UNPACK EMPTY CONTAINER '|| L_RETURN_STATUS );
1645: END IF;
1646: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1647: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1648: l_num_warn := l_num_warn + 1;
1649: ELSE
1650: x_return_status := l_return_status;
1643: IF l_debug_on THEN
1644: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER UNASSIGN AND UNPACK EMPTY CONTAINER '|| L_RETURN_STATUS );
1645: END IF;
1646: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1647: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1648: l_num_warn := l_num_warn + 1;
1649: ELSE
1650: x_return_status := l_return_status;
1651: RAISE backorder_error;
1672: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER DELETING DETAIL '|| L_RETURN_STATUS );
1673: END IF;
1674: --
1675: /* Bug 2308509 */
1676: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1677: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1678: )THEN
1679: x_return_status := l_return_status;
1680: RAISE backorder_error;
1673: END IF;
1674: --
1675: /* Bug 2308509 */
1676: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1677: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1678: )THEN
1679: x_return_status := l_return_status;
1680: RAISE backorder_error;
1681: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1677: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1678: )THEN
1679: x_return_status := l_return_status;
1680: RAISE backorder_error;
1681: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1682: l_num_warn := l_num_warn + 1;
1683: END IF;
1684: /* End of Bug 2308509 */
1685: END IF; -- l_delete_dds.count > 0
1694: END IF;
1695: --
1696: wsh_delivery_validations.check_ship_set( l_delivery_id, l_valid_flag, l_return_status);
1697: /* Bug 2308509 */
1698: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1699: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1700: )THEN
1701: x_return_status := l_return_status;
1702: RAISE backorder_error;
1695: --
1696: wsh_delivery_validations.check_ship_set( l_delivery_id, l_valid_flag, l_return_status);
1697: /* Bug 2308509 */
1698: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1699: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1700: )THEN
1701: x_return_status := l_return_status;
1702: RAISE backorder_error;
1703: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1699: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1700: )THEN
1701: x_return_status := l_return_status;
1702: RAISE backorder_error;
1703: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1704: l_num_warn := l_num_warn + 1;
1705: END IF;
1706: /* End of Bug 2308509 */
1707:
1728: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1729: END IF;
1730: --
1731: --
1732: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1733: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1734: )THEN
1735: x_return_status := l_return_status;
1736: RAISE backorder_error;
1729: END IF;
1730: --
1731: --
1732: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1733: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1734: )THEN
1735: x_return_status := l_return_status;
1736: RAISE backorder_error;
1737: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1733: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
1734: )THEN
1735: x_return_status := l_return_status;
1736: RAISE backorder_error;
1737: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1738: l_num_warn := l_num_warn + 1;
1739: END IF;
1740: --}
1741: END IF;
1745:
1746:
1747: /* Warning Handling for Bug 2308509 */
1748: IF (l_num_warn > 0
1749: AND l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1750: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1751: )THEN
1752: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1753: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1746:
1747: /* Warning Handling for Bug 2308509 */
1748: IF (l_num_warn > 0
1749: AND l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1750: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1751: )THEN
1752: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1753: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1754: -- for handling all the cases
1748: IF (l_num_warn > 0
1749: AND l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1750: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1751: )THEN
1752: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1753: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1754: -- for handling all the cases
1755: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1756: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1749: AND l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1750: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1751: )THEN
1752: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1753: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1754: -- for handling all the cases
1755: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1756: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1757: x_return_status := l_return_status;
1751: )THEN
1752: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1753: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1754: -- for handling all the cases
1755: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1756: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1757: x_return_status := l_return_status;
1758: RAISE backorder_error;
1759: END IF;
1752: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1753: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1754: -- for handling all the cases
1755: ELSIF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1756: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1757: x_return_status := l_return_status;
1758: RAISE backorder_error;
1759: END IF;
1760: /* End of Warning Handling for Bug 2308509 */
1768: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1769: END IF;
1770: --
1771: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1772: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1773: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1774: END IF;
1775: end if;
1776:
1769: END IF;
1770: --
1771: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1772: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1773: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1774: END IF;
1775: end if;
1776:
1777:
1775: end if;
1776:
1777:
1778: --Bugfix 4070732 {
1779: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1780: --{
1781: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1782: --{
1783: IF l_debug_on THEN
1777:
1778: --Bugfix 4070732 {
1779: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1780: --{
1781: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1782: --{
1783: IF l_debug_on THEN
1784: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1785: END IF;
1780: --{
1781: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1782: --{
1783: IF l_debug_on THEN
1784: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1785: END IF;
1786:
1787: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
1788: x_return_status => l_return_status);
1783: IF l_debug_on THEN
1784: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1785: END IF;
1786:
1787: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
1788: x_return_status => l_return_status);
1789:
1790: IF l_debug_on THEN
1791: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1790: IF l_debug_on THEN
1791: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1792: END IF;
1793:
1794: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1795: x_return_status := l_return_status;
1796:
1797: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1798: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1793:
1794: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1795: x_return_status := l_return_status;
1796:
1797: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1798: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1799: THEN
1800: ROLLBACK TO before_backorder;
1801: END IF;
1794: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1795: x_return_status := l_return_status;
1796:
1797: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1798: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1799: THEN
1800: ROLLBACK TO before_backorder;
1801: END IF;
1802: END IF;
1838: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1839: END IF;
1840: --
1841: --
1842: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1843: x_return_status := l_return_status;
1844: END IF;
1845: --
1846: --}
1861: --
1862: -- Debug Statements
1863: --
1864: --Bugfix 4070732 {
1865: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1866: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1869: END IF;
1862: -- Debug Statements
1863: --
1864: --Bugfix 4070732 {
1865: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1866: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1869: END IF;
1870:
1864: --Bugfix 4070732 {
1865: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1866: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1869: END IF;
1870:
1871: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1872: x_return_status => l_return_status);
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1869: END IF;
1870:
1871: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1872: x_return_status => l_return_status);
1873:
1874:
1875: IF l_debug_on THEN
1875: IF l_debug_on THEN
1876: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1877: END IF;
1878:
1879: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1880: x_return_status := l_return_status;
1881: END IF;
1882: END IF;
1883: END IF;
1899: --
1900: --
1901: WHEN invalid_source_code THEN
1902: fnd_message.set_name('WSH','WSH_INVALID_SHIP_MODE');
1903: wsh_util_core.add_message(x_return_status,l_module_name);
1904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1905: ROLLBACK to before_backorder ;
1906: /* End of changes for 2096052 */
1907:
1900: --
1901: WHEN invalid_source_code THEN
1902: fnd_message.set_name('WSH','WSH_INVALID_SHIP_MODE');
1903: wsh_util_core.add_message(x_return_status,l_module_name);
1904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1905: ROLLBACK to before_backorder ;
1906: /* End of changes for 2096052 */
1907:
1908: --Bugfix 4070732 {
1905: ROLLBACK to before_backorder ;
1906: /* End of changes for 2096052 */
1907:
1908: --Bugfix 4070732 {
1909: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1910: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1911: IF l_debug_on THEN
1912: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1913: END IF;
1906: /* End of changes for 2096052 */
1907:
1908: --Bugfix 4070732 {
1909: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1910: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1911: IF l_debug_on THEN
1912: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1913: END IF;
1914:
1908: --Bugfix 4070732 {
1909: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1910: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1911: IF l_debug_on THEN
1912: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1913: END IF;
1914:
1915: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1916: x_return_status => l_return_status);
1911: IF l_debug_on THEN
1912: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1913: END IF;
1914:
1915: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1916: x_return_status => l_return_status);
1917:
1918:
1919: IF l_debug_on THEN
1919: IF l_debug_on THEN
1920: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1921: END IF;
1922:
1923: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1924: x_return_status := l_return_status;
1925: END IF;
1926:
1927: END IF;
1937: END IF;
1938: --
1939: WHEN no_backorder_full THEN
1940: fnd_message.set_name('WSH','WSH_BKALL_NOT_ALLOW');
1941: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1942: wsh_util_core.add_message(x_return_status,l_module_name);
1943: ROLLBACK to before_backorder ;
1944:
1945: --Bugfix 4070732 {
1938: --
1939: WHEN no_backorder_full THEN
1940: fnd_message.set_name('WSH','WSH_BKALL_NOT_ALLOW');
1941: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1942: wsh_util_core.add_message(x_return_status,l_module_name);
1943: ROLLBACK to before_backorder ;
1944:
1945: --Bugfix 4070732 {
1946: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1942: wsh_util_core.add_message(x_return_status,l_module_name);
1943: ROLLBACK to before_backorder ;
1944:
1945: --Bugfix 4070732 {
1946: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1947: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1950: END IF;
1943: ROLLBACK to before_backorder ;
1944:
1945: --Bugfix 4070732 {
1946: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1947: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1950: END IF;
1951:
1945: --Bugfix 4070732 {
1946: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1947: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1950: END IF;
1951:
1952: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1953: x_return_status => l_return_status);
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1950: END IF;
1951:
1952: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1953: x_return_status => l_return_status);
1954:
1955:
1956: IF l_debug_on THEN
1956: IF l_debug_on THEN
1957: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1958: END IF;
1959:
1960: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1961: x_return_status := l_return_status;
1962: END IF;
1963:
1964: END IF;
1973: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_BACKORDER_FULL');
1974: END IF;
1975: --
1976: WHEN new_det_wt_vol_failed THEN
1977: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1978: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
1979: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_detail_rec.delivery_detail_id );
1980: wsh_util_core.add_message(x_return_status,l_module_name);
1981:
1976: WHEN new_det_wt_vol_failed THEN
1977: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1978: fnd_message.set_name('WSH', 'WSH_DET_WT_VOL_FAILED');
1979: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_detail_rec.delivery_detail_id );
1980: wsh_util_core.add_message(x_return_status,l_module_name);
1981:
1982: --
1983: -- K LPN CONV. rv
1984: --
2001: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
2002: END IF;
2003: --
2004: --
2005: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2006: x_return_status := l_return_status;
2007: END IF;
2008: --
2009: --}
2011: --
2012: -- K LPN CONV. rv
2013: --
2014: --Bugfix 4070732 {
2015: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2016: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2017: IF l_debug_on THEN
2018: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2019: END IF;
2012: -- K LPN CONV. rv
2013: --
2014: --Bugfix 4070732 {
2015: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2016: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2017: IF l_debug_on THEN
2018: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2019: END IF;
2020:
2014: --Bugfix 4070732 {
2015: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2016: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2017: IF l_debug_on THEN
2018: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2019: END IF;
2020:
2021: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
2022: x_return_status => l_return_status);
2017: IF l_debug_on THEN
2018: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2019: END IF;
2020:
2021: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
2022: x_return_status => l_return_status);
2023:
2024:
2025: IF l_debug_on THEN
2025: IF l_debug_on THEN
2026: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2027: END IF;
2028:
2029: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2030: x_return_status := l_return_status;
2031: END IF;
2032:
2033: END IF;
2041: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
2042: END IF;
2043: --
2044: WHEN OTHERS THEN
2045: WSH_UTIL_CORE.Default_Handler('WSH_SHIP_CONFIRM_ACTIONS2.Backorder',l_module_name);
2046: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2047: ROLLBACK to before_backorder ;
2048: --Bugfix 4070732 {
2049: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2042: END IF;
2043: --
2044: WHEN OTHERS THEN
2045: WSH_UTIL_CORE.Default_Handler('WSH_SHIP_CONFIRM_ACTIONS2.Backorder',l_module_name);
2046: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2047: ROLLBACK to before_backorder ;
2048: --Bugfix 4070732 {
2049: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2050: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2045: WSH_UTIL_CORE.Default_Handler('WSH_SHIP_CONFIRM_ACTIONS2.Backorder',l_module_name);
2046: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2047: ROLLBACK to before_backorder ;
2048: --Bugfix 4070732 {
2049: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2050: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2051: IF l_debug_on THEN
2052: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2053: END IF;
2046: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2047: ROLLBACK to before_backorder ;
2048: --Bugfix 4070732 {
2049: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2050: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2051: IF l_debug_on THEN
2052: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2053: END IF;
2054:
2048: --Bugfix 4070732 {
2049: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2050: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2051: IF l_debug_on THEN
2052: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2053: END IF;
2054:
2055: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
2056: x_return_status => l_return_status);
2051: IF l_debug_on THEN
2052: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2053: END IF;
2054:
2055: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
2056: x_return_status => l_return_status);
2057:
2058:
2059: IF l_debug_on THEN
2114: --
2115: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2116: END IF;
2117: --
2118: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2119:
2120: OPEN c_exception;
2121: FETCH c_exception INTO x_severity_present;
2122: IF c_exception%NOTFOUND THEN
2140: END IF;
2141: --
2142: EXCEPTION
2143: WHEN others THEN
2144: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2145: WSH_UTIL_CORE.default_handler('WSH_SHIP_CONFIRM_ACTIONS2.check_exception',l_module_name);
2146:
2147: IF l_debug_on THEN
2148: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2141: --
2142: EXCEPTION
2143: WHEN others THEN
2144: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2145: WSH_UTIL_CORE.default_handler('WSH_SHIP_CONFIRM_ACTIONS2.check_exception',l_module_name);
2146:
2147: IF l_debug_on THEN
2148: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2149: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2158: -- This wrapper avoids the change of the calls made to Backorder api from different apis
2159: -- (as additional parameter is added to the original backorder api).
2160: --
2161: PROCEDURE Backorder(
2162: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
2163: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2164: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2165: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2166: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2159: -- (as additional parameter is added to the original backorder api).
2160: --
2161: PROCEDURE Backorder(
2162: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
2163: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2164: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2165: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2166: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2167: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2160: --
2161: PROCEDURE Backorder(
2162: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
2163: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2164: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2165: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2166: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2167: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2168: p_bo_mode IN VARCHAR2,
2161: PROCEDURE Backorder(
2162: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
2163: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2164: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2165: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2166: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2167: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2168: p_bo_mode IN VARCHAR2,
2169: p_bo_source IN VARCHAR2 DEFAULT 'SHIP',
2162: p_detail_ids IN WSH_UTIL_CORE.Id_Tab_Type,
2163: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2164: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2165: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2166: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2167: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2168: p_bo_mode IN VARCHAR2,
2169: p_bo_source IN VARCHAR2 DEFAULT 'SHIP',
2170: x_out_rows OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
2163: p_bo_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2164: p_req_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2165: p_bo_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2166: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2167: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2168: p_bo_mode IN VARCHAR2,
2169: p_bo_source IN VARCHAR2 DEFAULT 'SHIP',
2170: x_out_rows OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
2171: x_return_status OUT NOCOPY VARCHAR2 )
2166: p_overpick_qtys IN WSH_UTIL_CORE.Id_Tab_Type,
2167: p_overpick_qtys2 IN WSH_UTIL_CORE.Id_Tab_Type,
2168: p_bo_mode IN VARCHAR2,
2169: p_bo_source IN VARCHAR2 DEFAULT 'SHIP',
2170: x_out_rows OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
2171: x_return_status OUT NOCOPY VARCHAR2 )
2172: IS
2173:
2174: l_line_ids WSH_UTIL_CORE.Id_Tab_Type;
2170: x_out_rows OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
2171: x_return_status OUT NOCOPY VARCHAR2 )
2172: IS
2173:
2174: l_line_ids WSH_UTIL_CORE.Id_Tab_Type;
2175: l_cons_flags WSH_UTIL_CORE.Column_Tab_Type;
2176: l_sources WSH_UTIL_CORE.Column_Tab_Type; -- RTV BO Cons Changes
2177: l_return_status VARCHAR2(1);
2178:
2171: x_return_status OUT NOCOPY VARCHAR2 )
2172: IS
2173:
2174: l_line_ids WSH_UTIL_CORE.Id_Tab_Type;
2175: l_cons_flags WSH_UTIL_CORE.Column_Tab_Type;
2176: l_sources WSH_UTIL_CORE.Column_Tab_Type; -- RTV BO Cons Changes
2177: l_return_status VARCHAR2(1);
2178:
2179: --
2172: IS
2173:
2174: l_line_ids WSH_UTIL_CORE.Id_Tab_Type;
2175: l_cons_flags WSH_UTIL_CORE.Column_Tab_Type;
2176: l_sources WSH_UTIL_CORE.Column_Tab_Type; -- RTV BO Cons Changes
2177: l_return_status VARCHAR2(1);
2178:
2179: --
2180: l_debug_on BOOLEAN;