PACKAGE: APPS.OE_SPLIT_UTIL

Source

1 PACKAGE OE_split_util AUTHID CURRENT_USER AS
2 /* $Header: OEXUSPLS.pls 120.1.12020000.2 2012/07/03 10:15:04 amallik ship $ */
3 
4 g_sch_recursion varchar2(30) := 'FALSE';
5 g_non_prop_split boolean := FALSE;
6 g_split_action boolean := FALSE;
7 
8 Type Split_qty_rec IS RECORD
9 (
10 Original_Quantity number := FND_api.g_miss_num,
11 Split_quantity  number := FND_Api.g_miss_num);
12 
13 /* Defer Split ER Changes Start */
14 TYPE Split_Line_Rec_Type IS RECORD
15 ( LINE_ID                                  NUMBER
16 , SPLIT_INDEX                              NUMBER
17 , REQUEST_ID                               NUMBER
18 , ORDERED_QUANTITY                         NUMBER
19 , ORDERED_QUANTITY2                        NUMBER
20 , REQUEST_DATE                             DATE
21 , SHIP_TO_ORG_ID                           NUMBER
22 , SHIP_FROM_ORG_ID                         NUMBER
23 , SPLIT_BY                                 VARCHAR2(30)
24 , CHANGE_REASON_CODE                       VARCHAR2(30)
25 , CHANGE_REASON_COMMENT                    VARCHAR2(2000)
26 );
27 
28 Type Split_Line_Tbl_Type IS TABLE OF Split_Line_Rec_Type
29 INDEX BY BINARY_INTEGER;
30 
31 /* Defer Split ER Changes End */
32 
33 Type Split_line_rec IS RECORD
34 (
35 Line_id number := FND_api.g_miss_num,
36 Split_from_line_id  number := FND_Api.g_miss_num,
37 Quantity Number := Fnd_Api.g_miss_num,
38 top_model_line_id number := FND_api.g_miss_num);  -- bug11714193
39 
40 Type Model_Map_rec IS RECORD
41 (
42 Line_id number := FND_api.g_miss_num,
43 link_to_line_id  number := FND_Api.g_miss_num,
44 ato_line_id Number := Fnd_Api.g_miss_num,
45 lindex number := Fnd_Api.g_miss_num);
46 
47 Type Model_Map_Tbl IS TABLE OF Model_Map_Rec
48 index by binary_integer;
49 
50 Type Split_line_Tbl IS TABLE OF split_line_rec
51 index by binary_integer;
52 
53 Type Split_Qty_Tbl IS TABLE OF split_qty_rec
54 index by binary_integer;
55 
56 Type Split_Lines IS TABLE OF NUMBER
57 index by binary_integer;
58 
59 G_Split_Qty_Tbl split_qty_tbl;
60 G_Split_Line_Adj OE_ORDER_PUB.Line_Adj_Tbl_Type;
61 G_Split_line_Scredit OE_ORDER_PUB.Line_Scredit_Tbl_Type;
62 g_split_lines Split_lines;
63 g_split_insert_lines split_line_tbl;
64 g_split_line_tbl split_line_tbl;
65 g_split_tbl_index number := 0;
66 g_split_index number := 0;
67 
68 
69 
70 --  Procedure Default_Attributes
71 Procedure Default_Attributes
72 	    (   p_x_line_rec      IN OUT NOCOPY  OE_Order_PUB.Line_Rec_Type
73             ,   p_old_line_rec  IN  OE_Order_PUB.Line_Rec_Type
74             );
75 
76 PROCEDURE Split_Line
77 (   p_x_line_rec                      IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
78    , p_old_line_rec                      IN  OE_Order_PUB.Line_Rec_Type
79 );
80 
81 
82 PROCEDURE Check_Split_Course(p_x_line_tbl IN OUT NOCOPY OE_Order_Pub.Line_Tbl_Type,
83 	       p_x_line_adj_tbl IN OUT NOCOPY OE_Order_Pub.Line_Adj_Tbl_Type,
84             p_x_line_scredit_tbl IN OUT NOCOPY OE_Order_Pub.Line_scredit_Tbl_type
85 );
86 
87 Procedure Cascade_non_proportional_Split(
88 					p_x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.line_tbl_type,
89                          x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) ;
90 
91 PROCEDURE Record_line_History
92 (   p_line_rec                      IN  OE_Order_PUB.Line_Rec_Type
93 );
94 
95 Procedure Add_To_Fulfillment_Set(p_line_rec IN oe_order_pub.line_rec_type);
96 
97 
98 /* Defer Split ER Changes Start */
99 
100 PROCEDURE Defer_Split
101 (  Errbuf	      OUT NOCOPY VARCHAR2
102 ,  retcode	      OUT NOCOPY VARCHAR2
103 ,  P_line_id      IN VARCHAR DEFAULT NULL
104 );
105 
106 
107 PROCEDURE Bulk_Insert (p_line_conc_tbl IN Split_Line_Tbl_Type);
108 /* Defer Split ER Changes End*/
109 
110 
111 END OE_Split_Util;