57: l_msg_data VARCHAR2(250) := NULL;
58: l_LogMsg VARCHAR2(250);
59:
60: BEGIN
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62: x_msg_count := 0;
63:
64: Initialize;
65:
117: x_return_status => l_return_status,
118: x_msg_count => l_msg_count,
119: x_msg_data => l_msg_data) ;
120:
121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
122:
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124:
125: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
119: x_msg_data => l_msg_data) ;
120:
121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
122:
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124:
125: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
126:
127: RAISE FND_API.G_EXC_ERROR;
121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
122:
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124:
125: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
126:
127: RAISE FND_API.G_EXC_ERROR;
128:
129: END IF;
123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
124:
125: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
126:
127: RAISE FND_API.G_EXC_ERROR;
128:
129: END IF;
130:
131: IF p_run_mode = 'DELETE' THEN
138: x_return_status => l_return_status,
139: x_msg_count => l_msg_count,
140: x_msg_data => l_msg_data);
141:
142: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
143:
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145:
146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
140: x_msg_data => l_msg_data);
141:
142: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
143:
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145:
146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
147:
148: RAISE FND_API.G_EXC_ERROR;
142: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
143:
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145:
146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
147:
148: RAISE FND_API.G_EXC_ERROR;
149:
150: END IF;
144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145:
146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
147:
148: RAISE FND_API.G_EXC_ERROR;
149:
150: END IF;
151:
152:
156: x_return_status => l_return_status,
157: x_msg_count => l_msg_count,
158: x_msg_data => l_msg_data);
159:
160: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
161:
162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163:
164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
158: x_msg_data => l_msg_data);
159:
160: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
161:
162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163:
164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
165:
166: RAISE FND_API.G_EXC_ERROR;
160: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
161:
162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163:
164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
165:
166: RAISE FND_API.G_EXC_ERROR;
167:
168: END IF;
162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163:
164: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
165:
166: RAISE FND_API.G_EXC_ERROR;
167:
168: END IF;
169:
170: get_reval_projects(
176: x_return_status => l_return_status,
177: x_msg_count => l_msg_count,
178: x_msg_data => l_msg_data);
179:
180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181:
182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
183:
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
178: x_msg_data => l_msg_data);
179:
180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181:
182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
183:
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185:
186: RAISE FND_API.G_EXC_ERROR;
180: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
181:
182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
183:
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185:
186: RAISE FND_API.G_EXC_ERROR;
187:
188: END IF;
182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
183:
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185:
186: RAISE FND_API.G_EXC_ERROR;
187:
188: END IF;
189:
190: END IF; /* p_run_mode = DELETE */
199: END IF;
200:
201:
202: EXCEPTION
203: WHEN FND_API.G_EXC_ERROR THEN
204: ROLLBACK;
205:
206: IF G_DEBUG_MODE = 'Y' THEN
207:
213: x_return_status := l_return_status;
214: x_msg_count := l_msg_count;
215: x_msg_data := l_msg_data;
216:
217: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
218: ROLLBACK;
219: G_REVAL_FLAG := 'N';
220:
221: IF G_DEBUG_MODE = 'Y' THEN
231:
232: WHEN OTHERS THEN
233: ROLLBACK;
234: G_REVAL_FLAG := 'N';
235: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236: x_msg_count := l_msg_count;
237: x_msg_data := SUBSTR(SQLERRM,1,100);
238:
239: IF G_DEBUG_MODE = 'Y' THEN
283: l_LogMsg VARCHAR2(250);
284:
285: BEGIN
286:
287: x_return_status := FND_API.G_RET_STS_SUCCESS;
288: x_msg_count := 0;
289: x_eligible_flag := 'T';
290:
291:
329: x_msg_count => l_msg_count,
330: x_msg_data => l_msg_data) ;
331:
332:
333: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
334:
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336:
337: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
331:
332:
333: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
334:
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336:
337: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
338:
339: RAISE FND_API.G_EXC_ERROR;
333: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
334:
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336:
337: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
338:
339: RAISE FND_API.G_EXC_ERROR;
340:
341: ELSE
335: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
336:
337: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
338:
339: RAISE FND_API.G_EXC_ERROR;
340:
341: ELSE
342:
343: RAISE UNREL_INV_REV_EXIST;
366: x_return_status => l_return_status,
367: x_msg_count => l_msg_count,
368: x_msg_data => l_msg_data) ;
369:
370: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
371:
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373:
374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
368: x_msg_data => l_msg_data) ;
369:
370: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
371:
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373:
374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
375:
376: RAISE FND_API.G_EXC_ERROR;
370: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
371:
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373:
374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
375:
376: RAISE FND_API.G_EXC_ERROR;
377:
378: END IF;
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373:
374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
375:
376: RAISE FND_API.G_EXC_ERROR;
377:
378: END IF;
379:
380: ELSE
386: x_return_status => l_return_status,
387: x_msg_count => l_msg_count,
388: x_msg_data => l_msg_data) ;
389:
390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
391:
392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
393:
394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
388: x_msg_data => l_msg_data) ;
389:
390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
391:
392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
393:
394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
395:
396: RAISE FND_API.G_EXC_ERROR;
390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
391:
392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
393:
394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
395:
396: RAISE FND_API.G_EXC_ERROR;
397:
398: ELSE
392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
393:
394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
395:
396: RAISE FND_API.G_EXC_ERROR;
397:
398: ELSE
399:
400: RAISE UNBASELINED_REVAL_FUNDS_EXIST;
419:
420: WHEN UNBASELINED_REVAL_FUNDS_EXIST THEN
421: x_eligible_flag := 'F';
422:
423: WHEN FND_API.G_EXC_ERROR THEN
424: x_return_status := l_return_status;
425: x_msg_count := l_msg_count;
426: x_msg_data := l_msg_data;
427:
424: x_return_status := l_return_status;
425: x_msg_count := l_msg_count;
426: x_msg_data := l_msg_data;
427:
428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
429: x_return_status := l_return_status;
430: x_msg_count := l_msg_count;
431: x_msg_data := l_msg_data;
432:
430: x_msg_count := l_msg_count;
431: x_msg_data := l_msg_data;
432:
433: WHEN OTHERS THEN
434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
435: x_msg_count := l_msg_count;
436: x_msg_data := SUBSTR(SQLERRM,1,100);
437:
438: IF G_DEBUG_MODE = 'Y' THEN
526: l_EnabledFlag VARCHAR2(1);
527: l_SobIdIdx NUMBER;
528:
529: BEGIN
530: x_return_status := FND_API.G_RET_STS_SUCCESS;
531: x_msg_count := 0;
532:
533: IF G_DEBUG_MODE = 'Y' THEN
534:
634: END IF;
635:
636: EXCEPTION
637:
638: WHEN FND_API.G_EXC_ERROR THEN
639: x_return_status := l_return_status;
640: x_msg_count := l_msg_count;
641: x_msg_data := l_msg_data;
642:
640: x_msg_count := l_msg_count;
641: x_msg_data := l_msg_data;
642:
643: WHEN OTHERS THEN
644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
645: x_msg_count := l_msg_count;
646: x_msg_data := SUBSTR(SQLERRM,1,100);
647:
648: IF G_DEBUG_MODE = 'Y' THEN
716: l_LogMsg VARCHAR2(250);
717:
718:
719: BEGIN
720: x_return_status := FND_API.G_RET_STS_SUCCESS;
721: x_msg_count := 0;
722:
723: IF G_DEBUG_MODE = 'Y' THEN
724:
838: END IF;
839:
840: EXCEPTION
841:
842: WHEN FND_API.G_EXC_ERROR THEN
843: x_return_status := l_return_status;
844: x_msg_count := l_msg_count;
845: x_msg_data := l_msg_data;
846:
844: x_msg_count := l_msg_count;
845: x_msg_data := l_msg_data;
846:
847: WHEN OTHERS THEN
848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
849: x_msg_count := l_msg_count;
850: x_msg_data := SUBSTR(SQLERRM,1,100);
851:
852: IF G_DEBUG_MODE = 'Y' THEN
896:
897:
898: BEGIN
899:
900: x_return_status := FND_API.G_RET_STS_SUCCESS;
901: x_msg_count := 0;
902: x_reason_code := NULL;
903:
904: IF G_DEBUG_MODE = 'Y' THEN
976:
977: EXCEPTION
978:
979: WHEN OTHERS THEN
980: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
981: x_msg_count := l_msg_count;
982: x_msg_data := SUBSTR(SQLERRM,1,100);
983:
984: IF G_DEBUG_MODE = 'Y' THEN
1093: l_msg_data VARCHAR2(250) := NULL;
1094: l_LogMsg VARCHAR2(250);
1095:
1096: BEGIN
1097: x_return_status := FND_API.G_RET_STS_SUCCESS;
1098: x_msg_count := 0;
1099:
1100: IF G_DEBUG_MODE = 'Y' THEN
1101:
1164: x_msg_count => l_msg_count,
1165: x_msg_data => l_msg_data) ;
1166:
1167:
1168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1169:
1170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1171:
1172: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1166:
1167:
1168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1169:
1170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1171:
1172: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1173:
1174: RAISE FND_API.G_EXC_ERROR;
1168: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1169:
1170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1171:
1172: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1173:
1174: RAISE FND_API.G_EXC_ERROR;
1175:
1176: END IF;
1170: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1171:
1172: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1173:
1174: RAISE FND_API.G_EXC_ERROR;
1175:
1176: END IF;
1177:
1178: END LOOP;
1207: END IF;
1208:
1209: EXCEPTION
1210:
1211: WHEN FND_API.G_EXC_ERROR THEN
1212: x_return_status := l_return_status;
1213: x_msg_count := l_msg_count;
1214: x_msg_data := l_msg_data;
1215:
1212: x_return_status := l_return_status;
1213: x_msg_count := l_msg_count;
1214: x_msg_data := l_msg_data;
1215:
1216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1217: x_return_status := l_return_status;
1218: x_msg_count := l_msg_count;
1219: x_msg_data := l_msg_data;
1220:
1218: x_msg_count := l_msg_count;
1219: x_msg_data := l_msg_data;
1220:
1221: WHEN OTHERS THEN
1222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1223: x_msg_count := l_msg_count;
1224: x_msg_data := SUBSTR(SQLERRM,1,100);
1225:
1226: IF G_DEBUG_MODE = 'Y' THEN
1271: WHERE lookup_type = 'FUNDING REVAL REJECTION'
1272: AND lookup_code = p_reason_code;
1273:
1274: BEGIN
1275: x_return_status := FND_API.G_RET_STS_SUCCESS;
1276: x_msg_count := 0;
1277:
1278: IF G_DEBUG_MODE = 'Y' THEN
1279:
1314: END IF;
1315:
1316: EXCEPTION
1317:
1318: WHEN FND_API.G_EXC_ERROR THEN
1319: x_return_status := l_return_status;
1320: x_msg_count := l_msg_count;
1321: x_msg_data := l_msg_data;
1322:
1319: x_return_status := l_return_status;
1320: x_msg_count := l_msg_count;
1321: x_msg_data := l_msg_data;
1322:
1323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1324: x_return_status := l_return_status;
1325: x_msg_count := l_msg_count;
1326: x_msg_data := l_msg_data;
1327:
1325: x_msg_count := l_msg_count;
1326: x_msg_data := l_msg_data;
1327:
1328: WHEN OTHERS THEN
1329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1330: x_msg_count := l_msg_count;
1331: x_msg_data := SUBSTR(SQLERRM,1,100);
1332:
1333: IF G_DEBUG_MODE = 'Y' THEN
1460: l_ErrCode NUMBER := NULL;
1461: l_LogMsg VARCHAR2(250);
1462:
1463: BEGIN
1464: x_return_status := FND_API.G_RET_STS_SUCCESS;
1465: x_msg_count := 0;
1466:
1467: IF G_DEBUG_MODE = 'Y' THEN
1468:
1495: x_return_status => l_return_status,
1496: x_msg_count => l_msg_count,
1497: x_msg_data => l_msg_data);
1498:
1499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1500:
1501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1502:
1503: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1497: x_msg_data => l_msg_data);
1498:
1499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1500:
1501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1502:
1503: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1504:
1505: RAISE FND_API.G_EXC_ERROR;
1499: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1500:
1501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1502:
1503: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1504:
1505: RAISE FND_API.G_EXC_ERROR;
1506:
1507: END IF;
1501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1502:
1503: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1504:
1505: RAISE FND_API.G_EXC_ERROR;
1506:
1507: END IF;
1508:
1509: IF G_DEBUG_MODE = 'Y' THEN
1566: get_spf_lines (x_return_status => l_return_status,
1567: x_msg_count => l_msg_count,
1568: x_msg_data => l_msg_data);
1569:
1570: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1571:
1572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1573:
1574: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1568: x_msg_data => l_msg_data);
1569:
1570: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1571:
1572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1573:
1574: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1575:
1576: IF G_ProjLvlGlobRec.Zero_dollar_reval_flag = 'Y' THEN
1570: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1571:
1572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1573:
1574: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1575:
1576: IF G_ProjLvlGlobRec.Zero_dollar_reval_flag = 'Y' THEN
1577:
1578: l_ReasonCode := 'PA_FR_NO_REVALUATION';
1583: x_return_status => l_return_status,
1584: x_msg_count => l_msg_count,
1585: x_msg_data => l_msg_data) ;
1586:
1587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1588:
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590:
1591: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1585: x_msg_data => l_msg_data) ;
1586:
1587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1588:
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590:
1591: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1592:
1593: RAISE FND_API.G_EXC_ERROR;
1587: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1588:
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590:
1591: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1592:
1593: RAISE FND_API.G_EXC_ERROR;
1594:
1595: END IF;
1589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1590:
1591: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1592:
1593: RAISE FND_API.G_EXC_ERROR;
1594:
1595: END IF;
1596:
1597: ELSE
1657:
1658:
1659: EXCEPTION
1660:
1661: WHEN FND_API.G_EXC_ERROR THEN
1662: x_return_status := l_return_status;
1663: x_msg_count := l_msg_count;
1664: x_msg_data := l_msg_data;
1665:
1662: x_return_status := l_return_status;
1663: x_msg_count := l_msg_count;
1664: x_msg_data := l_msg_data;
1665:
1666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1667: x_return_status := l_return_status;
1668: x_msg_count := l_msg_count;
1669: x_msg_data := l_msg_data;
1670:
1668: x_msg_count := l_msg_count;
1669: x_msg_data := l_msg_data;
1670:
1671: WHEN OTHERS THEN
1672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1673: x_msg_count := l_msg_count;
1674: x_msg_data := SUBSTR(SQLERRM,1,100);
1675:
1676: IF G_DEBUG_MODE = 'Y' THEN
1828: l_msg_count NUMBER := NULL;
1829: l_msg_data VARCHAR2(250) := NULL;
1830: l_LogMsg VARCHAR2(250);
1831: BEGIN
1832: x_return_status := FND_API.G_RET_STS_SUCCESS;
1833: x_msg_count := 0;
1834:
1835: IF G_DEBUG_MODE = 'Y' THEN
1836:
1908: x_msg_data => l_msg_data);
1909:
1910: G_RevalCompTab.DELETE; /* Initialize for next SPF record */
1911:
1912: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1913:
1914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1915:
1916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1910: G_RevalCompTab.DELETE; /* Initialize for next SPF record */
1911:
1912: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1913:
1914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1915:
1916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1917:
1918: RAISE FND_API.G_EXC_ERROR;
1912: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1913:
1914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1915:
1916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1917:
1918: RAISE FND_API.G_EXC_ERROR;
1919:
1920: END IF;
1914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1915:
1916: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1917:
1918: RAISE FND_API.G_EXC_ERROR;
1919:
1920: END IF;
1921:
1922: END LOOP; /* l_SetOfBookIdTab */
1996: x_msg_data => l_msg_data);
1997:
1998: G_RevalCompTab.DELETE;
1999:
2000: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2001:
2002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2003:
2004: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1998: G_RevalCompTab.DELETE;
1999:
2000: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2001:
2002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2003:
2004: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2005:
2006: RAISE FND_API.G_EXC_ERROR;
2000: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2001:
2002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2003:
2004: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2005:
2006: RAISE FND_API.G_EXC_ERROR;
2007:
2008: END IF;
2002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2003:
2004: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2005:
2006: RAISE FND_API.G_EXC_ERROR;
2007:
2008: END IF;
2009:
2010: l_PrvAgrId := l_AgreementIdTab(i);
2047: x_msg_data => l_msg_data);
2048:
2049: G_RevalCompTab.DELETE;
2050:
2051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2052:
2053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2054:
2055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2049: G_RevalCompTab.DELETE;
2050:
2051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2052:
2053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2054:
2055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2056:
2057: RAISE FND_API.G_EXC_ERROR;
2051: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2052:
2053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2054:
2055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2056:
2057: RAISE FND_API.G_EXC_ERROR;
2058:
2059: END IF;
2053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2054:
2055: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2056:
2057: RAISE FND_API.G_EXC_ERROR;
2058:
2059: END IF;
2060:
2061: END IF; -- l_ThisFetch > 0
2120: x_return_status => l_return_status,
2121: x_msg_count => l_msg_count,
2122: x_msg_data => l_msg_data) ;
2123:
2124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2125:
2126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2127:
2128: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2122: x_msg_data => l_msg_data) ;
2123:
2124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2125:
2126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2127:
2128: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2129:
2130: RAISE FND_API.G_EXC_ERROR;
2124: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2125:
2126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2127:
2128: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2129:
2130: RAISE FND_API.G_EXC_ERROR;
2131:
2132: END IF;
2126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2127:
2128: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2129:
2130: RAISE FND_API.G_EXC_ERROR;
2131:
2132: END IF;
2133:
2134: END IF;
2141: END IF;
2142:
2143: EXCEPTION
2144:
2145: WHEN FND_API.G_EXC_ERROR THEN
2146: x_return_status := l_return_status;
2147: x_msg_count := l_msg_count;
2148: x_msg_data := l_msg_data;
2149:
2146: x_return_status := l_return_status;
2147: x_msg_count := l_msg_count;
2148: x_msg_data := l_msg_data;
2149:
2150: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2151: x_return_status := l_return_status;
2152: x_msg_count := l_msg_count;
2153: x_msg_data := l_msg_data;
2154:
2152: x_msg_count := l_msg_count;
2153: x_msg_data := l_msg_data;
2154:
2155: WHEN OTHERS THEN
2156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2157: x_msg_count := l_msg_count;
2158: x_msg_data := SUBSTR(SQLERRM,1,100);
2159:
2160: IF G_DEBUG_MODE = 'Y' THEN
2199: l_msg_count NUMBER := NULL;
2200: l_msg_data VARCHAR2(250) := NULL;
2201: l_LogMsg VARCHAR2(250);
2202: BEGIN
2203: x_return_status := FND_API.G_RET_STS_SUCCESS;
2204: x_msg_count := 0;
2205:
2206: IF G_DEBUG_MODE = 'Y' THEN
2207:
2292: x_return_status => l_return_status,
2293: x_msg_count => l_msg_count,
2294: x_msg_data => l_msg_data);
2295:
2296: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2297:
2298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2299:
2300: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2294: x_msg_data => l_msg_data);
2295:
2296: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2297:
2298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2299:
2300: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2301:
2302: RAISE FND_API.G_EXC_ERROR;
2296: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2297:
2298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2299:
2300: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2301:
2302: RAISE FND_API.G_EXC_ERROR;
2303:
2304: END IF;
2298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2299:
2300: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2301:
2302: RAISE FND_API.G_EXC_ERROR;
2303:
2304: END IF;
2305:
2306: END IF; /* G_RentApplAmtTab.COUNT */
2355: x_return_status => l_return_status,
2356: x_msg_count => l_msg_count,
2357: x_msg_data => l_msg_data);
2358:
2359: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2360:
2361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2362:
2363: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2357: x_msg_data => l_msg_data);
2358:
2359: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2360:
2361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2362:
2363: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2364:
2365: RAISE FND_API.G_EXC_ERROR;
2359: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2360:
2361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2362:
2363: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2364:
2365: RAISE FND_API.G_EXC_ERROR;
2366:
2367: END IF;
2361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2362:
2363: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2364:
2365: RAISE FND_API.G_EXC_ERROR;
2366:
2367: END IF;
2368:
2369: ELSE
2375: x_return_status => l_return_status,
2376: x_msg_count => l_msg_count,
2377: x_msg_data => l_msg_data);
2378:
2379: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2380:
2381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2382:
2383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2377: x_msg_data => l_msg_data);
2378:
2379: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2380:
2381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2382:
2383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2384:
2385: RAISE FND_API.G_EXC_ERROR;
2379: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2380:
2381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2382:
2383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2384:
2385: RAISE FND_API.G_EXC_ERROR;
2386:
2387: END IF;
2381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2382:
2383: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2384:
2385: RAISE FND_API.G_EXC_ERROR;
2386:
2387: END IF;
2388:
2389: END IF; /* IF (G_ProjLvlGlobRec.include_gains_losses_flag = 'Y') */
2399: x_return_status => l_return_status,
2400: x_msg_count => l_msg_count,
2401: x_msg_data => l_msg_data);
2402:
2403: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2404:
2405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2406:
2407: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2401: x_msg_data => l_msg_data);
2402:
2403: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2404:
2405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2406:
2407: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2408:
2409: RAISE FND_API.G_EXC_ERROR;
2403: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2404:
2405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2406:
2407: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2408:
2409: RAISE FND_API.G_EXC_ERROR;
2410:
2411: END IF;
2405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2406:
2407: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2408:
2409: RAISE FND_API.G_EXC_ERROR;
2410:
2411: END IF;
2412:
2413: create_adjustment_line (
2414: x_return_status => l_return_status,
2415: x_msg_count => l_msg_count,
2416: x_msg_data => l_msg_data);
2417:
2418: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2419:
2420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2421:
2422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2416: x_msg_data => l_msg_data);
2417:
2418: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2419:
2420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2421:
2422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2423:
2424: RAISE FND_API.G_EXC_ERROR;
2418: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2419:
2420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2421:
2422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2423:
2424: RAISE FND_API.G_EXC_ERROR;
2425:
2426: END IF;
2420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2421:
2422: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2423:
2424: RAISE FND_API.G_EXC_ERROR;
2425:
2426: END IF;
2427:
2428: IF G_DEBUG_MODE = 'Y' THEN
2433: END IF;
2434:
2435: EXCEPTION
2436:
2437: WHEN FND_API.G_EXC_ERROR THEN
2438: x_return_status := l_return_status;
2439: x_msg_count := l_msg_count;
2440: x_msg_data := l_msg_data;
2441:
2438: x_return_status := l_return_status;
2439: x_msg_count := l_msg_count;
2440: x_msg_data := l_msg_data;
2441:
2442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2443: x_return_status := l_return_status;
2444: x_msg_count := l_msg_count;
2445: x_msg_data := l_msg_data;
2446:
2444: x_msg_count := l_msg_count;
2445: x_msg_data := l_msg_data;
2446:
2447: WHEN OTHERS THEN
2448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2449: x_msg_count := l_msg_count;
2450: x_msg_data := SUBSTR(SQLERRM,1,100);
2451:
2452: IF G_DEBUG_MODE = 'Y' THEN
2639: l_LogMsg VARCHAR2(250);
2640: l_InvoiceStatus VARCHAR2(30);
2641:
2642: BEGIN
2643: x_return_status := FND_API.G_RET_STS_SUCCESS;
2644: x_msg_count := 0;
2645:
2646: IF G_DEBUG_MODE = 'Y' THEN
2647:
2722: x_msg_data => l_msg_data);
2723:
2724: l_RetnInvTab.DELETE;
2725:
2726: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2727:
2728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2729:
2730: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2724: l_RetnInvTab.DELETE;
2725:
2726: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2727:
2728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2729:
2730: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2731:
2732: RAISE FND_API.G_EXC_ERROR;
2726: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2727:
2728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2729:
2730: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2731:
2732: RAISE FND_API.G_EXC_ERROR;
2733:
2734: END IF;
2728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2729:
2730: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2731:
2732: RAISE FND_API.G_EXC_ERROR;
2733:
2734: END IF;
2735:
2736: END LOOP; /*SetOfBookIdTab */
2807: x_msg_data => l_msg_data);
2808:
2809: l_RetnInvTab.DELETE;
2810:
2811: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2812:
2813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2814:
2815: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2809: l_RetnInvTab.DELETE;
2810:
2811: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2812:
2813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2814:
2815: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2816:
2817: RAISE FND_API.G_EXC_ERROR;
2811: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2812:
2813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2814:
2815: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2816:
2817: RAISE FND_API.G_EXC_ERROR;
2818:
2819: END IF;
2813: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2814:
2815: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2816:
2817: RAISE FND_API.G_EXC_ERROR;
2818:
2819: END IF;
2820:
2821: l_PrvInvNum := l_DraftInvNumTab(i);
2862: x_msg_data => l_msg_data);
2863:
2864: l_RetnInvTab.DELETE;
2865:
2866: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2867:
2868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2869:
2870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2864: l_RetnInvTab.DELETE;
2865:
2866: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2867:
2868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2869:
2870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2871:
2872: RAISE FND_API.G_EXC_ERROR;
2866: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2867:
2868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2869:
2870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2871:
2872: RAISE FND_API.G_EXC_ERROR;
2873:
2874: END IF;
2868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2869:
2870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2871:
2872: RAISE FND_API.G_EXC_ERROR;
2873:
2874: END IF;
2875:
2876: END IF; -- l_ThisFetch > 0
2908: END IF;
2909:
2910: EXCEPTION
2911:
2912: WHEN FND_API.G_EXC_ERROR THEN
2913: x_return_status := l_return_status;
2914: x_msg_count := l_msg_count;
2915: x_msg_data := l_msg_data;
2916:
2913: x_return_status := l_return_status;
2914: x_msg_count := l_msg_count;
2915: x_msg_data := l_msg_data;
2916:
2917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2918: x_return_status := l_return_status;
2919: x_msg_count := l_msg_count;
2920: x_msg_data := l_msg_data;
2921:
2919: x_msg_count := l_msg_count;
2920: x_msg_data := l_msg_data;
2921:
2922: WHEN OTHERS THEN
2923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2924: x_msg_count := l_msg_count;
2925: x_msg_data := SUBSTR(SQLERRM,1,100);
2926:
2927: IF G_DEBUG_MODE = 'Y' THEN
2983:
2984: l_SobIdIdx NUMBER;
2985: BEGIN
2986:
2987: x_return_status := FND_API.G_RET_STS_SUCCESS;
2988: x_msg_count := 0;
2989:
2990: IF G_DEBUG_MODE = 'Y' THEN
2991:
3027: x_return_status => l_return_status,
3028: x_msg_count => l_msg_count,
3029: x_msg_data => l_msg_data);
3030:
3031: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3032:
3033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3034:
3035: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3029: x_msg_data => l_msg_data);
3030:
3031: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3032:
3033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3034:
3035: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3036:
3037: RAISE FND_API.G_EXC_ERROR;
3031: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3032:
3033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3034:
3035: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3036:
3037: RAISE FND_API.G_EXC_ERROR;
3038:
3039: END IF;
3033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3034:
3035: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3036:
3037: RAISE FND_API.G_EXC_ERROR;
3038:
3039: END IF;
3040:
3041: ELSE
3215: END IF;
3216:
3217: EXCEPTION
3218:
3219: WHEN FND_API.G_EXC_ERROR THEN
3220: x_return_status := l_return_status;
3221: x_msg_count := l_msg_count;
3222: x_msg_data := l_msg_data;
3223:
3220: x_return_status := l_return_status;
3221: x_msg_count := l_msg_count;
3222: x_msg_data := l_msg_data;
3223:
3224: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3225: x_return_status := l_return_status;
3226: x_msg_count := l_msg_count;
3227: x_msg_data := l_msg_data;
3228:
3226: x_msg_count := l_msg_count;
3227: x_msg_data := l_msg_data;
3228:
3229: WHEN OTHERS THEN
3230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3231: x_msg_count := l_msg_count;
3232: x_msg_data := SUBSTR(SQLERRM,1,100);
3233: G_RetnApplAmtTab(l_SobId).error_status := x_msg_data;
3234:
3858: l_msg_count NUMBER := NULL;
3859: l_msg_data VARCHAR2(250) := NULL;
3860: l_LogMsg VARCHAR2(250);
3861: BEGIN
3862: x_return_status := FND_API.G_RET_STS_SUCCESS;
3863: x_msg_count := 0;
3864:
3865: IF G_DEBUG_MODE = 'Y' THEN
3866:
3983: x_msg_data => l_msg_data);
3984:
3985: l_InvTab.DELETE;
3986:
3987: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3988:
3989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3990:
3991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3985: l_InvTab.DELETE;
3986:
3987: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3988:
3989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3990:
3991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3992:
3993: RAISE FND_API.G_EXC_ERROR;
3987: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3988:
3989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3990:
3991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3992:
3993: RAISE FND_API.G_EXC_ERROR;
3994:
3995: END IF;
3989: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3990:
3991: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3992:
3993: RAISE FND_API.G_EXC_ERROR;
3994:
3995: END IF;
3996:
3997: END LOOP; /*SetOfBookIdTab LOO */
4081: x_return_status => l_return_status,
4082: x_msg_count => l_msg_count,
4083: x_msg_data => l_msg_data);
4084:
4085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4086:
4087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4088:
4089: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4083: x_msg_data => l_msg_data);
4084:
4085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4086:
4087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4088:
4089: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4090:
4091: RAISE FND_API.G_EXC_ERROR;
4085: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4086:
4087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4088:
4089: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4090:
4091: RAISE FND_API.G_EXC_ERROR;
4092:
4093: END IF;
4087: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4088:
4089: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4090:
4091: RAISE FND_API.G_EXC_ERROR;
4092:
4093: END IF;
4094:
4095: l_InvTab.DELETE;
4152: x_return_status => l_return_status,
4153: x_msg_count => l_msg_count,
4154: x_msg_data => l_msg_data);
4155:
4156: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4157:
4158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4159:
4160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4154: x_msg_data => l_msg_data);
4155:
4156: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4157:
4158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4159:
4160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4161:
4162: RAISE FND_API.G_EXC_ERROR;
4156: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4157:
4158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4159:
4160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4161:
4162: RAISE FND_API.G_EXC_ERROR;
4163:
4164: END IF;
4158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4159:
4160: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4161:
4162: RAISE FND_API.G_EXC_ERROR;
4163:
4164: END IF;
4165:
4166: l_InvTab.DELETE;
4253: x_return_status => l_return_status,
4254: x_msg_count => l_msg_count,
4255: x_msg_data => l_msg_data);
4256:
4257: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4258:
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260:
4261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4255: x_msg_data => l_msg_data);
4256:
4257: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4258:
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260:
4261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4262:
4263: RAISE FND_API.G_EXC_ERROR;
4257: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4258:
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260:
4261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4262:
4263: RAISE FND_API.G_EXC_ERROR;
4264:
4265: END IF;
4259: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4260:
4261: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4262:
4263: RAISE FND_API.G_EXC_ERROR;
4264:
4265: END IF;
4266:
4267: l_InvTab.DELETE;
4321: x_return_status => l_return_status,
4322: x_msg_count => l_msg_count,
4323: x_msg_data => l_msg_data);
4324:
4325: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4326:
4327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4328:
4329: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4323: x_msg_data => l_msg_data);
4324:
4325: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4326:
4327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4328:
4329: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4330:
4331: RAISE FND_API.G_EXC_ERROR;
4325: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4326:
4327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4328:
4329: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4330:
4331: RAISE FND_API.G_EXC_ERROR;
4332:
4333: END IF;
4327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4328:
4329: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4330:
4331: RAISE FND_API.G_EXC_ERROR;
4332:
4333: END IF;
4334:
4335: l_InvTab.DELETE;
4421: x_return_status => l_return_status,
4422: x_msg_count => l_msg_count,
4423: x_msg_data => l_msg_data);
4424:
4425: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4426:
4427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4428:
4429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4423: x_msg_data => l_msg_data);
4424:
4425: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4426:
4427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4428:
4429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4430:
4431: RAISE FND_API.G_EXC_ERROR;
4425: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4426:
4427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4428:
4429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4430:
4431: RAISE FND_API.G_EXC_ERROR;
4432:
4433: END IF;
4427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4428:
4429: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4430:
4431: RAISE FND_API.G_EXC_ERROR;
4432:
4433: END IF;
4434:
4435: l_InvTab.DELETE;
4490: x_return_status => l_return_status,
4491: x_msg_count => l_msg_count,
4492: x_msg_data => l_msg_data);
4493:
4494: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4495:
4496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4497:
4498: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4492: x_msg_data => l_msg_data);
4493:
4494: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4495:
4496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4497:
4498: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4499:
4500: RAISE FND_API.G_EXC_ERROR;
4494: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4495:
4496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4497:
4498: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4499:
4500: RAISE FND_API.G_EXC_ERROR;
4501:
4502: END IF;
4496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4497:
4498: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4499:
4500: RAISE FND_API.G_EXC_ERROR;
4501:
4502: END IF;
4503:
4504: l_InvTab.DELETE;
4549: END IF;
4550:
4551: EXCEPTION
4552:
4553: WHEN FND_API.G_EXC_ERROR THEN
4554: x_return_status := l_return_status;
4555: x_msg_count := l_msg_count;
4556: x_msg_data := l_msg_data;
4557:
4554: x_return_status := l_return_status;
4555: x_msg_count := l_msg_count;
4556: x_msg_data := l_msg_data;
4557:
4558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4559: x_return_status := l_return_status;
4560: x_msg_count := l_msg_count;
4561: x_msg_data := l_msg_data;
4562:
4560: x_msg_count := l_msg_count;
4561: x_msg_data := l_msg_data;
4562:
4563: WHEN OTHERS THEN
4564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4565: x_msg_count := l_msg_count;
4566: x_msg_data := SUBSTR(SQLERRM,1,100);
4567:
4568: IF G_DEBUG_MODE = 'Y' THEN
4698: l_msg_data VARCHAR2(250) := NULL;
4699: l_LogMsg VARCHAR2(250);
4700: l_SobIdIdx NUMBER;
4701: BEGIN
4702: x_return_status := FND_API.G_RET_STS_SUCCESS;
4703: x_msg_count := 0;
4704:
4705:
4706: IF G_DEBUG_MODE = 'Y' THEN
4767: x_return_status => l_return_status,
4768: x_msg_count => l_msg_count,
4769: x_msg_data => l_msg_data);
4770:
4771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4772:
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774:
4775: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4769: x_msg_data => l_msg_data);
4770:
4771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4772:
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774:
4775: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4776:
4777: RAISE FND_API.G_EXC_ERROR;
4771: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4772:
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774:
4775: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4776:
4777: RAISE FND_API.G_EXC_ERROR;
4778:
4779: END IF;
4773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4774:
4775: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4776:
4777: RAISE FND_API.G_EXC_ERROR;
4778:
4779: END IF;
4780:
4781: ELSE
4800: x_return_status => l_return_status,
4801: x_msg_count => l_msg_count,
4802: x_msg_data => l_msg_data);
4803:
4804: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4805:
4806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4807:
4808: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4802: x_msg_data => l_msg_data);
4803:
4804: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4805:
4806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4807:
4808: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4809:
4810: RAISE FND_API.G_EXC_ERROR;
4804: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4805:
4806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4807:
4808: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4809:
4810: RAISE FND_API.G_EXC_ERROR;
4811:
4812: END IF;
4806: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4807:
4808: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4809:
4810: RAISE FND_API.G_EXC_ERROR;
4811:
4812: END IF;
4813:
4814: l_SobId := l_AdjTotTab.FIRST;
4859: x_return_status => l_return_status,
4860: x_msg_count => l_msg_count,
4861: x_msg_data => l_msg_data);
4862:
4863: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4864:
4865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4866:
4867: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4861: x_msg_data => l_msg_data);
4862:
4863: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4864:
4865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4866:
4867: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4868:
4869: RAISE FND_API.G_EXC_ERROR;
4863: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4864:
4865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4866:
4867: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4868:
4869: RAISE FND_API.G_EXC_ERROR;
4870:
4871: END IF;
4865: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4866:
4867: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4868:
4869: RAISE FND_API.G_EXC_ERROR;
4870:
4871: END IF;
4872:
4873: FOR i in p_InvTab.first..p_InvTab.last loop
5018: x_RetainedAmtTab => l_RetainedAmtTab,
5019: x_return_status => l_return_status,
5020: x_msg_count => l_msg_count,
5021: x_msg_data => l_msg_data);
5022: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5023:
5024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5025:
5026: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5020: x_msg_count => l_msg_count,
5021: x_msg_data => l_msg_data);
5022: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5023:
5024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5025:
5026: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5027:
5028: RAISE FND_API.G_EXC_ERROR;
5022: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5023:
5024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5025:
5026: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5027:
5028: RAISE FND_API.G_EXC_ERROR;
5029:
5030: END IF;
5024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5025:
5026: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5027:
5028: RAISE FND_API.G_EXC_ERROR;
5029:
5030: END IF;
5031:
5032: END IF; /* l_PrvInvTskId <> p_InvTab(i).task_id */
5123: x_return_status => l_return_status,
5124: x_msg_count => l_msg_count,
5125: x_msg_data => l_msg_data);
5126:
5127: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5128:
5129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5130:
5131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5125: x_msg_data => l_msg_data);
5126:
5127: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5128:
5129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5130:
5131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5132:
5133: RAISE FND_API.G_EXC_ERROR;
5127: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5128:
5129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5130:
5131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5132:
5133: RAISE FND_API.G_EXC_ERROR;
5134:
5135: END IF;
5129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5130:
5131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5132:
5133: RAISE FND_API.G_EXC_ERROR;
5134:
5135: END IF;
5136:
5137: /* Since due amount also has retention amount, when retention amount is paid
5257:
5258: ROLLBACK;
5259:
5260: --l_msg_data := l_status_tab(1);
5261: l_return_status := FND_API.G_RET_STS_ERROR;
5262:
5263: /* Stamp rejection reason in PA_SPF */
5264: insert_rejection_reason_spf (
5265: p_project_id => G_ProjLvlGlobRec.project_id,
5269: x_return_status => l_return_status,
5270: x_msg_count => l_msg_count,
5271: x_msg_data => l_msg_data) ;
5272:
5273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5274:
5275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5276:
5277: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5271: x_msg_data => l_msg_data) ;
5272:
5273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5274:
5275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5276:
5277: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5278:
5279: l_msg_data := i_status_tab(1);
5273: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5274:
5275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5276:
5277: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5278:
5279: l_msg_data := i_status_tab(1);
5280: l_return_status := FND_API.G_RET_STS_ERROR;
5281:
5276:
5277: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5278:
5279: l_msg_data := i_status_tab(1);
5280: l_return_status := FND_API.G_RET_STS_ERROR;
5281:
5282: RAISE FND_API.G_EXC_ERROR;
5283:
5284: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5278:
5279: l_msg_data := i_status_tab(1);
5280: l_return_status := FND_API.G_RET_STS_ERROR;
5281:
5282: RAISE FND_API.G_EXC_ERROR;
5283:
5284: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5285: END IF; /* i_status_tab(1) <> 'N' */
5286: l_revald_pf_inv_due_amount := l_ITC_due_amount*i_rate_tab(1);
5280: l_return_status := FND_API.G_RET_STS_ERROR;
5281:
5282: RAISE FND_API.G_EXC_ERROR;
5283:
5284: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5285: END IF; /* i_status_tab(1) <> 'N' */
5286: l_revald_pf_inv_due_amount := l_ITC_due_amount*i_rate_tab(1);
5287:
5288: l_LogMsg := 'Inv currency code :' || p_InvTab(i).inv_currency_code;
5676:
5677: ROLLBACK;
5678:
5679: --l_msg_data := l_status_tab(1);
5680: l_return_status := FND_API.G_RET_STS_ERROR;
5681:
5682: /* Stamp rejection reason in PA_SPF */
5683: insert_rejection_reason_spf (
5684: p_project_id => G_ProjLvlGlobRec.project_id,
5688: x_return_status => l_return_status,
5689: x_msg_count => l_msg_count,
5690: x_msg_data => l_msg_data) ;
5691:
5692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5693:
5694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5695:
5696: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5690: x_msg_data => l_msg_data) ;
5691:
5692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5693:
5694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5695:
5696: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5697:
5698: l_msg_data := i_status_tab(1);
5692: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5693:
5694: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5695:
5696: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5697:
5698: l_msg_data := i_status_tab(1);
5699: l_return_status := FND_API.G_RET_STS_ERROR;
5700:
5695:
5696: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5697:
5698: l_msg_data := i_status_tab(1);
5699: l_return_status := FND_API.G_RET_STS_ERROR;
5700:
5701: RAISE FND_API.G_EXC_ERROR;
5702:
5703: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5697:
5698: l_msg_data := i_status_tab(1);
5699: l_return_status := FND_API.G_RET_STS_ERROR;
5700:
5701: RAISE FND_API.G_EXC_ERROR;
5702:
5703: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5704: END IF; /* i_status_tab(1) <> 'N' */
5705:
5699: l_return_status := FND_API.G_RET_STS_ERROR;
5700:
5701: RAISE FND_API.G_EXC_ERROR;
5702:
5703: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5704: END IF; /* i_status_tab(1) <> 'N' */
5705:
5706: l_revald_pf_inv_due_amount := l_ITC_due_amount*i_rate_tab(1);
5707:
5819: END IF;
5820:
5821: EXCEPTION
5822:
5823: WHEN FND_API.G_EXC_ERROR THEN
5824: x_return_status := l_return_status;
5825: x_msg_count := l_msg_count;
5826: x_msg_data := l_msg_data;
5827:
5824: x_return_status := l_return_status;
5825: x_msg_count := l_msg_count;
5826: x_msg_data := l_msg_data;
5827:
5828: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5829: x_return_status := l_return_status;
5830: x_msg_count := l_msg_count;
5831: x_msg_data := l_msg_data;
5832:
5830: x_msg_count := l_msg_count;
5831: x_msg_data := l_msg_data;
5832:
5833: WHEN OTHERS THEN
5834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5835: x_msg_count := l_msg_count;
5836: x_msg_data := SUBSTR(SQLERRM,1,100);
5837:
5838: IF G_DEBUG_MODE = 'Y' THEN
5942: l_FetchSize NUMBER := 50;
5943:
5944:
5945: BEGIN
5946: x_return_status := FND_API.G_RET_STS_SUCCESS;
5947: x_msg_count := 0;
5948:
5949: IF G_DEBUG_MODE = 'Y' THEN
5950:
6076: END IF;
6077:
6078: EXCEPTION
6079:
6080: WHEN FND_API.G_EXC_ERROR THEN
6081: x_return_status := l_return_status;
6082: x_msg_count := l_msg_count;
6083: x_msg_data := l_msg_data;
6084:
6081: x_return_status := l_return_status;
6082: x_msg_count := l_msg_count;
6083: x_msg_data := l_msg_data;
6084:
6085: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6086: x_return_status := l_return_status;
6087: x_msg_count := l_msg_count;
6088: x_msg_data := l_msg_data;
6089:
6087: x_msg_count := l_msg_count;
6088: x_msg_data := l_msg_data;
6089:
6090: WHEN OTHERS THEN
6091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6092: x_msg_count := l_msg_count;
6093: x_msg_data := SUBSTR(SQLERRM,1,100);
6094:
6095: IF G_DEBUG_MODE = 'Y' THEN
6318: l_LogMsg VARCHAR2(250);
6319:
6320:
6321: BEGIN
6322: x_return_status := FND_API.G_RET_STS_SUCCESS;
6323: x_msg_count := 0;
6324:
6325: IF G_DEBUG_MODE = 'Y' THEN
6326:
6386: x_return_status => l_return_status,
6387: x_msg_count => l_msg_count,
6388: x_msg_data => l_msg_data);
6389:
6390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6391:
6392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6393:
6394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6388: x_msg_data => l_msg_data);
6389:
6390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6391:
6392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6393:
6394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6395:
6396: RAISE FND_API.G_EXC_ERROR;
6390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6391:
6392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6393:
6394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6395:
6396: RAISE FND_API.G_EXC_ERROR;
6397:
6398: END IF;
6392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6393:
6394: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6395:
6396: RAISE FND_API.G_EXC_ERROR;
6397:
6398: END IF;
6399:
6400: END IF; /* l_ThisFetch > 0 */
6439: x_return_status => l_return_status,
6440: x_msg_count => l_msg_count,
6441: x_msg_data => l_msg_data);
6442:
6443: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6444:
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6446:
6447: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6441: x_msg_data => l_msg_data);
6442:
6443: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6444:
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6446:
6447: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6448:
6449: RAISE FND_API.G_EXC_ERROR;
6443: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6444:
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6446:
6447: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6448:
6449: RAISE FND_API.G_EXC_ERROR;
6450:
6451: END IF;
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6446:
6447: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6448:
6449: RAISE FND_API.G_EXC_ERROR;
6450:
6451: END IF;
6452:
6453: END IF; /* l_ThisFetch > 0 */
6492: x_return_status => l_return_status,
6493: x_msg_count => l_msg_count,
6494: x_msg_data => l_msg_data);
6495:
6496: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6497:
6498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6499:
6500: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6494: x_msg_data => l_msg_data);
6495:
6496: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6497:
6498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6499:
6500: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6501:
6502: RAISE FND_API.G_EXC_ERROR;
6496: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6497:
6498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6499:
6500: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6501:
6502: RAISE FND_API.G_EXC_ERROR;
6503:
6504: END IF;
6498: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6499:
6500: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6501:
6502: RAISE FND_API.G_EXC_ERROR;
6503:
6504: END IF;
6505:
6506: END IF; /* l_ThisFetch > 0 */
6547: x_return_status => l_return_status,
6548: x_msg_count => l_msg_count,
6549: x_msg_data => l_msg_data);
6550:
6551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6552:
6553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6554:
6555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6549: x_msg_data => l_msg_data);
6550:
6551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6552:
6553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6554:
6555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6556:
6557: RAISE FND_API.G_EXC_ERROR;
6551: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6552:
6553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6554:
6555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6556:
6557: RAISE FND_API.G_EXC_ERROR;
6558:
6559: END IF;
6553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6554:
6555: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6556:
6557: RAISE FND_API.G_EXC_ERROR;
6558:
6559: END IF;
6560:
6561: END IF; -- l_ThisFetch > 0
6600: x_return_status => l_return_status,
6601: x_msg_count => l_msg_count,
6602: x_msg_data => l_msg_data);
6603:
6604: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6605:
6606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6607:
6608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6602: x_msg_data => l_msg_data);
6603:
6604: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6605:
6606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6607:
6608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6609:
6610: RAISE FND_API.G_EXC_ERROR;
6604: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6605:
6606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6607:
6608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6609:
6610: RAISE FND_API.G_EXC_ERROR;
6611:
6612: END IF;
6606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6607:
6608: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6609:
6610: RAISE FND_API.G_EXC_ERROR;
6611:
6612: END IF;
6613:
6614: END IF; -- l_ThisFetch > 0
6653: x_return_status => l_return_status,
6654: x_msg_count => l_msg_count,
6655: x_msg_data => l_msg_data);
6656:
6657: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6658:
6659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6660:
6661: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6655: x_msg_data => l_msg_data);
6656:
6657: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6658:
6659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6660:
6661: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6662:
6663: RAISE FND_API.G_EXC_ERROR;
6657: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6658:
6659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6660:
6661: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6662:
6663: RAISE FND_API.G_EXC_ERROR;
6664:
6665: END IF;
6659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6660:
6661: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6662:
6663: RAISE FND_API.G_EXC_ERROR;
6664:
6665: END IF;
6666:
6667: END IF; -- l_ThisFetch > 0
6694: WHEN NO_DATA_FOUND THEN
6695: x_RetainedAmtTab := l_RetainedAmtTab;
6696: NULL;
6697:
6698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6699: x_return_status := l_return_status;
6700: x_msg_count := l_msg_count;
6701: x_msg_data := l_msg_data;
6702:
6699: x_return_status := l_return_status;
6700: x_msg_count := l_msg_count;
6701: x_msg_data := l_msg_data;
6702:
6703: WHEN FND_API.G_EXC_ERROR THEN
6704: x_return_status := l_return_status;
6705: x_msg_count := l_msg_count;
6706: x_msg_data := l_msg_data;
6707:
6705: x_msg_count := l_msg_count;
6706: x_msg_data := l_msg_data;
6707:
6708: WHEN OTHERS THEN
6709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6710: x_msg_count := l_msg_count;
6711: x_msg_data := SUBSTR(SQLERRM,1,100);
6712:
6713: IF G_DEBUG_MODE = 'Y' THEN
6760: l_msg_data VARCHAR2(250) := NULL;
6761: l_LogMsg VARCHAR2(250);
6762:
6763: BEGIN
6764: x_return_status := FND_API.G_RET_STS_SUCCESS;
6765: x_msg_count := 0;
6766:
6767: IF G_DEBUG_MODE = 'Y' THEN
6768:
6810: END IF;
6811:
6812: EXCEPTION
6813:
6814: WHEN FND_API.G_EXC_ERROR THEN
6815: x_return_status := l_return_status;
6816: x_msg_count := l_msg_count;
6817: x_msg_data := l_msg_data;
6818:
6815: x_return_status := l_return_status;
6816: x_msg_count := l_msg_count;
6817: x_msg_data := l_msg_data;
6818:
6819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6820: x_return_status := l_return_status;
6821: x_msg_count := l_msg_count;
6822: x_msg_data := l_msg_data;
6823:
6821: x_msg_count := l_msg_count;
6822: x_msg_data := l_msg_data;
6823:
6824: WHEN OTHERS THEN
6825: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6826: x_msg_count := l_msg_count;
6827: x_msg_data := SUBSTR(SQLERRM,1,100);
6828:
6829: IF G_DEBUG_MODE = 'Y' THEN
6893: l_RetnGainAmtPFC NUMBER := 0;
6894: l_RetnLossAmtPFC NUMBER := 0;
6895:
6896: BEGIN
6897: x_return_status := FND_API.G_RET_STS_SUCCESS;
6898: x_msg_count := 0;
6899:
6900: /* This procedure adjusts the retained amount for the given project/task/sobID of an agreement
6901: against the applied amount maintained for the project agreement in global table
6986: END IF;
6987:
6988: EXCEPTION
6989:
6990: WHEN FND_API.G_EXC_ERROR THEN
6991: x_return_status := l_return_status;
6992: x_msg_count := l_msg_count;
6993: x_msg_data := l_msg_data;
6994:
6991: x_return_status := l_return_status;
6992: x_msg_count := l_msg_count;
6993: x_msg_data := l_msg_data;
6994:
6995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6996: x_return_status := l_return_status;
6997: x_msg_count := l_msg_count;
6998: x_msg_data := l_msg_data;
6999:
6997: x_msg_count := l_msg_count;
6998: x_msg_data := l_msg_data;
6999:
7000: WHEN OTHERS THEN
7001: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7002: x_msg_count := l_msg_count;
7003: x_msg_data := SUBSTR(SQLERRM,1,100);
7004:
7005: IF G_DEBUG_MODE = 'Y' THEN
7200: l_msg_count NUMBER := NULL;
7201: l_msg_data VARCHAR2(250) := NULL;
7202: l_LogMsg VARCHAR2(250);
7203: BEGIN
7204: x_return_status := FND_API.G_RET_STS_SUCCESS;
7205: x_msg_count := 0;
7206:
7207: IF G_DEBUG_MODE = 'Y' THEN
7208:
7256: x_return_status => l_return_status,
7257: x_msg_count => l_msg_count,
7258: x_msg_data => l_msg_data);
7259:
7260: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7261:
7262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7263:
7264: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7258: x_msg_data => l_msg_data);
7259:
7260: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7261:
7262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7263:
7264: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7265:
7266: RAISE FND_API.G_EXC_ERROR;
7260: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7261:
7262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7263:
7264: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7265:
7266: RAISE FND_API.G_EXC_ERROR;
7267:
7268: END IF;
7262: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7263:
7264: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7265:
7266: RAISE FND_API.G_EXC_ERROR;
7267:
7268: END IF;
7269:
7270: END IF; /* l_ThisFetch */
7318: x_return_status => l_return_status,
7319: x_msg_count => l_msg_count,
7320: x_msg_data => l_msg_data);
7321:
7322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7323:
7324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7325:
7326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7320: x_msg_data => l_msg_data);
7321:
7322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7323:
7324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7325:
7326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7327:
7328: RAISE FND_API.G_EXC_ERROR;
7322: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7323:
7324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7325:
7326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7327:
7328: RAISE FND_API.G_EXC_ERROR;
7329:
7330: END IF;
7324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7325:
7326: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7327:
7328: RAISE FND_API.G_EXC_ERROR;
7329:
7330: END IF;
7331:
7332: END IF; /* l_ThisFetch > 0 */
7385: x_return_status => l_return_status,
7386: x_msg_count => l_msg_count,
7387: x_msg_data => l_msg_data);
7388:
7389: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7390:
7391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7392:
7393: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7387: x_msg_data => l_msg_data);
7388:
7389: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7390:
7391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7392:
7393: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7394:
7395: RAISE FND_API.G_EXC_ERROR;
7389: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7390:
7391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7392:
7393: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7394:
7395: RAISE FND_API.G_EXC_ERROR;
7396:
7397: END IF;
7391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7392:
7393: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7394:
7395: RAISE FND_API.G_EXC_ERROR;
7396:
7397: END IF;
7398:
7399: END IF; -- l_ThisFetch > 0
7447: x_return_status => l_return_status,
7448: x_msg_count => l_msg_count,
7449: x_msg_data => l_msg_data);
7450:
7451: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7452:
7453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7454:
7455: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7449: x_msg_data => l_msg_data);
7450:
7451: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7452:
7453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7454:
7455: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7456:
7457: RAISE FND_API.G_EXC_ERROR;
7451: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7452:
7453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7454:
7455: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7456:
7457: RAISE FND_API.G_EXC_ERROR;
7458:
7459: END IF;
7453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7454:
7455: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7456:
7457: RAISE FND_API.G_EXC_ERROR;
7458:
7459: END IF;
7460:
7461: END IF; -- l_ThisFetch > 0
7489: END IF;
7490:
7491: EXCEPTION
7492:
7493: WHEN FND_API.G_EXC_ERROR THEN
7494: x_return_status := l_return_status;
7495: x_msg_count := l_msg_count;
7496: x_msg_data := l_msg_data;
7497:
7494: x_return_status := l_return_status;
7495: x_msg_count := l_msg_count;
7496: x_msg_data := l_msg_data;
7497:
7498: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7499: x_return_status := l_return_status;
7500: x_msg_count := l_msg_count;
7501: x_msg_data := l_msg_data;
7502:
7500: x_msg_count := l_msg_count;
7501: x_msg_data := l_msg_data;
7502:
7503: WHEN OTHERS THEN
7504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7505: x_msg_count := l_msg_count;
7506: x_msg_data := SUBSTR(SQLERRM,1,100);
7507:
7508: IF G_DEBUG_MODE = 'Y' THEN
7562: l_msg_data VARCHAR2(250) := NULL;
7563: l_LogMsg VARCHAR2(250);
7564:
7565: BEGIN
7566: x_return_status := FND_API.G_RET_STS_SUCCESS;
7567: x_msg_count := 0;
7568:
7569: IF G_DEBUG_MODE = 'Y' THEN
7570:
7757: END IF;
7758:
7759: EXCEPTION
7760:
7761: WHEN FND_API.G_EXC_ERROR THEN
7762: x_return_status := l_return_status;
7763: x_msg_count := l_msg_count;
7764: x_msg_data := l_msg_data;
7765:
7762: x_return_status := l_return_status;
7763: x_msg_count := l_msg_count;
7764: x_msg_data := l_msg_data;
7765:
7766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7767: x_return_status := l_return_status;
7768: x_msg_count := l_msg_count;
7769: x_msg_data := l_msg_data;
7770:
7768: x_msg_count := l_msg_count;
7769: x_msg_data := l_msg_data;
7770:
7771: WHEN OTHERS THEN
7772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7773: x_msg_count := l_msg_count;
7774: x_msg_data := SUBSTR(SQLERRM,1,100);
7775:
7776: IF G_DEBUG_MODE = 'Y' THEN
7883:
7884: l_McErrorFlag VARCHAR2(1);
7885: l_SameFundingPfcCode VARCHAR2(1) :='N'; /*Addde for bug 14381179 */
7886: BEGIN
7887: x_return_status := FND_API.G_RET_STS_SUCCESS;
7888: x_msg_count := 0;
7889:
7890: IF G_DEBUG_MODE = 'Y' THEN
7891:
7980:
7981: ROLLBACK;
7982:
7983: --l_msg_data := l_status_tab(1);
7984: l_return_status := FND_API.G_RET_STS_ERROR;
7985:
7986: /* Stamp rejection reason in PA_SPF */
7987: insert_rejection_reason_spf (
7988: p_project_id => G_ProjLvlGlobRec.project_id,
7992: x_return_status => l_return_status,
7993: x_msg_count => l_msg_count,
7994: x_msg_data => l_msg_data) ;
7995:
7996: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7997:
7998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7999:
8000: ELSE
7994: x_msg_data => l_msg_data) ;
7995:
7996: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7997:
7998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7999:
8000: ELSE
8001:
8002: l_msg_data := l_status_tab(1);
7999:
8000: ELSE
8001:
8002: l_msg_data := l_status_tab(1);
8003: l_return_status := FND_API.G_RET_STS_ERROR;
8004:
8005: RAISE FND_API.G_EXC_ERROR;
8006:
8007: END IF;
8001:
8002: l_msg_data := l_status_tab(1);
8003: l_return_status := FND_API.G_RET_STS_ERROR;
8004:
8005: RAISE FND_API.G_EXC_ERROR;
8006:
8007: END IF;
8008:
8009: ELSE
8058: IF (l_status_tab(1) <> 'N') THEN
8059:
8060: ROLLBACK;
8061: --l_msg_data := l_status_tab(1);
8062: l_return_status := FND_API.G_RET_STS_ERROR;
8063:
8064: /* Stamp rejection reason in PA_SPF */
8065: insert_rejection_reason_spf (
8066: p_project_id => G_ProjLvlGlobRec.project_id,
8070: x_return_status => l_return_status,
8071: x_msg_count => l_msg_count,
8072: x_msg_data => l_msg_data) ;
8073:
8074: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8075:
8076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8077:
8078: ELSE
8072: x_msg_data => l_msg_data) ;
8073:
8074: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8075:
8076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8077:
8078: ELSE
8079:
8080: l_msg_data := l_status_tab(1);
8077:
8078: ELSE
8079:
8080: l_msg_data := l_status_tab(1);
8081: l_return_status := FND_API.G_RET_STS_ERROR;
8082:
8083: RAISE FND_API.G_EXC_ERROR;
8084:
8085: END IF;
8079:
8080: l_msg_data := l_status_tab(1);
8081: l_return_status := FND_API.G_RET_STS_ERROR;
8082:
8083: RAISE FND_API.G_EXC_ERROR;
8084:
8085: END IF;
8086:
8087: ELSE
8247: P_Invproc_Backlog_amount => l_InvprocBacklogAmount,
8248: X_funding_reval_factor => l_RevaluationIndex,
8249: X_Status => l_status);
8250:
8251: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8252:
8253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8254:
8255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8249: X_Status => l_status);
8250:
8251: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8252:
8253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8254:
8255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8256:
8257: RAISE FND_API.G_EXC_ERROR;
8251: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8252:
8253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8254:
8255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8256:
8257: RAISE FND_API.G_EXC_ERROR;
8258:
8259: END IF;
8253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8254:
8255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8256:
8257: RAISE FND_API.G_EXC_ERROR;
8258:
8259: END IF;
8260:
8261: IF G_DEBUG_MODE = 'Y' THEN
8614:
8615: ROLLBACK;
8616:
8617: --l_msg_data := l_status_tab(1);
8618: l_return_status := FND_API.G_RET_STS_ERROR;
8619:
8620: /* Stamp rejection reason in PA_SPF */
8621: insert_rejection_reason_spf (
8622: p_project_id => G_ProjLvlGlobRec.project_id,
8626: x_return_status => l_return_status,
8627: x_msg_count => l_msg_count,
8628: x_msg_data => l_msg_data) ;
8629:
8630: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8631:
8632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8633:
8634: ELSE
8628: x_msg_data => l_msg_data) ;
8629:
8630: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8631:
8632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8633:
8634: ELSE
8635:
8636: l_msg_data := l_status_tab(1);
8633:
8634: ELSE
8635:
8636: l_msg_data := l_status_tab(1);
8637: l_return_status := FND_API.G_RET_STS_ERROR;
8638:
8639: RAISE FND_API.G_EXC_ERROR;
8640:
8641: END IF;
8635:
8636: l_msg_data := l_status_tab(1);
8637: l_return_status := FND_API.G_RET_STS_ERROR;
8638:
8639: RAISE FND_API.G_EXC_ERROR;
8640:
8641: END IF;
8642:
8643: ELSE
8720: IF (l_status_tab(1) <> 'N') THEN
8721:
8722: ROLLBACK;
8723: --l_msg_data := l_status_tab(1);
8724: l_return_status := FND_API.G_RET_STS_ERROR;
8725:
8726: /* Stamp rejection reason in PA_SPF */
8727: insert_rejection_reason_spf (
8728: p_project_id => G_ProjLvlGlobRec.project_id,
8732: x_return_status => l_return_status,
8733: x_msg_count => l_msg_count,
8734: x_msg_data => l_msg_data) ;
8735:
8736: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8737:
8738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8739:
8740: ELSE
8734: x_msg_data => l_msg_data) ;
8735:
8736: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8737:
8738: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8739:
8740: ELSE
8741:
8742: l_msg_data := l_status_tab(1);
8739:
8740: ELSE
8741:
8742: l_msg_data := l_status_tab(1);
8743: l_return_status := FND_API.G_RET_STS_ERROR;
8744:
8745: RAISE FND_API.G_EXC_ERROR;
8746:
8747: END IF;
8741:
8742: l_msg_data := l_status_tab(1);
8743: l_return_status := FND_API.G_RET_STS_ERROR;
8744:
8745: RAISE FND_API.G_EXC_ERROR;
8746:
8747: END IF;
8748:
8749:
8991: IF (NVL(l_InvOvrFndFlag,'N') ='Y') AND (nvl(l_RevaluationIndex,1)=1) THEN /* Added AND condition for bug 3532963
8992:
8993: ROLLBACK;
8994:
8995: l_return_status := FND_API.G_RET_STS_ERROR;
8996:
8997: /* Stamp rejection reason in PA_SPF
8998:
8999: insert_rejection_reason_spf (
9004: x_return_status => l_return_status,
9005: x_msg_count => l_msg_count,
9006: x_msg_data => l_msg_data) ;
9007:
9008: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9009:
9010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9011:
9012: ELSE
9006: x_msg_data => l_msg_data) ;
9007:
9008: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9009:
9010: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9011:
9012: ELSE
9013:
9014: l_msg_data := 'Invoiced amount exceeds the funded amount';
9011:
9012: ELSE
9013:
9014: l_msg_data := 'Invoiced amount exceeds the funded amount';
9015: l_return_status := FND_API.G_RET_STS_ERROR;
9016:
9017: RAISE FND_API.G_EXC_ERROR;
9018:
9019: END IF;
9013:
9014: l_msg_data := 'Invoiced amount exceeds the funded amount';
9015: l_return_status := FND_API.G_RET_STS_ERROR;
9016:
9017: RAISE FND_API.G_EXC_ERROR;
9018:
9019: END IF;
9020:
9021: END IF;
9033:
9034: END IF;
9035:
9036: EXCEPTION
9037: WHEN FND_API.G_EXC_ERROR THEN
9038: x_return_status := l_return_status;
9039: x_msg_count := l_msg_count;
9040: x_msg_data := l_msg_data;
9041:
9038: x_return_status := l_return_status;
9039: x_msg_count := l_msg_count;
9040: x_msg_data := l_msg_data;
9041:
9042: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9043: x_return_status := l_return_status;
9044: x_msg_count := l_msg_count;
9045: x_msg_data := l_msg_data;
9046:
9044: x_msg_count := l_msg_count;
9045: x_msg_data := l_msg_data;
9046:
9047: WHEN OTHERS THEN
9048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9049: x_msg_count := l_msg_count;
9050: x_msg_data := SUBSTR(SQLERRM,1,100);
9051:
9052: IF G_DEBUG_MODE = 'Y' THEN
9090:
9091: l_ErrMsg VARCHAR2(250);
9092:
9093: BEGIN
9094: x_return_status := FND_API.G_RET_STS_SUCCESS;
9095: x_msg_count := 0;
9096:
9097: IF G_DEBUG_MODE = 'Y' THEN
9098:
9123: x_msg_count => l_msg_count,
9124: x_msg_data => l_msg_data) ;
9125:
9126:
9127: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9128:
9129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9130:
9131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9125:
9126:
9127: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9128:
9129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9130:
9131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9132:
9133: RAISE FND_API.G_EXC_ERROR;
9127: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9128:
9129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9130:
9131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9132:
9133: RAISE FND_API.G_EXC_ERROR;
9134:
9135: END IF;
9129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9130:
9131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9132:
9133: RAISE FND_API.G_EXC_ERROR;
9134:
9135: END IF;
9136:
9137: IF G_DEBUG_MODE = 'Y' THEN
9142: END IF;
9143:
9144: EXCEPTION
9145:
9146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9147: x_return_status := l_return_status;
9148: x_msg_count := l_msg_count;
9149: x_msg_data := l_msg_data;
9150:
9148: x_msg_count := l_msg_count;
9149: x_msg_data := l_msg_data;
9150:
9151: WHEN OTHERS THEN
9152: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9153: x_msg_count := l_msg_count;
9154: x_msg_data := SUBSTR(SQLERRM,1,100);
9155:
9156: IF G_DEBUG_MODE = 'Y' THEN
9212: l_TotalPFCAmount NUMBER;
9213: l_TotalIPCAmount NUMBER;
9214:
9215: BEGIN
9216: x_return_status := FND_API.G_RET_STS_SUCCESS;
9217: x_msg_count := 0;
9218:
9219: IF G_DEBUG_MODE = 'Y' THEN
9220:
9377: x_return_status => l_return_status,
9378: x_msg_count => l_msg_count,
9379: x_msg_data => l_msg_data);
9380:
9381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9382:
9383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9384:
9385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9379: x_msg_data => l_msg_data);
9380:
9381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9382:
9383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9384:
9385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9386:
9387: RAISE FND_API.G_EXC_ERROR;
9381: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9382:
9383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9384:
9385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9386:
9387: RAISE FND_API.G_EXC_ERROR;
9388:
9389: END IF;
9383: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9384:
9385: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9386:
9387: RAISE FND_API.G_EXC_ERROR;
9388:
9389: END IF;
9390:
9391:
9417: x_msg_count => l_msg_count,
9418: x_msg_data => l_msg_data) ;
9419:
9420:
9421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9422:
9423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9424:
9425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9419:
9420:
9421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9422:
9423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9424:
9425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9426:
9427: RAISE FND_API.G_EXC_ERROR;
9421: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9422:
9423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9424:
9425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9426:
9427: RAISE FND_API.G_EXC_ERROR;
9428:
9429: END IF;
9423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9424:
9425: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9426:
9427: RAISE FND_API.G_EXC_ERROR;
9428:
9429: END IF;
9430:
9431: /* Move projfunc_realized_loss_amt of G_RevalCompTab to
9455: x_msg_count => l_msg_count,
9456: x_msg_data => l_msg_data) ;
9457:
9458:
9459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9460:
9461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9462:
9463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9457:
9458:
9459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9460:
9461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9462:
9463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9464:
9465: RAISE FND_API.G_EXC_ERROR;
9459: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9460:
9461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9462:
9463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9464:
9465: RAISE FND_API.G_EXC_ERROR;
9466:
9467: END IF;
9461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9462:
9463: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9464:
9465: RAISE FND_API.G_EXC_ERROR;
9466:
9467: END IF;
9468:
9469: END IF; /* G_ProjLvlGlobRec.include_gains_losses_flag = 'Y' */
9492: END IF;
9493:
9494: EXCEPTION
9495:
9496: WHEN FND_API.G_EXC_ERROR THEN
9497: x_return_status := l_return_status;
9498: x_msg_count := l_msg_count;
9499: x_msg_data := l_msg_data;
9500:
9497: x_return_status := l_return_status;
9498: x_msg_count := l_msg_count;
9499: x_msg_data := l_msg_data;
9500:
9501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9502: x_return_status := l_return_status;
9503: x_msg_count := l_msg_count;
9504: x_msg_data := l_msg_data;
9505:
9503: x_msg_count := l_msg_count;
9504: x_msg_data := l_msg_data;
9505:
9506: WHEN OTHERS THEN
9507: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9508: x_msg_count := l_msg_count;
9509: x_msg_data := SUBSTR(SQLERRM,1,100);
9510:
9511: IF G_DEBUG_MODE = 'Y' THEN
9575: AND revenue_amount <> 0 */ );
9576:
9577:
9578: BEGIN
9579: x_return_status := FND_API.G_RET_STS_SUCCESS;
9580: x_msg_count := 0;
9581:
9582: IF G_DEBUG_MODE = 'Y' THEN
9583:
9725:
9726: END IF;
9727:
9728: EXCEPTION
9729: WHEN FND_API.G_EXC_ERROR THEN
9730: x_return_status := l_return_status;
9731: x_msg_count := l_msg_count;
9732: x_msg_data := l_msg_data;
9733:
9730: x_return_status := l_return_status;
9731: x_msg_count := l_msg_count;
9732: x_msg_data := l_msg_data;
9733:
9734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9735: x_return_status := l_return_status;
9736: x_msg_count := l_msg_count;
9737: x_msg_data := l_msg_data;
9738:
9736: x_msg_count := l_msg_count;
9737: x_msg_data := l_msg_data;
9738:
9739: WHEN OTHERS THEN
9740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9741: x_msg_count := l_msg_count;
9742: x_msg_data := SUBSTR(SQLERRM,1,100);
9743:
9744: IF G_DEBUG_MODE = 'Y' THEN
9789: l_AppliedAmtList ARP_PA_UTILS.r_appl_amt_list;
9790: l_SobIdIdx NUMBER;
9791:
9792: BEGIN
9793: x_return_status := FND_API.G_RET_STS_SUCCESS;
9794: x_msg_count := 0;
9795:
9796: IF G_DEBUG_MODE = 'Y' THEN
9797:
9826: x_msg_count => l_msg_count,
9827: x_msg_data => l_msg_data);
9828:
9829:
9830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9831:
9832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9833:
9834: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9828:
9829:
9830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9831:
9832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9833:
9834: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9835:
9836: RAISE FND_API.G_EXC_ERROR;
9830: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9831:
9832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9833:
9834: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9835:
9836: RAISE FND_API.G_EXC_ERROR;
9837:
9838: END IF;
9832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9833:
9834: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9835:
9836: RAISE FND_API.G_EXC_ERROR;
9837:
9838: END IF;
9839:
9840: /* AR uses acctd amount for projfunc amount and amount for transaction amount
9905:
9906: END IF;
9907:
9908: EXCEPTION
9909: WHEN FND_API.G_EXC_ERROR THEN
9910: x_return_status := l_return_status;
9911: x_msg_count := l_msg_count;
9912: x_msg_data := l_msg_data;
9913:
9910: x_return_status := l_return_status;
9911: x_msg_count := l_msg_count;
9912: x_msg_data := l_msg_data;
9913:
9914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9915: x_return_status := l_return_status;
9916: x_msg_count := l_msg_count;
9917: x_msg_data := l_msg_data;
9918:
9916: x_msg_count := l_msg_count;
9917: x_msg_data := l_msg_data;
9918:
9919: WHEN OTHERS THEN
9920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9921: x_msg_count := l_msg_count;
9922: x_msg_data := SUBSTR(SQLERRM,1,100);
9923:
9924: IF G_DEBUG_MODE = 'Y' THEN
9957:
9958: l_LogMsg VARCHAR2(250);
9959:
9960: BEGIN
9961: x_return_status := FND_API.G_RET_STS_SUCCESS;
9962: x_msg_count := 0;
9963:
9964: IF G_DEBUG_MODE = 'Y' THEN
9965:
9981: END IF;
9982:
9983: EXCEPTION
9984:
9985: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9986: x_return_status := l_return_status;
9987: x_msg_count := l_msg_count;
9988: x_msg_data := l_msg_data;
9989:
9987: x_msg_count := l_msg_count;
9988: x_msg_data := l_msg_data;
9989:
9990: WHEN OTHERS THEN
9991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9992: x_msg_count := l_msg_count;
9993: x_msg_data := SUBSTR(SQLERRM,1,100);
9994:
9995: IF G_DEBUG_MODE = 'Y' THEN
10037:
10038:
10039:
10040: BEGIN
10041: x_return_status := FND_API.G_RET_STS_SUCCESS;
10042: x_msg_count := 0;
10043:
10044: IF G_DEBUG_MODE = 'Y' THEN
10045:
10073: x_msg_count => l_msg_count,
10074: x_msg_data => l_msg_data) ;
10075:
10076:
10077: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10078:
10079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10080:
10081: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10075:
10076:
10077: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10078:
10079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10080:
10081: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10082:
10083: RAISE FND_API.G_EXC_ERROR;
10077: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10078:
10079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10080:
10081: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10082:
10083: RAISE FND_API.G_EXC_ERROR;
10084:
10085: END IF;
10079: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10080:
10081: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10082:
10083: RAISE FND_API.G_EXC_ERROR;
10084:
10085: END IF;
10086:
10087:
10107: x_msg_count => l_msg_count,
10108: x_msg_data => l_msg_data) ;
10109:
10110:
10111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10112:
10113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10114:
10115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10109:
10110:
10111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10112:
10113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10114:
10115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10116:
10117: RAISE FND_API.G_EXC_ERROR;
10111: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10112:
10113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10114:
10115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10116:
10117: RAISE FND_API.G_EXC_ERROR;
10118:
10119: END IF;
10113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10114:
10115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10116:
10117: RAISE FND_API.G_EXC_ERROR;
10118:
10119: END IF;
10120:
10121: END IF;
10128: END IF;
10129:
10130: EXCEPTION
10131:
10132: WHEN FND_API.G_EXC_ERROR THEN
10133: x_return_status := l_return_status;
10134: x_msg_count := l_msg_count;
10135: x_msg_data := l_msg_data;
10136:
10133: x_return_status := l_return_status;
10134: x_msg_count := l_msg_count;
10135: x_msg_data := l_msg_data;
10136:
10137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10138: x_return_status := l_return_status;
10139: x_msg_count := l_msg_count;
10140: x_msg_data := l_msg_data;
10141:
10139: x_msg_count := l_msg_count;
10140: x_msg_data := l_msg_data;
10141:
10142: WHEN OTHERS THEN
10143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10144: x_msg_count := l_msg_count;
10145: x_msg_data := SUBSTR(SQLERRM,1,100);
10146:
10147: IF G_DEBUG_MODE = 'Y' THEN
10212: l_ErrCode NUMBER := NULL;
10213: l_LogMsg VARCHAR2(250);
10214:
10215: BEGIN
10216: x_return_status := FND_API.G_RET_STS_SUCCESS;
10217: x_msg_count := 0;
10218:
10219: IF G_DEBUG_MODE = 'Y' THEN
10220:
10245: x_return_status => l_return_status,
10246: x_msg_count => l_msg_count,
10247: x_msg_data => l_msg_data) ;
10248:
10249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10250:
10251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10252:
10253: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10247: x_msg_data => l_msg_data) ;
10248:
10249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10250:
10251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10252:
10253: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10254:
10255: RAISE FND_API.G_EXC_ERROR;
10249: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10250:
10251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10252:
10253: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10254:
10255: RAISE FND_API.G_EXC_ERROR;
10256:
10257: END IF;
10251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10252:
10253: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10254:
10255: RAISE FND_API.G_EXC_ERROR;
10256:
10257: END IF;
10258:
10259: COMMIT; /* Commit delete for the current project */
10268: END IF;
10269:
10270: EXCEPTION
10271:
10272: WHEN FND_API.G_EXC_ERROR THEN
10273: x_return_status := l_return_status;
10274: x_msg_count := l_msg_count;
10275: x_msg_data := l_msg_data;
10276:
10273: x_return_status := l_return_status;
10274: x_msg_count := l_msg_count;
10275: x_msg_data := l_msg_data;
10276:
10277: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10278: x_return_status := l_return_status;
10279: x_msg_count := l_msg_count;
10280: x_msg_data := l_msg_data;
10281:
10279: x_msg_count := l_msg_count;
10280: x_msg_data := l_msg_data;
10281:
10282: WHEN OTHERS THEN
10283: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10284: x_msg_count := l_msg_count;
10285: x_msg_data := SUBSTR(SQLERRM,1,100);
10286:
10287: IF G_DEBUG_MODE = 'Y' THEN