[Home] [Help]
441: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
442: --
443: IF l_debug_on IS NULL
444: THEN
445: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
446: END IF;
447: --
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.push(l_module_name);
445: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
446: END IF;
447: --
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.push(l_module_name);
450: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
451: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
452: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
453: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
446: END IF;
447: --
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.push(l_module_name);
450: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
451: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
452: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
453: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
454: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
447: --
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.push(l_module_name);
450: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
451: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
452: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
453: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
454: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
455: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
448: IF l_debug_on THEN
449: WSH_DEBUG_SV.push(l_module_name);
450: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
451: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
452: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
453: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
454: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
455: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
456: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
449: WSH_DEBUG_SV.push(l_module_name);
450: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
451: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
452: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
453: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
454: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
455: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
456: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
457: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
450: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
451: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
452: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
453: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
454: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
455: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
456: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
457: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
458: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
451: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
452: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
453: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
454: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
455: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
456: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
457: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
458: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
459: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
452: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
453: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
454: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
455: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
456: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
457: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
458: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
459: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
460: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
453: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
454: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
455: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
456: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
457: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
458: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
459: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
460: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
461: END IF;
454: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
455: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
456: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
457: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
458: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
459: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
460: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
461: END IF;
462: --
455: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
456: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
457: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
458: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
459: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
460: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
461: END IF;
462: --
463: --
456: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
457: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
458: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
459: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
460: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
461: END IF;
462: --
463: --
464: -- Debug Statements
463: --
464: -- Debug Statements
465: --
466: IF l_debug_on THEN
467: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_QUANTITY_PVT.UPDATE_ORDERED_QUANTITY, ACTION = '|| P_ACTION_FLAG );
468: END IF;
469: --
470:
471: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
499: p_organization_id => l_organization_id,
500: x_return_status => l_return_status );
501:
502: IF l_debug_on THEN
503: WSH_DEBUG_SV.log(l_module_name,'l_wh_type,l_return_status',l_wh_type||','||l_return_status);
504: END IF;
505:
506: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
507: x_return_status := l_return_status;
519: AND (p_changed_attribute.ship_from_org_id <> l_organization_id) )
520: and ((p_changed_attribute.inventory_item_id = FND_API.G_MISS_NUM ) OR (p_changed_attribute.inventory_item_id = l_inventory_item_id)) THEN
521: --{
522: IF l_debug_on THEN
523: WSH_DEBUG_SV.log(l_module_name,'inside primary UOM change checking.');
524: END IF;
525: OPEN C_item_details(p_changed_attribute.ship_from_org_id,l_inventory_item_id);
526: FETCH C_item_details INTO l_primary_uom;
527: CLOSE C_item_details;
525: OPEN C_item_details(p_changed_attribute.ship_from_org_id,l_inventory_item_id);
526: FETCH C_item_details INTO l_primary_uom;
527: CLOSE C_item_details;
528: IF l_debug_on THEN
529: WSH_DEBUG_SV.log(l_module_name,'l_primary_uom',l_primary_uom);
530: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
531: END IF;
532: IF (l_primary_uom <> l_requested_quantity_uom) THEN
533: l_requested_quantity_uom := l_primary_uom; --overrite the requested qty uom.
526: FETCH C_item_details INTO l_primary_uom;
527: CLOSE C_item_details;
528: IF l_debug_on THEN
529: WSH_DEBUG_SV.log(l_module_name,'l_primary_uom',l_primary_uom);
530: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
531: END IF;
532: IF (l_primary_uom <> l_requested_quantity_uom) THEN
533: l_requested_quantity_uom := l_primary_uom; --overrite the requested qty uom.
534: END IF;
539: OPEN c_shipping_parameters(l_organization_id);
540: FETCH c_shipping_parameters INTO l_ship_parameters;
541: IF ( c_shipping_parameters%NOTFOUND ) THEN
542: IF l_debug_on THEN
543: WSH_DEBUG_SV.log(l_module_name,'Shipping Parameters notfound for warehuse:'||l_organization_id);
544: END IF;
545: WSH_INTERFACE.PrintMsg(txt=>'Shipping Parameters notfound for warehouse:'||l_organization_id);
546: END IF;
547: CLOSE c_shipping_parameters;
555: --
556: -- Debug Statements
557: --
558: IF l_debug_on THEN
559: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
560: END IF;
561: --
562: l_new_ordered_quantity := WSH_WV_UTILS.Convert_Uom(
563: p_changed_attribute.order_quantity_uom,
590: l_oke_cancel_qty_allowed := 0;
591: -- Debug Statements
592: --
593: IF l_debug_on THEN
594: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
595: END IF;
596: --
597: end;
598:
599: --
600: l_new_ordered_quantity := l_original_ordered_quantity - l_oke_cancel_qty_allowed; -- In req quantity unit
601: --
602: IF l_debug_on THEN
603: WSH_DEBUG_SV.logmsg(l_module_name, 'New Ordered Qty: '|| l_new_ordered_quantity);
604: WSH_DEBUG_SV.logmsg(l_module_name, 'OKE Req Qty. Cancellable : '|| l_oke_cancel_qty_allowed);
605: WSH_DEBUG_SV.logmsg(l_module_name, 'Orig. Req Qty. Cancellable : '|| l_original_ordered_quantity);
606: END IF;
607: --
600: l_new_ordered_quantity := l_original_ordered_quantity - l_oke_cancel_qty_allowed; -- In req quantity unit
601: --
602: IF l_debug_on THEN
603: WSH_DEBUG_SV.logmsg(l_module_name, 'New Ordered Qty: '|| l_new_ordered_quantity);
604: WSH_DEBUG_SV.logmsg(l_module_name, 'OKE Req Qty. Cancellable : '|| l_oke_cancel_qty_allowed);
605: WSH_DEBUG_SV.logmsg(l_module_name, 'Orig. Req Qty. Cancellable : '|| l_original_ordered_quantity);
606: END IF;
607: --
608: end if; -- OKE
601: --
602: IF l_debug_on THEN
603: WSH_DEBUG_SV.logmsg(l_module_name, 'New Ordered Qty: '|| l_new_ordered_quantity);
604: WSH_DEBUG_SV.logmsg(l_module_name, 'OKE Req Qty. Cancellable : '|| l_oke_cancel_qty_allowed);
605: WSH_DEBUG_SV.logmsg(l_module_name, 'Orig. Req Qty. Cancellable : '|| l_original_ordered_quantity);
606: END IF;
607: --
608: end if; -- OKE
609: --
614: --
615: -- Debug Statements
616: --
617: IF l_debug_on THEN
618: WSH_DEBUG_SV.logmsg(l_module_name, 'CHANGE LINE QTY = '|| L_CHANGED_LINE_QUANTITY );
619: END IF;
620: --
621: -- HW OPMCONV - Removed code forking
622:
627: END IF;
628:
629:
630: IF l_debug_on THEN
631: WSH_DEBUG_SV.logmsg(l_module_name, 'l_original_ordered_quantity2 = '||l_original_ordered_quantity2 );
632: WSH_DEBUG_SV.logmsg(l_module_name, 'p_changed_attribute.ordered_quantity2 = '||p_changed_attribute.ordered_quantity2 );
633: END IF;
634:
635: l_changed_line_quantity2 := l_new_requested_quantity2 - l_original_ordered_quantity2; -- In req quantity unit
628:
629:
630: IF l_debug_on THEN
631: WSH_DEBUG_SV.logmsg(l_module_name, 'l_original_ordered_quantity2 = '||l_original_ordered_quantity2 );
632: WSH_DEBUG_SV.logmsg(l_module_name, 'p_changed_attribute.ordered_quantity2 = '||p_changed_attribute.ordered_quantity2 );
633: END IF;
634:
635: l_changed_line_quantity2 := l_new_requested_quantity2 - l_original_ordered_quantity2; -- In req quantity unit
636:
636:
637: l_changed_detail_quantity2 := ABS(l_changed_line_quantity2);
638:
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW REQUESTED_QUANTITY2 = '||L_CHANGED_LINE_QUANTITY2 );
641: END IF;
642: --
643: --
644: -- 5870774: Update the new SRC requested qty. on the Wdds with Line_id = source_line_id
655: x_msg_count => l_msg_count,
656: x_msg_data => l_msg_data
657: );
658: IF l_debug_on THEN
659: WSH_DEBUG_SV.log(l_module_name,' l_return_status : ',l_return_status);
660: WSH_DEBUG_SV.log(l_module_name,' l_src_cancel_qty_allowed : ',l_src_cancel_qty_allowed);
661: END IF;
662: else
663: l_src_cancel_qty_allowed := l_oke_cancel_qty_allowed;
656: x_msg_data => l_msg_data
657: );
658: IF l_debug_on THEN
659: WSH_DEBUG_SV.log(l_module_name,' l_return_status : ',l_return_status);
660: WSH_DEBUG_SV.log(l_module_name,' l_src_cancel_qty_allowed : ',l_src_cancel_qty_allowed);
661: END IF;
662: else
663: l_src_cancel_qty_allowed := l_oke_cancel_qty_allowed;
664: end if;
671: where source_code = p_source_code
672: and source_line_id = p_changed_attribute.source_line_id;
673: --
674: IF l_debug_on THEN
675: WSH_DEBUG_SV.log(l_module_name,' After Update- l_src_cancel_qty_allowed : ',l_src_cancel_qty_allowed);
676: END IF;
677: end if; -- OKE
678:
679: -- Check if Item is Serial Controlled
683: OPEN c_is_ser_control(l_inventory_item_id, l_organization_id);
684: FETCH c_is_ser_control INTO l_ser_control;
685: IF c_is_ser_control%NOTFOUND THEN
686: IF l_debug_on THEN
687: WSH_DEBUG_SV.logmsg(l_module_name, 'No records found in mtl_system_items for Item Id '||L_INVENTORY_ITEM_ID||' AND
688: organization '||L_ORGANIZATION_ID );
689: END IF;
690: raise no_data_found ;
691: END IF;
701: ELSE
702: l_txn_type_id := 35; -- 35 for OSP
703: END IF;
704: IF l_debug_on THEN
705: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit inv_serial_number_pub.is_serial_controlled',WSH_DEBUG_SV.C_PROC_LEVEL);
706: END IF;
707:
708: inv_serial_number_pub.is_serial_controlled (
709: p_inventory_item_id => l_inventory_item_id,
717: x_serial_control => l_rtv_serial_control,
718: x_return_status => l_rtv_return_status);
719:
720: IF l_debug_on THEN
721: wsh_debug_sv.log(l_module_name, 'Calling program unit inv_serial_number_pub.is_serial_controlled. l_rtv_return_status ', l_rtv_return_status);
722: END IF;
723: IF (l_rtv_serial_control = 2 ) then
724: l_ser_control := 2;
725: IF l_debug_on THEN
722: END IF;
723: IF (l_rtv_serial_control = 2 ) then
724: l_ser_control := 2;
725: IF l_debug_on THEN
726: wsh_debug_sv.log(l_module_name, 'setting l_ser_control value to ', l_ser_control);
727: END IF;
728: END IF;
729: END IF; -- RTV changes --}
730:
733: --
734: -- Debug Statements
735: --
736: IF l_debug_on THEN
737: WSH_DEBUG_SV.logmsg(l_module_name, 'OPEN C_OLD_LINE CURSOR');
738: END IF;
739: --
740: -- muom
741: OPEN C_Old_line(l_fulfillment_base);
743: --
744: -- Debug Statements
745: --
746: IF l_debug_on THEN
747: WSH_DEBUG_SV.logmsg(l_module_name, 'OPEN C_OLD_LINE_SER CURSOR');
748: END IF;
749: --
750: -- muom
751: OPEN C_Old_line_ser(l_fulfillment_base);
762: --
763: -- Debug Statements
764: --
765: IF l_debug_on THEN
766: WSH_DEBUG_SV.log(l_module_name, 'IN C_OLD_LINE LOOP : DEL DET', OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
767: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
768: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY', L_CHANGED_LINE_QUANTITY );
769: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY2', L_CHANGED_LINE_QUANTITY2 );
770: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
763: -- Debug Statements
764: --
765: IF l_debug_on THEN
766: WSH_DEBUG_SV.log(l_module_name, 'IN C_OLD_LINE LOOP : DEL DET', OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
767: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
768: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY', L_CHANGED_LINE_QUANTITY );
769: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY2', L_CHANGED_LINE_QUANTITY2 );
770: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
771: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
764: --
765: IF l_debug_on THEN
766: WSH_DEBUG_SV.log(l_module_name, 'IN C_OLD_LINE LOOP : DEL DET', OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
767: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
768: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY', L_CHANGED_LINE_QUANTITY );
769: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY2', L_CHANGED_LINE_QUANTITY2 );
770: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
771: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
772: END IF;
765: IF l_debug_on THEN
766: WSH_DEBUG_SV.log(l_module_name, 'IN C_OLD_LINE LOOP : DEL DET', OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
767: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
768: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY', L_CHANGED_LINE_QUANTITY );
769: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY2', L_CHANGED_LINE_QUANTITY2 );
770: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
771: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
772: END IF;
773: --
766: WSH_DEBUG_SV.log(l_module_name, 'IN C_OLD_LINE LOOP : DEL DET', OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
767: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
768: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY', L_CHANGED_LINE_QUANTITY );
769: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY2', L_CHANGED_LINE_QUANTITY2 );
770: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
771: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
772: END IF;
773: --
774: IF (p_action_flag = 'D') THEN --{
767: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
768: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY', L_CHANGED_LINE_QUANTITY );
769: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_LINE_QUANTITY2', L_CHANGED_LINE_QUANTITY2 );
770: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
771: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
772: END IF;
773: --
774: IF (p_action_flag = 'D') THEN --{
775:
791: -- detail lines with zeqo qty so that WMS deletes the replenishment record.
792: IF (old_delivery_detail_rec.replenishment_status = 'R' and old_delivery_detail_rec.released_status in ('R','B')) THEN
793: --{
794: IF l_debug_on THEN
795: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
796: END IF;
797: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL (
798: p_delivery_detail_id => old_delivery_detail_rec.delivery_detail_id,
799: p_primary_quantity => 0, --- WMS will delete the records from replenishment table.
800: x_return_status => x_return_status);
801: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
802: --{
803: IF l_debug_on THEN
804: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
805: WSH_DEBUG_SV.pop(l_module_name);
806: END IF;
807: RETURN;
808: --}
801: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
802: --{
803: IF l_debug_on THEN
804: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
805: WSH_DEBUG_SV.pop(l_module_name);
806: END IF;
807: RETURN;
808: --}
809: END IF;
815: p_details_id => l_details_id ,
816: x_return_status => l_return_status);
817:
818: IF l_debug_on THEN
819: WSH_DEBUG_SV.log(l_module_name,'WSH_INTERFACE.DELETE_DETAILS l_return_status',l_return_status);
820: END IF;
821:
822: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
823: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
834: --
835: -- Debug Statements
836: --
837: IF l_debug_on THEN
838: WSH_DEBUG_SV.logmsg(l_module_name, 'REJECT REQUEST AS SOME DELIVERY LINES ARE '||L_RELEASED_STATUS );
839: END IF;
840: --
841: FND_MESSAGE.Set_Name('WSH', 'WSH_REJECT_DELETE_QUANTITY');
842: RAISE reject_delete;
852: (l_fulfillment_base = 'S' and ((l_changed_line_quantity2 > 0) OR (l_changed_line_quantity > 0 and l_changed_line_quantity2 >= 0)))
853: THEN --{
854: IF l_debug_on THEN
855: -- muom
856: WSH_DEBUG_SV.logmsg(l_module_name, ' *** qty increase *** ');
857: END IF;
858:
859: IF l_ship_parameters.enforce_ship_set_and_smc = 'Y' THEN
860: --
858:
859: IF l_ship_parameters.enforce_ship_set_and_smc = 'Y' THEN
860: --
861: IF l_debug_on THEN
862: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING SHIP SETS' );
863: END IF;
864: --
865: OPEN c_check_smc_model_change(p_changed_attribute.top_model_line_id,p_changed_attribute.source_header_id);
866: FETCH c_check_smc_model_change INTO l_top_model_line_id;
865: OPEN c_check_smc_model_change(p_changed_attribute.top_model_line_id,p_changed_attribute.source_header_id);
866: FETCH c_check_smc_model_change INTO l_top_model_line_id;
867: IF c_check_smc_model_change%FOUND THEN
868: IF l_debug_on THEN
869: WSH_DEBUG_SV.logmsg(l_module_name, 'INVALID CHANGES IN SMC MODEL' );
870: END IF;
871: -- raise exception.
872: CLOSE c_check_smc_model_change;
873: RAISE invalid_smc_model_change;
895: NVL(old_delivery_detail_rec.released_status,'N') = 'X' )) THEN --{
896: --
897: --
898: IF l_debug_on THEN
899: WSH_DEBUG_SV.log(l_module_name, 'Updating wsh_delivery_details :'|| old_delivery_detail_rec.delivery_detail_id);
900: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty is :'|| old_delivery_detail_rec.requested_quantity );
901: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty2 is :'||old_delivery_detail_rec.requested_quantity2 );
902: WSH_DEBUG_SV.logmsg(l_module_name, 'l_changed_detail_quantity :'|| l_changed_detail_quantity );
903: WSH_DEBUG_SV.logmsg(l_module_name, ' l_changed_line_quantity2 :'||l_changed_line_quantity2 );
896: --
897: --
898: IF l_debug_on THEN
899: WSH_DEBUG_SV.log(l_module_name, 'Updating wsh_delivery_details :'|| old_delivery_detail_rec.delivery_detail_id);
900: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty is :'|| old_delivery_detail_rec.requested_quantity );
901: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty2 is :'||old_delivery_detail_rec.requested_quantity2 );
902: WSH_DEBUG_SV.logmsg(l_module_name, 'l_changed_detail_quantity :'|| l_changed_detail_quantity );
903: WSH_DEBUG_SV.logmsg(l_module_name, ' l_changed_line_quantity2 :'||l_changed_line_quantity2 );
904: END IF;
897: --
898: IF l_debug_on THEN
899: WSH_DEBUG_SV.log(l_module_name, 'Updating wsh_delivery_details :'|| old_delivery_detail_rec.delivery_detail_id);
900: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty is :'|| old_delivery_detail_rec.requested_quantity );
901: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty2 is :'||old_delivery_detail_rec.requested_quantity2 );
902: WSH_DEBUG_SV.logmsg(l_module_name, 'l_changed_detail_quantity :'|| l_changed_detail_quantity );
903: WSH_DEBUG_SV.logmsg(l_module_name, ' l_changed_line_quantity2 :'||l_changed_line_quantity2 );
904: END IF;
905:
898: IF l_debug_on THEN
899: WSH_DEBUG_SV.log(l_module_name, 'Updating wsh_delivery_details :'|| old_delivery_detail_rec.delivery_detail_id);
900: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty is :'|| old_delivery_detail_rec.requested_quantity );
901: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty2 is :'||old_delivery_detail_rec.requested_quantity2 );
902: WSH_DEBUG_SV.logmsg(l_module_name, 'l_changed_detail_quantity :'|| l_changed_detail_quantity );
903: WSH_DEBUG_SV.logmsg(l_module_name, ' l_changed_line_quantity2 :'||l_changed_line_quantity2 );
904: END IF;
905:
906: -- muom
899: WSH_DEBUG_SV.log(l_module_name, 'Updating wsh_delivery_details :'|| old_delivery_detail_rec.delivery_detail_id);
900: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty is :'|| old_delivery_detail_rec.requested_quantity );
901: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty2 is :'||old_delivery_detail_rec.requested_quantity2 );
902: WSH_DEBUG_SV.logmsg(l_module_name, 'l_changed_detail_quantity :'|| l_changed_detail_quantity );
903: WSH_DEBUG_SV.logmsg(l_module_name, ' l_changed_line_quantity2 :'||l_changed_line_quantity2 );
904: END IF;
905:
906: -- muom
907: l_update_qty := old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity;
908: IF (l_fulfillment_base = 'S') THEN
909: -- If the new requested quantity is <= 0, then derive requested from secondary
910: IF (old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity <= 0) THEN
911: IF l_debug_on THEN
912: WSH_DEBUG_SV.logmsg(l_module_name,'l_update_qty is '||l_update_qty);
913: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM ' ,WSH_DEBUG_SV.C_PROC_LEVEL);
914: END IF;
915: l_update_qty := wsh_wv_utils.convert_uom(
916: from_uom => l_requested_quantity_uom2,
909: -- If the new requested quantity is <= 0, then derive requested from secondary
910: IF (old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity <= 0) THEN
911: IF l_debug_on THEN
912: WSH_DEBUG_SV.logmsg(l_module_name,'l_update_qty is '||l_update_qty);
913: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM ' ,WSH_DEBUG_SV.C_PROC_LEVEL);
914: END IF;
915: l_update_qty := wsh_wv_utils.convert_uom(
916: from_uom => l_requested_quantity_uom2,
917: to_uom => l_requested_quantity_uom,
919: item_id => old_delivery_detail_rec.inventory_item_id,
920: org_id => old_delivery_detail_rec.organization_id);
921: l_changed_detail_quantity := l_update_qty - old_delivery_detail_rec.requested_quantity;
922: IF l_debug_on THEN
923: WSH_DEBUG_SV.logmsg(l_module_name,'new l_update_qty '||l_update_qty);
924: WSH_DEBUG_SV.logmsg(l_module_name,'new l_changed_detail_quantity '||l_changed_detail_quantity);
925: END IF;
926: END IF;
927:
920: org_id => old_delivery_detail_rec.organization_id);
921: l_changed_detail_quantity := l_update_qty - old_delivery_detail_rec.requested_quantity;
922: IF l_debug_on THEN
923: WSH_DEBUG_SV.logmsg(l_module_name,'new l_update_qty '||l_update_qty);
924: WSH_DEBUG_SV.logmsg(l_module_name,'new l_changed_detail_quantity '||l_changed_detail_quantity);
925: END IF;
926: END IF;
927:
928: UPDATE wsh_delivery_details SET
948: -- Update of wsh_delivery_details where requested_quantity/released_status
949: -- are changed, call DBI API after the update.
950: -- This API will also check for DBI Installed or not
951: IF l_debug_on THEN
952: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',old_delivery_detail_rec.delivery_detail_id);
953: END IF;
954: l_detail_tab(1) := old_delivery_detail_rec.delivery_detail_id;
955: WSH_INTEGRATION.DBI_Update_Detail_Log
956: (p_delivery_detail_id_tab => l_detail_tab,
957: p_dml_type => 'UPDATE',
958: x_return_status => l_dbi_rs);
959:
960: IF l_debug_on THEN
961: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
962: END IF;
963: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
964: x_return_status := l_dbi_rs;
965: -- just pass this return status to caller API
963: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
964: x_return_status := l_dbi_rs;
965: -- just pass this return status to caller API
966: IF l_debug_on THEN
967: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
968: WSH_DEBUG_SV.pop(l_module_name);
969: END IF;
970: return;
971: END IF;
964: x_return_status := l_dbi_rs;
965: -- just pass this return status to caller API
966: IF l_debug_on THEN
967: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
968: WSH_DEBUG_SV.pop(l_module_name);
969: END IF;
970: return;
971: END IF;
972: -- End of Code for DBI Project
973: --
974:
975: -- J: W/V Changes
976: IF l_debug_on THEN
977: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
978: END IF;
979: WSH_WV_UTILS.Detail_Weight_Volume(
980: p_delivery_detail_id => old_delivery_detail_rec.delivery_detail_id,
981: p_update_flag => 'Y',
987:
988: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
989: x_return_status := l_rs_ignored;
990: IF l_debug_on THEN
991: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
992: WSH_DEBUG_SV.pop(l_module_name);
993: END IF;
994: return;
995: END IF;
988: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
989: x_return_status := l_rs_ignored;
990: IF l_debug_on THEN
991: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
992: WSH_DEBUG_SV.pop(l_module_name);
993: END IF;
994: return;
995: END IF;
996: -- End of W/V Changes
1002: --above code.
1003: IF (l_changed_detail_quantity > 0 AND l_gc3_is_installed = 'Y') THEN
1004:
1005: IF l_debug_on THEN
1006: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
1007: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1008: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1009: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1010: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1003: IF (l_changed_detail_quantity > 0 AND l_gc3_is_installed = 'Y') THEN
1004:
1005: IF l_debug_on THEN
1006: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
1007: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1008: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1009: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1010: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1011: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
1004:
1005: IF l_debug_on THEN
1006: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
1007: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1008: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1009: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1010: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1011: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
1012: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1005: IF l_debug_on THEN
1006: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
1007: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1008: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1009: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1010: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1011: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
1012: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1013: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1006: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
1007: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1008: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1009: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1010: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1011: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
1012: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1013: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1014: END IF;
1007: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1008: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1009: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1010: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1011: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
1012: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1013: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1014: END IF;
1015:
1008: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1009: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1010: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1011: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
1012: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1013: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1014: END IF;
1015:
1016: --prepare table of delivery detail information to call splitter
1009: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1010: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1011: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
1012: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1013: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1014: END IF;
1015:
1016: --prepare table of delivery detail information to call splitter
1017: l_split_delivery_detail_tab(1) := WSH_ENTITY_INFO_REC(
1027: NULL);
1028: l_item_quantity_uom_tab(1) := old_delivery_detail_rec.requested_quantity_uom;
1029:
1030: IF l_debug_on THEN
1031: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split',WSH_DEBUG_SV.C_PROC_LEVEL);
1032: END IF;
1033:
1034: WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split(
1035: p_detail_tab => l_split_delivery_detail_tab,
1036: p_item_quantity_uom_tab => l_item_quantity_uom_tab,
1037: x_return_status => l_return_status);
1038:
1039: IF l_debug_on THEN
1040: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split: ' || l_return_status);
1041: END IF;
1042:
1043: -- we will not fail based on l_return_status here because
1044: -- we do not want to stop the flow
1045: -- if the detail doesn't split, it will be caught later in
1046: -- delivery splitting and will have exception on the detail
1047: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1048: IF l_debug_on THEN
1049: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery detail split failed for ' || old_delivery_detail_rec.delivery_detail_id );
1050: END IF;
1051: END IF;
1052: --END splitter call
1053:
1067: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
1068: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
1069: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
1070: IF l_debug_on THEN
1071: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
1072: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
1073: END IF;
1074: ELSE
1075: l_call_update := 'N';
1068: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
1069: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
1070: IF l_debug_on THEN
1071: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
1072: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
1073: END IF;
1074: ELSE
1075: l_call_update := 'N';
1076: END IF;
1084:
1085: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1086: x_return_status := l_return_status;
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
1089: WSH_DEBUG_SV.pop(l_module_name);
1090: END IF;
1091: RETURN;
1092: END IF;
1085: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1086: x_return_status := l_return_status;
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
1089: WSH_DEBUG_SV.pop(l_module_name);
1090: END IF;
1091: RETURN;
1092: END IF;
1093: END IF;
1102: ELSE --} {
1103: -- Bug#15943315 Below if condition added to avoid creation of wdd
1104: -- in ready to release status with 0 requested qty.
1105: IF l_debug_on THEN
1106: WSH_DEBUG_SV.logmsg(l_module_name, 'In Else Part');
1107: END IF;
1108: IF (l_fulfillment_base = 'P' AND l_changed_line_quantity > 0) OR
1109: (l_fulfillment_base = 'S' AND l_changed_line_quantity2 > 0)
1110: THEN
1109: (l_fulfillment_base = 'S' AND l_changed_line_quantity2 > 0)
1110: THEN
1111:
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.logmsg(l_module_name, 'Need to create a new delivery detail');
1114: WSH_DEBUG_SV.log(l_module_name, 'l_fulfillment_base',l_fulfillment_base );
1115: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity', l_changed_detail_quantity);
1116: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
1117: END IF;
1110: THEN
1111:
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.logmsg(l_module_name, 'Need to create a new delivery detail');
1114: WSH_DEBUG_SV.log(l_module_name, 'l_fulfillment_base',l_fulfillment_base );
1115: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity', l_changed_detail_quantity);
1116: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
1117: END IF;
1118: IF (NVL(old_delivery_detail_rec.released_status,'N') <> 'D') THEN -- This is to avoid 'D' lines
1111:
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.logmsg(l_module_name, 'Need to create a new delivery detail');
1114: WSH_DEBUG_SV.log(l_module_name, 'l_fulfillment_base',l_fulfillment_base );
1115: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity', l_changed_detail_quantity);
1116: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
1117: END IF;
1118: IF (NVL(old_delivery_detail_rec.released_status,'N') <> 'D') THEN -- This is to avoid 'D' lines
1119:
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.logmsg(l_module_name, 'Need to create a new delivery detail');
1114: WSH_DEBUG_SV.log(l_module_name, 'l_fulfillment_base',l_fulfillment_base );
1115: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity', l_changed_detail_quantity);
1116: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
1117: END IF;
1118: IF (NVL(old_delivery_detail_rec.released_status,'N') <> 'D') THEN -- This is to avoid 'D' lines
1119:
1120: IF (l_fulfillment_base = 'P') THEN -- muom
1127: OR old_delivery_detail_rec.requested_quantity2 IS NOT NULL )
1128: THEN
1129: l_delivery_detail_rec.requested_quantity2 := l_changed_detail_quantity2;
1130: IF l_debug_on THEN
1131: WSH_DEBUG_SV.log(l_module_name,'l_changed_detail_quantity2', l_changed_detail_quantity2);
1132: WSH_DEBUG_SV.log(l_module_name,'New_DD.req_qty2', l_delivery_detail_rec.requested_quantity2);
1133: END IF;
1134: ELSE
1135: l_delivery_Detail_rec.requested_quantity2 := FND_API.G_MISS_NUM;
1128: THEN
1129: l_delivery_detail_rec.requested_quantity2 := l_changed_detail_quantity2;
1130: IF l_debug_on THEN
1131: WSH_DEBUG_SV.log(l_module_name,'l_changed_detail_quantity2', l_changed_detail_quantity2);
1132: WSH_DEBUG_SV.log(l_module_name,'New_DD.req_qty2', l_delivery_detail_rec.requested_quantity2);
1133: END IF;
1134: ELSE
1135: l_delivery_Detail_rec.requested_quantity2 := FND_API.G_MISS_NUM;
1136: IF l_debug_on THEN
1133: END IF;
1134: ELSE
1135: l_delivery_Detail_rec.requested_quantity2 := FND_API.G_MISS_NUM;
1136: IF l_debug_on THEN
1137: WSH_DEBUG_SV.log(l_module_name,'IN ELSE AND l_changed_detail_quantity2', l_changed_detail_quantity2);
1138: END IF;
1139: END IF;
1140: ELSE -- l_fulfillment_base = 'S'
1141: l_delivery_detail_rec.requested_quantity := l_changed_detail_quantity;
1142: l_delivery_detail_rec.requested_quantity2 := l_changed_line_quantity2;
1143: -- If the new requested quantity is <= 0, then derive requested from secondary
1144: IF (l_changed_detail_quantity <= 0) THEN
1145: IF l_debug_on THEN
1146: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM ' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1147: END IF;
1148: l_changed_detail_quantity := wsh_wv_utils.convert_uom(
1149: from_uom => l_requested_quantity_uom2,
1150: to_uom => l_requested_quantity_uom,
1151: quantity => l_changed_line_quantity2,
1152: item_id => old_delivery_detail_rec.inventory_item_id,
1153: org_id => old_delivery_detail_rec.organization_id);
1154: IF l_debug_on THEN
1155: WSH_DEBUG_SV.logmsg(l_module_name,'l_changed_detail_quantity '||l_changed_detail_quantity);
1156: END IF;
1157: l_delivery_detail_rec.requested_quantity := l_changed_detail_quantity;
1158: END IF;
1159: END IF; -- end muom
1195: --
1196: -- Debug Statements
1197: --
1198: IF l_debug_on THEN
1199: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATED MOVE ORDER LINE TO NULL FOR NEW DD '||L_DUMMY_DELIVERY_DETAIL_ID );
1200: END IF;
1201: --
1202:
1203: IF (NVL(old_delivery_detail_rec.released_status, 'N') <> 'N') THEN
1217: x_delivery_detail_id => l_dummy_delivery_detail_id,
1218: x_return_status => l_return_status);
1219:
1220: IF l_debug_on THEN
1221: WSH_DEBUG_SV.log(l_module_name,'create_new_detail_from_old l_dummy_rowid,
1222: l_dummy_delivery_detail_id,l_return_status',l_dummy_rowid||','||
1223: l_dummy_delivery_detail_id||','||l_return_status);
1224: END IF;
1225:
1231: --
1232: -- Debug Statements
1233: --
1234: IF l_debug_on THEN
1235: WSH_DEBUG_SV.log(l_module_name,'CREATED DETAIL ID',L_DUMMY_DELIVERY_DETAIL_ID);
1236: WSH_DEBUG_SV.log(l_module_name,'New_DD.req_qty2', l_delivery_detail_rec.requested_quantity2);
1237: END IF;
1238: --
1239:
1232: -- Debug Statements
1233: --
1234: IF l_debug_on THEN
1235: WSH_DEBUG_SV.log(l_module_name,'CREATED DETAIL ID',L_DUMMY_DELIVERY_DETAIL_ID);
1236: WSH_DEBUG_SV.log(l_module_name,'New_DD.req_qty2', l_delivery_detail_rec.requested_quantity2);
1237: END IF;
1238: --
1239:
1240:
1251: x_delivery_assignment_id => l_dummy_id,
1252: x_return_status => l_return_status);
1253:
1254: IF l_debug_on THEN
1255: WSH_DEBUG_SV.log(l_module_name,'Create_delivery_assignments l_dummy_rowid,
1256: l_dummy_id,l_return_status',l_dummy_rowid||','||
1257: l_dummy_id||','||l_return_status);
1258: END IF;
1259:
1268: x_net_weight => l_net_weight,
1269: x_volume => l_volume,
1270: x_return_status => l_rs_ignored);
1271: IF l_debug_on THEN
1272: WSH_DEBUG_SV.log(l_module_name,'Detail_Weight_Volume l_net_weight,l_volume,
1273: l_rs_ignored',l_net_weight||','||l_volume||','||l_rs_ignored);
1274: END IF;
1275: -- J: W/V Changes
1276: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1275: -- J: W/V Changes
1276: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1277: x_return_status := l_rs_ignored;
1278: IF l_debug_on THEN
1279: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
1280: WSH_DEBUG_SV.pop(l_module_name);
1281: END IF;
1282: return;
1283: END IF;
1276: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1277: x_return_status := l_rs_ignored;
1278: IF l_debug_on THEN
1279: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
1280: WSH_DEBUG_SV.pop(l_module_name);
1281: END IF;
1282: return;
1283: END IF;
1284: -- End of W/V Changes
1286: --OTM R12, call to delivery detail splitter, process one record at a time here.
1287: IF (l_gc3_is_installed = 'Y') THEN
1288:
1289: IF l_debug_on THEN
1290: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1291: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1292: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1293: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1294: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1287: IF (l_gc3_is_installed = 'Y') THEN
1288:
1289: IF l_debug_on THEN
1290: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1291: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1292: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1293: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1294: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1295: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1288:
1289: IF l_debug_on THEN
1290: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1291: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1292: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1293: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1294: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1295: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1296: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1289: IF l_debug_on THEN
1290: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1291: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1292: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1293: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1294: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1295: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1296: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1297: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1290: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1291: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1292: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1293: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1294: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1295: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1296: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1297: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1298: END IF;
1291: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1292: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1293: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1294: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1295: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1296: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1297: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1298: END IF;
1299:
1292: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1293: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1294: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1295: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1296: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1297: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1298: END IF;
1299:
1300: --prepare table of delivery detail information to call splitter
1293: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1294: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1295: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1296: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1297: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1298: END IF;
1299:
1300: --prepare table of delivery detail information to call splitter
1301: l_split_delivery_detail_tab(1) := WSH_ENTITY_INFO_REC(
1311: NULL);
1312: l_item_quantity_uom_tab(1) := old_delivery_detail_rec.requested_quantity_uom;
1313:
1314: IF l_debug_on THEN
1315: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split',WSH_DEBUG_SV.C_PROC_LEVEL);
1316: END IF;
1317:
1318: WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split(
1319: p_detail_tab => l_split_delivery_detail_tab,
1320: p_item_quantity_uom_tab => l_item_quantity_uom_tab,
1321: x_return_status => l_return_status);
1322:
1323: IF l_debug_on THEN
1324: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split: ' || l_return_status);
1325: END IF;
1326:
1327: -- we will not fail based on l_return_status here because
1328: -- we do not want to stop the flow
1329: -- if the detail doesn't split, it will be caught later in
1330: -- delivery splitting and will have exception on the detail
1331: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1332: IF l_debug_on THEN
1333: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery detail split failed for ' || l_dummy_delivery_detail_id );
1334: END IF;
1335: END IF;
1336:
1337: END IF;
1356: --
1357: -- Debug Statements
1358: --
1359: IF l_debug_on THEN
1360: WSH_DEBUG_SV.logmsg(l_module_name, '*** Quantity Decrease ***');
1361: END IF;
1362: --
1363:
1364: /* H Projects: pricing integration csun, added the delivery id here */
1437: x_return_status => l_return_status);
1438:
1439: IF l_debug_on THEN
1440: -- muom
1441: WSH_DEBUG_SV.logmsg(l_module_name, 'CQ1 l_return_status '||l_return_status||' l_requested_adj_quantity '||l_requested_adj_quantity);
1442: END IF;
1443:
1444: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1445: --
1445: --
1446: -- Debug Statements
1447: --
1448: IF l_debug_on THEN
1449: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLING QUANTITY FAILED FOR DETAIL '||OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1450: END IF;
1451: --
1452: x_return_status := l_return_status;
1453: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1458: --
1459: -- Debug Statements
1460: --
1461: IF l_debug_on THEN
1462: WSH_DEBUG_SV.pop(l_module_name);
1463: END IF;
1464: --
1465: return;
1466: END IF;
1467:
1468:
1469: IF old_delivery_detail_rec.released_status in ('N','R','B') THEN
1470: IF l_debug_on THEN
1471: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1472: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1473: END IF;
1474:
1475:
1468:
1469: IF old_delivery_detail_rec.released_status in ('N','R','B') THEN
1470: IF l_debug_on THEN
1471: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1472: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1473: END IF;
1474:
1475:
1476: IF l_fulfillment_base = 'P' THEN
1479: l_ready_release_change_qty := l_ready_release_change_qty + least(l_changed_detail_quantity, old_delivery_detail_rec.requested_quantity) + l_requested_adj_quantity;
1480: END IF;
1481:
1482: IF l_debug_on THEN
1483: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY);
1484: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1485: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1486: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE old_delivery_detail_rec.requested_quantity2 :'||old_delivery_detail_rec.requested_quantity2 );
1487: END IF;
1480: END IF;
1481:
1482: IF l_debug_on THEN
1483: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY);
1484: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1485: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1486: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE old_delivery_detail_rec.requested_quantity2 :'||old_delivery_detail_rec.requested_quantity2 );
1487: END IF;
1488:
1481:
1482: IF l_debug_on THEN
1483: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY);
1484: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1485: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1486: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE old_delivery_detail_rec.requested_quantity2 :'||old_delivery_detail_rec.requested_quantity2 );
1487: END IF;
1488:
1489: -- HW OPMCONV - Calculate Qty2 similar to Qty1
1482: IF l_debug_on THEN
1483: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY);
1484: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1485: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1486: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE old_delivery_detail_rec.requested_quantity2 :'||old_delivery_detail_rec.requested_quantity2 );
1487: END IF;
1488:
1489: -- HW OPMCONV - Calculate Qty2 similar to Qty1
1490: IF l_fulfillment_base = 'P' THEN
1492: ELSE
1493: l_ready_release_change_qty2 := l_ready_release_change_qty2 + least(l_changed_detail_quantity2, old_delivery_detail_rec.requested_quantity2) ;
1494: END IF;
1495: IF l_debug_on THEN
1496: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1497: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1498: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE l_changed_line_quantity2 :'||l_changed_line_quantity2 );
1499: END IF;
1500: END IF;
1493: l_ready_release_change_qty2 := l_ready_release_change_qty2 + least(l_changed_detail_quantity2, old_delivery_detail_rec.requested_quantity2) ;
1494: END IF;
1495: IF l_debug_on THEN
1496: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1497: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1498: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE l_changed_line_quantity2 :'||l_changed_line_quantity2 );
1499: END IF;
1500: END IF;
1501:
1494: END IF;
1495: IF l_debug_on THEN
1496: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1497: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1498: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE l_changed_line_quantity2 :'||l_changed_line_quantity2 );
1499: END IF;
1500: END IF;
1501:
1502: -- when we have consumed the quantity to cancel, exit the loop.
1510: -- muom
1511: p_fulfillment_base => l_fulfillment_base,
1512: x_return_status => l_return_status);
1513: IF l_debug_on THEN
1514: WSH_DEBUG_SV.log(l_module_name,'Handle_Overpick_cancelled l_return_status',l_return_status);
1515: END IF;
1516: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1517: --
1518: -- Debug Statements
1517: --
1518: -- Debug Statements
1519: --
1520: IF l_debug_on THEN
1521: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATING OVERPICKED LINES API FAILED ' );
1522: END IF;
1523: --
1524: x_return_status := l_return_status;
1525: --
1525: --
1526: -- Debug Statements
1527: --
1528: IF l_debug_on THEN
1529: WSH_DEBUG_SV.pop(l_module_name);
1530: END IF;
1531: --
1532: return;
1533: END IF;
1547: l_changed_detail_quantity2 := GREATEST(l_changed_detail_quantity2 - old_delivery_detail_rec.requested_quantity2,0);
1548: END IF;
1549:
1550: IF l_debug_on THEN
1551: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1552: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY2 :'||L_CHANGED_DETAIL_QUANTITY2 );
1553: END IF;
1554: --
1555:
1548: END IF;
1549:
1550: IF l_debug_on THEN
1551: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1552: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY2 :'||L_CHANGED_DETAIL_QUANTITY2 );
1553: END IF;
1554: --
1555:
1556: ELSE -- Everything else
1578: --
1579: -- Debug Statements
1580: --
1581: IF l_debug_on THEN
1582: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGING EXCEPTION FOR DETAIL: '|| OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1583: END IF;
1584: --
1585: log_exception(
1586: p_ship_from_location_id => old_delivery_detail_rec.ship_from_location_id,
1591: p_inventory_item_id => old_delivery_detail_rec.inventory_item_id,
1592: p_reason => l_reason,
1593: x_return_status => l_return_status);
1594: IF l_debug_on THEN
1595: WSH_DEBUG_SV.log(l_module_name,'log_exception l_return_status',l_return_status);
1596: END IF;
1597:
1598: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1599: --
1599: --
1600: -- Debug Statements
1601: --
1602: IF l_debug_on THEN
1603: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGING EXCEPTION FAILED WITH '||L_RETURN_STATUS );
1604: END IF;
1605: --
1606: x_return_status := l_return_status;
1607: IF (l_return_status IN (FND_API.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
1613: --
1614: -- Debug Statements
1615: --
1616: IF l_debug_on THEN
1617: WSH_DEBUG_SV.pop(l_module_name);
1618: END IF;
1619: --
1620: return;
1621: END IF;
1622: --
1623: -- Debug Statements
1624: --
1625: IF l_debug_on THEN
1626: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING CANCEL_QUANTITY FOR DETAIL '||OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1627: END IF;
1628: --
1629:
1630: -- HW OPMCONV - Removed l_process_flag parameter
1667: x_requested_adj_quantity => l_requested_adj_quantity,
1668: x_return_status => l_return_status);
1669: IF l_debug_on THEN
1670: -- muom
1671: WSH_DEBUG_SV.logmsg(l_module_name, 'CQ2 l_return_status '||l_return_status||' l_requested_adj_quantity '||l_requested_adj_quantity);
1672: END IF;
1673: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1674: --
1675: -- Debug Statements
1674: --
1675: -- Debug Statements
1676: --
1677: IF l_debug_on THEN
1678: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLING QUANTITY FAILED FOR DETAIL '||OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1679: END IF;
1680: --
1681: x_return_status := l_return_status;
1682: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1687: --
1688: -- Debug Statements
1689: --
1690: IF l_debug_on THEN
1691: WSH_DEBUG_SV.pop(l_module_name);
1692: END IF;
1693: --
1694: return;
1695: END IF;
1699: l_ready_release_change_qty := l_ready_release_change_qty + LEAST(l_changed_detail_quantity, old_delivery_detail_rec.requested_quantity) ;
1700: --HW OPMCONV Let's treat Qty2 similar to Qty1
1701: l_ready_release_change_qty2 := l_ready_release_change_qty2 + LEAST(l_changed_detail_quantity2,old_delivery_detail_rec.requested_quantity2) ;
1702: IF l_debug_on THEN
1703: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1704: WSH_DEBUG_SV.logmsg(l_module_name,'IN TWO L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1705: END IF;
1706:
1707: END IF;
1700: --HW OPMCONV Let's treat Qty2 similar to Qty1
1701: l_ready_release_change_qty2 := l_ready_release_change_qty2 + LEAST(l_changed_detail_quantity2,old_delivery_detail_rec.requested_quantity2) ;
1702: IF l_debug_on THEN
1703: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1704: WSH_DEBUG_SV.logmsg(l_module_name,'IN TWO L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1705: END IF;
1706:
1707: END IF;
1708:
1718: -- muom
1719: p_fulfillment_base => l_fulfillment_base,
1720: x_return_status => l_return_status);
1721: IF l_debug_on THEN
1722: WSH_DEBUG_SV.log(l_module_name,'Handle_Overpick_cancelled l_return_status',l_return_status);
1723: END IF;
1724:
1725: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1726: --
1726: --
1727: -- Debug Statements
1728: --
1729: IF l_debug_on THEN
1730: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATING OVERPICKED LINES API FAILED ' );
1731: END IF;
1732: --
1733: x_return_status := l_return_status;
1734: --
1734: --
1735: -- Debug Statements
1736: --
1737: IF l_debug_on THEN
1738: WSH_DEBUG_SV.pop(l_module_name);
1739: END IF;
1740: --
1741: return;
1742: END IF;
1769: --
1770: -- Debug Statements
1771: --
1772: IF l_debug_on THEN
1773: WSH_DEBUG_SV.logmsg(l_module_name, 'REJECT REQUEST AS DELIVERY IS '||L_SHIP_STATUS );
1774: WSH_DEBUG_SV.logmsg(l_module_name, 'VALID UPDATE QUANTITY '||L_VALID_UPDATE_QUANTITY );
1775: -- muom
1776: WSH_DEBUG_SV.logmsg(l_module_name, 'VALID UPDATE QUANTITY2 '||L_VALID_UPDATE_QUANTITY2 );
1777: END IF;
1770: -- Debug Statements
1771: --
1772: IF l_debug_on THEN
1773: WSH_DEBUG_SV.logmsg(l_module_name, 'REJECT REQUEST AS DELIVERY IS '||L_SHIP_STATUS );
1774: WSH_DEBUG_SV.logmsg(l_module_name, 'VALID UPDATE QUANTITY '||L_VALID_UPDATE_QUANTITY );
1775: -- muom
1776: WSH_DEBUG_SV.logmsg(l_module_name, 'VALID UPDATE QUANTITY2 '||L_VALID_UPDATE_QUANTITY2 );
1777: END IF;
1778:
1772: IF l_debug_on THEN
1773: WSH_DEBUG_SV.logmsg(l_module_name, 'REJECT REQUEST AS DELIVERY IS '||L_SHIP_STATUS );
1774: WSH_DEBUG_SV.logmsg(l_module_name, 'VALID UPDATE QUANTITY '||L_VALID_UPDATE_QUANTITY );
1775: -- muom
1776: WSH_DEBUG_SV.logmsg(l_module_name, 'VALID UPDATE QUANTITY2 '||L_VALID_UPDATE_QUANTITY2 );
1777: END IF;
1778:
1779: -- muom
1780: IF (l_fulfillment_base = 'P') THEN
1804: --
1805: -- Debug Statements
1806: --
1807: IF l_debug_on THEN
1808: WSH_DEBUG_SV.logmsg(l_module_name, 'OPM L_CHANGED_LINE_QUANTITY2 < 0 AND L_CHANGED_LINE_QUANTITY = 0 ' );
1809: END IF;
1810: --
1811:
1812: UPDATE wsh_delivery_details
1828: --
1829: -- Debug Statements
1830: --
1831: IF l_debug_on THEN
1832: WSH_DEBUG_SV.logmsg(l_module_name, 'DONE C_OLD_LINE LOOP FOR : DEL DET: '|| OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1833: WSH_DEBUG_SV.logmsg(l_module_name, 'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1834: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1835: END IF;
1836:
1829: -- Debug Statements
1830: --
1831: IF l_debug_on THEN
1832: WSH_DEBUG_SV.logmsg(l_module_name, 'DONE C_OLD_LINE LOOP FOR : DEL DET: '|| OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1833: WSH_DEBUG_SV.logmsg(l_module_name, 'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1834: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1835: END IF;
1836:
1837: END LOOP;
1830: --
1831: IF l_debug_on THEN
1832: WSH_DEBUG_SV.logmsg(l_module_name, 'DONE C_OLD_LINE LOOP FOR : DEL DET: '|| OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1833: WSH_DEBUG_SV.logmsg(l_module_name, 'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1834: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1835: END IF;
1836:
1837: END LOOP;
1838: IF l_ser_control = 1 THEN
1859: x_mtl_reservation_tbl_count => l_size,
1860: x_return_status => l_return_status);
1861:
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.log(l_module_name,'query_reservations l_return_status',l_return_status);
1864: END IF;
1865:
1866: FOR l_counter in 1..l_size
1867: LOOP
1869: --
1870: -- Debug Statements
1871: --
1872: IF l_debug_on THEN
1873: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.DELETE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1874: END IF;
1875: --
1876: WSH_USA_INV_PVT.delete_reservation( -- For that source header and line id
1877: p_query_input => l_rsv_array(l_counter),
1877: p_query_input => l_rsv_array(l_counter),
1878: x_return_status => l_return_status);
1879:
1880: IF l_debug_on THEN
1881: WSH_DEBUG_SV.log(l_module_name,'delete_reservation l_return_status',l_return_status);
1882: END IF;
1883:
1884: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1885: --
1885: --
1886: -- Debug Statements
1887: --
1888: IF l_debug_on THEN
1889: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE RESERVATION FAILED FOR SOURCE LINE '||P_CHANGED_ATTRIBUTE.SOURCE_LINE_ID );
1890: END IF;
1891: --
1892: x_return_status := FND_API.G_RET_STS_ERROR;
1893: --IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1898: --
1899: -- Debug Statements
1900: --
1901: IF l_debug_on THEN
1902: WSH_DEBUG_SV.pop(l_module_name);
1903: END IF;
1904: --
1905: RETURN;
1906: END IF;
1912: -- No longer calls INV s process_move_order_line and process_move_order_header
1913: -- Need to call only if l_ready_release_change_qty > 0
1914: IF l_ready_release_change_qty > 0 THEN
1915: IF l_debug_on THEN
1916: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CANCELLING NON STAGED RESERVATION FOR SOURCE '||P_CHANGED_ATTRIBUTE.SOURCE_LINE_ID );
1917: END IF;
1918: --
1919: WSH_USA_INV_PVT.cancel_nonstaged_reservation (
1920: p_source_code => p_source_code,
1926: p_cancellation_quantity2 => l_ready_release_change_qty2, -- OPM may need to change this
1927: x_return_status => l_return_status);
1928:
1929: IF l_debug_on THEN
1930: WSH_DEBUG_SV.log(l_module_name,'cancel_nonstaged_reservation l_return_status',l_return_status);
1931: END IF;
1932:
1933: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1934: --
1934: --
1935: -- Debug Statements
1936: --
1937: IF l_debug_on THEN
1938: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLING NON STAGED RESERVATION FAILED FOR SOURCE LINE '||P_CHANGED_ATTRIBUTE.SOURCE_LINE_ID );
1939: END IF;
1940: --
1941: x_return_status := FND_API.G_RET_STS_ERROR;
1942: --IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1947: --
1948: -- Debug Statements
1949: --
1950: IF l_debug_on THEN
1951: WSH_DEBUG_SV.pop(l_module_name);
1952: END IF;
1953: --
1954: RETURN;
1955: END IF;
1966: --
1967: -- Debug Statements
1968: --
1969: IF l_debug_on THEN
1970: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
1971: END IF;
1972: --
1973: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
1974: p_entity_type => 'DELIVERY',
1974: p_entity_type => 'DELIVERY',
1975: p_entity_ids => l_del_tab,
1976: x_return_status => l_return_status);
1977: IF l_debug_on THEN
1978: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required l_return_status',l_return_status);
1979: END IF;
1980:
1981: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1982: raise mark_reprice_error;
1983: END IF;
1984:
1985: -- deliveryMerge
1986: IF l_debug_on THEN
1987: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
1988: END IF;
1989: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag(
1990: p_delivery_ids => l_del_tab,
1991: p_caller => 'WSH_DLMG',
1993: p_call_lcss => 'Y',
1994: p_event => NULL,
1995: x_return_status => l_return_status);
1996: IF l_debug_on THEN
1997: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag l_return_status',l_return_status);
1998: END IF;
1999:
2000: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2001: raise Adjust_Planned_Flag_Err;
2004:
2005: END IF;
2006:
2007: IF l_debug_on THEN
2008: WSH_DEBUG_SV.pop(l_module_name);
2009: END IF;
2010: EXCEPTION
2011: WHEN reject_update THEN
2012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2011: WHEN reject_update THEN
2012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2013: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2014: IF l_debug_on THEN
2015: WSH_DEBUG_SV.logmsg(l_module_name,'REJECT_UPDATE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2016: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REJECT_UPDATE');
2017: END IF;
2018: --
2019: WHEN reject_delete THEN
2012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2013: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2014: IF l_debug_on THEN
2015: WSH_DEBUG_SV.logmsg(l_module_name,'REJECT_UPDATE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2016: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REJECT_UPDATE');
2017: END IF;
2018: --
2019: WHEN reject_delete THEN
2020: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2019: WHEN reject_delete THEN
2020: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2021: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2022: IF l_debug_on THEN
2023: WSH_DEBUG_SV.logmsg(l_module_name,'REJECT_DELETE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2024: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REJECT_DELETE');
2025: END IF;
2026: WHEN create_assignment_failure THEN
2027: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_CREATE_AS_FAILED');
2020: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2021: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2022: IF l_debug_on THEN
2023: WSH_DEBUG_SV.logmsg(l_module_name,'REJECT_DELETE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2024: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REJECT_DELETE');
2025: END IF;
2026: WHEN create_assignment_failure THEN
2027: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_CREATE_AS_FAILED');
2028: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2027: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_CREATE_AS_FAILED');
2028: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2029: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2030: IF l_debug_on THEN
2031: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_ASSIGNMENT_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2032: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_ASSIGNMENT_FAILURE');
2033: END IF;
2034: --
2035: WHEN create_detail_failure THEN
2028: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2029: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2030: IF l_debug_on THEN
2031: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_ASSIGNMENT_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2032: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_ASSIGNMENT_FAILURE');
2033: END IF;
2034: --
2035: WHEN create_detail_failure THEN
2036: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_CREATE_DET_FAILED');
2037: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2038: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2039:
2040: IF l_debug_on THEN
2041: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2042: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_DETAIL_FAILURE');
2043: END IF;
2044: WHEN delete_detail_failure THEN
2045: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_DELETE_DET_FAILED');
2038: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2039:
2040: IF l_debug_on THEN
2041: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2042: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_DETAIL_FAILURE');
2043: END IF;
2044: WHEN delete_detail_failure THEN
2045: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_DELETE_DET_FAILED');
2046: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2046: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2047: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2048:
2049: IF l_debug_on THEN
2050: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_DETAIL_FAILURE');
2052: END IF;
2053: WHEN mark_reprice_error THEN
2054: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2047: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2048:
2049: IF l_debug_on THEN
2050: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_DETAIL_FAILURE');
2052: END IF;
2053: WHEN mark_reprice_error THEN
2054: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2055: x_return_status := l_return_status;
2055: x_return_status := l_return_status;
2056: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2057:
2058: IF l_debug_on THEN
2059: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2060: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2061: END IF;
2062: --
2063: WHEN invalid_ship_set THEN
2056: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2057:
2058: IF l_debug_on THEN
2059: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2060: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2061: END IF;
2062: --
2063: WHEN invalid_ship_set THEN
2064: IF l_debug_on THEN
2061: END IF;
2062: --
2063: WHEN invalid_ship_set THEN
2064: IF l_debug_on THEN
2065: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: INVALID SHIP SET' );
2066: END IF;
2067: fnd_message.set_name('WSH', 'WSH_INVALID_SET_CHANGE');
2068: fnd_message.set_token('SHIP_SET',l_ship_set_name);
2069: fnd_message.set_token('LINE_NUMBER',p_changed_attribute.line_number);
2074: fnd_message.set_token('LINE_NUMBER',l_top_model_line_id);
2075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2076: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2077: IF l_debug_on THEN
2078: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2079: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_DETAIL_FAILURE');
2080: END IF;
2081:
2082:
2075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2076: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2077: IF l_debug_on THEN
2078: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2079: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_DETAIL_FAILURE');
2080: END IF;
2081:
2082:
2083:
2086: WSH_UTIL_CORE.add_message(l_return_status,l_module_name);
2087: x_return_status := l_return_status;
2088:
2089: IF l_debug_on THEN
2090: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_Planned_Flag_Err exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
2092: END IF;
2093:
2094:
2087: x_return_status := l_return_status;
2088:
2089: IF l_debug_on THEN
2090: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_Planned_Flag_Err exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
2092: END IF;
2093:
2094:
2095: WHEN others THEN
2104:
2105: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2106: wsh_util_core.default_handler('WSH_USA_QUANTITY_PVT.Update_Ordered_Quantity',l_module_name);
2107: IF l_debug_on THEN
2108: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2109: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2110: END IF;
2111: --
2112: END Update_Ordered_Quantity;
2105: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2106: wsh_util_core.default_handler('WSH_USA_QUANTITY_PVT.Update_Ordered_Quantity',l_module_name);
2107: IF l_debug_on THEN
2108: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2109: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2110: END IF;
2111: --
2112: END Update_Ordered_Quantity;
2113:
2189: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2190: --
2191: IF l_debug_on IS NULL
2192: THEN
2193: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2194: END IF;
2195: --
2196: IF l_debug_on THEN
2197: WSH_DEBUG_SV.push(l_module_name);
2193: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2194: END IF;
2195: --
2196: IF l_debug_on THEN
2197: WSH_DEBUG_SV.push(l_module_name);
2198: --
2199: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2200: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2201: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
2195: --
2196: IF l_debug_on THEN
2197: WSH_DEBUG_SV.push(l_module_name);
2198: --
2199: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2200: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2201: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
2202: WSH_DEBUG_SV.log(l_module_name,'P_FULFILLMENT_BASE',P_FULFILLMENT_BASE);
2203: END IF;
2196: IF l_debug_on THEN
2197: WSH_DEBUG_SV.push(l_module_name);
2198: --
2199: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2200: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2201: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
2202: WSH_DEBUG_SV.log(l_module_name,'P_FULFILLMENT_BASE',P_FULFILLMENT_BASE);
2203: END IF;
2204: --
2197: WSH_DEBUG_SV.push(l_module_name);
2198: --
2199: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2200: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2201: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
2202: WSH_DEBUG_SV.log(l_module_name,'P_FULFILLMENT_BASE',P_FULFILLMENT_BASE);
2203: END IF;
2204: --
2205: x_return_status := FND_API.G_RET_STS_SUCCESS;
2198: --
2199: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2200: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2201: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
2202: WSH_DEBUG_SV.log(l_module_name,'P_FULFILLMENT_BASE',P_FULFILLMENT_BASE);
2203: END IF;
2204: --
2205: x_return_status := FND_API.G_RET_STS_SUCCESS;
2206:
2209: -- because their requested quantities (0) are not taken.
2210: -- This allows the picker to fully stage the quantities entered.
2211: IF (p_context = 'OVERPICK') THEN
2212: IF l_debug_on THEN
2213: WSH_DEBUG_SV.log(l_module_name,'Returning because of overpick normalization');
2214: WSH_DEBUG_SV.pop(l_module_name);
2215: END IF;
2216: RETURN;
2217: END IF;
2210: -- This allows the picker to fully stage the quantities entered.
2211: IF (p_context = 'OVERPICK') THEN
2212: IF l_debug_on THEN
2213: WSH_DEBUG_SV.log(l_module_name,'Returning because of overpick normalization');
2214: WSH_DEBUG_SV.pop(l_module_name);
2215: END IF;
2216: RETURN;
2217: END IF;
2218:
2233: EXIT WHEN C_overpick%NOTFOUND;
2234:
2235: -- Bug 2896572
2236: IF l_debug_on THEN
2237: WSH_DEBUG_SV.log(l_module_name,'Dd id-'||l_delivery_detail_id);
2238: WSH_DEBUG_SV.log(l_module_name,'Rel Status-'||l_released_status);
2239: WSH_DEBUG_SV.log(l_module_name,'Serial Number-'||l_serial_number);
2240: END IF;
2241:
2234:
2235: -- Bug 2896572
2236: IF l_debug_on THEN
2237: WSH_DEBUG_SV.log(l_module_name,'Dd id-'||l_delivery_detail_id);
2238: WSH_DEBUG_SV.log(l_module_name,'Rel Status-'||l_released_status);
2239: WSH_DEBUG_SV.log(l_module_name,'Serial Number-'||l_serial_number);
2240: END IF;
2241:
2242: IF l_released_status = 'Y' THEN
2235: -- Bug 2896572
2236: IF l_debug_on THEN
2237: WSH_DEBUG_SV.log(l_module_name,'Dd id-'||l_delivery_detail_id);
2238: WSH_DEBUG_SV.log(l_module_name,'Rel Status-'||l_released_status);
2239: WSH_DEBUG_SV.log(l_module_name,'Serial Number-'||l_serial_number);
2240: END IF;
2241:
2242: IF l_released_status = 'Y' THEN
2243: l_delivery_detail_split_rec.delivery_detail_id := l_delivery_detail_id;
2262: p_cancellation_quantity2 => l_cancel_quantity2,
2263: x_return_status => x_return_status);
2264:
2265: IF l_debug_on THEN
2266: WSH_DEBUG_SV.log(l_module_name,'WSH_USA_INV_PVT.CANCEL_STAGED_RESERVATION',x_return_status);
2267: END IF;
2268: IF x_return_status IN (fnd_api.g_ret_sts_error,
2269: fnd_api.g_ret_sts_unexp_error) THEN
2270: IF l_debug_on THEN
2267: END IF;
2268: IF x_return_status IN (fnd_api.g_ret_sts_error,
2269: fnd_api.g_ret_sts_unexp_error) THEN
2270: IF l_debug_on THEN
2271: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_USA_INV_PVT.CANCEL_STAGED_RESERVATION ') ;
2272: END IF;
2273:
2274: x_return_status := FND_API.G_RET_STS_ERROR;
2275: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2274: x_return_status := FND_API.G_RET_STS_ERROR;
2275: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2276:
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.pop(l_module_name);
2279: END IF;
2280: return;
2281:
2282: END IF;
2288: --
2289: -- HW OPMCONV - Removed code forking
2290:
2291: IF l_debug_on THEN
2292: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
2293: END IF;
2294: --
2295: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
2296: x_return_status => x_return_status
2301: ,p_txn_source_line_id => p_source_line_id
2302: ,p_delivery_detail_id => l_delivery_detail_id -- X-dock
2303: );
2304: IF l_debug_on THEN
2305: WSH_DEBUG_SV.log(l_module_name,'Cancel_Move_Order_Line x_return_status',x_return_status);
2306: END IF;
2307: --HW OPMCONV - Removed branching
2308: IF x_return_status = fnd_api.g_ret_sts_success THEN
2309: --
2309: --
2310: -- Debug Statements
2311: --
2312: IF l_debug_on THEN
2313: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLED MOLINE '||L_MOVE_ORDER_LINE_ID );
2314: END IF;
2315: --
2316: ELSE
2317: --
2317: --
2318: -- Debug Statements
2319: --
2320: IF l_debug_on THEN
2321: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE ' );
2322: END IF;
2323: --
2324: FND_MESSAGE.Set_Name('WSH', 'WSH_CANCEL_MO_LINE');
2325: IF l_msg_count = 1 THEN
2326: --
2327: -- Debug Statements
2328: --
2329: IF l_debug_on THEN
2330: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2331: END IF;
2332: --
2333: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
2334: ELSE
2337: --
2338: -- Debug Statements
2339: --
2340: IF l_debug_on THEN
2341: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2342: END IF;
2343: --
2344: l_error_text := l_error_text || l_msg_data;
2345: END LOOP;
2351: --
2352: -- Debug Statements
2353: --
2354: IF l_debug_on THEN
2355: WSH_DEBUG_SV.pop(l_module_name);
2356: END IF;
2357: --
2358: return;
2359: END IF;
2368: p_serial_number => l_serial_number,
2369: p_transaction_temp_id => l_txn_temp_id,
2370: x_return_status => x_return_status);
2371: IF l_debug_on THEN
2372: WSH_DEBUG_SV.log(l_module_name,'update_serial_numbers x_return_status',x_return_status);
2373: END IF;
2374: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2375: x_return_status := FND_API.G_RET_STS_ERROR;
2376: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2377: --
2378: -- Debug Statements
2379: --
2380: IF l_debug_on THEN
2381: WSH_DEBUG_SV.pop(l_module_name);
2382: END IF;
2383: --
2384: return;
2385: END IF;
2389: --
2390: -- Debug Statements
2391: --
2392: IF l_debug_on THEN
2393: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2394: END IF;
2395: --
2396: wsh_delivery_details_actions.Unassign_Detail_from_delivery
2397: (l_delivery_detail_id, x_return_status);
2395: --
2396: wsh_delivery_details_actions.Unassign_Detail_from_delivery
2397: (l_delivery_detail_id, x_return_status);
2398: IF l_debug_on THEN
2399: WSH_DEBUG_SV.log(l_module_name,'Unassign_Detail_from_delivery x_return_status',x_return_status);
2400: END IF;
2401:
2402: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2403: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2404: --
2405: -- Debug Statements
2406: --
2407: IF l_debug_on THEN
2408: WSH_DEBUG_SV.pop(l_module_name);
2409: END IF;
2410: --
2411: return;
2412: END IF;
2451: -- Update of wsh_delivery_details where requested_quantity/released_status
2452: -- are changed, call DBI API after the update.
2453: -- DBI API will check if DBI is installed
2454: IF l_debug_on THEN
2455: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_detail_tab.count);
2456: END IF;
2457: WSH_INTEGRATION.DBI_Update_Detail_Log
2458: (p_delivery_detail_id_tab => l_detail_tab,
2459: p_dml_type => 'UPDATE',
2459: p_dml_type => 'UPDATE',
2460: x_return_status => l_dbi_rs);
2461:
2462: IF l_debug_on THEN
2463: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2464: END IF;
2465: -- Only Handle Unexpected error
2466: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2467: x_return_status := l_dbi_rs;
2466: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2467: x_return_status := l_dbi_rs;
2468: --
2469: IF l_debug_on THEN
2470: WSH_DEBUG_SV.pop(l_module_name);
2471: END IF;
2472: --
2473: RETURN;
2474: END IF;
2487: --
2488: -- Debug Statements
2489: --
2490: IF l_debug_on THEN
2491: WSH_DEBUG_SV.pop(l_module_name);
2492: END IF;
2493: --
2494: EXCEPTION
2495:
2497: --
2498: -- Debug Statements
2499: --
2500: IF l_debug_on THEN
2501: WSH_DEBUG_SV.logmsg(l_module_name, 'NO OVERPICKED LINES REMAINING TO BE CANCELLED' );
2502: END IF;
2503: --
2504: --
2505: -- Debug Statements
2504: --
2505: -- Debug Statements
2506: --
2507: IF l_debug_on THEN
2508: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2509: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2510: END IF;
2511: --
2512: WHEN OTHERS THEN
2505: -- Debug Statements
2506: --
2507: IF l_debug_on THEN
2508: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2509: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2510: END IF;
2511: --
2512: WHEN OTHERS THEN
2513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2516: --
2517: -- Debug Statements
2518: --
2519: IF l_debug_on THEN
2520: WSH_DEBUG_SV.pop(l_module_name);
2521: END IF;
2522: --
2523: END Handle_Overpick_cancelled;
2524:
2555: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2556: --
2557: IF l_debug_on IS NULL
2558: THEN
2559: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2560: END IF;
2561: --
2562: IF l_debug_on THEN
2563: WSH_DEBUG_SV.push(l_module_name);
2559: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2560: END IF;
2561: --
2562: IF l_debug_on THEN
2563: WSH_DEBUG_SV.push(l_module_name);
2564: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2566: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2567: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2560: END IF;
2561: --
2562: IF l_debug_on THEN
2563: WSH_DEBUG_SV.push(l_module_name);
2564: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2566: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2567: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2568: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2561: --
2562: IF l_debug_on THEN
2563: WSH_DEBUG_SV.push(l_module_name);
2564: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2566: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2567: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2568: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2569: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2562: IF l_debug_on THEN
2563: WSH_DEBUG_SV.push(l_module_name);
2564: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2566: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2567: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2568: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2569: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2570: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2563: WSH_DEBUG_SV.push(l_module_name);
2564: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2566: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2567: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2568: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2569: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2570: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2571: END IF;
2564: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2566: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2567: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2568: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2569: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2570: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2571: END IF;
2572:
2565: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2566: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2567: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2568: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2569: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2570: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2571: END IF;
2572:
2573: x_return_status := FND_API.G_RET_STS_SUCCESS;
2566: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2567: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2568: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2569: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2570: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2571: END IF;
2572:
2573: x_return_status := FND_API.G_RET_STS_SUCCESS;
2574:
2612: p_error_message => l_exception_error_message
2613: );
2614:
2615: IF l_debug_on THEN
2616: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
2617: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION ID: '|| L_DUMMY_EXCEPTION_ID );
2618: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION MSG DATA: '|| L_EXCEPTION_MSG_DATA );
2619: END IF;
2620:
2613: );
2614:
2615: IF l_debug_on THEN
2616: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
2617: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION ID: '|| L_DUMMY_EXCEPTION_ID );
2618: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION MSG DATA: '|| L_EXCEPTION_MSG_DATA );
2619: END IF;
2620:
2621: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2614:
2615: IF l_debug_on THEN
2616: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
2617: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION ID: '|| L_DUMMY_EXCEPTION_ID );
2618: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION MSG DATA: '|| L_EXCEPTION_MSG_DATA );
2619: END IF;
2620:
2621: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2622: RAISE logging_exception_failure;
2622: RAISE logging_exception_failure;
2623: END IF;
2624:
2625: IF l_debug_on THEN
2626: WSH_DEBUG_SV.pop(l_module_name);
2627: END IF;
2628: --
2629: EXCEPTION
2630: WHEN logging_exception_failure THEN
2633: --
2634: -- Debug Statements
2635: --
2636: IF l_debug_on THEN
2637: WSH_DEBUG_SV.logmsg(l_module_name,'LOGGING_EXCEPTION_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2638: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:LOGGING_EXCEPTION_FAILURE');
2639: END IF;
2640: --
2641: WHEN others THEN
2634: -- Debug Statements
2635: --
2636: IF l_debug_on THEN
2637: WSH_DEBUG_SV.logmsg(l_module_name,'LOGGING_EXCEPTION_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2638: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:LOGGING_EXCEPTION_FAILURE');
2639: END IF;
2640: --
2641: WHEN others THEN
2642: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2643: --
2644: -- Debug Statements
2645: --
2646: IF l_debug_on THEN
2647: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2648: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2649: END IF;
2650: --
2651: END log_exception;
2644: -- Debug Statements
2645: --
2646: IF l_debug_on THEN
2647: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2648: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2649: END IF;
2650: --
2651: END log_exception;
2652:
2769: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2770: --
2771: IF l_debug_on IS NULL
2772: THEN
2773: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2774: END IF;
2775: --
2776: IF l_debug_on THEN
2777: WSH_DEBUG_SV.push(l_module_name);
2773: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2774: END IF;
2775: --
2776: IF l_debug_on THEN
2777: WSH_DEBUG_SV.push(l_module_name);
2778: --
2779: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2780: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2781: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2775: --
2776: IF l_debug_on THEN
2777: WSH_DEBUG_SV.push(l_module_name);
2778: --
2779: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2780: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2781: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2782: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2783: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2776: IF l_debug_on THEN
2777: WSH_DEBUG_SV.push(l_module_name);
2778: --
2779: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2780: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2781: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2782: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2783: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2784: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2777: WSH_DEBUG_SV.push(l_module_name);
2778: --
2779: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2780: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2781: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2782: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2783: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2784: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2785: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2778: --
2779: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2780: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2781: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2782: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2783: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2784: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2785: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2786: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2779: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2780: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2781: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2782: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2783: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2784: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2785: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2786: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2787: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2780: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2781: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2782: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2783: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2784: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2785: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2786: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2787: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2788: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2781: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2782: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2783: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2784: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2785: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2786: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2787: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2788: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2789: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2782: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2783: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2784: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2785: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2786: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2787: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2788: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2789: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2790: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2783: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2784: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2785: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2786: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2787: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2788: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2789: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2790: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2791: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2784: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2785: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2786: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2787: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2788: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2789: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2790: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2791: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2792: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2785: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2786: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2787: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2788: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2789: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2790: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2791: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2792: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2793: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2786: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2787: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2788: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2789: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2790: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2791: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2792: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2793: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2794: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2787: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2788: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2789: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2790: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2791: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2792: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2793: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2794: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2795: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2788: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2789: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2790: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2791: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2792: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2793: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2794: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2795: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2796: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2789: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2790: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2791: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2792: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2793: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2794: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2795: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2796: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2797: -- muom
2790: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2791: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2792: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2793: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2794: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2795: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2796: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2797: -- muom
2798: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
2791: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2792: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2793: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2794: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2795: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2796: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2797: -- muom
2798: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
2799: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2_UOM',P_REQUESTED_QUANTITY2_UOM);
2792: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2793: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2794: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2795: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2796: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2797: -- muom
2798: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
2799: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2_UOM',P_REQUESTED_QUANTITY2_UOM);
2800: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2794: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2795: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2796: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2797: -- muom
2798: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
2799: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2_UOM',P_REQUESTED_QUANTITY2_UOM);
2800: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2801: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2802: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2795: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2796: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2797: -- muom
2798: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
2799: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2_UOM',P_REQUESTED_QUANTITY2_UOM);
2800: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2801: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2802: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2803: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2796: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2797: -- muom
2798: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
2799: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2_UOM',P_REQUESTED_QUANTITY2_UOM);
2800: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2801: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2802: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2803: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2804: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2797: -- muom
2798: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
2799: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2_UOM',P_REQUESTED_QUANTITY2_UOM);
2800: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2801: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2802: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2803: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2804: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2805: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2798: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY_UOM',P_REQUESTED_QUANTITY_UOM);
2799: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2_UOM',P_REQUESTED_QUANTITY2_UOM);
2800: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2801: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2802: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2803: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2804: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2805: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2806: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2799: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2_UOM',P_REQUESTED_QUANTITY2_UOM);
2800: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2801: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2802: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2803: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2804: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2805: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2806: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2807: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2800: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2801: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2802: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2803: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2804: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2805: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2806: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2807: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2808: -- muom
2801: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2802: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2803: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2804: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2805: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2806: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2807: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2808: -- muom
2809: WSH_DEBUG_SV.log(l_module_name,'P_FULFILLMENT_BASE',P_FULFILLMENT_BASE);
2802: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2803: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2804: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2805: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2806: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2807: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2808: -- muom
2809: WSH_DEBUG_SV.log(l_module_name,'P_FULFILLMENT_BASE',P_FULFILLMENT_BASE);
2810: END IF;
2803: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2804: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2805: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2806: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2807: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2808: -- muom
2809: WSH_DEBUG_SV.log(l_module_name,'P_FULFILLMENT_BASE',P_FULFILLMENT_BASE);
2810: END IF;
2811: --
2805: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2806: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2807: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2808: -- muom
2809: WSH_DEBUG_SV.log(l_module_name,'P_FULFILLMENT_BASE',P_FULFILLMENT_BASE);
2810: END IF;
2811: --
2812: --
2813: -- Debug Statements
2812: --
2813: -- Debug Statements
2814: --
2815: IF l_debug_on THEN
2816: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_QUANTITY_PVT.CANCEL_QUANTITY ' );
2817: END IF;
2818: --
2819: x_return_status := FND_API.G_RET_STS_SUCCESS;
2820:
2848: p_override_retain_ato_rsv => 'Y',
2849: x_return_status => x_return_status );
2850:
2851: IF l_debug_on THEN
2852: WSH_DEBUG_SV.log(l_module_name,'unreserve_delivery_detail x_return_status',x_return_status);
2853: END IF;
2854: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2855: x_return_status := FND_API.G_RET_STS_ERROR;
2856: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2857: --
2858: -- Debug Statements
2859: --
2860: IF l_debug_on THEN
2861: WSH_DEBUG_SV.pop(l_module_name);
2862: END IF;
2863: --
2864: return;
2865: END IF;
2890: IF (p_fulfillment_base = 'S') THEN
2891: -- If the new requested quantity is <= 0, then derive requested from secondary
2892: IF (l_update_qty <= 0) THEN
2893: IF l_debug_on THEN
2894: WSH_DEBUG_SV.logmsg(l_module_name,'l_update_qty '||l_update_qty);
2895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM ' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2896: END IF;
2897: l_update_qty := wsh_wv_utils.convert_uom(
2898: from_uom => p_requested_quantity2_uom,
2891: -- If the new requested quantity is <= 0, then derive requested from secondary
2892: IF (l_update_qty <= 0) THEN
2893: IF l_debug_on THEN
2894: WSH_DEBUG_SV.logmsg(l_module_name,'l_update_qty '||l_update_qty);
2895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM ' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2896: END IF;
2897: l_update_qty := wsh_wv_utils.convert_uom(
2898: from_uom => p_requested_quantity2_uom,
2899: to_uom => p_requested_quantity_uom,
2900: quantity => p_requested_quantity2 - ABS(p_changed_detail_quantity2),
2901: item_id => p_inventory_item_id,
2902: org_id => p_organization_id);
2903: IF l_debug_on THEN
2904: WSH_DEBUG_SV.logmsg(l_module_name,'new l_update_qty '||l_update_qty);
2905: END IF;
2906: x_requested_adj_quantity := p_requested_quantity - ABS(p_changed_detail_quantity) - l_update_qty;
2907: END IF;
2908:
2911: -- muom
2912: IF (p_fulfillment_base = 'P') THEN
2913: IF ( (p_requested_quantity - ABS(p_changed_detail_quantity)) >= nvl(p_shipped_quantity,0) ) THEN
2914: IF l_debug_on THEN
2915: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2916: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2917: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2918: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2919: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2912: IF (p_fulfillment_base = 'P') THEN
2913: IF ( (p_requested_quantity - ABS(p_changed_detail_quantity)) >= nvl(p_shipped_quantity,0) ) THEN
2914: IF l_debug_on THEN
2915: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2916: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2917: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2918: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2919: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2920: END IF;
2913: IF ( (p_requested_quantity - ABS(p_changed_detail_quantity)) >= nvl(p_shipped_quantity,0) ) THEN
2914: IF l_debug_on THEN
2915: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2916: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2917: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2918: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2919: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2920: END IF;
2921:
2914: IF l_debug_on THEN
2915: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2916: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2917: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2918: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2919: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2920: END IF;
2921:
2922: UPDATE wsh_delivery_details
2915: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2916: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2917: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2918: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2919: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2920: END IF;
2921:
2922: UPDATE wsh_delivery_details
2923: SET requested_quantity = p_requested_quantity - ABS(p_changed_detail_quantity)
2957: END IF; -- end of comparison between requested - detail with shipped quantity
2958: ELSE
2959: IF ( (p_requested_quantity2 - ABS(p_changed_detail_quantity2)) >= nvl(p_shipped_quantity2,0) ) THEN
2960: IF l_debug_on THEN
2961: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2962: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2963: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2964: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2965: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2958: ELSE
2959: IF ( (p_requested_quantity2 - ABS(p_changed_detail_quantity2)) >= nvl(p_shipped_quantity2,0) ) THEN
2960: IF l_debug_on THEN
2961: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2962: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2963: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2964: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2965: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2966: END IF;
2959: IF ( (p_requested_quantity2 - ABS(p_changed_detail_quantity2)) >= nvl(p_shipped_quantity2,0) ) THEN
2960: IF l_debug_on THEN
2961: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2962: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2963: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2964: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2965: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2966: END IF;
2967:
2960: IF l_debug_on THEN
2961: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2962: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2963: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2964: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2965: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2966: END IF;
2967:
2968: UPDATE wsh_delivery_details
2961: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2962: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity :'||p_requested_quantity);
2963: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity :'||p_changed_detail_quantity);
2964: WSH_DEBUG_SV.log(l_module_name,' p_requested_quantity2 :'||p_requested_quantity2);
2965: WSH_DEBUG_SV.log(l_module_name,' p_changed_detail_quantity2 :'||p_changed_detail_quantity2);
2966: END IF;
2967:
2968: UPDATE wsh_delivery_details
2969: SET requested_quantity = l_update_qty
3003: -- delivery detail lines to decrease the qty from replenishment tables.
3004: IF (p_replenishment_status = 'R' and p_released_status in ('R','B')) THEN
3005: --{
3006: IF l_debug_on THEN
3007: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
3008: END IF;
3009: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL (
3010: p_delivery_detail_id => p_delivery_detail_id,
3011: -- muom
3013: x_return_status => x_return_status);
3014: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3015: --{
3016: IF l_debug_on THEN
3017: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
3018: WSH_DEBUG_SV.pop(l_module_name);
3019: END IF;
3020: RETURN;
3021: --}
3014: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3015: --{
3016: IF l_debug_on THEN
3017: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
3018: WSH_DEBUG_SV.pop(l_module_name);
3019: END IF;
3020: RETURN;
3021: --}
3022: END IF;
3080: -- Either of the above 2 updates will be executed for same delivery detail id
3081: -- hence have one call to DBI wrapper and not 2,this will cover for both
3082: -- This API will also check for DBI Installed or not
3083: IF l_debug_on THEN
3084: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',p_delivery_detail_id);
3085: END IF;
3086: l_detail_tab(1) := p_delivery_detail_id;
3087: WSH_INTEGRATION.DBI_Update_Detail_Log
3088: (p_delivery_detail_id_tab => l_detail_tab,
3089: p_dml_type => 'UPDATE',
3090: x_return_status => l_dbi_rs);
3091:
3092: IF l_debug_on THEN
3093: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
3094: END IF;
3095: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3096: x_return_status := l_dbi_rs;
3097: -- just pass this return status to caller API
3095: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3096: x_return_status := l_dbi_rs;
3097: -- just pass this return status to caller API
3098: IF l_debug_on THEN
3099: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
3100: WSH_DEBUG_SV.pop(l_module_name);
3101: END IF;
3102: return;
3103: END IF;
3096: x_return_status := l_dbi_rs;
3097: -- just pass this return status to caller API
3098: IF l_debug_on THEN
3099: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
3100: WSH_DEBUG_SV.pop(l_module_name);
3101: END IF;
3102: return;
3103: END IF;
3104: -- End of Code for DBI Project
3119: /*
3120: IF ( ( (p_requested_quantity2 - ABS(p_changed_detail_quantity2)) >= nvl(p_shipped_quantity2,0)
3121: AND (p_requested_quantity - ABS(p_changed_detail_quantity)) >= nvl(p_shipped_quantity,0)) ) THEN
3122: IF l_debug_on THEN
3123: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 2 ' );
3124: END IF;
3125: UPDATE wsh_delivery_details SET
3126: requested_quantity2 = p_requested_quantity2 + p_changed_detail_quantity2 -- OPM B2187389
3127: WHERE delivery_detail_id = p_delivery_detail_id;
3131: -- muom
3132: IF (p_fulfillment_base = 'P') OR (p_fulfillment_base = 'S' and p_requested_quantity <> l_update_qty) THEN
3133: -- J: W/V Changes
3134: IF l_debug_on THEN
3135: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
3136: END IF;
3137: WSH_WV_UTILS.Detail_Weight_Volume(
3138: p_delivery_detail_id => p_delivery_detail_id,
3139: p_update_flag => 'Y',
3145:
3146: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3147: x_return_status := l_return_status;
3148: IF l_debug_on THEN
3149: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
3150: WSH_DEBUG_SV.pop(l_module_name);
3151: END IF;
3152: return;
3153: END IF;
3146: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3147: x_return_status := l_return_status;
3148: IF l_debug_on THEN
3149: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
3150: WSH_DEBUG_SV.pop(l_module_name);
3151: END IF;
3152: return;
3153: END IF;
3154: END IF;
3165: -- muom
3166: IF p_fulfillment_base = 'P' THEN
3167:
3168: IF l_debug_on THEN
3169: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
3170:
3171: WSH_DEBUG_SV.push(l_module_name);
3172: --
3173: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity',p_changed_detail_quantity);
3167:
3168: IF l_debug_on THEN
3169: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
3170:
3171: WSH_DEBUG_SV.push(l_module_name);
3172: --
3173: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity',p_changed_detail_quantity);
3174: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity2',ABS(p_changed_detail_quantity2));
3175: END IF;
3169: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
3170:
3171: WSH_DEBUG_SV.push(l_module_name);
3172: --
3173: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity',p_changed_detail_quantity);
3174: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity2',ABS(p_changed_detail_quantity2));
3175: END IF;
3176: --
3177: -- HW OPMCONV - Pass Qty2
3170:
3171: WSH_DEBUG_SV.push(l_module_name);
3172: --
3173: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity',p_changed_detail_quantity);
3174: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity2',ABS(p_changed_detail_quantity2));
3175: END IF;
3176: --
3177: -- HW OPMCONV - Pass Qty2
3178: INV_MO_Cancel_PVT.Reduce_Move_Order_Quantity(
3186: p_delivery_detail_id => p_delivery_detail_id -- X-dock changes
3187: );
3188: ELSE
3189: IF l_debug_on THEN
3190: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
3191:
3192: WSH_DEBUG_SV.push(l_module_name);
3193: --
3194: WSH_DEBUG_SV.log(l_module_name,'p_reduction_quantity',p_requested_quantity - l_update_qty);
3188: ELSE
3189: IF l_debug_on THEN
3190: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
3191:
3192: WSH_DEBUG_SV.push(l_module_name);
3193: --
3194: WSH_DEBUG_SV.log(l_module_name,'p_reduction_quantity',p_requested_quantity - l_update_qty);
3195: WSH_DEBUG_SV.log(l_module_name,'p_sec_reduction_quantity',ABS(p_changed_detail_quantity2));
3196: END IF;
3190: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
3191:
3192: WSH_DEBUG_SV.push(l_module_name);
3193: --
3194: WSH_DEBUG_SV.log(l_module_name,'p_reduction_quantity',p_requested_quantity - l_update_qty);
3195: WSH_DEBUG_SV.log(l_module_name,'p_sec_reduction_quantity',ABS(p_changed_detail_quantity2));
3196: END IF;
3197: --
3198: -- HW OPMCONV - Pass Qty2
3191:
3192: WSH_DEBUG_SV.push(l_module_name);
3193: --
3194: WSH_DEBUG_SV.log(l_module_name,'p_reduction_quantity',p_requested_quantity - l_update_qty);
3195: WSH_DEBUG_SV.log(l_module_name,'p_sec_reduction_quantity',ABS(p_changed_detail_quantity2));
3196: END IF;
3197: --
3198: -- HW OPMCONV - Pass Qty2
3199: INV_MO_Cancel_PVT.Reduce_Move_Order_Quantity(
3208: );
3209: END IF;
3210:
3211: IF l_debug_on THEN
3212: WSH_DEBUG_SV.log(l_module_name,'Reduce_Move_Order_Quantity x_return_status',x_return_status);
3213: END IF;
3214:
3215: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3216: FND_MESSAGE.Set_Name('WSH', 'WSH_REDUCE_MO_QUANTITY');
3218: --
3219: -- Debug Statements
3220: --
3221: IF l_debug_on THEN
3222: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3223: END IF;
3224: --
3225: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
3226: ELSE
3229: --
3230: -- Debug Statements
3231: --
3232: IF l_debug_on THEN
3233: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3234: END IF;
3235: --
3236: l_error_text := l_error_text || l_msg_data;
3237: END LOOP;
3243: --
3244: -- Debug Statements
3245: --
3246: IF l_debug_on THEN
3247: WSH_DEBUG_SV.pop(l_module_name);
3248: END IF;
3249: --
3250: return;
3251: END IF; -- end of return_status handling
3288: -- detail lines with zeqo qty so that WMS deletes the replenishment record.
3289: IF (p_replenishment_status = 'R' and p_released_status in ('R','B')) THEN
3290: --{
3291: IF l_debug_on THEN
3292: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
3293: END IF;
3294: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL (
3295: p_delivery_detail_id => p_delivery_detail_id,
3296: p_primary_quantity => 0,
3297: x_return_status => x_return_status);
3298: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3299: --{
3300: IF l_debug_on THEN
3301: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
3302: WSH_DEBUG_SV.pop(l_module_name);
3303: END IF;
3304: RETURN;
3305: --}
3298: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3299: --{
3300: IF l_debug_on THEN
3301: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
3302: WSH_DEBUG_SV.pop(l_module_name);
3303: END IF;
3304: RETURN;
3305: --}
3306: END IF;
3313: -- Update of wsh_delivery_details where requested_quantity/released_status
3314: -- are changed, call DBI API after the update.
3315: -- This API will also check for DBI Installed or not
3316: IF l_debug_on THEN
3317: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',p_delivery_detail_id);
3318: END IF;
3319: l_detail_tab(1) := p_delivery_detail_id;
3320: WSH_INTEGRATION.DBI_Update_Detail_Log
3321: (p_delivery_detail_id_tab => l_detail_tab,
3322: p_dml_type => 'UPDATE',
3323: x_return_status => l_dbi_rs);
3324:
3325: IF l_debug_on THEN
3326: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
3327: END IF;
3328: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3329: x_return_status := l_dbi_rs;
3330: -- just pass this return status to caller API
3328: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3329: x_return_status := l_dbi_rs;
3330: -- just pass this return status to caller API
3331: IF l_debug_on THEN
3332: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
3333: WSH_DEBUG_SV.pop(l_module_name);
3334: END IF;
3335: return;
3336: END IF;
3329: x_return_status := l_dbi_rs;
3330: -- just pass this return status to caller API
3331: IF l_debug_on THEN
3332: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
3333: WSH_DEBUG_SV.pop(l_module_name);
3334: END IF;
3335: return;
3336: END IF;
3337: -- End of Code for DBI Project
3338: --
3339:
3340: -- J: W/V Changes
3341: IF l_debug_on THEN
3342: WSH_DEBUG_SV.log(l_module_name,'Calling Detail_Weight_Volume to reset W/V for cancelled dd');
3343: END IF;
3344: WSH_WV_UTILS.Detail_Weight_Volume(
3345: p_delivery_detail_id => p_delivery_detail_id,
3346: p_update_flag => 'Y',
3350: x_return_status => l_return_status);
3351: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3352: x_return_status := l_return_status;
3353: IF l_debug_on THEN
3354: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
3355: WSH_DEBUG_SV.pop(l_module_name);
3356: END IF;
3357: return;
3358: END IF;
3351: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3352: x_return_status := l_return_status;
3353: IF l_debug_on THEN
3354: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
3355: WSH_DEBUG_SV.pop(l_module_name);
3356: END IF;
3357: return;
3358: END IF;
3359:
3374: p_ids_tobe_unassigned => l_details_id ,
3375: p_validate_flag => 'Y',
3376: x_return_status => x_return_status);
3377: IF l_debug_on THEN
3378: WSH_DEBUG_SV.log(l_module_name,'Unassign_Unpack_Empty_cont x_return_status',x_return_status);
3379: END IF;
3380:
3381: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3382: IF l_debug_on THEN
3379: END IF;
3380:
3381: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3382: IF l_debug_on THEN
3383: WSH_DEBUG_SV.pop(l_module_name);
3384: END IF;
3385: return;
3386: END IF;
3387:
3396: IF p_parent_delivery_detail_id IS NOT NULL THEN
3397:
3398: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Detail_from_Cont(p_delivery_detail_id,x_return_status);
3399: IF l_debug_on THEN
3400: WSH_DEBUG_SV.log(l_module_name,'Unassign_Detail_from_Cont x_return_status',x_return_status);
3401: END IF;
3402: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3403: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3404: --
3404: --
3405: -- Debug Statements
3406: --
3407: IF l_debug_on THEN
3408: WSH_DEBUG_SV.pop(l_module_name);
3409: END IF;
3410: --
3411: return;
3412: END IF;
3420: --
3421: -- Debug Statements
3422: --
3423: IF l_debug_on THEN
3424: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
3425: END IF;
3426: --
3427: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
3428: x_return_status => x_return_status
3433: ,p_txn_source_line_id => p_source_line_id
3434: ,p_delivery_detail_id => p_delivery_detail_id --X-dock
3435: );
3436: IF l_debug_on THEN
3437: WSH_DEBUG_SV.log(l_module_name,'INV_MO_Cancel_PVT.Cancel_Move_Order_Line x_return_status',x_return_status);
3438: END IF;
3439: --HW OPMCONV. Removed code forking
3440: IF x_return_status = fnd_api.g_ret_sts_success THEN
3441: --
3441: --
3442: -- Debug Statements
3443: --
3444: IF l_debug_on THEN
3445: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLED MOLINE '||P_MOVE_ORDER_LINE_ID );
3446: END IF;
3447: --
3448: ELSE
3449: --
3449: --
3450: -- Debug Statements
3451: --
3452: IF l_debug_on THEN
3453: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE ' );
3454: END IF;
3455: --
3456: FND_MESSAGE.Set_Name('WSH', 'WSH_CANCEL_MO_LINE');
3457: IF l_msg_count = 1 THEN
3458: --
3459: -- Debug Statements
3460: --
3461: IF l_debug_on THEN
3462: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3463: END IF;
3464: --
3465: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
3466: ELSE
3469: --
3470: -- Debug Statements
3471: --
3472: IF l_debug_on THEN
3473: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3474: END IF;
3475: --
3476: l_error_text := l_error_text || l_msg_data;
3477: END LOOP;
3483: --
3484: -- Debug Statements
3485: --
3486: IF l_debug_on THEN
3487: WSH_DEBUG_SV.pop(l_module_name);
3488: END IF;
3489: --
3490: return;
3491: END IF;
3495: --
3496: -- Debug Statements
3497: --
3498: IF l_debug_on THEN
3499: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
3500: END IF;
3501: --
3502: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
3503: x_return_status => x_return_status
3509: ,p_delivery_detail_id => p_delivery_detail_id -- X-dock
3510: );
3511:
3512: IF l_debug_on THEN
3513: WSH_DEBUG_SV.log(l_module_name,'INV_MO_Cancel_PVT.Cancel_Move_Order_Line x_return_status',x_return_status);
3514: END IF;
3515: --HW OPMCONV - Removed code forking
3516:
3517: IF x_return_status = fnd_api.g_ret_sts_success THEN
3518: --
3519: -- Debug Statements
3520: --
3521: IF l_debug_on THEN
3522: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLED MOLINE '||P_MOVE_ORDER_LINE_ID );
3523: END IF;
3524: --
3525: ELSE
3526: --
3526: --
3527: -- Debug Statements
3528: --
3529: IF l_debug_on THEN
3530: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE ' );
3531: END IF;
3532: --
3533: FND_MESSAGE.Set_Name('WSH', 'WSH_CANCEL_MO_LINE');
3534: IF l_msg_count = 1 THEN
3535: --
3536: -- Debug Statements
3537: --
3538: IF l_debug_on THEN
3539: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3540: END IF;
3541: --
3542: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
3543: ELSE
3546: --
3547: -- Debug Statements
3548: --
3549: IF l_debug_on THEN
3550: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3551: END IF;
3552: --
3553: l_error_text := l_error_text || l_msg_data;
3554: END LOOP;
3559: --
3560: -- Debug Statements
3561: --
3562: IF l_debug_on THEN
3563: WSH_DEBUG_SV.pop(l_module_name);
3564: END IF;
3565: --
3566: return;
3567: END IF;
3591: p_cancellation_quantity => l_change_reservation_quantity,
3592: p_cancellation_quantity2 => l_change_reservation_quantity2,
3593: x_return_status => x_return_status);
3594: IF l_debug_on THEN
3595: WSH_DEBUG_SV.log(l_module_name,'WSH_USA_INV_PVT.CANCEL_STAGED_RESERVATION',x_return_status);
3596: END IF;
3597:
3598: IF x_return_status = fnd_api.g_ret_sts_success THEN
3599: --
3599: --
3600: -- Debug Statements
3601: --
3602: IF l_debug_on THEN
3603: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLED STAGED RESERVATION FOR DETAIL '||P_DELIVERY_DETAIL_ID ||'BY QTY '|| L_CHANGE_RESERVATION_QUANTITY );
3604: END IF;
3605: --
3606: ELSE
3607: --
3607: --
3608: -- Debug Statements
3609: --
3610: IF l_debug_on THEN
3611: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_USA_INV_PVT.CANCEL_STAGED_RESERVATION ' );
3612: END IF;
3613: --
3614: x_return_status := FND_API.G_RET_STS_ERROR;
3615: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3616: --
3617: -- Debug Statements
3618: --
3619: IF l_debug_on THEN
3620: WSH_DEBUG_SV.pop(l_module_name);
3621: END IF;
3622: --
3623: return;
3624: END IF;
3637: --
3638: -- Debug Statements
3639: --
3640: IF l_debug_on THEN
3641: WSH_DEBUG_SV.logmsg(l_module_name, 'Serial Numbers deletion check -
3642: transaction_temp_id, serial_number, serial_quantity : '||
3643: p_transaction_temp_id||', '||p_serial_number||', '||l_serial_quantity);
3644: END IF;
3645: --
3652: --
3653: -- Debug Statements
3654: --
3655: IF l_debug_on THEN
3656: WSH_DEBUG_SV.logmsg(l_module_name, l_serial_quantity||' Serial Number(s) have to be deleted for dd '
3657: ||p_delivery_detail_id);
3658: END IF;
3659: --
3660: FND_MESSAGE.SET_NAME('WSH','WSH_STAGED_SERIAL_EXISTS');
3668: --
3669: -- Debug Statements
3670: --
3671: IF l_debug_on THEN
3672: WSH_DEBUG_SV.logmsg(l_module_name, l_serial_quantity||' Serial Number(s) have to be deleted for dd '
3673: ||p_delivery_detail_id);
3674: END IF;
3675: --
3676: FND_MESSAGE.SET_NAME('WSH','WSH_STAGED_SERIAL_EXISTS');
3682:
3683: ELSIF p_ordered_quantity = 0 AND (p_transaction_temp_id IS NOT NULL OR p_serial_number IS NOT NULL ) THEN
3684: --
3685: IF l_debug_on THEN
3686: WSH_DEBUG_SV.logmsg(l_module_name,'Complete Order Qty Cancelation - all serial numbers will be unmarked',WSH_DEBUG_SV.C_PROC_LEVEL);
3687: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.UPDATE_SERIAL_NUMBERS',WSH_DEBUG_SV.C_PROC_LEVEL);
3688: END IF;
3689: --
3690: WSH_USA_INV_PVT.update_serial_numbers(
3683: ELSIF p_ordered_quantity = 0 AND (p_transaction_temp_id IS NOT NULL OR p_serial_number IS NOT NULL ) THEN
3684: --
3685: IF l_debug_on THEN
3686: WSH_DEBUG_SV.logmsg(l_module_name,'Complete Order Qty Cancelation - all serial numbers will be unmarked',WSH_DEBUG_SV.C_PROC_LEVEL);
3687: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.UPDATE_SERIAL_NUMBERS',WSH_DEBUG_SV.C_PROC_LEVEL);
3688: END IF;
3689: --
3690: WSH_USA_INV_PVT.update_serial_numbers(
3691: p_delivery_detail_id => p_delivery_detail_id,
3692: p_serial_number => p_serial_number,
3693: p_transaction_temp_id => p_transaction_temp_id,
3694: x_return_status => x_return_status);
3695: IF l_debug_on THEN
3696: WSH_DEBUG_SV.log(l_module_name,'Update_Serial_Numbers x_return_status',x_return_status);
3697: END IF;
3698: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3699: x_return_status := FND_API.G_RET_STS_ERROR;
3700: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3701: --
3702: -- Debug Statements
3703: --
3704: IF l_debug_on THEN
3705: WSH_DEBUG_SV.pop(l_module_name);
3706: END IF;
3707: --
3708: RETURN;
3709: END IF;
3715: --
3716: -- Debug Statements
3717: --
3718: IF l_debug_on THEN
3719: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_USA_INV_PVT.UPDATE_SERIAL_NUMBERS ' );
3720: END IF;
3721: --
3722: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3723: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3724: --
3725: -- Debug Statements
3726: --
3727: IF l_debug_on THEN
3728: WSH_DEBUG_SV.pop(l_module_name);
3729: END IF;
3730: --
3731: return;
3732: ELSIF l_num_warn > 0 THEN
3736: --
3737: -- Debug Statements
3738: --
3739: IF l_debug_on THEN
3740: WSH_DEBUG_SV.pop(l_module_name);
3741: END IF;
3742: --
3743: return;
3744: END IF;
3745: --
3746: -- Debug Statements
3747: --
3748: IF l_debug_on THEN
3749: WSH_DEBUG_SV.pop(l_module_name);
3750: END IF;
3751: --
3752: EXCEPTION
3753: WHEN others THEN
3758: --
3759: -- Debug Statements
3760: --
3761: IF l_debug_on THEN
3762: WSH_DEBUG_SV.logmsg(l_module_name, SQLCODE || ' : ' || SQLERRM );
3763: END IF;
3764: --
3765: wsh_util_core.default_handler('WSH_USA_QUANTITY_PVT.CANCEL_QUANTITY',l_module_name);
3766: --
3766: --
3767: -- Debug Statements
3768: --
3769: IF l_debug_on THEN
3770: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3771: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3772: END IF;
3773: --
3774: END cancel_quantity;
3767: -- Debug Statements
3768: --
3769: IF l_debug_on THEN
3770: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3771: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3772: END IF;
3773: --
3774: END cancel_quantity;
3775: