1 PACKAGE BODY GMD_LCF_UTIL AS
2 /* $Header: GMDLCFUB.pls 120.3 2005/11/15 11:54:27 rajreddy noship $ */
3
4 FUNCTION Get_Cost (
5 p_item_id IN NUMBER ,
6 p_organization_id IN NUMBER ,
7 p_cost_orgn_id IN NUMBER ,
8 p_lot_no IN VARCHAR2 ,
9 p_qty IN NUMBER ,
10 p_uom IN VARCHAR2 ,
11 p_cost_date IN DATE ) RETURN NUMBER IS
12 CURSOR Cur_get_cost IS
13 SELECT unit_cost
14 FROM gmd_lcf_external_cost
15 WHERE inventory_item_id = p_item_id
16 AND lab_organization_id = p_organization_id
17 AND cost_organization_id = p_cost_orgn_id
18 AND NVL(lot_number, '-1') = NVL(p_lot_no, '-1')
19 AND NVL(quantity, -1) = NVL(p_qty, -1)
20 AND NVL(uom, '-1') = NVL(p_uom, '-1')
21 AND p_cost_date BETWEEN from_date AND to_date;
22 l_cost NUMBER DEFAULT 0;
23 BEGIN
24 OPEN Cur_get_cost;
25 FETCH Cur_get_cost INTO l_cost;
26 CLOSE Cur_get_cost;
27 RETURN (l_cost);
28 END Get_Cost;
29 END GMD_LCF_UTIL;
30