[Home] [Help]
1: PACKAGE BODY inv_pick_release_pvt AS
2: /* $Header: INVVPICB.pls 120.25.12010000.5 2008/09/17 09:57:03 haluthra ship $ */
3:
4: -- Global constant holding the package name
5:
10:
11: g_backorder_cache all_item_reservation_type;
12: g_cleared_cache all_item_reservation_type;
13:
14: g_pkg_name CONSTANT VARCHAR2(30) := 'INV_Pick_Release_PVT';
15: is_debug BOOLEAN := NULL;
16: g_sub_reservable_type NUMBER := 1;
17: g_transaction_type_id NUMBER;
18: g_transaction_source_type_id NUMBER;
53: End If;
54: END IF;
55:
56: if is_debug then
57: print_debug('g_use_backorder_cache = '||g_use_backorder_cache, 'INV_PICK_RELEASE_PVT.CHECK_BACKORDER_CACHE');
58: end if;
59:
60: -- Check whether backorder caching is turned off
61: -- Bug 6997809, the profile value when No is 2, so changing 0 to 2.
65:
66: -- Bug 6997809, the profile value when No is 2, so changing 0 to 2.
67: IF g_use_backorder_cache = 2 THEN
68: If is_debug then
69: print_debug('Profile is No, returning FALSE', 'INV_PICK_RELEASE_PVT.CHECK_BACKORDER_CACHE');
70: end if;
71: RETURN FALSE;
72: END IF;
73:
84: AND demand_source_line_detail IS NULL;
85:
86: IF l_quantity_reserved > 0 THEN
87: if is_debug then
88: print_debug('l_quantity_reserved > 0, returning FALSE', 'INV_PICK_RELEASE_PVT.CHECK_BACKORDER_CACHE');
89: end if;
90: RETURN FALSE;
91: END IF;
92: END IF;
94: -- IF an entry exists in the cache for this item verify Org and batch then return TRUE
95: IF g_backorder_cache.EXISTS(p_inventory_item_id) THEN
96: IF g_backorder_cache(p_inventory_item_id) = p_org_id THEN
97: if is_debug then
98: print_debug('Found item cache, returning TRUE', 'INV_PICK_RELEASE_PVT.CHECK_BACKORDER_CACHE');
99: end if;
100: RETURN TRUE;
101: END IF;
102: END IF;
101: END IF;
102: END IF;
103: -- IF no reservation exists or no match found in cache then return FALSE
104: if is_debug then
105: print_debug('End returning FALSE', 'INV_PICK_RELEASE_PVT.CHECK_BACKORDER_CACHE');
106: end if;
107: RETURN FALSE;
108: END;
109:
178: INTO l_move_order_type;
179: IF NOT c_mo_type%FOUND THEN
180: x_return_status := fnd_api.g_ret_sts_error;
181: IF is_debug THEN
182: print_debug('Move Order Line not found ' || p_mo_line_id,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
183: END IF;
184: END IF;
185: CLOSE c_mo_type;
186:
202:
203: IF NOT c_detail_info%FOUND THEN
204: x_return_status := fnd_api.g_ret_sts_error;
205: IF is_debug THEN
206: print_debug('Delivery Detail not found ' || p_mo_line_id,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
207: END IF;
208: ELSE
209: l_minmaxinrectype.source_code := l_detail_info.source_code;
210: l_minmaxinrectype.line_id := l_detail_info.source_line_id;
240: --x_min_tolerance := l_req_quantity - l_min_quantity; --Bug 7238552
241: x_min_tolerance := l_min_quantity - l_req_quantity; --Bug 7238552
242:
243: IF is_debug THEN
244: print_debug('Return Status '||x_return_status,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
245: print_debug('Req Qty '||l_req_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
246: print_debug('Max Qty '||l_max_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
247: print_debug('Min Qty '||l_min_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
248: print_debug('Qty UOM '||l_quantity_uom,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
241: x_min_tolerance := l_min_quantity - l_req_quantity; --Bug 7238552
242:
243: IF is_debug THEN
244: print_debug('Return Status '||x_return_status,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
245: print_debug('Req Qty '||l_req_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
246: print_debug('Max Qty '||l_max_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
247: print_debug('Min Qty '||l_min_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
248: print_debug('Qty UOM '||l_quantity_uom,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
249: print_debug('Max Tolerance '||x_max_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
242:
243: IF is_debug THEN
244: print_debug('Return Status '||x_return_status,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
245: print_debug('Req Qty '||l_req_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
246: print_debug('Max Qty '||l_max_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
247: print_debug('Min Qty '||l_min_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
248: print_debug('Qty UOM '||l_quantity_uom,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
249: print_debug('Max Tolerance '||x_max_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
250: print_debug('Min Tolerance '||x_min_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
243: IF is_debug THEN
244: print_debug('Return Status '||x_return_status,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
245: print_debug('Req Qty '||l_req_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
246: print_debug('Max Qty '||l_max_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
247: print_debug('Min Qty '||l_min_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
248: print_debug('Qty UOM '||l_quantity_uom,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
249: print_debug('Max Tolerance '||x_max_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
250: print_debug('Min Tolerance '||x_min_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
251: END IF;
244: print_debug('Return Status '||x_return_status,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
245: print_debug('Req Qty '||l_req_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
246: print_debug('Max Qty '||l_max_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
247: print_debug('Min Qty '||l_min_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
248: print_debug('Qty UOM '||l_quantity_uom,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
249: print_debug('Max Tolerance '||x_max_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
250: print_debug('Min Tolerance '||x_min_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
251: END IF;
252: END IF; -- if c_detail_info found
245: print_debug('Req Qty '||l_req_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
246: print_debug('Max Qty '||l_max_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
247: print_debug('Min Qty '||l_min_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
248: print_debug('Qty UOM '||l_quantity_uom,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
249: print_debug('Max Tolerance '||x_max_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
250: print_debug('Min Tolerance '||x_min_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
251: END IF;
252: END IF; -- if c_detail_info found
253: CLOSE c_detail_info;
246: print_debug('Max Qty '||l_max_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
247: print_debug('Min Qty '||l_min_quantity,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
248: print_debug('Qty UOM '||l_quantity_uom,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
249: print_debug('Max Tolerance '||x_max_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
250: print_debug('Min Tolerance '||x_min_tolerance,'INV_PICK_RELEASE_PVT.GET_TOLERANCE');
251: END IF;
252: END IF; -- if c_detail_info found
253: CLOSE c_detail_info;
254: ELSE
302: IF l_mo_from_sub IS NOT NULL THEN
303: IF l_mo_from_sub <> nvl(p_res_rec.subinventory_code,l_mo_from_sub) THEN
304: IF (is_debug) THEN
305: print_debug('Reservation with different SUB to move order skipped ',
306: 'INV_PICK_RELEASE_PVT.RESERVATION_MATCHES');
307: END IF;
308: return 2;
309: END IF;
310: l_mo_from_loc := p_mo_line_rec.from_locator_id;
311: IF l_mo_from_loc IS NOT NULL THEN
312: IF l_mo_from_loc <> nvl(p_res_rec.locator_id,l_mo_from_loc) THEN
313: IF (is_debug) THEN
314: print_debug('Reservation with different Locator to move order skipped ',
315: 'INV_PICK_RELEASE_PVT.RESERVATION_MATCHES');
316: END IF;
317: return 2;
318: END IF;
319: END IF;
362: -- Otherwise calls Inventory's GET_PICK_SLIP_NUMBER
363: IF wsh_code_control.get_code_release_level < '110509' THEN
364: IF (is_debug) THEN
365: print_debug('Calling WSH_PR_PICK_SLIP_NUMBER.GET_PICK_SLIP_NUMBER',
366: 'INV_PICK_RELEASE_PVT.GET_PICK_SLIP_NUMBER');
367: END IF;
368: wsh_pr_pick_slip_number.get_pick_slip_number(
369: p_ps_mode => p_ps_mode
370: , p_pick_grouping_rule_id => p_pick_grouping_rule_id
574:
575:
576: BEGIN
577: IF (is_debug ) THEN
578: print_debug('Inside Process_Reservations', 'Inv_Pick_Release_PVT.Process_Reservations');
579: END IF;
580:
581: BEGIN
582: -- Bug 4494038: exclude crossdock reservations
616: l_non_inv_sec_reservation_qty := 0;
617: g_item_non_inv_rsv(p_mo_line_rec.inventory_item_id) := 0;
618: END;
619: IF is_debug THEN
620: print_debug('All primary reservation qty: '||l_non_inv_reservations_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
621: print_debug('All secondary reservation qty: '||l_non_inv_sec_reservation_qty , 'Inv_Pick_Release_PVT.Process_Reservations');
622: END IF;
623:
624: l_qry_rsv_rec.organization_id := p_mo_line_rec.organization_id;
617: g_item_non_inv_rsv(p_mo_line_rec.inventory_item_id) := 0;
618: END;
619: IF is_debug THEN
620: print_debug('All primary reservation qty: '||l_non_inv_reservations_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
621: print_debug('All secondary reservation qty: '||l_non_inv_sec_reservation_qty , 'Inv_Pick_Release_PVT.Process_Reservations');
622: END IF;
623:
624: l_qry_rsv_rec.organization_id := p_mo_line_rec.organization_id;
625: l_qry_rsv_rec.inventory_item_id := p_mo_line_rec.inventory_item_id;
643:
644: -- Return an error if the query reservations call failed
645: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
646: IF (is_debug) THEN
647: print_debug('return error from query reservation: '||l_api_return_status,'INV_Pick_Release_PVT.Process_Reservations');
648: END IF;
649: fnd_message.set_name('INV', 'INV_QRY_RSV_FAILED');
650: fnd_msg_pub.ADD;
651: RAISE fnd_api.g_exc_unexpected_error;
651: RAISE fnd_api.g_exc_unexpected_error;
652: END IF;
653:
654: IF (is_debug) THEN
655: print_debug('Unstaged l_non_inv_reservations_qty '|| l_non_inv_reservations_qty,'Inv_Pick_Release_PVT.Process_Reservations');
656: END IF;
657:
658: -- Check if the picking subinventory (if specified on the MO) is
659: -- reservable OR not
662: p_mo_line_rec.organization_id,
663: p_mo_line_rec.from_subinventory_code);
664: If NOT l_return_value Then
665: if is_debug then
666: print_debug('Error setting from sub cache','Inv_Pick_Release_PVT.Process_Reservations');
667: end if;
668: RAISE fnd_api.g_exc_unexpected_error;
669: End If;
670: g_sub_reservable_type := INV_CACHE.fromsub_rec.reservable_type;
690: END IF;
691:
692: IF (is_debug) THEN
693: print_debug('l_primary_reservation_qty'|| l_primary_reservation_qty,
694: 'Inv_Pick_Release_PVT.process_reservations');
695: print_debug('try to match the reservation exist with the current move order ', 'Inv_Pick_Release_PVT.process_reservations');
696: END IF;
697:
698: IF reservation_matches(p_mo_line_rec, l_demand_reservations(l_res_tbl_index)) = 1
691:
692: IF (is_debug) THEN
693: print_debug('l_primary_reservation_qty'|| l_primary_reservation_qty,
694: 'Inv_Pick_Release_PVT.process_reservations');
695: print_debug('try to match the reservation exist with the current move order ', 'Inv_Pick_Release_PVT.process_reservations');
696: END IF;
697:
698: IF reservation_matches(p_mo_line_rec, l_demand_reservations(l_res_tbl_index)) = 1
699: AND NVL(l_staged_flag, 'N') = 'N' THEN
750: p_mo_line_rec.inventory_item_id);
751: If NOT l_return_value Then
752: if is_debug then
753: print_debug('Error setting from sub cache',
754: 'Inv_Pick_Release_PVT.Process_Reservations');
755: end if;
756: RAISE fnd_api.g_exc_unexpected_error;
757: End If;
758:
780: );
781:
782: IF (l_quantity_to_detail = -99999) THEN
783: IF (is_debug) THEN
784: print_debug('Cannot convert uom to primary uom', 'Inv_Pick_release_pvt.process_reservations');
785: END IF;
786: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
787: fnd_message.set_token('UOM', l_primary_uom);
788: fnd_message.set_token('ROUTINE', 'Pick Release process');
814: l_is_serial_control := FALSE;
815: END IF;
816:
817: IF (is_debug) THEN
818: print_debug('l_reserved_quantity = ' ||l_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
819: print_debug('l_sec_reserved_quantity = ' ||l_sec_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
820: print_debug('l_quantity_to_detail = ' ||l_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
821: print_debug('l_sec_quantity_to_detail = ' ||l_sec_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
822: print_debug('l_non_inv_reservations_qty = ' ||l_non_inv_reservations_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
815: END IF;
816:
817: IF (is_debug) THEN
818: print_debug('l_reserved_quantity = ' ||l_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
819: print_debug('l_sec_reserved_quantity = ' ||l_sec_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
820: print_debug('l_quantity_to_detail = ' ||l_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
821: print_debug('l_sec_quantity_to_detail = ' ||l_sec_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
822: print_debug('l_non_inv_reservations_qty = ' ||l_non_inv_reservations_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
823: print_debug('l_non_inv_sec_reservation_qty = ' ||l_non_inv_sec_reservation_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
816:
817: IF (is_debug) THEN
818: print_debug('l_reserved_quantity = ' ||l_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
819: print_debug('l_sec_reserved_quantity = ' ||l_sec_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
820: print_debug('l_quantity_to_detail = ' ||l_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
821: print_debug('l_sec_quantity_to_detail = ' ||l_sec_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
822: print_debug('l_non_inv_reservations_qty = ' ||l_non_inv_reservations_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
823: print_debug('l_non_inv_sec_reservation_qty = ' ||l_non_inv_sec_reservation_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
824: END IF;
817: IF (is_debug) THEN
818: print_debug('l_reserved_quantity = ' ||l_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
819: print_debug('l_sec_reserved_quantity = ' ||l_sec_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
820: print_debug('l_quantity_to_detail = ' ||l_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
821: print_debug('l_sec_quantity_to_detail = ' ||l_sec_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
822: print_debug('l_non_inv_reservations_qty = ' ||l_non_inv_reservations_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
823: print_debug('l_non_inv_sec_reservation_qty = ' ||l_non_inv_sec_reservation_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
824: END IF;
825:
818: print_debug('l_reserved_quantity = ' ||l_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
819: print_debug('l_sec_reserved_quantity = ' ||l_sec_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
820: print_debug('l_quantity_to_detail = ' ||l_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
821: print_debug('l_sec_quantity_to_detail = ' ||l_sec_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
822: print_debug('l_non_inv_reservations_qty = ' ||l_non_inv_reservations_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
823: print_debug('l_non_inv_sec_reservation_qty = ' ||l_non_inv_sec_reservation_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
824: END IF;
825:
826: IF (l_non_inv_reservations_qty > 0 AND l_quantity_to_detail > l_reserved_quantity -- Bug 3440014
819: print_debug('l_sec_reserved_quantity = ' ||l_sec_reserved_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
820: print_debug('l_quantity_to_detail = ' ||l_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
821: print_debug('l_sec_quantity_to_detail = ' ||l_sec_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
822: print_debug('l_non_inv_reservations_qty = ' ||l_non_inv_reservations_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
823: print_debug('l_non_inv_sec_reservation_qty = ' ||l_non_inv_sec_reservation_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
824: END IF;
825:
826: IF (l_non_inv_reservations_qty > 0 AND l_quantity_to_detail > l_reserved_quantity -- Bug 3440014
827: ) THEN
825:
826: IF (l_non_inv_reservations_qty > 0 AND l_quantity_to_detail > l_reserved_quantity -- Bug 3440014
827: ) THEN
828: IF (is_debug) THEN
829: print_debug('Adjust l_quantity_to_detail honor supply rsv', 'Inv_Pick_Release_PVT.Process_Reservations');
830: END IF;
831: -- Bug 4171297, if the order line has Wip supply reservation then l_quantity_to_detail
832: -- should be calculated based on order line quantity. Adding the below logic to calculate
833: -- the l_quantity_to_detail.
833: -- the l_quantity_to_detail.
834: l_return_value := INV_CACHE.set_oola_rec(p_demand_info.oe_line_id);
835: IF NOT l_return_value Then
836: IF (is_debug) THEN
837: print_debug('Error setting cache for order line', 'Inv_Pick_Release_PVT.Process_Reservations');
838: END IF;
839: RAISE fnd_api.g_exc_unexpected_error;
840: END IF;
841:
842: l_order_line_qty_unconv := INV_CACHE.oola_rec.ordered_quantity;
843: l_order_line_uom := INV_CACHE.oola_rec.order_quantity_uom;
844:
845: IF (is_debug) THEN
846: print_debug('l_order_line_qty_unconv = ' ||l_order_line_qty_unconv, 'Inv_Pick_Release_PVT.Process_Reservations');
847: print_debug('l_order_line_uom = ' ||l_order_line_uom, 'Inv_Pick_Release_PVT.Process_Reservations');
848: END IF;
849:
850: IF (l_primary_uom <> l_order_line_uom) THEN
843: l_order_line_uom := INV_CACHE.oola_rec.order_quantity_uom;
844:
845: IF (is_debug) THEN
846: print_debug('l_order_line_qty_unconv = ' ||l_order_line_qty_unconv, 'Inv_Pick_Release_PVT.Process_Reservations');
847: print_debug('l_order_line_uom = ' ||l_order_line_uom, 'Inv_Pick_Release_PVT.Process_Reservations');
848: END IF;
849:
850: IF (l_primary_uom <> l_order_line_uom) THEN
851: l_order_line_qty := inv_convert.inv_um_convert(
859: );
860:
861: IF (l_order_line_qty = -99999) THEN
862: IF (is_debug) THEN
863: print_debug('Cannot convert order quantity to primary uom', 'Inv_Pick_release_pvt.process_reservations');
864: END IF;
865: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
866: fnd_message.set_token('UOM', l_primary_uom);
867: fnd_message.set_token('ROUTINE', 'Pick Release process');
872: l_order_line_qty := l_order_line_qty_unconv;
873: END IF;
874:
875: IF (is_debug) THEN
876: print_debug('l_order_line_qty = ' ||l_order_line_qty, 'Inv_Pick_Release_PVT.Process_Reservations');
877: END IF;
878:
879: -- Calculated using the following formula least of move order line quantity and
880: -- order line quantity - all reservations + calculated reserved quantity for line
884: l_quantity_to_detail := least(l_quantity_to_detail, l_order_line_qty - (l_non_inv_reservations_qty + l_primary_staged_qty + l_primary_reservation_qty - l_reserved_quantity));
885: --l_order_line_qty - (l_non_inv_reservation_qty - l_reserved_quantity + l_primary_staged_qty));
886:
887: IF (is_debug) THEN
888: print_debug('l_quantity_to_detail = ' ||l_quantity_to_detail, 'Inv_Pick_Release_PVT.Process_Reservations');
889: END IF;
890: l_sec_quantity_to_detail := l_sec_quantity_to_detail * (l_quantity_to_detail / l_orig_quantity_to_detail);
891: END IF; /* IF (l_non_inv_reservations_qty > 0 AND l_quantity_to_detail > l_reserved_quantity */ -- Bug 3440014
892:
895: l_unreserved_quantity := l_quantity_to_detail - l_reserved_quantity;
896: l_sec_unreserved_quantity := l_sec_quantity_to_detail - l_sec_reserved_quantity;
897: IF (is_debug) THEN
898: print_debug('l_unreserved_quantity is '|| l_unreserved_quantity,
899: 'Inv_Pick_Release_PVT.Process_Reservations');
900: print_debug('l_sec_unreserved_quantity is '|| l_sec_unreserved_quantity,
901: 'Inv_Pick_Release_PVT.Process_Reservations');
902: END IF;
903:
897: IF (is_debug) THEN
898: print_debug('l_unreserved_quantity is '|| l_unreserved_quantity,
899: 'Inv_Pick_Release_PVT.Process_Reservations');
900: print_debug('l_sec_unreserved_quantity is '|| l_sec_unreserved_quantity,
901: 'Inv_Pick_Release_PVT.Process_Reservations');
902: END IF;
903:
904: IF p_mo_line_rec.from_subinventory_code IS NOT NULL AND g_sub_reservable_type = 1 THEN
905: source_from_sub := p_mo_line_rec.from_subinventory_code;
951: , x_satt => l_sec_qty_att
952: , x_satr => l_sec_qty_available_to_reserve
953: );
954: IF (is_debug) THEN
955: print_debug('Reservable qty from qtytree'|| l_qty_available_to_reserve, 'Inv_Pick_Release_PVT.Process_Reservations');
956: END IF;
957:
958: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
959: IF (is_debug) THEN
956: END IF;
957:
958: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
959: IF (is_debug) THEN
960: print_debug('Error from query quantity tree', 'Inv_Pick_Release_PVT.Process_Reservations');
961: END IF;
962: fnd_message.set_name('INV', 'INV_QRY_QTY_FAILED');
963: fnd_msg_pub.ADD;
964: RAISE fnd_api.g_exc_unexpected_error;
990: l_update_rsv_rec := l_qry_rsv_rec;
991: l_update_rsv_rec.primary_reservation_quantity := l_update_rsv_rec.primary_reservation_quantity + l_quantity_to_reserve;
992: l_update_rsv_rec.reservation_quantity := NULL; -- Force update of reserved qty
993: IF (is_debug) THEN
994: print_debug('Org wide reservation exist', 'Inv_Pick_Release_PVT.Process_Reservations');
995: print_debug('update reservation', 'Inv_Pick_Release_PVT.Process_Reservations');
996: END IF;
997: inv_reservation_pub.update_reservation(
998: p_api_version_number => 1.0
991: l_update_rsv_rec.primary_reservation_quantity := l_update_rsv_rec.primary_reservation_quantity + l_quantity_to_reserve;
992: l_update_rsv_rec.reservation_quantity := NULL; -- Force update of reserved qty
993: IF (is_debug) THEN
994: print_debug('Org wide reservation exist', 'Inv_Pick_Release_PVT.Process_Reservations');
995: print_debug('update reservation', 'Inv_Pick_Release_PVT.Process_Reservations');
996: END IF;
997: inv_reservation_pub.update_reservation(
998: p_api_version_number => 1.0
999: , p_init_msg_lst => fnd_api.g_false
1008: );
1009:
1010: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1011: IF (is_debug) THEN
1012: print_debug('error in update reservation', 'Inv_Pick_Release_PVT.Process_Reservations');
1013: END IF;
1014: fnd_message.set_name('INV', 'INV_UPD_RSV_FAILED');
1015: fnd_msg_pub.ADD;
1016: RAISE fnd_api.g_exc_unexpected_error;
1017: ELSE
1018: --Requery the reservation record and update it in the local table.
1019: IF (is_debug) THEN
1020: print_debug('query that reservation again',
1021: 'Inv_Pick_release_pvt.Process_Reservations');
1022: END IF;
1023: l_qry_rsv_rec_by_id.reservation_id := l_update_rsv_rec.reservation_id;
1024: inv_reservation_pub.query_reservation(
1025: p_api_version_number => 1.0
1046: */
1047: --update quantity tree
1048: IF is_debug THEN
1049: print_debug('updating quantity tree',
1050: 'Inv_Pick_Release_PVT.Process_Reservations');
1051: END IF;
1052:
1053: -- Added following secondary qty related section for Bug 7377744
1054: inv_quantity_tree_pub.update_quantities(
1092: , x_satr => l_sec_qty_available_to_reserve
1093: );
1094: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1095: IF (is_debug) THEN
1096: print_debug('Error from query quantity tree', 'Inv_Pick_Release_PVT.Process_Reservations');
1097: END IF;
1098: fnd_message.set_name('INV', 'INV_QRY_QTY_FAILED');
1099: fnd_msg_pub.ADD;
1100: RAISE fnd_api.g_exc_unexpected_error;
1129: );
1130:
1131: IF (l_new_rsv_quantity = -99999) THEN
1132: IF (is_debug) THEN
1133: print_debug('Cannot convert primary uom to rsv uom', 'Inv_Pick_release_pvt.process_reservations');
1134: END IF;
1135: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
1136: fnd_message.set_token('UOM', l_primary_uom);
1137: fnd_message.set_token('ROUTINE', 'Pick Release process');
1139: RAISE fnd_api.g_exc_unexpected_error;
1140: END IF;
1141: END IF;
1142: IF (is_debug) THEN
1143: print_debug('New prim rsv qty: ' || l_new_prim_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
1144: print_debug('New sec rsv qty: ' || l_new_sec_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
1145: print_debug('New rsv qty: ' || l_new_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
1146: END IF;
1147:
1140: END IF;
1141: END IF;
1142: IF (is_debug) THEN
1143: print_debug('New prim rsv qty: ' || l_new_prim_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
1144: print_debug('New sec rsv qty: ' || l_new_sec_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
1145: print_debug('New rsv qty: ' || l_new_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
1146: END IF;
1147:
1148: UPDATE mtl_reservations
1141: END IF;
1142: IF (is_debug) THEN
1143: print_debug('New prim rsv qty: ' || l_new_prim_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
1144: print_debug('New sec rsv qty: ' || l_new_sec_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
1145: print_debug('New rsv qty: ' || l_new_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Reservations');
1146: END IF;
1147:
1148: UPDATE mtl_reservations
1149: SET primary_reservation_quantity = l_new_prim_rsv_quantity
1158: , x_msg_data => x_msg_data);
1159:
1160: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1161: IF (is_debug) THEN
1162: print_debug('Error from inv_rsv_synch.for_update', 'Inv_Pick_Release_PVT.Process_Reservations');
1163: END IF;
1164: RAISE fnd_api.g_exc_error;
1165: END IF;
1166: --
1165: END IF;
1166: --
1167: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
1168: IF (is_debug) THEN
1169: print_debug('Unexp. error from inv_rsv_synch.for_update', 'Inv_Pick_Release_PVT.Process_Reservations');
1170: END IF;
1171: RAISE fnd_api.g_exc_unexpected_error;
1172: END IF;
1173:
1178: ELSIF ( l_lot_divisible_flag = 'Y') THEN
1179: -- If no org-wide reservation existed before, created one now.
1180: IF (is_debug) THEN
1181: print_debug('no org-wide reservation exist, need to create one',
1182: 'Inv_Pick_Release_Pvt.Process_Reservations');
1183: END IF;
1184: l_update_rsv_rec.reservation_id := NULL; -- cannot know
1185: l_update_rsv_rec.requirement_date := SYSDATE;
1186: l_update_rsv_rec.organization_id := p_mo_line_rec.organization_id;
1236: l_update_rsv_rec.ship_ready_flag := 2;
1237: -- l_update_rsv_rec.n_column1 := NULL;
1238: l_update_rsv_rec.detailed_quantity := 0;
1239: IF (is_debug) THEN
1240: print_debug('create new reservation', 'Inv_Pick_Release_PVT.Process_Reservations');
1241: END IF;
1242: inv_reservation_pub.create_reservation(
1243: p_api_version_number => 1.0
1244: , p_init_msg_lst => fnd_api.g_false
1258:
1259: -- Return an error if the create reservation call failed
1260: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
1261: IF (is_debug) THEN
1262: print_debug('error in create reservation', 'Inv_Pick_Release_PVT.Process_Reservations');
1263: END IF;
1264: fnd_message.set_name('INV', 'INV_QRY_RSV_FAILED');
1265: fnd_msg_pub.ADD;
1266: RAISE fnd_api.g_exc_unexpected_error;
1271: IF p_allow_partial_pick = fnd_api.g_false
1272: AND l_qty_succ_reserved < l_quantity_to_reserve THEN
1273: IF (is_debug) THEN
1274: print_debug('p_allow_partial_pick is false and could not reserve the quantity requested'
1275: , 'Inv-Pick_Release_PVT.Process_Reservations');
1276: END IF;
1277: fnd_message.set_name('INV', 'INV_COULD_NOT_PICK_FULL');
1278: fnd_msg_pub.ADD;
1279: RAISE fnd_api.g_exc_unexpected_error;
1307: l_demand_rsvs_ordered(l_res_ordered_index) := l_demand_reservations(l_res_tbl_index);
1308: -- Update with the actual reservation quantity
1309: x_rsv_qty_available := l_demand_reservations(l_res_tbl_index).primary_reservation_quantity;
1310: IF (is_debug) THEN
1311: print_debug('Reservation created for: '|| x_rsv_qty_available, 'Inv-Pick_Release_PVT.Process_Reservations');
1312: END IF; -- debug on
1313: END IF; -- An org-wide reservation existed
1314: END IF; -- The quantity to reserve was > 0
1315: END IF; --l_reserved_quantity < l_quantity_to_detail
1320:
1321: l_reservation_count := NVL(l_demand_rsvs_ordered.count,0);
1322:
1323: IF (is_debug) then
1324: print_debug('l_reservation_count = '|| l_reservation_count, 'Inv-Pick_Release_PVT.Process_Reservations');
1325: END IF;
1326:
1327: IF (l_reservation_count > 0) THEN
1328: l_res_tbl_index := l_demand_rsvs_ordered.FIRST;
1327: IF (l_reservation_count > 0) THEN
1328: l_res_tbl_index := l_demand_rsvs_ordered.FIRST;
1329: l_res_ordered_index := l_demand_rsvs_ordered.FIRST;
1330: IF (is_debug) then
1331: print_debug('Checking for Serial Reservations ', 'Inv-Pick_Release_PVT.Process_Reservations');
1332: END IF;
1333: LOOP
1334: IF ( nvl(l_demand_rsvs_ordered(l_res_tbl_index).primary_reservation_quantity,0)
1335: - nvl(l_demand_rsvs_ordered(l_res_tbl_index).detailed_quantity,0) > 0) THEN
1344: END IF;
1345: END IF;
1346:
1347: IF (is_debug) then
1348: print_debug('Serial Count = '|| l_rsv_serials.count, 'Inv-Pick_Release_PVT.Process_Reservations');
1349: print_debug('Subinventory : '|| l_demand_rsvs_ordered(l_res_tbl_index).subinventory_code, 'Inv-Pick_Release_PVT.Process_Reservations');
1350: END IF;
1351: -- {{ Test Case # UTK-REALLOC-3.2.1:40 }}
1352: -- Description: Single non-detailed reservation should allocate
1345: END IF;
1346:
1347: IF (is_debug) then
1348: print_debug('Serial Count = '|| l_rsv_serials.count, 'Inv-Pick_Release_PVT.Process_Reservations');
1349: print_debug('Subinventory : '|| l_demand_rsvs_ordered(l_res_tbl_index).subinventory_code, 'Inv-Pick_Release_PVT.Process_Reservations');
1350: END IF;
1351: -- {{ Test Case # UTK-REALLOC-3.2.1:40 }}
1352: -- Description: Single non-detailed reservation should allocate
1353: -- {{ Test Case # UTK-REALLOC-3.2.1:41 }}
1355: -- {{ Test Case # UTK-REALLOC-3.2.1:42 }}
1356: -- Description: Reservation that is already partially allocated should not re-allocate allocated serials
1357: IF (nvl(l_rsv_serials.COUNT,0) = 0) OR (l_demand_rsvs_ordered(l_res_tbl_index).subinventory_code IS NULL) THEN
1358: IF (is_debug) then
1359: print_debug('No Serials for this reservation', 'Inv-Pick_Release_PVT.Process_Reservations');
1360: END IF;
1361: x_demand_rsvs_ordered(l_res_ordered_index) := l_demand_rsvs_ordered(l_res_tbl_index);
1362: l_res_ordered_index := l_res_ordered_index + 1;
1363: ELSE
1372: l_demand_rsvs_ordered(l_res_tbl_index).primary_reservation_quantity := l_demand_rsvs_ordered(l_res_tbl_index).primary_reservation_quantity - 1;
1373: l_demand_rsvs_ordered(l_res_tbl_index).secondary_reservation_quantity := l_demand_rsvs_ordered(l_res_tbl_index).secondary_reservation_quantity - l_pri_sec_conv;
1374: l_res_ordered_index := l_res_ordered_index + 1;
1375: IF (is_debug) then
1376: print_debug('Serial Number - ' || l_rsv_serials(i).serial_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1377: print_debug('l_res_ordered_index ' || l_res_ordered_index, 'Inv-Pick_Release_PVT.Process_Reservations');
1378: END IF;
1379: END LOOP;
1380: -- {{ Test Case # UTK-REALLOC-3.2.1:43 }}
1373: l_demand_rsvs_ordered(l_res_tbl_index).secondary_reservation_quantity := l_demand_rsvs_ordered(l_res_tbl_index).secondary_reservation_quantity - l_pri_sec_conv;
1374: l_res_ordered_index := l_res_ordered_index + 1;
1375: IF (is_debug) then
1376: print_debug('Serial Number - ' || l_rsv_serials(i).serial_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1377: print_debug('l_res_ordered_index ' || l_res_ordered_index, 'Inv-Pick_Release_PVT.Process_Reservations');
1378: END IF;
1379: END LOOP;
1380: -- {{ Test Case # UTK-REALLOC-3.2.1:43 }}
1381: -- Description: Reservation for qty>1 with 1 serial number should allocate serial and do remainder
1395: --x_demand_rsvs_ordered := l_new_demand_rsvs_ordered;
1396:
1397: --x_demand_rsvs_ordered := l_demand_rsvs_ordered;
1398: IF (is_debug) THEN
1399: print_debug('Return from process_Reservations','Inv-Pick_Release_PVT.Process_Reservations');
1400: print_debug('Final Reservation Count : ' || x_demand_rsvs_ordered.count, 'Inv-Pick_Release_PVT.Process_Reservations');
1401: IF x_demand_rsvs_ordered.COUNT > 0 THEN
1402: FOR i in x_demand_rsvs_ordered.FIRST..x_demand_rsvs_ordered.LAST LOOP
1403: print_debug('Subinevntory code - ' || x_demand_rsvs_ordered(i).subinventory_code, 'Inv-Pick_Release_PVT.Process_Reservations');
1396:
1397: --x_demand_rsvs_ordered := l_demand_rsvs_ordered;
1398: IF (is_debug) THEN
1399: print_debug('Return from process_Reservations','Inv-Pick_Release_PVT.Process_Reservations');
1400: print_debug('Final Reservation Count : ' || x_demand_rsvs_ordered.count, 'Inv-Pick_Release_PVT.Process_Reservations');
1401: IF x_demand_rsvs_ordered.COUNT > 0 THEN
1402: FOR i in x_demand_rsvs_ordered.FIRST..x_demand_rsvs_ordered.LAST LOOP
1403: print_debug('Subinevntory code - ' || x_demand_rsvs_ordered(i).subinventory_code, 'Inv-Pick_Release_PVT.Process_Reservations');
1404: print_debug('Locator - ' || x_demand_rsvs_ordered(i).locator_id, 'Inv-Pick_Release_PVT.Process_Reservations');
1399: print_debug('Return from process_Reservations','Inv-Pick_Release_PVT.Process_Reservations');
1400: print_debug('Final Reservation Count : ' || x_demand_rsvs_ordered.count, 'Inv-Pick_Release_PVT.Process_Reservations');
1401: IF x_demand_rsvs_ordered.COUNT > 0 THEN
1402: FOR i in x_demand_rsvs_ordered.FIRST..x_demand_rsvs_ordered.LAST LOOP
1403: print_debug('Subinevntory code - ' || x_demand_rsvs_ordered(i).subinventory_code, 'Inv-Pick_Release_PVT.Process_Reservations');
1404: print_debug('Locator - ' || x_demand_rsvs_ordered(i).locator_id, 'Inv-Pick_Release_PVT.Process_Reservations');
1405: print_debug('Lot - ' || x_demand_rsvs_ordered(i).lot_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1406: print_debug('Serial Number - ' || x_demand_rsvs_ordered(i).serial_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1407: END LOOP;
1400: print_debug('Final Reservation Count : ' || x_demand_rsvs_ordered.count, 'Inv-Pick_Release_PVT.Process_Reservations');
1401: IF x_demand_rsvs_ordered.COUNT > 0 THEN
1402: FOR i in x_demand_rsvs_ordered.FIRST..x_demand_rsvs_ordered.LAST LOOP
1403: print_debug('Subinevntory code - ' || x_demand_rsvs_ordered(i).subinventory_code, 'Inv-Pick_Release_PVT.Process_Reservations');
1404: print_debug('Locator - ' || x_demand_rsvs_ordered(i).locator_id, 'Inv-Pick_Release_PVT.Process_Reservations');
1405: print_debug('Lot - ' || x_demand_rsvs_ordered(i).lot_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1406: print_debug('Serial Number - ' || x_demand_rsvs_ordered(i).serial_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1407: END LOOP;
1408: END IF;
1401: IF x_demand_rsvs_ordered.COUNT > 0 THEN
1402: FOR i in x_demand_rsvs_ordered.FIRST..x_demand_rsvs_ordered.LAST LOOP
1403: print_debug('Subinevntory code - ' || x_demand_rsvs_ordered(i).subinventory_code, 'Inv-Pick_Release_PVT.Process_Reservations');
1404: print_debug('Locator - ' || x_demand_rsvs_ordered(i).locator_id, 'Inv-Pick_Release_PVT.Process_Reservations');
1405: print_debug('Lot - ' || x_demand_rsvs_ordered(i).lot_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1406: print_debug('Serial Number - ' || x_demand_rsvs_ordered(i).serial_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1407: END LOOP;
1408: END IF;
1409: END IF;
1402: FOR i in x_demand_rsvs_ordered.FIRST..x_demand_rsvs_ordered.LAST LOOP
1403: print_debug('Subinevntory code - ' || x_demand_rsvs_ordered(i).subinventory_code, 'Inv-Pick_Release_PVT.Process_Reservations');
1404: print_debug('Locator - ' || x_demand_rsvs_ordered(i).locator_id, 'Inv-Pick_Release_PVT.Process_Reservations');
1405: print_debug('Lot - ' || x_demand_rsvs_ordered(i).lot_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1406: print_debug('Serial Number - ' || x_demand_rsvs_ordered(i).serial_number, 'Inv-Pick_Release_PVT.Process_Reservations');
1407: END LOOP;
1408: END IF;
1409: END IF;
1410: EXCEPTION
1421: WHEN OTHERS THEN
1422: x_return_status := fnd_api.g_ret_sts_unexp_error;
1423:
1424: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1425: fnd_msg_pub.add_exc_msg(g_pkg_name, 'INV_PICK_RELEASE_PVT');
1426: END IF;
1427:
1428: -- Get message count and data
1429: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1454: l_default_locator_id NUMBER := fnd_api.g_miss_num;
1455: l_call_mode VARCHAR2(1);
1456: BEGIN
1457: IF (is_debug) THEN
1458: print_debug('Inside Process_Unreservable', 'Inv_Pick_Release_PVT.Process_Unreservable_Items');
1459: END IF;
1460: x_return_status := fnd_api.g_ret_sts_success;
1461:
1462: /* bug 1560334 jxlu */
1511: l_default_locator_id := g_default_locator_id;
1512: END IF;
1513:
1514: IF (is_debug) THEN
1515: print_debug('Default Sub is'|| l_default_subinventory, 'Inv_Pick_Release_PVT.Process_Unreservable_Items');
1516: print_debug('Default Loc is'|| l_default_locator_id, 'Inv_Pick_Release_PVT.Process_Unreservable_Items');
1517: END IF;
1518: l_shipping_attr(1).subinventory := l_default_subinventory;
1519: l_shipping_attr(1).locator_id := l_default_locator_id;
1512: END IF;
1513:
1514: IF (is_debug) THEN
1515: print_debug('Default Sub is'|| l_default_subinventory, 'Inv_Pick_Release_PVT.Process_Unreservable_Items');
1516: print_debug('Default Loc is'|| l_default_locator_id, 'Inv_Pick_Release_PVT.Process_Unreservable_Items');
1517: END IF;
1518: l_shipping_attr(1).subinventory := l_default_subinventory;
1519: l_shipping_attr(1).locator_id := l_default_locator_id;
1520: /*end of bug 1560334 jxlu */
1525: l_shipping_attr(1).delivery_detail_id := p_demand_info.delivery_detail_id;
1526: l_shipping_attr(1).action_flag := 'U';
1527: IF (is_debug) THEN
1528: print_debug('Calling WSH_Interface.Update_Shipping_Attributes',
1529: 'Inv_Pick_Release_PVT.Process_Unreservable_Items');
1530: END IF;
1531: wsh_interface.update_shipping_attributes(
1532: p_source_code => 'INV'
1533: , p_changed_attributes => l_shipping_attr
1534: , x_return_status => l_return_status
1535: );
1536: IF (is_debug) THEN
1537: print_debug('after update shipping attributes',
1538: 'Inv_Pick_Release_Pvt.Process_Unreservable_Items');
1539: END IF;
1540:
1541: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
1542: IF (is_debug) THEN
1540:
1541: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
1542: IF (is_debug) THEN
1543: print_debug('return error from update shipping attributes',
1544: 'Inv_Pick_Release_Pvt.Process_Unreservable_Items');
1545: END IF;
1546: RAISE fnd_api.g_exc_error;
1547: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1548: IF (is_debug) THEN
1546: RAISE fnd_api.g_exc_error;
1547: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1548: IF (is_debug) THEN
1549: print_debug('return error from update shipping attributes',
1550: 'Inv_Pick_Release_Pvt.Process_Unreservable_Items');
1551: END IF;
1552: RAISE fnd_api.g_exc_unexpected_error;
1553: END IF;
1554:
1555: -- call the get pick slip number
1556:
1557: IF (is_debug) THEN
1558: print_debug('calling get_pick_slip_number',
1559: 'Inv_Pick_Release_Pvt.Process_Unreservable_Items');
1560: END IF;
1561: -- Bug 2666620: Inline branching to call either WSH or INV get_pick_slip_number
1562: /* FP-J PAR Replenishment Counts: It is not required to send dest_subinv,
1563: dest_locator_id, project_id and task_id. Dest Sub / Loc not required because
1584: , p_revision => p_mo_line_rec.revision
1585: );
1586: IF (is_debug) THEN
1587: print_debug('after calling get_pick_slip_number',
1588: 'Inv_Pick_Release_Pvt.Process_Unreservable_Items');
1589: END IF;
1590:
1591: IF l_return_status <> fnd_api.g_ret_sts_success
1592: OR l_pick_slip_number = -1 THEN
1591: IF l_return_status <> fnd_api.g_ret_sts_success
1592: OR l_pick_slip_number = -1 THEN
1593: IF (is_debug) THEN
1594: print_debug('return error from get_pick_slip_number',
1595: 'Inv_Pick_Release_Pvt.Process_Unreservable_Items');
1596: END IF;
1597: fnd_message.set_name('INV', 'INV_NO_PICK_SLIP_NUMBER');
1598: fnd_msg_pub.ADD;
1599: RAISE fnd_api.g_exc_unexpected_error;
1608: );
1609: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1610: IF (is_debug) THEN
1611: print_debug('return error from WSH_INV_INTEGRATION.find_printer',
1612: 'Inv_Pick_Release_Pvt.Process_Unreservable_Items');
1613: END IF;
1614: RAISE fnd_api.g_exc_unexpected_error;
1615: END IF;
1616: end if ;
1616: end if ;
1617:
1618: IF (is_debug) THEN
1619: print_debug('update move order line',
1620: 'Inv_pick_release_pvt.process_unreservable_items');
1621: END IF;
1622:
1623: p_mo_line_rec.quantity_detailed := p_mo_line_rec.quantity;
1624: p_mo_line_rec.quantity_delivered := p_mo_line_rec.quantity;
1637: x_pick_slip_number := l_pick_slip_number;
1638: x_ready_to_print := l_ready_to_print;
1639: IF (is_debug) THEN
1640: print_debug('end of process_unreservable_items ',
1641: 'Inv_pick_release_pvt.process_unreservable_items');
1642: END IF;
1643: EXCEPTION
1644: WHEN fnd_api.g_exc_error THEN
1645: x_return_status := fnd_api.g_ret_sts_error;
1652: WHEN OTHERS THEN
1653: x_return_status := fnd_api.g_ret_sts_unexp_error;
1654:
1655: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1656: fnd_msg_pub.add_exc_msg(g_pkg_name, 'INV_PICK_RELEASE_PVT');
1657: END IF;
1658:
1659: -- Get message count and data
1660: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1698: End If;
1699: END IF;
1700: IF (is_debug) THEN
1701: print_debug('inside process_prj_dynamic_locator',
1702: 'Inv_Pick_Release_PVt.Process_Prj_Dynamic_Locator');
1703: END IF;
1704: x_return_status := fnd_api.g_ret_sts_success;
1705:
1706: IF p_to_subinventory IS NULL THEN
1711:
1712: IF (p_mo_line_rec.project_id IS NOT NULL) THEN
1713: IF (is_debug) THEN
1714: print_debug('Move ORder has project reference',
1715: 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1716: END IF;
1717:
1718: l_return_value := INV_CACHE.set_org_rec(p_mo_line_rec.organization_id);
1719: IF NOT l_return_value THEN
1718: l_return_value := INV_CACHE.set_org_rec(p_mo_line_rec.organization_id);
1719: IF NOT l_return_value THEN
1720: IF (is_debug) THEN
1721: print_debug('error setting org cache',
1722: 'Inv_Pick_Release_PVt.Process_Prj_Dynamic_Locator');
1723: END IF;
1724: RAISE fnd_api.g_exc_unexpected_error;
1725: END IF;
1726: l_org_loc_control := INV_CACHE.org_rec.stock_locator_control_code;
1730: p_mo_line_rec.inventory_item_id);
1731: IF NOT l_return_value THEN
1732: IF (is_debug) THEN
1733: print_debug('error setting item cache',
1734: 'Inv_Pick_Release_PVt.Process_Prj_Dynamic_Locator');
1735: END IF;
1736: RAISE fnd_api.g_exc_unexpected_error;
1737: END IF;
1738: l_item_loc_control := INV_CACHE.item_rec.location_control_code;
1742: l_to_subinventory);
1743: IF NOT l_return_value THEN
1744: IF (is_debug) THEN
1745: print_debug('error setting to sub cache',
1746: 'Inv_Pick_Release_PVt.Process_Prj_Dynamic_Locator');
1747: END IF;
1748: RAISE fnd_api.g_exc_unexpected_error;
1749: END IF;
1750: l_sub_loc_control := INV_CACHE.tosub_rec.locator_type;
1749: END IF;
1750: l_sub_loc_control := INV_CACHE.tosub_rec.locator_type;
1751:
1752: IF (is_debug) THEN
1753: print_debug('l_org_loc_control is '|| l_org_loc_control, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1754: print_debug('l_item_loc_control is '|| l_item_loc_control, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1755: print_debug('l_sub_loc_control is '|| l_sub_loc_control, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1756: END IF;
1757:
1750: l_sub_loc_control := INV_CACHE.tosub_rec.locator_type;
1751:
1752: IF (is_debug) THEN
1753: print_debug('l_org_loc_control is '|| l_org_loc_control, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1754: print_debug('l_item_loc_control is '|| l_item_loc_control, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1755: print_debug('l_sub_loc_control is '|| l_sub_loc_control, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1756: END IF;
1757:
1758: IF (l_org_loc_control = 3
1751:
1752: IF (is_debug) THEN
1753: print_debug('l_org_loc_control is '|| l_org_loc_control, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1754: print_debug('l_item_loc_control is '|| l_item_loc_control, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1755: print_debug('l_sub_loc_control is '|| l_sub_loc_control, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1756: END IF;
1757:
1758: IF (l_org_loc_control = 3
1759: OR (l_org_loc_control = 4
1765: )
1766: ) THEN
1767: IF (is_debug) THEN
1768: print_debug('inside the locator control code',
1769: 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1770: END IF;
1771:
1772: BEGIN
1773: SELECT *
1776: WHERE inventory_location_id = p_to_locator_id
1777: AND organization_id = p_mo_line_rec.organization_id
1778: AND subinventory_code = l_to_subinventory;
1779: IF (is_debug) THEN
1780: print_debug('after select l_locator', 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1781: END IF;
1782: /*
1783: SELECT *
1784: INTO l_org
1785: FROM mtl_parameters
1786: WHERE organization_id = p_mo_line_rec.organization_id;
1787:
1788: IF (is_debug) THEN
1789: print_debug('after select organization', 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1790: END IF;
1791:
1792: SELECT *
1793: INTO l_sub
1795: WHERE secondary_inventory_name = p_mo_line_rec.to_subinventory_code
1796: AND organization_id = p_mo_line_rec.organization_id;
1797: */
1798: IF (is_debug) THEN
1799: print_debug('l_locator.segment1 = '|| l_locator.segment1, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1800: print_debug('l_locator.segment2 = '|| l_locator.segment2, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1801: print_debug('l_locator.segment3 = '|| l_locator.segment3, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1802: print_debug('l_locator.segment19 = '|| l_locator.segment19, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1803: print_debug('l_locator.segment20 = '|| l_locator.segment20, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1796: AND organization_id = p_mo_line_rec.organization_id;
1797: */
1798: IF (is_debug) THEN
1799: print_debug('l_locator.segment1 = '|| l_locator.segment1, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1800: print_debug('l_locator.segment2 = '|| l_locator.segment2, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1801: print_debug('l_locator.segment3 = '|| l_locator.segment3, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1802: print_debug('l_locator.segment19 = '|| l_locator.segment19, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1803: print_debug('l_locator.segment20 = '|| l_locator.segment20, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1804: END IF;
1797: */
1798: IF (is_debug) THEN
1799: print_debug('l_locator.segment1 = '|| l_locator.segment1, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1800: print_debug('l_locator.segment2 = '|| l_locator.segment2, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1801: print_debug('l_locator.segment3 = '|| l_locator.segment3, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1802: print_debug('l_locator.segment19 = '|| l_locator.segment19, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1803: print_debug('l_locator.segment20 = '|| l_locator.segment20, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1804: END IF;
1805:
1798: IF (is_debug) THEN
1799: print_debug('l_locator.segment1 = '|| l_locator.segment1, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1800: print_debug('l_locator.segment2 = '|| l_locator.segment2, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1801: print_debug('l_locator.segment3 = '|| l_locator.segment3, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1802: print_debug('l_locator.segment19 = '|| l_locator.segment19, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1803: print_debug('l_locator.segment20 = '|| l_locator.segment20, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1804: END IF;
1805:
1806: IF (l_locator.segment19 IS NULL
1799: print_debug('l_locator.segment1 = '|| l_locator.segment1, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1800: print_debug('l_locator.segment2 = '|| l_locator.segment2, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1801: print_debug('l_locator.segment3 = '|| l_locator.segment3, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1802: print_debug('l_locator.segment19 = '|| l_locator.segment19, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1803: print_debug('l_locator.segment20 = '|| l_locator.segment20, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1804: END IF;
1805:
1806: IF (l_locator.segment19 IS NULL
1807: AND l_locator.segment20 IS NULL
1824: IF (success = inv_validate.t) THEN
1825: l_new_to_locator_id := l_locator.inventory_location_id;
1826: ELSE
1827: IF (is_debug) THEN
1828: print_debug('INV_Validate error', 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1829: END IF;
1830: /*FND_MSG_PUB.Count_And_Get (p_count => l_count , p_data => l_message , p_encoded => 'T');
1831: if( l_count = 0 ) then
1832: IF (is_debug) THEN
1861:
1862: IF l_new_to_locator_id IS NOT NULL THEN
1863: IF (is_debug) THEN
1864: print_debug('new locator id is '|| l_new_to_locator_id,
1865: 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1866: END IF;
1867:
1868: If p_mo_line_rec.to_locator_id <> l_new_to_locator_id AND
1869: p_mo_line_rec.to_locator_id IS NOT NULL Then
1874:
1875: p_mo_line_rec.to_locator_id := l_new_to_locator_id;
1876: End If; -- update mtrl
1877: IF (is_debug) THEN
1878: print_debug('new locator id is '|| l_new_to_locator_id, 'Inv_Pick_Release_PVT.Process_Prj_Dynamic_Locator');
1879: END IF; --debug
1880: END IF; -- new locator id is not null
1881: END IF; --locator controlled
1882: END IF;
1894: WHEN OTHERS THEN
1895: x_return_status := fnd_api.g_ret_sts_unexp_error;
1896:
1897: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1898: fnd_msg_pub.add_exc_msg(g_pkg_name, 'INV_PICK_RELEASE_PVT');
1899: END IF;
1900:
1901: -- Get message count and data
1902: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1907: -- Name
1908: -- PROCEDURE Process_Line
1909: --
1910: -- Package
1911: -- INV_Pick_Release_PVT
1912: --
1913: -- Purpose
1914: -- Pick releases the move order line passed in. Any necessary validation is
1915: -- assumed to have been done by the caller.
2077: is_debug := FALSE;
2078: End If;
2079: END IF;
2080: IF (is_debug) THEN
2081: print_debug('Inside Process_Line', 'Inv_Pick_Release_PVT.Process_Line');
2082: gmi_reservation_util.println('inside Inv_Pick_Release_PVT.Process_Line');
2083: END IF;
2084:
2085: SAVEPOINT process_line_pvt;
2078: End If;
2079: END IF;
2080: IF (is_debug) THEN
2081: print_debug('Inside Process_Line', 'Inv_Pick_Release_PVT.Process_Line');
2082: gmi_reservation_util.println('inside Inv_Pick_Release_PVT.Process_Line');
2083: END IF;
2084:
2085: SAVEPOINT process_line_pvt;
2086: x_detail_rec_count := 0;
2160: AND wdd.released_status = 'S';
2161: EXCEPTION
2162: WHEN NO_DATA_FOUND THEN
2163: IF (is_debug) THEN
2164: print_debug('No data found-Delivery Info', 'Inv_Pick_Release_PVT.Process_Line');
2165: gmi_reservation_util.println('Process_LineNo data found-Delivery Info');
2166: END IF;
2167: ROLLBACK TO process_line_pvt;
2168: fnd_message.set_name('INV', 'INV_DELIV_INFO_MISSING');
2174: END IF;
2175: l_return_value := INV_CACHE.set_item_rec(p_mo_line_rec.organization_id, p_mo_line_rec.inventory_item_id);
2176: IF NOT l_return_value THEN
2177: If is_debug THEN
2178: print_debug('Error setting item cache', 'Inv_Pick_Release_PVT.Process_Line');
2179: End If;
2180: raise fnd_api.g_exc_unexpected_error;
2181: End If;
2182: l_reservable_type:= INV_CACHE.item_rec.reservable_type;
2190: ELSE
2191: l_return_value := INV_CACHE.set_mtt_rec(p_mo_line_rec.transaction_type_id);
2192: IF NOT l_return_value THEN
2193: If is_debug THEN
2194: print_debug('Error setting item cache','Inv_Pick_Release_PVT.Process_Line');
2195: End If;
2196: raise fnd_api.g_exc_unexpected_error;
2197: End If;
2198: l_demand_source_type := INV_CACHE.mtt_rec.transaction_source_type_id;
2208:
2209: l_return_value := INV_CACHE.set_mso_rec(l_demand_info.oe_header_id);
2210: IF NOT l_return_value THEN
2211: IF (is_debug) THEN
2212: print_debug('No Mtl_Sales_Order ID found for oe header', 'Inv_Pick_Release_PVT.Process_Line');
2213: gmi_reservation_util.println('No Mtl_Sales_Order ID found for oe header');
2214: END IF;
2215: fnd_message.set_name('INV', 'INV_COULD_NOT_GET_MSO_HEADER');
2216: fnd_msg_pub.ADD;
2221:
2222: IF (is_debug) THEN
2223: gmi_reservation_util.println('Process_Line, l_mso_header_id '|| l_mso_header_id);
2224:
2225: print_debug('p_mo_line_rec.unit_number is '|| p_mo_line_rec.unit_number, 'Inv_Pick_Release_PVT.Process_Line');
2226: print_debug('p_mo_line_Rec.project_id is '|| p_mo_line_rec.project_id, 'Inv_Pick_Release_PVT.Process_Line');
2227: print_debug('p_mo_line_Rec.task_id is '|| p_mo_line_rec.task_id, 'Inv_Pick_Release_PVT.Process_Line');
2228: END IF;
2229:
2222: IF (is_debug) THEN
2223: gmi_reservation_util.println('Process_Line, l_mso_header_id '|| l_mso_header_id);
2224:
2225: print_debug('p_mo_line_rec.unit_number is '|| p_mo_line_rec.unit_number, 'Inv_Pick_Release_PVT.Process_Line');
2226: print_debug('p_mo_line_Rec.project_id is '|| p_mo_line_rec.project_id, 'Inv_Pick_Release_PVT.Process_Line');
2227: print_debug('p_mo_line_Rec.task_id is '|| p_mo_line_rec.task_id, 'Inv_Pick_Release_PVT.Process_Line');
2228: END IF;
2229:
2230: -- Retrieve reservation information for that demand source
2223: gmi_reservation_util.println('Process_Line, l_mso_header_id '|| l_mso_header_id);
2224:
2225: print_debug('p_mo_line_rec.unit_number is '|| p_mo_line_rec.unit_number, 'Inv_Pick_Release_PVT.Process_Line');
2226: print_debug('p_mo_line_Rec.project_id is '|| p_mo_line_rec.project_id, 'Inv_Pick_Release_PVT.Process_Line');
2227: print_debug('p_mo_line_Rec.task_id is '|| p_mo_line_rec.task_id, 'Inv_Pick_Release_PVT.Process_Line');
2228: END IF;
2229:
2230: -- Retrieve reservation information for that demand source
2231: -- only if the item is reservable
2230: -- Retrieve reservation information for that demand source
2231: -- only if the item is reservable
2232: IF (l_reservable_type = 1) THEN
2233: IF (is_debug) THEN
2234: print_debug('Calling process_reservations', 'Inv_Pick_Release_PVT.Process_Line');
2235: END IF;
2236: --bug#7377744
2237: process_reservations(
2238: x_return_status => l_api_return_status
2257: ELSIF (l_reservable_type = 2) THEN
2258: -- bug 1412145 for non reservable item, just update shipping attr with released_status = 'Y'
2259: -- update the qty_Detailed and qty_Delivered in the move order line
2260: IF (is_debug) THEN
2261: print_debug('Calling process_unreservable_items', 'Inv_Pick_Release_PVT.Process_Line');
2262: END IF;
2263: l_call_mode := NULL;
2264: process_unreservable_items(
2265: x_return_status => l_api_return_status
2287:
2288: l_return_value := INV_CACHE.set_mtrh_rec(p_mo_line_rec.header_id);
2289: IF NOT l_return_value THEN
2290: If is_debug THEN
2291: print_debug('Error setting header cache', 'Inv_Pick_Release_PVT.Process_Line');
2292: End If;
2293: raise fnd_api.g_exc_unexpected_error;
2294: END IF;
2295: l_request_number := INV_CACHE.mtrh_rec.request_number;
2306: WHERE NAME = l_request_number;
2307: EXCEPTION
2308: WHEN NO_DATA_FOUND THEN
2309: IF is_debug THEN
2310: print_debug('No Data found - document set','Inv_Pick_Release_PVT.Process_Line');
2311: END IF;
2312: x_return_status := fnd_api.g_ret_sts_error;
2313: RAISE fnd_api.g_exc_error;
2314: END;
2325: );
2326:
2327: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
2328: IF (is_debug) THEN
2329: print_debug('Error in Print Pick Slip', 'Inv_Pick_Release_PVT.Process_Line');
2330: END IF;
2331: ROLLBACK TO process_line_pvt;
2332: fnd_message.set_name('INV', 'INV_PRINT_PICK_SLIP_FAILED');
2333: fnd_message.set_token('PICK_SLIP_NUM', TO_CHAR(l_pick_slip_number));
2337: END IF; -- ready to print
2338:
2339: GOTO end_pick;
2340: ELSE
2341: print_debug('Non-standard reservable type: ' || l_reservable_type, 'Inv_Pick_Release_PVT.Process_Line');
2342: END IF; -- The item is reservable
2343:
2344: l_lot_control_code:= INV_CACHE.item_rec.lot_control_code;
2345:
2352: -- If the sub is not reservable we still want to move further
2353: IF g_sub_reservable_type = 1 THEN
2354: IF (l_demand_rsvs_ordered.COUNT = 0 AND l_lot_divisible_flag = 'Y')THEN
2355: IF (is_debug) THEN
2356: print_debug('Could not reserve any qty skip suggestion', 'Inv_Pick_Release_PVT.Process_Line');
2357: END IF;
2358: GOTO rsv_failed;
2359: END IF;
2360: END IF;
2367: -- {{ Test Case # UTK-REALLOC-3.2.6:61 }}
2368: -- Description: Tolerances on Non-lot indivisible items should not be considered
2369: IF l_lot_divisible_flag = 'N' THEN
2370: IF (is_debug) THEN
2371: print_debug('Calling get tolerance', 'Inv_Pick_Release_PVT.Process_Line');
2372: END IF;
2373: get_tolerance(p_mo_line_id => p_mo_line_rec.line_id,
2374: x_return_status => l_api_return_status,
2375: x_msg_count => x_msg_count,
2376: x_msg_data => x_msg_data,
2377: x_max_tolerance => l_max_tolerance,
2378: x_min_tolerance => l_min_tolerance);
2379: IF (is_debug) THEN
2380: print_debug('max tolerance is '|| l_max_tolerance || ' , min tolerance is ' || l_min_tolerance, 'Inv_Pick_Release_PVT.Process_line');
2381: END IF;
2382: END IF;
2383:
2384: IF (is_debug) THEN
2381: END IF;
2382: END IF;
2383:
2384: IF (is_debug) THEN
2385: print_debug('calling create suggestions', 'Inv_Pick_Release_PVT.Process_Line');
2386: print_debug('line_id is '|| p_mo_line_rec.line_id, 'Inv_Pick_Release_PVT.Process_line');
2387: END IF;
2388: --Bug3237702 starts added for caching
2389: inv_cache.tolocator_id := p_mo_line_rec.to_locator_id;
2382: END IF;
2383:
2384: IF (is_debug) THEN
2385: print_debug('calling create suggestions', 'Inv_Pick_Release_PVT.Process_Line');
2386: print_debug('line_id is '|| p_mo_line_rec.line_id, 'Inv_Pick_Release_PVT.Process_line');
2387: END IF;
2388: --Bug3237702 starts added for caching
2389: inv_cache.tolocator_id := p_mo_line_rec.to_locator_id;
2390: inv_cache.tosubinventory_code := p_mo_line_rec.to_subinventory_code;
2404: , p_organization_id => p_mo_line_rec.organization_id
2405: );
2406: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
2407: IF (is_debug) THEN
2408: print_debug('l_return_status = '|| l_api_return_status, 'Inv_Pick_Release_PVT.Process_Line');
2409: print_debug('inv detailing failed', 'Inv_Pick_Release_PVT.Process_Line');
2410: END IF;
2411: /*As a part of bug 1826833, commented the line below and
2412: uncommented the the message printing code below
2405: );
2406: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
2407: IF (is_debug) THEN
2408: print_debug('l_return_status = '|| l_api_return_status, 'Inv_Pick_Release_PVT.Process_Line');
2409: print_debug('inv detailing failed', 'Inv_Pick_Release_PVT.Process_Line');
2410: END IF;
2411: /*As a part of bug 1826833, commented the line below and
2412: uncommented the the message printing code below
2413: */
2410: END IF;
2411: /*As a part of bug 1826833, commented the line below and
2412: uncommented the the message printing code below
2413: */
2414: -- print_debug(replace(x_msg_data,chr(0),'#'), 'Inv_Pick_Release_PVT.Process_Line');
2415: fnd_msg_pub.count_and_get(p_count => l_count, p_data => l_message, p_encoded => 'F');
2416:
2417: IF (l_count = 0) THEN
2418: IF (is_debug) THEN
2416:
2417: IF (l_count = 0) THEN
2418: IF (is_debug) THEN
2419: print_debug('no message from detailing engine',
2420: 'Inv_Pick_Release_PVT.Process_Line');
2421: END IF;
2422: ELSIF (l_count = 1) THEN
2423: IF (is_debug) THEN
2424: print_debug(l_message, 'Inv_Pick_Release_PVT.Process_Line');
2420: 'Inv_Pick_Release_PVT.Process_Line');
2421: END IF;
2422: ELSIF (l_count = 1) THEN
2423: IF (is_debug) THEN
2424: print_debug(l_message, 'Inv_Pick_Release_PVT.Process_Line');
2425: END IF;
2426: ELSE
2427: FOR i IN 1 .. l_count LOOP
2428: l_message := fnd_msg_pub.get(i, 'F');
2426: ELSE
2427: FOR i IN 1 .. l_count LOOP
2428: l_message := fnd_msg_pub.get(i, 'F');
2429: IF (is_debug) THEN
2430: print_debug(l_message, 'Inv_Pick_Release_PVT.Process_Line');
2431: END IF;
2432: END LOOP;
2433:
2434: fnd_msg_pub.delete_msg();
2438:
2439: l_return_value := INV_CACHE.set_mtrh_rec(p_mo_line_rec.header_id);
2440: IF NOT l_return_value THEN
2441: If is_debug THEN
2442: print_debug('Error setting header cache', 'Inv_Pick_Release_PVT.Process_Line');
2443: End If;
2444: raise fnd_api.g_exc_unexpected_error;
2445: END IF;
2446: l_request_number := INV_CACHE.mtrh_rec.request_number;
2452: RAISE fnd_api.g_exc_unexpected_error;
2453: END IF;
2454:
2455: IF (is_debug) THEN
2456: print_debug('after calling create suggestions with return status = '||l_api_return_status, 'Inv_Pick_Release_PVT.Process_Line');
2457: END IF;
2458:
2459: -- Update the detailed quantity (and if possible, the sourcing information)
2460: -- of the Move Order Line
2472: FROM mtl_material_transactions_temp
2473: WHERE move_order_line_id = p_mo_line_rec.line_id;
2474:
2475: IF (is_debug) THEN
2476: print_debug('l_quantity detailed is '|| l_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2477: print_debug('l_sec_quantity detailed is '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2478: print_debug('l_num_detail_recs is '|| l_num_detail_recs, 'Inv_Pick_Release_PVT.Process_Line');
2479: END IF;
2480:
2473: WHERE move_order_line_id = p_mo_line_rec.line_id;
2474:
2475: IF (is_debug) THEN
2476: print_debug('l_quantity detailed is '|| l_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2477: print_debug('l_sec_quantity detailed is '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2478: print_debug('l_num_detail_recs is '|| l_num_detail_recs, 'Inv_Pick_Release_PVT.Process_Line');
2479: END IF;
2480:
2481: --Bug#6085577. l_quantity_detailed_conv should hold quantity in the UOM of MTRL.
2474:
2475: IF (is_debug) THEN
2476: print_debug('l_quantity detailed is '|| l_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2477: print_debug('l_sec_quantity detailed is '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2478: print_debug('l_num_detail_recs is '|| l_num_detail_recs, 'Inv_Pick_Release_PVT.Process_Line');
2479: END IF;
2480:
2481: --Bug#6085577. l_quantity_detailed_conv should hold quantity in the UOM of MTRL.
2482: l_primary_uom:= INV_CACHE.item_rec.primary_uom_code; --Get primary UOM of item.
2480:
2481: --Bug#6085577. l_quantity_detailed_conv should hold quantity in the UOM of MTRL.
2482: l_primary_uom:= INV_CACHE.item_rec.primary_uom_code; --Get primary UOM of item.
2483: IF (is_debug) THEN
2484: print_debug('Move Order line UOM '||p_mo_line_rec.uom_code || 'Pri UOM:'|| l_primary_uom,'Inv_Pick_Release_PVT.Process_Line');
2485: END IF;
2486: IF (p_mo_line_rec.uom_code <> l_primary_uom ) THEN
2487: l_quantity_detailed_conv := inv_convert.inv_um_convert(
2488: item_id => p_mo_line_rec.inventory_item_id
2499:
2500: EXCEPTION
2501: WHEN NO_DATA_FOUND THEN
2502: IF (is_debug) THEN
2503: print_debug('no detail records found', 'Inv_Pick_Release_PVT.Process_line');
2504: END IF;
2505: l_quantity_detailed := 0;
2506: l_sec_quantity_detailed := 0;
2507: l_quantity_detailed_conv := 0;
2515: -- than the requested quantity
2516: IF l_quantity_detailed < p_mo_line_rec.primary_quantity - l_min_tolerance THEN
2517: IF p_allow_partial_pick = fnd_api.g_false THEN
2518: IF (is_debug) THEN
2519: print_debug('Error - could not pick full', 'Inv_Pick_Release_PVT.Process_Line');
2520: END IF;
2521: ROLLBACK TO process_line_pvt;
2522: fnd_message.set_name('INV', 'INV_COULD_NOT_PICK_FULL');
2523: fnd_msg_pub.ADD;
2525: ELSE
2526: -- Set a flag to later set the return status for success,
2527: -- but only partially detailed
2528: IF (is_debug) THEN
2529: print_debug('l_partially_detailed is 1', 'Inv_Pick_Release_PVT.Process_Line');
2530: END IF;
2531: l_partially_detailed := 1;
2532: END IF;
2533: ELSE
2531: l_partially_detailed := 1;
2532: END IF;
2533: ELSE
2534: IF (is_debug) THEN
2535: print_debug('l_partially_detailed is 2', 'Inv_Pick_Release_PVT.Process_Line');
2536: IF l_quantity_detailed < p_mo_line_rec.primary_quantity THEN
2537: print_debug('Underallocated with tolerance', 'Inv_Pick_Release_PVT.Process_Line');
2538: END IF;
2539: END IF;
2533: ELSE
2534: IF (is_debug) THEN
2535: print_debug('l_partially_detailed is 2', 'Inv_Pick_Release_PVT.Process_Line');
2536: IF l_quantity_detailed < p_mo_line_rec.primary_quantity THEN
2537: print_debug('Underallocated with tolerance', 'Inv_Pick_Release_PVT.Process_Line');
2538: END IF;
2539: END IF;
2540: l_partially_detailed := 2;
2541: END IF;
2562: l_index := l_demand_rsvs_ordered.LAST;
2563: l_reservation_id := l_demand_rsvs_ordered(l_index).reservation_id;
2564: l_new_prim_rsv_quantity := l_demand_rsvs_ordered(l_index).primary_reservation_quantity - NVL(l_rsv_qty_available, 0);
2565: IF (is_debug) THEN
2566: print_debug('updating reservations created as suggestions failed', 'Inv_Pick_Release_PVT.Process_Line');
2567: print_debug('reduce reservation by'|| l_rsv_qty_available, 'Inv_Pick_Release_PVT.Process_Line');
2568: END IF;
2569:
2570: --if setting new quantity to 0, call delete
2563: l_reservation_id := l_demand_rsvs_ordered(l_index).reservation_id;
2564: l_new_prim_rsv_quantity := l_demand_rsvs_ordered(l_index).primary_reservation_quantity - NVL(l_rsv_qty_available, 0);
2565: IF (is_debug) THEN
2566: print_debug('updating reservations created as suggestions failed', 'Inv_Pick_Release_PVT.Process_Line');
2567: print_debug('reduce reservation by'|| l_rsv_qty_available, 'Inv_Pick_Release_PVT.Process_Line');
2568: END IF;
2569:
2570: --if setting new quantity to 0, call delete
2571: If l_new_prim_rsv_quantity = 0 Then
2571: If l_new_prim_rsv_quantity = 0 Then
2572: --CHANGE - should pass validation flag that does not validate but
2573: --does update quantity tree
2574: IF is_debug THEN
2575: print_debug('Delete org level reservation', 'Inv_Pick_Release_PVT.Process_Reservations');
2576: END IF;
2577: inv_reservation_pvt.delete_reservation(
2578: p_api_version_number => 1.0
2579: ,p_init_msg_lst => fnd_api.g_false
2586: );
2587:
2588: IF (l_api_return_status = fnd_api.g_ret_sts_error) THEN
2589: IF (is_debug) THEN
2590: print_debug('return error from delete_reservation', 'Inv_Pick_Release_Pvt.Process_Line');
2591: END IF;
2592: RAISE fnd_api.g_exc_error;
2593: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
2594: IF (is_debug) THEN
2591: END IF;
2592: RAISE fnd_api.g_exc_error;
2593: ELSIF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
2594: IF (is_debug) THEN
2595: print_debug('return unexpected error from delete_reservation','Inv_Pick_Release_Pvt.Process_Line');
2596: END IF;
2597: RAISE fnd_api.g_exc_unexpected_error;
2598: END IF;
2599:
2599:
2600: Else
2601: --update quantity tree
2602: IF is_debug THEN
2603: print_debug('updating quantity tree', 'Inv_Pick_Release_PVT.Process_Line');
2604: END IF;
2605: l_primary_uom:= INV_CACHE.item_rec.primary_uom_code;
2606: l_secondary_uom:= INV_CACHE.item_rec.secondary_uom_code;
2607: l_revision_control_code:=INV_CACHE.item_rec.revision_qty_control_code;
2671: );
2672: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
2673: IF (is_debug) THEN
2674: print_debug('Error from update quantity tree',
2675: 'Inv_Pick_Release_PVT.Process_Line');
2676: END IF;
2677: RAISE fnd_api.g_exc_unexpected_error;
2678: END IF;
2679:
2698:
2699:
2700: IF (l_new_rsv_quantity = -99999) THEN
2701: IF (is_debug) THEN
2702: print_debug('Cannot convert primary uom to rsv uom','Inv_Pick_release_pvt.process_line');
2703: END IF;
2704: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
2705: fnd_message.set_token('UOM', l_primary_uom);
2706: fnd_message.set_token('ROUTINE', 'Pick Release process');
2708: RAISE fnd_api.g_exc_unexpected_error;
2709: END IF;
2710: END IF;
2711: IF (is_debug) THEN
2712: print_debug('New prim rsv qty: ' || l_new_prim_rsv_quantity,'Inv_Pick_Release_PVT.Process_Line');
2713: print_debug('New rsv qty: ' || l_new_rsv_quantity,'Inv_Pick_Release_PVT.Process_Line');
2714: END IF;
2715:
2716: UPDATE mtl_reservations
2709: END IF;
2710: END IF;
2711: IF (is_debug) THEN
2712: print_debug('New prim rsv qty: ' || l_new_prim_rsv_quantity,'Inv_Pick_Release_PVT.Process_Line');
2713: print_debug('New rsv qty: ' || l_new_rsv_quantity,'Inv_Pick_Release_PVT.Process_Line');
2714: END IF;
2715:
2716: UPDATE mtl_reservations
2717: SET primary_reservation_quantity = l_new_prim_rsv_quantity
2725: , x_msg_data => x_msg_data);
2726:
2727: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
2728: IF (is_debug) THEN
2729: print_debug('Error from inv_rsv_synch.for_update','Inv_Pick_Release_PVT.Process_Reservations');
2730: END IF;
2731: RAISE fnd_api.g_exc_error;
2732: END IF;
2733: --
2732: END IF;
2733: --
2734: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
2735: IF (is_debug) THEN
2736: print_debug('Unexp. error from inv_rsv_synch.for_update','Inv_Pick_Release_PVT.Process_Reservations');
2737: END IF;
2738: RAISE fnd_api.g_exc_unexpected_error;
2739: END IF;
2740:
2750: l_res_ordered_index := l_demand_rsvs_ordered.LAST;
2751: IF l_demand_rsvs_ordered.COUNT > 0 AND l_partially_detailed = 1 AND l_num_detail_recs > 0 THEN
2752:
2753: IF (l_debug = 1) THEN
2754: print_debug('Checking whether to unreserve non-detailed quantity or not', 'Inv_Pick_Release_PVT.Process_Line');
2755: END IF;
2756:
2757: l_reduce_rsv_qty := l_rsv_qty_available;
2758:
2773:
2774: l_new_prim_rsv_quantity := l_demand_rsvs_ordered(l_res_ordered_index).primary_reservation_quantity - NVL(l_reduce_rsv_qty, 0);
2775:
2776: IF (l_debug = 1) THEN
2777: print_debug('l_reduce_rsv_qty = '||l_reduce_rsv_qty, 'Inv_Pick_Release_PVT.Process_Line');
2778: print_debug('l_new_prim_rsv_quantity = '||l_new_prim_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Line');
2779: END IF;
2780:
2781: IF NVL(l_reduce_rsv_qty,0) > 0 THEN
2774: l_new_prim_rsv_quantity := l_demand_rsvs_ordered(l_res_ordered_index).primary_reservation_quantity - NVL(l_reduce_rsv_qty, 0);
2775:
2776: IF (l_debug = 1) THEN
2777: print_debug('l_reduce_rsv_qty = '||l_reduce_rsv_qty, 'Inv_Pick_Release_PVT.Process_Line');
2778: print_debug('l_new_prim_rsv_quantity = '||l_new_prim_rsv_quantity, 'Inv_Pick_Release_PVT.Process_Line');
2779: END IF;
2780:
2781: IF NVL(l_reduce_rsv_qty,0) > 0 THEN
2782: IF (l_debug = 1) THEN
2779: END IF;
2780:
2781: IF NVL(l_reduce_rsv_qty,0) > 0 THEN
2782: IF (l_debug = 1) THEN
2783: print_debug('updating reservations created as suggestions got created with partial qty', 'Inv_Pick_Release_PVT.Process_Line');
2784: print_debug('system generated reservation '|| l_rsv_qty_available, 'Inv_Pick_Release_PVT.Process_Line');
2785: print_debug('reduce reservation by'|| l_reduce_rsv_qty, 'Inv_Pick_Release_PVT.Process_Line');
2786: END IF;
2787:
2780:
2781: IF NVL(l_reduce_rsv_qty,0) > 0 THEN
2782: IF (l_debug = 1) THEN
2783: print_debug('updating reservations created as suggestions got created with partial qty', 'Inv_Pick_Release_PVT.Process_Line');
2784: print_debug('system generated reservation '|| l_rsv_qty_available, 'Inv_Pick_Release_PVT.Process_Line');
2785: print_debug('reduce reservation by'|| l_reduce_rsv_qty, 'Inv_Pick_Release_PVT.Process_Line');
2786: END IF;
2787:
2788: --handle conversion to reservation UOM
2781: IF NVL(l_reduce_rsv_qty,0) > 0 THEN
2782: IF (l_debug = 1) THEN
2783: print_debug('updating reservations created as suggestions got created with partial qty', 'Inv_Pick_Release_PVT.Process_Line');
2784: print_debug('system generated reservation '|| l_rsv_qty_available, 'Inv_Pick_Release_PVT.Process_Line');
2785: print_debug('reduce reservation by'|| l_reduce_rsv_qty, 'Inv_Pick_Release_PVT.Process_Line');
2786: END IF;
2787:
2788: --handle conversion to reservation UOM
2789: IF l_demand_rsvs_ordered(l_res_ordered_index).reservation_uom_code IS NULL THEN
2804: );
2805:
2806: IF (l_new_rsv_quantity = -99999) THEN
2807: IF (is_debug) THEN
2808: print_debug('Cannot convert primary uom to rsv uom','Inv_Pick_release_pvt.process_line');
2809: END IF;
2810: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
2811: fnd_message.set_token('UOM', l_primary_uom);
2812: fnd_message.set_token('ROUTINE', 'Pick Release process');
2814: RAISE fnd_api.g_exc_unexpected_error;
2815: END IF;
2816: END IF;
2817: IF (is_debug) THEN
2818: print_debug('New prim rsv qty: ' || l_new_prim_rsv_quantity,'Inv_Pick_Release_PVT.Process_Line');
2819: print_debug('New rsv qty: ' || l_new_rsv_quantity,'Inv_Pick_Release_PVT.Process_Line');
2820: END IF;
2821: /* bug 7253296 - error in quantity tree */
2822: /*l_demand_rsvs_ordered(l_res_ordered_index).primary_reservation_quantity := l_new_prim_rsv_quantity;
2815: END IF;
2816: END IF;
2817: IF (is_debug) THEN
2818: print_debug('New prim rsv qty: ' || l_new_prim_rsv_quantity,'Inv_Pick_Release_PVT.Process_Line');
2819: print_debug('New rsv qty: ' || l_new_rsv_quantity,'Inv_Pick_Release_PVT.Process_Line');
2820: END IF;
2821: /* bug 7253296 - error in quantity tree */
2822: /*l_demand_rsvs_ordered(l_res_ordered_index).primary_reservation_quantity := l_new_prim_rsv_quantity;
2823: l_demand_rsvs_ordered(l_res_ordered_index).reservation_quantity := l_new_rsv_quantity;
2846: );
2847:
2848: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
2849: IF (is_debug) THEN
2850: print_debug('error in update reservation', 'Inv_Pick_Release_PVT.Process_Reservations');
2851: END IF;
2852: fnd_message.set_name('INV', 'INV_UPD_RSV_FAILED');
2853: fnd_msg_pub.ADD;
2854: RAISE fnd_api.g_exc_unexpected_error;
2861: , x_msg_data => x_msg_data);
2862:
2863: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
2864: IF (is_debug) THEN
2865: print_debug('Error from inv_rsv_synch.for_update','Inv_Pick_Release_PVT.Process_Line');
2866: END IF;
2867: RAISE fnd_api.g_exc_error;
2868: END IF;
2869: --
2868: END IF;
2869: --
2870: IF l_api_return_status = fnd_api.g_ret_sts_unexp_error THEN
2871: IF (is_debug) THEN
2872: print_debug('Unexp. error from inv_rsv_synch.for_update','Inv_Pick_Release_PVT.Process_Line');
2873: END IF;
2874: RAISE fnd_api.g_exc_unexpected_error;
2875: END IF;*/
2876: /* end bug 7253296 */
2882: -- records match (otherwise update the line with NULL)
2883: IF l_num_detail_recs > 0 THEN
2884: -- Calculate the quantity detailed in the UOM of the move order line
2885: IF (is_debug) THEN
2886: print_debug('calling inv_convert.inv_uom_convert', 'Inv_Pick_Release_PVT.Process_Line');
2887: print_debug('l_quantity_detailed = '|| l_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2888: print_debug('l_sec_quantity_detailed = '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2889: END IF;
2890:
2883: IF l_num_detail_recs > 0 THEN
2884: -- Calculate the quantity detailed in the UOM of the move order line
2885: IF (is_debug) THEN
2886: print_debug('calling inv_convert.inv_uom_convert', 'Inv_Pick_Release_PVT.Process_Line');
2887: print_debug('l_quantity_detailed = '|| l_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2888: print_debug('l_sec_quantity_detailed = '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2889: END IF;
2890:
2891: l_quantity_detailed_conv := nvl(l_quantity_detailed_conv,0) + Nvl(p_mo_line_rec.quantity_delivered,0);
2884: -- Calculate the quantity detailed in the UOM of the move order line
2885: IF (is_debug) THEN
2886: print_debug('calling inv_convert.inv_uom_convert', 'Inv_Pick_Release_PVT.Process_Line');
2887: print_debug('l_quantity_detailed = '|| l_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2888: print_debug('l_sec_quantity_detailed = '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2889: END IF;
2890:
2891: l_quantity_detailed_conv := nvl(l_quantity_detailed_conv,0) + Nvl(p_mo_line_rec.quantity_delivered,0);
2892: l_sec_quantity_detailed := nvl(l_sec_quantity_detailed,0) + Nvl(p_mo_line_rec.secondary_quantity_delivered,0);
2890:
2891: l_quantity_detailed_conv := nvl(l_quantity_detailed_conv,0) + Nvl(p_mo_line_rec.quantity_delivered,0);
2892: l_sec_quantity_detailed := nvl(l_sec_quantity_detailed,0) + Nvl(p_mo_line_rec.secondary_quantity_delivered,0);
2893: IF (is_debug) THEN
2894: print_debug('Quantity_detailed is '|| l_quantity_detailed_conv, 'Inv_Pick_Release_PVT.Process_Line');
2895: print_debug('sec Quantity_detailed is '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2896: END IF;
2897: p_mo_line_rec.quantity_detailed := l_quantity_detailed_conv;
2898: p_mo_line_rec.secondary_quantity_detailed := l_sec_quantity_detailed;
2891: l_quantity_detailed_conv := nvl(l_quantity_detailed_conv,0) + Nvl(p_mo_line_rec.quantity_delivered,0);
2892: l_sec_quantity_detailed := nvl(l_sec_quantity_detailed,0) + Nvl(p_mo_line_rec.secondary_quantity_delivered,0);
2893: IF (is_debug) THEN
2894: print_debug('Quantity_detailed is '|| l_quantity_detailed_conv, 'Inv_Pick_Release_PVT.Process_Line');
2895: print_debug('sec Quantity_detailed is '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
2896: END IF;
2897: p_mo_line_rec.quantity_detailed := l_quantity_detailed_conv;
2898: p_mo_line_rec.secondary_quantity_detailed := l_sec_quantity_detailed;
2899: p_mo_line_rec.txn_source_id := l_mso_header_id;
2954: l_rsv_detailed_qty2 := 0;
2955: END;
2956: --update quantity tree
2957: IF is_debug THEN
2958: print_debug('updating quantity tree', 'Inv_Pick_Release_PVT.Process_Line');
2959: END IF;
2960: inv_quantity_tree_pub.update_quantities(
2961: p_api_version_number => 1.0
2962: , p_init_msg_lst => fnd_api.g_false
2998: , x_satr => l_sec_qty_available_to_reserve
2999: );
3000: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
3001: IF (is_debug) THEN
3002: print_debug('Error from update quantity tree', 'Inv_Pick_Release_PVT.Process_Line');
3003: END IF;
3004: RAISE fnd_api.g_exc_unexpected_error;
3005: END IF;
3006: IF (is_debug) THEN
3003: END IF;
3004: RAISE fnd_api.g_exc_unexpected_error;
3005: END IF;
3006: IF (is_debug) THEN
3007: print_debug('update reservation with quantity_detailed', 'Inv_Pick_Release_PVT.Process_Line');
3008: print_debug('quantity_detailed'|| l_reservation_detailed_qty, 'Inv_Pick_Release_PVT.Process_Line');
3009: print_debug('prev_quantity_detailed'|| l_prev_rsv_detailed_qty, 'Inv_Pick_Release_PVT.Process_Line');
3010: END IF;
3011:
3004: RAISE fnd_api.g_exc_unexpected_error;
3005: END IF;
3006: IF (is_debug) THEN
3007: print_debug('update reservation with quantity_detailed', 'Inv_Pick_Release_PVT.Process_Line');
3008: print_debug('quantity_detailed'|| l_reservation_detailed_qty, 'Inv_Pick_Release_PVT.Process_Line');
3009: print_debug('prev_quantity_detailed'|| l_prev_rsv_detailed_qty, 'Inv_Pick_Release_PVT.Process_Line');
3010: END IF;
3011:
3012: -- Bug Fix 5624514
3005: END IF;
3006: IF (is_debug) THEN
3007: print_debug('update reservation with quantity_detailed', 'Inv_Pick_Release_PVT.Process_Line');
3008: print_debug('quantity_detailed'|| l_reservation_detailed_qty, 'Inv_Pick_Release_PVT.Process_Line');
3009: print_debug('prev_quantity_detailed'|| l_prev_rsv_detailed_qty, 'Inv_Pick_Release_PVT.Process_Line');
3010: END IF;
3011:
3012: -- Bug Fix 5624514
3013: --handle conversion to reservation UOM
3030: , to_name => NULL
3031: );
3032: IF (l_rsv_detailed_qty_conv = -99999) THEN
3033: IF (is_debug) THEN
3034: print_debug('Cannot convert primary uom to rsv uom','Inv_Pick_release_pvt.process_reservations');
3035: END IF;
3036: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
3037: fnd_message.set_token('UOM', l_primary_uom);
3038: fnd_message.set_token('ROUTINE', 'Pick Release process');
3041: END IF;
3042: END IF;
3043: -- End of Bug Fix 5624514
3044: IF (is_debug) THEN
3045: print_debug('quantity_detailed conv'|| l_rsv_detailed_qty_conv, 'Inv_Pick_Release_PVT.Process_Line');
3046: END IF;
3047: -- Upper tolerance may lead to allocation above the reservation
3048: -- {{ Test Case # UTK-REALLOC-3.2.6:64 }}
3049: -- Description: If allocation is greater than reservation, increase the reserved quantity
3072: -- or if the sub is dynamic locator contro, and there is project and task
3073: -- for the move order line, then create a new locator with the project
3074: -- and task.
3075: IF (is_debug) THEN
3076: print_debug('Calling process_prj_dynamic_locator with the following values','Inv_Pick_Release_PVT.Process_Line');
3077: print_debug('p_from_locator_id ==> '||l_from_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3078: print_debug('p_to_locator_id ==> '||l_to_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3079: print_debug('p_mold_temp_id ==> '||l_mold_temp_id, 'Inv_Pick_Release_PVT.Process_Line');
3080: print_debug('p_mold_sub_code ==> '||l_mold_sub_code, 'Inv_Pick_Release_PVT.Process_Line');
3073: -- for the move order line, then create a new locator with the project
3074: -- and task.
3075: IF (is_debug) THEN
3076: print_debug('Calling process_prj_dynamic_locator with the following values','Inv_Pick_Release_PVT.Process_Line');
3077: print_debug('p_from_locator_id ==> '||l_from_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3078: print_debug('p_to_locator_id ==> '||l_to_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3079: print_debug('p_mold_temp_id ==> '||l_mold_temp_id, 'Inv_Pick_Release_PVT.Process_Line');
3080: print_debug('p_mold_sub_code ==> '||l_mold_sub_code, 'Inv_Pick_Release_PVT.Process_Line');
3081: END IF;
3074: -- and task.
3075: IF (is_debug) THEN
3076: print_debug('Calling process_prj_dynamic_locator with the following values','Inv_Pick_Release_PVT.Process_Line');
3077: print_debug('p_from_locator_id ==> '||l_from_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3078: print_debug('p_to_locator_id ==> '||l_to_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3079: print_debug('p_mold_temp_id ==> '||l_mold_temp_id, 'Inv_Pick_Release_PVT.Process_Line');
3080: print_debug('p_mold_sub_code ==> '||l_mold_sub_code, 'Inv_Pick_Release_PVT.Process_Line');
3081: END IF;
3082:
3075: IF (is_debug) THEN
3076: print_debug('Calling process_prj_dynamic_locator with the following values','Inv_Pick_Release_PVT.Process_Line');
3077: print_debug('p_from_locator_id ==> '||l_from_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3078: print_debug('p_to_locator_id ==> '||l_to_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3079: print_debug('p_mold_temp_id ==> '||l_mold_temp_id, 'Inv_Pick_Release_PVT.Process_Line');
3080: print_debug('p_mold_sub_code ==> '||l_mold_sub_code, 'Inv_Pick_Release_PVT.Process_Line');
3081: END IF;
3082:
3083: /*Bug Number:3229204:l_to_locator_id was passed as a parameter for p_to_locator_id as well
3076: print_debug('Calling process_prj_dynamic_locator with the following values','Inv_Pick_Release_PVT.Process_Line');
3077: print_debug('p_from_locator_id ==> '||l_from_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3078: print_debug('p_to_locator_id ==> '||l_to_locator_id, 'Inv_Pick_Release_PVT.Process_Line');
3079: print_debug('p_mold_temp_id ==> '||l_mold_temp_id, 'Inv_Pick_Release_PVT.Process_Line');
3080: print_debug('p_mold_sub_code ==> '||l_mold_sub_code, 'Inv_Pick_Release_PVT.Process_Line');
3081: END IF;
3082:
3083: /*Bug Number:3229204:l_to_locator_id was passed as a parameter for p_to_locator_id as well
3084: as x_to_locator_id .x_to_locator id is a out parameter with no copy hint,which was causing
3104: RAISE fnd_api.g_exc_unexpected_error;
3105: END IF;
3106:
3107: IF (is_debug) THEN
3108: print_debug('Value of locator id obtained from process_prj_dynamic_locator '||l_dest_locator_id,'Inv_Pick_Release_PVT.Process_Line');
3109: END IF;
3110:
3111:
3112: -- patchset J, bulk picking -------------------
3117: p_organization_id => p_mo_line_rec.organization_id
3118: ) = TRUE
3119: and WMS_CONTROL.G_CURRENT_RELEASE_LEVEL >= INV_RELEASE.G_J_RELEASE_LEVEL) then
3120: IF (l_debug = 1) THEN
3121: print_debug('PATCHSET J -- BULK PICKING, do not assign pick slip number now', 'Inv_Pick_Release_PVT.Process_Line');
3122: END IF;
3123: ELSE -- INV org or before patchset J
3124:
3125: IF (is_debug) THEN
3122: END IF;
3123: ELSE -- INV org or before patchset J
3124:
3125: IF (is_debug) THEN
3126: print_debug('get pick slip number','Inv_Pick_Release_PVT.Process_Line');
3127: END IF;
3128: l_call_mode := NULL;
3129: -- Bug 2666620: Inline branching to call either WSH or INV get_pick_slip_number
3130: /* FP-J PAR Replenishment Counts: Pass 4 new parameters for grouping */
3153: , p_locator_id => l_from_locator_id
3154: , p_revision => l_revision
3155: );
3156: IF (is_debug) THEN
3157: print_debug('l_call_mode'|| l_call_mode, 'Inv_Pick_Release_PVT.Process_Line');
3158: END IF;
3159:
3160: IF l_api_return_status <> fnd_api.g_ret_sts_success OR l_pick_slip_number = -1 THEN
3161: ROLLBACK TO process_line_pvt;
3172: ) ;
3173:
3174: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
3175: IF (is_debug) THEN
3176: print_debug('return error from WSH_INV_INTEGRATION.find_printer','Inv_Pick_Release_Pvt.Process_Line');
3177: END IF;
3178: RAISE fnd_api.g_exc_unexpected_error;
3179: END IF;
3180: END IF ;
3202:
3203: l_return_value := INV_CACHE.set_mtrh_rec(p_mo_line_rec.header_id);
3204: IF NOT l_return_value THEN
3205: If is_debug THEN
3206: print_debug('Error setting header cache','Inv_Pick_Release_PVT.Process_Line');
3207: End If;
3208: raise fnd_api.g_exc_unexpected_error;
3209: END IF;
3210: l_request_number := INV_CACHE.mtrh_rec.request_number;
3222: EXCEPTION
3223: WHEN NO_DATA_FOUND THEN
3224: IF is_debug THEN
3225: print_debug('No Data found - document set',
3226: 'Inv_Pick_Release_PVT.Process_Line');
3227: END IF;
3228: x_return_status := fnd_api.g_ret_sts_error;
3229: RAISE fnd_api.g_exc_error;
3230: END;
3259: -- set the return status to 'P' (for partial) instead.
3260: IF x_return_status = fnd_api.g_ret_sts_success
3261: AND l_partially_detailed = 1 THEN
3262: IF (is_debug) THEN
3263: print_debug('x_return_status is '|| x_return_status, 'Inv_Pick_Release_PVT.Process_Line');
3264: END IF;
3265: x_return_status := 'P';
3266: END IF;
3267:
3270: into l_quantity_detailed
3271: , l_sec_quantity_detailed
3272: from mtl_txn_request_lines
3273: WHERE line_id = p_mo_line_rec.line_id;
3274: print_debug('Quantity_detailed is '|| l_quantity_detailed,'Inv_Pick_Release_PVT.Process_Line');
3275: print_debug('2nd after select sec Quantity_detailed is '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
3276:
3277: --x_detail_rec_count := l_num_detail_recs;
3278: -- Standard call to commit
3271: , l_sec_quantity_detailed
3272: from mtl_txn_request_lines
3273: WHERE line_id = p_mo_line_rec.line_id;
3274: print_debug('Quantity_detailed is '|| l_quantity_detailed,'Inv_Pick_Release_PVT.Process_Line');
3275: print_debug('2nd after select sec Quantity_detailed is '|| l_sec_quantity_detailed, 'Inv_Pick_Release_PVT.Process_Line');
3276:
3277: --x_detail_rec_count := l_num_detail_recs;
3278: -- Standard call to commit
3279: <
3280: IF p_commit = fnd_api.g_true
3281: AND p_allow_partial_pick = fnd_api.g_true THEN
3282: COMMIT;
3283: END IF;
3284: print_debug('Commit? is '|| p_commit, 'Inv_Pick_Release_PVT.Process_Line');
3285:
3286: x_detail_rec_count := l_num_detail_recs;
3287: EXCEPTION
3288: WHEN fnd_api.g_exc_error THEN
3300:
3301: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3302:
3303: END process_line;
3304: END inv_pick_release_pvt;