1 PACKAGE BODY MRP_Shipping_Org_Util AS
2 /* $Header: MRPUSHOB.pls 115.2 99/07/16 12:40:19 porting ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_Shipping_Org_Util';
7
8 -- Procedure Clear_Dependent_Attr
9
10 PROCEDURE Clear_Dependent_Attr
11 ( p_attr_id IN NUMBER := FND_API.G_MISS_NUM
12 , p_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
13 , p_old_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type :=
14 MRP_Sourcing_Rule_PUB.G_MISS_SHIPPING_ORG_REC
15 , x_Shipping_Org_rec OUT MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
16 )
17 IS
18 BEGIN
19
20 -- Load out record
21
22 x_Shipping_Org_rec := p_Shipping_Org_rec;
23
24 -- If attr_id is missing compare old and new records and for
25 -- every changed attribute clear its dependent fields.
26
27 IF p_attr_id = FND_API.G_MISS_NUM THEN
28
29 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Sr_Source_Id,p_old_Shipping_Org_rec.Sr_Source_Id)
30 THEN
31 NULL;
32 END IF;
33
34 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Allocation_Percent,p_old_Shipping_Org_rec.Allocation_Percent)
35 THEN
36 NULL;
37 END IF;
38
39 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute1,p_old_Shipping_Org_rec.Attribute1)
40 THEN
41 NULL;
42 END IF;
43
44 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute10,p_old_Shipping_Org_rec.Attribute10)
45 THEN
46 NULL;
47 END IF;
48
49 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute11,p_old_Shipping_Org_rec.Attribute11)
50 THEN
51 NULL;
52 END IF;
53
54 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute12,p_old_Shipping_Org_rec.Attribute12)
55 THEN
56 NULL;
57 END IF;
58
59 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute13,p_old_Shipping_Org_rec.Attribute13)
60 THEN
61 NULL;
62 END IF;
63
64 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute14,p_old_Shipping_Org_rec.Attribute14)
65 THEN
66 NULL;
67 END IF;
68
69 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute15,p_old_Shipping_Org_rec.Attribute15)
70 THEN
71 NULL;
72 END IF;
73
74 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute2,p_old_Shipping_Org_rec.Attribute2)
75 THEN
76 NULL;
77 END IF;
78
79 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute3,p_old_Shipping_Org_rec.Attribute3)
80 THEN
81 NULL;
82 END IF;
83
84 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute4,p_old_Shipping_Org_rec.Attribute4)
85 THEN
86 NULL;
87 END IF;
88
89 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute5,p_old_Shipping_Org_rec.Attribute5)
90 THEN
91 NULL;
92 END IF;
93
94 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute6,p_old_Shipping_Org_rec.Attribute6)
95 THEN
96 NULL;
97 END IF;
98
99 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute7,p_old_Shipping_Org_rec.Attribute7)
100 THEN
101 NULL;
102 END IF;
103
104 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute8,p_old_Shipping_Org_rec.Attribute8)
105 THEN
106 NULL;
107 END IF;
108
109 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute9,p_old_Shipping_Org_rec.Attribute9)
110 THEN
111 NULL;
112 END IF;
113
114 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute_Category,p_old_Shipping_Org_rec.Attribute_Category)
115 THEN
116 NULL;
117 END IF;
118
119 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Created_By,p_old_Shipping_Org_rec.Created_By)
120 THEN
121 NULL;
122 END IF;
123
124 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Creation_Date,p_old_Shipping_Org_rec.Creation_Date)
125 THEN
126 NULL;
127 END IF;
128
129 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Last_Updated_By,p_old_Shipping_Org_rec.Last_Updated_By)
130 THEN
131 NULL;
132 END IF;
133
134 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Last_Update_Date,p_old_Shipping_Org_rec.Last_Update_Date)
135 THEN
136 NULL;
137 END IF;
138
139 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Last_Update_Login,p_old_Shipping_Org_rec.Last_Update_Login)
140 THEN
141 NULL;
142 END IF;
143
144 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Program_Application_Id,p_old_Shipping_Org_rec.Program_Application_Id)
145 THEN
146 NULL;
147 END IF;
148
149 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Program_Id,p_old_Shipping_Org_rec.Program_Id)
150 THEN
151 NULL;
152 END IF;
153
154 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Program_Update_Date,p_old_Shipping_Org_rec.Program_Update_Date)
155 THEN
156 NULL;
157 END IF;
158
159 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Rank,p_old_Shipping_Org_rec.Rank)
160 THEN
161 NULL;
162 END IF;
163
164 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Request_Id,p_old_Shipping_Org_rec.Request_Id)
165 THEN
166 NULL;
167 END IF;
168
169 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Secondary_Inventory,p_old_Shipping_Org_rec.Secondary_Inventory)
170 THEN
171 NULL;
172 END IF;
173
174 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Ship_Method,p_old_Shipping_Org_rec.Ship_Method)
175 THEN
176 NULL;
177 END IF;
178
179 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Source_Organization_Id,p_old_Shipping_Org_rec.Source_Organization_Id)
180 THEN
181 NULL;
182 END IF;
183
184 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Source_Type,p_old_Shipping_Org_rec.Source_Type)
185 THEN
186 NULL;
187 END IF;
188
189 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Sr_Receipt_Id,p_old_Shipping_Org_rec.Sr_Receipt_Id)
190 THEN
191 NULL;
192 END IF;
193
194 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Vendor_Id,p_old_Shipping_Org_rec.Vendor_Id)
195 THEN
196 NULL;
197 END IF;
198
199 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Vendor_Site_Id,p_old_Shipping_Org_rec.Vendor_Site_Id)
200 THEN
201 NULL;
202 END IF;
203
204 ELSIF p_attr_id = G_SR_SOURCE_ID THEN
205 NULL;
206 ELSIF p_attr_id = G_ALLOCATION_PERCENT THEN
207 NULL;
208 ELSIF p_attr_id = G_ATTRIBUTE1 THEN
209 NULL;
210 ELSIF p_attr_id = G_ATTRIBUTE10 THEN
211 NULL;
212 ELSIF p_attr_id = G_ATTRIBUTE11 THEN
213 NULL;
214 ELSIF p_attr_id = G_ATTRIBUTE12 THEN
215 NULL;
216 ELSIF p_attr_id = G_ATTRIBUTE13 THEN
217 NULL;
218 ELSIF p_attr_id = G_ATTRIBUTE14 THEN
219 NULL;
220 ELSIF p_attr_id = G_ATTRIBUTE15 THEN
221 NULL;
222 ELSIF p_attr_id = G_ATTRIBUTE2 THEN
223 NULL;
224 ELSIF p_attr_id = G_ATTRIBUTE3 THEN
225 NULL;
226 ELSIF p_attr_id = G_ATTRIBUTE4 THEN
227 NULL;
228 ELSIF p_attr_id = G_ATTRIBUTE5 THEN
229 NULL;
230 ELSIF p_attr_id = G_ATTRIBUTE6 THEN
231 NULL;
232 ELSIF p_attr_id = G_ATTRIBUTE7 THEN
233 NULL;
234 ELSIF p_attr_id = G_ATTRIBUTE8 THEN
235 NULL;
236 ELSIF p_attr_id = G_ATTRIBUTE9 THEN
237 NULL;
238 ELSIF p_attr_id = G_ATTRIBUTE_CATEGORY THEN
239 NULL;
240 ELSIF p_attr_id = G_CREATED_BY THEN
241 NULL;
242 ELSIF p_attr_id = G_CREATION_DATE THEN
243 NULL;
244 ELSIF p_attr_id = G_LAST_UPDATED_BY THEN
245 NULL;
246 ELSIF p_attr_id = G_LAST_UPDATE_DATE THEN
247 NULL;
248 ELSIF p_attr_id = G_LAST_UPDATE_LOGIN THEN
249 NULL;
250 ELSIF p_attr_id = G_PROGRAM_APPLICATION_ID THEN
251 NULL;
252 ELSIF p_attr_id = G_PROGRAM_ID THEN
253 NULL;
254 ELSIF p_attr_id = G_PROGRAM_UPDATE_DATE THEN
255 NULL;
256 ELSIF p_attr_id = G_RANK THEN
257 NULL;
258 ELSIF p_attr_id = G_REQUEST_ID THEN
259 NULL;
260 ELSIF p_attr_id = G_SECONDARY_INVENTORY THEN
261 NULL;
262 ELSIF p_attr_id = G_SHIP_METHOD THEN
263 NULL;
264 ELSIF p_attr_id = G_SOURCE_ORGANIZATION_ID THEN
265 NULL;
266 ELSIF p_attr_id = G_SOURCE_TYPE THEN
267 NULL;
268 ELSIF p_attr_id = G_SR_RECEIPT_ID THEN
269 NULL;
270 ELSIF p_attr_id = G_VENDOR_ID THEN
271 NULL;
272 ELSIF p_attr_id = G_VENDOR_SITE_ID THEN
273 NULL;
274 END IF;
275
276 -- I want to do this clearing irrespective of whether the old/new
277 -- record values have changed or not
278 -- Depending on the Source type, clear the dependent attributes
279 IF p_Shipping_Org_rec.Source_Type = 1 THEN
280 x_Shipping_Org_rec.vendor_id := NULL;
281 x_Shipping_Org_rec.vendor_site_id := NULL;
282 ELSIF p_Shipping_Org_rec.Source_Type = 2 THEN
283 x_Shipping_Org_rec.vendor_id := NULL;
284 x_Shipping_Org_rec.vendor_site_id := NULL;
285 x_Shipping_Org_rec.ship_method := NULL;
286 ELSIF p_Shipping_Org_rec.Source_Type = 3 THEN
287 x_Shipping_Org_rec.source_organization_id := NULL;
288 END IF;
289
290 END Clear_Dependent_Attr;
291
292 -- Procedure Apply_Attribute_Changes
293
294 PROCEDURE Apply_Attribute_Changes
295 ( p_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
296 , p_old_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type :=
297 MRP_Sourcing_Rule_PUB.G_MISS_SHIPPING_ORG_REC
298 , x_Shipping_Org_rec OUT MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
299 )
300 IS
301 BEGIN
302
303 -- Load out record
304
305 x_Shipping_Org_rec := p_Shipping_Org_rec;
306
307 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Sr_Source_Id,p_old_Shipping_Org_rec.Sr_Source_Id)
308 THEN
309 NULL;
310 END IF;
311
312 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Allocation_Percent,p_old_Shipping_Org_rec.Allocation_Percent)
313 THEN
314 NULL;
315 END IF;
316
317 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute1,p_old_Shipping_Org_rec.Attribute1)
318 THEN
319 NULL;
320 END IF;
321
322 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute10,p_old_Shipping_Org_rec.Attribute10)
323 THEN
324 NULL;
325 END IF;
326
327 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute11,p_old_Shipping_Org_rec.Attribute11)
328 THEN
329 NULL;
330 END IF;
331
332 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute12,p_old_Shipping_Org_rec.Attribute12)
333 THEN
334 NULL;
335 END IF;
336
337 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute13,p_old_Shipping_Org_rec.Attribute13)
338 THEN
339 NULL;
340 END IF;
341
342 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute14,p_old_Shipping_Org_rec.Attribute14)
343 THEN
344 NULL;
345 END IF;
346
347 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute15,p_old_Shipping_Org_rec.Attribute15)
348 THEN
349 NULL;
350 END IF;
351
352 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute2,p_old_Shipping_Org_rec.Attribute2)
353 THEN
354 NULL;
355 END IF;
356
357 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute3,p_old_Shipping_Org_rec.Attribute3)
358 THEN
359 NULL;
360 END IF;
361
362 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute4,p_old_Shipping_Org_rec.Attribute4)
363 THEN
364 NULL;
365 END IF;
366
367 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute5,p_old_Shipping_Org_rec.Attribute5)
368 THEN
369 NULL;
370 END IF;
371
372 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute6,p_old_Shipping_Org_rec.Attribute6)
373 THEN
374 NULL;
375 END IF;
376
377 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute7,p_old_Shipping_Org_rec.Attribute7)
378 THEN
379 NULL;
380 END IF;
381
382 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute8,p_old_Shipping_Org_rec.Attribute8)
383 THEN
384 NULL;
385 END IF;
386
387 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute9,p_old_Shipping_Org_rec.Attribute9)
388 THEN
389 NULL;
390 END IF;
391
392 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Attribute_Category,p_old_Shipping_Org_rec.Attribute_Category)
393 THEN
394 NULL;
395 END IF;
396
397 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Created_By,p_old_Shipping_Org_rec.Created_By)
398 THEN
399 NULL;
400 END IF;
401
402 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Creation_Date,p_old_Shipping_Org_rec.Creation_Date)
403 THEN
404 NULL;
405 END IF;
406
407 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Last_Updated_By,p_old_Shipping_Org_rec.Last_Updated_By)
408 THEN
409 NULL;
410 END IF;
411
412 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Last_Update_Date,p_old_Shipping_Org_rec.Last_Update_Date)
413 THEN
414 NULL;
415 END IF;
416
417 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Last_Update_Login,p_old_Shipping_Org_rec.Last_Update_Login)
418 THEN
419 NULL;
420 END IF;
421
422 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Program_Application_Id,p_old_Shipping_Org_rec.Program_Application_Id)
423 THEN
424 NULL;
425 END IF;
426
427 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Program_Id,p_old_Shipping_Org_rec.Program_Id)
428 THEN
429 NULL;
430 END IF;
431
432 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Program_Update_Date,p_old_Shipping_Org_rec.Program_Update_Date)
433 THEN
434 NULL;
435 END IF;
436
437 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Rank,p_old_Shipping_Org_rec.Rank)
438 THEN
439 NULL;
440 END IF;
441
442 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Request_Id,p_old_Shipping_Org_rec.Request_Id)
443 THEN
444 NULL;
445 END IF;
446
447 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Secondary_Inventory,p_old_Shipping_Org_rec.Secondary_Inventory)
448 THEN
449 NULL;
450 END IF;
451
452 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Ship_Method,p_old_Shipping_Org_rec.Ship_Method)
453 THEN
454 NULL;
455 END IF;
456
457 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Source_Organization_Id,p_old_Shipping_Org_rec.Source_Organization_Id)
458 THEN
459 NULL;
460 END IF;
461
462 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Source_Type,p_old_Shipping_Org_rec.Source_Type)
463 THEN
464 NULL;
465 END IF;
466
467 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Sr_Receipt_Id,p_old_Shipping_Org_rec.Sr_Receipt_Id)
468 THEN
469 NULL;
470 END IF;
471
472 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Vendor_Id,p_old_Shipping_Org_rec.Vendor_Id)
473 THEN
474 NULL;
475 END IF;
476
477 IF NOT MRP_Globals.Equal(p_Shipping_Org_rec.Vendor_Site_Id,p_old_Shipping_Org_rec.Vendor_Site_Id)
478 THEN
479 NULL;
480 END IF;
481
482 END Apply_Attribute_Changes;
483
484 -- Function Complete_Record
485
486 FUNCTION Complete_Record
487 ( p_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
488 , p_old_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
489 ) RETURN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
490 IS
491 l_Shipping_Org_rec MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type := p_Shipping_Org_rec;
492 BEGIN
493
494 IF l_Shipping_Org_rec.Sr_Source_Id = FND_API.G_MISS_NUM THEN
495 l_Shipping_Org_rec.Sr_Source_Id := p_old_Shipping_Org_rec.Sr_Source_Id;
496 END IF;
497
498 IF l_Shipping_Org_rec.Allocation_Percent = FND_API.G_MISS_NUM THEN
499 l_Shipping_Org_rec.Allocation_Percent := p_old_Shipping_Org_rec.Allocation_Percent;
500 END IF;
501
502 IF l_Shipping_Org_rec.Attribute1 = FND_API.G_MISS_CHAR THEN
503 l_Shipping_Org_rec.Attribute1 := p_old_Shipping_Org_rec.Attribute1;
504 END IF;
505
506 IF l_Shipping_Org_rec.Attribute10 = FND_API.G_MISS_CHAR THEN
507 l_Shipping_Org_rec.Attribute10 := p_old_Shipping_Org_rec.Attribute10;
508 END IF;
509
510 IF l_Shipping_Org_rec.Attribute11 = FND_API.G_MISS_CHAR THEN
511 l_Shipping_Org_rec.Attribute11 := p_old_Shipping_Org_rec.Attribute11;
512 END IF;
513
514 IF l_Shipping_Org_rec.Attribute12 = FND_API.G_MISS_CHAR THEN
515 l_Shipping_Org_rec.Attribute12 := p_old_Shipping_Org_rec.Attribute12;
516 END IF;
517
518 IF l_Shipping_Org_rec.Attribute13 = FND_API.G_MISS_CHAR THEN
519 l_Shipping_Org_rec.Attribute13 := p_old_Shipping_Org_rec.Attribute13;
520 END IF;
521
522 IF l_Shipping_Org_rec.Attribute14 = FND_API.G_MISS_CHAR THEN
523 l_Shipping_Org_rec.Attribute14 := p_old_Shipping_Org_rec.Attribute14;
524 END IF;
525
526 IF l_Shipping_Org_rec.Attribute15 = FND_API.G_MISS_CHAR THEN
527 l_Shipping_Org_rec.Attribute15 := p_old_Shipping_Org_rec.Attribute15;
528 END IF;
529
530 IF l_Shipping_Org_rec.Attribute2 = FND_API.G_MISS_CHAR THEN
531 l_Shipping_Org_rec.Attribute2 := p_old_Shipping_Org_rec.Attribute2;
532 END IF;
533
534 IF l_Shipping_Org_rec.Attribute3 = FND_API.G_MISS_CHAR THEN
535 l_Shipping_Org_rec.Attribute3 := p_old_Shipping_Org_rec.Attribute3;
536 END IF;
537
538 IF l_Shipping_Org_rec.Attribute4 = FND_API.G_MISS_CHAR THEN
539 l_Shipping_Org_rec.Attribute4 := p_old_Shipping_Org_rec.Attribute4;
540 END IF;
541
542 IF l_Shipping_Org_rec.Attribute5 = FND_API.G_MISS_CHAR THEN
543 l_Shipping_Org_rec.Attribute5 := p_old_Shipping_Org_rec.Attribute5;
544 END IF;
545
546 IF l_Shipping_Org_rec.Attribute6 = FND_API.G_MISS_CHAR THEN
547 l_Shipping_Org_rec.Attribute6 := p_old_Shipping_Org_rec.Attribute6;
548 END IF;
549
550 IF l_Shipping_Org_rec.Attribute7 = FND_API.G_MISS_CHAR THEN
551 l_Shipping_Org_rec.Attribute7 := p_old_Shipping_Org_rec.Attribute7;
552 END IF;
553
554 IF l_Shipping_Org_rec.Attribute8 = FND_API.G_MISS_CHAR THEN
555 l_Shipping_Org_rec.Attribute8 := p_old_Shipping_Org_rec.Attribute8;
556 END IF;
557
558 IF l_Shipping_Org_rec.Attribute9 = FND_API.G_MISS_CHAR THEN
559 l_Shipping_Org_rec.Attribute9 := p_old_Shipping_Org_rec.Attribute9;
560 END IF;
561
562 IF l_Shipping_Org_rec.Attribute_Category = FND_API.G_MISS_CHAR THEN
563 l_Shipping_Org_rec.Attribute_Category := p_old_Shipping_Org_rec.Attribute_Category;
564 END IF;
565
566 IF l_Shipping_Org_rec.Created_By = FND_API.G_MISS_NUM THEN
567 l_Shipping_Org_rec.Created_By := p_old_Shipping_Org_rec.Created_By;
568 END IF;
569
570 IF l_Shipping_Org_rec.Creation_Date = FND_API.G_MISS_DATE THEN
571 l_Shipping_Org_rec.Creation_Date := p_old_Shipping_Org_rec.Creation_Date;
572 END IF;
573
574 IF l_Shipping_Org_rec.Last_Updated_By = FND_API.G_MISS_NUM THEN
575 l_Shipping_Org_rec.Last_Updated_By := p_old_Shipping_Org_rec.Last_Updated_By;
576 END IF;
577
578 IF l_Shipping_Org_rec.Last_Update_Date = FND_API.G_MISS_DATE THEN
579 l_Shipping_Org_rec.Last_Update_Date := p_old_Shipping_Org_rec.Last_Update_Date;
580 END IF;
581
582 IF l_Shipping_Org_rec.Last_Update_Login = FND_API.G_MISS_NUM THEN
583 l_Shipping_Org_rec.Last_Update_Login := p_old_Shipping_Org_rec.Last_Update_Login;
584 END IF;
585
586 IF l_Shipping_Org_rec.Program_Application_Id = FND_API.G_MISS_NUM THEN
587 l_Shipping_Org_rec.Program_Application_Id := p_old_Shipping_Org_rec.Program_Application_Id;
588 END IF;
589
590 IF l_Shipping_Org_rec.Program_Id = FND_API.G_MISS_NUM THEN
591 l_Shipping_Org_rec.Program_Id := p_old_Shipping_Org_rec.Program_Id;
592 END IF;
593
594 IF l_Shipping_Org_rec.Program_Update_Date = FND_API.G_MISS_DATE THEN
595 l_Shipping_Org_rec.Program_Update_Date := p_old_Shipping_Org_rec.Program_Update_Date;
596 END IF;
597
598 IF l_Shipping_Org_rec.Rank = FND_API.G_MISS_NUM THEN
599 l_Shipping_Org_rec.Rank := p_old_Shipping_Org_rec.Rank;
600 END IF;
601
602 IF l_Shipping_Org_rec.Request_Id = FND_API.G_MISS_NUM THEN
603 l_Shipping_Org_rec.Request_Id := p_old_Shipping_Org_rec.Request_Id;
604 END IF;
605
606 IF l_Shipping_Org_rec.Secondary_Inventory = FND_API.G_MISS_CHAR THEN
607 l_Shipping_Org_rec.Secondary_Inventory := p_old_Shipping_Org_rec.Secondary_Inventory;
608 END IF;
609
610 IF l_Shipping_Org_rec.Ship_Method = FND_API.G_MISS_CHAR THEN
611 l_Shipping_Org_rec.Ship_Method := p_old_Shipping_Org_rec.Ship_Method;
612 END IF;
613
614 IF l_Shipping_Org_rec.Source_Organization_Id = FND_API.G_MISS_NUM THEN
615 l_Shipping_Org_rec.Source_Organization_Id := p_old_Shipping_Org_rec.Source_Organization_Id;
616 END IF;
617
618 IF l_Shipping_Org_rec.Source_Type = FND_API.G_MISS_NUM THEN
619 l_Shipping_Org_rec.Source_Type := p_old_Shipping_Org_rec.Source_Type;
620 END IF;
621
622 IF l_Shipping_Org_rec.Sr_Receipt_Id = FND_API.G_MISS_NUM THEN
623 l_Shipping_Org_rec.Sr_Receipt_Id := p_old_Shipping_Org_rec.Sr_Receipt_Id;
624 END IF;
625
626 IF l_Shipping_Org_rec.Vendor_Id = FND_API.G_MISS_NUM THEN
627 l_Shipping_Org_rec.Vendor_Id := p_old_Shipping_Org_rec.Vendor_Id;
628 END IF;
629
630 IF l_Shipping_Org_rec.Vendor_Site_Id = FND_API.G_MISS_NUM THEN
631 l_Shipping_Org_rec.Vendor_Site_Id := p_old_Shipping_Org_rec.Vendor_Site_Id;
632 END IF;
633
634 RETURN l_Shipping_Org_rec;
635
636 END Complete_Record;
637
638 -- Function Convert_Miss_To_Null
639
640 FUNCTION Convert_Miss_To_Null
641 ( p_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
642 ) RETURN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
643 IS
644 l_Shipping_Org_rec MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type := p_Shipping_Org_rec;
645 BEGIN
646
647 IF l_Shipping_Org_rec.Sr_Source_Id = FND_API.G_MISS_NUM THEN
648 l_Shipping_Org_rec.Sr_Source_Id := NULL;
649 END IF;
650
651 IF l_Shipping_Org_rec.Allocation_Percent = FND_API.G_MISS_NUM THEN
652 l_Shipping_Org_rec.Allocation_Percent := NULL;
653 END IF;
654
655 IF l_Shipping_Org_rec.Attribute1 = FND_API.G_MISS_CHAR THEN
656 l_Shipping_Org_rec.Attribute1 := NULL;
657 END IF;
658
659 IF l_Shipping_Org_rec.Attribute10 = FND_API.G_MISS_CHAR THEN
660 l_Shipping_Org_rec.Attribute10 := NULL;
661 END IF;
662
663 IF l_Shipping_Org_rec.Attribute11 = FND_API.G_MISS_CHAR THEN
664 l_Shipping_Org_rec.Attribute11 := NULL;
665 END IF;
666
667 IF l_Shipping_Org_rec.Attribute12 = FND_API.G_MISS_CHAR THEN
668 l_Shipping_Org_rec.Attribute12 := NULL;
669 END IF;
670
671 IF l_Shipping_Org_rec.Attribute13 = FND_API.G_MISS_CHAR THEN
672 l_Shipping_Org_rec.Attribute13 := NULL;
673 END IF;
674
675 IF l_Shipping_Org_rec.Attribute14 = FND_API.G_MISS_CHAR THEN
676 l_Shipping_Org_rec.Attribute14 := NULL;
677 END IF;
678
679 IF l_Shipping_Org_rec.Attribute15 = FND_API.G_MISS_CHAR THEN
680 l_Shipping_Org_rec.Attribute15 := NULL;
681 END IF;
682
683 IF l_Shipping_Org_rec.Attribute2 = FND_API.G_MISS_CHAR THEN
684 l_Shipping_Org_rec.Attribute2 := NULL;
685 END IF;
686
687 IF l_Shipping_Org_rec.Attribute3 = FND_API.G_MISS_CHAR THEN
688 l_Shipping_Org_rec.Attribute3 := NULL;
689 END IF;
690
691 IF l_Shipping_Org_rec.Attribute4 = FND_API.G_MISS_CHAR THEN
692 l_Shipping_Org_rec.Attribute4 := NULL;
693 END IF;
694
695 IF l_Shipping_Org_rec.Attribute5 = FND_API.G_MISS_CHAR THEN
696 l_Shipping_Org_rec.Attribute5 := NULL;
697 END IF;
698
699 IF l_Shipping_Org_rec.Attribute6 = FND_API.G_MISS_CHAR THEN
700 l_Shipping_Org_rec.Attribute6 := NULL;
701 END IF;
702
703 IF l_Shipping_Org_rec.Attribute7 = FND_API.G_MISS_CHAR THEN
704 l_Shipping_Org_rec.Attribute7 := NULL;
705 END IF;
706
707 IF l_Shipping_Org_rec.Attribute8 = FND_API.G_MISS_CHAR THEN
708 l_Shipping_Org_rec.Attribute8 := NULL;
709 END IF;
710
711 IF l_Shipping_Org_rec.Attribute9 = FND_API.G_MISS_CHAR THEN
712 l_Shipping_Org_rec.Attribute9 := NULL;
713 END IF;
714
715 IF l_Shipping_Org_rec.Attribute_Category = FND_API.G_MISS_CHAR THEN
716 l_Shipping_Org_rec.Attribute_Category := NULL;
717 END IF;
718
719 IF l_Shipping_Org_rec.Created_By = FND_API.G_MISS_NUM THEN
720 l_Shipping_Org_rec.Created_By := NULL;
721 END IF;
722
723 IF l_Shipping_Org_rec.Creation_Date = FND_API.G_MISS_DATE THEN
724 l_Shipping_Org_rec.Creation_Date := NULL;
725 END IF;
726
727 IF l_Shipping_Org_rec.Last_Updated_By = FND_API.G_MISS_NUM THEN
728 l_Shipping_Org_rec.Last_Updated_By := NULL;
729 END IF;
730
731 IF l_Shipping_Org_rec.Last_Update_Date = FND_API.G_MISS_DATE THEN
732 l_Shipping_Org_rec.Last_Update_Date := NULL;
733 END IF;
734
735 IF l_Shipping_Org_rec.Last_Update_Login = FND_API.G_MISS_NUM THEN
736 l_Shipping_Org_rec.Last_Update_Login := NULL;
737 END IF;
738
739 IF l_Shipping_Org_rec.Program_Application_Id = FND_API.G_MISS_NUM THEN
740 l_Shipping_Org_rec.Program_Application_Id := NULL;
741 END IF;
742
743 IF l_Shipping_Org_rec.Program_Id = FND_API.G_MISS_NUM THEN
744 l_Shipping_Org_rec.Program_Id := NULL;
745 END IF;
746
747 IF l_Shipping_Org_rec.Program_Update_Date = FND_API.G_MISS_DATE THEN
748 l_Shipping_Org_rec.Program_Update_Date := NULL;
749 END IF;
750
751 IF l_Shipping_Org_rec.Rank = FND_API.G_MISS_NUM THEN
752 l_Shipping_Org_rec.Rank := NULL;
753 END IF;
754
755 IF l_Shipping_Org_rec.Request_Id = FND_API.G_MISS_NUM THEN
756 l_Shipping_Org_rec.Request_Id := NULL;
757 END IF;
758
759 IF l_Shipping_Org_rec.Secondary_Inventory = FND_API.G_MISS_CHAR THEN
760 l_Shipping_Org_rec.Secondary_Inventory := NULL;
761 END IF;
762
763 IF l_Shipping_Org_rec.Ship_Method = FND_API.G_MISS_CHAR THEN
764 l_Shipping_Org_rec.Ship_Method := NULL;
765 END IF;
766
767 IF l_Shipping_Org_rec.Source_Organization_Id = FND_API.G_MISS_NUM THEN
768 l_Shipping_Org_rec.Source_Organization_Id := NULL;
769 END IF;
770
771 IF l_Shipping_Org_rec.Source_Type = FND_API.G_MISS_NUM THEN
772 l_Shipping_Org_rec.Source_Type := NULL;
773 END IF;
774
775 IF l_Shipping_Org_rec.Sr_Receipt_Id = FND_API.G_MISS_NUM THEN
776 l_Shipping_Org_rec.Sr_Receipt_Id := NULL;
777 END IF;
778
779 IF l_Shipping_Org_rec.Vendor_Id = FND_API.G_MISS_NUM THEN
780 l_Shipping_Org_rec.Vendor_Id := NULL;
781 END IF;
782
783 IF l_Shipping_Org_rec.Vendor_Site_Id = FND_API.G_MISS_NUM THEN
784 l_Shipping_Org_rec.Vendor_Site_Id := NULL;
785 END IF;
786
787 RETURN l_Shipping_Org_rec;
788
789 END Convert_Miss_To_Null;
790
791 -- Function Get_Values
792
793 FUNCTION Get_Values
794 ( p_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
795 , p_old_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type :=
796 MRP_Sourcing_Rule_PUB.G_MISS_SHIPPING_ORG_REC
797 ) RETURN MRP_Sourcing_Rule_PUB.Shipping_Org_Val_Rec_Type
798 IS
799 l_Shipping_Org_val_rec MRP_Sourcing_Rule_PUB.Shipping_Org_Val_Rec_Type;
800 BEGIN
801
802 RETURN l_Shipping_Org_val_rec;
803
804 END Get_Values;
805
806 -- Function Get_Ids
807
808 FUNCTION Get_Ids
809 ( p_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
810 , p_Shipping_Org_val_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Val_Rec_Type
811 ) RETURN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
812 IS
813 l_Shipping_Org_rec MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type;
814 BEGIN
815
816 -- initialize return_status.
817
818 l_Shipping_Org_rec.return_status := FND_API.G_RET_STS_SUCCESS;
819
820 -- initialize l_Shipping_Org_rec.
821
822 l_Shipping_Org_rec := p_Shipping_Org_rec;
823
824
825 RETURN l_Shipping_Org_rec;
826
827 END Get_Ids;
828
829 END MRP_Shipping_Org_Util;
[Home] [Help]