[Home] [Help]
402: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
403: --
404: IF l_debug_on IS NULL
405: THEN
406: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
407: END IF;
408: --
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.push(l_module_name);
406: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
407: END IF;
408: --
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.push(l_module_name);
411: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
412: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
413: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
414: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
407: END IF;
408: --
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.push(l_module_name);
411: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
412: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
413: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
414: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
415: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
408: --
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.push(l_module_name);
411: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
412: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
413: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
414: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
415: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
416: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.push(l_module_name);
411: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
412: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
413: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
414: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
415: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
416: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
417: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
410: WSH_DEBUG_SV.push(l_module_name);
411: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
412: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
413: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
414: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
415: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
416: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
417: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
418: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
411: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
412: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
413: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
414: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
415: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
416: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
417: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
418: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
419: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
412: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
413: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
414: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
415: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
416: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
417: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
418: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
419: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
420: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
413: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
414: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
415: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
416: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
417: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
418: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
419: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
420: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
421: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
414: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
415: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
416: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
417: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
418: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
419: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
420: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
421: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
422: END IF;
415: WSH_DEBUG_SV.log(l_module_name,'source_header_id',p_changed_attribute.source_header_id);
416: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
417: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
418: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
419: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
420: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
421: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
422: END IF;
423: --
416: WSH_DEBUG_SV.log(l_module_name,'original_source_line_id',p_changed_attribute.original_source_line_id);
417: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
418: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
419: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
420: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
421: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
422: END IF;
423: --
424: --
417: WSH_DEBUG_SV.log(l_module_name,'source_line_id',p_changed_attribute.source_line_id);
418: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',p_changed_attribute.delivery_detail_id);
419: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity',p_changed_attribute.ordered_quantity);
420: WSH_DEBUG_SV.log(l_module_name,'order_quantity_uom',p_changed_attribute.order_quantity_uom);
421: WSH_DEBUG_SV.log(l_module_name,'ordered_quantity2',p_changed_attribute.ordered_quantity2);
422: END IF;
423: --
424: --
425: -- Debug Statements
424: --
425: -- Debug Statements
426: --
427: IF l_debug_on THEN
428: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_QUANTITY_PVT.UPDATE_ORDERED_QUANTITY, ACTION = '|| P_ACTION_FLAG );
429: END IF;
430: --
431:
432: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
459: AND (p_changed_attribute.ship_from_org_id <> l_organization_id) )
460: and (p_changed_attribute.inventory_item_id = FND_API.G_MISS_NUM ) THEN
461: --{
462: IF l_debug_on THEN
463: WSH_DEBUG_SV.log(l_module_name,'inside primary UOM change checking.');
464: END IF;
465: OPEN C_item_details(p_changed_attribute.ship_from_org_id,l_inventory_item_id);
466: FETCH C_item_details INTO l_primary_uom;
467: CLOSE C_item_details;
465: OPEN C_item_details(p_changed_attribute.ship_from_org_id,l_inventory_item_id);
466: FETCH C_item_details INTO l_primary_uom;
467: CLOSE C_item_details;
468: IF l_debug_on THEN
469: WSH_DEBUG_SV.log(l_module_name,'l_primary_uom',l_primary_uom);
470: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
471: END IF;
472: IF (l_primary_uom <> l_requested_quantity_uom) THEN
473: l_requested_quantity_uom := l_primary_uom; --overrite the requested qty uom.
466: FETCH C_item_details INTO l_primary_uom;
467: CLOSE C_item_details;
468: IF l_debug_on THEN
469: WSH_DEBUG_SV.log(l_module_name,'l_primary_uom',l_primary_uom);
470: WSH_DEBUG_SV.log(l_module_name,'l_requested_quantity_uom',l_requested_quantity_uom);
471: END IF;
472: IF (l_primary_uom <> l_requested_quantity_uom) THEN
473: l_requested_quantity_uom := l_primary_uom; --overrite the requested qty uom.
474: END IF;
479: OPEN c_shipping_parameters(l_organization_id);
480: FETCH c_shipping_parameters INTO l_ship_parameters;
481: IF ( c_shipping_parameters%NOTFOUND ) THEN
482: IF l_debug_on THEN
483: WSH_DEBUG_SV.log(l_module_name,'Shipping Parameters notfound for warehuse:'||l_organization_id);
484: END IF;
485: WSH_INTERFACE.PrintMsg(txt=>'Shipping Parameters notfound for warehouse:'||l_organization_id);
486: END IF;
487: CLOSE c_shipping_parameters;
495: --
496: -- Debug Statements
497: --
498: IF l_debug_on THEN
499: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CONVERT_UOM',WSH_DEBUG_SV.C_PROC_LEVEL);
500: END IF;
501: --
502: l_new_ordered_quantity := WSH_WV_UTILS.Convert_Uom(
503: p_changed_attribute.order_quantity_uom,
530: l_oke_cancel_qty_allowed := 0;
531: -- Debug Statements
532: --
533: IF l_debug_on THEN
534: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
535: END IF;
536: --
537: end;
538:
539: --
540: l_new_ordered_quantity := l_original_ordered_quantity - l_oke_cancel_qty_allowed; -- In req quantity unit
541: --
542: IF l_debug_on THEN
543: WSH_DEBUG_SV.logmsg(l_module_name, 'New Ordered Qty: '|| l_new_ordered_quantity);
544: WSH_DEBUG_SV.logmsg(l_module_name, 'OKE Req Qty. Cancellable : '|| l_oke_cancel_qty_allowed);
545: WSH_DEBUG_SV.logmsg(l_module_name, 'Orig. Req Qty. Cancellable : '|| l_original_ordered_quantity);
546: END IF;
547: --
540: l_new_ordered_quantity := l_original_ordered_quantity - l_oke_cancel_qty_allowed; -- In req quantity unit
541: --
542: IF l_debug_on THEN
543: WSH_DEBUG_SV.logmsg(l_module_name, 'New Ordered Qty: '|| l_new_ordered_quantity);
544: WSH_DEBUG_SV.logmsg(l_module_name, 'OKE Req Qty. Cancellable : '|| l_oke_cancel_qty_allowed);
545: WSH_DEBUG_SV.logmsg(l_module_name, 'Orig. Req Qty. Cancellable : '|| l_original_ordered_quantity);
546: END IF;
547: --
548: end if; -- OKE
541: --
542: IF l_debug_on THEN
543: WSH_DEBUG_SV.logmsg(l_module_name, 'New Ordered Qty: '|| l_new_ordered_quantity);
544: WSH_DEBUG_SV.logmsg(l_module_name, 'OKE Req Qty. Cancellable : '|| l_oke_cancel_qty_allowed);
545: WSH_DEBUG_SV.logmsg(l_module_name, 'Orig. Req Qty. Cancellable : '|| l_original_ordered_quantity);
546: END IF;
547: --
548: end if; -- OKE
549: --
554: --
555: -- Debug Statements
556: --
557: IF l_debug_on THEN
558: WSH_DEBUG_SV.logmsg(l_module_name, 'CHANGE LINE QTY = '|| L_CHANGED_LINE_QUANTITY );
559: END IF;
560: --
561: -- HW OPMCONV - Removed code forking
562:
567: end if ;
568:
569:
570: IF l_debug_on THEN
571: WSH_DEBUG_SV.logmsg(l_module_name, 'l_original_ordered_quantity2 = '||l_original_ordered_quantity2 );
572: WSH_DEBUG_SV.logmsg(l_module_name, 'p_changed_attribute.ordered_quantity2 = '||p_changed_attribute.ordered_quantity2 );
573: END IF;
574:
575: l_changed_line_quantity2 := l_new_requested_quantity2 - l_original_ordered_quantity2; -- In req quantity unit
568:
569:
570: IF l_debug_on THEN
571: WSH_DEBUG_SV.logmsg(l_module_name, 'l_original_ordered_quantity2 = '||l_original_ordered_quantity2 );
572: WSH_DEBUG_SV.logmsg(l_module_name, 'p_changed_attribute.ordered_quantity2 = '||p_changed_attribute.ordered_quantity2 );
573: END IF;
574:
575: l_changed_line_quantity2 := l_new_requested_quantity2 - l_original_ordered_quantity2; -- In req quantity unit
576:
576:
577: l_changed_detail_quantity2 := ABS(l_changed_line_quantity2);
578:
579: IF l_debug_on THEN
580: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW REQUESTED_QUANTITY2 = '||L_CHANGED_LINE_QUANTITY2 );
581: END IF;
582: --
583: --
584: -- 5870774: Update the new SRC requested qty. on the Wdds with Line_id = source_line_id
595: x_msg_count => l_msg_count,
596: x_msg_data => l_msg_data
597: );
598: IF l_debug_on THEN
599: WSH_DEBUG_SV.log(l_module_name,' l_return_status : ',l_return_status);
600: WSH_DEBUG_SV.log(l_module_name,' l_src_cancel_qty_allowed : ',l_src_cancel_qty_allowed);
601: END IF;
602: else
603: l_src_cancel_qty_allowed := l_oke_cancel_qty_allowed;
596: x_msg_data => l_msg_data
597: );
598: IF l_debug_on THEN
599: WSH_DEBUG_SV.log(l_module_name,' l_return_status : ',l_return_status);
600: WSH_DEBUG_SV.log(l_module_name,' l_src_cancel_qty_allowed : ',l_src_cancel_qty_allowed);
601: END IF;
602: else
603: l_src_cancel_qty_allowed := l_oke_cancel_qty_allowed;
604: end if;
611: where source_code = p_source_code
612: and source_line_id = p_changed_attribute.source_line_id;
613: --
614: IF l_debug_on THEN
615: WSH_DEBUG_SV.log(l_module_name,' After Update- l_src_cancel_qty_allowed : ',l_src_cancel_qty_allowed);
616: END IF;
617: end if; -- OKE
618:
619: -- Check if Item is Serial Controlled
623: OPEN c_is_ser_control(l_inventory_item_id, l_organization_id);
624: FETCH c_is_ser_control INTO l_ser_control;
625: IF c_is_ser_control%NOTFOUND THEN
626: IF l_debug_on THEN
627: WSH_DEBUG_SV.logmsg(l_module_name, 'No records found in mtl_system_items for Item Id '||L_INVENTORY_ITEM_ID||' AND
628: organization '||L_ORGANIZATION_ID );
629: END IF;
630: raise no_data_found ;
631: END IF;
638: --
639: -- Debug Statements
640: --
641: IF l_debug_on THEN
642: WSH_DEBUG_SV.logmsg(l_module_name, 'OPEN C_OLD_LINE CURSOR');
643: END IF;
644: --
645: OPEN C_Old_line;
646: ELSE
647: --
648: -- Debug Statements
649: --
650: IF l_debug_on THEN
651: WSH_DEBUG_SV.logmsg(l_module_name, 'OPEN C_OLD_LINE_SER CURSOR');
652: END IF;
653: --
654: OPEN C_Old_line_ser;
655: END IF;
665: --
666: -- Debug Statements
667: --
668: IF l_debug_on THEN
669: WSH_DEBUG_SV.log(l_module_name, 'IN C_OLD_LINE LOOP : DEL DET', OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
670: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
671: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
672: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
673: END IF;
666: -- Debug Statements
667: --
668: IF l_debug_on THEN
669: WSH_DEBUG_SV.log(l_module_name, 'IN C_OLD_LINE LOOP : DEL DET', OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
670: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
671: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
672: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
673: END IF;
674: --
667: --
668: IF l_debug_on THEN
669: WSH_DEBUG_SV.log(l_module_name, 'IN C_OLD_LINE LOOP : DEL DET', OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
670: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
671: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
672: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
673: END IF;
674: --
675: IF (p_action_flag = 'D') THEN
668: IF l_debug_on THEN
669: WSH_DEBUG_SV.log(l_module_name, 'IN C_OLD_LINE LOOP : DEL DET', OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
670: WSH_DEBUG_SV.log(l_module_name, 'L_READY_RELEASE_CHANGE_QTY', L_READY_RELEASE_CHANGE_QTY );
671: WSH_DEBUG_SV.log(l_module_name, 'L_CHANGED_DETAIL_QUANTITY', L_CHANGED_DETAIL_QUANTITY );
672: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
673: END IF;
674: --
675: IF (p_action_flag = 'D') THEN
676:
692: -- detail lines with zeqo qty so that WMS deletes the replenishment record.
693: IF (old_delivery_detail_rec.replenishment_status = 'R' and old_delivery_detail_rec.released_status in ('R','B')) THEN
694: --{
695: IF l_debug_on THEN
696: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
697: END IF;
698: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL (
699: p_delivery_detail_id => old_delivery_detail_rec.delivery_detail_id,
700: p_primary_quantity => 0, --- WMS will delete the records from replenishment table.
701: x_return_status => x_return_status);
702: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
703: --{
704: IF l_debug_on THEN
705: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
706: WSH_DEBUG_SV.pop(l_module_name);
707: END IF;
708: RETURN;
709: --}
702: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
703: --{
704: IF l_debug_on THEN
705: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
706: WSH_DEBUG_SV.pop(l_module_name);
707: END IF;
708: RETURN;
709: --}
710: END IF;
716: p_details_id => l_details_id ,
717: x_return_status => l_return_status);
718:
719: IF l_debug_on THEN
720: WSH_DEBUG_SV.log(l_module_name,'WSH_INTERFACE.DELETE_DETAILS l_return_status',l_return_status);
721: END IF;
722:
723: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
724: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
735: --
736: -- Debug Statements
737: --
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.logmsg(l_module_name, 'REJECT REQUEST AS SOME DELIVERY LINES ARE '||L_RELEASED_STATUS );
740: END IF;
741: --
742: FND_MESSAGE.Set_Name('WSH', 'WSH_REJECT_DELETE_QUANTITY');
743: RAISE reject_delete;
752: OR ( (l_changed_line_quantity2 > 0) and (l_changed_line_quantity >= 0) ) -- OPM 2187389 need this to fix if qty2 increases but does not work for qty2 decrease
753:
754: THEN
755: IF l_debug_on THEN
756: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_LINE_QUANTITY > 0' );
757: WSH_DEBUG_SV.logmsg(l_module_name, ' OR L_CHANGED_LINE_QUANTITY2 > 0' );
758: END IF;
759:
760: IF l_ship_parameters.enforce_ship_set_and_smc = 'Y' THEN
753:
754: THEN
755: IF l_debug_on THEN
756: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_LINE_QUANTITY > 0' );
757: WSH_DEBUG_SV.logmsg(l_module_name, ' OR L_CHANGED_LINE_QUANTITY2 > 0' );
758: END IF;
759:
760: IF l_ship_parameters.enforce_ship_set_and_smc = 'Y' THEN
761: --
759:
760: IF l_ship_parameters.enforce_ship_set_and_smc = 'Y' THEN
761: --
762: IF l_debug_on THEN
763: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECKING SHIP SETS' );
764: END IF;
765: --
766: OPEN c_check_smc_model_change(p_changed_attribute.top_model_line_id,p_changed_attribute.source_header_id);
767: FETCH c_check_smc_model_change INTO l_top_model_line_id;
766: OPEN c_check_smc_model_change(p_changed_attribute.top_model_line_id,p_changed_attribute.source_header_id);
767: FETCH c_check_smc_model_change INTO l_top_model_line_id;
768: IF c_check_smc_model_change%FOUND THEN
769: IF l_debug_on THEN
770: WSH_DEBUG_SV.logmsg(l_module_name, 'INVALID CHANGES IN SMC MODEL' );
771: END IF;
772: -- raise exception.
773: CLOSE c_check_smc_model_change;
774: RAISE invalid_smc_model_change;
791: NVL(old_delivery_detail_rec.released_status,'N') = 'X' )) THEN
792: --
793: --
794: IF l_debug_on THEN
795: WSH_DEBUG_SV.log(l_module_name, 'Updating wsh_delivery_details', old_delivery_detail_rec.delivery_detail_id);
796: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty is ', old_delivery_detail_rec.requested_quantity );
797: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty2 is ' ,old_delivery_detail_rec.requested_quantity2 );
798: END IF;
799:
792: --
793: --
794: IF l_debug_on THEN
795: WSH_DEBUG_SV.log(l_module_name, 'Updating wsh_delivery_details', old_delivery_detail_rec.delivery_detail_id);
796: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty is ', old_delivery_detail_rec.requested_quantity );
797: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty2 is ' ,old_delivery_detail_rec.requested_quantity2 );
798: END IF;
799:
800: UPDATE wsh_delivery_details SET
793: --
794: IF l_debug_on THEN
795: WSH_DEBUG_SV.log(l_module_name, 'Updating wsh_delivery_details', old_delivery_detail_rec.delivery_detail_id);
796: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty is ', old_delivery_detail_rec.requested_quantity );
797: WSH_DEBUG_SV.logmsg(l_module_name, 'Old value of requ_qty2 is ' ,old_delivery_detail_rec.requested_quantity2 );
798: END IF;
799:
800: UPDATE wsh_delivery_details SET
801: requested_quantity = old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity,
810: -- Update of wsh_delivery_details where requested_quantity/released_status
811: -- are changed, call DBI API after the update.
812: -- This API will also check for DBI Installed or not
813: IF l_debug_on THEN
814: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',old_delivery_detail_rec.delivery_detail_id);
815: END IF;
816: l_detail_tab(1) := old_delivery_detail_rec.delivery_detail_id;
817: WSH_INTEGRATION.DBI_Update_Detail_Log
818: (p_delivery_detail_id_tab => l_detail_tab,
819: p_dml_type => 'UPDATE',
820: x_return_status => l_dbi_rs);
821:
822: IF l_debug_on THEN
823: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
824: END IF;
825: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
826: x_return_status := l_dbi_rs;
827: -- just pass this return status to caller API
825: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
826: x_return_status := l_dbi_rs;
827: -- just pass this return status to caller API
828: IF l_debug_on THEN
829: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
830: WSH_DEBUG_SV.pop(l_module_name);
831: END IF;
832: return;
833: END IF;
826: x_return_status := l_dbi_rs;
827: -- just pass this return status to caller API
828: IF l_debug_on THEN
829: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
830: WSH_DEBUG_SV.pop(l_module_name);
831: END IF;
832: return;
833: END IF;
834: -- End of Code for DBI Project
835: --
836:
837: -- J: W/V Changes
838: IF l_debug_on THEN
839: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
840: END IF;
841: WSH_WV_UTILS.Detail_Weight_Volume(
842: p_delivery_detail_id => old_delivery_detail_rec.delivery_detail_id,
843: p_update_flag => 'Y',
849:
850: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
851: x_return_status := l_rs_ignored;
852: IF l_debug_on THEN
853: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
854: WSH_DEBUG_SV.pop(l_module_name);
855: END IF;
856: return;
857: END IF;
850: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
851: x_return_status := l_rs_ignored;
852: IF l_debug_on THEN
853: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
854: WSH_DEBUG_SV.pop(l_module_name);
855: END IF;
856: return;
857: END IF;
858: -- End of W/V Changes
864: --above code.
865: IF (l_changed_detail_quantity > 0 AND l_gc3_is_installed = 'Y') THEN
866:
867: IF l_debug_on THEN
868: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
869: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
870: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
871: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
872: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
865: IF (l_changed_detail_quantity > 0 AND l_gc3_is_installed = 'Y') THEN
866:
867: IF l_debug_on THEN
868: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
869: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
870: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
871: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
872: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
873: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
866:
867: IF l_debug_on THEN
868: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
869: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
870: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
871: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
872: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
873: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
874: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
867: IF l_debug_on THEN
868: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
869: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
870: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
871: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
872: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
873: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
874: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
875: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
868: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',old_delivery_detail_rec.delivery_detail_id);
869: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
870: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
871: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
872: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
873: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
874: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
875: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
876: END IF;
869: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
870: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
871: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
872: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
873: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
874: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
875: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
876: END IF;
877:
870: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
871: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
872: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
873: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
874: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
875: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
876: END IF;
877:
878: --prepare table of delivery detail information to call splitter
871: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
872: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
873: WSH_DEBUG_SV.log(l_module_name,'requested quantity',old_delivery_detail_rec.requested_quantity + l_changed_detail_quantity);
874: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
875: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
876: END IF;
877:
878: --prepare table of delivery detail information to call splitter
879: l_split_delivery_detail_tab(1) := WSH_ENTITY_INFO_REC(
889: NULL);
890: l_item_quantity_uom_tab(1) := old_delivery_detail_rec.requested_quantity_uom;
891:
892: IF l_debug_on THEN
893: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split',WSH_DEBUG_SV.C_PROC_LEVEL);
894: END IF;
895:
896: WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split(
897: p_detail_tab => l_split_delivery_detail_tab,
898: p_item_quantity_uom_tab => l_item_quantity_uom_tab,
899: x_return_status => l_return_status);
900:
901: IF l_debug_on THEN
902: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split: ' || l_return_status);
903: END IF;
904:
905: -- we will not fail based on l_return_status here because
906: -- we do not want to stop the flow
907: -- if the detail doesn't split, it will be caught later in
908: -- delivery splitting and will have exception on the detail
909: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
910: IF l_debug_on THEN
911: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery detail split failed for ' || old_delivery_detail_rec.delivery_detail_id );
912: END IF;
913: END IF;
914: --END splitter call
915:
929: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS,
930: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
931: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
932: IF l_debug_on THEN
933: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
934: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
935: END IF;
936: ELSE
937: l_call_update := 'N';
930: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS) THEN
931: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_REQUIRED;
932: IF l_debug_on THEN
933: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id_tab', l_delivery_id_tab(1));
934: WSH_DEBUG_SV.log(l_module_name, 'l_interface_flag_tab', l_interface_flag_tab(1));
935: END IF;
936: ELSE
937: l_call_update := 'N';
938: END IF;
946:
947: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
948: x_return_status := l_return_status;
949: IF l_debug_on THEN
950: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
951: WSH_DEBUG_SV.pop(l_module_name);
952: END IF;
953: RETURN;
954: END IF;
947: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
948: x_return_status := l_return_status;
949: IF l_debug_on THEN
950: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
951: WSH_DEBUG_SV.pop(l_module_name);
952: END IF;
953: RETURN;
954: END IF;
955: END IF;
963:
964: ELSE
965:
966: IF l_debug_on THEN
967: WSH_DEBUG_SV.logmsg(l_module_name, 'Need to create a new delivery detail');
968: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity', l_changed_detail_quantity);
969: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
970: END IF;
971: IF (NVL(old_delivery_detail_rec.released_status,'N') <> 'D') THEN -- This is to avoid 'D' lines
964: ELSE
965:
966: IF l_debug_on THEN
967: WSH_DEBUG_SV.logmsg(l_module_name, 'Need to create a new delivery detail');
968: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity', l_changed_detail_quantity);
969: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
970: END IF;
971: IF (NVL(old_delivery_detail_rec.released_status,'N') <> 'D') THEN -- This is to avoid 'D' lines
972:
965:
966: IF l_debug_on THEN
967: WSH_DEBUG_SV.logmsg(l_module_name, 'Need to create a new delivery detail');
968: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity', l_changed_detail_quantity);
969: WSH_DEBUG_SV.log(l_module_name, 'l_changed_detail_quantity2', l_changed_detail_quantity2);
970: END IF;
971: IF (NVL(old_delivery_detail_rec.released_status,'N') <> 'D') THEN -- This is to avoid 'D' lines
972:
973: l_delivery_detail_rec.requested_quantity := l_changed_detail_quantity;
978: IF ( old_delivery_detail_rec.requested_quantity2 <> FND_API.G_MISS_NUM
979: OR old_delivery_detail_rec.requested_quantity2 IS NOT NULL ) THEN
980: l_delivery_detail_rec.requested_quantity2 := l_changed_detail_quantity2;
981: IF l_debug_on THEN
982: WSH_DEBUG_SV.log(l_module_name,'l_changed_detail_quantity2', l_changed_detail_quantity2);
983: WSH_DEBUG_SV.log(l_module_name,'New_DD.req_qty2', l_delivery_detail_rec.requested_quantity2);
984: END IF;
985: ELSE
986: l_delivery_Detail_rec.requested_quantity2 := FND_API.G_MISS_NUM;
979: OR old_delivery_detail_rec.requested_quantity2 IS NOT NULL ) THEN
980: l_delivery_detail_rec.requested_quantity2 := l_changed_detail_quantity2;
981: IF l_debug_on THEN
982: WSH_DEBUG_SV.log(l_module_name,'l_changed_detail_quantity2', l_changed_detail_quantity2);
983: WSH_DEBUG_SV.log(l_module_name,'New_DD.req_qty2', l_delivery_detail_rec.requested_quantity2);
984: END IF;
985: ELSE
986: l_delivery_Detail_rec.requested_quantity2 := FND_API.G_MISS_NUM;
987: IF l_debug_on THEN
984: END IF;
985: ELSE
986: l_delivery_Detail_rec.requested_quantity2 := FND_API.G_MISS_NUM;
987: IF l_debug_on THEN
988: WSH_DEBUG_SV.log(l_module_name,'IN ELSE AND l_changed_detail_quantity2', l_changed_detail_quantity2);
989: END IF;
990: END IF;
991: --
992: l_delivery_detail_rec.picked_quantity := FND_API.G_MISS_NUM;
1019: --
1020: -- Debug Statements
1021: --
1022: IF l_debug_on THEN
1023: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATED MOVE ORDER LINE TO NULL FOR NEW DD '||L_DUMMY_DELIVERY_DETAIL_ID );
1024: END IF;
1025: --
1026:
1027: IF (NVL(old_delivery_detail_rec.released_status, 'N') <> 'N') THEN
1041: x_delivery_detail_id => l_dummy_delivery_detail_id,
1042: x_return_status => l_return_status);
1043:
1044: IF l_debug_on THEN
1045: WSH_DEBUG_SV.log(l_module_name,'create_new_detail_from_old l_dummy_rowid,
1046: l_dummy_delivery_detail_id,l_return_status',l_dummy_rowid||','||
1047: l_dummy_delivery_detail_id||','||l_return_status);
1048: END IF;
1049:
1055: --
1056: -- Debug Statements
1057: --
1058: IF l_debug_on THEN
1059: WSH_DEBUG_SV.log(l_module_name,'CREATED DETAIL ID',L_DUMMY_DELIVERY_DETAIL_ID);
1060: WSH_DEBUG_SV.log(l_module_name,'New_DD.req_qty2', l_delivery_detail_rec.requested_quantity2);
1061: END IF;
1062: --
1063:
1056: -- Debug Statements
1057: --
1058: IF l_debug_on THEN
1059: WSH_DEBUG_SV.log(l_module_name,'CREATED DETAIL ID',L_DUMMY_DELIVERY_DETAIL_ID);
1060: WSH_DEBUG_SV.log(l_module_name,'New_DD.req_qty2', l_delivery_detail_rec.requested_quantity2);
1061: END IF;
1062: --
1063:
1064:
1075: x_delivery_assignment_id => l_dummy_id,
1076: x_return_status => l_return_status);
1077:
1078: IF l_debug_on THEN
1079: WSH_DEBUG_SV.log(l_module_name,'Create_delivery_assignments l_dummy_rowid,
1080: l_dummy_id,l_return_status',l_dummy_rowid||','||
1081: l_dummy_id||','||l_return_status);
1082: END IF;
1083:
1092: x_net_weight => l_net_weight,
1093: x_volume => l_volume,
1094: x_return_status => l_rs_ignored);
1095: IF l_debug_on THEN
1096: WSH_DEBUG_SV.log(l_module_name,'Detail_Weight_Volume l_net_weight,l_volume,
1097: l_rs_ignored',l_net_weight||','||l_volume||','||l_rs_ignored);
1098: END IF;
1099: -- J: W/V Changes
1100: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1099: -- J: W/V Changes
1100: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1101: x_return_status := l_rs_ignored;
1102: IF l_debug_on THEN
1103: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
1104: WSH_DEBUG_SV.pop(l_module_name);
1105: END IF;
1106: return;
1107: END IF;
1100: IF l_rs_ignored = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1101: x_return_status := l_rs_ignored;
1102: IF l_debug_on THEN
1103: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
1104: WSH_DEBUG_SV.pop(l_module_name);
1105: END IF;
1106: return;
1107: END IF;
1108: -- End of W/V Changes
1110: --OTM R12, call to delivery detail splitter, process one record at a time here.
1111: IF (l_gc3_is_installed = 'Y') THEN
1112:
1113: IF l_debug_on THEN
1114: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1115: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1116: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1117: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1118: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1111: IF (l_gc3_is_installed = 'Y') THEN
1112:
1113: IF l_debug_on THEN
1114: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1115: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1116: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1117: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1118: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1119: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1112:
1113: IF l_debug_on THEN
1114: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1115: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1116: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1117: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1118: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1119: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1120: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1113: IF l_debug_on THEN
1114: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1115: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1116: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1117: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1118: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1119: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1120: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1121: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1114: WSH_DEBUG_SV.log(l_module_name,'delivery detail id',l_dummy_delivery_detail_id);
1115: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1116: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1117: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1118: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1119: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1120: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1121: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1122: END IF;
1115: WSH_DEBUG_SV.log(l_module_name,'inventory item id',old_delivery_detail_rec.inventory_item_id);
1116: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1117: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1118: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1119: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1120: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1121: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1122: END IF;
1123:
1116: WSH_DEBUG_SV.log(l_module_name,'net weight',l_net_weight);
1117: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1118: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1119: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1120: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1121: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1122: END IF;
1123:
1124: --prepare table of delivery detail information to call splitter
1117: WSH_DEBUG_SV.log(l_module_name,'organization id',old_delivery_detail_rec.organization_id);
1118: WSH_DEBUG_SV.log(l_module_name,'weight uom code',old_delivery_detail_rec.weight_uom_code);
1119: WSH_DEBUG_SV.log(l_module_name,'requested quantity',l_changed_detail_quantity);
1120: WSH_DEBUG_SV.log(l_module_name,'ship from location id',old_delivery_detail_rec.ship_from_location_id);
1121: WSH_DEBUG_SV.log(l_module_name,'requested quantity uom',old_delivery_detail_rec.requested_quantity_uom);
1122: END IF;
1123:
1124: --prepare table of delivery detail information to call splitter
1125: l_split_delivery_detail_tab(1) := WSH_ENTITY_INFO_REC(
1135: NULL);
1136: l_item_quantity_uom_tab(1) := old_delivery_detail_rec.requested_quantity_uom;
1137:
1138: IF l_debug_on THEN
1139: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split',WSH_DEBUG_SV.C_PROC_LEVEL);
1140: END IF;
1141:
1142: WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split(
1143: p_detail_tab => l_split_delivery_detail_tab,
1144: p_item_quantity_uom_tab => l_item_quantity_uom_tab,
1145: x_return_status => l_return_status);
1146:
1147: IF l_debug_on THEN
1148: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_DELIVERY_DETAILS_SPLITTER.tms_delivery_detail_split: ' || l_return_status);
1149: END IF;
1150:
1151: -- we will not fail based on l_return_status here because
1152: -- we do not want to stop the flow
1153: -- if the detail doesn't split, it will be caught later in
1154: -- delivery splitting and will have exception on the detail
1155: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1156: IF l_debug_on THEN
1157: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery detail split failed for ' || l_dummy_delivery_detail_id );
1158: END IF;
1159: END IF;
1160:
1161: END IF;
1177: --
1178: -- Debug Statements
1179: --
1180: IF l_debug_on THEN
1181: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_LINE_QUANTITY < 0 ' );
1182: END IF;
1183: --
1184:
1185: /* H Projects: pricing integration csun, added the delivery id here */
1247: p_replenishment_status => old_delivery_detail_rec.replenishment_status, --bug# 6689448 (replenishment project)
1248: x_return_status => l_return_status);
1249:
1250: IF l_debug_on THEN
1251: WSH_DEBUG_SV.log(l_module_name, 'l_return_status',l_return_status);
1252: END IF;
1253:
1254: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1255: --
1255: --
1256: -- Debug Statements
1257: --
1258: IF l_debug_on THEN
1259: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLING QUANTITY FAILED FOR DETAIL '||OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1260: END IF;
1261: --
1262: x_return_status := l_return_status;
1263: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1268: --
1269: -- Debug Statements
1270: --
1271: IF l_debug_on THEN
1272: WSH_DEBUG_SV.pop(l_module_name);
1273: END IF;
1274: --
1275: return;
1276: END IF;
1276: END IF;
1277:
1278: IF old_delivery_detail_rec.released_status in ('N','R','B') THEN
1279: IF l_debug_on THEN
1280: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1281: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1282: END IF;
1283:
1284:
1277:
1278: IF old_delivery_detail_rec.released_status in ('N','R','B') THEN
1279: IF l_debug_on THEN
1280: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1281: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1282: END IF;
1283:
1284:
1285: l_ready_release_change_qty := l_ready_release_change_qty + least(l_changed_detail_quantity, old_delivery_detail_rec.requested_quantity) ;
1284:
1285: l_ready_release_change_qty := l_ready_release_change_qty + least(l_changed_detail_quantity, old_delivery_detail_rec.requested_quantity) ;
1286:
1287: IF l_debug_on THEN
1288: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY);
1289: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1290: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1291: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE old_delivery_detail_rec.requested_quantity2 :'||old_delivery_detail_rec.requested_quantity2 );
1292: END IF;
1285: l_ready_release_change_qty := l_ready_release_change_qty + least(l_changed_detail_quantity, old_delivery_detail_rec.requested_quantity) ;
1286:
1287: IF l_debug_on THEN
1288: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY);
1289: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1290: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1291: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE old_delivery_detail_rec.requested_quantity2 :'||old_delivery_detail_rec.requested_quantity2 );
1292: END IF;
1293:
1286:
1287: IF l_debug_on THEN
1288: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY);
1289: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1290: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1291: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE old_delivery_detail_rec.requested_quantity2 :'||old_delivery_detail_rec.requested_quantity2 );
1292: END IF;
1293:
1294: -- HW OPMCONV - Calculate Qty2 similar to Qty1
1287: IF l_debug_on THEN
1288: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY);
1289: WSH_DEBUG_SV.logmsg(l_module_name,'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1290: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1291: WSH_DEBUG_SV.logmsg(l_module_name,'BEFORE old_delivery_detail_rec.requested_quantity2 :'||old_delivery_detail_rec.requested_quantity2 );
1292: END IF;
1293:
1294: -- HW OPMCONV - Calculate Qty2 similar to Qty1
1295: l_ready_release_change_qty2 := l_ready_release_change_qty2 + least(l_changed_line_quantity2, old_delivery_detail_rec.requested_quantity2) ;
1293:
1294: -- HW OPMCONV - Calculate Qty2 similar to Qty1
1295: l_ready_release_change_qty2 := l_ready_release_change_qty2 + least(l_changed_line_quantity2, old_delivery_detail_rec.requested_quantity2) ;
1296: IF l_debug_on THEN
1297: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1298: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1299: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE l_changed_line_quantity2 :'||l_changed_line_quantity2 );
1300: END IF;
1301: END IF;
1294: -- HW OPMCONV - Calculate Qty2 similar to Qty1
1295: l_ready_release_change_qty2 := l_ready_release_change_qty2 + least(l_changed_line_quantity2, old_delivery_detail_rec.requested_quantity2) ;
1296: IF l_debug_on THEN
1297: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1298: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1299: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE l_changed_line_quantity2 :'||l_changed_line_quantity2 );
1300: END IF;
1301: END IF;
1302:
1295: l_ready_release_change_qty2 := l_ready_release_change_qty2 + least(l_changed_line_quantity2, old_delivery_detail_rec.requested_quantity2) ;
1296: IF l_debug_on THEN
1297: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1298: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1299: WSH_DEBUG_SV.logmsg(l_module_name,'IN ONE l_changed_line_quantity2 :'||l_changed_line_quantity2 );
1300: END IF;
1301: END IF;
1302:
1303: -- when we have consumed the quantity to cancel, exit the loop.
1307: p_source_code => p_source_code,
1308: p_context => p_context,
1309: x_return_status => l_return_status);
1310: IF l_debug_on THEN
1311: WSH_DEBUG_SV.log(l_module_name,'Handle_Overpick_cancelled l_return_status',l_return_status);
1312: END IF;
1313: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1314: --
1315: -- Debug Statements
1314: --
1315: -- Debug Statements
1316: --
1317: IF l_debug_on THEN
1318: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATING OVERPICKED LINES API FAILED ' );
1319: END IF;
1320: --
1321: x_return_status := l_return_status;
1322: --
1322: --
1323: -- Debug Statements
1324: --
1325: IF l_debug_on THEN
1326: WSH_DEBUG_SV.pop(l_module_name);
1327: END IF;
1328: --
1329: return;
1330: END IF;
1335: l_changed_detail_quantity := l_changed_detail_quantity - old_delivery_detail_rec.requested_quantity;
1336: l_changed_detail_quantity2 := l_changed_detail_quantity2 - old_delivery_detail_rec.requested_quantity2;
1337:
1338: IF l_debug_on THEN
1339: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1340: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY2 :'||L_CHANGED_DETAIL_QUANTITY2 );
1341: END IF;
1342: --
1343:
1336: l_changed_detail_quantity2 := l_changed_detail_quantity2 - old_delivery_detail_rec.requested_quantity2;
1337:
1338: IF l_debug_on THEN
1339: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1340: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY2 :'||L_CHANGED_DETAIL_QUANTITY2 );
1341: END IF;
1342: --
1343:
1344: ELSE -- Everything else
1364: --
1365: -- Debug Statements
1366: --
1367: IF l_debug_on THEN
1368: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGING EXCEPTION FOR DETAIL: '|| OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1369: END IF;
1370: --
1371: log_exception(
1372: p_ship_from_location_id => old_delivery_detail_rec.ship_from_location_id,
1377: p_inventory_item_id => old_delivery_detail_rec.inventory_item_id,
1378: p_reason => l_reason,
1379: x_return_status => l_return_status);
1380: IF l_debug_on THEN
1381: WSH_DEBUG_SV.log(l_module_name,'log_exception l_return_status',l_return_status);
1382: END IF;
1383:
1384: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1385: --
1385: --
1386: -- Debug Statements
1387: --
1388: IF l_debug_on THEN
1389: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGING EXCEPTION FAILED WITH '||L_RETURN_STATUS );
1390: END IF;
1391: --
1392: x_return_status := l_return_status;
1393: IF (l_return_status IN (FND_API.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
1399: --
1400: -- Debug Statements
1401: --
1402: IF l_debug_on THEN
1403: WSH_DEBUG_SV.pop(l_module_name);
1404: END IF;
1405: --
1406: return;
1407: END IF;
1408: --
1409: -- Debug Statements
1410: --
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING CANCEL_QUANTITY FOR DETAIL '||OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1413: END IF;
1414: --
1415:
1416: -- HW OPMCONV - Removed l_process_flag parameter
1443: p_serial_quantity => old_delivery_detail_rec.serial_quantity,
1444: p_replenishment_status => old_delivery_detail_rec.replenishment_status, --bug# 6689448 (replenishment project)
1445: x_return_status => l_return_status);
1446: IF l_debug_on THEN
1447: WSH_DEBUG_SV.log(l_module_name,'cancel_quantity l_return_status',l_return_status);
1448: END IF;
1449: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1450: --
1451: -- Debug Statements
1450: --
1451: -- Debug Statements
1452: --
1453: IF l_debug_on THEN
1454: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLING QUANTITY FAILED FOR DETAIL '||OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1455: END IF;
1456: --
1457: x_return_status := l_return_status;
1458: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1463: --
1464: -- Debug Statements
1465: --
1466: IF l_debug_on THEN
1467: WSH_DEBUG_SV.pop(l_module_name);
1468: END IF;
1469: --
1470: return;
1471: END IF;
1474: l_ready_release_change_qty := l_ready_release_change_qty + LEAST(l_changed_detail_quantity, old_delivery_detail_rec.requested_quantity) ;
1475: --HW OPMCONV Let's treat Qty2 similar to Qty1
1476: l_ready_release_change_qty2 := l_ready_release_change_qty2 + LEAST(l_changed_detail_quantity2,old_delivery_detail_rec.requested_quantity2) ;
1477: IF l_debug_on THEN
1478: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1479: WSH_DEBUG_SV.logmsg(l_module_name,'IN TWO L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1480: END IF;
1481:
1482: END IF;
1475: --HW OPMCONV Let's treat Qty2 similar to Qty1
1476: l_ready_release_change_qty2 := l_ready_release_change_qty2 + LEAST(l_changed_detail_quantity2,old_delivery_detail_rec.requested_quantity2) ;
1477: IF l_debug_on THEN
1478: WSH_DEBUG_SV.logmsg(l_module_name,'REQUESTED_QTY2:'||OLD_DELIVERY_DETAIL_REC.REQUESTED_QUANTITY2);
1479: WSH_DEBUG_SV.logmsg(l_module_name,'IN TWO L_READY_RELEASE_CHANGE_QTY2 :'||L_READY_RELEASE_CHANGE_QTY2 );
1480: END IF;
1481:
1482: END IF;
1483:
1489: p_source_code => p_source_code,
1490: p_context => p_context,
1491: x_return_status => l_return_status);
1492: IF l_debug_on THEN
1493: WSH_DEBUG_SV.log(l_module_name,'Handle_Overpick_cancelled l_return_status',l_return_status);
1494: END IF;
1495:
1496: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1497: --
1497: --
1498: -- Debug Statements
1499: --
1500: IF l_debug_on THEN
1501: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATING OVERPICKED LINES API FAILED ' );
1502: END IF;
1503: --
1504: x_return_status := l_return_status;
1505: --
1505: --
1506: -- Debug Statements
1507: --
1508: IF l_debug_on THEN
1509: WSH_DEBUG_SV.pop(l_module_name);
1510: END IF;
1511: --
1512: return;
1513: END IF;
1529: --
1530: -- Debug Statements
1531: --
1532: IF l_debug_on THEN
1533: WSH_DEBUG_SV.logmsg(l_module_name, 'REJECT REQUEST AS DELIVERY IS '||L_SHIP_STATUS );
1534: WSH_DEBUG_SV.logmsg(l_module_name, 'VALID UPDATE QUANTITY '||L_VALID_UPDATE_QUANTITY );
1535: END IF;
1536:
1537: IF l_valid_update_quantity > 0 THEN
1530: -- Debug Statements
1531: --
1532: IF l_debug_on THEN
1533: WSH_DEBUG_SV.logmsg(l_module_name, 'REJECT REQUEST AS DELIVERY IS '||L_SHIP_STATUS );
1534: WSH_DEBUG_SV.logmsg(l_module_name, 'VALID UPDATE QUANTITY '||L_VALID_UPDATE_QUANTITY );
1535: END IF;
1536:
1537: IF l_valid_update_quantity > 0 THEN
1538: -- Throw message saying the quantity that can be cancelled
1548: --
1549: -- Debug Statements
1550: --
1551: IF l_debug_on THEN
1552: WSH_DEBUG_SV.logmsg(l_module_name, 'OPM L_CHANGED_LINE_QUANTITY2 < 0 AND L_CHANGED_LINE_QUANTITY = 0 ' );
1553: END IF;
1554: --
1555:
1556:
1569: --
1570: -- Debug Statements
1571: --
1572: IF l_debug_on THEN
1573: WSH_DEBUG_SV.logmsg(l_module_name, 'DONE C_OLD_LINE LOOP FOR : DEL DET: '|| OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1574: WSH_DEBUG_SV.logmsg(l_module_name, 'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1575: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1576: END IF;
1577:
1570: -- Debug Statements
1571: --
1572: IF l_debug_on THEN
1573: WSH_DEBUG_SV.logmsg(l_module_name, 'DONE C_OLD_LINE LOOP FOR : DEL DET: '|| OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1574: WSH_DEBUG_SV.logmsg(l_module_name, 'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1575: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1576: END IF;
1577:
1578: END LOOP;
1571: --
1572: IF l_debug_on THEN
1573: WSH_DEBUG_SV.logmsg(l_module_name, 'DONE C_OLD_LINE LOOP FOR : DEL DET: '|| OLD_DELIVERY_DETAIL_REC.DELIVERY_DETAIL_ID );
1574: WSH_DEBUG_SV.logmsg(l_module_name, 'L_READY_RELEASE_CHANGE_QTY :'||L_READY_RELEASE_CHANGE_QTY );
1575: WSH_DEBUG_SV.logmsg(l_module_name, 'L_CHANGED_DETAIL_QUANTITY :'||L_CHANGED_DETAIL_QUANTITY );
1576: END IF;
1577:
1578: END LOOP;
1579: IF l_ser_control = 1 THEN
1600: x_mtl_reservation_tbl_count => l_size,
1601: x_return_status => l_return_status);
1602:
1603: IF l_debug_on THEN
1604: WSH_DEBUG_SV.log(l_module_name,'query_reservations l_return_status',l_return_status);
1605: END IF;
1606:
1607: FOR l_counter in 1..l_size
1608: LOOP
1610: --
1611: -- Debug Statements
1612: --
1613: IF l_debug_on THEN
1614: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.DELETE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1615: END IF;
1616: --
1617: WSH_USA_INV_PVT.delete_reservation( -- For that source header and line id
1618: p_query_input => l_rsv_array(l_counter),
1618: p_query_input => l_rsv_array(l_counter),
1619: x_return_status => l_return_status);
1620:
1621: IF l_debug_on THEN
1622: WSH_DEBUG_SV.log(l_module_name,'delete_reservation l_return_status',l_return_status);
1623: END IF;
1624:
1625: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1626: --
1626: --
1627: -- Debug Statements
1628: --
1629: IF l_debug_on THEN
1630: WSH_DEBUG_SV.logmsg(l_module_name, 'DELETE RESERVATION FAILED FOR SOURCE LINE '||P_CHANGED_ATTRIBUTE.SOURCE_LINE_ID );
1631: END IF;
1632: --
1633: x_return_status := FND_API.G_RET_STS_ERROR;
1634: --IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1639: --
1640: -- Debug Statements
1641: --
1642: IF l_debug_on THEN
1643: WSH_DEBUG_SV.pop(l_module_name);
1644: END IF;
1645: --
1646: RETURN;
1647: END IF;
1653: -- No longer calls INV s process_move_order_line and process_move_order_header
1654: -- Need to call only if l_ready_release_change_qty > 0
1655: IF l_ready_release_change_qty > 0 THEN
1656: IF l_debug_on THEN
1657: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CANCELLING NON STAGED RESERVATION FOR SOURCE '||P_CHANGED_ATTRIBUTE.SOURCE_LINE_ID );
1658: END IF;
1659: --
1660: WSH_USA_INV_PVT.cancel_nonstaged_reservation (
1661: p_source_code => p_source_code,
1667: p_cancellation_quantity2 => l_ready_release_change_qty2, -- OPM may need to change this
1668: x_return_status => l_return_status);
1669:
1670: IF l_debug_on THEN
1671: WSH_DEBUG_SV.log(l_module_name,'cancel_nonstaged_reservation l_return_status',l_return_status);
1672: END IF;
1673:
1674: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1675: --
1675: --
1676: -- Debug Statements
1677: --
1678: IF l_debug_on THEN
1679: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLING NON STAGED RESERVATION FAILED FOR SOURCE LINE '||P_CHANGED_ATTRIBUTE.SOURCE_LINE_ID );
1680: END IF;
1681: --
1682: x_return_status := FND_API.G_RET_STS_ERROR;
1683: --IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1688: --
1689: -- Debug Statements
1690: --
1691: IF l_debug_on THEN
1692: WSH_DEBUG_SV.pop(l_module_name);
1693: END IF;
1694: --
1695: RETURN;
1696: END IF;
1707: --
1708: -- Debug Statements
1709: --
1710: IF l_debug_on THEN
1711: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
1712: END IF;
1713: --
1714: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
1715: p_entity_type => 'DELIVERY',
1715: p_entity_type => 'DELIVERY',
1716: p_entity_ids => l_del_tab,
1717: x_return_status => l_return_status);
1718: IF l_debug_on THEN
1719: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required l_return_status',l_return_status);
1720: END IF;
1721:
1722: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1723: raise mark_reprice_error;
1724: END IF;
1725:
1726: -- deliveryMerge
1727: IF l_debug_on THEN
1728: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
1729: END IF;
1730: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag(
1731: p_delivery_ids => l_del_tab,
1732: p_caller => 'WSH_DLMG',
1734: p_call_lcss => 'Y',
1735: p_event => NULL,
1736: x_return_status => l_return_status);
1737: IF l_debug_on THEN
1738: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag l_return_status',l_return_status);
1739: END IF;
1740:
1741: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1742: raise Adjust_Planned_Flag_Err;
1745:
1746: END IF;
1747:
1748: IF l_debug_on THEN
1749: WSH_DEBUG_SV.pop(l_module_name);
1750: END IF;
1751: EXCEPTION
1752: WHEN reject_update THEN
1753: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1752: WHEN reject_update THEN
1753: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1754: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1755: IF l_debug_on THEN
1756: WSH_DEBUG_SV.logmsg(l_module_name,'REJECT_UPDATE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1757: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REJECT_UPDATE');
1758: END IF;
1759: --
1760: WHEN reject_delete THEN
1753: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1754: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1755: IF l_debug_on THEN
1756: WSH_DEBUG_SV.logmsg(l_module_name,'REJECT_UPDATE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1757: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REJECT_UPDATE');
1758: END IF;
1759: --
1760: WHEN reject_delete THEN
1761: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1760: WHEN reject_delete THEN
1761: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1762: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1763: IF l_debug_on THEN
1764: WSH_DEBUG_SV.logmsg(l_module_name,'REJECT_DELETE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1765: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REJECT_DELETE');
1766: END IF;
1767: WHEN create_assignment_failure THEN
1768: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_CREATE_AS_FAILED');
1761: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1762: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1763: IF l_debug_on THEN
1764: WSH_DEBUG_SV.logmsg(l_module_name,'REJECT_DELETE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1765: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REJECT_DELETE');
1766: END IF;
1767: WHEN create_assignment_failure THEN
1768: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_CREATE_AS_FAILED');
1769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1768: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_CREATE_AS_FAILED');
1769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1770: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1771: IF l_debug_on THEN
1772: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_ASSIGNMENT_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1773: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_ASSIGNMENT_FAILURE');
1774: END IF;
1775: --
1776: WHEN create_detail_failure THEN
1769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1770: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1771: IF l_debug_on THEN
1772: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_ASSIGNMENT_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1773: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_ASSIGNMENT_FAILURE');
1774: END IF;
1775: --
1776: WHEN create_detail_failure THEN
1777: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_CREATE_DET_FAILED');
1778: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1779: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1780:
1781: IF l_debug_on THEN
1782: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1783: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_DETAIL_FAILURE');
1784: END IF;
1785: WHEN delete_detail_failure THEN
1786: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_DELETE_DET_FAILED');
1779: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1780:
1781: IF l_debug_on THEN
1782: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1783: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_DETAIL_FAILURE');
1784: END IF;
1785: WHEN delete_detail_failure THEN
1786: FND_MESSAGE.Set_Name('WSH', 'WSH_DET_DELETE_DET_FAILED');
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1788: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1789:
1790: IF l_debug_on THEN
1791: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1792: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_DETAIL_FAILURE');
1793: END IF;
1794: WHEN mark_reprice_error THEN
1795: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
1788: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1789:
1790: IF l_debug_on THEN
1791: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1792: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_DETAIL_FAILURE');
1793: END IF;
1794: WHEN mark_reprice_error THEN
1795: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
1796: x_return_status := l_return_status;
1796: x_return_status := l_return_status;
1797: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1798:
1799: IF l_debug_on THEN
1800: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1801: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
1802: END IF;
1803: --
1804: WHEN invalid_ship_set THEN
1797: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1798:
1799: IF l_debug_on THEN
1800: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1801: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
1802: END IF;
1803: --
1804: WHEN invalid_ship_set THEN
1805: IF l_debug_on THEN
1802: END IF;
1803: --
1804: WHEN invalid_ship_set THEN
1805: IF l_debug_on THEN
1806: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION: INVALID SHIP SET' );
1807: END IF;
1808: fnd_message.set_name('WSH', 'WSH_INVALID_SET_CHANGE');
1809: fnd_message.set_token('SHIP_SET',l_ship_set_name);
1810: fnd_message.set_token('LINE_NUMBER',p_changed_attribute.line_number);
1815: fnd_message.set_token('LINE_NUMBER',l_top_model_line_id);
1816: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1817: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1818: IF l_debug_on THEN
1819: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1820: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_DETAIL_FAILURE');
1821: END IF;
1822:
1823:
1816: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1817: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1818: IF l_debug_on THEN
1819: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_DETAIL_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1820: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_DETAIL_FAILURE');
1821: END IF;
1822:
1823:
1824:
1827: WSH_UTIL_CORE.add_message(l_return_status,l_module_name);
1828: x_return_status := l_return_status;
1829:
1830: IF l_debug_on THEN
1831: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_Planned_Flag_Err exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1832: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
1833: END IF;
1834:
1835:
1828: x_return_status := l_return_status;
1829:
1830: IF l_debug_on THEN
1831: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_Planned_Flag_Err exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1832: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
1833: END IF;
1834:
1835:
1836: WHEN others THEN
1845:
1846: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1847: wsh_util_core.default_handler('WSH_USA_QUANTITY_PVT.Update_Ordered_Quantity',l_module_name);
1848: IF l_debug_on THEN
1849: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1850: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1851: END IF;
1852: --
1853: END Update_Ordered_Quantity;
1846: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1847: wsh_util_core.default_handler('WSH_USA_QUANTITY_PVT.Update_Ordered_Quantity',l_module_name);
1848: IF l_debug_on THEN
1849: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1850: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1851: END IF;
1852: --
1853: END Update_Ordered_Quantity;
1854:
1925: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1926: --
1927: IF l_debug_on IS NULL
1928: THEN
1929: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1930: END IF;
1931: --
1932: IF l_debug_on THEN
1933: WSH_DEBUG_SV.push(l_module_name);
1929: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1930: END IF;
1931: --
1932: IF l_debug_on THEN
1933: WSH_DEBUG_SV.push(l_module_name);
1934: --
1935: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1936: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1937: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
1931: --
1932: IF l_debug_on THEN
1933: WSH_DEBUG_SV.push(l_module_name);
1934: --
1935: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1936: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1937: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
1938: END IF;
1939: --
1932: IF l_debug_on THEN
1933: WSH_DEBUG_SV.push(l_module_name);
1934: --
1935: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1936: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1937: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
1938: END IF;
1939: --
1940: x_return_status := FND_API.G_RET_STS_SUCCESS;
1933: WSH_DEBUG_SV.push(l_module_name);
1934: --
1935: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1936: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1937: WSH_DEBUG_SV.log(l_module_name,'P_CONTEXT',P_CONTEXT);
1938: END IF;
1939: --
1940: x_return_status := FND_API.G_RET_STS_SUCCESS;
1941:
1944: -- because their requested quantities (0) are not taken.
1945: -- This allows the picker to fully stage the quantities entered.
1946: IF (p_context = 'OVERPICK') THEN
1947: IF l_debug_on THEN
1948: WSH_DEBUG_SV.log(l_module_name,'Returning because of overpick normalization');
1949: WSH_DEBUG_SV.pop(l_module_name);
1950: END IF;
1951: RETURN;
1952: END IF;
1945: -- This allows the picker to fully stage the quantities entered.
1946: IF (p_context = 'OVERPICK') THEN
1947: IF l_debug_on THEN
1948: WSH_DEBUG_SV.log(l_module_name,'Returning because of overpick normalization');
1949: WSH_DEBUG_SV.pop(l_module_name);
1950: END IF;
1951: RETURN;
1952: END IF;
1953:
1968: EXIT WHEN C_overpick%NOTFOUND;
1969:
1970: -- Bug 2896572
1971: IF l_debug_on THEN
1972: WSH_DEBUG_SV.log(l_module_name,'Dd id-'||l_delivery_detail_id);
1973: WSH_DEBUG_SV.log(l_module_name,'Rel Status-'||l_released_status);
1974: WSH_DEBUG_SV.log(l_module_name,'Serial Number-'||l_serial_number);
1975: END IF;
1976:
1969:
1970: -- Bug 2896572
1971: IF l_debug_on THEN
1972: WSH_DEBUG_SV.log(l_module_name,'Dd id-'||l_delivery_detail_id);
1973: WSH_DEBUG_SV.log(l_module_name,'Rel Status-'||l_released_status);
1974: WSH_DEBUG_SV.log(l_module_name,'Serial Number-'||l_serial_number);
1975: END IF;
1976:
1977: IF l_released_status = 'Y' THEN
1970: -- Bug 2896572
1971: IF l_debug_on THEN
1972: WSH_DEBUG_SV.log(l_module_name,'Dd id-'||l_delivery_detail_id);
1973: WSH_DEBUG_SV.log(l_module_name,'Rel Status-'||l_released_status);
1974: WSH_DEBUG_SV.log(l_module_name,'Serial Number-'||l_serial_number);
1975: END IF;
1976:
1977: IF l_released_status = 'Y' THEN
1978: l_delivery_detail_split_rec.delivery_detail_id := l_delivery_detail_id;
1997: p_cancellation_quantity2 => l_cancel_quantity2,
1998: x_return_status => x_return_status);
1999:
2000: IF l_debug_on THEN
2001: WSH_DEBUG_SV.log(l_module_name,'WSH_USA_INV_PVT.CANCEL_STAGED_RESERVATION',x_return_status);
2002: END IF;
2003: IF x_return_status IN (fnd_api.g_ret_sts_error,
2004: fnd_api.g_ret_sts_unexp_error) THEN
2005: IF l_debug_on THEN
2002: END IF;
2003: IF x_return_status IN (fnd_api.g_ret_sts_error,
2004: fnd_api.g_ret_sts_unexp_error) THEN
2005: IF l_debug_on THEN
2006: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_USA_INV_PVT.CANCEL_STAGED_RESERVATION ') ;
2007: END IF;
2008:
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2010: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2010: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2011:
2012: IF l_debug_on THEN
2013: WSH_DEBUG_SV.pop(l_module_name);
2014: END IF;
2015: return;
2016:
2017: END IF;
2023: --
2024: -- HW OPMCONV - Removed code forking
2025:
2026: IF l_debug_on THEN
2027: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
2028: END IF;
2029: --
2030: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
2031: x_return_status => x_return_status
2036: ,p_txn_source_line_id => p_source_line_id
2037: ,p_delivery_detail_id => l_delivery_detail_id -- X-dock
2038: );
2039: IF l_debug_on THEN
2040: WSH_DEBUG_SV.log(l_module_name,'Cancel_Move_Order_Line x_return_status',x_return_status);
2041: END IF;
2042: --HW OPMCONV - Removed branching
2043: IF x_return_status = fnd_api.g_ret_sts_success THEN
2044: --
2044: --
2045: -- Debug Statements
2046: --
2047: IF l_debug_on THEN
2048: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLED MOLINE '||L_MOVE_ORDER_LINE_ID );
2049: END IF;
2050: --
2051: ELSE
2052: --
2052: --
2053: -- Debug Statements
2054: --
2055: IF l_debug_on THEN
2056: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE ' );
2057: END IF;
2058: --
2059: FND_MESSAGE.Set_Name('WSH', 'WSH_CANCEL_MO_LINE');
2060: IF l_msg_count = 1 THEN
2061: --
2062: -- Debug Statements
2063: --
2064: IF l_debug_on THEN
2065: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2066: END IF;
2067: --
2068: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
2069: ELSE
2072: --
2073: -- Debug Statements
2074: --
2075: IF l_debug_on THEN
2076: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2077: END IF;
2078: --
2079: l_error_text := l_error_text || l_msg_data;
2080: END LOOP;
2086: --
2087: -- Debug Statements
2088: --
2089: IF l_debug_on THEN
2090: WSH_DEBUG_SV.pop(l_module_name);
2091: END IF;
2092: --
2093: return;
2094: END IF;
2103: p_serial_number => l_serial_number,
2104: p_transaction_temp_id => l_txn_temp_id,
2105: x_return_status => x_return_status);
2106: IF l_debug_on THEN
2107: WSH_DEBUG_SV.log(l_module_name,'update_serial_numbers x_return_status',x_return_status);
2108: END IF;
2109: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2110: x_return_status := FND_API.G_RET_STS_ERROR;
2111: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2112: --
2113: -- Debug Statements
2114: --
2115: IF l_debug_on THEN
2116: WSH_DEBUG_SV.pop(l_module_name);
2117: END IF;
2118: --
2119: return;
2120: END IF;
2124: --
2125: -- Debug Statements
2126: --
2127: IF l_debug_on THEN
2128: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2129: END IF;
2130: --
2131: wsh_delivery_details_actions.Unassign_Detail_from_delivery
2132: (l_delivery_detail_id, x_return_status);
2130: --
2131: wsh_delivery_details_actions.Unassign_Detail_from_delivery
2132: (l_delivery_detail_id, x_return_status);
2133: IF l_debug_on THEN
2134: WSH_DEBUG_SV.log(l_module_name,'Unassign_Detail_from_delivery x_return_status',x_return_status);
2135: END IF;
2136:
2137: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2138: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2139: --
2140: -- Debug Statements
2141: --
2142: IF l_debug_on THEN
2143: WSH_DEBUG_SV.pop(l_module_name);
2144: END IF;
2145: --
2146: return;
2147: END IF;
2186: -- Update of wsh_delivery_details where requested_quantity/released_status
2187: -- are changed, call DBI API after the update.
2188: -- DBI API will check if DBI is installed
2189: IF l_debug_on THEN
2190: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_detail_tab.count);
2191: END IF;
2192: WSH_INTEGRATION.DBI_Update_Detail_Log
2193: (p_delivery_detail_id_tab => l_detail_tab,
2194: p_dml_type => 'UPDATE',
2194: p_dml_type => 'UPDATE',
2195: x_return_status => l_dbi_rs);
2196:
2197: IF l_debug_on THEN
2198: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2199: END IF;
2200: -- Only Handle Unexpected error
2201: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2202: x_return_status := l_dbi_rs;
2201: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2202: x_return_status := l_dbi_rs;
2203: --
2204: IF l_debug_on THEN
2205: WSH_DEBUG_SV.pop(l_module_name);
2206: END IF;
2207: --
2208: RETURN;
2209: END IF;
2222: --
2223: -- Debug Statements
2224: --
2225: IF l_debug_on THEN
2226: WSH_DEBUG_SV.pop(l_module_name);
2227: END IF;
2228: --
2229: EXCEPTION
2230:
2232: --
2233: -- Debug Statements
2234: --
2235: IF l_debug_on THEN
2236: WSH_DEBUG_SV.logmsg(l_module_name, 'NO OVERPICKED LINES REMAINING TO BE CANCELLED' );
2237: END IF;
2238: --
2239: --
2240: -- Debug Statements
2239: --
2240: -- Debug Statements
2241: --
2242: IF l_debug_on THEN
2243: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2244: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2245: END IF;
2246: --
2247: WHEN OTHERS THEN
2240: -- Debug Statements
2241: --
2242: IF l_debug_on THEN
2243: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2244: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
2245: END IF;
2246: --
2247: WHEN OTHERS THEN
2248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2251: --
2252: -- Debug Statements
2253: --
2254: IF l_debug_on THEN
2255: WSH_DEBUG_SV.pop(l_module_name);
2256: END IF;
2257: --
2258: END Handle_Overpick_cancelled;
2259:
2290: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2291: --
2292: IF l_debug_on IS NULL
2293: THEN
2294: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2295: END IF;
2296: --
2297: IF l_debug_on THEN
2298: WSH_DEBUG_SV.push(l_module_name);
2294: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2295: END IF;
2296: --
2297: IF l_debug_on THEN
2298: WSH_DEBUG_SV.push(l_module_name);
2299: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2300: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2301: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2302: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2295: END IF;
2296: --
2297: IF l_debug_on THEN
2298: WSH_DEBUG_SV.push(l_module_name);
2299: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2300: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2301: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2302: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2303: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2296: --
2297: IF l_debug_on THEN
2298: WSH_DEBUG_SV.push(l_module_name);
2299: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2300: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2301: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2302: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2303: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2304: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2297: IF l_debug_on THEN
2298: WSH_DEBUG_SV.push(l_module_name);
2299: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2300: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2301: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2302: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2303: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2304: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2305: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2298: WSH_DEBUG_SV.push(l_module_name);
2299: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2300: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2301: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2302: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2303: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2304: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2305: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2306: END IF;
2299: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_FROM_LOCATION_ID',P_SHIP_FROM_LOCATION_ID);
2300: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2301: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2302: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2303: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2304: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2305: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2306: END IF;
2307:
2300: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2301: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2302: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2303: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2304: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2305: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2306: END IF;
2307:
2308: x_return_status := FND_API.G_RET_STS_SUCCESS;
2301: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2302: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2303: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
2304: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2305: WSH_DEBUG_SV.log(l_module_name,'P_REASON',P_REASON);
2306: END IF;
2307:
2308: x_return_status := FND_API.G_RET_STS_SUCCESS;
2309:
2347: p_error_message => l_exception_error_message
2348: );
2349:
2350: IF l_debug_on THEN
2351: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
2352: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION ID: '|| L_DUMMY_EXCEPTION_ID );
2353: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION MSG DATA: '|| L_EXCEPTION_MSG_DATA );
2354: END IF;
2355:
2348: );
2349:
2350: IF l_debug_on THEN
2351: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
2352: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION ID: '|| L_DUMMY_EXCEPTION_ID );
2353: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION MSG DATA: '|| L_EXCEPTION_MSG_DATA );
2354: END IF;
2355:
2356: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2349:
2350: IF l_debug_on THEN
2351: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
2352: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION ID: '|| L_DUMMY_EXCEPTION_ID );
2353: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION MSG DATA: '|| L_EXCEPTION_MSG_DATA );
2354: END IF;
2355:
2356: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2357: RAISE logging_exception_failure;
2357: RAISE logging_exception_failure;
2358: END IF;
2359:
2360: IF l_debug_on THEN
2361: WSH_DEBUG_SV.pop(l_module_name);
2362: END IF;
2363: --
2364: EXCEPTION
2365: WHEN logging_exception_failure THEN
2368: --
2369: -- Debug Statements
2370: --
2371: IF l_debug_on THEN
2372: WSH_DEBUG_SV.logmsg(l_module_name,'LOGGING_EXCEPTION_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2373: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:LOGGING_EXCEPTION_FAILURE');
2374: END IF;
2375: --
2376: WHEN others THEN
2369: -- Debug Statements
2370: --
2371: IF l_debug_on THEN
2372: WSH_DEBUG_SV.logmsg(l_module_name,'LOGGING_EXCEPTION_FAILURE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2373: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:LOGGING_EXCEPTION_FAILURE');
2374: END IF;
2375: --
2376: WHEN others THEN
2377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2378: --
2379: -- Debug Statements
2380: --
2381: IF l_debug_on THEN
2382: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2383: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2384: END IF;
2385: --
2386: END log_exception;
2379: -- Debug Statements
2380: --
2381: IF l_debug_on THEN
2382: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2383: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2384: END IF;
2385: --
2386: END log_exception;
2387:
2487: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2488: --
2489: IF l_debug_on IS NULL
2490: THEN
2491: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2492: END IF;
2493: --
2494: IF l_debug_on THEN
2495: WSH_DEBUG_SV.push(l_module_name);
2491: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2492: END IF;
2493: --
2494: IF l_debug_on THEN
2495: WSH_DEBUG_SV.push(l_module_name);
2496: --
2497: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2499: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2493: --
2494: IF l_debug_on THEN
2495: WSH_DEBUG_SV.push(l_module_name);
2496: --
2497: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2499: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2500: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2501: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2494: IF l_debug_on THEN
2495: WSH_DEBUG_SV.push(l_module_name);
2496: --
2497: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2499: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2500: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2501: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2502: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2495: WSH_DEBUG_SV.push(l_module_name);
2496: --
2497: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2499: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2500: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2501: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2502: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2503: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2496: --
2497: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2499: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2500: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2501: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2502: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2503: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2504: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2497: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2498: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2499: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2500: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2501: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2502: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2503: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2504: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2505: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2498: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2499: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2500: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2501: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2502: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2503: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2504: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2505: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2506: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2499: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2500: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2501: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2502: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2503: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2504: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2505: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2506: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2507: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2500: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
2501: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2502: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2503: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2504: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2505: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2506: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2507: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2508: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2501: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DELIVERY_DETAIL_ID',P_PARENT_DELIVERY_DETAIL_ID);
2502: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2503: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2504: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2505: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2506: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2507: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2508: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2509: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2502: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
2503: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2504: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2505: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2506: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2507: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2508: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2509: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2510: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2503: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
2504: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2505: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2506: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2507: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2508: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2509: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2510: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2511: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2504: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2505: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2506: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2507: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2508: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2509: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2510: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2511: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2512: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2505: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
2506: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2507: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2508: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2509: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2510: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2511: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2512: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2513: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2506: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2507: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2508: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2509: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2510: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2511: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2512: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2513: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2514: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2507: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
2508: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2509: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2510: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2511: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2512: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2513: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2514: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2515: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2508: WSH_DEBUG_SV.log(l_module_name,'P_SUBINVENTORY',P_SUBINVENTORY);
2509: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2510: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2511: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2512: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2513: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2514: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2515: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2516: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2509: WSH_DEBUG_SV.log(l_module_name,'P_REVISION',P_REVISION);
2510: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2511: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2512: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2513: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2514: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2515: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2516: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2517: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2510: WSH_DEBUG_SV.log(l_module_name,'P_LOT_NUMBER',P_LOT_NUMBER);
2511: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2512: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2513: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2514: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2515: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2516: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2517: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2518: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2511: WSH_DEBUG_SV.log(l_module_name,'P_LOCATOR_ID',P_LOCATOR_ID);
2512: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2513: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2514: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2515: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2516: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2517: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2518: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2519: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2512: WSH_DEBUG_SV.log(l_module_name,'P_ORDERED_QUANTITY',P_ORDERED_QUANTITY);
2513: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2514: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2515: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2516: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2517: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2518: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2519: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2520: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2513: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
2514: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2515: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2516: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2517: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2518: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2519: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2520: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2521: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2514: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
2515: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2516: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2517: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2518: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2519: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2520: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2521: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2522: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2515: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY',P_PICKED_QUANTITY);
2516: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2517: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2518: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2519: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2520: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2521: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2522: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2523: END IF;
2516: WSH_DEBUG_SV.log(l_module_name,'P_PICKED_QUANTITY2',P_PICKED_QUANTITY2);
2517: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2518: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2519: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2520: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2521: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2522: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2523: END IF;
2524: --
2517: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY',P_SHIPPED_QUANTITY);
2518: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2519: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2520: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2521: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2522: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2523: END IF;
2524: --
2525: --
2518: WSH_DEBUG_SV.log(l_module_name,'P_SHIPPED_QUANTITY2',P_SHIPPED_QUANTITY2);
2519: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY',P_CHANGED_DETAIL_QUANTITY);
2520: WSH_DEBUG_SV.log(l_module_name,'P_CHANGED_DETAIL_QUANTITY2',P_CHANGED_DETAIL_QUANTITY2);
2521: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_TOLERANCE_ABOVE',P_SHIP_TOLERANCE_ABOVE);
2522: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_QUANTITY',P_SERIAL_QUANTITY);
2523: END IF;
2524: --
2525: --
2526: -- Debug Statements
2525: --
2526: -- Debug Statements
2527: --
2528: IF l_debug_on THEN
2529: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_QUANTITY_PVT.CANCEL_QUANTITY ' );
2530: END IF;
2531: --
2532: x_return_status := FND_API.G_RET_STS_SUCCESS;
2533:
2560: p_override_retain_ato_rsv => 'Y',
2561: x_return_status => x_return_status );
2562:
2563: IF l_debug_on THEN
2564: WSH_DEBUG_SV.log(l_module_name,'unreserve_delivery_detail x_return_status',x_return_status);
2565: END IF;
2566: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2567: x_return_status := FND_API.G_RET_STS_ERROR;
2568: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2569: --
2570: -- Debug Statements
2571: --
2572: IF l_debug_on THEN
2573: WSH_DEBUG_SV.pop(l_module_name);
2574: END IF;
2575: --
2576: return;
2577: END IF;
2593: END IF;
2594:
2595: IF ( (p_requested_quantity - ABS(p_changed_detail_quantity)) >= nvl(p_shipped_quantity,0) ) THEN
2596: IF l_debug_on THEN
2597: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 1 ' );
2598: END IF;
2599: UPDATE wsh_delivery_details SET
2600: requested_quantity = p_requested_quantity - ABS(p_changed_detail_quantity),
2601: requested_quantity2 = p_requested_quantity2 - ABS(p_changed_detail_quantity2),
2636: -- delivery detail lines to decrease the qty from replenishment tables.
2637: IF (p_replenishment_status = 'R' and p_released_status in ('R','B')) THEN
2638: --{
2639: IF l_debug_on THEN
2640: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2641: END IF;
2642: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL (
2643: p_delivery_detail_id => p_delivery_detail_id,
2644: p_primary_quantity => (p_requested_quantity - ABS(p_changed_detail_quantity)),
2645: x_return_status => x_return_status);
2646: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2647: --{
2648: IF l_debug_on THEN
2649: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
2650: WSH_DEBUG_SV.pop(l_module_name);
2651: END IF;
2652: RETURN;
2653: --}
2646: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2647: --{
2648: IF l_debug_on THEN
2649: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
2650: WSH_DEBUG_SV.pop(l_module_name);
2651: END IF;
2652: RETURN;
2653: --}
2654: END IF;
2710: -- Either of the above 2 updates will be executed for same delivery detail id
2711: -- hence have one call to DBI wrapper and not 2,this will cover for both
2712: -- This API will also check for DBI Installed or not
2713: IF l_debug_on THEN
2714: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',p_delivery_detail_id);
2715: END IF;
2716: l_detail_tab(1) := p_delivery_detail_id;
2717: WSH_INTEGRATION.DBI_Update_Detail_Log
2718: (p_delivery_detail_id_tab => l_detail_tab,
2719: p_dml_type => 'UPDATE',
2720: x_return_status => l_dbi_rs);
2721:
2722: IF l_debug_on THEN
2723: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2724: END IF;
2725: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2726: x_return_status := l_dbi_rs;
2727: -- just pass this return status to caller API
2725: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2726: x_return_status := l_dbi_rs;
2727: -- just pass this return status to caller API
2728: IF l_debug_on THEN
2729: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
2730: WSH_DEBUG_SV.pop(l_module_name);
2731: END IF;
2732: return;
2733: END IF;
2726: x_return_status := l_dbi_rs;
2727: -- just pass this return status to caller API
2728: IF l_debug_on THEN
2729: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
2730: WSH_DEBUG_SV.pop(l_module_name);
2731: END IF;
2732: return;
2733: END IF;
2734: -- End of Code for DBI Project
2739: -- Update Qty2 correctly
2740: IF ( ( (p_requested_quantity2 - ABS(p_changed_detail_quantity2)) >= nvl(p_shipped_quantity2,0)
2741: AND (p_requested_quantity - ABS(p_changed_detail_quantity)) >= nvl(p_shipped_quantity,0)) ) THEN
2742: IF l_debug_on THEN
2743: WSH_DEBUG_SV.logmsg(l_module_name, 'CASE 2 ' );
2744: END IF;
2745: UPDATE wsh_delivery_details SET
2746: requested_quantity2 = p_requested_quantity2 + p_changed_detail_quantity2 -- OPM B2187389
2747: WHERE delivery_detail_id = p_delivery_detail_id;
2748: END IF;
2749:
2750: -- J: W/V Changes
2751: IF l_debug_on THEN
2752: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
2753: END IF;
2754: WSH_WV_UTILS.Detail_Weight_Volume(
2755: p_delivery_detail_id => p_delivery_detail_id,
2756: p_update_flag => 'Y',
2762:
2763: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2764: x_return_status := l_return_status;
2765: IF l_debug_on THEN
2766: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
2767: WSH_DEBUG_SV.pop(l_module_name);
2768: END IF;
2769: return;
2770: END IF;
2763: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2764: x_return_status := l_return_status;
2765: IF l_debug_on THEN
2766: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
2767: WSH_DEBUG_SV.pop(l_module_name);
2768: END IF;
2769: return;
2770: END IF;
2771:
2779: -- INV has bug 2168209 to investigate allowing
2780: -- overpicking after reducing move order quantity.
2781:
2782: IF l_debug_on THEN
2783: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
2784:
2785: WSH_DEBUG_SV.push(l_module_name);
2786: --
2787: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity',p_changed_detail_quantity);
2781:
2782: IF l_debug_on THEN
2783: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
2784:
2785: WSH_DEBUG_SV.push(l_module_name);
2786: --
2787: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity',p_changed_detail_quantity);
2788: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity2',ABS(p_changed_detail_quantity2));
2789: END IF;
2783: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
2784:
2785: WSH_DEBUG_SV.push(l_module_name);
2786: --
2787: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity',p_changed_detail_quantity);
2788: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity2',ABS(p_changed_detail_quantity2));
2789: END IF;
2790: --
2791: -- HW OPMCONV - Pass Qty2
2784:
2785: WSH_DEBUG_SV.push(l_module_name);
2786: --
2787: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity',p_changed_detail_quantity);
2788: WSH_DEBUG_SV.log(l_module_name,'p_changed_detail_quantity2',ABS(p_changed_detail_quantity2));
2789: END IF;
2790: --
2791: -- HW OPMCONV - Pass Qty2
2792: INV_MO_Cancel_PVT.Reduce_Move_Order_Quantity(
2800: p_delivery_detail_id => p_delivery_detail_id -- X-dock changes
2801: );
2802:
2803: IF l_debug_on THEN
2804: WSH_DEBUG_SV.log(l_module_name,'Reduce_Move_Order_Quantity x_return_status',x_return_status);
2805: END IF;
2806: IF x_return_status = fnd_api.g_ret_sts_success THEN
2807: --
2808: -- Debug Statements
2807: --
2808: -- Debug Statements
2809: --
2810: IF l_debug_on THEN
2811: WSH_DEBUG_SV.logmsg(l_module_name, 'REDUCED QUANTITY FOR MOLINE '||P_MOVE_ORDER_LINE_ID ||' BY '|| P_CHANGED_DETAIL_QUANTITY );
2812: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY ' );
2813: END IF;
2814: --
2815: ELSE
2808: -- Debug Statements
2809: --
2810: IF l_debug_on THEN
2811: WSH_DEBUG_SV.logmsg(l_module_name, 'REDUCED QUANTITY FOR MOLINE '||P_MOVE_ORDER_LINE_ID ||' BY '|| P_CHANGED_DETAIL_QUANTITY );
2812: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN INV_MO_CANCEL_PVT.REDUCE_MOVE_ORDER_QUANTITY ' );
2813: END IF;
2814: --
2815: ELSE
2816: FND_MESSAGE.Set_Name('WSH', 'WSH_REDUCE_MO_QUANTITY');
2818: --
2819: -- Debug Statements
2820: --
2821: IF l_debug_on THEN
2822: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2823: END IF;
2824: --
2825: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
2826: ELSE
2829: --
2830: -- Debug Statements
2831: --
2832: IF l_debug_on THEN
2833: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2834: END IF;
2835: --
2836: l_error_text := l_error_text || l_msg_data;
2837: END LOOP;
2843: --
2844: -- Debug Statements
2845: --
2846: IF l_debug_on THEN
2847: WSH_DEBUG_SV.pop(l_module_name);
2848: END IF;
2849: --
2850: return;
2851: END IF; -- end of return_status handling
2888: -- detail lines with zeqo qty so that WMS deletes the replenishment record.
2889: IF (p_replenishment_status = 'R' and p_released_status in ('R','B')) THEN
2890: --{
2891: IF l_debug_on THEN
2892: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
2893: END IF;
2894: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL (
2895: p_delivery_detail_id => p_delivery_detail_id,
2896: p_primary_quantity => 0,
2897: x_return_status => x_return_status);
2898: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2899: --{
2900: IF l_debug_on THEN
2901: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
2902: WSH_DEBUG_SV.pop(l_module_name);
2903: END IF;
2904: RETURN;
2905: --}
2898: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2899: --{
2900: IF l_debug_on THEN
2901: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
2902: WSH_DEBUG_SV.pop(l_module_name);
2903: END IF;
2904: RETURN;
2905: --}
2906: END IF;
2913: -- Update of wsh_delivery_details where requested_quantity/released_status
2914: -- are changed, call DBI API after the update.
2915: -- This API will also check for DBI Installed or not
2916: IF l_debug_on THEN
2917: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',p_delivery_detail_id);
2918: END IF;
2919: l_detail_tab(1) := p_delivery_detail_id;
2920: WSH_INTEGRATION.DBI_Update_Detail_Log
2921: (p_delivery_detail_id_tab => l_detail_tab,
2922: p_dml_type => 'UPDATE',
2923: x_return_status => l_dbi_rs);
2924:
2925: IF l_debug_on THEN
2926: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2927: END IF;
2928: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2929: x_return_status := l_dbi_rs;
2930: -- just pass this return status to caller API
2928: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2929: x_return_status := l_dbi_rs;
2930: -- just pass this return status to caller API
2931: IF l_debug_on THEN
2932: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
2933: WSH_DEBUG_SV.pop(l_module_name);
2934: END IF;
2935: return;
2936: END IF;
2929: x_return_status := l_dbi_rs;
2930: -- just pass this return status to caller API
2931: IF l_debug_on THEN
2932: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
2933: WSH_DEBUG_SV.pop(l_module_name);
2934: END IF;
2935: return;
2936: END IF;
2937: -- End of Code for DBI Project
2938: --
2939:
2940: -- J: W/V Changes
2941: IF l_debug_on THEN
2942: WSH_DEBUG_SV.log(l_module_name,'Calling Detail_Weight_Volume to reset W/V for cancelled dd');
2943: END IF;
2944: WSH_WV_UTILS.Detail_Weight_Volume(
2945: p_delivery_detail_id => p_delivery_detail_id,
2946: p_update_flag => 'Y',
2950: x_return_status => l_return_status);
2951: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2952: x_return_status := l_return_status;
2953: IF l_debug_on THEN
2954: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
2955: WSH_DEBUG_SV.pop(l_module_name);
2956: END IF;
2957: return;
2958: END IF;
2951: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2952: x_return_status := l_return_status;
2953: IF l_debug_on THEN
2954: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
2955: WSH_DEBUG_SV.pop(l_module_name);
2956: END IF;
2957: return;
2958: END IF;
2959:
2974: p_ids_tobe_unassigned => l_details_id ,
2975: p_validate_flag => 'Y',
2976: x_return_status => x_return_status);
2977: IF l_debug_on THEN
2978: WSH_DEBUG_SV.log(l_module_name,'Unassign_Unpack_Empty_cont x_return_status',x_return_status);
2979: END IF;
2980:
2981: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2982: IF l_debug_on THEN
2979: END IF;
2980:
2981: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2982: IF l_debug_on THEN
2983: WSH_DEBUG_SV.pop(l_module_name);
2984: END IF;
2985: return;
2986: END IF;
2987:
2996: IF p_parent_delivery_detail_id IS NOT NULL THEN
2997:
2998: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Detail_from_Cont(p_delivery_detail_id,x_return_status);
2999: IF l_debug_on THEN
3000: WSH_DEBUG_SV.log(l_module_name,'Unassign_Detail_from_Cont x_return_status',x_return_status);
3001: END IF;
3002: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3003: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3004: --
3004: --
3005: -- Debug Statements
3006: --
3007: IF l_debug_on THEN
3008: WSH_DEBUG_SV.pop(l_module_name);
3009: END IF;
3010: --
3011: return;
3012: END IF;
3020: --
3021: -- Debug Statements
3022: --
3023: IF l_debug_on THEN
3024: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
3025: END IF;
3026: --
3027: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
3028: x_return_status => x_return_status
3033: ,p_txn_source_line_id => p_source_line_id
3034: ,p_delivery_detail_id => p_delivery_detail_id --X-dock
3035: );
3036: IF l_debug_on THEN
3037: WSH_DEBUG_SV.log(l_module_name,'INV_MO_Cancel_PVT.Cancel_Move_Order_Line x_return_status',x_return_status);
3038: END IF;
3039: --HW OPMCONV. Removed code forking
3040: IF x_return_status = fnd_api.g_ret_sts_success THEN
3041: --
3041: --
3042: -- Debug Statements
3043: --
3044: IF l_debug_on THEN
3045: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLED MOLINE '||P_MOVE_ORDER_LINE_ID );
3046: END IF;
3047: --
3048: ELSE
3049: --
3049: --
3050: -- Debug Statements
3051: --
3052: IF l_debug_on THEN
3053: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE ' );
3054: END IF;
3055: --
3056: FND_MESSAGE.Set_Name('WSH', 'WSH_CANCEL_MO_LINE');
3057: IF l_msg_count = 1 THEN
3058: --
3059: -- Debug Statements
3060: --
3061: IF l_debug_on THEN
3062: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3063: END IF;
3064: --
3065: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
3066: ELSE
3069: --
3070: -- Debug Statements
3071: --
3072: IF l_debug_on THEN
3073: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3074: END IF;
3075: --
3076: l_error_text := l_error_text || l_msg_data;
3077: END LOOP;
3083: --
3084: -- Debug Statements
3085: --
3086: IF l_debug_on THEN
3087: WSH_DEBUG_SV.pop(l_module_name);
3088: END IF;
3089: --
3090: return;
3091: END IF;
3095: --
3096: -- Debug Statements
3097: --
3098: IF l_debug_on THEN
3099: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
3100: END IF;
3101: --
3102: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
3103: x_return_status => x_return_status
3109: ,p_delivery_detail_id => p_delivery_detail_id -- X-dock
3110: );
3111:
3112: IF l_debug_on THEN
3113: WSH_DEBUG_SV.log(l_module_name,'INV_MO_Cancel_PVT.Cancel_Move_Order_Line x_return_status',x_return_status);
3114: END IF;
3115: --HW OPMCONV - Removed code forking
3116:
3117: IF x_return_status = fnd_api.g_ret_sts_success THEN
3118: --
3119: -- Debug Statements
3120: --
3121: IF l_debug_on THEN
3122: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLED MOLINE '||P_MOVE_ORDER_LINE_ID );
3123: END IF;
3124: --
3125: ELSE
3126: --
3126: --
3127: -- Debug Statements
3128: --
3129: IF l_debug_on THEN
3130: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE ' );
3131: END IF;
3132: --
3133: FND_MESSAGE.Set_Name('WSH', 'WSH_CANCEL_MO_LINE');
3134: IF l_msg_count = 1 THEN
3135: --
3136: -- Debug Statements
3137: --
3138: IF l_debug_on THEN
3139: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3140: END IF;
3141: --
3142: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
3143: ELSE
3146: --
3147: -- Debug Statements
3148: --
3149: IF l_debug_on THEN
3150: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
3151: END IF;
3152: --
3153: l_error_text := l_error_text || l_msg_data;
3154: END LOOP;
3159: --
3160: -- Debug Statements
3161: --
3162: IF l_debug_on THEN
3163: WSH_DEBUG_SV.pop(l_module_name);
3164: END IF;
3165: --
3166: return;
3167: END IF;
3189: p_cancellation_quantity => l_change_reservation_quantity,
3190: p_cancellation_quantity2 => l_change_reservation_quantity2,
3191: x_return_status => x_return_status);
3192: IF l_debug_on THEN
3193: WSH_DEBUG_SV.log(l_module_name,'WSH_USA_INV_PVT.CANCEL_STAGED_RESERVATION',x_return_status);
3194: END IF;
3195:
3196: IF x_return_status = fnd_api.g_ret_sts_success THEN
3197: --
3197: --
3198: -- Debug Statements
3199: --
3200: IF l_debug_on THEN
3201: WSH_DEBUG_SV.logmsg(l_module_name, 'CANCELLED STAGED RESERVATION FOR DETAIL '||P_DELIVERY_DETAIL_ID ||'BY QTY '|| L_CHANGE_RESERVATION_QUANTITY );
3202: END IF;
3203: --
3204: ELSE
3205: --
3205: --
3206: -- Debug Statements
3207: --
3208: IF l_debug_on THEN
3209: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_USA_INV_PVT.CANCEL_STAGED_RESERVATION ' );
3210: END IF;
3211: --
3212: x_return_status := FND_API.G_RET_STS_ERROR;
3213: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3214: --
3215: -- Debug Statements
3216: --
3217: IF l_debug_on THEN
3218: WSH_DEBUG_SV.pop(l_module_name);
3219: END IF;
3220: --
3221: return;
3222: END IF;
3235: --
3236: -- Debug Statements
3237: --
3238: IF l_debug_on THEN
3239: WSH_DEBUG_SV.logmsg(l_module_name, 'Serial Numbers deletion check -
3240: transaction_temp_id, serial_number, serial_quantity : '||
3241: p_transaction_temp_id||', '||p_serial_number||', '||l_serial_quantity);
3242: END IF;
3243: --
3250: --
3251: -- Debug Statements
3252: --
3253: IF l_debug_on THEN
3254: WSH_DEBUG_SV.logmsg(l_module_name, l_serial_quantity||' Serial Number(s) have to be deleted for dd '
3255: ||p_delivery_detail_id);
3256: END IF;
3257: --
3258: FND_MESSAGE.SET_NAME('WSH','WSH_STAGED_SERIAL_EXISTS');
3266: --
3267: -- Debug Statements
3268: --
3269: IF l_debug_on THEN
3270: WSH_DEBUG_SV.logmsg(l_module_name, l_serial_quantity||' Serial Number(s) have to be deleted for dd '
3271: ||p_delivery_detail_id);
3272: END IF;
3273: --
3274: FND_MESSAGE.SET_NAME('WSH','WSH_STAGED_SERIAL_EXISTS');
3280:
3281: ELSIF p_ordered_quantity = 0 AND (p_transaction_temp_id IS NOT NULL OR p_serial_number IS NOT NULL ) THEN
3282: --
3283: IF l_debug_on THEN
3284: WSH_DEBUG_SV.logmsg(l_module_name,'Complete Order Qty Cancelation - all serial numbers will be unmarked',WSH_DEBUG_SV.C_PROC_LEVEL);
3285: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.UPDATE_SERIAL_NUMBERS',WSH_DEBUG_SV.C_PROC_LEVEL);
3286: END IF;
3287: --
3288: WSH_USA_INV_PVT.update_serial_numbers(
3281: ELSIF p_ordered_quantity = 0 AND (p_transaction_temp_id IS NOT NULL OR p_serial_number IS NOT NULL ) THEN
3282: --
3283: IF l_debug_on THEN
3284: WSH_DEBUG_SV.logmsg(l_module_name,'Complete Order Qty Cancelation - all serial numbers will be unmarked',WSH_DEBUG_SV.C_PROC_LEVEL);
3285: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT.UPDATE_SERIAL_NUMBERS',WSH_DEBUG_SV.C_PROC_LEVEL);
3286: END IF;
3287: --
3288: WSH_USA_INV_PVT.update_serial_numbers(
3289: p_delivery_detail_id => p_delivery_detail_id,
3290: p_serial_number => p_serial_number,
3291: p_transaction_temp_id => p_transaction_temp_id,
3292: x_return_status => x_return_status);
3293: IF l_debug_on THEN
3294: WSH_DEBUG_SV.log(l_module_name,'Update_Serial_Numbers x_return_status',x_return_status);
3295: END IF;
3296: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3297: x_return_status := FND_API.G_RET_STS_ERROR;
3298: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3299: --
3300: -- Debug Statements
3301: --
3302: IF l_debug_on THEN
3303: WSH_DEBUG_SV.pop(l_module_name);
3304: END IF;
3305: --
3306: RETURN;
3307: END IF;
3313: --
3314: -- Debug Statements
3315: --
3316: IF l_debug_on THEN
3317: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR IN WSH_USA_INV_PVT.UPDATE_SERIAL_NUMBERS ' );
3318: END IF;
3319: --
3320: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3321: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3322: --
3323: -- Debug Statements
3324: --
3325: IF l_debug_on THEN
3326: WSH_DEBUG_SV.pop(l_module_name);
3327: END IF;
3328: --
3329: return;
3330: ELSIF l_num_warn > 0 THEN
3334: --
3335: -- Debug Statements
3336: --
3337: IF l_debug_on THEN
3338: WSH_DEBUG_SV.pop(l_module_name);
3339: END IF;
3340: --
3341: return;
3342: END IF;
3343: --
3344: -- Debug Statements
3345: --
3346: IF l_debug_on THEN
3347: WSH_DEBUG_SV.pop(l_module_name);
3348: END IF;
3349: --
3350: EXCEPTION
3351: WHEN others THEN
3356: --
3357: -- Debug Statements
3358: --
3359: IF l_debug_on THEN
3360: WSH_DEBUG_SV.logmsg(l_module_name, SQLCODE || ' : ' || SQLERRM );
3361: END IF;
3362: --
3363: wsh_util_core.default_handler('WSH_USA_QUANTITY_PVT.CANCEL_QUANTITY',l_module_name);
3364: --
3364: --
3365: -- Debug Statements
3366: --
3367: IF l_debug_on THEN
3368: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3369: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3370: END IF;
3371: --
3372: END cancel_quantity;
3365: -- Debug Statements
3366: --
3367: IF l_debug_on THEN
3368: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3369: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3370: END IF;
3371: --
3372: END cancel_quantity;
3373: