PACKAGE BODY: APPS.WSH_PICK_CUSTOM

Source

1 PACKAGE BODY WSH_PICK_CUSTOM AS
2 /* $Header: WSHPRCUB.pls 115.2 2002/08/13 22:43:25 nparikh ship $ */
3 
4   --
5   -- PUBLIC FUNCTIONS/PROCEDURES
6   --
7 
8   --
9   -- Name
10   --   FUNCTION Outstanding_Order_Value
11   --
12   -- Purpose
13   --   This functions calculates the value of the order, which
14   --   is used in the order by clause for releasing lines.
15   --
16   -- Arguments
17   --   p_header_id
18   --
19   -- Return Values
20   --   x_return_status
21   --   -  value of order
22   --   - 0 if failure
23   --
24   -- Notes
25   --
26 
27   --
28   G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_PICK_CUSTOM';
29   --
30   FUNCTION Outstanding_Order_Value(
31           p_header_id              IN   BINARY_INTEGER
32   )
33   RETURN BINARY_INTEGER IS
34 
35      l_order_value  BINARY_INTEGER;
36 
37 --
38 --
39 l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'OUTSTANDING_ORDER_VALUE';
40 --
41   BEGIN
42 
43      --
44      SELECT SUM(NVL(L.ORDERED_QUANTITY,0) * NVL(L.UNIT_SELLING_PRICE,0))
45      INTO l_order_value
46      FROM OE_ORDER_HEADERS_ALL H,
47           OE_ORDER_LINES_ALL L
48      WHERE H.HEADER_ID = p_header_id
49      AND   L.HEADER_ID = H.HEADER_ID;
50 
51      --
52      RETURN l_order_value;
53 
54      EXCEPTION
55        WHEN OTHERS THEN
56          --
57          RETURN 0;
58 
59 --
60   END Outstanding_Order_Value;
61 
62 END WSH_PICK_CUSTOM;