PACKAGE BODY: APPS.OKE_SHIPPING_EXT

Source

1 PACKAGE BODY OKE_SHIPPING_EXT AS
2 /* $Header: OKEXWSHB.pls 115.3 2002/08/14 01:43:10 alaw ship $ */
3 
4 --
5 --  Name          : Cost_Of_Sales_Account
6 --  Pre-reqs      :
7 --  Function      : This function returns the cost of sales account
8 --                  for a given shipping delivery detail
9 --
10 --
11 --  Parameters    :
12 --  IN            : X_Delivery_Detail_ID        NUMBER
13 --  OUT           : None
14 --
15 --  Returns       : NUMBER
16 --
17 
18 FUNCTION Cost_Of_Sales_Account
19 ( X_Delivery_Detail_ID    NUMBER
20 ) RETURN NUMBER
21 IS
22 
23 retval   NUMBER;
24 
25 CURSOR c IS
26   SELECT nvl( ITEM.Cost_Of_Sales_Account
27             , ORG.Cost_Of_Sales_Account )
28   FROM   mtl_system_items       ITEM
29   ,      mtl_parameters         ORG
30   ,      wsh_delivery_details   DD
31   WHERE  DD.Delivery_Detail_ID  = X_Delivery_Detail_ID
32   AND    ITEM.Inventory_Item_ID = DD.Inventory_Item_ID
33   AND    ITEM.Organization_ID   = DD.Organization_ID
34   AND    ORG.Organization_ID    = ORG.Organization_ID;
35 
36 BEGIN
37 
38   OPEN c;
39   FETCH c INTO retval;
40 
41   IF ( c%notfound ) THEN
42     CLOSE c;
43     return ( NULL );
44   END IF;
45 
46   CLOSE c;
47   return ( retval );
48 
49 EXCEPTION
50 WHEN OTHERS THEN
51   return ( NULL );
52 
53 END Cost_Of_Sales_Account;
54 
55 END OKE_SHIPPING_EXT;