[Home] [Help]
PACKAGE BODY: APPS.QP_DEFAULT_MODIFIER_LIST
Source
1 PACKAGE BODY QP_Default_Modifier_List AS
2 /* $Header: QPXDMLHB.pls 120.6 2005/09/27 12:32:44 spgopal ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Default_Modifier_List';
7
8 -- Package global used within the package.
12 -- Get functions.
9
10 g_MODIFIER_LIST_rec QP_Modifiers_PUB.Modifier_List_Rec_Type;
11
13
14 FUNCTION Get_Automatic
15 RETURN VARCHAR2
16 IS
17 BEGIN
18
19 RETURN 'N';
20
21 END Get_Automatic;
22
23 FUNCTION Get_Comments
24 RETURN VARCHAR2
25 IS
26 BEGIN
27
28 RETURN NULL;
29
30 END Get_Comments;
31
32 FUNCTION Get_Currency
33 RETURN VARCHAR2
34 IS
35 l_set_of_books_id VARCHAR2(255) := '';
36 l_currency_code VARCHAR2(15) := '';
37 l_org_id NUMBER;
38 BEGIN
39
40 oe_debug_Pub.add('entering currency');
41 -- MKARYA for bug 1745313, commented out the procedure call FND_PROFILE.GET() and instead using the
42 -- function oe_sys_parameters.value() to get the default currency.
43 --added for moac to call Oe_sys_params only if org_id is not null
44 l_org_id := QP_UTIL.get_org_id;
45 IF l_org_id IS NOT NULL THEN
46 l_set_of_books_id := oe_sys_parameters.value('SET_OF_BOOKS_ID', l_org_id);
47 ELSE
48 l_set_of_books_id := null;
49 END IF;--if l_org_id
50 -- FND_PROFILE.GET('OE_SET_OF_BOOKS_ID', l_set_of_books_id);
51
52 IF l_set_of_books_id is not null THEN
53
54 SELECT CURRENCY_CODE
55 INTO l_currency_code
56 FROM GL_SETS_OF_BOOKS
57 WHERE SET_OF_BOOKS_ID = l_set_of_books_id;
58
59 END IF;
60
61 oe_debug_Pub.add('exiting currency');
62
63 RETURN l_currency_code;
64
65 EXCEPTION
66
67 WHEN NO_DATA_FOUND THEN RETURN NULL;
68
69 WHEN OTHERS THEN
70
71 IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
72 THEN
73 OE_MSG_PUB.Add_Exc_Msg
74 ( G_PKG_NAME ,
75 'Get_Currency'
76 );
77 END IF;
78
79 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
80
81
82
83 END Get_Currency;
84
85 FUNCTION Get_Discount_Lines
86 RETURN VARCHAR2
87 IS
88 BEGIN
89
90 RETURN NULL;
91
92 END Get_Discount_Lines;
93
94 FUNCTION Get_End_Date_Active
95 RETURN DATE
96 IS
97 BEGIN
98
99 RETURN NULL;
100
101 END Get_End_Date_Active;
102
103 FUNCTION Get_Freight_Terms
104 RETURN VARCHAR2
105 IS
106 BEGIN
107
108 RETURN NULL;
109
110 END Get_Freight_Terms;
111
112 FUNCTION Get_Gsa_Indicator
113 RETURN VARCHAR2
114 IS
115 BEGIN
116
117 RETURN NULL;
118
119 END Get_Gsa_Indicator;
120
121 FUNCTION Get_List_Header
122 RETURN NUMBER
123 IS
124 l_list_header_id NUMBER := FND_API.G_MISS_NUM;
125 BEGIN
126
127 select QP_LIST_HEADERS_B_S.nextval
128 into l_list_header_id
129 from dual;
130
131 RETURN l_list_header_id;
132
133 END Get_List_Header;
134
135 FUNCTION Get_List_Type
136 RETURN VARCHAR2
137 IS
138 BEGIN
139
140 RETURN NULL;
141
142 END Get_List_Type;
143
144 FUNCTION Get_Prorate
145 RETURN VARCHAR2
146 IS
147 BEGIN
148
149 RETURN NULL;
150
151 END Get_Prorate;
152
153 FUNCTION Get_Rounding_Factor
154 RETURN NUMBER
155 IS
156 BEGIN
157
158 RETURN NULL;
159
160 END Get_Rounding_Factor;
161
162 FUNCTION Get_Ship_Method
163 RETURN VARCHAR2
164 IS
165 BEGIN
166
167 RETURN NULL;
168
169 END Get_Ship_Method;
170
171 FUNCTION Get_Start_Date_Active
172 RETURN DATE
173 IS
174 BEGIN
175
176 RETURN NULL;
177
178 END Get_Start_Date_Active;
179
180 FUNCTION Get_Start_Date_Active_First
181 RETURN DATE
182 IS
183 BEGIN
184
185 RETURN NULL;
186
187 END Get_Start_Date_Active_First;
188
189 FUNCTION Get_End_Date_Active_First
190 RETURN DATE
191 IS
192 BEGIN
193
194 RETURN NULL;
195
196 END Get_End_Date_Active_First;
197
198 FUNCTION Get_Active_Date_First_Type
199 RETURN VARCHAR2
200 IS
201 BEGIN
202
203 RETURN NULL;
204
205 END Get_Active_Date_First_Type;
206
207 FUNCTION Get_Start_Date_Active_Second
208 RETURN DATE
209 IS
210 BEGIN
211
212 RETURN NULL;
213
214 END Get_Start_Date_Active_Second;
215
216 FUNCTION Get_Global_Flag
217 RETURN VARCHAR2
218 IS
219 BEGIN
220
221 RETURN 'Y';
222
223 END Get_Global_Flag;
224
225 FUNCTION Get_End_Date_Active_Second
226 RETURN DATE
227 IS
228 BEGIN
229
230 RETURN NULL;
231
232 END Get_End_Date_Active_Second;
233
234 FUNCTION Get_Active_Date_Second_Type
235 RETURN VARCHAR2
236 IS
237 BEGIN
238
239 RETURN NULL;
240
241 END Get_Active_Date_Second_Type;
242
246 BEGIN
243 FUNCTION Get_Terms
244 RETURN NUMBER
245 IS
247
248 RETURN NULL;
249
250 END Get_Terms;
251
252 FUNCTION Get_Parent_List_Header
253 RETURN NUMBER
254 IS
255 BEGIN
256
257 RETURN NULL;
258
259 END Get_Parent_List_Header;
260
261 FUNCTION Get_Version_No
262 RETURN VARCHAR2
263 IS
264 BEGIN
265
266 RETURN NULL;
267
268 END Get_Version_no;
269
270 FUNCTION Get_Ask_For
271 RETURN VARCHAR2
272 IS
273 BEGIN
274
275 RETURN 'N';
276
277 END Get_Ask_For;
278
279 FUNCTION Get_Source_System
280 RETURN VARCHAR2
281 IS
282 l_source_system_code VARCHAR2(30);
283 BEGIN
284
285 FND_PROFILE.GET('QP_SOURCE_SYSTEM_CODE',l_source_system_code);
286 RETURN l_source_system_code;
287
288 END Get_Source_System;
289
290 -- Added for attribute manager change
291 FUNCTION Get_Pte_Code
292 RETURN VARCHAR2
293 IS
294 l_pte_code VARCHAR2(30);
295 BEGIN
296
297 FND_PROFILE.GET('QP_PRICING_TRANSACTION_ENTITY',l_pte_code);
298 if l_pte_code is NULL then
299 l_pte_code := 'ORDFUL';
300 end if;
301
302 RETURN l_pte_code;
303
304 END Get_Pte_Code;
305
306 FUNCTION Get_Active
307 RETURN VARCHAR2
308 IS
309 BEGIN
310
311 RETURN 'Y';
312
313 END Get_Active;
314
315 FUNCTION Get_Name
316 RETURN VARCHAR2
317 IS
318 BEGIN
319
320 RETURN NULL;
321
322 END Get_Name;
323
324 FUNCTION Get_Description
325 RETURN VARCHAR2
326 IS
327 BEGIN
328
329 RETURN NULL;
330
331 END Get_Description;
332
333 FUNCTION Get_List_Source_Code
334 RETURN VARCHAR2
335 IS BEGIN
336
337 RETURN NULL;
338
339 END Get_List_Source_Code;
340
341 FUNCTION Get_Orig_System_Header_Ref
342 RETURN VARCHAR2
343 IS BEGIN
344
345 RETURN NULL;
346
347 END Get_Orig_System_Header_Ref;
348
349 FUNCTION Get_Shareable_Flag
350 RETURN VARCHAR2
351 IS BEGIN
352
353 RETURN NULL;
354
355 END Get_Shareable_Flag;
356
357 --added for MOAC
358 FUNCTION Get_Org_Id
359 RETURN NUMBER
360 IS BEGIN
361
362 RETURN QP_UTIL.Get_Org_Id;
363
364 END Get_Org_Id;
365
366 PROCEDURE Get_Flex_Modifier_List
367 IS
368 BEGIN
369
370 oe_debug_pub.add('BEGIN get_flex_modifier_list in QPXDMLHB');
371
372 -- In the future call Flex APIs for defaults
373
374 IF g_MODIFIER_LIST_rec.attribute1 = FND_API.G_MISS_CHAR THEN
375 g_MODIFIER_LIST_rec.attribute1 := NULL;
376 END IF;
377
378 IF g_MODIFIER_LIST_rec.attribute10 = FND_API.G_MISS_CHAR THEN
379 g_MODIFIER_LIST_rec.attribute10 := NULL;
380 END IF;
381
382 IF g_MODIFIER_LIST_rec.attribute11 = FND_API.G_MISS_CHAR THEN
383 g_MODIFIER_LIST_rec.attribute11 := NULL;
384 END IF;
385
386 IF g_MODIFIER_LIST_rec.attribute12 = FND_API.G_MISS_CHAR THEN
387 g_MODIFIER_LIST_rec.attribute12 := NULL;
388 END IF;
389
390 IF g_MODIFIER_LIST_rec.attribute13 = FND_API.G_MISS_CHAR THEN
391 g_MODIFIER_LIST_rec.attribute13 := NULL;
392 END IF;
393
394 IF g_MODIFIER_LIST_rec.attribute14 = FND_API.G_MISS_CHAR THEN
395 g_MODIFIER_LIST_rec.attribute14 := NULL;
396 END IF;
397
398 IF g_MODIFIER_LIST_rec.attribute15 = FND_API.G_MISS_CHAR THEN
399 g_MODIFIER_LIST_rec.attribute15 := NULL;
400 END IF;
401
402 IF g_MODIFIER_LIST_rec.attribute2 = FND_API.G_MISS_CHAR THEN
403 g_MODIFIER_LIST_rec.attribute2 := NULL;
404 END IF;
405
406 IF g_MODIFIER_LIST_rec.attribute3 = FND_API.G_MISS_CHAR THEN
407 g_MODIFIER_LIST_rec.attribute3 := NULL;
408 END IF;
409
410 IF g_MODIFIER_LIST_rec.attribute4 = FND_API.G_MISS_CHAR THEN
411 g_MODIFIER_LIST_rec.attribute4 := NULL;
412 END IF;
413
414 IF g_MODIFIER_LIST_rec.attribute5 = FND_API.G_MISS_CHAR THEN
415 g_MODIFIER_LIST_rec.attribute5 := NULL;
416 END IF;
417
418 IF g_MODIFIER_LIST_rec.attribute6 = FND_API.G_MISS_CHAR THEN
419 g_MODIFIER_LIST_rec.attribute6 := NULL;
420 END IF;
421
422 IF g_MODIFIER_LIST_rec.attribute7 = FND_API.G_MISS_CHAR THEN
423 g_MODIFIER_LIST_rec.attribute7 := NULL;
424 END IF;
425
426 IF g_MODIFIER_LIST_rec.attribute8 = FND_API.G_MISS_CHAR THEN
427 g_MODIFIER_LIST_rec.attribute8 := NULL;
428 END IF;
429
430 IF g_MODIFIER_LIST_rec.attribute9 = FND_API.G_MISS_CHAR THEN
431 g_MODIFIER_LIST_rec.attribute9 := NULL;
432 END IF;
433
434 IF g_MODIFIER_LIST_rec.context = FND_API.G_MISS_CHAR THEN
435 g_MODIFIER_LIST_rec.context := NULL;
436 END IF;
437
438 oe_debug_pub.add('END get_flex_modifier_list in QPXDMLHB');
439 END Get_Flex_Modifier_List;
440
441 -- Procedure Attributes
442
443 PROCEDURE Attributes
444 ( p_MODIFIER_LIST_rec IN QP_Modifiers_PUB.Modifier_List_Rec_Type :=
445 QP_Modifiers_PUB.G_MISS_MODIFIER_LIST_REC
449 IS
446 , p_iteration IN NUMBER := 1
447 , x_MODIFIER_LIST_rec OUT NOCOPY /* file.sql.39 change */ QP_Modifiers_PUB.Modifier_List_Rec_Type
448 )
450 l_MODIFIER_LIST_rec QP_Modifiers_PUB.Modifier_List_Rec_Type; --[prarasto]
451 BEGIN
452
453 oe_debug_pub.add('BEGIN attributes in QPXDMLHB');
454 -- Check number of iterations.
455
456 oe_debug_pub.add('BEGIN '||to_char(QP_GLOBALS.G_MAX_DEF_ITERATIONS)||' '||to_char(p_iteration));
457 IF p_iteration > QP_GLOBALS.G_MAX_DEF_ITERATIONS THEN
458
459 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
460 THEN
461
462 FND_MESSAGE.SET_NAME('QP','OE_DEF_MAX_ITERATION');
463 OE_MSG_PUB.Add;
464
465 END IF;
466
467 oe_debug_pub.add('EXP');
468 RAISE FND_API.G_EXC_ERROR;
469
470 END IF;
471
472 -- Initialize g_MODIFIER_LIST_rec
473
474 g_MODIFIER_LIST_rec := p_MODIFIER_LIST_rec;
475
476 -- Default missing attributes.
477
478
479 IF g_MODIFIER_LIST_rec.automatic_flag = FND_API.G_MISS_CHAR THEN
480
481 g_MODIFIER_LIST_rec.automatic_flag := Get_Automatic;
482
483 IF g_MODIFIER_LIST_rec.automatic_flag IS NOT NULL THEN
484
485 IF QP_Validate.Automatic(g_MODIFIER_LIST_rec.automatic_flag)
486 THEN
487
488 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
489
490 oe_debug_pub.add('auto_flag QPXDMLHB');
491 QP_Modifier_List_Util.Clear_Dependent_Attr
492 ( p_attr_id => QP_Modifier_List_Util.G_AUTOMATIC
493 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
494 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
495 );
496 ELSE
497 g_MODIFIER_LIST_rec.automatic_flag := NULL;
498 END IF;
499
500 END IF;
501
502 END IF;
503
504 IF g_MODIFIER_LIST_rec.comments = FND_API.G_MISS_CHAR THEN
505
506 g_MODIFIER_LIST_rec.comments := Get_Comments;
507
508 IF g_MODIFIER_LIST_rec.comments IS NOT NULL THEN
509
510 IF QP_Validate.Comments(g_MODIFIER_LIST_rec.comments)
511 THEN
512
513 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
514
515 oe_debug_pub.add('comm QPXDMLHB');
516 QP_Modifier_List_Util.Clear_Dependent_Attr
517 ( p_attr_id => QP_Modifier_List_Util.G_COMMENTS
518 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
519 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
520 );
521 ELSE
522 g_MODIFIER_LIST_rec.comments := NULL;
523 END IF;
524
525 END IF;
526
527 END IF;
528
529 IF g_MODIFIER_LIST_rec.currency_code = FND_API.G_MISS_CHAR THEN
530
531 g_MODIFIER_LIST_rec.currency_code := Get_Currency;
532
533 IF g_MODIFIER_LIST_rec.currency_code IS NOT NULL THEN
534
535 IF QP_Validate.Currency(g_MODIFIER_LIST_rec.currency_code)
536 THEN
537
538 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
539
540 QP_Modifier_List_Util.Clear_Dependent_Attr
541 ( p_attr_id => QP_Modifier_List_Util.G_CURRENCY
542 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
543 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
544 );
545 ELSE
546 g_MODIFIER_LIST_rec.currency_code := NULL;
547 END IF;
548
549 END IF;
550
551 END IF;
552
553 IF g_MODIFIER_LIST_rec.discount_lines_flag = FND_API.G_MISS_CHAR THEN
554
555 g_MODIFIER_LIST_rec.discount_lines_flag := Get_Discount_Lines;
556
557 IF g_MODIFIER_LIST_rec.discount_lines_flag IS NOT NULL THEN
558
559 IF QP_Validate.Discount_Lines(g_MODIFIER_LIST_rec.discount_lines_flag)
560 THEN
561
562 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
563
564 oe_debug_pub.add('disc QPXDMLHB');
565 QP_Modifier_List_Util.Clear_Dependent_Attr
566 ( p_attr_id => QP_Modifier_List_Util.G_DISCOUNT_LINES
567 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
568 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
569 );
570 ELSE
571 g_MODIFIER_LIST_rec.discount_lines_flag := NULL;
572 END IF;
573
574 END IF;
575
576 END IF;
577
578 IF g_MODIFIER_LIST_rec.end_date_active = FND_API.G_MISS_DATE THEN
579
580 g_MODIFIER_LIST_rec.end_date_active := Get_End_Date_Active;
581
582 IF g_MODIFIER_LIST_rec.end_date_active IS NOT NULL THEN
583
584 IF QP_Validate.End_Date_Active(g_MODIFIER_LIST_rec.end_date_active)
585 THEN
586
587 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
588
589 oe_debug_pub.add('enddate QPXDMLHB');
590 QP_Modifier_List_Util.Clear_Dependent_Attr
594 );
591 ( p_attr_id => QP_Modifier_List_Util.G_END_DATE_ACTIVE
592 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
593 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
595 ELSE
596 g_MODIFIER_LIST_rec.end_date_active := NULL;
597 END IF;
598
599 END IF;
600
601 END IF;
602
603 IF g_MODIFIER_LIST_rec.freight_terms_code = FND_API.G_MISS_CHAR THEN
604
605 g_MODIFIER_LIST_rec.freight_terms_code := Get_Freight_Terms;
606
607 IF g_MODIFIER_LIST_rec.freight_terms_code IS NOT NULL THEN
608
609 IF QP_Validate.Freight_Terms(g_MODIFIER_LIST_rec.freight_terms_code)
610 THEN
611
612 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
613
614 oe_debug_pub.add('freight QPXDMLHB');
615 QP_Modifier_List_Util.Clear_Dependent_Attr
616 ( p_attr_id => QP_Modifier_List_Util.G_FREIGHT_TERMS
617 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
618 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
619 );
620 ELSE
621 g_MODIFIER_LIST_rec.freight_terms_code := NULL;
622 END IF;
623
624 END IF;
625
626 END IF;
627
628 IF g_MODIFIER_LIST_rec.gsa_indicator = FND_API.G_MISS_CHAR THEN
629
630 g_MODIFIER_LIST_rec.gsa_indicator := Get_Gsa_Indicator;
631
632 IF g_MODIFIER_LIST_rec.gsa_indicator IS NOT NULL THEN
633
634 IF QP_Validate.Gsa_Indicator(g_MODIFIER_LIST_rec.gsa_indicator)
635 THEN
636
637 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
638
639 oe_debug_pub.add('gsa QPXDMLHB');
640 QP_Modifier_List_Util.Clear_Dependent_Attr
641 ( p_attr_id => QP_Modifier_List_Util.G_GSA_INDICATOR
642 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
643 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
644 );
645 ELSE
646 g_MODIFIER_LIST_rec.gsa_indicator := NULL;
647 END IF;
648
649 END IF;
650
651 END IF;
652
653 IF g_MODIFIER_LIST_rec.list_header_id = FND_API.G_MISS_NUM THEN
654
655 g_MODIFIER_LIST_rec.list_header_id := Get_List_Header;
656
657 IF g_MODIFIER_LIST_rec.list_header_id IS NOT NULL THEN
658
659 IF QP_Validate.List_Header(g_MODIFIER_LIST_rec.list_header_id)
660 THEN
661
662 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
663
664 QP_Modifier_List_Util.Clear_Dependent_Attr
665 ( p_attr_id => QP_Modifier_List_Util.G_LIST_HEADER
666 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
667 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
668 );
669 ELSE
670 g_MODIFIER_LIST_rec.list_header_id := NULL;
671 END IF;
672
673 END IF;
674
675 END IF;
676
677 IF g_MODIFIER_LIST_rec.parent_list_header_id = FND_API.G_MISS_NUM THEN
678
679 g_MODIFIER_LIST_rec.parent_list_header_id := Get_Parent_List_Header;
680
681 IF g_MODIFIER_LIST_rec.parent_list_header_id IS NOT NULL THEN
682
683 IF QP_Validate.List_Header(g_MODIFIER_LIST_rec.parent_list_header_id)
684 THEN
685
686 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
687
688 QP_Modifier_List_Util.Clear_Dependent_Attr
689 ( p_attr_id => QP_Modifier_List_Util.G_PARENT_LIST_HEADER_ID
690 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
691 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
692 );
693 ELSE
694 g_MODIFIER_LIST_rec.parent_list_header_id := NULL;
695 END IF;
696
697 END IF;
698
699 END IF;
700
701 IF g_MODIFIER_LIST_rec.list_type_code = FND_API.G_MISS_CHAR THEN
702
703 g_MODIFIER_LIST_rec.list_type_code := Get_List_Type;
704
705 IF g_MODIFIER_LIST_rec.list_type_code IS NOT NULL THEN
706
707 IF QP_Validate.List_Type(g_MODIFIER_LIST_rec.list_type_code)
708 THEN
709
710 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
711
712 QP_Modifier_List_Util.Clear_Dependent_Attr
713 ( p_attr_id => QP_Modifier_List_Util.G_LIST_TYPE
714 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
715 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
716 );
717 ELSE
718 g_MODIFIER_LIST_rec.list_type_code := NULL;
719 END IF;
720
721 END IF;
722
723 END IF;
724
725 IF g_MODIFIER_LIST_rec.prorate_flag = FND_API.G_MISS_CHAR THEN
726
727 g_MODIFIER_LIST_rec.prorate_flag := Get_Prorate;
728
729 IF g_MODIFIER_LIST_rec.prorate_flag IS NOT NULL THEN
730
731 IF QP_Validate.Prorate(g_MODIFIER_LIST_rec.prorate_flag)
732 THEN
733
737 ( p_attr_id => QP_Modifier_List_Util.G_PRORATE
734 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
735
736 QP_Modifier_List_Util.Clear_Dependent_Attr
738 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
739 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
740 );
741 ELSE
742 g_MODIFIER_LIST_rec.prorate_flag := NULL;
743 END IF;
744
745 END IF;
746
747 END IF;
748
749 IF g_MODIFIER_LIST_rec.rounding_factor = FND_API.G_MISS_NUM THEN
750
751 g_MODIFIER_LIST_rec.rounding_factor := Get_Rounding_Factor;
752
753 IF g_MODIFIER_LIST_rec.rounding_factor IS NOT NULL THEN
754
755 IF QP_Validate.Rounding_Factor(g_MODIFIER_LIST_rec.rounding_factor)
756 THEN
757
758 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
759
760 QP_Modifier_List_Util.Clear_Dependent_Attr
761 ( p_attr_id => QP_Modifier_List_Util.G_ROUNDING_FACTOR
762 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
763 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
764 );
765 ELSE
766 g_MODIFIER_LIST_rec.rounding_factor := NULL;
767 END IF;
768
769 END IF;
770
771 END IF;
772
773 IF g_MODIFIER_LIST_rec.ship_method_code = FND_API.G_MISS_CHAR THEN
774
775 g_MODIFIER_LIST_rec.ship_method_code := Get_Ship_Method;
776
777 IF g_MODIFIER_LIST_rec.ship_method_code IS NOT NULL THEN
778
779 IF QP_Validate.Ship_Method(g_MODIFIER_LIST_rec.ship_method_code)
780 THEN
781
782 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
783
784 QP_Modifier_List_Util.Clear_Dependent_Attr
785 ( p_attr_id => QP_Modifier_List_Util.G_SHIP_METHOD
786 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
787 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
788 );
789 ELSE
790 g_MODIFIER_LIST_rec.ship_method_code := NULL;
791 END IF;
792
793 END IF;
794
795 END IF;
796
797 IF g_MODIFIER_LIST_rec.ask_for_flag = FND_API.G_MISS_CHAR THEN
798
799 g_MODIFIER_LIST_rec.ask_for_flag := Get_Ask_For;
800
801 IF g_MODIFIER_LIST_rec.ask_for_flag IS NOT NULL THEN
802
803 IF QP_Validate.Ask_For(g_MODIFIER_LIST_rec.ask_for_flag)
804 THEN
805
806 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
807
808 QP_Modifier_List_Util.Clear_Dependent_Attr
809 ( p_attr_id => QP_Modifier_List_Util.G_ASK_FOR
810 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
811 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
812 );
813 ELSE
814 g_MODIFIER_LIST_rec.ask_for_flag := NULL;
815 END IF;
816
817 END IF;
818
819 END IF;
820
821 IF g_MODIFIER_LIST_rec.source_system_code = FND_API.G_MISS_CHAR THEN
822
823 g_MODIFIER_LIST_rec.source_system_code := Get_Source_System;
824
825 IF g_MODIFIER_LIST_rec.source_system_code IS NOT NULL THEN
826
827 IF QP_Validate.Source_System(g_MODIFIER_LIST_rec.source_system_code)
828 THEN
829
830 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
831
832 QP_Modifier_List_Util.Clear_Dependent_Attr
833 ( p_attr_id => QP_Modifier_List_Util.G_SOURCE_SYSTEM_CODE
834 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
835 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
836 );
837 ELSE
838 g_MODIFIER_LIST_rec.source_system_code := NULL;
839 END IF;
840
841 END IF;
842
843 END IF;
844
845 IF g_MODIFIER_LIST_rec.pte_code = FND_API.G_MISS_CHAR THEN
846
847 g_MODIFIER_LIST_rec.pte_code := Get_Pte_Code;
848
849 IF g_MODIFIER_LIST_rec.pte_code IS NOT NULL THEN
850
851 IF QP_Validate.Pte_Code(g_MODIFIER_LIST_rec.pte_code)
852 THEN
853
854 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
855
856 QP_Modifier_List_Util.Clear_Dependent_Attr
857 ( p_attr_id => QP_Modifier_List_Util.G_PTE_CODE
858 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
859 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
860 );
861 ELSE
862 g_MODIFIER_LIST_rec.pte_code := NULL;
863 END IF;
864
865 END IF;
866
867 END IF;
868
869 IF g_MODIFIER_LIST_rec.active_flag = FND_API.G_MISS_CHAR THEN
870
871 g_MODIFIER_LIST_rec.active_flag := Get_Active;
872
873 IF g_MODIFIER_LIST_rec.active_flag IS NOT NULL THEN
874
875 IF QP_Validate.Active(g_MODIFIER_LIST_rec.active_flag)
876 THEN
877
881 ( p_attr_id => QP_Modifier_List_Util.G_ACTIVE_FLAG
878 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
879
880 QP_Modifier_List_Util.Clear_Dependent_Attr
882 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
883 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
884 );
885 ELSE
886 g_MODIFIER_LIST_rec.active_flag := NULL;
887 END IF;
888
889 END IF;
890
891 END IF;
892
893 IF g_MODIFIER_LIST_rec.name = FND_API.G_MISS_CHAR THEN
894
895 oe_debug_pub.add('before get_name');
896 g_MODIFIER_LIST_rec.name := Get_Name;
897
898 IF g_MODIFIER_LIST_rec.name IS NOT NULL THEN
899
900 IF QP_Validate.Name(g_MODIFIER_LIST_rec.name)
901 THEN
902
903 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
904
905 QP_Modifier_List_Util.Clear_Dependent_Attr
906 ( p_attr_id => QP_Modifier_List_Util.G_NAME
907 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
908 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
909 );
910 ELSE
911 g_MODIFIER_LIST_rec.name := NULL;
912 END IF;
913
914 END IF;
915
916 END IF;
917
918 IF g_MODIFIER_LIST_rec.description = FND_API.G_MISS_CHAR THEN
919
920 oe_debug_pub.add('before get_desr');
921 g_MODIFIER_LIST_rec.description := Get_Description;
922
923 IF g_MODIFIER_LIST_rec.description IS NOT NULL THEN
924
925 IF QP_Validate.Description(g_MODIFIER_LIST_rec.description)
926 THEN
927
928 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
929
930 QP_Modifier_List_Util.Clear_Dependent_Attr
931 ( p_attr_id => QP_Modifier_List_Util.G_DESCRIPTION
932 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
933 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
934 );
935 ELSE
936 g_MODIFIER_LIST_rec.description := NULL;
937 END IF;
938
939 END IF;
940
941 END IF;
942
943
944 IF g_MODIFIER_LIST_rec.version_no = FND_API.G_MISS_CHAR THEN
945
946 g_MODIFIER_LIST_rec.version_no := Get_Version_No;
947
948 IF g_MODIFIER_LIST_rec.version_no IS NOT NULL THEN
949
950 IF QP_Validate.Version(g_MODIFIER_LIST_rec.version_no)
951 THEN
952
953 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
954
955 QP_Modifier_List_Util.Clear_Dependent_Attr
956 ( p_attr_id => QP_Modifier_List_Util.G_VERSION_NO
957 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
958 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
959 );
960 ELSE
961 g_MODIFIER_LIST_rec.version_no := NULL;
962 END IF;
963
964 END IF;
965
966 END IF;
967
968
969 IF g_MODIFIER_LIST_rec.start_date_active = FND_API.G_MISS_DATE THEN
970
971 g_MODIFIER_LIST_rec.start_date_active := Get_Start_Date_Active;
972
973 IF g_MODIFIER_LIST_rec.start_date_active IS NOT NULL THEN
974
975 IF QP_Validate.Start_Date_Active(g_MODIFIER_LIST_rec.start_date_active)
976 THEN
977
978 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
979
980 QP_Modifier_List_Util.Clear_Dependent_Attr
981 ( p_attr_id => QP_Modifier_List_Util.G_START_DATE_ACTIVE
982 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
983 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
984 );
985 ELSE
986 g_MODIFIER_LIST_rec.start_date_active := NULL;
987 END IF;
988
989 END IF;
990
991 END IF;
992
993 IF g_MODIFIER_LIST_rec.start_date_active_first = FND_API.G_MISS_DATE THEN
994
995 g_MODIFIER_LIST_rec.start_date_active_first := Get_Start_Date_Active_First;
996
997 IF g_MODIFIER_LIST_rec.start_date_active_first IS NOT NULL THEN
998
999 IF QP_Validate.Start_Date_Active_First(g_MODIFIER_LIST_rec.start_date_active_first)
1000 THEN
1001
1002 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1003
1004 QP_Modifier_List_Util.Clear_Dependent_Attr
1005 ( p_attr_id => QP_Modifier_List_Util.G_START_DATE_ACTIVE_FIRST
1006 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1007 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1008 );
1009 ELSE
1010 g_MODIFIER_LIST_rec.start_date_active_first := NULL;
1011 END IF;
1012
1013 END IF;
1014
1015 END IF;
1016
1017 IF g_MODIFIER_LIST_rec.end_date_active_first = FND_API.G_MISS_DATE THEN
1018
1019 g_MODIFIER_LIST_rec.end_date_active_first := Get_End_Date_Active_First;
1020
1024 THEN
1021 IF g_MODIFIER_LIST_rec.end_date_active_first IS NOT NULL THEN
1022
1023 IF QP_Validate.End_Date_Active_First(g_MODIFIER_LIST_rec.end_date_active_first)
1025
1026 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1027
1028 QP_Modifier_List_Util.Clear_Dependent_Attr
1029 ( p_attr_id => QP_Modifier_List_Util.G_END_DATE_ACTIVE_FIRST
1030 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1031 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1032 );
1033 ELSE
1034 g_MODIFIER_LIST_rec.end_date_active_first := NULL;
1035 END IF;
1036
1037 END IF;
1038
1039 END IF;
1040
1041 IF g_MODIFIER_LIST_rec.active_date_first_type = FND_API.G_MISS_CHAR THEN
1042
1043 g_MODIFIER_LIST_rec.active_date_first_type := Get_Active_Date_First_Type;
1044
1045 IF g_MODIFIER_LIST_rec.active_date_first_type IS NOT NULL THEN
1046
1047 IF QP_Validate.Active_Date_First_Type(g_MODIFIER_LIST_rec.active_date_first_type)
1048 THEN
1049
1050 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1051
1052 QP_Modifier_List_Util.Clear_Dependent_Attr
1053 ( p_attr_id => QP_Modifier_List_Util.G_ACTIVE_DATE_FIRST_TYPE
1054 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1055 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1056 );
1057 ELSE
1058 g_MODIFIER_LIST_rec.active_date_first_type := NULL;
1059 END IF;
1060
1061 END IF;
1062
1063 END IF;
1064
1065 IF g_MODIFIER_LIST_rec.start_date_active_second = FND_API.G_MISS_DATE THEN
1066 g_MODIFIER_LIST_rec.start_date_active_second := Get_Start_Date_Active_Second;
1067 IF g_MODIFIER_LIST_rec.start_date_active_second IS NOT NULL THEN
1068 IF QP_Validate.Start_Date_Active_Second(g_MODIFIER_LIST_rec.start_date_active_second)
1069 THEN
1070
1071 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1072
1073 QP_Modifier_List_Util.Clear_Dependent_Attr
1074 ( p_attr_id => QP_Modifier_List_Util.G_START_DATE_ACTIVE_SECOND
1075 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1076 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1077 );
1078 ELSE
1079 g_MODIFIER_LIST_rec.start_date_active_second := NULL;
1080 END IF;
1081 END IF;
1082 END IF;
1083
1084 IF g_MODIFIER_LIST_rec.global_flag = FND_API.G_MISS_CHAR THEN
1085 g_MODIFIER_LIST_rec.global_flag := Get_Global_Flag;
1086 IF g_MODIFIER_LIST_rec.global_flag IS NOT NULL THEN
1087 IF QP_Validate.Global_Flag(g_MODIFIER_LIST_rec.global_flag)
1088 THEN
1089
1090 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1091
1092 QP_Modifier_List_Util.Clear_Dependent_Attr
1093 ( p_attr_id => QP_Modifier_List_Util.G_GLOBAL_FLAG
1094 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1095 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1096 );
1097 ELSE
1098 g_MODIFIER_LIST_rec.global_flag := NULL;
1099 END IF;
1100 END IF;
1101 END IF;
1102
1103
1104 IF g_MODIFIER_LIST_rec.end_date_active_second = FND_API.G_MISS_DATE THEN
1105
1106 g_MODIFIER_LIST_rec.end_date_active_second := Get_End_Date_Active_Second;
1107
1108 IF g_MODIFIER_LIST_rec.end_date_active_second IS NOT NULL THEN
1109
1110 IF QP_Validate.End_Date_Active_Second(g_MODIFIER_LIST_rec.end_date_active_second)
1111 THEN
1112
1113 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1114
1115 QP_Modifier_List_Util.Clear_Dependent_Attr
1116 ( p_attr_id => QP_Modifier_List_Util.G_END_DATE_ACTIVE_SECOND
1117 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1118 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1119 );
1120 ELSE
1121 g_MODIFIER_LIST_rec.end_date_active_second := NULL;
1122 END IF;
1123
1124 END IF;
1125
1126 END IF;
1127
1128 IF g_MODIFIER_LIST_rec.active_date_second_type = FND_API.G_MISS_CHAR THEN
1129
1130 g_MODIFIER_LIST_rec.active_date_second_type := Get_Active_Date_Second_Type;
1131
1132 IF g_MODIFIER_LIST_rec.active_date_second_type IS NOT NULL THEN
1133
1134 IF QP_Validate.Active_Date_Second_Type(g_MODIFIER_LIST_rec.active_date_second_type)
1135 THEN
1136
1137 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1138
1139 QP_Modifier_List_Util.Clear_Dependent_Attr
1140 ( p_attr_id => QP_Modifier_List_Util.G_ACTIVE_DATE_SECOND_TYPE
1141 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1142 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1143 );
1144 ELSE
1145 g_MODIFIER_LIST_rec.active_date_second_type := NULL;
1146 END IF;
1147
1148 END IF;
1149
1150 END IF;
1151
1152 IF g_MODIFIER_LIST_rec.terms_id = FND_API.G_MISS_NUM THEN
1153
1154 g_MODIFIER_LIST_rec.terms_id := Get_Terms;
1155
1159 THEN
1156 IF g_MODIFIER_LIST_rec.terms_id IS NOT NULL THEN
1157
1158 IF QP_Validate.Terms(g_MODIFIER_LIST_rec.terms_id)
1160
1161 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1162
1163 QP_Modifier_List_Util.Clear_Dependent_Attr
1164 ( p_attr_id => QP_Modifier_List_Util.G_TERMS
1165 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1166 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1167 );
1168 ELSE
1169 g_MODIFIER_LIST_rec.terms_id := NULL;
1170 END IF;
1171
1172 END IF;
1173
1174 END IF;
1175
1176 -- Blanket Pricing
1177 IF g_MODIFIER_LIST_rec.orig_system_header_ref = FND_API.G_MISS_CHAR THEN
1178
1179 g_MODIFIER_LIST_rec.orig_system_header_ref := Get_Orig_System_Header_Ref;
1180
1181 IF g_MODIFIER_LIST_rec.orig_system_header_ref IS NOT NULL THEN
1182
1183 IF QP_Validate.Orig_System_Header_Ref(g_MODIFIER_LIST_rec.orig_system_header_ref)
1184 THEN
1185
1186 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1187
1188 QP_Modifier_List_Util.Clear_Dependent_Attr
1189 ( p_attr_id => QP_Modifier_List_Util.G_ORIG_SYSTEM_HEADER_REF
1190 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1191 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1192 );
1193 ELSE
1194 g_MODIFIER_LIST_rec.orig_system_header_ref := NULL;
1195 END IF;
1196
1197 END IF;
1198
1199 END IF;
1200
1201
1202 IF g_MODIFIER_LIST_rec.list_source_code = FND_API.G_MISS_CHAR THEN
1203
1204 g_MODIFIER_LIST_rec.list_source_code := Get_List_Source_Code;
1205
1206 IF g_MODIFIER_LIST_rec.list_source_code IS NOT NULL THEN
1207
1208 IF QP_Validate.List_Source_Code(g_MODIFIER_LIST_rec.list_source_code)
1209 THEN
1210
1211 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1212
1213 QP_Modifier_List_Util.Clear_Dependent_Attr
1214 ( p_attr_id => QP_Modifier_List_Util.G_LIST_SOURCE_CODE
1215 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1216 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1217 );
1218 ELSE
1219 g_MODIFIER_LIST_rec.list_source_code := NULL;
1220 END IF;
1221
1222 END IF;
1223
1224 END IF;
1225
1226 --added for MOAC
1227 IF g_MODIFIER_LIST_rec.org_id = FND_API.G_MISS_NUM THEN
1228
1229 IF g_MODIFIER_LIST_rec.global_flag = 'N' THEN
1230 --global_flag defaulting happens before org_id defaulting
1231 g_MODIFIER_LIST_rec.org_id := Get_Org_Id;
1232 ELSE
1233 g_MODIFIER_LIST_rec.org_id := null;
1234 END IF;
1235
1236 IF g_MODIFIER_LIST_rec.org_id IS NOT NULL THEN
1237
1238 IF QP_Validate.Org_id(g_MODIFIER_LIST_rec.org_id) THEN
1239
1240 l_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec; --[prarasto]
1241
1242 QP_Modifier_List_Util.Clear_Dependent_Attr
1243 ( p_attr_id => QP_Modifier_List_Util.G_ORG_ID
1244 , p_MODIFIER_LIST_rec => l_MODIFIER_LIST_rec
1245 , x_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1246 );
1247 ELSE
1248 oe_debug_pub.add('setting ORG_ID to be null');
1249 g_MODIFIER_LIST_rec.org_id := NULL;
1250 END IF;
1251
1252 END IF;
1253 END IF;
1254
1255
1256 IF g_MODIFIER_LIST_rec.attribute1 = FND_API.G_MISS_CHAR
1257 OR g_MODIFIER_LIST_rec.attribute10 = FND_API.G_MISS_CHAR
1258 OR g_MODIFIER_LIST_rec.attribute11 = FND_API.G_MISS_CHAR
1259 OR g_MODIFIER_LIST_rec.attribute12 = FND_API.G_MISS_CHAR
1260 OR g_MODIFIER_LIST_rec.attribute13 = FND_API.G_MISS_CHAR
1261 OR g_MODIFIER_LIST_rec.attribute14 = FND_API.G_MISS_CHAR
1262 OR g_MODIFIER_LIST_rec.attribute15 = FND_API.G_MISS_CHAR
1263 OR g_MODIFIER_LIST_rec.attribute2 = FND_API.G_MISS_CHAR
1264 OR g_MODIFIER_LIST_rec.attribute3 = FND_API.G_MISS_CHAR
1265 OR g_MODIFIER_LIST_rec.attribute4 = FND_API.G_MISS_CHAR
1266 OR g_MODIFIER_LIST_rec.attribute5 = FND_API.G_MISS_CHAR
1267 OR g_MODIFIER_LIST_rec.attribute6 = FND_API.G_MISS_CHAR
1268 OR g_MODIFIER_LIST_rec.attribute7 = FND_API.G_MISS_CHAR
1269 OR g_MODIFIER_LIST_rec.attribute8 = FND_API.G_MISS_CHAR
1270 OR g_MODIFIER_LIST_rec.attribute9 = FND_API.G_MISS_CHAR
1271 OR g_MODIFIER_LIST_rec.context = FND_API.G_MISS_CHAR
1272 THEN
1273
1274 Get_Flex_Modifier_List;
1275
1276 END IF;
1277
1278 IF g_MODIFIER_LIST_rec.created_by = FND_API.G_MISS_NUM THEN
1279
1280 g_MODIFIER_LIST_rec.created_by := NULL;
1281
1282 END IF;
1283
1284 IF g_MODIFIER_LIST_rec.creation_date = FND_API.G_MISS_DATE THEN
1285
1286 g_MODIFIER_LIST_rec.creation_date := NULL;
1287
1288 END IF;
1289
1290 IF g_MODIFIER_LIST_rec.last_updated_by = FND_API.G_MISS_NUM THEN
1291
1292 g_MODIFIER_LIST_rec.last_updated_by := NULL;
1293
1294 END IF;
1295
1296 IF g_MODIFIER_LIST_rec.last_update_date = FND_API.G_MISS_DATE THEN
1297
1298 g_MODIFIER_LIST_rec.last_update_date := NULL;
1299
1300 END IF;
1301
1305
1302 IF g_MODIFIER_LIST_rec.last_update_login = FND_API.G_MISS_NUM THEN
1303
1304 g_MODIFIER_LIST_rec.last_update_login := NULL;
1306 END IF;
1307
1308 IF g_MODIFIER_LIST_rec.program_application_id = FND_API.G_MISS_NUM THEN
1309
1310 g_MODIFIER_LIST_rec.program_application_id := NULL;
1311
1312 END IF;
1313
1314 IF g_MODIFIER_LIST_rec.program_id = FND_API.G_MISS_NUM THEN
1315
1316 g_MODIFIER_LIST_rec.program_id := NULL;
1317
1318 END IF;
1319
1320 IF g_MODIFIER_LIST_rec.program_update_date = FND_API.G_MISS_DATE THEN
1321
1322 g_MODIFIER_LIST_rec.program_update_date := NULL;
1323
1324 END IF;
1325
1326 IF g_MODIFIER_LIST_rec.request_id = FND_API.G_MISS_NUM THEN
1327
1328 g_MODIFIER_LIST_rec.request_id := NULL;
1329
1330 END IF;
1331
1332 -- Redefault if there are any missing attributes.
1333
1334 IF g_MODIFIER_LIST_rec.attribute1 = FND_API.G_MISS_CHAR
1335 OR g_MODIFIER_LIST_rec.attribute10 = FND_API.G_MISS_CHAR
1336 OR g_MODIFIER_LIST_rec.attribute11 = FND_API.G_MISS_CHAR
1337 OR g_MODIFIER_LIST_rec.attribute12 = FND_API.G_MISS_CHAR
1338 OR g_MODIFIER_LIST_rec.attribute13 = FND_API.G_MISS_CHAR
1339 OR g_MODIFIER_LIST_rec.attribute14 = FND_API.G_MISS_CHAR
1340 OR g_MODIFIER_LIST_rec.attribute15 = FND_API.G_MISS_CHAR
1341 OR g_MODIFIER_LIST_rec.attribute2 = FND_API.G_MISS_CHAR
1342 OR g_MODIFIER_LIST_rec.attribute3 = FND_API.G_MISS_CHAR
1343 OR g_MODIFIER_LIST_rec.attribute4 = FND_API.G_MISS_CHAR
1344 OR g_MODIFIER_LIST_rec.attribute5 = FND_API.G_MISS_CHAR
1345 OR g_MODIFIER_LIST_rec.attribute6 = FND_API.G_MISS_CHAR
1346 OR g_MODIFIER_LIST_rec.attribute7 = FND_API.G_MISS_CHAR
1347 OR g_MODIFIER_LIST_rec.attribute8 = FND_API.G_MISS_CHAR
1348 OR g_MODIFIER_LIST_rec.attribute9 = FND_API.G_MISS_CHAR
1349 OR g_MODIFIER_LIST_rec.automatic_flag = FND_API.G_MISS_CHAR
1350 OR g_MODIFIER_LIST_rec.comments = FND_API.G_MISS_CHAR
1351 OR g_MODIFIER_LIST_rec.context = FND_API.G_MISS_CHAR
1352 OR g_MODIFIER_LIST_rec.created_by = FND_API.G_MISS_NUM
1353 OR g_MODIFIER_LIST_rec.creation_date = FND_API.G_MISS_DATE
1354 OR g_MODIFIER_LIST_rec.currency_code = FND_API.G_MISS_CHAR
1355 OR g_MODIFIER_LIST_rec.discount_lines_flag = FND_API.G_MISS_CHAR
1356 OR g_MODIFIER_LIST_rec.end_date_active = FND_API.G_MISS_DATE
1357 OR g_MODIFIER_LIST_rec.freight_terms_code = FND_API.G_MISS_CHAR
1358 OR g_MODIFIER_LIST_rec.gsa_indicator = FND_API.G_MISS_CHAR
1359 OR g_MODIFIER_LIST_rec.last_updated_by = FND_API.G_MISS_NUM
1360 OR g_MODIFIER_LIST_rec.last_update_date = FND_API.G_MISS_DATE
1361 OR g_MODIFIER_LIST_rec.last_update_login = FND_API.G_MISS_NUM
1362 OR g_MODIFIER_LIST_rec.list_header_id = FND_API.G_MISS_NUM
1363 OR g_MODIFIER_LIST_rec.list_type_code = FND_API.G_MISS_CHAR
1364 OR g_MODIFIER_LIST_rec.program_application_id = FND_API.G_MISS_NUM
1365 OR g_MODIFIER_LIST_rec.program_id = FND_API.G_MISS_NUM
1366 OR g_MODIFIER_LIST_rec.program_update_date = FND_API.G_MISS_DATE
1367 OR g_MODIFIER_LIST_rec.prorate_flag = FND_API.G_MISS_CHAR
1368 OR g_MODIFIER_LIST_rec.request_id = FND_API.G_MISS_NUM
1369 OR g_MODIFIER_LIST_rec.rounding_factor = FND_API.G_MISS_NUM
1370 OR g_MODIFIER_LIST_rec.ship_method_code = FND_API.G_MISS_CHAR
1371 OR g_MODIFIER_LIST_rec.start_date_active = FND_API.G_MISS_DATE
1372 OR g_MODIFIER_LIST_rec.terms_id = FND_API.G_MISS_NUM
1373 OR g_MODIFIER_LIST_rec.parent_list_header_id = FND_API.G_MISS_NUM
1374 OR g_MODIFIER_LIST_rec.source_system_code = FND_API.G_MISS_CHAR
1375 OR g_MODIFIER_LIST_rec.pte_code = FND_API.G_MISS_CHAR
1376 OR g_MODIFIER_LIST_rec.active_flag = FND_API.G_MISS_CHAR
1377 OR g_MODIFIER_LIST_rec.start_date_active_first = FND_API.G_MISS_DATE
1378 OR g_MODIFIER_LIST_rec.end_date_active_first = FND_API.G_MISS_DATE
1379 OR g_MODIFIER_LIST_rec.active_date_first_type = FND_API.G_MISS_CHAR
1380 OR g_MODIFIER_LIST_rec.start_date_active_second = FND_API.G_MISS_DATE
1381 OR g_MODIFIER_LIST_rec.global_flag = FND_API.G_MISS_CHAR
1382 OR g_MODIFIER_LIST_rec.end_date_active_second = FND_API.G_MISS_DATE
1383 OR g_MODIFIER_LIST_rec.active_date_second_type = FND_API.G_MISS_CHAR
1384 OR g_MODIFIER_LIST_rec.ask_for_flag = FND_API.G_MISS_CHAR
1385 OR g_MODIFIER_LIST_rec.name = FND_API.G_MISS_CHAR
1386 OR g_MODIFIER_LIST_rec.description = FND_API.G_MISS_CHAR
1387 THEN
1388
1389 QP_Default_Modifier_List.Attributes
1390 ( p_MODIFIER_LIST_rec => g_MODIFIER_LIST_rec
1391 , p_iteration => p_iteration + 1
1392 , x_MODIFIER_LIST_rec => x_MODIFIER_LIST_rec
1393 );
1394
1395 ELSE
1396
1397 -- Done defaulting attributes
1398
1399 x_MODIFIER_LIST_rec := g_MODIFIER_LIST_rec;
1400
1401 END IF;
1402
1403
1404 oe_debug_pub.add('END attributes in QPXDMLHB');
1405
1406
1407 END Attributes;
1408
1409 END QP_Default_Modifier_List;