31: THEN
32: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER')
33: THEN
34: l_error_code := 0;
35: x_return_status := FND_API.G_RET_STS_SUCCESS;
36: return;
37: ELSE
38: x_return_status := FND_API.G_RET_STS_ERROR;
39: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_NOT_ALLOWED');
34: l_error_code := 0;
35: x_return_status := FND_API.G_RET_STS_SUCCESS;
36: return;
37: ELSE
38: x_return_status := FND_API.G_RET_STS_ERROR;
39: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_NOT_ALLOWED');
40: OE_MSG_PUB.Add;
41: l_error_code := 1;
42: return;
41: l_error_code := 1;
42: return;
43: END IF;
44: ELSE
45: x_return_status := FND_API.G_RET_STS_ERROR;
46: FND_MESSAGE.SET_NAME('QP','QP_ORG_NOT_ALLOWED');
47: OE_MSG_PUB.Add;
48: l_error_code := 1;
49: return;
49: return;
50: END IF;
51: END IF;
52: ELSE
53: x_return_status := FND_API.G_RET_STS_ERROR;
54: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
55: OE_MSG_PUB.Add;
56: l_error_code := 1;
57: return;
71: THEN
72: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER')
73: THEN
74: l_error_code := 0;
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76: return;
77: ELSE
78: x_return_status := FND_API.G_RET_STS_ERROR;
79: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_NOT_ALLOWED');
74: l_error_code := 0;
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76: return;
77: ELSE
78: x_return_status := FND_API.G_RET_STS_ERROR;
79: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_NOT_ALLOWED');
80: OE_MSG_PUB.Add;
81: l_error_code := 1;
82: return;
81: l_error_code := 1;
82: return;
83: END IF;
84: ELSE
85: x_return_status := FND_API.G_RET_STS_ERROR;
86: FND_MESSAGE.SET_NAME('QP','QP_ORG_NOT_ALLOWED');
87: OE_MSG_PUB.Add;
88: l_error_code := 1;
89: return;
89: return;
90: END IF;
91: END IF;
92: ELSE
93: x_return_status := FND_API.G_RET_STS_ERROR;
94: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
95: OE_MSG_PUB.Add;
96: l_error_code := 1;
97: return;
101: END IF;
102:
103: IF l_error_code = 0 -- Validation Passed
104: THEN
105: l_return_status := FND_API.G_RET_STS_SUCCESS;
106:
107: END IF;
108:
109: --Done validating List Header Limits
113: EXCEPTION
114:
115: WHEN OTHERS THEN
116:
117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
118:
119: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
120: THEN
121: OE_MSG_PUB.Add_Exc_Msg
217: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER') AND
218: (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'ITEM')
219: THEN
220: l_error_code := 0;
221: x_return_status := FND_API.G_RET_STS_SUCCESS;
222: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 3' || 'l_error_code = ' || l_error_code);
223: return;
224: ELSE
225: x_return_status := FND_API.G_RET_STS_ERROR;
221: x_return_status := FND_API.G_RET_STS_SUCCESS;
222: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 3' || 'l_error_code = ' || l_error_code);
223: return;
224: ELSE
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
227: OE_MSG_PUB.Add;
228: l_error_code := 1;
229: return;
236: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER') AND
237: (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'ITEM')
238: THEN
239: l_error_code := 0;
240: x_return_status := FND_API.G_RET_STS_SUCCESS;
241: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 4' || 'l_error_code = ' || l_error_code);
242: return;
243: ELSE
244: x_return_status := FND_API.G_RET_STS_ERROR;
240: x_return_status := FND_API.G_RET_STS_SUCCESS;
241: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 4' || 'l_error_code = ' || l_error_code);
242: return;
243: ELSE
244: x_return_status := FND_API.G_RET_STS_ERROR;
245: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
246: OE_MSG_PUB.Add;
247: l_error_code := 1;
248: return;
247: l_error_code := 1;
248: return;
249: END IF;
250: ELSE
251: x_return_status := FND_API.G_RET_STS_ERROR;
252: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
253: OE_MSG_PUB.Add;
254: l_error_code := 1;
255: return;
255: return;
256: END IF;
257: END IF;
258: ELSE
259: x_return_status := FND_API.G_RET_STS_ERROR;
260: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
261: OE_MSG_PUB.Add;
262: l_error_code := 1;
263: return;
275: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER') AND
276: (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'ITEM')
277: THEN
278: l_error_code := 0;
279: x_return_status := FND_API.G_RET_STS_SUCCESS;
280: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 6' || 'l_error_code = ' || l_error_code);
281: return;
282: ELSE
283: x_return_status := FND_API.G_RET_STS_ERROR;
279: x_return_status := FND_API.G_RET_STS_SUCCESS;
280: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 6' || 'l_error_code = ' || l_error_code);
281: return;
282: ELSE
283: x_return_status := FND_API.G_RET_STS_ERROR;
284: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
285: OE_MSG_PUB.Add;
286: l_error_code := 1;
287: return;
294: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER') AND
295: (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'ITEM')
296: THEN
297: l_error_code := 0;
298: x_return_status := FND_API.G_RET_STS_SUCCESS;
299: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 7' || 'l_error_code = ' || l_errorde);
300: return;
301: ELSE
302: x_return_status := FND_API.G_RET_STS_ERROR;
298: x_return_status := FND_API.G_RET_STS_SUCCESS;
299: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 7' || 'l_error_code = ' || l_errorde);
300: return;
301: ELSE
302: x_return_status := FND_API.G_RET_STS_ERROR;
303: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
304: OE_MSG_PUB.Add;
305: l_error_code := 1;
306: return;
305: l_error_code := 1;
306: return;
307: END IF;
308: ELSE
309: x_return_status := FND_API.G_RET_STS_ERROR;
310: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
311: OE_MSG_PUB.Add;
312: l_error_code := 1;
313: return;
313: return;
314: END IF;
315: END IF;
316: ELSE
317: x_return_status := FND_API.G_RET_STS_ERROR;
318: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
319: OE_MSG_PUB.Add;
320: l_error_code := 1;
321: return;
333: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER') AND
334: (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'ITEM')
335: THEN
336: l_error_code := 0;
337: x_return_status := FND_API.G_RET_STS_SUCCESS;
338: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 9' || 'l_error_code = ' || l_error_code);
339: return;
340: ELSE
341: x_return_status := FND_API.G_RET_STS_ERROR;
337: x_return_status := FND_API.G_RET_STS_SUCCESS;
338: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 9' || 'l_error_code = ' || l_error_code);
339: return;
340: ELSE
341: x_return_status := FND_API.G_RET_STS_ERROR;
342: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
343: OE_MSG_PUB.Add;
344: l_error_code := 1;
345: return;
344: l_error_code := 1;
345: return;
346: END IF;
347: ELSE
348: x_return_status := FND_API.G_RET_STS_ERROR;
349: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
350: OE_MSG_PUB.Add;
351: l_error_code := 1;
352: return;
351: l_error_code := 1;
352: return;
353: END IF;
354: ELSE
355: x_return_status := FND_API.G_RET_STS_ERROR;
356: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
357: OE_MSG_PUB.Add;
358: l_error_code := 1;
359: return;
369: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER') AND
370: (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'ITEM')
371: THEN
372: l_error_code := 0;
373: x_return_status := FND_API.G_RET_STS_SUCCESS;
374: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 10' || 'l_error_code = ' || l_error_code);
375: return;
376: ELSE
377: x_return_status := FND_API.G_RET_STS_ERROR;
373: x_return_status := FND_API.G_RET_STS_SUCCESS;
374: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 10' || 'l_error_code = ' || l_error_code);
375: return;
376: ELSE
377: x_return_status := FND_API.G_RET_STS_ERROR;
378: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
379: OE_MSG_PUB.Add;
380: l_error_code := 1;
381: return;
380: l_error_code := 1;
381: return;
382: END IF;
383: ELSE
384: x_return_status := FND_API.G_RET_STS_ERROR;
385: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
386: OE_MSG_PUB.Add;
387: l_error_code := 1;
388: return;
387: l_error_code := 1;
388: return;
389: END IF;
390: ELSE
391: x_return_status := FND_API.G_RET_STS_ERROR;
392: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
393: OE_MSG_PUB.Add;
394: l_error_code := 1;
395: return;
405: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER') AND
406: (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'ITEM')
407: THEN
408: l_error_code := 0;
409: x_return_status := FND_API.G_RET_STS_SUCCESS;
410: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 11' || 'l_error_code = ' || l_error_code);
411: return;
412: ELSE
413: x_return_status := FND_API.G_RET_STS_ERROR;
409: x_return_status := FND_API.G_RET_STS_SUCCESS;
410: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 11' || 'l_error_code = ' || l_error_code);
411: return;
412: ELSE
413: x_return_status := FND_API.G_RET_STS_ERROR;
414: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
415: OE_MSG_PUB.Add;
416: l_error_code := 1;
417: return;
416: l_error_code := 1;
417: return;
418: END IF;
419: ELSE
420: x_return_status := FND_API.G_RET_STS_ERROR;
421: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
422: OE_MSG_PUB.Add;
423: l_error_code := 1;
424: return;
423: l_error_code := 1;
424: return;
425: END IF;
426: ELSE
427: x_return_status := FND_API.G_RET_STS_ERROR;
428: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
429: OE_MSG_PUB.Add;
430: l_error_code := 1;
431: return;
441: IF (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'CUSTOMER') AND
442: (nvl(p_LIMIT_ATTRS_rec.limit_attribute_context,'NA') <> 'ITEM')
443: THEN
444: l_error_code := 0;
445: x_return_status := FND_API.G_RET_STS_SUCCESS;
446: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 12' || 'l_error_code = ' || l_error_code);
447: return;
448: ELSE
449: x_return_status := FND_API.G_RET_STS_ERROR;
445: x_return_status := FND_API.G_RET_STS_SUCCESS;
446: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 12' || 'l_error_code = ' || l_error_code);
447: return;
448: ELSE
449: x_return_status := FND_API.G_RET_STS_ERROR;
450: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
451: OE_MSG_PUB.Add;
452: l_error_code := 1;
453: return;
452: l_error_code := 1;
453: return;
454: END IF;
455: ELSE
456: x_return_status := FND_API.G_RET_STS_ERROR;
457: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
458: OE_MSG_PUB.Add;
459: l_error_code := 1;
460: return;
459: l_error_code := 1;
460: return;
461: END IF;
462: ELSE
463: x_return_status := FND_API.G_RET_STS_ERROR;
464: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
465: OE_MSG_PUB.Add;
466: l_error_code := 1;
467: return;
481: THEN
482: IF (p_LIMITS_rec.basis IN ('GROSS_REVENUE','COST','USAGE','QUANTITY'))
483: THEN
484: l_error_code := 0;
485: x_return_status := FND_API.G_RET_STS_SUCCESS;
486: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 13' || 'l_error_code = ' || l_error_code);
487: return;
488: ELSE
489: x_return_status := FND_API.G_RET_STS_ERROR;
485: x_return_status := FND_API.G_RET_STS_SUCCESS;
486: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 13' || 'l_error_code = ' || l_error_code);
487: return;
488: ELSE
489: x_return_status := FND_API.G_RET_STS_ERROR;
490: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
491: OE_MSG_PUB.Add;
492: l_error_code := 1;
493: return;
500: THEN
501: IF (p_LIMITS_rec.basis IN ('GROSS_REVENUE','COST','USAGE','QUANTITY'))
502: THEN
503: l_error_code := 0;
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
505: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 14' || 'l_error_code = ' || l_error_code);
506: return;
507: ELSE
508: x_return_status := FND_API.G_RET_STS_ERROR;
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
505: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 14' || 'l_error_code = ' || l_error_code);
506: return;
507: ELSE
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
510: OE_MSG_PUB.Add;
511: l_error_code := 1;
512: return;
521: THEN
522: IF (p_LIMITS_rec.basis IN ('GROSS_REVENUE','COST','USAGE','QUANTITY'))
523: THEN
524: l_error_code := 0;
525: x_return_status := FND_API.G_RET_STS_SUCCESS;
526: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 15' || 'l_error_code = ' || l_error_code);
527: return;
528: ELSE
529: x_return_status := FND_API.G_RET_STS_ERROR;
525: x_return_status := FND_API.G_RET_STS_SUCCESS;
526: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 15' || 'l_error_code = ' || l_error_code);
527: return;
528: ELSE
529: x_return_status := FND_API.G_RET_STS_ERROR;
530: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
531: OE_MSG_PUB.Add;
532: l_error_code := 1;
533: return;
540: THEN
541: IF (p_LIMITS_rec.basis IN ('GROSS_REVENUE','COST','USAGE','QUANTITY'))
542: THEN
543: l_error_code := 0;
544: x_return_status := FND_API.G_RET_STS_SUCCESS;
545: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 16' || 'l_error_code = ' || l_error_code);
546: return;
547: ELSE
548: x_return_status := FND_API.G_RET_STS_ERROR;
544: x_return_status := FND_API.G_RET_STS_SUCCESS;
545: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 16' || 'l_error_code = ' || l_error_code);
546: return;
547: ELSE
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
550: OE_MSG_PUB.Add;
551: l_error_code := 1;
552: return;
560: THEN
561: IF (p_LIMITS_rec.basis IN ('GROSS_REVENUE','ACCRUAL','USAGE','QUANTITY'))
562: THEN
563: l_error_code := 0;
564: x_return_status := FND_API.G_RET_STS_SUCCESS;
565: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 17' || 'l_error_code = ' || l_error_code);
566: return;
567: ELSE
568: x_return_status := FND_API.G_RET_STS_ERROR;
564: x_return_status := FND_API.G_RET_STS_SUCCESS;
565: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 17' || 'l_error_code = ' || l_error_code);
566: return;
567: ELSE
568: x_return_status := FND_API.G_RET_STS_ERROR;
569: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
570: OE_MSG_PUB.Add;
571: l_error_code := 1;
572: return;
580: THEN
581: IF (p_LIMITS_rec.basis IN ('GROSS_REVENUE','CHARGE','USAGE','QUANTITY'))
582: THEN
583: l_error_code := 0;
584: x_return_status := FND_API.G_RET_STS_SUCCESS;
585: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 18' || 'l_error_code = ' || l_error_code);
586: return;
587: ELSE
588: x_return_status := FND_API.G_RET_STS_ERROR;
584: x_return_status := FND_API.G_RET_STS_SUCCESS;
585: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 18' || 'l_error_code = ' || l_error_code);
586: return;
587: ELSE
588: x_return_status := FND_API.G_RET_STS_ERROR;
589: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
590: OE_MSG_PUB.Add;
591: l_error_code := 1;
592: return;
599: THEN
600: IF (p_LIMITS_rec.basis IN ('GROSS_REVENUE','COST','USAGE'))
601: THEN
602: l_error_code := 0;
603: x_return_status := FND_API.G_RET_STS_SUCCESS;
604: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 19' || 'l_error_code = ' || l_error_code);
605: return;
606: ELSE
607: x_return_status := FND_API.G_RET_STS_ERROR;
603: x_return_status := FND_API.G_RET_STS_SUCCESS;
604: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 19' || 'l_error_code = ' || l_error_code);
605: return;
606: ELSE
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
609: OE_MSG_PUB.Add;
610: l_error_code := 1;
611: return;
618: THEN
619: IF (p_LIMITS_rec.basis IN ('GROSS_REVENUE','COST','USAGE','ACCRUAL','QUANTITY'))
620: THEN
621: l_error_code := 0;
622: x_return_status := FND_API.G_RET_STS_SUCCESS;
623: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 20' || 'l_error_code = ' || l_error_code);
624: return;
625: ELSE
626: x_return_status := FND_API.G_RET_STS_ERROR;
622: x_return_status := FND_API.G_RET_STS_SUCCESS;
623: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 20' || 'l_error_code = ' || l_error_code);
624: return;
625: ELSE
626: x_return_status := FND_API.G_RET_STS_ERROR;
627: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
628: OE_MSG_PUB.Add;
629: l_error_code := 1;
630: return;
637: THEN
638: IF (p_LIMITS_rec.basis IN ('GROSS_REVENUE','COST','USAGE'))
639: THEN
640: l_error_code := 0;
641: x_return_status := FND_API.G_RET_STS_SUCCESS;
642: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 21' || 'l_error_code = ' || l_error_code);
643: return;
644: ELSE
645: x_return_status := FND_API.G_RET_STS_ERROR;
641: x_return_status := FND_API.G_RET_STS_SUCCESS;
642: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 21' || 'l_error_code = ' || l_error_code);
643: return;
644: ELSE
645: x_return_status := FND_API.G_RET_STS_ERROR;
646: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
647: OE_MSG_PUB.Add;
648: l_error_code := 1;
649: return;
655: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY ' || 'l_error_code = ' || l_error_code);
656:
657: IF (l_error_code = 0) -- Validation Passed
658: THEN
659: l_return_status := FND_API.G_RET_STS_SUCCESS;
660: END IF;
661:
662: --Done validating List Line Limits
663:
666: EXCEPTION
667:
668: WHEN OTHERS THEN
669:
670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
671:
672: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
673: THEN
674: OE_MSG_PUB.Add_Exc_Msg
691: IS
692: l_limits_rec QP_Limits_PUB.Limits_Rec_Type;
693: l_LIMIT_ATTRS_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
694: l_flex_field_name VARCHAR2(30);
695: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
696: l_context_error VARCHAR2(1);
697: l_attribute_error VARCHAR2(1);
698: l_error_code NUMBER;
699: l_value_error VARCHAR2(1);
712:
713: IF p_LIMIT_ATTRS_rec.limit_attribute_id IS NULL
714: THEN
715:
716: l_return_status := FND_API.G_RET_STS_ERROR;
717: x_return_status := l_return_status;
718:
719: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
720: THEN
733:
734:
735: -- Return Error if a required attribute is missing.
736:
737: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
738:
739: RAISE FND_API.G_EXC_ERROR;
740:
741: END IF;
735: -- Return Error if a required attribute is missing.
736:
737: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
738:
739: RAISE FND_API.G_EXC_ERROR;
740:
741: END IF;
742:
743: --
774:
775: --dbms_output.put_line('IN ENTITY VALIDATION ' || 'l_context_error ' || l_context_error || ' l_error_code ' || l_error_code);
776: If (l_context_error = 'N' AND l_error_code = 7) -- invalid context
777: Then
778: l_return_status := FND_API.G_RET_STS_ERROR;
779: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
780: THEN
781: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED' );
782: --FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
782: --FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
783: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Context');
784: OE_MSG_PUB.Add;
785: END IF;
786: RAISE FND_API.G_EXC_ERROR;
787: End If;
788:
789: --dbms_output.put_line('for context '||l_return_status);
790:
792:
793:
794: If l_attribute_error = 'N' AND l_error_code = 8 -- invalid Attribute
795: Then
796: l_return_status := FND_API.G_RET_STS_ERROR;
797:
798: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
799: THEN
800: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
800: FND_MESSAGE.SET_NAME('QP','QP_INVALID_ATTRIBUTE');
801: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Attribute');
802: OE_MSG_PUB.Add;
803: END IF;
804: RAISE FND_API.G_EXC_ERROR;
805:
806: End If;
807:
808: --dbms_output.put_line('for attribute '||l_return_status || 'l_error_code = ' || l_error_code);
813: IF p_LIMIT_ATTRS_rec.comparison_operator_code = '=' Then
814:
815: IF l_value_error = 'N' AND l_error_code = 9 -- invalid value
816: THEN
817: l_return_status := FND_API.G_RET_STS_ERROR;
818:
819: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
820: THEN
821:
823: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',' Value');
824: --OE_MSG_PUB.Add;
825: OE_MSG_PUB.Add;
826: END IF;
827: RAISE FND_API.G_EXC_ERROR;
828: End If;
829: END IF;
830:
831: --DBMS_OUTPUT.PUT_LINE('Here ');
866: l_fna_valid);
867:
868: IF NOT l_fna_valid THEN
869:
870: l_return_status := FND_API.G_RET_STS_ERROR;
871:
872: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
873: THEN
874: FND_MESSAGE.set_name('QP', 'QP_INVALID_CAT_FUNC_PTE');
877: FND_MESSAGE.set_token('SS', l_ss_code);
878: OE_MSG_PUB.Add;
879: END IF;
880:
881: RAISE FND_API.G_EXC_ERROR;
882:
883: END IF;
884:
885: END;
900: x_return_status := l_return_status;
901:
902: EXCEPTION
903:
904: WHEN FND_API.G_EXC_ERROR THEN
905:
906: x_return_status := FND_API.G_RET_STS_ERROR;
907:
908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: EXCEPTION
903:
904: WHEN FND_API.G_EXC_ERROR THEN
905:
906: x_return_status := FND_API.G_RET_STS_ERROR;
907:
908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
909:
910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
904: WHEN FND_API.G_EXC_ERROR THEN
905:
906: x_return_status := FND_API.G_RET_STS_ERROR;
907:
908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
909:
910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911:
912: WHEN OTHERS THEN
906: x_return_status := FND_API.G_RET_STS_ERROR;
907:
908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
909:
910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911:
912: WHEN OTHERS THEN
913:
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911:
912: WHEN OTHERS THEN
913:
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
915:
916: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
917: THEN
918: OE_MSG_PUB.Add_Exc_Msg
933: )
934: IS
935: BEGIN
936:
937: x_return_status := FND_API.G_RET_STS_SUCCESS;
938:
939: -- Validate LIMIT_ATTRS attributes
940:
941: IF p_LIMIT_ATTRS_rec.comparison_operator_code IS NOT NULL AND
943: p_old_LIMIT_ATTRS_rec.comparison_operator_code OR
944: p_old_LIMIT_ATTRS_rec.comparison_operator_code IS NULL )
945: THEN
946: IF NOT QP_Validate.Comparison_Operator(p_LIMIT_ATTRS_rec.comparison_operator_code) THEN
947: x_return_status := FND_API.G_RET_STS_ERROR;
948: END IF;
949: END IF;
950:
951: IF p_LIMIT_ATTRS_rec.created_by IS NOT NULL AND
953: p_old_LIMIT_ATTRS_rec.created_by OR
954: p_old_LIMIT_ATTRS_rec.created_by IS NULL )
955: THEN
956: IF NOT QP_Validate.Created_By(p_LIMIT_ATTRS_rec.created_by) THEN
957: x_return_status := FND_API.G_RET_STS_ERROR;
958: END IF;
959: END IF;
960:
961: IF p_LIMIT_ATTRS_rec.creation_date IS NOT NULL AND
963: p_old_LIMIT_ATTRS_rec.creation_date OR
964: p_old_LIMIT_ATTRS_rec.creation_date IS NULL )
965: THEN
966: IF NOT QP_Validate.Creation_Date(p_LIMIT_ATTRS_rec.creation_date) THEN
967: x_return_status := FND_API.G_RET_STS_ERROR;
968: END IF;
969: END IF;
970:
971: IF p_LIMIT_ATTRS_rec.last_updated_by IS NOT NULL AND
973: p_old_LIMIT_ATTRS_rec.last_updated_by OR
974: p_old_LIMIT_ATTRS_rec.last_updated_by IS NULL )
975: THEN
976: IF NOT QP_Validate.Last_Updated_By(p_LIMIT_ATTRS_rec.last_updated_by) THEN
977: x_return_status := FND_API.G_RET_STS_ERROR;
978: END IF;
979: END IF;
980:
981: IF p_LIMIT_ATTRS_rec.last_update_date IS NOT NULL AND
983: p_old_LIMIT_ATTRS_rec.last_update_date OR
984: p_old_LIMIT_ATTRS_rec.last_update_date IS NULL )
985: THEN
986: IF NOT QP_Validate.Last_Update_Date(p_LIMIT_ATTRS_rec.last_update_date) THEN
987: x_return_status := FND_API.G_RET_STS_ERROR;
988: END IF;
989: END IF;
990:
991: IF p_LIMIT_ATTRS_rec.last_update_login IS NOT NULL AND
993: p_old_LIMIT_ATTRS_rec.last_update_login OR
994: p_old_LIMIT_ATTRS_rec.last_update_login IS NULL )
995: THEN
996: IF NOT QP_Validate.Last_Update_Login(p_LIMIT_ATTRS_rec.last_update_login) THEN
997: x_return_status := FND_API.G_RET_STS_ERROR;
998: END IF;
999: END IF;
1000:
1001: IF p_LIMIT_ATTRS_rec.limit_attribute IS NOT NULL AND
1003: p_old_LIMIT_ATTRS_rec.limit_attribute OR
1004: p_old_LIMIT_ATTRS_rec.limit_attribute IS NULL )
1005: THEN
1006: IF NOT QP_Validate.Limit_Attribute(p_LIMIT_ATTRS_rec.limit_attribute) THEN
1007: x_return_status := FND_API.G_RET_STS_ERROR;
1008: END IF;
1009: END IF;
1010:
1011: IF p_LIMIT_ATTRS_rec.limit_attribute_context IS NOT NULL AND
1013: p_old_LIMIT_ATTRS_rec.limit_attribute_context OR
1014: p_old_LIMIT_ATTRS_rec.limit_attribute_context IS NULL )
1015: THEN
1016: IF NOT QP_Validate.Limit_Attribute_Context(p_LIMIT_ATTRS_rec.limit_attribute_context) THEN
1017: x_return_status := FND_API.G_RET_STS_ERROR;
1018: END IF;
1019: END IF;
1020:
1021: IF p_LIMIT_ATTRS_rec.limit_attribute_id IS NOT NULL AND
1023: p_old_LIMIT_ATTRS_rec.limit_attribute_id OR
1024: p_old_LIMIT_ATTRS_rec.limit_attribute_id IS NULL )
1025: THEN
1026: IF NOT QP_Validate.Limit_Attribute(p_LIMIT_ATTRS_rec.limit_attribute_id) THEN
1027: x_return_status := FND_API.G_RET_STS_ERROR;
1028: END IF;
1029: END IF;
1030:
1031: IF p_LIMIT_ATTRS_rec.limit_attribute_type IS NOT NULL AND
1033: p_old_LIMIT_ATTRS_rec.limit_attribute_type OR
1034: p_old_LIMIT_ATTRS_rec.limit_attribute_type IS NULL )
1035: THEN
1036: IF NOT QP_Validate.Limit_Attribute_Type(p_LIMIT_ATTRS_rec.limit_attribute_type) THEN
1037: x_return_status := FND_API.G_RET_STS_ERROR;
1038: END IF;
1039: END IF;
1040:
1041: IF p_LIMIT_ATTRS_rec.limit_attr_datatype IS NOT NULL AND
1043: p_old_LIMIT_ATTRS_rec.limit_attr_datatype OR
1044: p_old_LIMIT_ATTRS_rec.limit_attr_datatype IS NULL )
1045: THEN
1046: IF NOT QP_Validate.Limit_Attr_Datatype(p_LIMIT_ATTRS_rec.limit_attr_datatype) THEN
1047: x_return_status := FND_API.G_RET_STS_ERROR;
1048: END IF;
1049: END IF;
1050:
1051: IF p_LIMIT_ATTRS_rec.limit_attr_value IS NOT NULL AND
1053: p_old_LIMIT_ATTRS_rec.limit_attr_value OR
1054: p_old_LIMIT_ATTRS_rec.limit_attr_value IS NULL )
1055: THEN
1056: IF NOT QP_Validate.Limit_Attr_Value(p_LIMIT_ATTRS_rec.limit_attr_value) THEN
1057: x_return_status := FND_API.G_RET_STS_ERROR;
1058: END IF;
1059: END IF;
1060:
1061: IF p_LIMIT_ATTRS_rec.limit_id IS NOT NULL AND
1063: p_old_LIMIT_ATTRS_rec.limit_id OR
1064: p_old_LIMIT_ATTRS_rec.limit_id IS NULL )
1065: THEN
1066: IF NOT QP_Validate.Limit(p_LIMIT_ATTRS_rec.limit_id) THEN
1067: x_return_status := FND_API.G_RET_STS_ERROR;
1068: END IF;
1069: END IF;
1070:
1071: IF p_LIMIT_ATTRS_rec.program_application_id IS NOT NULL AND
1073: p_old_LIMIT_ATTRS_rec.program_application_id OR
1074: p_old_LIMIT_ATTRS_rec.program_application_id IS NULL )
1075: THEN
1076: IF NOT QP_Validate.Program_Application(p_LIMIT_ATTRS_rec.program_application_id) THEN
1077: x_return_status := FND_API.G_RET_STS_ERROR;
1078: END IF;
1079: END IF;
1080:
1081: IF p_LIMIT_ATTRS_rec.program_id IS NOT NULL AND
1083: p_old_LIMIT_ATTRS_rec.program_id OR
1084: p_old_LIMIT_ATTRS_rec.program_id IS NULL )
1085: THEN
1086: IF NOT QP_Validate.Program(p_LIMIT_ATTRS_rec.program_id) THEN
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: END IF;
1089: END IF;
1090:
1091: IF p_LIMIT_ATTRS_rec.program_update_date IS NOT NULL AND
1093: p_old_LIMIT_ATTRS_rec.program_update_date OR
1094: p_old_LIMIT_ATTRS_rec.program_update_date IS NULL )
1095: THEN
1096: IF NOT QP_Validate.Program_Update_Date(p_LIMIT_ATTRS_rec.program_update_date) THEN
1097: x_return_status := FND_API.G_RET_STS_ERROR;
1098: END IF;
1099: END IF;
1100:
1101: IF p_LIMIT_ATTRS_rec.request_id IS NOT NULL AND
1103: p_old_LIMIT_ATTRS_rec.request_id OR
1104: p_old_LIMIT_ATTRS_rec.request_id IS NULL )
1105: THEN
1106: IF NOT QP_Validate.Request(p_LIMIT_ATTRS_rec.request_id) THEN
1107: x_return_status := FND_API.G_RET_STS_ERROR;
1108: END IF;
1109: END IF;
1110:
1111: IF (p_LIMIT_ATTRS_rec.attribute1 IS NOT NULL AND
1245:
1246: -- Validate descriptive flexfield.
1247:
1248: /*IF NOT QP_Validate.Desc_Flex( 'LIMIT_ATTRS' ) THEN
1249: x_return_status := FND_API.G_RET_STS_ERROR;
1250: END IF; */
1251: NULL;
1252:
1253: END IF;
1255: -- Done validating attributes
1256:
1257: EXCEPTION
1258:
1259: WHEN FND_API.G_EXC_ERROR THEN
1260:
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262:
1263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1257: EXCEPTION
1258:
1259: WHEN FND_API.G_EXC_ERROR THEN
1260:
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262:
1263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1264:
1265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1259: WHEN FND_API.G_EXC_ERROR THEN
1260:
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262:
1263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1264:
1265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1266:
1267: WHEN OTHERS THEN
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262:
1263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1264:
1265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1266:
1267: WHEN OTHERS THEN
1268:
1269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1266:
1267: WHEN OTHERS THEN
1268:
1269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1270:
1271: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1272: THEN
1273: OE_MSG_PUB.Add_Exc_Msg
1285: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1286: , p_LIMIT_ATTRS_rec IN QP_Limits_PUB.Limit_Attrs_Rec_Type
1287: )
1288: IS
1289: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1290: l_dummy NUMBER := 0;
1291: BEGIN
1292:
1293: -- Validate entity delete.
1297: AND nvl(consumed_amount,0) > 0;
1298:
1299: IF l_dummy = 0
1300: THEN
1301: l_return_status := FND_API.G_RET_STS_SUCCESS;
1302: ELSIF l_dummy > 0
1303: THEN
1304: l_return_status := FND_API.G_RET_STS_ERROR;
1305: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_INS_LIMIT_BAL_EXISTS');
1300: THEN
1301: l_return_status := FND_API.G_RET_STS_SUCCESS;
1302: ELSIF l_dummy > 0
1303: THEN
1304: l_return_status := FND_API.G_RET_STS_ERROR;
1305: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_INS_LIMIT_BAL_EXISTS');
1306: FND_MESSAGE.SET_TOKEN('ENTITY1','Limit');
1307: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit Attribute');
1308: OE_MSG_PUB.Add;
1313: x_return_status := l_return_status;
1314:
1315: EXCEPTION
1316:
1317: WHEN FND_API.G_EXC_ERROR THEN
1318:
1319: x_return_status := FND_API.G_RET_STS_ERROR;
1320:
1321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1315: EXCEPTION
1316:
1317: WHEN FND_API.G_EXC_ERROR THEN
1318:
1319: x_return_status := FND_API.G_RET_STS_ERROR;
1320:
1321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1322:
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1317: WHEN FND_API.G_EXC_ERROR THEN
1318:
1319: x_return_status := FND_API.G_RET_STS_ERROR;
1320:
1321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1322:
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324:
1325: WHEN OTHERS THEN
1319: x_return_status := FND_API.G_RET_STS_ERROR;
1320:
1321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1322:
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324:
1325: WHEN OTHERS THEN
1326:
1327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324:
1325: WHEN OTHERS THEN
1326:
1327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1328:
1329: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1330: THEN
1331: OE_MSG_PUB.Add_Exc_Msg
1341: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1342: , p_LIMIT_ATTRS_rec IN QP_Limits_PUB.Limit_Attrs_Rec_Type
1343: )
1344: IS
1345: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1346: l_dummy NUMBER := 0;
1347: BEGIN
1348:
1349: -- Validate entity delete.
1353: AND nvl(consumed_amount,0) > 0;
1354:
1355: IF l_dummy = 0
1356: THEN
1357: l_return_status := FND_API.G_RET_STS_SUCCESS;
1358: ELSIF l_dummy > 0
1359: THEN
1360: l_return_status := FND_API.G_RET_STS_ERROR;
1361: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_DEL_LIMIT_BAL_EXISTS');
1356: THEN
1357: l_return_status := FND_API.G_RET_STS_SUCCESS;
1358: ELSIF l_dummy > 0
1359: THEN
1360: l_return_status := FND_API.G_RET_STS_ERROR;
1361: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_DEL_LIMIT_BAL_EXISTS');
1362: FND_MESSAGE.SET_TOKEN('ENTITY1','Limit');
1363: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit Attribute');
1364: OE_MSG_PUB.Add;
1369: x_return_status := l_return_status;
1370:
1371: EXCEPTION
1372:
1373: WHEN FND_API.G_EXC_ERROR THEN
1374:
1375: x_return_status := FND_API.G_RET_STS_ERROR;
1376:
1377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1371: EXCEPTION
1372:
1373: WHEN FND_API.G_EXC_ERROR THEN
1374:
1375: x_return_status := FND_API.G_RET_STS_ERROR;
1376:
1377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1378:
1379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1373: WHEN FND_API.G_EXC_ERROR THEN
1374:
1375: x_return_status := FND_API.G_RET_STS_ERROR;
1376:
1377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1378:
1379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1380:
1381: WHEN OTHERS THEN
1375: x_return_status := FND_API.G_RET_STS_ERROR;
1376:
1377: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1378:
1379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1380:
1381: WHEN OTHERS THEN
1382:
1383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1380:
1381: WHEN OTHERS THEN
1382:
1383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1384:
1385: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1386: THEN
1387: OE_MSG_PUB.Add_Exc_Msg
1397: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
1398: , p_LIMIT_ATTRS_rec IN QP_Limits_PUB.Limit_Attrs_Rec_Type
1399: )
1400: IS
1401: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1402: l_limit_attrs_rec QP_Limits_PUB.Limit_Attrs_Rec_Type;
1403: l_error_code NUMBER := 0;
1404: l_dummy NUMBER := 0;
1405: l_consumed_amount NUMBER := 0;
1417: AND nvl(consumed_amount,0) > 0;
1418:
1419: IF l_dummy = 0
1420: THEN
1421: l_return_status := FND_API.G_RET_STS_SUCCESS;
1422: ELSIF l_dummy > 0
1423: THEN
1424:
1425: IF NOT QP_GLOBALS.Equal(p_LIMIT_ATTRS_rec.LIMIT_ID
1465: END IF;
1466:
1467: IF l_error_code = 1
1468: THEN
1469: l_return_status := FND_API.G_RET_STS_ERROR;
1470: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPD_LIMIT_BAL_EXISTS');
1471: FND_MESSAGE.SET_TOKEN('ENTITY1','Limit');
1472: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit Attribute');
1473: OE_MSG_PUB.Add;
1472: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit Attribute');
1473: OE_MSG_PUB.Add;
1474: ELSIF l_error_code = 0
1475: THEN
1476: l_return_status := FND_API.G_RET_STS_SUCCESS;
1477: END IF;
1478:
1479: END IF;
1480: -- Done.
1482: x_return_status := l_return_status;
1483:
1484: EXCEPTION
1485:
1486: WHEN FND_API.G_EXC_ERROR THEN
1487:
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489:
1490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1484: EXCEPTION
1485:
1486: WHEN FND_API.G_EXC_ERROR THEN
1487:
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489:
1490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1491:
1492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1486: WHEN FND_API.G_EXC_ERROR THEN
1487:
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489:
1490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1491:
1492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1493:
1494: WHEN OTHERS THEN
1488: x_return_status := FND_API.G_RET_STS_ERROR;
1489:
1490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1491:
1492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1493:
1494: WHEN OTHERS THEN
1495:
1496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1493:
1494: WHEN OTHERS THEN
1495:
1496: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1497:
1498: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1499: THEN
1500: OE_MSG_PUB.Add_Exc_Msg