[Home] [Help]
PACKAGE BODY: APPS.CS_PRICING_ITEM_PKG
Source
1 package body cs_pricing_item_pkg as
2 /* $Header: csxcpicb.pls 120.4.12010000.2 2008/08/06 13:08:22 vpremach ship $ */
3
4 /*********** Global Variables ********************************/
5 G_PKG_NAME CONSTANT VARCHAR2(30) := 'cs_pricing_item_pkg' ;
6
7 PROCEDURE Call_Pricing_Item(
8 P_Api_Version IN NUMBER default null,
9 P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
10 P_Commit IN VARCHAR2 := FND_API.G_FALSE,
11 P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
12 P_Inventory_Item_Id IN NUMBER,
13 P_Price_List_Id IN NUMBER,
14 P_UOM_Code IN VARCHAR2,
15 P_Currency_Code IN VARCHAR2,
16 P_Quantity IN NUMBER,
17 P_Org_id IN NUMBER,
18 P_Incident_date IN DATE default Null, -- Bug 6393403
19 P_Pricing_Context IN VARCHAR2,
20 P_Pricing_Attribute1 IN VARCHAR2,
21 P_Pricing_Attribute2 IN VARCHAR2,
22 P_Pricing_Attribute3 IN VARCHAR2,
23 P_Pricing_Attribute4 IN VARCHAR2,
24 P_Pricing_Attribute5 IN VARCHAR2,
25 P_Pricing_Attribute6 IN VARCHAR2,
26 P_Pricing_Attribute7 IN VARCHAR2,
27 P_Pricing_Attribute8 IN VARCHAR2,
28 P_Pricing_Attribute9 IN VARCHAR2,
29 P_Pricing_Attribute10 IN VARCHAR2,
30 P_Pricing_Attribute11 IN VARCHAR2,
31 P_Pricing_Attribute12 IN VARCHAR2,
32 P_Pricing_Attribute13 IN VARCHAR2,
33 P_Pricing_Attribute14 IN VARCHAR2,
34 P_Pricing_Attribute15 IN VARCHAR2,
35 P_Pricing_Attribute16 IN VARCHAR2,
36 P_Pricing_Attribute17 IN VARCHAR2,
37 P_Pricing_Attribute18 IN VARCHAR2,
38 P_Pricing_Attribute19 IN VARCHAR2,
39 P_Pricing_Attribute20 IN VARCHAR2,
40 P_Pricing_Attribute21 IN VARCHAR2,
41 P_Pricing_Attribute22 IN VARCHAR2,
42 P_Pricing_Attribute23 IN VARCHAR2,
43 P_Pricing_Attribute24 IN VARCHAR2,
44 P_Pricing_Attribute25 IN VARCHAR2,
45 P_Pricing_Attribute26 IN VARCHAR2,
46 P_Pricing_Attribute27 IN VARCHAR2,
47 P_Pricing_Attribute28 IN VARCHAR2,
48 P_Pricing_Attribute29 IN VARCHAR2,
49 P_Pricing_Attribute30 IN VARCHAR2,
50 P_Pricing_Attribute31 IN VARCHAR2,
51 P_Pricing_Attribute32 IN VARCHAR2,
52 P_Pricing_Attribute33 IN VARCHAR2,
53 P_Pricing_Attribute34 IN VARCHAR2,
54 P_Pricing_Attribute35 IN VARCHAR2,
55 P_Pricing_Attribute36 IN VARCHAR2,
56 P_Pricing_Attribute37 IN VARCHAR2,
57 P_Pricing_Attribute38 IN VARCHAR2,
58 P_Pricing_Attribute39 IN VARCHAR2,
59 P_Pricing_Attribute40 IN VARCHAR2,
60 P_Pricing_Attribute41 IN VARCHAR2,
61 P_Pricing_Attribute42 IN VARCHAR2,
62 P_Pricing_Attribute43 IN VARCHAR2,
63 P_Pricing_Attribute44 IN VARCHAR2,
64 P_Pricing_Attribute45 IN VARCHAR2,
65 P_Pricing_Attribute46 IN VARCHAR2,
66 P_Pricing_Attribute47 IN VARCHAR2,
67 P_Pricing_Attribute48 IN VARCHAR2,
68 P_Pricing_Attribute49 IN VARCHAR2,
69 P_Pricing_Attribute50 IN VARCHAR2,
70 P_Pricing_Attribute51 IN VARCHAR2,
71 P_Pricing_Attribute52 IN VARCHAR2,
72 P_Pricing_Attribute53 IN VARCHAR2,
73 P_Pricing_Attribute54 IN VARCHAR2,
74 P_Pricing_Attribute55 IN VARCHAR2,
75 P_Pricing_Attribute56 IN VARCHAR2,
76 P_Pricing_Attribute57 IN VARCHAR2,
77 P_Pricing_Attribute58 IN VARCHAR2,
78 P_Pricing_Attribute59 IN VARCHAR2,
79 P_Pricing_Attribute60 IN VARCHAR2,
80 P_Pricing_Attribute61 IN VARCHAR2,
81 P_Pricing_Attribute62 IN VARCHAR2,
82 P_Pricing_Attribute63 IN VARCHAR2,
83 P_Pricing_Attribute64 IN VARCHAR2,
84 P_Pricing_Attribute65 IN VARCHAR2,
85 P_Pricing_Attribute66 IN VARCHAR2,
86 P_Pricing_Attribute67 IN VARCHAR2,
87 P_Pricing_Attribute68 IN VARCHAR2,
88 P_Pricing_Attribute69 IN VARCHAR2,
89 P_Pricing_Attribute70 IN VARCHAR2,
90 P_Pricing_Attribute71 IN VARCHAR2,
91 P_Pricing_Attribute72 IN VARCHAR2,
92 P_Pricing_Attribute73 IN VARCHAR2,
93 P_Pricing_Attribute74 IN VARCHAR2,
94 P_Pricing_Attribute75 IN VARCHAR2,
95 P_Pricing_Attribute76 IN VARCHAR2,
96 P_Pricing_Attribute77 IN VARCHAR2,
97 P_Pricing_Attribute78 IN VARCHAR2,
98 P_Pricing_Attribute79 IN VARCHAR2,
99 P_Pricing_Attribute80 IN VARCHAR2,
100 P_Pricing_Attribute81 IN VARCHAR2,
101 P_Pricing_Attribute82 IN VARCHAR2,
102 P_Pricing_Attribute83 IN VARCHAR2,
103 P_Pricing_Attribute84 IN VARCHAR2,
104 P_Pricing_Attribute85 IN VARCHAR2,
105 P_Pricing_Attribute86 IN VARCHAR2,
106 P_Pricing_Attribute87 IN VARCHAR2,
107 P_Pricing_Attribute88 IN VARCHAR2,
108 P_Pricing_Attribute89 IN VARCHAR2,
109 P_Pricing_Attribute90 IN VARCHAR2,
110 P_Pricing_Attribute91 IN VARCHAR2,
111 P_Pricing_Attribute92 IN VARCHAR2,
112 P_Pricing_Attribute93 IN VARCHAR2,
113 P_Pricing_Attribute94 IN VARCHAR2,
114 P_Pricing_Attribute95 IN VARCHAR2,
115 P_Pricing_Attribute96 IN VARCHAR2,
116 P_Pricing_Attribute97 IN VARCHAR2,
117 P_Pricing_Attribute98 IN VARCHAR2,
118 P_Pricing_Attribute99 IN VARCHAR2,
119 P_Pricing_Attribute100 IN VARCHAR2,
120 x_list_price OUT NOCOPY NUMBER,
121 x_return_status OUT NOCOPY VARCHAR2,
122 x_msg_count OUT NOCOPY NUMBER,
123 x_msg_data OUT NOCOPY VARCHAR2) IS
124
125 -- The input to the Pricing_Item is stored in this structure
126 l_control_rec ASO_PRICING_INT.Pricing_Control_rec_Type;
127 l_hd_price_attr_tbl ASO_QUOTE_PUB.Price_Attributes_Tbl_Type;
128 l_qte_header_rec ASO_QUOTE_PUB.Qte_Header_Rec_Type;
129 l_qte_line_rec ASO_QUOTE_PUB.Qte_Line_Rec_Type;
130 l_qte_line_dtl_rec ASO_QUOTE_PUB.Qte_Line_dtl_Rec_Type;
131 l_hd_shipment_rec ASO_QUOTE_PUB.Shipment_Rec_Type;
132 l_ln_shipment_rec ASO_QUOTE_PUB.Shipment_Rec_Type;
133 l_Price_attr_tbl ASO_QUOTE_PUB.Price_Attributes_Tbl_Type;
134
135 -- The output from the Pricing_Item is stored in this structure
136 lx_qte_out_line_tbl ASO_QUOTE_PUB.Qte_Line_Tbl_Type ;
137 lx_qte_line_dtl_tbl ASO_QUOTE_PUB.Qte_Line_Dtl_Tbl_Type;
138 lx_price_adj_tbl ASO_QUOTE_PUB.Price_Adj_Tbl_Type;
139 lx_price_adj_attr_tbl ASO_QUOTE_PUB.Price_Adj_attr_Tbl_Type;
140 lx_price_adj_rltship_tbl ASO_QUOTE_PUB.Price_Adj_Rltship_Tbl_Type;
141
142 lx_return_status VARCHAR2(1);
143 lx_msg_count NUMBER;
144 lx_msg_data VARCHAR2(2000);
145
146 l_api_name CONSTANT VARCHAR2(30) := 'Call_Pricing_Item' ;
147 l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME || '.' || l_api_name ;
148 l_log_module CONSTANT VARCHAR2(255) := 'cs.plsql.' || l_api_name_full || '.';
149
150 e_pricing_warning EXCEPTION;
151
152 BEGIN
153
154 IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
155 THEN
156 FND_LOG.String
157 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
158 ,'P_Api_Version :' || P_Api_Version
159 );
160 FND_LOG.String
161 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
162 ,'P_Init_Msg_List :' || P_Init_Msg_List
163 );
164 FND_LOG.String
165 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
166 ,'P_Commit :' || P_Commit
167 );
168 FND_LOG.String
169 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
170 ,'P_Validation_Level :' || P_Validation_Level
171 );
172 FND_LOG.String
173 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
174 ,'P_Inventory_Item_Id :' || P_Inventory_Item_Id
175 );
176 FND_LOG.String
177 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
178 ,'P_Price_List_Id :' || P_Price_List_Id
179 );
180 FND_LOG.String
181 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
182 ,'P_UOM_Code :' || P_UOM_Code
183 );
184 FND_LOG.String
185 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
186 ,'P_Currency_Code :' || P_Currency_Code
187 );
188 FND_LOG.String
189 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
190 ,'P_Quantity :' || P_Quantity
191 );
192 FND_LOG.String
193 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
194 ,'P_Org_Id :' || P_Org_Id
195
196 );
197 FND_LOG.String
198 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
199 ,'P_Pricing_Context :' || P_Pricing_Context
200 );
201 FND_LOG.String
202 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
203 ,'P_Pricing_Attribute1 :' || P_Pricing_Attribute1
204 );
205 FND_LOG.String
206 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
207 ,'P_Pricing_Attribute2 :' || P_Pricing_Attribute2
208 );
209 FND_LOG.String
210 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
211 ,'P_Pricing_Attribute3 :' || P_Pricing_Attribute3
212 );
213 FND_LOG.String
214 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
215 ,'P_Pricing_Attribute4 :' || P_Pricing_Attribute4
216 );
217 FND_LOG.String
218 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
219 ,'P_Pricing_Attribute5 :' || P_Pricing_Attribute5
220 );
221 FND_LOG.String
222 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
223 ,'P_Pricing_Attribute6 :' || P_Pricing_Attribute6
224 );
225 FND_LOG.String
226 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
227 ,'P_Pricing_Attribute7 :' || P_Pricing_Attribute7
228 );
229 FND_LOG.String
230 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
231 ,'P_Pricing_Attribute8 :' || P_Pricing_Attribute8
232 );
233 FND_LOG.String
234 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
235 ,'P_Pricing_Attribute9 :' || P_Pricing_Attribute9
236 );
237 FND_LOG.String
238 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
239 ,'P_Pricing_Attribute10 :' || P_Pricing_Attribute10
240 );
241 FND_LOG.String
242 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
243 ,'P_Pricing_Attribute11 :' || P_Pricing_Attribute11
244 );
245 FND_LOG.String
246 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
247 ,'P_Pricing_Attribute12 :' || P_Pricing_Attribute12
248 );
249 FND_LOG.String
250 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
251 ,'P_Pricing_Attribute13 :' || P_Pricing_Attribute13
252 );
253 FND_LOG.String
254 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
255 ,'P_Pricing_Attribute14 :' || P_Pricing_Attribute14
256 );
257 FND_LOG.String
258 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
259 ,'P_Pricing_Attribute15 :' || P_Pricing_Attribute15
260 );
261 FND_LOG.String
262 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
263 ,'P_Pricing_Attribute16 :' || P_Pricing_Attribute16
264 );
265 FND_LOG.String
266 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
267 ,'P_Pricing_Attribute17 :' || P_Pricing_Attribute17
268 );
269 FND_LOG.String
270 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
271 ,'P_Pricing_Attribute18 :' || P_Pricing_Attribute18
272 );
273 FND_LOG.String
274 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
275 ,'P_Pricing_Attribute19 :' || P_Pricing_Attribute19
276 );
277 FND_LOG.String
278 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
279 ,'P_Pricing_Attribute20 :' || P_Pricing_Attribute20
280 );
281 FND_LOG.String
282 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
283 ,'P_Pricing_Attribute21 :' || P_Pricing_Attribute21
284 );
285 FND_LOG.String
286 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
287 ,'P_Pricing_Attribute22 :' || P_Pricing_Attribute22
288 );
289 FND_LOG.String
290 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
291 ,'P_Pricing_Attribute23 :' || P_Pricing_Attribute23
292 );
293 FND_LOG.String
294 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
295 ,'P_Pricing_Attribute24 :' || P_Pricing_Attribute24
296 );
297 FND_LOG.String
298 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
299 ,'P_Pricing_Attribute25 :' || P_Pricing_Attribute25
300 );
301 FND_LOG.String
302 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
303 ,'P_Pricing_Attribute26 :' || P_Pricing_Attribute26
304 );
305 FND_LOG.String
306 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
307 ,'P_Pricing_Attribute27 :' || P_Pricing_Attribute27
308 );
309 FND_LOG.String
310 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
311 ,'P_Pricing_Attribute28 :' || P_Pricing_Attribute28
312 );
313 FND_LOG.String
314 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
315 ,'P_Pricing_Attribute29 :' || P_Pricing_Attribute29
316 );
317 FND_LOG.String
318 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
319 ,'P_Pricing_Attribute30 :' || P_Pricing_Attribute30
320 );
321 FND_LOG.String
322 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
323 ,'P_Pricing_Attribute31 :' || P_Pricing_Attribute31
324 );
325 FND_LOG.String
326 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
327 ,'P_Pricing_Attribute32 :' || P_Pricing_Attribute32
328 );
329 FND_LOG.String
330 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
331 ,'P_Pricing_Attribute33 :' || P_Pricing_Attribute33
332 );
333 FND_LOG.String
334 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
335 ,'P_Pricing_Attribute34 :' || P_Pricing_Attribute34
336 );
337 FND_LOG.String
338 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
339 ,'P_Pricing_Attribute35 :' || P_Pricing_Attribute35
340 );
341 FND_LOG.String
342 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
343 ,'P_Pricing_Attribute36 :' || P_Pricing_Attribute36
344 );
345 FND_LOG.String
346 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
347 ,'P_Pricing_Attribute37 :' || P_Pricing_Attribute37
348 );
349 FND_LOG.String
350 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
351 ,'P_Pricing_Attribute38 :' || P_Pricing_Attribute38
352 );
353 FND_LOG.String
354 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
355 ,'P_Pricing_Attribute39 :' || P_Pricing_Attribute39
356 );
357 FND_LOG.String
358 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
359 ,'P_Pricing_Attribute40 :' || P_Pricing_Attribute40
360 );
361 FND_LOG.String
362 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
363 ,'P_Pricing_Attribute41 :' || P_Pricing_Attribute41
364 );
365 FND_LOG.String
366 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
367 ,'P_Pricing_Attribute42 :' || P_Pricing_Attribute42
368 );
369 FND_LOG.String
370 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
371 ,'P_Pricing_Attribute43 :' || P_Pricing_Attribute43
372 );
373 FND_LOG.String
374 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
375 ,'P_Pricing_Attribute44 :' || P_Pricing_Attribute44
376 );
377 FND_LOG.String
378 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
379 ,'P_Pricing_Attribute45 :' || P_Pricing_Attribute45
380 );
381 FND_LOG.String
382 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
383 ,'P_Pricing_Attribute46 :' || P_Pricing_Attribute46
384 );
385 FND_LOG.String
386 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
387 ,'P_Pricing_Attribute47 :' || P_Pricing_Attribute47
388 );
389 FND_LOG.String
390 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
391 ,'P_Pricing_Attribute48 :' || P_Pricing_Attribute48
392 );
393 FND_LOG.String
394 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
395 ,'P_Pricing_Attribute49 :' || P_Pricing_Attribute49
396 );
397 FND_LOG.String
398 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
399 ,'P_Pricing_Attribute50 :' || P_Pricing_Attribute50
400 );
401 FND_LOG.String
402 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
403 ,'P_Pricing_Attribute51 :' || P_Pricing_Attribute51
404 );
405 FND_LOG.String
406 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
407 ,'P_Pricing_Attribute52 :' || P_Pricing_Attribute52
408 );
409 FND_LOG.String
410 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
411 ,'P_Pricing_Attribute53 :' || P_Pricing_Attribute53
412 );
413 FND_LOG.String
414 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
415 ,'P_Pricing_Attribute54 :' || P_Pricing_Attribute54
416 );
417 FND_LOG.String
418 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
419 ,'P_Pricing_Attribute55 :' || P_Pricing_Attribute55
420 );
421 FND_LOG.String
422 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
423 ,'P_Pricing_Attribute56 :' || P_Pricing_Attribute56
424 );
425 FND_LOG.String
426 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
427 ,'P_Pricing_Attribute57 :' || P_Pricing_Attribute57
428 );
429 FND_LOG.String
430 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
431 ,'P_Pricing_Attribute58 :' || P_Pricing_Attribute58
432 );
433 FND_LOG.String
434 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
435 ,'P_Pricing_Attribute59 :' || P_Pricing_Attribute59
436 );
437 FND_LOG.String
438 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
439 ,'P_Pricing_Attribute60 :' || P_Pricing_Attribute60
440 );
441 FND_LOG.String
442 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
443 ,'P_Pricing_Attribute61 :' || P_Pricing_Attribute61
444 );
445 FND_LOG.String
446 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
447 ,'P_Pricing_Attribute62 :' || P_Pricing_Attribute62
448 );
449 FND_LOG.String
450 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
451 ,'P_Pricing_Attribute63 :' || P_Pricing_Attribute63
452 );
453 FND_LOG.String
454 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
455 ,'P_Pricing_Attribute64 :' || P_Pricing_Attribute64
456 );
457 FND_LOG.String
458 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
459 ,'P_Pricing_Attribute65 :' || P_Pricing_Attribute65
460 );
461 FND_LOG.String
462 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
463 ,'P_Pricing_Attribute66 :' || P_Pricing_Attribute66
464 );
465 FND_LOG.String
466 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
467 ,'P_Pricing_Attribute67 :' || P_Pricing_Attribute67
468 );
469 FND_LOG.String
470 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
471 ,'P_Pricing_Attribute68 :' || P_Pricing_Attribute68
472 );
473 FND_LOG.String
474 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
475 ,'P_Pricing_Attribute69 :' || P_Pricing_Attribute69
476 );
477 FND_LOG.String
478 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
479 ,'P_Pricing_Attribute70 :' || P_Pricing_Attribute70
480 );
481 FND_LOG.String
482 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
483 ,'P_Pricing_Attribute71 :' || P_Pricing_Attribute71
484 );
485 FND_LOG.String
486 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
487 ,'P_Pricing_Attribute72 :' || P_Pricing_Attribute72
488 );
489 FND_LOG.String
490 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
491 ,'P_Pricing_Attribute73 :' || P_Pricing_Attribute73
492 );
493 FND_LOG.String
494 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
495 ,'P_Pricing_Attribute74 :' || P_Pricing_Attribute74
496 );
497 FND_LOG.String
498 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
499 ,'P_Pricing_Attribute75 :' || P_Pricing_Attribute75
500 );
501 FND_LOG.String
502 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
503 ,'P_Pricing_Attribute76 :' || P_Pricing_Attribute76
504 );
505 FND_LOG.String
506 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
507 ,'P_Pricing_Attribute77 :' || P_Pricing_Attribute77
508 );
509 FND_LOG.String
510 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
511 ,'P_Pricing_Attribute78 :' || P_Pricing_Attribute78
512 );
513 FND_LOG.String
514 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
515 ,'P_Pricing_Attribute79 :' || P_Pricing_Attribute79
516 );
517 FND_LOG.String
518 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
519 ,'P_Pricing_Attribute80 :' || P_Pricing_Attribute80
520 );
521 FND_LOG.String
522 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
523 ,'P_Pricing_Attribute81 :' || P_Pricing_Attribute81
524 );
525 FND_LOG.String
526 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
527 ,'P_Pricing_Attribute82 :' || P_Pricing_Attribute82
528 );
529 FND_LOG.String
530 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
531 ,'P_Pricing_Attribute83 :' || P_Pricing_Attribute83
532 );
533 FND_LOG.String
534 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
535 ,'P_Pricing_Attribute84 :' || P_Pricing_Attribute84
536 );
537 FND_LOG.String
538 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
539 ,'P_Pricing_Attribute85 :' || P_Pricing_Attribute85
540 );
541 FND_LOG.String
542 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
543 ,'P_Pricing_Attribute86 :' || P_Pricing_Attribute86
544 );
545 FND_LOG.String
546 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
547 ,'P_Pricing_Attribute87 :' || P_Pricing_Attribute87
548 );
549 FND_LOG.String
550 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
551 ,'P_Pricing_Attribute88 :' || P_Pricing_Attribute88
552 );
553 FND_LOG.String
554 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
555 ,'P_Pricing_Attribute89 :' || P_Pricing_Attribute89
556 );
557 FND_LOG.String
558 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
559 ,'P_Pricing_Attribute90 :' || P_Pricing_Attribute90
560 );
561 FND_LOG.String
562 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
563 ,'P_Pricing_Attribute91 :' || P_Pricing_Attribute91
564 );
565 FND_LOG.String
566 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
567 ,'P_Pricing_Attribute92 :' || P_Pricing_Attribute92
568 );
569 FND_LOG.String
570 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
571 ,'P_Pricing_Attribute93 :' || P_Pricing_Attribute93
572 );
573 FND_LOG.String
574 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
575 ,'P_Pricing_Attribute94 :' || P_Pricing_Attribute94
576 );
577 FND_LOG.String
578 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
579 ,'P_Pricing_Attribute95 :' || P_Pricing_Attribute95
580 );
581 FND_LOG.String
582 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
583 ,'P_Pricing_Attribute96 :' || P_Pricing_Attribute96
584 );
585 FND_LOG.String
586 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
587 ,'P_Pricing_Attribute97 :' || P_Pricing_Attribute97
588 );
589 FND_LOG.String
590 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
591 ,'P_Pricing_Attribute98 :' || P_Pricing_Attribute98
592 );
593 FND_LOG.String
594 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
595 ,'P_Pricing_Attribute99 :' || P_Pricing_Attribute99
596 );
597 FND_LOG.String
598 ( FND_LOG.level_procedure , L_LOG_MODULE || ''
599 ,'P_Pricing_Attribute100 :' || P_Pricing_Attribute100
600 );
601 END IF;
602
603 l_qte_header_rec.price_frozen_date := P_Incident_Date; -- bug 6393403
604 -- dbms_output.put_line('Beginning of the test');
605 -- Initialize the values of the Pricing Line Rec Type
606 l_qte_line_rec.INVENTORY_ITEM_ID := p_inventory_item_id;
607 l_qte_line_rec.PRICE_LIST_ID := p_price_list_id;
608 l_qte_line_rec.CURRENCY_CODE := p_currency_code;
609 l_qte_line_rec.QUANTITY := p_Quantity;
610 l_qte_line_rec.UOM_CODE := p_Uom_Code;
611
612 l_qte_header_rec.ORG_ID := p_Org_Id; --r12
613
614 -- Request_type is required to identify which product has setup the price list
615 -- and pricing_event is required to identify the event which returns the item price
616 l_control_rec.request_type := 'ASO';
617 l_control_rec.pricing_event := 'LINE';
618
619 -- Initialize the values of the Pricing line table. Since we are passing
620 -- one line at a time from the form we hard the line_index to 1
621 l_price_attr_tbl(1).flex_title := 'QP_ATTR_DEFNS_PRICING';
622 l_Price_Attr_tbl(1).pricing_context := p_pricing_context;
623 l_Price_Attr_tbl(1).pricing_attribute1 := p_pricing_attribute1;
624 l_Price_Attr_tbl(1).pricing_attribute2 := p_pricing_attribute2;
625 l_Price_Attr_tbl(1).pricing_attribute3 := p_pricing_attribute3;
626 l_Price_Attr_tbl(1).pricing_attribute4 := p_pricing_attribute4;
627 l_Price_Attr_tbl(1).pricing_attribute5 := p_pricing_attribute5;
628 l_Price_Attr_tbl(1).pricing_attribute6 := p_pricing_attribute6;
629 l_Price_Attr_tbl(1).pricing_attribute7 := p_pricing_attribute7;
630 l_Price_Attr_tbl(1).pricing_attribute8 := p_pricing_attribute8;
631 l_Price_Attr_tbl(1).pricing_attribute9 := p_pricing_attribute9;
632 l_Price_Attr_tbl(1).pricing_attribute10 := p_pricing_attribute10;
633 l_Price_Attr_tbl(1).pricing_attribute11 := p_pricing_attribute11;
634 l_Price_Attr_tbl(1).pricing_attribute12 := p_pricing_attribute12;
635 l_Price_Attr_tbl(1).pricing_attribute13 := p_pricing_attribute13;
636 l_Price_Attr_tbl(1).pricing_attribute14 := p_pricing_attribute14;
637 l_Price_Attr_tbl(1).pricing_attribute15 := p_pricing_attribute15;
638 l_Price_Attr_tbl(1).pricing_attribute16 := p_pricing_attribute16;
639 l_Price_Attr_tbl(1).pricing_attribute17 := p_pricing_attribute17;
640 l_Price_Attr_tbl(1).pricing_attribute18 := p_pricing_attribute18;
641 l_Price_Attr_tbl(1).pricing_attribute19 := p_pricing_attribute19;
642 l_Price_Attr_tbl(1).pricing_attribute20 := p_pricing_attribute20;
643 l_Price_Attr_tbl(1).pricing_attribute21 := p_pricing_attribute21;
644 l_Price_Attr_tbl(1).pricing_attribute22 := p_pricing_attribute22;
645 l_Price_Attr_tbl(1).pricing_attribute23 := p_pricing_attribute23;
646 l_Price_Attr_tbl(1).pricing_attribute24 := p_pricing_attribute24;
647 l_Price_Attr_tbl(1).pricing_attribute25 := p_pricing_attribute25;
648 l_Price_Attr_tbl(1).pricing_attribute26 := p_pricing_attribute26;
649 l_Price_Attr_tbl(1).pricing_attribute27 := p_pricing_attribute27;
650 l_Price_Attr_tbl(1).pricing_attribute28 := p_pricing_attribute28;
651 l_Price_Attr_tbl(1).pricing_attribute29 := p_pricing_attribute29;
652 l_Price_Attr_tbl(1).pricing_attribute30 := p_pricing_attribute30;
653 l_Price_Attr_tbl(1).pricing_attribute31 := p_pricing_attribute31;
654 l_Price_Attr_tbl(1).pricing_attribute32 := p_pricing_attribute32;
655 l_Price_Attr_tbl(1).pricing_attribute33 := p_pricing_attribute33;
656 l_Price_Attr_tbl(1).pricing_attribute34 := p_pricing_attribute34;
657 l_Price_Attr_tbl(1).pricing_attribute35 := p_pricing_attribute35;
658 l_Price_Attr_tbl(1).pricing_attribute36 := p_pricing_attribute36;
659 l_Price_Attr_tbl(1).pricing_attribute37 := p_pricing_attribute37;
660 l_Price_Attr_tbl(1).pricing_attribute38 := p_pricing_attribute38;
661 l_Price_Attr_tbl(1).pricing_attribute39 := p_pricing_attribute39;
662 l_Price_Attr_tbl(1).pricing_attribute40 := p_pricing_attribute40;
663 l_Price_Attr_tbl(1).pricing_attribute41 := p_pricing_attribute41;
664 l_Price_Attr_tbl(1).pricing_attribute42 := p_pricing_attribute42;
665 l_Price_Attr_tbl(1).pricing_attribute43 := p_pricing_attribute43;
666 l_Price_Attr_tbl(1).pricing_attribute44 := p_pricing_attribute44;
667 l_Price_Attr_tbl(1).pricing_attribute45 := p_pricing_attribute45;
668 l_Price_Attr_tbl(1).pricing_attribute46 := p_pricing_attribute46;
669 l_Price_Attr_tbl(1).pricing_attribute47 := p_pricing_attribute47;
670 l_Price_Attr_tbl(1).pricing_attribute48 := p_pricing_attribute48;
671 l_Price_Attr_tbl(1).pricing_attribute49 := p_pricing_attribute49;
672 l_Price_Attr_tbl(1).pricing_attribute50 := p_pricing_attribute50;
673 l_Price_Attr_tbl(1).pricing_attribute51 := p_pricing_attribute51;
674 l_Price_Attr_tbl(1).pricing_attribute52 := p_pricing_attribute52;
675 l_Price_Attr_tbl(1).pricing_attribute53 := p_pricing_attribute53;
676 l_Price_Attr_tbl(1).pricing_attribute54 := p_pricing_attribute54;
677 l_Price_Attr_tbl(1).pricing_attribute55 := p_pricing_attribute55;
678 l_Price_Attr_tbl(1).pricing_attribute56 := p_pricing_attribute56;
679 l_Price_Attr_tbl(1).pricing_attribute57 := p_pricing_attribute57;
680 l_Price_Attr_tbl(1).pricing_attribute58 := p_pricing_attribute58;
681 l_Price_Attr_tbl(1).pricing_attribute59 := p_pricing_attribute59;
682 l_Price_Attr_tbl(1).pricing_attribute60 := p_pricing_attribute60;
683 l_Price_Attr_tbl(1).pricing_attribute61 := p_pricing_attribute61;
684 l_Price_Attr_tbl(1).pricing_attribute62 := p_pricing_attribute62;
685 l_Price_Attr_tbl(1).pricing_attribute63 := p_pricing_attribute63;
686 l_Price_Attr_tbl(1).pricing_attribute64 := p_pricing_attribute64;
687 l_Price_Attr_tbl(1).pricing_attribute65 := p_pricing_attribute65;
688 l_Price_Attr_tbl(1).pricing_attribute66 := p_pricing_attribute66;
689 l_Price_Attr_tbl(1).pricing_attribute67 := p_pricing_attribute67;
690 l_Price_Attr_tbl(1).pricing_attribute68 := p_pricing_attribute68;
691 l_Price_Attr_tbl(1).pricing_attribute69 := p_pricing_attribute69;
692 l_Price_Attr_tbl(1).pricing_attribute70 := p_pricing_attribute70;
693 l_Price_Attr_tbl(1).pricing_attribute71 := p_pricing_attribute71;
694 l_Price_Attr_tbl(1).pricing_attribute72 := p_pricing_attribute72;
695 l_Price_Attr_tbl(1).pricing_attribute73 := p_pricing_attribute73;
696 l_Price_Attr_tbl(1).pricing_attribute74 := p_pricing_attribute74;
697 l_Price_Attr_tbl(1).pricing_attribute75 := p_pricing_attribute75;
698 l_Price_Attr_tbl(1).pricing_attribute76 := p_pricing_attribute76;
699 l_Price_Attr_tbl(1).pricing_attribute77 := p_pricing_attribute77;
700 l_Price_Attr_tbl(1).pricing_attribute78 := p_pricing_attribute78;
701 l_Price_Attr_tbl(1).pricing_attribute79 := p_pricing_attribute79;
702 l_Price_Attr_tbl(1).pricing_attribute80 := p_pricing_attribute80;
703 l_Price_Attr_tbl(1).pricing_attribute81 := p_pricing_attribute81;
704 l_Price_Attr_tbl(1).pricing_attribute82 := p_pricing_attribute82;
705 l_Price_Attr_tbl(1).pricing_attribute83 := p_pricing_attribute83;
706 l_Price_Attr_tbl(1).pricing_attribute84 := p_pricing_attribute84;
707 l_Price_Attr_tbl(1).pricing_attribute85 := p_pricing_attribute85;
708 l_Price_Attr_tbl(1).pricing_attribute86 := p_pricing_attribute86;
709 l_Price_Attr_tbl(1).pricing_attribute87 := p_pricing_attribute87;
710 l_Price_Attr_tbl(1).pricing_attribute88 := p_pricing_attribute88;
711 l_Price_Attr_tbl(1).pricing_attribute89 := p_pricing_attribute89;
712 l_Price_Attr_tbl(1).pricing_attribute90 := p_pricing_attribute90;
713 l_Price_Attr_tbl(1).pricing_attribute91 := p_pricing_attribute91;
714 l_Price_Attr_tbl(1).pricing_attribute92 := p_pricing_attribute92;
715 l_Price_Attr_tbl(1).pricing_attribute93 := p_pricing_attribute93;
716 l_Price_Attr_tbl(1).pricing_attribute94 := p_pricing_attribute94;
717 l_Price_Attr_tbl(1).pricing_attribute95 := p_pricing_attribute95;
718 l_Price_Attr_tbl(1).pricing_attribute96 := p_pricing_attribute96;
719 l_Price_Attr_tbl(1).pricing_attribute97 := p_pricing_attribute97;
720 l_Price_Attr_tbl(1).pricing_attribute98 := p_pricing_attribute98;
721 l_Price_Attr_tbl(1).pricing_attribute99 := p_pricing_attribute99;
722 l_Price_Attr_tbl(1).pricing_attribute100:= p_pricing_attribute100;
723
724 /* Begin Bug7219268 */
725 IF jtf_usr_hks.Ok_To_Execute('CS_CHARGE_DETAILS_PVT',
726 'Call_Pricing_Item',
727 'B', 'C') THEN
728 CS_CHARGE_DETAILS_CUHK.Call_Pricing_Item_Pre ( p_inventory_item_id => p_inventory_item_id,
729 p_price_list_id => p_price_list_id,
730 p_uom_code => p_uom_code,
731 p_currency_code => p_currency_code,
732 p_quantity => p_quantity,
733 p_org_id => p_org_id,
734 x_list_price => x_list_price,
735 p_in_price_attr_tbl => l_Price_Attr_tbl,
736 x_return_status => lx_return_status,
737 x_msg_count => lx_msg_count,
738 x_msg_data => lx_msg_data );
739 x_return_status := lx_return_status;
740 x_msg_data := lx_msg_data;
741 x_msg_count := lx_msg_count;
742
743 IF (lx_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
744 FND_MESSAGE.Set_Name('CS', 'CS_API_CHG_ERR_PRE_CUST_USR_HK');
745 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
746 FND_MSG_PUB.Add;
747 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
748 END IF;
749 END IF;
750 /* End Bug7219268 */
751
752 --DBMS_Output.Put_Line('Calling Pricing API. Price List='|| to_char(p_price_list_id));
753 IF x_list_price is NULL THEN
754 -- Call the pricing API.
755 ASO_PRICING_INT.Pricing_Item(
756 p_api_version_number => 1.0,
757 p_init_msg_list => P_Init_Msg_List,
758 p_commit => P_Commit,
759 p_control_rec => l_control_rec,
760 p_qte_header_rec => l_qte_header_rec,
761 p_hd_shipment_rec => l_hd_shipment_rec,
762 p_hd_price_attr_tbl => l_hd_price_attr_tbl,
763 p_qte_line_rec => l_qte_line_rec,
764 p_qte_line_dtl_rec => l_qte_line_dtl_rec,
765 p_ln_shipment_rec => l_ln_shipment_rec,
766 p_ln_price_attr_tbl => l_price_attr_tbl,
767 x_qte_line_tbl => lx_qte_out_line_tbl,
768 x_qte_line_dtl_tbl => lx_qte_line_dtl_tbl,
769 x_price_adj_tbl => lx_price_adj_tbl,
770 x_price_adj_attr_tbl => lx_price_adj_attr_tbl,
771 x_price_adj_rltship_tbl => lx_price_adj_rltship_tbl,
772 x_return_status => lx_return_status,
773 x_msg_data => lx_msg_data,
774 x_msg_count => lx_msg_count);
775
776 x_return_status := lx_return_status;
777 x_msg_data := lx_msg_data;
778 x_msg_count := lx_msg_count;
779
780 -- Check Return Status - Refer ASOIPRCB.pls for details
781 IF lx_return_status = FND_API.G_RET_STS_SUCCESS THEN
782
783 FOR i IN 1..lx_qte_out_line_tbl.count LOOP
784
785 -- IF lx_qte_out_line_tbl(i).Inventory_Item_id = p_inventory_item_id then
786 x_list_price := lx_qte_out_line_tbl(i).Line_List_Price;
787
788 --dbms_output.put_line('item_id => '|| to_char(lx_qte_out_line_tbl(i).inventory_item_id));
789 -- dbms_output.put_line('list_price => '|| to_char(lx_qte_out_line_tbl(i).line_list_price));
790
791 END LOOP;
792
793 ELSE
794 --FND_MESSAGE.Set_Name('CS', 'CS_CHG_API_ASO_PRICING_ERROR');
795 --FND_MESSAGE.SET_TOKEN('TEXT', x_msg_data);
796 --FND_MSG_PUB.Add;
797 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
798 END IF;
799 END IF;
800 EXCEPTION
801
802 WHEN e_pricing_warning THEN
803 FND_MESSAGE.Set_Encoded(x_msg_data);
804 app_exception.raise_exception;
805
806 WHEN OTHERS THEN
807 fnd_msg_pub.count_and_get(
808 p_count => x_msg_count
809 ,p_data => x_msg_data);
810 x_return_status := FND_API.G_RET_STS_ERROR;
811
812 END Call_Pricing_Item;
813
814 END Cs_pricing_item_pkg;