1 PACKAGE OE_split_util AS
2 /* $Header: OEXUSPLS.pls 120.1.12010000.1 2008/07/25 07:57:45 appldev 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
39 Type Model_Map_rec IS RECORD
40 (
41 Line_id number := FND_api.g_miss_num,
42 link_to_line_id number := FND_Api.g_miss_num,
43 ato_line_id Number := Fnd_Api.g_miss_num,
44 lindex number := Fnd_Api.g_miss_num);
45
46 Type Model_Map_Tbl IS TABLE OF Model_Map_Rec
47 index by binary_integer;
48
49 Type Split_line_Tbl IS TABLE OF split_line_rec
50 index by binary_integer;
51
52 Type Split_Qty_Tbl IS TABLE OF split_qty_rec
53 index by binary_integer;
54
55 Type Split_Lines IS TABLE OF NUMBER
56 index by binary_integer;
57
58 G_Split_Qty_Tbl split_qty_tbl;
59 G_Split_Line_Adj OE_ORDER_PUB.Line_Adj_Tbl_Type;
60 G_Split_line_Scredit OE_ORDER_PUB.Line_Scredit_Tbl_Type;
61 g_split_lines Split_lines;
62 g_split_insert_lines split_line_tbl;
63 g_split_line_tbl split_line_tbl;
64 g_split_tbl_index number := 0;
65 g_split_index number := 0;
66
67
68
69 -- Procedure Default_Attributes
70 Procedure Default_Attributes
71 ( p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
72 , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type
73 );
74
75 PROCEDURE Split_Line
76 ( p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
77 , p_old_line_rec IN OE_Order_PUB.Line_Rec_Type
78 );
79
80
81 PROCEDURE Check_Split_Course(p_x_line_tbl IN OUT NOCOPY OE_Order_Pub.Line_Tbl_Type,
82 p_x_line_adj_tbl IN OUT NOCOPY OE_Order_Pub.Line_Adj_Tbl_Type,
83 p_x_line_scredit_tbl IN OUT NOCOPY OE_Order_Pub.Line_scredit_Tbl_type
84 );
85
86 Procedure Cascade_non_proportional_Split(
87 p_x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.line_tbl_type,
88 x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2) ;
89
90 PROCEDURE Record_line_History
91 ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
92 );
93
94 Procedure Add_To_Fulfillment_Set(p_line_rec IN oe_order_pub.line_rec_type);
95
96
97 /* Defer Split ER Changes Start */
98
99 PROCEDURE Defer_Split
100 ( Errbuf OUT NOCOPY VARCHAR2
101 , retcode OUT NOCOPY VARCHAR2
102 , P_line_id IN VARCHAR DEFAULT NULL
103 );
104
105
106 PROCEDURE Bulk_Insert (p_line_conc_tbl IN Split_Line_Tbl_Type);
107 /* Defer Split ER Changes End*/
108
109
110 END OE_Split_Util;
[Home] [Help]