[Home] [Help]
223: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
224: --
225: IF l_debug_on IS NULL
226: THEN
227: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
228: END IF;
229: --
230: IF l_debug_on THEN
231: WSH_DEBUG_SV.push(l_module_name);
227: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
228: END IF;
229: --
230: IF l_debug_on THEN
231: WSH_DEBUG_SV.push(l_module_name);
232: --
233: -- 2587777
234:
235: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY2_TO_UNRESERVE',P_QUANTITY2_TO_UNRESERVE);
231: WSH_DEBUG_SV.push(l_module_name);
232: --
233: -- 2587777
234:
235: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY2_TO_UNRESERVE',P_QUANTITY2_TO_UNRESERVE);
236: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID:P_QUANTITY_TO_UNRESERVE:P_QUANTITY2_TO_UNRESERVE: P_UNRESERVE_MODE:
237: P_OVERRIDE_RETAIN_ATO_RSV ;',
238: P_DELIVERY_DETAIL_ID
239: ||':'||P_QUANTITY_TO_UNRESERVE
232: --
233: -- 2587777
234:
235: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY2_TO_UNRESERVE',P_QUANTITY2_TO_UNRESERVE);
236: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID:P_QUANTITY_TO_UNRESERVE:P_QUANTITY2_TO_UNRESERVE: P_UNRESERVE_MODE:
237: P_OVERRIDE_RETAIN_ATO_RSV ;',
238: P_DELIVERY_DETAIL_ID
239: ||':'||P_QUANTITY_TO_UNRESERVE
240: ||':'||P_QUANTITY2_TO_UNRESERVE
248: END IF;
249:
250: --
251: IF l_debug_on THEN
252: WSH_DEBUG_SV.logmsg(l_module_name, 'P_DELIVERY_DETAIL_ID : G_CODE_RELEASE_LEVEL ;'
253: || P_DELIVERY_DETAIL_ID ||': '|| G_CODE_RELEASE_LEVEL );
254: END IF;
255: --
256:
259: END IF;
260:
261: --
262: IF l_debug_on THEN
263: WSH_DEBUG_SV.logmsg(l_module_name, 'G_CODE_RELEASE_LEVEL ' || G_CODE_RELEASE_LEVEL );
264: END IF;
265: --
266:
267: OPEN c_line_details;
276: -- HW BUG#:2005977
277: --
278: IF l_debug_on THEN
279: -- 2747520
280: WSH_DEBUG_SV.log(l_module_name,'Ln_id:Hdr_id:Org_id:Src-doc-id:SubInv:Rev:Lot#:Locat-id ; ',
281: l_line_rec.line_id
282: ||':'|| l_line_rec.header_id
283: ||':'|| l_line_rec.organization_id
284: ||':'|| l_line_rec.source_document_type_id
289: ||':'|| l_line_rec.inventory_item_id
290: ||':'|| l_line_rec.requested_quantity_uom
291: ||':'|| l_line_rec.ordered_quantity_uom2
292: ||':'|| l_line_rec.locator_id);
293: WSH_DEBUG_SV.log(l_module_name,'ATO-Ln-id : Rel-Stat : Dt-Sched HH24:MI:SS ; ',
294: l_line_rec.ato_line_id
295: ||':'|| l_line_rec.released_status
296: ||':'|| to_char(l_line_rec.date_scheduled,'MM/DD/YYYY HH24:MI:SS'));
297:
316: -- Get demand_source_header_id from mtl_sales_orders
317:
318: --
319: IF l_debug_on THEN
320: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_SALESORDER.GET_SALESORDER_FOR_OEHEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
321: END IF;
322: --
323: -- caching the sales_order_id : 2807093-2747520
324: IF ( l_sales_order_id is NULL OR l_line_rec.header_id <> nvl(g_header_id, 0) ) THEN
327: g_header_id := l_line_rec.header_id;
328: END IF;
329: --
330: IF l_debug_on THEN
331: WSH_DEBUG_SV.logmsg(l_module_name, 'L_SALES_ORDER_ID' || L_SALES_ORDER_ID );
332: END IF;
333: --
334:
335: l_rsv_rec.demand_source_header_id := l_sales_order_id;
375: -- HW BUG#:2005977 for OPM. Need to branch
376: -- HW OPMCONV - No need to branch code
377: --
378: IF l_debug_on THEN
379: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.QUERY_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
380: END IF;
381: --
382: -- Bug 3431358(Moved this code from top to here)
383: -- 2747520 : Set reservation_type to 'U'nstaged or 'S'taged
422: G_ATO_RSV_PROFILE := 'N';
423: end if;
424: END IF;
425: IF l_debug_on THEN
426: WSH_DEBUG_SV.log(l_module_name,'g_ato_rsv_profile',G_ATO_RSV_PROFILE);
427: END IF;
428: --2587777
429:
430: --X-dock
466:
467: FOR l_counter in 1..l_count
468: LOOP
469: IF l_debug_on THEN
470: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.QUERY_STAGED_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
471: END IF;
472:
473: INV_STAGED_RESERVATION_UTIL.query_staged_flag(
474: x_return_status => x_return_status,
493:
494:
495: -- HW 4178299 - Need to convert Qty2 to get correct value
496: IF l_debug_on THEN
497: WSH_DEBUG_SV.log(l_module_name,'Value of Qty2_to_Unreserve before conversion is ',
498: l_qty2_to_unreserve);
499:
500: END IF;
501:
511: ,quantity => l_qty_to_unreserve
512: ,lot_number => l_line_rec.lot_number);
513:
514: IF l_debug_on THEN
515: WSH_DEBUG_SV.log(l_module_name,'Value of Qty2_to_Unreserve AFTER conversion is ',
516: l_qty2_to_unreserve);
517:
518: END IF;
519:
528: l_remaining_nonstaged_qty := l_nonstaged_qty - l_qty_to_unreserve;
529: -- HW OPMCONV - Added Qty2
530: l_remaining_nonstaged_qty2 := l_nonstaged_qty2 - l_qty2_to_unreserve;
531: IF l_debug_on THEN
532: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty:l_nonstaged_qty:l_dtld_qty_to_unreserve:l_remaining_nonstaged_qty ;',
533: l_nonstaged_rsv_qty
534: ||':'||l_nonstaged_qty
535: ||':'||l_dtld_qty_to_unreserve
536: ||':'||l_remaining_nonstaged_qty );
534: ||':'||l_nonstaged_qty
535: ||':'||l_dtld_qty_to_unreserve
536: ||':'||l_remaining_nonstaged_qty );
537: -- HW OPMCONV - Added Qty2
538: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty2:l_nonstaged_qty:l_dtld_qty2_to_unreserve:l_remaining_nonstaged_qty2 ;',
539: l_nonstaged_rsv_qty2
540: ||':'||l_nonstaged_qty2
541: ||':'||l_dtld_qty2_to_unreserve
542: ||':'||l_remaining_nonstaged_qty2 );
555: END IF; -- if rsv_type = U
556: -- 2747520
557:
558: IF l_debug_on THEN
559: WSH_DEBUG_SV.log(l_module_name,'l_rsv_tbl.COUNT:l_x_error_code :: ',
560: l_rsv_tbl.COUNT||':'||l_x_error_code);
561: END IF;
562:
563: FOR I IN 1..l_rsv_tbl.COUNT LOOP
565: l_rsv_rec := l_rsv_tbl(I);
566: --
567: IF l_debug_on THEN
568: -- 2587777
569: WSH_DEBUG_SV.log(l_module_name,'rsv.id:inv-item-id:Rsvtn-Qty:Org-id:SubInv-Code:Locator-id:Rev:Lot# ; ',
570: l_rsv_rec.reservation_id
571: ||':'||l_rsv_rec.inventory_item_id
572: ||':'||l_rsv_rec.reservation_quantity
573: ||':'||l_rsv_rec.secondary_reservation_quantity
580: END IF;
581: --
582: -- 2747520 : Query Staged Reservation
583: IF l_debug_on THEN
584: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.QUERY_STAGED_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
585: END IF;
586: --
587: inv_staged_reservation_util.query_staged_flag(
588: x_return_status => l_return_status
592: , p_reservation_id => l_rsv_rec.reservation_id);
593: --
594: IF l_debug_on THEN
595:
596: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS QUERY STAGED FLAG: ' || L_RETURN_STATUS );
597: END IF;
598: --
599:
600: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605:
606: IF l_debug_on THEN
607: WSH_DEBUG_SV.log(l_module_name, 'RES QTY : QTY TO UNRESVRVE : l_staged_flag ; ',
608: L_RSV_REC.RESERVATION_QUANTITY
609: ||':'||L_QTY_TO_UNRESERVE
610: ||':'||l_staged_flag );
611:
609: ||':'||L_QTY_TO_UNRESERVE
610: ||':'||l_staged_flag );
611:
612: -- HW OPMCONV - Added Qty2
613: WSH_DEBUG_SV.log(l_module_name, 'RES QTY2 : QTY2 TO UNRESVRVE : l_staged_flag ; ',
614: L_RSV_REC.SECONDARY_RESERVATION_QUANTITY
615: ||':'||L_QTY2_TO_UNRESERVE
616: ||':'||l_staged_flag );
617:
632: NULL; -- Don't Update or Delete the REservations if the above criteria (ATO -Unstgd. Rsvn)is met
633: ELSE
634:
635: IF l_debug_on THEN
636: WSH_DEBUG_SV.log(l_module_name,'BEFORE l_prim_rsv_qty: tbl_detailed_qty ; ',
637: l_rsv_tbl(I).primary_reservation_quantity ||':'||
638: l_rsv_tbl(I).detailed_quantity);
639: -- HW OPMCONV - Added Qty2
640: WSH_DEBUG_SV.log(l_module_name,'BEFORE l_secondary_rsv_qty: tbl_detailed_qty2 ; ',
636: WSH_DEBUG_SV.log(l_module_name,'BEFORE l_prim_rsv_qty: tbl_detailed_qty ; ',
637: l_rsv_tbl(I).primary_reservation_quantity ||':'||
638: l_rsv_tbl(I).detailed_quantity);
639: -- HW OPMCONV - Added Qty2
640: WSH_DEBUG_SV.log(l_module_name,'BEFORE l_secondary_rsv_qty: tbl_detailed_qty2 ; ',
641: l_rsv_tbl(I).secondary_reservation_quantity ||':'||
642: l_rsv_tbl(I).secondary_detailed_quantity);
643: END IF;
644:
680: -- Tackle Primary Reservation Quantity
681: IF (l_qty_to_unreserve > 0) THEN
682: IF ((l_rsv_new_rec.primary_reservation_quantity - l_rsv_new_rec.detailed_quantity) <= l_qty_to_unreserve) THEN
683: IF l_debug_on THEN
684: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE Before calculation l_qty_to_unreserve: ' || l_qty_to_unreserve );
685:
686: END IF;
687: l_qty_to_unreserve := l_qty_to_unreserve - (l_rsv_new_rec.primary_reservation_quantity - l_rsv_new_rec.detailed_quantity);
688: -- HW OPMCONV - Added Qty2
687: l_qty_to_unreserve := l_qty_to_unreserve - (l_rsv_new_rec.primary_reservation_quantity - l_rsv_new_rec.detailed_quantity);
688: -- HW OPMCONV - Added Qty2
689: l_qty2_to_unreserve := l_qty2_to_unreserve - (l_rsv_new_rec.secondary_reservation_quantity - l_rsv_new_rec.secondary_detailed_quantity);
690: IF l_debug_on THEN
691: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_qty_to_unreserve: ' || l_qty_to_unreserve );
692:
693: END IF;
694:
695: l_rsv_new_rec.primary_reservation_quantity := l_rsv_new_rec.detailed_quantity;
704: END IF;
705: END IF;
706:
707: IF l_debug_on THEN
708: WSH_DEBUG_SV.log(l_module_name,'NEW l_prim_rsv_qty: new tbl_detailed_qty ; ',
709: l_rsv_new_rec.primary_reservation_quantity ||':'||
710: l_rsv_new_rec.detailed_quantity);
711: -- HW OPMCONV - Added Qty2
712: WSH_DEBUG_SV.log(l_module_name,'NEW l_seccondary_rsv_qty: new tbl_detailed_qty2 ; ',
708: WSH_DEBUG_SV.log(l_module_name,'NEW l_prim_rsv_qty: new tbl_detailed_qty ; ',
709: l_rsv_new_rec.primary_reservation_quantity ||':'||
710: l_rsv_new_rec.detailed_quantity);
711: -- HW OPMCONV - Added Qty2
712: WSH_DEBUG_SV.log(l_module_name,'NEW l_seccondary_rsv_qty: new tbl_detailed_qty2 ; ',
713: l_rsv_new_rec.secondary_reservation_quantity ||':'||
714: l_rsv_new_rec.secondary_detailed_quantity);
715: END IF;
716:
714: l_rsv_new_rec.secondary_detailed_quantity);
715: END IF;
716:
717: IF l_debug_on THEN
718: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_pub.update_resevation 1',WSH_DEBUG_SV.C_PROC_LEVEL);
719: END IF;
720:
721: -- HW OPMCONV - NULL Qty2 if they are not presents
722: IF ( ( l_rsv_new_rec.secondary_reservation_quantity = 0 OR
747: p_over_reservation_flag =>3
748: );
749:
750: IF l_debug_on THEN
751: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE REservation 1: ' || L_RETURN_STATUS );
752: WSH_DEBUG_SV.log(l_module_name,'l_new_prim_rsv_qty: tbl_detailed_qty ; ',
753: l_rsv_new_rec.primary_reservation_quantity ||':'||
754: l_rsv_tbl(I).detailed_quantity);
755: -- HW OPMCONV - Added Qty2
748: );
749:
750: IF l_debug_on THEN
751: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE REservation 1: ' || L_RETURN_STATUS );
752: WSH_DEBUG_SV.log(l_module_name,'l_new_prim_rsv_qty: tbl_detailed_qty ; ',
753: l_rsv_new_rec.primary_reservation_quantity ||':'||
754: l_rsv_tbl(I).detailed_quantity);
755: -- HW OPMCONV - Added Qty2
756: WSH_DEBUG_SV.log(l_module_name,'l_new_secondary_rsv_qty: tbl_detailed_qty2 ; ',
752: WSH_DEBUG_SV.log(l_module_name,'l_new_prim_rsv_qty: tbl_detailed_qty ; ',
753: l_rsv_new_rec.primary_reservation_quantity ||':'||
754: l_rsv_tbl(I).detailed_quantity);
755: -- HW OPMCONV - Added Qty2
756: WSH_DEBUG_SV.log(l_module_name,'l_new_secondary_rsv_qty: tbl_detailed_qty2 ; ',
757: l_rsv_new_rec.secondary_reservation_quantity ||':'||
758: l_rsv_tbl(I).secondary_detailed_quantity);
759: END IF;
760:
766:
767: ELSE
768:
769: IF l_debug_on THEN
770: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_pub.delete_resevation 1',WSH_DEBUG_SV.C_PROC_LEVEL);
771: END IF;
772:
773: inv_reservation_pub.delete_reservation
774: ( p_api_version_number => 1.0
780: , p_serial_number => l_dummy_sn
781: );
782:
783: IF l_debug_on THEN
784: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS DELETE REservation 1: ' || L_RETURN_STATUS );
785: END IF;
786:
787: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
792:
793: END IF;
794:
795: IF l_debug_on THEN
796: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_unreserve:l_dtld_qty_to_unreserve ; ',
797: l_qty_to_unreserve ||':'||
798: l_dtld_qty_to_unreserve);
799: -- HW OPMCONV - Added Qty2
800: WSH_DEBUG_SV.log(l_module_name,'l_qty2_to_unreserve:l_dtld_qty2_to_unreserve ; ',
796: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_unreserve:l_dtld_qty_to_unreserve ; ',
797: l_qty_to_unreserve ||':'||
798: l_dtld_qty_to_unreserve);
799: -- HW OPMCONV - Added Qty2
800: WSH_DEBUG_SV.log(l_module_name,'l_qty2_to_unreserve:l_dtld_qty2_to_unreserve ; ',
801: l_qty2_to_unreserve ||':'||
802: l_dtld_qty2_to_unreserve);
803: END IF;
804:
824: THEN
825:
826: --
827: IF l_debug_on THEN
828: WSH_DEBUG_SV.log(l_module_name,'l_staged_flag: ',l_staged_flag);
829: END IF;
830: --
831:
832: IF ( nvl(l_staged_flag, 'N') = 'Y') THEN -- Staged Flag = Y
832: IF ( nvl(l_staged_flag, 'N') = 'Y') THEN -- Staged Flag = Y
833:
834: --
835: IF l_debug_on THEN
836: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.UPDATE_STAGED_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
837: END IF;
838: --
839: inv_staged_reservation_util.update_staged_flag(
840: x_return_status => l_return_status
844: , p_reservation_id => l_rsv_rec.reservation_id);
845:
846: --
847: IF l_debug_on THEN
848: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE STAGED FLAG: ' || L_RETURN_STATUS );
849: END IF;
850: --
851: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
858: ELSE -- Non- ATO Item
859: -- 2587777
860: --
861: IF l_debug_on THEN
862: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING INVS DELETE_RESERVATION' );
863: END IF;
864: --
865: IF l_debug_on THEN
866: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.DELETE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
862: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING INVS DELETE_RESERVATION' );
863: END IF;
864: --
865: IF l_debug_on THEN
866: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.DELETE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
867: END IF;
868: --
869:
870: inv_reservation_pub.delete_reservation
877: p_serial_number => l_dummy_sn
878: );
879: --
880: IF l_debug_on THEN
881: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS DELETE_RESERVATION: ' || L_RETURN_STATUS );
882: END IF;
883: --
884:
885: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
890: END IF; -- ATO line
891: else -- p_unreserve_mode = 'CYCLE_COUNT'
892: --
893: IF l_debug_on THEN
894: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit ONE INV_PICK_RELEASE_PUB.RESERVE_UNCONFIRMED_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
895: WSH_DEBUG_SV.log(l_module_name, 'l_rsv_rec.reservation_quantity: ' || l_rsv_rec.reservation_quantity );
896: WSH_DEBUG_SV.log(l_module_name, ' l_rsv_rec.reservation_quantity2: ' || l_rsv_rec.secondary_reservation_quantity );
897: END IF;
898: --
891: else -- p_unreserve_mode = 'CYCLE_COUNT'
892: --
893: IF l_debug_on THEN
894: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit ONE INV_PICK_RELEASE_PUB.RESERVE_UNCONFIRMED_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
895: WSH_DEBUG_SV.log(l_module_name, 'l_rsv_rec.reservation_quantity: ' || l_rsv_rec.reservation_quantity );
896: WSH_DEBUG_SV.log(l_module_name, ' l_rsv_rec.reservation_quantity2: ' || l_rsv_rec.secondary_reservation_quantity );
897: END IF;
898: --
899: IF ( l_rsv_rec.secondary_reservation_quantity = 0 OR
892: --
893: IF l_debug_on THEN
894: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit ONE INV_PICK_RELEASE_PUB.RESERVE_UNCONFIRMED_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
895: WSH_DEBUG_SV.log(l_module_name, 'l_rsv_rec.reservation_quantity: ' || l_rsv_rec.reservation_quantity );
896: WSH_DEBUG_SV.log(l_module_name, ' l_rsv_rec.reservation_quantity2: ' || l_rsv_rec.secondary_reservation_quantity );
897: END IF;
898: --
899: IF ( l_rsv_rec.secondary_reservation_quantity = 0 OR
900: l_rsv_rec.secondary_reservation_quantity = FND_API.G_MISS_NUM ) THEN
923: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
924: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- rsv.status
925: --
926: IF l_debug_on THEN
927: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
928: WSH_DEBUG_SV.logmsg(l_module_name, 'MESSAGE COUNT: '|| TO_CHAR ( L_RESERVE_MSG_COUNT ) );
929: END IF;
930: --
931: IF (l_reserve_msg_count = 0) or (l_reserve_msg_count is NULL) THEN -- rsv.msg.count
924: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- rsv.status
925: --
926: IF l_debug_on THEN
927: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
928: WSH_DEBUG_SV.logmsg(l_module_name, 'MESSAGE COUNT: '|| TO_CHAR ( L_RESERVE_MSG_COUNT ) );
929: END IF;
930: --
931: IF (l_reserve_msg_count = 0) or (l_reserve_msg_count is NULL) THEN -- rsv.msg.count
932: null;
936: l_reserve_message := fnd_msg_pub.get(i,'T');
937: l_reserve_message := replace(l_reserve_message,chr(0), ' ');
938: --
939: IF l_debug_on THEN
940: WSH_DEBUG_SV.logmsg(l_module_name, L_RESERVE_MESSAGE );
941: END IF;
942: --
943: END LOOP;
944: END if; -- rsv.msg.count
944: END if; -- rsv.msg.count
945: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
946: --
947: IF l_debug_on THEN
948: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE_UNCONFIRMED_QUANTITY FAILED.. GOING ON... ' );
949: END IF;
950: --
951: END IF;
952: end if; -- rsv.status
951: END IF;
952: end if; -- rsv.status
953:
954: IF l_debug_on THEN
955: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_unreserve',
956: l_qty_to_unreserve);
957: WSH_DEBUG_SV.log(l_module_name,'reservation_quantity',
958: l_rsv_rec.reservation_quantity);
959: END IF;
953:
954: IF l_debug_on THEN
955: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_unreserve',
956: l_qty_to_unreserve);
957: WSH_DEBUG_SV.log(l_module_name,'reservation_quantity',
958: l_rsv_rec.reservation_quantity);
959: END IF;
960: IF l_debug_on THEN
961: WSH_DEBUG_SV.logmsg(l_module_name, 'Before calculation l_qty_to_unreserve: ' || l_qty_to_unreserve );
957: WSH_DEBUG_SV.log(l_module_name,'reservation_quantity',
958: l_rsv_rec.reservation_quantity);
959: END IF;
960: IF l_debug_on THEN
961: WSH_DEBUG_SV.logmsg(l_module_name, 'Before calculation l_qty_to_unreserve: ' || l_qty_to_unreserve );
962:
963: END IF;
964:
965: l_qty_to_unreserve := l_qty_to_unreserve -
968: l_qty2_to_unreserve := l_qty2_to_unreserve -
969: l_rsv_rec.secondary_reservation_quantity;
970: IF l_debug_on THEN
971:
972: WSH_DEBUG_SV.logmsg(l_module_name, 'After calculation l_qty_to_unreserve: ' || l_qty_to_unreserve );
973: WSH_DEBUG_SV.logmsg(l_module_name, 'After calculation l_qty2_to_unreserve: ' || l_qty2_to_unreserve );
974:
975: END IF;
976:
969: l_rsv_rec.secondary_reservation_quantity;
970: IF l_debug_on THEN
971:
972: WSH_DEBUG_SV.logmsg(l_module_name, 'After calculation l_qty_to_unreserve: ' || l_qty_to_unreserve );
973: WSH_DEBUG_SV.logmsg(l_module_name, 'After calculation l_qty2_to_unreserve: ' || l_qty2_to_unreserve );
974:
975: END IF;
976:
977: IF (l_qty_to_unreserve <= 0) THEN
983: l_rsv_new_rec := l_rsv_rec;
984:
985: --
986: IF l_debug_on THEN
987: WSH_DEBUG_SV.logmsg(l_module_name, 'OLD QTY : NEW QTY :: ' || L_RSV_REC.RESERVATION_QUANTITY
988: ||': '|| L_RSV_NEW_REC.RESERVATION_QUANTITY );
989:
990: -- HW OPMCONV - Added Qty2
991: WSH_DEBUG_SV.logmsg(l_module_name, 'OLD QTY2 : NEW QTY2 :: ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY
987: WSH_DEBUG_SV.logmsg(l_module_name, 'OLD QTY : NEW QTY :: ' || L_RSV_REC.RESERVATION_QUANTITY
988: ||': '|| L_RSV_NEW_REC.RESERVATION_QUANTITY );
989:
990: -- HW OPMCONV - Added Qty2
991: WSH_DEBUG_SV.logmsg(l_module_name, 'OLD QTY2 : NEW QTY2 :: ' || L_RSV_REC.SECONDARY_RESERVATION_QUANTITY
992: ||': '|| L_RSV_NEW_REC.SECONDARY_RESERVATION_QUANTITY );
993: END IF;
994: --
995: l_rsv_new_rec.attribute1 := l_line_rec.preferred_grade;
1023: l_rsv_new_rec.demand_source_line_detail := null;
1024:
1025: --
1026: IF l_debug_on THEN
1027: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW Split Record QTY : Dtld QTY :: ' ||
1028: L_RSV_NEW_REC.RESERVATION_QUANTITY ||': '||
1029: L_RSV_NEW_REC.DETAILED_QUANTITY );
1030: -- HW OPMCONV - Added Qty2
1031: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW Split Record QTY2 : Dtld QTY2 :: ' ||
1027: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW Split Record QTY : Dtld QTY :: ' ||
1028: L_RSV_NEW_REC.RESERVATION_QUANTITY ||': '||
1029: L_RSV_NEW_REC.DETAILED_QUANTITY );
1030: -- HW OPMCONV - Added Qty2
1031: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW Split Record QTY2 : Dtld QTY2 :: ' ||
1032: L_RSV_NEW_REC.SECONDARY_RESERVATION_QUANTITY ||': '||
1033: L_RSV_NEW_REC.SECONDARY_DETAILED_QUANTITY );
1034: END IF;
1035: --
1033: L_RSV_NEW_REC.SECONDARY_DETAILED_QUANTITY );
1034: END IF;
1035: --
1036: IF l_debug_on THEN
1037: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.TRANSFER_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1038: END IF;
1039: --
1040: --
1041:
1065: x_to_reservation_id => l_new_rsv_id
1066: );
1067: --
1068: IF l_debug_on THEN
1069: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS TRANSFER RESERVATION: ' || L_RETURN_STATUS );
1070: WSH_DEBUG_SV.log(l_module_name,'New Rec: reservation id: ', l_new_rsv_id);
1071: END IF;
1072: --
1073:
1066: );
1067: --
1068: IF l_debug_on THEN
1069: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS TRANSFER RESERVATION: ' || L_RETURN_STATUS );
1070: WSH_DEBUG_SV.log(l_module_name,'New Rec: reservation id: ', l_new_rsv_id);
1071: END IF;
1072: --
1073:
1074: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1078: END IF;
1079:
1080: --
1081: IF l_debug_on THEN
1082: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.QUERY_STAGED_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
1083: END IF;
1084: --
1085:
1086: inv_staged_reservation_util.query_staged_flag(
1090: , x_staged_flag => l_staged_flag
1091: , p_reservation_id => l_new_rsv_id);
1092: --
1093: IF l_debug_on THEN
1094: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS QUERY STAGED FLAG: ' || L_RETURN_STATUS );
1095: WSH_DEBUG_SV.log(l_module_name,'l_staged_flag: ',l_staged_flag);
1096: END IF;
1097: --
1098:
1091: , p_reservation_id => l_new_rsv_id);
1092: --
1093: IF l_debug_on THEN
1094: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS QUERY STAGED FLAG: ' || L_RETURN_STATUS );
1095: WSH_DEBUG_SV.log(l_module_name,'l_staged_flag: ',l_staged_flag);
1096: END IF;
1097: --
1098:
1099: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1104:
1105: If ( nvl(l_staged_flag, 'N') = 'Y') then -- Staged
1106: --
1107: IF l_debug_on THEN
1108: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.UPDATE_STAGED_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
1109: END IF;
1110: --
1111: inv_staged_reservation_util.update_staged_flag(
1112: x_return_status => l_return_status
1115: , p_staged_flag => 'N'
1116: , p_reservation_id => l_new_rsv_id);
1117: --
1118: IF l_debug_on THEN
1119: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE STAGED FLAG: ' || L_RETURN_STATUS );
1120: END IF;
1121: --
1122: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128:
1129: ELSE -- (i.e. Not an ATO )
1130: -- 2587777
1131: IF l_debug_on THEN
1132: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_qty_to_unreserve: ' || l_qty_to_unreserve );
1133: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation _rsv_new_rec.reservation_quantity: ' || l_rsv_new_rec.reservation_quantity );
1134:
1135: END IF;
1136:
1129: ELSE -- (i.e. Not an ATO )
1130: -- 2587777
1131: IF l_debug_on THEN
1132: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_qty_to_unreserve: ' || l_qty_to_unreserve );
1133: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation _rsv_new_rec.reservation_quantity: ' || l_rsv_new_rec.reservation_quantity );
1134:
1135: END IF;
1136:
1137: l_rsv_new_rec.reservation_quantity := l_rsv_rec.reservation_quantity - l_qty_to_unreserve ;
1137: l_rsv_new_rec.reservation_quantity := l_rsv_rec.reservation_quantity - l_qty_to_unreserve ;
1138: -- HW OPMCONV - Added Qty2
1139: l_rsv_new_rec.secondary_reservation_quantity := l_rsv_rec.secondary_reservation_quantity - l_qty2_to_unreserve ;
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_rsv_new_rec.reservation_quantity: ' || l_rsv_new_rec.reservation_quantity );
1142: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1143: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.primary_reservation_quantity: ' || l_rsv_new_rec.primary_reservation_quantity );
1144: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.reservation_quantity: ' || l_rsv_rec.reservation_quantity );
1145: -- HW OPMCONV - Added Qty2
1138: -- HW OPMCONV - Added Qty2
1139: l_rsv_new_rec.secondary_reservation_quantity := l_rsv_rec.secondary_reservation_quantity - l_qty2_to_unreserve ;
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_rsv_new_rec.reservation_quantity: ' || l_rsv_new_rec.reservation_quantity );
1142: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1143: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.primary_reservation_quantity: ' || l_rsv_new_rec.primary_reservation_quantity );
1144: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.reservation_quantity: ' || l_rsv_rec.reservation_quantity );
1145: -- HW OPMCONV - Added Qty2
1146: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1139: l_rsv_new_rec.secondary_reservation_quantity := l_rsv_rec.secondary_reservation_quantity - l_qty2_to_unreserve ;
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_rsv_new_rec.reservation_quantity: ' || l_rsv_new_rec.reservation_quantity );
1142: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1143: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.primary_reservation_quantity: ' || l_rsv_new_rec.primary_reservation_quantity );
1144: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.reservation_quantity: ' || l_rsv_rec.reservation_quantity );
1145: -- HW OPMCONV - Added Qty2
1146: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1147: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.secondary_reservation_quantity: ' || l_rsv_rec.secondary_reservation_quantity );
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_rsv_new_rec.reservation_quantity: ' || l_rsv_new_rec.reservation_quantity );
1142: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1143: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.primary_reservation_quantity: ' || l_rsv_new_rec.primary_reservation_quantity );
1144: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.reservation_quantity: ' || l_rsv_rec.reservation_quantity );
1145: -- HW OPMCONV - Added Qty2
1146: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1147: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.secondary_reservation_quantity: ' || l_rsv_rec.secondary_reservation_quantity );
1148:
1142: WSH_DEBUG_SV.logmsg(l_module_name, 'ONE After calculation l_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1143: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.primary_reservation_quantity: ' || l_rsv_new_rec.primary_reservation_quantity );
1144: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.reservation_quantity: ' || l_rsv_rec.reservation_quantity );
1145: -- HW OPMCONV - Added Qty2
1146: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1147: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.secondary_reservation_quantity: ' || l_rsv_rec.secondary_reservation_quantity );
1148:
1149: END IF;
1150:
1143: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.primary_reservation_quantity: ' || l_rsv_new_rec.primary_reservation_quantity );
1144: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.reservation_quantity: ' || l_rsv_rec.reservation_quantity );
1145: -- HW OPMCONV - Added Qty2
1146: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation ll_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1147: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO Before calculation l_rsv_rec.secondary_reservation_quantity: ' || l_rsv_rec.secondary_reservation_quantity );
1148:
1149: END IF;
1150:
1151: l_rsv_new_rec.primary_reservation_quantity := l_rsv_rec.reservation_quantity - l_qty_to_unreserve ;
1152: -- HW OPMCONV - Added Qty2
1153: l_rsv_new_rec.secondary_reservation_quantity := l_rsv_rec.secondary_reservation_quantity - l_qty2_to_unreserve ;
1154:
1155: IF l_debug_on THEN
1156: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO After calculation ll_rsv_new_rec.primary_reservation_quantity: ' || l_rsv_new_rec.primary_reservation_quantity );
1157: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO After calculation ll_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1158: END IF;
1159:
1160: --
1153: l_rsv_new_rec.secondary_reservation_quantity := l_rsv_rec.secondary_reservation_quantity - l_qty2_to_unreserve ;
1154:
1155: IF l_debug_on THEN
1156: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO After calculation ll_rsv_new_rec.primary_reservation_quantity: ' || l_rsv_new_rec.primary_reservation_quantity );
1157: WSH_DEBUG_SV.logmsg(l_module_name, 'TWO After calculation ll_rsv_new_rec.secondary_reservation_quantity: ' || l_rsv_new_rec.secondary_reservation_quantity );
1158: END IF;
1159:
1160: --
1161: IF l_debug_on THEN
1158: END IF;
1159:
1160: --
1161: IF l_debug_on THEN
1162: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.UPDATE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1163: END IF;
1164: --
1165: -- HW OPMCONV - NULL Qty2 if they are not presents
1166: IF ( l_rsv_new_rec.secondary_reservation_quantity = 0 OR
1185: p_over_reservation_flag =>3
1186: );
1187: --
1188: IF l_debug_on THEN
1189: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER CALLING INVS UPDATE_RESERVATION: ' || L_RETURN_STATUS );
1190: END IF;
1191: --
1192: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN -- UnExp Erro
1193: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1196: fnd_message.set_encoded(l_msg_data);
1197: l_buffer := fnd_message.get;
1198: --
1199: IF l_debug_on THEN
1200: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit OE_MSG_PUB.ADD_TEXT',WSH_DEBUG_SV.C_PROC_LEVEL);
1201: END IF;
1202: --
1203: oe_msg_pub.add_text(p_message_text => l_buffer);
1204: --
1202: --
1203: oe_msg_pub.add_text(p_message_text => l_buffer);
1204: --
1205: IF l_debug_on THEN
1206: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR : '|| L_BUFFER );
1207: END IF;
1208: --
1209: END IF; -- msg.data not null
1210: RAISE FND_API.G_EXC_ERROR;
1212: END IF; -- (if ATO ..)
1213: else -- p_unreserve_mode = 'CYCLE_COUNT'
1214: --
1215: IF l_debug_on THEN
1216: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit TWO INV_PICK_RELEASE_PUB.RESERVE_UNCONFIRMED_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
1217: WSH_DEBUG_SV.log(l_module_name, 'p_missing_quantity: ' || l_qty_to_unreserve );
1218: WSH_DEBUG_SV.log(l_module_name, 'p_missing_quantity2: '|| l_qty2_to_unreserve );
1219:
1220: END IF;
1213: else -- p_unreserve_mode = 'CYCLE_COUNT'
1214: --
1215: IF l_debug_on THEN
1216: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit TWO INV_PICK_RELEASE_PUB.RESERVE_UNCONFIRMED_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
1217: WSH_DEBUG_SV.log(l_module_name, 'p_missing_quantity: ' || l_qty_to_unreserve );
1218: WSH_DEBUG_SV.log(l_module_name, 'p_missing_quantity2: '|| l_qty2_to_unreserve );
1219:
1220: END IF;
1221: --
1214: --
1215: IF l_debug_on THEN
1216: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit TWO INV_PICK_RELEASE_PUB.RESERVE_UNCONFIRMED_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
1217: WSH_DEBUG_SV.log(l_module_name, 'p_missing_quantity: ' || l_qty_to_unreserve );
1218: WSH_DEBUG_SV.log(l_module_name, 'p_missing_quantity2: '|| l_qty2_to_unreserve );
1219:
1220: END IF;
1221: --
1222:
1245: IF ((l_reserve_status = WSH_UTIL_CORE.G_RET_STS_ERROR) or
1246: (l_reserve_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN -- Sts or UnExp. Error
1247: --
1248: IF l_debug_on THEN
1249: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE UNCONFIRMED QUANTITY FAILED' );
1250: END IF;
1251: --
1252: --
1253: IF l_debug_on THEN
1250: END IF;
1251: --
1252: --
1253: IF l_debug_on THEN
1254: WSH_DEBUG_SV.logmsg(l_module_name, 'MESSAGE COUNT: '|| TO_CHAR ( L_RESERVE_MSG_COUNT ) );
1255: END IF;
1256: --
1257: IF (l_reserve_msg_count = 0) or (l_reserve_msg_count is NULL) THEN -- Msg. Count
1258: null;
1262: l_reserve_message := fnd_msg_pub.get(i,'T');
1263: l_reserve_message := replace(l_reserve_message,chr(0), ' ');
1264: --
1265: IF l_debug_on THEN
1266: WSH_DEBUG_SV.logmsg(l_module_name, L_RESERVE_MESSAGE );
1267: END IF;
1268: --
1269: END LOOP;
1270: END if; -- If Msg. Count
1270: END if; -- If Msg. Count
1271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1272: --
1273: IF l_debug_on THEN
1274: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVE_UNCONFIRMED_QUANTITY FAILED.. GOING ON... ' );
1275: END IF;
1276: --
1277: END IF; -- Sts or UnExp. Error
1278: END IF; -- UnReserve Mode
1287: <
1288:
1289: --
1290: IF l_debug_on THEN
1291: WSH_DEBUG_SV.logmsg(l_module_name, 'EXITING UNRESERVE_DELIVERY_DETAIL ' );
1292: END IF;
1293: --
1294:
1295: --
1293: --
1294:
1295: --
1296: IF l_debug_on THEN
1297: WSH_DEBUG_SV.pop(l_module_name);
1298: END IF;
1299: --
1300: EXCEPTION
1301: -- bug 2442178: added expected exceptions to appropriately set return status
1302: WHEN FND_API.G_EXC_ERROR THEN
1303: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1304: --
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1307: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1308: END IF;
1309: --
1310: return;
1303: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1304: --
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1307: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1308: END IF;
1309: --
1310: return;
1311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1311: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1313: --
1314: IF l_debug_on THEN
1315: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1317: END IF;
1318: --
1319: return;
1312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1313: --
1314: IF l_debug_on THEN
1315: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1317: END IF;
1318: --
1319: return;
1320:
1322: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1323: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UNRESERVE_DELIVERY_DETAIL',l_module_name);
1324: --
1325: IF l_debug_on THEN
1326: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1328: END IF;
1329: --
1330: END Unreserve_delivery_detail ;
1323: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UNRESERVE_DELIVERY_DETAIL',l_module_name);
1324: --
1325: IF l_debug_on THEN
1326: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1328: END IF;
1329: --
1330: END Unreserve_delivery_detail ;
1331:
1417: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1418: --
1419: IF l_debug_on IS NULL
1420: THEN
1421: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1422: END IF;
1423: --
1424: IF l_debug_on THEN
1425: WSH_DEBUG_SV.push(l_module_name);
1421: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1422: END IF;
1423: --
1424: IF l_debug_on THEN
1425: WSH_DEBUG_SV.push(l_module_name);
1426: --
1427: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1428: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1429: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
1423: --
1424: IF l_debug_on THEN
1425: WSH_DEBUG_SV.push(l_module_name);
1426: --
1427: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1428: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1429: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
1430: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_freight_terms_code',x_dlvy_freight_terms_code);
1431: END IF;
1424: IF l_debug_on THEN
1425: WSH_DEBUG_SV.push(l_module_name);
1426: --
1427: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1428: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1429: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
1430: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_freight_terms_code',x_dlvy_freight_terms_code);
1431: END IF;
1432: --
1425: WSH_DEBUG_SV.push(l_module_name);
1426: --
1427: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1428: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1429: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
1430: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_freight_terms_code',x_dlvy_freight_terms_code);
1431: END IF;
1432: --
1433: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1426: --
1427: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1428: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1429: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
1430: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_freight_terms_code',x_dlvy_freight_terms_code);
1431: END IF;
1432: --
1433: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1434:
1458: END IF;
1459: -- Workflow Changes ==/
1460: --
1461: IF l_debug_on THEN
1462: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
1463: END IF;
1464: --
1465:
1466: wsh_delivery_details_actions.assign_top_detail_to_delivery(
1492: -- After Purge, start a new workflow Process.
1493: -- Purging is required since a New Delivery Workflow will be selected according
1494: -- to the Delivery Detail Assigned to it
1495: IF l_debug_on THEN
1496: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.CHECK_WF_EXISTS',WSH_DEBUG_SV.C_PROC_LEVEL);
1497: END IF;
1498: WSH_WF_STD. Check_Wf_Exists(
1499: p_entity_type => 'DELIVERY',
1500: p_entity_id => p_delivery_id,
1500: p_entity_id => p_delivery_id,
1501: x_wf_process_exists => l_process_started,
1502: x_return_status => l_return_status);
1503: IF l_debug_on THEN
1504: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
1505: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1506: END IF;
1507:
1508: IF(l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_process_started='Y' ) THEN
1501: x_wf_process_exists => l_process_started,
1502: x_return_status => l_return_status);
1503: IF l_debug_on THEN
1504: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
1505: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1506: END IF;
1507:
1508: IF(l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_process_started='Y' ) THEN
1509: IF l_debug_on THEN
1506: END IF;
1507:
1508: IF(l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_process_started='Y' ) THEN
1509: IF l_debug_on THEN
1510: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.PURGE_ENTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
1511: END IF;
1512: l_del_entity_ids(1) := p_delivery_id;
1513: WSH_WF_STD.Purge_Entity(
1514: p_entity_type => 'DELIVERY',
1515: p_entity_ids => l_del_entity_ids,
1516: x_success_count => l_purged_count,
1517: x_return_status => l_return_status);
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.log(l_module_name,'L_PURGED_COUNT',l_purged_count);
1520: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1521: END IF;
1522: END IF; -- If WorkFlow Exists
1523:
1516: x_success_count => l_purged_count,
1517: x_return_status => l_return_status);
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.log(l_module_name,'L_PURGED_COUNT',l_purged_count);
1520: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1521: END IF;
1522: END IF; -- If WorkFlow Exists
1523:
1524: IF(l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1522: END IF; -- If WorkFlow Exists
1523:
1524: IF(l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
1525: IF l_debug_on THEN
1526: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.START_WF_PROCESS',WSH_DEBUG_SV.C_PROC_LEVEL);
1527: END IF;
1528:
1529: WSH_WF_STD.start_wf_process(
1530: p_entity_type => 'DELIVERY',
1533: x_process_started =>l_process_started,
1534: x_return_status =>l_return_status
1535: );
1536: IF l_debug_on THEN
1537: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
1538: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1539: END IF;
1540: END IF;
1541:
1534: x_return_status =>l_return_status
1535: );
1536: IF l_debug_on THEN
1537: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
1538: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
1539: END IF;
1540: END IF;
1541:
1542: END IF;-- If Start Workflow
1543:
1544: --Raise Event: Pick To Pod Workflow
1545: IF ( l_raise_pickinitiated_event AND l_count_picked_lines > 0 ) THEN
1546: IF l_debug_on THEN
1547: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
1548: END IF;
1549: WSH_WF_STD.Raise_Event(
1550: p_entity_type => 'DELIVERY',
1551: p_entity_id => p_delivery_id,
1552: p_event => 'oracle.apps.wsh.delivery.pik.pickinitiated' ,
1553: p_organization_id => l_org_id,
1554: x_return_status => l_wf_rs ) ;
1555: IF l_debug_on THEN
1556: WSH_DEBUG_SV.log(l_module_name,'Delivery ID is ', p_delivery_id );
1557: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1558: END IF;
1559: END IF;
1560: -- Done Raise Event: Pick To Pod Workflow
1553: p_organization_id => l_org_id,
1554: x_return_status => l_wf_rs ) ;
1555: IF l_debug_on THEN
1556: WSH_DEBUG_SV.log(l_module_name,'Delivery ID is ', p_delivery_id );
1557: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
1558: END IF;
1559: END IF;
1560: -- Done Raise Event: Pick To Pod Workflow
1561: /* CURRENTLY NOT IN USE
1582: CLOSE c_topmost_container;
1583: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1584: --
1585: IF l_debug_on THEN
1586: WSH_DEBUG_SV.pop(l_module_name);
1587: END IF;
1588: --
1589: return;
1590: --
1594: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1595: wsh_util_core.add_message(x_return_status,l_module_name);
1596: --
1597: IF l_debug_on THEN
1598: WSH_DEBUG_SV.logmsg(l_module_name,'ASSIGN_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ASSIGN_FAIL');
1600: END IF;
1601: --
1602: WHEN others THEN
1595: wsh_util_core.add_message(x_return_status,l_module_name);
1596: --
1597: IF l_debug_on THEN
1598: WSH_DEBUG_SV.logmsg(l_module_name,'ASSIGN_FAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1599: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ASSIGN_FAIL');
1600: END IF;
1601: --
1602: WHEN others THEN
1603: ROLLBACK TO before_assign_topmost_cont;
1606: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DELIVERY_DETAIL',l_module_name);
1607:
1608: --
1609: IF l_debug_on THEN
1610: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1611: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1612: END IF;
1613: --
1614: END Assign_Detail_to_Delivery;
1607:
1608: --
1609: IF l_debug_on THEN
1610: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1611: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1612: END IF;
1613: --
1614: END Assign_Detail_to_Delivery;
1615:
1639: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1640: --
1641: IF l_debug_on IS NULL
1642: THEN
1643: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1644: END IF;
1645: --
1646: IF l_debug_on THEN
1647: WSH_DEBUG_SV.push(l_module_name);
1643: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1644: END IF;
1645: --
1646: IF l_debug_on THEN
1647: WSH_DEBUG_SV.push(l_module_name);
1648: --
1649: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1650: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1651: END IF;
1645: --
1646: IF l_debug_on THEN
1647: WSH_DEBUG_SV.push(l_module_name);
1648: --
1649: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1650: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1651: END IF;
1652: --
1653: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1646: IF l_debug_on THEN
1647: WSH_DEBUG_SV.push(l_module_name);
1648: --
1649: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
1650: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1651: END IF;
1652: --
1653: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1654: --
1667: p_caller => p_caller --bug 5100229
1668: );
1669: --
1670: IF l_debug_on THEN
1671: WSH_DEBUG_SV.pop(l_module_name);
1672: END IF;
1673: --
1674: EXCEPTION
1675: WHEN others THEN
1676: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1677: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_to_Delivery',l_module_name);
1678: --
1679: IF l_debug_on THEN
1680: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1681: END IF;
1682: END Assign_Detail_to_Delivery;
1683:
1684: -- OTM R12 : assign delivery detail
1744: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1745: --
1746: IF l_debug_on IS NULL
1747: THEN
1748: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1749: END IF;
1750: --
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.push(l_module_name);
1748: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1749: END IF;
1750: --
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.push(l_module_name);
1753: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1754: WSH_DEBUG_SV.log(l_module_name, 'P_DETAIL_ID', p_detail_id);
1755: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER1_ID', p_container1_id);
1756: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER2_ID', p_container2_id);
1749: END IF;
1750: --
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.push(l_module_name);
1753: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1754: WSH_DEBUG_SV.log(l_module_name, 'P_DETAIL_ID', p_detail_id);
1755: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER1_ID', p_container1_id);
1756: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER2_ID', p_container2_id);
1757: WSH_DEBUG_SV.log(l_module_name, 'P_ASSIGNMENT_TYPE', p_assignment_type);
1750: --
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.push(l_module_name);
1753: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1754: WSH_DEBUG_SV.log(l_module_name, 'P_DETAIL_ID', p_detail_id);
1755: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER1_ID', p_container1_id);
1756: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER2_ID', p_container2_id);
1757: WSH_DEBUG_SV.log(l_module_name, 'P_ASSIGNMENT_TYPE', p_assignment_type);
1758: END IF;
1751: IF l_debug_on THEN
1752: WSH_DEBUG_SV.push(l_module_name);
1753: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1754: WSH_DEBUG_SV.log(l_module_name, 'P_DETAIL_ID', p_detail_id);
1755: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER1_ID', p_container1_id);
1756: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER2_ID', p_container2_id);
1757: WSH_DEBUG_SV.log(l_module_name, 'P_ASSIGNMENT_TYPE', p_assignment_type);
1758: END IF;
1759:
1752: WSH_DEBUG_SV.push(l_module_name);
1753: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1754: WSH_DEBUG_SV.log(l_module_name, 'P_DETAIL_ID', p_detail_id);
1755: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER1_ID', p_container1_id);
1756: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER2_ID', p_container2_id);
1757: WSH_DEBUG_SV.log(l_module_name, 'P_ASSIGNMENT_TYPE', p_assignment_type);
1758: END IF;
1759:
1760: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1753: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1754: WSH_DEBUG_SV.log(l_module_name, 'P_DETAIL_ID', p_detail_id);
1755: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER1_ID', p_container1_id);
1756: WSH_DEBUG_SV.log(l_module_name, 'P_CONTAINER2_ID', p_container2_id);
1757: WSH_DEBUG_SV.log(l_module_name, 'P_ASSIGNMENT_TYPE', p_assignment_type);
1758: END IF;
1759:
1760: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1761: x_delivery_was_empty := FALSE;
1779: IF (l_is_delivery_empty = 'Y') THEN
1780: x_delivery_was_empty := TRUE;
1781: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1782: IF l_debug_on THEN
1783: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1784: END IF;
1785: raise FND_API.G_EXC_ERROR;
1786: END IF;
1787: END IF;
1834: IF (l_is_delivery_empty = 'Y') THEN
1835: x_delivery_was_empty := TRUE;
1836: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1837: IF l_debug_on THEN
1838: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1839: END IF;
1840: raise FND_API.G_EXC_ERROR;
1841: END IF;
1842: ELSIF (l_delivery2 IS NOT NULL) THEN
1845: IF (l_is_delivery_empty = 'Y') THEN
1846: x_delivery_was_empty := TRUE;
1847: ELSIF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1848: IF l_debug_on THEN
1849: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1850: END IF;
1851: raise FND_API.G_EXC_ERROR;
1852: END IF;
1853: END IF;
1853: END IF;
1854:
1855: ELSE
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.log(l_module_name,'Error in wrong assignment_type', p_assignment_type);
1858: END IF;
1859: raise FND_API.G_EXC_ERROR;
1860: END IF;
1861:
1859: raise FND_API.G_EXC_ERROR;
1860: END IF;
1861:
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.log(l_module_name, 'x_delivery_was_empty', x_delivery_was_empty);
1864: WSH_DEBUG_SV.log(l_module_name, 'x_assign_update', x_assign_update);
1865: WSH_DEBUG_SV.log(l_module_name, 'x_gross_weight1', x_gross_weight1);
1866: WSH_DEBUG_SV.log(l_module_name, 'x_gross_weight2', x_gross_weight2);
1867: END IF;
1860: END IF;
1861:
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.log(l_module_name, 'x_delivery_was_empty', x_delivery_was_empty);
1864: WSH_DEBUG_SV.log(l_module_name, 'x_assign_update', x_assign_update);
1865: WSH_DEBUG_SV.log(l_module_name, 'x_gross_weight1', x_gross_weight1);
1866: WSH_DEBUG_SV.log(l_module_name, 'x_gross_weight2', x_gross_weight2);
1867: END IF;
1868:
1861:
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.log(l_module_name, 'x_delivery_was_empty', x_delivery_was_empty);
1864: WSH_DEBUG_SV.log(l_module_name, 'x_assign_update', x_assign_update);
1865: WSH_DEBUG_SV.log(l_module_name, 'x_gross_weight1', x_gross_weight1);
1866: WSH_DEBUG_SV.log(l_module_name, 'x_gross_weight2', x_gross_weight2);
1867: END IF;
1868:
1869: IF l_debug_on THEN
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.log(l_module_name, 'x_delivery_was_empty', x_delivery_was_empty);
1864: WSH_DEBUG_SV.log(l_module_name, 'x_assign_update', x_assign_update);
1865: WSH_DEBUG_SV.log(l_module_name, 'x_gross_weight1', x_gross_weight1);
1866: WSH_DEBUG_SV.log(l_module_name, 'x_gross_weight2', x_gross_weight2);
1867: END IF;
1868:
1869: IF l_debug_on THEN
1870: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1866: WSH_DEBUG_SV.log(l_module_name, 'x_gross_weight2', x_gross_weight2);
1867: END IF;
1868:
1869: IF l_debug_on THEN
1870: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1871: WSH_DEBUG_SV.pop(l_module_name);
1872: END IF;
1873:
1874: EXCEPTION
1867: END IF;
1868:
1869: IF l_debug_on THEN
1870: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1871: WSH_DEBUG_SV.pop(l_module_name);
1872: END IF;
1873:
1874: EXCEPTION
1875: WHEN FND_API.G_EXC_ERROR THEN
1884: END IF;
1885:
1886: --
1887: IF l_debug_on THEN
1888: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1889: WSH_DEBUG_SV.pop(l_module_name);
1890: END IF;
1891: --
1892: RETURN;
1885:
1886: --
1887: IF l_debug_on THEN
1888: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1889: WSH_DEBUG_SV.pop(l_module_name);
1890: END IF;
1891: --
1892: RETURN;
1893: WHEN OTHERS THEN
1902: END IF;
1903:
1904: --
1905: IF l_debug_on THEN
1906: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1907: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION OTHERS');
1908: END IF;
1909: --
1910: RETURN;
1903:
1904: --
1905: IF l_debug_on THEN
1906: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1907: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION OTHERS');
1908: END IF;
1909: --
1910: RETURN;
1911:
1953: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1954: --
1955: IF l_debug_on IS NULL
1956: THEN
1957: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1958: END IF;
1959: --
1960: IF l_debug_on THEN
1961: WSH_DEBUG_SV.push(l_module_name);
1957: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1958: END IF;
1959: --
1960: IF l_debug_on THEN
1961: WSH_DEBUG_SV.push(l_module_name);
1962: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1963: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_WAS_EMPTY', p_delivery_was_empty);
1964: WSH_DEBUG_SV.log(l_module_name, 'P_TMS_INTERFACE_FLAG', p_tms_interface_flag);
1965: WSH_DEBUG_SV.log(l_module_name, 'P_GROSS_WEIGHT', p_gross_weight);
1958: END IF;
1959: --
1960: IF l_debug_on THEN
1961: WSH_DEBUG_SV.push(l_module_name);
1962: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1963: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_WAS_EMPTY', p_delivery_was_empty);
1964: WSH_DEBUG_SV.log(l_module_name, 'P_TMS_INTERFACE_FLAG', p_tms_interface_flag);
1965: WSH_DEBUG_SV.log(l_module_name, 'P_GROSS_WEIGHT', p_gross_weight);
1966: END IF;
1959: --
1960: IF l_debug_on THEN
1961: WSH_DEBUG_SV.push(l_module_name);
1962: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1963: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_WAS_EMPTY', p_delivery_was_empty);
1964: WSH_DEBUG_SV.log(l_module_name, 'P_TMS_INTERFACE_FLAG', p_tms_interface_flag);
1965: WSH_DEBUG_SV.log(l_module_name, 'P_GROSS_WEIGHT', p_gross_weight);
1966: END IF;
1967:
1960: IF l_debug_on THEN
1961: WSH_DEBUG_SV.push(l_module_name);
1962: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1963: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_WAS_EMPTY', p_delivery_was_empty);
1964: WSH_DEBUG_SV.log(l_module_name, 'P_TMS_INTERFACE_FLAG', p_tms_interface_flag);
1965: WSH_DEBUG_SV.log(l_module_name, 'P_GROSS_WEIGHT', p_gross_weight);
1966: END IF;
1967:
1968: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1961: WSH_DEBUG_SV.push(l_module_name);
1962: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
1963: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_WAS_EMPTY', p_delivery_was_empty);
1964: WSH_DEBUG_SV.log(l_module_name, 'P_TMS_INTERFACE_FLAG', p_tms_interface_flag);
1965: WSH_DEBUG_SV.log(l_module_name, 'P_GROSS_WEIGHT', p_gross_weight);
1966: END IF;
1967:
1968: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1969:
1974: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(p_delivery_id);
1975:
1976: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1977: IF l_debug_on THEN
1978: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
1979: END IF;
1980: raise FND_API.G_EXC_ERROR;
1981: ELSIF (l_is_delivery_empty = 'Y') THEN
1982: l_call_update := 'N';
1990: x_return_status => l_return_status);
1991:
1992: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
1993: IF l_debug_on THEN
1994: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
1995: END IF;
1996: raise FND_API.G_EXC_ERROR;
1997: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1998: l_num_warnings := l_num_warnings + 1;
2001:
2002: END IF;
2003:
2004: IF l_debug_on THEN
2005: WSH_DEBUG_SV.log(l_module_name, 'P_DELIVERY_WAS_EMPTY - L_TMS_INTERFACE_FLAG', l_tms_interface_flag);
2006: END IF;
2007:
2008: IF (l_tms_interface_flag = WSH_NEW_DELIVERIES_PVT.C_TMS_NOT_TO_BE_SENT) THEN
2009: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_REQUIRED;
2034: x_return_status => l_return_status);
2035:
2036: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
2039: END IF;
2040: raise FND_API.G_EXC_ERROR;
2041: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2042: l_num_warnings := l_num_warnings + 1;
2048: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2049: END IF;
2050:
2051: IF l_debug_on THEN
2052: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2053: WSH_DEBUG_SV.pop(l_module_name);
2054: END IF;
2055:
2056: EXCEPTION
2049: END IF;
2050:
2051: IF l_debug_on THEN
2052: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2053: WSH_DEBUG_SV.pop(l_module_name);
2054: END IF;
2055:
2056: EXCEPTION
2057: WHEN FND_API.G_EXC_ERROR THEN
2057: WHEN FND_API.G_EXC_ERROR THEN
2058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2059: --
2060: IF l_debug_on THEN
2061: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2062: WSH_DEBUG_SV.pop(l_module_name);
2063: END IF;
2064: --
2065: RETURN;
2058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2059: --
2060: IF l_debug_on THEN
2061: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2062: WSH_DEBUG_SV.pop(l_module_name);
2063: END IF;
2064: --
2065: RETURN;
2066: WHEN OTHERS THEN
2066: WHEN OTHERS THEN
2067: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2068: --
2069: IF l_debug_on THEN
2070: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2071: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION OTHERS');
2072: END IF;
2073: --
2074: RETURN;
2067: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2068: --
2069: IF l_debug_on THEN
2070: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
2071: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION OTHERS');
2072: END IF;
2073: --
2074: RETURN;
2075: END Post_Otm_Assign_Del_Detail;
2205: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2206: --
2207: IF l_debug_on IS NULL
2208: THEN
2209: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2210: END IF;
2211: --
2212: IF l_debug_on THEN
2213: WSH_DEBUG_SV.push(l_module_name);
2209: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2210: END IF;
2211: --
2212: IF l_debug_on THEN
2213: WSH_DEBUG_SV.push(l_module_name);
2214: --
2215: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
2216: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DETAIL_ID',P_PARENT_DETAIL_ID);
2217: END IF;
2211: --
2212: IF l_debug_on THEN
2213: WSH_DEBUG_SV.push(l_module_name);
2214: --
2215: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
2216: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DETAIL_ID',P_PARENT_DETAIL_ID);
2217: END IF;
2218: --
2219: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2212: IF l_debug_on THEN
2213: WSH_DEBUG_SV.push(l_module_name);
2214: --
2215: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
2216: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_DETAIL_ID',P_PARENT_DETAIL_ID);
2217: END IF;
2218: --
2219: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2220:
2243: -- J: W/V Changes
2244: -- Return if the dd is already assigned to the specified container
2245: IF l_del_id_for_detail.parent_delivery_detail_id = p_parent_detail_id THEN
2246: IF l_debug_on THEN
2247: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_detail_id||' is already assigned to '||p_parent_detail_id||'. Returning');
2248: WSH_DEBUG_SV.pop(l_module_name);
2249: END IF;
2250: return;
2251: END IF;
2244: -- Return if the dd is already assigned to the specified container
2245: IF l_del_id_for_detail.parent_delivery_detail_id = p_parent_detail_id THEN
2246: IF l_debug_on THEN
2247: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_detail_id||' is already assigned to '||p_parent_detail_id||'. Returning');
2248: WSH_DEBUG_SV.pop(l_module_name);
2249: END IF;
2250: return;
2251: END IF;
2252:
2260:
2261: l_container_has_content := l_ship_to IS NOT NULL;
2262:
2263: IF l_debug_on THEN
2264: WSH_DEBUG_SV.log(l_module_name,'l_del_id_FOR_container',
2265: l_del_id_FOR_container.delivery_id);
2266: WSH_DEBUG_SV.log(l_module_name,'l_del_id_FOR_detail',
2267: l_del_id_for_detail.delivery_id);
2268: WSH_DEBUG_SV.log(l_module_name,'l_ship_to', l_ship_to);
2262:
2263: IF l_debug_on THEN
2264: WSH_DEBUG_SV.log(l_module_name,'l_del_id_FOR_container',
2265: l_del_id_FOR_container.delivery_id);
2266: WSH_DEBUG_SV.log(l_module_name,'l_del_id_FOR_detail',
2267: l_del_id_for_detail.delivery_id);
2268: WSH_DEBUG_SV.log(l_module_name,'l_ship_to', l_ship_to);
2269: END IF;
2270: /* Added code to check for grouping attributes */
2264: WSH_DEBUG_SV.log(l_module_name,'l_del_id_FOR_container',
2265: l_del_id_FOR_container.delivery_id);
2266: WSH_DEBUG_SV.log(l_module_name,'l_del_id_FOR_detail',
2267: l_del_id_for_detail.delivery_id);
2268: WSH_DEBUG_SV.log(l_module_name,'l_ship_to', l_ship_to);
2269: END IF;
2270: /* Added code to check for grouping attributes */
2271: IF (l_del_id_for_detail.organization_id <>
2272: l_del_id_for_container.organization_id) THEN
2273: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
2274: FND_MESSAGE.SET_TOKEN('ENTITY1',p_detail_id);
2275: --
2276: IF l_debug_on THEN
2277: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2278: END IF;
2279: --
2280: FND_MESSAGE.SET_TOKEN('ENTITY2',
2281: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2283: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2284: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2285: --
2286: IF l_debug_on THEN
2287: WSH_DEBUG_SV.pop(l_module_name);
2288: END IF;
2289: --
2290: RETURN;
2291: END IF;
2294: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
2295: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
2296: --
2297: IF l_debug_on THEN
2298: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2299: END IF;
2300: --
2301: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2302: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2304: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2305: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2306: --
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.pop(l_module_name);
2309: END IF;
2310: --
2311: RETURN;
2312: END IF;
2341: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_DIFF_IGNOREPLAN');
2342: FND_MESSAGE.SET_TOKEN('ENTITY1',p_detail_id);
2343: --
2344: IF l_debug_on THEN
2345: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2346: END IF;
2347: --
2348: FND_MESSAGE.SET_TOKEN('ENTITY2',
2349: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2350: p_parent_detail_id));
2351: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2352: --
2353: IF l_debug_on THEN
2354: WSH_DEBUG_SV.pop(l_module_name);
2355: END IF;
2356: --
2357: RETURN;
2358:
2381: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_DIFF_IGNOREPLAN');
2382: FND_MESSAGE.SET_TOKEN('ENTITY1',p_detail_id);
2383: --
2384: IF l_debug_on THEN
2385: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2386: END IF;
2387: --
2388: FND_MESSAGE.SET_TOKEN('ENTITY2',
2389: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2391: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2392: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2393: --
2394: IF l_debug_on THEN
2395: WSH_DEBUG_SV.pop(l_module_name);
2396: END IF;
2397: --
2398: RETURN;
2399: END IF; --}
2422: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
2423: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
2424: --
2425: IF l_debug_on THEN
2426: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2427: END IF;
2428: --
2429: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2430: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2432: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2433: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2434: --
2435: IF l_debug_on THEN
2436: WSH_DEBUG_SV.pop(l_module_name);
2437: END IF;
2438: --
2439: RETURN;
2440: --}
2445: -- J-IB-NPARIKH-}
2446: --
2447: --
2448: IF l_debug_on THEN
2449: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.GET_GROUP_BY_ATTR',WSH_DEBUG_SV.C_PROC_LEVEL);
2450: END IF;
2451: --
2452: WSH_DELIVERY_AUTOCREATE.get_group_by_attr(
2453: p_organization_id => l_del_id_for_detail.organization_id,
2458: x_return_status := x_return_status;
2459: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2460: --
2461: IF l_debug_on THEN
2462: WSH_DEBUG_SV.pop(l_module_name);
2463: END IF;
2464: --
2465: RETURN;
2466: END IF;
2471: ----------*/
2472:
2473: IF l_container_has_content THEN
2474: IF l_debug_on THEN
2475: WSH_DEBUG_SV.log(l_module_name,'l_group_by_flags.customer',
2476: l_group_by_flags.customer);
2477: WSH_DEBUG_SV.log(l_module_name,'del_id_for_detail.customer',
2478: l_del_id_for_detail.customer_id);
2479: WSH_DEBUG_SV.log(l_module_name,'id_for_container.customer',
2473: IF l_container_has_content THEN
2474: IF l_debug_on THEN
2475: WSH_DEBUG_SV.log(l_module_name,'l_group_by_flags.customer',
2476: l_group_by_flags.customer);
2477: WSH_DEBUG_SV.log(l_module_name,'del_id_for_detail.customer',
2478: l_del_id_for_detail.customer_id);
2479: WSH_DEBUG_SV.log(l_module_name,'id_for_container.customer',
2480: l_del_id_for_container.customer_id);
2481: END IF;
2475: WSH_DEBUG_SV.log(l_module_name,'l_group_by_flags.customer',
2476: l_group_by_flags.customer);
2477: WSH_DEBUG_SV.log(l_module_name,'del_id_for_detail.customer',
2478: l_del_id_for_detail.customer_id);
2479: WSH_DEBUG_SV.log(l_module_name,'id_for_container.customer',
2480: l_del_id_for_container.customer_id);
2481: END IF;
2482:
2483: --- Bug 3715176
2504:
2505: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2506: --
2507: IF l_debug_on THEN
2508: WSH_DEBUG_SV.pop(l_module_name);
2509: END IF;
2510: --
2511: return;
2512: end if;
2524:
2525: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2526: --
2527: IF l_debug_on THEN
2528: WSH_DEBUG_SV.pop(l_module_name);
2529: END IF;
2530: --
2531: return;
2532: end if;
2547: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
2548: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
2549: --
2550: IF l_debug_on THEN
2551: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2552: END IF;
2553: --
2554: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2555: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2557: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2558: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2559: --
2560: IF l_debug_on THEN
2561: WSH_DEBUG_SV.pop(l_module_name);
2562: END IF;
2563: --
2564: return;
2565: END IF;
2572: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
2573: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
2574: --
2575: IF l_debug_on THEN
2576: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2577: END IF;
2578: --
2579: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2580: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2582: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2583: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2584: --
2585: IF l_debug_on THEN
2586: WSH_DEBUG_SV.pop(l_module_name);
2587: END IF;
2588: --
2589: return;
2590: END IF;
2590: END IF;
2591: END IF;
2592:
2593: IF l_debug_on THEN
2594: WSH_DEBUG_SV.log(l_module_name,'fob_code',
2595: l_del_id_for_detail.fob_code);
2596: WSH_DEBUG_SV.log(l_module_name,'container fob_code',
2597: l_del_id_for_container.fob_code);
2598: WSH_DEBUG_SV.log(l_module_name,'fob',
2592:
2593: IF l_debug_on THEN
2594: WSH_DEBUG_SV.log(l_module_name,'fob_code',
2595: l_del_id_for_detail.fob_code);
2596: WSH_DEBUG_SV.log(l_module_name,'container fob_code',
2597: l_del_id_for_container.fob_code);
2598: WSH_DEBUG_SV.log(l_module_name,'fob',
2599: l_group_by_flags.fob);
2600: END IF;
2594: WSH_DEBUG_SV.log(l_module_name,'fob_code',
2595: l_del_id_for_detail.fob_code);
2596: WSH_DEBUG_SV.log(l_module_name,'container fob_code',
2597: l_del_id_for_container.fob_code);
2598: WSH_DEBUG_SV.log(l_module_name,'fob',
2599: l_group_by_flags.fob);
2600: END IF;
2601:
2602: IF l_group_by_flags.fob = 'Y' THEN
2606: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
2607: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
2608: --
2609: IF l_debug_on THEN
2610: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2611: END IF;
2612: --
2613: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2614: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2616: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2617: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2618: --
2619: IF l_debug_on THEN
2620: WSH_DEBUG_SV.pop(l_module_name);
2621: END IF;
2622: --
2623: return;
2624: END IF;
2623: return;
2624: END IF;
2625: END IF;
2626: IF l_debug_on THEN
2627: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code',
2628: l_del_id_for_detail.freight_terms_code);
2629: WSH_DEBUG_SV.log(l_module_name,
2630: 'container freight_terms_code',
2631: l_del_id_for_container.freight_terms_code);
2625: END IF;
2626: IF l_debug_on THEN
2627: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code',
2628: l_del_id_for_detail.freight_terms_code);
2629: WSH_DEBUG_SV.log(l_module_name,
2630: 'container freight_terms_code',
2631: l_del_id_for_container.freight_terms_code);
2632: WSH_DEBUG_SV.log(l_module_name,'freight_terms',
2633: l_group_by_flags.freight_terms);
2628: l_del_id_for_detail.freight_terms_code);
2629: WSH_DEBUG_SV.log(l_module_name,
2630: 'container freight_terms_code',
2631: l_del_id_for_container.freight_terms_code);
2632: WSH_DEBUG_SV.log(l_module_name,'freight_terms',
2633: l_group_by_flags.freight_terms);
2634: END IF;
2635:
2636: IF l_group_by_flags.freight_terms = 'Y' THEN
2640: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
2641: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
2642: --
2643: IF l_debug_on THEN
2644: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2645: END IF;
2646: --
2647: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2648: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2651: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2652: --
2653: IF l_debug_on THEN
2654: WSH_DEBUG_SV.pop(l_module_name);
2655: END IF;
2656: --
2657: return;
2658: END IF;
2658: END IF;
2659: END IF;
2660:
2661: IF l_debug_on THEN
2662: WSH_DEBUG_SV.log(l_module_name,'ship_method_code',
2663: l_del_id_for_detail.ship_method_code);
2664: WSH_DEBUG_SV.log(l_module_name, 'container ship_method_code',
2665: l_del_id_for_container.ship_method_code);
2666: WSH_DEBUG_SV.log(l_module_name,'ship_method',
2660:
2661: IF l_debug_on THEN
2662: WSH_DEBUG_SV.log(l_module_name,'ship_method_code',
2663: l_del_id_for_detail.ship_method_code);
2664: WSH_DEBUG_SV.log(l_module_name, 'container ship_method_code',
2665: l_del_id_for_container.ship_method_code);
2666: WSH_DEBUG_SV.log(l_module_name,'ship_method',
2667: l_group_by_flags.ship_method);
2668: END IF;
2662: WSH_DEBUG_SV.log(l_module_name,'ship_method_code',
2663: l_del_id_for_detail.ship_method_code);
2664: WSH_DEBUG_SV.log(l_module_name, 'container ship_method_code',
2665: l_del_id_for_container.ship_method_code);
2666: WSH_DEBUG_SV.log(l_module_name,'ship_method',
2667: l_group_by_flags.ship_method);
2668: END IF;
2669:
2670: IF l_group_by_flags.ship_method = 'Y' THEN
2678: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
2679: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
2680: --
2681: IF l_debug_on THEN
2682: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2683: END IF;
2684: --
2685: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2686: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2688: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2689: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2690: --
2691: IF l_debug_on THEN
2692: WSH_DEBUG_SV.pop(l_module_name);
2693: END IF;
2694: --
2695: return;
2696: END IF;
2698: END IF;
2699: /* End of Check for grouping attributes */
2700:
2701: IF l_debug_on THEN
2702: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id',
2703: l_del_id_for_detail.parent_delivery_detail_id);
2704: WSH_DEBUG_SV.log(l_module_name,
2705: 'container parent_delivery_detail_id',
2706: l_del_id_for_container.parent_delivery_detail_id);
2700:
2701: IF l_debug_on THEN
2702: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id',
2703: l_del_id_for_detail.parent_delivery_detail_id);
2704: WSH_DEBUG_SV.log(l_module_name,
2705: 'container parent_delivery_detail_id',
2706: l_del_id_for_container.parent_delivery_detail_id);
2707: END IF;
2708:
2714: FND_MESSAGE.SET_NAME('WSH','WSH_DET_PACK_ERROR');
2715: FND_MESSAGE.SET_TOKEN('DET_LINE',p_detail_id);
2716: --
2717: IF l_debug_on THEN
2718: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2719: END IF;
2720: --
2721: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2722: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2724: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2725: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2726: --
2727: IF l_debug_on THEN
2728: WSH_DEBUG_SV.pop(l_module_name);
2729: END IF;
2730: --
2731: return;
2732: END IF;
2734:
2735:
2736: -- J: W/V Changes
2737: IF l_debug_on THEN
2738: WSH_DEBUG_SV.log(l_module_name,'l_del_id_for_detail.released_status',
2739: l_del_id_for_detail.released_status);
2740: END IF;
2741:
2742: IF l_del_id_for_detail.released_status = 'C' THEN
2751: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_DIFF_DELIVERIES');
2752: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
2753: --
2754: IF l_debug_on THEN
2755: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2756: END IF;
2757: --
2758: FND_MESSAGE.SET_TOKEN('CONT_NAME',
2759: nvl(wsh_container_utilities.get_cont_name(p_parent_detail_id),
2761: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2762: WSH_UTIL_CORE.Add_Message(x_return_status);
2763: --
2764: IF l_debug_on THEN
2765: WSH_DEBUG_SV.pop(l_module_name);
2766: END IF;
2767: --
2768: return;
2769: END IF;
2775: -- The third DD_WV_Post_Process will will increment the container W/V with DD W/V which in turn will adjust the
2776: -- delivery W/V, if the container is in a delivery.
2777: IF (l_del_id_for_detail.delivery_id is not null) THEN
2778: IF l_debug_on THEN
2779: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
2780: END IF;
2781:
2782: WSH_WV_UTILS.DD_WV_Post_Process(
2783: p_delivery_detail_id => p_detail_id,
2791: --
2792: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2793: WSH_UTIL_CORE.Add_Message(x_return_status);
2794: IF l_debug_on THEN
2795: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2796: WSH_DEBUG_SV.pop(l_module_name);
2797: END IF;
2798: return;
2799: END IF;
2792: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2793: WSH_UTIL_CORE.Add_Message(x_return_status);
2794: IF l_debug_on THEN
2795: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2796: WSH_DEBUG_SV.pop(l_module_name);
2797: END IF;
2798: return;
2799: END IF;
2800:
2831: x_return_status => l_return_status);
2832:
2833: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2834: IF l_debug_on THEN
2835: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
2836: END IF;
2837: raise FND_API.G_EXC_ERROR;
2838: END IF;
2839: END IF;
2840: -- End of OTM R12 : assign delivery detail
2841:
2842:
2843: IF l_debug_on THEN
2844: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.CHECK_ASSIGN_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
2845: END IF;
2846:
2847: l_attr_tab(1).entity_id := l_del_id_for_container.delivery_id;
2848: l_attr_tab(1).entity_type := 'DELIVERY';
2864: --
2865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2866: WSH_UTIL_CORE.Add_Message(x_return_status);
2867: IF l_debug_on THEN
2868: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2869: WSH_DEBUG_SV.pop(l_module_name);
2870: END IF;
2871: return;
2872: END IF;
2865: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2866: WSH_UTIL_CORE.Add_Message(x_return_status);
2867: IF l_debug_on THEN
2868: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2869: WSH_DEBUG_SV.pop(l_module_name);
2870: END IF;
2871: return;
2872: END IF;
2873:
2877: --
2878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2879: WSH_UTIL_CORE.Add_Message(x_return_status);
2880: IF l_debug_on THEN
2881: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2882: WSH_DEBUG_SV.pop(l_module_name);
2883: END IF;
2884: return;
2885: END IF;
2878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2879: WSH_UTIL_CORE.Add_Message(x_return_status);
2880: IF l_debug_on THEN
2881: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2882: WSH_DEBUG_SV.pop(l_module_name);
2883: END IF;
2884: return;
2885: END IF;
2886:
2898: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2899: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
2900: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
2901: IF l_debug_on THEN
2902: WSH_DEBUG_SV.log(l_module_name,'Could not lock delivery: ',l_del_id_for_container.delivery_id);
2903: WSH_DEBUG_SV.pop(l_module_name);
2904: END IF;
2905: RETURN;
2906: END;
2899: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
2900: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.G_RET_STS_ERROR);
2901: IF l_debug_on THEN
2902: WSH_DEBUG_SV.log(l_module_name,'Could not lock delivery: ',l_del_id_for_container.delivery_id);
2903: WSH_DEBUG_SV.pop(l_module_name);
2904: END IF;
2905: RETURN;
2906: END;
2907:
2923:
2924: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2925: x_return_status := l_return_status;
2926: IF l_debug_on THEN
2927: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
2928: WSH_DEBUG_SV.pop(l_module_name);
2929: END IF;
2930: RETURN;
2931: END IF;
2924: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2925: x_return_status := l_return_status;
2926: IF l_debug_on THEN
2927: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
2928: WSH_DEBUG_SV.pop(l_module_name);
2929: END IF;
2930: RETURN;
2931: END IF;
2932:
2945:
2946: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2947: x_return_status := l_return_status;
2948: IF l_debug_on THEN
2949: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
2950: WSH_DEBUG_SV.pop(l_module_name);
2951: END IF;
2952: RETURN;
2953: END IF;
2946: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
2947: x_return_status := l_return_status;
2948: IF l_debug_on THEN
2949: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
2950: WSH_DEBUG_SV.pop(l_module_name);
2951: END IF;
2952: RETURN;
2953: END IF;
2954:
2980: END IF; -- IF ((l_trip_not_found = 'N' AND
2981: END IF; -- IF (l_gc3_is_installed = 'Y'
2982:
2983: IF l_debug_on THEN
2984: WSH_DEBUG_SV.log(l_module_name, 'l_gc3_is_installed', l_gc3_is_installed);
2985: WSH_DEBUG_SV.log(l_module_name, 'l_tms_update', l_tms_update);
2986: IF (l_tms_update = 'Y') THEN
2987: WSH_DEBUG_SV.log(l_module_name, 'l_new_interface_flag_tab', l_new_interface_flag_tab(1));
2988: WSH_DEBUG_SV.log(l_module_name, 'l_tms_version_number', l_tms_version_number);
2981: END IF; -- IF (l_gc3_is_installed = 'Y'
2982:
2983: IF l_debug_on THEN
2984: WSH_DEBUG_SV.log(l_module_name, 'l_gc3_is_installed', l_gc3_is_installed);
2985: WSH_DEBUG_SV.log(l_module_name, 'l_tms_update', l_tms_update);
2986: IF (l_tms_update = 'Y') THEN
2987: WSH_DEBUG_SV.log(l_module_name, 'l_new_interface_flag_tab', l_new_interface_flag_tab(1));
2988: WSH_DEBUG_SV.log(l_module_name, 'l_tms_version_number', l_tms_version_number);
2989: END IF;
2983: IF l_debug_on THEN
2984: WSH_DEBUG_SV.log(l_module_name, 'l_gc3_is_installed', l_gc3_is_installed);
2985: WSH_DEBUG_SV.log(l_module_name, 'l_tms_update', l_tms_update);
2986: IF (l_tms_update = 'Y') THEN
2987: WSH_DEBUG_SV.log(l_module_name, 'l_new_interface_flag_tab', l_new_interface_flag_tab(1));
2988: WSH_DEBUG_SV.log(l_module_name, 'l_tms_version_number', l_tms_version_number);
2989: END IF;
2990: END IF;
2991:
2984: WSH_DEBUG_SV.log(l_module_name, 'l_gc3_is_installed', l_gc3_is_installed);
2985: WSH_DEBUG_SV.log(l_module_name, 'l_tms_update', l_tms_update);
2986: IF (l_tms_update = 'Y') THEN
2987: WSH_DEBUG_SV.log(l_module_name, 'l_new_interface_flag_tab', l_new_interface_flag_tab(1));
2988: WSH_DEBUG_SV.log(l_module_name, 'l_tms_version_number', l_tms_version_number);
2989: END IF;
2990: END IF;
2991:
2992: -- End of OTM R12 : update delivery
3014:
3015: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3016: x_return_status := l_return_status;
3017: IF l_debug_on THEN
3018: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
3019: WSH_DEBUG_SV.pop(l_module_name);
3020: END IF;
3021: RETURN;
3022: END IF;
3015: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3016: x_return_status := l_return_status;
3017: IF l_debug_on THEN
3018: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
3019: WSH_DEBUG_SV.pop(l_module_name);
3020: END IF;
3021: RETURN;
3022: END IF;
3023: END IF;
3039: l_sync_tmp_rec.delivery_id := l_del_id_for_detail.delivery_id;
3040: l_sync_tmp_rec.operation_type := 'PRIOR';
3041: --
3042: IF l_debug_on THEN
3043: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
3044: END IF;
3045: --
3046: WSH_WMS_SYNC_TMP_PKG.MERGE
3047: (
3053: --
3054: x_return_status := l_return_status;
3055: --
3056: IF l_debug_on THEN
3057: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3058: WSH_DEBUG_SV.pop(l_module_name);
3059: END IF;
3060: --
3061: return;
3054: x_return_status := l_return_status;
3055: --
3056: IF l_debug_on THEN
3057: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3058: WSH_DEBUG_SV.pop(l_module_name);
3059: END IF;
3060: --
3061: return;
3062: --
3101: x_return_status => l_return_status);
3102:
3103: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3104: IF l_debug_on THEN
3105: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3106: END IF;
3107: raise FND_API.G_EXC_ERROR;
3108: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3109: l_num_warnings := l_num_warnings + 1;
3118: x_return_status => x_return_status);
3119:
3120: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3121: IF l_debug_on THEN
3122: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3123: WSH_DEBUG_SV.pop(l_module_name);
3124: END IF;
3125: return;
3126: END IF;
3119:
3120: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3121: IF l_debug_on THEN
3122: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3123: WSH_DEBUG_SV.pop(l_module_name);
3124: END IF;
3125: return;
3126: END IF;
3127:
3150: l_sync_tmp_rec.delivery_id := l_del_id_for_detail.delivery_id;
3151: l_sync_tmp_rec.operation_type := 'PRIOR';
3152: --
3153: IF l_debug_on THEN
3154: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
3155: END IF;
3156: --
3157: WSH_WMS_SYNC_TMP_PKG.MERGE
3158: (
3164: --
3165: x_return_status := l_return_status;
3166: --
3167: IF l_debug_on THEN
3168: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3169: WSH_DEBUG_SV.pop(l_module_name);
3170: END IF;
3171: --
3172: return;
3165: x_return_status := l_return_status;
3166: --
3167: IF l_debug_on THEN
3168: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3169: WSH_DEBUG_SV.pop(l_module_name);
3170: END IF;
3171: --
3172: return;
3173: --
3195: x_return_status => x_return_status);
3196:
3197: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3198: IF l_debug_on THEN
3199: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3200: WSH_DEBUG_SV.pop(l_module_name);
3201: END IF;
3202: return;
3203: END IF;
3196:
3197: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3198: IF l_debug_on THEN
3199: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3200: WSH_DEBUG_SV.pop(l_module_name);
3201: END IF;
3202: return;
3203: END IF;
3204: END IF;
3261: x_return_status => l_return_status);
3262:
3263: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3264: IF l_debug_on THEN
3265: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
3266: END IF;
3267: raise FND_API.G_EXC_ERROR;
3268: END IF;
3269: END IF;
3296: THEN
3297: --{
3298: --
3299: IF l_debug_on THEN
3300: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
3301: END IF;
3302: --
3303: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
3304: (
3311: --
3312: x_return_status := l_return_status;
3313: --
3314: IF l_debug_on THEN
3315: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3316: WSH_DEBUG_SV.pop(l_module_name);
3317: END IF;
3318: --
3319: return;
3312: x_return_status := l_return_status;
3313: --
3314: IF l_debug_on THEN
3315: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3316: WSH_DEBUG_SV.pop(l_module_name);
3317: END IF;
3318: --
3319: return;
3320: --
3356: x_return_status => l_return_status);
3357:
3358: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3359: IF l_debug_on THEN
3360: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
3361: END IF;
3362: raise FND_API.G_EXC_ERROR;
3363: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3364: l_num_warnings := l_num_warnings + 1;
3374: x_return_status => x_return_status);
3375:
3376: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3377: IF l_debug_on THEN
3378: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3379: WSH_DEBUG_SV.pop(l_module_name);
3380: END IF;
3381: return;
3382: END IF;
3375:
3376: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3377: IF l_debug_on THEN
3378: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3379: WSH_DEBUG_SV.pop(l_module_name);
3380: END IF;
3381: return;
3382: END IF;
3383: l_mdc_detail_tab.delete;
3392:
3393: -- J: W/V Changes
3394: -- Container is being assigned to delivery. Call DD_WV_Post_Process to adjust the W/V of the parent
3395: IF l_debug_on THEN
3396: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning Container to Delivery');
3397: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
3398: END IF;
3399:
3400: WSH_WV_UTILS.DD_WV_Post_Process(
3393: -- J: W/V Changes
3394: -- Container is being assigned to delivery. Call DD_WV_Post_Process to adjust the W/V of the parent
3395: IF l_debug_on THEN
3396: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning Container to Delivery');
3397: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
3398: END IF;
3399:
3400: WSH_WV_UTILS.DD_WV_Post_Process(
3401: p_delivery_detail_id => p_parent_detail_id,
3409: --
3410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3411: WSH_UTIL_CORE.Add_Message(x_return_status);
3412: IF l_debug_on THEN
3413: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3414: WSH_DEBUG_SV.pop(l_module_name);
3415: END IF;
3416: return;
3417: END IF;
3410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3411: WSH_UTIL_CORE.Add_Message(x_return_status);
3412: IF l_debug_on THEN
3413: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3414: WSH_DEBUG_SV.pop(l_module_name);
3415: END IF;
3416: return;
3417: END IF;
3418:
3429: THEN
3430: --{
3431: -- J: W/V Changes
3432: IF l_debug_on THEN
3433: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
3434: END IF;
3435:
3436: WSH_WV_UTILS.DD_WV_Post_Process(
3437: p_delivery_detail_id => p_detail_id,
3448: --
3449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3450: WSH_UTIL_CORE.Add_Message(x_return_status);
3451: IF l_debug_on THEN
3452: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3453: WSH_DEBUG_SV.pop(l_module_name);
3454: END IF;
3455: return;
3456: END IF;
3449: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3450: WSH_UTIL_CORE.Add_Message(x_return_status);
3451: IF l_debug_on THEN
3452: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3453: WSH_DEBUG_SV.pop(l_module_name);
3454: END IF;
3455: return;
3456: END IF;
3457: END IF;
3462: /* H integration: Pricing integration csun */
3463: IF l_del_tab.count > 0 THEN
3464: --
3465: IF l_debug_on THEN
3466: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
3467: END IF;
3468: --
3469: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3470: p_entity_type => 'DELIVERY',
3480: END IF;
3481:
3482: --
3483: IF l_debug_on THEN
3484: WSH_DEBUG_SV.pop(l_module_name);
3485: END IF;
3486: --
3487: exception
3488:
3490: WHEN FND_API.G_EXC_ERROR then
3491: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3492: --
3493: IF l_debug_on THEN
3494: WSH_DEBUG_SV.pop(l_module_name);
3495: END IF;
3496: --
3497: RETURN;
3498: -- End of OTM R12 : assign delivery detail
3502: x_return_status := l_return_status;
3503: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3504: --
3505: IF l_debug_on THEN
3506: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3507: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3508: END IF;
3509: --
3510: WHEN invalid_detail then
3503: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3504: --
3505: IF l_debug_on THEN
3506: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3507: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3508: END IF;
3509: --
3510: WHEN invalid_detail then
3511: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3513: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
3514: wsh_util_core.add_message(x_return_status,l_module_name);
3515: --
3516: IF l_debug_on THEN
3517: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
3519: END IF;
3520: --
3521: RETURN;
3514: wsh_util_core.add_message(x_return_status,l_module_name);
3515: --
3516: IF l_debug_on THEN
3517: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
3519: END IF;
3520: --
3521: RETURN;
3522: WHEN others THEN
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3524: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_CONT',l_module_name);
3525: --
3526: IF l_debug_on THEN
3527: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3528: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3529: END IF;
3530: --
3531: END Assign_Detail_To_Cont;
3524: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_CONT',l_module_name);
3525: --
3526: IF l_debug_on THEN
3527: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3528: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3529: END IF;
3530: --
3531: END Assign_Detail_To_Cont;
3532: -- -------------------------------------------------------------------------------
3590: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3591: --
3592: IF l_debug_on IS NULL
3593: THEN
3594: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3595: END IF;
3596: --
3597: IF l_debug_on THEN
3598: WSH_DEBUG_SV.push(l_module_name);
3594: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3595: END IF;
3596: --
3597: IF l_debug_on THEN
3598: WSH_DEBUG_SV.push(l_module_name);
3599: --
3600: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
3601: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
3602: END IF;
3596: --
3597: IF l_debug_on THEN
3598: WSH_DEBUG_SV.push(l_module_name);
3599: --
3600: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
3601: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
3602: END IF;
3603: --
3604: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3597: IF l_debug_on THEN
3598: WSH_DEBUG_SV.push(l_module_name);
3599: --
3600: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
3601: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
3602: END IF;
3603: --
3604: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3605:
3610:
3611:
3612: IF l_del_rec.parent_delivery_detail_id is NULL THEN
3613: IF l_debug_on THEN
3614: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_detail_id||' is already unassigned. Returning');
3615: WSH_DEBUG_SV.pop(l_module_name);
3616: END IF;
3617: return;
3618:
3611:
3612: IF l_del_rec.parent_delivery_detail_id is NULL THEN
3613: IF l_debug_on THEN
3614: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_detail_id||' is already unassigned. Returning');
3615: WSH_DEBUG_SV.pop(l_module_name);
3616: END IF;
3617: return;
3618:
3619: -- LPN CONV. rv
3623: fetch l_parent_cnt_csr into l_parent_cnt_orgn_id, l_parent_cnt_line_dir;
3624: close l_parent_cnt_csr;
3625: --
3626: IF l_debug_on THEN
3627: WSH_DEBUG_SV.log(l_module_name,' parent cnt orgn id is', l_parent_cnt_orgn_id);
3628: WSH_DEBUG_SV.log(l_module_name,' parent cnt line dir is', l_parent_cnt_line_dir);
3629: END IF;
3630: --
3631: l_wms_org := wsh_util_validate.check_wms_org(l_parent_cnt_orgn_id);
3624: close l_parent_cnt_csr;
3625: --
3626: IF l_debug_on THEN
3627: WSH_DEBUG_SV.log(l_module_name,' parent cnt orgn id is', l_parent_cnt_orgn_id);
3628: WSH_DEBUG_SV.log(l_module_name,' parent cnt line dir is', l_parent_cnt_line_dir);
3629: END IF;
3630: --
3631: l_wms_org := wsh_util_validate.check_wms_org(l_parent_cnt_orgn_id);
3632: --
3635: END IF;
3636:
3637: --
3638: IF l_debug_on THEN
3639: WSH_DEBUG_SV.log(l_module_name,'l_del_rec.released_status',l_del_rec.released_status);
3640: END IF;
3641: --
3642:
3643: IF l_del_rec.released_status = 'C' THEN
3652:
3653: -- J: W/V Changes
3654: -- Decrement the DD W/V from container
3655: IF l_debug_on THEN
3656: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
3657: END IF;
3658:
3659: WSH_WV_UTILS.DD_WV_Post_Process(
3660: p_delivery_detail_id => p_detail_id,
3672: --
3673: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3674: WSH_UTIL_CORE.Add_Message(x_return_status);
3675: IF l_debug_on THEN
3676: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3677: WSH_DEBUG_SV.pop(l_module_name);
3678: END IF;
3679: return;
3680: END IF;
3673: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3674: WSH_UTIL_CORE.Add_Message(x_return_status);
3675: IF l_debug_on THEN
3676: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3677: WSH_DEBUG_SV.pop(l_module_name);
3678: END IF;
3679: return;
3680: END IF;
3681: END IF;
3700: l_sync_tmp_rec.delivery_id := l_del_rec.delivery_id;
3701: l_sync_tmp_rec.operation_type := 'PRIOR';
3702: --
3703: IF l_debug_on THEN
3704: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
3705: END IF;
3706: --
3707: WSH_WMS_SYNC_TMP_PKG.MERGE
3708: (
3712:
3713: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3714: THEN
3715: IF l_debug_on THEN
3716: WSH_DEBUG_SV.log(l_module_name,'WSH_WMS_SYNC_TMP_PKG.MERGE returned ',l_return_status);
3717: END IF;
3718: RAISE e_abort;
3719: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3720: l_num_warnings := l_num_warnings + 1;
3735: x_return_status => x_return_status);
3736:
3737: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3738: IF l_debug_on THEN
3739: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3740: WSH_DEBUG_SV.pop(l_module_name);
3741: END IF;
3742: return;
3743: END IF;
3736:
3737: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3738: IF l_debug_on THEN
3739: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
3740: WSH_DEBUG_SV.pop(l_module_name);
3741: END IF;
3742: return;
3743: END IF;
3744: -- J: W/V Changes
3746: -- Reason: DD_WV_Post_Process would have calculated the fill% but the delivery detail is not unassigned at
3747: -- that point of time. So the fill% will be wrong if 'Percent Fill Basis' is Quantity since the fill%
3748: -- calculation considers the delivery detail which is not yet unassigned
3749: IF l_debug_on THEN
3750: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
3751: END IF;
3752:
3753: WSH_SHIPPING_PARAMS_PVT.Get(
3754: p_organization_id => l_del_rec.organization_id,
3756: x_return_status => l_return_status);
3757:
3758: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3759: IF l_debug_on THEN
3760: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
3761: END IF;
3762: raise e_abort;
3763: END IF;
3764:
3768: IF NOT( l_wms_org = 'Y' AND nvl(wsh_wms_lpn_grp.g_caller,'WSH') like 'WMS%')
3769: THEN
3770: --{
3771: IF l_debug_on THEN
3772: WSH_DEBUG_SV.logmsg(l_module_name,'Need to recalculate the fill% for container');
3773: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CALC_CONT_FILL_PC',WSH_DEBUG_SV.C_PROC_LEVEL);
3774: END IF;
3775:
3776: WSH_WV_UTILS.ADJUST_PARENT_WV(
3769: THEN
3770: --{
3771: IF l_debug_on THEN
3772: WSH_DEBUG_SV.logmsg(l_module_name,'Need to recalculate the fill% for container');
3773: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_CONTAINER_PKG.CALC_CONT_FILL_PC',WSH_DEBUG_SV.C_PROC_LEVEL);
3774: END IF;
3775:
3776: WSH_WV_UTILS.ADJUST_PARENT_WV(
3777: p_entity_type => 'CONTAINER',
3787:
3788: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3789: THEN
3790: IF l_debug_on THEN
3791: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.ADJUST_PARENT_WV returned '||l_return_status);
3792: END IF;
3793: RAISE e_abort;
3794: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3795: l_num_warnings := l_num_warnings + 1;
3801: END IF;
3802:
3803: --
3804: IF l_debug_on THEN
3805: WSH_DEBUG_SV.log(l_module_name,'Delivery Id for l_del_rec',l_del_rec.delivery_id);
3806: END IF;
3807: --
3808:
3809: -- J: W/V Changes
3809: -- J: W/V Changes
3810: -- Assign the DD W/V back to delivery
3811: IF l_del_rec.delivery_id IS NOT NULL THEN
3812: IF l_debug_on THEN
3813: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
3814: END IF;
3815:
3816: WSH_WV_UTILS.DD_WV_Post_Process(
3817: p_delivery_detail_id => p_detail_id,
3827: --
3828: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3829: WSH_UTIL_CORE.Add_Message(x_return_status);
3830: IF l_debug_on THEN
3831: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3832: WSH_DEBUG_SV.pop(l_module_name);
3833: END IF;
3834: return;
3835: END IF;
3828: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3829: WSH_UTIL_CORE.Add_Message(x_return_status);
3830: IF l_debug_on THEN
3831: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
3832: WSH_DEBUG_SV.pop(l_module_name);
3833: END IF;
3834: return;
3835: END IF;
3836: END IF;
3842: l_del_tab.delete;
3843: l_del_tab(1) := l_del_rec.delivery_id;
3844: --
3845: IF l_debug_on THEN
3846: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
3847: END IF;
3848: --
3849: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
3850: p_entity_type => 'DELIVERY',
3860: END IF;
3861:
3862: --
3863: IF l_debug_on THEN
3864: WSH_DEBUG_SV.pop(l_module_name);
3865: END IF;
3866: --
3867: exception
3868: -- J: W/V Changes
3868: -- J: W/V Changes
3869: WHEN e_abort THEN
3870: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3871: IF l_debug_on THEN
3872: WSH_DEBUG_SV.pop(l_module_name);
3873: END IF;
3874:
3875: WHEN mark_reprice_error THEN
3876: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
3878: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3879:
3880: --
3881: IF l_debug_on THEN
3882: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3883: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3884: END IF;
3885: --
3886: WHEN invalid_detail then
3879:
3880: --
3881: IF l_debug_on THEN
3882: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3883: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
3884: END IF;
3885: --
3886: WHEN invalid_detail then
3887: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3889: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
3890: wsh_util_core.add_message(x_return_status,l_module_name);
3891: --
3892: IF l_debug_on THEN
3893: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3894: WSH_DEBUG_SV.pop(l_module_name);
3895: END IF;
3896: --
3897: RETURN;
3890: wsh_util_core.add_message(x_return_status,l_module_name);
3891: --
3892: IF l_debug_on THEN
3893: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3894: WSH_DEBUG_SV.pop(l_module_name);
3895: END IF;
3896: --
3897: RETURN;
3898: WHEN others THEN
3900: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3901:
3902: --
3903: IF l_debug_on THEN
3904: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3905: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3906: END IF;
3907: --
3908: END Unassign_Detail_FROM_Cont;
3901:
3902: --
3903: IF l_debug_on THEN
3904: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3905: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3906: END IF;
3907: --
3908: END Unassign_Detail_FROM_Cont;
3909:
4123: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4124: --
4125: IF l_debug_on IS NULL
4126: THEN
4127: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4128: END IF;
4129: --
4130: IF l_debug_on THEN
4131: WSH_DEBUG_SV.push(l_module_name);
4127: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4128: END IF;
4129: --
4130: IF l_debug_on THEN
4131: WSH_DEBUG_SV.push(l_module_name);
4132: --
4133: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
4134: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
4135: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
4129: --
4130: IF l_debug_on THEN
4131: WSH_DEBUG_SV.push(l_module_name);
4132: --
4133: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
4134: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
4135: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
4136: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
4137: END IF;
4130: IF l_debug_on THEN
4131: WSH_DEBUG_SV.push(l_module_name);
4132: --
4133: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
4134: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
4135: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
4136: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
4137: END IF;
4138: --
4131: WSH_DEBUG_SV.push(l_module_name);
4132: --
4133: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
4134: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
4135: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
4136: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
4137: END IF;
4138: --
4139: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4132: --
4133: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
4134: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
4135: WSH_DEBUG_SV.log(l_module_name,'x_dlvy_has_lines',x_dlvy_has_lines);
4136: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
4137: END IF;
4138: --
4139: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4140:
4161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4162: wsh_util_core.add_message(x_return_status,l_module_name);
4163: --
4164: IF l_debug_on THEN
4165: WSH_DEBUG_SV.pop(l_module_name);
4166: END IF;
4167: --
4168: RETURN;
4169: ELSE
4167: --
4168: RETURN;
4169: ELSE
4170: IF l_debug_on THEN
4171: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_detail_id||' is already assigned to '||l_delivery_id||'. Returning');
4172: WSH_DEBUG_SV.pop(l_module_name);
4173: END IF;
4174: return;
4175: END IF;
4168: RETURN;
4169: ELSE
4170: IF l_debug_on THEN
4171: WSH_DEBUG_SV.logmsg(l_module_name,'DD '||p_detail_id||' is already assigned to '||l_delivery_id||'. Returning');
4172: WSH_DEBUG_SV.pop(l_module_name);
4173: END IF;
4174: return;
4175: END IF;
4176: END IF;
4199: CLOSE c_delivery;
4200:
4201: --
4202: IF l_debug_on THEN
4203: WSH_DEBUG_SV.log(l_module_name,'status_code',l_del.status_code);
4204: WSH_DEBUG_SV.log(l_module_name,'Delivery Freight Terms',l_del.freight_Terms_code);
4205: END IF;
4206: --
4207: /* security rule, delivery status should be open or packed and not planned */
4200:
4201: --
4202: IF l_debug_on THEN
4203: WSH_DEBUG_SV.log(l_module_name,'status_code',l_del.status_code);
4204: WSH_DEBUG_SV.log(l_module_name,'Delivery Freight Terms',l_del.freight_Terms_code);
4205: END IF;
4206: --
4207: /* security rule, delivery status should be open or packed and not planned */
4208: /* the value for the flag can be Y or N updated with Bug 1559785*/
4244: x_return_status => l_return_status);
4245:
4246: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
4247: IF l_debug_on THEN
4248: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
4249: END IF;
4250: raise FND_API.G_EXC_ERROR;
4251: END IF;
4252: END IF;
4256: FOR cur in c_getdet_ignore LOOP
4257: IF l_del.ignore_for_planning <> cur.ignore_for_planning THEN
4258: fnd_message.set_name('WSH', 'WSH_DET_DEL_DIFF_IGNOREPLAN');
4259: IF l_debug_on THEN
4260: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4261: END IF;
4262: fnd_message.set_token('ENTITY1',nvl(wsh_container_utilities.get_cont_name(p_detail_id), p_detail_id));
4263: IF l_debug_on THEN
4264: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4260: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4261: END IF;
4262: fnd_message.set_token('ENTITY1',nvl(wsh_container_utilities.get_cont_name(p_detail_id), p_detail_id));
4263: IF l_debug_on THEN
4264: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4265: END IF;
4266: fnd_message.set_token('ENTITY2',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4267: END IF;
4268: END LOOP;
4288: fnd_message.SET_name('WSH', 'WSH_DET_DETAIL_NOT_ASSIGNED');
4289: wsh_util_core.add_message(x_return_status,l_module_name);
4290: --
4291: IF l_debug_on THEN
4292: WSH_DEBUG_SV.pop(l_module_name);
4293: END IF;
4294: --
4295: RETURN;
4296: END IF;
4303: CLOSE c_detail;
4304:
4305: --
4306: IF l_debug_on THEN
4307: WSH_DEBUG_SV.log(l_module_name,'Released Status',l_detail.released_status);
4308: WSH_DEBUG_SV.log(l_module_name,'Delivery Id',l_detail.delivery_id);
4309: WSH_DEBUG_SV.log(l_module_name,'p_Delivery Id',p_delivery_id);
4310: WSH_DEBUG_SV.log(l_module_name,'Line Freight Terms',l_detail.freight_Terms_code);
4311: END IF;
4304:
4305: --
4306: IF l_debug_on THEN
4307: WSH_DEBUG_SV.log(l_module_name,'Released Status',l_detail.released_status);
4308: WSH_DEBUG_SV.log(l_module_name,'Delivery Id',l_detail.delivery_id);
4309: WSH_DEBUG_SV.log(l_module_name,'p_Delivery Id',p_delivery_id);
4310: WSH_DEBUG_SV.log(l_module_name,'Line Freight Terms',l_detail.freight_Terms_code);
4311: END IF;
4312: --
4305: --
4306: IF l_debug_on THEN
4307: WSH_DEBUG_SV.log(l_module_name,'Released Status',l_detail.released_status);
4308: WSH_DEBUG_SV.log(l_module_name,'Delivery Id',l_detail.delivery_id);
4309: WSH_DEBUG_SV.log(l_module_name,'p_Delivery Id',p_delivery_id);
4310: WSH_DEBUG_SV.log(l_module_name,'Line Freight Terms',l_detail.freight_Terms_code);
4311: END IF;
4312: --
4313: --
4306: IF l_debug_on THEN
4307: WSH_DEBUG_SV.log(l_module_name,'Released Status',l_detail.released_status);
4308: WSH_DEBUG_SV.log(l_module_name,'Delivery Id',l_detail.delivery_id);
4309: WSH_DEBUG_SV.log(l_module_name,'p_Delivery Id',p_delivery_id);
4310: WSH_DEBUG_SV.log(l_module_name,'Line Freight Terms',l_detail.freight_Terms_code);
4311: END IF;
4312: --
4313: --
4314: -- Bypass this check for inbound lines as a they can be assigned to delivery
4328: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4329: wsh_util_core.add_message(x_return_status,l_module_name);
4330: --
4331: IF l_debug_on THEN
4332: WSH_DEBUG_SV.pop(l_module_name);
4333: END IF;
4334: --
4335: RETURN;
4336: END IF;
4383: l_sync_tmp_rec.delivery_detail_id := l_dd_id(j);
4384: l_sync_tmp_rec.operation_type := 'UPDATE';
4385: --
4386: IF l_debug_on THEN
4387: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
4388: END IF;
4389: --
4390: WSH_WMS_SYNC_TMP_PKG.MERGE
4391: (
4393: x_return_status => l_return_status
4394: );
4395:
4396: IF l_debug_on THEN
4397: WSH_DEBUG_SV.log(l_module_name,'Return Status is ',l_return_status);
4398: END IF;
4399: --
4400: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4401: --
4401: --
4402: x_return_status := l_return_status;
4403: --
4404: IF l_debug_on THEN
4405: WSH_DEBUG_SV.pop(l_module_name);
4406: END IF;
4407: --
4408: return;
4409: --
4451:
4452: IF l_detail.container_flag='Y' THEN
4453: --
4454: IF l_debug_on THEN
4455: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.CHECK_CONT_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
4456: END IF;
4457: --
4458: WSH_CONTAINER_ACTIONS.Check_Cont_Attributes (
4459: l_detail.delivery_detail_id,
4466: FND_MESSAGE.SET_TOKEN('DETAIL_ID',l_detail.delivery_detail_id);
4467: wsh_util_core.add_message(x_return_status,l_module_name);
4468: --
4469: IF l_debug_on THEN
4470: WSH_DEBUG_SV.pop(l_module_name);
4471: END IF;
4472: --
4473: return;
4474: END IF;
4477: /* security rule, group by attributes must be the same as the delivery's */
4478: /* Error */
4479: --
4480: IF l_debug_on THEN
4481: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.CHECK_ASSIGN_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
4482: END IF;
4483: --
4484:
4485: l_attr_tab(1).entity_id := p_delivery_id;
4505: IF (l_group_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4506: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4507: --
4508: IF l_debug_on THEN
4509: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4510: WSH_DEBUG_SV.pop(l_module_name);
4511: END IF;
4512: --
4513: RETURN;
4506: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4507: --
4508: IF l_debug_on THEN
4509: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4510: WSH_DEBUG_SV.pop(l_module_name);
4511: END IF;
4512: --
4513: RETURN;
4514: END IF;
4546:
4547: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4548: x_return_status := l_return_status;
4549: IF l_debug_on THEN
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
4551: WSH_DEBUG_SV.pop(l_module_name);
4552: END IF;
4553: RETURN;
4554: END IF;
4547: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4548: x_return_status := l_return_status;
4549: IF l_debug_on THEN
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_trip_information');
4551: WSH_DEBUG_SV.pop(l_module_name);
4552: END IF;
4553: RETURN;
4554: END IF;
4555:
4568:
4569: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4570: x_return_status := l_return_status;
4571: IF l_debug_on THEN
4572: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
4573: WSH_DEBUG_SV.pop(l_module_name);
4574: END IF;
4575: RETURN;
4576: END IF;
4569: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4570: x_return_status := l_return_status;
4571: IF l_debug_on THEN
4572: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_VALIDATIONS.get_delivery_information');
4573: WSH_DEBUG_SV.pop(l_module_name);
4574: END IF;
4575: RETURN;
4576: END IF;
4577:
4606: END IF; -- IF ((l_trip_not_found = 'N' AND
4607: END IF; -- IF (l_gc3_is_installed = 'Y'
4608:
4609: IF l_debug_on THEN
4610: WSH_DEBUG_SV.log(l_module_name, 'l_gc3_is_installed', l_gc3_is_installed);
4611: WSH_DEBUG_SV.log(l_module_name, 'l_tms_update', l_tms_update);
4612: IF (l_tms_update = 'Y') THEN
4613: WSH_DEBUG_SV.log(l_module_name, 'l_new_interface_flag_tab', l_new_interface_flag_tab(1));
4614: WSH_DEBUG_SV.log(l_module_name, 'l_tms_version_number', l_tms_version_number);
4607: END IF; -- IF (l_gc3_is_installed = 'Y'
4608:
4609: IF l_debug_on THEN
4610: WSH_DEBUG_SV.log(l_module_name, 'l_gc3_is_installed', l_gc3_is_installed);
4611: WSH_DEBUG_SV.log(l_module_name, 'l_tms_update', l_tms_update);
4612: IF (l_tms_update = 'Y') THEN
4613: WSH_DEBUG_SV.log(l_module_name, 'l_new_interface_flag_tab', l_new_interface_flag_tab(1));
4614: WSH_DEBUG_SV.log(l_module_name, 'l_tms_version_number', l_tms_version_number);
4615: END IF;
4609: IF l_debug_on THEN
4610: WSH_DEBUG_SV.log(l_module_name, 'l_gc3_is_installed', l_gc3_is_installed);
4611: WSH_DEBUG_SV.log(l_module_name, 'l_tms_update', l_tms_update);
4612: IF (l_tms_update = 'Y') THEN
4613: WSH_DEBUG_SV.log(l_module_name, 'l_new_interface_flag_tab', l_new_interface_flag_tab(1));
4614: WSH_DEBUG_SV.log(l_module_name, 'l_tms_version_number', l_tms_version_number);
4615: END IF;
4616: END IF;
4617:
4610: WSH_DEBUG_SV.log(l_module_name, 'l_gc3_is_installed', l_gc3_is_installed);
4611: WSH_DEBUG_SV.log(l_module_name, 'l_tms_update', l_tms_update);
4612: IF (l_tms_update = 'Y') THEN
4613: WSH_DEBUG_SV.log(l_module_name, 'l_new_interface_flag_tab', l_new_interface_flag_tab(1));
4614: WSH_DEBUG_SV.log(l_module_name, 'l_tms_version_number', l_tms_version_number);
4615: END IF;
4616: END IF;
4617:
4618: -- End of OTM R12 : update delivery
4638:
4639: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4640: x_return_status := l_return_status;
4641: IF l_debug_on THEN
4642: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
4643: WSH_DEBUG_SV.pop(l_module_name);
4644: END IF;
4645: RETURN;
4646: END IF;
4639: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4640: x_return_status := l_return_status;
4641: IF l_debug_on THEN
4642: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_XC_UTIL.log_otm_exception');
4643: WSH_DEBUG_SV.pop(l_module_name);
4644: END IF;
4645: RETURN;
4646: END IF;
4647: END IF;
4651: same as the delivery's */
4652: /* Error */
4653:
4654: IF l_debug_on THEN
4655: WSH_DEBUG_SV.log(l_module_name,'initial_pickup_location_id'
4656: ,l_del.initial_pickup_location_id);
4657: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id',
4658: l_detail.ship_from_location_id);
4659: WSH_DEBUG_SV.log(l_module_name,
4653:
4654: IF l_debug_on THEN
4655: WSH_DEBUG_SV.log(l_module_name,'initial_pickup_location_id'
4656: ,l_del.initial_pickup_location_id);
4657: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id',
4658: l_detail.ship_from_location_id);
4659: WSH_DEBUG_SV.log(l_module_name,
4660: 'ultimate_dropoff_location_id',
4661: l_del.ultimate_dropoff_location_id);
4655: WSH_DEBUG_SV.log(l_module_name,'initial_pickup_location_id'
4656: ,l_del.initial_pickup_location_id);
4657: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id',
4658: l_detail.ship_from_location_id);
4659: WSH_DEBUG_SV.log(l_module_name,
4660: 'ultimate_dropoff_location_id',
4661: l_del.ultimate_dropoff_location_id);
4662: WSH_DEBUG_SV.log(l_module_name,'ship_to_location_id',
4663: l_detail.ship_to_location_id);
4658: l_detail.ship_from_location_id);
4659: WSH_DEBUG_SV.log(l_module_name,
4660: 'ultimate_dropoff_location_id',
4661: l_del.ultimate_dropoff_location_id);
4662: WSH_DEBUG_SV.log(l_module_name,'ship_to_location_id',
4663: l_detail.ship_to_location_id);
4664: END IF;
4665: IF ((l_del.initial_pickup_location_id <> l_detail.ship_from_location_id)
4666: or (l_del.ultimate_dropoff_location_id <> l_detail.ship_to_location_id)
4685: l_sync_tmp_rec.delivery_id := l_detail.delivery_id;
4686: l_sync_tmp_rec.operation_type := 'PRIOR';
4687: --
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
4690: END IF;
4691: --
4692: WSH_WMS_SYNC_TMP_PKG.MERGE
4693: (
4700: --
4701: x_return_status := l_return_status;
4702: --
4703: IF l_debug_on THEN
4704: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
4705: WSH_DEBUG_SV.pop(l_module_name);
4706: END IF;
4707: --
4708: return;
4701: x_return_status := l_return_status;
4702: --
4703: IF l_debug_on THEN
4704: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
4705: WSH_DEBUG_SV.pop(l_module_name);
4706: END IF;
4707: --
4708: return;
4709: --
4735: x_return_status => x_return_status);
4736:
4737: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4738: IF l_debug_on THEN
4739: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
4740: WSH_DEBUG_SV.pop(l_module_name);
4741: END IF;
4742: return;
4743: END IF;
4736:
4737: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4738: IF l_debug_on THEN
4739: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
4740: WSH_DEBUG_SV.pop(l_module_name);
4741: END IF;
4742: return;
4743: END IF;
4744:
4777: THEN
4778: --{
4779: --
4780: IF l_debug_on THEN
4781: WSH_DEBUG_SV.log(l_module_name,'Delivery updated Freight Terms',x_dlvy_freight_terms_code);
4782: END IF;
4783: --
4784:
4785: -- OTM R12 : update delivery
4818: ) THEN -- check if wms org
4819:
4820: -- Update Cartonization ID.
4821: IF l_debug_on THEN
4822: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.update_mol_carton_group',WSH_DEBUG_SV.C_PROC_LEVEL);
4823: END IF;
4824:
4825: INV_MO_Cancel_PVT.update_mol_carton_group
4826: (p_line_id => l_detail.move_order_line_id,
4841: IF l_detail.container_flag='Y' THEN
4842: IF l_attr_flag = 'N' THEN
4843: --
4844: IF l_debug_on THEN
4845: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.UPDATE_CONT_HIERARCHY',WSH_DEBUG_SV.C_PROC_LEVEL);
4846: END IF;
4847: --
4848: WSH_CONTAINER_ACTIONS.Update_Cont_Hierarchy (
4849: NULL,
4853: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4854: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
4855: --
4856: IF l_debug_on THEN
4857: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4858: END IF;
4859: --
4860: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_detail.delivery_detail_id);
4861: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4861: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
4862: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
4863: --
4864: IF l_debug_on THEN
4865: WSH_DEBUG_SV.pop(l_module_name);
4866: END IF;
4867: --
4868: return;
4869: END IF;
4900: x_return_status => l_return_status);
4901:
4902: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
4903: IF l_debug_on THEN
4904: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
4905: END IF;
4906: raise FND_API.G_EXC_ERROR;
4907: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
4908: l_num_warnings := l_num_warnings + 1;
4912:
4913: -- J: W/V Changes
4914: -- Increment the delivery W/V by DD W/V
4915: IF l_debug_on THEN
4916: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
4917: END IF;
4918: WSH_WV_UTILS.DD_WV_Post_Process(
4919: p_delivery_detail_id => p_detail_id,
4920: p_diff_gross_wt => l_gross_wt,
4927: --
4928: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4929: WSH_UTIL_CORE.Add_Message(x_return_status);
4930: IF l_debug_on THEN
4931: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4932: WSH_DEBUG_SV.pop(l_module_name);
4933: END IF;
4934: return;
4935: END IF;
4928: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4929: WSH_UTIL_CORE.Add_Message(x_return_status);
4930: IF l_debug_on THEN
4931: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
4932: WSH_DEBUG_SV.pop(l_module_name);
4933: END IF;
4934: return;
4935: END IF;
4936:
4935: END IF;
4936:
4937: --
4938: IF l_debug_on THEN
4939: WSH_DEBUG_SV.log(l_module_name,'l_scc_unassign_from_del',
4940: l_scc_unassign_from_del);
4941: END IF;
4942:
4943: /* H integration: Pricing integration csun */
4946: l_del_tab(1) := p_delivery_id;
4947:
4948: --
4949: IF l_debug_on THEN
4950: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
4951: END IF;
4952: --
4953: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
4954: p_entity_type => 'DELIVERY',
4973:
4974:
4975: --
4976: IF l_debug_on THEN
4977: WSH_DEBUG_SV.pop(l_module_name);
4978: END IF;
4979: --
4980: EXCEPTION
4981: -- J-IB-NPARIKH-{
4984: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error,l_module_name);
4985: --
4986: IF l_debug_on
4987: THEN
4988: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
4989: END IF;
4990: -- J-IB-NPARIKH-}
4991:
4992: WHEN mark_reprice_error THEN
4995: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
4996:
4997: --
4998: IF l_debug_on THEN
4999: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5000: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
5001: END IF;
5002: --
5003: WHEN update_mol_carton_group_error THEN
4996:
4997: --
4998: IF l_debug_on THEN
4999: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5000: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
5001: END IF;
5002: --
5003: WHEN update_mol_carton_group_error THEN
5004: fnd_message.SET_name('WSH', 'WSH_MOL_CARTON_GROUP_ERROR');
5006: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5007:
5008: --
5009: IF l_debug_on THEN
5010: WSH_DEBUG_SV.logmsg(l_module_name,'update_mol_carton_group_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5011: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_mol_carton_group_error');
5012: END IF;
5013:
5014:
5007:
5008: --
5009: IF l_debug_on THEN
5010: WSH_DEBUG_SV.logmsg(l_module_name,'update_mol_carton_group_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5011: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_mol_carton_group_error');
5012: END IF;
5013:
5014:
5015: WHEN INVALID_DEL THEN
5017: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
5018: wsh_util_core.add_message(x_return_status,l_module_name);
5019: --
5020: IF l_debug_on THEN
5021: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DEL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DEL');
5023: END IF;
5024: RETURN;
5025: --
5018: wsh_util_core.add_message(x_return_status,l_module_name);
5019: --
5020: IF l_debug_on THEN
5021: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DEL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DEL');
5023: END IF;
5024: RETURN;
5025: --
5026: WHEN DEL_NOT_UPDATABLE THEN
5027: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5028: wsh_util_core.add_message(x_return_status,l_module_name);
5029: --
5030: IF l_debug_on THEN
5031: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5032: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DEL_NOT_UPDATABLE');
5033: END IF;
5034: --
5035: RETURN;
5028: wsh_util_core.add_message(x_return_status,l_module_name);
5029: --
5030: IF l_debug_on THEN
5031: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5032: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DEL_NOT_UPDATABLE');
5033: END IF;
5034: --
5035: RETURN;
5036: WHEN INVALID_DETAIL THEN
5039: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5040: wsh_util_core.add_message(x_return_status,l_module_name);
5041: --
5042: IF l_debug_on THEN
5043: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5044: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
5045: END IF;
5046: --
5047: RETURN;
5040: wsh_util_core.add_message(x_return_status,l_module_name);
5041: --
5042: IF l_debug_on THEN
5043: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_DETAIL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5044: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_DETAIL');
5045: END IF;
5046: --
5047: RETURN;
5048: WHEN DET_CONFIRMED THEN
5051: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_detail_id);
5052: wsh_util_core.add_message(x_return_status,l_module_name);
5053: --
5054: IF l_debug_on THEN
5055: WSH_DEBUG_SV.logmsg(l_module_name,'DET_CONFIRMED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5056: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DET_CONFIRMED');
5057: END IF;
5058: --
5059: RETURN;
5052: wsh_util_core.add_message(x_return_status,l_module_name);
5053: --
5054: IF l_debug_on THEN
5055: WSH_DEBUG_SV.logmsg(l_module_name,'DET_CONFIRMED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5056: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DET_CONFIRMED');
5057: END IF;
5058: --
5059: RETURN;
5060: WHEN detail_del_FROM_to_not_same THEN
5065:
5066:
5067: --
5068: IF l_debug_on THEN
5069: WSH_DEBUG_SV.logmsg(l_module_name,'DETAIL_DEL_FROM_TO_NOT_SAME exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5070: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DETAIL_DEL_FROM_TO_NOT_SAME');
5071: END IF;
5072: --
5073: RETURN;
5066:
5067: --
5068: IF l_debug_on THEN
5069: WSH_DEBUG_SV.logmsg(l_module_name,'DETAIL_DEL_FROM_TO_NOT_SAME exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5070: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DETAIL_DEL_FROM_TO_NOT_SAME');
5071: END IF;
5072: --
5073: RETURN;
5074: WHEN ship_method_not_match THEN
5076: fnd_message.SET_name('WSH', 'WSH_DET_SHIP_METHOD_NOT_MATCH');
5077: wsh_util_core.add_message(x_return_status,l_module_name);
5078: --
5079: IF l_debug_on THEN
5080: WSH_DEBUG_SV.logmsg(l_module_name,'SHIP_METHOD_NOT_MATCH exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5081: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SHIP_METHOD_NOT_MATCH');
5082: END IF;
5083: --
5084: RETURN;
5077: wsh_util_core.add_message(x_return_status,l_module_name);
5078: --
5079: IF l_debug_on THEN
5080: WSH_DEBUG_SV.logmsg(l_module_name,'SHIP_METHOD_NOT_MATCH exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5081: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SHIP_METHOD_NOT_MATCH');
5082: END IF;
5083: --
5084: RETURN;
5085: WHEN others THEN
5086: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5087: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5088: --
5089: IF l_debug_on THEN
5090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5092: END IF;
5093: --
5094: RETURN;
5087: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5088: --
5089: IF l_debug_on THEN
5090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5092: END IF;
5093: --
5094: RETURN;
5095: END Assign_Top_Detail_To_Delivery;
5118: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5119: --
5120: IF l_debug_on IS NULL
5121: THEN
5122: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5123: END IF;
5124: --
5125: IF l_debug_on THEN
5126: WSH_DEBUG_SV.push(l_module_name);
5122: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5123: END IF;
5124: --
5125: IF l_debug_on THEN
5126: WSH_DEBUG_SV.push(l_module_name);
5127: --
5128: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
5129: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5130: END IF;
5124: --
5125: IF l_debug_on THEN
5126: WSH_DEBUG_SV.push(l_module_name);
5127: --
5128: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
5129: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5130: END IF;
5131: --
5132: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5125: IF l_debug_on THEN
5126: WSH_DEBUG_SV.push(l_module_name);
5127: --
5128: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
5129: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5130: END IF;
5131: --
5132: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5133: --
5145: x_dlvy_freight_Terms_code => l_dlvy_freight_Terms_code
5146: );
5147: --
5148: IF l_debug_on THEN
5149: WSH_DEBUG_SV.pop(l_module_name);
5150: END IF;
5151: --
5152: EXCEPTION
5153: WHEN others THEN
5154: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5155: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5156: --
5157: IF l_debug_on THEN
5158: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5159: END IF;
5160: END Assign_Top_Detail_To_Delivery;
5161:
5162: -- THIS PROCEDURE IS OBSOLETE
5313: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5314: --
5315: IF l_debug_on IS NULL
5316: THEN
5317: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5318: END IF;
5319: --
5320: IF l_debug_on THEN
5321: WSH_DEBUG_SV.push(l_module_name);
5317: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5318: END IF;
5319: --
5320: IF l_debug_on THEN
5321: WSH_DEBUG_SV.push(l_module_name);
5322: --
5323: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID1',P_DETAIL_ID1);
5324: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID2',P_DETAIL_ID2);
5325: END IF;
5319: --
5320: IF l_debug_on THEN
5321: WSH_DEBUG_SV.push(l_module_name);
5322: --
5323: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID1',P_DETAIL_ID1);
5324: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID2',P_DETAIL_ID2);
5325: END IF;
5326: --
5327: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5320: IF l_debug_on THEN
5321: WSH_DEBUG_SV.push(l_module_name);
5322: --
5323: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID1',P_DETAIL_ID1);
5324: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID2',P_DETAIL_ID2);
5325: END IF;
5326: --
5327: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5328:
5341:
5342: -- J: W/V Changes
5343: IF l_del_id_for_container1.parent_delivery_detail_id = p_detail_id2 THEN
5344: IF l_debug_on THEN
5345: WSH_DEBUG_SV.logmsg(l_module_name,'Cont '||p_detail_id1||' is already assigned to '||p_detail_id2||'. Returning');
5346: WSH_DEBUG_SV.pop(l_module_name);
5347: END IF;
5348: return;
5349: END IF;
5342: -- J: W/V Changes
5343: IF l_del_id_for_container1.parent_delivery_detail_id = p_detail_id2 THEN
5344: IF l_debug_on THEN
5345: WSH_DEBUG_SV.logmsg(l_module_name,'Cont '||p_detail_id1||' is already assigned to '||p_detail_id2||'. Returning');
5346: WSH_DEBUG_SV.pop(l_module_name);
5347: END IF;
5348: return;
5349: END IF;
5350:
5357: l_wms_org := wsh_util_validate.check_wms_org(l_del_id_for_container2.organization_id);
5358: --
5359: -- K LPN CONV. rv
5360: IF l_debug_on THEN
5361: WSH_DEBUG_SV.log(l_module_name,'delivery_id 1',
5362: l_del_id_for_container1.delivery_id);
5363: WSH_DEBUG_SV.log(l_module_name,'organization_id 1',
5364: l_del_id_for_container1.organization_id);
5365: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 1',
5359: -- K LPN CONV. rv
5360: IF l_debug_on THEN
5361: WSH_DEBUG_SV.log(l_module_name,'delivery_id 1',
5362: l_del_id_for_container1.delivery_id);
5363: WSH_DEBUG_SV.log(l_module_name,'organization_id 1',
5364: l_del_id_for_container1.organization_id);
5365: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 1',
5366: l_del_id_for_container1.ship_from_location_id);
5367: WSH_DEBUG_SV.log(l_module_name,'customer_id 1',
5361: WSH_DEBUG_SV.log(l_module_name,'delivery_id 1',
5362: l_del_id_for_container1.delivery_id);
5363: WSH_DEBUG_SV.log(l_module_name,'organization_id 1',
5364: l_del_id_for_container1.organization_id);
5365: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 1',
5366: l_del_id_for_container1.ship_from_location_id);
5367: WSH_DEBUG_SV.log(l_module_name,'customer_id 1',
5368: l_del_id_for_container1.customer_id);
5369: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 1',
5363: WSH_DEBUG_SV.log(l_module_name,'organization_id 1',
5364: l_del_id_for_container1.organization_id);
5365: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 1',
5366: l_del_id_for_container1.ship_from_location_id);
5367: WSH_DEBUG_SV.log(l_module_name,'customer_id 1',
5368: l_del_id_for_container1.customer_id);
5369: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 1',
5370: l_del_id_for_container1.intmed_ship_to_location_id);
5371: WSH_DEBUG_SV.log(l_module_name,'fob_code 1',
5365: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 1',
5366: l_del_id_for_container1.ship_from_location_id);
5367: WSH_DEBUG_SV.log(l_module_name,'customer_id 1',
5368: l_del_id_for_container1.customer_id);
5369: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 1',
5370: l_del_id_for_container1.intmed_ship_to_location_id);
5371: WSH_DEBUG_SV.log(l_module_name,'fob_code 1',
5372: l_del_id_for_container1.fob_code);
5373: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 1',
5367: WSH_DEBUG_SV.log(l_module_name,'customer_id 1',
5368: l_del_id_for_container1.customer_id);
5369: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 1',
5370: l_del_id_for_container1.intmed_ship_to_location_id);
5371: WSH_DEBUG_SV.log(l_module_name,'fob_code 1',
5372: l_del_id_for_container1.fob_code);
5373: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 1',
5374: l_del_id_for_container1.freight_terms_code);
5375: WSH_DEBUG_SV.log(l_module_name,'ship_method_code 1',
5369: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 1',
5370: l_del_id_for_container1.intmed_ship_to_location_id);
5371: WSH_DEBUG_SV.log(l_module_name,'fob_code 1',
5372: l_del_id_for_container1.fob_code);
5373: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 1',
5374: l_del_id_for_container1.freight_terms_code);
5375: WSH_DEBUG_SV.log(l_module_name,'ship_method_code 1',
5376: l_del_id_for_container1.ship_method_code);
5377: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id 1',
5371: WSH_DEBUG_SV.log(l_module_name,'fob_code 1',
5372: l_del_id_for_container1.fob_code);
5373: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 1',
5374: l_del_id_for_container1.freight_terms_code);
5375: WSH_DEBUG_SV.log(l_module_name,'ship_method_code 1',
5376: l_del_id_for_container1.ship_method_code);
5377: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id 1',
5378: l_del_id_for_container1.parent_delivery_detail_id);
5379:
5373: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 1',
5374: l_del_id_for_container1.freight_terms_code);
5375: WSH_DEBUG_SV.log(l_module_name,'ship_method_code 1',
5376: l_del_id_for_container1.ship_method_code);
5377: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id 1',
5378: l_del_id_for_container1.parent_delivery_detail_id);
5379:
5380: WSH_DEBUG_SV.log(l_module_name,'delivery_id 2',
5381: l_del_id_for_container2.delivery_id);
5376: l_del_id_for_container1.ship_method_code);
5377: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id 1',
5378: l_del_id_for_container1.parent_delivery_detail_id);
5379:
5380: WSH_DEBUG_SV.log(l_module_name,'delivery_id 2',
5381: l_del_id_for_container2.delivery_id);
5382: WSH_DEBUG_SV.log(l_module_name,'organization_id 2',
5383: l_del_id_for_container2.organization_id);
5384: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 2',
5378: l_del_id_for_container1.parent_delivery_detail_id);
5379:
5380: WSH_DEBUG_SV.log(l_module_name,'delivery_id 2',
5381: l_del_id_for_container2.delivery_id);
5382: WSH_DEBUG_SV.log(l_module_name,'organization_id 2',
5383: l_del_id_for_container2.organization_id);
5384: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 2',
5385: l_del_id_for_container2.ship_from_location_id);
5386: WSH_DEBUG_SV.log(l_module_name,'customer_id 2',
5380: WSH_DEBUG_SV.log(l_module_name,'delivery_id 2',
5381: l_del_id_for_container2.delivery_id);
5382: WSH_DEBUG_SV.log(l_module_name,'organization_id 2',
5383: l_del_id_for_container2.organization_id);
5384: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 2',
5385: l_del_id_for_container2.ship_from_location_id);
5386: WSH_DEBUG_SV.log(l_module_name,'customer_id 2',
5387: l_del_id_for_container2.customer_id);
5388: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 2', l_del_id_for_container2.intmed_ship_to_location_id);
5382: WSH_DEBUG_SV.log(l_module_name,'organization_id 2',
5383: l_del_id_for_container2.organization_id);
5384: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 2',
5385: l_del_id_for_container2.ship_from_location_id);
5386: WSH_DEBUG_SV.log(l_module_name,'customer_id 2',
5387: l_del_id_for_container2.customer_id);
5388: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 2', l_del_id_for_container2.intmed_ship_to_location_id);
5389: WSH_DEBUG_SV.log(l_module_name,'fob_code 2',
5390: l_del_id_for_container2.fob_code);
5384: WSH_DEBUG_SV.log(l_module_name,'ship_from_location_id 2',
5385: l_del_id_for_container2.ship_from_location_id);
5386: WSH_DEBUG_SV.log(l_module_name,'customer_id 2',
5387: l_del_id_for_container2.customer_id);
5388: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 2', l_del_id_for_container2.intmed_ship_to_location_id);
5389: WSH_DEBUG_SV.log(l_module_name,'fob_code 2',
5390: l_del_id_for_container2.fob_code);
5391: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 2',
5392: l_del_id_for_container2.freight_terms_code);
5385: l_del_id_for_container2.ship_from_location_id);
5386: WSH_DEBUG_SV.log(l_module_name,'customer_id 2',
5387: l_del_id_for_container2.customer_id);
5388: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 2', l_del_id_for_container2.intmed_ship_to_location_id);
5389: WSH_DEBUG_SV.log(l_module_name,'fob_code 2',
5390: l_del_id_for_container2.fob_code);
5391: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 2',
5392: l_del_id_for_container2.freight_terms_code);
5393: WSH_DEBUG_SV.log(l_module_name,'ship_method_code 2',
5387: l_del_id_for_container2.customer_id);
5388: WSH_DEBUG_SV.log(l_module_name,'intmed_ship_to_location_id 2', l_del_id_for_container2.intmed_ship_to_location_id);
5389: WSH_DEBUG_SV.log(l_module_name,'fob_code 2',
5390: l_del_id_for_container2.fob_code);
5391: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 2',
5392: l_del_id_for_container2.freight_terms_code);
5393: WSH_DEBUG_SV.log(l_module_name,'ship_method_code 2',
5394: l_del_id_for_container2.ship_method_code);
5395: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id 2',
5389: WSH_DEBUG_SV.log(l_module_name,'fob_code 2',
5390: l_del_id_for_container2.fob_code);
5391: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 2',
5392: l_del_id_for_container2.freight_terms_code);
5393: WSH_DEBUG_SV.log(l_module_name,'ship_method_code 2',
5394: l_del_id_for_container2.ship_method_code);
5395: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id 2',
5396: l_del_id_for_container2.parent_delivery_detail_id);
5397: WSH_DEBUG_SV.log(l_module_name,'customer',
5391: WSH_DEBUG_SV.log(l_module_name,'freight_terms_code 2',
5392: l_del_id_for_container2.freight_terms_code);
5393: WSH_DEBUG_SV.log(l_module_name,'ship_method_code 2',
5394: l_del_id_for_container2.ship_method_code);
5395: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id 2',
5396: l_del_id_for_container2.parent_delivery_detail_id);
5397: WSH_DEBUG_SV.log(l_module_name,'customer',
5398: l_group_by_flags.customer);
5399: WSH_DEBUG_SV.log(l_module_name,'intmed',
5393: WSH_DEBUG_SV.log(l_module_name,'ship_method_code 2',
5394: l_del_id_for_container2.ship_method_code);
5395: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id 2',
5396: l_del_id_for_container2.parent_delivery_detail_id);
5397: WSH_DEBUG_SV.log(l_module_name,'customer',
5398: l_group_by_flags.customer);
5399: WSH_DEBUG_SV.log(l_module_name,'intmed',
5400: l_group_by_flags.intmed);
5401: WSH_DEBUG_SV.log(l_module_name,'fob', l_group_by_flags.fob);
5395: WSH_DEBUG_SV.log(l_module_name,'parent_delivery_detail_id 2',
5396: l_del_id_for_container2.parent_delivery_detail_id);
5397: WSH_DEBUG_SV.log(l_module_name,'customer',
5398: l_group_by_flags.customer);
5399: WSH_DEBUG_SV.log(l_module_name,'intmed',
5400: l_group_by_flags.intmed);
5401: WSH_DEBUG_SV.log(l_module_name,'fob', l_group_by_flags.fob);
5402: WSH_DEBUG_SV.log(l_module_name,'freight_terms',
5403: l_group_by_flags.freight_terms);
5397: WSH_DEBUG_SV.log(l_module_name,'customer',
5398: l_group_by_flags.customer);
5399: WSH_DEBUG_SV.log(l_module_name,'intmed',
5400: l_group_by_flags.intmed);
5401: WSH_DEBUG_SV.log(l_module_name,'fob', l_group_by_flags.fob);
5402: WSH_DEBUG_SV.log(l_module_name,'freight_terms',
5403: l_group_by_flags.freight_terms);
5404: WSH_DEBUG_SV.log(l_module_name,'ship_method',
5405: l_group_by_flags.ship_method);
5398: l_group_by_flags.customer);
5399: WSH_DEBUG_SV.log(l_module_name,'intmed',
5400: l_group_by_flags.intmed);
5401: WSH_DEBUG_SV.log(l_module_name,'fob', l_group_by_flags.fob);
5402: WSH_DEBUG_SV.log(l_module_name,'freight_terms',
5403: l_group_by_flags.freight_terms);
5404: WSH_DEBUG_SV.log(l_module_name,'ship_method',
5405: l_group_by_flags.ship_method);
5406:
5400: l_group_by_flags.intmed);
5401: WSH_DEBUG_SV.log(l_module_name,'fob', l_group_by_flags.fob);
5402: WSH_DEBUG_SV.log(l_module_name,'freight_terms',
5403: l_group_by_flags.freight_terms);
5404: WSH_DEBUG_SV.log(l_module_name,'ship_method',
5405: l_group_by_flags.ship_method);
5406:
5407: END IF;
5408:
5414: ) THEN
5415: FND_MESSAGE.SET_NAME('WSH','WSH_DET_PACK_ERROR');
5416: --
5417: IF l_debug_on THEN
5418: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5419: END IF;
5420: --
5421: FND_MESSAGE.SET_TOKEN('DET_LINE',
5422: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5421: FND_MESSAGE.SET_TOKEN('DET_LINE',
5422: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5423: --
5424: IF l_debug_on THEN
5425: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5426: END IF;
5427: --
5428: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5429: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5430: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5431: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5432: --
5433: IF l_debug_on THEN
5434: WSH_DEBUG_SV.pop(l_module_name);
5435: END IF;
5436: --
5437: return;
5438: END IF;
5455:
5456: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5457: --handle the error approriately to the procedure this code is in
5458: IF l_debug_on THEN
5459: WSH_DEBUG_SV.log(l_module_name,'error from Pre_Otm_Assign_Del_Detail');
5460: END IF;
5461: raise FND_API.G_EXC_ERROR;
5462: END IF;
5463: END IF;
5477: CLOSE check_loop;
5478: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_LOOP_NO_PACK');
5479: --
5480: IF l_debug_on THEN
5481: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5482: END IF;
5483: --
5484: FND_MESSAGE.SET_TOKEN('DETAIL_CONTAINER',
5485: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5484: FND_MESSAGE.SET_TOKEN('DETAIL_CONTAINER',
5485: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5486: --
5487: IF l_debug_on THEN
5488: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5489: END IF;
5490: --
5491: FND_MESSAGE.SET_TOKEN('PARENT_CONTAINER',
5492: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5493: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5494: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5495: --
5496: IF l_debug_on THEN
5497: WSH_DEBUG_SV.pop(l_module_name);
5498: END IF;
5499: --
5500: return;
5501: END IF;
5508: l_del_id_for_container2.organization_id) THEN
5509: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_ASSG_ORG_DIFF');
5510: --
5511: IF l_debug_on THEN
5512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5513: END IF;
5514: --
5515: FND_MESSAGE.SET_TOKEN('ENTITY1',
5516: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5515: FND_MESSAGE.SET_TOKEN('ENTITY1',
5516: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5517: --
5518: IF l_debug_on THEN
5519: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5520: END IF;
5521: --
5522: FND_MESSAGE.SET_TOKEN('ENTITY2',
5523: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5524: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5525: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5526: --
5527: IF l_debug_on THEN
5528: WSH_DEBUG_SV.pop(l_module_name);
5529: END IF;
5530: --
5531: RETURN;
5532: END IF;
5535: l_del_id_for_container2.ship_from_location_id) THEN
5536: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
5537: --
5538: IF l_debug_on THEN
5539: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5540: END IF;
5541: --
5542: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5543: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5542: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5543: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5544: --
5545: IF l_debug_on THEN
5546: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5547: END IF;
5548: --
5549: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5550: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5551: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5552: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5553: --
5554: IF l_debug_on THEN
5555: WSH_DEBUG_SV.pop(l_module_name);
5556: END IF;
5557: --
5558: RETURN;
5559: END IF;
5589: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_DIFF_IGNOREPLAN');
5590: FND_MESSAGE.SET_TOKEN('ENTITY1',nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5591: --
5592: IF l_debug_on THEN
5593: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5594: END IF;
5595: --
5596: FND_MESSAGE.SET_TOKEN('ENTITY2',nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5597: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5596: FND_MESSAGE.SET_TOKEN('ENTITY2',nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5597: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5598: --
5599: IF l_debug_on THEN
5600: WSH_DEBUG_SV.pop(l_module_name);
5601: END IF;
5602: --
5603: RETURN;
5604:
5635: IF l_display_error THEN --{
5636: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_DIFF_IGNOREPLAN');
5637: --
5638: IF l_debug_on THEN
5639: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5640: END IF;
5641: FND_MESSAGE.SET_TOKEN('ENTITY1',nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5642: --
5643: IF l_debug_on THEN
5640: END IF;
5641: FND_MESSAGE.SET_TOKEN('ENTITY1',nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5642: --
5643: IF l_debug_on THEN
5644: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5645: END IF;
5646: --
5647: FND_MESSAGE.SET_TOKEN('ENTITY2',nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5648: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5648: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5649: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5650: --
5651: IF l_debug_on THEN
5652: WSH_DEBUG_SV.pop(l_module_name);
5653: END IF;
5654: --
5655: RETURN;
5656: END IF; --}
5678: --{
5679: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
5680: --
5681: IF l_debug_on THEN
5682: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5683: END IF;
5684: --
5685: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5686: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5685: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5686: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5687: --
5688: IF l_debug_on THEN
5689: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5690: END IF;
5691: --
5692: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5693: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5695: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5696: --
5697: IF l_debug_on THEN
5698: WSH_DEBUG_SV.pop(l_module_name);
5699: END IF;
5700: --
5701: RETURN;
5702: --}
5707: -- J-IB-NPARIKH-}
5708: --
5709: --
5710: IF l_debug_on THEN
5711: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.GET_GROUP_BY_ATTR',WSH_DEBUG_SV.C_PROC_LEVEL);
5712: END IF;
5713: --
5714: WSH_DELIVERY_AUTOCREATE.get_group_by_attr(
5715: p_organization_id => l_del_id_for_container1.organization_id,
5720: x_return_status := x_return_status;
5721: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5722: --
5723: IF l_debug_on THEN
5724: WSH_DEBUG_SV.pop(l_module_name);
5725: END IF;
5726: --
5727: RETURN;
5728: END IF;
5752:
5753: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5754: --
5755: IF l_debug_on THEN
5756: WSH_DEBUG_SV.pop(l_module_name);
5757: END IF;
5758: --
5759: return;
5760: end if;
5772:
5773: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5774: --
5775: IF l_debug_on THEN
5776: WSH_DEBUG_SV.pop(l_module_name);
5777: END IF;
5778: --
5779: return;
5780: end if;
5789: l_del_id_for_container2.customer_id) THEN
5790: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
5791: --
5792: IF l_debug_on THEN
5793: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5794: END IF;
5795: --
5796: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5797: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5796: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5797: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5798: --
5799: IF l_debug_on THEN
5800: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5801: END IF;
5802: --
5803: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5804: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5804: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5805: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5806: --
5807: IF l_debug_on THEN
5808: WSH_DEBUG_SV.pop(l_module_name);
5809: END IF;
5810: --
5811: return;
5812: END IF;
5816: l_del_id_for_container2.intmed_ship_to_location_id) THEN
5817: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
5818: --
5819: IF l_debug_on THEN
5820: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5821: END IF;
5822: --
5823: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5824: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5823: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5824: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5825: --
5826: IF l_debug_on THEN
5827: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5828: END IF;
5829: --
5830: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5831: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5831: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5832: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5833: --
5834: IF l_debug_on THEN
5835: WSH_DEBUG_SV.pop(l_module_name);
5836: END IF;
5837: --
5838: return;
5839: END IF;
5843: l_del_id_for_container2.fob_code) THEN
5844: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
5845: --
5846: IF l_debug_on THEN
5847: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5848: END IF;
5849: --
5850: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5851: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5850: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5851: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5852: --
5853: IF l_debug_on THEN
5854: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5855: END IF;
5856: --
5857: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5858: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5858: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5859: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5860: --
5861: IF l_debug_on THEN
5862: WSH_DEBUG_SV.pop(l_module_name);
5863: END IF;
5864: --
5865: return;
5866: END IF;
5870: l_del_id_for_container2.freight_terms_code) THEN
5871: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
5872: --
5873: IF l_debug_on THEN
5874: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5875: END IF;
5876: --
5877: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5878: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5877: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5878: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5879: --
5880: IF l_debug_on THEN
5881: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5882: END IF;
5883: --
5884: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5885: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5885: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5886: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5887: --
5888: IF l_debug_on THEN
5889: WSH_DEBUG_SV.pop(l_module_name);
5890: END IF;
5891: --
5892: return;
5893: END IF;
5902: THEN
5903: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_DET_NOT_MATCH');
5904: --
5905: IF l_debug_on THEN
5906: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5907: END IF;
5908: --
5909: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5910: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5909: FND_MESSAGE.SET_TOKEN('DETAIL_ID',
5910: nvl(wsh_container_utilities.get_cont_name(p_detail_id1), p_detail_id1));
5911: --
5912: IF l_debug_on THEN
5913: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.GET_CONT_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5914: END IF;
5915: --
5916: FND_MESSAGE.SET_TOKEN('CONT_NAME',
5917: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5917: nvl(wsh_container_utilities.get_cont_name(p_detail_id2), p_detail_id2));
5918: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
5919: --
5920: IF l_debug_on THEN
5921: WSH_DEBUG_SV.pop(l_module_name);
5922: END IF;
5923: --
5924: return;
5925: END IF;
5942: -- The third DD_WV_Post_Process cll will increment the cont2 W/V with cont1 W/V which in turn will adjust the
5943: -- delivery W/V, if the cont2 is in a delivery.
5944: IF (l_del_id_for_container1.delivery_id is not null) THEN
5945: IF l_debug_on THEN
5946: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
5947: END IF;
5948:
5949: WSH_WV_UTILS.DD_WV_Post_Process(
5950: p_delivery_detail_id => p_detail_id1,
5958: --
5959: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5960: WSH_UTIL_CORE.Add_Message(x_return_status);
5961: IF l_debug_on THEN
5962: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
5963: WSH_DEBUG_SV.pop(l_module_name);
5964: END IF;
5965: return;
5966: END IF;
5959: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5960: WSH_UTIL_CORE.Add_Message(x_return_status);
5961: IF l_debug_on THEN
5962: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
5963: WSH_DEBUG_SV.pop(l_module_name);
5964: END IF;
5965: return;
5966: END IF;
5967:
6012: THEN
6013: --{
6014: --
6015: IF l_debug_on THEN
6016: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
6017: END IF;
6018: --
6019: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
6020: (
6027: --
6028: x_return_status := l_return_status;
6029: --
6030: IF l_debug_on THEN
6031: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6032: WSH_DEBUG_SV.pop(l_module_name);
6033: END IF;
6034: --
6035: return;
6028: x_return_status := l_return_status;
6029: --
6030: IF l_debug_on THEN
6031: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6032: WSH_DEBUG_SV.pop(l_module_name);
6033: END IF;
6034: --
6035: return;
6036: --
6067: x_return_status => l_return_status);
6068:
6069: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6070: IF l_debug_on THEN
6071: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6072: END IF;
6073: raise FND_API.G_EXC_ERROR;
6074: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6075: l_num_warnings := l_num_warnings + 1;
6086: x_return_status => x_return_status);
6087:
6088: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6089: IF l_debug_on THEN
6090: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6091: WSH_DEBUG_SV.pop(l_module_name);
6092: END IF;
6093: return;
6094: END IF;
6087:
6088: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6089: IF l_debug_on THEN
6090: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6091: WSH_DEBUG_SV.pop(l_module_name);
6092: END IF;
6093: return;
6094: END IF;
6095: l_mdc_detail_tab.delete;
6102: -- K LPN CONV. rv
6103:
6104: -- J: W/V Changes
6105: IF l_debug_on THEN
6106: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning Container to Delivery');
6107: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
6108: END IF;
6109:
6110: WSH_WV_UTILS.DD_WV_Post_Process(
6103:
6104: -- J: W/V Changes
6105: IF l_debug_on THEN
6106: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning Container to Delivery');
6107: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
6108: END IF;
6109:
6110: WSH_WV_UTILS.DD_WV_Post_Process(
6111: p_delivery_detail_id => p_detail_id2,
6119: --
6120: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6121: WSH_UTIL_CORE.Add_Message(x_return_status);
6122: IF l_debug_on THEN
6123: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6124: WSH_DEBUG_SV.pop(l_module_name);
6125: END IF;
6126: return;
6127: END IF;
6120: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6121: WSH_UTIL_CORE.Add_Message(x_return_status);
6122: IF l_debug_on THEN
6123: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6124: WSH_DEBUG_SV.pop(l_module_name);
6125: END IF;
6126: return;
6127: END IF;
6128:
6176: THEN
6177: --{
6178: --
6179: IF l_debug_on THEN
6180: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
6181: END IF;
6182: --
6183: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
6184: (
6191: --
6192: x_return_status := l_return_status;
6193: --
6194: IF l_debug_on THEN
6195: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6196: WSH_DEBUG_SV.pop(l_module_name);
6197: END IF;
6198: --
6199: return;
6192: x_return_status := l_return_status;
6193: --
6194: IF l_debug_on THEN
6195: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6196: WSH_DEBUG_SV.pop(l_module_name);
6197: END IF;
6198: --
6199: return;
6200: --
6231: x_return_status => l_return_status);
6232:
6233: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6234: IF l_debug_on THEN
6235: WSH_DEBUG_SV.log(l_module_name,'error from Post_Otm_Assign_Del_Detail');
6236: END IF;
6237: raise FND_API.G_EXC_ERROR;
6238: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6239: l_num_warnings := l_num_warnings + 1;
6249: p_detail_id_tab => l_mdc_detail_tab,
6250: x_return_status => x_return_status);
6251: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6252: IF l_debug_on THEN
6253: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6254: WSH_DEBUG_SV.pop(l_module_name);
6255: END IF;
6256: return;
6257: END IF;
6250: x_return_status => x_return_status);
6251: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6252: IF l_debug_on THEN
6253: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6254: WSH_DEBUG_SV.pop(l_module_name);
6255: END IF;
6256: return;
6257: END IF;
6258: l_mdc_detail_tab.delete;
6287: l_sync_tmp_rec.delivery_id := l_del_id_FOR_container1.delivery_id;
6288: l_sync_tmp_rec.operation_type := 'PRIOR';
6289: --
6290: IF l_debug_on THEN
6291: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
6292: END IF;
6293: --
6294: WSH_WMS_SYNC_TMP_PKG.MERGE
6295: (
6301: --
6302: x_return_status := l_return_status;
6303: --
6304: IF l_debug_on THEN
6305: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6306: WSH_DEBUG_SV.pop(l_module_name);
6307: END IF;
6308: --
6309: return;
6302: x_return_status := l_return_status;
6303: --
6304: IF l_debug_on THEN
6305: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6306: WSH_DEBUG_SV.pop(l_module_name);
6307: END IF;
6308: --
6309: return;
6310: --
6331: x_return_status => x_return_status);
6332:
6333: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6334: IF l_debug_on THEN
6335: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6336: WSH_DEBUG_SV.pop(l_module_name);
6337: END IF;
6338: return;
6339: END IF;
6332:
6333: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6334: IF l_debug_on THEN
6335: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6336: WSH_DEBUG_SV.pop(l_module_name);
6337: END IF;
6338: return;
6339: END IF;
6340:
6343: THEN
6344: --{
6345: -- J: W/V Changes
6346: IF l_debug_on THEN
6347: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
6348: END IF;
6349: WSH_WV_UTILS.DD_WV_Post_Process(
6350: p_delivery_detail_id => p_detail_id1,
6351: p_diff_gross_wt => l_del_id_for_container1.gross_weight,
6358: --
6359: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6360: WSH_UTIL_CORE.Add_Message(x_return_status);
6361: IF l_debug_on THEN
6362: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6363: WSH_DEBUG_SV.pop(l_module_name);
6364: END IF;
6365: return;
6366: END IF;
6359: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6360: WSH_UTIL_CORE.Add_Message(x_return_status);
6361: IF l_debug_on THEN
6362: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6363: WSH_DEBUG_SV.pop(l_module_name);
6364: END IF;
6365: return;
6366: END IF;
6367: --}
6383: detail_cont_name := '(' || p_detail_id1 || ')';
6384: end if;
6385:
6386: IF l_debug_on THEN
6387: WSH_DEBUG_SV.log(l_module_name,'detail_cont_name',
6388: detail_cont_name);
6389: END IF;
6390:
6391: select container_name into parent_cont_name
6393: if SQL%NOTFOUND then
6394: detail_cont_name := '(' || p_detail_id2 || ')';
6395: end if;
6396: IF l_debug_on THEN
6397: WSH_DEBUG_SV.log(l_module_name,'parent_cont_name',
6398: parent_cont_name);
6399: END IF;
6400:
6401: for c IN check_loop(p_detail_id1) loop
6411: fnd_message.set_token('PARENT_CONTAINER', parent_cont_name);
6412: wsh_util_core.add_message(x_return_status,l_module_name);
6413: --
6414: IF l_debug_on THEN
6415: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected Error has occured. Oracle Err Mesg is'||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6416: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION1 : OTHERS');
6417: END IF;
6418: --
6419: return;
6412: wsh_util_core.add_message(x_return_status,l_module_name);
6413: --
6414: IF l_debug_on THEN
6415: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected Error has occured. Oracle Err Mesg is'||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6416: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION1 : OTHERS');
6417: END IF;
6418: --
6419: return;
6420: end;
6426: when plan a delivery
6427: */
6428: --
6429: IF l_debug_on THEN
6430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
6431: WSH_DEBUG_SV.log(l_module_name,'Count of l_del_tab',l_del_tab.count);
6432: END IF;
6433: --
6434: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
6427: */
6428: --
6429: IF l_debug_on THEN
6430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
6431: WSH_DEBUG_SV.log(l_module_name,'Count of l_del_tab',l_del_tab.count);
6432: END IF;
6433: --
6434: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
6435: p_entity_type => 'DELIVERY',
6454:
6455:
6456: --
6457: IF l_debug_on THEN
6458: WSH_DEBUG_SV.pop(l_module_name);
6459: END IF;
6460: --
6461: exception
6462:
6464: WHEN FND_API.G_EXC_ERROR then
6465: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6466: --
6467: IF l_debug_on THEN
6468: WSH_DEBUG_SV.pop(l_module_name);
6469: END IF;
6470: --
6471: RETURN;
6472: -- End of OTM R12 : assign delivery detail
6476: x_return_status := l_return_status;
6477: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
6478: --
6479: IF l_debug_on THEN
6480: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6481: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
6482: END IF;
6483: --
6484: WHEN others THEN
6477: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
6478: --
6479: IF l_debug_on THEN
6480: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6481: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
6482: END IF;
6483: --
6484: WHEN others THEN
6485: if c_del_id_for_cont_or_detail%ISOPEN THEN
6491: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6492: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',l_module_name);
6493: --
6494: IF l_debug_on THEN
6495: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6497: END IF;
6498: --
6499: END Assign_Cont_To_Cont;
6492: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',l_module_name);
6493: --
6494: IF l_debug_on THEN
6495: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6497: END IF;
6498: --
6499: END Assign_Cont_To_Cont;
6500:
6709: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6710: --
6711: IF l_debug_on IS NULL
6712: THEN
6713: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6714: END IF;
6715: --
6716: IF l_debug_on THEN
6717: WSH_DEBUG_SV.push(l_module_name);
6713: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6714: END IF;
6715: --
6716: IF l_debug_on THEN
6717: WSH_DEBUG_SV.push(l_module_name);
6718: --
6719: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
6720: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
6721: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.caller',p_action_prms.caller);
6715: --
6716: IF l_debug_on THEN
6717: WSH_DEBUG_SV.push(l_module_name);
6718: --
6719: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
6720: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
6721: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.caller',p_action_prms.caller);
6722: END IF;
6723: --
6716: IF l_debug_on THEN
6717: WSH_DEBUG_SV.push(l_module_name);
6718: --
6719: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
6720: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
6721: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.caller',p_action_prms.caller);
6722: END IF;
6723: --
6724: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6717: WSH_DEBUG_SV.push(l_module_name);
6718: --
6719: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
6720: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
6721: WSH_DEBUG_SV.log(l_module_name,'p_action_prms.caller',p_action_prms.caller);
6722: END IF;
6723: --
6724: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6725: -- OTM R12
6764: END IF;
6765:
6766:
6767: IF l_debug_on THEN
6768: WSH_DEBUG_SV.log(l_module_name,'l_detail_status',
6769: l_detail_status);
6770: WSH_DEBUG_SV.log(l_module_name,'l_del1.status_code',
6771: l_del1.status_code);
6772: WSH_DEBUG_SV.log(l_module_name,'l_del1.planned_flag',
6766:
6767: IF l_debug_on THEN
6768: WSH_DEBUG_SV.log(l_module_name,'l_detail_status',
6769: l_detail_status);
6770: WSH_DEBUG_SV.log(l_module_name,'l_del1.status_code',
6771: l_del1.status_code);
6772: WSH_DEBUG_SV.log(l_module_name,'l_del1.planned_flag',
6773: l_del1.planned_flag);
6774: WSH_DEBUG_SV.log(l_module_name,'l_del1.name',
6768: WSH_DEBUG_SV.log(l_module_name,'l_detail_status',
6769: l_detail_status);
6770: WSH_DEBUG_SV.log(l_module_name,'l_del1.status_code',
6771: l_del1.status_code);
6772: WSH_DEBUG_SV.log(l_module_name,'l_del1.planned_flag',
6773: l_del1.planned_flag);
6774: WSH_DEBUG_SV.log(l_module_name,'l_del1.name',
6775: l_del1.name);
6776: WSH_DEBUG_SV.log(l_module_name,'l_del1.ignore_for_planning',
6770: WSH_DEBUG_SV.log(l_module_name,'l_del1.status_code',
6771: l_del1.status_code);
6772: WSH_DEBUG_SV.log(l_module_name,'l_del1.planned_flag',
6773: l_del1.planned_flag);
6774: WSH_DEBUG_SV.log(l_module_name,'l_del1.name',
6775: l_del1.name);
6776: WSH_DEBUG_SV.log(l_module_name,'l_del1.ignore_for_planning',
6777: l_del1.ignore_for_planning);
6778: WSH_DEBUG_SV.log(l_module_name,'l_assign.delivery_id',
6772: WSH_DEBUG_SV.log(l_module_name,'l_del1.planned_flag',
6773: l_del1.planned_flag);
6774: WSH_DEBUG_SV.log(l_module_name,'l_del1.name',
6775: l_del1.name);
6776: WSH_DEBUG_SV.log(l_module_name,'l_del1.ignore_for_planning',
6777: l_del1.ignore_for_planning);
6778: WSH_DEBUG_SV.log(l_module_name,'l_assign.delivery_id',
6779: l_assign.delivery_id);
6780: WSH_DEBUG_SV.log(l_module_name,'_assign.parent_delivery_detail_id',
6774: WSH_DEBUG_SV.log(l_module_name,'l_del1.name',
6775: l_del1.name);
6776: WSH_DEBUG_SV.log(l_module_name,'l_del1.ignore_for_planning',
6777: l_del1.ignore_for_planning);
6778: WSH_DEBUG_SV.log(l_module_name,'l_assign.delivery_id',
6779: l_assign.delivery_id);
6780: WSH_DEBUG_SV.log(l_module_name,'_assign.parent_delivery_detail_id',
6781: l_assign.parent_delivery_detail_id);
6782:
6776: WSH_DEBUG_SV.log(l_module_name,'l_del1.ignore_for_planning',
6777: l_del1.ignore_for_planning);
6778: WSH_DEBUG_SV.log(l_module_name,'l_assign.delivery_id',
6779: l_assign.delivery_id);
6780: WSH_DEBUG_SV.log(l_module_name,'_assign.parent_delivery_detail_id',
6781: l_assign.parent_delivery_detail_id);
6782:
6783: END IF;
6784:
6817: END IF; -- validate flag IS Y
6818:
6819: IF l_container_flag = 'Y' THEN --{ --bug 5100229
6820: IF l_debug_on THEN
6821: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_UTILITIES.Is_Empty',WSH_DEBUG_SV.C_PROC_LEVEL);
6822: END IF;
6823: WSH_CONTAINER_UTILITIES.Is_Empty (p_container_instance_id => p_detail_id,
6824: x_empty_flag => l_detail_is_empty_cont,
6825: x_return_status => l_return_status);
6835: l_del_tab(1) := l_assign.delivery_id;
6836:
6837: --
6838: IF l_debug_on THEN
6839: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
6840: END IF;
6841: --
6842: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
6843: p_entity_type => 'DELIVERY',
6849: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6850: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6851: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6852: IF l_debug_on THEN
6853: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required completed with warnings.');
6854: END IF;
6855:
6856: END IF;
6857: END IF;
6859:
6860: -- J: W/V Changes
6861: -- Decrement the parent W/V by DD W/V
6862: IF l_debug_on THEN
6863: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
6864: END IF;
6865: WSH_WV_UTILS.DD_WV_Post_Process(
6866: p_delivery_detail_id => p_detail_id,
6867: p_diff_gross_wt => -1 * l_gross_wt,
6875: --
6876: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6877: WSH_UTIL_CORE.Add_Message(x_return_status);
6878: IF l_debug_on THEN
6879: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6880: WSH_DEBUG_SV.pop(l_module_name);
6881: END IF;
6882: return;
6883: END IF;
6876: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6877: WSH_UTIL_CORE.Add_Message(x_return_status);
6878: IF l_debug_on THEN
6879: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
6880: WSH_DEBUG_SV.pop(l_module_name);
6881: END IF;
6882: return;
6883: END IF;
6884:
6917: END IF;
6918: -- End of OTM R12 : unassign delivery detail
6919:
6920: IF l_debug_on THEN
6921: WSH_DEBUG_SV.log(l_module_name,'l_dd_id',l_dd_id(i));
6922: -- OTM R12 : unassign delivery detail
6923: WSH_DEBUG_SV.log(l_module_name,'l_del_id',l_del_id_tbl(i));
6924: WSH_DEBUG_SV.log(l_module_name,'l_gross_weight',l_gross_weight_tbl(i));
6925: -- End of OTM R12 : unassign delivery detail
6919:
6920: IF l_debug_on THEN
6921: WSH_DEBUG_SV.log(l_module_name,'l_dd_id',l_dd_id(i));
6922: -- OTM R12 : unassign delivery detail
6923: WSH_DEBUG_SV.log(l_module_name,'l_del_id',l_del_id_tbl(i));
6924: WSH_DEBUG_SV.log(l_module_name,'l_gross_weight',l_gross_weight_tbl(i));
6925: -- End of OTM R12 : unassign delivery detail
6926: END IF;
6927: i := i+1;
6920: IF l_debug_on THEN
6921: WSH_DEBUG_SV.log(l_module_name,'l_dd_id',l_dd_id(i));
6922: -- OTM R12 : unassign delivery detail
6923: WSH_DEBUG_SV.log(l_module_name,'l_del_id',l_del_id_tbl(i));
6924: WSH_DEBUG_SV.log(l_module_name,'l_gross_weight',l_gross_weight_tbl(i));
6925: -- End of OTM R12 : unassign delivery detail
6926: END IF;
6927: i := i+1;
6928: END LOOP;
6951: l_sync_tmp_rec.delivery_id := l_del_id_tbl(j);
6952: l_sync_tmp_rec.operation_type := 'PRIOR';
6953: --
6954: IF l_debug_on THEN
6955: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
6956: END IF;
6957: --
6958: WSH_WMS_SYNC_TMP_PKG.MERGE
6959: (
6965: --
6966: x_return_status := l_return_status;
6967: --
6968: IF l_debug_on THEN
6969: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6970: WSH_DEBUG_SV.pop(l_module_name);
6971: END IF;
6972: --
6973: return;
6966: x_return_status := l_return_status;
6967: --
6968: IF l_debug_on THEN
6969: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
6970: WSH_DEBUG_SV.pop(l_module_name);
6971: END IF;
6972: --
6973: return;
6974: --
7009: x_return_status => x_return_status);
7010:
7011: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7012: IF l_debug_on THEN
7013: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7014: WSH_DEBUG_SV.pop(l_module_name);
7015: END IF;
7016: return;
7017: END IF;
7010:
7011: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7012: IF l_debug_on THEN
7013: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7014: WSH_DEBUG_SV.pop(l_module_name);
7015: END IF;
7016: return;
7017: END IF;
7018:
7016: return;
7017: END IF;
7018:
7019: IF l_debug_on THEN
7020: WSH_DEBUG_SV.log(l_module_name,'Updating for detail id',l_dd_id(j));
7021: END IF;
7022:
7023:
7024: -- J-IB-NPARIKH-{
7030: l_ib_upd_flag := 'N';
7031: END IF;
7032: --
7033: IF l_debug_on THEN
7034: WSH_DEBUG_SV.log(l_module_name,'l_ib_upd_flag',l_ib_upd_flag);
7035: END IF;
7036: --
7037: -- J-IB-NPARIKH-}
7038:
7054: l_sync_tmp_rec.delivery_detail_id := l_dd_id(j);
7055: l_sync_tmp_rec.operation_type := 'UPDATE';
7056: --
7057: IF l_debug_on THEN
7058: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
7059: END IF;
7060: --
7061: WSH_WMS_SYNC_TMP_PKG.MERGE
7062: (
7068: --
7069: x_return_status := l_return_status;
7070: --
7071: IF l_debug_on THEN
7072: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7073: WSH_DEBUG_SV.pop(l_module_name);
7074: END IF;
7075: --
7076: return;
7069: x_return_status := l_return_status;
7070: --
7071: IF l_debug_on THEN
7072: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7073: WSH_DEBUG_SV.pop(l_module_name);
7074: END IF;
7075: --
7076: return;
7077: --
7139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7140: RAISE NO_DATA_FOUND;
7141: END IF;
7142: IF l_debug_on THEN
7143: WSH_DEBUG_SV.log(l_module_name,'Rel Status after the update is ', l_rel_status);
7144: END IF;
7145:
7146: -- released_status = DECODE(released_status,'D','D',
7147: -- nvl(shipped_quantity,picked_quantity,requested_quantity),0,'D',
7169: FETCH c_grouping_id into l_carton_grouping_id;
7170: CLOSE c_grouping_id;
7171:
7172: IF l_debug_on THEN
7173: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.update_mol_carton_group',WSH_DEBUG_SV.C_PROC_LEVEL);
7174: END IF;
7175:
7176: INV_MO_Cancel_PVT.update_mol_carton_group(
7177: x_return_status => x_return_status,
7207:
7208: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
7209: --handle the error approriately to the procedure this code is in
7210: IF l_debug_on THEN
7211: WSH_DEBUG_SV.log(l_module_name,'error from wsh_new_delivery_actions.is_delivery_empty');
7212: END IF;
7213: raise FND_API.G_EXC_ERROR;
7214: ELSIF (l_is_delivery_empty = 'Y') THEN
7215: l_interface_flag_tab(1) := WSH_NEW_DELIVERIES_PVT.C_TMS_DELETE_REQUIRED;
7233:
7234: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
7235: x_return_status := l_return_status;
7236: IF l_debug_on THEN
7237: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7238: WSH_DEBUG_SV.pop(l_module_name);
7239: END IF;
7240: RETURN;
7241: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7234: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
7235: x_return_status := l_return_status;
7236: IF l_debug_on THEN
7237: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG '||l_return_status);
7238: WSH_DEBUG_SV.pop(l_module_name);
7239: END IF;
7240: RETURN;
7241: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7242: l_num_warnings := l_num_warnings + 1;
7249: -- DBI Project
7250: -- Update of wsh_delivery_details, call DBI API after the action.
7251: -- This API will also check for DBI Installed or not
7252: IF l_debug_on THEN
7253: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail count-',l_detail_tab.count);
7254: END IF;
7255: WSH_INTEGRATION.DBI_Update_Detail_Log
7256: (p_delivery_detail_id_tab => l_detail_tab,
7257: p_dml_type => 'UPDATE',
7257: p_dml_type => 'UPDATE',
7258: x_return_status => l_dbi_rs);
7259:
7260: IF l_debug_on THEN
7261: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
7262: END IF;
7263: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
7264: x_return_status := l_dbi_rs;
7265: -- just pass this return status to caller API
7265: -- just pass this return status to caller API
7266: ROLLBACK TO before_unassign;
7267: --
7268: IF l_debug_on THEN
7269: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API call failed',x_return_status);
7270: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DBI API FAILED');
7271: END IF;
7272: RETURN;
7273: END IF;
7266: ROLLBACK TO before_unassign;
7267: --
7268: IF l_debug_on THEN
7269: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API call failed',x_return_status);
7270: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DBI API FAILED');
7271: END IF;
7272: RETURN;
7273: END IF;
7274: -- End of Code for DBI Project
7282: fetch l_parent_cnt_csr into l_parent_cnt_orgn_id, l_parent_cnt_line_dir;
7283: close l_parent_cnt_csr;
7284: --
7285: IF l_debug_on THEN
7286: WSH_DEBUG_SV.log(l_module_name,' parent cnt orgn id is', l_parent_cnt_orgn_id);
7287: WSH_DEBUG_SV.log(l_module_name,' parent cnt line dir is', l_parent_cnt_line_dir);
7288: END IF;
7289: --
7290: l_wms_org := wsh_util_validate.check_wms_org(l_parent_cnt_orgn_id);
7283: close l_parent_cnt_csr;
7284: --
7285: IF l_debug_on THEN
7286: WSH_DEBUG_SV.log(l_module_name,' parent cnt orgn id is', l_parent_cnt_orgn_id);
7287: WSH_DEBUG_SV.log(l_module_name,' parent cnt line dir is', l_parent_cnt_line_dir);
7288: END IF;
7289: --
7290: l_wms_org := wsh_util_validate.check_wms_org(l_parent_cnt_orgn_id);
7291: --
7306: l_sync_tmp_rec.delivery_id := l_assign.delivery_id;
7307: l_sync_tmp_rec.operation_type := 'PRIOR';
7308: --
7309: IF l_debug_on THEN
7310: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE',WSH_DEBUG_SV.C_PROC_LEVEL);
7311: END IF;
7312: --
7313: WSH_WMS_SYNC_TMP_PKG.MERGE
7314: (
7320: --
7321: x_return_status := l_return_status;
7322: --
7323: IF l_debug_on THEN
7324: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7325: WSH_DEBUG_SV.pop(l_module_name);
7326: END IF;
7327: --
7328: return;
7321: x_return_status := l_return_status;
7322: --
7323: IF l_debug_on THEN
7324: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7325: WSH_DEBUG_SV.pop(l_module_name);
7326: END IF;
7327: --
7328: return;
7329: --
7361: x_return_status => x_return_status);
7362:
7363: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7364: IF l_debug_on THEN
7365: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7366: WSH_DEBUG_SV.pop(l_module_name);
7367: END IF;
7368: return;
7369: END IF;
7362:
7363: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7364: IF l_debug_on THEN
7365: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
7366: WSH_DEBUG_SV.pop(l_module_name);
7367: END IF;
7368: return;
7369: END IF;
7370:
7376:
7377: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
7378: THEN
7379: IF l_debug_on THEN
7380: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SHIPPING_PARAMS_PVT.Get returned '||l_return_status);
7381: END IF;
7382: RAISE get_shipping_param_err;
7383: END IF;
7384:
7399:
7400: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
7401: THEN
7402: IF l_debug_on THEN
7403: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.ADJUST_PARENT_WV returned '||l_return_status);
7404: END IF;
7405: RAISE adjust_parent_wv_err;
7406: END IF;
7407:
7426: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7427: END IF;
7428: END IF;
7429: IF l_debug_on THEN
7430: WSH_DEBUG_SV.log(l_module_name,'Remove_FTE_Freight_Costs completed returns with status: ' ||
7431: l_return_status);
7432: END IF;
7433:
7434: NULL;
7449:
7450:
7451: --
7452: IF l_debug_on THEN
7453: WSH_DEBUG_SV.pop(l_module_name);
7454: END IF;
7455: --
7456: EXCEPTION
7457: WHEN mark_reprice_error THEN
7460: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7461: ROLLBACK TO before_unassign;
7462: --
7463: IF l_debug_on THEN
7464: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7465: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
7466: END IF;
7467: --
7468: WHEN detail_not_assigned THEN
7461: ROLLBACK TO before_unassign;
7462: --
7463: IF l_debug_on THEN
7464: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7465: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
7466: END IF;
7467: --
7468: WHEN detail_not_assigned THEN
7469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7471: wsh_util_core.add_message(x_return_status,l_module_name);
7472: ROLLBACK TO before_unassign;
7473: --
7474: IF l_debug_on THEN
7475: WSH_DEBUG_SV.logmsg(l_module_name,'DETAIL_NOT_ASSIGNED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7476: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DETAIL_NOT_ASSIGNED');
7477: END IF;
7478: --
7479: WHEN del_not_updatable THEN
7472: ROLLBACK TO before_unassign;
7473: --
7474: IF l_debug_on THEN
7475: WSH_DEBUG_SV.logmsg(l_module_name,'DETAIL_NOT_ASSIGNED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7476: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DETAIL_NOT_ASSIGNED');
7477: END IF;
7478: --
7479: WHEN del_not_updatable THEN
7480: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7481: wsh_util_core.add_message(x_return_status,l_module_name);
7482: ROLLBACK TO before_unassign;
7483: --
7484: IF l_debug_on THEN
7485: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7486: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DEL_NOT_UPDATABLE');
7487: END IF;
7488: --
7489: WHEN update_mol_carton_group_error THEN
7482: ROLLBACK TO before_unassign;
7483: --
7484: IF l_debug_on THEN
7485: WSH_DEBUG_SV.logmsg(l_module_name,'DEL_NOT_UPDATABLE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7486: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DEL_NOT_UPDATABLE');
7487: END IF;
7488: --
7489: WHEN update_mol_carton_group_error THEN
7490: fnd_message.SET_name('WSH', 'WSH_MOL_CARTON_GROUP_ERROR');
7492: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7493:
7494: --
7495: IF l_debug_on THEN
7496: WSH_DEBUG_SV.logmsg(l_module_name,'update_mol_carton_group_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7497: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_mol_carton_group_error');
7498: END IF;
7499:
7500: WHEN check_ship_set_failed THEN
7493:
7494: --
7495: IF l_debug_on THEN
7496: WSH_DEBUG_SV.logmsg(l_module_name,'update_mol_carton_group_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7497: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_mol_carton_group_error');
7498: END IF;
7499:
7500: WHEN check_ship_set_failed THEN
7501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7502:
7503: --
7504: IF l_debug_on THEN
7505: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SHIP_SET_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7506: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SHIP_SET_FAILED');
7507: END IF;
7508: --
7509: WHEN check_smc_failed THEN
7502:
7503: --
7504: IF l_debug_on THEN
7505: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SHIP_SET_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7506: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SHIP_SET_FAILED');
7507: END IF;
7508: --
7509: WHEN check_smc_failed THEN
7510: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7509: WHEN check_smc_failed THEN
7510: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7511: --
7512: IF l_debug_on THEN
7513: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SMC_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7514: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
7515: END IF;
7516: --
7517: WHEN remove_FC_error THEN
7510: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7511: --
7512: IF l_debug_on THEN
7513: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SMC_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7514: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
7515: END IF;
7516: --
7517: WHEN remove_FC_error THEN
7518: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7517: WHEN remove_FC_error THEN
7518: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7519: --
7520: IF l_debug_on THEN
7521: WSH_DEBUG_SV.logmsg(l_module_name,'Remove_FTE_Freight_Costs failed.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7522: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REMOVE_FC_ERROR');
7523: END IF;
7524: --
7525: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
7518: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7519: --
7520: IF l_debug_on THEN
7521: WSH_DEBUG_SV.logmsg(l_module_name,'Remove_FTE_Freight_Costs failed.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7522: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REMOVE_FC_ERROR');
7523: END IF;
7524: --
7525: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
7526: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
7534: wsh_util_core.add_message(x_return_status,l_module_name);
7535: ROLLBACK TO before_unassign;
7536: --
7537: IF l_debug_on THEN
7538: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to get Shipping Parameters',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_SHIPPING_PARAM_ERR');
7540: END IF;
7541:
7542: WHEN adjust_parent_wv_err THEN
7535: ROLLBACK TO before_unassign;
7536: --
7537: IF l_debug_on THEN
7538: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to get Shipping Parameters',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_SHIPPING_PARAM_ERR');
7540: END IF;
7541:
7542: WHEN adjust_parent_wv_err THEN
7543: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7547:
7548: ROLLBACK TO before_unassign;
7549: --
7550: IF l_debug_on THEN
7551: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to adjust the weight and volume of parent container '||to_char(l_assign.parent_delivery_detail_id),WSH_DEBUG_SV.C_EXCEP_LEVEL);
7552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ADJUST_PARENT_WV_ERR');
7553: END IF;
7554:
7555: WHEN others THEN
7548: ROLLBACK TO before_unassign;
7549: --
7550: IF l_debug_on THEN
7551: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to adjust the weight and volume of parent container '||to_char(l_assign.parent_delivery_detail_id),WSH_DEBUG_SV.C_EXCEP_LEVEL);
7552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ADJUST_PARENT_WV_ERR');
7553: END IF;
7554:
7555: WHEN others THEN
7556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7559:
7560:
7561: --
7562: IF l_debug_on THEN
7563: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7564: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7565: END IF;
7566: --
7567: END Unassign_Detail_FROM_Delivery;
7560:
7561: --
7562: IF l_debug_on THEN
7563: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7564: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7565: END IF;
7566: --
7567: END Unassign_Detail_FROM_Delivery;
7568:
7594: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7595: --
7596: IF l_debug_on IS NULL
7597: THEN
7598: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7599: END IF;
7600: --
7601: IF l_debug_on THEN
7602: WSH_DEBUG_SV.push(l_module_name);
7598: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7599: END IF;
7600: --
7601: IF l_debug_on THEN
7602: WSH_DEBUG_SV.push(l_module_name);
7603: --
7604: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
7605: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7606: END IF;
7600: --
7601: IF l_debug_on THEN
7602: WSH_DEBUG_SV.push(l_module_name);
7603: --
7604: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
7605: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7606: END IF;
7607: --
7608: IF l_debug_on THEN
7601: IF l_debug_on THEN
7602: WSH_DEBUG_SV.push(l_module_name);
7603: --
7604: WSH_DEBUG_SV.log(l_module_name,'P_DETAIL_ID',P_DETAIL_ID);
7605: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7606: END IF;
7607: --
7608: IF l_debug_on THEN
7609: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
7605: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7606: END IF;
7607: --
7608: IF l_debug_on THEN
7609: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
7610: END IF;
7611: UNASSIGN_DETAIL_FROM_DELIVERY (p_detail_id,
7612: x_return_status,
7613: p_validate_flag,
7613: p_validate_flag,
7614: l_action_prms);
7615: --
7616: IF l_debug_on THEN
7617: WSH_DEBUG_SV.pop(l_module_name);
7618: END IF;
7619: --
7620: EXCEPTION
7621: WHEN others THEN
7622: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7623: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7624: --
7625: IF l_debug_on THEN
7626: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7627: END IF;
7628: --
7629: END Unassign_Detail_FROM_Delivery;
7630:
7714: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7715: --
7716: IF l_debug_on IS NULL
7717: THEN
7718: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7719: END IF;
7720: --
7721: IF l_debug_on THEN
7722: WSH_DEBUG_SV.push(l_module_name);
7718: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7719: END IF;
7720: --
7721: IF l_debug_on THEN
7722: WSH_DEBUG_SV.push(l_module_name);
7723: --
7724: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DELIVERY',P_FROM_DELIVERY);
7725: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
7726: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7720: --
7721: IF l_debug_on THEN
7722: WSH_DEBUG_SV.push(l_module_name);
7723: --
7724: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DELIVERY',P_FROM_DELIVERY);
7725: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
7726: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7727: END IF;
7728: --
7721: IF l_debug_on THEN
7722: WSH_DEBUG_SV.push(l_module_name);
7723: --
7724: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DELIVERY',P_FROM_DELIVERY);
7725: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
7726: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7727: END IF;
7728: --
7729: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7722: WSH_DEBUG_SV.push(l_module_name);
7723: --
7724: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DELIVERY',P_FROM_DELIVERY);
7725: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
7726: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7727: END IF;
7728: --
7729: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7730:
7738: OPEN c_multi_assign_rec(p_rec_of_detail_ids(i));
7739: FETCH c_multi_assign_rec INTO l_multi_assign_rec;
7740:
7741: IF l_debug_on THEN
7742: WSH_DEBUG_SV.log(l_module_name,'p_rec_of_detail_ids',
7743: p_rec_of_detail_ids(i));
7744: END IF;
7745:
7746: IF (c_multi_assign_rec%NOTFOUND) THEN
7768: -- J-IB-NPARIKH-{
7769: --
7770: --
7771: IF l_debug_on THEN
7772: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_Cached_value',WSH_DEBUG_SV.C_PROC_LEVEL);
7773: END IF;
7774: --
7775: -- Build a cache of uniqye delivery IDs , from which lines are being unassigned
7776: --
7826: IF NVL(p_action_prms.caller,'!!!!') NOT LIKE WSH_UTIL_CORE.C_IB_RECEIPT_PREFIX || '%' -- J-IB-NPARIKH
7827: THEN
7828: --{
7829: IF l_debug_on THEN
7830: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.calculate_cont_del_tpdates',WSH_DEBUG_SV.C_PROC_LEVEL);
7831: END IF;
7832:
7833: l_del_tab(1) := l_dlvy_tbl(l_index).value;
7834: WSH_TP_RELEASE.calculate_cont_del_tpdates(
7850: p_event => 'oracle.apps.fte.delivery.ib.pocancelled' ,
7851: p_organization_id => l_org_id,
7852: x_return_status => l_wf_rs ) ;
7853: IF l_debug_on THEN
7854: WSH_DEBUG_SV.log(l_module_name,'Delivery ID is ', l_del_id );
7855: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
7856: END IF;
7857: --Done Raise Event: Pick To Pod Workflow
7858: END IF;
7851: p_organization_id => l_org_id,
7852: x_return_status => l_wf_rs ) ;
7853: IF l_debug_on THEN
7854: WSH_DEBUG_SV.log(l_module_name,'Delivery ID is ', l_del_id );
7855: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
7856: END IF;
7857: --Done Raise Event: Pick To Pod Workflow
7858: END IF;
7859: CLOSE c_empty_delivery;
7862: END IF;
7863:
7864: --
7865: IF l_debug_on THEN
7866: WSH_DEBUG_SV.log(l_module_name,'l_dlvy_tbl(l_index).value',l_dlvy_tbl(l_index).value);
7867: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.update_freight_terms',WSH_DEBUG_SV.C_PROC_LEVEL);
7868: END IF;
7869: --
7870: WSH_NEW_DELIVERY_ACTIONS.update_freight_terms
7863:
7864: --
7865: IF l_debug_on THEN
7866: WSH_DEBUG_SV.log(l_module_name,'l_dlvy_tbl(l_index).value',l_dlvy_tbl(l_index).value);
7867: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.update_freight_terms',WSH_DEBUG_SV.C_PROC_LEVEL);
7868: END IF;
7869: --
7870: WSH_NEW_DELIVERY_ACTIONS.update_freight_terms
7871: (
7899: THEN
7900: --{
7901:
7902: IF l_debug_on THEN
7903: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.calculate_cont_del_tpdates',WSH_DEBUG_SV.C_PROC_LEVEL);
7904: END IF;
7905: l_del_tab(1) := l_dlvy_ext_tbl(l_index).value;
7906: WSH_TP_RELEASE.calculate_cont_del_tpdates(
7907: p_entity => 'DLVY',
7921: p_event => 'oracle.apps.fte.delivery.ib.pocancelled' ,
7922: p_organization_id => l_org_id,
7923: x_return_status => l_wf_rs ) ;
7924: IF l_debug_on THEN
7925: WSH_DEBUG_SV.log(l_module_name,'Delivery ID is ', l_del_id );
7926: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
7927: END IF;
7928: --Done Raise Event: Pick To Pod Workflow
7929: END IF;
7922: p_organization_id => l_org_id,
7923: x_return_status => l_wf_rs ) ;
7924: IF l_debug_on THEN
7925: WSH_DEBUG_SV.log(l_module_name,'Delivery ID is ', l_del_id );
7926: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
7927: END IF;
7928: --Done Raise Event: Pick To Pod Workflow
7929: END IF;
7930: CLOSE c_empty_delivery;
7931: END IF;*/
7932: END IF;
7933:
7934: IF l_debug_on THEN
7935: WSH_DEBUG_SV.log(l_module_name,'l_dlvy_ext_tbl(l_index).value',l_dlvy_ext_tbl(l_index).value);
7936: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.update_freight_terms',WSH_DEBUG_SV.C_PROC_LEVEL);
7937: END IF;
7938: --
7939: WSH_NEW_DELIVERY_ACTIONS.update_freight_terms
7932: END IF;
7933:
7934: IF l_debug_on THEN
7935: WSH_DEBUG_SV.log(l_module_name,'l_dlvy_ext_tbl(l_index).value',l_dlvy_ext_tbl(l_index).value);
7936: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.update_freight_terms',WSH_DEBUG_SV.C_PROC_LEVEL);
7937: END IF;
7938: --
7939: WSH_NEW_DELIVERY_ACTIONS.update_freight_terms
7940: (
7960: -- J-IB-NPARIKH-}
7961:
7962: END IF;
7963: IF l_debug_on THEN
7964: WSH_DEBUG_SV.log(l_module_name,'l_num_errors', l_num_errors);
7965: WSH_DEBUG_SV.log(l_module_name,'l_num_warnings', l_num_warnings);
7966: END IF;
7967:
7968: IF (p_from_container = 'Y') THEN
7961:
7962: END IF;
7963: IF l_debug_on THEN
7964: WSH_DEBUG_SV.log(l_module_name,'l_num_errors', l_num_errors);
7965: WSH_DEBUG_SV.log(l_module_name,'l_num_warnings', l_num_warnings);
7966: END IF;
7967:
7968: IF (p_from_container = 'Y') THEN
7969: FOR i in p_rec_of_detail_ids.FIRST .. p_rec_of_detail_ids.LAST
7970: LOOP
7971: OPEN c_multi_assign_rec(p_rec_of_detail_ids(i));
7972: FETCH c_multi_assign_rec INTO l_multi_assign_rec;
7973: IF l_debug_on THEN
7974: WSH_DEBUG_SV.log(l_module_name,'p_rec_of_detail_ids'
7975: ,p_rec_of_detail_ids(i));
7976: WSH_DEBUG_SV.log(l_module_name,'l_multi_assign_rec',
7977: l_multi_assign_rec.delivery_id);
7978: END IF;
7972: FETCH c_multi_assign_rec INTO l_multi_assign_rec;
7973: IF l_debug_on THEN
7974: WSH_DEBUG_SV.log(l_module_name,'p_rec_of_detail_ids'
7975: ,p_rec_of_detail_ids(i));
7976: WSH_DEBUG_SV.log(l_module_name,'l_multi_assign_rec',
7977: l_multi_assign_rec.delivery_id);
7978: END IF;
7979: IF (c_multi_assign_rec%NOTFOUND) THEN
7980: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8006:
8007: END IF;
8008:
8009: IF l_debug_on THEN
8010: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.calculate_cont_del_tpdates',WSH_DEBUG_SV.C_PROC_LEVEL);
8011: END IF;
8012: l_del_tab(1) := l_multi_assign_rec.parent_delivery_detail_id;
8013: WSH_TP_RELEASE.calculate_cont_del_tpdates(
8014: p_entity => 'DLVB',
8025: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8026: THEN
8027: --{
8028: IF l_debug_on THEN
8029: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
8030: END IF;
8031:
8032: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8033: (
8037: );
8038: --
8039: --
8040: IF l_debug_on THEN
8041: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8042: END IF;
8043: --
8044: --
8045: WSH_UTIL_CORE.API_POST_CALL
8060: ELSIF (l_num_warnings > 0 OR l_num_errors>0) THEN
8061: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8062: END IF;
8063: IF l_debug_on THEN
8064: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
8065: WSH_DEBUG_SV.log(l_module_name,'l_num_warnings',l_num_warnings);
8066: WSH_DEBUG_SV.log(l_module_name,'l_num_errors',l_num_errors);
8067: WSH_DEBUG_SV.pop(l_module_name);
8068: END IF;
8061: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8062: END IF;
8063: IF l_debug_on THEN
8064: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
8065: WSH_DEBUG_SV.log(l_module_name,'l_num_warnings',l_num_warnings);
8066: WSH_DEBUG_SV.log(l_module_name,'l_num_errors',l_num_errors);
8067: WSH_DEBUG_SV.pop(l_module_name);
8068: END IF;
8069:
8062: END IF;
8063: IF l_debug_on THEN
8064: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
8065: WSH_DEBUG_SV.log(l_module_name,'l_num_warnings',l_num_warnings);
8066: WSH_DEBUG_SV.log(l_module_name,'l_num_errors',l_num_errors);
8067: WSH_DEBUG_SV.pop(l_module_name);
8068: END IF;
8069:
8070: EXCEPTION
8063: IF l_debug_on THEN
8064: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
8065: WSH_DEBUG_SV.log(l_module_name,'l_num_warnings',l_num_warnings);
8066: WSH_DEBUG_SV.log(l_module_name,'l_num_errors',l_num_errors);
8067: WSH_DEBUG_SV.pop(l_module_name);
8068: END IF;
8069:
8070: EXCEPTION
8071: -- J-IB-NPARIKH-{
8077: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8078: THEN
8079: --{
8080: IF l_debug_on THEN
8081: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
8082: END IF;
8083: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8084: (
8085: p_in_rec => l_lpn_in_sync_comm_rec,
8088: );
8089: --
8090: --
8091: IF l_debug_on THEN
8092: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8093: END IF;
8094: --
8095: --
8096: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8103: -- K LPN CONV. rv
8104: --
8105: --
8106: IF l_debug_on THEN
8107: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
8108: END IF;
8109: --
8110: WHEN fnd_api.g_exc_unexpected_error THEN
8111: x_return_status := fnd_api.g_ret_sts_unexp_error;
8116: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8117: THEN
8118: --{
8119: IF l_debug_on THEN
8120: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
8121: END IF;
8122:
8123: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8124: (
8128: );
8129: --
8130: --
8131: IF l_debug_on THEN
8132: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8133: END IF;
8134: --
8135: --
8136: --
8139: --
8140: -- K LPN CONV. rv
8141: --
8142: IF l_debug_on THEN
8143: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8144: END IF;
8145: --
8146:
8147: -- J-IB-NPARIKH-}
8154: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8155: THEN
8156: --{
8157: IF l_debug_on THEN
8158: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
8159: END IF;
8160:
8161: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8162: (
8166: );
8167: --
8168: --
8169: IF l_debug_on THEN
8170: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8171: END IF;
8172: --
8173: --
8174: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8180: --
8181: -- K LPN CONV. rv
8182: --
8183: IF l_debug_on THEN
8184: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SHIP_SET_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8185: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SHIP_SET_FAILED');
8186: END IF;
8187: --
8188: WHEN check_smc_failed THEN
8181: -- K LPN CONV. rv
8182: --
8183: IF l_debug_on THEN
8184: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SHIP_SET_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8185: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SHIP_SET_FAILED');
8186: END IF;
8187: --
8188: WHEN check_smc_failed THEN
8189: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8193: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8194: THEN
8195: --{
8196: IF l_debug_on THEN
8197: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
8198: END IF;
8199:
8200: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8201: (
8205: );
8206: --
8207: --
8208: IF l_debug_on THEN
8209: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8210: END IF;
8211: --
8212: --
8213: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8220: -- K LPN CONV. rv
8221: --
8222: --
8223: IF l_debug_on THEN
8224: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SMC_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
8226: END IF;
8227: --
8228: WHEN others THEN
8221: --
8222: --
8223: IF l_debug_on THEN
8224: WSH_DEBUG_SV.logmsg(l_module_name,'CHECK_SMC_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHECK_SMC_FAILED');
8226: END IF;
8227: --
8228: WHEN others THEN
8229: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8229: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8230: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8231: --
8232: IF l_debug_on THEN
8233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8234: END IF;
8235: --
8236: --
8237: -- K LPN CONV. rv
8239: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
8240: THEN
8241: --{
8242: IF l_debug_on THEN
8243: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
8244: END IF;
8245:
8246: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
8247: (
8251: );
8252: --
8253: --
8254: IF l_debug_on THEN
8255: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
8256: END IF;
8257: --
8258: --
8259: --}
8263: --
8264:
8265: --
8266: IF l_debug_on THEN
8267: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8268: END IF;
8269: --
8270: END Unassign_Multiple_Details;
8271:
8295: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8296: --
8297: IF l_debug_on IS NULL
8298: THEN
8299: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8300: END IF;
8301: --
8302: IF l_debug_on THEN
8303: WSH_DEBUG_SV.push(l_module_name);
8299: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8300: END IF;
8301: --
8302: IF l_debug_on THEN
8303: WSH_DEBUG_SV.push(l_module_name);
8304: --
8305: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DELIVERY',P_FROM_DELIVERY);
8306: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
8307: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
8301: --
8302: IF l_debug_on THEN
8303: WSH_DEBUG_SV.push(l_module_name);
8304: --
8305: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DELIVERY',P_FROM_DELIVERY);
8306: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
8307: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
8308: END IF;
8309: --
8302: IF l_debug_on THEN
8303: WSH_DEBUG_SV.push(l_module_name);
8304: --
8305: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DELIVERY',P_FROM_DELIVERY);
8306: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
8307: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
8308: END IF;
8309: --
8310: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8303: WSH_DEBUG_SV.push(l_module_name);
8304: --
8305: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DELIVERY',P_FROM_DELIVERY);
8306: WSH_DEBUG_SV.log(l_module_name,'P_FROM_CONTAINER',P_FROM_CONTAINER);
8307: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
8308: END IF;
8309: --
8310: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8311: --
8309: --
8310: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8311: --
8312: IF l_debug_on THEN
8313: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
8314: END IF;
8315: --
8316: UNASSIGN_MULTIPLE_DETAILS
8317: (
8323: , l_action_prms
8324: );
8325:
8326: IF l_debug_on THEN
8327: WSH_DEBUG_SV.pop(l_module_name);
8328: END IF;
8329:
8330: EXCEPTION
8331: WHEN others THEN
8332: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8333: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8334: --
8335: IF l_debug_on THEN
8336: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8337: END IF;
8338: --
8339: END Unassign_Multiple_Details;
8340:
8402: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8403: --
8404: IF l_debug_on IS NULL
8405: THEN
8406: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8407: END IF;
8408: --
8409: IF l_debug_on THEN
8410: WSH_DEBUG_SV.push(l_module_name);
8406: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8407: END IF;
8408: --
8409: IF l_debug_on THEN
8410: WSH_DEBUG_SV.push(l_module_name);
8411: --
8412: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8413: WSH_DEBUG_SV.log(l_module_name,'P_CONT_INS_ID',P_CONT_INS_ID);
8414: END IF;
8408: --
8409: IF l_debug_on THEN
8410: WSH_DEBUG_SV.push(l_module_name);
8411: --
8412: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8413: WSH_DEBUG_SV.log(l_module_name,'P_CONT_INS_ID',P_CONT_INS_ID);
8414: END IF;
8415: --
8416: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8409: IF l_debug_on THEN
8410: WSH_DEBUG_SV.push(l_module_name);
8411: --
8412: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8413: WSH_DEBUG_SV.log(l_module_name,'P_CONT_INS_ID',P_CONT_INS_ID);
8414: END IF;
8415: --
8416: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8417: l_del_tab.delete;
8421: IF ((p_delivery_id = -9999) AND (p_cont_ins_id = -9999 )) THEN
8422: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8423: --
8424: IF l_debug_on THEN
8425: WSH_DEBUG_SV.pop(l_module_name);
8426: END IF;
8427: --
8428: return;
8429: END IF;
8435: WHERE delivery_id = p_delivery_id
8436: FOR UPDATE NOWAIT;
8437:
8438: IF l_debug_on THEN
8439: WSH_DEBUG_SV.log(l_module_name,'Locking for Delivery id ',l_delivery_id1);
8440: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.has_lines',WSH_DEBUG_SV.C_PROC_LEVEL);
8441: END IF;
8442:
8443: -- J-IB-NPARIKH-{
8436: FOR UPDATE NOWAIT;
8437:
8438: IF l_debug_on THEN
8439: WSH_DEBUG_SV.log(l_module_name,'Locking for Delivery id ',l_delivery_id1);
8440: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.has_lines',WSH_DEBUG_SV.C_PROC_LEVEL);
8441: END IF;
8442:
8443: -- J-IB-NPARIKH-{
8444: --
8458: IF (p_delivery_id <> -9999) THEN
8459: /* assigning it to a delivery */
8460: --
8461: IF l_debug_on THEN
8462: WSH_DEBUG_SV.log(l_module_name,'Delivery id ',p_rec_of_detail_ids(i));
8463:
8464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
8465: END IF;
8466: --
8460: --
8461: IF l_debug_on THEN
8462: WSH_DEBUG_SV.log(l_module_name,'Delivery id ',p_rec_of_detail_ids(i));
8463:
8464: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
8465: END IF;
8466: --
8467: wsh_delivery_details_actions.assign_detail_to_delivery(
8468: p_detail_id => P_REC_OF_DETAIL_IDS(i),
8516: NULL;
8517: END LOOP;
8518:
8519: IF l_debug_on THEN
8520: WSH_DEBUG_SV.log(l_module_name,
8521: 'l_scc_unassign_from_del',
8522: l_scc_unassign_from_del);
8523: WSH_DEBUG_SV.log(l_module_name,
8524: 'l_scc_unassign_from_con',
8519: IF l_debug_on THEN
8520: WSH_DEBUG_SV.log(l_module_name,
8521: 'l_scc_unassign_from_del',
8522: l_scc_unassign_from_del);
8523: WSH_DEBUG_SV.log(l_module_name,
8524: 'l_scc_unassign_from_con',
8525: l_scc_unassign_from_con);
8526: END IF;
8527:
8528: IF (l_num_errors > 0) THEN
8529: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8530: --
8531: IF l_debug_on THEN
8532: WSH_DEBUG_SV.log(l_module_name,'Ret status is error',l_num_errors);
8533: WSH_DEBUG_SV.pop(l_module_name);
8534: END IF;
8535: --
8536: return;
8529: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8530: --
8531: IF l_debug_on THEN
8532: WSH_DEBUG_SV.log(l_module_name,'Ret status is error',l_num_errors);
8533: WSH_DEBUG_SV.pop(l_module_name);
8534: END IF;
8535: --
8536: return;
8537: ELSIF (l_num_warnings > 0) THEN
8556: END IF;
8557: IF l_del_tab.count > 0 THEN
8558: --
8559: IF l_debug_on THEN
8560: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
8561: END IF;
8562: --
8563: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
8564: p_entity_type => 'DELIVERY',
8571:
8572:
8573: --
8574: IF l_debug_on THEN
8575: WSH_DEBUG_SV.pop(l_module_name);
8576: END IF;
8577: --
8578: exception
8579: WHEN mark_reprice_error THEN
8582: wsh_util_core.add_message(x_return_status,l_module_name);
8583:
8584: --
8585: IF l_debug_on THEN
8586: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8587: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
8588: END IF;
8589: --
8590: WHEN delivery_id_locked THEN
8583:
8584: --
8585: IF l_debug_on THEN
8586: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8587: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
8588: END IF;
8589: --
8590: WHEN delivery_id_locked THEN
8591: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8592: fnd_message.SET_name('WSH', 'WSH_NO_LOCK');
8593: wsh_util_core.add_message(x_return_status,l_module_name);
8594: --
8595: IF l_debug_on THEN
8596: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Id Locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8597: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION : DELIVERY_ID_LOCKED');
8598: END IF;
8599: --
8600: return;
8593: wsh_util_core.add_message(x_return_status,l_module_name);
8594: --
8595: IF l_debug_on THEN
8596: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Id Locked exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8597: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION : DELIVERY_ID_LOCKED');
8598: END IF;
8599: --
8600: return;
8601:
8600: return;
8601:
8602: --
8603: IF l_debug_on THEN
8604: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY_ID_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_ID_LOCKED');
8606: END IF;
8607: --
8608: WHEN others THEN
8601:
8602: --
8603: IF l_debug_on THEN
8604: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY_ID_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIVERY_ID_LOCKED');
8606: END IF;
8607: --
8608: WHEN others THEN
8609: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8610: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_MULTIPLE_DETAILS',l_module_name);
8611:
8612: --
8613: IF l_debug_on THEN
8614: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8616: END IF;
8617: --
8618: END Assign_Multiple_Details;
8611:
8612: --
8613: IF l_debug_on THEN
8614: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8616: END IF;
8617: --
8618: END Assign_Multiple_Details;
8619:
8742: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8743: --
8744: IF l_debug_on IS NULL
8745: THEN
8746: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8747: END IF;
8748: --
8749: IF l_debug_on THEN
8750: WSH_DEBUG_SV.push(l_module_name);
8746: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8747: END IF;
8748: --
8749: IF l_debug_on THEN
8750: WSH_DEBUG_SV.push(l_module_name);
8751: --
8752: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
8753: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
8754: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
8748: --
8749: IF l_debug_on THEN
8750: WSH_DEBUG_SV.push(l_module_name);
8751: --
8752: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
8753: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
8754: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
8755: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
8756: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
8749: IF l_debug_on THEN
8750: WSH_DEBUG_SV.push(l_module_name);
8751: --
8752: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
8753: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
8754: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
8755: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
8756: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
8757: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
8750: WSH_DEBUG_SV.push(l_module_name);
8751: --
8752: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
8753: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
8754: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
8755: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
8756: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
8757: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
8758: END IF;
8751: --
8752: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
8753: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
8754: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
8755: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
8756: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
8757: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
8758: END IF;
8759: --
8752: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
8753: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
8754: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
8755: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
8756: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
8757: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
8758: END IF;
8759: --
8760: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8753: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
8754: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
8755: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
8756: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
8757: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
8758: END IF;
8759: --
8760: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8761:
8763: FETCH c_split_detail_info into old_delivery_detail_rec;
8764: CLOSE c_split_detail_info;
8765:
8766: IF l_debug_on THEN
8767: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
8768: old_delivery_detail_rec.delivery_detail_id);
8769: WSH_DEBUG_SV.log(l_module_name,'picked_quantity',
8770: old_delivery_detail_rec.picked_quantity);
8771: WSH_DEBUG_SV.log(l_module_name,'organization_id',
8765:
8766: IF l_debug_on THEN
8767: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
8768: old_delivery_detail_rec.delivery_detail_id);
8769: WSH_DEBUG_SV.log(l_module_name,'picked_quantity',
8770: old_delivery_detail_rec.picked_quantity);
8771: WSH_DEBUG_SV.log(l_module_name,'organization_id',
8772: old_delivery_detail_rec.organization_id);
8773: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',
8767: WSH_DEBUG_SV.log(l_module_name,'delivery_detail_id',
8768: old_delivery_detail_rec.delivery_detail_id);
8769: WSH_DEBUG_SV.log(l_module_name,'picked_quantity',
8770: old_delivery_detail_rec.picked_quantity);
8771: WSH_DEBUG_SV.log(l_module_name,'organization_id',
8772: old_delivery_detail_rec.organization_id);
8773: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',
8774: old_delivery_detail_rec.inventory_item_id);
8775: WSH_DEBUG_SV.log(l_module_name,'requested_quantity_uom',
8769: WSH_DEBUG_SV.log(l_module_name,'picked_quantity',
8770: old_delivery_detail_rec.picked_quantity);
8771: WSH_DEBUG_SV.log(l_module_name,'organization_id',
8772: old_delivery_detail_rec.organization_id);
8773: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',
8774: old_delivery_detail_rec.inventory_item_id);
8775: WSH_DEBUG_SV.log(l_module_name,'requested_quantity_uom',
8776: old_delivery_detail_rec.requested_quantity_uom);
8777: END IF;
8771: WSH_DEBUG_SV.log(l_module_name,'organization_id',
8772: old_delivery_detail_rec.organization_id);
8773: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',
8774: old_delivery_detail_rec.inventory_item_id);
8775: WSH_DEBUG_SV.log(l_module_name,'requested_quantity_uom',
8776: old_delivery_detail_rec.requested_quantity_uom);
8777: END IF;
8778:
8779: -- Bug 2419301 : Set oe_interfaced_flag to MISS CHAR so that create_new_detail_from_old API
8821:
8822:
8823: --
8824: IF l_debug_on THEN
8825: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
8826: END IF;
8827: --
8828: WSH_DETAILS_VALIDATIONS.check_decimal_quantity(
8829: p_item_id => old_delivery_detail_rec.inventory_item_id,
8841: END IF;
8842:
8843: --
8844: IF l_debug_on THEN
8845: WSH_DEBUG_SV.logmsg(l_module_name, 'BEFORE CALLING SPLIT_DETAIL_INT_BULK AND P_REQ_QUANTITY IS '||P_REQ_QUANTITY );
8846: WSH_DEBUG_SV.logmsg(l_module_name, 'BEFORE CALLING SPLIT_DETAIL_INT_BULK AND P_QUANTITY_TO_SPLIT2 IS '||L_QTY2 );
8847: END IF;
8848: --
8849:
8842:
8843: --
8844: IF l_debug_on THEN
8845: WSH_DEBUG_SV.logmsg(l_module_name, 'BEFORE CALLING SPLIT_DETAIL_INT_BULK AND P_REQ_QUANTITY IS '||P_REQ_QUANTITY );
8846: WSH_DEBUG_SV.logmsg(l_module_name, 'BEFORE CALLING SPLIT_DETAIL_INT_BULK AND P_QUANTITY_TO_SPLIT2 IS '||L_QTY2 );
8847: END IF;
8848: --
8849:
8850:
8894: old_delivery_detail_rec.serial_number := l_serial_orig_rec.serial_number;
8895: old_delivery_detail_rec.transaction_temp_id := l_serial_orig_rec.transaction_temp_id;
8896:
8897: IF l_debug_on THEN
8898: WSH_DEBUG_SV.log(l_module_name,'Old DD id',old_delivery_detail_rec.delivery_detail_id);
8899: WSH_DEBUG_SV.log(l_module_name,'Old serial Number',old_delivery_detail_rec.serial_number);
8900: WSH_DEBUG_SV.log(l_module_name,'Old Temp id',old_delivery_detail_rec.transaction_temp_id);
8901: WSH_DEBUG_SV.log(l_module_name,'l_transaction_id_tab.COUNT',l_transaction_id_tab.count);
8902: WSH_DEBUG_SV.log(l_module_name,'l_serial_number_tab.COUNT',l_serial_number_tab.count);
8895: old_delivery_detail_rec.transaction_temp_id := l_serial_orig_rec.transaction_temp_id;
8896:
8897: IF l_debug_on THEN
8898: WSH_DEBUG_SV.log(l_module_name,'Old DD id',old_delivery_detail_rec.delivery_detail_id);
8899: WSH_DEBUG_SV.log(l_module_name,'Old serial Number',old_delivery_detail_rec.serial_number);
8900: WSH_DEBUG_SV.log(l_module_name,'Old Temp id',old_delivery_detail_rec.transaction_temp_id);
8901: WSH_DEBUG_SV.log(l_module_name,'l_transaction_id_tab.COUNT',l_transaction_id_tab.count);
8902: WSH_DEBUG_SV.log(l_module_name,'l_serial_number_tab.COUNT',l_serial_number_tab.count);
8903: WSH_DEBUG_SV.log(l_module_name,'l_serial_tab.COUNT',l_serial_tab.count);
8896:
8897: IF l_debug_on THEN
8898: WSH_DEBUG_SV.log(l_module_name,'Old DD id',old_delivery_detail_rec.delivery_detail_id);
8899: WSH_DEBUG_SV.log(l_module_name,'Old serial Number',old_delivery_detail_rec.serial_number);
8900: WSH_DEBUG_SV.log(l_module_name,'Old Temp id',old_delivery_detail_rec.transaction_temp_id);
8901: WSH_DEBUG_SV.log(l_module_name,'l_transaction_id_tab.COUNT',l_transaction_id_tab.count);
8902: WSH_DEBUG_SV.log(l_module_name,'l_serial_number_tab.COUNT',l_serial_number_tab.count);
8903: WSH_DEBUG_SV.log(l_module_name,'l_serial_tab.COUNT',l_serial_tab.count);
8904: END IF;
8897: IF l_debug_on THEN
8898: WSH_DEBUG_SV.log(l_module_name,'Old DD id',old_delivery_detail_rec.delivery_detail_id);
8899: WSH_DEBUG_SV.log(l_module_name,'Old serial Number',old_delivery_detail_rec.serial_number);
8900: WSH_DEBUG_SV.log(l_module_name,'Old Temp id',old_delivery_detail_rec.transaction_temp_id);
8901: WSH_DEBUG_SV.log(l_module_name,'l_transaction_id_tab.COUNT',l_transaction_id_tab.count);
8902: WSH_DEBUG_SV.log(l_module_name,'l_serial_number_tab.COUNT',l_serial_number_tab.count);
8903: WSH_DEBUG_SV.log(l_module_name,'l_serial_tab.COUNT',l_serial_tab.count);
8904: END IF;
8905:
8898: WSH_DEBUG_SV.log(l_module_name,'Old DD id',old_delivery_detail_rec.delivery_detail_id);
8899: WSH_DEBUG_SV.log(l_module_name,'Old serial Number',old_delivery_detail_rec.serial_number);
8900: WSH_DEBUG_SV.log(l_module_name,'Old Temp id',old_delivery_detail_rec.transaction_temp_id);
8901: WSH_DEBUG_SV.log(l_module_name,'l_transaction_id_tab.COUNT',l_transaction_id_tab.count);
8902: WSH_DEBUG_SV.log(l_module_name,'l_serial_number_tab.COUNT',l_serial_number_tab.count);
8903: WSH_DEBUG_SV.log(l_module_name,'l_serial_tab.COUNT',l_serial_tab.count);
8904: END IF;
8905:
8906: END IF;
8899: WSH_DEBUG_SV.log(l_module_name,'Old serial Number',old_delivery_detail_rec.serial_number);
8900: WSH_DEBUG_SV.log(l_module_name,'Old Temp id',old_delivery_detail_rec.transaction_temp_id);
8901: WSH_DEBUG_SV.log(l_module_name,'l_transaction_id_tab.COUNT',l_transaction_id_tab.count);
8902: WSH_DEBUG_SV.log(l_module_name,'l_serial_number_tab.COUNT',l_serial_number_tab.count);
8903: WSH_DEBUG_SV.log(l_module_name,'l_serial_tab.COUNT',l_serial_tab.count);
8904: END IF;
8905:
8906: END IF;
8907:
8951: */
8952: l_entity_ids(1) := old_delivery_detail_rec.delivery_detail_id;
8953: --
8954: IF l_debug_on THEN
8955: WSH_DEBUG_SV.log(l_module_name,'entity id 1-',l_entity_ids(1));
8956: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
8957: END IF;
8958: --
8959: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
8952: l_entity_ids(1) := old_delivery_detail_rec.delivery_detail_id;
8953: --
8954: IF l_debug_on THEN
8955: WSH_DEBUG_SV.log(l_module_name,'entity id 1-',l_entity_ids(1));
8956: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
8957: END IF;
8958: --
8959: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
8960: p_entity_type => 'DELIVERY_DETAIL',
8967: END IF;
8968:
8969: --
8970: IF l_debug_on THEN
8971: WSH_DEBUG_SV.pop(l_module_name);
8972: END IF;
8973: --
8974: EXCEPTION
8975: WHEN chk_decimal_qty_failed THEN
8977: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
8978: wsh_util_core.add_message(x_return_status,l_module_name);
8979: --
8980: IF l_debug_on THEN
8981: WSH_DEBUG_SV.logmsg(l_module_name,'CHK_DECIMAL_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8982: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
8983: END IF;
8984: --
8985: WHEN quantity_over THEN
8978: wsh_util_core.add_message(x_return_status,l_module_name);
8979: --
8980: IF l_debug_on THEN
8981: WSH_DEBUG_SV.logmsg(l_module_name,'CHK_DECIMAL_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8982: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
8983: END IF;
8984: --
8985: WHEN quantity_over THEN
8986: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8987: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
8988: wsh_util_core.add_message(x_return_status,l_module_name);
8989: --
8990: IF l_debug_on THEN
8991: WSH_DEBUG_SV.logmsg(l_module_name,'QUANTITY_OVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8992: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
8993: END IF;
8994: --
8995: WHEN zero_qty THEN
8988: wsh_util_core.add_message(x_return_status,l_module_name);
8989: --
8990: IF l_debug_on THEN
8991: WSH_DEBUG_SV.logmsg(l_module_name,'QUANTITY_OVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8992: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
8993: END IF;
8994: --
8995: WHEN zero_qty THEN
8996: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8997: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
8998: wsh_util_core.add_message(x_return_status,l_module_name);
8999: --
9000: IF l_debug_on THEN
9001: WSH_DEBUG_SV.logmsg(l_module_name,'ZERO_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9002: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
9003: END IF;
9004: --
9005: WHEN negative_qty THEN
8998: wsh_util_core.add_message(x_return_status,l_module_name);
8999: --
9000: IF l_debug_on THEN
9001: WSH_DEBUG_SV.logmsg(l_module_name,'ZERO_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9002: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
9003: END IF;
9004: --
9005: WHEN negative_qty THEN
9006: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9007: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
9008: wsh_util_core.add_message(x_return_status,l_module_name);
9009: --
9010: IF l_debug_on THEN
9011: WSH_DEBUG_SV.logmsg(l_module_name,'NEGATIVE_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9012: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
9013: END IF;
9014: --
9015: WHEN reprice_required_err THEN
9008: wsh_util_core.add_message(x_return_status,l_module_name);
9009: --
9010: IF l_debug_on THEN
9011: WSH_DEBUG_SV.logmsg(l_module_name,'NEGATIVE_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9012: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
9013: END IF;
9014: --
9015: WHEN reprice_required_err THEN
9016: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9017: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
9018: wsh_util_core.add_message(x_return_status,l_module_name);
9019: --
9020: IF l_debug_on THEN
9021: WSH_DEBUG_SV.logmsg(l_module_name,'REPRICE_REQUIRED_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
9023: END IF;
9024: --
9025: WHEN others THEN
9018: wsh_util_core.add_message(x_return_status,l_module_name);
9019: --
9020: IF l_debug_on THEN
9021: WSH_DEBUG_SV.logmsg(l_module_name,'REPRICE_REQUIRED_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9022: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
9023: END IF;
9024: --
9025: WHEN others THEN
9026: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9026: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9027: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',l_module_name);
9028: --
9029: IF l_debug_on THEN
9030: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9031: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9032: END IF;
9033: --
9034: END SPLIT_DELIVERY_DETAILS_BULK;
9027: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',l_module_name);
9028: --
9029: IF l_debug_on THEN
9030: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9031: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9032: END IF;
9033: --
9034: END SPLIT_DELIVERY_DETAILS_BULK;
9035:
9175: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
9176: --
9177: IF l_debug_on IS NULL
9178: THEN
9179: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9180: END IF;
9181: --
9182: IF l_debug_on THEN
9183: WSH_DEBUG_SV.push(l_module_name);
9179: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9180: END IF;
9181: --
9182: IF l_debug_on THEN
9183: WSH_DEBUG_SV.push(l_module_name);
9184: --
9185: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
9186: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
9187: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
9181: --
9182: IF l_debug_on THEN
9183: WSH_DEBUG_SV.push(l_module_name);
9184: --
9185: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
9186: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
9187: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
9188: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
9189: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
9182: IF l_debug_on THEN
9183: WSH_DEBUG_SV.push(l_module_name);
9184: --
9185: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
9186: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
9187: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
9188: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
9189: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
9190: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
9183: WSH_DEBUG_SV.push(l_module_name);
9184: --
9185: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
9186: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
9187: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
9188: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
9189: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
9190: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
9191: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
9184: --
9185: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
9186: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
9187: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
9188: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
9189: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
9190: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
9191: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
9192: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
9185: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
9186: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
9187: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
9188: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
9189: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
9190: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
9191: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
9192: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
9193: p_old_delivery_detail_rec.shipped_quantity);
9186: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
9187: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
9188: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
9189: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
9190: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
9191: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
9192: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
9193: p_old_delivery_detail_rec.shipped_quantity);
9194: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity',
9187: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
9188: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
9189: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
9190: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
9191: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
9192: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
9193: p_old_delivery_detail_rec.shipped_quantity);
9194: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity',
9195: p_old_delivery_detail_rec.cycle_count_quantity);
9188: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
9189: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
9190: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
9191: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
9192: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
9193: p_old_delivery_detail_rec.shipped_quantity);
9194: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity',
9195: p_old_delivery_detail_rec.cycle_count_quantity);
9196: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity2',
9190: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
9191: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
9192: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
9193: p_old_delivery_detail_rec.shipped_quantity);
9194: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity',
9195: p_old_delivery_detail_rec.cycle_count_quantity);
9196: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity2',
9197: p_old_delivery_detail_rec.cycle_count_quantity2);
9198: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity2',
9192: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
9193: p_old_delivery_detail_rec.shipped_quantity);
9194: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity',
9195: p_old_delivery_detail_rec.cycle_count_quantity);
9196: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity2',
9197: p_old_delivery_detail_rec.cycle_count_quantity2);
9198: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity2',
9199: p_old_delivery_detail_rec.shipped_quantity2);
9200: WSH_DEBUG_SV.log(l_module_name,'old picked_quantity',
9194: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity',
9195: p_old_delivery_detail_rec.cycle_count_quantity);
9196: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity2',
9197: p_old_delivery_detail_rec.cycle_count_quantity2);
9198: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity2',
9199: p_old_delivery_detail_rec.shipped_quantity2);
9200: WSH_DEBUG_SV.log(l_module_name,'old picked_quantity',
9201: p_old_delivery_detail_rec.picked_quantity);
9202: WSH_DEBUG_SV.log(l_module_name,'old net_weight',
9196: WSH_DEBUG_SV.log(l_module_name,'old cycle_count_quantity2',
9197: p_old_delivery_detail_rec.cycle_count_quantity2);
9198: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity2',
9199: p_old_delivery_detail_rec.shipped_quantity2);
9200: WSH_DEBUG_SV.log(l_module_name,'old picked_quantity',
9201: p_old_delivery_detail_rec.picked_quantity);
9202: WSH_DEBUG_SV.log(l_module_name,'old net_weight',
9203: p_old_delivery_detail_rec.net_weight);
9204: WSH_DEBUG_SV.log(l_module_name,'old requested_quantity',
9198: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity2',
9199: p_old_delivery_detail_rec.shipped_quantity2);
9200: WSH_DEBUG_SV.log(l_module_name,'old picked_quantity',
9201: p_old_delivery_detail_rec.picked_quantity);
9202: WSH_DEBUG_SV.log(l_module_name,'old net_weight',
9203: p_old_delivery_detail_rec.net_weight);
9204: WSH_DEBUG_SV.log(l_module_name,'old requested_quantity',
9205: p_old_delivery_detail_rec.requested_quantity);
9206: WSH_DEBUG_SV.log(l_module_name,'old inventory_item_id',
9200: WSH_DEBUG_SV.log(l_module_name,'old picked_quantity',
9201: p_old_delivery_detail_rec.picked_quantity);
9202: WSH_DEBUG_SV.log(l_module_name,'old net_weight',
9203: p_old_delivery_detail_rec.net_weight);
9204: WSH_DEBUG_SV.log(l_module_name,'old requested_quantity',
9205: p_old_delivery_detail_rec.requested_quantity);
9206: WSH_DEBUG_SV.log(l_module_name,'old inventory_item_id',
9207: p_old_delivery_detail_rec.inventory_item_id);
9208: WSH_DEBUG_SV.log(l_module_name,'old volume',
9202: WSH_DEBUG_SV.log(l_module_name,'old net_weight',
9203: p_old_delivery_detail_rec.net_weight);
9204: WSH_DEBUG_SV.log(l_module_name,'old requested_quantity',
9205: p_old_delivery_detail_rec.requested_quantity);
9206: WSH_DEBUG_SV.log(l_module_name,'old inventory_item_id',
9207: p_old_delivery_detail_rec.inventory_item_id);
9208: WSH_DEBUG_SV.log(l_module_name,'old volume',
9209: p_old_delivery_detail_rec.volume);
9210: WSH_DEBUG_SV.log(l_module_name,'old weight_uom_code',
9204: WSH_DEBUG_SV.log(l_module_name,'old requested_quantity',
9205: p_old_delivery_detail_rec.requested_quantity);
9206: WSH_DEBUG_SV.log(l_module_name,'old inventory_item_id',
9207: p_old_delivery_detail_rec.inventory_item_id);
9208: WSH_DEBUG_SV.log(l_module_name,'old volume',
9209: p_old_delivery_detail_rec.volume);
9210: WSH_DEBUG_SV.log(l_module_name,'old weight_uom_code',
9211: p_old_delivery_detail_rec.weight_uom_code);
9212: WSH_DEBUG_SV.log(l_module_name,'old volume_uom_code',
9206: WSH_DEBUG_SV.log(l_module_name,'old inventory_item_id',
9207: p_old_delivery_detail_rec.inventory_item_id);
9208: WSH_DEBUG_SV.log(l_module_name,'old volume',
9209: p_old_delivery_detail_rec.volume);
9210: WSH_DEBUG_SV.log(l_module_name,'old weight_uom_code',
9211: p_old_delivery_detail_rec.weight_uom_code);
9212: WSH_DEBUG_SV.log(l_module_name,'old volume_uom_code',
9213: p_old_delivery_detail_rec.volume_uom_code);
9214: WSH_DEBUG_SV.log(l_module_name,'old delivery_detail_id',
9208: WSH_DEBUG_SV.log(l_module_name,'old volume',
9209: p_old_delivery_detail_rec.volume);
9210: WSH_DEBUG_SV.log(l_module_name,'old weight_uom_code',
9211: p_old_delivery_detail_rec.weight_uom_code);
9212: WSH_DEBUG_SV.log(l_module_name,'old volume_uom_code',
9213: p_old_delivery_detail_rec.volume_uom_code);
9214: WSH_DEBUG_SV.log(l_module_name,'old delivery_detail_id',
9215: p_old_delivery_detail_rec.delivery_detail_id);
9216: WSH_DEBUG_SV.log(l_module_name,'old container_flag',
9210: WSH_DEBUG_SV.log(l_module_name,'old weight_uom_code',
9211: p_old_delivery_detail_rec.weight_uom_code);
9212: WSH_DEBUG_SV.log(l_module_name,'old volume_uom_code',
9213: p_old_delivery_detail_rec.volume_uom_code);
9214: WSH_DEBUG_SV.log(l_module_name,'old delivery_detail_id',
9215: p_old_delivery_detail_rec.delivery_detail_id);
9216: WSH_DEBUG_SV.log(l_module_name,'old container_flag',
9217: p_old_delivery_detail_rec.container_flag);
9218: END IF;
9212: WSH_DEBUG_SV.log(l_module_name,'old volume_uom_code',
9213: p_old_delivery_detail_rec.volume_uom_code);
9214: WSH_DEBUG_SV.log(l_module_name,'old delivery_detail_id',
9215: p_old_delivery_detail_rec.delivery_detail_id);
9216: WSH_DEBUG_SV.log(l_module_name,'old container_flag',
9217: p_old_delivery_detail_rec.container_flag);
9218: END IF;
9219: --
9220: SAVEPOINT split_savepoint;
9302:
9303: --
9304: /*
9305: IF l_debug_on THEN
9306: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.INITIALIZE_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
9307: END IF;
9308: --
9309: WSH_DELIVERY_DETAILS_PKG.initialize_detail(
9310: p_delivery_detail_rec => l_delivery_details_info);
9375: l_delivery_details_info.volume_uom_code := p_old_delivery_detail_rec.volume_uom_code;
9376:
9377: l_delivery_details_info.shipped_quantity := nvl(l_split_shipped_qty,FND_API.G_MISS_NUM);
9378: IF l_debug_on THEN
9379: WSH_DEBUG_SV.log(l_module_name,'l_split_shipped_qty2',l_split_shipped_qty2);
9380: END IF;
9381: IF ( NVL(l_split_shipped_qty2, 0) = 0 ) THEN
9382: l_delivery_details_info.shipped_quantity2 := FND_API.G_MISS_NUM;
9383: ELSE
9411: -- Bug 2419301
9412: l_delivery_details_info.oe_interfaced_flag := p_old_delivery_detail_rec.oe_interfaced_flag;
9413: --
9414: IF l_debug_on THEN
9415: WSH_DEBUG_SV.logmsg(l_module_name, 'SPLIT_DETAIL_INT_BULK: OE_INTERFACED_FLAG '||L_DELIVERY_DETAILS_INFO.OE_INTERFACED_FLAG );
9416: END IF;
9417: --
9418:
9419: l_new_delivery_detail_id := NULL;
9429: l_num_of_split := p_num_of_split;
9430:
9431: --
9432: IF l_debug_on THEN
9433: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DD_FROM_OLD_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
9434: END IF;
9435: --
9436: -- call to new API
9437: -- with a value for p_num_of_rec
9477: IF ((l_final_req_qty = l_requested_quantity) OR (l_final_req_qty < 0)) THEN
9478: EXIT;
9479: END IF;
9480: IF l_debug_on THEN
9481: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
9482: END IF;
9483: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL(
9484: p_delivery_detail_id => p_old_delivery_detail_rec.delivery_detail_id,
9485: p_primary_quantity => l_final_req_qty,
9488: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
9489: --{
9490: rollback to split_savepoint;
9491: IF l_debug_on THEN
9492: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
9493: WSH_DEBUG_SV.pop(l_module_name);
9494: END IF;
9495: RETURN;
9496: --}
9489: --{
9490: rollback to split_savepoint;
9491: IF l_debug_on THEN
9492: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
9493: WSH_DEBUG_SV.pop(l_module_name);
9494: END IF;
9495: RETURN;
9496: --}
9497: END IF;
9550: -- Update of wsh_delivery_details where requested_quantity/released_status
9551: -- are changed, call DBI API after the update.
9552: -- DBI API will check if DBI is installed
9553: IF l_debug_on THEN
9554: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_dd_id_tab.count);
9555: END IF;
9556: WSH_INTEGRATION.DBI_Update_Detail_Log
9557: (p_delivery_detail_id_tab => l_dd_id_tab,
9558: p_dml_type => 'UPDATE',
9558: p_dml_type => 'UPDATE',
9559: x_return_status => l_dbi_rs);
9560:
9561: IF l_debug_on THEN
9562: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
9563: END IF;
9564: -- Only Handle Unexpected error
9565: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9566: x_return_status := l_dbi_rs;
9566: x_return_status := l_dbi_rs;
9567: rollback to split_savepoint;
9568: --
9569: IF l_debug_on THEN
9570: WSH_DEBUG_SV.pop(l_module_name);
9571: END IF;
9572: --
9573: RETURN;
9574: END IF;
9591: l_total_vol := 0;
9592: ELSE
9593: -- end bug 4416863
9594: IF l_debug_on THEN
9595: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
9596: END IF;
9597:
9598: l_total_net_wt := 0;
9599: l_total_gross_wt := 0;
9638:
9639: l_delivery_assignments_info.delivery_detail_id := l_new_delivery_detail_id;
9640: --
9641: IF l_debug_on THEN
9642: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
9643: END IF;
9644: --
9645:
9646: -- this is a bulk call
9715: )
9716: ) <= 0
9717: )THEN
9718: IF l_debug_on THEN
9719: WSH_DEBUG_SV.log(l_module_name, 'CANNOT SPLIT, NEED TO REVISIT THE QUANTITIES');
9720: END IF;
9721:
9722: RAISE wsh_split_error;
9723:
9760:
9761: /* call the wv util to calculate the wv for the original detail too */
9762: --
9763: IF l_debug_on THEN
9764: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.requested_quantity'
9765: ,l_delivery_details_info.requested_quantity);
9766: WSH_DEBUG_SV.log(l_module_name,'l_qty2',l_qty2);
9767: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',
9768: l_original_shipped_qty);
9762: --
9763: IF l_debug_on THEN
9764: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.requested_quantity'
9765: ,l_delivery_details_info.requested_quantity);
9766: WSH_DEBUG_SV.log(l_module_name,'l_qty2',l_qty2);
9767: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',
9768: l_original_shipped_qty);
9769: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
9770: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
9763: IF l_debug_on THEN
9764: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.requested_quantity'
9765: ,l_delivery_details_info.requested_quantity);
9766: WSH_DEBUG_SV.log(l_module_name,'l_qty2',l_qty2);
9767: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',
9768: l_original_shipped_qty);
9769: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
9770: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
9771: END IF;
9765: ,l_delivery_details_info.requested_quantity);
9766: WSH_DEBUG_SV.log(l_module_name,'l_qty2',l_qty2);
9767: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',
9768: l_original_shipped_qty);
9769: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
9770: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
9771: END IF;
9772: --
9773:
9766: WSH_DEBUG_SV.log(l_module_name,'l_qty2',l_qty2);
9767: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',
9768: l_original_shipped_qty);
9769: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
9770: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
9771: END IF;
9772: --
9773:
9774: --
9776: -- Update of wsh_delivery_details where requested_quantity/released_status
9777: -- are changed, call DBI API after the update.
9778: -- This API will also check for DBI Installed or not
9779: IF l_debug_on THEN
9780: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',p_old_delivery_detail_rec.delivery_detail_id);
9781: END IF;
9782: l_detail_tab(1) := p_old_delivery_detail_rec.delivery_detail_id;
9783: WSH_INTEGRATION.DBI_Update_Detail_Log
9784: (p_delivery_detail_id_tab => l_detail_tab,
9785: p_dml_type => 'UPDATE',
9786: x_return_status => l_dbi_rs);
9787:
9788: IF l_debug_on THEN
9789: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
9790: END IF;
9791: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
9792: x_return_status := l_dbi_rs;
9793: -- just pass this return status to caller API
9793: -- just pass this return status to caller API
9794: rollback to split_savepoint;
9795: --
9796: IF l_debug_on THEN
9797: WSH_DEBUG_SV.pop(l_module_name);
9798: END IF;
9799: --
9800: RETURN;
9801: END IF;
9806: -- J: W/V Changes
9807: -- Decrement the DD W/V from parent if p_unassign_flag is 'Y'
9808: IF (p_unassign_flag = 'Y') THEN
9809: IF l_debug_on THEN
9810: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
9811: END IF;
9812: --
9813: WSH_WV_UTILS.DD_WV_Post_Process(
9814: p_delivery_detail_id => p_old_delivery_detail_rec.delivery_detail_id,
9822: rollback to split_savepoint;
9823: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9824: WSH_UTIL_CORE.Add_Message(x_return_status);
9825: IF l_debug_on THEN
9826: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
9827: WSH_DEBUG_SV.pop(l_module_name);
9828: END IF;
9829: return;
9830: END IF;
9823: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9824: WSH_UTIL_CORE.Add_Message(x_return_status);
9825: IF l_debug_on THEN
9826: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
9827: WSH_DEBUG_SV.pop(l_module_name);
9828: END IF;
9829: return;
9830: END IF;
9831: END IF;
9831: END IF;
9832:
9833: --
9834: IF l_debug_on THEN
9835: WSH_DEBUG_SV.pop(l_module_name);
9836:
9837: END IF;
9838: --
9839:
9847: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
9848: wsh_util_core.add_message(x_return_status,l_module_name);
9849: --
9850: IF l_debug_on THEN
9851: WSH_DEBUG_SV.logmsg(l_module_name,'OLD_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9852: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
9853: END IF;
9854: --
9855: WHEN new_det_wt_vol_failed THEN
9848: wsh_util_core.add_message(x_return_status,l_module_name);
9849: --
9850: IF l_debug_on THEN
9851: WSH_DEBUG_SV.logmsg(l_module_name,'OLD_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9852: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
9853: END IF;
9854: --
9855: WHEN new_det_wt_vol_failed THEN
9856: rollback to split_savepoint;
9859: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
9860: wsh_util_core.add_message(x_return_status,l_module_name);
9861: --
9862: IF l_debug_on THEN
9863: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9864: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
9865: END IF;
9866: --
9867: WHEN WSH_SPLIT_ERROR THEN
9860: wsh_util_core.add_message(x_return_status,l_module_name);
9861: --
9862: IF l_debug_on THEN
9863: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9864: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
9865: END IF;
9866: --
9867: WHEN WSH_SPLIT_ERROR THEN
9868: rollback to split_savepoint;
9871: fnd_message.set_token('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
9872: wsh_util_core.add_message(x_return_status,l_module_name);
9873: --
9874: IF l_debug_on THEN
9875: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SPLIT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9876: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SPLIT_ERROR');
9877: END IF;
9878: WHEN WSH_SN_SPLIT_ERR THEN
9879: rollback to split_savepoint;
9872: wsh_util_core.add_message(x_return_status,l_module_name);
9873: --
9874: IF l_debug_on THEN
9875: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SPLIT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9876: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SPLIT_ERROR');
9877: END IF;
9878: WHEN WSH_SN_SPLIT_ERR THEN
9879: rollback to split_savepoint;
9880: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9881: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
9882: wsh_util_core.add_message(x_return_status,l_module_name);
9883: --
9884: IF l_debug_on THEN
9885: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9886: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SN_SPLIT_ERR');
9887: END IF;
9888:
9889: WHEN WSH_NO_DATA_FOUND THEN
9882: wsh_util_core.add_message(x_return_status,l_module_name);
9883: --
9884: IF l_debug_on THEN
9885: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9886: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SN_SPLIT_ERR');
9887: END IF;
9888:
9889: WHEN WSH_NO_DATA_FOUND THEN
9890: IF c_get_req_pick_qty%ISOPEN THEN
9893: rollback to split_savepoint;
9894: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9895: fnd_message.set_name('WSH', 'WSH_NO_DATA_FOUND');
9896: IF l_debug_on THEN
9897: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9898: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_DATA_FOUND');
9899: END IF;
9900: --
9901: WHEN others THEN
9894: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9895: fnd_message.set_name('WSH', 'WSH_NO_DATA_FOUND');
9896: IF l_debug_on THEN
9897: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9898: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_DATA_FOUND');
9899: END IF;
9900: --
9901: WHEN others THEN
9902: IF c_get_req_pick_qty%ISOPEN THEN
9906: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9907: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT_BULK',l_module_name);
9908: --
9909: IF l_debug_on THEN
9910: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9911: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9912: END IF;
9913: --
9914: END SPLIT_DETAIL_INT_BULK;
9907: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT_BULK',l_module_name);
9908: --
9909: IF l_debug_on THEN
9910: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9911: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9912: END IF;
9913: --
9914: END SPLIT_DETAIL_INT_BULK;
9915:
10011: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10012: --
10013: IF l_debug_on IS NULL
10014: THEN
10015: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10016: END IF;
10017: --
10018: IF l_debug_on THEN
10019: WSH_DEBUG_SV.push(l_module_name);
10015: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10016: END IF;
10017: --
10018: IF l_debug_on THEN
10019: WSH_DEBUG_SV.push(l_module_name);
10020: --
10021: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
10022: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
10023: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10017: --
10018: IF l_debug_on THEN
10019: WSH_DEBUG_SV.push(l_module_name);
10020: --
10021: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
10022: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
10023: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10024: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
10025: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10018: IF l_debug_on THEN
10019: WSH_DEBUG_SV.push(l_module_name);
10020: --
10021: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
10022: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
10023: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10024: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
10025: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10026: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10019: WSH_DEBUG_SV.push(l_module_name);
10020: --
10021: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
10022: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
10023: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10024: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
10025: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10026: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10027: END IF;
10020: --
10021: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
10022: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
10023: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10024: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
10025: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10026: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10027: END IF;
10028: --
10021: WSH_DEBUG_SV.log(l_module_name,'P_FROM_DETAIL_ID',P_FROM_DETAIL_ID);
10022: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
10023: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10024: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
10025: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10026: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10027: END IF;
10028: --
10029: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10022: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY',P_REQ_QUANTITY);
10023: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10024: WSH_DEBUG_SV.log(l_module_name,'P_REQ_QUANTITY2',P_REQ_QUANTITY2);
10025: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10026: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10027: END IF;
10028: --
10029: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10030:
10095:
10096:
10097: --
10098: IF l_debug_on THEN
10099: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_DECIMAL_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
10100: END IF;
10101: --
10102: WSH_DETAILS_VALIDATIONS.check_decimal_quantity(
10103: p_item_id => old_delivery_detail_rec.inventory_item_id,
10115: END IF;
10116:
10117: --
10118: IF l_debug_on THEN
10119: WSH_DEBUG_SV.logmsg(l_module_name, 'BEFORE CALLING SPLIT_DETAIL_INT AND P_REQ_QUANTITY IS '||P_REQ_QUANTITY );
10120: END IF;
10121: --
10122: --
10123: IF l_debug_on THEN
10120: END IF;
10121: --
10122: --
10123: IF l_debug_on THEN
10124: WSH_DEBUG_SV.logmsg(l_module_name, 'BEFORE CALLING SPLIT_DETAIL_INT AND P_QUANTITY_TO_SPLIT2 IS '||L_QTY2 );
10125: END IF;
10126: --
10127:
10128: -- HW OPMCONV - Removed l_process_flag parameter
10151: -- new quantity (p_primary_quantity).
10152: IF ( old_delivery_detail_rec.replenishment_status = 'R' and old_delivery_detail_rec.released_status in ('R','B')) THEN
10153: --{
10154: IF l_debug_on THEN
10155: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
10156: END IF;
10157: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL(
10158: p_delivery_detail_id => old_delivery_detail_rec.delivery_detail_id,
10159: p_primary_quantity => old_delivery_detail_rec.requested_quantity - p_req_quantity,
10161: x_return_status => x_return_status);
10162: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10163: --{
10164: IF l_debug_on THEN
10165: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
10166: WSH_DEBUG_SV.pop(l_module_name);
10167: END IF;
10168: RETURN;
10169: --}
10162: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10163: --{
10164: IF l_debug_on THEN
10165: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
10166: WSH_DEBUG_SV.pop(l_module_name);
10167: END IF;
10168: RETURN;
10169: --}
10170: END IF;
10177: */
10178: l_entity_ids(1) := old_delivery_detail_rec.delivery_detail_id;
10179: --
10180: IF l_debug_on THEN
10181: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
10182: END IF;
10183: --
10184: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
10185: p_entity_type => 'DELIVERY_DETAIL',
10190: END IF;
10191:
10192: --
10193: IF l_debug_on THEN
10194: WSH_DEBUG_SV.pop(l_module_name);
10195: END IF;
10196: --
10197: EXCEPTION
10198: WHEN chk_decimal_qty_failed THEN
10200: fnd_message.set_name('WSH', 'WSH_DET_DECIMAL_QTY_NOT_VALID');
10201: wsh_util_core.add_message(x_return_status,l_module_name);
10202: --
10203: IF l_debug_on THEN
10204: WSH_DEBUG_SV.logmsg(l_module_name,'CHK_DECIMAL_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10205: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
10206: END IF;
10207: --
10208: WHEN quantity_over THEN
10201: wsh_util_core.add_message(x_return_status,l_module_name);
10202: --
10203: IF l_debug_on THEN
10204: WSH_DEBUG_SV.logmsg(l_module_name,'CHK_DECIMAL_QTY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10205: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CHK_DECIMAL_QTY_FAILED');
10206: END IF;
10207: --
10208: WHEN quantity_over THEN
10209: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10210: fnd_message.set_name('WSH', 'WSH_DET_SPLIT_EXCEED');
10211: wsh_util_core.add_message(x_return_status,l_module_name);
10212: --
10213: IF l_debug_on THEN
10214: WSH_DEBUG_SV.logmsg(l_module_name,'QUANTITY_OVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10215: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
10216: END IF;
10217: --
10218: WHEN zero_qty THEN
10211: wsh_util_core.add_message(x_return_status,l_module_name);
10212: --
10213: IF l_debug_on THEN
10214: WSH_DEBUG_SV.logmsg(l_module_name,'QUANTITY_OVER exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10215: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUANTITY_OVER');
10216: END IF;
10217: --
10218: WHEN zero_qty THEN
10219: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10220: fnd_message.set_name('WSH', 'WSH_NO_ZERO_NUM');
10221: wsh_util_core.add_message(x_return_status,l_module_name);
10222: --
10223: IF l_debug_on THEN
10224: WSH_DEBUG_SV.logmsg(l_module_name,'ZERO_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
10226: END IF;
10227: --
10228: WHEN negative_qty THEN
10221: wsh_util_core.add_message(x_return_status,l_module_name);
10222: --
10223: IF l_debug_on THEN
10224: WSH_DEBUG_SV.logmsg(l_module_name,'ZERO_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10225: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ZERO_QTY');
10226: END IF;
10227: --
10228: WHEN negative_qty THEN
10229: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10230: fnd_message.set_name('WSH', 'WSH_NO_NEG_NUM');
10231: wsh_util_core.add_message(x_return_status,l_module_name);
10232: --
10233: IF l_debug_on THEN
10234: WSH_DEBUG_SV.logmsg(l_module_name,'NEGATIVE_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
10236: END IF;
10237: --
10238: WHEN reprice_required_err THEN
10231: wsh_util_core.add_message(x_return_status,l_module_name);
10232: --
10233: IF l_debug_on THEN
10234: WSH_DEBUG_SV.logmsg(l_module_name,'NEGATIVE_QTY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEGATIVE_QTY');
10236: END IF;
10237: --
10238: WHEN reprice_required_err THEN
10239: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10240: fnd_message.set_name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
10241: wsh_util_core.add_message(x_return_status,l_module_name);
10242: --
10243: IF l_debug_on THEN
10244: WSH_DEBUG_SV.logmsg(l_module_name,'REPRICE_REQUIRED_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10245: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
10246: END IF;
10247: --
10248: WHEN others THEN
10241: wsh_util_core.add_message(x_return_status,l_module_name);
10242: --
10243: IF l_debug_on THEN
10244: WSH_DEBUG_SV.logmsg(l_module_name,'REPRICE_REQUIRED_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10245: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:REPRICE_REQUIRED_ERR');
10246: END IF;
10247: --
10248: WHEN others THEN
10249: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10249: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10250: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',l_module_name);
10251: --
10252: IF l_debug_on THEN
10253: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10254: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10255: END IF;
10256: --
10257: END SPLIT_DELIVERY_DETAILS;
10250: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',l_module_name);
10251: --
10252: IF l_debug_on THEN
10253: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10254: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10255: END IF;
10256: --
10257: END SPLIT_DELIVERY_DETAILS;
10258:
10383: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10384: --
10385: IF l_debug_on IS NULL
10386: THEN
10387: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10388: END IF;
10389: --
10390: IF l_debug_on THEN
10391: WSH_DEBUG_SV.push(l_module_name);
10387: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10388: END IF;
10389: --
10390: IF l_debug_on THEN
10391: WSH_DEBUG_SV.push(l_module_name);
10392: --
10393: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
10394: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
10395: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
10389: --
10390: IF l_debug_on THEN
10391: WSH_DEBUG_SV.push(l_module_name);
10392: --
10393: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
10394: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
10395: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
10396: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10397: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10390: IF l_debug_on THEN
10391: WSH_DEBUG_SV.push(l_module_name);
10392: --
10393: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
10394: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
10395: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
10396: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10397: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10398: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10391: WSH_DEBUG_SV.push(l_module_name);
10392: --
10393: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
10394: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
10395: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
10396: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10397: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10398: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10399: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
10392: --
10393: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
10394: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
10395: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
10396: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10397: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10398: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10399: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
10400: END IF;
10393: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SOURCE_LINE_ID',P_NEW_SOURCE_LINE_ID);
10394: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
10395: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
10396: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10397: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10398: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10399: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
10400: END IF;
10401: --
10394: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT',P_QUANTITY_TO_SPLIT);
10395: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
10396: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10397: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10398: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10399: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
10400: END IF;
10401: --
10402: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10395: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY_TO_SPLIT2',P_QUANTITY_TO_SPLIT2);
10396: WSH_DEBUG_SV.log(l_module_name,'P_UNASSIGN_FLAG',P_UNASSIGN_FLAG);
10397: WSH_DEBUG_SV.log(l_module_name,'P_CONVERTED_FLAG',P_CONVERTED_FLAG);
10398: WSH_DEBUG_SV.log(l_module_name,'P_MANUAL_SPLIT',P_MANUAL_SPLIT);
10399: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SN',P_SPLIT_SN);
10400: END IF;
10401: --
10402: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10403:
10487:
10488: --
10489: /*
10490: IF l_debug_on THEN
10491: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.INITIALIZE_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
10492: END IF;
10493: --
10494: WSH_DELIVERY_DETAILS_PKG.initialize_detail(
10495: p_delivery_detail_rec => l_delivery_details_info);
10623: 0
10624: );
10625:
10626: IF l_debug_on THEN
10627: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.requested_quantity', l_delivery_details_info.requested_quantity);
10628: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.requested_quantity2',l_delivery_details_info.requested_quantity2);
10629: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.shipped_quantity', l_delivery_details_info.shipped_quantity);
10630: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.shipped_quantity2',l_delivery_details_info.shipped_quantity2);
10631: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.received_quantity', l_delivery_details_info.received_quantity);
10624: );
10625:
10626: IF l_debug_on THEN
10627: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.requested_quantity', l_delivery_details_info.requested_quantity);
10628: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.requested_quantity2',l_delivery_details_info.requested_quantity2);
10629: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.shipped_quantity', l_delivery_details_info.shipped_quantity);
10630: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.shipped_quantity2',l_delivery_details_info.shipped_quantity2);
10631: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.received_quantity', l_delivery_details_info.received_quantity);
10632: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.received_quantity2',l_delivery_details_info.received_quantity2);
10625:
10626: IF l_debug_on THEN
10627: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.requested_quantity', l_delivery_details_info.requested_quantity);
10628: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.requested_quantity2',l_delivery_details_info.requested_quantity2);
10629: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.shipped_quantity', l_delivery_details_info.shipped_quantity);
10630: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.shipped_quantity2',l_delivery_details_info.shipped_quantity2);
10631: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.received_quantity', l_delivery_details_info.received_quantity);
10632: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.received_quantity2',l_delivery_details_info.received_quantity2);
10633: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.returned_quantity', l_delivery_details_info.returned_quantity);
10626: IF l_debug_on THEN
10627: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.requested_quantity', l_delivery_details_info.requested_quantity);
10628: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.requested_quantity2',l_delivery_details_info.requested_quantity2);
10629: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.shipped_quantity', l_delivery_details_info.shipped_quantity);
10630: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.shipped_quantity2',l_delivery_details_info.shipped_quantity2);
10631: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.received_quantity', l_delivery_details_info.received_quantity);
10632: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.received_quantity2',l_delivery_details_info.received_quantity2);
10633: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.returned_quantity', l_delivery_details_info.returned_quantity);
10634: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.returned_quantity2',l_delivery_details_info.returned_quantity2);
10627: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.requested_quantity', l_delivery_details_info.requested_quantity);
10628: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.requested_quantity2',l_delivery_details_info.requested_quantity2);
10629: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.shipped_quantity', l_delivery_details_info.shipped_quantity);
10630: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.shipped_quantity2',l_delivery_details_info.shipped_quantity2);
10631: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.received_quantity', l_delivery_details_info.received_quantity);
10632: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.received_quantity2',l_delivery_details_info.received_quantity2);
10633: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.returned_quantity', l_delivery_details_info.returned_quantity);
10634: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.returned_quantity2',l_delivery_details_info.returned_quantity2);
10635: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity',l_delivery_details_info.picked_quantity);
10628: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.requested_quantity2',l_delivery_details_info.requested_quantity2);
10629: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.shipped_quantity', l_delivery_details_info.shipped_quantity);
10630: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.shipped_quantity2',l_delivery_details_info.shipped_quantity2);
10631: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.received_quantity', l_delivery_details_info.received_quantity);
10632: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.received_quantity2',l_delivery_details_info.received_quantity2);
10633: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.returned_quantity', l_delivery_details_info.returned_quantity);
10634: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.returned_quantity2',l_delivery_details_info.returned_quantity2);
10635: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity',l_delivery_details_info.picked_quantity);
10636: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity2',l_delivery_details_info.picked_quantity2);
10629: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.shipped_quantity', l_delivery_details_info.shipped_quantity);
10630: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.shipped_quantity2',l_delivery_details_info.shipped_quantity2);
10631: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.received_quantity', l_delivery_details_info.received_quantity);
10632: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.received_quantity2',l_delivery_details_info.received_quantity2);
10633: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.returned_quantity', l_delivery_details_info.returned_quantity);
10634: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.returned_quantity2',l_delivery_details_info.returned_quantity2);
10635: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity',l_delivery_details_info.picked_quantity);
10636: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity2',l_delivery_details_info.picked_quantity2);
10637: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',l_original_shipped_qty);
10630: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.shipped_quantity2',l_delivery_details_info.shipped_quantity2);
10631: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.received_quantity', l_delivery_details_info.received_quantity);
10632: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.received_quantity2',l_delivery_details_info.received_quantity2);
10633: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.returned_quantity', l_delivery_details_info.returned_quantity);
10634: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.returned_quantity2',l_delivery_details_info.returned_quantity2);
10635: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity',l_delivery_details_info.picked_quantity);
10636: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity2',l_delivery_details_info.picked_quantity2);
10637: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',l_original_shipped_qty);
10638: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty2',l_original_shipped_qty2);
10631: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.received_quantity', l_delivery_details_info.received_quantity);
10632: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.received_quantity2',l_delivery_details_info.received_quantity2);
10633: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.returned_quantity', l_delivery_details_info.returned_quantity);
10634: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.returned_quantity2',l_delivery_details_info.returned_quantity2);
10635: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity',l_delivery_details_info.picked_quantity);
10636: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity2',l_delivery_details_info.picked_quantity2);
10637: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',l_original_shipped_qty);
10638: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty2',l_original_shipped_qty2);
10639: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
10632: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.received_quantity2',l_delivery_details_info.received_quantity2);
10633: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.returned_quantity', l_delivery_details_info.returned_quantity);
10634: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.returned_quantity2',l_delivery_details_info.returned_quantity2);
10635: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity',l_delivery_details_info.picked_quantity);
10636: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity2',l_delivery_details_info.picked_quantity2);
10637: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',l_original_shipped_qty);
10638: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty2',l_original_shipped_qty2);
10639: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
10640: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
10633: WSH_DEBUG_SV.log(l_module_name,' l_delivery_details_info.returned_quantity', l_delivery_details_info.returned_quantity);
10634: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.returned_quantity2',l_delivery_details_info.returned_quantity2);
10635: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity',l_delivery_details_info.picked_quantity);
10636: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity2',l_delivery_details_info.picked_quantity2);
10637: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',l_original_shipped_qty);
10638: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty2',l_original_shipped_qty2);
10639: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
10640: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
10641: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty',l_original_req_qty);
10634: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.returned_quantity2',l_delivery_details_info.returned_quantity2);
10635: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity',l_delivery_details_info.picked_quantity);
10636: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity2',l_delivery_details_info.picked_quantity2);
10637: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',l_original_shipped_qty);
10638: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty2',l_original_shipped_qty2);
10639: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
10640: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
10641: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty',l_original_req_qty);
10642: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty2',l_original_req_qty2);
10635: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity',l_delivery_details_info.picked_quantity);
10636: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity2',l_delivery_details_info.picked_quantity2);
10637: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',l_original_shipped_qty);
10638: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty2',l_original_shipped_qty2);
10639: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
10640: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
10641: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty',l_original_req_qty);
10642: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty2',l_original_req_qty2);
10643: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty',l_original_picked_qty);
10636: WSH_DEBUG_SV.log(l_module_name,'l_delivery_details_info.picked_quantity2',l_delivery_details_info.picked_quantity2);
10637: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',l_original_shipped_qty);
10638: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty2',l_original_shipped_qty2);
10639: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
10640: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
10641: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty',l_original_req_qty);
10642: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty2',l_original_req_qty2);
10643: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty',l_original_picked_qty);
10644: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty2',l_original_picked_qty2);
10637: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty',l_original_shipped_qty);
10638: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty2',l_original_shipped_qty2);
10639: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
10640: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
10641: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty',l_original_req_qty);
10642: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty2',l_original_req_qty2);
10643: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty',l_original_picked_qty);
10644: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty2',l_original_picked_qty2);
10645: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty',l_original_recvd_qty);
10638: WSH_DEBUG_SV.log(l_module_name,'l_original_shipped_qty2',l_original_shipped_qty2);
10639: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
10640: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
10641: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty',l_original_req_qty);
10642: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty2',l_original_req_qty2);
10643: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty',l_original_picked_qty);
10644: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty2',l_original_picked_qty2);
10645: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty',l_original_recvd_qty);
10646: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty2',l_original_recvd_qty2);
10639: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty',l_original_cc_qty);
10640: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
10641: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty',l_original_req_qty);
10642: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty2',l_original_req_qty2);
10643: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty',l_original_picked_qty);
10644: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty2',l_original_picked_qty2);
10645: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty',l_original_recvd_qty);
10646: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty2',l_original_recvd_qty2);
10647: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty',l_original_rtv_qty);
10640: WSH_DEBUG_SV.log(l_module_name,'l_original_cc_qty2',l_original_cc_qty2);
10641: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty',l_original_req_qty);
10642: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty2',l_original_req_qty2);
10643: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty',l_original_picked_qty);
10644: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty2',l_original_picked_qty2);
10645: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty',l_original_recvd_qty);
10646: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty2',l_original_recvd_qty2);
10647: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty',l_original_rtv_qty);
10648: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty2',l_original_rtv_qty2);
10641: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty',l_original_req_qty);
10642: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty2',l_original_req_qty2);
10643: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty',l_original_picked_qty);
10644: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty2',l_original_picked_qty2);
10645: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty',l_original_recvd_qty);
10646: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty2',l_original_recvd_qty2);
10647: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty',l_original_rtv_qty);
10648: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty2',l_original_rtv_qty2);
10649: END IF;
10642: WSH_DEBUG_SV.log(l_module_name,'l_original_req_qty2',l_original_req_qty2);
10643: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty',l_original_picked_qty);
10644: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty2',l_original_picked_qty2);
10645: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty',l_original_recvd_qty);
10646: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty2',l_original_recvd_qty2);
10647: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty',l_original_rtv_qty);
10648: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty2',l_original_rtv_qty2);
10649: END IF;
10650:
10643: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty',l_original_picked_qty);
10644: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty2',l_original_picked_qty2);
10645: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty',l_original_recvd_qty);
10646: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty2',l_original_recvd_qty2);
10647: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty',l_original_rtv_qty);
10648: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty2',l_original_rtv_qty2);
10649: END IF;
10650:
10651: --
10644: WSH_DEBUG_SV.log(l_module_name,'l_original_picked_qty2',l_original_picked_qty2);
10645: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty',l_original_recvd_qty);
10646: WSH_DEBUG_SV.log(l_module_name,'l_original_recvd_qty2',l_original_recvd_qty2);
10647: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty',l_original_rtv_qty);
10648: WSH_DEBUG_SV.log(l_module_name,'l_original_rtv_qty2',l_original_rtv_qty2);
10649: END IF;
10650:
10651: --
10652: --}
10665: IF p_old_delivery_detail_rec.wv_frozen_flag = 'Y' THEN
10666: l_org_wv_qty := NVL(p_old_delivery_detail_rec.received_quantity,NVL(p_old_delivery_detail_rec.shipped_quantity,NVL(p_old_delivery_detail_rec.picked_quantity, p_old_delivery_detail_rec.requested_quantity)));
10667:
10668: IF l_debug_on THEN
10669: WSH_DEBUG_SV.logmsg(l_module_name, 'Frozen Y');
10670: END IF;
10671:
10672: IF (p_manual_split = 'Y') THEN
10673: -- p_manual_split is 'Y' only when splitting for staged delivery details during ship confirm
10778: END IF; -- are there serial numbers to split?
10779:
10780: --
10781: IF l_debug_on THEN
10782: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_NEW_DETAIL_FROM_OLD',WSH_DEBUG_SV.C_PROC_LEVEL);
10783: END IF;
10784: --
10785: WSH_DELIVERY_DETAILS_PKG.create_new_detail_from_old(
10786: p_delivery_detail_rec => l_delivery_details_info,
10807: l_total_vol := 0;
10808: ELSE
10809: -- end bug 4416863
10810: IF l_debug_on THEN
10811: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
10812: END IF;
10813:
10814: WSH_WV_UTILS.Detail_Weight_Volume(
10815: p_delivery_detail_id => l_new_delivery_detail_id,
10845:
10846: l_delivery_assignments_info.delivery_detail_id := l_new_delivery_detail_id;
10847: --
10848: IF l_debug_on THEN
10849: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_ASSIGNMENTS',WSH_DEBUG_SV.C_PROC_LEVEL);
10850: END IF;
10851: --
10852: wsh_delivery_details_pkg.create_delivery_assignments(
10853: l_delivery_assignments_info,
10906:
10907: x_split_detail_id := l_new_delivery_detail_id;
10908:
10909: IF l_debug_on THEN
10910: WSH_DEBUG_SV.logmsg(l_module_name, 'Before Update wsh_delivery_details');
10911: WSH_DEBUG_SV.log(l_module_name, 'serial_number',l_updated_delivery_detail_rec.serial_number);
10912: WSH_DEBUG_SV.log(l_module_name, 'to_serial_number',l_updated_delivery_detail_rec.to_serial_number);
10913: WSH_DEBUG_SV.log(l_module_name, 'transaction_temp_id',l_updated_delivery_detail_rec.transaction_temp_id);
10914: END IF;
10907: x_split_detail_id := l_new_delivery_detail_id;
10908:
10909: IF l_debug_on THEN
10910: WSH_DEBUG_SV.logmsg(l_module_name, 'Before Update wsh_delivery_details');
10911: WSH_DEBUG_SV.log(l_module_name, 'serial_number',l_updated_delivery_detail_rec.serial_number);
10912: WSH_DEBUG_SV.log(l_module_name, 'to_serial_number',l_updated_delivery_detail_rec.to_serial_number);
10913: WSH_DEBUG_SV.log(l_module_name, 'transaction_temp_id',l_updated_delivery_detail_rec.transaction_temp_id);
10914: END IF;
10915:
10908:
10909: IF l_debug_on THEN
10910: WSH_DEBUG_SV.logmsg(l_module_name, 'Before Update wsh_delivery_details');
10911: WSH_DEBUG_SV.log(l_module_name, 'serial_number',l_updated_delivery_detail_rec.serial_number);
10912: WSH_DEBUG_SV.log(l_module_name, 'to_serial_number',l_updated_delivery_detail_rec.to_serial_number);
10913: WSH_DEBUG_SV.log(l_module_name, 'transaction_temp_id',l_updated_delivery_detail_rec.transaction_temp_id);
10914: END IF;
10915:
10916: UPDATE wsh_delivery_details
10909: IF l_debug_on THEN
10910: WSH_DEBUG_SV.logmsg(l_module_name, 'Before Update wsh_delivery_details');
10911: WSH_DEBUG_SV.log(l_module_name, 'serial_number',l_updated_delivery_detail_rec.serial_number);
10912: WSH_DEBUG_SV.log(l_module_name, 'to_serial_number',l_updated_delivery_detail_rec.to_serial_number);
10913: WSH_DEBUG_SV.log(l_module_name, 'transaction_temp_id',l_updated_delivery_detail_rec.transaction_temp_id);
10914: END IF;
10915:
10916: UPDATE wsh_delivery_details
10917: SET requested_quantity = l_original_req_qty, -- J-IB-NPARIKH, GREATEST(requested_quantity - l_delivery_details_info.requested_quantity, 0),
10946: -- Update of wsh_delivery_details where requested_quantity/released_status
10947: -- are changed, call DBI API after the update.
10948: -- This API will also check for DBI Installed or not
10949: IF l_debug_on THEN
10950: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',p_old_delivery_detail_rec.delivery_detail_id);
10951: END IF;
10952: l_detail_tab(1) := p_old_delivery_detail_rec.delivery_detail_id;
10953: WSH_INTEGRATION.DBI_Update_Detail_Log
10954: (p_delivery_detail_id_tab => l_detail_tab,
10955: p_dml_type => 'UPDATE',
10956: x_return_status => l_dbi_rs);
10957:
10958: IF l_debug_on THEN
10959: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
10960: END IF;
10961: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
10962: x_return_status := l_dbi_rs;
10963: -- just pass this return status to caller API
10961: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
10962: x_return_status := l_dbi_rs;
10963: -- just pass this return status to caller API
10964: IF l_debug_on THEN
10965: WSH_DEBUG_SV.pop(l_module_name);
10966: END IF;
10967: return;
10968: END IF;
10969: -- End of Code for DBI Project
10972: -- J: W/V Changes
10973: -- Decrement the DD W/V from parent if p_unassign_flag is 'Y'
10974: IF (p_unassign_flag = 'Y') THEN
10975: IF l_debug_on THEN
10976: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
10977: END IF;
10978: --
10979: WSH_WV_UTILS.DD_WV_Post_Process(
10980: p_delivery_detail_id => p_old_delivery_detail_rec.delivery_detail_id,
10987: --
10988: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10989: WSH_UTIL_CORE.Add_Message(x_return_status);
10990: IF l_debug_on THEN
10991: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
10992: WSH_DEBUG_SV.pop(l_module_name);
10993: END IF;
10994: return;
10995: END IF;
10988: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10989: WSH_UTIL_CORE.Add_Message(x_return_status);
10990: IF l_debug_on THEN
10991: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
10992: WSH_DEBUG_SV.pop(l_module_name);
10993: END IF;
10994: return;
10995: END IF;
10996: END IF;
10996: END IF;
10997:
10998: --
10999: IF l_debug_on THEN
11000: WSH_DEBUG_SV.pop(l_module_name);
11001: END IF;
11002: --
11003: EXCEPTION
11004: -- HW OPMCONV. Removed OPM exception
11009: FND_MESSAGE.SET_TOKEN('DETAIL_ID', p_old_delivery_detail_rec.delivery_detail_id);
11010: wsh_util_core.add_message(x_return_status,l_module_name);
11011: --
11012: IF l_debug_on THEN
11013: WSH_DEBUG_SV.logmsg(l_module_name,'OLD_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11014: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
11015: END IF;
11016: --
11017: WHEN new_det_wt_vol_failed THEN
11010: wsh_util_core.add_message(x_return_status,l_module_name);
11011: --
11012: IF l_debug_on THEN
11013: WSH_DEBUG_SV.logmsg(l_module_name,'OLD_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11014: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OLD_DET_WT_VOL_FAILED');
11015: END IF;
11016: --
11017: WHEN new_det_wt_vol_failed THEN
11018: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11020: FND_MESSAGE.SET_TOKEN('DETAIL_ID', l_new_DELIVERY_DETAIL_ID);
11021: wsh_util_core.add_message(x_return_status,l_module_name);
11022: --
11023: IF l_debug_on THEN
11024: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11025: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
11026: END IF;
11027: --
11028: WHEN WSH_SN_SPLIT_ERR THEN
11021: wsh_util_core.add_message(x_return_status,l_module_name);
11022: --
11023: IF l_debug_on THEN
11024: WSH_DEBUG_SV.logmsg(l_module_name,'NEW_DET_WT_VOL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11025: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NEW_DET_WT_VOL_FAILED');
11026: END IF;
11027: --
11028: WHEN WSH_SN_SPLIT_ERR THEN
11029: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11030: fnd_message.set_name('WSH', 'WSH_SN_SPLIT_ERR');
11031: wsh_util_core.add_message(x_return_status,l_module_name);
11032: --
11033: IF l_debug_on THEN
11034: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11035: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SN_SPLIT_ERR');
11036: END IF;
11037: --
11038: WHEN WSH_CREATE_DET_ERR THEN
11031: wsh_util_core.add_message(x_return_status,l_module_name);
11032: --
11033: IF l_debug_on THEN
11034: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11035: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_SN_SPLIT_ERR');
11036: END IF;
11037: --
11038: WHEN WSH_CREATE_DET_ERR THEN
11039: x_return_status := l_cr_dt_status;
11037: --
11038: WHEN WSH_CREATE_DET_ERR THEN
11039: x_return_status := l_cr_dt_status;
11040: IF l_debug_on THEN
11041: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11042: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_DET_ERR');
11043: END IF;
11044:
11045: WHEN others THEN
11038: WHEN WSH_CREATE_DET_ERR THEN
11039: x_return_status := l_cr_dt_status;
11040: IF l_debug_on THEN
11041: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_SN_SPLIT_ERR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11042: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_DET_ERR');
11043: END IF;
11044:
11045: WHEN others THEN
11046: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11046: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11047: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT',l_module_name);
11048: --
11049: IF l_debug_on THEN
11050: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11052: END IF;
11053: --
11054: END SPLIT_DETAIL_INT;
11047: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT',l_module_name);
11048: --
11049: IF l_debug_on THEN
11050: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11052: END IF;
11053: --
11054: END SPLIT_DETAIL_INT;
11055:
11121: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11122: --
11123: IF l_debug_on IS NULL
11124: THEN
11125: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11126: END IF;
11127: --
11128: IF l_debug_on THEN
11129: WSH_DEBUG_SV.push(l_module_name);
11125: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11126: END IF;
11127: --
11128: IF l_debug_on THEN
11129: WSH_DEBUG_SV.push(l_module_name);
11130: --
11131: WSH_DEBUG_SV.log(l_module_name,'P_OLD_SHIPPED_QUANTITY',P_OLD_SHIPPED_QUANTITY);
11132: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SHIPPED_QUANTITY',P_NEW_SHIPPED_QUANTITY);
11133: WSH_DEBUG_SV.log(l_module_name,'old serial_number',
11127: --
11128: IF l_debug_on THEN
11129: WSH_DEBUG_SV.push(l_module_name);
11130: --
11131: WSH_DEBUG_SV.log(l_module_name,'P_OLD_SHIPPED_QUANTITY',P_OLD_SHIPPED_QUANTITY);
11132: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SHIPPED_QUANTITY',P_NEW_SHIPPED_QUANTITY);
11133: WSH_DEBUG_SV.log(l_module_name,'old serial_number',
11134: x_old_detail_rec.serial_number);
11135: WSH_DEBUG_SV.log(l_module_name,'old to_serial_number',
11128: IF l_debug_on THEN
11129: WSH_DEBUG_SV.push(l_module_name);
11130: --
11131: WSH_DEBUG_SV.log(l_module_name,'P_OLD_SHIPPED_QUANTITY',P_OLD_SHIPPED_QUANTITY);
11132: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SHIPPED_QUANTITY',P_NEW_SHIPPED_QUANTITY);
11133: WSH_DEBUG_SV.log(l_module_name,'old serial_number',
11134: x_old_detail_rec.serial_number);
11135: WSH_DEBUG_SV.log(l_module_name,'old to_serial_number',
11136: x_old_detail_rec.to_serial_number);
11129: WSH_DEBUG_SV.push(l_module_name);
11130: --
11131: WSH_DEBUG_SV.log(l_module_name,'P_OLD_SHIPPED_QUANTITY',P_OLD_SHIPPED_QUANTITY);
11132: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SHIPPED_QUANTITY',P_NEW_SHIPPED_QUANTITY);
11133: WSH_DEBUG_SV.log(l_module_name,'old serial_number',
11134: x_old_detail_rec.serial_number);
11135: WSH_DEBUG_SV.log(l_module_name,'old to_serial_number',
11136: x_old_detail_rec.to_serial_number);
11137: WSH_DEBUG_SV.log(l_module_name,'old transaction_temp_id',
11131: WSH_DEBUG_SV.log(l_module_name,'P_OLD_SHIPPED_QUANTITY',P_OLD_SHIPPED_QUANTITY);
11132: WSH_DEBUG_SV.log(l_module_name,'P_NEW_SHIPPED_QUANTITY',P_NEW_SHIPPED_QUANTITY);
11133: WSH_DEBUG_SV.log(l_module_name,'old serial_number',
11134: x_old_detail_rec.serial_number);
11135: WSH_DEBUG_SV.log(l_module_name,'old to_serial_number',
11136: x_old_detail_rec.to_serial_number);
11137: WSH_DEBUG_SV.log(l_module_name,'old transaction_temp_id',
11138: x_old_detail_rec.transaction_temp_id);
11139: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
11133: WSH_DEBUG_SV.log(l_module_name,'old serial_number',
11134: x_old_detail_rec.serial_number);
11135: WSH_DEBUG_SV.log(l_module_name,'old to_serial_number',
11136: x_old_detail_rec.to_serial_number);
11137: WSH_DEBUG_SV.log(l_module_name,'old transaction_temp_id',
11138: x_old_detail_rec.transaction_temp_id);
11139: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
11140: x_old_detail_rec.shipped_quantity);
11141: WSH_DEBUG_SV.log(l_module_name,'old delivery_detail_id',
11135: WSH_DEBUG_SV.log(l_module_name,'old to_serial_number',
11136: x_old_detail_rec.to_serial_number);
11137: WSH_DEBUG_SV.log(l_module_name,'old transaction_temp_id',
11138: x_old_detail_rec.transaction_temp_id);
11139: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
11140: x_old_detail_rec.shipped_quantity);
11141: WSH_DEBUG_SV.log(l_module_name,'old delivery_detail_id',
11142: x_old_detail_rec.delivery_detail_id);
11143: WSH_DEBUG_SV.log(l_module_name,'old organization_id',
11137: WSH_DEBUG_SV.log(l_module_name,'old transaction_temp_id',
11138: x_old_detail_rec.transaction_temp_id);
11139: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
11140: x_old_detail_rec.shipped_quantity);
11141: WSH_DEBUG_SV.log(l_module_name,'old delivery_detail_id',
11142: x_old_detail_rec.delivery_detail_id);
11143: WSH_DEBUG_SV.log(l_module_name,'old organization_id',
11144: x_old_detail_rec.organization_id);
11145: WSH_DEBUG_SV.log(l_module_name,'old inventory_item_id',
11139: WSH_DEBUG_SV.log(l_module_name,'old shipped_quantity',
11140: x_old_detail_rec.shipped_quantity);
11141: WSH_DEBUG_SV.log(l_module_name,'old delivery_detail_id',
11142: x_old_detail_rec.delivery_detail_id);
11143: WSH_DEBUG_SV.log(l_module_name,'old organization_id',
11144: x_old_detail_rec.organization_id);
11145: WSH_DEBUG_SV.log(l_module_name,'old inventory_item_id',
11146: x_old_detail_rec.inventory_item_id);
11147:
11141: WSH_DEBUG_SV.log(l_module_name,'old delivery_detail_id',
11142: x_old_detail_rec.delivery_detail_id);
11143: WSH_DEBUG_SV.log(l_module_name,'old organization_id',
11144: x_old_detail_rec.organization_id);
11145: WSH_DEBUG_SV.log(l_module_name,'old inventory_item_id',
11146: x_old_detail_rec.inventory_item_id);
11147:
11148: END IF;
11149: --
11203: x_new_delivery_detail_rec.to_serial_number := l_new_to_sn;
11204:
11205: END IF; -- l_range_count > p_old_shipped_quantity
11206: IF l_debug_on THEN
11207: WSH_DEBUG_SV.log(l_module_name,'serial_number',
11208: x_new_delivery_detail_rec.serial_number);
11209: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',
11210: x_new_delivery_detail_rec.to_serial_number);
11211: END IF;
11205: END IF; -- l_range_count > p_old_shipped_quantity
11206: IF l_debug_on THEN
11207: WSH_DEBUG_SV.log(l_module_name,'serial_number',
11208: x_new_delivery_detail_rec.serial_number);
11209: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',
11210: x_new_delivery_detail_rec.to_serial_number);
11211: END IF;
11212:
11213: END IF; -- x_old_detail_rec.to_serail_number IS NULL
11216:
11217: -- we have at least one record in MTL_SERIAL_NUMBERS_TEMP
11218: --
11219: IF l_debug_on THEN
11220: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_SERIAL_QTY',WSH_DEBUG_SV.C_PROC_LEVEL);
11221: END IF;
11222: --
11223: l_ser_qty := WSH_DELIVERY_DETAILS_INV.Get_Serial_Qty(
11224: p_organization_id => x_old_detail_rec.organization_id,
11225: p_delivery_detail_id => x_old_detail_rec.delivery_detail_id);
11226: l_qty_to_split := l_ser_qty - p_old_shipped_quantity;
11227: --
11228: IF l_debug_on THEN
11229: WSH_DEBUG_SV.log(l_module_name,'L_QTY_TO_SPLIT',l_qty_to_split);
11230: END IF;
11231: --
11232:
11233: IF l_qty_to_split >= 1 THEN
11241: CLOSE c_temp_id;
11242: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11243: --
11244: IF l_debug_on THEN
11245: WSH_DEBUG_SV.log(l_module_name,'Return Status is error',x_return_status);
11246: WSH_DEBUG_SV.pop(l_module_name);
11247: END IF;
11248: --
11249: return;
11242: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11243: --
11244: IF l_debug_on THEN
11245: WSH_DEBUG_SV.log(l_module_name,'Return Status is error',x_return_status);
11246: WSH_DEBUG_SV.pop(l_module_name);
11247: END IF;
11248: --
11249: return;
11250: END IF;
11249: return;
11250: END IF;
11251: CLOSE c_temp_id;
11252: IF l_debug_on THEN
11253: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',
11254: l_transaction_temp_id);
11255: END IF;
11256: END IF;
11257: x_new_delivery_detail_rec.transaction_temp_id := nvl(l_transaction_temp_id,FND_API.G_MISS_NUM);
11262: IF (l_qty_to_split <= 0) THEN
11263: EXIT; -- finished with splitting serial numbers
11264: END IF;
11265: IF l_debug_on THEN
11266: WSH_DEBUG_SV.log(l_module_name,'c.to_serial_number',
11267: c.to_serial_number);
11268: WSH_DEBUG_SV.log(l_module_name,'c.fm_serial_number',
11269: c.fm_serial_number);
11270: END IF;
11264: END IF;
11265: IF l_debug_on THEN
11266: WSH_DEBUG_SV.log(l_module_name,'c.to_serial_number',
11267: c.to_serial_number);
11268: WSH_DEBUG_SV.log(l_module_name,'c.fm_serial_number',
11269: c.fm_serial_number);
11270: END IF;
11271:
11272: -- OR condition added for bug 4424259, making l_range_count = 1 if from and to serial numbers are same.
11283: l_prefix_length + 1));
11284: l_range_count := l_to_numeric - l_fm_numeric + 1;
11285: END IF; -- c.to_serial_number IS NULL
11286: IF l_debug_on THEN
11287: WSH_DEBUG_SV.log(l_module_name,'l_range_count',
11288: l_range_count);
11289: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_split',
11290: l_qty_to_split);
11291: END IF;
11285: END IF; -- c.to_serial_number IS NULL
11286: IF l_debug_on THEN
11287: WSH_DEBUG_SV.log(l_module_name,'l_range_count',
11288: l_range_count);
11289: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_split',
11290: l_qty_to_split);
11291: END IF;
11292:
11293: IF l_range_count > l_qty_to_split THEN
11305: IF p_old_shipped_quantity >= 1 THEN
11306: -- Bug 3782838 : Retain id for single serial number
11307: -- update record only if old delivery line still has at least 1 to ship.
11308: IF l_debug_on THEN
11309: WSH_DEBUG_SV.log(l_module_name,'l_old_to_sn',l_old_to_sn);
11310: END IF;
11311: UPDATE mtl_serial_numbers_temp
11312: SET to_serial_number = l_old_to_sn,
11313: serial_prefix = TO_CHAR(l_range_count - l_qty_to_split),
11316: last_update_login = FND_GLOBAL.LOGIN_ID
11317: WHERE rowid = c.rowid;
11318: END IF;
11319: IF l_debug_on THEN
11320: WSH_DEBUG_SV.log(l_module_name,
11321: 'inserting into mtl_serial_numbers_temp'
11322: ,l_transaction_temp_id);
11323: END IF;
11324:
11382: -- End of changes for 3782838
11383:
11384: -- bug 2740681
11385: IF l_debug_on THEN
11386: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_Unmark_Serial');
11387: WSH_DEBUG_SV.log(l_module_name,'l_new_sn,l_new_to_sn,inventory_item_id', l_new_sn
11388: ||','||l_new_to_sn
11389: ||','||x_old_detail_rec.inventory_item_id);
11390: END IF;
11383:
11384: -- bug 2740681
11385: IF l_debug_on THEN
11386: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_Unmark_Serial');
11387: WSH_DEBUG_SV.log(l_module_name,'l_new_sn,l_new_to_sn,inventory_item_id', l_new_sn
11388: ||','||l_new_to_sn
11389: ||','||x_old_detail_rec.inventory_item_id);
11390: END IF;
11391: Serial_Check.Inv_Unmark_Serial(
11397: NULL,
11398: x_old_detail_rec.inventory_item_id);
11399:
11400: IF l_debug_on THEN
11401: WSH_DEBUG_SV.logmsg(l_module_name,'After Calling Serial_Check.Inv_Unmark_Serial');
11402: END IF;
11403:
11404: IF l_debug_on THEN
11405: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11401: WSH_DEBUG_SV.logmsg(l_module_name,'After Calling Serial_Check.Inv_Unmark_Serial');
11402: END IF;
11403:
11404: IF l_debug_on THEN
11405: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11406: WSH_DEBUG_SV.log(l_module_name,'l_new_sn',l_new_sn);
11407: WSH_DEBUG_SV.log(l_module_name,'l_new_to_sn',l_new_to_sn);
11408: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11409: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11402: END IF;
11403:
11404: IF l_debug_on THEN
11405: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11406: WSH_DEBUG_SV.log(l_module_name,'l_new_sn',l_new_sn);
11407: WSH_DEBUG_SV.log(l_module_name,'l_new_to_sn',l_new_to_sn);
11408: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11409: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11410: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11403:
11404: IF l_debug_on THEN
11405: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11406: WSH_DEBUG_SV.log(l_module_name,'l_new_sn',l_new_sn);
11407: WSH_DEBUG_SV.log(l_module_name,'l_new_to_sn',l_new_to_sn);
11408: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11409: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11410: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11411: END IF;
11404: IF l_debug_on THEN
11405: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11406: WSH_DEBUG_SV.log(l_module_name,'l_new_sn',l_new_sn);
11407: WSH_DEBUG_SV.log(l_module_name,'l_new_to_sn',l_new_to_sn);
11408: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11409: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11410: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11411: END IF;
11412: Serial_Check.Inv_Mark_Serial(
11405: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11406: WSH_DEBUG_SV.log(l_module_name,'l_new_sn',l_new_sn);
11407: WSH_DEBUG_SV.log(l_module_name,'l_new_to_sn',l_new_to_sn);
11408: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11409: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11410: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11411: END IF;
11412: Serial_Check.Inv_Mark_Serial(
11413: l_new_sn,
11406: WSH_DEBUG_SV.log(l_module_name,'l_new_sn',l_new_sn);
11407: WSH_DEBUG_SV.log(l_module_name,'l_new_to_sn',l_new_to_sn);
11408: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11409: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11410: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11411: END IF;
11412: Serial_Check.Inv_Mark_Serial(
11413: l_new_sn,
11414: l_new_to_sn,
11418: l_transaction_temp_id,
11419: l_transaction_temp_id,
11420: l_success);
11421: IF l_debug_on THEN
11422: WSH_DEBUG_SV.log(l_module_name,'After Serial_Check.Inv_mark_Serial l_success',l_success);
11423: END IF;
11424:
11425: IF l_success < 0 THEN
11426: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11437:
11438: l_qty_to_split := 0;
11439:
11440: IF l_debug_on THEN
11441: WSH_DEBUG_SV.log(l_module_name,'new serial_number',
11442: x_new_delivery_detail_rec.serial_number);
11443: END IF;
11444: ELSE
11445: IF l_debug_on THEN
11442: x_new_delivery_detail_rec.serial_number);
11443: END IF;
11444: ELSE
11445: IF l_debug_on THEN
11446: WSH_DEBUG_SV.logmsg(l_module_name,'Split qty is grater than range');
11447: END IF;
11448:
11449: IF l_transaction_temp_id IS NOT NULL THEN
11450: IF l_debug_on THEN
11447: END IF;
11448:
11449: IF l_transaction_temp_id IS NOT NULL THEN
11450: IF l_debug_on THEN
11451: WSH_DEBUG_SV.log(l_module_name,
11452: 'Updating mtl_serial_numbers_temp',
11453: l_transaction_temp_id);
11454: END IF;
11455: -- we need to assign the full serial number range to the new line
11461: WHERE rowid = c.rowid;
11462:
11463: --Bug 2740681
11464: IF l_debug_on THEN
11465: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_Unmark_Serial');
11466: WSH_DEBUG_SV.log(l_module_name,'fm_serial_number,to_serial_number,inventory_item_id', c.fm_serial_number ||','||c.to_serial_number ||','||x_old_detail_rec.inventory_item_id);
11467: END IF;
11468: Serial_Check.Inv_Unmark_Serial(
11469: c.fm_serial_number,
11462:
11463: --Bug 2740681
11464: IF l_debug_on THEN
11465: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_Unmark_Serial');
11466: WSH_DEBUG_SV.log(l_module_name,'fm_serial_number,to_serial_number,inventory_item_id', c.fm_serial_number ||','||c.to_serial_number ||','||x_old_detail_rec.inventory_item_id);
11467: END IF;
11468: Serial_Check.Inv_Unmark_Serial(
11469: c.fm_serial_number,
11470: c.to_serial_number,
11473: NULL,
11474: NULL,
11475: x_old_detail_rec.inventory_item_id);
11476: IF l_debug_on THEN
11477: WSH_DEBUG_SV.logmsg(l_module_name,'After Calling Serial_Check.Inv_Unmark_Serial');
11478: END IF;
11479:
11480: IF l_debug_on THEN
11481: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11477: WSH_DEBUG_SV.logmsg(l_module_name,'After Calling Serial_Check.Inv_Unmark_Serial');
11478: END IF;
11479:
11480: IF l_debug_on THEN
11481: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11482: WSH_DEBUG_SV.log(l_module_name,'fm_serial_number',c.fm_serial_number);
11483: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',c.to_serial_number);
11484: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11485: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11478: END IF;
11479:
11480: IF l_debug_on THEN
11481: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11482: WSH_DEBUG_SV.log(l_module_name,'fm_serial_number',c.fm_serial_number);
11483: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',c.to_serial_number);
11484: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11485: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11486: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11479:
11480: IF l_debug_on THEN
11481: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11482: WSH_DEBUG_SV.log(l_module_name,'fm_serial_number',c.fm_serial_number);
11483: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',c.to_serial_number);
11484: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11485: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11486: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11487: END IF;
11480: IF l_debug_on THEN
11481: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11482: WSH_DEBUG_SV.log(l_module_name,'fm_serial_number',c.fm_serial_number);
11483: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',c.to_serial_number);
11484: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11485: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11486: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11487: END IF;
11488: Serial_Check.Inv_Mark_Serial(
11481: WSH_DEBUG_SV.logmsg(l_module_name,'Before Calling Serial_Check.Inv_mark_Serial');
11482: WSH_DEBUG_SV.log(l_module_name,'fm_serial_number',c.fm_serial_number);
11483: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',c.to_serial_number);
11484: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11485: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11486: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11487: END IF;
11488: Serial_Check.Inv_Mark_Serial(
11489: c.fm_serial_number,
11482: WSH_DEBUG_SV.log(l_module_name,'fm_serial_number',c.fm_serial_number);
11483: WSH_DEBUG_SV.log(l_module_name,'to_serial_number',c.to_serial_number);
11484: WSH_DEBUG_SV.log(l_module_name,'inventory_item_id',x_old_detail_rec.inventory_item_id);
11485: WSH_DEBUG_SV.log(l_module_name,'organization_id',x_old_detail_rec.organization_id);
11486: WSH_DEBUG_SV.log(l_module_name,'l_transaction_temp_id',l_transaction_temp_id);
11487: END IF;
11488: Serial_Check.Inv_Mark_Serial(
11489: c.fm_serial_number,
11490: c.to_serial_number,
11494: l_transaction_temp_id,
11495: l_transaction_temp_id,
11496: l_success);
11497: IF l_debug_on THEN
11498: WSH_DEBUG_SV.log(l_module_name,'After Serial_Check.Inv_mark_Serial l_success',l_success);
11499: END IF;
11500:
11501: IF l_success < 0 THEN
11502: FND_MESSAGE.SET_NAME('WSH','WSH_SER_RANGE_MK_ERROR');
11516: l_qty_to_split := l_qty_to_split - l_range_count;
11517:
11518: END IF; -- l_range_count > l_qty_to_split
11519: IF l_debug_on THEN
11520: WSH_DEBUG_SV.log(l_module_name,'l_qty_to_split',
11521: l_qty_to_split);
11522: END IF;
11523:
11524: IF (l_qty_to_split <= 0) AND (p_old_shipped_quantity > 1) THEN
11535: END IF; -- p_old_shipped_quantity < x_old_detail_rec.shipped_quantity
11536:
11537: --
11538: IF l_debug_on THEN
11539: WSH_DEBUG_SV.pop(l_module_name);
11540: END IF;
11541: --
11542: EXCEPTION
11543: WHEN others THEN
11545: wsh_util_core.default_handler('WSH_USA_ACTIONS_PVT.SPLIT_SERIAL_NUMBERS_INT',l_module_name);
11546:
11547: --
11548: IF l_debug_on THEN
11549: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11550: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11551: END IF;
11552: --
11553: END Split_Serial_Numbers_INT;
11546:
11547: --
11548: IF l_debug_on THEN
11549: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11550: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11551: END IF;
11552: --
11553: END Split_Serial_Numbers_INT;
11554:
11654: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11655: --
11656: IF l_debug_on IS NULL
11657: THEN
11658: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11659: END IF;
11660: --
11661: IF l_debug_on THEN
11662: WSH_DEBUG_SV.push(l_module_name);
11658: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11659: END IF;
11660: --
11661: IF l_debug_on THEN
11662: WSH_DEBUG_SV.push(l_module_name);
11663: --
11664: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
11665: END IF;
11666:
11660: --
11661: IF l_debug_on THEN
11662: WSH_DEBUG_SV.push(l_module_name);
11663: --
11664: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
11665: END IF;
11666:
11667: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11668:
11668:
11669: IF ( p_ids_tobe_unassigned.COUNT = 0 ) THEN
11670: --
11671: IF l_debug_on THEN
11672: WSH_DEBUG_SV.pop(l_module_name);
11673: END IF;
11674: --
11675: RETURN;
11676: END IF;
11676: END IF;
11677:
11678: FOR i in 1..p_ids_tobe_unassigned.COUNT LOOP
11679: IF l_debug_on THEN
11680: WSH_DEBUG_SV.log(l_module_name,'detail to be unassigned ',p_ids_tobe_unassigned(i));
11681: END IF;
11682: -- Get the parent container, if it exists
11683: OPEN get_container(p_ids_tobe_unassigned(i));
11684: FETCH get_container
11689: END IF;
11690: CLOSE get_container;
11691:
11692: IF l_debug_on THEN
11693: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
11694: END IF;
11695:
11696: -- Unassign the Line or Container
11697: -- because this
11702: );
11703:
11704: --
11705: IF l_debug_on THEN
11706: WSH_DEBUG_SV.log(l_module_name, 'AFTER CALLING UNASSIGN_DETAIL_FROM_DELIVERY: ', L_RETURN_STATUS);
11707: END IF;
11708: --
11709: -- Check if the Parent Container is empty, if yes, recursivelly call this API
11710: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11715: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
11716: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
11717: --
11718: --IF l_debug_on THEN
11719: --WSH_DEBUG_SV.pop(l_module_name);
11720: --END IF;
11721: --
11722: --RETURN; LPN CONV. rv
11723: raise e_return_excp; -- LPN CONV. rv
11732: END IF;
11733: CLOSE get_lines;
11734:
11735: IF l_debug_on THEN
11736: WSH_DEBUG_SV.log(l_module_name, 'L_LINE_ID ', L_LINE_ID);
11737: END IF;
11738:
11739: IF l_line_id IS NULL THEN
11740: IF l_debug_on THEN
11737: END IF;
11738:
11739: IF l_line_id IS NULL THEN
11740: IF l_debug_on THEN
11741: WSH_DEBUG_SV.log(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_UNPACK_EMPTY_CONT
11742: recursively for ',l_parent_container_id(1));
11743: END IF;
11744:
11745: -- lpn conv
11767: unassign_unpack_empty_cont ( p_ids_tobe_unassigned => l_parent_container_id,
11768: p_validate_flag => p_validate_flag,
11769: x_return_status => l_return_status);
11770: IF l_debug_on THEN
11771: WSH_DEBUG_SV.log(l_module_name, 'After calling UNASSIGN_UNPACK_EMPTY_CONT: ', L_RETURN_STATUS);
11772: END IF;
11773: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11774: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11775: x_return_status := l_return_status ;
11778: END IF;
11779: END IF;
11780: IF x_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
11781: --IF l_debug_on THEN
11782: --WSH_DEBUG_SV.pop(l_module_name);
11783: --END IF;
11784: --RETURN; LPN CONV. rv
11785: raise e_return_excp; -- LPN CONV. rv
11786: END IF;
11796: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
11797: THEN
11798: --{
11799: IF l_debug_on THEN
11800: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
11801: END IF;
11802:
11803: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
11804: (
11808: );
11809: --
11810: --
11811: IF l_debug_on THEN
11812: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
11813: END IF;
11814: --
11815: --
11816: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11827: -- K LPN CONV. rv
11828: --
11829: -- Added a pop as it was missing.
11830: IF l_debug_on THEN
11831: WSH_DEBUG_SV.pop(l_module_name);
11832: END IF;
11833:
11834: EXCEPTION
11835: WHEN e_return_excp THEN
11839: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
11840: THEN
11841: --{
11842: IF l_debug_on THEN
11843: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
11844: END IF;
11845:
11846: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
11847: (
11851: );
11852: --
11853: --
11854: IF l_debug_on THEN
11855: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
11856: END IF;
11857: --
11858: --
11859: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR) AND x_return_status <> WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
11865: --
11866: -- K LPN CONV. rv
11867: --
11868: IF l_debug_on THEN
11869: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_return_excp');
11870: END IF;
11871:
11872: WHEN OTHERS THEN
11873: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.unassign_unpack_empty_cont');
11873: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.unassign_unpack_empty_cont');
11874: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11875: --
11876: IF l_debug_on THEN
11877: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11878: END IF;
11879: --
11880: --
11881: -- K LPN CONV. rv
11883: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
11884: THEN
11885: --{
11886: IF l_debug_on THEN
11887: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',WSH_DEBUG_SV.C_PROC_LEVEL);
11888: END IF;
11889:
11890: WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS
11891: (
11895: );
11896: --
11897: --
11898: IF l_debug_on THEN
11899: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
11900: END IF;
11901: --
11902: --
11903: --}
11908: --
11909: -- Debug Statements
11910: --
11911: IF l_debug_on THEN
11912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11913: END IF;
11914: --
11915:
11916: END unassign_unpack_empty_cont;
12002: --
12003: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12004: --
12005: IF l_debug_on IS NULL THEN
12006: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12007: END IF;
12008: --
12009: IF l_debug_on THEN
12010: WSH_DEBUG_SV.push(l_module_name);
12006: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12007: END IF;
12008: --
12009: IF l_debug_on THEN
12010: WSH_DEBUG_SV.push(l_module_name);
12011: --
12012: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_DETAIL_ID',P_OLD_DELIVERY_DETAIL_ID);
12013: WSH_DEBUG_SV.log(l_module_name,'P_NEW_DELIVERY_DETAIL_ID',P_NEW_DELIVERY_DETAIL_ID);
12014: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12008: --
12009: IF l_debug_on THEN
12010: WSH_DEBUG_SV.push(l_module_name);
12011: --
12012: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_DETAIL_ID',P_OLD_DELIVERY_DETAIL_ID);
12013: WSH_DEBUG_SV.log(l_module_name,'P_NEW_DELIVERY_DETAIL_ID',P_NEW_DELIVERY_DETAIL_ID);
12014: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12015: --
12016: END IF;
12009: IF l_debug_on THEN
12010: WSH_DEBUG_SV.push(l_module_name);
12011: --
12012: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_DETAIL_ID',P_OLD_DELIVERY_DETAIL_ID);
12013: WSH_DEBUG_SV.log(l_module_name,'P_NEW_DELIVERY_DETAIL_ID',P_NEW_DELIVERY_DETAIL_ID);
12014: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12015: --
12016: END IF;
12017:
12010: WSH_DEBUG_SV.push(l_module_name);
12011: --
12012: WSH_DEBUG_SV.log(l_module_name,'P_OLD_DELIVERY_DETAIL_ID',P_OLD_DELIVERY_DETAIL_ID);
12013: WSH_DEBUG_SV.log(l_module_name,'P_NEW_DELIVERY_DETAIL_ID',P_NEW_DELIVERY_DETAIL_ID);
12014: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
12015: --
12016: END IF;
12017:
12018: select requested_quantity,requested_quantity2 into l_qty1,l_qty2
12019: from wsh_delivery_details
12020: where delivery_detail_id = p_new_delivery_detail_id;
12021:
12022: IF l_debug_on THEN
12023: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
12024: END IF;
12025: --
12026: FOR pexceptions in parent_del_exception
12027: LOOP
12047: -- To ensure exceptions are logged against split delivery detail, its required
12048: -- to pass null to l_dummy_exception_id which is used to determine, when to INSERT
12049: -- and when to UPDATE exceptions
12050: IF l_debug_on THEN
12051: WSH_DEBUG_SV.log(l_module_name,'EXCEPTION NAME-',pexceptions.exception_name);
12052: WSH_DEBUG_SV.log(l_module_name,'p_action -',p_action);
12053:
12054: END IF;
12055:
12048: -- to pass null to l_dummy_exception_id which is used to determine, when to INSERT
12049: -- and when to UPDATE exceptions
12050: IF l_debug_on THEN
12051: WSH_DEBUG_SV.log(l_module_name,'EXCEPTION NAME-',pexceptions.exception_name);
12052: WSH_DEBUG_SV.log(l_module_name,'p_action -',p_action);
12053:
12054: END IF;
12055:
12056: l_dummy_exception_id := NULL;
12119: --
12120: -- Debug Statements
12121: --
12122: IF l_debug_on THEN
12123: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_XC_UTIL.LOG_EXCEPTION DID NOTRETURN SUCCESS' );
12124: END IF;
12125: --
12126: END IF;
12127:
12125: --
12126: END IF;
12127:
12128: IF l_debug_on THEN
12129: WSH_DEBUG_SV.pop(l_module_name);
12130: END IF;
12131:
12132: EXCEPTION
12133: WHEN OTHERS THEN
12131:
12132: EXCEPTION
12133: WHEN OTHERS THEN
12134: IF l_debug_on THEN
12135: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12136: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12137: END IF;
12138:
12139: END Log_Exceptions;
12132: EXCEPTION
12133: WHEN OTHERS THEN
12134: IF l_debug_on THEN
12135: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12136: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12137: END IF;
12138:
12139: END Log_Exceptions;
12140: /*2442099*/
12240: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12241: --
12242: IF l_debug_on IS NULL THEN
12243:
12244: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12245: END IF;
12246: --
12247: IF l_debug_on THEN
12248:
12245: END IF;
12246: --
12247: IF l_debug_on THEN
12248:
12249: WSH_DEBUG_SV.push(l_module_name);
12250: END IF;
12251: --
12252:
12253: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12260: --
12261: -- Debug Statements
12262: --
12263: IF l_debug_on THEN
12264: WSH_DEBUG_SV.log(l_module_name,'********* Processing the Delivery Detail Id:',p_Cons_Source_Line_Rec_Tab(i).delivery_detail_id);
12265: END IF;
12266: --
12267: l_temp_cnt := l_delete_dd_ids.COUNT;
12268: l_total_req_qty := 0;
12278: -- Debug Statements
12279: --
12280: IF l_debug_on THEN
12281: --
12282: WSH_DEBUG_SV.log(l_module_name,'Found Existing Back Order Del Det line: ',l_del_det_Id);
12283: END IF;
12284: --
12285: l_delete_dd_ids(l_delete_dd_ids.COUNT + 1) :=l_del_det_Id;
12286: l_total_req_qty := l_total_req_qty + l_req_qty;
12305: --
12306: -- Debug Statements
12307: --
12308: IF l_debug_on THEN
12309: WSH_DEBUG_SV.log(l_module_name,'Consolidated Into Delivery Detail Id ',l_cons_dd_ids(l_cons_dd_ids.COUNT));
12310: END IF;
12311:
12312: -- Getting the shipping and packing instructions from the source line id. which are to be assigned
12313: -- to final delivery detail for the given source line id.
12331: --
12332: -- Debug Statements
12333: --
12334: IF l_debug_on THEN
12335: WSH_DEBUG_SV.log(l_module_name,'Updating Req Qty for the Del Det Id (Bo Qty < Req. Qty) ',l_partial_dd_ids (l_partial_dd_ids.COUNT));
12336: END IF;
12337: --
12338: ELSE
12339: l_delete_dd_ids(l_delete_dd_ids.COUNT+1):= p_Cons_Source_Line_Rec_Tab(i).delivery_detail_id;
12340: --
12341: -- Debug Statements
12342: --
12343: IF l_debug_on THEN
12344: WSH_DEBUG_SV.log(l_module_name,'Deleting the Del Det Id (Bo Qty = Req qty)',l_delete_dd_ids(l_delete_dd_ids.COUNT));
12345: END IF;
12346: --
12347: END IF; --} Is it Partial BO
12348: ELSE -- No consolidation if possible for the delivery Detail id
12349: --
12350: -- Debug Statements
12351: --
12352: IF l_debug_on THEN
12353: WSH_DEBUG_SV.log(l_module_name,'No Existing Back Order Del Det Lines found');
12354: END IF;
12355: --
12356: x_consolidate_ids (i) := p_Cons_Source_Line_Rec_Tab(i).delivery_detail_id;
12357: END IF; --} Check for existing back order lines
12371: --
12372: -- Debug Statements
12373: --
12374: IF l_debug_on THEN
12375: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
12376: END IF;
12377: --
12378: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details(
12379: p_delivery_detail_id => l_delete_dd_ids(i),
12380: x_return_status => l_return_status );
12381:
12382: --
12383: IF l_debug_on THEN
12384: WSH_DEBUG_SV.logmsg(l_module_name, 'After calling DELETE_DELIVERY_DETAILS: ' || l_return_status );
12385: END IF;
12386: --
12387: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12392:
12393: END LOOP; -- }
12394:
12395: IF l_debug_on THEN
12396: WSH_DEBUG_SV.log(l_module_name,'Updating details for consolidation.Detail Count-',l_cons_dd_ids.count);
12397: END IF;
12398: -- Updating the selected Delivery Details for the consolidation with corresponding total Qty
12399: FOR i IN 1..l_cons_dd_ids.COUNT LOOP
12400: -- HW OPM BUG#:3121616 added qty2s
12424: -- Update of wsh_delivery_details where requested_quantity/released_status
12425: -- are changed, call DBI API after the update.
12426: -- DBI API will check if DBI is installed
12427: IF l_debug_on THEN
12428: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_cons_dd_ids.count);
12429: END IF;
12430: WSH_INTEGRATION.DBI_Update_Detail_Log
12431: (p_delivery_detail_id_tab => l_cons_dd_ids,
12432: p_dml_type => 'UPDATE',
12432: p_dml_type => 'UPDATE',
12433: x_return_status => l_dbi_rs);
12434:
12435: IF l_debug_on THEN
12436: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
12437: END IF;
12438: -- Only Handle Unexpected error
12439: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12440: --
12448: FORALL i IN 1..l_cons_dd_ids.COUNT
12449: DELETE FROM WSH_FREIGHT_COSTS
12450: WHERE delivery_detail_id = l_cons_dd_ids(i);
12451: IF l_debug_on THEN
12452: WSH_DEBUG_SV.log(l_module_name,'Freight Cost Rows deleted',SQL%ROWCOUNT);
12453: END IF;
12454:
12455: -- J: W/V Changes
12456: IF l_debug_on THEN
12453: END IF;
12454:
12455: -- J: W/V Changes
12456: IF l_debug_on THEN
12457: WSH_DEBUG_SV.logmsg(l_module_name,'l_cons_dd_ids.COUNT '||l_cons_dd_ids.COUNT);
12458: END IF;
12459:
12460: IF l_cons_dd_ids.COUNT > 0 THEN
12461:
12461:
12462: FOR l_index in l_cons_dd_ids.FIRST..l_cons_dd_ids.LAST LOOP
12463:
12464: IF l_debug_on THEN
12465: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
12466: END IF;
12467: --
12468: WSH_WV_UTILS.Detail_Weight_Volume(
12469: p_delivery_detail_id => l_cons_dd_ids(l_index),
12473: x_net_weight => l_tmp_weight,
12474: x_volume => l_tmp_volume,
12475: x_return_status => l_return_status);
12476: IF l_debug_on THEN
12477: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
12478: END IF;
12479: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12481: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12487: END LOOP;
12488: END IF;
12489:
12490: IF l_debug_on THEN
12491: WSH_DEBUG_SV.log(l_module_name,'Updating partial bkorder cases.Detail Count-',l_partial_dd_ids.count);
12492: END IF;
12493: -- Updating the partial Back order cases. Qty should be subtracted for the partial case
12494: FORALL i IN 1..l_partial_dd_ids.COUNT
12495: -- HW OPM BUG#:3121616 added qty2s
12503: -- Update of wsh_delivery_details where requested_quantity/released_status
12504: -- are changed, call DBI API after the update.
12505: -- DBI API will check if DBI is installed
12506: IF l_debug_on THEN
12507: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_partial_dd_ids.count);
12508: END IF;
12509: WSH_INTEGRATION.DBI_Update_Detail_Log
12510: (p_delivery_detail_id_tab => l_partial_dd_ids,
12511: p_dml_type => 'UPDATE',
12511: p_dml_type => 'UPDATE',
12512: x_return_status => l_dbi_rs);
12513:
12514: IF l_debug_on THEN
12515: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
12516: END IF;
12517: -- Only Handle Unexpected error
12518: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
12519: --
12525: -- We need to adjust the W/V if DDs W/V is frozen
12526: IF l_partial_dd_ids.COUNT > 0 THEN
12527:
12528: IF l_debug_on THEN
12529: WSH_DEBUG_SV.logmsg(l_module_name,'l_partial_dd_ids.COUNT '||l_partial_dd_ids.COUNT);
12530: END IF;
12531:
12532: FOR l_index in l_partial_dd_ids.FIRST..l_partial_dd_ids.LAST LOOP
12533:
12544:
12545: IF l_wv_frozen_flag = 'Y' THEN
12546:
12547: IF l_debug_on THEN
12548: WSH_DEBUG_SV.logmsg(l_module_name,'W/V Frozen flag is Y for DD '||l_partial_dd_ids(l_index));
12549: END IF;
12550:
12551: l_new_gross_wt := round(l_gross_weight * (l_partial_req_qtys(l_index)/l_partial_org_req_qtys(l_index)) ,5);
12552: l_new_net_wt := round(l_net_weight * (l_partial_req_qtys(l_index)/l_partial_org_req_qtys(l_index)) ,5);
12552: l_new_net_wt := round(l_net_weight * (l_partial_req_qtys(l_index)/l_partial_org_req_qtys(l_index)) ,5);
12553: l_new_vol := round(l_volume * (l_partial_req_qtys(l_index)/l_partial_org_req_qtys(l_index)) ,5);
12554:
12555: IF l_debug_on THEN
12556: WSH_DEBUG_SV.logmsg(l_module_name,'Updating DD '||l_partial_dd_ids(l_index)||' with Gross '||l_new_gross_wt||' Net '||l_new_net_wt||' Vol '||l_new_vol);
12557: END IF;
12558:
12559: UPDATE wsh_delivery_details
12560: set gross_weight = l_new_gross_wt,
12562: volume = l_new_vol
12563: WHERE delivery_detail_id = l_partial_dd_ids(l_index);
12564:
12565: IF l_debug_on THEN
12566: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
12567: END IF;
12568:
12569: WSH_WV_UTILS.DD_WV_Post_Process(
12570: p_delivery_detail_id => l_partial_dd_ids(l_index),
12577: --
12578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12579: WSH_UTIL_CORE.Add_Message(x_return_status);
12580: IF l_debug_on THEN
12581: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
12582: WSH_DEBUG_SV.pop(l_module_name);
12583: END IF;
12584: return;
12585: END IF;
12578: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12579: WSH_UTIL_CORE.Add_Message(x_return_status);
12580: IF l_debug_on THEN
12581: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
12582: WSH_DEBUG_SV.pop(l_module_name);
12583: END IF;
12584: return;
12585: END IF;
12586:
12591: --
12592: -- Debug Statements
12593: --
12594: IF l_debug_on THEN
12595: WSH_DEBUG_SV.pop(l_module_name);
12596: END IF;
12597: --
12598: EXCEPTION
12599:
12601: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12602:
12603: --
12604: IF l_debug_on THEN
12605: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12606: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12607: END IF;
12608: --
12609: return;
12602:
12603: --
12604: IF l_debug_on THEN
12605: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12606: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
12607: END IF;
12608: --
12609: return;
12610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12610: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12611: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12612: --
12613: IF l_debug_on THEN
12614: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12616: END IF;
12617: --
12618: return;
12611: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12612: --
12613: IF l_debug_on THEN
12614: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12615: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12616: END IF;
12617: --
12618: return;
12619:
12624: --
12625: -- Debug Statements
12626: --
12627: IF l_debug_on THEN
12628: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12629: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12630: END IF;
12631: --
12632: END Consolidate_Source_Line;
12625: -- Debug Statements
12626: --
12627: IF l_debug_on THEN
12628: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12629: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12630: END IF;
12631: --
12632: END Consolidate_Source_Line;
12633:
12677: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12678: --
12679: IF l_debug_on IS NULL
12680: THEN
12681: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12682: END IF;
12683: --
12684: IF l_debug_on THEN
12685: WSH_DEBUG_SV.push(l_module_name);
12681: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12682: END IF;
12683: --
12684: IF l_debug_on THEN
12685: WSH_DEBUG_SV.push(l_module_name);
12686: --
12687: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',p_delivery_detail_id);
12688: WSH_DEBUG_SV.log(l_module_name,'P_BO_QTY',p_bo_qty);
12689: WSH_DEBUG_SV.log(l_module_name,'P_OVERPICK_QTY',p_overpick_qty);
12683: --
12684: IF l_debug_on THEN
12685: WSH_DEBUG_SV.push(l_module_name);
12686: --
12687: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',p_delivery_detail_id);
12688: WSH_DEBUG_SV.log(l_module_name,'P_BO_QTY',p_bo_qty);
12689: WSH_DEBUG_SV.log(l_module_name,'P_OVERPICK_QTY',p_overpick_qty);
12690: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
12691: WSH_DEBUG_SV.log(l_module_name,'P_DELETE_FLAG',P_DELETE_FLAG);
12684: IF l_debug_on THEN
12685: WSH_DEBUG_SV.push(l_module_name);
12686: --
12687: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',p_delivery_detail_id);
12688: WSH_DEBUG_SV.log(l_module_name,'P_BO_QTY',p_bo_qty);
12689: WSH_DEBUG_SV.log(l_module_name,'P_OVERPICK_QTY',p_overpick_qty);
12690: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
12691: WSH_DEBUG_SV.log(l_module_name,'P_DELETE_FLAG',P_DELETE_FLAG);
12692: END IF;
12685: WSH_DEBUG_SV.push(l_module_name);
12686: --
12687: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',p_delivery_detail_id);
12688: WSH_DEBUG_SV.log(l_module_name,'P_BO_QTY',p_bo_qty);
12689: WSH_DEBUG_SV.log(l_module_name,'P_OVERPICK_QTY',p_overpick_qty);
12690: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
12691: WSH_DEBUG_SV.log(l_module_name,'P_DELETE_FLAG',P_DELETE_FLAG);
12692: END IF;
12693: --
12686: --
12687: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',p_delivery_detail_id);
12688: WSH_DEBUG_SV.log(l_module_name,'P_BO_QTY',p_bo_qty);
12689: WSH_DEBUG_SV.log(l_module_name,'P_OVERPICK_QTY',p_overpick_qty);
12690: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
12691: WSH_DEBUG_SV.log(l_module_name,'P_DELETE_FLAG',P_DELETE_FLAG);
12692: END IF;
12693: --
12694: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12687: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',p_delivery_detail_id);
12688: WSH_DEBUG_SV.log(l_module_name,'P_BO_QTY',p_bo_qty);
12689: WSH_DEBUG_SV.log(l_module_name,'P_OVERPICK_QTY',p_overpick_qty);
12690: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',P_BO_MODE);
12691: WSH_DEBUG_SV.log(l_module_name,'P_DELETE_FLAG',P_DELETE_FLAG);
12692: END IF;
12693: --
12694: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12695:
12696: --
12697: -- Debug Statements
12698: --
12699: IF l_debug_on THEN
12700: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont',WSH_DEBUG_SV.C_PROC_LEVEL);
12701: END IF;
12702: --
12703: l_delivery_detail_ids(1) := p_delivery_detail_id;
12704: IF (p_delete_flag = 'Y') THEN --{
12718: --
12719: -- Debug Statements
12720: --
12721: IF l_debug_on THEN
12722: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ',WSH_DEBUG_SV.C_PROC_LEVEL);
12723: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
12724: WSH_DEBUG_SV.logmsg(l_module_name,'... backordered quantity '||p_bo_qty ,WSH_DEBUG_SV.C_PROC_LEVEL);
12725: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
12726: END IF;
12719: -- Debug Statements
12720: --
12721: IF l_debug_on THEN
12722: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ',WSH_DEBUG_SV.C_PROC_LEVEL);
12723: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
12724: WSH_DEBUG_SV.logmsg(l_module_name,'... backordered quantity '||p_bo_qty ,WSH_DEBUG_SV.C_PROC_LEVEL);
12725: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
12726: END IF;
12727: --
12720: --
12721: IF l_debug_on THEN
12722: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ',WSH_DEBUG_SV.C_PROC_LEVEL);
12723: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
12724: WSH_DEBUG_SV.logmsg(l_module_name,'... backordered quantity '||p_bo_qty ,WSH_DEBUG_SV.C_PROC_LEVEL);
12725: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
12726: END IF;
12727: --
12728: wsh_delivery_details_actions.unreserve_delivery_detail(
12721: IF l_debug_on THEN
12722: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ',WSH_DEBUG_SV.C_PROC_LEVEL);
12723: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
12724: WSH_DEBUG_SV.logmsg(l_module_name,'... backordered quantity '||p_bo_qty ,WSH_DEBUG_SV.C_PROC_LEVEL);
12725: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
12726: END IF;
12727: --
12728: wsh_delivery_details_actions.unreserve_delivery_detail(
12729: p_delivery_Detail_id => p_delivery_detail_id,
12744: --
12745: -- Debug Statements
12746: --
12747: IF l_debug_on THEN
12748: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ',WSH_DEBUG_SV.C_PROC_LEVEL);
12749: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
12750: WSH_DEBUG_SV.logmsg(l_module_name,'... overpicked quantity '||p_overpick_qty ,WSH_DEBUG_SV.C_PROC_LEVEL);
12751: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
12752: END IF;
12745: -- Debug Statements
12746: --
12747: IF l_debug_on THEN
12748: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ',WSH_DEBUG_SV.C_PROC_LEVEL);
12749: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
12750: WSH_DEBUG_SV.logmsg(l_module_name,'... overpicked quantity '||p_overpick_qty ,WSH_DEBUG_SV.C_PROC_LEVEL);
12751: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
12752: END IF;
12753: --
12746: --
12747: IF l_debug_on THEN
12748: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ',WSH_DEBUG_SV.C_PROC_LEVEL);
12749: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
12750: WSH_DEBUG_SV.logmsg(l_module_name,'... overpicked quantity '||p_overpick_qty ,WSH_DEBUG_SV.C_PROC_LEVEL);
12751: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
12752: END IF;
12753: --
12754: --Bug 4721577 Do not retain reservation for overpicked quantities
12747: IF l_debug_on THEN
12748: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ',WSH_DEBUG_SV.C_PROC_LEVEL);
12749: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
12750: WSH_DEBUG_SV.logmsg(l_module_name,'... overpicked quantity '||p_overpick_qty ,WSH_DEBUG_SV.C_PROC_LEVEL);
12751: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
12752: END IF;
12753: --
12754: --Bug 4721577 Do not retain reservation for overpicked quantities
12755: IF p_bo_mode = 'RETAIN_RSV' THEN
12782: --
12783: -- Debug Statements
12784: --
12785: IF l_debug_on THEN
12786: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
12787: END IF;
12788: --
12789:
12790: WSH_DELIVERY_DETAILS_PKG.Delete_Delivery_Details(
12798: END IF;
12799: END IF; --}
12800:
12801: IF l_debug_on THEN
12802: WSH_DEBUG_SV.pop(l_module_name);
12803: END IF;
12804:
12805: EXCEPTION
12806: WHEN others THEN
12807: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12808: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Process_Delivery_Details',l_module_name);
12809: --
12810: IF l_debug_on THEN
12811: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12812: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12813: END IF;
12814: --
12815: END Process_Delivery_Details;
12808: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Process_Delivery_Details',l_module_name);
12809: --
12810: IF l_debug_on THEN
12811: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12812: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12813: END IF;
12814: --
12815: END Process_Delivery_Details;
12816:
12890: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12891: --
12892: IF l_debug_on IS NULL
12893: THEN
12894: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12895: END IF;
12896: --
12897: IF l_debug_on THEN
12898: WSH_DEBUG_SV.push(l_module_name);
12894: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12895: END IF;
12896: --
12897: IF l_debug_on THEN
12898: WSH_DEBUG_SV.push(l_module_name);
12899:
12900: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',p_bo_mode);
12901: END IF;
12902: --
12896: --
12897: IF l_debug_on THEN
12898: WSH_DEBUG_SV.push(l_module_name);
12899:
12900: WSH_DEBUG_SV.log(l_module_name,'P_BO_MODE',p_bo_mode);
12901: END IF;
12902: --
12903:
12904: l_return_status := FND_API.G_RET_STS_SUCCESS;
12936: l_idx := p_delivery_details_tab.NEXT(l_idx);
12937: END LOOP; --}
12938:
12939: IF l_debug_on THEN
12940: WSH_DEBUG_SV.logmsg(l_module_name,'Finding the delivery detail to Consolidate into, from the input list',WSH_DEBUG_SV.C_PROC_LEVEL);
12941: END IF;
12942:
12943: -- Mark the corresponding entry in l_cons_dd_flags(i) to 'Y', if l_detail_ids(i) is
12944: -- the consolidated delivery detail. Mark l_cons_dd_flags(i) to 'N' otherwise.
12994: x_cons_delivery_details_tab(x_cons_delivery_details_tab.COUNT).overpick_qty := p_delivery_details_tab(l_idx).overpick_qty;
12995: -- Bug#3263952
12996: IF l_debug_on THEN
12997: IF p_delivery_details_tab(l_idx).req_qty > 0 THEN
12998: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery details of the Source Line '||p_delivery_details_tab(l_idx).source_line_id ||
12999: ' are getting consolidated into dd_id :'||p_delivery_details_tab(l_idx).delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
13000: END IF;
13001: END IF;
13002: END IF; --}
12995: -- Bug#3263952
12996: IF l_debug_on THEN
12997: IF p_delivery_details_tab(l_idx).req_qty > 0 THEN
12998: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery details of the Source Line '||p_delivery_details_tab(l_idx).source_line_id ||
12999: ' are getting consolidated into dd_id :'||p_delivery_details_tab(l_idx).delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
13000: END IF;
13001: END IF;
13002: END IF; --}
13003: l_idx := p_delivery_details_tab.NEXT(l_idx);
13033: IF l_bo_qtys(l_cmp_idx) = l_req_qtys(l_cmp_idx) THEN
13034: --{
13035: --
13036: IF l_debug_on THEN
13037: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Process_Delivery_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
13038: WSH_DEBUG_SV.logmsg(l_module_name,'.. to process completely backordered delivery detail '||l_detail_ids(l_cmp_idx),WSH_DEBUG_SV.C_PROC_LEVEL);
13039: END IF;
13040: --
13041: Process_Delivery_Details (
13034: --{
13035: --
13036: IF l_debug_on THEN
13037: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Process_Delivery_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
13038: WSH_DEBUG_SV.logmsg(l_module_name,'.. to process completely backordered delivery detail '||l_detail_ids(l_cmp_idx),WSH_DEBUG_SV.C_PROC_LEVEL);
13039: END IF;
13040: --
13041: Process_Delivery_Details (
13042: p_delivery_detail_id => l_detail_ids(l_cmp_idx),
13058: -- deleted ( pass p_delete_flag as 'N' to process_delivery_details).
13059: ELSIF ((l_bo_qtys(l_cmp_idx) > 0 OR l_overpick_qtys(l_cmp_idx) > 0)) THEN
13060: --
13061: IF l_debug_on THEN
13062: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Process_Delivery_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
13063: WSH_DEBUG_SV.logmsg(l_module_name,'.. to process partially backordered delivery detail '||l_detail_ids(l_cmp_idx),WSH_DEBUG_SV.C_PROC_LEVEL);
13064: END IF;
13065: --
13066: Process_Delivery_Details (
13059: ELSIF ((l_bo_qtys(l_cmp_idx) > 0 OR l_overpick_qtys(l_cmp_idx) > 0)) THEN
13060: --
13061: IF l_debug_on THEN
13062: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Process_Delivery_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
13063: WSH_DEBUG_SV.logmsg(l_module_name,'.. to process partially backordered delivery detail '||l_detail_ids(l_cmp_idx),WSH_DEBUG_SV.C_PROC_LEVEL);
13064: END IF;
13065: --
13066: Process_Delivery_Details (
13067: p_delivery_detail_id => l_detail_ids(l_cmp_idx),
13107: -- Update of wsh_delivery_details where requested_quantity/released_status
13108: -- are changed, call DBI API after the update.
13109: -- This API will also check for DBI Installed or not
13110: IF l_debug_on THEN
13111: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail count-',l_detail_tab.count);
13112: END IF;
13113: WSH_INTEGRATION.DBI_Update_Detail_Log
13114: (p_delivery_detail_id_tab => l_detail_tab,
13115: p_dml_type => 'UPDATE',
13115: p_dml_type => 'UPDATE',
13116: x_return_status => l_dbi_rs);
13117:
13118: IF l_debug_on THEN
13119: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
13120: END IF;
13121: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
13122: -- just pass this return status to caller API
13123: raise FND_API.G_EXC_UNEXPECTED_ERROR;
13154: l_next_idx := x_cons_delivery_details_tab.NEXT(l_next_idx);
13155: END LOOP; --}
13156: --
13157: IF l_debug_on THEN
13158: WSH_DEBUG_SV.logmsg(l_module_name,'Consolidated Backordered Quantity of the Source Line '||l_curr_line_id||' is '||l_total_bo_qty,WSH_DEBUG_SV.C_PROC_LEVEL);
13159: -- HW OPM BUG#:3121616 added qty2s
13160: WSH_DEBUG_SV.logmsg(l_module_name,'Consolidated Backordered Quantity2 of the Source Line '||l_curr_line_id||' is '||l_total_bo_qty2,WSH_DEBUG_SV.C_PROC_LEVEL);
13161: END IF;
13162: l_idx := l_detail_ids.NEXT(l_idx);
13156: --
13157: IF l_debug_on THEN
13158: WSH_DEBUG_SV.logmsg(l_module_name,'Consolidated Backordered Quantity of the Source Line '||l_curr_line_id||' is '||l_total_bo_qty,WSH_DEBUG_SV.C_PROC_LEVEL);
13159: -- HW OPM BUG#:3121616 added qty2s
13160: WSH_DEBUG_SV.logmsg(l_module_name,'Consolidated Backordered Quantity2 of the Source Line '||l_curr_line_id||' is '||l_total_bo_qty2,WSH_DEBUG_SV.C_PROC_LEVEL);
13161: END IF;
13162: l_idx := l_detail_ids.NEXT(l_idx);
13163: END LOOP; -- } Outer Loop(l_idx)
13164:
13167: FORALL i IN 1..l_freight_detail_ids.COUNT
13168: DELETE FROM WSH_FREIGHT_COSTS
13169: WHERE delivery_detail_id = l_freight_detail_ids(i);
13170: IF l_debug_on THEN
13171: WSH_DEBUG_SV.log(l_module_name,'Freight Cost Rows deleted',SQL%ROWCOUNT);
13172: END IF;
13173:
13174: l_req_qtys.DELETE;
13175: l_bo_qtys.DELETE;
13179: --
13180: -- Debug Statements
13181: --
13182: IF l_debug_on THEN
13183: WSH_DEBUG_SV.pop(l_module_name);
13184: END IF;
13185: --
13186:
13187: EXCEPTION
13188: WHEN FND_API.G_EXC_ERROR THEN
13189: x_return_status := FND_API.G_RET_STS_ERROR;
13190: --
13191: IF l_debug_on THEN
13192: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occired.',wsh_debug_sv.c_excep_level);
13193: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
13194: END IF;
13195: --
13196:
13189: x_return_status := FND_API.G_RET_STS_ERROR;
13190: --
13191: IF l_debug_on THEN
13192: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occired.',wsh_debug_sv.c_excep_level);
13193: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
13194: END IF;
13195: --
13196:
13197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13199: --
13200: IF l_debug_on THEN
13201: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
13202: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13203: END IF;
13204: --
13205:
13198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13199: --
13200: IF l_debug_on THEN
13201: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
13202: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13203: END IF;
13204: --
13205:
13206: WHEN OTHERS THEN
13209: --
13210: -- Debug Statements
13211: --
13212: IF l_debug_on THEN
13213: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13214: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13215: END IF;
13216: --
13217:
13210: -- Debug Statements
13211: --
13212: IF l_debug_on THEN
13213: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13214: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13215: END IF;
13216: --
13217:
13218: END Consolidate_Delivery_Details;
13230: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13231: --
13232: IF l_debug_on IS NULL
13233: THEN
13234: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13235: END IF;
13236: IF l_debug_on THEN
13237: WSH_DEBUG_SV.push(l_module_name);
13238: END IF;
13233: THEN
13234: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13235: END IF;
13236: IF l_debug_on THEN
13237: WSH_DEBUG_SV.push(l_module_name);
13238: END IF;
13239:
13240: x_return_status := FND_API.G_RET_STS_SUCCESS;
13241:
13253: and type = 'C';
13254:
13255: END IF;
13256: IF l_debug_on THEN
13257: WSH_DEBUG_SV.pop(l_module_name);
13258: END IF;
13259: EXCEPTION
13260: WHEN OTHERS THEN
13261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13263: --
13264: -- Debug Statements
13265: --
13266: IF l_debug_on THEN
13267: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13268: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13269: END IF;
13270: --
13271: END Delete_Consol_Record;
13264: -- Debug Statements
13265: --
13266: IF l_debug_on THEN
13267: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13268: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13269: END IF;
13270: --
13271: END Delete_Consol_Record;
13272:
13299: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13300: --
13301: IF l_debug_on IS NULL
13302: THEN
13303: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13304: END IF;
13305: IF l_debug_on THEN
13306: WSH_DEBUG_SV.push(l_module_name);
13307: WSH_DEBUG_SV.log(l_module_name, 'p_detail_id_tab.count',p_detail_id_tab.count );
13302: THEN
13303: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13304: END IF;
13305: IF l_debug_on THEN
13306: WSH_DEBUG_SV.push(l_module_name);
13307: WSH_DEBUG_SV.log(l_module_name, 'p_detail_id_tab.count',p_detail_id_tab.count );
13308: END IF;
13309:
13310: x_return_status := FND_API.G_RET_STS_SUCCESS;
13303: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13304: END IF;
13305: IF l_debug_on THEN
13306: WSH_DEBUG_SV.push(l_module_name);
13307: WSH_DEBUG_SV.log(l_module_name, 'p_detail_id_tab.count',p_detail_id_tab.count );
13308: END IF;
13309:
13310: x_return_status := FND_API.G_RET_STS_SUCCESS;
13311:
13313:
13314: WHILE i is NOT NULL LOOP
13315:
13316: IF l_debug_on THEN
13317: WSH_DEBUG_SV.log(l_module_name, 'p_detail_id_tab(i)', p_detail_id_tab(i) );
13318: END IF;
13319: OPEN c_get_consolidation_delivery(p_detail_id_tab(i));
13320: FETCH c_get_consolidation_delivery
13321: INTO l_delivery_id, l_consol_delivery_id;
13332:
13333: IF l_detail_id_tab.count > 0 THEN
13334:
13335: IF l_debug_on THEN
13336: WSH_DEBUG_SV.logmsg(l_module_name, 'updating tabcount', l_detail_id_tab.count);
13337: END IF;
13338: FORALL i in l_detail_id_tab.first..l_detail_id_tab.count
13339: update wsh_delivery_assignments
13340: set type = 'O',
13383: END IF;
13384:
13385:
13386: IF l_debug_on THEN
13387: WSH_DEBUG_SV.pop(l_module_name);
13388: END IF;
13389:
13390: EXCEPTION
13391:
13395: --
13396: -- Debug Statements
13397: --
13398: IF l_debug_on THEN
13399: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13400: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13401: END IF;
13402: --
13403: END Create_Consol_Record;
13396: -- Debug Statements
13397: --
13398: IF l_debug_on THEN
13399: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13400: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13401: END IF;
13402: --
13403: END Create_Consol_Record;
13404: