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