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;
43: ELSE
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;
50: 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;
58:
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;
84: ELSE
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;
91: 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;
99:
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
122: ( G_PKG_NAME
123: , 'Validate_List_Header_Limits'
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
122: ( G_PKG_NAME
123: , 'Validate_List_Header_Limits'
124: );
125: END IF;
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;
235: END IF;
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;
258: ELSE
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;
265: 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;
273: END IF;
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;
302: ELSIF (p_LIMITS_rec.basis = 'USAGE')
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;
325: ELSE
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;
332: 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;
340: END IF;
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;
368: ELSE
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;
375: ELSE
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;
382: END IF;
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;
408: ELSE
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;
415: ELSE
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;
422: END IF;
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;
448: ELSE
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;
455: ELSE
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;
462: END IF;
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;
488: ELSE
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;
495: ELSE
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;
502: END IF;
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;
523: ELSE
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;
530: END IF;
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;
553: END IF;
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;
572: END IF;
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;
594: END IF;
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;
613: END IF;
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;
634: END IF;
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;
653: END IF;
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;
672: END IF;
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;
691: END IF;
708: WHEN OTHERS THEN
709:
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711:
712: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
713: THEN
714: OE_MSG_PUB.Add_Exc_Msg
715: ( G_PKG_NAME
716: , 'Validate_List_Line_Limits'
710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
711:
712: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
713: THEN
714: OE_MSG_PUB.Add_Exc_Msg
715: ( G_PKG_NAME
716: , 'Validate_List_Line_Limits'
717: );
718: END IF;
738: THEN
739:
740: l_return_status := FND_API.G_RET_STS_ERROR;
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');
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:
751: END IF;
801: WHEN OTHERS THEN
802:
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804:
805: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
806: THEN
807: OE_MSG_PUB.Add_Exc_Msg
808: ( G_PKG_NAME
809: , 'Entity'
803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
804:
805: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
806: THEN
807: OE_MSG_PUB.Add_Exc_Msg
808: ( G_PKG_NAME
809: , 'Entity'
810: );
811: END IF;
1272: WHEN OTHERS THEN
1273:
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275:
1276: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1277: THEN
1278: OE_MSG_PUB.Add_Exc_Msg
1279: ( G_PKG_NAME
1280: , 'Attributes'
1274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1275:
1276: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1277: THEN
1278: OE_MSG_PUB.Add_Exc_Msg
1279: ( G_PKG_NAME
1280: , 'Attributes'
1281: );
1282: END IF;
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:
1316: x_return_status := l_return_status;
1328: WHEN OTHERS THEN
1329:
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331:
1332: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1333: THEN
1334: OE_MSG_PUB.Add_Exc_Msg
1335: ( G_PKG_NAME
1336: , 'Entity_Delete'
1330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1331:
1332: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1333: THEN
1334: OE_MSG_PUB.Add_Exc_Msg
1335: ( G_PKG_NAME
1336: , 'Entity_Delete'
1337: );
1338: END IF;
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;
1487: END IF;
1504: WHEN OTHERS THEN
1505:
1506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1507:
1508: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1509: THEN
1510: OE_MSG_PUB.Add_Exc_Msg
1511: ( G_PKG_NAME
1512: , 'Entity_Delete'
1506: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1507:
1508: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1509: THEN
1510: OE_MSG_PUB.Add_Exc_Msg
1511: ( G_PKG_NAME
1512: , 'Entity_Delete'
1513: );
1514: END IF;