1: PACKAGE BODY INV_Move_Order_PUB AS
2: /* $Header: INVPTROB.pls 120.5.12010000.4 2009/08/12 11:07:04 asugandh ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: INVPTROB.pls 120.5.12010000.4 2009/08/12 11:07:04 asugandh ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'INV_Move_Order_PUB';
7:
8: g_inventory_item_id NUMBER := NULL;
9: g_primary_uom_code VARCHAR2(3) := NULL;
10: g_restrict_subinventories_code NUMBER;
934: l_item_loc_ctrl := INV_CACHE.item_rec.location_control_code;
935: EXCEPTION
936: WHEN OTHERS THEN
937: print_debug('Exception retrieving item locator control from cache ' || sqlerrm
938: ,'INV_Move_Order_PUB.Create_Move_Order_Lines');
939: l_item_loc_ctrl := 0;
940: END;
941: IF l_item_loc_ctrl IS NULL OR l_item_loc_ctrl = 0 THEN
942: OPEN get_item_loc_ctrl (x_trolin_tbl(l_index).organization_id
1605: IS
1606: l_api_version_number CONSTANT NUMBER := 1.0;
1607: l_api_name CONSTANT VARCHAR2(30):= 'Get_Move_Order';
1608: l_header_id NUMBER := p_header_id;
1609: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1610: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1611: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1612: BEGIN
1613:
1606: l_api_version_number CONSTANT NUMBER := 1.0;
1607: l_api_name CONSTANT VARCHAR2(30):= 'Get_Move_Order';
1608: l_header_id NUMBER := p_header_id;
1609: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
1610: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
1611: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1612: BEGIN
1613:
1614: -- Standard call to check for call compatibility
2001: );
2002: END Process_Move_Order_Line;
2003:
2004: PROCEDURE stamp_cart_id ( p_validation_level IN NUMBER
2005: , p_carton_grouping_tbl IN inv_move_order_pub.num_tbl_type
2006: , p_move_order_line_tbl IN inv_move_order_pub.num_tbl_type
2007: ) IS
2008: BEGIN
2009: FORALL i in 1..p_move_order_line_tbl.count
2002: END Process_Move_Order_Line;
2003:
2004: PROCEDURE stamp_cart_id ( p_validation_level IN NUMBER
2005: , p_carton_grouping_tbl IN inv_move_order_pub.num_tbl_type
2006: , p_move_order_line_tbl IN inv_move_order_pub.num_tbl_type
2007: ) IS
2008: BEGIN
2009: FORALL i in 1..p_move_order_line_tbl.count
2010: UPDATE mtl_txn_request_lines SET
2012: WHERE line_id = p_move_order_line_tbl(i);
2013: END stamp_cart_id;
2014:
2015:
2016: END INV_Move_Order_PUB;