1 PACKAGE BODY inv_minmax_helper_pvt AS
2 /* $Header: INVMMXDB.pls 115.1 2001/02/12 22:39:28 pkm ship $ */
3
4 function get_shipped_qty
5 (p_organization_id IN NUMBER,
6 p_inventory_item_id IN NUMBER,
7 p_order_line_id IN NUMBER
8 ) return NUMBER
9 IS
10 l_shipped_qty NUMBER := 0;
11 BEGIN
12 BEGIN
13 SELECT SUM(primary_quantity)
14 INTO l_shipped_qty
15 FROM mtl_material_transactions
16 WHERE transaction_action_id = 1
17 AND source_line_id = p_order_line_id
18 AND organization_id = p_organization_id
19 AND inventory_item_id = p_inventory_item_id;
20 EXCEPTION
21 WHEN OTHERS THEN
22 l_shipped_qty := 0;
23 END ;
24
25 IF l_shipped_qty IS NULL THEN l_shipped_qty := 0;
26 ELSE l_shipped_qty := -1 * l_shipped_qty;
27 END IF;
28
29 RETURN l_shipped_qty;
30 END get_shipped_qty;
31
32 END inv_minmax_helper_pvt;