[Home] [Help]
Skip to content
PACKAGE BODY: APPS.MRP_DEFAULT_SHIPPING_ORG
Source
1 PACKAGE BODY MRP_Default_Shipping_Org AS
2 /* $Header: MRPDSHOB.pls 115.2 99/07/16 12:19:21 porting ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_Default_Shipping_Org';
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_Shipping_Org_rec MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type;
16
17 -- Get functions.
18
19 FUNCTION Get_Sr_Source_Id
20 RETURN NUMBER
21 IS
22
23 l_sr_source_id NUMBER;
24
25 BEGIN
26
27 IF g_Shipping_Org_rec.operation = MRP_GLOBALS.G_OPR_CREATE THEN
28 SELECT mrp_sr_source_org_s.NEXTVAL
29 INTO l_sr_source_id
30 FROM dual;
31
32 RETURN l_sr_source_id;
33 ELSE
34 RETURN NULL;
35 END IF;
36
37 END Get_Sr_Source_Id;
38
39 FUNCTION Get_Allocation_Percent
40 RETURN NUMBER
41 IS
42 BEGIN
43
44 RETURN NULL;
45
46 END Get_Allocation_Percent;
47
48 FUNCTION Get_Attribute1
49 RETURN VARCHAR2
50 IS
51 BEGIN
52
53 RETURN NULL;
54
55 END Get_Attribute1;
56
57 FUNCTION Get_Attribute10
58 RETURN VARCHAR2
59 IS
60 BEGIN
61
62 RETURN NULL;
63
64 END Get_Attribute10;
65
66 FUNCTION Get_Attribute11
67 RETURN VARCHAR2
68 IS
69 BEGIN
70
71 RETURN NULL;
72
73 END Get_Attribute11;
74
75 FUNCTION Get_Attribute12
76 RETURN VARCHAR2
77 IS
78 BEGIN
79
80 RETURN NULL;
81
82 END Get_Attribute12;
83
84 FUNCTION Get_Attribute13
85 RETURN VARCHAR2
86 IS
87 BEGIN
88
89 RETURN NULL;
90
91 END Get_Attribute13;
92
93 FUNCTION Get_Attribute14
94 RETURN VARCHAR2
95 IS
96 BEGIN
97
98 RETURN NULL;
99
100 END Get_Attribute14;
101
102 FUNCTION Get_Attribute15
103 RETURN VARCHAR2
104 IS
105 BEGIN
106
107 RETURN NULL;
108
109 END Get_Attribute15;
110
111 FUNCTION Get_Attribute2
112 RETURN VARCHAR2
113 IS
114 BEGIN
115
116 RETURN NULL;
117
118 END Get_Attribute2;
119
120 FUNCTION Get_Attribute3
121 RETURN VARCHAR2
122 IS
123 BEGIN
124
125 RETURN NULL;
126
127 END Get_Attribute3;
128
129 FUNCTION Get_Attribute4
130 RETURN VARCHAR2
131 IS
132 BEGIN
133
134 RETURN NULL;
135
136 END Get_Attribute4;
137
138 FUNCTION Get_Attribute5
139 RETURN VARCHAR2
140 IS
141 BEGIN
142
143 RETURN NULL;
144
145 END Get_Attribute5;
146
147 FUNCTION Get_Attribute6
148 RETURN VARCHAR2
149 IS
150 BEGIN
151
152 RETURN NULL;
153
154 END Get_Attribute6;
155
156 FUNCTION Get_Attribute7
157 RETURN VARCHAR2
158 IS
159 BEGIN
160
161 RETURN NULL;
162
163 END Get_Attribute7;
164
165 FUNCTION Get_Attribute8
166 RETURN VARCHAR2
167 IS
168 BEGIN
169
170 RETURN NULL;
171
172 END Get_Attribute8;
173
174 FUNCTION Get_Attribute9
175 RETURN VARCHAR2
176 IS
177 BEGIN
178
179 RETURN NULL;
180
181 END Get_Attribute9;
182
183 FUNCTION Get_Attribute_Category
184 RETURN VARCHAR2
185 IS
186 BEGIN
187
188 RETURN NULL;
189
190 END Get_Attribute_Category;
191
192 FUNCTION Get_Created_By
193 RETURN NUMBER
194 IS
195 BEGIN
196
197 RETURN NULL;
198
199 END Get_Created_By;
200
201 FUNCTION Get_Creation_Date
202 RETURN DATE
203 IS
204 BEGIN
205
206 RETURN NULL;
207
208 END Get_Creation_Date;
209
210 FUNCTION Get_Last_Updated_By
211 RETURN NUMBER
212 IS
213 BEGIN
214
215 RETURN NULL;
216
217 END Get_Last_Updated_By;
218
219 FUNCTION Get_Last_Update_Date
220 RETURN DATE
221 IS
222 BEGIN
223
224 RETURN NULL;
225
226 END Get_Last_Update_Date;
227
228 FUNCTION Get_Last_Update_Login
229 RETURN NUMBER
230 IS
231 BEGIN
232
233 RETURN NULL;
234
235 END Get_Last_Update_Login;
236
237 FUNCTION Get_Program_Application_Id
238 RETURN NUMBER
239 IS
240 BEGIN
241
242 RETURN NULL;
243
244 END Get_Program_Application_Id;
245
246 FUNCTION Get_Program_Id
247 RETURN NUMBER
248 IS
249 BEGIN
250
251 RETURN NULL;
252
253 END Get_Program_Id;
254
255 FUNCTION Get_Program_Update_Date
256 RETURN DATE
257 IS
258 BEGIN
259
260 RETURN NULL;
261
262 END Get_Program_Update_Date;
263
264 FUNCTION Get_Rank
265 RETURN NUMBER
266 IS
267 BEGIN
268
269 RETURN NULL;
270
271 END Get_Rank;
272
273 FUNCTION Get_Request_Id
274 RETURN NUMBER
275 IS
276 BEGIN
277
278 RETURN NULL;
279
280 END Get_Request_Id;
281
282 FUNCTION Get_Secondary_Inventory
283 RETURN VARCHAR2
284 IS
285 BEGIN
286
287 RETURN NULL;
288
289 END Get_Secondary_Inventory;
290
291 FUNCTION Get_Ship_Method
292 RETURN VARCHAR2
293 IS
294 BEGIN
295
296 RETURN NULL;
297
298 END Get_Ship_Method;
299
300 FUNCTION Get_Source_Organization_Id
301 RETURN NUMBER
302 IS
303 BEGIN
304
305 RETURN NULL;
306
307 END Get_Source_Organization_Id;
308
309 FUNCTION Get_Source_Type
310 RETURN NUMBER
311 IS
312 BEGIN
313
314 RETURN NULL;
315
316 END Get_Source_Type;
317
318 FUNCTION Get_Sr_Receipt_Id
319 RETURN NUMBER
320 IS
321 BEGIN
322
323 RETURN NULL;
324
325 END Get_Sr_Receipt_Id;
326
327 FUNCTION Get_Vendor_Id
328 RETURN NUMBER
329 IS
330 BEGIN
331
332 RETURN NULL;
333
334 END Get_Vendor_Id;
335
336 FUNCTION Get_Vendor_Site_Id
337 RETURN NUMBER
338 IS
339 BEGIN
340
341 RETURN NULL;
342
343 END Get_Vendor_Site_Id;
344
345 -- Procedure Attributes
346
347 PROCEDURE Attributes
348 ( p_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type :=
349 MRP_Sourcing_Rule_PUB.G_MISS_SHIPPING_ORG_REC
350 , p_iteration IN NUMBER := 1
351 , x_Shipping_Org_rec OUT MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
352 )
353 IS
354 l_changed_column_tbl Boolean_Tbl_Type;
355 BEGIN
356
357 -- Check number of iterations.
358
359 IF p_iteration > MRP_Globals.G_MAX_DEF_ITERATIONS THEN
360
361 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
362 THEN
363
364 FND_MESSAGE.SET_NAME('MRP','BOI_DEF_MAX_ITERATION');
365 FND_MSG_PUB.Add;
366
367 END IF;
368
369 RAISE FND_API.G_EXC_ERROR;
370
371 END IF;
372
373 -- Initialize g_Shipping_Org_rec
374
375 g_Shipping_Org_rec := p_Shipping_Org_rec;
376
377 -- Default missing attributes.
378
379
380 IF g_Shipping_Org_rec.Sr_Source_Id = FND_API.G_MISS_NUM THEN
381
382 g_Shipping_Org_rec.Sr_Source_Id := Get_Sr_Source_Id;
383
384 END IF;
385
386
387 IF g_Shipping_Org_rec.Allocation_Percent = FND_API.G_MISS_NUM THEN
388
389 g_Shipping_Org_rec.Allocation_Percent := Get_Allocation_Percent;
390
391 IF g_Shipping_Org_rec.Allocation_Percent IS NOT NULL THEN
392
393 IF MRP_Validate_Shipping_Org.Val_Allocation_Percent
394 ( g_Shipping_Org_rec.Allocation_Percent )
395 THEN
396
397 MRP_Shipping_Org_Util.Clear_Dependent_Attr
398 ( p_attr_id => MRP_Shipping_Org_Util.G_ALLOCATION_PERCENT
399 , p_Shipping_Org_rec => g_Shipping_Org_rec
400 , x_Shipping_Org_rec => g_Shipping_Org_rec
401 );
402 ELSE
403 g_Shipping_Org_rec.Allocation_Percent := NULL;
404 END IF;
405
406 END IF;
407
408 END IF;
409
410 IF g_Shipping_Org_rec.Attribute1 = FND_API.G_MISS_CHAR THEN
411
412 g_Shipping_Org_rec.Attribute1 := Get_Attribute1;
413
414 IF g_Shipping_Org_rec.Attribute1 IS NOT NULL THEN
415
416 IF MRP_Validate_Shipping_Org.Val_Attribute1
417 ( g_Shipping_Org_rec.Attribute1 )
418 THEN
419
420 MRP_Shipping_Org_Util.Clear_Dependent_Attr
421 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE1
422 , p_Shipping_Org_rec => g_Shipping_Org_rec
423 , x_Shipping_Org_rec => g_Shipping_Org_rec
424 );
425 ELSE
426 g_Shipping_Org_rec.Attribute1 := NULL;
427 END IF;
428
429 END IF;
430
431 END IF;
432
433 IF g_Shipping_Org_rec.Attribute10 = FND_API.G_MISS_CHAR THEN
434
435 g_Shipping_Org_rec.Attribute10 := Get_Attribute10;
436
437 IF g_Shipping_Org_rec.Attribute10 IS NOT NULL THEN
438
439 IF MRP_Validate_Shipping_Org.Val_Attribute10
440 ( g_Shipping_Org_rec.Attribute10 )
441 THEN
442
443 MRP_Shipping_Org_Util.Clear_Dependent_Attr
444 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE10
445 , p_Shipping_Org_rec => g_Shipping_Org_rec
446 , x_Shipping_Org_rec => g_Shipping_Org_rec
447 );
448 ELSE
449 g_Shipping_Org_rec.Attribute10 := NULL;
450 END IF;
451
452 END IF;
453
454 END IF;
455
456 IF g_Shipping_Org_rec.Attribute11 = FND_API.G_MISS_CHAR THEN
457
458 g_Shipping_Org_rec.Attribute11 := Get_Attribute11;
459
460 IF g_Shipping_Org_rec.Attribute11 IS NOT NULL THEN
461
462 IF MRP_Validate_Shipping_Org.Val_Attribute11
463 ( g_Shipping_Org_rec.Attribute11 )
464 THEN
465
466 MRP_Shipping_Org_Util.Clear_Dependent_Attr
467 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE11
468 , p_Shipping_Org_rec => g_Shipping_Org_rec
469 , x_Shipping_Org_rec => g_Shipping_Org_rec
470 );
471 ELSE
472 g_Shipping_Org_rec.Attribute11 := NULL;
473 END IF;
474
475 END IF;
476
477 END IF;
478
479 IF g_Shipping_Org_rec.Attribute12 = FND_API.G_MISS_CHAR THEN
480
481 g_Shipping_Org_rec.Attribute12 := Get_Attribute12;
482
483 IF g_Shipping_Org_rec.Attribute12 IS NOT NULL THEN
484
485 IF MRP_Validate_Shipping_Org.Val_Attribute12
486 ( g_Shipping_Org_rec.Attribute12 )
487 THEN
488
489 MRP_Shipping_Org_Util.Clear_Dependent_Attr
490 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE12
491 , p_Shipping_Org_rec => g_Shipping_Org_rec
492 , x_Shipping_Org_rec => g_Shipping_Org_rec
493 );
494 ELSE
495 g_Shipping_Org_rec.Attribute12 := NULL;
496 END IF;
497
498 END IF;
499
500 END IF;
501
502 IF g_Shipping_Org_rec.Attribute13 = FND_API.G_MISS_CHAR THEN
503
504 g_Shipping_Org_rec.Attribute13 := Get_Attribute13;
505
506 IF g_Shipping_Org_rec.Attribute13 IS NOT NULL THEN
507
508 IF MRP_Validate_Shipping_Org.Val_Attribute13
509 ( g_Shipping_Org_rec.Attribute13 )
510 THEN
511
512 MRP_Shipping_Org_Util.Clear_Dependent_Attr
513 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE13
514 , p_Shipping_Org_rec => g_Shipping_Org_rec
515 , x_Shipping_Org_rec => g_Shipping_Org_rec
516 );
517 ELSE
518 g_Shipping_Org_rec.Attribute13 := NULL;
519 END IF;
520
521 END IF;
522
523 END IF;
524
525 IF g_Shipping_Org_rec.Attribute14 = FND_API.G_MISS_CHAR THEN
526
527 g_Shipping_Org_rec.Attribute14 := Get_Attribute14;
528
529 IF g_Shipping_Org_rec.Attribute14 IS NOT NULL THEN
530
531 IF MRP_Validate_Shipping_Org.Val_Attribute14
532 ( g_Shipping_Org_rec.Attribute14 )
533 THEN
534
535 MRP_Shipping_Org_Util.Clear_Dependent_Attr
536 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE14
537 , p_Shipping_Org_rec => g_Shipping_Org_rec
538 , x_Shipping_Org_rec => g_Shipping_Org_rec
539 );
540 ELSE
541 g_Shipping_Org_rec.Attribute14 := NULL;
542 END IF;
543
544 END IF;
545
546 END IF;
547
548 IF g_Shipping_Org_rec.Attribute15 = FND_API.G_MISS_CHAR THEN
549
550 g_Shipping_Org_rec.Attribute15 := Get_Attribute15;
551
552 IF g_Shipping_Org_rec.Attribute15 IS NOT NULL THEN
553
554 IF MRP_Validate_Shipping_Org.Val_Attribute15
555 ( g_Shipping_Org_rec.Attribute15 )
556 THEN
557
558 MRP_Shipping_Org_Util.Clear_Dependent_Attr
559 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE15
560 , p_Shipping_Org_rec => g_Shipping_Org_rec
561 , x_Shipping_Org_rec => g_Shipping_Org_rec
562 );
563 ELSE
564 g_Shipping_Org_rec.Attribute15 := NULL;
565 END IF;
566
567 END IF;
568
569 END IF;
570
571 IF g_Shipping_Org_rec.Attribute2 = FND_API.G_MISS_CHAR THEN
572
573 g_Shipping_Org_rec.Attribute2 := Get_Attribute2;
574
575 IF g_Shipping_Org_rec.Attribute2 IS NOT NULL THEN
576
577 IF MRP_Validate_Shipping_Org.Val_Attribute2
578 ( g_Shipping_Org_rec.Attribute2 )
579 THEN
580
581 MRP_Shipping_Org_Util.Clear_Dependent_Attr
582 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE2
586 ELSE
583 , p_Shipping_Org_rec => g_Shipping_Org_rec
584 , x_Shipping_Org_rec => g_Shipping_Org_rec
585 );
587 g_Shipping_Org_rec.Attribute2 := NULL;
588 END IF;
589
590 END IF;
591
592 END IF;
593
594 IF g_Shipping_Org_rec.Attribute3 = FND_API.G_MISS_CHAR THEN
595
596 g_Shipping_Org_rec.Attribute3 := Get_Attribute3;
597
598 IF g_Shipping_Org_rec.Attribute3 IS NOT NULL THEN
599
600 IF MRP_Validate_Shipping_Org.Val_Attribute3
601 ( g_Shipping_Org_rec.Attribute3 )
602 THEN
603
604 MRP_Shipping_Org_Util.Clear_Dependent_Attr
605 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE3
606 , p_Shipping_Org_rec => g_Shipping_Org_rec
607 , x_Shipping_Org_rec => g_Shipping_Org_rec
608 );
609 ELSE
610 g_Shipping_Org_rec.Attribute3 := NULL;
611 END IF;
612
613 END IF;
614
615 END IF;
616
617 IF g_Shipping_Org_rec.Attribute4 = FND_API.G_MISS_CHAR THEN
618
619 g_Shipping_Org_rec.Attribute4 := Get_Attribute4;
620
621 IF g_Shipping_Org_rec.Attribute4 IS NOT NULL THEN
622
623 IF MRP_Validate_Shipping_Org.Val_Attribute4
624 ( g_Shipping_Org_rec.Attribute4 )
625 THEN
626
627 MRP_Shipping_Org_Util.Clear_Dependent_Attr
628 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE4
629 , p_Shipping_Org_rec => g_Shipping_Org_rec
630 , x_Shipping_Org_rec => g_Shipping_Org_rec
631 );
632 ELSE
633 g_Shipping_Org_rec.Attribute4 := NULL;
634 END IF;
635
636 END IF;
637
638 END IF;
639
640 IF g_Shipping_Org_rec.Attribute5 = FND_API.G_MISS_CHAR THEN
641
642 g_Shipping_Org_rec.Attribute5 := Get_Attribute5;
643
644 IF g_Shipping_Org_rec.Attribute5 IS NOT NULL THEN
645
646 IF MRP_Validate_Shipping_Org.Val_Attribute5
647 ( g_Shipping_Org_rec.Attribute5 )
648 THEN
649
650 MRP_Shipping_Org_Util.Clear_Dependent_Attr
651 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE5
652 , p_Shipping_Org_rec => g_Shipping_Org_rec
653 , x_Shipping_Org_rec => g_Shipping_Org_rec
654 );
655 ELSE
656 g_Shipping_Org_rec.Attribute5 := NULL;
657 END IF;
658
659 END IF;
660
661 END IF;
662
663 IF g_Shipping_Org_rec.Attribute6 = FND_API.G_MISS_CHAR THEN
664
665 g_Shipping_Org_rec.Attribute6 := Get_Attribute6;
666
667 IF g_Shipping_Org_rec.Attribute6 IS NOT NULL THEN
668
669 IF MRP_Validate_Shipping_Org.Val_Attribute6
670 ( g_Shipping_Org_rec.Attribute6 )
671 THEN
672
673 MRP_Shipping_Org_Util.Clear_Dependent_Attr
674 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE6
675 , p_Shipping_Org_rec => g_Shipping_Org_rec
676 , x_Shipping_Org_rec => g_Shipping_Org_rec
677 );
678 ELSE
679 g_Shipping_Org_rec.Attribute6 := NULL;
680 END IF;
681
682 END IF;
683
684 END IF;
685
686 IF g_Shipping_Org_rec.Attribute7 = FND_API.G_MISS_CHAR THEN
687
688 g_Shipping_Org_rec.Attribute7 := Get_Attribute7;
689
690 IF g_Shipping_Org_rec.Attribute7 IS NOT NULL THEN
691
692 IF MRP_Validate_Shipping_Org.Val_Attribute7
693 ( g_Shipping_Org_rec.Attribute7 )
694 THEN
695
696 MRP_Shipping_Org_Util.Clear_Dependent_Attr
697 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE7
698 , p_Shipping_Org_rec => g_Shipping_Org_rec
699 , x_Shipping_Org_rec => g_Shipping_Org_rec
700 );
701 ELSE
702 g_Shipping_Org_rec.Attribute7 := NULL;
703 END IF;
704
705 END IF;
706
707 END IF;
708
709 IF g_Shipping_Org_rec.Attribute8 = FND_API.G_MISS_CHAR THEN
710
711 g_Shipping_Org_rec.Attribute8 := Get_Attribute8;
712
713 IF g_Shipping_Org_rec.Attribute8 IS NOT NULL THEN
714
715 IF MRP_Validate_Shipping_Org.Val_Attribute8
716 ( g_Shipping_Org_rec.Attribute8 )
717 THEN
718
719 MRP_Shipping_Org_Util.Clear_Dependent_Attr
720 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE8
721 , p_Shipping_Org_rec => g_Shipping_Org_rec
722 , x_Shipping_Org_rec => g_Shipping_Org_rec
723 );
724 ELSE
725 g_Shipping_Org_rec.Attribute8 := NULL;
726 END IF;
727
728 END IF;
729
730 END IF;
731
732 IF g_Shipping_Org_rec.Attribute9 = FND_API.G_MISS_CHAR THEN
733
734 g_Shipping_Org_rec.Attribute9 := Get_Attribute9;
735
736 IF g_Shipping_Org_rec.Attribute9 IS NOT NULL THEN
737
741
738 IF MRP_Validate_Shipping_Org.Val_Attribute9
739 ( g_Shipping_Org_rec.Attribute9 )
740 THEN
742 MRP_Shipping_Org_Util.Clear_Dependent_Attr
743 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE9
744 , p_Shipping_Org_rec => g_Shipping_Org_rec
745 , x_Shipping_Org_rec => g_Shipping_Org_rec
746 );
747 ELSE
748 g_Shipping_Org_rec.Attribute9 := NULL;
749 END IF;
750
751 END IF;
752
753 END IF;
754
755 IF g_Shipping_Org_rec.Attribute_Category = FND_API.G_MISS_CHAR THEN
756
757 g_Shipping_Org_rec.Attribute_Category := Get_Attribute_Category;
758
759 IF g_Shipping_Org_rec.Attribute_Category IS NOT NULL THEN
760
761 IF MRP_Validate_Shipping_Org.Val_Attribute_Category
762 ( g_Shipping_Org_rec.Attribute_Category )
763 THEN
764
765 MRP_Shipping_Org_Util.Clear_Dependent_Attr
766 ( p_attr_id => MRP_Shipping_Org_Util.G_ATTRIBUTE_CATEGORY
767 , p_Shipping_Org_rec => g_Shipping_Org_rec
768 , x_Shipping_Org_rec => g_Shipping_Org_rec
769 );
770 ELSE
771 g_Shipping_Org_rec.Attribute_Category := NULL;
772 END IF;
773
774 END IF;
775
776 END IF;
777
778 IF g_Shipping_Org_rec.Created_By = FND_API.G_MISS_NUM THEN
779
780 g_Shipping_Org_rec.Created_By := Get_Created_By;
781
782 IF g_Shipping_Org_rec.Created_By IS NOT NULL THEN
783
784 IF MRP_Validate_Shipping_Org.Val_Created_By
785 ( g_Shipping_Org_rec.Created_By )
786 THEN
787
788 MRP_Shipping_Org_Util.Clear_Dependent_Attr
789 ( p_attr_id => MRP_Shipping_Org_Util.G_CREATED_BY
790 , p_Shipping_Org_rec => g_Shipping_Org_rec
791 , x_Shipping_Org_rec => g_Shipping_Org_rec
792 );
793 ELSE
794 g_Shipping_Org_rec.Created_By := NULL;
795 END IF;
796
797 END IF;
798
799 END IF;
800
801 IF g_Shipping_Org_rec.Creation_Date = FND_API.G_MISS_DATE THEN
802
803 g_Shipping_Org_rec.Creation_Date := Get_Creation_Date;
804
805 IF g_Shipping_Org_rec.Creation_Date IS NOT NULL THEN
806
807 IF MRP_Validate_Shipping_Org.Val_Creation_Date
808 ( g_Shipping_Org_rec.Creation_Date )
809 THEN
810
811 MRP_Shipping_Org_Util.Clear_Dependent_Attr
812 ( p_attr_id => MRP_Shipping_Org_Util.G_CREATION_DATE
813 , p_Shipping_Org_rec => g_Shipping_Org_rec
814 , x_Shipping_Org_rec => g_Shipping_Org_rec
815 );
816 ELSE
817 g_Shipping_Org_rec.Creation_Date := NULL;
818 END IF;
819
820 END IF;
821
822 END IF;
823
824 IF g_Shipping_Org_rec.Last_Updated_By = FND_API.G_MISS_NUM THEN
825
826 g_Shipping_Org_rec.Last_Updated_By := Get_Last_Updated_By;
827
828 IF g_Shipping_Org_rec.Last_Updated_By IS NOT NULL THEN
829
830 IF MRP_Validate_Shipping_Org.Val_Last_Updated_By
831 ( g_Shipping_Org_rec.Last_Updated_By )
832 THEN
833
834 MRP_Shipping_Org_Util.Clear_Dependent_Attr
835 ( p_attr_id => MRP_Shipping_Org_Util.G_LAST_UPDATED_BY
836 , p_Shipping_Org_rec => g_Shipping_Org_rec
837 , x_Shipping_Org_rec => g_Shipping_Org_rec
838 );
839 ELSE
840 g_Shipping_Org_rec.Last_Updated_By := NULL;
841 END IF;
842
843 END IF;
844
845 END IF;
846
847 IF g_Shipping_Org_rec.Last_Update_Date = FND_API.G_MISS_DATE THEN
848
849 g_Shipping_Org_rec.Last_Update_Date := Get_Last_Update_Date;
850
851 IF g_Shipping_Org_rec.Last_Update_Date IS NOT NULL THEN
852
853 IF MRP_Validate_Shipping_Org.Val_Last_Update_Date
854 ( g_Shipping_Org_rec.Last_Update_Date )
855 THEN
856
857 MRP_Shipping_Org_Util.Clear_Dependent_Attr
858 ( p_attr_id => MRP_Shipping_Org_Util.G_LAST_UPDATE_DATE
859 , p_Shipping_Org_rec => g_Shipping_Org_rec
860 , x_Shipping_Org_rec => g_Shipping_Org_rec
861 );
862 ELSE
863 g_Shipping_Org_rec.Last_Update_Date := NULL;
864 END IF;
865
866 END IF;
867
868 END IF;
869
870 IF g_Shipping_Org_rec.Last_Update_Login = FND_API.G_MISS_NUM THEN
871
872 g_Shipping_Org_rec.Last_Update_Login := Get_Last_Update_Login;
873
874 IF g_Shipping_Org_rec.Last_Update_Login IS NOT NULL THEN
875
876 IF MRP_Validate_Shipping_Org.Val_Last_Update_Login
877 ( g_Shipping_Org_rec.Last_Update_Login )
878 THEN
879
880 MRP_Shipping_Org_Util.Clear_Dependent_Attr
881 ( p_attr_id => MRP_Shipping_Org_Util.G_LAST_UPDATE_LOGIN
882 , p_Shipping_Org_rec => g_Shipping_Org_rec
883 , x_Shipping_Org_rec => g_Shipping_Org_rec
887 END IF;
884 );
885 ELSE
886 g_Shipping_Org_rec.Last_Update_Login := NULL;
888
889 END IF;
890
891 END IF;
892
893 IF g_Shipping_Org_rec.Program_Application_Id = FND_API.G_MISS_NUM THEN
894
895 g_Shipping_Org_rec.Program_Application_Id := Get_Program_Application_Id;
896
897 IF g_Shipping_Org_rec.Program_Application_Id IS NOT NULL THEN
898
899 IF MRP_Validate_Shipping_Org.Val_Program_Application_Id
900 ( g_Shipping_Org_rec.Program_Application_Id )
901 THEN
902
903 MRP_Shipping_Org_Util.Clear_Dependent_Attr
904 ( p_attr_id => MRP_Shipping_Org_Util.G_PROGRAM_APPLICATION_ID
905 , p_Shipping_Org_rec => g_Shipping_Org_rec
906 , x_Shipping_Org_rec => g_Shipping_Org_rec
907 );
908 ELSE
909 g_Shipping_Org_rec.Program_Application_Id := NULL;
910 END IF;
911
912 END IF;
913
914 END IF;
915
916 IF g_Shipping_Org_rec.Program_Id = FND_API.G_MISS_NUM THEN
917
918 g_Shipping_Org_rec.Program_Id := Get_Program_Id;
919
920 IF g_Shipping_Org_rec.Program_Id IS NOT NULL THEN
921
922 IF MRP_Validate_Shipping_Org.Val_Program_Id
923 ( g_Shipping_Org_rec.Program_Id )
924 THEN
925
926 MRP_Shipping_Org_Util.Clear_Dependent_Attr
927 ( p_attr_id => MRP_Shipping_Org_Util.G_PROGRAM_ID
928 , p_Shipping_Org_rec => g_Shipping_Org_rec
929 , x_Shipping_Org_rec => g_Shipping_Org_rec
930 );
931 ELSE
932 g_Shipping_Org_rec.Program_Id := NULL;
933 END IF;
934
935 END IF;
936
937 END IF;
938
939 IF g_Shipping_Org_rec.Program_Update_Date = FND_API.G_MISS_DATE THEN
940
941 g_Shipping_Org_rec.Program_Update_Date := Get_Program_Update_Date;
942
943 IF g_Shipping_Org_rec.Program_Update_Date IS NOT NULL THEN
944
945 IF MRP_Validate_Shipping_Org.Val_Program_Update_Date
946 ( g_Shipping_Org_rec.Program_Update_Date )
947 THEN
948
949 MRP_Shipping_Org_Util.Clear_Dependent_Attr
950 ( p_attr_id => MRP_Shipping_Org_Util.G_PROGRAM_UPDATE_DATE
951 , p_Shipping_Org_rec => g_Shipping_Org_rec
952 , x_Shipping_Org_rec => g_Shipping_Org_rec
953 );
954 ELSE
955 g_Shipping_Org_rec.Program_Update_Date := NULL;
956 END IF;
957
958 END IF;
959
960 END IF;
961
962
963 IF g_Shipping_Org_rec.Rank = FND_API.G_MISS_NUM THEN
964
965 g_Shipping_Org_rec.Rank := Get_Rank;
966
967 IF g_Shipping_Org_rec.Rank IS NOT NULL THEN
968
969 IF MRP_Validate_Shipping_Org.Val_Rank
970 ( g_Shipping_Org_rec.Rank )
971 THEN
972
973 MRP_Shipping_Org_Util.Clear_Dependent_Attr
974 ( p_attr_id => MRP_Shipping_Org_Util.G_RANK
975 , p_Shipping_Org_rec => g_Shipping_Org_rec
976 , x_Shipping_Org_rec => g_Shipping_Org_rec
977 );
978 ELSE
979 g_Shipping_Org_rec.Rank := NULL;
980 END IF;
981
982 END IF;
983
984 END IF;
985
986 IF g_Shipping_Org_rec.Request_Id = FND_API.G_MISS_NUM THEN
987
988 g_Shipping_Org_rec.Request_Id := Get_Request_Id;
989
990 IF g_Shipping_Org_rec.Request_Id IS NOT NULL THEN
991
992 IF MRP_Validate_Shipping_Org.Val_Request_Id
993 ( g_Shipping_Org_rec.Request_Id )
994 THEN
995
996 MRP_Shipping_Org_Util.Clear_Dependent_Attr
997 ( p_attr_id => MRP_Shipping_Org_Util.G_REQUEST_ID
998 , p_Shipping_Org_rec => g_Shipping_Org_rec
999 , x_Shipping_Org_rec => g_Shipping_Org_rec
1000 );
1001 ELSE
1002 g_Shipping_Org_rec.Request_Id := NULL;
1003 END IF;
1004
1005 END IF;
1006
1007 END IF;
1008
1009 IF g_Shipping_Org_rec.Secondary_Inventory = FND_API.G_MISS_CHAR THEN
1010
1011 g_Shipping_Org_rec.Secondary_Inventory := Get_Secondary_Inventory;
1012
1013 IF g_Shipping_Org_rec.Secondary_Inventory IS NOT NULL THEN
1014
1015 IF MRP_Validate_Shipping_Org.Val_Secondary_Inventory
1016 ( g_Shipping_Org_rec.Secondary_Inventory )
1017 THEN
1018
1019 MRP_Shipping_Org_Util.Clear_Dependent_Attr
1020 ( p_attr_id => MRP_Shipping_Org_Util.G_SECONDARY_INVENTORY
1021 , p_Shipping_Org_rec => g_Shipping_Org_rec
1022 , x_Shipping_Org_rec => g_Shipping_Org_rec
1023 );
1024 ELSE
1025 g_Shipping_Org_rec.Secondary_Inventory := NULL;
1026 END IF;
1027
1028 END IF;
1029
1030 END IF;
1031
1032 IF g_Shipping_Org_rec.Ship_Method = FND_API.G_MISS_CHAR THEN
1033
1034 g_Shipping_Org_rec.Ship_Method := Get_Ship_Method;
1035
1036 IF g_Shipping_Org_rec.Ship_Method IS NOT NULL THEN
1040 g_Shipping_Org_rec.source_organization_id,
1037
1038 IF MRP_Validate_Shipping_Org.Val_Ship_Method
1039 ( g_Shipping_Org_rec.sr_receipt_id,
1041 g_Shipping_Org_rec.Ship_Method )
1042 THEN
1043
1044 MRP_Shipping_Org_Util.Clear_Dependent_Attr
1045 ( p_attr_id => MRP_Shipping_Org_Util.G_SHIP_METHOD
1046 , p_Shipping_Org_rec => g_Shipping_Org_rec
1047 , x_Shipping_Org_rec => g_Shipping_Org_rec
1048 );
1049 ELSE
1050 g_Shipping_Org_rec.Ship_Method := NULL;
1051 END IF;
1052
1053 END IF;
1054
1055 END IF;
1056
1057 IF g_Shipping_Org_rec.Source_Organization_Id = FND_API.G_MISS_NUM THEN
1058
1059 g_Shipping_Org_rec.Source_Organization_Id := Get_Source_Organization_Id;
1060
1061 IF g_Shipping_Org_rec.Source_Organization_Id IS NOT NULL THEN
1062
1063 IF MRP_Validate_Shipping_Org.Val_Source_Organization_Id
1064 ( g_Shipping_Org_rec.Source_Organization_Id )
1065 THEN
1066
1067 MRP_Shipping_Org_Util.Clear_Dependent_Attr
1068 ( p_attr_id => MRP_Shipping_Org_Util.G_SOURCE_ORGANIZATION_ID
1069 , p_Shipping_Org_rec => g_Shipping_Org_rec
1070 , x_Shipping_Org_rec => g_Shipping_Org_rec
1071 );
1072 ELSE
1073 g_Shipping_Org_rec.Source_Organization_Id := NULL;
1074 END IF;
1075
1076 END IF;
1077
1078 END IF;
1079
1080 IF g_Shipping_Org_rec.Source_Type = FND_API.G_MISS_NUM THEN
1081
1082 g_Shipping_Org_rec.Source_Type := Get_Source_Type;
1083
1084 IF g_Shipping_Org_rec.Source_Type IS NOT NULL THEN
1085
1086 IF MRP_Validate_Shipping_Org.Val_Source_Type
1087 ( g_Shipping_Org_rec.Source_Type )
1088 THEN
1089
1090 MRP_Shipping_Org_Util.Clear_Dependent_Attr
1091 ( p_attr_id => MRP_Shipping_Org_Util.G_SOURCE_TYPE
1092 , p_Shipping_Org_rec => g_Shipping_Org_rec
1093 , x_Shipping_Org_rec => g_Shipping_Org_rec
1094 );
1095 ELSE
1096 g_Shipping_Org_rec.Source_Type := NULL;
1097 END IF;
1098
1099 END IF;
1100
1101 END IF;
1102
1103 IF g_Shipping_Org_rec.Sr_Receipt_Id = FND_API.G_MISS_NUM THEN
1104
1105 g_Shipping_Org_rec.Sr_Receipt_Id := Get_Sr_Receipt_Id;
1106
1107 IF g_Shipping_Org_rec.Sr_Receipt_Id IS NOT NULL THEN
1108
1109 IF MRP_Validate_Shipping_Org.Val_Sr_Receipt_Id
1110 ( g_Shipping_Org_rec.Sr_Receipt_Id )
1111 THEN
1112
1113 MRP_Shipping_Org_Util.Clear_Dependent_Attr
1114 ( p_attr_id => MRP_Shipping_Org_Util.G_SR_RECEIPT_ID
1115 , p_Shipping_Org_rec => g_Shipping_Org_rec
1116 , x_Shipping_Org_rec => g_Shipping_Org_rec
1117 );
1118 ELSE
1119 g_Shipping_Org_rec.Sr_Receipt_Id := NULL;
1120 END IF;
1121
1122 END IF;
1123
1124 END IF;
1125
1126 IF g_Shipping_Org_rec.Vendor_Id = FND_API.G_MISS_NUM THEN
1127
1128 g_Shipping_Org_rec.Vendor_Id := Get_Vendor_Id;
1129
1130 IF g_Shipping_Org_rec.Vendor_Id IS NOT NULL THEN
1131
1132 IF MRP_Validate_Shipping_Org.Val_Vendor_Id
1133 ( g_Shipping_Org_rec.Vendor_Id )
1134 THEN
1135
1136 MRP_Shipping_Org_Util.Clear_Dependent_Attr
1137 ( p_attr_id => MRP_Shipping_Org_Util.G_VENDOR_ID
1138 , p_Shipping_Org_rec => g_Shipping_Org_rec
1139 , x_Shipping_Org_rec => g_Shipping_Org_rec
1140 );
1141 ELSE
1142 g_Shipping_Org_rec.Vendor_Id := NULL;
1143 END IF;
1144
1145 END IF;
1146
1147 END IF;
1148
1149 IF g_Shipping_Org_rec.Vendor_Site_Id = FND_API.G_MISS_NUM THEN
1150
1151 g_Shipping_Org_rec.Vendor_Site_Id := Get_Vendor_Site_Id;
1152
1153 IF g_Shipping_Org_rec.Vendor_Site_Id IS NOT NULL THEN
1154
1155 IF MRP_Validate_Shipping_Org.Val_Vendor_Site_Id
1156 ( g_Shipping_Org_rec.Vendor_Id,
1157 g_Shipping_Org_rec.Vendor_Site_Id )
1158 THEN
1159
1160 MRP_Shipping_Org_Util.Clear_Dependent_Attr
1161 ( p_attr_id => MRP_Shipping_Org_Util.G_VENDOR_SITE_ID
1162 , p_Shipping_Org_rec => g_Shipping_Org_rec
1163 , x_Shipping_Org_rec => g_Shipping_Org_rec
1164 );
1165 ELSE
1166 g_Shipping_Org_rec.Vendor_Site_Id := NULL;
1167 END IF;
1168
1169 END IF;
1170
1171 END IF;
1172
1173 -- Redefault if there are any missing attributes.
1174
1175 IF g_Shipping_Org_rec.Sr_Source_Id = FND_API.G_MISS_NUM
1176 OR g_Shipping_Org_rec.Allocation_Percent = FND_API.G_MISS_NUM
1177 OR g_Shipping_Org_rec.Attribute1 = FND_API.G_MISS_CHAR
1178 OR g_Shipping_Org_rec.Attribute10 = FND_API.G_MISS_CHAR
1179 OR g_Shipping_Org_rec.Attribute11 = FND_API.G_MISS_CHAR
1180 OR g_Shipping_Org_rec.Attribute12 = FND_API.G_MISS_CHAR
1181 OR g_Shipping_Org_rec.Attribute13 = FND_API.G_MISS_CHAR
1182 OR g_Shipping_Org_rec.Attribute14 = FND_API.G_MISS_CHAR
1186 OR g_Shipping_Org_rec.Attribute4 = FND_API.G_MISS_CHAR
1183 OR g_Shipping_Org_rec.Attribute15 = FND_API.G_MISS_CHAR
1184 OR g_Shipping_Org_rec.Attribute2 = FND_API.G_MISS_CHAR
1185 OR g_Shipping_Org_rec.Attribute3 = FND_API.G_MISS_CHAR
1187 OR g_Shipping_Org_rec.Attribute5 = FND_API.G_MISS_CHAR
1188 OR g_Shipping_Org_rec.Attribute6 = FND_API.G_MISS_CHAR
1189 OR g_Shipping_Org_rec.Attribute7 = FND_API.G_MISS_CHAR
1190 OR g_Shipping_Org_rec.Attribute8 = FND_API.G_MISS_CHAR
1191 OR g_Shipping_Org_rec.Attribute9 = FND_API.G_MISS_CHAR
1192 OR g_Shipping_Org_rec.Attribute_Category = FND_API.G_MISS_CHAR
1193 OR g_Shipping_Org_rec.Created_By = FND_API.G_MISS_NUM
1194 OR g_Shipping_Org_rec.Creation_Date = FND_API.G_MISS_DATE
1195 OR g_Shipping_Org_rec.Last_Updated_By = FND_API.G_MISS_NUM
1196 OR g_Shipping_Org_rec.Last_Update_Date = FND_API.G_MISS_DATE
1197 OR g_Shipping_Org_rec.Last_Update_Login = FND_API.G_MISS_NUM
1198 OR g_Shipping_Org_rec.Program_Application_Id = FND_API.G_MISS_NUM
1199 OR g_Shipping_Org_rec.Program_Id = FND_API.G_MISS_NUM
1200 OR g_Shipping_Org_rec.Program_Update_Date = FND_API.G_MISS_DATE
1201 OR g_Shipping_Org_rec.Rank = FND_API.G_MISS_NUM
1202 OR g_Shipping_Org_rec.Request_Id = FND_API.G_MISS_NUM
1203 OR g_Shipping_Org_rec.Secondary_Inventory = FND_API.G_MISS_CHAR
1204 OR g_Shipping_Org_rec.Ship_Method = FND_API.G_MISS_CHAR
1205 OR g_Shipping_Org_rec.Source_Organization_Id = FND_API.G_MISS_NUM
1206 OR g_Shipping_Org_rec.Source_Type = FND_API.G_MISS_NUM
1207 OR g_Shipping_Org_rec.Sr_Receipt_Id = FND_API.G_MISS_NUM
1208 OR g_Shipping_Org_rec.Vendor_Id = FND_API.G_MISS_NUM
1209 OR g_Shipping_Org_rec.Vendor_Site_Id = FND_API.G_MISS_NUM
1210 THEN
1211
1212 MRP_Default_Shipping_Org.Attributes
1213 ( p_Shipping_Org_rec => g_Shipping_Org_rec
1214 , p_iteration => p_iteration + 1
1215 , x_Shipping_Org_rec => x_Shipping_Org_rec
1216 );
1217
1218 ELSE
1219
1220 -- Done defaulting attributes
1221
1222 x_Shipping_Org_rec := g_Shipping_Org_rec;
1223
1224 END IF;
1225
1226 END Attributes;
1227
1228 END MRP_Default_Shipping_Org;