1 PACKAGE BODY MRP_Receiving_Org_Util AS
2 /* $Header: MRPURCOB.pls 115.1 99/07/16 12:39:39 porting ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_Receiving_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_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
13 , p_old_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type :=
14 MRP_Sourcing_Rule_PUB.G_MISS_RECEIVING_ORG_REC
15 , x_Receiving_Org_rec OUT MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
16 )
17 IS
18 BEGIN
19
20 -- Load out record
21
22 x_Receiving_Org_rec := p_Receiving_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_Receiving_Org_rec.Sr_Receipt_Id,p_old_Receiving_Org_rec.Sr_Receipt_Id)
30 THEN
31 NULL;
32 END IF;
33
34 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute1,p_old_Receiving_Org_rec.Attribute1)
35 THEN
36 NULL;
37 END IF;
38
39 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute10,p_old_Receiving_Org_rec.Attribute10)
40 THEN
41 NULL;
42 END IF;
43
44 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute11,p_old_Receiving_Org_rec.Attribute11)
45 THEN
46 NULL;
47 END IF;
48
49 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute12,p_old_Receiving_Org_rec.Attribute12)
50 THEN
51 NULL;
52 END IF;
53
54 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute13,p_old_Receiving_Org_rec.Attribute13)
55 THEN
56 NULL;
57 END IF;
58
59 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute14,p_old_Receiving_Org_rec.Attribute14)
60 THEN
61 NULL;
62 END IF;
63
64 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute15,p_old_Receiving_Org_rec.Attribute15)
65 THEN
66 NULL;
67 END IF;
68
69 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute2,p_old_Receiving_Org_rec.Attribute2)
70 THEN
71 NULL;
72 END IF;
73
74 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute3,p_old_Receiving_Org_rec.Attribute3)
75 THEN
76 NULL;
77 END IF;
78
79 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute4,p_old_Receiving_Org_rec.Attribute4)
80 THEN
81 NULL;
82 END IF;
83
84 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute5,p_old_Receiving_Org_rec.Attribute5)
85 THEN
86 NULL;
87 END IF;
88
89 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute6,p_old_Receiving_Org_rec.Attribute6)
90 THEN
91 NULL;
92 END IF;
93
94 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute7,p_old_Receiving_Org_rec.Attribute7)
95 THEN
96 NULL;
97 END IF;
98
99 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute8,p_old_Receiving_Org_rec.Attribute8)
100 THEN
101 NULL;
102 END IF;
103
104 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute9,p_old_Receiving_Org_rec.Attribute9)
105 THEN
106 NULL;
107 END IF;
108
109 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute_Category,p_old_Receiving_Org_rec.Attribute_Category)
110 THEN
111 NULL;
112 END IF;
113
114 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Created_By,p_old_Receiving_Org_rec.Created_By)
115 THEN
116 NULL;
117 END IF;
118
119 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Creation_Date,p_old_Receiving_Org_rec.Creation_Date)
120 THEN
121 NULL;
122 END IF;
123
124 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Disable_Date,p_old_Receiving_Org_rec.Disable_Date)
125 THEN
126 NULL;
127 END IF;
128
129 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Effective_Date,p_old_Receiving_Org_rec.Effective_Date)
130 THEN
131 NULL;
132 END IF;
133
134 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Last_Updated_By,p_old_Receiving_Org_rec.Last_Updated_By)
135 THEN
136 NULL;
137 END IF;
138
139 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Last_Update_Date,p_old_Receiving_Org_rec.Last_Update_Date)
140 THEN
141 NULL;
142 END IF;
143
144 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Last_Update_Login,p_old_Receiving_Org_rec.Last_Update_Login)
145 THEN
146 NULL;
147 END IF;
148
149 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Program_Application_Id,p_old_Receiving_Org_rec.Program_Application_Id)
150 THEN
151 NULL;
152 END IF;
153
154 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Program_Id,p_old_Receiving_Org_rec.Program_Id)
155 THEN
156 NULL;
157 END IF;
158
159 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Program_Update_Date,p_old_Receiving_Org_rec.Program_Update_Date)
160 THEN
161 NULL;
162 END IF;
163
164 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Receipt_Organization_Id,p_old_Receiving_Org_rec.Receipt_Organization_Id)
165 THEN
166 NULL;
167 END IF;
168
169 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Request_Id,p_old_Receiving_Org_rec.Request_Id)
170 THEN
171 NULL;
172 END IF;
173
174 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Sourcing_Rule_Id,p_old_Receiving_Org_rec.Sourcing_Rule_Id)
175 THEN
176 NULL;
177 END IF;
178
179 ELSIF p_attr_id = G_SR_RECEIPT_ID THEN
180 NULL;
181 ELSIF p_attr_id = G_ATTRIBUTE1 THEN
182 NULL;
183 ELSIF p_attr_id = G_ATTRIBUTE10 THEN
184 NULL;
185 ELSIF p_attr_id = G_ATTRIBUTE11 THEN
186 NULL;
187 ELSIF p_attr_id = G_ATTRIBUTE12 THEN
188 NULL;
189 ELSIF p_attr_id = G_ATTRIBUTE13 THEN
190 NULL;
191 ELSIF p_attr_id = G_ATTRIBUTE14 THEN
192 NULL;
193 ELSIF p_attr_id = G_ATTRIBUTE15 THEN
194 NULL;
195 ELSIF p_attr_id = G_ATTRIBUTE2 THEN
196 NULL;
197 ELSIF p_attr_id = G_ATTRIBUTE3 THEN
198 NULL;
199 ELSIF p_attr_id = G_ATTRIBUTE4 THEN
200 NULL;
201 ELSIF p_attr_id = G_ATTRIBUTE5 THEN
202 NULL;
203 ELSIF p_attr_id = G_ATTRIBUTE6 THEN
204 NULL;
205 ELSIF p_attr_id = G_ATTRIBUTE7 THEN
206 NULL;
207 ELSIF p_attr_id = G_ATTRIBUTE8 THEN
208 NULL;
209 ELSIF p_attr_id = G_ATTRIBUTE9 THEN
210 NULL;
211 ELSIF p_attr_id = G_ATTRIBUTE_CATEGORY THEN
212 NULL;
213 ELSIF p_attr_id = G_CREATED_BY THEN
214 NULL;
215 ELSIF p_attr_id = G_CREATION_DATE THEN
216 NULL;
217 ELSIF p_attr_id = G_DISABLE_DATE THEN
218 NULL;
219 ELSIF p_attr_id = G_EFFECTIVE_DATE THEN
220 NULL;
221 ELSIF p_attr_id = G_LAST_UPDATED_BY THEN
222 NULL;
223 ELSIF p_attr_id = G_LAST_UPDATE_DATE THEN
224 NULL;
225 ELSIF p_attr_id = G_LAST_UPDATE_LOGIN THEN
226 NULL;
227 ELSIF p_attr_id = G_PROGRAM_APPLICATION_ID THEN
228 NULL;
229 ELSIF p_attr_id = G_PROGRAM_ID THEN
230 NULL;
231 ELSIF p_attr_id = G_PROGRAM_UPDATE_DATE THEN
232 NULL;
233 ELSIF p_attr_id = G_RECEIPT_ORGANIZATION_ID THEN
234 NULL;
235 ELSIF p_attr_id = G_REQUEST_ID THEN
236 NULL;
237 ELSIF p_attr_id = G_SOURCING_RULE_ID THEN
238 NULL;
239 END IF;
240
241 END Clear_Dependent_Attr;
242
243 -- Procedure Apply_Attribute_Changes
244
245 PROCEDURE Apply_Attribute_Changes
246 ( p_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
247 , p_old_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type :=
248 MRP_Sourcing_Rule_PUB.G_MISS_RECEIVING_ORG_REC
249 , x_Receiving_Org_rec OUT MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
250 )
251 IS
252 BEGIN
253
254 -- Load out record
255
256 x_Receiving_Org_rec := p_Receiving_Org_rec;
257
258 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Sr_Receipt_Id,p_old_Receiving_Org_rec.Sr_Receipt_Id)
259 THEN
260 NULL;
261 END IF;
262
263 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute1,p_old_Receiving_Org_rec.Attribute1)
264 THEN
265 NULL;
266 END IF;
267
268 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute10,p_old_Receiving_Org_rec.Attribute10)
269 THEN
270 NULL;
271 END IF;
272
273 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute11,p_old_Receiving_Org_rec.Attribute11)
274 THEN
275 NULL;
276 END IF;
277
278 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute12,p_old_Receiving_Org_rec.Attribute12)
279 THEN
280 NULL;
281 END IF;
282
283 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute13,p_old_Receiving_Org_rec.Attribute13)
284 THEN
285 NULL;
286 END IF;
287
288 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute14,p_old_Receiving_Org_rec.Attribute14)
289 THEN
290 NULL;
291 END IF;
292
293 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute15,p_old_Receiving_Org_rec.Attribute15)
294 THEN
295 NULL;
296 END IF;
297
298 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute2,p_old_Receiving_Org_rec.Attribute2)
299 THEN
300 NULL;
301 END IF;
302
303 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute3,p_old_Receiving_Org_rec.Attribute3)
304 THEN
305 NULL;
306 END IF;
307
308 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute4,p_old_Receiving_Org_rec.Attribute4)
309 THEN
310 NULL;
311 END IF;
312
313 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute5,p_old_Receiving_Org_rec.Attribute5)
314 THEN
315 NULL;
316 END IF;
317
318 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute6,p_old_Receiving_Org_rec.Attribute6)
319 THEN
320 NULL;
321 END IF;
322
323 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute7,p_old_Receiving_Org_rec.Attribute7)
324 THEN
325 NULL;
326 END IF;
327
328 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute8,p_old_Receiving_Org_rec.Attribute8)
329 THEN
330 NULL;
331 END IF;
332
333 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute9,p_old_Receiving_Org_rec.Attribute9)
334 THEN
335 NULL;
336 END IF;
337
338 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Attribute_Category,p_old_Receiving_Org_rec.Attribute_Category)
339 THEN
340 NULL;
341 END IF;
342
343 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Created_By,p_old_Receiving_Org_rec.Created_By)
344 THEN
345 NULL;
346 END IF;
347
348 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Creation_Date,p_old_Receiving_Org_rec.Creation_Date)
349 THEN
350 NULL;
351 END IF;
352
353 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Disable_Date,p_old_Receiving_Org_rec.Disable_Date)
354 THEN
355 NULL;
356 END IF;
357
358 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Effective_Date,p_old_Receiving_Org_rec.Effective_Date)
359 THEN
360 NULL;
361 END IF;
362
363 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Last_Updated_By,p_old_Receiving_Org_rec.Last_Updated_By)
364 THEN
365 NULL;
366 END IF;
367
368 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Last_Update_Date,p_old_Receiving_Org_rec.Last_Update_Date)
369 THEN
370 NULL;
371 END IF;
372
373 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Last_Update_Login,p_old_Receiving_Org_rec.Last_Update_Login)
374 THEN
375 NULL;
379 THEN
376 END IF;
377
378 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Program_Application_Id,p_old_Receiving_Org_rec.Program_Application_Id)
380 NULL;
381 END IF;
382
383 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Program_Id,p_old_Receiving_Org_rec.Program_Id)
384 THEN
385 NULL;
386 END IF;
387
388 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Program_Update_Date,p_old_Receiving_Org_rec.Program_Update_Date)
389 THEN
390 NULL;
391 END IF;
392
393 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Receipt_Organization_Id,p_old_Receiving_Org_rec.Receipt_Organization_Id)
394 THEN
395 NULL;
396 END IF;
397
398 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Request_Id,p_old_Receiving_Org_rec.Request_Id)
399 THEN
400 NULL;
401 END IF;
402
403 IF NOT MRP_Globals.Equal(p_Receiving_Org_rec.Sourcing_Rule_Id,p_old_Receiving_Org_rec.Sourcing_Rule_Id)
404 THEN
405 NULL;
406 END IF;
407
408 END Apply_Attribute_Changes;
409
410 -- Function Complete_Record
411
412 FUNCTION Complete_Record
413 ( p_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
414 , p_old_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
415 ) RETURN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
416 IS
417 l_Receiving_Org_rec MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type := p_Receiving_Org_rec;
418 BEGIN
419
420 IF l_Receiving_Org_rec.Sr_Receipt_Id = FND_API.G_MISS_NUM THEN
421 l_Receiving_Org_rec.Sr_Receipt_Id := p_old_Receiving_Org_rec.Sr_Receipt_Id;
422 END IF;
423
424 IF l_Receiving_Org_rec.Attribute1 = FND_API.G_MISS_CHAR THEN
425 l_Receiving_Org_rec.Attribute1 := p_old_Receiving_Org_rec.Attribute1;
426 END IF;
427
428 IF l_Receiving_Org_rec.Attribute10 = FND_API.G_MISS_CHAR THEN
429 l_Receiving_Org_rec.Attribute10 := p_old_Receiving_Org_rec.Attribute10;
430 END IF;
431
432 IF l_Receiving_Org_rec.Attribute11 = FND_API.G_MISS_CHAR THEN
433 l_Receiving_Org_rec.Attribute11 := p_old_Receiving_Org_rec.Attribute11;
434 END IF;
435
436 IF l_Receiving_Org_rec.Attribute12 = FND_API.G_MISS_CHAR THEN
437 l_Receiving_Org_rec.Attribute12 := p_old_Receiving_Org_rec.Attribute12;
438 END IF;
439
440 IF l_Receiving_Org_rec.Attribute13 = FND_API.G_MISS_CHAR THEN
441 l_Receiving_Org_rec.Attribute13 := p_old_Receiving_Org_rec.Attribute13;
442 END IF;
443
444 IF l_Receiving_Org_rec.Attribute14 = FND_API.G_MISS_CHAR THEN
445 l_Receiving_Org_rec.Attribute14 := p_old_Receiving_Org_rec.Attribute14;
446 END IF;
447
448 IF l_Receiving_Org_rec.Attribute15 = FND_API.G_MISS_CHAR THEN
449 l_Receiving_Org_rec.Attribute15 := p_old_Receiving_Org_rec.Attribute15;
450 END IF;
451
452 IF l_Receiving_Org_rec.Attribute2 = FND_API.G_MISS_CHAR THEN
453 l_Receiving_Org_rec.Attribute2 := p_old_Receiving_Org_rec.Attribute2;
454 END IF;
455
456 IF l_Receiving_Org_rec.Attribute3 = FND_API.G_MISS_CHAR THEN
457 l_Receiving_Org_rec.Attribute3 := p_old_Receiving_Org_rec.Attribute3;
458 END IF;
459
460 IF l_Receiving_Org_rec.Attribute4 = FND_API.G_MISS_CHAR THEN
461 l_Receiving_Org_rec.Attribute4 := p_old_Receiving_Org_rec.Attribute4;
462 END IF;
463
464 IF l_Receiving_Org_rec.Attribute5 = FND_API.G_MISS_CHAR THEN
465 l_Receiving_Org_rec.Attribute5 := p_old_Receiving_Org_rec.Attribute5;
466 END IF;
467
468 IF l_Receiving_Org_rec.Attribute6 = FND_API.G_MISS_CHAR THEN
469 l_Receiving_Org_rec.Attribute6 := p_old_Receiving_Org_rec.Attribute6;
470 END IF;
471
472 IF l_Receiving_Org_rec.Attribute7 = FND_API.G_MISS_CHAR THEN
473 l_Receiving_Org_rec.Attribute7 := p_old_Receiving_Org_rec.Attribute7;
474 END IF;
475
476 IF l_Receiving_Org_rec.Attribute8 = FND_API.G_MISS_CHAR THEN
477 l_Receiving_Org_rec.Attribute8 := p_old_Receiving_Org_rec.Attribute8;
478 END IF;
479
480 IF l_Receiving_Org_rec.Attribute9 = FND_API.G_MISS_CHAR THEN
481 l_Receiving_Org_rec.Attribute9 := p_old_Receiving_Org_rec.Attribute9;
482 END IF;
483
484 IF l_Receiving_Org_rec.Attribute_Category = FND_API.G_MISS_CHAR THEN
485 l_Receiving_Org_rec.Attribute_Category := p_old_Receiving_Org_rec.Attribute_Category;
486 END IF;
487
488 IF l_Receiving_Org_rec.Created_By = FND_API.G_MISS_NUM THEN
489 l_Receiving_Org_rec.Created_By := p_old_Receiving_Org_rec.Created_By;
490 END IF;
491
492 IF l_Receiving_Org_rec.Creation_Date = FND_API.G_MISS_DATE THEN
493 l_Receiving_Org_rec.Creation_Date := p_old_Receiving_Org_rec.Creation_Date;
494 END IF;
495
496 IF l_Receiving_Org_rec.Disable_Date = FND_API.G_MISS_DATE THEN
497 l_Receiving_Org_rec.Disable_Date := p_old_Receiving_Org_rec.Disable_Date;
498 END IF;
499
500 IF l_Receiving_Org_rec.Effective_Date = FND_API.G_MISS_DATE THEN
501 l_Receiving_Org_rec.Effective_Date := p_old_Receiving_Org_rec.Effective_Date;
502 END IF;
503
504 IF l_Receiving_Org_rec.Last_Updated_By = FND_API.G_MISS_NUM THEN
505 l_Receiving_Org_rec.Last_Updated_By := p_old_Receiving_Org_rec.Last_Updated_By;
506 END IF;
507
508 IF l_Receiving_Org_rec.Last_Update_Date = FND_API.G_MISS_DATE THEN
509 l_Receiving_Org_rec.Last_Update_Date := p_old_Receiving_Org_rec.Last_Update_Date;
510 END IF;
511
512 IF l_Receiving_Org_rec.Last_Update_Login = FND_API.G_MISS_NUM THEN
513 l_Receiving_Org_rec.Last_Update_Login := p_old_Receiving_Org_rec.Last_Update_Login;
514 END IF;
515
519
516 IF l_Receiving_Org_rec.Program_Application_Id = FND_API.G_MISS_NUM THEN
517 l_Receiving_Org_rec.Program_Application_Id := p_old_Receiving_Org_rec.Program_Application_Id;
518 END IF;
520 IF l_Receiving_Org_rec.Program_Id = FND_API.G_MISS_NUM THEN
521 l_Receiving_Org_rec.Program_Id := p_old_Receiving_Org_rec.Program_Id;
522 END IF;
523
524 IF l_Receiving_Org_rec.Program_Update_Date = FND_API.G_MISS_DATE THEN
525 l_Receiving_Org_rec.Program_Update_Date := p_old_Receiving_Org_rec.Program_Update_Date;
526 END IF;
527
528 IF l_Receiving_Org_rec.Receipt_Organization_Id = FND_API.G_MISS_NUM THEN
529 l_Receiving_Org_rec.Receipt_Organization_Id := p_old_Receiving_Org_rec.Receipt_Organization_Id;
530 END IF;
531
532 IF l_Receiving_Org_rec.Request_Id = FND_API.G_MISS_NUM THEN
533 l_Receiving_Org_rec.Request_Id := p_old_Receiving_Org_rec.Request_Id;
534 END IF;
535
536 IF l_Receiving_Org_rec.Sourcing_Rule_Id = FND_API.G_MISS_NUM THEN
537 l_Receiving_Org_rec.Sourcing_Rule_Id := p_old_Receiving_Org_rec.Sourcing_Rule_Id;
538 END IF;
539
540 RETURN l_Receiving_Org_rec;
541
542 END Complete_Record;
543
544 -- Function Convert_Miss_To_Null
545
546 FUNCTION Convert_Miss_To_Null
547 ( p_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
548 ) RETURN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
549 IS
550 l_Receiving_Org_rec MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type := p_Receiving_Org_rec;
551 BEGIN
552
553 IF l_Receiving_Org_rec.Sr_Receipt_Id = FND_API.G_MISS_NUM THEN
554 l_Receiving_Org_rec.Sr_Receipt_Id := NULL;
555 END IF;
556
557 IF l_Receiving_Org_rec.Attribute1 = FND_API.G_MISS_CHAR THEN
558 l_Receiving_Org_rec.Attribute1 := NULL;
559 END IF;
560
561 IF l_Receiving_Org_rec.Attribute10 = FND_API.G_MISS_CHAR THEN
562 l_Receiving_Org_rec.Attribute10 := NULL;
563 END IF;
564
565 IF l_Receiving_Org_rec.Attribute11 = FND_API.G_MISS_CHAR THEN
566 l_Receiving_Org_rec.Attribute11 := NULL;
567 END IF;
568
569 IF l_Receiving_Org_rec.Attribute12 = FND_API.G_MISS_CHAR THEN
570 l_Receiving_Org_rec.Attribute12 := NULL;
571 END IF;
572
573 IF l_Receiving_Org_rec.Attribute13 = FND_API.G_MISS_CHAR THEN
574 l_Receiving_Org_rec.Attribute13 := NULL;
575 END IF;
576
577 IF l_Receiving_Org_rec.Attribute14 = FND_API.G_MISS_CHAR THEN
578 l_Receiving_Org_rec.Attribute14 := NULL;
579 END IF;
580
581 IF l_Receiving_Org_rec.Attribute15 = FND_API.G_MISS_CHAR THEN
582 l_Receiving_Org_rec.Attribute15 := NULL;
583 END IF;
584
585 IF l_Receiving_Org_rec.Attribute2 = FND_API.G_MISS_CHAR THEN
586 l_Receiving_Org_rec.Attribute2 := NULL;
587 END IF;
588
589 IF l_Receiving_Org_rec.Attribute3 = FND_API.G_MISS_CHAR THEN
590 l_Receiving_Org_rec.Attribute3 := NULL;
591 END IF;
592
593 IF l_Receiving_Org_rec.Attribute4 = FND_API.G_MISS_CHAR THEN
594 l_Receiving_Org_rec.Attribute4 := NULL;
595 END IF;
596
597 IF l_Receiving_Org_rec.Attribute5 = FND_API.G_MISS_CHAR THEN
598 l_Receiving_Org_rec.Attribute5 := NULL;
599 END IF;
600
601 IF l_Receiving_Org_rec.Attribute6 = FND_API.G_MISS_CHAR THEN
602 l_Receiving_Org_rec.Attribute6 := NULL;
603 END IF;
604
605 IF l_Receiving_Org_rec.Attribute7 = FND_API.G_MISS_CHAR THEN
606 l_Receiving_Org_rec.Attribute7 := NULL;
607 END IF;
608
609 IF l_Receiving_Org_rec.Attribute8 = FND_API.G_MISS_CHAR THEN
610 l_Receiving_Org_rec.Attribute8 := NULL;
611 END IF;
612
613 IF l_Receiving_Org_rec.Attribute9 = FND_API.G_MISS_CHAR THEN
614 l_Receiving_Org_rec.Attribute9 := NULL;
615 END IF;
616
617 IF l_Receiving_Org_rec.Attribute_Category = FND_API.G_MISS_CHAR THEN
618 l_Receiving_Org_rec.Attribute_Category := NULL;
619 END IF;
620
621 IF l_Receiving_Org_rec.Created_By = FND_API.G_MISS_NUM THEN
625 IF l_Receiving_Org_rec.Creation_Date = FND_API.G_MISS_DATE THEN
622 l_Receiving_Org_rec.Created_By := NULL;
623 END IF;
624
626 l_Receiving_Org_rec.Creation_Date := NULL;
627 END IF;
628
629 IF l_Receiving_Org_rec.Disable_Date = FND_API.G_MISS_DATE THEN
630 l_Receiving_Org_rec.Disable_Date := NULL;
631 END IF;
632
633 IF l_Receiving_Org_rec.Effective_Date = FND_API.G_MISS_DATE THEN
634 l_Receiving_Org_rec.Effective_Date := NULL;
635 END IF;
636
637 IF l_Receiving_Org_rec.Last_Updated_By = FND_API.G_MISS_NUM THEN
638 l_Receiving_Org_rec.Last_Updated_By := NULL;
639 END IF;
640
641 IF l_Receiving_Org_rec.Last_Update_Date = FND_API.G_MISS_DATE THEN
642 l_Receiving_Org_rec.Last_Update_Date := NULL;
643 END IF;
644
645 IF l_Receiving_Org_rec.Last_Update_Login = FND_API.G_MISS_NUM THEN
646 l_Receiving_Org_rec.Last_Update_Login := NULL;
647 END IF;
648
649 IF l_Receiving_Org_rec.Program_Application_Id = FND_API.G_MISS_NUM THEN
650 l_Receiving_Org_rec.Program_Application_Id := NULL;
651 END IF;
652
653 IF l_Receiving_Org_rec.Program_Id = FND_API.G_MISS_NUM THEN
654 l_Receiving_Org_rec.Program_Id := NULL;
655 END IF;
656
657 IF l_Receiving_Org_rec.Program_Update_Date = FND_API.G_MISS_DATE THEN
658 l_Receiving_Org_rec.Program_Update_Date := NULL;
659 END IF;
660
661 IF l_Receiving_Org_rec.Receipt_Organization_Id = FND_API.G_MISS_NUM THEN
662 l_Receiving_Org_rec.Receipt_Organization_Id := NULL;
663 END IF;
664
665 IF l_Receiving_Org_rec.Request_Id = FND_API.G_MISS_NUM THEN
666 l_Receiving_Org_rec.Request_Id := NULL;
667 END IF;
668
669 IF l_Receiving_Org_rec.Sourcing_Rule_Id = FND_API.G_MISS_NUM THEN
670 l_Receiving_Org_rec.Sourcing_Rule_Id := NULL;
671 END IF;
672
673 RETURN l_Receiving_Org_rec;
674
675 END Convert_Miss_To_Null;
676
677 -- Function Get_Values
678
679 FUNCTION Get_Values
680 ( p_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
681 , p_old_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type :=
682 MRP_Sourcing_Rule_PUB.G_MISS_RECEIVING_ORG_REC
683 ) RETURN MRP_Sourcing_Rule_PUB.Receiving_Org_Val_Rec_Type
684 IS
685 l_Receiving_Org_val_rec MRP_Sourcing_Rule_PUB.Receiving_Org_Val_Rec_Type;
686 BEGIN
687
688 RETURN l_Receiving_Org_val_rec;
689
690 END Get_Values;
691
692 -- Function Get_Ids
693
694 FUNCTION Get_Ids
695 ( p_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
696 , p_Receiving_Org_val_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Val_Rec_Type
697 ) RETURN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
698 IS
699 l_Receiving_Org_rec MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type;
700 BEGIN
701
702 -- initialize return_status.
703
704 l_Receiving_Org_rec.return_status := FND_API.G_RET_STS_SUCCESS;
705
706 -- initialize l_Receiving_Org_rec.
707
711 RETURN l_Receiving_Org_rec;
708 l_Receiving_Org_rec := p_Receiving_Org_rec;
709
710
712
713 END Get_Ids;
714
715 END MRP_Receiving_Org_Util;
[Home] [Help]