[Home] [Help]
PACKAGE BODY: APPS.OE_OE_FORM_LINE_PATTR
Source
1 PACKAGE BODY OE_OE_Form_Line_PAttr AS
2 /* $Header: OEXFLPAB.pls 120.0.12010000.3 2009/06/23 11:10:42 amimukhe ship $ */
3
4
5 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_OE_Form_Line_PAttr';
6
7 g_Line_Price_Att_rec OE_Order_PUB.Line_Price_Att_Rec_Type
8 := OE_ORDER_PUB.G_MISS_LINE_PRICE_ATT_REC;
9 g_db_Line_Price_Att_rec OE_Order_PUB.Line_Price_Att_Rec_Type
10 := OE_ORDER_PUB.G_MISS_LINE_PRICE_ATT_REC;
11
12
13 /* Get Line Pricing Attr */
14 PROCEDURE Write_Order_Line_PAttr
15 ( p_Line_Price_Att_rec IN OE_Order_PUB.Line_Price_Att_Rec_Type
16 , p_db_record IN BOOLEAN := FALSE
17 );
18
19 PROCEDURE Get_Order_Line_PAttr
20 (
21 p_db_record IN BOOLEAN := FALSE
22 , p_order_price_attrib_id IN NUMBER
23 , x_Line_Price_Att_Rec IN OUT NOCOPY OE_Order_PUB.Line_Price_Att_Rec_Type
24 );
25
26 PROCEDURE Clear_Order_Line_Attr;
27
28
29 PROCEDURE Default_Attributes
30 ( x_return_status OUT NOCOPY VARCHAR2
31
32 , x_msg_count OUT NOCOPY NUMBER
33
34 , x_msg_data OUT NOCOPY VARCHAR2
35
36 , p_header_id in NUMBER
37 , p_line_id in NUMBER
38 , x_attribute1 OUT NOCOPY VARCHAR2
39
40 , x_attribute10 OUT NOCOPY VARCHAR2
41
42 , x_attribute11 OUT NOCOPY VARCHAR2
43
44 , x_attribute12 OUT NOCOPY VARCHAR2
45
46 , x_attribute13 OUT NOCOPY VARCHAR2
47
48 , x_attribute14 OUT NOCOPY VARCHAR2
49
50 , x_attribute15 OUT NOCOPY VARCHAR2
51
52 , x_attribute2 OUT NOCOPY VARCHAR2
53
54 , x_attribute3 OUT NOCOPY VARCHAR2
55
56 , x_attribute4 OUT NOCOPY VARCHAR2
57
58 , x_attribute5 OUT NOCOPY VARCHAR2
59
60 , x_attribute6 OUT NOCOPY VARCHAR2
61
62 , x_attribute7 OUT NOCOPY VARCHAR2
63
64 , x_attribute8 OUT NOCOPY VARCHAR2
65
66 , x_attribute9 OUT NOCOPY VARCHAR2
67
68 , x_flex_title OUT NOCOPY VARCHAR2
69
70 , x_context OUT NOCOPY VARCHAR2
71
72 , x_header_id OUT NOCOPY NUMBER
73
74 , x_line_id OUT NOCOPY NUMBER
75
76 , x_order_price_attrib_id OUT NOCOPY NUMBER
77
78 , x_pricing_attribute1 OUT NOCOPY VARCHAR2
79
80 , x_pricing_attribute2 OUT NOCOPY VARCHAR2
81
82 , x_pricing_attribute3 OUT NOCOPY VARCHAR2
83
84 , x_pricing_context OUT NOCOPY VARCHAR2
85
86 , x_override_flag OUT NOCOPY VARCHAR2
87
88 , x_creation_date OUT NOCOPY DATE
89
90 ) Is
91
92 l_Line_Price_Att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
93 l_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
94 l_control_rec OE_GLOBALS.Control_Rec_Type;
95 l_return_status VARCHAR2(1);
96 l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
97 l_x_header_rec OE_Order_PUB.Header_Rec_Type;
98 l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
99 l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
100 l_x_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
101 l_x_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
102 l_x_line_rec OE_Order_PUB.Line_Rec_Type;
103 l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
104 l_x_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
105 l_x_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
106 l_x_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
107 l_x_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
108 l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
109 l_x_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
110 l_x_Header_Price_Att_tbl OE_Order_PUB.Header_Price_Att_Tbl_Type;
111 l_x_Header_Adj_Att_tbl OE_Order_PUB.Header_Adj_Att_Tbl_Type;
112 l_x_Header_Adj_Assoc_tbl OE_Order_PUB.Header_Adj_Assoc_Tbl_Type;
113 l_x_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
114 l_x_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
115 l_x_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
116 l_x_old_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
117 l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
118 l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
119
120 --
121 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
122 --
123 BEGIN
124
125 IF l_debug_level > 0 THEN
126 oe_debug_pub.add( 'ENERING OE_OE_FORM_LINE_PATTR.DEFAULT_ATTRIBUTE.' , 1 ) ;
127 END IF;
128 -- Set the UI flag
129 OE_GLOBALS.G_UI_FLAG := TRUE;
130
131 -- Set Control Flags
132 l_control_rec.controlled_operation := TRUE;
133 l_control_rec.check_security := TRUE;
134 l_control_rec.default_attributes := TRUE;
135 l_control_rec.change_attributes := TRUE;
136
137 l_control_rec.clear_dependents := FALSE;
138 l_control_rec.validate_entity := FALSE;
139 l_control_rec.write_to_DB := FALSE;
140 l_control_rec.process := FALSE;
141
142 -- Instruct API to retain its caches
143 l_control_rec.clear_api_cache := FALSE;
144 l_control_rec.clear_api_requests := FALSE;
145 -----------------------------------------------
146 -- Set attributes to NULL
147 -----------------------------------------------
148
149 l_x_old_line_price_att_rec := OE_ORDER_PUB.G_MISS_LINE_PRICE_ATT_REC;
150 l_x_line_price_att_rec := OE_ORDER_PUB.G_MISS_LINE_PRICE_ATT_REC;
151 IF l_debug_level > 0 THEN
152 oe_debug_pub.add( ' BEFORE SETTING THINGS TO NULL: OE_ORDER_ADJ_PVT.LINE_PRICE_ATTS' ) ;
153 END IF;
154 l_x_Line_Price_Att_Rec.header_id := p_header_id;
155 l_x_Line_Price_Att_Rec.Line_id := p_Line_id;
156 l_x_Line_Price_Att_Rec.context := NULL;
157 l_x_Line_Price_Att_Rec.attribute1 := NULL;
158 l_x_Line_Price_Att_Rec.attribute2 := NULL;
159 l_x_Line_Price_Att_Rec.attribute3 := NULL;
160 l_x_Line_Price_Att_Rec.attribute4 := NULL;
161 l_x_Line_Price_Att_Rec.attribute5 := NULL;
162 l_x_Line_Price_Att_Rec.attribute6 := NULL;
163 l_x_Line_Price_Att_Rec.attribute7 := NULL;
164 l_x_Line_Price_Att_Rec.attribute8 := NULL;
165 l_x_Line_Price_Att_Rec.attribute9 := NULL;
166 l_x_Line_Price_Att_Rec.attribute10 := NULL;
167 l_x_Line_Price_Att_Rec.attribute11 := NULL;
168 l_x_Line_Price_Att_Rec.attribute12 := NULL;
169 l_x_Line_Price_Att_Rec.attribute13 := NULL;
170 l_x_Line_Price_Att_Rec.attribute14 := NULL;
171 l_x_Line_Price_Att_Rec.attribute15 := NULL;
172 l_x_Line_Price_Att_Rec.pricing_context := NULL;
173 l_x_Line_Price_Att_Rec.Pricing_Attribute1 := NULL;
174 l_x_Line_Price_Att_Rec.Pricing_Attribute2 := NULL;
175 l_x_Line_Price_Att_Rec.Pricing_Attribute3 := NULL;
176 l_x_Line_Price_Att_Rec.override_flag := NULL;
177
178
179 -- Set Operation to Create
180 l_x_Line_Price_Att_Rec.operation := OE_GLOBALS.G_OPR_CREATE;
181
182 l_x_Line_Price_Att_Tbl(1) := l_x_Line_Price_Att_Rec;
183 IF l_debug_level > 0 THEN
184 oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_ADJ_PVT.LINE_PRICE_ATTS' ) ;
185 END IF;
186 -- Call Oe_Order_Adj_Pvt.Line_Price_Atts
187 oe_order_adj_pvt.Line_Price_Atts
188 ( p_init_msg_list => FND_API.G_TRUE
189 , p_validation_level => FND_API.G_VALID_LEVEL_NONE
190 , p_control_rec => l_control_rec
191 , p_x_line_price_att_tbl => l_x_Line_price_att_tbl
192 , p_x_old_line_price_att_tbl => l_x_old_Line_price_att_tbl
193 );
194 IF l_debug_level > 0 THEN
195 oe_debug_pub.add( 'AFTER CALLING OE_ORDER_ADJ_PVT.LINE_PRICE_ATTS' ) ;
196 END IF;
197 l_x_Line_Price_Att_Rec := l_x_Line_Price_Att_tbl(1);
198
199 IF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
200 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201 ELSIF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_ERROR THEN
202 RAISE FND_API.G_EXC_ERROR;
203 END IF;
204
205
206 -- Load out parameters
207
208 x_attribute1 := l_x_Line_Price_Att_Rec.attribute1;
209 x_attribute10 := l_x_Line_Price_Att_Rec.attribute10;
210 x_attribute11 := l_x_Line_Price_Att_Rec.attribute11;
211 x_attribute12 := l_x_Line_Price_Att_Rec.attribute12;
212 x_attribute13 := l_x_Line_Price_Att_Rec.attribute13;
213 x_attribute14 := l_x_Line_Price_Att_Rec.attribute14;
214 x_attribute15 := l_x_Line_Price_Att_Rec.attribute15;
215 x_attribute2 := l_x_Line_Price_Att_Rec.attribute2;
216 x_attribute3 := l_x_Line_Price_Att_Rec.attribute3;
217 x_attribute4 := l_x_Line_Price_Att_Rec.attribute4;
218 x_attribute5 := l_x_Line_Price_Att_Rec.attribute5;
219 x_attribute6 := l_x_Line_Price_Att_Rec.attribute6;
220 x_attribute7 := l_x_Line_Price_Att_Rec.attribute7;
221 x_attribute8 := l_x_Line_Price_Att_Rec.attribute8;
222 x_attribute9 := l_x_Line_Price_Att_Rec.attribute9;
223 x_context := l_x_Line_Price_Att_Rec.context;
224 x_flex_title := l_x_Line_Price_Att_Rec.flex_title;
225 x_header_id := l_x_Line_Price_Att_Rec.header_id;
226 x_line_id := l_x_Line_Price_Att_Rec.line_id;
227 x_order_price_attrib_id := l_x_Line_Price_Att_Rec.order_price_attrib_id;
228 x_pricing_attribute1 := l_x_Line_Price_Att_Rec.pricing_attribute1;
229 x_pricing_attribute2 := l_x_Line_Price_Att_Rec.pricing_attribute2;
230 x_pricing_attribute3 := l_x_Line_Price_Att_Rec.pricing_attribute3;
231 x_pricing_context := l_x_Line_Price_Att_Rec.pricing_context;
232 x_override_flag := l_x_Line_Price_Att_Rec.override_flag;
233
234
235 l_x_Line_Price_Att_Rec.db_flag := FND_API.G_FALSE;
236
237 IF l_debug_level > 0 THEN
238 oe_debug_pub.add( 'WRITING PATTRIBUTE TO CACHE' ) ;
239 END IF;
240 Write_Order_Line_PAttr (
241 p_Line_Price_Att_rec => l_x_Line_Price_Att_Rec
242 );
243
244 -- Re-set the UI flag to FALSE
245 OE_GLOBALS.G_UI_FLAG := FALSE;
246
247 -- Set return status.
248 x_return_status := FND_API.G_RET_STS_SUCCESS;
249
250
251 -- Get message count and data
252 OE_MSG_PUB.Count_And_Get
253 ( p_count => x_msg_count
254 , p_data => x_msg_data
255 );
256
257 IF l_debug_level > 0 THEN
258 oe_debug_pub.add( 'LEAVING DEFAULT ATTRIBUTE' ) ;
259 END IF;
260 EXCEPTION
261 WHEN FND_API.G_EXC_ERROR THEN
262
263 OE_GLOBALS.G_UI_FLAG := FALSE;
264 x_return_status := FND_API.G_RET_STS_ERROR;
265
266 -- Get message count and data
267
268 OE_MSG_PUB.Count_And_Get
269 ( p_count => x_msg_count
270 , p_data => x_msg_data
271 );
272
273 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
274
275 OE_GLOBALS.G_UI_FLAG := FALSE;
276
277 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
278
279 -- Get message count and data
280
281 OE_MSG_PUB.Count_And_Get
282 ( p_count => x_msg_count
283 , p_data => x_msg_data
284 );
285
286 WHEN OTHERS THEN
287
288 OE_GLOBALS.G_UI_FLAG := FALSE;
289
290 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
291
292 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
293 THEN
294 OE_MSG_PUB.Add_Exc_Msg
295 ( G_PKG_NAME
296 , 'Default_Attributes'
297 );
298 END IF;
299
300
301
302 -- Get message count and data
303
304 OE_MSG_PUB.Count_And_Get
305 ( p_count => x_msg_count
306 , p_data => x_msg_data
307 );
308
309 END Default_Attributes;
310
311 PROCEDURE Default_Attributes
312 ( x_return_status OUT NOCOPY VARCHAR2
313
314 , x_msg_count OUT NOCOPY NUMBER
315
316 , x_msg_data OUT NOCOPY VARCHAR2
317
318 , p_header_id in NUMBER
319 , p_line_id in NUMBER
320 , x_attribute1 OUT NOCOPY VARCHAR2
321
322 , x_attribute10 OUT NOCOPY VARCHAR2
323
324 , x_attribute11 OUT NOCOPY VARCHAR2
325
326 , x_attribute12 OUT NOCOPY VARCHAR2
327
328 , x_attribute13 OUT NOCOPY VARCHAR2
329
330 , x_attribute14 OUT NOCOPY VARCHAR2
331
332 , x_attribute15 OUT NOCOPY VARCHAR2
333
334 , x_attribute2 OUT NOCOPY VARCHAR2
335
336 , x_attribute3 OUT NOCOPY VARCHAR2
337
338 , x_attribute4 OUT NOCOPY VARCHAR2
339
340 , x_attribute5 OUT NOCOPY VARCHAR2
341
342 , x_attribute6 OUT NOCOPY VARCHAR2
343
344 , x_attribute7 OUT NOCOPY VARCHAR2
345
346 , x_attribute8 OUT NOCOPY VARCHAR2
347
348 , x_attribute9 OUT NOCOPY VARCHAR2
349
350 , x_flex_title OUT NOCOPY VARCHAR2
351
352 , x_context OUT NOCOPY VARCHAR2
353
354 , x_header_id OUT NOCOPY NUMBER
355
356 , x_line_id OUT NOCOPY NUMBER
357
358 , x_order_price_attrib_id OUT NOCOPY NUMBER
359
360 , x_pricing_attribute1 OUT NOCOPY VARCHAR2
361
362 , x_pricing_attribute10 OUT NOCOPY VARCHAR2
363
364 , x_pricing_attribute11 OUT NOCOPY VARCHAR2
365
366 , x_pricing_attribute12 OUT NOCOPY VARCHAR2
367
368 , x_pricing_attribute13 OUT NOCOPY VARCHAR2
369
370 , x_pricing_attribute14 OUT NOCOPY VARCHAR2
371
372 , x_pricing_attribute15 OUT NOCOPY VARCHAR2
373
374 , x_pricing_attribute2 OUT NOCOPY VARCHAR2
375
376 , x_pricing_attribute3 OUT NOCOPY VARCHAR2
377
378 , x_pricing_attribute4 OUT NOCOPY VARCHAR2
379
380 , x_pricing_attribute5 OUT NOCOPY VARCHAR2
381
382 , x_pricing_attribute6 OUT NOCOPY VARCHAR2
383
384 , x_pricing_attribute7 OUT NOCOPY VARCHAR2
385
386 , x_pricing_attribute8 OUT NOCOPY VARCHAR2
387
388 , x_pricing_attribute9 OUT NOCOPY VARCHAR2
389
390 , x_pricing_attribute16 OUT NOCOPY VARCHAR2
391
392 , x_pricing_attribute17 OUT NOCOPY VARCHAR2
393
394 , x_pricing_attribute18 OUT NOCOPY VARCHAR2
395
396 , x_pricing_attribute19 OUT NOCOPY VARCHAR2
397
398 , x_pricing_attribute20 OUT NOCOPY VARCHAR2
399
400 , x_pricing_attribute21 OUT NOCOPY VARCHAR2
401
402 , x_pricing_attribute22 OUT NOCOPY VARCHAR2
403
404 , x_pricing_attribute23 OUT NOCOPY VARCHAR2
405
406 , x_pricing_attribute24 OUT NOCOPY VARCHAR2
407
408 , x_pricing_attribute25 OUT NOCOPY VARCHAR2
409
410 , x_pricing_attribute26 OUT NOCOPY VARCHAR2
411
412 , x_pricing_attribute27 OUT NOCOPY VARCHAR2
413
414 , x_pricing_attribute28 OUT NOCOPY VARCHAR2
415
416 , x_pricing_attribute29 OUT NOCOPY VARCHAR2
417
418 , x_pricing_attribute30 OUT NOCOPY VARCHAR2
419
420 , x_pricing_attribute31 OUT NOCOPY VARCHAR2
421
422 , x_pricing_attribute32 OUT NOCOPY VARCHAR2
423
424 , x_pricing_attribute33 OUT NOCOPY VARCHAR2
425
426 , x_pricing_attribute34 OUT NOCOPY VARCHAR2
427
428 , x_pricing_attribute35 OUT NOCOPY VARCHAR2
429
430 , x_pricing_attribute36 OUT NOCOPY VARCHAR2
431
432 , x_pricing_attribute37 OUT NOCOPY VARCHAR2
433
434 , x_pricing_attribute38 OUT NOCOPY VARCHAR2
435
436 , x_pricing_attribute39 OUT NOCOPY VARCHAR2
437
438 , x_pricing_attribute40 OUT NOCOPY VARCHAR2
439
440 , x_pricing_attribute41 OUT NOCOPY VARCHAR2
441
442 , x_pricing_attribute42 OUT NOCOPY VARCHAR2
443
444 , x_pricing_attribute43 OUT NOCOPY VARCHAR2
445
446 , x_pricing_attribute44 OUT NOCOPY VARCHAR2
447
448 , x_pricing_attribute45 OUT NOCOPY VARCHAR2
449
450 , x_pricing_attribute46 OUT NOCOPY VARCHAR2
451
452 , x_pricing_attribute47 OUT NOCOPY VARCHAR2
453
454 , x_pricing_attribute48 OUT NOCOPY VARCHAR2
455
456 , x_pricing_attribute49 OUT NOCOPY VARCHAR2
457
458 , x_pricing_attribute50 OUT NOCOPY VARCHAR2
459
460 , x_pricing_attribute51 OUT NOCOPY VARCHAR2
461
462 , x_pricing_attribute52 OUT NOCOPY VARCHAR2
463
464 , x_pricing_attribute53 OUT NOCOPY VARCHAR2
465
466 , x_pricing_attribute54 OUT NOCOPY VARCHAR2
467
468 , x_pricing_attribute55 OUT NOCOPY VARCHAR2
469
470 , x_pricing_attribute56 OUT NOCOPY VARCHAR2
471
472 , x_pricing_attribute57 OUT NOCOPY VARCHAR2
473
474 , x_pricing_attribute58 OUT NOCOPY VARCHAR2
475
476 , x_pricing_attribute59 OUT NOCOPY VARCHAR2
477
478 , x_pricing_attribute60 OUT NOCOPY VARCHAR2
479
480 , x_pricing_attribute61 OUT NOCOPY VARCHAR2
481
482 , x_pricing_attribute62 OUT NOCOPY VARCHAR2
483
484 , x_pricing_attribute63 OUT NOCOPY VARCHAR2
485
486 , x_pricing_attribute64 OUT NOCOPY VARCHAR2
487
488 , x_pricing_attribute65 OUT NOCOPY VARCHAR2
489
490 , x_pricing_attribute66 OUT NOCOPY VARCHAR2
491
492 , x_pricing_attribute67 OUT NOCOPY VARCHAR2
493
494 , x_pricing_attribute68 OUT NOCOPY VARCHAR2
495
496 , x_pricing_attribute69 OUT NOCOPY VARCHAR2
497
498 , x_pricing_attribute70 OUT NOCOPY VARCHAR2
499
500 , x_pricing_attribute71 OUT NOCOPY VARCHAR2
501
502 , x_pricing_attribute72 OUT NOCOPY VARCHAR2
503
504 , x_pricing_attribute73 OUT NOCOPY VARCHAR2
505
506 , x_pricing_attribute74 OUT NOCOPY VARCHAR2
507
508 , x_pricing_attribute75 OUT NOCOPY VARCHAR2
509
510 , x_pricing_attribute76 OUT NOCOPY VARCHAR2
511
512 , x_pricing_attribute77 OUT NOCOPY VARCHAR2
513
514 , x_pricing_attribute78 OUT NOCOPY VARCHAR2
515
516 , x_pricing_attribute79 OUT NOCOPY VARCHAR2
517
518 , x_pricing_attribute80 OUT NOCOPY VARCHAR2
519
520 , x_pricing_attribute81 OUT NOCOPY VARCHAR2
521
522 , x_pricing_attribute82 OUT NOCOPY VARCHAR2
523
524 , x_pricing_attribute83 OUT NOCOPY VARCHAR2
525
526 , x_pricing_attribute84 OUT NOCOPY VARCHAR2
527
528 , x_pricing_attribute85 OUT NOCOPY VARCHAR2
529
530 , x_pricing_attribute86 OUT NOCOPY VARCHAR2
531
532 , x_pricing_attribute87 OUT NOCOPY VARCHAR2
533
534 , x_pricing_attribute88 OUT NOCOPY VARCHAR2
535
536 , x_pricing_attribute89 OUT NOCOPY VARCHAR2
537
538 , x_pricing_attribute90 OUT NOCOPY VARCHAR2
539
540 , x_pricing_attribute91 OUT NOCOPY VARCHAR2
541
542 , x_pricing_attribute92 OUT NOCOPY VARCHAR2
543
544 , x_pricing_attribute93 OUT NOCOPY VARCHAR2
545
546 , x_pricing_attribute94 OUT NOCOPY VARCHAR2
547
548 , x_pricing_attribute95 OUT NOCOPY VARCHAR2
549
550 , x_pricing_attribute96 OUT NOCOPY VARCHAR2
551
552 , x_pricing_attribute97 OUT NOCOPY VARCHAR2
553
554 , x_pricing_attribute98 OUT NOCOPY VARCHAR2
555
556 , x_pricing_attribute99 OUT NOCOPY VARCHAR2
557
558 , x_pricing_attribute100 OUT NOCOPY VARCHAR2
559
560 , x_pricing_context OUT NOCOPY VARCHAR2
561
562 , x_override_flag OUT NOCOPY VARCHAR2
563
564 , x_creation_date OUT NOCOPY DATE
565
566 )
567 IS
568 l_Line_Price_Att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
569 l_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
570
571 l_control_rec OE_GLOBALS.Control_Rec_Type;
572 l_return_status VARCHAR2(1);
573 l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
574 l_x_header_rec OE_Order_PUB.Header_Rec_Type;
575 l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
576 l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
577 l_x_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
578 l_x_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
579 l_x_line_rec OE_Order_PUB.Line_Rec_Type;
580 l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
581 l_x_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
582 l_x_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
583 l_x_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
584 l_x_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
585 l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
586 l_x_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
587 l_x_Header_Price_Att_tbl OE_Order_PUB.Header_Price_Att_Tbl_Type;
588 l_x_Header_Adj_Att_tbl OE_Order_PUB.Header_Adj_Att_Tbl_Type;
589 l_x_Header_Adj_Assoc_tbl OE_Order_PUB.Header_Adj_Assoc_Tbl_Type;
590 l_x_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
591 l_x_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
592 l_x_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
593 l_x_old_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
594 l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
595 l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
596
597 --
598 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
599 --
600 BEGIN
601
602 IF l_debug_level > 0 THEN
603 oe_debug_pub.add( 'ENERING OE_OE_FORM_LINE_PATTR.DEFAULT_ATTRIBUTE.' , 1 ) ;
604 END IF;
605 -- Set the UI flag
606 OE_GLOBALS.G_UI_FLAG := TRUE;
607
608 -- Set Control Flags
609 l_control_rec.controlled_operation := TRUE;
610 l_control_rec.check_security := TRUE;
611 l_control_rec.default_attributes := TRUE;
612 l_control_rec.change_attributes := TRUE;
613
614 l_control_rec.clear_dependents := FALSE;
615 l_control_rec.validate_entity := FALSE;
616 l_control_rec.write_to_DB := FALSE;
617 l_control_rec.process := FALSE;
618
619 -- Instruct API to retain its caches
620 l_control_rec.clear_api_cache := FALSE;
621 l_control_rec.clear_api_requests := FALSE;
622 -----------------------------------------------
623 -- Set attributes to NULL
624 -----------------------------------------------
625
626 l_x_old_line_price_att_rec := OE_ORDER_PUB.G_MISS_LINE_PRICE_ATT_REC;
627 l_x_line_price_att_rec := OE_ORDER_PUB.G_MISS_LINE_PRICE_ATT_REC;
628 IF l_debug_level > 0 THEN
629 oe_debug_pub.add( ' BEFORE SETTING THINGS TO NULL: OE_ORDER_ADJ_PVT.LINE_PRICE_ATTS' ) ;
630 END IF;
631 l_x_Line_Price_Att_Rec.header_id := p_header_id;
632 l_x_Line_Price_Att_Rec.Line_id := p_Line_id;
633 l_x_Line_Price_Att_Rec.context := NULL;
634 l_x_Line_Price_Att_Rec.attribute1 := NULL;
635 l_x_Line_Price_Att_Rec.attribute2 := NULL;
636 l_x_Line_Price_Att_Rec.attribute3 := NULL;
637 l_x_Line_Price_Att_Rec.attribute4 := NULL;
638 l_x_Line_Price_Att_Rec.attribute5 := NULL;
639 l_x_Line_Price_Att_Rec.attribute6 := NULL;
640 l_x_Line_Price_Att_Rec.attribute7 := NULL;
641 l_x_Line_Price_Att_Rec.attribute8 := NULL;
642 l_x_Line_Price_Att_Rec.attribute9 := NULL;
643 l_x_Line_Price_Att_Rec.attribute10 := NULL;
644 l_x_Line_Price_Att_Rec.attribute11 := NULL;
645 l_x_Line_Price_Att_Rec.attribute12 := NULL;
646 l_x_Line_Price_Att_Rec.attribute13 := NULL;
647 l_x_Line_Price_Att_Rec.attribute14 := NULL;
648 l_x_Line_Price_Att_Rec.attribute15 := NULL;
649 l_x_Line_Price_Att_Rec.pricing_context := NULL;
650 l_x_Line_Price_Att_Rec.Pricing_Attribute1 := NULL;
651 l_x_Line_Price_Att_Rec.Pricing_Attribute2 := NULL;
652 l_x_Line_Price_Att_Rec.Pricing_Attribute3 := NULL;
653 l_x_Line_Price_Att_Rec.Pricing_Attribute4 := NULL;
654 l_x_Line_Price_Att_Rec.Pricing_Attribute5 := NULL;
655 l_x_Line_Price_Att_Rec.Pricing_Attribute6 := NULL;
656 l_x_Line_Price_Att_Rec.Pricing_Attribute7 := NULL;
657 l_x_Line_Price_Att_Rec.Pricing_Attribute8 := NULL;
658 l_x_Line_Price_Att_Rec.Pricing_Attribute9 := NULL;
659 l_x_Line_Price_Att_Rec.Pricing_Attribute10 := NULL;
660 l_x_Line_Price_Att_Rec.Pricing_Attribute11 := NULL;
661 l_x_Line_Price_Att_Rec.Pricing_Attribute12 := NULL;
662 l_x_Line_Price_Att_Rec.Pricing_Attribute13 := NULL;
663 l_x_Line_Price_Att_Rec.Pricing_Attribute14 := NULL;
664 l_x_Line_Price_Att_Rec.Pricing_Attribute15 := NULL;
665 l_x_Line_Price_Att_Rec.pricing_attribute16 := NULL;
666 l_x_Line_Price_Att_Rec.pricing_attribute17 := NULL;
667 l_x_Line_Price_Att_Rec.pricing_attribute18 := NULL;
668 l_x_Line_Price_Att_Rec.pricing_attribute19 := NULL;
669 l_x_Line_Price_Att_Rec.pricing_attribute20 := NULL;
670 l_x_Line_Price_Att_Rec.pricing_attribute21 := NULL;
671 l_x_Line_Price_Att_Rec.pricing_attribute22 := NULL;
672 l_x_Line_Price_Att_Rec.pricing_attribute23 := NULL;
673 l_x_Line_Price_Att_Rec.pricing_attribute24 := NULL;
674 l_x_Line_Price_Att_Rec.pricing_attribute25 := NULL;
675 l_x_Line_Price_Att_Rec.pricing_attribute26 := NULL;
676 l_x_Line_Price_Att_Rec.pricing_attribute27 := NULL;
677 l_x_Line_Price_Att_Rec.pricing_attribute28 := NULL;
678 l_x_Line_Price_Att_Rec.pricing_attribute29 := NULL;
679 l_x_Line_Price_Att_Rec.pricing_attribute30 := NULL;
680 l_x_Line_Price_Att_Rec.pricing_attribute31 := NULL;
681 l_x_Line_Price_Att_Rec.pricing_attribute32 := NULL;
682 l_x_Line_Price_Att_Rec.pricing_attribute33 := NULL;
683 l_x_Line_Price_Att_Rec.pricing_attribute34 := NULL;
684 l_x_Line_Price_Att_Rec.pricing_attribute35 := NULL;
685 l_x_Line_Price_Att_Rec.pricing_attribute36 := NULL;
686 l_x_Line_Price_Att_Rec.pricing_attribute37 := NULL;
687 l_x_Line_Price_Att_Rec.pricing_attribute38 := NULL;
688 l_x_Line_Price_Att_Rec.pricing_attribute39 := NULL;
689 l_x_Line_Price_Att_Rec.pricing_attribute40 := NULL;
690 l_x_Line_Price_Att_Rec.pricing_attribute41 := NULL;
691 l_x_Line_Price_Att_Rec.pricing_attribute42 := NULL;
692 l_x_Line_Price_Att_Rec.pricing_attribute43 := NULL;
693 l_x_Line_Price_Att_Rec.pricing_attribute44 := NULL;
694 l_x_Line_Price_Att_Rec.pricing_attribute45 := NULL;
695 l_x_Line_Price_Att_Rec.pricing_attribute46 := NULL;
696 l_x_Line_Price_Att_Rec.pricing_attribute47 := NULL;
697 l_x_Line_Price_Att_Rec.pricing_attribute48 := NULL;
698 l_x_Line_Price_Att_Rec.pricing_attribute49 := NULL;
699 l_x_Line_Price_Att_Rec.pricing_attribute50 := NULL;
700 l_x_Line_Price_Att_Rec.pricing_attribute51 := NULL;
701 l_x_Line_Price_Att_Rec.pricing_attribute52 := NULL;
702 l_x_Line_Price_Att_Rec.pricing_attribute53 := NULL;
703 l_x_Line_Price_Att_Rec.pricing_attribute54 := NULL;
704 l_x_Line_Price_Att_Rec.pricing_attribute55 := NULL;
705 l_x_Line_Price_Att_Rec.pricing_attribute56 := NULL;
706 l_x_Line_Price_Att_Rec.pricing_attribute57 := NULL;
707 l_x_Line_Price_Att_Rec.pricing_attribute58 := NULL;
708 l_x_Line_Price_Att_Rec.pricing_attribute59 := NULL;
709 l_x_Line_Price_Att_Rec.pricing_attribute60 := NULL;
710 l_x_Line_Price_Att_Rec.pricing_attribute61 := NULL;
711 l_x_Line_Price_Att_Rec.pricing_attribute62 := NULL;
712 l_x_Line_Price_Att_Rec.pricing_attribute63 := NULL;
713 l_x_Line_Price_Att_Rec.pricing_attribute64 := NULL;
714 l_x_Line_Price_Att_Rec.pricing_attribute65 := NULL;
715 l_x_Line_Price_Att_Rec.pricing_attribute66 := NULL;
716 l_x_Line_Price_Att_Rec.pricing_attribute67 := NULL;
717 l_x_Line_Price_Att_Rec.pricing_attribute68 := NULL;
718 l_x_Line_Price_Att_Rec.pricing_attribute69 := NULL;
719 l_x_Line_Price_Att_Rec.pricing_attribute70 := NULL;
720 l_x_Line_Price_Att_Rec.pricing_attribute71 := NULL;
721 l_x_Line_Price_Att_Rec.pricing_attribute72 := NULL;
722 l_x_Line_Price_Att_Rec.pricing_attribute73 := NULL;
723 l_x_Line_Price_Att_Rec.pricing_attribute74 := NULL;
724 l_x_Line_Price_Att_Rec.pricing_attribute75 := NULL;
725 l_x_Line_Price_Att_Rec.pricing_attribute76 := NULL;
726 l_x_Line_Price_Att_Rec.pricing_attribute77 := NULL;
727 l_x_Line_Price_Att_Rec.pricing_attribute78 := NULL;
728 l_x_Line_Price_Att_Rec.pricing_attribute79 := NULL;
729 l_x_Line_Price_Att_Rec.pricing_attribute80 := NULL;
730 l_x_Line_Price_Att_Rec.pricing_attribute81 := NULL;
731 l_x_Line_Price_Att_Rec.pricing_attribute82 := NULL;
732 l_x_Line_Price_Att_Rec.pricing_attribute83 := NULL;
733 l_x_Line_Price_Att_Rec.pricing_attribute84 := NULL;
734 l_x_Line_Price_Att_Rec.pricing_attribute85 := NULL;
735 l_x_Line_Price_Att_Rec.pricing_attribute86 := NULL;
736 l_x_Line_Price_Att_Rec.pricing_attribute87 := NULL;
737 l_x_Line_Price_Att_Rec.pricing_attribute88 := NULL;
738 l_x_Line_Price_Att_Rec.pricing_attribute89 := NULL;
739 l_x_Line_Price_Att_Rec.pricing_attribute90 := NULL;
740 l_x_Line_Price_Att_Rec.pricing_attribute91 := NULL;
741 l_x_Line_Price_Att_Rec.pricing_attribute92 := NULL;
742 l_x_Line_Price_Att_Rec.pricing_attribute93 := NULL;
743 l_x_Line_Price_Att_Rec.pricing_attribute94 := NULL;
744 l_x_Line_Price_Att_Rec.pricing_attribute95 := NULL;
745 l_x_Line_Price_Att_Rec.pricing_attribute96 := NULL;
746 l_x_Line_Price_Att_Rec.pricing_attribute97 := NULL;
747 l_x_Line_Price_Att_Rec.pricing_attribute98 := NULL;
748 l_x_Line_Price_Att_Rec.pricing_attribute99 := NULL;
749 l_x_Line_Price_Att_Rec.pricing_attribute100 := NULL;
750 l_x_Line_Price_Att_Rec.override_flag := NULL;
751
752
753 -- Set Operation to Create
754 l_x_Line_Price_Att_Rec.operation := OE_GLOBALS.G_OPR_CREATE;
755
756 l_x_Line_Price_Att_Tbl(1) := l_x_Line_Price_Att_Rec;
757 IF l_debug_level > 0 THEN
758 oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_ADJ_PVT.LINE_PRICE_ATTS' ) ;
759 END IF;
760 -- Call Oe_Order_Adj_Pvt.Line_Price_Atts
761 oe_order_adj_pvt.Line_Price_Atts
762 ( p_init_msg_list => FND_API.G_TRUE
763 , p_validation_level => FND_API.G_VALID_LEVEL_NONE
764 , p_control_rec => l_control_rec
765 , p_x_line_price_att_tbl => l_x_Line_price_att_tbl
766 , p_x_old_line_price_att_tbl => l_x_old_Line_price_att_tbl
767 );
768 IF l_debug_level > 0 THEN
769 oe_debug_pub.add( 'AFTER CALLING OE_ORDER_ADJ_PVT.LINE_PRICE_ATTS' ) ;
770 END IF;
771 l_x_Line_Price_Att_Rec := l_x_Line_Price_Att_tbl(1);
772
773 IF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
774 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
775 ELSIF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_ERROR THEN
776 RAISE FND_API.G_EXC_ERROR;
777 END IF;
778
779
780 -- Load out parameters
781
782 x_attribute1 := l_x_Line_Price_Att_Rec.attribute1;
783 x_attribute10 := l_x_Line_Price_Att_Rec.attribute10;
784 x_attribute11 := l_x_Line_Price_Att_Rec.attribute11;
785 x_attribute12 := l_x_Line_Price_Att_Rec.attribute12;
786 x_attribute13 := l_x_Line_Price_Att_Rec.attribute13;
787 x_attribute14 := l_x_Line_Price_Att_Rec.attribute14;
788 x_attribute15 := l_x_Line_Price_Att_Rec.attribute15;
789 x_attribute2 := l_x_Line_Price_Att_Rec.attribute2;
790 x_attribute3 := l_x_Line_Price_Att_Rec.attribute3;
791 x_attribute4 := l_x_Line_Price_Att_Rec.attribute4;
792 x_attribute5 := l_x_Line_Price_Att_Rec.attribute5;
793 x_attribute6 := l_x_Line_Price_Att_Rec.attribute6;
794 x_attribute7 := l_x_Line_Price_Att_Rec.attribute7;
795 x_attribute8 := l_x_Line_Price_Att_Rec.attribute8;
796 x_attribute9 := l_x_Line_Price_Att_Rec.attribute9;
797 x_context := l_x_Line_Price_Att_Rec.context;
798 x_flex_title := l_x_Line_Price_Att_Rec.flex_title;
799 x_header_id := l_x_Line_Price_Att_Rec.header_id;
800 x_line_id := l_x_Line_Price_Att_Rec.line_id;
801 x_order_price_attrib_id := l_x_Line_Price_Att_Rec.order_price_attrib_id;
802 x_pricing_attribute1 := l_x_Line_Price_Att_Rec.pricing_attribute1;
803 x_pricing_attribute10 := l_x_Line_Price_Att_Rec.pricing_attribute10;
804 x_pricing_attribute100 := l_x_Line_Price_Att_Rec.pricing_attribute100;
805 x_pricing_attribute11 := l_x_Line_Price_Att_Rec.pricing_attribute11;
806 x_pricing_attribute12 := l_x_Line_Price_Att_Rec.pricing_attribute12;
807 x_pricing_attribute13 := l_x_Line_Price_Att_Rec.pricing_attribute13;
808 x_pricing_attribute14 := l_x_Line_Price_Att_Rec.pricing_attribute14;
809 x_pricing_attribute15 := l_x_Line_Price_Att_Rec.pricing_attribute15;
810 x_pricing_attribute16 := l_x_Line_Price_Att_Rec.pricing_attribute16;
811 x_pricing_attribute17 := l_x_Line_Price_Att_Rec.pricing_attribute17;
812 x_pricing_attribute18 := l_x_Line_Price_Att_Rec.pricing_attribute18;
813 x_pricing_attribute19 := l_x_Line_Price_Att_Rec.pricing_attribute19;
814 x_pricing_attribute2 := l_x_Line_Price_Att_Rec.pricing_attribute2;
815 x_pricing_attribute20 := l_x_Line_Price_Att_Rec.pricing_attribute20;
816 x_pricing_attribute21 := l_x_Line_Price_Att_Rec.pricing_attribute21;
817 x_pricing_attribute22 := l_x_Line_Price_Att_Rec.pricing_attribute22;
818 x_pricing_attribute23 := l_x_Line_Price_Att_Rec.pricing_attribute23;
819 x_pricing_attribute24 := l_x_Line_Price_Att_Rec.pricing_attribute24;
820 x_pricing_attribute25 := l_x_Line_Price_Att_Rec.pricing_attribute25;
821 x_pricing_attribute26 := l_x_Line_Price_Att_Rec.pricing_attribute26;
822 x_pricing_attribute27 := l_x_Line_Price_Att_Rec.pricing_attribute27;
823 x_pricing_attribute28 := l_x_Line_Price_Att_Rec.pricing_attribute28;
824 x_pricing_attribute29 := l_x_Line_Price_Att_Rec.pricing_attribute29;
825 x_pricing_attribute3 := l_x_Line_Price_Att_Rec.pricing_attribute3;
826 x_pricing_attribute30 := l_x_Line_Price_Att_Rec.pricing_attribute30;
827 x_pricing_attribute31 := l_x_Line_Price_Att_Rec.pricing_attribute31;
828 x_pricing_attribute32 := l_x_Line_Price_Att_Rec.pricing_attribute32;
829 x_pricing_attribute33 := l_x_Line_Price_Att_Rec.pricing_attribute33;
830 x_pricing_attribute34 := l_x_Line_Price_Att_Rec.pricing_attribute34;
831 x_pricing_attribute35 := l_x_Line_Price_Att_Rec.pricing_attribute35;
832 x_pricing_attribute36 := l_x_Line_Price_Att_Rec.pricing_attribute36;
833 x_pricing_attribute37 := l_x_Line_Price_Att_Rec.pricing_attribute37;
834 x_pricing_attribute38 := l_x_Line_Price_Att_Rec.pricing_attribute38;
835 x_pricing_attribute39 := l_x_Line_Price_Att_Rec.pricing_attribute39;
836 x_pricing_attribute4 := l_x_Line_Price_Att_Rec.pricing_attribute4;
837 x_pricing_attribute40 := l_x_Line_Price_Att_Rec.pricing_attribute40;
838 x_pricing_attribute41 := l_x_Line_Price_Att_Rec.pricing_attribute41;
839 x_pricing_attribute42 := l_x_Line_Price_Att_Rec.pricing_attribute42;
840 x_pricing_attribute43 := l_x_Line_Price_Att_Rec.pricing_attribute43;
841 x_pricing_attribute44 := l_x_Line_Price_Att_Rec.pricing_attribute44;
842 x_pricing_attribute45 := l_x_Line_Price_Att_Rec.pricing_attribute45;
843 x_pricing_attribute46 := l_x_Line_Price_Att_Rec.pricing_attribute46;
844 x_pricing_attribute47 := l_x_Line_Price_Att_Rec.pricing_attribute47;
845 x_pricing_attribute48 := l_x_Line_Price_Att_Rec.pricing_attribute48;
846 x_pricing_attribute49 := l_x_Line_Price_Att_Rec.pricing_attribute49;
847 x_pricing_attribute5 := l_x_Line_Price_Att_Rec.pricing_attribute5;
848 x_pricing_attribute50 := l_x_Line_Price_Att_Rec.pricing_attribute50;
849 x_pricing_attribute51 := l_x_Line_Price_Att_Rec.pricing_attribute51;
850 x_pricing_attribute52 := l_x_Line_Price_Att_Rec.pricing_attribute52;
851 x_pricing_attribute53 := l_x_Line_Price_Att_Rec.pricing_attribute53;
852 x_pricing_attribute54 := l_x_Line_Price_Att_Rec.pricing_attribute54;
853 x_pricing_attribute55 := l_x_Line_Price_Att_Rec.pricing_attribute55;
854 x_pricing_attribute56 := l_x_Line_Price_Att_Rec.pricing_attribute56;
855 x_pricing_attribute57 := l_x_Line_Price_Att_Rec.pricing_attribute57;
856 x_pricing_attribute58 := l_x_Line_Price_Att_Rec.pricing_attribute58;
857 x_pricing_attribute59 := l_x_Line_Price_Att_Rec.pricing_attribute59;
858 x_pricing_attribute6 := l_x_Line_Price_Att_Rec.pricing_attribute6;
859 x_pricing_attribute60 := l_x_Line_Price_Att_Rec.pricing_attribute60;
860 x_pricing_attribute61 := l_x_Line_Price_Att_Rec.pricing_attribute61;
861 x_pricing_attribute62 := l_x_Line_Price_Att_Rec.pricing_attribute62;
862 x_pricing_attribute63 := l_x_Line_Price_Att_Rec.pricing_attribute63;
863 x_pricing_attribute64 := l_x_Line_Price_Att_Rec.pricing_attribute64;
864 x_pricing_attribute65 := l_x_Line_Price_Att_Rec.pricing_attribute65;
865 x_pricing_attribute66 := l_x_Line_Price_Att_Rec.pricing_attribute66;
866 x_pricing_attribute67 := l_x_Line_Price_Att_Rec.pricing_attribute67;
867 x_pricing_attribute68 := l_x_Line_Price_Att_Rec.pricing_attribute68;
868 x_pricing_attribute69 := l_x_Line_Price_Att_Rec.pricing_attribute69;
869 x_pricing_attribute7 := l_x_Line_Price_Att_Rec.pricing_attribute7;
870 x_pricing_attribute70 := l_x_Line_Price_Att_Rec.pricing_attribute70;
871 x_pricing_attribute71 := l_x_Line_Price_Att_Rec.pricing_attribute71;
872 x_pricing_attribute72 := l_x_Line_Price_Att_Rec.pricing_attribute72;
873 x_pricing_attribute73 := l_x_Line_Price_Att_Rec.pricing_attribute73;
874 x_pricing_attribute74 := l_x_Line_Price_Att_Rec.pricing_attribute74;
875 x_pricing_attribute75 := l_x_Line_Price_Att_Rec.pricing_attribute75;
876 x_pricing_attribute76 := l_x_Line_Price_Att_Rec.pricing_attribute76;
877 x_pricing_attribute77 := l_x_Line_Price_Att_Rec.pricing_attribute77;
878 x_pricing_attribute78 := l_x_Line_Price_Att_Rec.pricing_attribute78;
879 x_pricing_attribute79 := l_x_Line_Price_Att_Rec.pricing_attribute79;
880 x_pricing_attribute8 := l_x_Line_Price_Att_Rec.pricing_attribute8;
881 x_pricing_attribute80 := l_x_Line_Price_Att_Rec.pricing_attribute80;
882 x_pricing_attribute81 := l_x_Line_Price_Att_Rec.pricing_attribute81;
883 x_pricing_attribute82 := l_x_Line_Price_Att_Rec.pricing_attribute82;
884 x_pricing_attribute83 := l_x_Line_Price_Att_Rec.pricing_attribute83;
885 x_pricing_attribute84 := l_x_Line_Price_Att_Rec.pricing_attribute84;
886 x_pricing_attribute85 := l_x_Line_Price_Att_Rec.pricing_attribute85;
887 x_pricing_attribute86 := l_x_Line_Price_Att_Rec.pricing_attribute86;
888 x_pricing_attribute87 := l_x_Line_Price_Att_Rec.pricing_attribute87;
889 x_pricing_attribute88 := l_x_Line_Price_Att_Rec.pricing_attribute88;
890 x_pricing_attribute89 := l_x_Line_Price_Att_Rec.pricing_attribute89;
891 x_pricing_attribute9 := l_x_Line_Price_Att_Rec.pricing_attribute9;
892 x_pricing_attribute90 := l_x_Line_Price_Att_Rec.pricing_attribute90;
893 x_pricing_attribute91 := l_x_Line_Price_Att_Rec.pricing_attribute91;
894 x_pricing_attribute92 := l_x_Line_Price_Att_Rec.pricing_attribute92;
895 x_pricing_attribute93 := l_x_Line_Price_Att_Rec.pricing_attribute93;
896 x_pricing_attribute94 := l_x_Line_Price_Att_Rec.pricing_attribute94;
897 x_pricing_attribute95 := l_x_Line_Price_Att_Rec.pricing_attribute95;
898 x_pricing_attribute96 := l_x_Line_Price_Att_Rec.pricing_attribute96;
899 x_pricing_attribute97 := l_x_Line_Price_Att_Rec.pricing_attribute97;
900 x_pricing_attribute98 := l_x_Line_Price_Att_Rec.pricing_attribute98;
901 x_pricing_attribute99 := l_x_Line_Price_Att_Rec.pricing_attribute99;
902 x_pricing_context := l_x_Line_Price_Att_Rec.pricing_context;
903 x_override_flag := l_x_Line_Price_Att_Rec.override_flag;
904
905
906 l_x_Line_Price_Att_Rec.db_flag := FND_API.G_FALSE;
907
908 IF l_debug_level > 0 THEN
909 oe_debug_pub.add( 'WRITING PATTRIBUTE TO CACHE' ) ;
910 END IF;
911 Write_Order_Line_PAttr (
912 p_Line_Price_Att_rec => l_x_Line_Price_Att_Rec
913 );
914
915 -- Re-set the UI flag to FALSE
916 OE_GLOBALS.G_UI_FLAG := FALSE;
917
918 -- Set return status.
919 x_return_status := FND_API.G_RET_STS_SUCCESS;
920
921
922 -- Get message count and data
923 OE_MSG_PUB.Count_And_Get
924 ( p_count => x_msg_count
925 , p_data => x_msg_data
926 );
927
928 IF l_debug_level > 0 THEN
929 oe_debug_pub.add( 'LEAVING DEFAULT ATTRIBUTE' ) ;
930 END IF;
931 EXCEPTION
932 WHEN FND_API.G_EXC_ERROR THEN
933
934 OE_GLOBALS.G_UI_FLAG := FALSE;
935 x_return_status := FND_API.G_RET_STS_ERROR;
936
937 -- Get message count and data
938
939 OE_MSG_PUB.Count_And_Get
940 ( p_count => x_msg_count
941 , p_data => x_msg_data
942 );
943
944 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
945
946 OE_GLOBALS.G_UI_FLAG := FALSE;
947
948 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
949
950 -- Get message count and data
951
952 OE_MSG_PUB.Count_And_Get
953 ( p_count => x_msg_count
954 , p_data => x_msg_data
955 );
956
957 WHEN OTHERS THEN
958
959 OE_GLOBALS.G_UI_FLAG := FALSE;
960
961 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
962
963 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
964 THEN
965 OE_MSG_PUB.Add_Exc_Msg
966 ( G_PKG_NAME
967 , 'Default_Attributes'
968 );
969 END IF;
970
971
972
973 -- Get message count and data
974
975 OE_MSG_PUB.Count_And_Get
976 ( p_count => x_msg_count
977 , p_data => x_msg_data
978 );
979
980 END Default_Attributes;
981
982
983 PROCEDURE Change_Attributes
984 ( x_return_status OUT NOCOPY VARCHAR2
985
986 , x_msg_count OUT NOCOPY NUMBER
987
988 , x_msg_data OUT NOCOPY VARCHAR2
989
990 , p_order_price_attrib_id IN NUMBER
991 , p_attr_id IN NUMBER
992 , p_context IN VARCHAR2
993 , p_attr_value IN VARCHAR2
994 , p_attribute1 IN VARCHAR2
995 , p_attribute2 IN VARCHAR2
996 , p_attribute3 IN VARCHAR2
997 , p_attribute4 IN VARCHAR2
998 , p_attribute5 IN VARCHAR2
999 , p_attribute6 IN VARCHAR2
1000 , p_attribute7 IN VARCHAR2
1001 , p_attribute8 IN VARCHAR2
1002 , p_attribute9 IN VARCHAR2
1003 , p_attribute10 IN VARCHAR2
1004 , p_attribute11 IN VARCHAR2
1005 , p_attribute12 IN VARCHAR2
1006 , p_attribute13 IN VARCHAR2
1007 , p_attribute14 IN VARCHAR2
1008 , p_attribute15 IN VARCHAR2
1009 , p_pricing_attribute1 IN VARCHAR2
1010 , p_pricing_attribute10 IN VARCHAR2
1011 , p_pricing_attribute11 IN VARCHAR2
1012 , p_pricing_attribute12 IN VARCHAR2
1013 , p_pricing_attribute13 IN VARCHAR2
1014 , p_pricing_attribute14 IN VARCHAR2
1015 , p_pricing_attribute15 IN VARCHAR2
1016 , p_pricing_attribute2 IN VARCHAR2
1017 , p_pricing_attribute3 IN VARCHAR2
1018 , p_pricing_attribute4 IN VARCHAR2
1019 , p_pricing_attribute5 IN VARCHAR2
1020 , p_pricing_attribute6 IN VARCHAR2
1021 , p_pricing_attribute7 IN VARCHAR2
1022 , p_pricing_attribute8 IN VARCHAR2
1023 , p_pricing_attribute9 IN VARCHAR2
1024 , p_pricing_attribute16 IN VARCHAR2
1025 , p_pricing_attribute17 IN VARCHAR2
1026 , p_pricing_attribute18 IN VARCHAR2
1027 , p_pricing_attribute19 IN VARCHAR2
1028 , p_pricing_attribute20 IN VARCHAR2
1029 , p_pricing_attribute21 IN VARCHAR2
1030 , p_pricing_attribute22 IN VARCHAR2
1031 , p_pricing_attribute23 IN VARCHAR2
1032 , p_pricing_attribute24 IN VARCHAR2
1033 , p_pricing_attribute25 IN VARCHAR2
1034 , p_pricing_attribute26 IN VARCHAR2
1035 , p_pricing_attribute27 IN VARCHAR2
1036 , p_pricing_attribute28 IN VARCHAR2
1037 , p_pricing_attribute29 IN VARCHAR2
1038 , p_pricing_attribute30 IN VARCHAR2
1039 , p_pricing_attribute31 IN VARCHAR2
1040 , p_pricing_attribute32 IN VARCHAR2
1041 , p_pricing_attribute33 IN VARCHAR2
1042 , p_pricing_attribute34 IN VARCHAR2
1043 , p_pricing_attribute35 IN VARCHAR2
1044 , p_pricing_attribute36 IN VARCHAR2
1045 , p_pricing_attribute37 IN VARCHAR2
1046 , p_pricing_attribute38 IN VARCHAR2
1047 , p_pricing_attribute39 IN VARCHAR2
1048 , p_pricing_attribute40 IN VARCHAR2
1049 , p_pricing_attribute41 IN VARCHAR2
1050 , p_pricing_attribute42 IN VARCHAR2
1051 , p_pricing_attribute43 IN VARCHAR2
1052 , p_pricing_attribute44 IN VARCHAR2
1053 , p_pricing_attribute45 IN VARCHAR2
1054 , p_pricing_attribute46 IN VARCHAR2
1055 , p_pricing_attribute47 IN VARCHAR2
1056 , p_pricing_attribute48 IN VARCHAR2
1057 , p_pricing_attribute49 IN VARCHAR2
1058 , p_pricing_attribute50 IN VARCHAR2
1059 , p_pricing_attribute51 IN VARCHAR2
1060 , p_pricing_attribute52 IN VARCHAR2
1061 , p_pricing_attribute53 IN VARCHAR2
1062 , p_pricing_attribute54 IN VARCHAR2
1063 , p_pricing_attribute55 IN VARCHAR2
1064 , p_pricing_attribute56 IN VARCHAR2
1065 , p_pricing_attribute57 IN VARCHAR2
1066 , p_pricing_attribute58 IN VARCHAR2
1067 , p_pricing_attribute59 IN VARCHAR2
1068 , p_pricing_attribute60 IN VARCHAR2
1069 , p_pricing_attribute61 IN VARCHAR2
1070 , p_pricing_attribute62 IN VARCHAR2
1071 , p_pricing_attribute63 IN VARCHAR2
1072 , p_pricing_attribute64 IN VARCHAR2
1073 , p_pricing_attribute65 IN VARCHAR2
1074 , p_pricing_attribute66 IN VARCHAR2
1075 , p_pricing_attribute67 IN VARCHAR2
1076 , p_pricing_attribute68 IN VARCHAR2
1077 , p_pricing_attribute69 IN VARCHAR2
1078 , p_pricing_attribute70 IN VARCHAR2
1079 , p_pricing_attribute71 IN VARCHAR2
1080 , p_pricing_attribute72 IN VARCHAR2
1081 , p_pricing_attribute73 IN VARCHAR2
1082 , p_pricing_attribute74 IN VARCHAR2
1083 , p_pricing_attribute75 IN VARCHAR2
1084 , p_pricing_attribute76 IN VARCHAR2
1085 , p_pricing_attribute77 IN VARCHAR2
1086 , p_pricing_attribute78 IN VARCHAR2
1087 , p_pricing_attribute79 IN VARCHAR2
1088 , p_pricing_attribute80 IN VARCHAR2
1089 , p_pricing_attribute81 IN VARCHAR2
1090 , p_pricing_attribute82 IN VARCHAR2
1091 , p_pricing_attribute83 IN VARCHAR2
1092 , p_pricing_attribute84 IN VARCHAR2
1093 , p_pricing_attribute85 IN VARCHAR2
1094 , p_pricing_attribute86 IN VARCHAR2
1095 , p_pricing_attribute87 IN VARCHAR2
1096 , p_pricing_attribute88 IN VARCHAR2
1097 , p_pricing_attribute89 IN VARCHAR2
1098 , p_pricing_attribute90 IN VARCHAR2
1099 , p_pricing_attribute91 IN VARCHAR2
1100 , p_pricing_attribute92 IN VARCHAR2
1101 , p_pricing_attribute93 IN VARCHAR2
1102 , p_pricing_attribute94 IN VARCHAR2
1103 , p_pricing_attribute95 IN VARCHAR2
1104 , p_pricing_attribute96 IN VARCHAR2
1105 , p_pricing_attribute97 IN VARCHAR2
1106 , p_pricing_attribute98 IN VARCHAR2
1107 , p_pricing_attribute99 IN VARCHAR2
1108 , p_pricing_attribute100 IN VARCHAR2
1109 , p_pricing_context IN VARCHAR2
1110 , p_flex_title in VARCHAR2
1111 , x_flex_title OUT NOCOPY VARCHAR2
1112
1113 , x_order_price_attrib_id OUT NOCOPY NUMBER
1114
1115 , x_header_id OUT NOCOPY NUMBER
1116
1117 , x_line_id OUT NOCOPY NUMBER
1118
1119 , x_context OUT NOCOPY VARCHAR2
1120
1121 , x_attribute1 OUT NOCOPY VARCHAR2
1122
1123 , x_attribute2 OUT NOCOPY VARCHAR2
1124
1125 , x_attribute3 OUT NOCOPY VARCHAR2
1126
1127 , x_attribute4 OUT NOCOPY VARCHAR2
1128
1129 , x_attribute5 OUT NOCOPY VARCHAR2
1130
1131 , x_attribute6 OUT NOCOPY VARCHAR2
1132
1133 , x_attribute7 OUT NOCOPY VARCHAR2
1134
1135 , x_attribute8 OUT NOCOPY VARCHAR2
1136
1137 , x_attribute9 OUT NOCOPY VARCHAR2
1138
1139 , x_attribute10 OUT NOCOPY VARCHAR2
1140
1141 , x_attribute11 OUT NOCOPY VARCHAR2
1142
1143 , x_attribute12 OUT NOCOPY VARCHAR2
1144
1145 , x_attribute13 OUT NOCOPY VARCHAR2
1146
1147 , x_attribute14 OUT NOCOPY VARCHAR2
1148
1149 , x_attribute15 OUT NOCOPY VARCHAR2
1150
1151 , x_pricing_attribute1 OUT NOCOPY VARCHAR2
1152
1153 , x_pricing_attribute10 OUT NOCOPY VARCHAR2
1154
1155 , x_pricing_attribute11 OUT NOCOPY VARCHAR2
1156
1157 , x_pricing_attribute12 OUT NOCOPY VARCHAR2
1158
1159 , x_pricing_attribute13 OUT NOCOPY VARCHAR2
1160
1161 , x_pricing_attribute14 OUT NOCOPY VARCHAR2
1162
1163 , x_pricing_attribute15 OUT NOCOPY VARCHAR2
1164
1165 , x_pricing_attribute2 OUT NOCOPY VARCHAR2
1166
1167 , x_pricing_attribute3 OUT NOCOPY VARCHAR2
1168
1169 , x_pricing_attribute4 OUT NOCOPY VARCHAR2
1170
1171 , x_pricing_attribute5 OUT NOCOPY VARCHAR2
1172
1173 , x_pricing_attribute6 OUT NOCOPY VARCHAR2
1174
1175 , x_pricing_attribute7 OUT NOCOPY VARCHAR2
1176
1177 , x_pricing_attribute8 OUT NOCOPY VARCHAR2
1178
1179 , x_pricing_attribute9 OUT NOCOPY VARCHAR2
1180
1181 , x_pricing_attribute16 OUT NOCOPY VARCHAR2
1182
1183 , x_pricing_attribute17 OUT NOCOPY VARCHAR2
1184
1185 , x_pricing_attribute18 OUT NOCOPY VARCHAR2
1186
1187 , x_pricing_attribute19 OUT NOCOPY VARCHAR2
1188
1189 , x_pricing_attribute20 OUT NOCOPY VARCHAR2
1190
1191 , x_pricing_attribute21 OUT NOCOPY VARCHAR2
1192
1193 , x_pricing_attribute22 OUT NOCOPY VARCHAR2
1194
1195 , x_pricing_attribute23 OUT NOCOPY VARCHAR2
1196
1197 , x_pricing_attribute24 OUT NOCOPY VARCHAR2
1198
1199 , x_pricing_attribute25 OUT NOCOPY VARCHAR2
1200
1201 , x_pricing_attribute26 OUT NOCOPY VARCHAR2
1202
1203 , x_pricing_attribute27 OUT NOCOPY VARCHAR2
1204
1205 , x_pricing_attribute28 OUT NOCOPY VARCHAR2
1206
1207 , x_pricing_attribute29 OUT NOCOPY VARCHAR2
1208
1209 , x_pricing_attribute30 OUT NOCOPY VARCHAR2
1210
1211 , x_pricing_attribute31 OUT NOCOPY VARCHAR2
1212
1213 , x_pricing_attribute32 OUT NOCOPY VARCHAR2
1214
1215 , x_pricing_attribute33 OUT NOCOPY VARCHAR2
1216
1217 , x_pricing_attribute34 OUT NOCOPY VARCHAR2
1218
1219 , x_pricing_attribute35 OUT NOCOPY VARCHAR2
1220
1221 , x_pricing_attribute36 OUT NOCOPY VARCHAR2
1222
1223 , x_pricing_attribute37 OUT NOCOPY VARCHAR2
1224
1225 , x_pricing_attribute38 OUT NOCOPY VARCHAR2
1226
1227 , x_pricing_attribute39 OUT NOCOPY VARCHAR2
1228
1229 , x_pricing_attribute40 OUT NOCOPY VARCHAR2
1230
1231 , x_pricing_attribute41 OUT NOCOPY VARCHAR2
1232
1233 , x_pricing_attribute42 OUT NOCOPY VARCHAR2
1234
1235 , x_pricing_attribute43 OUT NOCOPY VARCHAR2
1236
1237 , x_pricing_attribute44 OUT NOCOPY VARCHAR2
1238
1239 , x_pricing_attribute45 OUT NOCOPY VARCHAR2
1240
1241 , x_pricing_attribute46 OUT NOCOPY VARCHAR2
1242
1243 , x_pricing_attribute47 OUT NOCOPY VARCHAR2
1244
1245 , x_pricing_attribute48 OUT NOCOPY VARCHAR2
1246
1247 , x_pricing_attribute49 OUT NOCOPY VARCHAR2
1248
1249 , x_pricing_attribute50 OUT NOCOPY VARCHAR2
1250
1251 , x_pricing_attribute51 OUT NOCOPY VARCHAR2
1252
1253 , x_pricing_attribute52 OUT NOCOPY VARCHAR2
1254
1255 , x_pricing_attribute53 OUT NOCOPY VARCHAR2
1256
1257 , x_pricing_attribute54 OUT NOCOPY VARCHAR2
1258
1259 , x_pricing_attribute55 OUT NOCOPY VARCHAR2
1260
1261 , x_pricing_attribute56 OUT NOCOPY VARCHAR2
1262
1263 , x_pricing_attribute57 OUT NOCOPY VARCHAR2
1264
1265 , x_pricing_attribute58 OUT NOCOPY VARCHAR2
1266
1267 , x_pricing_attribute59 OUT NOCOPY VARCHAR2
1268
1269 , x_pricing_attribute60 OUT NOCOPY VARCHAR2
1270
1271 , x_pricing_attribute61 OUT NOCOPY VARCHAR2
1272
1273 , x_pricing_attribute62 OUT NOCOPY VARCHAR2
1274
1275 , x_pricing_attribute63 OUT NOCOPY VARCHAR2
1276
1277 , x_pricing_attribute64 OUT NOCOPY VARCHAR2
1278
1279 , x_pricing_attribute65 OUT NOCOPY VARCHAR2
1280
1281 , x_pricing_attribute66 OUT NOCOPY VARCHAR2
1282
1283 , x_pricing_attribute67 OUT NOCOPY VARCHAR2
1284
1285 , x_pricing_attribute68 OUT NOCOPY VARCHAR2
1286
1287 , x_pricing_attribute69 OUT NOCOPY VARCHAR2
1288
1289 , x_pricing_attribute70 OUT NOCOPY VARCHAR2
1290
1291 , x_pricing_attribute71 OUT NOCOPY VARCHAR2
1292
1293 , x_pricing_attribute72 OUT NOCOPY VARCHAR2
1294
1295 , x_pricing_attribute73 OUT NOCOPY VARCHAR2
1296
1297 , x_pricing_attribute74 OUT NOCOPY VARCHAR2
1298
1299 , x_pricing_attribute75 OUT NOCOPY VARCHAR2
1300
1301 , x_pricing_attribute76 OUT NOCOPY VARCHAR2
1302
1303 , x_pricing_attribute77 OUT NOCOPY VARCHAR2
1304
1305 , x_pricing_attribute78 OUT NOCOPY VARCHAR2
1306
1307 , x_pricing_attribute79 OUT NOCOPY VARCHAR2
1308
1309 , x_pricing_attribute80 OUT NOCOPY VARCHAR2
1310
1311 , x_pricing_attribute81 OUT NOCOPY VARCHAR2
1312
1313 , x_pricing_attribute82 OUT NOCOPY VARCHAR2
1314
1315 , x_pricing_attribute83 OUT NOCOPY VARCHAR2
1316
1317 , x_pricing_attribute84 OUT NOCOPY VARCHAR2
1318
1319 , x_pricing_attribute85 OUT NOCOPY VARCHAR2
1320
1321 , x_pricing_attribute86 OUT NOCOPY VARCHAR2
1322
1323 , x_pricing_attribute87 OUT NOCOPY VARCHAR2
1324
1325 , x_pricing_attribute88 OUT NOCOPY VARCHAR2
1326
1327 , x_pricing_attribute89 OUT NOCOPY VARCHAR2
1328
1329 , x_pricing_attribute90 OUT NOCOPY VARCHAR2
1330
1331 , x_pricing_attribute91 OUT NOCOPY VARCHAR2
1332
1333 , x_pricing_attribute92 OUT NOCOPY VARCHAR2
1334
1335 , x_pricing_attribute93 OUT NOCOPY VARCHAR2
1336
1337 , x_pricing_attribute94 OUT NOCOPY VARCHAR2
1338
1339 , x_pricing_attribute95 OUT NOCOPY VARCHAR2
1340
1341 , x_pricing_attribute96 OUT NOCOPY VARCHAR2
1342
1343 , x_pricing_attribute97 OUT NOCOPY VARCHAR2
1344
1345 , x_pricing_attribute98 OUT NOCOPY VARCHAR2
1346
1347 , x_pricing_attribute99 OUT NOCOPY VARCHAR2
1348
1349 , x_pricing_attribute100 OUT NOCOPY VARCHAR2
1350
1351 , x_pricing_context OUT NOCOPY VARCHAR2
1352
1353 , x_override_flag OUT NOCOPY VARCHAR2
1354
1355 , p_called_from_pattr IN VARCHAR2 DEFAULT 'N'
1356
1357 )
1358 IS
1359
1360 l_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
1361 l_old_Line_Price_Att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
1362 l_Line_Price_Att_Tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
1363 l_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
1364
1365 l_control_rec OE_GLOBALS.Control_Rec_Type;
1366 l_return_status VARCHAR2(1);
1367 l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
1368 l_x_header_rec OE_Order_PUB.Header_Rec_Type;
1369 l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
1370 l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
1371 l_x_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
1372 l_x_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
1373 l_x_line_rec OE_Order_PUB.Line_Rec_Type;
1374 l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
1375 l_x_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
1376 l_x_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
1377 l_x_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
1378 l_x_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
1379 l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
1380 l_x_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
1381 l_x_Header_Price_Att_tbl OE_Order_PUB.Header_Price_Att_Tbl_Type;
1382 l_x_Header_Adj_Att_tbl OE_Order_PUB.Header_Adj_Att_Tbl_Type;
1383 l_x_Header_Adj_Assoc_tbl OE_Order_PUB.Header_Adj_Assoc_Tbl_Type;
1384 l_x_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type ;
1385 l_x_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type ;
1386 l_x_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type ;
1387 l_x_old_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type ;
1388 l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type ;
1389 l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
1390
1391 --
1392 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1393 --
1394 BEGIN
1395 IF l_debug_level > 0 THEN
1396 oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE_PATTR.CHANGE_ATTRIBUTES' , 1 ) ;
1397 END IF;
1398 -- Set the UI flag
1399 OE_GLOBALS.G_UI_FLAG := TRUE;
1400
1401 -- Set control flags.
1402 l_control_rec.controlled_operation := TRUE;
1403 l_control_rec.check_security := TRUE;
1404 l_control_rec.clear_dependents := TRUE;
1405 l_control_rec.default_attributes := TRUE;
1406 l_control_rec.change_attributes := TRUE;
1407
1408 l_control_rec.validate_entity := FALSE;
1409
1410 IF p_called_from_pattr = 'Y' THEN
1411 -- don't write to db if this is coming from Promotions window.
1412 l_control_rec.write_to_DB := FALSE;
1413 ELSE
1414 l_control_rec.write_to_DB := TRUE;
1415 END IF;
1416
1417 l_control_rec.process := FALSE;
1418 l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE_PRICE_ATT;
1419
1420
1421 -- Instruct API to retain its caches
1422 l_control_rec.clear_api_cache := FALSE;
1423 l_control_rec.clear_api_requests := FALSE;
1424
1425 SAVEPOINT change_attributes;
1426
1427 Get_Order_Line_PAttr
1428 ( p_db_record => FALSE
1429 , p_order_price_attrib_id => p_order_price_attrib_id
1430 , x_Line_Price_Att_rec => l_x_Line_Price_Att_Rec
1431 );
1432
1433 l_x_old_Line_Price_Att_rec := l_x_Line_Price_Att_Rec;
1434
1435
1436 IF p_attr_id = OE_Line_PAttr_Util.G_FLEX_TITLE THEN
1437 l_x_Line_Price_Att_rec.flex_title := p_attr_value;
1438 ELSIF p_attr_id = OE_Line_PAttr_Util.G_HEADER THEN
1439 l_x_Line_Price_Att_rec.header_id := TO_NUMBER(p_attr_value);
1440
1441 ELSIF p_attr_id = OE_Line_PAttr_Util.G_OVERRIDE_FLAG THEN
1442 l_x_Line_Price_Att_rec.override_flag := p_attr_value;
1443
1444 ELSIF p_attr_id = OE_Line_PAttr_Util.G_LINE THEN
1445 l_x_Line_Price_Att_rec.line_id := TO_NUMBER(p_attr_value);
1446 ELSIF p_attr_id = OE_Line_PAttr_Util.G_ORDER_PRICE_ATTRIB THEN
1447 l_x_Line_Price_Att_rec.order_price_attrib_id := TO_NUMBER(p_attr_value);
1448
1449 ELSIF p_attr_id = OE_Line_PAttr_Util.G_CONTEXT
1450 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE1
1451 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE2
1452 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE3
1453 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE4
1454 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE5
1455 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE6
1456 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE7
1457 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE8
1458 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE9
1459 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE10
1460 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE11
1461 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE12
1462 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE13
1463 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE14
1464 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE15
1465 THEN
1466 l_x_Line_Price_Att_rec.context := p_context;
1467 l_x_Line_Price_Att_rec.attribute1 := p_attribute1;
1468 l_x_Line_Price_Att_rec.attribute2 := p_attribute2;
1469 l_x_Line_Price_Att_rec.attribute3 := p_attribute3;
1470 l_x_Line_Price_Att_rec.attribute4 := p_attribute4;
1471 l_x_Line_Price_Att_rec.attribute5 := p_attribute5;
1472 l_x_Line_Price_Att_rec.attribute6 := p_attribute6;
1473 l_x_Line_Price_Att_rec.attribute7 := p_attribute7;
1474 l_x_Line_Price_Att_rec.attribute8 := p_attribute8;
1475 l_x_Line_Price_Att_rec.attribute9 := p_attribute9;
1476 l_x_Line_Price_Att_rec.attribute10 := p_attribute10;
1477 l_x_Line_Price_Att_rec.attribute11 := p_attribute11;
1478 l_x_Line_Price_Att_rec.attribute12 := p_attribute12;
1479 l_x_Line_Price_Att_rec.attribute13 := p_attribute13;
1480 l_x_Line_Price_Att_rec.attribute14 := p_attribute14;
1481 l_x_Line_Price_Att_rec.attribute15 := p_attribute15;
1482 ELSIF p_attr_id = OE_Line_PAttr_Util.G_PRICING_CONTEXT
1483 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE1
1484 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE2
1485 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE3
1486 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE4
1487 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE5
1488 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE6
1489 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE7
1490 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE8
1491 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE9
1492 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE10
1493 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE11
1494 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE12
1495 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE13
1496 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE14
1497 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE15
1498 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE16
1499 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE17
1500 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE18
1501 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE19
1502 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE20
1503 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE21
1504 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE22
1505 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE23
1506 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE24
1507 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE25
1508 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE26
1509 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE27
1510 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE28
1511 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE29
1512 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE30
1513 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE31
1514 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE32
1515 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE33
1516 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE34
1517 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE35
1518 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE36
1519 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE37
1520 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE38
1521 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE39
1522 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE40
1523 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE41
1524 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE42
1525 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE43
1526 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE44
1527 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE45
1528 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE46
1529 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE47
1530 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE48
1531 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE49
1532 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE50
1533 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE51
1534 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE52
1535 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE53
1536 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE54
1537 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE55
1538 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE56
1539 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE57
1540 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE58
1541 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE59
1542 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE60
1543 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE61
1544 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE62
1545 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE63
1546 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE64
1547 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE65
1548 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE66
1549 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE67
1550 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE68
1551 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE69
1552 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE70
1553 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE71
1554 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE72
1555 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE73
1556 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE74
1557 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE75
1558 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE76
1559 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE77
1560 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE78
1561 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE79
1562 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE80
1563 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE81
1564 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE82
1565 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE83
1566 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE84
1567 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE85
1568 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE86
1569 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE87
1570 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE88
1571 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE89
1572 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE90
1573 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE91
1574 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE92
1575 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE93
1576 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE94
1577 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE95
1578 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE96
1579 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE97
1580 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE98
1581 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE99
1582 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE100
1583 THEN
1584 l_x_Line_Price_Att_rec.flex_title := p_flex_title;
1585 l_x_Line_Price_Att_rec.pricing_context := p_pricing_context;
1586 l_x_Line_Price_Att_rec.pricing_attribute1 := p_pricing_attribute1;
1587 l_x_Line_Price_Att_rec.pricing_attribute2 := p_pricing_attribute2;
1588 l_x_Line_Price_Att_rec.pricing_attribute3 := p_pricing_attribute3;
1589 l_x_Line_Price_Att_rec.pricing_attribute4 := p_pricing_attribute4;
1590 l_x_Line_Price_Att_rec.pricing_attribute5 := p_pricing_attribute5;
1591 l_x_Line_Price_Att_rec.pricing_attribute6 := p_pricing_attribute6;
1592 l_x_Line_Price_Att_rec.pricing_attribute7 := p_pricing_attribute7;
1593 l_x_Line_Price_Att_rec.pricing_attribute8 := p_pricing_attribute8;
1594 l_x_Line_Price_Att_rec.pricing_attribute9 := p_pricing_attribute9;
1595 l_x_Line_Price_Att_rec.pricing_attribute10 := p_pricing_attribute10;
1596 l_x_Line_Price_Att_rec.pricing_attribute11 := p_pricing_attribute11;
1597 l_x_Line_Price_Att_rec.pricing_attribute12 := p_pricing_attribute12;
1598 l_x_Line_Price_Att_rec.pricing_attribute13 := p_pricing_attribute13;
1599 l_x_Line_Price_Att_rec.pricing_attribute14 := p_pricing_attribute14;
1600 l_x_Line_Price_Att_rec.pricing_attribute15 := p_pricing_attribute15;
1601 l_x_Line_Price_Att_rec.pricing_attribute16 := p_pricing_attribute16;
1602 l_x_Line_Price_Att_rec.pricing_attribute17 := p_pricing_attribute17;
1603 l_x_Line_Price_Att_rec.pricing_attribute18 := p_pricing_attribute18;
1604 l_x_Line_Price_Att_rec.pricing_attribute19 := p_pricing_attribute19;
1605 l_x_Line_Price_Att_rec.pricing_attribute20 := p_pricing_attribute20;
1606 l_x_Line_Price_Att_rec.pricing_attribute21 := p_pricing_attribute21;
1607 l_x_Line_Price_Att_rec.pricing_attribute22 := p_pricing_attribute22;
1608 l_x_Line_Price_Att_rec.pricing_attribute23 := p_pricing_attribute23;
1609 l_x_Line_Price_Att_rec.pricing_attribute24 := p_pricing_attribute24;
1610 l_x_Line_Price_Att_rec.pricing_attribute25 := p_pricing_attribute25;
1611 l_x_Line_Price_Att_rec.pricing_attribute26 := p_pricing_attribute26;
1612 l_x_Line_Price_Att_rec.pricing_attribute27 := p_pricing_attribute27;
1613 l_x_Line_Price_Att_rec.pricing_attribute28 := p_pricing_attribute28;
1614 l_x_Line_Price_Att_rec.pricing_attribute29 := p_pricing_attribute29;
1615 l_x_Line_Price_Att_rec.pricing_attribute30 := p_pricing_attribute30;
1616 l_x_Line_Price_Att_rec.pricing_attribute31 := p_pricing_attribute31;
1617 l_x_Line_Price_Att_rec.pricing_attribute32 := p_pricing_attribute32;
1618 l_x_Line_Price_Att_rec.pricing_attribute33 := p_pricing_attribute33;
1619 l_x_Line_Price_Att_rec.pricing_attribute34 := p_pricing_attribute34;
1620 l_x_Line_Price_Att_rec.pricing_attribute35 := p_pricing_attribute35;
1621 l_x_Line_Price_Att_rec.pricing_attribute36 := p_pricing_attribute36;
1622 l_x_Line_Price_Att_rec.pricing_attribute37 := p_pricing_attribute37;
1623 l_x_Line_Price_Att_rec.pricing_attribute38 := p_pricing_attribute38;
1624 l_x_Line_Price_Att_rec.pricing_attribute39 := p_pricing_attribute39;
1625 l_x_Line_Price_Att_rec.pricing_attribute40 := p_pricing_attribute40;
1626 l_x_Line_Price_Att_rec.pricing_attribute41 := p_pricing_attribute41;
1627 l_x_Line_Price_Att_rec.pricing_attribute42 := p_pricing_attribute42;
1628 l_x_Line_Price_Att_rec.pricing_attribute43 := p_pricing_attribute43;
1629 l_x_Line_Price_Att_rec.pricing_attribute44 := p_pricing_attribute44;
1630 l_x_Line_Price_Att_rec.pricing_attribute45 := p_pricing_attribute45;
1631 l_x_Line_Price_Att_rec.pricing_attribute46 := p_pricing_attribute46;
1632 l_x_Line_Price_Att_rec.pricing_attribute47 := p_pricing_attribute47;
1633 l_x_Line_Price_Att_rec.pricing_attribute48 := p_pricing_attribute48;
1634 l_x_Line_Price_Att_rec.pricing_attribute49 := p_pricing_attribute49;
1635 l_x_Line_Price_Att_rec.pricing_attribute50 := p_pricing_attribute50;
1636 l_x_Line_Price_Att_rec.pricing_attribute51 := p_pricing_attribute51;
1637 l_x_Line_Price_Att_rec.pricing_attribute52 := p_pricing_attribute52;
1638 l_x_Line_Price_Att_rec.pricing_attribute53 := p_pricing_attribute53;
1639 l_x_Line_Price_Att_rec.pricing_attribute54 := p_pricing_attribute54;
1640 l_x_Line_Price_Att_rec.pricing_attribute55 := p_pricing_attribute55;
1641 l_x_Line_Price_Att_rec.pricing_attribute56 := p_pricing_attribute56;
1642 l_x_Line_Price_Att_rec.pricing_attribute57 := p_pricing_attribute57;
1643 l_x_Line_Price_Att_rec.pricing_attribute58 := p_pricing_attribute58;
1644 l_x_Line_Price_Att_rec.pricing_attribute59 := p_pricing_attribute59;
1645 l_x_Line_Price_Att_rec.pricing_attribute60 := p_pricing_attribute60;
1646 l_x_Line_Price_Att_rec.pricing_attribute61 := p_pricing_attribute61;
1647 l_x_Line_Price_Att_rec.pricing_attribute62 := p_pricing_attribute62;
1648 l_x_Line_Price_Att_rec.pricing_attribute63 := p_pricing_attribute63;
1649 l_x_Line_Price_Att_rec.pricing_attribute64 := p_pricing_attribute64;
1650 l_x_Line_Price_Att_rec.pricing_attribute65 := p_pricing_attribute65;
1651 l_x_Line_Price_Att_rec.pricing_attribute66 := p_pricing_attribute66;
1652 l_x_Line_Price_Att_rec.pricing_attribute67 := p_pricing_attribute67;
1653 l_x_Line_Price_Att_rec.pricing_attribute68 := p_pricing_attribute68;
1654 l_x_Line_Price_Att_rec.pricing_attribute69 := p_pricing_attribute69;
1655 l_x_Line_Price_Att_rec.pricing_attribute70 := p_pricing_attribute70;
1656 l_x_Line_Price_Att_rec.pricing_attribute71 := p_pricing_attribute71;
1657 l_x_Line_Price_Att_rec.pricing_attribute72 := p_pricing_attribute72;
1658 l_x_Line_Price_Att_rec.pricing_attribute73 := p_pricing_attribute73;
1659 l_x_Line_Price_Att_rec.pricing_attribute74 := p_pricing_attribute74;
1660 l_x_Line_Price_Att_rec.pricing_attribute75 := p_pricing_attribute75;
1661 l_x_Line_Price_Att_rec.pricing_attribute76 := p_pricing_attribute76;
1662 l_x_Line_Price_Att_rec.pricing_attribute77 := p_pricing_attribute77;
1663 l_x_Line_Price_Att_rec.pricing_attribute78 := p_pricing_attribute78;
1664 l_x_Line_Price_Att_rec.pricing_attribute79 := p_pricing_attribute79;
1665 l_x_Line_Price_Att_rec.pricing_attribute80 := p_pricing_attribute80;
1666 l_x_Line_Price_Att_rec.pricing_attribute81 := p_pricing_attribute81;
1667 l_x_Line_Price_Att_rec.pricing_attribute82 := p_pricing_attribute82;
1668 l_x_Line_Price_Att_rec.pricing_attribute83 := p_pricing_attribute83;
1669 l_x_Line_Price_Att_rec.pricing_attribute84 := p_pricing_attribute84;
1670 l_x_Line_Price_Att_rec.pricing_attribute85 := p_pricing_attribute85;
1671 l_x_Line_Price_Att_rec.pricing_attribute86 := p_pricing_attribute86;
1672 l_x_Line_Price_Att_rec.pricing_attribute87 := p_pricing_attribute87;
1673 l_x_Line_Price_Att_rec.pricing_attribute88 := p_pricing_attribute88;
1674 l_x_Line_Price_Att_rec.pricing_attribute89 := p_pricing_attribute89;
1675 l_x_Line_Price_Att_rec.pricing_attribute90 := p_pricing_attribute90;
1676 l_x_Line_Price_Att_rec.pricing_attribute91 := p_pricing_attribute91;
1677 l_x_Line_Price_Att_rec.pricing_attribute92 := p_pricing_attribute92;
1678 l_x_Line_Price_Att_rec.pricing_attribute93 := p_pricing_attribute93;
1679 l_x_Line_Price_Att_rec.pricing_attribute94 := p_pricing_attribute94;
1680 l_x_Line_Price_Att_rec.pricing_attribute95 := p_pricing_attribute95;
1681 l_x_Line_Price_Att_rec.pricing_attribute96 := p_pricing_attribute96;
1682 l_x_Line_Price_Att_rec.pricing_attribute97 := p_pricing_attribute97;
1683 l_x_Line_Price_Att_rec.pricing_attribute98 := p_pricing_attribute98;
1684 l_x_Line_Price_Att_rec.pricing_attribute99 := p_pricing_attribute99;
1685 l_x_Line_Price_Att_rec.pricing_attribute100 := p_pricing_attribute100;
1686
1687 ELSE
1688
1689 -- Unexpected error, unrecognized attribute
1690
1691 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1692 THEN
1693 OE_MSG_PUB.Add_Exc_Msg
1694 ( G_PKG_NAME
1695 , 'Change_Attributes'
1696 , 'Unrecognized attribute'
1697 );
1698 END IF;
1699
1700 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1701 END IF;
1702
1703
1704
1705 --bug 3266627
1706 --Added the if loop p_called_from_pattr=N so that this fires only if called from sales order
1707 IF p_called_from_pattr = 'N' THEN
1708 IF l_x_Line_Price_Att_rec.pricing_context is null and
1709 l_x_old_Line_Price_Att_rec.pricing_context is null then
1710 clear_order_line_attr;
1711 return;
1712 END IF;
1713 END IF;
1714 --bug 3266627
1715 -- Set Operation.
1716 IF FND_API.To_Boolean(l_x_Line_Price_Att_rec.db_flag) THEN
1717 l_x_Line_Price_Att_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1718 ELSE
1719 l_x_Line_Price_Att_rec.operation := OE_GLOBALS.G_OPR_CREATE;
1720 END IF;
1721
1722 IF l_debug_level > 0 THEN
1723 oe_debug_pub.add( ' PATTR OPERATION:'||L_X_LINE_PRICE_ATT_REC.OPERATION ) ;
1724 END IF;
1725 --If new pricing context is null and old is not null then we
1726 --know user is clearing the field hence operation delete
1727 If l_x_line_price_att_rec.pricing_context is Null and
1728 l_x_old_Line_Price_Att_rec.pricing_context is Not Null and
1729 l_x_Line_Price_Att_rec.operation <> OE_GLOBALS.G_OPR_CREATE
1730 Then
1731
1732 l_x_Line_Price_Att_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1733 clear_order_line_attr;
1734
1735 End If;
1736
1737 -- Populate Order Line pricing Attributes table
1738
1739 l_x_Line_Price_Att_Tbl(1) := l_x_Line_Price_Att_rec;
1740 l_x_old_Line_Price_Att_tbl(1) := l_x_old_Line_Price_Att_rec;
1741
1742
1743 -- Call Oe_Order_Adj_Pvt.Line_Price_Atts
1744 l_Line_Price_Att_rec := l_x_Line_Price_Att_rec;
1745
1746 IF l_debug_level > 0 THEN
1747 oe_debug_pub.add( ' NEW PRICING CONTEXT:'||L_X_LINE_PRICE_ATT_TBL ( 1 ) .PRICING_CONTEXT ) ;
1748 END IF;
1749 IF l_debug_level > 0 THEN
1750 oe_debug_pub.add( ' OLD PRICING CONTEXT:'||L_X_OLD_LINE_PRICE_ATT_TBL ( 1 ) .PRICING_CONTEXT ) ;
1751 END IF;
1752
1753 IF p_called_from_pattr <> 'Y' THEN
1754 -- this is coming from Sales Order Line window.
1755 if l_x_Line_price_att_tbl(1).flex_title is null then
1756 l_x_Line_price_att_tbl(1).flex_title := 'QP_ATTR_DEFNS_PRICING';
1757 end if;
1758 END IF;
1759
1760 oe_order_adj_pvt.Line_Price_Atts
1761 ( p_init_msg_list => FND_API.G_TRUE
1762 , p_validation_level => FND_API.G_VALID_LEVEL_NONE
1763 , p_control_rec => l_control_rec
1764 , p_x_line_price_att_tbl => l_x_Line_price_att_tbl
1765 , p_x_old_line_price_att_tbl => l_x_old_Line_price_att_tbl
1766 );
1767
1768 --Pricing attributes has changed, repricing needed. Log delayed request
1769 --for repricing
1770 IF l_debug_level > 0 THEN
1771 oe_debug_pub.add( 'PATTR:'||L_X_LINE_PRICE_ATT_REC.LINE_ID ) ;
1772 END IF;
1773 OE_delayed_requests_Pvt.log_request(p_entity_code => 'LINE',
1774 p_entity_id => l_x_Line_Price_Att_rec.line_id,
1775 p_requesting_entity_code => 'LINE',
1776 p_requesting_entity_id => l_x_Line_Price_Att_rec.line_id,
1777 p_param1 => l_x_Line_Price_Att_rec.line_id,
1778 p_request_unique_key1 => 'PRICE',--'BATCH', --Bug 8555923
1779 p_param2 => 'PRICE',--'BATCH', --Bug 8555923
1780 p_request_type => 'PRICE_LINE',
1781 x_return_status => l_return_status);
1782
1783 l_x_Line_Price_Att_Rec := l_x_Line_Price_Att_tbl(1);
1784
1785 IF l_x_Line_Price_Att_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1786 IF l_debug_level > 0 THEN
1787 oe_debug_pub.add( 'PATTR ERROR 1' ) ;
1788 END IF;
1789 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1790 ELSIF l_x_Line_Price_Att_rec.return_status = FND_API.G_RET_STS_ERROR THEN
1791 IF l_debug_level > 0 THEN
1792 oe_debug_pub.add( 'PATTR ERROR 2' ) ;
1793 END IF;
1794 RAISE FND_API.G_EXC_ERROR;
1795 END IF;
1796
1797 -- Init Out parameters
1798 x_attribute1 := FND_API.G_MISS_CHAR;
1799 x_attribute10 := FND_API.G_MISS_CHAR;
1800 x_attribute11 := FND_API.G_MISS_CHAR;
1801 x_attribute12 := FND_API.G_MISS_CHAR;
1802 x_attribute13 := FND_API.G_MISS_CHAR;
1803 x_attribute14 := FND_API.G_MISS_CHAR;
1804 x_attribute15 := FND_API.G_MISS_CHAR;
1805 x_attribute2 := FND_API.G_MISS_CHAR;
1806 x_attribute3 := FND_API.G_MISS_CHAR;
1807 x_attribute4 := FND_API.G_MISS_CHAR;
1808 x_attribute5 := FND_API.G_MISS_CHAR;
1809 x_attribute6 := FND_API.G_MISS_CHAR;
1810 x_attribute7 := FND_API.G_MISS_CHAR;
1811 x_attribute8 := FND_API.G_MISS_CHAR;
1812 x_attribute9 := FND_API.G_MISS_CHAR;
1813 x_context := FND_API.G_MISS_CHAR;
1814 x_flex_title := FND_API.G_MISS_CHAR;
1815 x_header_id := FND_API.G_MISS_NUM;
1816 x_line_id := FND_API.G_MISS_NUM;
1817 x_order_price_attrib_id := FND_API.G_MISS_NUM;
1818 x_pricing_attribute1 := FND_API.G_MISS_CHAR;
1819 x_pricing_attribute10 := FND_API.G_MISS_CHAR;
1820 x_pricing_attribute100 := FND_API.G_MISS_CHAR;
1821 x_pricing_attribute11 := FND_API.G_MISS_CHAR;
1822 x_pricing_attribute12 := FND_API.G_MISS_CHAR;
1823 x_pricing_attribute13 := FND_API.G_MISS_CHAR;
1824 x_pricing_attribute14 := FND_API.G_MISS_CHAR;
1825 x_pricing_attribute15 := FND_API.G_MISS_CHAR;
1826 x_pricing_attribute16 := FND_API.G_MISS_CHAR;
1827 x_pricing_attribute17 := FND_API.G_MISS_CHAR;
1828 x_pricing_attribute18 := FND_API.G_MISS_CHAR;
1829 x_pricing_attribute19 := FND_API.G_MISS_CHAR;
1830 x_pricing_attribute2 := FND_API.G_MISS_CHAR;
1831 x_pricing_attribute20 := FND_API.G_MISS_CHAR;
1832 x_pricing_attribute21 := FND_API.G_MISS_CHAR;
1833 x_pricing_attribute22 := FND_API.G_MISS_CHAR;
1834 x_pricing_attribute23 := FND_API.G_MISS_CHAR;
1835 x_pricing_attribute24 := FND_API.G_MISS_CHAR;
1836 x_pricing_attribute25 := FND_API.G_MISS_CHAR;
1837 x_pricing_attribute26 := FND_API.G_MISS_CHAR;
1838 x_pricing_attribute27 := FND_API.G_MISS_CHAR;
1839 x_pricing_attribute28 := FND_API.G_MISS_CHAR;
1840 x_pricing_attribute29 := FND_API.G_MISS_CHAR;
1841 x_pricing_attribute3 := FND_API.G_MISS_CHAR;
1842 x_pricing_attribute30 := FND_API.G_MISS_CHAR;
1843 x_pricing_attribute31 := FND_API.G_MISS_CHAR;
1844 x_pricing_attribute32 := FND_API.G_MISS_CHAR;
1845 x_pricing_attribute33 := FND_API.G_MISS_CHAR;
1846 x_pricing_attribute34 := FND_API.G_MISS_CHAR;
1847 x_pricing_attribute35 := FND_API.G_MISS_CHAR;
1848 x_pricing_attribute36 := FND_API.G_MISS_CHAR;
1849 x_pricing_attribute37 := FND_API.G_MISS_CHAR;
1850 x_pricing_attribute38 := FND_API.G_MISS_CHAR;
1851 x_pricing_attribute39 := FND_API.G_MISS_CHAR;
1852 x_pricing_attribute4 := FND_API.G_MISS_CHAR;
1853 x_pricing_attribute40 := FND_API.G_MISS_CHAR;
1854 x_pricing_attribute41 := FND_API.G_MISS_CHAR;
1855 x_pricing_attribute42 := FND_API.G_MISS_CHAR;
1856 x_pricing_attribute43 := FND_API.G_MISS_CHAR;
1857 x_pricing_attribute44 := FND_API.G_MISS_CHAR;
1858 x_pricing_attribute45 := FND_API.G_MISS_CHAR;
1859 x_pricing_attribute46 := FND_API.G_MISS_CHAR;
1860 x_pricing_attribute47 := FND_API.G_MISS_CHAR;
1861 x_pricing_attribute48 := FND_API.G_MISS_CHAR;
1862 x_pricing_attribute49 := FND_API.G_MISS_CHAR;
1863 x_pricing_attribute5 := FND_API.G_MISS_CHAR;
1864 x_pricing_attribute50 := FND_API.G_MISS_CHAR;
1865 x_pricing_attribute51 := FND_API.G_MISS_CHAR;
1866 x_pricing_attribute52 := FND_API.G_MISS_CHAR;
1867 x_pricing_attribute53 := FND_API.G_MISS_CHAR;
1868 x_pricing_attribute54 := FND_API.G_MISS_CHAR;
1869 x_pricing_attribute55 := FND_API.G_MISS_CHAR;
1870 x_pricing_attribute56 := FND_API.G_MISS_CHAR;
1871 x_pricing_attribute57 := FND_API.G_MISS_CHAR;
1872 x_pricing_attribute58 := FND_API.G_MISS_CHAR;
1873 x_pricing_attribute59 := FND_API.G_MISS_CHAR;
1874 x_pricing_attribute6 := FND_API.G_MISS_CHAR;
1875 x_pricing_attribute60 := FND_API.G_MISS_CHAR;
1876 x_pricing_attribute61 := FND_API.G_MISS_CHAR;
1877 x_pricing_attribute62 := FND_API.G_MISS_CHAR;
1878 x_pricing_attribute63 := FND_API.G_MISS_CHAR;
1879 x_pricing_attribute64 := FND_API.G_MISS_CHAR;
1880 x_pricing_attribute65 := FND_API.G_MISS_CHAR;
1881 x_pricing_attribute66 := FND_API.G_MISS_CHAR;
1882 x_pricing_attribute67 := FND_API.G_MISS_CHAR;
1883 x_pricing_attribute68 := FND_API.G_MISS_CHAR;
1884 x_pricing_attribute69 := FND_API.G_MISS_CHAR;
1885 x_pricing_attribute7 := FND_API.G_MISS_CHAR;
1886 x_pricing_attribute70 := FND_API.G_MISS_CHAR;
1887 x_pricing_attribute71 := FND_API.G_MISS_CHAR;
1888 x_pricing_attribute72 := FND_API.G_MISS_CHAR;
1889 x_pricing_attribute73 := FND_API.G_MISS_CHAR;
1890 x_pricing_attribute74 := FND_API.G_MISS_CHAR;
1891 x_pricing_attribute75 := FND_API.G_MISS_CHAR;
1892 x_pricing_attribute76 := FND_API.G_MISS_CHAR;
1893 x_pricing_attribute77 := FND_API.G_MISS_CHAR;
1894 x_pricing_attribute78 := FND_API.G_MISS_CHAR;
1895 x_pricing_attribute79 := FND_API.G_MISS_CHAR;
1896 x_pricing_attribute8 := FND_API.G_MISS_CHAR;
1897 x_pricing_attribute80 := FND_API.G_MISS_CHAR;
1898 x_pricing_attribute81 := FND_API.G_MISS_CHAR;
1899 x_pricing_attribute82 := FND_API.G_MISS_CHAR;
1900 x_pricing_attribute83 := FND_API.G_MISS_CHAR;
1901 x_pricing_attribute84 := FND_API.G_MISS_CHAR;
1902 x_pricing_attribute85 := FND_API.G_MISS_CHAR;
1903 x_pricing_attribute86 := FND_API.G_MISS_CHAR;
1904 x_pricing_attribute87 := FND_API.G_MISS_CHAR;
1905 x_pricing_attribute88 := FND_API.G_MISS_CHAR;
1906 x_pricing_attribute89 := FND_API.G_MISS_CHAR;
1907 x_pricing_attribute9 := FND_API.G_MISS_CHAR;
1908 x_pricing_attribute90 := FND_API.G_MISS_CHAR;
1909 x_pricing_attribute91 := FND_API.G_MISS_CHAR;
1910 x_pricing_attribute92 := FND_API.G_MISS_CHAR;
1911 x_pricing_attribute93 := FND_API.G_MISS_CHAR;
1912 x_pricing_attribute94 := FND_API.G_MISS_CHAR;
1913 x_pricing_attribute95 := FND_API.G_MISS_CHAR;
1914 x_pricing_attribute96 := FND_API.G_MISS_CHAR;
1915 x_pricing_attribute97 := FND_API.G_MISS_CHAR;
1916 x_pricing_attribute98 := FND_API.G_MISS_CHAR;
1917 x_pricing_attribute99 := FND_API.G_MISS_CHAR;
1918 x_pricing_context := FND_API.G_MISS_CHAR;
1919 x_override_flag := FND_API.G_MISS_CHAR;
1920
1921 -- Record structure
1922
1923 -- No Get Values
1924
1925 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.override_flag,
1926 l_Line_Price_Att_Rec.override_flag)
1927 THEN
1928 x_override_flag := l_x_Line_Price_Att_Rec.override_flag;
1929 END IF;
1930
1931
1932 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute1,
1933 l_Line_Price_Att_Rec.attribute1)
1934 THEN
1935 x_attribute1 := l_x_Line_Price_Att_Rec.attribute1;
1936 END IF;
1937
1938
1939 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute2,
1940 l_Line_Price_Att_Rec.attribute2)
1941 THEN
1942 x_attribute3 := l_x_Line_Price_Att_Rec.attribute2;
1943 END IF;
1944
1945 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute3,
1946 l_Line_Price_Att_Rec.attribute3)
1947 THEN
1948 x_attribute3 := l_x_Line_Price_Att_Rec.attribute3;
1949 END IF;
1950
1951
1952 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute4,
1953 l_Line_Price_Att_Rec.attribute4)
1954 THEN
1955 x_attribute4 := l_x_Line_Price_Att_Rec.attribute4;
1956 END IF;
1957
1958 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute5,
1959 l_Line_Price_Att_Rec.attribute5)
1960 THEN
1961 x_attribute5 := l_x_Line_Price_Att_Rec.attribute5;
1962 END IF;
1963 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute6,
1964 l_Line_Price_Att_Rec.attribute6)
1965 THEN
1966 x_attribute6 := l_x_Line_Price_Att_Rec.attribute6;
1967 END IF;
1968 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute7,
1969 l_Line_Price_Att_Rec.attribute7)
1970 THEN
1971 x_attribute7 := l_x_Line_Price_Att_Rec.attribute7;
1972 END IF;
1973
1974 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute8,
1975 l_Line_Price_Att_Rec.attribute8)
1976 THEN
1977 x_attribute8 := l_x_Line_Price_Att_Rec.attribute8;
1978 END IF;
1979
1980
1981
1982 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute9,
1983 l_Line_Price_Att_Rec.attribute9)
1984 THEN
1985 x_attribute9 := l_x_Line_Price_Att_Rec.attribute9;
1986 END IF;
1987
1988 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute10,
1989 l_Line_Price_Att_Rec.attribute10)
1990 THEN
1991 x_attribute10 := l_x_Line_Price_Att_Rec.attribute10;
1992 END IF;
1993
1994 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute11,
1995 l_Line_Price_Att_Rec.attribute11)
1996 THEN
1997 x_attribute11 := l_x_Line_Price_Att_Rec.attribute11;
1998 END IF;
1999
2000 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute12,
2001 l_Line_Price_Att_Rec.attribute12)
2002 THEN
2003 x_attribute12 := l_x_Line_Price_Att_Rec.attribute12;
2004 END IF;
2005
2006 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute13,
2007 l_Line_Price_Att_Rec.attribute13)
2008 THEN
2009 x_attribute13 := l_x_Line_Price_Att_Rec.attribute13;
2010 END IF;
2011
2012 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute14,
2013 l_Line_Price_Att_Rec.attribute14)
2014 THEN
2015 x_attribute14 := l_x_Line_Price_Att_Rec.attribute14;
2016 END IF;
2017
2018 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute15,
2019 l_Line_Price_Att_Rec.attribute15)
2020 THEN
2021 x_attribute15 := l_x_Line_Price_Att_Rec.attribute15;
2022 END IF;
2023
2024 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.header_id,
2025 l_Line_Price_Att_Rec.header_id)
2026 THEN
2027 x_header_id := l_x_Line_Price_Att_Rec.header_id;
2028 END IF;
2029
2030 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.line_id,
2031 l_Line_Price_Att_Rec.line_id)
2032 THEN
2033 x_line_id := l_x_Line_Price_Att_Rec.line_id;
2034 END IF;
2035
2036 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.flex_title,
2037 l_Line_Price_Att_Rec.flex_title)
2038 THEN
2039 x_flex_title := l_x_Line_Price_Att_Rec.flex_title;
2040 END IF;
2041
2042 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.order_price_attrib_id,
2043 l_Line_Price_Att_Rec.order_price_attrib_id)
2044 THEN
2045 x_order_price_attrib_id := l_x_Line_Price_Att_Rec.order_price_attrib_id;
2046 END IF;
2047
2048 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute1,
2049 l_Line_Price_Att_Rec.pricing_attribute1)
2050 THEN
2051 x_pricing_attribute1 := l_x_Line_Price_Att_Rec.pricing_attribute1;
2052 END IF;
2053
2054 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute10,
2055 l_Line_Price_Att_Rec.pricing_attribute10)
2056 THEN
2057 x_pricing_attribute10 := l_x_Line_Price_Att_Rec.pricing_attribute10;
2058 END IF;
2059
2060 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute100,
2061 l_Line_Price_Att_Rec.pricing_attribute100)
2062 THEN
2063 x_pricing_attribute100 := l_x_Line_Price_Att_Rec.pricing_attribute100;
2064 END IF;
2065
2066 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute11,
2067 l_Line_Price_Att_Rec.pricing_attribute11)
2068 THEN
2069 x_pricing_attribute11 := l_x_Line_Price_Att_Rec.pricing_attribute11;
2070 END IF;
2071
2072 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute12,
2073 l_Line_Price_Att_Rec.pricing_attribute12)
2074 THEN
2075 x_pricing_attribute12 := l_x_Line_Price_Att_Rec.pricing_attribute12;
2076 END IF;
2077
2078 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute13,
2079 l_Line_Price_Att_Rec.pricing_attribute13)
2080 THEN
2081 x_pricing_attribute13 := l_x_Line_Price_Att_Rec.pricing_attribute13;
2082 END IF;
2083
2084 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute14,
2085 l_Line_Price_Att_Rec.pricing_attribute14)
2086 THEN
2087 x_pricing_attribute14 := l_x_Line_Price_Att_Rec.pricing_attribute14;
2088 END IF;
2089
2090 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute15,
2091 l_Line_Price_Att_Rec.pricing_attribute15)
2092 THEN
2093 x_pricing_attribute15 := l_x_Line_Price_Att_Rec.pricing_attribute15;
2094 END IF;
2095
2096 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute16,
2097 l_Line_Price_Att_Rec.pricing_attribute16)
2098 THEN
2099 x_pricing_attribute16 := l_x_Line_Price_Att_Rec.pricing_attribute16;
2100 END IF;
2101
2102 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute17,
2103 l_Line_Price_Att_Rec.pricing_attribute17)
2104 THEN
2105 x_pricing_attribute17 := l_x_Line_Price_Att_Rec.pricing_attribute17;
2106 END IF;
2107
2108 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute18,
2109 l_Line_Price_Att_Rec.pricing_attribute18)
2110 THEN
2111 x_pricing_attribute18 := l_x_Line_Price_Att_Rec.pricing_attribute18;
2112 END IF;
2113
2114 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute19,
2115 l_Line_Price_Att_Rec.pricing_attribute19)
2116 THEN
2117 x_pricing_attribute19 := l_x_Line_Price_Att_Rec.pricing_attribute19;
2118 END IF;
2119
2120 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute2,
2121 l_Line_Price_Att_Rec.pricing_attribute2)
2122 THEN
2123 x_pricing_attribute2 := l_x_Line_Price_Att_Rec.pricing_attribute2;
2124 END IF;
2125
2126 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute20,
2127 l_Line_Price_Att_Rec.pricing_attribute20)
2128 THEN
2129 x_pricing_attribute20 := l_x_Line_Price_Att_Rec.pricing_attribute20;
2130 END IF;
2131
2132 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute21,
2133 l_Line_Price_Att_Rec.pricing_attribute21)
2134 THEN
2135 x_pricing_attribute21 := l_x_Line_Price_Att_Rec.pricing_attribute21;
2136 END IF;
2137
2138 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute22,
2139 l_Line_Price_Att_Rec.pricing_attribute22)
2140 THEN
2141 x_pricing_attribute22 := l_x_Line_Price_Att_Rec.pricing_attribute22;
2142 END IF;
2143
2144 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute23,
2145 l_Line_Price_Att_Rec.pricing_attribute23)
2146 THEN
2147 x_pricing_attribute23 := l_x_Line_Price_Att_Rec.pricing_attribute23;
2148 END IF;
2149
2150 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute24,
2151 l_Line_Price_Att_Rec.pricing_attribute24)
2152 THEN
2153 x_pricing_attribute24 := l_x_Line_Price_Att_Rec.pricing_attribute24;
2154 END IF;
2155
2156 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute25,
2157 l_Line_Price_Att_Rec.pricing_attribute25)
2158 THEN
2159 x_pricing_attribute25 := l_x_Line_Price_Att_Rec.pricing_attribute25;
2160 END IF;
2161
2162 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute26,
2163 l_Line_Price_Att_Rec.pricing_attribute26)
2164 THEN
2165 x_pricing_attribute26 := l_x_Line_Price_Att_Rec.pricing_attribute26;
2166 END IF;
2167
2168 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute27,
2169 l_Line_Price_Att_Rec.pricing_attribute27)
2170 THEN
2171 x_pricing_attribute27 := l_x_Line_Price_Att_Rec.pricing_attribute27;
2172 END IF;
2173
2174 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute28,
2175 l_Line_Price_Att_Rec.pricing_attribute28)
2176 THEN
2177 x_pricing_attribute28 := l_x_Line_Price_Att_Rec.pricing_attribute28;
2178 END IF;
2179
2180 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute29,
2181 l_Line_Price_Att_Rec.pricing_attribute29)
2182 THEN
2183 x_pricing_attribute29 := l_x_Line_Price_Att_Rec.pricing_attribute29;
2184 END IF;
2185
2186 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute3,
2187 l_Line_Price_Att_Rec.pricing_attribute3)
2188 THEN
2189 x_pricing_attribute3 := l_x_Line_Price_Att_Rec.pricing_attribute3;
2190 END IF;
2191
2192 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute30,
2193 l_Line_Price_Att_Rec.pricing_attribute30)
2194 THEN
2195 x_pricing_attribute30 := l_x_Line_Price_Att_Rec.pricing_attribute30;
2196 END IF;
2197
2198 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute31,
2199 l_Line_Price_Att_Rec.pricing_attribute31)
2200 THEN
2201 x_pricing_attribute31 := l_x_Line_Price_Att_Rec.pricing_attribute31;
2202 END IF;
2203
2204 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute32,
2205 l_Line_Price_Att_Rec.pricing_attribute32)
2206 THEN
2207 x_pricing_attribute32 := l_x_Line_Price_Att_Rec.pricing_attribute32;
2208 END IF;
2209
2210 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute33,
2211 l_Line_Price_Att_Rec.pricing_attribute33)
2212 THEN
2213 x_pricing_attribute33 := l_x_Line_Price_Att_Rec.pricing_attribute33;
2214 END IF;
2215
2216 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute34,
2217 l_Line_Price_Att_Rec.pricing_attribute34)
2218 THEN
2219 x_pricing_attribute34 := l_x_Line_Price_Att_Rec.pricing_attribute34;
2220 END IF;
2221
2222 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute35,
2223 l_Line_Price_Att_Rec.pricing_attribute35)
2224 THEN
2225 x_pricing_attribute35 := l_x_Line_Price_Att_Rec.pricing_attribute35;
2226 END IF;
2227
2228 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute36,
2229 l_Line_Price_Att_Rec.pricing_attribute36)
2230 THEN
2231 x_pricing_attribute36 := l_x_Line_Price_Att_Rec.pricing_attribute36;
2232 END IF;
2233
2234 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute37,
2235 l_Line_Price_Att_Rec.pricing_attribute37)
2236 THEN
2237 x_pricing_attribute37 := l_x_Line_Price_Att_Rec.pricing_attribute37;
2238 END IF;
2239
2240 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute38,
2241 l_Line_Price_Att_Rec.pricing_attribute38)
2242 THEN
2243 x_pricing_attribute38 := l_x_Line_Price_Att_Rec.pricing_attribute38;
2244 END IF;
2245
2246 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute39,
2247 l_Line_Price_Att_Rec.pricing_attribute39)
2248 THEN
2249 x_pricing_attribute39 := l_x_Line_Price_Att_Rec.pricing_attribute39;
2250 END IF;
2251
2252 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute4,
2253 l_Line_Price_Att_Rec.pricing_attribute4)
2254 THEN
2255 x_pricing_attribute4 := l_x_Line_Price_Att_Rec.pricing_attribute4;
2256 END IF;
2257
2258 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute40,
2259 l_Line_Price_Att_Rec.pricing_attribute40)
2260 THEN
2261 x_pricing_attribute40 := l_x_Line_Price_Att_Rec.pricing_attribute40;
2262 END IF;
2263
2264 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute41,
2265 l_Line_Price_Att_Rec.pricing_attribute41)
2266 THEN
2267 x_pricing_attribute41 := l_x_Line_Price_Att_Rec.pricing_attribute41;
2268 END IF;
2269
2270 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute42,
2271 l_Line_Price_Att_Rec.pricing_attribute42)
2272 THEN
2273 x_pricing_attribute42 := l_x_Line_Price_Att_Rec.pricing_attribute42;
2274 END IF;
2275
2276 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute43,
2277 l_Line_Price_Att_Rec.pricing_attribute43)
2278 THEN
2279 x_pricing_attribute43 := l_x_Line_Price_Att_Rec.pricing_attribute43;
2280 END IF;
2281
2282 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute44,
2283 l_Line_Price_Att_Rec.pricing_attribute44)
2284 THEN
2285 x_pricing_attribute44 := l_x_Line_Price_Att_Rec.pricing_attribute44;
2286 END IF;
2287
2288 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute45,
2289 l_Line_Price_Att_Rec.pricing_attribute45)
2290 THEN
2291 x_pricing_attribute45 := l_x_Line_Price_Att_Rec.pricing_attribute45;
2292 END IF;
2293
2294 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute46,
2295 l_Line_Price_Att_Rec.pricing_attribute46)
2296 THEN
2297 x_pricing_attribute46 := l_x_Line_Price_Att_Rec.pricing_attribute46;
2298 END IF;
2299
2300 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute47,
2301 l_Line_Price_Att_Rec.pricing_attribute47)
2302 THEN
2303 x_pricing_attribute47 := l_x_Line_Price_Att_Rec.pricing_attribute47;
2304 END IF;
2305
2306 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute48,
2307 l_Line_Price_Att_Rec.pricing_attribute48)
2308 THEN
2309 x_pricing_attribute48 := l_x_Line_Price_Att_Rec.pricing_attribute48;
2310 END IF;
2311
2312 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute49,
2313 l_Line_Price_Att_Rec.pricing_attribute49)
2314 THEN
2315 x_pricing_attribute49 := l_x_Line_Price_Att_Rec.pricing_attribute49;
2316 END IF;
2317
2318 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute5,
2319 l_Line_Price_Att_Rec.pricing_attribute5)
2320 THEN
2321 x_pricing_attribute5 := l_x_Line_Price_Att_Rec.pricing_attribute5;
2322 END IF;
2323
2324 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute50,
2325 l_Line_Price_Att_Rec.pricing_attribute50)
2326 THEN
2327 x_pricing_attribute50 := l_x_Line_Price_Att_Rec.pricing_attribute50;
2328 END IF;
2329
2330 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute51,
2331 l_Line_Price_Att_Rec.pricing_attribute51)
2332 THEN
2333 x_pricing_attribute51 := l_x_Line_Price_Att_Rec.pricing_attribute51;
2334 END IF;
2335
2336 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute52,
2337 l_Line_Price_Att_Rec.pricing_attribute52)
2338 THEN
2339 x_pricing_attribute52 := l_x_Line_Price_Att_Rec.pricing_attribute52;
2340 END IF;
2341
2342 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute53,
2343 l_Line_Price_Att_Rec.pricing_attribute53)
2344 THEN
2345 x_pricing_attribute53 := l_x_Line_Price_Att_Rec.pricing_attribute53;
2346 END IF;
2347
2348 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute54,
2349 l_Line_Price_Att_Rec.pricing_attribute54)
2350 THEN
2351 x_pricing_attribute54 := l_x_Line_Price_Att_Rec.pricing_attribute54;
2352 END IF;
2353
2354 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute55,
2355 l_Line_Price_Att_Rec.pricing_attribute55)
2356 THEN
2357 x_pricing_attribute55 := l_x_Line_Price_Att_Rec.pricing_attribute55;
2358 END IF;
2359
2360 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute56,
2361 l_Line_Price_Att_Rec.pricing_attribute56)
2362 THEN
2363 x_pricing_attribute56 := l_x_Line_Price_Att_Rec.pricing_attribute56;
2364 END IF;
2365
2366 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute57,
2367 l_Line_Price_Att_Rec.pricing_attribute57)
2368 THEN
2369 x_pricing_attribute57 := l_x_Line_Price_Att_Rec.pricing_attribute57;
2370 END IF;
2371
2372 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute58,
2373 l_Line_Price_Att_Rec.pricing_attribute58)
2374 THEN
2375 x_pricing_attribute58 := l_x_Line_Price_Att_Rec.pricing_attribute58;
2376 END IF;
2377
2378 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute59,
2379 l_Line_Price_Att_Rec.pricing_attribute59)
2380 THEN
2381 x_pricing_attribute59 := l_x_Line_Price_Att_Rec.pricing_attribute59;
2382 END IF;
2383
2384 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute6,
2385 l_Line_Price_Att_Rec.pricing_attribute6)
2386 THEN
2387 x_pricing_attribute6 := l_x_Line_Price_Att_Rec.pricing_attribute6;
2388 END IF;
2389
2390 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute60,
2391 l_Line_Price_Att_Rec.pricing_attribute60)
2392 THEN
2393 x_pricing_attribute60 := l_x_Line_Price_Att_Rec.pricing_attribute60;
2394 END IF;
2395
2396 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute61,
2397 l_Line_Price_Att_Rec.pricing_attribute61)
2398 THEN
2399 x_pricing_attribute61 := l_x_Line_Price_Att_Rec.pricing_attribute61;
2400 END IF;
2401
2402 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute62,
2403 l_Line_Price_Att_Rec.pricing_attribute62)
2404 THEN
2405 x_pricing_attribute62 := l_x_Line_Price_Att_Rec.pricing_attribute62;
2406 END IF;
2407
2408 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute63,
2409 l_Line_Price_Att_Rec.pricing_attribute63)
2410 THEN
2411 x_pricing_attribute63 := l_x_Line_Price_Att_Rec.pricing_attribute63;
2412 END IF;
2413
2414 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute64,
2415 l_Line_Price_Att_Rec.pricing_attribute64)
2416 THEN
2417 x_pricing_attribute64 := l_x_Line_Price_Att_Rec.pricing_attribute64;
2418 END IF;
2419
2420 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute65,
2421 l_Line_Price_Att_Rec.pricing_attribute65)
2422 THEN
2423 x_pricing_attribute65 := l_x_Line_Price_Att_Rec.pricing_attribute65;
2424 END IF;
2425
2426 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute66,
2427 l_Line_Price_Att_Rec.pricing_attribute66)
2428 THEN
2429 x_pricing_attribute66 := l_x_Line_Price_Att_Rec.pricing_attribute66;
2430 END IF;
2431
2432 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute67,
2433 l_Line_Price_Att_Rec.pricing_attribute67)
2434 THEN
2435 x_pricing_attribute67 := l_x_Line_Price_Att_Rec.pricing_attribute67;
2436 END IF;
2437
2438 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute68,
2439 l_Line_Price_Att_Rec.pricing_attribute68)
2440 THEN
2441 x_pricing_attribute68 := l_x_Line_Price_Att_Rec.pricing_attribute68;
2442 END IF;
2443
2444 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute69,
2445 l_Line_Price_Att_Rec.pricing_attribute69)
2446 THEN
2447 x_pricing_attribute69 := l_x_Line_Price_Att_Rec.pricing_attribute69;
2448 END IF;
2449
2450 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute7,
2451 l_Line_Price_Att_Rec.pricing_attribute7)
2452 THEN
2453 x_pricing_attribute7 := l_x_Line_Price_Att_Rec.pricing_attribute7;
2454 END IF;
2455
2456 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute70,
2457 l_Line_Price_Att_Rec.pricing_attribute70)
2458 THEN
2459 x_pricing_attribute70 := l_x_Line_Price_Att_Rec.pricing_attribute70;
2460 END IF;
2461
2462 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute71,
2463 l_Line_Price_Att_Rec.pricing_attribute71)
2464 THEN
2465 x_pricing_attribute71 := l_x_Line_Price_Att_Rec.pricing_attribute71;
2466 END IF;
2467
2468 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute72,
2469 l_Line_Price_Att_Rec.pricing_attribute72)
2470 THEN
2471 x_pricing_attribute72 := l_x_Line_Price_Att_Rec.pricing_attribute72;
2472 END IF;
2473
2474 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute73,
2475 l_Line_Price_Att_Rec.pricing_attribute73)
2476 THEN
2477 x_pricing_attribute73 := l_x_Line_Price_Att_Rec.pricing_attribute73;
2478 END IF;
2479
2480 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute74,
2481 l_Line_Price_Att_Rec.pricing_attribute74)
2482 THEN
2483 x_pricing_attribute74 := l_x_Line_Price_Att_Rec.pricing_attribute74;
2484 END IF;
2485
2486 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute75,
2487 l_Line_Price_Att_Rec.pricing_attribute75)
2488 THEN
2489 x_pricing_attribute75 := l_x_Line_Price_Att_Rec.pricing_attribute75;
2490 END IF;
2491
2492 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute76,
2493 l_Line_Price_Att_Rec.pricing_attribute76)
2494 THEN
2495 x_pricing_attribute76 := l_x_Line_Price_Att_Rec.pricing_attribute76;
2496 END IF;
2497
2498 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute77,
2499 l_Line_Price_Att_Rec.pricing_attribute77)
2500 THEN
2501 x_pricing_attribute77 := l_x_Line_Price_Att_Rec.pricing_attribute77;
2502 END IF;
2503
2504 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute78,
2505 l_Line_Price_Att_Rec.pricing_attribute78)
2506 THEN
2507 x_pricing_attribute78 := l_x_Line_Price_Att_Rec.pricing_attribute78;
2508 END IF;
2509
2510 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute79,
2511 l_Line_Price_Att_Rec.pricing_attribute79)
2512 THEN
2513 x_pricing_attribute79 := l_x_Line_Price_Att_Rec.pricing_attribute79;
2514 END IF;
2515
2516 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute8,
2517 l_Line_Price_Att_Rec.pricing_attribute8)
2518 THEN
2519 x_pricing_attribute8 := l_x_Line_Price_Att_Rec.pricing_attribute8;
2520 END IF;
2521
2522 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute80,
2523 l_Line_Price_Att_Rec.pricing_attribute80)
2524 THEN
2525 x_pricing_attribute80 := l_x_Line_Price_Att_Rec.pricing_attribute80;
2526 END IF;
2527
2528 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute81,
2529 l_Line_Price_Att_Rec.pricing_attribute81)
2530 THEN
2531 x_pricing_attribute81 := l_x_Line_Price_Att_Rec.pricing_attribute81;
2532 END IF;
2533
2534 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute82,
2535 l_Line_Price_Att_Rec.pricing_attribute82)
2536 THEN
2537 x_pricing_attribute82 := l_x_Line_Price_Att_Rec.pricing_attribute82;
2538 END IF;
2539
2540 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute83,
2541 l_Line_Price_Att_Rec.pricing_attribute83)
2542 THEN
2543 x_pricing_attribute83 := l_x_Line_Price_Att_Rec.pricing_attribute83;
2544 END IF;
2545
2546 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute84,
2547 l_Line_Price_Att_Rec.pricing_attribute84)
2548 THEN
2549 x_pricing_attribute84 := l_x_Line_Price_Att_Rec.pricing_attribute84;
2550 END IF;
2551
2552 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute85,
2553 l_Line_Price_Att_Rec.pricing_attribute85)
2554 THEN
2555 x_pricing_attribute85 := l_x_Line_Price_Att_Rec.pricing_attribute85;
2556 END IF;
2557
2558 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute86,
2559 l_Line_Price_Att_Rec.pricing_attribute86)
2560 THEN
2561 x_pricing_attribute86 := l_x_Line_Price_Att_Rec.pricing_attribute86;
2562 END IF;
2563
2564 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute87,
2565 l_Line_Price_Att_Rec.pricing_attribute87)
2566 THEN
2567 x_pricing_attribute87 := l_x_Line_Price_Att_Rec.pricing_attribute87;
2568 END IF;
2569
2570 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute88,
2571 l_Line_Price_Att_Rec.pricing_attribute88)
2572 THEN
2573 x_pricing_attribute88 := l_x_Line_Price_Att_Rec.pricing_attribute88;
2574 END IF;
2575
2576 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute89,
2577 l_Line_Price_Att_Rec.pricing_attribute89)
2578 THEN
2579 x_pricing_attribute89 := l_x_Line_Price_Att_Rec.pricing_attribute89;
2580 END IF;
2581
2582 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute9,
2583 l_Line_Price_Att_Rec.pricing_attribute9)
2584 THEN
2585 x_pricing_attribute9 := l_x_Line_Price_Att_Rec.pricing_attribute9;
2586 END IF;
2587
2588 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute90,
2589 l_Line_Price_Att_Rec.pricing_attribute90)
2590 THEN
2591 x_pricing_attribute90 := l_x_Line_Price_Att_Rec.pricing_attribute90;
2592 END IF;
2593
2594 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute91,
2595 l_Line_Price_Att_Rec.pricing_attribute91)
2596 THEN
2597 x_pricing_attribute91 := l_x_Line_Price_Att_Rec.pricing_attribute91;
2598 END IF;
2599
2600 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute92,
2601 l_Line_Price_Att_Rec.pricing_attribute92)
2602 THEN
2603 x_pricing_attribute92 := l_x_Line_Price_Att_Rec.pricing_attribute92;
2604 END IF;
2605
2606 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute93,
2607 l_Line_Price_Att_Rec.pricing_attribute93)
2608 THEN
2609 x_pricing_attribute93 := l_x_Line_Price_Att_Rec.pricing_attribute93;
2610 END IF;
2611
2612 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute94,
2613 l_Line_Price_Att_Rec.pricing_attribute94)
2614 THEN
2615 x_pricing_attribute94 := l_x_Line_Price_Att_Rec.pricing_attribute94;
2616 END IF;
2617
2618 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute95,
2619 l_Line_Price_Att_Rec.pricing_attribute95)
2620 THEN
2621 x_pricing_attribute95 := l_x_Line_Price_Att_Rec.pricing_attribute95;
2622 END IF;
2623
2624 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute96,
2625 l_Line_Price_Att_Rec.pricing_attribute96)
2626 THEN
2627 x_pricing_attribute96 := l_x_Line_Price_Att_Rec.pricing_attribute96;
2628 END IF;
2629
2630 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute97,
2631 l_Line_Price_Att_Rec.pricing_attribute97)
2632 THEN
2633 x_pricing_attribute97 := l_x_Line_Price_Att_Rec.pricing_attribute97;
2634 END IF;
2635
2636 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute98,
2637 l_Line_Price_Att_Rec.pricing_attribute98)
2638 THEN
2639 x_pricing_attribute98 := l_x_Line_Price_Att_Rec.pricing_attribute98;
2640 END IF;
2641
2642 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute99,
2643 l_Line_Price_Att_Rec.pricing_attribute99)
2644 THEN
2645 x_pricing_attribute99 := l_x_Line_Price_Att_Rec.pricing_attribute99;
2646 END IF;
2647
2648 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_context,
2649 l_Line_Price_Att_Rec.pricing_context)
2650 THEN
2651 x_pricing_context := l_x_Line_Price_Att_Rec.pricing_context;
2652 END IF;
2653
2654 IF nvl(p_called_from_pattr,'x') <> 'Y' THEN
2655 l_x_Line_Price_Att_Rec.db_flag:=FND_API.G_TRUE;
2656 END IF;
2657
2658 Write_Order_Line_PAttr
2659 (
2660 p_Line_Price_Att_rec => l_x_Line_Price_Att_Rec
2661 ) ;
2662
2663
2664
2665
2666 -- Re-set the UI flag to FALSE
2667 OE_GLOBALS.G_UI_FLAG := FALSE;
2668
2669 -- Set return status.
2670
2671 x_return_status := FND_API.G_RET_STS_SUCCESS;
2672
2673 -- Get message count and data
2674
2675 OE_MSG_PUB.Count_And_Get
2676 ( p_count => x_msg_count
2677 , p_data => x_msg_data
2678 );
2679
2680
2681 IF l_debug_level > 0 THEN
2682 oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE_PATTR.CHANGE_ATTRIBUTES' , 1 ) ;
2683 END IF;
2684
2685 EXCEPTION
2686
2687 WHEN FND_API.G_EXC_ERROR THEN
2688
2689 OE_GLOBALS.G_UI_FLAG := FALSE;
2690
2691 x_return_status := FND_API.G_RET_STS_ERROR;
2692
2693 -- Get message count and data
2694 OE_MSG_PUB.Count_And_Get
2695 ( p_count => x_msg_count
2696 , p_data => x_msg_data
2697 );
2698
2699 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2700
2701 OE_GLOBALS.G_UI_FLAG := FALSE;
2702
2703 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2704
2705 -- Get message count and data
2706
2707 OE_MSG_PUB.Count_And_Get
2708 ( p_count => x_msg_count
2709 , p_data => x_msg_data
2710 );
2711
2712 WHEN OTHERS THEN
2713
2714 OE_GLOBALS.G_UI_FLAG := FALSE;
2715
2716 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2717
2718 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2719 THEN
2720 OE_MSG_PUB.Add_Exc_Msg
2721 ( G_PKG_NAME
2722 , 'Change_Attribute');
2723 END IF;
2724
2725 END Change_Attributes;
2726
2727
2728 PROCEDURE Validate_And_Write
2729 ( x_return_status OUT NOCOPY VARCHAR2
2730
2731 , x_msg_count OUT NOCOPY NUMBER
2732
2733 , x_msg_data OUT NOCOPY VARCHAR2
2734
2735 , p_order_price_attrib_id IN NUMBER
2736 , x_creation_date OUT NOCOPY DATE
2737
2738 , x_created_by OUT NOCOPY NUMBER
2739
2740 , x_last_update_date OUT NOCOPY DATE
2741
2742 , x_last_updated_by OUT NOCOPY NUMBER
2743
2744 , x_last_update_login OUT NOCOPY NUMBER
2745
2746 , x_program_id OUT NOCOPY NUMBER
2747
2748 , x_program_application_id OUT NOCOPY NUMBER
2749
2750 , x_program_update_date OUT NOCOPY DATE
2751
2752 , x_request_id OUT NOCOPY NUMBER
2753
2754 , x_lock_control OUT NOCOPY NUMBER
2755
2756 , p_called_from_pattr IN VARCHAR2 DEFAULT 'N'
2757 )
2758 IS
2759 l_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
2760 l_old_Line_Price_Att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
2761 l_Line_Price_Att_Tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
2762 l_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
2763 l_control_rec OE_GLOBALS.Control_Rec_Type;
2764 l_return_status VARCHAR2(1);
2765 l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
2766
2767 /* OUT NOCOPY parameters for Process Order */
2768
2769 l_x_header_rec OE_Order_PUB.Header_Rec_Type;
2770 l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
2771 l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
2772 l_x_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
2773 l_x_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
2774 l_x_line_rec OE_Order_PUB.Line_Rec_Type;
2775 l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
2776 l_x_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
2777 l_x_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
2778 l_x_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
2779 l_x_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
2780 l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
2781 l_x_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
2782 l_x_Header_Price_Att_tbl OE_Order_PUB.Header_Price_Att_Tbl_Type;
2783 l_x_Header_Adj_Att_tbl OE_Order_PUB.Header_Adj_Att_Tbl_Type;
2784 l_x_Header_Adj_Assoc_tbl OE_Order_PUB.Header_Adj_Assoc_Tbl_Type;
2785 l_x_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type ;
2786 l_x_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type ;
2787 l_x_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type ;
2788 l_x_old_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type ;
2789 l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type ;
2790 l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
2791
2792 --
2793 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2794 --
2795 BEGIN
2796
2797 -- Set the UI flag
2798 OE_GLOBALS.G_UI_FLAG := TRUE;
2799
2800 -- Set control flags.
2801 l_control_rec.controlled_operation := TRUE;
2802 l_control_rec.validate_entity := TRUE;
2803 l_control_rec.write_to_DB := TRUE;
2804
2805 l_control_rec.check_security := FALSE;
2806 l_control_rec.clear_dependents := FALSE;
2807 l_control_rec.default_attributes := FALSE;
2808 l_control_rec.change_attributes := FALSE;
2809 l_control_rec.process := FALSE;
2810 l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE_PRICE_ATT;
2811
2812 -- Instruct API to retain its caches
2813 l_control_rec.clear_api_cache := FALSE;
2814 l_control_rec.clear_api_requests := FALSE;
2815
2816
2817 SAVEPOINT validate_and_write;
2818
2819 Get_Order_Line_PAttr
2820 ( p_db_record => TRUE
2821 , p_order_price_attrib_id => p_order_price_attrib_id
2822 , x_Line_Price_Att_rec => l_x_old_Line_Price_Att_rec
2823 ) ;
2824
2825 Get_Order_Line_PAttr
2826 ( p_db_record => FALSE
2827 , p_order_price_attrib_id => p_order_price_attrib_id
2828 , x_Line_Price_Att_rec => l_x_Line_Price_Att_rec
2829 ) ;
2830
2831 -- Set Operation.
2832 IF p_called_from_pattr = 'Y' THEN
2833 -- this is from Promotions window.
2834 IF FND_API.To_Boolean(l_x_Line_Price_Att_Rec.db_flag) THEN
2835 l_x_Line_Price_Att_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2836 ELSE
2837 l_x_Line_Price_Att_Rec.operation := OE_GLOBALS.G_OPR_CREATE;
2838 END IF;
2839 ELSE
2840 -- this is from Sales Order Line window.
2841 l_x_Line_Price_Att_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2842 END IF;
2843
2844
2845 l_x_Line_Price_Att_Tbl(1) := l_x_Line_Price_Att_Rec ;
2846 l_x_old_Line_Price_Att_tbl(1) := l_x_old_Line_Price_Att_rec;
2847
2848 -- Call Oe_Order_Adj_Pvt.Line_Price_Atts
2849 oe_order_adj_pvt.Line_Price_Atts
2850 ( p_init_msg_list => FND_API.G_TRUE
2851 , p_validation_level => FND_API.G_VALID_LEVEL_NONE
2852 , p_control_rec => l_control_rec
2853 , p_x_line_price_att_tbl => l_x_Line_price_att_tbl
2854 , p_x_old_line_price_att_tbl => l_x_old_Line_price_att_tbl
2855 );
2856
2857 /******************************************************************
2858 -- Call Process Pricing
2859 OE_Order_PVT.Process_order
2860 ( p_api_version_number => 1.0
2861 , p_init_msg_list => FND_API.G_TRUE
2862 , x_return_status => l_return_status
2863 , x_msg_count => x_msg_count
2864 , x_msg_data => x_msg_data
2865 , p_control_rec => l_control_rec
2866 , p_Line_price_Att_tbl => l_Line_Price_Att_Tbl
2867
2868 , x_header_rec => l_x_header_rec
2869 , x_Header_Adj_tbl => l_x_Header_Adj_tbl
2870 , x_Header_price_Att_tbl => l_x_Header_Price_Att_tbl
2871 , x_Header_Adj_Att_tbl => l_x_Header_Adj_Att_tbl
2872 , x_Header_Adj_Assoc_tbl => l_x_Header_Adj_Assoc_tbl
2873 , x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
2874 , x_line_tbl => l_x_line_tbl
2875 , x_Line_Adj_tbl => l_x_Line_Adj_tbl
2876 , x_Line_price_Att_tbl => l_x_Line_Price_Att_tbl
2877 , x_Line_Adj_Att_tbl => l_x_Line_Adj_Att_tbl
2878 , x_Line_Adj_Assoc_tbl => l_x_Line_Adj_Assoc_tbl
2879 , x_Line_Scredit_tbl => l_x_Line_Scredit_tbl
2880 , x_Lot_Serial_tbl => l_x_Lot_Serial_tbl
2881 , x_action_request_tbl => l_action_request_tbl
2882 );
2883 *********************************************************************/
2884
2885 l_x_Line_Price_Att_Rec := l_x_Line_Price_Att_tbl(1);
2886
2887
2888 --- Linda
2889 IF l_debug_level > 0 THEN
2890 oe_debug_pub.add( 'RETURN STATUS IS: '||L_X_LINE_PRICE_ATT_REC.RETURN_STATUS , 1 ) ;
2891 END IF;
2892
2893 IF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2894 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2895 ELSIF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_ERROR THEN
2896 RAISE FND_API.G_EXC_ERROR;
2897 END IF;
2898
2899 /*******
2900 Oe_Order_Pvt.Process_Requests_And_Notify
2901 ( p_process_requests => FALSE
2902 , p_notify => TRUE
2903 , p_line_price_att_tbl => l_x_line_price_att_tbl
2904 , p_old_line_price_att_tbl => l_x_old_line_price_att_tbl
2905 , x_return_status => l_return_status
2906 );
2907 *****/
2908
2909 x_lock_control := l_x_Line_Price_Att_Rec.lock_control;
2910 x_creation_date := l_x_Line_Price_Att_Rec.creation_date;
2911 x_created_by := l_x_Line_Price_Att_Rec.created_by;
2912 x_last_update_date := l_x_Line_Price_Att_Rec.last_update_date;
2913 x_last_updated_by := l_x_Line_Price_Att_Rec.last_updated_by;
2914 x_last_update_login := l_x_Line_Price_Att_Rec.last_update_login;
2915 x_program_id := l_x_Line_Price_Att_rec.program_id;
2916 x_program_application_id := l_x_Line_Price_Att_rec.program_application_id;
2917 x_program_update_date := l_x_Line_Price_Att_rec.program_update_date;
2918 x_request_id := l_x_Line_Price_Att_rec.request_id;
2919
2920 /* Clears the Line record cache */
2921 Clear_Order_Line_Attr;
2922
2923 -- Re-set the UI flag to FALSE
2924 OE_GLOBALS.G_UI_FLAG := FALSE;
2925
2926 -- Get message count and data
2927 OE_MSG_PUB.Count_And_Get
2928 ( p_count => x_msg_count
2929 , p_data => x_msg_data
2930 );
2931
2932
2933 EXCEPTION
2934 WHEN FND_API.G_EXC_ERROR THEN
2935
2936 OE_GLOBALS.G_UI_FLAG := FALSE;
2937
2938 x_return_status := FND_API.G_RET_STS_ERROR;
2939
2940 -- Get message count and data
2941
2942 OE_MSG_PUB.Count_And_Get
2943 ( p_count => x_msg_count
2944 , p_data => x_msg_data
2945 );
2946
2947 ROLLBACK TO SAVEPOINT validate_and_write;
2948
2949
2950 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2951
2952 OE_GLOBALS.G_UI_FLAG := FALSE;
2953
2954 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2955
2956 -- Get message count and data
2957
2958 OE_MSG_PUB.Count_And_Get
2959 ( p_count => x_msg_count
2960 , p_data => x_msg_data
2961 );
2962
2963 ROLLBACK TO SAVEPOINT validate_and_write;
2964
2965 WHEN OTHERS THEN
2966
2967 OE_GLOBALS.G_UI_FLAG := FALSE;
2968 NULL;
2969
2970 END Validate_And_Write;
2971
2972
2973
2974 PROCEDURE Delete_Row
2975 ( x_return_status OUT NOCOPY VARCHAR2
2976
2977 , x_msg_count OUT NOCOPY NUMBER
2978
2979 , x_msg_data OUT NOCOPY VARCHAR2
2980
2981 , p_order_price_attrib_id IN NUMBER
2982 )
2983 IS
2984 l_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
2985 l_old_Line_Price_Att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
2986 l_Line_Price_Att_Tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
2987 l_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
2988 l_control_rec OE_GLOBALS.Control_Rec_Type;
2989 l_return_status VARCHAR2(1);
2990 l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
2991
2992 /* out nocopy parameters for Process Order */
2993
2994 l_x_header_rec OE_Order_PUB.Header_Rec_Type;
2995 l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
2996 l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
2997 l_x_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
2998 l_x_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
2999 l_x_line_rec OE_Order_PUB.Line_Rec_Type;
3000 l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
3001 l_x_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
3002 l_x_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
3003 l_x_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
3004 l_x_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
3005 l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
3006 l_x_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
3007 l_x_Header_Price_Att_tbl OE_Order_PUB.Header_Price_Att_Tbl_Type;
3008 l_x_Header_Adj_Att_tbl OE_Order_PUB.Header_Adj_Att_Tbl_Type;
3009 l_x_Header_Adj_Assoc_tbl OE_Order_PUB.Header_Adj_Assoc_Tbl_Type;
3010 l_x_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type ;
3011 l_x_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type ;
3012 l_x_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type ;
3013 l_x_old_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type ;
3014 l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type ;
3015 l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
3016 --
3017 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3018 --
3019 BEGIN
3020
3021 IF l_debug_level > 0 THEN
3022 oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE_PATTR.DELETE_ROW' , 1 ) ;
3023 END IF;
3024 -- Set the UI flag
3025 OE_GLOBALS.G_UI_FLAG := TRUE;
3026
3027
3028 -- Set control flags.
3029 l_control_rec.controlled_operation := TRUE;
3030 l_control_rec.check_security := TRUE;
3031 l_control_rec.validate_entity := TRUE;
3032 l_control_rec.write_to_DB := TRUE;
3033
3034 l_control_rec.clear_dependents := FALSE;
3035 l_control_rec.default_attributes := FALSE;
3036 --bug 2702382
3037 l_control_rec.change_attributes := TRUE;
3038 l_control_rec.process := FALSE;
3039
3040 l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE_PRICE_ATT;
3041
3042 -- Instruct API to retain its caches
3043 l_control_rec.clear_api_cache := FALSE;
3044 l_control_rec.clear_api_requests := FALSE;
3045
3046
3047 Get_Order_Line_PAttr
3048 ( p_db_record => FALSE
3049 , p_order_price_attrib_id => p_order_price_attrib_id
3050 , x_Line_Price_Att_Rec => l_x_Line_Price_Att_Rec
3051 );
3052
3053 l_x_Line_Price_Att_Rec.operation := OE_GLOBALS.G_OPR_DELETE;
3054
3055 l_x_Line_Price_Att_Tbl(1) := l_x_Line_Price_Att_Rec;
3056
3057
3058 -- Call Oe_Order_Adj_Pvt.Line_Price_Atts
3059 oe_order_adj_pvt.Line_Price_Atts
3060 ( p_init_msg_list => FND_API.G_TRUE
3061 , p_validation_level => FND_API.G_VALID_LEVEL_NONE
3062 , p_control_rec => l_control_rec
3063 , p_x_line_price_att_tbl => l_x_Line_price_att_tbl
3064 , p_x_old_line_price_att_tbl => l_x_old_Line_price_att_tbl
3065 );
3066
3067 /*****************************************************************
3068 OE_Order_PVT.Process_order
3069 ( p_api_version_number => 1.0
3070 , p_init_msg_list => FND_API.G_TRUE
3071 , x_return_status => l_return_status
3072 , x_msg_count => x_msg_count
3073 , x_msg_data => x_msg_data
3074 , p_control_rec => l_control_rec
3075 , p_Line_price_Att_tbl => l_Line_Price_Att_Tbl
3076
3077 , x_header_rec => l_x_header_rec
3078 , x_Header_Adj_tbl => l_x_Header_Adj_tbl
3079 , x_Header_price_Att_tbl => l_x_Header_Price_Att_tbl
3080 , x_Header_Adj_Att_tbl => l_x_Header_Adj_Att_tbl
3081 , x_Header_Adj_Assoc_tbl => l_x_Header_Adj_Assoc_tbl
3082 , x_Header_Scredit_tbl => l_x_Header_Scredit_tbl
3083 , x_line_tbl => l_x_line_tbl
3084 , x_Line_Adj_tbl => l_x_Line_Adj_tbl
3085 , x_Line_price_Att_tbl => l_x_Line_Price_Att_tbl
3086 , x_Line_Adj_Att_tbl => l_x_Line_Adj_Att_tbl
3087 , x_Line_Adj_Assoc_tbl => l_x_Line_Adj_Assoc_tbl
3088 , x_Line_Scredit_tbl => l_x_Line_Scredit_tbl
3089 , x_Lot_Serial_tbl => l_x_Lot_Serial_tbl
3090 , x_action_request_tbl => l_action_request_tbl
3091 );
3092 ********************************************************************/
3093
3094 l_x_Line_Price_Att_Rec := l_x_Line_Price_Att_tbl(1);
3095
3096 IF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3097 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3098 ELSIF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_ERROR THEN
3099 RAISE FND_API.G_EXC_ERROR;
3100 END IF;
3101
3102
3103 -- Re-set the UI flag to FALSE
3104 OE_GLOBALS.G_UI_FLAG := FALSE;
3105
3106 x_return_status := FND_API.G_RET_STS_SUCCESS;
3107
3108
3109 -- Get message count and data
3110 OE_MSG_PUB.Count_And_Get
3111 ( p_count => x_msg_count
3112 , p_data => x_msg_data
3113 );
3114
3115 EXCEPTION
3116
3117 WHEN FND_API.G_EXC_ERROR THEN
3118
3119 OE_GLOBALS.G_UI_FLAG := FALSE;
3120
3121 x_return_status := FND_API.G_RET_STS_ERROR;
3122
3123 -- Get message count and data
3124 OE_MSG_PUB.Count_And_Get
3125 ( p_count => x_msg_count
3126 , p_data => x_msg_data
3127 );
3128
3129 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3130
3131 OE_GLOBALS.G_UI_FLAG := FALSE;
3132
3133 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3134
3135 -- Get message count and data
3136 OE_MSG_PUB.Count_And_Get
3137 ( p_count => x_msg_count
3138 , p_data => x_msg_data
3139 );
3140
3141 WHEN OTHERS THEN
3142
3143 OE_GLOBALS.G_UI_FLAG := FALSE;
3144 NULL;
3145
3146 END Delete_Row;
3147
3148 PROCEDURE Lock_Row
3149 ( x_return_status OUT NOCOPY VARCHAR2
3150
3151 , x_msg_count OUT NOCOPY NUMBER
3152
3153 , x_msg_data OUT NOCOPY VARCHAR2
3154
3155 , p_order_price_attrib_id IN NUMBER
3156 , p_lock_control IN NUMBER
3157 )
3158 IS
3159 l_return_status VARCHAR2(1);
3160 l_x_Line_price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
3161 l_x_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
3162
3163 --
3164 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3165 --
3166 BEGIN
3167
3168 -- Load Line_Pricing_PAttr record
3169
3170 l_x_Line_Price_Att_Rec.operation := OE_GLOBALS.G_OPR_LOCK;
3171 l_x_Line_Price_Att_Rec.lock_control := p_lock_control;
3172 l_x_Line_Price_Att_Rec.order_price_attrib_id := p_order_price_attrib_id;
3173
3174
3175 OE_Line_PAttr_Util.Lock_Row
3176 ( p_x_Line_Price_Att_rec => l_x_Line_Price_Att_rec
3177 , x_return_status => l_return_status
3178 );
3179
3180 IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
3181
3182 -- Set DB flag and write record to cache.
3183
3184 l_x_Line_Price_Att_Rec.db_flag := FND_API.G_TRUE;
3185
3186 Write_Order_Line_PAttr
3187 ( p_Line_Price_Att_rec => l_x_Line_Price_Att_Rec
3188 , p_db_record => TRUE
3189 );
3190
3191 END IF;
3192
3193 -- Set return status.
3194
3195 x_return_status := l_return_status;
3196
3197 -- Get message count and data
3198
3199 FND_MSG_PUB.Count_And_Get
3200 ( p_count => x_msg_count
3201 , p_data => x_msg_data
3202 );
3203
3204
3205 EXCEPTION
3206
3207 WHEN OTHERS THEN
3208
3209 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3210 THEN
3211 FND_MSG_PUB.Add_Exc_Msg
3212 ( G_PKG_NAME
3213 , 'Lock_Row'
3214 );
3215 END IF;
3216
3217 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3218
3219 -- Get message count and data
3220
3221 FND_MSG_PUB.Count_And_Get
3222 ( p_count => x_msg_count
3223 , p_data => x_msg_data
3224 );
3225
3226
3227 END Lock_Row;
3228
3229 PROCEDURE Write_Order_Line_PAttr
3230 ( p_Line_Price_Att_rec IN OE_Order_PUB.Line_Price_Att_Rec_Type
3231 , p_db_record IN BOOLEAN := FALSE
3232 )
3233 IS
3234
3235 --
3236 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3237 --
3238 BEGIN
3239
3240 g_Line_Price_Att_rec := p_Line_Price_Att_rec;
3241
3242 IF p_db_record THEN
3243 g_db_Line_Price_Att_rec := p_Line_Price_Att_rec ;
3244 END IF;
3245
3246 END Write_Order_Line_PAttr ;
3247
3248
3249 PROCEDURE Get_Order_Line_PAttr
3250 (
3251 p_db_record IN BOOLEAN := FALSE
3252 , p_order_price_attrib_id IN NUMBER
3253 , x_Line_Price_Att_Rec IN OUT NOCOPY OE_Order_PUB.Line_Price_Att_Rec_Type
3254 )
3255 IS
3256 --
3257 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3258 --
3259 l_pattr_exists varchar2(1) := 'N'; --Added for bug#2645465
3260 BEGIN
3261 IF l_debug_level > 0 THEN
3262 oe_debug_pub.add( ' ENTERING GET_ORDER_LINE_PATTR: PRICE_ATTRIBS_ID:'||P_ORDER_PRICE_ATTRIB_ID ) ;
3263 END IF;
3264 IF l_debug_level > 0 THEN
3265 oe_debug_pub.add( ' G_LINE_PRICE_ATTR_REC.ORDER_PRICE_ATTRIB_ID:'||G_LINE_PRICE_ATT_REC.ORDER_PRICE_ATTRIB_ID ) ;
3266 END IF;
3267
3268 -- Added for bug#2645465
3269 begin
3270 select 'Y' into l_pattr_exists from dual
3271 where exists ( select 'Y' from oe_order_price_attribs
3272 where order_price_attrib_id = p_order_price_attrib_id );
3273 exception
3274 when others then
3275 null;
3276 end;
3277
3278 IF l_pattr_exists = 'Y' THEN
3279 g_Line_Price_Att_Rec.db_flag := FND_API.G_TRUE;
3280 END IF;
3281
3282 IF p_order_price_attrib_id <>
3283 nvl(g_Line_Price_Att_rec.order_price_attrib_id,FND_API.G_MISS_NUM) THEN
3284
3285 OE_Line_PAttr_Util.Query_Row
3286 ( p_order_price_attrib_id => p_order_price_attrib_id
3287 , x_Line_Price_Att_rec => g_Line_Price_Att_rec
3288 ) ;
3289
3290 g_Line_Price_Att_rec.db_flag := FND_API.G_TRUE;
3291 IF l_debug_level > 0 THEN
3292 oe_debug_pub.add( ' SETTING DB FLAG TO TRUE' ) ;
3293 END IF;
3294 -- Load DB Record
3295 g_db_Line_Price_Att_rec := g_Line_Price_Att_rec;
3296
3297 END IF;
3298
3299 IF p_db_record THEN
3300
3301 x_Line_Price_Att_Rec := g_db_Line_Price_Att_rec;
3302 IF l_debug_level > 0 THEN
3303 oe_debug_pub.add( 'P_DB_RECORD IS TRUE: X_LINE_PRICE_ATT_REC DB FLAG:'||X_LINE_PRICE_ATT_REC.DB_FLAG ) ;
3304 END IF;
3305 ELSE
3306 x_Line_Price_Att_Rec := g_Line_Price_Att_rec;
3307 IF l_debug_level > 0 THEN
3308 oe_debug_pub.add( 'P_DB_RECORD IS FALSE: X_LINE_PRICE_ATT_REC DB FLAG:'||X_LINE_PRICE_ATT_REC.DB_FLAG ) ;
3309 END IF;
3310 END IF;
3311
3312
3313 END Get_Order_Line_PAttr;
3314
3315
3316 PROCEDURE Clear_Order_Line_Attr
3317 IS
3318 --
3319 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3320 --
3321 BEGIN
3322 g_Line_Price_Att_Rec := OE_Order_PUB.G_MISS_LINE_PRICE_ATT_REC;
3323 g_db_Line_Price_Att_rec := OE_Order_PUB.G_MISS_LINE_PRICE_ATT_REC;
3324
3325
3326 END Clear_Order_Line_Attr;
3327
3328
3329 procedure process_price (x_return_status OUT NOCOPY Varchar2)
3330
3331 is
3332 l_return_status varchar2(30);
3333 l_start_time number;
3334 l_elapse_time number;
3335 --
3336 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3337 --
3338 begin
3339
3340 SAVEPOINT Process_Price;
3341 OE_GLOBALS.G_UI_FLAG:= TRUE;
3342
3343 Oe_Order_Pvt.Process_Requests_And_Notify
3344 ( p_process_requests => TRUE
3345 , p_notify => TRUE
3346 , p_process_ack => TRUE
3347 , x_return_status => l_return_status
3348 );
3349 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3350 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3351 ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3352 RAISE FND_API.G_EXC_ERROR;
3353 END IF;
3354 OE_GLOBALS.G_UI_FLAG:= FALSE;
3355 exception when FND_API.G_EXC_ERROR or FND_API.G_EXC_UNEXPECTED_ERROR then
3356 ROLLBACK TO SAVEPOINT Process_Price;
3357 OE_GLOBALS.G_UI_FLAG:= FALSE;
3358 IF l_debug_level > 0 THEN
3359 oe_debug_pub.add( 'ERROR WHILE PRICING ' ) ;
3360 END IF;
3361 x_return_status := l_return_status;
3362
3363
3364 end process_price;
3365
3366
3367 PROCEDURE Change_Attributes
3368 ( x_return_status OUT NOCOPY VARCHAR2
3369
3370 , x_msg_count OUT NOCOPY NUMBER
3371
3372 , x_msg_data OUT NOCOPY VARCHAR2
3373
3374 , p_order_price_attrib_id IN NUMBER
3375 , p_attr_id IN NUMBER
3376 , p_context IN VARCHAR2
3377 , p_attr_value IN VARCHAR2
3378 , p_attribute1 IN VARCHAR2
3379 , p_attribute2 IN VARCHAR2
3380 , p_attribute3 IN VARCHAR2
3381 , p_attribute4 IN VARCHAR2
3382 , p_attribute5 IN VARCHAR2
3383 , p_attribute6 IN VARCHAR2
3384 , p_attribute7 IN VARCHAR2
3385 , p_attribute8 IN VARCHAR2
3386 , p_attribute9 IN VARCHAR2
3387 , p_attribute10 IN VARCHAR2
3388 , p_attribute11 IN VARCHAR2
3389 , p_attribute12 IN VARCHAR2
3390 , p_attribute13 IN VARCHAR2
3391 , p_attribute14 IN VARCHAR2
3392 , p_attribute15 IN VARCHAR2
3393 , p_pricing_attribute1 IN VARCHAR2
3394 , p_pricing_attribute10 IN VARCHAR2
3395 , p_pricing_attribute11 IN VARCHAR2
3396 , p_pricing_attribute12 IN VARCHAR2
3397 , p_pricing_attribute13 IN VARCHAR2
3398 , p_pricing_attribute14 IN VARCHAR2
3399 , p_pricing_attribute15 IN VARCHAR2
3400 , p_pricing_attribute2 IN VARCHAR2
3401 , p_pricing_attribute3 IN VARCHAR2
3402 , p_pricing_attribute4 IN VARCHAR2
3403 , p_pricing_attribute5 IN VARCHAR2
3404 , p_pricing_attribute6 IN VARCHAR2
3405 , p_pricing_attribute7 IN VARCHAR2
3406 , p_pricing_attribute8 IN VARCHAR2
3407 , p_pricing_attribute9 IN VARCHAR2
3408 , p_pricing_attribute16 IN VARCHAR2
3409 , p_pricing_attribute17 IN VARCHAR2
3410 , p_pricing_attribute18 IN VARCHAR2
3411 , p_pricing_attribute19 IN VARCHAR2
3412 , p_pricing_attribute20 IN VARCHAR2
3413 , p_pricing_attribute21 IN VARCHAR2
3414 , p_pricing_attribute22 IN VARCHAR2
3415 , p_pricing_attribute23 IN VARCHAR2
3416 , p_pricing_attribute24 IN VARCHAR2
3417 , p_pricing_attribute25 IN VARCHAR2
3418 , p_pricing_attribute26 IN VARCHAR2
3419 , p_pricing_attribute27 IN VARCHAR2
3420 , p_pricing_attribute28 IN VARCHAR2
3421 , p_pricing_attribute29 IN VARCHAR2
3422 , p_pricing_attribute30 IN VARCHAR2
3423 , p_pricing_context IN VARCHAR2
3424 , p_flex_title IN VARCHAR2
3425 , x_flex_title OUT NOCOPY VARCHAR2
3426
3427 , x_order_price_attrib_id OUT NOCOPY NUMBER
3428
3429 , x_header_id OUT NOCOPY NUMBER
3430
3431 , x_line_id OUT NOCOPY NUMBER
3432
3433 , x_context OUT NOCOPY VARCHAR2
3434
3435 , x_attribute1 OUT NOCOPY VARCHAR2
3436
3437 , x_attribute2 OUT NOCOPY VARCHAR2
3438
3439 , x_attribute3 OUT NOCOPY VARCHAR2
3440
3441 , x_attribute4 OUT NOCOPY VARCHAR2
3442
3443 , x_attribute5 OUT NOCOPY VARCHAR2
3444
3445 , x_attribute6 OUT NOCOPY VARCHAR2
3446
3447 , x_attribute7 OUT NOCOPY VARCHAR2
3448
3449 , x_attribute8 OUT NOCOPY VARCHAR2
3450
3451 , x_attribute9 OUT NOCOPY VARCHAR2
3452
3453 , x_attribute10 OUT NOCOPY VARCHAR2
3454
3455 , x_attribute11 OUT NOCOPY VARCHAR2
3456
3457 , x_attribute12 OUT NOCOPY VARCHAR2
3458
3459 , x_attribute13 OUT NOCOPY VARCHAR2
3460
3461 , x_attribute14 OUT NOCOPY VARCHAR2
3462
3463 , x_attribute15 OUT NOCOPY VARCHAR2
3464
3465 , x_pricing_attribute1 OUT NOCOPY VARCHAR2
3466
3467 , x_pricing_attribute10 OUT NOCOPY VARCHAR2
3468
3469 , x_pricing_attribute11 OUT NOCOPY VARCHAR2
3470
3471 , x_pricing_attribute12 OUT NOCOPY VARCHAR2
3472
3473 , x_pricing_attribute13 OUT NOCOPY VARCHAR2
3474
3475 , x_pricing_attribute14 OUT NOCOPY VARCHAR2
3476
3477 , x_pricing_attribute15 OUT NOCOPY VARCHAR2
3478
3479 , x_pricing_attribute2 OUT NOCOPY VARCHAR2
3480
3481 , x_pricing_attribute3 OUT NOCOPY VARCHAR2
3482
3483 , x_pricing_attribute4 OUT NOCOPY VARCHAR2
3484
3485 , x_pricing_attribute5 OUT NOCOPY VARCHAR2
3486
3487 , x_pricing_attribute6 OUT NOCOPY VARCHAR2
3488
3489 , x_pricing_attribute7 OUT NOCOPY VARCHAR2
3490
3491 , x_pricing_attribute8 OUT NOCOPY VARCHAR2
3492
3493 , x_pricing_attribute9 OUT NOCOPY VARCHAR2
3494
3495 , x_pricing_attribute16 OUT NOCOPY VARCHAR2
3496
3497 , x_pricing_attribute17 OUT NOCOPY VARCHAR2
3498
3499 , x_pricing_attribute18 OUT NOCOPY VARCHAR2
3500
3501 , x_pricing_attribute19 OUT NOCOPY VARCHAR2
3502
3503 , x_pricing_attribute20 OUT NOCOPY VARCHAR2
3504
3505 , x_pricing_attribute21 OUT NOCOPY VARCHAR2
3506
3507 , x_pricing_attribute22 OUT NOCOPY VARCHAR2
3508
3509 , x_pricing_attribute23 OUT NOCOPY VARCHAR2
3510
3511 , x_pricing_attribute24 OUT NOCOPY VARCHAR2
3512
3513 , x_pricing_attribute25 OUT NOCOPY VARCHAR2
3514
3515 , x_pricing_attribute26 OUT NOCOPY VARCHAR2
3516
3517 , x_pricing_attribute27 OUT NOCOPY VARCHAR2
3518
3519 , x_pricing_attribute28 OUT NOCOPY VARCHAR2
3520
3521 , x_pricing_attribute29 OUT NOCOPY VARCHAR2
3522
3523 , x_pricing_attribute30 OUT NOCOPY VARCHAR2
3524
3525 , x_pricing_context OUT NOCOPY VARCHAR2
3526
3527 , x_override_flag OUT NOCOPY VARCHAR2
3528
3529 , p_called_from_pattr IN VARCHAR2 DEFAULT 'N'
3530
3531 ) IS
3532
3533 l_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
3534 l_old_Line_Price_Att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
3535 l_Line_Price_Att_Tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
3536 l_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
3537
3538 l_control_rec OE_GLOBALS.Control_Rec_Type;
3539 l_return_status VARCHAR2(1);
3540 l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
3541 l_x_header_rec OE_Order_PUB.Header_Rec_Type;
3542 l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
3543 l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
3544 l_x_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
3545 l_x_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
3546 l_x_line_rec OE_Order_PUB.Line_Rec_Type;
3547 l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
3548 l_x_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
3549 l_x_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
3550 l_x_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
3551 l_x_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
3552 l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
3553 l_x_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
3554 l_x_Header_Price_Att_tbl OE_Order_PUB.Header_Price_Att_Tbl_Type;
3555 l_x_Header_Adj_Att_tbl OE_Order_PUB.Header_Adj_Att_Tbl_Type;
3556 l_x_Header_Adj_Assoc_tbl OE_Order_PUB.Header_Adj_Assoc_Tbl_Type;
3557 l_x_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type ;
3558 l_x_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type ;
3559 l_x_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type ;
3560 l_x_old_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type ;
3561 l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type ;
3562 l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
3563
3564 --
3565 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3566 --
3567 BEGIN
3568 IF l_debug_level > 0 THEN
3569 oe_debug_pub.add( 'ENTERING OE_OE_FORM_LINE_PATTR.CHANGE_ATTRIBUTES' , 1 ) ;
3570 END IF;
3571 -- Set the UI flag
3572 OE_GLOBALS.G_UI_FLAG := TRUE;
3573
3574 -- Set control flags.
3575 l_control_rec.controlled_operation := TRUE;
3576 l_control_rec.check_security := TRUE;
3577 l_control_rec.clear_dependents := TRUE;
3578 l_control_rec.default_attributes := TRUE;
3579 l_control_rec.change_attributes := TRUE;
3580
3581 l_control_rec.validate_entity := FALSE;
3582
3583 IF p_called_from_pattr = 'Y' THEN
3584 -- don't write to db if this is coming from Promotions window.
3585 l_control_rec.write_to_DB := FALSE;
3586 ELSE
3587 l_control_rec.write_to_DB := TRUE;
3588 END IF;
3589
3590 l_control_rec.process := FALSE;
3591 l_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE_PRICE_ATT;
3592
3593
3594 -- Instruct API to retain its caches
3595 l_control_rec.clear_api_cache := FALSE;
3596 l_control_rec.clear_api_requests := FALSE;
3597
3598 SAVEPOINT change_attributes;
3599
3600 Get_Order_Line_PAttr
3601 ( p_db_record => FALSE
3602 , p_order_price_attrib_id => p_order_price_attrib_id
3603 , x_Line_Price_Att_rec => l_x_Line_Price_Att_Rec
3604 );
3605
3606 l_x_old_Line_Price_Att_rec := l_x_Line_Price_Att_Rec;
3607
3608
3609 IF p_attr_id = OE_Line_PAttr_Util.G_FLEX_TITLE THEN
3610 l_x_Line_Price_Att_rec.flex_title := p_attr_value;
3611 ELSIF p_attr_id = OE_Line_PAttr_Util.G_HEADER THEN
3612 l_x_Line_Price_Att_rec.header_id := TO_NUMBER(p_attr_value);
3613
3614 ELSIF p_attr_id = OE_Line_PAttr_Util.G_OVERRIDE_FLAG THEN
3615 l_x_Line_Price_Att_rec.override_flag := p_attr_value;
3616
3617 ELSIF p_attr_id = OE_Line_PAttr_Util.G_LINE THEN
3618 l_x_Line_Price_Att_rec.line_id := TO_NUMBER(p_attr_value);
3619 ELSIF p_attr_id = OE_Line_PAttr_Util.G_ORDER_PRICE_ATTRIB THEN
3620 l_x_Line_Price_Att_rec.order_price_attrib_id := TO_NUMBER(p_attr_value);
3621
3622 ELSIF p_attr_id = OE_Line_PAttr_Util.G_CONTEXT
3623 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE1
3624 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE2
3625 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE3
3626 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE4
3627 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE5
3628 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE6
3629 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE7
3630 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE8
3631 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE9
3632 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE10
3633 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE11
3634 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE12
3635 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE13
3636 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE14
3637 OR p_attr_id = OE_Line_PAttr_Util.G_ATTRIBUTE15
3638 THEN
3639 l_x_Line_Price_Att_rec.context := p_context;
3640 l_x_Line_Price_Att_rec.attribute1 := p_attribute1;
3641 l_x_Line_Price_Att_rec.attribute2 := p_attribute2;
3642 l_x_Line_Price_Att_rec.attribute3 := p_attribute3;
3643 l_x_Line_Price_Att_rec.attribute4 := p_attribute4;
3644 l_x_Line_Price_Att_rec.attribute5 := p_attribute5;
3645 l_x_Line_Price_Att_rec.attribute6 := p_attribute6;
3646 l_x_Line_Price_Att_rec.attribute7 := p_attribute7;
3647 l_x_Line_Price_Att_rec.attribute8 := p_attribute8;
3648 l_x_Line_Price_Att_rec.attribute9 := p_attribute9;
3649 l_x_Line_Price_Att_rec.attribute10 := p_attribute10;
3650 l_x_Line_Price_Att_rec.attribute11 := p_attribute11;
3651 l_x_Line_Price_Att_rec.attribute12 := p_attribute12;
3652 l_x_Line_Price_Att_rec.attribute13 := p_attribute13;
3653 l_x_Line_Price_Att_rec.attribute14 := p_attribute14;
3654 l_x_Line_Price_Att_rec.attribute15 := p_attribute15;
3655 ELSIF p_attr_id = OE_Line_PAttr_Util.G_PRICING_CONTEXT
3656 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE1
3657 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE2
3658 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE3
3659 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE4
3660 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE5
3661 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE6
3662 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE7
3663 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE8
3664 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE9
3665 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE10
3666 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE11
3667 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE12
3668 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE13
3669 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE14
3670 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE15
3671 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE16
3672 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE17
3673 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE18
3674 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE19
3675 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE20
3676 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE21
3677 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE22
3678 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE23
3679 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE24
3680 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE25
3681 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE26
3682 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE27
3683 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE28
3684 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE29
3685 OR p_attr_id = OE_Line_PAttr_Util.G_PRICING_ATTRIBUTE30
3686 THEN
3687 l_x_Line_Price_Att_rec.flex_title := p_flex_title;
3688 l_x_Line_Price_Att_rec.pricing_context := p_pricing_context;
3689 l_x_Line_Price_Att_rec.pricing_attribute1 := p_pricing_attribute1;
3690 l_x_Line_Price_Att_rec.pricing_attribute2 := p_pricing_attribute2;
3691 l_x_Line_Price_Att_rec.pricing_attribute3 := p_pricing_attribute3;
3692 l_x_Line_Price_Att_rec.pricing_attribute4 := p_pricing_attribute4;
3693 l_x_Line_Price_Att_rec.pricing_attribute5 := p_pricing_attribute5;
3694 l_x_Line_Price_Att_rec.pricing_attribute6 := p_pricing_attribute6;
3695 l_x_Line_Price_Att_rec.pricing_attribute7 := p_pricing_attribute7;
3696 l_x_Line_Price_Att_rec.pricing_attribute8 := p_pricing_attribute8;
3697 l_x_Line_Price_Att_rec.pricing_attribute9 := p_pricing_attribute9;
3698 l_x_Line_Price_Att_rec.pricing_attribute10 := p_pricing_attribute10;
3699 l_x_Line_Price_Att_rec.pricing_attribute11 := p_pricing_attribute11;
3700 l_x_Line_Price_Att_rec.pricing_attribute12 := p_pricing_attribute12;
3701 l_x_Line_Price_Att_rec.pricing_attribute13 := p_pricing_attribute13;
3702 l_x_Line_Price_Att_rec.pricing_attribute14 := p_pricing_attribute14;
3703 l_x_Line_Price_Att_rec.pricing_attribute15 := p_pricing_attribute15;
3704 l_x_Line_Price_Att_rec.pricing_attribute16 := p_pricing_attribute16;
3705 l_x_Line_Price_Att_rec.pricing_attribute17 := p_pricing_attribute17;
3706 l_x_Line_Price_Att_rec.pricing_attribute18 := p_pricing_attribute18;
3707 l_x_Line_Price_Att_rec.pricing_attribute19 := p_pricing_attribute19;
3708 l_x_Line_Price_Att_rec.pricing_attribute20 := p_pricing_attribute20;
3709 l_x_Line_Price_Att_rec.pricing_attribute21 := p_pricing_attribute21;
3710 l_x_Line_Price_Att_rec.pricing_attribute22 := p_pricing_attribute22;
3711 l_x_Line_Price_Att_rec.pricing_attribute23 := p_pricing_attribute23;
3712 l_x_Line_Price_Att_rec.pricing_attribute24 := p_pricing_attribute24;
3713 l_x_Line_Price_Att_rec.pricing_attribute25 := p_pricing_attribute25;
3714 l_x_Line_Price_Att_rec.pricing_attribute26 := p_pricing_attribute26;
3715 l_x_Line_Price_Att_rec.pricing_attribute27 := p_pricing_attribute27;
3716 l_x_Line_Price_Att_rec.pricing_attribute28 := p_pricing_attribute28;
3717 l_x_Line_Price_Att_rec.pricing_attribute29 := p_pricing_attribute29;
3718
3719 ELSE
3720
3721 -- Unexpected error, unrecognized attribute
3722
3723 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3724 THEN
3725 OE_MSG_PUB.Add_Exc_Msg
3726 ( G_PKG_NAME
3727 , 'Change_Attributes'
3728 , 'Unrecognized attribute'
3729 );
3730 END IF;
3731
3732 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3733 END IF;
3734
3735
3736
3737 -- Set Operation.
3738 IF FND_API.To_Boolean(l_x_Line_Price_Att_rec.db_flag) THEN
3739 l_x_Line_Price_Att_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
3740 ELSE
3741 l_x_Line_Price_Att_rec.operation := OE_GLOBALS.G_OPR_CREATE;
3742 END IF;
3743
3744 IF l_debug_level > 0 THEN
3745 oe_debug_pub.add( ' PATTR OPERATION:'||L_X_LINE_PRICE_ATT_REC.OPERATION ) ;
3746 END IF;
3747 --If new pricing context is null and old is not null then we
3748 --know user is clearing the field hence operation delete
3749 If l_x_line_price_att_rec.pricing_context is Null and
3750 l_x_old_Line_Price_Att_rec.pricing_context is Not Null and
3751 l_x_Line_Price_Att_rec.operation <> OE_GLOBALS.G_OPR_CREATE
3752 Then
3753
3754 l_x_Line_Price_Att_rec.operation := OE_GLOBALS.G_OPR_DELETE;
3755 clear_order_line_attr;
3756
3757 End If;
3758
3759 -- Populate Order Line pricing Attributes table
3760
3761 l_x_Line_Price_Att_Tbl(1) := l_x_Line_Price_Att_rec;
3762 l_x_old_Line_Price_Att_tbl(1) := l_x_old_Line_Price_Att_rec;
3763
3764
3765 -- Call Oe_Order_Adj_Pvt.Line_Price_Atts
3766 l_Line_Price_Att_rec := l_x_Line_Price_Att_rec;
3767
3768 IF l_debug_level > 0 THEN
3769 oe_debug_pub.add( ' NEW PRICING CONTEXT:'||L_X_LINE_PRICE_ATT_TBL ( 1 ) .PRICING_CONTEXT ) ;
3770 END IF;
3771 IF l_debug_level > 0 THEN
3772 oe_debug_pub.add( ' OLD PRICING CONTEXT:'||L_X_OLD_LINE_PRICE_ATT_TBL ( 1 ) .PRICING_CONTEXT ) ;
3773 END IF;
3774
3775 IF p_called_from_pattr <> 'Y' THEN
3776 -- this is coming from Sales Order Line window.
3777 if l_x_Line_price_att_tbl(1).flex_title is null then
3778 l_x_Line_price_att_tbl(1).flex_title := 'QP_ATTR_DEFNS_PRICING';
3779 end if;
3780 END IF;
3781
3782 oe_order_adj_pvt.Line_Price_Atts
3783 ( p_init_msg_list => FND_API.G_TRUE
3784 , p_validation_level => FND_API.G_VALID_LEVEL_NONE
3785 , p_control_rec => l_control_rec
3786 , p_x_line_price_att_tbl => l_x_Line_price_att_tbl
3787 , p_x_old_line_price_att_tbl => l_x_old_Line_price_att_tbl
3788 );
3789
3790 --Pricing attributes has changed, repricing needed. Log delayed request
3791 --for repricing
3792 IF l_debug_level > 0 THEN
3793 oe_debug_pub.add( 'PATTR:'||L_X_LINE_PRICE_ATT_REC.LINE_ID ) ;
3794 END IF;
3795 OE_delayed_requests_Pvt.log_request(p_entity_code => 'LINE',
3796 p_entity_id => l_x_Line_Price_Att_rec.line_id,
3797 p_requesting_entity_code => 'LINE',
3798 p_requesting_entity_id => l_x_Line_Price_Att_rec.line_id,
3799 p_param1 => l_x_Line_Price_Att_rec.line_id,
3800 p_param2 => 'PRICE',--'BATCH', --Bug 8555923
3801 p_request_type => 'PRICE_LINE',
3802 x_return_status => l_return_status);
3803
3804 l_x_Line_Price_Att_Rec := l_x_Line_Price_Att_tbl(1);
3805
3806 IF l_x_Line_Price_Att_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3807 IF l_debug_level > 0 THEN
3808 oe_debug_pub.add( 'PATTR ERROR 1' ) ;
3809 END IF;
3810 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811 ELSIF l_x_Line_Price_Att_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3812 IF l_debug_level > 0 THEN
3813 oe_debug_pub.add( 'PATTR ERROR 2' ) ;
3814 END IF;
3815 RAISE FND_API.G_EXC_ERROR;
3816 END IF;
3817
3818 -- Init Out parameters
3819 x_attribute1 := FND_API.G_MISS_CHAR;
3820 x_attribute10 := FND_API.G_MISS_CHAR;
3821 x_attribute11 := FND_API.G_MISS_CHAR;
3822 x_attribute12 := FND_API.G_MISS_CHAR;
3823 x_attribute13 := FND_API.G_MISS_CHAR;
3824 x_attribute14 := FND_API.G_MISS_CHAR;
3825 x_attribute15 := FND_API.G_MISS_CHAR;
3826 x_attribute2 := FND_API.G_MISS_CHAR;
3827 x_attribute3 := FND_API.G_MISS_CHAR;
3828 x_attribute4 := FND_API.G_MISS_CHAR;
3829 x_attribute5 := FND_API.G_MISS_CHAR;
3830 x_attribute6 := FND_API.G_MISS_CHAR;
3831 x_attribute7 := FND_API.G_MISS_CHAR;
3832 x_attribute8 := FND_API.G_MISS_CHAR;
3833 x_attribute9 := FND_API.G_MISS_CHAR;
3834 x_context := FND_API.G_MISS_CHAR;
3835 x_flex_title := FND_API.G_MISS_CHAR;
3836 x_header_id := FND_API.G_MISS_NUM;
3837 x_line_id := FND_API.G_MISS_NUM;
3838 x_order_price_attrib_id := FND_API.G_MISS_NUM;
3839 x_pricing_attribute1 := FND_API.G_MISS_CHAR;
3840 x_pricing_attribute10 := FND_API.G_MISS_CHAR;
3841 x_pricing_attribute11 := FND_API.G_MISS_CHAR;
3842 x_pricing_attribute12 := FND_API.G_MISS_CHAR;
3843 x_pricing_attribute13 := FND_API.G_MISS_CHAR;
3844 x_pricing_attribute14 := FND_API.G_MISS_CHAR;
3845 x_pricing_attribute15 := FND_API.G_MISS_CHAR;
3846 x_pricing_attribute16 := FND_API.G_MISS_CHAR;
3847 x_pricing_attribute17 := FND_API.G_MISS_CHAR;
3848 x_pricing_attribute18 := FND_API.G_MISS_CHAR;
3849 x_pricing_attribute19 := FND_API.G_MISS_CHAR;
3850 x_pricing_attribute2 := FND_API.G_MISS_CHAR;
3851 x_pricing_attribute20 := FND_API.G_MISS_CHAR;
3852 x_pricing_attribute21 := FND_API.G_MISS_CHAR;
3853 x_pricing_attribute22 := FND_API.G_MISS_CHAR;
3854 x_pricing_attribute23 := FND_API.G_MISS_CHAR;
3855 x_pricing_attribute24 := FND_API.G_MISS_CHAR;
3856 x_pricing_attribute25 := FND_API.G_MISS_CHAR;
3857 x_pricing_attribute26 := FND_API.G_MISS_CHAR;
3858 x_pricing_attribute27 := FND_API.G_MISS_CHAR;
3859 x_pricing_attribute28 := FND_API.G_MISS_CHAR;
3860 x_pricing_attribute29 := FND_API.G_MISS_CHAR;
3861 x_pricing_attribute3 := FND_API.G_MISS_CHAR;
3862 x_pricing_attribute30 := FND_API.G_MISS_CHAR;
3863 x_pricing_attribute4 := FND_API.G_MISS_CHAR;
3864 x_pricing_attribute5 := FND_API.G_MISS_CHAR;
3865 x_pricing_attribute6 := FND_API.G_MISS_CHAR;
3866 x_pricing_attribute7 := FND_API.G_MISS_CHAR;
3867 x_pricing_attribute8 := FND_API.G_MISS_CHAR;
3868 x_pricing_attribute9 := FND_API.G_MISS_CHAR;
3869 x_pricing_context := FND_API.G_MISS_CHAR;
3870 x_override_flag := FND_API.G_MISS_CHAR;
3871
3872 -- Record structure
3873
3874 -- No Get Values
3875
3876 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.override_flag,
3877 l_Line_Price_Att_Rec.override_flag)
3878 THEN
3879 x_override_flag := l_x_Line_Price_Att_Rec.override_flag;
3880 END IF;
3881
3882
3883 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute1,
3884 l_Line_Price_Att_Rec.attribute1)
3885 THEN
3886 x_attribute1 := l_x_Line_Price_Att_Rec.attribute1;
3887 END IF;
3888
3889
3890 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute2,
3891 l_Line_Price_Att_Rec.attribute2)
3892 THEN
3893 x_attribute3 := l_x_Line_Price_Att_Rec.attribute2;
3894 END IF;
3895
3896 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute3,
3897 l_Line_Price_Att_Rec.attribute3)
3898 THEN
3899 x_attribute3 := l_x_Line_Price_Att_Rec.attribute3;
3900 END IF;
3901
3902
3903 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute4,
3904 l_Line_Price_Att_Rec.attribute4)
3905 THEN
3906 x_attribute4 := l_x_Line_Price_Att_Rec.attribute4;
3907 END IF;
3908
3909 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute5,
3910 l_Line_Price_Att_Rec.attribute5)
3911 THEN
3912 x_attribute5 := l_x_Line_Price_Att_Rec.attribute5;
3913 END IF;
3914 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute6,
3915 l_Line_Price_Att_Rec.attribute6)
3916 THEN
3917 x_attribute6 := l_x_Line_Price_Att_Rec.attribute6;
3918 END IF;
3919 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute7,
3920 l_Line_Price_Att_Rec.attribute7)
3921 THEN
3922 x_attribute7 := l_x_Line_Price_Att_Rec.attribute7;
3923 END IF;
3924
3925 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute8,
3926 l_Line_Price_Att_Rec.attribute8)
3927 THEN
3928 x_attribute8 := l_x_Line_Price_Att_Rec.attribute8;
3929 END IF;
3930
3931
3932
3933 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute9,
3934 l_Line_Price_Att_Rec.attribute9)
3935 THEN
3936 x_attribute9 := l_x_Line_Price_Att_Rec.attribute9;
3937 END IF;
3938
3939 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute10,
3940 l_Line_Price_Att_Rec.attribute10)
3941 THEN
3942 x_attribute10 := l_x_Line_Price_Att_Rec.attribute10;
3943 END IF;
3944
3945 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute11,
3946 l_Line_Price_Att_Rec.attribute11)
3947 THEN
3948 x_attribute11 := l_x_Line_Price_Att_Rec.attribute11;
3949 END IF;
3950
3951 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute12,
3952 l_Line_Price_Att_Rec.attribute12)
3953 THEN
3954 x_attribute12 := l_x_Line_Price_Att_Rec.attribute12;
3955 END IF;
3956
3957 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute13,
3958 l_Line_Price_Att_Rec.attribute13)
3959 THEN
3960 x_attribute13 := l_x_Line_Price_Att_Rec.attribute13;
3961 END IF;
3962
3963 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute14,
3964 l_Line_Price_Att_Rec.attribute14)
3965 THEN
3966 x_attribute14 := l_x_Line_Price_Att_Rec.attribute14;
3967 END IF;
3968
3969 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.attribute15,
3970 l_Line_Price_Att_Rec.attribute15)
3971 THEN
3972 x_attribute15 := l_x_Line_Price_Att_Rec.attribute15;
3973 END IF;
3974
3975 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.header_id,
3976 l_Line_Price_Att_Rec.header_id)
3977 THEN
3978 x_header_id := l_x_Line_Price_Att_Rec.header_id;
3979 END IF;
3980
3981 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.line_id,
3982 l_Line_Price_Att_Rec.line_id)
3983 THEN
3984 x_line_id := l_x_Line_Price_Att_Rec.line_id;
3985 END IF;
3986
3987 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.flex_title,
3988 l_Line_Price_Att_Rec.flex_title)
3989 THEN
3990 x_flex_title := l_x_Line_Price_Att_Rec.flex_title;
3991 END IF;
3992
3993 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.order_price_attrib_id,
3994 l_Line_Price_Att_Rec.order_price_attrib_id)
3995 THEN
3996 x_order_price_attrib_id := l_x_Line_Price_Att_Rec.order_price_attrib_id;
3997 END IF;
3998
3999 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute1,
4000 l_Line_Price_Att_Rec.pricing_attribute1)
4001 THEN
4002 x_pricing_attribute1 := l_x_Line_Price_Att_Rec.pricing_attribute1;
4003 END IF;
4004
4005 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute10,
4006 l_Line_Price_Att_Rec.pricing_attribute10)
4007 THEN
4008 x_pricing_attribute10 := l_x_Line_Price_Att_Rec.pricing_attribute10;
4009 END IF;
4010
4011 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute11,
4012 l_Line_Price_Att_Rec.pricing_attribute11)
4013 THEN
4014 x_pricing_attribute11 := l_x_Line_Price_Att_Rec.pricing_attribute11;
4015 END IF;
4016
4017 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute12,
4018 l_Line_Price_Att_Rec.pricing_attribute12)
4019 THEN
4020 x_pricing_attribute12 := l_x_Line_Price_Att_Rec.pricing_attribute12;
4021 END IF;
4022
4023 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute13,
4024 l_Line_Price_Att_Rec.pricing_attribute13)
4025 THEN
4026 x_pricing_attribute13 := l_x_Line_Price_Att_Rec.pricing_attribute13;
4027 END IF;
4028
4029 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute14,
4030 l_Line_Price_Att_Rec.pricing_attribute14)
4031 THEN
4032 x_pricing_attribute14 := l_x_Line_Price_Att_Rec.pricing_attribute14;
4033 END IF;
4034
4035 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute15,
4036 l_Line_Price_Att_Rec.pricing_attribute15)
4037 THEN
4038 x_pricing_attribute15 := l_x_Line_Price_Att_Rec.pricing_attribute15;
4039 END IF;
4040
4041 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute16,
4042 l_Line_Price_Att_Rec.pricing_attribute16)
4043 THEN
4044 x_pricing_attribute16 := l_x_Line_Price_Att_Rec.pricing_attribute16;
4045 END IF;
4046
4047 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute17,
4048 l_Line_Price_Att_Rec.pricing_attribute17)
4049 THEN
4050 x_pricing_attribute17 := l_x_Line_Price_Att_Rec.pricing_attribute17;
4051 END IF;
4052
4053 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute18,
4054 l_Line_Price_Att_Rec.pricing_attribute18)
4055 THEN
4056 x_pricing_attribute18 := l_x_Line_Price_Att_Rec.pricing_attribute18;
4057 END IF;
4058
4059 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute19,
4060 l_Line_Price_Att_Rec.pricing_attribute19)
4061 THEN
4062 x_pricing_attribute19 := l_x_Line_Price_Att_Rec.pricing_attribute19;
4063 END IF;
4064
4065 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute2,
4066 l_Line_Price_Att_Rec.pricing_attribute2)
4067 THEN
4068 x_pricing_attribute2 := l_x_Line_Price_Att_Rec.pricing_attribute2;
4069 END IF;
4070
4071 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute20,
4072 l_Line_Price_Att_Rec.pricing_attribute20)
4073 THEN
4074 x_pricing_attribute20 := l_x_Line_Price_Att_Rec.pricing_attribute20;
4075 END IF;
4076
4077 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute21,
4078 l_Line_Price_Att_Rec.pricing_attribute21)
4079 THEN
4080 x_pricing_attribute21 := l_x_Line_Price_Att_Rec.pricing_attribute21;
4081 END IF;
4082
4083 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute22,
4084 l_Line_Price_Att_Rec.pricing_attribute22)
4085 THEN
4086 x_pricing_attribute22 := l_x_Line_Price_Att_Rec.pricing_attribute22;
4087 END IF;
4088
4089 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute23,
4090 l_Line_Price_Att_Rec.pricing_attribute23)
4091 THEN
4092 x_pricing_attribute23 := l_x_Line_Price_Att_Rec.pricing_attribute23;
4093 END IF;
4094
4095 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute24,
4096 l_Line_Price_Att_Rec.pricing_attribute24)
4097 THEN
4098 x_pricing_attribute24 := l_x_Line_Price_Att_Rec.pricing_attribute24;
4099 END IF;
4100
4101 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute25,
4102 l_Line_Price_Att_Rec.pricing_attribute25)
4103 THEN
4104 x_pricing_attribute25 := l_x_Line_Price_Att_Rec.pricing_attribute25;
4105 END IF;
4106
4107 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute26,
4108 l_Line_Price_Att_Rec.pricing_attribute26)
4109 THEN
4110 x_pricing_attribute26 := l_x_Line_Price_Att_Rec.pricing_attribute26;
4111 END IF;
4112
4113 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute27,
4114 l_Line_Price_Att_Rec.pricing_attribute27)
4115 THEN
4116 x_pricing_attribute27 := l_x_Line_Price_Att_Rec.pricing_attribute27;
4117 END IF;
4118
4119 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute28,
4120 l_Line_Price_Att_Rec.pricing_attribute28)
4121 THEN
4122 x_pricing_attribute28 := l_x_Line_Price_Att_Rec.pricing_attribute28;
4123 END IF;
4124
4125 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute29,
4126 l_Line_Price_Att_Rec.pricing_attribute29)
4127 THEN
4128 x_pricing_attribute29 := l_x_Line_Price_Att_Rec.pricing_attribute29;
4129 END IF;
4130
4131 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute3,
4132 l_Line_Price_Att_Rec.pricing_attribute3)
4133 THEN
4134 x_pricing_attribute3 := l_x_Line_Price_Att_Rec.pricing_attribute3;
4135 END IF;
4136
4137 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute30,
4138 l_Line_Price_Att_Rec.pricing_attribute30)
4139 THEN
4140 x_pricing_attribute30 := l_x_Line_Price_Att_Rec.pricing_attribute30;
4141 END IF;
4142
4143
4144 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute4,
4145 l_Line_Price_Att_Rec.pricing_attribute4)
4146 THEN
4147 x_pricing_attribute4 := l_x_Line_Price_Att_Rec.pricing_attribute4;
4148 END IF;
4149
4150
4151 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute5,
4152 l_Line_Price_Att_Rec.pricing_attribute5)
4153 THEN
4154 x_pricing_attribute5 := l_x_Line_Price_Att_Rec.pricing_attribute5;
4155 END IF;
4156
4157
4158
4159 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute6,
4160 l_Line_Price_Att_Rec.pricing_attribute6)
4161 THEN
4162 x_pricing_attribute6 := l_x_Line_Price_Att_Rec.pricing_attribute6;
4163 END IF;
4164
4165
4166 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute7,
4167 l_Line_Price_Att_Rec.pricing_attribute7)
4168 THEN
4169 x_pricing_attribute7 := l_x_Line_Price_Att_Rec.pricing_attribute7;
4170 END IF;
4171
4172
4173 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute8,
4174 l_Line_Price_Att_Rec.pricing_attribute8)
4175 THEN
4176 x_pricing_attribute8 := l_x_Line_Price_Att_Rec.pricing_attribute8;
4177 END IF;
4178
4179
4180 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_attribute9,
4181 l_Line_Price_Att_Rec.pricing_attribute9)
4182 THEN
4183 x_pricing_attribute9 := l_x_Line_Price_Att_Rec.pricing_attribute9;
4184 END IF;
4185
4186 IF NOT OE_GLOBALS.Equal(l_x_Line_Price_Att_Rec.pricing_context,
4187 l_Line_Price_Att_Rec.pricing_context)
4188 THEN
4189 x_pricing_context := l_x_Line_Price_Att_Rec.pricing_context;
4190 END IF;
4191
4192 IF nvl(p_called_from_pattr,'x') <> 'Y' THEN
4193 l_x_Line_Price_Att_Rec.db_flag:=FND_API.G_TRUE;
4194 END IF;
4195
4196 Write_Order_Line_PAttr
4197 (
4198 p_Line_Price_Att_rec => l_x_Line_Price_Att_Rec
4199 ) ;
4200
4201
4202 -- Re-set the UI flag to FALSE
4203 OE_GLOBALS.G_UI_FLAG := FALSE;
4204
4205 -- Set return status.
4206
4207 x_return_status := FND_API.G_RET_STS_SUCCESS;
4208
4209 -- Get message count and data
4210
4211 OE_MSG_PUB.Count_And_Get
4212 ( p_count => x_msg_count
4213 , p_data => x_msg_data
4214 );
4215
4216
4217 IF l_debug_level > 0 THEN
4218 oe_debug_pub.add( 'EXITING OE_OE_FORM_LINE_PATTR.CHANGE_ATTRIBUTES' , 1 ) ;
4219 END IF;
4220
4221 EXCEPTION
4222
4223 WHEN FND_API.G_EXC_ERROR THEN
4224
4225 OE_GLOBALS.G_UI_FLAG := FALSE;
4226
4227 x_return_status := FND_API.G_RET_STS_ERROR;
4228
4229 -- Get message count and data
4230 OE_MSG_PUB.Count_And_Get
4231 ( p_count => x_msg_count
4232 , p_data => x_msg_data
4233 );
4234
4235 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4236
4237 OE_GLOBALS.G_UI_FLAG := FALSE;
4238
4239 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4240
4241 -- Get message count and data
4242
4243 OE_MSG_PUB.Count_And_Get
4244 ( p_count => x_msg_count
4245 , p_data => x_msg_data
4246 );
4247
4248 WHEN OTHERS THEN
4249
4250 OE_GLOBALS.G_UI_FLAG := FALSE;
4251
4252 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4253
4254 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4255 THEN
4256 OE_MSG_PUB.Add_Exc_Msg
4257 ( G_PKG_NAME
4258 , 'Change_Attribute');
4259 END IF;
4260
4261 END Change_Attributes;
4262
4263 PROCEDURE Default_Attributes
4264 ( x_return_status OUT NOCOPY VARCHAR2
4265
4266 , x_msg_count OUT NOCOPY NUMBER
4267
4268 , x_msg_data OUT NOCOPY VARCHAR2
4269
4270 , p_header_id in NUMBER
4271 , p_line_id in NUMBER
4272 , x_attribute1 OUT NOCOPY VARCHAR2
4273
4274 , x_attribute10 OUT NOCOPY VARCHAR2
4275
4276 , x_attribute11 OUT NOCOPY VARCHAR2
4277
4278 , x_attribute12 OUT NOCOPY VARCHAR2
4279
4280 , x_attribute13 OUT NOCOPY VARCHAR2
4281
4282 , x_attribute14 OUT NOCOPY VARCHAR2
4283
4284 , x_attribute15 OUT NOCOPY VARCHAR2
4285
4286 , x_attribute2 OUT NOCOPY VARCHAR2
4287
4288 , x_attribute3 OUT NOCOPY VARCHAR2
4289
4290 , x_attribute4 OUT NOCOPY VARCHAR2
4291
4292 , x_attribute5 OUT NOCOPY VARCHAR2
4293
4294 , x_attribute6 OUT NOCOPY VARCHAR2
4295
4296 , x_attribute7 OUT NOCOPY VARCHAR2
4297
4298 , x_attribute8 OUT NOCOPY VARCHAR2
4299
4300 , x_attribute9 OUT NOCOPY VARCHAR2
4301
4302 , x_flex_title OUT NOCOPY VARCHAR2
4303
4304 , x_context OUT NOCOPY VARCHAR2
4305
4306 , x_header_id OUT NOCOPY NUMBER
4307
4308 , x_line_id OUT NOCOPY NUMBER
4309
4310 , x_order_price_attrib_id OUT NOCOPY NUMBER
4311
4312 , x_pricing_attribute1 OUT NOCOPY VARCHAR2
4313
4314 , x_pricing_attribute10 OUT NOCOPY VARCHAR2
4315
4316 , x_pricing_attribute11 OUT NOCOPY VARCHAR2
4317
4318 , x_pricing_attribute12 OUT NOCOPY VARCHAR2
4319
4320 , x_pricing_attribute13 OUT NOCOPY VARCHAR2
4321
4322 , x_pricing_attribute14 OUT NOCOPY VARCHAR2
4323
4324 , x_pricing_attribute15 OUT NOCOPY VARCHAR2
4325
4326 , x_pricing_attribute2 OUT NOCOPY VARCHAR2
4327
4328 , x_pricing_attribute3 OUT NOCOPY VARCHAR2
4329
4330 , x_pricing_attribute4 OUT NOCOPY VARCHAR2
4331
4332 , x_pricing_attribute5 OUT NOCOPY VARCHAR2
4333
4334 , x_pricing_attribute6 OUT NOCOPY VARCHAR2
4335
4336 , x_pricing_attribute7 OUT NOCOPY VARCHAR2
4337
4338 , x_pricing_attribute8 OUT NOCOPY VARCHAR2
4339
4340 , x_pricing_attribute9 OUT NOCOPY VARCHAR2
4341
4342 , x_pricing_attribute16 OUT NOCOPY VARCHAR2
4343
4344 , x_pricing_attribute17 OUT NOCOPY VARCHAR2
4345
4346 , x_pricing_attribute18 OUT NOCOPY VARCHAR2
4347
4348 , x_pricing_attribute19 OUT NOCOPY VARCHAR2
4349
4350 , x_pricing_attribute20 OUT NOCOPY VARCHAR2
4351
4352 , x_pricing_attribute21 OUT NOCOPY VARCHAR2
4353
4354 , x_pricing_attribute22 OUT NOCOPY VARCHAR2
4355
4356 , x_pricing_attribute23 OUT NOCOPY VARCHAR2
4357
4358 , x_pricing_attribute24 OUT NOCOPY VARCHAR2
4359
4360 , x_pricing_attribute25 OUT NOCOPY VARCHAR2
4361
4362 , x_pricing_attribute26 OUT NOCOPY VARCHAR2
4363
4364 , x_pricing_attribute27 OUT NOCOPY VARCHAR2
4365
4366 , x_pricing_attribute28 OUT NOCOPY VARCHAR2
4367
4368 , x_pricing_attribute29 OUT NOCOPY VARCHAR2
4369
4370 , x_pricing_attribute30 OUT NOCOPY VARCHAR2
4371
4372 , x_pricing_context OUT NOCOPY VARCHAR2
4373
4374 , x_override_flag OUT NOCOPY VARCHAR2
4375
4376 , x_creation_date OUT NOCOPY DATE
4377
4378 ) IS
4379 l_Line_Price_Att_rec OE_Order_PUB.Line_Price_Att_Rec_Type;
4380 l_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
4381
4382 l_control_rec OE_GLOBALS.Control_Rec_Type;
4383 l_return_status VARCHAR2(1);
4384 l_action_request_tbl OE_Order_PUB.Request_Tbl_Type;
4385 l_x_header_rec OE_Order_PUB.Header_Rec_Type;
4386 l_x_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
4387 l_x_Header_Adj_tbl OE_Order_PUB.Header_Adj_Tbl_Type;
4388 l_x_Header_Scredit_rec OE_Order_PUB.Header_Scredit_Rec_Type;
4389 l_x_Header_Scredit_tbl OE_Order_PUB.Header_Scredit_Tbl_Type;
4390 l_x_line_rec OE_Order_PUB.Line_Rec_Type;
4391 l_x_line_tbl OE_Order_PUB.Line_Tbl_Type;
4392 l_x_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
4393 l_x_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
4394 l_x_Line_Scredit_rec OE_Order_PUB.Line_Scredit_Rec_Type;
4395 l_x_Line_Scredit_tbl OE_Order_PUB.Line_Scredit_Tbl_Type;
4396 l_x_Lot_Serial_rec OE_Order_PUB.Lot_Serial_Rec_Type;
4397 l_x_Lot_Serial_tbl OE_Order_PUB.Lot_Serial_Tbl_Type;
4398 l_x_Header_Price_Att_tbl OE_Order_PUB.Header_Price_Att_Tbl_Type;
4399 l_x_Header_Adj_Att_tbl OE_Order_PUB.Header_Adj_Att_Tbl_Type;
4400 l_x_Header_Adj_Assoc_tbl OE_Order_PUB.Header_Adj_Assoc_Tbl_Type;
4401 l_x_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
4402 l_x_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
4403 l_x_old_Line_Price_Att_tbl OE_Order_PUB.Line_Price_Att_Tbl_Type;
4404 l_x_old_Line_Price_Att_Rec OE_Order_PUB.Line_Price_Att_Rec_Type;
4405 l_x_Line_Adj_Att_tbl OE_Order_PUB.Line_Adj_Att_Tbl_Type;
4406 l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
4407
4408 --
4409 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4410 --
4411 BEGIN
4412
4413 IF l_debug_level > 0 THEN
4414 oe_debug_pub.add( 'ENERING OE_OE_FORM_LINE_PATTR.DEFAULT_ATTRIBUTE.' , 1 ) ;
4415 END IF;
4416 -- Set the UI flag
4417 OE_GLOBALS.G_UI_FLAG := TRUE;
4418
4419 -- Set Control Flags
4420 l_control_rec.controlled_operation := TRUE;
4421 l_control_rec.check_security := TRUE;
4422 l_control_rec.default_attributes := TRUE;
4423 l_control_rec.change_attributes := TRUE;
4424
4425 l_control_rec.clear_dependents := FALSE;
4426 l_control_rec.validate_entity := FALSE;
4427 l_control_rec.write_to_DB := FALSE;
4428 l_control_rec.process := FALSE;
4429
4430 -- Instruct API to retain its caches
4431 l_control_rec.clear_api_cache := FALSE;
4432 l_control_rec.clear_api_requests := FALSE;
4433 -----------------------------------------------
4434 -- Set attributes to NULL
4435 -----------------------------------------------
4436
4437 l_x_old_line_price_att_rec := OE_ORDER_PUB.G_MISS_LINE_PRICE_ATT_REC;
4438 l_x_line_price_att_rec := OE_ORDER_PUB.G_MISS_LINE_PRICE_ATT_REC;
4439 IF l_debug_level > 0 THEN
4440 oe_debug_pub.add( ' BEFORE SETTING THINGS TO NULL: OE_ORDER_ADJ_PVT.LINE_PRICE_ATTS' ) ;
4441 END IF;
4442 l_x_Line_Price_Att_Rec.header_id := p_header_id;
4443 l_x_Line_Price_Att_Rec.Line_id := p_Line_id;
4444 l_x_Line_Price_Att_Rec.context := NULL;
4445 l_x_Line_Price_Att_Rec.attribute1 := NULL;
4446 l_x_Line_Price_Att_Rec.attribute2 := NULL;
4447 l_x_Line_Price_Att_Rec.attribute3 := NULL;
4448 l_x_Line_Price_Att_Rec.attribute4 := NULL;
4449 l_x_Line_Price_Att_Rec.attribute5 := NULL;
4450 l_x_Line_Price_Att_Rec.attribute6 := NULL;
4451 l_x_Line_Price_Att_Rec.attribute7 := NULL;
4452 l_x_Line_Price_Att_Rec.attribute8 := NULL;
4453 l_x_Line_Price_Att_Rec.attribute9 := NULL;
4454 l_x_Line_Price_Att_Rec.attribute10 := NULL;
4455 l_x_Line_Price_Att_Rec.attribute11 := NULL;
4456 l_x_Line_Price_Att_Rec.attribute12 := NULL;
4457 l_x_Line_Price_Att_Rec.attribute13 := NULL;
4458 l_x_Line_Price_Att_Rec.attribute14 := NULL;
4459 l_x_Line_Price_Att_Rec.attribute15 := NULL;
4460 l_x_Line_Price_Att_Rec.pricing_context := NULL;
4461 l_x_Line_Price_Att_Rec.Pricing_Attribute1 := NULL;
4462 l_x_Line_Price_Att_Rec.Pricing_Attribute2 := NULL;
4463 l_x_Line_Price_Att_Rec.Pricing_Attribute3 := NULL;
4464 l_x_Line_Price_Att_Rec.Pricing_Attribute4 := NULL;
4465 l_x_Line_Price_Att_Rec.Pricing_Attribute5 := NULL;
4466 l_x_Line_Price_Att_Rec.Pricing_Attribute6 := NULL;
4467 l_x_Line_Price_Att_Rec.Pricing_Attribute7 := NULL;
4468 l_x_Line_Price_Att_Rec.Pricing_Attribute8 := NULL;
4469 l_x_Line_Price_Att_Rec.Pricing_Attribute9 := NULL;
4470 l_x_Line_Price_Att_Rec.Pricing_Attribute10 := NULL;
4471 l_x_Line_Price_Att_Rec.Pricing_Attribute11 := NULL;
4472 l_x_Line_Price_Att_Rec.Pricing_Attribute12 := NULL;
4473 l_x_Line_Price_Att_Rec.Pricing_Attribute13 := NULL;
4474 l_x_Line_Price_Att_Rec.Pricing_Attribute14 := NULL;
4475 l_x_Line_Price_Att_Rec.Pricing_Attribute15 := NULL;
4476 l_x_Line_Price_Att_Rec.pricing_attribute16 := NULL;
4477 l_x_Line_Price_Att_Rec.pricing_attribute17 := NULL;
4478 l_x_Line_Price_Att_Rec.pricing_attribute18 := NULL;
4479 l_x_Line_Price_Att_Rec.pricing_attribute19 := NULL;
4480 l_x_Line_Price_Att_Rec.pricing_attribute20 := NULL;
4481 l_x_Line_Price_Att_Rec.pricing_attribute21 := NULL;
4482 l_x_Line_Price_Att_Rec.pricing_attribute22 := NULL;
4483 l_x_Line_Price_Att_Rec.pricing_attribute23 := NULL;
4484 l_x_Line_Price_Att_Rec.pricing_attribute24 := NULL;
4485 l_x_Line_Price_Att_Rec.pricing_attribute25 := NULL;
4486 l_x_Line_Price_Att_Rec.pricing_attribute26 := NULL;
4487 l_x_Line_Price_Att_Rec.pricing_attribute27 := NULL;
4488 l_x_Line_Price_Att_Rec.pricing_attribute28 := NULL;
4489 l_x_Line_Price_Att_Rec.pricing_attribute29 := NULL;
4490 l_x_Line_Price_Att_Rec.pricing_attribute30 := NULL;
4491 l_x_Line_Price_Att_Rec.override_flag := NULL;
4492
4493
4494 -- Set Operation to Create
4495 l_x_Line_Price_Att_Rec.operation := OE_GLOBALS.G_OPR_CREATE;
4496
4497 l_x_Line_Price_Att_Tbl(1) := l_x_Line_Price_Att_Rec;
4498 IF l_debug_level > 0 THEN
4499 oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_ADJ_PVT.LINE_PRICE_ATTS' ) ;
4500 END IF;
4501 -- Call Oe_Order_Adj_Pvt.Line_Price_Atts
4502 oe_order_adj_pvt.Line_Price_Atts
4503 ( p_init_msg_list => FND_API.G_TRUE
4504 , p_validation_level => FND_API.G_VALID_LEVEL_NONE
4505 , p_control_rec => l_control_rec
4506 , p_x_line_price_att_tbl => l_x_Line_price_att_tbl
4507 , p_x_old_line_price_att_tbl => l_x_old_Line_price_att_tbl
4508 );
4509 IF l_debug_level > 0 THEN
4510 oe_debug_pub.add( 'AFTER CALLING OE_ORDER_ADJ_PVT.LINE_PRICE_ATTS' ) ;
4511 END IF;
4512 l_x_Line_Price_Att_Rec := l_x_Line_Price_Att_tbl(1);
4513
4514 IF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4515 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4516 ELSIF l_x_Line_Price_Att_Rec.return_status = FND_API.G_RET_STS_ERROR THEN
4517 RAISE FND_API.G_EXC_ERROR;
4518 END IF;
4519
4520
4521 -- Load out parameters
4522
4523 x_attribute1 := l_x_Line_Price_Att_Rec.attribute1;
4524 x_attribute10 := l_x_Line_Price_Att_Rec.attribute10;
4525 x_attribute11 := l_x_Line_Price_Att_Rec.attribute11;
4526 x_attribute12 := l_x_Line_Price_Att_Rec.attribute12;
4527 x_attribute13 := l_x_Line_Price_Att_Rec.attribute13;
4528 x_attribute14 := l_x_Line_Price_Att_Rec.attribute14;
4529 x_attribute15 := l_x_Line_Price_Att_Rec.attribute15;
4530 x_attribute2 := l_x_Line_Price_Att_Rec.attribute2;
4531 x_attribute3 := l_x_Line_Price_Att_Rec.attribute3;
4532 x_attribute4 := l_x_Line_Price_Att_Rec.attribute4;
4533 x_attribute5 := l_x_Line_Price_Att_Rec.attribute5;
4534 x_attribute6 := l_x_Line_Price_Att_Rec.attribute6;
4535 x_attribute7 := l_x_Line_Price_Att_Rec.attribute7;
4536 x_attribute8 := l_x_Line_Price_Att_Rec.attribute8;
4537 x_attribute9 := l_x_Line_Price_Att_Rec.attribute9;
4538 x_context := l_x_Line_Price_Att_Rec.context;
4539 x_flex_title := l_x_Line_Price_Att_Rec.flex_title;
4540 x_header_id := l_x_Line_Price_Att_Rec.header_id;
4541 x_line_id := l_x_Line_Price_Att_Rec.line_id;
4542 x_order_price_attrib_id := l_x_Line_Price_Att_Rec.order_price_attrib_id;
4543 x_pricing_attribute1 := l_x_Line_Price_Att_Rec.pricing_attribute1;
4544 x_pricing_attribute10 := l_x_Line_Price_Att_Rec.pricing_attribute10;
4545 x_pricing_attribute11 := l_x_Line_Price_Att_Rec.pricing_attribute11;
4546 x_pricing_attribute12 := l_x_Line_Price_Att_Rec.pricing_attribute12;
4547 x_pricing_attribute13 := l_x_Line_Price_Att_Rec.pricing_attribute13;
4548 x_pricing_attribute14 := l_x_Line_Price_Att_Rec.pricing_attribute14;
4549 x_pricing_attribute15 := l_x_Line_Price_Att_Rec.pricing_attribute15;
4550 x_pricing_attribute16 := l_x_Line_Price_Att_Rec.pricing_attribute16;
4551 x_pricing_attribute17 := l_x_Line_Price_Att_Rec.pricing_attribute17;
4552 x_pricing_attribute18 := l_x_Line_Price_Att_Rec.pricing_attribute18;
4553 x_pricing_attribute19 := l_x_Line_Price_Att_Rec.pricing_attribute19;
4554 x_pricing_attribute2 := l_x_Line_Price_Att_Rec.pricing_attribute2;
4555 x_pricing_attribute20 := l_x_Line_Price_Att_Rec.pricing_attribute20;
4556 x_pricing_attribute21 := l_x_Line_Price_Att_Rec.pricing_attribute21;
4557 x_pricing_attribute22 := l_x_Line_Price_Att_Rec.pricing_attribute22;
4558 x_pricing_attribute23 := l_x_Line_Price_Att_Rec.pricing_attribute23;
4559 x_pricing_attribute24 := l_x_Line_Price_Att_Rec.pricing_attribute24;
4560 x_pricing_attribute25 := l_x_Line_Price_Att_Rec.pricing_attribute25;
4561 x_pricing_attribute26 := l_x_Line_Price_Att_Rec.pricing_attribute26;
4562 x_pricing_attribute27 := l_x_Line_Price_Att_Rec.pricing_attribute27;
4563 x_pricing_attribute28 := l_x_Line_Price_Att_Rec.pricing_attribute28;
4564 x_pricing_attribute29 := l_x_Line_Price_Att_Rec.pricing_attribute29;
4565 x_pricing_attribute3 := l_x_Line_Price_Att_Rec.pricing_attribute3;
4566 x_pricing_attribute30 := l_x_Line_Price_Att_Rec.pricing_attribute30;
4567 x_pricing_attribute4 := l_x_Line_Price_Att_Rec.pricing_attribute4;
4568 x_pricing_attribute5 := l_x_Line_Price_Att_Rec.pricing_attribute5;
4569 x_pricing_attribute6 := l_x_Line_Price_Att_Rec.pricing_attribute6;
4570 x_pricing_attribute7 := l_x_Line_Price_Att_Rec.pricing_attribute7;
4571 x_pricing_attribute8 := l_x_Line_Price_Att_Rec.pricing_attribute8;
4572 x_pricing_attribute9 := l_x_Line_Price_Att_Rec.pricing_attribute9;
4573 x_pricing_context := l_x_Line_Price_Att_Rec.pricing_context;
4574 x_override_flag := l_x_Line_Price_Att_Rec.override_flag;
4575
4576
4577 l_x_Line_Price_Att_Rec.db_flag := FND_API.G_FALSE;
4578
4579 IF l_debug_level > 0 THEN
4580 oe_debug_pub.add( 'WRITING PATTRIBUTE TO CACHE' ) ;
4581 END IF;
4582 Write_Order_Line_PAttr (
4583 p_Line_Price_Att_rec => l_x_Line_Price_Att_Rec
4584 );
4585
4586 -- Re-set the UI flag to FALSE
4587 OE_GLOBALS.G_UI_FLAG := FALSE;
4588
4589 -- Set return status.
4590 x_return_status := FND_API.G_RET_STS_SUCCESS;
4591
4592
4593 -- Get message count and data
4594 OE_MSG_PUB.Count_And_Get
4595 ( p_count => x_msg_count
4596 , p_data => x_msg_data
4597 );
4598
4599 IF l_debug_level > 0 THEN
4600 oe_debug_pub.add( 'LEAVING DEFAULT ATTRIBUTE' ) ;
4601 END IF;
4602 EXCEPTION
4603 WHEN FND_API.G_EXC_ERROR THEN
4604
4605 OE_GLOBALS.G_UI_FLAG := FALSE;
4606 x_return_status := FND_API.G_RET_STS_ERROR;
4607
4608 -- Get message count and data
4609
4610 OE_MSG_PUB.Count_And_Get
4611 ( p_count => x_msg_count
4612 , p_data => x_msg_data
4613 );
4614
4615 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4616
4617 OE_GLOBALS.G_UI_FLAG := FALSE;
4618
4619 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4620
4621 -- Get message count and data
4622
4623 OE_MSG_PUB.Count_And_Get
4624 ( p_count => x_msg_count
4625 , p_data => x_msg_data
4626 );
4627
4628 WHEN OTHERS THEN
4629
4630 OE_GLOBALS.G_UI_FLAG := FALSE;
4631
4632 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4633
4634 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4635 THEN
4636 OE_MSG_PUB.Add_Exc_Msg
4637 ( G_PKG_NAME
4638 , 'Default_Attributes'
4639 );
4640 END IF;
4641
4642
4643
4644 -- Get message count and data
4645
4646 OE_MSG_PUB.Count_And_Get
4647 ( p_count => x_msg_count
4648 , p_data => x_msg_data
4649 );
4650
4651 END Default_Attributes;
4652
4653
4654
4655 END OE_OE_Form_Line_PAttr;