[Home] [Help]
855: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
856: END create_mo;
857:
858: -- added for bug 3401817
859: -- An autonomous_transaction wrapper arount wms_putaway_suggestions.cleanup_suggestions
860: -- This is because after cleanup_suggestions, we call create_suggestions,
861: -- which may very well suggest the same locator. In cleanup_suggestions, we call abort_operation_instance, which
862: -- in turn calls revert_loc_sugg_capacity_nauto. However, in create_suggestions, we call update_loc_suggested_capacity,
863: -- with autonomous_transaction, which will cause resource busy.
872: , p_move_order_line_id IN NUMBER DEFAULT NULL -- added for ATF_J2
873: ) IS
874: PRAGMA autonomous_transaction;
875: BEGIN
876: wms_putaway_suggestions.cleanup_suggestions
877: ( p_lpn_id => p_lpn_id
878: , p_org_id => p_org_id
879: , x_return_status => x_return_status
880: , x_msg_count => x_msg_count
1603: -- 3. After the loop,
1604: -- set l_Need_to_cleanup_prege based on the flags set.
1605: --
1606: --
1607: -- 4. If l_Need_to_cleanup_prege is YES, call wms_putaway_suggestions.cleanup_suggestions, passing lpn_id and move_order_line_id
1608:
1609: IF l_lpn_context <> 1 THEN
1610: IF pregen_suggestions_csr%ISOPEN THEN
1611: CLOSE pregen_suggestions_csr;
1760: -- The original need for autonomous cleanup_suggestions
1761: -- is satisfied by passing p_for_manual_drop => true
1762: -- into abort_operation_instance .
1763:
1764: wms_putaway_suggestions.cleanup_suggestions
1765: (
1766: p_lpn_id => l_lpn_id
1767: , p_org_id => p_org_id
1768: , x_return_status => l_return_status
1771: , p_move_order_line_id => p_move_order_line_id
1772: ); --added for ATF_J2
1773:
1774: IF (l_debug = 1) THEN
1775: mydebug(' suggestions_pub: After calling wms_putaway_suggestions.cleanup_suggestions ');
1776: mydebug('x_return_status = ' || l_return_status);
1777: mydebug('x_msg_count = ' || x_msg_count);
1778: mydebug('x_msg_data = ' || x_msg_data);
1779: END IF;
1779: END IF;
1780:
1781: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1782: IF (l_debug = 1) THEN
1783: mydebug(' suggestions_pub: wms_putaway_suggestions.cleanup_suggestions failed');
1784: END IF;
1785:
1786: RAISE fnd_api.g_exc_error;
1787: END IF;