[Home] [Help]
PACKAGE: APPS.OZF_ORDER_PRICE_PVT
Source
1 PACKAGE OZF_ORDER_PRICE_PVT AS
2 /* $Header: ozfvorps.pls 120.4 2006/12/15 03:22:53 mkothari ship $ */
3
4
5 -- Default number of records fetch per call
6 G_DEFAULT_NUM_REC_FETCH NUMBER := 30;
7 G_HDR_TYPE VARCHAR2(30) :='ORDER';
8 G_LINE_TYPE VARCHAR2(30) :='LINE';
9
10 G_ORDER_HEADER_TYPE VARCHAR2(30) :='ORDER';
11 G_ORDER_LINE_TYPE VARCHAR2(30) :='LINE';
12
13
14 --===================================================================
15 -- Start of Comments
16 -- Note: This is automatic generated record definition, it includes all columns
17 -- defined in the table, developer must manually add or delete some of the attributes.
18 --
19 -- End of Comments
20
21 --===================================================================
22
23 TYPE LINE_REC_TYPE is RECORD
24 (
25 LINE_INDEX NUMBER,
26 LINE_ID NUMBER,
27 LINE_TYPE_CODE VARCHAR2(30),
28 PRICING_EFFECTIVE_DATE DATE,
29 ACTIVE_DATE_FIRST DATE,
30 ACTIVE_DATE_FIRST_TYPE VARCHAR2(30),
31 ACTIVE_DATE_SECOND DATE,
32 ACTIVE_DATE_SECOND_TYPE VARCHAR2(30),
33 LINE_QUANTITY NUMBER,
34 LINE_UOM_CODE VARCHAR2(30),
35 REQUEST_TYPE_CODE VARCHAR2(30),
36 PRICED_QUANTITY NUMBER,
37 PRICED_UOM_CODE VARCHAR2(30),
38 CURRENCY_CODE VARCHAR2(30),
39 UNIT_PRICE NUMBER,
40 PERCENT_PRICE NUMBER,
41 UOM_QUANTITY NUMBER,
42 ADJUSTED_UNIT_PRICE NUMBER,
43 UPD_ADJUSTED_UNIT_PRICE NUMBER,
44 PROCESSED_FLAG VARCHAR2(1),
45 PRICE_FLAG VARCHAR2(1),
46 PROCESSING_ORDER NUMBER,
47 PRICING_STATUS_CODE VARCHAR2(30),
48 PRICING_STATUS_TEXT VARCHAR2(2000),
49 ROUNDING_FLAG VARCHAR2(1),
50 ROUNDING_FACTOR NUMBER,
51 QUALIFIERS_EXIST_FLAG VARCHAR2(1),
52 PRICING_ATTRS_EXIST_FLAG VARCHAR2(1),
53 PRICE_LIST_ID NUMBER,
54 PL_VALIDATED_FLAG VARCHAR2(1),
55 PRICE_REQUEST_CODE VARCHAR2(240),
56 USAGE_PRICING_TYPE VARCHAR2(30),
57 LINE_CATEGORY VARCHAR2(30),
58 CHARGEBACK_INT_ID NUMBER,
59 RESALE_TABLE_TYPE VARCHAR2(15),
60 LIST_PRICE_OVERRIDE_FLAG VARCHAR2(1) := NULL -- mkothari 13-dec-2006
61 );
62
63
64
65 TYPE LINE_REC_TBL_TYPE is table of LINE_REC_TYPE index by binary_integer;
66
67
68 G_HEADER_REC oe_order_pub.header_rec_type;
69
70 TYPE G_LINE_REC_TBL_TYPE is table of oe_order_pub.line_rec_type index by binary_integer;
71
72 G_LINE_REC_TBL G_LINE_REC_TBL_TYPE;
73
74 TYPE LDETS_TBL_TYPE is table of qp_ldets_v%rowtype index by binary_integer;
75
76 TYPE RLTD_LINE_TBL_TYPE is table of QP_PREQ_RLTD_LINES_TMP%rowtype index by binary_integer;
77
78
79 -- R12 IDSM Resale Global Structure (+)
80 TYPE RESALE_LINE_REC_TYPE IS RECORD (
81 QP_CONTEXT_REQUEST_ID NUMBER,
82 LINE_INDEX NUMBER,
83
84 BATCH_TYPE VARCHAR2(30),
85 RESALE_TABLE_TYPE VARCHAR2(15),
86 LINE_ID NUMBER,
87
88 RESALE_TRANSFER_TYPE VARCHAR2(30),
89 PRODUCT_TRANSFER_MOVEMENT_TYPE VARCHAR2(30),
90 PRODUCT_TRANSFER_DATE DATE,
91 TRACING_FLAG VARCHAR2(1),
92
93 SOLD_FROM_CUST_ACCOUNT_ID NUMBER,
94 SOLD_FROM_SITE_ID NUMBER,
95 SOLD_FROM_CONTACT_PARTY_ID NUMBER,
96
97 SHIP_FROM_CUST_ACCOUNT_ID NUMBER,
98 SHIP_FROM_SITE_ID NUMBER,
99 SHIP_FROM_CONTACT_PARTY_ID NUMBER,
100
101 BILL_TO_PARTY_ID NUMBER,
102 BILL_TO_PARTY_SITE_ID NUMBER,
103 BILL_TO_CONTACT_PARTY_ID NUMBER,
104
105 SHIP_TO_PARTY_ID NUMBER,
106 SHIP_TO_PARTY_SITE_ID NUMBER,
107 SHIP_TO_CONTACT_PARTY_ID NUMBER,
108
109 END_CUST_PARTY_ID NUMBER,
110 END_CUST_SITE_USE_ID NUMBER,
111 END_CUST_SITE_USE_CODE VARCHAR2(30),
112 END_CUST_PARTY_SITE_ID NUMBER,
113 END_CUST_CONTACT_PARTY_ID NUMBER,
114
115 DATA_SOURCE_CODE VARCHAR2(30),
116
117 HEADER_ATTRIBUTE_CATEGORY VARCHAR2(30),
118 HEADER_ATTRIBUTE1 VARCHAR2(240),
119 HEADER_ATTRIBUTE2 VARCHAR2(240),
120 HEADER_ATTRIBUTE3 VARCHAR2(240),
121 HEADER_ATTRIBUTE4 VARCHAR2(240),
122 HEADER_ATTRIBUTE5 VARCHAR2(240),
123 HEADER_ATTRIBUTE6 VARCHAR2(240),
124 HEADER_ATTRIBUTE7 VARCHAR2(240),
125 HEADER_ATTRIBUTE8 VARCHAR2(240),
126 HEADER_ATTRIBUTE9 VARCHAR2(240),
127 HEADER_ATTRIBUTE10 VARCHAR2(240),
128 HEADER_ATTRIBUTE11 VARCHAR2(240),
129 HEADER_ATTRIBUTE12 VARCHAR2(240),
130 HEADER_ATTRIBUTE13 VARCHAR2(240),
131 HEADER_ATTRIBUTE14 VARCHAR2(240),
132 HEADER_ATTRIBUTE15 VARCHAR2(240),
133
134 LINE_ATTRIBUTE_CATEGORY VARCHAR2(30),
135 LINE_ATTRIBUTE1 VARCHAR2(240),
136 LINE_ATTRIBUTE2 VARCHAR2(240),
137 LINE_ATTRIBUTE3 VARCHAR2(240),
138 LINE_ATTRIBUTE4 VARCHAR2(240),
139 LINE_ATTRIBUTE5 VARCHAR2(240),
140 LINE_ATTRIBUTE6 VARCHAR2(240),
141 LINE_ATTRIBUTE7 VARCHAR2(240),
142 LINE_ATTRIBUTE8 VARCHAR2(240),
143 LINE_ATTRIBUTE9 VARCHAR2(240),
144 LINE_ATTRIBUTE10 VARCHAR2(240),
145 LINE_ATTRIBUTE11 VARCHAR2(240),
146 LINE_ATTRIBUTE12 VARCHAR2(240),
147 LINE_ATTRIBUTE13 VARCHAR2(240),
148 LINE_ATTRIBUTE14 VARCHAR2(240),
149 LINE_ATTRIBUTE15 VARCHAR2(240)
150 );
151
152 TYPE RESALE_LINE_TBL_TYPE IS TABLE OF RESALE_LINE_REC_TYPE
153 INDEX BY BINARY_INTEGER;
154
155 G_RESALE_LINE_REC RESALE_LINE_REC_TYPE;
156 G_RESALE_LINE_TBL RESALE_LINE_TBL_TYPE;
157 -- R12 IDSM Resale Global Structure (-)
158
159
160 ---------------------------------------------------------------------
161 -- PROCEDURE
162 -- Get_Order_Price
163 --
164 -- PURPOSE
165 -- Get the price of an order
166 --
167 -- PARAMETERS
168 --
169 --
170 -- NOTES
171 -- 1. get list of order line as an input.
172 -- 2. call build order and build line to create order structure.
173 -- 3. construct the control rec
174 -- 4. call pricing engine.
175 -- 5. return the result of pricing engine call.
176 ---------------------------------------------------------------------
177 PROCEDURE Get_Order_Price (
178 p_api_version IN NUMBER
179 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
180 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
181 ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
182
183 ,x_return_status OUT NOCOPY VARCHAR2
184 ,x_msg_data OUT NOCOPY VARCHAR2
185 ,x_msg_count OUT NOCOPY NUMBER
186 ,p_control_rec IN QP_PREQ_GRP.CONTROL_RECORD_TYPE
187 ,xp_line_tbl IN OUT NOCOPY LINE_REC_TBL_TYPE
188 ,x_ldets_tbl OUT NOCOPY LDETS_TBL_TYPE
189 ,x_related_lines_tbl OUT NOCOPY RLTD_LINE_TBL_TYPE
190 );
191
192 ---------------------------------------------------------------------
193 -- PROCEDURE
194 -- Purge_Pricing_Temp_table
195 --
196 -- PURPOSE
197 -- Purge the pricing temp table
198 --
199 -- PARAMETERS
200 --
201 --
202 -- NOTES
203 --
204 ---------------------------------------------------------------------
205 PROCEDURE Purge_Pricing_Temp_table (
206 p_api_version IN NUMBER
207 ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
208 ,p_commit IN VARCHAR2 := FND_API.G_FALSE
209 ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
210
211 ,x_return_status OUT NOCOPY VARCHAR2
212 ,x_msg_data OUT NOCOPY VARCHAR2
213 ,x_msg_count OUT NOCOPY NUMBER
214 );
215 END OZF_ORDER_PRICE_PVT;