34: x_return_status := FND_API.G_RET_STS_SUCCESS;
35: return;
36: ELSE
37: x_return_status := FND_API.G_RET_STS_ERROR;
38: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_NOT_ALLOWED');
39: OE_MSG_PUB.Add;
40: l_error_code := 1;
41: return;
42: END IF;
41: return;
42: END IF;
43: ELSE
44: x_return_status := FND_API.G_RET_STS_ERROR;
45: FND_MESSAGE.SET_NAME('QP','QP_ORG_NOT_ALLOWED');
46: OE_MSG_PUB.Add;
47: l_error_code := 1;
48: return;
49: END IF;
49: END IF;
50: END IF;
51: ELSE
52: x_return_status := FND_API.G_RET_STS_ERROR;
53: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
54: OE_MSG_PUB.Add;
55: l_error_code := 1;
56: return;
57: END IF;
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;
83: END IF;
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;
90: END IF;
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;
98: END IF;
226: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 6' || 'l_error_code = ' || l_error_code);
227: return;
228: ELSE
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
231: OE_MSG_PUB.Add;
232: l_error_code := 1;
233: return;
234: END IF;
249: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 7' || 'l_error_code = ' || l_errorde);
250: return;
251: ELSE
252: x_return_status := FND_API.G_RET_STS_ERROR;
253: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
254: OE_MSG_PUB.Add;
255: l_error_code := 1;
256: return;
257: END IF;
256: return;
257: END IF;
258: ELSE
259: x_return_status := FND_API.G_RET_STS_ERROR;
260: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
261: OE_MSG_PUB.Add;
262: l_error_code := 1;
263: return;
264: END IF;
264: END IF;
265: END IF;
266: ELSE
267: x_return_status := FND_API.G_RET_STS_ERROR;
268: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
269: OE_MSG_PUB.Add;
270: l_error_code := 1;
271: return;
272: END IF;
293: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 3' || 'l_error_code = ' || l_error_code);
294: return;
295: ELSE
296: x_return_status := FND_API.G_RET_STS_ERROR;
297: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
298: OE_MSG_PUB.Add;
299: l_error_code := 1;
300: return;
301: END IF;
316: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 4' || 'l_error_code = ' || l_error_code);
317: return;
318: ELSE
319: x_return_status := FND_API.G_RET_STS_ERROR;
320: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
321: OE_MSG_PUB.Add;
322: l_error_code := 1;
323: return;
324: END IF;
323: return;
324: END IF;
325: ELSE
326: x_return_status := FND_API.G_RET_STS_ERROR;
327: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
328: OE_MSG_PUB.Add;
329: l_error_code := 1;
330: return;
331: END IF;
331: END IF;
332: END IF;
333: ELSE
334: x_return_status := FND_API.G_RET_STS_ERROR;
335: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
336: OE_MSG_PUB.Add;
337: l_error_code := 1;
338: return;
339: END IF;
359: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 9' || 'l_error_code = ' || l_error_code);
360: return;
361: ELSE
362: x_return_status := FND_API.G_RET_STS_ERROR;
363: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
364: OE_MSG_PUB.Add;
365: l_error_code := 1;
366: return;
367: END IF;
366: return;
367: END IF;
368: ELSE
369: x_return_status := FND_API.G_RET_STS_ERROR;
370: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
371: OE_MSG_PUB.Add;
372: l_error_code := 1;
373: return;
374: END IF;
373: return;
374: END IF;
375: ELSE
376: x_return_status := FND_API.G_RET_STS_ERROR;
377: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
378: OE_MSG_PUB.Add;
379: l_error_code := 1;
380: return;
381: END IF;
399: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 10' || 'l_error_code = ' || l_error_code);
400: return;
401: ELSE
402: x_return_status := FND_API.G_RET_STS_ERROR;
403: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
404: OE_MSG_PUB.Add;
405: l_error_code := 1;
406: return;
407: END IF;
406: return;
407: END IF;
408: ELSE
409: x_return_status := FND_API.G_RET_STS_ERROR;
410: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
411: OE_MSG_PUB.Add;
412: l_error_code := 1;
413: return;
414: END IF;
413: return;
414: END IF;
415: ELSE
416: x_return_status := FND_API.G_RET_STS_ERROR;
417: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
418: OE_MSG_PUB.Add;
419: l_error_code := 1;
420: return;
421: END IF;
439: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 11' || 'l_error_code = ' || l_error_code);
440: return;
441: ELSE
442: x_return_status := FND_API.G_RET_STS_ERROR;
443: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
444: OE_MSG_PUB.Add;
445: l_error_code := 1;
446: return;
447: END IF;
446: return;
447: END IF;
448: ELSE
449: x_return_status := FND_API.G_RET_STS_ERROR;
450: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
451: OE_MSG_PUB.Add;
452: l_error_code := 1;
453: return;
454: END IF;
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_BASIS');
458: OE_MSG_PUB.Add;
459: l_error_code := 1;
460: return;
461: END IF;
479: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 12' || 'l_error_code = ' || l_error_code);
480: return;
481: ELSE
482: x_return_status := FND_API.G_RET_STS_ERROR;
483: FND_MESSAGE.SET_NAME('QP','QP_CONT_CUST_PROD_NOT_ALLOWED');
484: OE_MSG_PUB.Add;
485: l_error_code := 1;
486: return;
487: END IF;
486: return;
487: END IF;
488: ELSE
489: x_return_status := FND_API.G_RET_STS_ERROR;
490: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_LEVEL');
491: OE_MSG_PUB.Add;
492: l_error_code := 1;
493: return;
494: END IF;
493: return;
494: END IF;
495: ELSE
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
498: OE_MSG_PUB.Add;
499: l_error_code := 1;
500: return;
501: END IF;
514: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 17' || 'l_error_code = ' || l_error_code);
515: return;
516: ELSE
517: x_return_status := FND_API.G_RET_STS_ERROR;
518: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
519: OE_MSG_PUB.Add;
520: l_error_code := 1;
521: return;
522: END IF;
521: return;
522: END IF;
523: ELSE
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
526: OE_MSG_PUB.Add;
527: l_error_code := 1;
528: return;
529: END IF;
544: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 13' || 'l_error_code = ' || l_error_code);
545: return;
546: ELSE
547: x_return_status := FND_API.G_RET_STS_ERROR;
548: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
549: OE_MSG_PUB.Add;
550: l_error_code := 1;
551: return;
552: END IF;
563: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 14' || 'l_error_code = ' || l_error_code);
564: return;
565: ELSE
566: x_return_status := FND_API.G_RET_STS_ERROR;
567: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
568: OE_MSG_PUB.Add;
569: l_error_code := 1;
570: return;
571: END IF;
585: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 15' || '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;
593: END IF;
604: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 16' || '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;
612: END IF;
625: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 18' || 'l_error_code = ' || l_error_code);
626: return;
627: ELSE
628: x_return_status := FND_API.G_RET_STS_ERROR;
629: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
630: OE_MSG_PUB.Add;
631: l_error_code := 1;
632: return;
633: END IF;
644: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 19' || 'l_error_code = ' || l_error_code);
645: return;
646: ELSE
647: x_return_status := FND_API.G_RET_STS_ERROR;
648: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
649: OE_MSG_PUB.Add;
650: l_error_code := 1;
651: return;
652: END IF;
663: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 20' || 'l_error_code = ' || l_error_code);
664: return;
665: ELSE
666: x_return_status := FND_API.G_RET_STS_ERROR;
667: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
668: OE_MSG_PUB.Add;
669: l_error_code := 1;
670: return;
671: END IF;
682: --DBMS_OUTPUT.PUT_LINE('INSIDE VALIDATE ENTITY 21' || 'l_error_code = ' || l_error_code);
683: return;
684: ELSE
685: x_return_status := FND_API.G_RET_STS_ERROR;
686: FND_MESSAGE.SET_NAME('QP','QP_INVALID_LIMIT_BASIS');
687: OE_MSG_PUB.Add;
688: l_error_code := 1;
689: return;
690: END IF;
741:
742: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
743: THEN
744:
745: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
746: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','amount');
747: OE_MSG_PUB.Add;
748:
749: END IF;
742: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
743: THEN
744:
745: FND_MESSAGE.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
746: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','amount');
747: OE_MSG_PUB.Add;
748:
749: END IF;
750:
1305: l_return_status := FND_API.G_RET_STS_SUCCESS;
1306: ELSIF l_dummy > 0
1307: THEN
1308: l_return_status := FND_API.G_RET_STS_ERROR;
1309: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_DEL_LIMIT_BAL_EXISTS');
1310: FND_MESSAGE.SET_TOKEN('ENTITY1','Limit');
1311: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit');
1312: OE_MSG_PUB.Add;
1313: END IF;
1306: ELSIF l_dummy > 0
1307: THEN
1308: l_return_status := FND_API.G_RET_STS_ERROR;
1309: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_DEL_LIMIT_BAL_EXISTS');
1310: FND_MESSAGE.SET_TOKEN('ENTITY1','Limit');
1311: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit');
1312: OE_MSG_PUB.Add;
1313: END IF;
1314: -- Done.
1307: THEN
1308: l_return_status := FND_API.G_RET_STS_ERROR;
1309: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_DEL_LIMIT_BAL_EXISTS');
1310: FND_MESSAGE.SET_TOKEN('ENTITY1','Limit');
1311: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit');
1312: OE_MSG_PUB.Add;
1313: END IF;
1314: -- Done.
1315:
1476:
1477: IF l_error_code = 1
1478: THEN
1479: l_return_status := FND_API.G_RET_STS_ERROR;
1480: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPD_LIMIT_BAL_EXISTS');
1481: FND_MESSAGE.SET_TOKEN('ENTITY1','Limit');
1482: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit');
1483: OE_MSG_PUB.Add;
1484: ELSIF l_error_code = 0
1477: IF l_error_code = 1
1478: THEN
1479: l_return_status := FND_API.G_RET_STS_ERROR;
1480: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPD_LIMIT_BAL_EXISTS');
1481: FND_MESSAGE.SET_TOKEN('ENTITY1','Limit');
1482: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit');
1483: OE_MSG_PUB.Add;
1484: ELSIF l_error_code = 0
1485: THEN
1478: THEN
1479: l_return_status := FND_API.G_RET_STS_ERROR;
1480: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPD_LIMIT_BAL_EXISTS');
1481: FND_MESSAGE.SET_TOKEN('ENTITY1','Limit');
1482: FND_MESSAGE.SET_TOKEN('ENTITY2','Limit');
1483: OE_MSG_PUB.Add;
1484: ELSIF l_error_code = 0
1485: THEN
1486: l_return_status := FND_API.G_RET_STS_SUCCESS;