[Home] [Help]
1684:
1685: -- Update the wms_process_flag for each MOL used so other processes
1686: -- will not pick up this MOL to use. This should only be done for
1687: -- receiving LPNs
1688: IF (l_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_RCV) THEN
1689: IF (l_debug = 1) THEN
1690: print_debug('Receiving LPN so update wms_process_flag on the MOL');
1691: END IF;
1692: BEGIN
1732: -- locations. If there is a change in sub/loc, then this should be a
1733: -- sub xfer transaction, otherwise it will be a container split.
1734: IF ((l_subinv_code <> l_tosubinv_code) OR (l_locator_id <> l_tolocator_id)) THEN
1735: -- Sub Xfer transaction
1736: IF (l_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_RCV) THEN
1737: -- For receiving, the dummy MMTT records should always
1738: -- have the container split txn action type. The call to
1739: -- pack_unpack_split and suggestions_pub expects dummy
1740: -- non suggestions MMTT records to be of this type for receiving.
1761: -- receiving, the pack_unpack_split API called in process_load
1762: -- expects these values to be populated in the dummy MMTT records.
1763: -- If these values are not nulled out in the inventory case, the
1764: -- TM will error out.
1765: IF (l_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_RCV) THEN
1766: IF (l_debug = 1) THEN
1767: print_debug('Receiving LPN so no need to null out xfer variables');
1768: END IF;
1769: ELSE
2315: -- order line was created by pre_process_load. This will be the
2316: -- case if the transaction source type and transaction type is
2317: -- Move Order and Subinventory Transfer respectively.
2318: -- Otherwise just pass in a null value for p_drop_type
2319: IF (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_INV) THEN
2320: SELECT NVL(transaction_source_type_id, -999),
2321: NVL(transaction_type_id, -999)
2322: INTO l_txn_source_type_id, l_txn_type_id
2323: FROM mtl_txn_request_lines
2522: END IF;
2523: l_progress := '100';
2524:
2525: -- Receiving LPN item load txn
2526: IF (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_RCV) THEN
2527: -- Initialize l_mo_lines_tb. This is used for INV and WIP cases to
2528: -- store the move order lines used but is not necessary for RCV.
2529: l_mo_lines_tb.DELETE;
2530:
2631:
2632: END IF;
2633:
2634: -- INV LPN item load txn
2635: IF (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_INV) THEN
2636: -- Call the INV TM to process the dummy pack/unpack MMTT records
2637: IF (l_debug = 1) THEN
2638: print_debug('Processing item load for an INV LPN');
2639: print_debug('Calling the INV TM online: ' || p_txn_header_id);
2668: END IF;
2669: END IF;
2670:
2671: -- WIP LPN item load txn
2672: IF (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_WIP) THEN
2673: IF (l_debug = 1) THEN
2674: print_debug('Processing item load for a WIP LPN');
2675: print_debug('Call the PackUnpack_Container API directly');
2676: END IF;
2724: -- unpack the item load material from the source LPN
2725: IF (l_debug = 1) THEN
2726: print_debug('Unpack the material from the source LPN');
2727: END IF;
2728: wms_container_pub.PackUnpack_Container
2729: (p_api_version => 1.0,
2730: p_validation_level => fnd_api.g_valid_level_none,
2731: x_return_status => x_return_status,
2732: x_msg_count => x_msg_count,
2772: -- destination LPN.
2773: IF (l_debug = 1) THEN
2774: print_debug('Pack the material into the destination LPN');
2775: END IF;
2776: wms_container_pub.PackUnpack_Container
2777: (p_api_version => 1.0,
2778: p_validation_level => fnd_api.g_valid_level_none,
2779: x_return_status => x_return_status,
2780: x_msg_count => x_msg_count,
2870: -- item's primary UOM code for the transaction UOM.
2871: IF (l_debug = 1) THEN
2872: print_debug('Unpack the serials from the source LPN');
2873: END IF;
2874: wms_container_pub.PackUnpack_Container
2875: (p_api_version => 1.0,
2876: p_validation_level => fnd_api.g_valid_level_none,
2877: x_return_status => x_return_status,
2878: x_msg_count => x_msg_count,
2912: -- item load serials into the destination LPN
2913: IF (l_debug = 1) THEN
2914: print_debug('Pack the serials into the destination LPN');
2915: END IF;
2916: wms_container_pub.PackUnpack_Container
2917: (p_api_version => 1.0,
2918: p_validation_level => fnd_api.g_valid_level_none,
2919: x_return_status => x_return_status,
2920: x_msg_count => x_msg_count,
3027: -- for each MMTT suggestion record. Additionally, we need to update the
3028: -- LPN ID for the MOL and MMTT sugestion records since they still point
3029: -- to the source LPN ID instead of the destination Into LPN ID.
3030: -- Finally, we should clear the group mark ID for the serials used if necessary.
3031: IF ((p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_WIP) OR
3032: (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_INV)) THEN
3033:
3034: -- For each move order line that is tied to the transaction header
3035: -- ID, we need to update the LPN ID column to the Into LPN ID.
3028: -- LPN ID for the MOL and MMTT sugestion records since they still point
3029: -- to the source LPN ID instead of the destination Into LPN ID.
3030: -- Finally, we should clear the group mark ID for the serials used if necessary.
3031: IF ((p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_WIP) OR
3032: (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_INV)) THEN
3033:
3034: -- For each move order line that is tied to the transaction header
3035: -- ID, we need to update the LPN ID column to the Into LPN ID.
3036: IF (l_debug = 1) THEN
3049: RAISE FND_API.G_EXC_ERROR;
3050: END IF;
3051:
3052: --Bug 4566517. Get the sub/loc of into lpn
3053: IF (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_INV) THEN
3054: BEGIN
3055: SELECT subinventory_code
3056: , locator_id
3057: INTO l_into_sub
3080: BEGIN
3081: UPDATE mtl_txn_request_lines
3082: SET lpn_id = p_into_lpn_id
3083: , from_subinventory_code = Decode(p_lpn_context,
3084: WMS_CONTAINER_PUB.lpn_context_inv,
3085: l_into_sub,
3086: from_subinventory_code)
3087: , from_locator_id = Decode(p_lpn_context,
3088: WMS_CONTAINER_PUB.lpn_context_inv,
3084: WMS_CONTAINER_PUB.lpn_context_inv,
3085: l_into_sub,
3086: from_subinventory_code)
3087: , from_locator_id = Decode(p_lpn_context,
3088: WMS_CONTAINER_PUB.lpn_context_inv,
3089: l_into_loc,
3090: from_locator_id)
3091: WHERE line_id = l_mo_line_id
3092: AND organization_id = p_organization_id;
3155: UPDATE mtl_material_transactions_temp
3156: SET lpn_id = p_into_lpn_id
3157: , allocated_lpn_id = p_into_lpn_id
3158: , subinventory_code = Decode(p_lpn_context,
3159: WMS_CONTAINER_PUB.lpn_context_inv,
3160: l_into_sub,
3161: subinventory_code)
3162: , locator_id = Decode(p_lpn_context,
3163: WMS_CONTAINER_PUB.lpn_context_inv,
3159: WMS_CONTAINER_PUB.lpn_context_inv,
3160: l_into_sub,
3161: subinventory_code)
3162: , locator_id = Decode(p_lpn_context,
3163: WMS_CONTAINER_PUB.lpn_context_inv,
3164: l_into_loc,
3165: locator_id)
3166: WHERE transaction_temp_id = l_mmtt_temp_id
3167: AND organization_id = p_organization_id;
3570: LOOP
3571: FETCH mmtt_suggestions_cursor INTO l_mmtt_temp_id;
3572: EXIT WHEN mmtt_suggestions_cursor%NOTFOUND;
3573:
3574: IF (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_RCV) THEN
3575: -- Receiving case so call cleanup_operation_instance
3576: IF (l_debug = 1) THEN
3577: print_debug('Call cleanup_operation_instance for MMTT: ' || l_mmtt_temp_id);
3578: END IF;
3653: -- We will need to commit here for the cleanup changes to be saved.
3654: -- Otherwise if there was an error earlier, like in the call to
3655: -- wms_rcv_pup_pvt.pack_unpack_split, we can still rely on the rollback
3656: -- to clean up the data. There would be no need to commit here.
3657: IF (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_RCV AND p_rcv_tm_called) THEN
3658: COMMIT;
3659: END IF;
3660: l_progress := '90';
3661: