PACKAGE BODY: APPS.WSH_PR_CUSTOM

Source

1 PACKAGE BODY WSH_PR_CUSTOM AS
2 /* $Header: WSHPRCSB.pls 115.2 99/07/16 08:19:47 porting ship $ */
3 
4 --
5 -- Package
6 --   	WSH_PR_PICKING_CUSTOM
7 --
8 -- Purpose
9 --      This package contains user customizable routines for
10 --      Pick Release:
11 --       - Contains mechanism to compute order value
12 --       - Contains mechanism to reorder picking lines
13 --
14 -- History
15 --      20-AUG-96    RSHIVRAM    Created
16 --
17 
18   --
19   -- PACKAGE CONSTANTS
20   --
21 
22 	SUCCESS			CONSTANT  BINARY_INTEGER := 0;
23 	FAILURE			CONSTANT  BINARY_INTEGER := -1;
24 	CUSTOM_NUMBER_LINES	CONSTANT  BINARY_INTEGER := -1;
25 
26 
27 
28   --
29   -- PUBLIC FUNCTIONS/PROCEDURES
30   --
31 
32   --
33   -- Name
34   --   FUNCTION Outstanding_Order_Value
35   --
36   -- Purpose
37   --   This functions calculates the value of the order, which
38   --   is used in the order by clause for releasing lines.
39   --
40   -- Arguments
41   --   p_header_id
42   --
43   -- Return Values
44   --   - value of order
45   --   - 0 if failure
46   --
47   -- Notes
48   --
49 
50   FUNCTION Outstanding_Order_Value(
51 		p_header_id			IN	BINARY_INTEGER
52   )
53   RETURN BINARY_INTEGER IS
54 
55   order_value	BINARY_INTEGER;
56 
57   BEGIN
58 
59 	SELECT SUM(NVL(L.ORDERED_QUANTITY,0) * NVL(L.SELLING_PRICE,0))
60 	INTO order_value
61 	FROM SO_HEADERS_ALL H,
62 	     SO_LINES_ALL L
63 	WHERE H.HEADER_ID = p_header_id
64 	AND   L.HEADER_ID = H.HEADER_ID;
65 
66 	RETURN order_value;
67 
68 	EXCEPTION
69 	  WHEN OTHERS THEN
70 	    RETURN 0;
71 
72   END Outstanding_Order_Value;
73 
74   --
75   -- Name
76   --   FUNCTION Process_lines
77   --
78   -- Purpose
79   --   This functions return the maximum number of lines
80   --   pick release will fetch at a time to process
81   --
82   -- Return Values
83   --   - number of lines
84   --   - -1 not specified, use default
85   --
86   -- Notes
87   --
88 
89   FUNCTION Process_Lines
90   RETURN BINARY_INTEGER IS
91   BEGIN
92       RETURN 20;
93   END;
94 
95 
96 /* Not supported yet */
97   --
98   -- Name
99   --   FUNCTION Reorder_Picking_Line
100   --
101   -- Purpose
102   --   This function reorders picking lines for a given batch.
103   --
104   -- Return Values
105   --  -1 => Failure
106   --   0 => Success
107   --
108   -- Notes
109   --
110 
111   FUNCTION Reorder_Picking_Line(
112 		p_batch_id			IN	BINARY_INTEGER
113   )
114   RETURN BINARY_INTEGER IS
115 
116   BEGIN
117 
118     null;
119 
120   END Reorder_Picking_Line;
121 
122 
123 END WSH_PR_CUSTOM;