13: , p_old_Sourcing_Rule_rec IN MRP_Sourcing_Rule_PUB.Sourcing_Rule_Rec_Type :=
14: MRP_Sourcing_Rule_PUB.G_MISS_SOURCING_RULE_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_Sourcing_Rule_rec.Sourcing_Rule_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: --
63: x_return_status := l_return_status;
64:
65: EXCEPTION
66:
67: WHEN FND_API.G_EXC_ERROR THEN
68:
69: x_return_status := FND_API.G_RET_STS_ERROR;
70:
71: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
65: EXCEPTION
66:
67: WHEN FND_API.G_EXC_ERROR THEN
68:
69: x_return_status := FND_API.G_RET_STS_ERROR;
70:
71: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
72:
73: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
67: WHEN FND_API.G_EXC_ERROR THEN
68:
69: x_return_status := FND_API.G_RET_STS_ERROR;
70:
71: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
72:
73: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
74:
75: WHEN OTHERS THEN
69: x_return_status := FND_API.G_RET_STS_ERROR;
70:
71: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
72:
73: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
74:
75: WHEN OTHERS THEN
76:
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
74:
75: WHEN OTHERS THEN
76:
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78:
79: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
80: THEN
81: FND_MSG_PUB.Add_Exc_Msg
92: ( x_return_status OUT NOCOPY VARCHAR2
93: , p_Sourcing_Rule_rec IN MRP_Sourcing_Rule_PUB.Sourcing_Rule_Rec_Type
94: )
95: IS
96: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
97: l_count NUMBER;
98: BEGIN
99:
100: -- Validate entity delete.
110: FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
111: FND_MESSAGE.SET_TOKEN('ENTITY','Sourcing_Rule');
112: FND_MESSAGE.SET_TOKEN('DETAILS','This Sourcing Rule has been assigned');
113: FND_MSG_PUB.Add;
114: l_return_status := FND_API.G_RET_STS_ERROR;
115: END IF;
116:
117: -- Done.
118:
119: x_return_status := l_return_status;
120:
121: EXCEPTION
122:
123: WHEN FND_API.G_EXC_ERROR THEN
124:
125: x_return_status := FND_API.G_RET_STS_ERROR;
126:
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: EXCEPTION
122:
123: WHEN FND_API.G_EXC_ERROR THEN
124:
125: x_return_status := FND_API.G_RET_STS_ERROR;
126:
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128:
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
123: WHEN FND_API.G_EXC_ERROR THEN
124:
125: x_return_status := FND_API.G_RET_STS_ERROR;
126:
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128:
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130:
131: WHEN OTHERS THEN
125: x_return_status := FND_API.G_RET_STS_ERROR;
126:
127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
128:
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130:
131: WHEN OTHERS THEN
132:
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
130:
131: WHEN OTHERS THEN
132:
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134:
135: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
136: THEN
137: FND_MSG_PUB.Add_Exc_Msg
152: )
153: IS
154: BEGIN
155:
156: x_return_status := FND_API.G_RET_STS_SUCCESS;
157:
158: -- Validate Sourcing_Rule attributes
159:
160: IF (p_Sourcing_Rule_rec.Sourcing_Rule_Id IS NOT NULL AND
166: ( p_Sourcing_Rule_rec.Sourcing_Rule_Id
167: )
168: THEN
169: dbms_output.put_line ('Error Sourcing_Rule_Id');
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: END IF;
172: END IF;
173:
174: IF p_Sourcing_Rule_rec.Attribute1 IS NOT NULL AND
176: p_old_Sourcing_Rule_rec.Attribute1 OR
177: p_old_Sourcing_Rule_rec.Attribute1 IS NULL )
178: THEN
179: IF NOT Val_Attribute1(p_Sourcing_Rule_rec.Attribute1) THEN
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: END IF;
182: END IF;
183:
184: IF p_Sourcing_Rule_rec.Attribute10 IS NOT NULL AND
186: p_old_Sourcing_Rule_rec.Attribute10 OR
187: p_old_Sourcing_Rule_rec.Attribute10 IS NULL )
188: THEN
189: IF NOT Val_Attribute10(p_Sourcing_Rule_rec.Attribute10) THEN
190: x_return_status := FND_API.G_RET_STS_ERROR;
191: END IF;
192: END IF;
193:
194: IF p_Sourcing_Rule_rec.Attribute11 IS NOT NULL AND
196: p_old_Sourcing_Rule_rec.Attribute11 OR
197: p_old_Sourcing_Rule_rec.Attribute11 IS NULL )
198: THEN
199: IF NOT Val_Attribute11(p_Sourcing_Rule_rec.Attribute11) THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: END IF;
202: END IF;
203:
204: IF p_Sourcing_Rule_rec.Attribute12 IS NOT NULL AND
206: p_old_Sourcing_Rule_rec.Attribute12 OR
207: p_old_Sourcing_Rule_rec.Attribute12 IS NULL )
208: THEN
209: IF NOT Val_Attribute12(p_Sourcing_Rule_rec.Attribute12) THEN
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: END IF;
212: END IF;
213:
214: IF p_Sourcing_Rule_rec.Attribute13 IS NOT NULL AND
216: p_old_Sourcing_Rule_rec.Attribute13 OR
217: p_old_Sourcing_Rule_rec.Attribute13 IS NULL )
218: THEN
219: IF NOT Val_Attribute13(p_Sourcing_Rule_rec.Attribute13) THEN
220: x_return_status := FND_API.G_RET_STS_ERROR;
221: END IF;
222: END IF;
223:
224: IF p_Sourcing_Rule_rec.Attribute14 IS NOT NULL AND
226: p_old_Sourcing_Rule_rec.Attribute14 OR
227: p_old_Sourcing_Rule_rec.Attribute14 IS NULL )
228: THEN
229: IF NOT Val_Attribute14(p_Sourcing_Rule_rec.Attribute14) THEN
230: x_return_status := FND_API.G_RET_STS_ERROR;
231: END IF;
232: END IF;
233:
234: IF p_Sourcing_Rule_rec.Attribute15 IS NOT NULL AND
236: p_old_Sourcing_Rule_rec.Attribute15 OR
237: p_old_Sourcing_Rule_rec.Attribute15 IS NULL )
238: THEN
239: IF NOT Val_Attribute15(p_Sourcing_Rule_rec.Attribute15) THEN
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: END IF;
242: END IF;
243:
244: IF p_Sourcing_Rule_rec.Attribute2 IS NOT NULL AND
246: p_old_Sourcing_Rule_rec.Attribute2 OR
247: p_old_Sourcing_Rule_rec.Attribute2 IS NULL )
248: THEN
249: IF NOT Val_Attribute2(p_Sourcing_Rule_rec.Attribute2) THEN
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: END IF;
252: END IF;
253:
254: IF p_Sourcing_Rule_rec.Attribute3 IS NOT NULL AND
256: p_old_Sourcing_Rule_rec.Attribute3 OR
257: p_old_Sourcing_Rule_rec.Attribute3 IS NULL )
258: THEN
259: IF NOT Val_Attribute3(p_Sourcing_Rule_rec.Attribute3) THEN
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: END IF;
262: END IF;
263:
264: IF p_Sourcing_Rule_rec.Attribute4 IS NOT NULL AND
266: p_old_Sourcing_Rule_rec.Attribute4 OR
267: p_old_Sourcing_Rule_rec.Attribute4 IS NULL )
268: THEN
269: IF NOT Val_Attribute4(p_Sourcing_Rule_rec.Attribute4) THEN
270: x_return_status := FND_API.G_RET_STS_ERROR;
271: END IF;
272: END IF;
273:
274: IF p_Sourcing_Rule_rec.Attribute5 IS NOT NULL AND
276: p_old_Sourcing_Rule_rec.Attribute5 OR
277: p_old_Sourcing_Rule_rec.Attribute5 IS NULL )
278: THEN
279: IF NOT Val_Attribute5(p_Sourcing_Rule_rec.Attribute5) THEN
280: x_return_status := FND_API.G_RET_STS_ERROR;
281: END IF;
282: END IF;
283:
284: IF p_Sourcing_Rule_rec.Attribute6 IS NOT NULL AND
286: p_old_Sourcing_Rule_rec.Attribute6 OR
287: p_old_Sourcing_Rule_rec.Attribute6 IS NULL )
288: THEN
289: IF NOT Val_Attribute6(p_Sourcing_Rule_rec.Attribute6) THEN
290: x_return_status := FND_API.G_RET_STS_ERROR;
291: END IF;
292: END IF;
293:
294: IF p_Sourcing_Rule_rec.Attribute7 IS NOT NULL AND
296: p_old_Sourcing_Rule_rec.Attribute7 OR
297: p_old_Sourcing_Rule_rec.Attribute7 IS NULL )
298: THEN
299: IF NOT Val_Attribute7(p_Sourcing_Rule_rec.Attribute7) THEN
300: x_return_status := FND_API.G_RET_STS_ERROR;
301: END IF;
302: END IF;
303:
304: IF p_Sourcing_Rule_rec.Attribute8 IS NOT NULL AND
306: p_old_Sourcing_Rule_rec.Attribute8 OR
307: p_old_Sourcing_Rule_rec.Attribute8 IS NULL )
308: THEN
309: IF NOT Val_Attribute8(p_Sourcing_Rule_rec.Attribute8) THEN
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: END IF;
312: END IF;
313:
314: IF p_Sourcing_Rule_rec.Attribute9 IS NOT NULL AND
316: p_old_Sourcing_Rule_rec.Attribute9 OR
317: p_old_Sourcing_Rule_rec.Attribute9 IS NULL )
318: THEN
319: IF NOT Val_Attribute9(p_Sourcing_Rule_rec.Attribute9) THEN
320: x_return_status := FND_API.G_RET_STS_ERROR;
321: END IF;
322: END IF;
323:
324: IF p_Sourcing_Rule_rec.Attribute_Category IS NOT NULL AND
326: p_old_Sourcing_Rule_rec.Attribute_Category OR
327: p_old_Sourcing_Rule_rec.Attribute_Category IS NULL )
328: THEN
329: IF NOT Val_Attribute_Category(p_Sourcing_Rule_rec.Attribute_Category) THEN
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: END IF;
332: END IF;
333:
334: IF p_Sourcing_Rule_rec.Created_By IS NOT NULL AND
336: p_old_Sourcing_Rule_rec.Created_By OR
337: p_old_Sourcing_Rule_rec.Created_By IS NULL )
338: THEN
339: IF NOT Val_Created_By(p_Sourcing_Rule_rec.Created_By) THEN
340: x_return_status := FND_API.G_RET_STS_ERROR;
341: END IF;
342: END IF;
343:
344: IF p_Sourcing_Rule_rec.Creation_Date IS NOT NULL AND
346: p_old_Sourcing_Rule_rec.Creation_Date OR
347: p_old_Sourcing_Rule_rec.Creation_Date IS NULL )
348: THEN
349: IF NOT Val_Creation_Date(p_Sourcing_Rule_rec.Creation_Date) THEN
350: x_return_status := FND_API.G_RET_STS_ERROR;
351: END IF;
352: END IF;
353:
354: IF p_Sourcing_Rule_rec.Description IS NOT NULL AND
356: p_old_Sourcing_Rule_rec.Description OR
357: p_old_Sourcing_Rule_rec.Description IS NULL )
358: THEN
359: IF NOT Val_Description(p_Sourcing_Rule_rec.Description) THEN
360: x_return_status := FND_API.G_RET_STS_ERROR;
361: END IF;
362: END IF;
363:
364: IF p_Sourcing_Rule_rec.Last_Updated_By IS NOT NULL AND
366: p_old_Sourcing_Rule_rec.Last_Updated_By OR
367: p_old_Sourcing_Rule_rec.Last_Updated_By IS NULL )
368: THEN
369: IF NOT Val_Last_Updated_By(p_Sourcing_Rule_rec.Last_Updated_By) THEN
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: END IF;
372: END IF;
373:
374: IF p_Sourcing_Rule_rec.Last_Update_Date IS NOT NULL AND
376: p_old_Sourcing_Rule_rec.Last_Update_Date OR
377: p_old_Sourcing_Rule_rec.Last_Update_Date IS NULL )
378: THEN
379: IF NOT Val_Last_Update_Date(p_Sourcing_Rule_rec.Last_Update_Date) THEN
380: x_return_status := FND_API.G_RET_STS_ERROR;
381: END IF;
382: END IF;
383:
384: IF p_Sourcing_Rule_rec.Last_Update_Login IS NOT NULL AND
386: p_old_Sourcing_Rule_rec.Last_Update_Login OR
387: p_old_Sourcing_Rule_rec.Last_Update_Login IS NULL )
388: THEN
389: IF NOT Val_Last_Update_Login(p_Sourcing_Rule_rec.Last_Update_Login) THEN
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: END IF;
392: END IF;
393:
394: IF p_Sourcing_Rule_rec.Organization_Id IS NOT NULL AND
403: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Organization_Id');
404: FND_MESSAGE.SET_TOKEN('DETAILS',
405: 'Cannot change Organization while Updating');
406: FND_MSG_PUB.Add;
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: ELSIF NOT Val_Organization_Id(p_Sourcing_Rule_rec.Organization_Id) THEN
409: dbms_output.put_line ('Error Organization_Id');
410: x_return_status := FND_API.G_RET_STS_ERROR;
411: END IF;
406: FND_MSG_PUB.Add;
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: ELSIF NOT Val_Organization_Id(p_Sourcing_Rule_rec.Organization_Id) THEN
409: dbms_output.put_line ('Error Organization_Id');
410: x_return_status := FND_API.G_RET_STS_ERROR;
411: END IF;
412: END IF;
413:
414: IF p_Sourcing_Rule_rec.Planning_Active IS NOT NULL AND
416: p_old_Sourcing_Rule_rec.Planning_Active OR
417: p_old_Sourcing_Rule_rec.Planning_Active IS NULL )
418: THEN
419: IF NOT Val_Planning_Active(p_Sourcing_Rule_rec.Planning_Active) THEN
420: x_return_status := FND_API.G_RET_STS_ERROR;
421: END IF;
422: END IF;
423:
424: IF p_Sourcing_Rule_rec.Program_Application_Id IS NOT NULL AND
426: p_old_Sourcing_Rule_rec.Program_Application_Id OR
427: p_old_Sourcing_Rule_rec.Program_Application_Id IS NULL )
428: THEN
429: IF NOT Val_Program_Application_Id(p_Sourcing_Rule_rec.Program_Application_Id) THEN
430: x_return_status := FND_API.G_RET_STS_ERROR;
431: END IF;
432: END IF;
433:
434: IF p_Sourcing_Rule_rec.Program_Id IS NOT NULL AND
436: p_old_Sourcing_Rule_rec.Program_Id OR
437: p_old_Sourcing_Rule_rec.Program_Id IS NULL )
438: THEN
439: IF NOT Val_Program_Id(p_Sourcing_Rule_rec.Program_Id) THEN
440: x_return_status := FND_API.G_RET_STS_ERROR;
441: END IF;
442: END IF;
443:
444: IF p_Sourcing_Rule_rec.Program_Update_Date IS NOT NULL AND
446: p_old_Sourcing_Rule_rec.Program_Update_Date OR
447: p_old_Sourcing_Rule_rec.Program_Update_Date IS NULL )
448: THEN
449: IF NOT Val_Program_Update_Date(p_Sourcing_Rule_rec.Program_Update_Date) THEN
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: END IF;
452: END IF;
453:
454: IF p_Sourcing_Rule_rec.Request_Id IS NOT NULL AND
456: p_old_Sourcing_Rule_rec.Request_Id OR
457: p_old_Sourcing_Rule_rec.Request_Id IS NULL )
458: THEN
459: IF NOT Val_Request_Id(p_Sourcing_Rule_rec.Request_Id) THEN
460: x_return_status := FND_API.G_RET_STS_ERROR;
461: END IF;
462: END IF;
463:
464: IF p_Sourcing_Rule_rec.Sourcing_Rule_Name IS NOT NULL AND
469: -- Bug 3015208
470: IF NOT Val_Sourcing_Rule_Name(p_Sourcing_Rule_rec.Sourcing_Rule_Name,
471: p_Sourcing_Rule_rec.organization_id) THEN
472: dbms_output.put_line ('Error Sourcing_Rule_Name');
473: x_return_status := FND_API.G_RET_STS_ERROR;
474: END IF;
475: END IF;
476:
477: IF p_Sourcing_Rule_rec.Sourcing_Rule_Type IS NOT NULL AND
486: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Sourcing_Rule_Type');
487: FND_MESSAGE.SET_TOKEN('DETAILS',
488: 'Cannot Change Sourcing Rule Type while updating');
489: FND_MSG_PUB.Add;
490: x_return_status := FND_API.G_RET_STS_ERROR;
491: ELSIF NOT Val_Sourcing_Rule_Type(p_Sourcing_Rule_rec.Sourcing_Rule_Type) THEN
492: dbms_output.put_line ('Error Sourcing_Rule_Type');
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: END IF;
489: FND_MSG_PUB.Add;
490: x_return_status := FND_API.G_RET_STS_ERROR;
491: ELSIF NOT Val_Sourcing_Rule_Type(p_Sourcing_Rule_rec.Sourcing_Rule_Type) THEN
492: dbms_output.put_line ('Error Sourcing_Rule_Type');
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: END IF;
495: END IF;
496:
497: IF p_Sourcing_Rule_rec.Status IS NOT NULL AND
500: p_old_Sourcing_Rule_rec.Status IS NULL )
501: THEN
502: IF NOT Val_Status(p_Sourcing_Rule_rec.Status) THEN
503: dbms_output.put_line ('Error Status');
504: x_return_status := FND_API.G_RET_STS_ERROR;
505: END IF;
506: END IF;
507:
508: -- Done validating attributes
508: -- Done validating attributes
509:
510: EXCEPTION
511:
512: WHEN FND_API.G_EXC_ERROR THEN
513:
514: x_return_status := FND_API.G_RET_STS_ERROR;
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510: EXCEPTION
511:
512: WHEN FND_API.G_EXC_ERROR THEN
513:
514: x_return_status := FND_API.G_RET_STS_ERROR;
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517:
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512: WHEN FND_API.G_EXC_ERROR THEN
513:
514: x_return_status := FND_API.G_RET_STS_ERROR;
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517:
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519:
520: WHEN OTHERS THEN
514: x_return_status := FND_API.G_RET_STS_ERROR;
515:
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517:
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519:
520: WHEN OTHERS THEN
521:
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
519:
520: WHEN OTHERS THEN
521:
522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
523:
524: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
526: FND_MSG_PUB.Add_Exc_Msg
542: IS
543: BEGIN
544:
545: IF p_Attribute1 IS NULL OR
546: p_Attribute1 = FND_API.G_MISS_CHAR
547: THEN
548: RETURN TRUE;
549: END IF;
550:
560: IS
561: BEGIN
562:
563: IF p_Attribute10 IS NULL OR
564: p_Attribute10 = FND_API.G_MISS_CHAR
565: THEN
566: RETURN TRUE;
567: END IF;
568:
578: IS
579: BEGIN
580:
581: IF p_Attribute11 IS NULL OR
582: p_Attribute11 = FND_API.G_MISS_CHAR
583: THEN
584: RETURN TRUE;
585: END IF;
586:
596: IS
597: BEGIN
598:
599: IF p_Attribute12 IS NULL OR
600: p_Attribute12 = FND_API.G_MISS_CHAR
601: THEN
602: RETURN TRUE;
603: END IF;
604:
614: IS
615: BEGIN
616:
617: IF p_Attribute13 IS NULL OR
618: p_Attribute13 = FND_API.G_MISS_CHAR
619: THEN
620: RETURN TRUE;
621: END IF;
622:
632: IS
633: BEGIN
634:
635: IF p_Attribute14 IS NULL OR
636: p_Attribute14 = FND_API.G_MISS_CHAR
637: THEN
638: RETURN TRUE;
639: END IF;
640:
650: IS
651: BEGIN
652:
653: IF p_Attribute15 IS NULL OR
654: p_Attribute15 = FND_API.G_MISS_CHAR
655: THEN
656: RETURN TRUE;
657: END IF;
658:
668: IS
669: BEGIN
670:
671: IF p_Attribute2 IS NULL OR
672: p_Attribute2 = FND_API.G_MISS_CHAR
673: THEN
674: RETURN TRUE;
675: END IF;
676:
686: IS
687: BEGIN
688:
689: IF p_Attribute3 IS NULL OR
690: p_Attribute3 = FND_API.G_MISS_CHAR
691: THEN
692: RETURN TRUE;
693: END IF;
694:
704: IS
705: BEGIN
706:
707: IF p_Attribute4 IS NULL OR
708: p_Attribute4 = FND_API.G_MISS_CHAR
709: THEN
710: RETURN TRUE;
711: END IF;
712:
722: IS
723: BEGIN
724:
725: IF p_Attribute5 IS NULL OR
726: p_Attribute5 = FND_API.G_MISS_CHAR
727: THEN
728: RETURN TRUE;
729: END IF;
730:
740: IS
741: BEGIN
742:
743: IF p_Attribute6 IS NULL OR
744: p_Attribute6 = FND_API.G_MISS_CHAR
745: THEN
746: RETURN TRUE;
747: END IF;
748:
758: IS
759: BEGIN
760:
761: IF p_Attribute7 IS NULL OR
762: p_Attribute7 = FND_API.G_MISS_CHAR
763: THEN
764: RETURN TRUE;
765: END IF;
766:
776: IS
777: BEGIN
778:
779: IF p_Attribute8 IS NULL OR
780: p_Attribute8 = FND_API.G_MISS_CHAR
781: THEN
782: RETURN TRUE;
783: END IF;
784:
794: IS
795: BEGIN
796:
797: IF p_Attribute9 IS NULL OR
798: p_Attribute9 = FND_API.G_MISS_CHAR
799: THEN
800: RETURN TRUE;
801: END IF;
802:
812: IS
813: BEGIN
814:
815: IF p_Attribute_Category IS NULL OR
816: p_Attribute_Category = FND_API.G_MISS_CHAR
817: THEN
818: RETURN TRUE;
819: END IF;
820:
830: IS
831: BEGIN
832:
833: IF p_Created_By IS NULL OR
834: p_Created_By = FND_API.G_MISS_NUM
835: THEN
836: RETURN TRUE;
837: END IF;
838:
848: IS
849: BEGIN
850:
851: IF p_Creation_Date IS NULL OR
852: p_Creation_Date = FND_API.G_MISS_DATE
853: THEN
854: RETURN TRUE;
855: END IF;
856:
866: IS
867: BEGIN
868:
869: IF p_Description IS NULL OR
870: p_Description = FND_API.G_MISS_CHAR
871: THEN
872: RETURN TRUE;
873: END IF;
874:
884: IS
885: BEGIN
886:
887: IF p_Last_Updated_By IS NULL OR
888: p_Last_Updated_By = FND_API.G_MISS_NUM
889: THEN
890: RETURN TRUE;
891: END IF;
892:
902: IS
903: BEGIN
904:
905: IF p_Last_Update_Date IS NULL OR
906: p_Last_Update_Date = FND_API.G_MISS_DATE
907: THEN
908: RETURN TRUE;
909: END IF;
910:
920: IS
921: BEGIN
922:
923: IF p_Last_Update_Login IS NULL OR
924: p_Last_Update_Login = FND_API.G_MISS_NUM
925: THEN
926: RETURN TRUE;
927: END IF;
928:
941:
942: BEGIN
943:
944: IF p_Organization_Id IS NULL OR
945: p_Organization_Id = FND_API.G_MISS_NUM
946: THEN
947: RETURN TRUE;
948: ELSE
949: SELECT count(*)
971: IS
972: BEGIN
973:
974: IF p_Planning_Active IS NULL OR
975: p_Planning_Active = FND_API.G_MISS_NUM
976: THEN
977: RETURN TRUE;
978: END IF;
979:
989: IS
990: BEGIN
991:
992: IF p_Program_Application_Id IS NULL OR
993: p_Program_Application_Id = FND_API.G_MISS_NUM
994: THEN
995: RETURN TRUE;
996: END IF;
997:
1007: IS
1008: BEGIN
1009:
1010: IF p_Program_Id IS NULL OR
1011: p_Program_Id = FND_API.G_MISS_NUM
1012: THEN
1013: RETURN TRUE;
1014: END IF;
1015:
1025: IS
1026: BEGIN
1027:
1028: IF p_Program_Update_Date IS NULL OR
1029: p_Program_Update_Date = FND_API.G_MISS_DATE
1030: THEN
1031: RETURN TRUE;
1032: END IF;
1033:
1043: IS
1044: BEGIN
1045:
1046: IF p_Request_Id IS NULL OR
1047: p_Request_Id = FND_API.G_MISS_NUM
1048: THEN
1049: RETURN TRUE;
1050: END IF;
1051:
1065:
1066: BEGIN
1067:
1068: IF p_Sourcing_Rule_Name IS NULL OR
1069: p_Sourcing_Rule_Name = FND_API.G_MISS_CHAR
1070: THEN
1071: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
1072: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Sourcing_Rule_Name');
1073: FND_MSG_PUB.Add;
1105: IS
1106: BEGIN
1107:
1108: IF p_Sourcing_Rule_Type IS NULL OR
1109: p_Sourcing_Rule_Type = FND_API.G_MISS_NUM
1110: THEN
1111: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
1112: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Sourcing_Rule_Type');
1113: FND_MSG_PUB.Add;
1133: IS
1134: BEGIN
1135:
1136: IF p_Status IS NULL OR
1137: p_Status = FND_API.G_MISS_NUM
1138: THEN
1139: FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_REQUIRED');
1140: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Status');
1141: FND_MSG_PUB.Add;