[Home] [Help]
PACKAGE BODY: APPS.MRP_DEFAULT_ASSIGNMENT_SET
Source
1 PACKAGE BODY MRP_Default_Assignment_Set AS
2 /* $Header: MRPDASTB.pls 115.2 99/07/16 12:18:46 porting ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_Default_Assignment_Set';
7
8 -- Boolean table type.
9
10 TYPE Boolean_Tbl_Type IS TABLE OF BOOLEAN
11 INDEX BY BINARY_INTEGER;
12
13 -- Package global used within the package.
14
15 g_Assignment_Set_rec MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type;
16
17 -- Get functions.
18
19 FUNCTION Get_Assignment_Set_Id
20 RETURN NUMBER
21 IS
22 l_Assignment_Set_Id NUMBER;
23 BEGIN
24
25 SELECT mrp_assignment_sets_s.nextval
26 INTO l_Assignment_Set_Id
27 FROM DUAL;
28
29 RETURN l_Assignment_Set_Id;
30
31 END Get_Assignment_Set_Id;
32
33 FUNCTION Get_Assignment_Set_Name
34 RETURN VARCHAR2
35 IS
36 BEGIN
37
38 RETURN NULL;
39
40 END Get_Assignment_Set_Name;
41
42 FUNCTION Get_Attribute1
43 RETURN VARCHAR2
44 IS
45 BEGIN
46
47 RETURN NULL;
48
49 END Get_Attribute1;
50
51 FUNCTION Get_Attribute10
52 RETURN VARCHAR2
53 IS
54 BEGIN
55
56 RETURN NULL;
57
58 END Get_Attribute10;
59
60 FUNCTION Get_Attribute11
61 RETURN VARCHAR2
62 IS
63 BEGIN
64
65 RETURN NULL;
66
67 END Get_Attribute11;
68
69 FUNCTION Get_Attribute12
70 RETURN VARCHAR2
71 IS
72 BEGIN
73
74 RETURN NULL;
75
76 END Get_Attribute12;
77
78 FUNCTION Get_Attribute13
79 RETURN VARCHAR2
80 IS
81 BEGIN
82
83 RETURN NULL;
84
85 END Get_Attribute13;
86
87 FUNCTION Get_Attribute14
88 RETURN VARCHAR2
89 IS
90 BEGIN
91
92 RETURN NULL;
93
94 END Get_Attribute14;
95
96 FUNCTION Get_Attribute15
97 RETURN VARCHAR2
98 IS
99 BEGIN
100
101 RETURN NULL;
102
103 END Get_Attribute15;
104
105 FUNCTION Get_Attribute2
106 RETURN VARCHAR2
107 IS
108 BEGIN
109
110 RETURN NULL;
111
112 END Get_Attribute2;
113
114 FUNCTION Get_Attribute3
115 RETURN VARCHAR2
116 IS
117 BEGIN
118
119 RETURN NULL;
120
121 END Get_Attribute3;
122
123 FUNCTION Get_Attribute4
124 RETURN VARCHAR2
125 IS
126 BEGIN
127
128 RETURN NULL;
129
130 END Get_Attribute4;
131
132 FUNCTION Get_Attribute5
133 RETURN VARCHAR2
134 IS
135 BEGIN
136
137 RETURN NULL;
138
139 END Get_Attribute5;
140
141 FUNCTION Get_Attribute6
142 RETURN VARCHAR2
143 IS
144 BEGIN
145
146 RETURN NULL;
147
148 END Get_Attribute6;
149
150 FUNCTION Get_Attribute7
151 RETURN VARCHAR2
152 IS
153 BEGIN
154
155 RETURN NULL;
156
157 END Get_Attribute7;
158
159 FUNCTION Get_Attribute8
160 RETURN VARCHAR2
161 IS
162 BEGIN
163
164 RETURN NULL;
165
166 END Get_Attribute8;
167
168 FUNCTION Get_Attribute9
169 RETURN VARCHAR2
170 IS
171 BEGIN
172
173 RETURN NULL;
174
175 END Get_Attribute9;
176
177 FUNCTION Get_Attribute_Category
178 RETURN VARCHAR2
179 IS
180 BEGIN
181
182 RETURN NULL;
183
184 END Get_Attribute_Category;
185
186 FUNCTION Get_Created_By
187 RETURN NUMBER
188 IS
189 BEGIN
190
191 RETURN NULL;
192
193 END Get_Created_By;
194
195 FUNCTION Get_Creation_Date
196 RETURN DATE
197 IS
198 BEGIN
199
200 RETURN NULL;
201
202 END Get_Creation_Date;
203
204 FUNCTION Get_Description
205 RETURN VARCHAR2
206 IS
207 BEGIN
208
209 RETURN NULL;
210
211 END Get_Description;
212
213 FUNCTION Get_Last_Updated_By
214 RETURN NUMBER
215 IS
216 BEGIN
217
218 RETURN NULL;
219
220 END Get_Last_Updated_By;
221
222 FUNCTION Get_Last_Update_Date
223 RETURN DATE
224 IS
225 BEGIN
226
227 RETURN NULL;
228
229 END Get_Last_Update_Date;
230
231 FUNCTION Get_Last_Update_Login
232 RETURN NUMBER
233 IS
234 BEGIN
235
236 RETURN NULL;
237
238 END Get_Last_Update_Login;
239
240 FUNCTION Get_Program_Application_Id
241 RETURN NUMBER
242 IS
243 BEGIN
244
245 RETURN NULL;
246
247 END Get_Program_Application_Id;
248
249 FUNCTION Get_Program_Id
250 RETURN NUMBER
251 IS
252 BEGIN
253
254 RETURN NULL;
255
256 END Get_Program_Id;
257
258 FUNCTION Get_Program_Update_Date
259 RETURN DATE
260 IS
261 BEGIN
262
263 RETURN NULL;
264
265 END Get_Program_Update_Date;
266
267 FUNCTION Get_Request_Id
268 RETURN NUMBER
269 IS
270 BEGIN
271
272 RETURN NULL;
273
274 END Get_Request_Id;
275
276 -- Procedure Attributes
277
278 PROCEDURE Attributes
279 ( p_Assignment_Set_rec IN MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type :=
280 MRP_Src_Assignment_PUB.G_MISS_ASSIGNMENT_SET_REC
281 , p_iteration IN NUMBER := 1
282 , x_Assignment_Set_rec OUT MRP_Src_Assignment_PUB.Assignment_Set_Rec_Type
283 )
284 IS
285 l_changed_column_tbl Boolean_Tbl_Type;
286 BEGIN
287
288 -- Check number of iterations.
289
290 IF p_iteration > MRP_Globals.G_MAX_DEF_ITERATIONS THEN
291
292 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
293 THEN
294
295 FND_MESSAGE.SET_NAME('MRP','BOI_DEF_MAX_ITERATION');
296 FND_MSG_PUB.Add;
297
298 END IF;
299
300 RAISE FND_API.G_EXC_ERROR;
301
302 END IF;
303
304 -- Initialize g_Assignment_Set_rec
305
306 g_Assignment_Set_rec := p_Assignment_Set_rec;
307
308 -- Default missing attributes.
309
310
311 IF g_Assignment_Set_rec.Assignment_Set_Id = FND_API.G_MISS_NUM THEN
312
313 g_Assignment_Set_rec.Assignment_Set_Id := Get_Assignment_Set_Id;
314
315 END IF;
316
317
318 IF g_Assignment_Set_rec.Assignment_Set_Name = FND_API.G_MISS_CHAR THEN
319
320 g_Assignment_Set_rec.Assignment_Set_Name := Get_Assignment_Set_Name;
321
322 IF g_Assignment_Set_rec.Assignment_Set_Name IS NOT NULL THEN
323
324 IF MRP_Validate_Assignment_Set.Val_Assignment_Set_Name
325 ( g_Assignment_Set_rec.Assignment_Set_Name )
326 THEN
327
328 MRP_Assignment_Set_Util.Clear_Dependent_Attr
329 ( p_attr_id => MRP_Assignment_Set_Util.G_ASSIGNMENT_SET_NAME
330 , p_Assignment_Set_rec => g_Assignment_Set_rec
331 , x_Assignment_Set_rec => g_Assignment_Set_rec
332 );
333 ELSE
334 g_Assignment_Set_rec.Assignment_Set_Name := NULL;
335 END IF;
336
337 END IF;
338
339 END IF;
340
341 IF g_Assignment_Set_rec.Attribute1 = FND_API.G_MISS_CHAR THEN
342
343 g_Assignment_Set_rec.Attribute1 := Get_Attribute1;
344
345 IF g_Assignment_Set_rec.Attribute1 IS NOT NULL THEN
346
347 IF MRP_Validate_Assignment_Set.Val_Attribute1
348 ( g_Assignment_Set_rec.Attribute1 )
349 THEN
350
351 MRP_Assignment_Set_Util.Clear_Dependent_Attr
352 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE1
353 , p_Assignment_Set_rec => g_Assignment_Set_rec
354 , x_Assignment_Set_rec => g_Assignment_Set_rec
355 );
356 ELSE
357 g_Assignment_Set_rec.Attribute1 := NULL;
358 END IF;
359
360 END IF;
361
362 END IF;
363
364 IF g_Assignment_Set_rec.Attribute10 = FND_API.G_MISS_CHAR THEN
365
366 g_Assignment_Set_rec.Attribute10 := Get_Attribute10;
367
368 IF g_Assignment_Set_rec.Attribute10 IS NOT NULL THEN
369
370 IF MRP_Validate_Assignment_Set.Val_Attribute10
371 ( g_Assignment_Set_rec.Attribute10 )
372 THEN
373
374 MRP_Assignment_Set_Util.Clear_Dependent_Attr
375 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE10
376 , p_Assignment_Set_rec => g_Assignment_Set_rec
377 , x_Assignment_Set_rec => g_Assignment_Set_rec
378 );
379 ELSE
380 g_Assignment_Set_rec.Attribute10 := NULL;
381 END IF;
382
383 END IF;
384
385 END IF;
386
387 IF g_Assignment_Set_rec.Attribute11 = FND_API.G_MISS_CHAR THEN
388
389 g_Assignment_Set_rec.Attribute11 := Get_Attribute11;
390
391 IF g_Assignment_Set_rec.Attribute11 IS NOT NULL THEN
392
393 IF MRP_Validate_Assignment_Set.Val_Attribute11
394 ( g_Assignment_Set_rec.Attribute11 )
395 THEN
396
397 MRP_Assignment_Set_Util.Clear_Dependent_Attr
398 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE11
399 , p_Assignment_Set_rec => g_Assignment_Set_rec
400 , x_Assignment_Set_rec => g_Assignment_Set_rec
401 );
402 ELSE
403 g_Assignment_Set_rec.Attribute11 := NULL;
404 END IF;
405
406 END IF;
407
408 END IF;
409
410 IF g_Assignment_Set_rec.Attribute12 = FND_API.G_MISS_CHAR THEN
411
412 g_Assignment_Set_rec.Attribute12 := Get_Attribute12;
413
414 IF g_Assignment_Set_rec.Attribute12 IS NOT NULL THEN
415
416 IF MRP_Validate_Assignment_Set.Val_Attribute12
417 ( g_Assignment_Set_rec.Attribute12 )
418 THEN
419
420 MRP_Assignment_Set_Util.Clear_Dependent_Attr
421 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE12
422 , p_Assignment_Set_rec => g_Assignment_Set_rec
423 , x_Assignment_Set_rec => g_Assignment_Set_rec
424 );
425 ELSE
426 g_Assignment_Set_rec.Attribute12 := NULL;
427 END IF;
428
429 END IF;
430
431 END IF;
432
433 IF g_Assignment_Set_rec.Attribute13 = FND_API.G_MISS_CHAR THEN
434
435 g_Assignment_Set_rec.Attribute13 := Get_Attribute13;
436
437 IF g_Assignment_Set_rec.Attribute13 IS NOT NULL THEN
438
439 IF MRP_Validate_Assignment_Set.Val_Attribute13
440 ( g_Assignment_Set_rec.Attribute13 )
441 THEN
442
443 MRP_Assignment_Set_Util.Clear_Dependent_Attr
444 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE13
445 , p_Assignment_Set_rec => g_Assignment_Set_rec
446 , x_Assignment_Set_rec => g_Assignment_Set_rec
447 );
448 ELSE
449 g_Assignment_Set_rec.Attribute13 := NULL;
450 END IF;
451
452 END IF;
453
454 END IF;
455
456 IF g_Assignment_Set_rec.Attribute14 = FND_API.G_MISS_CHAR THEN
457
458 g_Assignment_Set_rec.Attribute14 := Get_Attribute14;
459
460 IF g_Assignment_Set_rec.Attribute14 IS NOT NULL THEN
461
462 IF MRP_Validate_Assignment_Set.Val_Attribute14
463 ( g_Assignment_Set_rec.Attribute14 )
464 THEN
465
466 MRP_Assignment_Set_Util.Clear_Dependent_Attr
467 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE14
468 , p_Assignment_Set_rec => g_Assignment_Set_rec
469 , x_Assignment_Set_rec => g_Assignment_Set_rec
470 );
471 ELSE
472 g_Assignment_Set_rec.Attribute14 := NULL;
473 END IF;
474
475 END IF;
476
477 END IF;
478
479 IF g_Assignment_Set_rec.Attribute15 = FND_API.G_MISS_CHAR THEN
480
481 g_Assignment_Set_rec.Attribute15 := Get_Attribute15;
482
483 IF g_Assignment_Set_rec.Attribute15 IS NOT NULL THEN
484
485 IF MRP_Validate_Assignment_Set.Val_Attribute15
486 ( g_Assignment_Set_rec.Attribute15 )
487 THEN
488
489 MRP_Assignment_Set_Util.Clear_Dependent_Attr
490 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE15
491 , p_Assignment_Set_rec => g_Assignment_Set_rec
492 , x_Assignment_Set_rec => g_Assignment_Set_rec
493 );
494 ELSE
495 g_Assignment_Set_rec.Attribute15 := NULL;
496 END IF;
497
498 END IF;
499
500 END IF;
501
502 IF g_Assignment_Set_rec.Attribute2 = FND_API.G_MISS_CHAR THEN
503
504 g_Assignment_Set_rec.Attribute2 := Get_Attribute2;
505
506 IF g_Assignment_Set_rec.Attribute2 IS NOT NULL THEN
507
508 IF MRP_Validate_Assignment_Set.Val_Attribute2
509 ( g_Assignment_Set_rec.Attribute2 )
510 THEN
511
512 MRP_Assignment_Set_Util.Clear_Dependent_Attr
513 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE2
514 , p_Assignment_Set_rec => g_Assignment_Set_rec
515 , x_Assignment_Set_rec => g_Assignment_Set_rec
516 );
517 ELSE
518 g_Assignment_Set_rec.Attribute2 := NULL;
519 END IF;
520
521 END IF;
522
523 END IF;
524
525 IF g_Assignment_Set_rec.Attribute3 = FND_API.G_MISS_CHAR THEN
526
527 g_Assignment_Set_rec.Attribute3 := Get_Attribute3;
528
529 IF g_Assignment_Set_rec.Attribute3 IS NOT NULL THEN
530
531 IF MRP_Validate_Assignment_Set.Val_Attribute3
532 ( g_Assignment_Set_rec.Attribute3 )
533 THEN
534
535 MRP_Assignment_Set_Util.Clear_Dependent_Attr
536 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE3
537 , p_Assignment_Set_rec => g_Assignment_Set_rec
538 , x_Assignment_Set_rec => g_Assignment_Set_rec
539 );
540 ELSE
541 g_Assignment_Set_rec.Attribute3 := NULL;
542 END IF;
543
544 END IF;
545
546 END IF;
547
548 IF g_Assignment_Set_rec.Attribute4 = FND_API.G_MISS_CHAR THEN
549
550 g_Assignment_Set_rec.Attribute4 := Get_Attribute4;
551
552 IF g_Assignment_Set_rec.Attribute4 IS NOT NULL THEN
553
554 IF MRP_Validate_Assignment_Set.Val_Attribute4
555 ( g_Assignment_Set_rec.Attribute4 )
556 THEN
557
558 MRP_Assignment_Set_Util.Clear_Dependent_Attr
559 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE4
560 , p_Assignment_Set_rec => g_Assignment_Set_rec
561 , x_Assignment_Set_rec => g_Assignment_Set_rec
562 );
563 ELSE
564 g_Assignment_Set_rec.Attribute4 := NULL;
565 END IF;
566
567 END IF;
568
569 END IF;
570
571 IF g_Assignment_Set_rec.Attribute5 = FND_API.G_MISS_CHAR THEN
572
573 g_Assignment_Set_rec.Attribute5 := Get_Attribute5;
574
575 IF g_Assignment_Set_rec.Attribute5 IS NOT NULL THEN
576
577 IF MRP_Validate_Assignment_Set.Val_Attribute5
578 ( g_Assignment_Set_rec.Attribute5 )
579 THEN
580
581 MRP_Assignment_Set_Util.Clear_Dependent_Attr
582 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE5
583 , p_Assignment_Set_rec => g_Assignment_Set_rec
584 , x_Assignment_Set_rec => g_Assignment_Set_rec
585 );
586 ELSE
587 g_Assignment_Set_rec.Attribute5 := NULL;
588 END IF;
589
590 END IF;
591
592 END IF;
593
594 IF g_Assignment_Set_rec.Attribute6 = FND_API.G_MISS_CHAR THEN
595
596 g_Assignment_Set_rec.Attribute6 := Get_Attribute6;
597
598 IF g_Assignment_Set_rec.Attribute6 IS NOT NULL THEN
599
600 IF MRP_Validate_Assignment_Set.Val_Attribute6
601 ( g_Assignment_Set_rec.Attribute6 )
602 THEN
603
604 MRP_Assignment_Set_Util.Clear_Dependent_Attr
605 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE6
606 , p_Assignment_Set_rec => g_Assignment_Set_rec
607 , x_Assignment_Set_rec => g_Assignment_Set_rec
608 );
609 ELSE
610 g_Assignment_Set_rec.Attribute6 := NULL;
611 END IF;
612
613 END IF;
614
615 END IF;
616
617 IF g_Assignment_Set_rec.Attribute7 = FND_API.G_MISS_CHAR THEN
618
619 g_Assignment_Set_rec.Attribute7 := Get_Attribute7;
620
621 IF g_Assignment_Set_rec.Attribute7 IS NOT NULL THEN
622
623 IF MRP_Validate_Assignment_Set.Val_Attribute7
624 ( g_Assignment_Set_rec.Attribute7 )
625 THEN
626
627 MRP_Assignment_Set_Util.Clear_Dependent_Attr
628 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE7
629 , p_Assignment_Set_rec => g_Assignment_Set_rec
630 , x_Assignment_Set_rec => g_Assignment_Set_rec
631 );
632 ELSE
633 g_Assignment_Set_rec.Attribute7 := NULL;
634 END IF;
635
636 END IF;
637
638 END IF;
639
640 IF g_Assignment_Set_rec.Attribute8 = FND_API.G_MISS_CHAR THEN
641
642 g_Assignment_Set_rec.Attribute8 := Get_Attribute8;
643
644 IF g_Assignment_Set_rec.Attribute8 IS NOT NULL THEN
645
646 IF MRP_Validate_Assignment_Set.Val_Attribute8
647 ( g_Assignment_Set_rec.Attribute8 )
648 THEN
649
650 MRP_Assignment_Set_Util.Clear_Dependent_Attr
651 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE8
652 , p_Assignment_Set_rec => g_Assignment_Set_rec
653 , x_Assignment_Set_rec => g_Assignment_Set_rec
654 );
655 ELSE
656 g_Assignment_Set_rec.Attribute8 := NULL;
657 END IF;
658
659 END IF;
660
661 END IF;
662
663 IF g_Assignment_Set_rec.Attribute9 = FND_API.G_MISS_CHAR THEN
664
665 g_Assignment_Set_rec.Attribute9 := Get_Attribute9;
666
667 IF g_Assignment_Set_rec.Attribute9 IS NOT NULL THEN
668
669 IF MRP_Validate_Assignment_Set.Val_Attribute9
670 ( g_Assignment_Set_rec.Attribute9 )
671 THEN
672
673 MRP_Assignment_Set_Util.Clear_Dependent_Attr
674 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE9
675 , p_Assignment_Set_rec => g_Assignment_Set_rec
676 , x_Assignment_Set_rec => g_Assignment_Set_rec
677 );
678 ELSE
679 g_Assignment_Set_rec.Attribute9 := NULL;
680 END IF;
681
682 END IF;
683
684 END IF;
685
686 IF g_Assignment_Set_rec.Attribute_Category = FND_API.G_MISS_CHAR THEN
687
688 g_Assignment_Set_rec.Attribute_Category := Get_Attribute_Category;
689
690 IF g_Assignment_Set_rec.Attribute_Category IS NOT NULL THEN
691
692 IF MRP_Validate_Assignment_Set.Val_Attribute_Category
693 ( g_Assignment_Set_rec.Attribute_Category )
694 THEN
695
696 MRP_Assignment_Set_Util.Clear_Dependent_Attr
697 ( p_attr_id => MRP_Assignment_Set_Util.G_ATTRIBUTE_CATEGORY
698 , p_Assignment_Set_rec => g_Assignment_Set_rec
699 , x_Assignment_Set_rec => g_Assignment_Set_rec
700 );
701 ELSE
702 g_Assignment_Set_rec.Attribute_Category := NULL;
703 END IF;
704
705 END IF;
706
707 END IF;
708
709 IF g_Assignment_Set_rec.Created_By = FND_API.G_MISS_NUM THEN
710
711 g_Assignment_Set_rec.Created_By := Get_Created_By;
712
713 IF g_Assignment_Set_rec.Created_By IS NOT NULL THEN
714
715 IF MRP_Validate_Assignment_Set.Val_Created_By
716 ( g_Assignment_Set_rec.Created_By )
717 THEN
718
719 MRP_Assignment_Set_Util.Clear_Dependent_Attr
720 ( p_attr_id => MRP_Assignment_Set_Util.G_CREATED_BY
721 , p_Assignment_Set_rec => g_Assignment_Set_rec
722 , x_Assignment_Set_rec => g_Assignment_Set_rec
723 );
724 ELSE
725 g_Assignment_Set_rec.Created_By := NULL;
726 END IF;
727
728 END IF;
729
730 END IF;
731
732 IF g_Assignment_Set_rec.Creation_Date = FND_API.G_MISS_DATE THEN
733
734 g_Assignment_Set_rec.Creation_Date := Get_Creation_Date;
735
736 IF g_Assignment_Set_rec.Creation_Date IS NOT NULL THEN
737
738 IF MRP_Validate_Assignment_Set.Val_Creation_Date
739 ( g_Assignment_Set_rec.Creation_Date )
740 THEN
741
742 MRP_Assignment_Set_Util.Clear_Dependent_Attr
743 ( p_attr_id => MRP_Assignment_Set_Util.G_CREATION_DATE
744 , p_Assignment_Set_rec => g_Assignment_Set_rec
745 , x_Assignment_Set_rec => g_Assignment_Set_rec
746 );
747 ELSE
748 g_Assignment_Set_rec.Creation_Date := NULL;
749 END IF;
750
751 END IF;
752
753 END IF;
754
755 IF g_Assignment_Set_rec.Description = FND_API.G_MISS_CHAR THEN
756
757 g_Assignment_Set_rec.Description := Get_Description;
758
759 IF g_Assignment_Set_rec.Description IS NOT NULL THEN
760
761 IF MRP_Validate_Assignment_Set.Val_Description
762 ( g_Assignment_Set_rec.Description )
763 THEN
764
765 MRP_Assignment_Set_Util.Clear_Dependent_Attr
766 ( p_attr_id => MRP_Assignment_Set_Util.G_DESCRIPTION
767 , p_Assignment_Set_rec => g_Assignment_Set_rec
768 , x_Assignment_Set_rec => g_Assignment_Set_rec
769 );
770 ELSE
771 g_Assignment_Set_rec.Description := NULL;
772 END IF;
773
774 END IF;
775
776 END IF;
777
778 IF g_Assignment_Set_rec.Last_Updated_By = FND_API.G_MISS_NUM THEN
779
780 g_Assignment_Set_rec.Last_Updated_By := Get_Last_Updated_By;
781
782 IF g_Assignment_Set_rec.Last_Updated_By IS NOT NULL THEN
783
784 IF MRP_Validate_Assignment_Set.Val_Last_Updated_By
785 ( g_Assignment_Set_rec.Last_Updated_By )
786 THEN
787
788 MRP_Assignment_Set_Util.Clear_Dependent_Attr
789 ( p_attr_id => MRP_Assignment_Set_Util.G_LAST_UPDATED_BY
790 , p_Assignment_Set_rec => g_Assignment_Set_rec
791 , x_Assignment_Set_rec => g_Assignment_Set_rec
792 );
793 ELSE
794 g_Assignment_Set_rec.Last_Updated_By := NULL;
795 END IF;
796
797 END IF;
798
799 END IF;
800
801 IF g_Assignment_Set_rec.Last_Update_Date = FND_API.G_MISS_DATE THEN
802
803 g_Assignment_Set_rec.Last_Update_Date := Get_Last_Update_Date;
804
805 IF g_Assignment_Set_rec.Last_Update_Date IS NOT NULL THEN
806
807 IF MRP_Validate_Assignment_Set.Val_Last_Update_Date
808 ( g_Assignment_Set_rec.Last_Update_Date )
809 THEN
810
811 MRP_Assignment_Set_Util.Clear_Dependent_Attr
812 ( p_attr_id => MRP_Assignment_Set_Util.G_LAST_UPDATE_DATE
813 , p_Assignment_Set_rec => g_Assignment_Set_rec
814 , x_Assignment_Set_rec => g_Assignment_Set_rec
815 );
816 ELSE
817 g_Assignment_Set_rec.Last_Update_Date := NULL;
818 END IF;
819
820 END IF;
821
822 END IF;
823
824 IF g_Assignment_Set_rec.Last_Update_Login = FND_API.G_MISS_NUM THEN
825
826 g_Assignment_Set_rec.Last_Update_Login := Get_Last_Update_Login;
827
828 IF g_Assignment_Set_rec.Last_Update_Login IS NOT NULL THEN
829
830 IF MRP_Validate_Assignment_Set.Val_Last_Update_Login
831 ( g_Assignment_Set_rec.Last_Update_Login )
832 THEN
833
834 MRP_Assignment_Set_Util.Clear_Dependent_Attr
835 ( p_attr_id => MRP_Assignment_Set_Util.G_LAST_UPDATE_LOGIN
836 , p_Assignment_Set_rec => g_Assignment_Set_rec
837 , x_Assignment_Set_rec => g_Assignment_Set_rec
838 );
839 ELSE
840 g_Assignment_Set_rec.Last_Update_Login := NULL;
841 END IF;
842
843 END IF;
844
845 END IF;
846
847 IF g_Assignment_Set_rec.Program_Application_Id = FND_API.G_MISS_NUM THEN
848
849 g_Assignment_Set_rec.Program_Application_Id := Get_Program_Application_Id;
850
851 IF g_Assignment_Set_rec.Program_Application_Id IS NOT NULL THEN
852
853 IF MRP_Validate_Assignment_Set.Val_Program_Application_Id
854 ( g_Assignment_Set_rec.Program_Application_Id )
855 THEN
856
857 MRP_Assignment_Set_Util.Clear_Dependent_Attr
858 ( p_attr_id => MRP_Assignment_Set_Util.G_PROGRAM_APPLICATION_ID
859 , p_Assignment_Set_rec => g_Assignment_Set_rec
860 , x_Assignment_Set_rec => g_Assignment_Set_rec
861 );
862 ELSE
863 g_Assignment_Set_rec.Program_Application_Id := NULL;
864 END IF;
865
866 END IF;
867
868 END IF;
869
870 IF g_Assignment_Set_rec.Program_Id = FND_API.G_MISS_NUM THEN
871
872 g_Assignment_Set_rec.Program_Id := Get_Program_Id;
873
874 IF g_Assignment_Set_rec.Program_Id IS NOT NULL THEN
875
876 IF MRP_Validate_Assignment_Set.Val_Program_Id
877 ( g_Assignment_Set_rec.Program_Id )
878 THEN
879
880 MRP_Assignment_Set_Util.Clear_Dependent_Attr
881 ( p_attr_id => MRP_Assignment_Set_Util.G_PROGRAM_ID
882 , p_Assignment_Set_rec => g_Assignment_Set_rec
883 , x_Assignment_Set_rec => g_Assignment_Set_rec
884 );
885 ELSE
886 g_Assignment_Set_rec.Program_Id := NULL;
887 END IF;
888
889 END IF;
890
891 END IF;
892
893 IF g_Assignment_Set_rec.Program_Update_Date = FND_API.G_MISS_DATE THEN
894
895 g_Assignment_Set_rec.Program_Update_Date := Get_Program_Update_Date;
896
897 IF g_Assignment_Set_rec.Program_Update_Date IS NOT NULL THEN
898
899 IF MRP_Validate_Assignment_Set.Val_Program_Update_Date
900 ( g_Assignment_Set_rec.Program_Update_Date )
901 THEN
902
903 MRP_Assignment_Set_Util.Clear_Dependent_Attr
904 ( p_attr_id => MRP_Assignment_Set_Util.G_PROGRAM_UPDATE_DATE
905 , p_Assignment_Set_rec => g_Assignment_Set_rec
906 , x_Assignment_Set_rec => g_Assignment_Set_rec
907 );
908 ELSE
909 g_Assignment_Set_rec.Program_Update_Date := NULL;
910 END IF;
911
912 END IF;
913
914 END IF;
915
916 IF g_Assignment_Set_rec.Request_Id = FND_API.G_MISS_NUM THEN
917
918 g_Assignment_Set_rec.Request_Id := Get_Request_Id;
919
920 IF g_Assignment_Set_rec.Request_Id IS NOT NULL THEN
921
922 IF MRP_Validate_Assignment_Set.Val_Request_Id
923 ( g_Assignment_Set_rec.Request_Id )
924 THEN
925
926 MRP_Assignment_Set_Util.Clear_Dependent_Attr
927 ( p_attr_id => MRP_Assignment_Set_Util.G_REQUEST_ID
928 , p_Assignment_Set_rec => g_Assignment_Set_rec
929 , x_Assignment_Set_rec => g_Assignment_Set_rec
930 );
931 ELSE
932 g_Assignment_Set_rec.Request_Id := NULL;
933 END IF;
934
935 END IF;
936
937 END IF;
938
939 -- Redefault if there are any missing attributes.
940
941 IF g_Assignment_Set_rec.Assignment_Set_Id = FND_API.G_MISS_NUM
942 OR g_Assignment_Set_rec.Assignment_Set_Name = FND_API.G_MISS_CHAR
943 OR g_Assignment_Set_rec.Attribute1 = FND_API.G_MISS_CHAR
944 OR g_Assignment_Set_rec.Attribute10 = FND_API.G_MISS_CHAR
945 OR g_Assignment_Set_rec.Attribute11 = FND_API.G_MISS_CHAR
946 OR g_Assignment_Set_rec.Attribute12 = FND_API.G_MISS_CHAR
947 OR g_Assignment_Set_rec.Attribute13 = FND_API.G_MISS_CHAR
948 OR g_Assignment_Set_rec.Attribute14 = FND_API.G_MISS_CHAR
949 OR g_Assignment_Set_rec.Attribute15 = FND_API.G_MISS_CHAR
950 OR g_Assignment_Set_rec.Attribute2 = FND_API.G_MISS_CHAR
951 OR g_Assignment_Set_rec.Attribute3 = FND_API.G_MISS_CHAR
952 OR g_Assignment_Set_rec.Attribute4 = FND_API.G_MISS_CHAR
953 OR g_Assignment_Set_rec.Attribute5 = FND_API.G_MISS_CHAR
954 OR g_Assignment_Set_rec.Attribute6 = FND_API.G_MISS_CHAR
955 OR g_Assignment_Set_rec.Attribute7 = FND_API.G_MISS_CHAR
956 OR g_Assignment_Set_rec.Attribute8 = FND_API.G_MISS_CHAR
957 OR g_Assignment_Set_rec.Attribute9 = FND_API.G_MISS_CHAR
958 OR g_Assignment_Set_rec.Attribute_Category = FND_API.G_MISS_CHAR
959 OR g_Assignment_Set_rec.Created_By = FND_API.G_MISS_NUM
960 OR g_Assignment_Set_rec.Creation_Date = FND_API.G_MISS_DATE
961 OR g_Assignment_Set_rec.Description = FND_API.G_MISS_CHAR
962 OR g_Assignment_Set_rec.Last_Updated_By = FND_API.G_MISS_NUM
963 OR g_Assignment_Set_rec.Last_Update_Date = FND_API.G_MISS_DATE
964 OR g_Assignment_Set_rec.Last_Update_Login = FND_API.G_MISS_NUM
965 OR g_Assignment_Set_rec.Program_Application_Id = FND_API.G_MISS_NUM
966 OR g_Assignment_Set_rec.Program_Id = FND_API.G_MISS_NUM
967 OR g_Assignment_Set_rec.Program_Update_Date = FND_API.G_MISS_DATE
968 OR g_Assignment_Set_rec.Request_Id = FND_API.G_MISS_NUM
969 THEN
970
971 MRP_Default_Assignment_Set.Attributes
972 ( p_Assignment_Set_rec => g_Assignment_Set_rec
973 , p_iteration => p_iteration + 1
974 , x_Assignment_Set_rec => x_Assignment_Set_rec
975 );
976
977 ELSE
978
979 -- Done defaulting attributes
980
981 x_Assignment_Set_rec := g_Assignment_Set_rec;
982
983 END IF;
984
985 END Attributes;
986
987 END MRP_Default_Assignment_Set;