[Home] [Help]
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: )
16: IS
17: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: BEGIN
19:
20: -- Check required attributes.
21:
21:
22: IF p_Shipping_Org_rec.Sr_Source_Id IS NULL
23: THEN
24:
25: l_return_status := FND_API.G_RET_STS_ERROR;
26:
27: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
28: THEN
29:
41:
42:
43: -- Return Error if a required attribute is missing.
44:
45: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
46:
47: RAISE FND_API.G_EXC_ERROR;
48:
49: END IF;
43: -- Return Error if a required attribute is missing.
44:
45: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
46:
47: RAISE FND_API.G_EXC_ERROR;
48:
49: END IF;
50:
51: --
57: dbms_output.put_line ('Error -source_organization_id required');
58: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
59: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Organization_Id');
60: FND_MSG_PUB.Add;
61: l_return_status := FND_API.G_RET_STS_ERROR;
62: END IF;
63:
64: IF p_Shipping_Org_rec.source_type = 3 AND
65: p_Shipping_Org_rec.vendor_id IS NULL THEN
66: dbms_output.put_line ('Error - vendor_id required');
67: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
68: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Id');
69: FND_MSG_PUB.Add;
70: l_return_status := FND_API.G_RET_STS_ERROR;
71: END IF;
72:
73: --
74: -- Validate attribute dependencies here.
81: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship_Method');
82: FND_MESSAGE.SET_TOKEN('DETAILS',
83: 'Ship method should be NULL for this Source type');
84: FND_MSG_PUB.Add;
85: l_return_status := FND_API.G_RET_STS_ERROR;
86: END IF;
87:
88: IF p_Shipping_Org_rec.vendor_site_id IS NOT NULL AND
89: p_Shipping_Org_rec.vendor_id IS NULL THEN
90: dbms_output.put_line ('error - vendor_id not specified');
91: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
92: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Vendor_Id');
93: FND_MSG_PUB.Add;
94: l_return_status := FND_API.G_RET_STS_ERROR;
95: END IF;
96:
97: -- Done validating entity
98:
99: x_return_status := l_return_status;
100:
101: EXCEPTION
102:
103: WHEN FND_API.G_EXC_ERROR THEN
104:
105: x_return_status := FND_API.G_RET_STS_ERROR;
106:
107: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
101: EXCEPTION
102:
103: WHEN FND_API.G_EXC_ERROR THEN
104:
105: x_return_status := FND_API.G_RET_STS_ERROR;
106:
107: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
108:
109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103: WHEN FND_API.G_EXC_ERROR THEN
104:
105: x_return_status := FND_API.G_RET_STS_ERROR;
106:
107: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
108:
109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110:
111: WHEN OTHERS THEN
105: x_return_status := FND_API.G_RET_STS_ERROR;
106:
107: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
108:
109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110:
111: WHEN OTHERS THEN
112:
113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110:
111: WHEN OTHERS THEN
112:
113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
114:
115: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
116: THEN
117: FND_MSG_PUB.Add_Exc_Msg
128: ( x_return_status OUT NOCOPY VARCHAR2
129: , p_Shipping_Org_rec IN MRP_Sourcing_Rule_PUB.Shipping_Org_Rec_Type
130: )
131: IS
132: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
133: l_count NUMBER;
134: BEGIN
135:
136: -- Validate entity delete.
151: FND_MESSAGE.SET_TOKEN('ENTITY','Shipping_Org');
152: FND_MESSAGE.SET_TOKEN('DETAILS', 'There is only one Source ' ||
153: 'Organization for this Receiving Organization');
154: FND_MSG_PUB.Add;
155: l_return_status := FND_API.G_RET_STS_ERROR;
156: END IF;
157:
158:
159: -- Done.
161: x_return_status := l_return_status;
162:
163: EXCEPTION
164:
165: WHEN FND_API.G_EXC_ERROR THEN
166:
167: x_return_status := FND_API.G_RET_STS_ERROR;
168:
169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: EXCEPTION
164:
165: WHEN FND_API.G_EXC_ERROR THEN
166:
167: x_return_status := FND_API.G_RET_STS_ERROR;
168:
169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
170:
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
165: WHEN FND_API.G_EXC_ERROR THEN
166:
167: x_return_status := FND_API.G_RET_STS_ERROR;
168:
169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
170:
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172:
173: WHEN OTHERS THEN
167: x_return_status := FND_API.G_RET_STS_ERROR;
168:
169: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
170:
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172:
173: WHEN OTHERS THEN
174:
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172:
173: WHEN OTHERS THEN
174:
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
176:
177: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
178: THEN
179: FND_MSG_PUB.Add_Exc_Msg
194: )
195: IS
196: BEGIN
197:
198: x_return_status := FND_API.G_RET_STS_SUCCESS;
199:
200: -- Validate Shipping_Org attributes
201:
202: IF (p_Shipping_Org_rec.Sr_Source_Id IS NOT NULL AND
207: IF NOT MRP_Validate.Shipping_Org
208: ( p_Shipping_Org_rec.Sr_Source_Id
209: )
210: THEN
211: x_return_status := FND_API.G_RET_STS_ERROR;
212: END IF;
213: END IF;
214:
215: IF p_Shipping_Org_rec.Allocation_Percent IS NOT NULL AND
217: p_old_Shipping_Org_rec.Allocation_Percent OR
218: p_old_Shipping_Org_rec.Allocation_Percent IS NULL )
219: THEN
220: IF NOT Val_Allocation_Percent(p_Shipping_Org_rec.Allocation_Percent) THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: END IF;
223: END IF;
224:
225: IF p_Shipping_Org_rec.Attribute1 IS NOT NULL AND
227: p_old_Shipping_Org_rec.Attribute1 OR
228: p_old_Shipping_Org_rec.Attribute1 IS NULL )
229: THEN
230: IF NOT Val_Attribute1(p_Shipping_Org_rec.Attribute1) THEN
231: x_return_status := FND_API.G_RET_STS_ERROR;
232: END IF;
233: END IF;
234:
235: IF p_Shipping_Org_rec.Attribute10 IS NOT NULL AND
237: p_old_Shipping_Org_rec.Attribute10 OR
238: p_old_Shipping_Org_rec.Attribute10 IS NULL )
239: THEN
240: IF NOT Val_Attribute10(p_Shipping_Org_rec.Attribute10) THEN
241: x_return_status := FND_API.G_RET_STS_ERROR;
242: END IF;
243: END IF;
244:
245: IF p_Shipping_Org_rec.Attribute11 IS NOT NULL AND
247: p_old_Shipping_Org_rec.Attribute11 OR
248: p_old_Shipping_Org_rec.Attribute11 IS NULL )
249: THEN
250: IF NOT Val_Attribute11(p_Shipping_Org_rec.Attribute11) THEN
251: x_return_status := FND_API.G_RET_STS_ERROR;
252: END IF;
253: END IF;
254:
255: IF p_Shipping_Org_rec.Attribute12 IS NOT NULL AND
257: p_old_Shipping_Org_rec.Attribute12 OR
258: p_old_Shipping_Org_rec.Attribute12 IS NULL )
259: THEN
260: IF NOT Val_Attribute12(p_Shipping_Org_rec.Attribute12) THEN
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: END IF;
263: END IF;
264:
265: IF p_Shipping_Org_rec.Attribute13 IS NOT NULL AND
267: p_old_Shipping_Org_rec.Attribute13 OR
268: p_old_Shipping_Org_rec.Attribute13 IS NULL )
269: THEN
270: IF NOT Val_Attribute13(p_Shipping_Org_rec.Attribute13) THEN
271: x_return_status := FND_API.G_RET_STS_ERROR;
272: END IF;
273: END IF;
274:
275: IF p_Shipping_Org_rec.Attribute14 IS NOT NULL AND
277: p_old_Shipping_Org_rec.Attribute14 OR
278: p_old_Shipping_Org_rec.Attribute14 IS NULL )
279: THEN
280: IF NOT Val_Attribute14(p_Shipping_Org_rec.Attribute14) THEN
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: END IF;
283: END IF;
284:
285: IF p_Shipping_Org_rec.Attribute15 IS NOT NULL AND
287: p_old_Shipping_Org_rec.Attribute15 OR
288: p_old_Shipping_Org_rec.Attribute15 IS NULL )
289: THEN
290: IF NOT Val_Attribute15(p_Shipping_Org_rec.Attribute15) THEN
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: END IF;
293: END IF;
294:
295: IF p_Shipping_Org_rec.Attribute2 IS NOT NULL AND
297: p_old_Shipping_Org_rec.Attribute2 OR
298: p_old_Shipping_Org_rec.Attribute2 IS NULL )
299: THEN
300: IF NOT Val_Attribute2(p_Shipping_Org_rec.Attribute2) THEN
301: x_return_status := FND_API.G_RET_STS_ERROR;
302: END IF;
303: END IF;
304:
305: IF p_Shipping_Org_rec.Attribute3 IS NOT NULL AND
307: p_old_Shipping_Org_rec.Attribute3 OR
308: p_old_Shipping_Org_rec.Attribute3 IS NULL )
309: THEN
310: IF NOT Val_Attribute3(p_Shipping_Org_rec.Attribute3) THEN
311: x_return_status := FND_API.G_RET_STS_ERROR;
312: END IF;
313: END IF;
314:
315: IF p_Shipping_Org_rec.Attribute4 IS NOT NULL AND
317: p_old_Shipping_Org_rec.Attribute4 OR
318: p_old_Shipping_Org_rec.Attribute4 IS NULL )
319: THEN
320: IF NOT Val_Attribute4(p_Shipping_Org_rec.Attribute4) THEN
321: x_return_status := FND_API.G_RET_STS_ERROR;
322: END IF;
323: END IF;
324:
325: IF p_Shipping_Org_rec.Attribute5 IS NOT NULL AND
327: p_old_Shipping_Org_rec.Attribute5 OR
328: p_old_Shipping_Org_rec.Attribute5 IS NULL )
329: THEN
330: IF NOT Val_Attribute5(p_Shipping_Org_rec.Attribute5) THEN
331: x_return_status := FND_API.G_RET_STS_ERROR;
332: END IF;
333: END IF;
334:
335: IF p_Shipping_Org_rec.Attribute6 IS NOT NULL AND
337: p_old_Shipping_Org_rec.Attribute6 OR
338: p_old_Shipping_Org_rec.Attribute6 IS NULL )
339: THEN
340: IF NOT Val_Attribute6(p_Shipping_Org_rec.Attribute6) THEN
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: END IF;
343: END IF;
344:
345: IF p_Shipping_Org_rec.Attribute7 IS NOT NULL AND
347: p_old_Shipping_Org_rec.Attribute7 OR
348: p_old_Shipping_Org_rec.Attribute7 IS NULL )
349: THEN
350: IF NOT Val_Attribute7(p_Shipping_Org_rec.Attribute7) THEN
351: x_return_status := FND_API.G_RET_STS_ERROR;
352: END IF;
353: END IF;
354:
355: IF p_Shipping_Org_rec.Attribute8 IS NOT NULL AND
357: p_old_Shipping_Org_rec.Attribute8 OR
358: p_old_Shipping_Org_rec.Attribute8 IS NULL )
359: THEN
360: IF NOT Val_Attribute8(p_Shipping_Org_rec.Attribute8) THEN
361: x_return_status := FND_API.G_RET_STS_ERROR;
362: END IF;
363: END IF;
364:
365: IF p_Shipping_Org_rec.Attribute9 IS NOT NULL AND
367: p_old_Shipping_Org_rec.Attribute9 OR
368: p_old_Shipping_Org_rec.Attribute9 IS NULL )
369: THEN
370: IF NOT Val_Attribute9(p_Shipping_Org_rec.Attribute9) THEN
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: END IF;
373: END IF;
374:
375: IF p_Shipping_Org_rec.Attribute_Category IS NOT NULL AND
377: p_old_Shipping_Org_rec.Attribute_Category OR
378: p_old_Shipping_Org_rec.Attribute_Category IS NULL )
379: THEN
380: IF NOT Val_Attribute_Category(p_Shipping_Org_rec.Attribute_Category) THEN
381: x_return_status := FND_API.G_RET_STS_ERROR;
382: END IF;
383: END IF;
384:
385: IF p_Shipping_Org_rec.Created_By IS NOT NULL AND
387: p_old_Shipping_Org_rec.Created_By OR
388: p_old_Shipping_Org_rec.Created_By IS NULL )
389: THEN
390: IF NOT Val_Created_By(p_Shipping_Org_rec.Created_By) THEN
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: END IF;
393: END IF;
394:
395: IF p_Shipping_Org_rec.Creation_Date IS NOT NULL AND
397: p_old_Shipping_Org_rec.Creation_Date OR
398: p_old_Shipping_Org_rec.Creation_Date IS NULL )
399: THEN
400: IF NOT Val_Creation_Date(p_Shipping_Org_rec.Creation_Date) THEN
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: END IF;
403: END IF;
404:
405: IF p_Shipping_Org_rec.Last_Updated_By IS NOT NULL AND
407: p_old_Shipping_Org_rec.Last_Updated_By OR
408: p_old_Shipping_Org_rec.Last_Updated_By IS NULL )
409: THEN
410: IF NOT Val_Last_Updated_By(p_Shipping_Org_rec.Last_Updated_By) THEN
411: x_return_status := FND_API.G_RET_STS_ERROR;
412: END IF;
413: END IF;
414:
415: IF p_Shipping_Org_rec.Last_Update_Date IS NOT NULL AND
417: p_old_Shipping_Org_rec.Last_Update_Date OR
418: p_old_Shipping_Org_rec.Last_Update_Date IS NULL )
419: THEN
420: IF NOT Val_Last_Update_Date(p_Shipping_Org_rec.Last_Update_Date) THEN
421: x_return_status := FND_API.G_RET_STS_ERROR;
422: END IF;
423: END IF;
424:
425: IF p_Shipping_Org_rec.Last_Update_Login IS NOT NULL AND
427: p_old_Shipping_Org_rec.Last_Update_Login OR
428: p_old_Shipping_Org_rec.Last_Update_Login IS NULL )
429: THEN
430: IF NOT Val_Last_Update_Login(p_Shipping_Org_rec.Last_Update_Login) THEN
431: x_return_status := FND_API.G_RET_STS_ERROR;
432: END IF;
433: END IF;
434:
435: IF p_Shipping_Org_rec.Program_Application_Id IS NOT NULL AND
437: p_old_Shipping_Org_rec.Program_Application_Id OR
438: p_old_Shipping_Org_rec.Program_Application_Id IS NULL )
439: THEN
440: IF NOT Val_Program_Application_Id(p_Shipping_Org_rec.Program_Application_Id) THEN
441: x_return_status := FND_API.G_RET_STS_ERROR;
442: END IF;
443: END IF;
444:
445: IF p_Shipping_Org_rec.Program_Id IS NOT NULL AND
447: p_old_Shipping_Org_rec.Program_Id OR
448: p_old_Shipping_Org_rec.Program_Id IS NULL )
449: THEN
450: IF NOT Val_Program_Id(p_Shipping_Org_rec.Program_Id) THEN
451: x_return_status := FND_API.G_RET_STS_ERROR;
452: END IF;
453: END IF;
454:
455: IF p_Shipping_Org_rec.Program_Update_Date IS NOT NULL AND
457: p_old_Shipping_Org_rec.Program_Update_Date OR
458: p_old_Shipping_Org_rec.Program_Update_Date IS NULL )
459: THEN
460: IF NOT Val_Program_Update_Date(p_Shipping_Org_rec.Program_Update_Date) THEN
461: x_return_status := FND_API.G_RET_STS_ERROR;
462: END IF;
463: END IF;
464:
465: IF p_Shipping_Org_rec.Rank IS NOT NULL AND
467: p_old_Shipping_Org_rec.Rank OR
468: p_old_Shipping_Org_rec.Rank IS NULL )
469: THEN
470: IF NOT Val_Rank(p_Shipping_Org_rec.Rank) THEN
471: x_return_status := FND_API.G_RET_STS_ERROR;
472: END IF;
473: END IF;
474:
475: IF p_Shipping_Org_rec.Request_Id IS NOT NULL AND
477: p_old_Shipping_Org_rec.Request_Id OR
478: p_old_Shipping_Org_rec.Request_Id IS NULL )
479: THEN
480: IF NOT Val_Request_Id(p_Shipping_Org_rec.Request_Id) THEN
481: x_return_status := FND_API.G_RET_STS_ERROR;
482: END IF;
483: END IF;
484:
485: IF p_Shipping_Org_rec.Secondary_Inventory IS NOT NULL AND
487: p_old_Shipping_Org_rec.Secondary_Inventory OR
488: p_old_Shipping_Org_rec.Secondary_Inventory IS NULL )
489: THEN
490: IF NOT Val_Secondary_Inventory(p_Shipping_Org_rec.Secondary_Inventory) THEN
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: END IF;
493: END IF;
494:
495: IF p_Shipping_Org_rec.Ship_Method IS NOT NULL AND
499: THEN
500: IF NOT Val_Ship_Method( p_Shipping_Org_rec.sr_receipt_id,
501: p_Shipping_Org_rec.source_organization_id,
502: p_Shipping_Org_rec.Ship_Method) THEN
503: x_return_status := FND_API.G_RET_STS_ERROR;
504: END IF;
505: END IF;
506:
507: IF p_Shipping_Org_rec.Source_Organization_Id IS NOT NULL AND
509: p_old_Shipping_Org_rec.Source_Organization_Id OR
510: p_old_Shipping_Org_rec.Source_Organization_Id IS NULL )
511: THEN
512: IF NOT Val_Source_Organization_Id(p_Shipping_Org_rec.Source_Organization_Id) THEN
513: x_return_status := FND_API.G_RET_STS_ERROR;
514: END IF;
515: END IF;
516:
517: IF p_Shipping_Org_rec.Source_Type IS NOT NULL AND
519: p_old_Shipping_Org_rec.Source_Type OR
520: p_old_Shipping_Org_rec.Source_Type IS NULL )
521: THEN
522: IF NOT Val_Source_Type(p_Shipping_Org_rec.Source_Type) THEN
523: x_return_status := FND_API.G_RET_STS_ERROR;
524: END IF;
525: END IF;
526:
527: IF p_Shipping_Org_rec.Sr_Receipt_Id IS NOT NULL AND
529: p_old_Shipping_Org_rec.Sr_Receipt_Id OR
530: p_old_Shipping_Org_rec.Sr_Receipt_Id IS NULL )
531: THEN
532: IF NOT Val_Sr_Receipt_Id(p_Shipping_Org_rec.Sr_Receipt_Id) THEN
533: x_return_status := FND_API.G_RET_STS_ERROR;
534: END IF;
535: END IF;
536:
537: IF p_Shipping_Org_rec.Vendor_Id IS NOT NULL AND
539: p_old_Shipping_Org_rec.Vendor_Id OR
540: p_old_Shipping_Org_rec.Vendor_Id IS NULL )
541: THEN
542: IF NOT Val_Vendor_Id(p_Shipping_Org_rec.Vendor_Id) THEN
543: x_return_status := FND_API.G_RET_STS_ERROR;
544: END IF;
545: END IF;
546:
547: IF p_Shipping_Org_rec.Vendor_Site_Id IS NOT NULL AND
550: p_old_Shipping_Org_rec.Vendor_Site_Id IS NULL )
551: THEN
552: IF NOT Val_Vendor_Site_Id(p_Shipping_Org_rec.Vendor_Id,
553: p_Shipping_Org_rec.Vendor_Site_Id) THEN
554: x_return_status := FND_API.G_RET_STS_ERROR;
555: END IF;
556: END IF;
557:
558: -- Done validating attributes
558: -- Done validating attributes
559:
560: EXCEPTION
561:
562: WHEN FND_API.G_EXC_ERROR THEN
563:
564: x_return_status := FND_API.G_RET_STS_ERROR;
565:
566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
560: EXCEPTION
561:
562: WHEN FND_API.G_EXC_ERROR THEN
563:
564: x_return_status := FND_API.G_RET_STS_ERROR;
565:
566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
567:
568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
562: WHEN FND_API.G_EXC_ERROR THEN
563:
564: x_return_status := FND_API.G_RET_STS_ERROR;
565:
566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
567:
568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
569:
570: WHEN OTHERS THEN
564: x_return_status := FND_API.G_RET_STS_ERROR;
565:
566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
567:
568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
569:
570: WHEN OTHERS THEN
571:
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
569:
570: WHEN OTHERS THEN
571:
572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
573:
574: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
575: THEN
576: FND_MSG_PUB.Add_Exc_Msg
592: IS
593: BEGIN
594:
595: IF p_Allocation_Percent IS NULL OR
596: p_Allocation_Percent = FND_API.G_MISS_NUM
597: THEN
598: dbms_output.put_line ('Val_Allocation_Percent Error ');
599: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
600: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Allocation_Percent');
622: IS
623: BEGIN
624:
625: IF p_Attribute1 IS NULL OR
626: p_Attribute1 = FND_API.G_MISS_CHAR
627: THEN
628: RETURN TRUE;
629: END IF;
630:
640: IS
641: BEGIN
642:
643: IF p_Attribute10 IS NULL OR
644: p_Attribute10 = FND_API.G_MISS_CHAR
645: THEN
646: RETURN TRUE;
647: END IF;
648:
658: IS
659: BEGIN
660:
661: IF p_Attribute11 IS NULL OR
662: p_Attribute11 = FND_API.G_MISS_CHAR
663: THEN
664: RETURN TRUE;
665: END IF;
666:
676: IS
677: BEGIN
678:
679: IF p_Attribute12 IS NULL OR
680: p_Attribute12 = FND_API.G_MISS_CHAR
681: THEN
682: RETURN TRUE;
683: END IF;
684:
694: IS
695: BEGIN
696:
697: IF p_Attribute13 IS NULL OR
698: p_Attribute13 = FND_API.G_MISS_CHAR
699: THEN
700: RETURN TRUE;
701: END IF;
702:
712: IS
713: BEGIN
714:
715: IF p_Attribute14 IS NULL OR
716: p_Attribute14 = FND_API.G_MISS_CHAR
717: THEN
718: RETURN TRUE;
719: END IF;
720:
730: IS
731: BEGIN
732:
733: IF p_Attribute15 IS NULL OR
734: p_Attribute15 = FND_API.G_MISS_CHAR
735: THEN
736: RETURN TRUE;
737: END IF;
738:
748: IS
749: BEGIN
750:
751: IF p_Attribute2 IS NULL OR
752: p_Attribute2 = FND_API.G_MISS_CHAR
753: THEN
754: RETURN TRUE;
755: END IF;
756:
766: IS
767: BEGIN
768:
769: IF p_Attribute3 IS NULL OR
770: p_Attribute3 = FND_API.G_MISS_CHAR
771: THEN
772: RETURN TRUE;
773: END IF;
774:
784: IS
785: BEGIN
786:
787: IF p_Attribute4 IS NULL OR
788: p_Attribute4 = FND_API.G_MISS_CHAR
789: THEN
790: RETURN TRUE;
791: END IF;
792:
802: IS
803: BEGIN
804:
805: IF p_Attribute5 IS NULL OR
806: p_Attribute5 = FND_API.G_MISS_CHAR
807: THEN
808: RETURN TRUE;
809: END IF;
810:
820: IS
821: BEGIN
822:
823: IF p_Attribute6 IS NULL OR
824: p_Attribute6 = FND_API.G_MISS_CHAR
825: THEN
826: RETURN TRUE;
827: END IF;
828:
838: IS
839: BEGIN
840:
841: IF p_Attribute7 IS NULL OR
842: p_Attribute7 = FND_API.G_MISS_CHAR
843: THEN
844: RETURN TRUE;
845: END IF;
846:
856: IS
857: BEGIN
858:
859: IF p_Attribute8 IS NULL OR
860: p_Attribute8 = FND_API.G_MISS_CHAR
861: THEN
862: RETURN TRUE;
863: END IF;
864:
874: IS
875: BEGIN
876:
877: IF p_Attribute9 IS NULL OR
878: p_Attribute9 = FND_API.G_MISS_CHAR
879: THEN
880: RETURN TRUE;
881: END IF;
882:
892: IS
893: BEGIN
894:
895: IF p_Attribute_Category IS NULL OR
896: p_Attribute_Category = FND_API.G_MISS_CHAR
897: THEN
898: RETURN TRUE;
899: END IF;
900:
910: IS
911: BEGIN
912:
913: IF p_Created_By IS NULL OR
914: p_Created_By = FND_API.G_MISS_NUM
915: THEN
916: RETURN TRUE;
917: END IF;
918:
928: IS
929: BEGIN
930:
931: IF p_Creation_Date IS NULL OR
932: p_Creation_Date = FND_API.G_MISS_DATE
933: THEN
934: RETURN TRUE;
935: END IF;
936:
946: IS
947: BEGIN
948:
949: IF p_Last_Updated_By IS NULL OR
950: p_Last_Updated_By = FND_API.G_MISS_NUM
951: THEN
952: RETURN TRUE;
953: END IF;
954:
964: IS
965: BEGIN
966:
967: IF p_Last_Update_Date IS NULL OR
968: p_Last_Update_Date = FND_API.G_MISS_DATE
969: THEN
970: RETURN TRUE;
971: END IF;
972:
982: IS
983: BEGIN
984:
985: IF p_Last_Update_Login IS NULL OR
986: p_Last_Update_Login = FND_API.G_MISS_NUM
987: THEN
988: RETURN TRUE;
989: END IF;
990:
1000: IS
1001: BEGIN
1002:
1003: IF p_Program_Application_Id IS NULL OR
1004: p_Program_Application_Id = FND_API.G_MISS_NUM
1005: THEN
1006: RETURN TRUE;
1007: END IF;
1008:
1018: IS
1019: BEGIN
1020:
1021: IF p_Program_Id IS NULL OR
1022: p_Program_Id = FND_API.G_MISS_NUM
1023: THEN
1024: RETURN TRUE;
1025: END IF;
1026:
1036: IS
1037: BEGIN
1038:
1039: IF p_Program_Update_Date IS NULL OR
1040: p_Program_Update_Date = FND_API.G_MISS_DATE
1041: THEN
1042: RETURN TRUE;
1043: END IF;
1044:
1054: IS
1055: BEGIN
1056:
1057: IF p_Rank IS NULL OR
1058: p_Rank = FND_API.G_MISS_NUM
1059: THEN
1060: RETURN TRUE;
1061: END IF;
1062:
1072: IS
1073: BEGIN
1074:
1075: IF p_Request_Id IS NULL OR
1076: p_Request_Id = FND_API.G_MISS_NUM
1077: THEN
1078: RETURN TRUE;
1079: END IF;
1080:
1090: IS
1091: BEGIN
1092:
1093: IF p_Secondary_Inventory IS NULL OR
1094: p_Secondary_Inventory = FND_API.G_MISS_CHAR
1095: THEN
1096: RETURN TRUE;
1097: END IF;
1098:
1113:
1114: BEGIN
1115:
1116: IF p_Ship_Method IS NULL OR
1117: p_Ship_Method = FND_API.G_MISS_CHAR
1118: THEN
1119: RETURN TRUE;
1120: ELSE
1121:
1154:
1155: BEGIN
1156:
1157: IF p_Source_Organization_Id IS NULL OR
1158: p_Source_Organization_Id = FND_API.G_MISS_NUM
1159: THEN
1160: RETURN TRUE;
1161: ELSE
1162: SELECT count(*)
1185: IS
1186: BEGIN
1187:
1188: IF p_Source_Type IS NULL OR
1189: p_Source_Type = FND_API.G_MISS_NUM
1190: THEN
1191: dbms_output.put_line ('Val_Source_Type Error ');
1192: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
1193: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Source_Type');
1214: IS
1215: BEGIN
1216:
1217: IF p_Sr_Receipt_Id IS NULL OR
1218: p_Sr_Receipt_Id = FND_API.G_MISS_NUM
1219: THEN
1220: RETURN TRUE;
1221: END IF;
1222:
1235:
1236: BEGIN
1237:
1238: IF p_Vendor_Id IS NULL OR
1239: p_Vendor_Id = FND_API.G_MISS_NUM
1240: THEN
1241: RETURN TRUE;
1242: ELSE
1243: SELECT count(*)
1270:
1271: BEGIN
1272:
1273: IF p_Vendor_Site_Id IS NULL OR
1274: p_Vendor_Site_Id = FND_API.G_MISS_NUM
1275: THEN
1276: RETURN TRUE;
1277: ELSE
1278: SELECT count(*)