[Home] [Help]
13: , p_old_Assignment_rec IN MRP_Src_Assignment_PUB.Assignment_Rec_Type :=
14: MRP_Src_Assignment_PUB.G_MISS_ASSIGNMENT_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_Assignment_rec.Assignment_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: --
56: dbms_output.put_line ('Category ID required');
57: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
58: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Category_Id');
59: FND_MSG_PUB.Add;
60: l_return_status := FND_API.G_RET_STS_ERROR;
61: END IF;
62:
63: IF p_Assignment_rec.Assignment_type = 3 AND
64: p_Assignment_rec.Inventory_Item_Id IS NULL THEN
65: dbms_output.put_line ('Inventory_Item_Id required');
66: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
67: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Inventory_Item_Id');
68: FND_MSG_PUB.Add;
69: l_return_status := FND_API.G_RET_STS_ERROR;
70: END IF;
71:
72: IF (p_Assignment_rec.Assignment_type = 4 OR
73: p_Assignment_rec.Assignment_type = 5 OR
78: dbms_output.put_line ('org/cust required');
79: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
80: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Organization_Id or Customer_Id');
81: FND_MSG_PUB.Add;
82: l_return_status := FND_API.G_RET_STS_ERROR;
83: END IF;
84:
85: IF p_Assignment_rec.Customer_Id IS NOT NULL AND
86: p_Assignment_rec.Ship_To_Site_Id IS NULL THEN
87: dbms_output.put_line ('cust site required');
88: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
89: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship_To_Site_Id');
90: FND_MSG_PUB.Add;
91: l_return_status := FND_API.G_RET_STS_ERROR;
92: END IF;
93:
94: --
95: -- Validate attribute dependencies here.
101: x_return_status := l_return_status;
102:
103: EXCEPTION
104:
105: WHEN FND_API.G_EXC_ERROR THEN
106:
107: x_return_status := FND_API.G_RET_STS_ERROR;
108:
109: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
103: EXCEPTION
104:
105: WHEN FND_API.G_EXC_ERROR THEN
106:
107: x_return_status := FND_API.G_RET_STS_ERROR;
108:
109: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
110:
111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
105: WHEN FND_API.G_EXC_ERROR THEN
106:
107: x_return_status := FND_API.G_RET_STS_ERROR;
108:
109: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
110:
111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
112:
113: WHEN OTHERS THEN
107: x_return_status := FND_API.G_RET_STS_ERROR;
108:
109: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
110:
111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
112:
113: WHEN OTHERS THEN
114:
115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
112:
113: WHEN OTHERS THEN
114:
115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
116:
117: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
118: THEN
119: FND_MSG_PUB.Add_Exc_Msg
130: ( x_return_status OUT NOCOPY VARCHAR2
131: , p_Assignment_rec IN MRP_Src_Assignment_PUB.Assignment_Rec_Type
132: )
133: IS
134: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
135: BEGIN
136:
137: -- Validate entity delete.
138:
143: x_return_status := l_return_status;
144:
145: EXCEPTION
146:
147: WHEN FND_API.G_EXC_ERROR THEN
148:
149: x_return_status := FND_API.G_RET_STS_ERROR;
150:
151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145: EXCEPTION
146:
147: WHEN FND_API.G_EXC_ERROR THEN
148:
149: x_return_status := FND_API.G_RET_STS_ERROR;
150:
151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152:
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
147: WHEN FND_API.G_EXC_ERROR THEN
148:
149: x_return_status := FND_API.G_RET_STS_ERROR;
150:
151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152:
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154:
155: WHEN OTHERS THEN
149: x_return_status := FND_API.G_RET_STS_ERROR;
150:
151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152:
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154:
155: WHEN OTHERS THEN
156:
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154:
155: WHEN OTHERS THEN
156:
157: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158:
159: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
160: THEN
161: FND_MSG_PUB.Add_Exc_Msg
176: )
177: IS
178: BEGIN
179:
180: x_return_status := FND_API.G_RET_STS_SUCCESS;
181:
182: -- Validate Assignment attributes
183:
184: IF (p_Assignment_rec.Assignment_Id IS NOT NULL AND
189: IF NOT MRP_Validate.Assignment
190: ( p_Assignment_rec.Assignment_Id
191: )
192: THEN
193: x_return_status := FND_API.G_RET_STS_ERROR;
194: END IF;
195: END IF;
196:
197: IF p_Assignment_rec.Assignment_Set_Id IS NOT NULL AND
199: p_old_Assignment_rec.Assignment_Set_Id OR
200: p_old_Assignment_rec.Assignment_Set_Id IS NULL )
201: THEN
202: IF NOT Val_Assignment_Set_Id(p_Assignment_rec.Assignment_Set_Id) THEN
203: x_return_status := FND_API.G_RET_STS_ERROR;
204: END IF;
205: END IF;
206:
207: IF p_Assignment_rec.Assignment_Type IS NOT NULL AND
209: p_old_Assignment_rec.Assignment_Type OR
210: p_old_Assignment_rec.Assignment_Type IS NULL )
211: THEN
212: IF NOT Val_Assignment_Type(p_Assignment_rec.Assignment_Type) THEN
213: x_return_status := FND_API.G_RET_STS_ERROR;
214: END IF;
215: END IF;
216:
217: IF p_Assignment_rec.Attribute1 IS NOT NULL AND
219: p_old_Assignment_rec.Attribute1 OR
220: p_old_Assignment_rec.Attribute1 IS NULL )
221: THEN
222: IF NOT Val_Attribute1(p_Assignment_rec.Attribute1) THEN
223: x_return_status := FND_API.G_RET_STS_ERROR;
224: END IF;
225: END IF;
226:
227: IF p_Assignment_rec.Attribute10 IS NOT NULL AND
229: p_old_Assignment_rec.Attribute10 OR
230: p_old_Assignment_rec.Attribute10 IS NULL )
231: THEN
232: IF NOT Val_Attribute10(p_Assignment_rec.Attribute10) THEN
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: END IF;
235: END IF;
236:
237: IF p_Assignment_rec.Attribute11 IS NOT NULL AND
239: p_old_Assignment_rec.Attribute11 OR
240: p_old_Assignment_rec.Attribute11 IS NULL )
241: THEN
242: IF NOT Val_Attribute11(p_Assignment_rec.Attribute11) THEN
243: x_return_status := FND_API.G_RET_STS_ERROR;
244: END IF;
245: END IF;
246:
247: IF p_Assignment_rec.Attribute12 IS NOT NULL AND
249: p_old_Assignment_rec.Attribute12 OR
250: p_old_Assignment_rec.Attribute12 IS NULL )
251: THEN
252: IF NOT Val_Attribute12(p_Assignment_rec.Attribute12) THEN
253: x_return_status := FND_API.G_RET_STS_ERROR;
254: END IF;
255: END IF;
256:
257: IF p_Assignment_rec.Attribute13 IS NOT NULL AND
259: p_old_Assignment_rec.Attribute13 OR
260: p_old_Assignment_rec.Attribute13 IS NULL )
261: THEN
262: IF NOT Val_Attribute13(p_Assignment_rec.Attribute13) THEN
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: END IF;
265: END IF;
266:
267: IF p_Assignment_rec.Attribute14 IS NOT NULL AND
269: p_old_Assignment_rec.Attribute14 OR
270: p_old_Assignment_rec.Attribute14 IS NULL )
271: THEN
272: IF NOT Val_Attribute14(p_Assignment_rec.Attribute14) THEN
273: x_return_status := FND_API.G_RET_STS_ERROR;
274: END IF;
275: END IF;
276:
277: IF p_Assignment_rec.Attribute15 IS NOT NULL AND
279: p_old_Assignment_rec.Attribute15 OR
280: p_old_Assignment_rec.Attribute15 IS NULL )
281: THEN
282: IF NOT Val_Attribute15(p_Assignment_rec.Attribute15) THEN
283: x_return_status := FND_API.G_RET_STS_ERROR;
284: END IF;
285: END IF;
286:
287: IF p_Assignment_rec.Attribute2 IS NOT NULL AND
289: p_old_Assignment_rec.Attribute2 OR
290: p_old_Assignment_rec.Attribute2 IS NULL )
291: THEN
292: IF NOT Val_Attribute2(p_Assignment_rec.Attribute2) THEN
293: x_return_status := FND_API.G_RET_STS_ERROR;
294: END IF;
295: END IF;
296:
297: IF p_Assignment_rec.Attribute3 IS NOT NULL AND
299: p_old_Assignment_rec.Attribute3 OR
300: p_old_Assignment_rec.Attribute3 IS NULL )
301: THEN
302: IF NOT Val_Attribute3(p_Assignment_rec.Attribute3) THEN
303: x_return_status := FND_API.G_RET_STS_ERROR;
304: END IF;
305: END IF;
306:
307: IF p_Assignment_rec.Attribute4 IS NOT NULL AND
309: p_old_Assignment_rec.Attribute4 OR
310: p_old_Assignment_rec.Attribute4 IS NULL )
311: THEN
312: IF NOT Val_Attribute4(p_Assignment_rec.Attribute4) THEN
313: x_return_status := FND_API.G_RET_STS_ERROR;
314: END IF;
315: END IF;
316:
317: IF p_Assignment_rec.Attribute5 IS NOT NULL AND
319: p_old_Assignment_rec.Attribute5 OR
320: p_old_Assignment_rec.Attribute5 IS NULL )
321: THEN
322: IF NOT Val_Attribute5(p_Assignment_rec.Attribute5) THEN
323: x_return_status := FND_API.G_RET_STS_ERROR;
324: END IF;
325: END IF;
326:
327: IF p_Assignment_rec.Attribute6 IS NOT NULL AND
329: p_old_Assignment_rec.Attribute6 OR
330: p_old_Assignment_rec.Attribute6 IS NULL )
331: THEN
332: IF NOT Val_Attribute6(p_Assignment_rec.Attribute6) THEN
333: x_return_status := FND_API.G_RET_STS_ERROR;
334: END IF;
335: END IF;
336:
337: IF p_Assignment_rec.Attribute7 IS NOT NULL AND
339: p_old_Assignment_rec.Attribute7 OR
340: p_old_Assignment_rec.Attribute7 IS NULL )
341: THEN
342: IF NOT Val_Attribute7(p_Assignment_rec.Attribute7) THEN
343: x_return_status := FND_API.G_RET_STS_ERROR;
344: END IF;
345: END IF;
346:
347: IF p_Assignment_rec.Attribute8 IS NOT NULL AND
349: p_old_Assignment_rec.Attribute8 OR
350: p_old_Assignment_rec.Attribute8 IS NULL )
351: THEN
352: IF NOT Val_Attribute8(p_Assignment_rec.Attribute8) THEN
353: x_return_status := FND_API.G_RET_STS_ERROR;
354: END IF;
355: END IF;
356:
357: IF p_Assignment_rec.Attribute9 IS NOT NULL AND
359: p_old_Assignment_rec.Attribute9 OR
360: p_old_Assignment_rec.Attribute9 IS NULL )
361: THEN
362: IF NOT Val_Attribute9(p_Assignment_rec.Attribute9) THEN
363: x_return_status := FND_API.G_RET_STS_ERROR;
364: END IF;
365: END IF;
366:
367: IF p_Assignment_rec.Attribute_Category IS NOT NULL AND
369: p_old_Assignment_rec.Attribute_Category OR
370: p_old_Assignment_rec.Attribute_Category IS NULL )
371: THEN
372: IF NOT Val_Attribute_Category(p_Assignment_rec.Attribute_Category) THEN
373: x_return_status := FND_API.G_RET_STS_ERROR;
374: END IF;
375: END IF;
376:
377: IF p_Assignment_rec.Category_Id IS NOT NULL AND
380: p_old_Assignment_rec.Category_Id IS NULL )
381: THEN
382: IF NOT Val_Category_Id(p_Assignment_rec.Category_Set_Id,
383: p_Assignment_rec.Category_Id) THEN
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: END IF;
386: END IF;
387:
388: IF p_Assignment_rec.Category_Set_Id IS NOT NULL AND
390: p_old_Assignment_rec.Category_Set_Id OR
391: p_old_Assignment_rec.Category_Set_Id IS NULL )
392: THEN
393: IF NOT Val_Category_Set_Id(p_Assignment_rec.Category_Set_Id) THEN
394: x_return_status := FND_API.G_RET_STS_ERROR;
395: END IF;
396: END IF;
397:
398: IF p_Assignment_rec.Created_By IS NOT NULL AND
400: p_old_Assignment_rec.Created_By OR
401: p_old_Assignment_rec.Created_By IS NULL )
402: THEN
403: IF NOT Val_Created_By(p_Assignment_rec.Created_By) THEN
404: x_return_status := FND_API.G_RET_STS_ERROR;
405: END IF;
406: END IF;
407:
408: IF p_Assignment_rec.Creation_Date IS NOT NULL AND
410: p_old_Assignment_rec.Creation_Date OR
411: p_old_Assignment_rec.Creation_Date IS NULL )
412: THEN
413: IF NOT Val_Creation_Date(p_Assignment_rec.Creation_Date) THEN
414: x_return_status := FND_API.G_RET_STS_ERROR;
415: END IF;
416: END IF;
417:
418: IF p_Assignment_rec.Customer_Id IS NOT NULL AND
420: p_old_Assignment_rec.Customer_Id OR
421: p_old_Assignment_rec.Customer_Id IS NULL )
422: THEN
423: IF NOT Val_Customer_Id(p_Assignment_rec.Customer_Id) THEN
424: x_return_status := FND_API.G_RET_STS_ERROR;
425: END IF;
426: END IF;
427:
428: IF p_Assignment_rec.Inventory_Item_Id IS NOT NULL AND
431: p_old_Assignment_rec.Inventory_Item_Id IS NULL )
432: THEN
433: IF NOT Val_Inventory_Item_Id(p_Assignment_rec.Organization_Id,
434: p_Assignment_rec.Inventory_Item_Id) THEN
435: x_return_status := FND_API.G_RET_STS_ERROR;
436: END IF;
437: END IF;
438:
439: IF p_Assignment_rec.Last_Updated_By IS NOT NULL AND
441: p_old_Assignment_rec.Last_Updated_By OR
442: p_old_Assignment_rec.Last_Updated_By IS NULL )
443: THEN
444: IF NOT Val_Last_Updated_By(p_Assignment_rec.Last_Updated_By) THEN
445: x_return_status := FND_API.G_RET_STS_ERROR;
446: END IF;
447: END IF;
448:
449: IF p_Assignment_rec.Last_Update_Date IS NOT NULL AND
451: p_old_Assignment_rec.Last_Update_Date OR
452: p_old_Assignment_rec.Last_Update_Date IS NULL )
453: THEN
454: IF NOT Val_Last_Update_Date(p_Assignment_rec.Last_Update_Date) THEN
455: x_return_status := FND_API.G_RET_STS_ERROR;
456: END IF;
457: END IF;
458:
459: IF p_Assignment_rec.Last_Update_Login IS NOT NULL AND
461: p_old_Assignment_rec.Last_Update_Login OR
462: p_old_Assignment_rec.Last_Update_Login IS NULL )
463: THEN
464: IF NOT Val_Last_Update_Login(p_Assignment_rec.Last_Update_Login) THEN
465: x_return_status := FND_API.G_RET_STS_ERROR;
466: END IF;
467: END IF;
468:
469: IF p_Assignment_rec.Organization_Id IS NOT NULL AND
471: p_old_Assignment_rec.Organization_Id OR
472: p_old_Assignment_rec.Organization_Id IS NULL )
473: THEN
474: IF NOT Val_Organization_Id(p_Assignment_rec.Organization_Id) THEN
475: x_return_status := FND_API.G_RET_STS_ERROR;
476: END IF;
477: END IF;
478:
479: IF p_Assignment_rec.Program_Application_Id IS NOT NULL AND
481: p_old_Assignment_rec.Program_Application_Id OR
482: p_old_Assignment_rec.Program_Application_Id IS NULL )
483: THEN
484: IF NOT Val_Program_Application_Id(p_Assignment_rec.Program_Application_Id) THEN
485: x_return_status := FND_API.G_RET_STS_ERROR;
486: END IF;
487: END IF;
488:
489: IF p_Assignment_rec.Program_Id IS NOT NULL AND
491: p_old_Assignment_rec.Program_Id OR
492: p_old_Assignment_rec.Program_Id IS NULL )
493: THEN
494: IF NOT Val_Program_Id(p_Assignment_rec.Program_Id) THEN
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: END IF;
497: END IF;
498:
499: IF p_Assignment_rec.Program_Update_Date IS NOT NULL AND
501: p_old_Assignment_rec.Program_Update_Date OR
502: p_old_Assignment_rec.Program_Update_Date IS NULL )
503: THEN
504: IF NOT Val_Program_Update_Date(p_Assignment_rec.Program_Update_Date) THEN
505: x_return_status := FND_API.G_RET_STS_ERROR;
506: END IF;
507: END IF;
508:
509: IF p_Assignment_rec.Request_Id IS NOT NULL AND
511: p_old_Assignment_rec.Request_Id OR
512: p_old_Assignment_rec.Request_Id IS NULL )
513: THEN
514: IF NOT Val_Request_Id(p_Assignment_rec.Request_Id) THEN
515: x_return_status := FND_API.G_RET_STS_ERROR;
516: END IF;
517: END IF;
518:
519: IF p_Assignment_rec.Secondary_Inventory IS NOT NULL AND
521: p_old_Assignment_rec.Secondary_Inventory OR
522: p_old_Assignment_rec.Secondary_Inventory IS NULL )
523: THEN
524: IF NOT Val_Secondary_Inventory(p_Assignment_rec.Secondary_Inventory) THEN
525: x_return_status := FND_API.G_RET_STS_ERROR;
526: END IF;
527: END IF;
528:
529: IF p_Assignment_rec.Ship_To_Site_Id IS NOT NULL AND
532: p_old_Assignment_rec.Ship_To_Site_Id IS NULL )
533: THEN
534: IF NOT Val_Ship_To_Site_Id( p_Assignment_rec.Customer_id,
535: p_Assignment_rec.Ship_To_Site_Id) THEN
536: x_return_status := FND_API.G_RET_STS_ERROR;
537: END IF;
538: END IF;
539:
540: IF p_Assignment_rec.Sourcing_Rule_Id IS NOT NULL AND
543: p_old_Assignment_rec.Sourcing_Rule_Id IS NULL )
544: THEN
545: IF NOT Val_Sourcing_Rule_Id( p_Assignment_rec.Sourcing_Rule_Id,
546: p_Assignment_rec.Sourcing_Rule_Type) THEN
547: x_return_status := FND_API.G_RET_STS_ERROR;
548: END IF;
549: END IF;
550:
551: IF p_Assignment_rec.Sourcing_Rule_Type IS NOT NULL AND
553: p_old_Assignment_rec.Sourcing_Rule_Type OR
554: p_old_Assignment_rec.Sourcing_Rule_Type IS NULL )
555: THEN
556: IF NOT Val_Sourcing_Rule_Type(p_Assignment_rec.Sourcing_Rule_Type) THEN
557: x_return_status := FND_API.G_RET_STS_ERROR;
558: END IF;
559: END IF;
560:
561: -- Done validating attributes
561: -- Done validating attributes
562:
563: EXCEPTION
564:
565: WHEN FND_API.G_EXC_ERROR THEN
566:
567: x_return_status := FND_API.G_RET_STS_ERROR;
568:
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
563: EXCEPTION
564:
565: WHEN FND_API.G_EXC_ERROR THEN
566:
567: x_return_status := FND_API.G_RET_STS_ERROR;
568:
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570:
571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
565: WHEN FND_API.G_EXC_ERROR THEN
566:
567: x_return_status := FND_API.G_RET_STS_ERROR;
568:
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570:
571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
572:
573: WHEN OTHERS THEN
567: x_return_status := FND_API.G_RET_STS_ERROR;
568:
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570:
571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
572:
573: WHEN OTHERS THEN
574:
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
572:
573: WHEN OTHERS THEN
574:
575: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576:
577: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
578: THEN
579: FND_MSG_PUB.Add_Exc_Msg
598:
599: BEGIN
600:
601: IF p_Assignment_Set_Id IS NULL OR
602: p_Assignment_Set_Id = FND_API.G_MISS_NUM
603: THEN
604: dbms_output.put_line ('Val_Assignment_Set_Id Error');
605: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
606: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Assignment_Set_Id');
632: IS
633: BEGIN
634:
635: IF p_Assignment_Type IS NULL OR
636: p_Assignment_Type = FND_API.G_MISS_NUM
637: THEN
638: dbms_output.put_line ('Val_Assignment_Type error');
639: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
640: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Assignment_Type');
666: IS
667: BEGIN
668:
669: IF p_Attribute1 IS NULL OR
670: p_Attribute1 = FND_API.G_MISS_CHAR
671: THEN
672: RETURN TRUE;
673: END IF;
674:
684: IS
685: BEGIN
686:
687: IF p_Attribute10 IS NULL OR
688: p_Attribute10 = FND_API.G_MISS_CHAR
689: THEN
690: RETURN TRUE;
691: END IF;
692:
702: IS
703: BEGIN
704:
705: IF p_Attribute11 IS NULL OR
706: p_Attribute11 = FND_API.G_MISS_CHAR
707: THEN
708: RETURN TRUE;
709: END IF;
710:
720: IS
721: BEGIN
722:
723: IF p_Attribute12 IS NULL OR
724: p_Attribute12 = FND_API.G_MISS_CHAR
725: THEN
726: RETURN TRUE;
727: END IF;
728:
738: IS
739: BEGIN
740:
741: IF p_Attribute13 IS NULL OR
742: p_Attribute13 = FND_API.G_MISS_CHAR
743: THEN
744: RETURN TRUE;
745: END IF;
746:
756: IS
757: BEGIN
758:
759: IF p_Attribute14 IS NULL OR
760: p_Attribute14 = FND_API.G_MISS_CHAR
761: THEN
762: RETURN TRUE;
763: END IF;
764:
774: IS
775: BEGIN
776:
777: IF p_Attribute15 IS NULL OR
778: p_Attribute15 = FND_API.G_MISS_CHAR
779: THEN
780: RETURN TRUE;
781: END IF;
782:
792: IS
793: BEGIN
794:
795: IF p_Attribute2 IS NULL OR
796: p_Attribute2 = FND_API.G_MISS_CHAR
797: THEN
798: RETURN TRUE;
799: END IF;
800:
810: IS
811: BEGIN
812:
813: IF p_Attribute3 IS NULL OR
814: p_Attribute3 = FND_API.G_MISS_CHAR
815: THEN
816: RETURN TRUE;
817: END IF;
818:
828: IS
829: BEGIN
830:
831: IF p_Attribute4 IS NULL OR
832: p_Attribute4 = FND_API.G_MISS_CHAR
833: THEN
834: RETURN TRUE;
835: END IF;
836:
846: IS
847: BEGIN
848:
849: IF p_Attribute5 IS NULL OR
850: p_Attribute5 = FND_API.G_MISS_CHAR
851: THEN
852: RETURN TRUE;
853: END IF;
854:
864: IS
865: BEGIN
866:
867: IF p_Attribute6 IS NULL OR
868: p_Attribute6 = FND_API.G_MISS_CHAR
869: THEN
870: RETURN TRUE;
871: END IF;
872:
882: IS
883: BEGIN
884:
885: IF p_Attribute7 IS NULL OR
886: p_Attribute7 = FND_API.G_MISS_CHAR
887: THEN
888: RETURN TRUE;
889: END IF;
890:
900: IS
901: BEGIN
902:
903: IF p_Attribute8 IS NULL OR
904: p_Attribute8 = FND_API.G_MISS_CHAR
905: THEN
906: RETURN TRUE;
907: END IF;
908:
918: IS
919: BEGIN
920:
921: IF p_Attribute9 IS NULL OR
922: p_Attribute9 = FND_API.G_MISS_CHAR
923: THEN
924: RETURN TRUE;
925: END IF;
926:
936: IS
937: BEGIN
938:
939: IF p_Attribute_Category IS NULL OR
940: p_Attribute_Category = FND_API.G_MISS_CHAR
941: THEN
942: RETURN TRUE;
943: END IF;
944:
956: l_count NUMBER;
957: BEGIN
958:
959: IF p_Category_Id IS NULL OR
960: p_Category_Id = FND_API.G_MISS_NUM
961: THEN
962: RETURN TRUE;
963: ELSE
964: SELECT count(*)
993:
994: BEGIN
995:
996: IF p_Category_Set_Id IS NULL OR
997: p_Category_Set_Id = FND_API.G_MISS_NUM
998: THEN
999: RETURN TRUE;
1000: ELSE
1001: SELECT count(*)
1024: IS
1025: BEGIN
1026:
1027: IF p_Created_By IS NULL OR
1028: p_Created_By = FND_API.G_MISS_NUM
1029: THEN
1030: RETURN TRUE;
1031: END IF;
1032:
1042: IS
1043: BEGIN
1044:
1045: IF p_Creation_Date IS NULL OR
1046: p_Creation_Date = FND_API.G_MISS_DATE
1047: THEN
1048: RETURN TRUE;
1049: END IF;
1050:
1063:
1064: BEGIN
1065:
1066: IF p_Customer_Id IS NULL OR
1067: p_Customer_Id = FND_API.G_MISS_NUM
1068: THEN
1069: RETURN TRUE;
1070: ELSE
1071: SELECT count(*)
1099:
1100: BEGIN
1101:
1102: IF p_Inventory_Item_Id IS NULL OR
1103: p_Inventory_Item_Id = FND_API.G_MISS_NUM
1104: THEN
1105: RETURN TRUE;
1106: ELSE
1107: SELECT count(*)
1108: INTO l_count
1109: FROM mtl_system_items
1110: WHERE organization_id = decode(p_organization_id,
1111: NULL, organization_id,
1112: FND_API.G_MISS_NUM, organization_id,
1113: p_organization_id)
1114: AND inventory_item_id = p_Inventory_Item_Id;
1115:
1116: IF l_count = 0 THEN
1134: IS
1135: BEGIN
1136:
1137: IF p_Last_Updated_By IS NULL OR
1138: p_Last_Updated_By = FND_API.G_MISS_NUM
1139: THEN
1140: RETURN TRUE;
1141: END IF;
1142:
1152: IS
1153: BEGIN
1154:
1155: IF p_Last_Update_Date IS NULL OR
1156: p_Last_Update_Date = FND_API.G_MISS_DATE
1157: THEN
1158: RETURN TRUE;
1159: END IF;
1160:
1170: IS
1171: BEGIN
1172:
1173: IF p_Last_Update_Login IS NULL OR
1174: p_Last_Update_Login = FND_API.G_MISS_NUM
1175: THEN
1176: RETURN TRUE;
1177: END IF;
1178:
1188: IS
1189: BEGIN
1190:
1191: IF p_Organization_Id IS NULL OR
1192: p_Organization_Id = FND_API.G_MISS_NUM
1193: THEN
1194: RETURN TRUE;
1195: END IF;
1196:
1206: IS
1207: BEGIN
1208:
1209: IF p_Program_Application_Id IS NULL OR
1210: p_Program_Application_Id = FND_API.G_MISS_NUM
1211: THEN
1212: RETURN TRUE;
1213: END IF;
1214:
1224: IS
1225: BEGIN
1226:
1227: IF p_Program_Id IS NULL OR
1228: p_Program_Id = FND_API.G_MISS_NUM
1229: THEN
1230: RETURN TRUE;
1231: END IF;
1232:
1242: IS
1243: BEGIN
1244:
1245: IF p_Program_Update_Date IS NULL OR
1246: p_Program_Update_Date = FND_API.G_MISS_DATE
1247: THEN
1248: RETURN TRUE;
1249: END IF;
1250:
1260: IS
1261: BEGIN
1262:
1263: IF p_Request_Id IS NULL OR
1264: p_Request_Id = FND_API.G_MISS_NUM
1265: THEN
1266: RETURN TRUE;
1267: END IF;
1268:
1278: IS
1279: BEGIN
1280:
1281: IF p_Secondary_Inventory IS NULL OR
1282: p_Secondary_Inventory = FND_API.G_MISS_CHAR
1283: THEN
1284: RETURN TRUE;
1285: END IF;
1286:
1298: l_count NUMBER;
1299: BEGIN
1300:
1301: IF p_Ship_To_Site_Id IS NULL OR
1302: p_Ship_To_Site_Id = FND_API.G_MISS_NUM
1303: THEN
1304: RETURN TRUE;
1305: ELSE
1306: SELECT count(*)
1336: l_count NUMBER;
1337: BEGIN
1338:
1339: IF p_Sourcing_Rule_Id IS NULL OR
1340: p_Sourcing_Rule_Id = FND_API.G_MISS_NUM
1341: THEN
1342: dbms_output.put_line ('Error Val_Sourcing_Rule_Id');
1343: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
1344: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Sourcing_Rule_Id');
1372: IS
1373: BEGIN
1374:
1375: IF p_Sourcing_Rule_Type IS NULL OR
1376: p_Sourcing_Rule_Type = FND_API.G_MISS_NUM
1377: THEN
1378: RETURN TRUE;
1379: ELSIF (p_Sourcing_Rule_Type <> 1 AND p_Sourcing_Rule_Type <> 2) THEN
1380: dbms_output.put_line ('Val_Sourcing_Rule_Type Error');