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
974:
975: EXCEPTION
976:
977: WHEN OTHERS THEN
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
979: x_msg_count := l_msg_count;
980: x_msg_data := SUBSTR(SQLERRM,1,100);
981:
982: IF G_DEBUG_MODE = 'Y' THEN
1091: l_msg_data VARCHAR2(250) := NULL;
1092: l_LogMsg VARCHAR2(250);
1093:
1094: BEGIN
1095: x_return_status := FND_API.G_RET_STS_SUCCESS;
1096: x_msg_count := 0;
1097:
1098: IF G_DEBUG_MODE = 'Y' THEN
1099:
1162: x_msg_count => l_msg_count,
1163: x_msg_data => l_msg_data) ;
1164:
1165:
1166: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1167:
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169:
1170: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1164:
1165:
1166: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1167:
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169:
1170: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1171:
1172: RAISE FND_API.G_EXC_ERROR;
1166: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1167:
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169:
1170: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1171:
1172: RAISE FND_API.G_EXC_ERROR;
1173:
1174: END IF;
1168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1169:
1170: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1171:
1172: RAISE FND_API.G_EXC_ERROR;
1173:
1174: END IF;
1175:
1176: END LOOP;
1205: END IF;
1206:
1207: EXCEPTION
1208:
1209: WHEN FND_API.G_EXC_ERROR THEN
1210: x_return_status := l_return_status;
1211: x_msg_count := l_msg_count;
1212: x_msg_data := l_msg_data;
1213:
1210: x_return_status := l_return_status;
1211: x_msg_count := l_msg_count;
1212: x_msg_data := l_msg_data;
1213:
1214: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1215: x_return_status := l_return_status;
1216: x_msg_count := l_msg_count;
1217: x_msg_data := l_msg_data;
1218:
1216: x_msg_count := l_msg_count;
1217: x_msg_data := l_msg_data;
1218:
1219: WHEN OTHERS THEN
1220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1221: x_msg_count := l_msg_count;
1222: x_msg_data := SUBSTR(SQLERRM,1,100);
1223:
1224: IF G_DEBUG_MODE = 'Y' THEN
1269: WHERE lookup_type = 'FUNDING REVAL REJECTION'
1270: AND lookup_code = p_reason_code;
1271:
1272: BEGIN
1273: x_return_status := FND_API.G_RET_STS_SUCCESS;
1274: x_msg_count := 0;
1275:
1276: IF G_DEBUG_MODE = 'Y' THEN
1277:
1312: END IF;
1313:
1314: EXCEPTION
1315:
1316: WHEN FND_API.G_EXC_ERROR THEN
1317: x_return_status := l_return_status;
1318: x_msg_count := l_msg_count;
1319: x_msg_data := l_msg_data;
1320:
1317: x_return_status := l_return_status;
1318: x_msg_count := l_msg_count;
1319: x_msg_data := l_msg_data;
1320:
1321: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1322: x_return_status := l_return_status;
1323: x_msg_count := l_msg_count;
1324: x_msg_data := l_msg_data;
1325:
1323: x_msg_count := l_msg_count;
1324: x_msg_data := l_msg_data;
1325:
1326: WHEN OTHERS THEN
1327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1328: x_msg_count := l_msg_count;
1329: x_msg_data := SUBSTR(SQLERRM,1,100);
1330:
1331: IF G_DEBUG_MODE = 'Y' THEN
1458: l_ErrCode NUMBER := NULL;
1459: l_LogMsg VARCHAR2(250);
1460:
1461: BEGIN
1462: x_return_status := FND_API.G_RET_STS_SUCCESS;
1463: x_msg_count := 0;
1464:
1465: IF G_DEBUG_MODE = 'Y' THEN
1466:
1493: x_return_status => l_return_status,
1494: x_msg_count => l_msg_count,
1495: x_msg_data => l_msg_data);
1496:
1497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1498:
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500:
1501: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1495: x_msg_data => l_msg_data);
1496:
1497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1498:
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500:
1501: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1502:
1503: RAISE FND_API.G_EXC_ERROR;
1497: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1498:
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500:
1501: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1502:
1503: RAISE FND_API.G_EXC_ERROR;
1504:
1505: END IF;
1499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1500:
1501: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1502:
1503: RAISE FND_API.G_EXC_ERROR;
1504:
1505: END IF;
1506:
1507: IF G_DEBUG_MODE = 'Y' THEN
1564: get_spf_lines (x_return_status => l_return_status,
1565: x_msg_count => l_msg_count,
1566: x_msg_data => l_msg_data);
1567:
1568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1569:
1570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1571:
1572: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1566: x_msg_data => l_msg_data);
1567:
1568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1569:
1570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1571:
1572: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1573:
1574: IF G_ProjLvlGlobRec.Zero_dollar_reval_flag = 'Y' THEN
1568: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1569:
1570: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1571:
1572: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1573:
1574: IF G_ProjLvlGlobRec.Zero_dollar_reval_flag = 'Y' THEN
1575:
1576: l_ReasonCode := 'PA_FR_NO_REVALUATION';
1581: x_return_status => l_return_status,
1582: x_msg_count => l_msg_count,
1583: x_msg_data => l_msg_data) ;
1584:
1585: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1586:
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588:
1589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1583: x_msg_data => l_msg_data) ;
1584:
1585: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1586:
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588:
1589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1590:
1591: RAISE FND_API.G_EXC_ERROR;
1585: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1586:
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588:
1589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1590:
1591: RAISE FND_API.G_EXC_ERROR;
1592:
1593: END IF;
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588:
1589: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1590:
1591: RAISE FND_API.G_EXC_ERROR;
1592:
1593: END IF;
1594:
1595: ELSE
1655:
1656:
1657: EXCEPTION
1658:
1659: WHEN FND_API.G_EXC_ERROR THEN
1660: x_return_status := l_return_status;
1661: x_msg_count := l_msg_count;
1662: x_msg_data := l_msg_data;
1663:
1660: x_return_status := l_return_status;
1661: x_msg_count := l_msg_count;
1662: x_msg_data := l_msg_data;
1663:
1664: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1665: x_return_status := l_return_status;
1666: x_msg_count := l_msg_count;
1667: x_msg_data := l_msg_data;
1668:
1666: x_msg_count := l_msg_count;
1667: x_msg_data := l_msg_data;
1668:
1669: WHEN OTHERS THEN
1670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1671: x_msg_count := l_msg_count;
1672: x_msg_data := SUBSTR(SQLERRM,1,100);
1673:
1674: IF G_DEBUG_MODE = 'Y' THEN
1826: l_msg_count NUMBER := NULL;
1827: l_msg_data VARCHAR2(250) := NULL;
1828: l_LogMsg VARCHAR2(250);
1829: BEGIN
1830: x_return_status := FND_API.G_RET_STS_SUCCESS;
1831: x_msg_count := 0;
1832:
1833: IF G_DEBUG_MODE = 'Y' THEN
1834:
1906: x_msg_data => l_msg_data);
1907:
1908: G_RevalCompTab.DELETE; /* Initialize for next SPF record */
1909:
1910: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1911:
1912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1913:
1914: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1908: G_RevalCompTab.DELETE; /* Initialize for next SPF record */
1909:
1910: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1911:
1912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1913:
1914: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1915:
1916: RAISE FND_API.G_EXC_ERROR;
1910: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1911:
1912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1913:
1914: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1915:
1916: RAISE FND_API.G_EXC_ERROR;
1917:
1918: END IF;
1912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1913:
1914: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1915:
1916: RAISE FND_API.G_EXC_ERROR;
1917:
1918: END IF;
1919:
1920: END LOOP; /* l_SetOfBookIdTab */
1994: x_msg_data => l_msg_data);
1995:
1996: G_RevalCompTab.DELETE;
1997:
1998: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1999:
2000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2001:
2002: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1996: G_RevalCompTab.DELETE;
1997:
1998: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1999:
2000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2001:
2002: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2003:
2004: RAISE FND_API.G_EXC_ERROR;
1998: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1999:
2000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2001:
2002: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2003:
2004: RAISE FND_API.G_EXC_ERROR;
2005:
2006: END IF;
2000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2001:
2002: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2003:
2004: RAISE FND_API.G_EXC_ERROR;
2005:
2006: END IF;
2007:
2008: l_PrvAgrId := l_AgreementIdTab(i);
2045: x_msg_data => l_msg_data);
2046:
2047: G_RevalCompTab.DELETE;
2048:
2049: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2050:
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052:
2053: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2047: G_RevalCompTab.DELETE;
2048:
2049: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2050:
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052:
2053: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2054:
2055: RAISE FND_API.G_EXC_ERROR;
2049: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2050:
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052:
2053: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2054:
2055: RAISE FND_API.G_EXC_ERROR;
2056:
2057: END IF;
2051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2052:
2053: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2054:
2055: RAISE FND_API.G_EXC_ERROR;
2056:
2057: END IF;
2058:
2059: END IF; -- l_ThisFetch > 0
2118: x_return_status => l_return_status,
2119: x_msg_count => l_msg_count,
2120: x_msg_data => l_msg_data) ;
2121:
2122: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2123:
2124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2125:
2126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2120: x_msg_data => l_msg_data) ;
2121:
2122: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2123:
2124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2125:
2126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2127:
2128: RAISE FND_API.G_EXC_ERROR;
2122: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2123:
2124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2125:
2126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2127:
2128: RAISE FND_API.G_EXC_ERROR;
2129:
2130: END IF;
2124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2125:
2126: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2127:
2128: RAISE FND_API.G_EXC_ERROR;
2129:
2130: END IF;
2131:
2132: END IF;
2139: END IF;
2140:
2141: EXCEPTION
2142:
2143: WHEN FND_API.G_EXC_ERROR THEN
2144: x_return_status := l_return_status;
2145: x_msg_count := l_msg_count;
2146: x_msg_data := l_msg_data;
2147:
2144: x_return_status := l_return_status;
2145: x_msg_count := l_msg_count;
2146: x_msg_data := l_msg_data;
2147:
2148: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2149: x_return_status := l_return_status;
2150: x_msg_count := l_msg_count;
2151: x_msg_data := l_msg_data;
2152:
2150: x_msg_count := l_msg_count;
2151: x_msg_data := l_msg_data;
2152:
2153: WHEN OTHERS THEN
2154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2155: x_msg_count := l_msg_count;
2156: x_msg_data := SUBSTR(SQLERRM,1,100);
2157:
2158: IF G_DEBUG_MODE = 'Y' THEN
2197: l_msg_count NUMBER := NULL;
2198: l_msg_data VARCHAR2(250) := NULL;
2199: l_LogMsg VARCHAR2(250);
2200: BEGIN
2201: x_return_status := FND_API.G_RET_STS_SUCCESS;
2202: x_msg_count := 0;
2203:
2204: IF G_DEBUG_MODE = 'Y' THEN
2205:
2290: x_return_status => l_return_status,
2291: x_msg_count => l_msg_count,
2292: x_msg_data => l_msg_data);
2293:
2294: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2295:
2296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2297:
2298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2292: x_msg_data => l_msg_data);
2293:
2294: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2295:
2296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2297:
2298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299:
2300: RAISE FND_API.G_EXC_ERROR;
2294: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2295:
2296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2297:
2298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299:
2300: RAISE FND_API.G_EXC_ERROR;
2301:
2302: END IF;
2296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2297:
2298: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2299:
2300: RAISE FND_API.G_EXC_ERROR;
2301:
2302: END IF;
2303:
2304: END IF; /* G_RentApplAmtTab.COUNT */
2353: x_return_status => l_return_status,
2354: x_msg_count => l_msg_count,
2355: x_msg_data => l_msg_data);
2356:
2357: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2358:
2359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2360:
2361: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2355: x_msg_data => l_msg_data);
2356:
2357: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2358:
2359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2360:
2361: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2362:
2363: RAISE FND_API.G_EXC_ERROR;
2357: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2358:
2359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2360:
2361: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2362:
2363: RAISE FND_API.G_EXC_ERROR;
2364:
2365: END IF;
2359: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2360:
2361: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2362:
2363: RAISE FND_API.G_EXC_ERROR;
2364:
2365: END IF;
2366:
2367: ELSE
2373: x_return_status => l_return_status,
2374: x_msg_count => l_msg_count,
2375: x_msg_data => l_msg_data);
2376:
2377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2378:
2379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2380:
2381: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2375: x_msg_data => l_msg_data);
2376:
2377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2378:
2379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2380:
2381: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2382:
2383: RAISE FND_API.G_EXC_ERROR;
2377: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2378:
2379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2380:
2381: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2382:
2383: RAISE FND_API.G_EXC_ERROR;
2384:
2385: END IF;
2379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2380:
2381: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2382:
2383: RAISE FND_API.G_EXC_ERROR;
2384:
2385: END IF;
2386:
2387: END IF; /* IF (G_ProjLvlGlobRec.include_gains_losses_flag = 'Y') */
2397: x_return_status => l_return_status,
2398: x_msg_count => l_msg_count,
2399: x_msg_data => l_msg_data);
2400:
2401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2402:
2403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2404:
2405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2399: x_msg_data => l_msg_data);
2400:
2401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2402:
2403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2404:
2405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2406:
2407: RAISE FND_API.G_EXC_ERROR;
2401: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2402:
2403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2404:
2405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2406:
2407: RAISE FND_API.G_EXC_ERROR;
2408:
2409: END IF;
2403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2404:
2405: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2406:
2407: RAISE FND_API.G_EXC_ERROR;
2408:
2409: END IF;
2410:
2411: create_adjustment_line (
2412: x_return_status => l_return_status,
2413: x_msg_count => l_msg_count,
2414: x_msg_data => l_msg_data);
2415:
2416: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2417:
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419:
2420: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2414: x_msg_data => l_msg_data);
2415:
2416: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2417:
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419:
2420: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2421:
2422: RAISE FND_API.G_EXC_ERROR;
2416: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2417:
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419:
2420: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2421:
2422: RAISE FND_API.G_EXC_ERROR;
2423:
2424: END IF;
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419:
2420: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2421:
2422: RAISE FND_API.G_EXC_ERROR;
2423:
2424: END IF;
2425:
2426: IF G_DEBUG_MODE = 'Y' THEN
2431: END IF;
2432:
2433: EXCEPTION
2434:
2435: WHEN FND_API.G_EXC_ERROR THEN
2436: x_return_status := l_return_status;
2437: x_msg_count := l_msg_count;
2438: x_msg_data := l_msg_data;
2439:
2436: x_return_status := l_return_status;
2437: x_msg_count := l_msg_count;
2438: x_msg_data := l_msg_data;
2439:
2440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2441: x_return_status := l_return_status;
2442: x_msg_count := l_msg_count;
2443: x_msg_data := l_msg_data;
2444:
2442: x_msg_count := l_msg_count;
2443: x_msg_data := l_msg_data;
2444:
2445: WHEN OTHERS THEN
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: x_msg_count := l_msg_count;
2448: x_msg_data := SUBSTR(SQLERRM,1,100);
2449:
2450: IF G_DEBUG_MODE = 'Y' THEN
2637: l_LogMsg VARCHAR2(250);
2638: l_InvoiceStatus VARCHAR2(30);
2639:
2640: BEGIN
2641: x_return_status := FND_API.G_RET_STS_SUCCESS;
2642: x_msg_count := 0;
2643:
2644: IF G_DEBUG_MODE = 'Y' THEN
2645:
2720: x_msg_data => l_msg_data);
2721:
2722: l_RetnInvTab.DELETE;
2723:
2724: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2725:
2726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2727:
2728: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2722: l_RetnInvTab.DELETE;
2723:
2724: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2725:
2726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2727:
2728: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2729:
2730: RAISE FND_API.G_EXC_ERROR;
2724: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2725:
2726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2727:
2728: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2729:
2730: RAISE FND_API.G_EXC_ERROR;
2731:
2732: END IF;
2726: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2727:
2728: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2729:
2730: RAISE FND_API.G_EXC_ERROR;
2731:
2732: END IF;
2733:
2734: END LOOP; /*SetOfBookIdTab */
2805: x_msg_data => l_msg_data);
2806:
2807: l_RetnInvTab.DELETE;
2808:
2809: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2810:
2811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2812:
2813: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2807: l_RetnInvTab.DELETE;
2808:
2809: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2810:
2811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2812:
2813: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2814:
2815: RAISE FND_API.G_EXC_ERROR;
2809: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2810:
2811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2812:
2813: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2814:
2815: RAISE FND_API.G_EXC_ERROR;
2816:
2817: END IF;
2811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2812:
2813: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2814:
2815: RAISE FND_API.G_EXC_ERROR;
2816:
2817: END IF;
2818:
2819: l_PrvInvNum := l_DraftInvNumTab(i);
2860: x_msg_data => l_msg_data);
2861:
2862: l_RetnInvTab.DELETE;
2863:
2864: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2865:
2866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2867:
2868: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2862: l_RetnInvTab.DELETE;
2863:
2864: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2865:
2866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2867:
2868: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2869:
2870: RAISE FND_API.G_EXC_ERROR;
2864: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2865:
2866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2867:
2868: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2869:
2870: RAISE FND_API.G_EXC_ERROR;
2871:
2872: END IF;
2866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2867:
2868: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2869:
2870: RAISE FND_API.G_EXC_ERROR;
2871:
2872: END IF;
2873:
2874: END IF; -- l_ThisFetch > 0
2906: END IF;
2907:
2908: EXCEPTION
2909:
2910: WHEN FND_API.G_EXC_ERROR THEN
2911: x_return_status := l_return_status;
2912: x_msg_count := l_msg_count;
2913: x_msg_data := l_msg_data;
2914:
2911: x_return_status := l_return_status;
2912: x_msg_count := l_msg_count;
2913: x_msg_data := l_msg_data;
2914:
2915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2916: x_return_status := l_return_status;
2917: x_msg_count := l_msg_count;
2918: x_msg_data := l_msg_data;
2919:
2917: x_msg_count := l_msg_count;
2918: x_msg_data := l_msg_data;
2919:
2920: WHEN OTHERS THEN
2921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2922: x_msg_count := l_msg_count;
2923: x_msg_data := SUBSTR(SQLERRM,1,100);
2924:
2925: IF G_DEBUG_MODE = 'Y' THEN
2981:
2982: l_SobIdIdx NUMBER;
2983: BEGIN
2984:
2985: x_return_status := FND_API.G_RET_STS_SUCCESS;
2986: x_msg_count := 0;
2987:
2988: IF G_DEBUG_MODE = 'Y' THEN
2989:
3025: x_return_status => l_return_status,
3026: x_msg_count => l_msg_count,
3027: x_msg_data => l_msg_data);
3028:
3029: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3030:
3031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3032:
3033: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3027: x_msg_data => l_msg_data);
3028:
3029: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3030:
3031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3032:
3033: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3034:
3035: RAISE FND_API.G_EXC_ERROR;
3029: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3030:
3031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3032:
3033: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3034:
3035: RAISE FND_API.G_EXC_ERROR;
3036:
3037: END IF;
3031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3032:
3033: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3034:
3035: RAISE FND_API.G_EXC_ERROR;
3036:
3037: END IF;
3038:
3039: ELSE
3213: END IF;
3214:
3215: EXCEPTION
3216:
3217: WHEN FND_API.G_EXC_ERROR THEN
3218: x_return_status := l_return_status;
3219: x_msg_count := l_msg_count;
3220: x_msg_data := l_msg_data;
3221:
3218: x_return_status := l_return_status;
3219: x_msg_count := l_msg_count;
3220: x_msg_data := l_msg_data;
3221:
3222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3223: x_return_status := l_return_status;
3224: x_msg_count := l_msg_count;
3225: x_msg_data := l_msg_data;
3226:
3224: x_msg_count := l_msg_count;
3225: x_msg_data := l_msg_data;
3226:
3227: WHEN OTHERS THEN
3228: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3229: x_msg_count := l_msg_count;
3230: x_msg_data := SUBSTR(SQLERRM,1,100);
3231: G_RetnApplAmtTab(l_SobId).error_status := x_msg_data;
3232:
3852: l_msg_count NUMBER := NULL;
3853: l_msg_data VARCHAR2(250) := NULL;
3854: l_LogMsg VARCHAR2(250);
3855: BEGIN
3856: x_return_status := FND_API.G_RET_STS_SUCCESS;
3857: x_msg_count := 0;
3858:
3859: IF G_DEBUG_MODE = 'Y' THEN
3860:
3977: x_msg_data => l_msg_data);
3978:
3979: l_InvTab.DELETE;
3980:
3981: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3982:
3983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3984:
3985: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3979: l_InvTab.DELETE;
3980:
3981: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3982:
3983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3984:
3985: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3986:
3987: RAISE FND_API.G_EXC_ERROR;
3981: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3982:
3983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3984:
3985: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3986:
3987: RAISE FND_API.G_EXC_ERROR;
3988:
3989: END IF;
3983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3984:
3985: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3986:
3987: RAISE FND_API.G_EXC_ERROR;
3988:
3989: END IF;
3990:
3991: END LOOP; /*SetOfBookIdTab LOO */
4075: x_return_status => l_return_status,
4076: x_msg_count => l_msg_count,
4077: x_msg_data => l_msg_data);
4078:
4079: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4080:
4081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4082:
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4077: x_msg_data => l_msg_data);
4078:
4079: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4080:
4081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4082:
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4084:
4085: RAISE FND_API.G_EXC_ERROR;
4079: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4080:
4081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4082:
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4084:
4085: RAISE FND_API.G_EXC_ERROR;
4086:
4087: END IF;
4081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4082:
4083: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4084:
4085: RAISE FND_API.G_EXC_ERROR;
4086:
4087: END IF;
4088:
4089: l_InvTab.DELETE;
4146: x_return_status => l_return_status,
4147: x_msg_count => l_msg_count,
4148: x_msg_data => l_msg_data);
4149:
4150: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4151:
4152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4153:
4154: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4148: x_msg_data => l_msg_data);
4149:
4150: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4151:
4152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4153:
4154: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4155:
4156: RAISE FND_API.G_EXC_ERROR;
4150: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4151:
4152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4153:
4154: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4155:
4156: RAISE FND_API.G_EXC_ERROR;
4157:
4158: END IF;
4152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4153:
4154: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4155:
4156: RAISE FND_API.G_EXC_ERROR;
4157:
4158: END IF;
4159:
4160: l_InvTab.DELETE;
4247: x_return_status => l_return_status,
4248: x_msg_count => l_msg_count,
4249: x_msg_data => l_msg_data);
4250:
4251: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4252:
4253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4254:
4255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4249: x_msg_data => l_msg_data);
4250:
4251: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4252:
4253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4254:
4255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4256:
4257: RAISE FND_API.G_EXC_ERROR;
4251: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4252:
4253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4254:
4255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4256:
4257: RAISE FND_API.G_EXC_ERROR;
4258:
4259: END IF;
4253: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4254:
4255: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4256:
4257: RAISE FND_API.G_EXC_ERROR;
4258:
4259: END IF;
4260:
4261: l_InvTab.DELETE;
4315: x_return_status => l_return_status,
4316: x_msg_count => l_msg_count,
4317: x_msg_data => l_msg_data);
4318:
4319: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4320:
4321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4322:
4323: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4317: x_msg_data => l_msg_data);
4318:
4319: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4320:
4321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4322:
4323: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4324:
4325: RAISE FND_API.G_EXC_ERROR;
4319: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4320:
4321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4322:
4323: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4324:
4325: RAISE FND_API.G_EXC_ERROR;
4326:
4327: END IF;
4321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4322:
4323: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4324:
4325: RAISE FND_API.G_EXC_ERROR;
4326:
4327: END IF;
4328:
4329: l_InvTab.DELETE;
4415: x_return_status => l_return_status,
4416: x_msg_count => l_msg_count,
4417: x_msg_data => l_msg_data);
4418:
4419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4420:
4421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4422:
4423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4417: x_msg_data => l_msg_data);
4418:
4419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4420:
4421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4422:
4423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4424:
4425: RAISE FND_API.G_EXC_ERROR;
4419: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4420:
4421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4422:
4423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4424:
4425: RAISE FND_API.G_EXC_ERROR;
4426:
4427: END IF;
4421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4422:
4423: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4424:
4425: RAISE FND_API.G_EXC_ERROR;
4426:
4427: END IF;
4428:
4429: l_InvTab.DELETE;
4484: x_return_status => l_return_status,
4485: x_msg_count => l_msg_count,
4486: x_msg_data => l_msg_data);
4487:
4488: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4489:
4490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4491:
4492: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4486: x_msg_data => l_msg_data);
4487:
4488: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4489:
4490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4491:
4492: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4493:
4494: RAISE FND_API.G_EXC_ERROR;
4488: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4489:
4490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4491:
4492: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4493:
4494: RAISE FND_API.G_EXC_ERROR;
4495:
4496: END IF;
4490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4491:
4492: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4493:
4494: RAISE FND_API.G_EXC_ERROR;
4495:
4496: END IF;
4497:
4498: l_InvTab.DELETE;
4543: END IF;
4544:
4545: EXCEPTION
4546:
4547: WHEN FND_API.G_EXC_ERROR THEN
4548: x_return_status := l_return_status;
4549: x_msg_count := l_msg_count;
4550: x_msg_data := l_msg_data;
4551:
4548: x_return_status := l_return_status;
4549: x_msg_count := l_msg_count;
4550: x_msg_data := l_msg_data;
4551:
4552: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4553: x_return_status := l_return_status;
4554: x_msg_count := l_msg_count;
4555: x_msg_data := l_msg_data;
4556:
4554: x_msg_count := l_msg_count;
4555: x_msg_data := l_msg_data;
4556:
4557: WHEN OTHERS THEN
4558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4559: x_msg_count := l_msg_count;
4560: x_msg_data := SUBSTR(SQLERRM,1,100);
4561:
4562: IF G_DEBUG_MODE = 'Y' THEN
4692: l_msg_data VARCHAR2(250) := NULL;
4693: l_LogMsg VARCHAR2(250);
4694: l_SobIdIdx NUMBER;
4695: BEGIN
4696: x_return_status := FND_API.G_RET_STS_SUCCESS;
4697: x_msg_count := 0;
4698:
4699:
4700: IF G_DEBUG_MODE = 'Y' THEN
4761: x_return_status => l_return_status,
4762: x_msg_count => l_msg_count,
4763: x_msg_data => l_msg_data);
4764:
4765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4766:
4767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4768:
4769: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4763: x_msg_data => l_msg_data);
4764:
4765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4766:
4767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4768:
4769: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4770:
4771: RAISE FND_API.G_EXC_ERROR;
4765: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4766:
4767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4768:
4769: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4770:
4771: RAISE FND_API.G_EXC_ERROR;
4772:
4773: END IF;
4767: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4768:
4769: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4770:
4771: RAISE FND_API.G_EXC_ERROR;
4772:
4773: END IF;
4774:
4775: ELSE
4794: x_return_status => l_return_status,
4795: x_msg_count => l_msg_count,
4796: x_msg_data => l_msg_data);
4797:
4798: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4799:
4800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4801:
4802: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4796: x_msg_data => l_msg_data);
4797:
4798: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4799:
4800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4801:
4802: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4803:
4804: RAISE FND_API.G_EXC_ERROR;
4798: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4799:
4800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4801:
4802: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4803:
4804: RAISE FND_API.G_EXC_ERROR;
4805:
4806: END IF;
4800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4801:
4802: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4803:
4804: RAISE FND_API.G_EXC_ERROR;
4805:
4806: END IF;
4807:
4808: l_SobId := l_AdjTotTab.FIRST;
4853: x_return_status => l_return_status,
4854: x_msg_count => l_msg_count,
4855: x_msg_data => l_msg_data);
4856:
4857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4858:
4859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4860:
4861: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4855: x_msg_data => l_msg_data);
4856:
4857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4858:
4859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4860:
4861: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4862:
4863: RAISE FND_API.G_EXC_ERROR;
4857: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4858:
4859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4860:
4861: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4862:
4863: RAISE FND_API.G_EXC_ERROR;
4864:
4865: END IF;
4859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4860:
4861: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4862:
4863: RAISE FND_API.G_EXC_ERROR;
4864:
4865: END IF;
4866:
4867: FOR i in p_InvTab.first..p_InvTab.last loop
5012: x_RetainedAmtTab => l_RetainedAmtTab,
5013: x_return_status => l_return_status,
5014: x_msg_count => l_msg_count,
5015: x_msg_data => l_msg_data);
5016: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5017:
5018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5019:
5020: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5014: x_msg_count => l_msg_count,
5015: x_msg_data => l_msg_data);
5016: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5017:
5018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5019:
5020: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5021:
5022: RAISE FND_API.G_EXC_ERROR;
5016: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5017:
5018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5019:
5020: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5021:
5022: RAISE FND_API.G_EXC_ERROR;
5023:
5024: END IF;
5018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5019:
5020: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5021:
5022: RAISE FND_API.G_EXC_ERROR;
5023:
5024: END IF;
5025:
5026: END IF; /* l_PrvInvTskId <> p_InvTab(i).task_id */
5117: x_return_status => l_return_status,
5118: x_msg_count => l_msg_count,
5119: x_msg_data => l_msg_data);
5120:
5121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5122:
5123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5124:
5125: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5119: x_msg_data => l_msg_data);
5120:
5121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5122:
5123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5124:
5125: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5126:
5127: RAISE FND_API.G_EXC_ERROR;
5121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5122:
5123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5124:
5125: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5126:
5127: RAISE FND_API.G_EXC_ERROR;
5128:
5129: END IF;
5123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5124:
5125: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5126:
5127: RAISE FND_API.G_EXC_ERROR;
5128:
5129: END IF;
5130:
5131: /* Since due amount also has retention amount, when retention amount is paid
5251:
5252: ROLLBACK;
5253:
5254: --l_msg_data := l_status_tab(1);
5255: l_return_status := FND_API.G_RET_STS_ERROR;
5256:
5257: /* Stamp rejection reason in PA_SPF */
5258: insert_rejection_reason_spf (
5259: p_project_id => G_ProjLvlGlobRec.project_id,
5263: x_return_status => l_return_status,
5264: x_msg_count => l_msg_count,
5265: x_msg_data => l_msg_data) ;
5266:
5267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5268:
5269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5270:
5271: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5265: x_msg_data => l_msg_data) ;
5266:
5267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5268:
5269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5270:
5271: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5272:
5273: l_msg_data := i_status_tab(1);
5267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5268:
5269: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5270:
5271: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5272:
5273: l_msg_data := i_status_tab(1);
5274: l_return_status := FND_API.G_RET_STS_ERROR;
5275:
5270:
5271: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5272:
5273: l_msg_data := i_status_tab(1);
5274: l_return_status := FND_API.G_RET_STS_ERROR;
5275:
5276: RAISE FND_API.G_EXC_ERROR;
5277:
5278: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5272:
5273: l_msg_data := i_status_tab(1);
5274: l_return_status := FND_API.G_RET_STS_ERROR;
5275:
5276: RAISE FND_API.G_EXC_ERROR;
5277:
5278: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5279: END IF; /* i_status_tab(1) <> 'N' */
5280: l_revald_pf_inv_due_amount := l_ITC_due_amount*i_rate_tab(1);
5274: l_return_status := FND_API.G_RET_STS_ERROR;
5275:
5276: RAISE FND_API.G_EXC_ERROR;
5277:
5278: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5279: END IF; /* i_status_tab(1) <> 'N' */
5280: l_revald_pf_inv_due_amount := l_ITC_due_amount*i_rate_tab(1);
5281:
5282: l_LogMsg := 'Inv currency code :' || p_InvTab(i).inv_currency_code;
5670:
5671: ROLLBACK;
5672:
5673: --l_msg_data := l_status_tab(1);
5674: l_return_status := FND_API.G_RET_STS_ERROR;
5675:
5676: /* Stamp rejection reason in PA_SPF */
5677: insert_rejection_reason_spf (
5678: p_project_id => G_ProjLvlGlobRec.project_id,
5682: x_return_status => l_return_status,
5683: x_msg_count => l_msg_count,
5684: x_msg_data => l_msg_data) ;
5685:
5686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5687:
5688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5689:
5690: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5684: x_msg_data => l_msg_data) ;
5685:
5686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5687:
5688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5689:
5690: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5691:
5692: l_msg_data := i_status_tab(1);
5686: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5687:
5688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5689:
5690: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5691:
5692: l_msg_data := i_status_tab(1);
5693: l_return_status := FND_API.G_RET_STS_ERROR;
5694:
5689:
5690: ELSE /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5691:
5692: l_msg_data := i_status_tab(1);
5693: l_return_status := FND_API.G_RET_STS_ERROR;
5694:
5695: RAISE FND_API.G_EXC_ERROR;
5696:
5697: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5691:
5692: l_msg_data := i_status_tab(1);
5693: l_return_status := FND_API.G_RET_STS_ERROR;
5694:
5695: RAISE FND_API.G_EXC_ERROR;
5696:
5697: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5698: END IF; /* i_status_tab(1) <> 'N' */
5699:
5693: l_return_status := FND_API.G_RET_STS_ERROR;
5694:
5695: RAISE FND_API.G_EXC_ERROR;
5696:
5697: END IF; /* l_return_status = FND_API.G_RET_STS_UNEXP_ERROR */
5698: END IF; /* i_status_tab(1) <> 'N' */
5699:
5700: l_revald_pf_inv_due_amount := l_ITC_due_amount*i_rate_tab(1);
5701:
5813: END IF;
5814:
5815: EXCEPTION
5816:
5817: WHEN FND_API.G_EXC_ERROR THEN
5818: x_return_status := l_return_status;
5819: x_msg_count := l_msg_count;
5820: x_msg_data := l_msg_data;
5821:
5818: x_return_status := l_return_status;
5819: x_msg_count := l_msg_count;
5820: x_msg_data := l_msg_data;
5821:
5822: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5823: x_return_status := l_return_status;
5824: x_msg_count := l_msg_count;
5825: x_msg_data := l_msg_data;
5826:
5824: x_msg_count := l_msg_count;
5825: x_msg_data := l_msg_data;
5826:
5827: WHEN OTHERS THEN
5828: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5829: x_msg_count := l_msg_count;
5830: x_msg_data := SUBSTR(SQLERRM,1,100);
5831:
5832: IF G_DEBUG_MODE = 'Y' THEN
5933: l_FetchSize NUMBER := 50;
5934:
5935:
5936: BEGIN
5937: x_return_status := FND_API.G_RET_STS_SUCCESS;
5938: x_msg_count := 0;
5939:
5940: IF G_DEBUG_MODE = 'Y' THEN
5941:
6067: END IF;
6068:
6069: EXCEPTION
6070:
6071: WHEN FND_API.G_EXC_ERROR THEN
6072: x_return_status := l_return_status;
6073: x_msg_count := l_msg_count;
6074: x_msg_data := l_msg_data;
6075:
6072: x_return_status := l_return_status;
6073: x_msg_count := l_msg_count;
6074: x_msg_data := l_msg_data;
6075:
6076: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6077: x_return_status := l_return_status;
6078: x_msg_count := l_msg_count;
6079: x_msg_data := l_msg_data;
6080:
6078: x_msg_count := l_msg_count;
6079: x_msg_data := l_msg_data;
6080:
6081: WHEN OTHERS THEN
6082: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6083: x_msg_count := l_msg_count;
6084: x_msg_data := SUBSTR(SQLERRM,1,100);
6085:
6086: IF G_DEBUG_MODE = 'Y' THEN
6298: l_LogMsg VARCHAR2(250);
6299:
6300:
6301: BEGIN
6302: x_return_status := FND_API.G_RET_STS_SUCCESS;
6303: x_msg_count := 0;
6304:
6305: IF G_DEBUG_MODE = 'Y' THEN
6306:
6366: x_return_status => l_return_status,
6367: x_msg_count => l_msg_count,
6368: x_msg_data => l_msg_data);
6369:
6370: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6371:
6372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6373:
6374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6368: x_msg_data => l_msg_data);
6369:
6370: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6371:
6372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6373:
6374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6375:
6376: RAISE FND_API.G_EXC_ERROR;
6370: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6371:
6372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6373:
6374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6375:
6376: RAISE FND_API.G_EXC_ERROR;
6377:
6378: END IF;
6372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6373:
6374: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6375:
6376: RAISE FND_API.G_EXC_ERROR;
6377:
6378: END IF;
6379:
6380: END IF; /* l_ThisFetch > 0 */
6419: x_return_status => l_return_status,
6420: x_msg_count => l_msg_count,
6421: x_msg_data => l_msg_data);
6422:
6423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6424:
6425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6426:
6427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6421: x_msg_data => l_msg_data);
6422:
6423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6424:
6425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6426:
6427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6428:
6429: RAISE FND_API.G_EXC_ERROR;
6423: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6424:
6425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6426:
6427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6428:
6429: RAISE FND_API.G_EXC_ERROR;
6430:
6431: END IF;
6425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6426:
6427: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6428:
6429: RAISE FND_API.G_EXC_ERROR;
6430:
6431: END IF;
6432:
6433: END IF; /* l_ThisFetch > 0 */
6472: x_return_status => l_return_status,
6473: x_msg_count => l_msg_count,
6474: x_msg_data => l_msg_data);
6475:
6476: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6477:
6478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6479:
6480: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6474: x_msg_data => l_msg_data);
6475:
6476: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6477:
6478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6479:
6480: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6481:
6482: RAISE FND_API.G_EXC_ERROR;
6476: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6477:
6478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6479:
6480: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6481:
6482: RAISE FND_API.G_EXC_ERROR;
6483:
6484: END IF;
6478: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6479:
6480: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6481:
6482: RAISE FND_API.G_EXC_ERROR;
6483:
6484: END IF;
6485:
6486: END IF; /* l_ThisFetch > 0 */
6527: x_return_status => l_return_status,
6528: x_msg_count => l_msg_count,
6529: x_msg_data => l_msg_data);
6530:
6531: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6532:
6533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6534:
6535: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6529: x_msg_data => l_msg_data);
6530:
6531: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6532:
6533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6534:
6535: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6536:
6537: RAISE FND_API.G_EXC_ERROR;
6531: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6532:
6533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6534:
6535: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6536:
6537: RAISE FND_API.G_EXC_ERROR;
6538:
6539: END IF;
6533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6534:
6535: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6536:
6537: RAISE FND_API.G_EXC_ERROR;
6538:
6539: END IF;
6540:
6541: END IF; -- l_ThisFetch > 0
6580: x_return_status => l_return_status,
6581: x_msg_count => l_msg_count,
6582: x_msg_data => l_msg_data);
6583:
6584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6585:
6586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6587:
6588: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6582: x_msg_data => l_msg_data);
6583:
6584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6585:
6586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6587:
6588: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6589:
6590: RAISE FND_API.G_EXC_ERROR;
6584: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6585:
6586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6587:
6588: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6589:
6590: RAISE FND_API.G_EXC_ERROR;
6591:
6592: END IF;
6586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6587:
6588: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6589:
6590: RAISE FND_API.G_EXC_ERROR;
6591:
6592: END IF;
6593:
6594: END IF; -- l_ThisFetch > 0
6633: x_return_status => l_return_status,
6634: x_msg_count => l_msg_count,
6635: x_msg_data => l_msg_data);
6636:
6637: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6638:
6639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6640:
6641: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6635: x_msg_data => l_msg_data);
6636:
6637: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6638:
6639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6640:
6641: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6642:
6643: RAISE FND_API.G_EXC_ERROR;
6637: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6638:
6639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6640:
6641: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6642:
6643: RAISE FND_API.G_EXC_ERROR;
6644:
6645: END IF;
6639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6640:
6641: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6642:
6643: RAISE FND_API.G_EXC_ERROR;
6644:
6645: END IF;
6646:
6647: END IF; -- l_ThisFetch > 0
6674: WHEN NO_DATA_FOUND THEN
6675: x_RetainedAmtTab := l_RetainedAmtTab;
6676: NULL;
6677:
6678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6679: x_return_status := l_return_status;
6680: x_msg_count := l_msg_count;
6681: x_msg_data := l_msg_data;
6682:
6679: x_return_status := l_return_status;
6680: x_msg_count := l_msg_count;
6681: x_msg_data := l_msg_data;
6682:
6683: WHEN FND_API.G_EXC_ERROR THEN
6684: x_return_status := l_return_status;
6685: x_msg_count := l_msg_count;
6686: x_msg_data := l_msg_data;
6687:
6685: x_msg_count := l_msg_count;
6686: x_msg_data := l_msg_data;
6687:
6688: WHEN OTHERS THEN
6689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6690: x_msg_count := l_msg_count;
6691: x_msg_data := SUBSTR(SQLERRM,1,100);
6692:
6693: IF G_DEBUG_MODE = 'Y' THEN
6740: l_msg_data VARCHAR2(250) := NULL;
6741: l_LogMsg VARCHAR2(250);
6742:
6743: BEGIN
6744: x_return_status := FND_API.G_RET_STS_SUCCESS;
6745: x_msg_count := 0;
6746:
6747: IF G_DEBUG_MODE = 'Y' THEN
6748:
6790: END IF;
6791:
6792: EXCEPTION
6793:
6794: WHEN FND_API.G_EXC_ERROR THEN
6795: x_return_status := l_return_status;
6796: x_msg_count := l_msg_count;
6797: x_msg_data := l_msg_data;
6798:
6795: x_return_status := l_return_status;
6796: x_msg_count := l_msg_count;
6797: x_msg_data := l_msg_data;
6798:
6799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6800: x_return_status := l_return_status;
6801: x_msg_count := l_msg_count;
6802: x_msg_data := l_msg_data;
6803:
6801: x_msg_count := l_msg_count;
6802: x_msg_data := l_msg_data;
6803:
6804: WHEN OTHERS THEN
6805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6806: x_msg_count := l_msg_count;
6807: x_msg_data := SUBSTR(SQLERRM,1,100);
6808:
6809: IF G_DEBUG_MODE = 'Y' THEN
6873: l_RetnGainAmtPFC NUMBER := 0;
6874: l_RetnLossAmtPFC NUMBER := 0;
6875:
6876: BEGIN
6877: x_return_status := FND_API.G_RET_STS_SUCCESS;
6878: x_msg_count := 0;
6879:
6880: /* This procedure adjusts the retained amount for the given project/task/sobID of an agreement
6881: against the applied amount maintained for the project agreement in global table
6966: END IF;
6967:
6968: EXCEPTION
6969:
6970: WHEN FND_API.G_EXC_ERROR THEN
6971: x_return_status := l_return_status;
6972: x_msg_count := l_msg_count;
6973: x_msg_data := l_msg_data;
6974:
6971: x_return_status := l_return_status;
6972: x_msg_count := l_msg_count;
6973: x_msg_data := l_msg_data;
6974:
6975: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6976: x_return_status := l_return_status;
6977: x_msg_count := l_msg_count;
6978: x_msg_data := l_msg_data;
6979:
6977: x_msg_count := l_msg_count;
6978: x_msg_data := l_msg_data;
6979:
6980: WHEN OTHERS THEN
6981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6982: x_msg_count := l_msg_count;
6983: x_msg_data := SUBSTR(SQLERRM,1,100);
6984:
6985: IF G_DEBUG_MODE = 'Y' THEN
7178: l_msg_count NUMBER := NULL;
7179: l_msg_data VARCHAR2(250) := NULL;
7180: l_LogMsg VARCHAR2(250);
7181: BEGIN
7182: x_return_status := FND_API.G_RET_STS_SUCCESS;
7183: x_msg_count := 0;
7184:
7185: IF G_DEBUG_MODE = 'Y' THEN
7186:
7234: x_return_status => l_return_status,
7235: x_msg_count => l_msg_count,
7236: x_msg_data => l_msg_data);
7237:
7238: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7239:
7240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7241:
7242: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7236: x_msg_data => l_msg_data);
7237:
7238: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7239:
7240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7241:
7242: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7243:
7244: RAISE FND_API.G_EXC_ERROR;
7238: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7239:
7240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7241:
7242: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7243:
7244: RAISE FND_API.G_EXC_ERROR;
7245:
7246: END IF;
7240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7241:
7242: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7243:
7244: RAISE FND_API.G_EXC_ERROR;
7245:
7246: END IF;
7247:
7248: END IF; /* l_ThisFetch */
7296: x_return_status => l_return_status,
7297: x_msg_count => l_msg_count,
7298: x_msg_data => l_msg_data);
7299:
7300: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7301:
7302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7303:
7304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7298: x_msg_data => l_msg_data);
7299:
7300: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7301:
7302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7303:
7304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7305:
7306: RAISE FND_API.G_EXC_ERROR;
7300: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7301:
7302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7303:
7304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7305:
7306: RAISE FND_API.G_EXC_ERROR;
7307:
7308: END IF;
7302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7303:
7304: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7305:
7306: RAISE FND_API.G_EXC_ERROR;
7307:
7308: END IF;
7309:
7310: END IF; /* l_ThisFetch > 0 */
7363: x_return_status => l_return_status,
7364: x_msg_count => l_msg_count,
7365: x_msg_data => l_msg_data);
7366:
7367: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7368:
7369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7370:
7371: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7365: x_msg_data => l_msg_data);
7366:
7367: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7368:
7369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7370:
7371: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7372:
7373: RAISE FND_API.G_EXC_ERROR;
7367: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7368:
7369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7370:
7371: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7372:
7373: RAISE FND_API.G_EXC_ERROR;
7374:
7375: END IF;
7369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7370:
7371: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7372:
7373: RAISE FND_API.G_EXC_ERROR;
7374:
7375: END IF;
7376:
7377: END IF; -- l_ThisFetch > 0
7425: x_return_status => l_return_status,
7426: x_msg_count => l_msg_count,
7427: x_msg_data => l_msg_data);
7428:
7429: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7430:
7431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7432:
7433: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7427: x_msg_data => l_msg_data);
7428:
7429: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7430:
7431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7432:
7433: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7434:
7435: RAISE FND_API.G_EXC_ERROR;
7429: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7430:
7431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7432:
7433: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7434:
7435: RAISE FND_API.G_EXC_ERROR;
7436:
7437: END IF;
7431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7432:
7433: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7434:
7435: RAISE FND_API.G_EXC_ERROR;
7436:
7437: END IF;
7438:
7439: END IF; -- l_ThisFetch > 0
7467: END IF;
7468:
7469: EXCEPTION
7470:
7471: WHEN FND_API.G_EXC_ERROR THEN
7472: x_return_status := l_return_status;
7473: x_msg_count := l_msg_count;
7474: x_msg_data := l_msg_data;
7475:
7472: x_return_status := l_return_status;
7473: x_msg_count := l_msg_count;
7474: x_msg_data := l_msg_data;
7475:
7476: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7477: x_return_status := l_return_status;
7478: x_msg_count := l_msg_count;
7479: x_msg_data := l_msg_data;
7480:
7478: x_msg_count := l_msg_count;
7479: x_msg_data := l_msg_data;
7480:
7481: WHEN OTHERS THEN
7482: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7483: x_msg_count := l_msg_count;
7484: x_msg_data := SUBSTR(SQLERRM,1,100);
7485:
7486: IF G_DEBUG_MODE = 'Y' THEN
7540: l_msg_data VARCHAR2(250) := NULL;
7541: l_LogMsg VARCHAR2(250);
7542:
7543: BEGIN
7544: x_return_status := FND_API.G_RET_STS_SUCCESS;
7545: x_msg_count := 0;
7546:
7547: IF G_DEBUG_MODE = 'Y' THEN
7548:
7735: END IF;
7736:
7737: EXCEPTION
7738:
7739: WHEN FND_API.G_EXC_ERROR THEN
7740: x_return_status := l_return_status;
7741: x_msg_count := l_msg_count;
7742: x_msg_data := l_msg_data;
7743:
7740: x_return_status := l_return_status;
7741: x_msg_count := l_msg_count;
7742: x_msg_data := l_msg_data;
7743:
7744: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7745: x_return_status := l_return_status;
7746: x_msg_count := l_msg_count;
7747: x_msg_data := l_msg_data;
7748:
7746: x_msg_count := l_msg_count;
7747: x_msg_data := l_msg_data;
7748:
7749: WHEN OTHERS THEN
7750: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7751: x_msg_count := l_msg_count;
7752: x_msg_data := SUBSTR(SQLERRM,1,100);
7753:
7754: IF G_DEBUG_MODE = 'Y' THEN
7860: l_InvOvrFndFlag VARCHAR2(1) := 'N';
7861:
7862: l_McErrorFlag VARCHAR2(1);
7863: BEGIN
7864: x_return_status := FND_API.G_RET_STS_SUCCESS;
7865: x_msg_count := 0;
7866:
7867: IF G_DEBUG_MODE = 'Y' THEN
7868:
7953:
7954: ROLLBACK;
7955:
7956: --l_msg_data := l_status_tab(1);
7957: l_return_status := FND_API.G_RET_STS_ERROR;
7958:
7959: /* Stamp rejection reason in PA_SPF */
7960: insert_rejection_reason_spf (
7961: p_project_id => G_ProjLvlGlobRec.project_id,
7965: x_return_status => l_return_status,
7966: x_msg_count => l_msg_count,
7967: x_msg_data => l_msg_data) ;
7968:
7969: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7970:
7971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7972:
7973: ELSE
7967: x_msg_data => l_msg_data) ;
7968:
7969: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7970:
7971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7972:
7973: ELSE
7974:
7975: l_msg_data := l_status_tab(1);
7972:
7973: ELSE
7974:
7975: l_msg_data := l_status_tab(1);
7976: l_return_status := FND_API.G_RET_STS_ERROR;
7977:
7978: RAISE FND_API.G_EXC_ERROR;
7979:
7980: END IF;
7974:
7975: l_msg_data := l_status_tab(1);
7976: l_return_status := FND_API.G_RET_STS_ERROR;
7977:
7978: RAISE FND_API.G_EXC_ERROR;
7979:
7980: END IF;
7981:
7982: ELSE
8031: IF (l_status_tab(1) <> 'N') THEN
8032:
8033: ROLLBACK;
8034: --l_msg_data := l_status_tab(1);
8035: l_return_status := FND_API.G_RET_STS_ERROR;
8036:
8037: /* Stamp rejection reason in PA_SPF */
8038: insert_rejection_reason_spf (
8039: p_project_id => G_ProjLvlGlobRec.project_id,
8043: x_return_status => l_return_status,
8044: x_msg_count => l_msg_count,
8045: x_msg_data => l_msg_data) ;
8046:
8047: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8048:
8049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8050:
8051: ELSE
8045: x_msg_data => l_msg_data) ;
8046:
8047: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8048:
8049: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8050:
8051: ELSE
8052:
8053: l_msg_data := l_status_tab(1);
8050:
8051: ELSE
8052:
8053: l_msg_data := l_status_tab(1);
8054: l_return_status := FND_API.G_RET_STS_ERROR;
8055:
8056: RAISE FND_API.G_EXC_ERROR;
8057:
8058: END IF;
8052:
8053: l_msg_data := l_status_tab(1);
8054: l_return_status := FND_API.G_RET_STS_ERROR;
8055:
8056: RAISE FND_API.G_EXC_ERROR;
8057:
8058: END IF;
8059:
8060: ELSE
8220: P_Invproc_Backlog_amount => l_InvprocBacklogAmount,
8221: X_funding_reval_factor => l_RevaluationIndex,
8222: X_Status => l_status);
8223:
8224: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8225:
8226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8227:
8228: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8222: X_Status => l_status);
8223:
8224: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8225:
8226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8227:
8228: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8229:
8230: RAISE FND_API.G_EXC_ERROR;
8224: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8225:
8226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8227:
8228: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8229:
8230: RAISE FND_API.G_EXC_ERROR;
8231:
8232: END IF;
8226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8227:
8228: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
8229:
8230: RAISE FND_API.G_EXC_ERROR;
8231:
8232: END IF;
8233:
8234: IF G_DEBUG_MODE = 'Y' THEN
8587:
8588: ROLLBACK;
8589:
8590: --l_msg_data := l_status_tab(1);
8591: l_return_status := FND_API.G_RET_STS_ERROR;
8592:
8593: /* Stamp rejection reason in PA_SPF */
8594: insert_rejection_reason_spf (
8595: p_project_id => G_ProjLvlGlobRec.project_id,
8599: x_return_status => l_return_status,
8600: x_msg_count => l_msg_count,
8601: x_msg_data => l_msg_data) ;
8602:
8603: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8604:
8605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8606:
8607: ELSE
8601: x_msg_data => l_msg_data) ;
8602:
8603: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8604:
8605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8606:
8607: ELSE
8608:
8609: l_msg_data := l_status_tab(1);
8606:
8607: ELSE
8608:
8609: l_msg_data := l_status_tab(1);
8610: l_return_status := FND_API.G_RET_STS_ERROR;
8611:
8612: RAISE FND_API.G_EXC_ERROR;
8613:
8614: END IF;
8608:
8609: l_msg_data := l_status_tab(1);
8610: l_return_status := FND_API.G_RET_STS_ERROR;
8611:
8612: RAISE FND_API.G_EXC_ERROR;
8613:
8614: END IF;
8615:
8616: ELSE
8693: IF (l_status_tab(1) <> 'N') THEN
8694:
8695: ROLLBACK;
8696: --l_msg_data := l_status_tab(1);
8697: l_return_status := FND_API.G_RET_STS_ERROR;
8698:
8699: /* Stamp rejection reason in PA_SPF */
8700: insert_rejection_reason_spf (
8701: p_project_id => G_ProjLvlGlobRec.project_id,
8705: x_return_status => l_return_status,
8706: x_msg_count => l_msg_count,
8707: x_msg_data => l_msg_data) ;
8708:
8709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8710:
8711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8712:
8713: ELSE
8707: x_msg_data => l_msg_data) ;
8708:
8709: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8710:
8711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8712:
8713: ELSE
8714:
8715: l_msg_data := l_status_tab(1);
8712:
8713: ELSE
8714:
8715: l_msg_data := l_status_tab(1);
8716: l_return_status := FND_API.G_RET_STS_ERROR;
8717:
8718: RAISE FND_API.G_EXC_ERROR;
8719:
8720: END IF;
8714:
8715: l_msg_data := l_status_tab(1);
8716: l_return_status := FND_API.G_RET_STS_ERROR;
8717:
8718: RAISE FND_API.G_EXC_ERROR;
8719:
8720: END IF;
8721:
8722:
8958: IF (NVL(l_InvOvrFndFlag,'N') ='Y') AND (nvl(l_RevaluationIndex,1)=1) THEN /* Added AND condition for bug 3532963
8959:
8960: ROLLBACK;
8961:
8962: l_return_status := FND_API.G_RET_STS_ERROR;
8963:
8964: /* Stamp rejection reason in PA_SPF
8965:
8966: insert_rejection_reason_spf (
8971: x_return_status => l_return_status,
8972: x_msg_count => l_msg_count,
8973: x_msg_data => l_msg_data) ;
8974:
8975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8976:
8977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8978:
8979: ELSE
8973: x_msg_data => l_msg_data) ;
8974:
8975: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8976:
8977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8978:
8979: ELSE
8980:
8981: l_msg_data := 'Invoiced amount exceeds the funded amount';
8978:
8979: ELSE
8980:
8981: l_msg_data := 'Invoiced amount exceeds the funded amount';
8982: l_return_status := FND_API.G_RET_STS_ERROR;
8983:
8984: RAISE FND_API.G_EXC_ERROR;
8985:
8986: END IF;
8980:
8981: l_msg_data := 'Invoiced amount exceeds the funded amount';
8982: l_return_status := FND_API.G_RET_STS_ERROR;
8983:
8984: RAISE FND_API.G_EXC_ERROR;
8985:
8986: END IF;
8987:
8988: END IF;
9000:
9001: END IF;
9002:
9003: EXCEPTION
9004: WHEN FND_API.G_EXC_ERROR THEN
9005: x_return_status := l_return_status;
9006: x_msg_count := l_msg_count;
9007: x_msg_data := l_msg_data;
9008:
9005: x_return_status := l_return_status;
9006: x_msg_count := l_msg_count;
9007: x_msg_data := l_msg_data;
9008:
9009: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9010: x_return_status := l_return_status;
9011: x_msg_count := l_msg_count;
9012: x_msg_data := l_msg_data;
9013:
9011: x_msg_count := l_msg_count;
9012: x_msg_data := l_msg_data;
9013:
9014: WHEN OTHERS THEN
9015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9016: x_msg_count := l_msg_count;
9017: x_msg_data := SUBSTR(SQLERRM,1,100);
9018:
9019: IF G_DEBUG_MODE = 'Y' THEN
9057:
9058: l_ErrMsg VARCHAR2(250);
9059:
9060: BEGIN
9061: x_return_status := FND_API.G_RET_STS_SUCCESS;
9062: x_msg_count := 0;
9063:
9064: IF G_DEBUG_MODE = 'Y' THEN
9065:
9090: x_msg_count => l_msg_count,
9091: x_msg_data => l_msg_data) ;
9092:
9093:
9094: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9095:
9096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9097:
9098: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9092:
9093:
9094: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9095:
9096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9097:
9098: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9099:
9100: RAISE FND_API.G_EXC_ERROR;
9094: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9095:
9096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9097:
9098: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9099:
9100: RAISE FND_API.G_EXC_ERROR;
9101:
9102: END IF;
9096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9097:
9098: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9099:
9100: RAISE FND_API.G_EXC_ERROR;
9101:
9102: END IF;
9103:
9104: IF G_DEBUG_MODE = 'Y' THEN
9109: END IF;
9110:
9111: EXCEPTION
9112:
9113: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9114: x_return_status := l_return_status;
9115: x_msg_count := l_msg_count;
9116: x_msg_data := l_msg_data;
9117:
9115: x_msg_count := l_msg_count;
9116: x_msg_data := l_msg_data;
9117:
9118: WHEN OTHERS THEN
9119: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9120: x_msg_count := l_msg_count;
9121: x_msg_data := SUBSTR(SQLERRM,1,100);
9122:
9123: IF G_DEBUG_MODE = 'Y' THEN
9179: l_TotalPFCAmount NUMBER;
9180: l_TotalIPCAmount NUMBER;
9181:
9182: BEGIN
9183: x_return_status := FND_API.G_RET_STS_SUCCESS;
9184: x_msg_count := 0;
9185:
9186: IF G_DEBUG_MODE = 'Y' THEN
9187:
9344: x_return_status => l_return_status,
9345: x_msg_count => l_msg_count,
9346: x_msg_data => l_msg_data);
9347:
9348: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9349:
9350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9351:
9352: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9346: x_msg_data => l_msg_data);
9347:
9348: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9349:
9350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9351:
9352: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9353:
9354: RAISE FND_API.G_EXC_ERROR;
9348: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9349:
9350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9351:
9352: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9353:
9354: RAISE FND_API.G_EXC_ERROR;
9355:
9356: END IF;
9350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9351:
9352: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9353:
9354: RAISE FND_API.G_EXC_ERROR;
9355:
9356: END IF;
9357:
9358:
9384: x_msg_count => l_msg_count,
9385: x_msg_data => l_msg_data) ;
9386:
9387:
9388: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9389:
9390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9391:
9392: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9386:
9387:
9388: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9389:
9390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9391:
9392: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9393:
9394: RAISE FND_API.G_EXC_ERROR;
9388: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9389:
9390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9391:
9392: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9393:
9394: RAISE FND_API.G_EXC_ERROR;
9395:
9396: END IF;
9390: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9391:
9392: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9393:
9394: RAISE FND_API.G_EXC_ERROR;
9395:
9396: END IF;
9397:
9398: /* Move projfunc_realized_loss_amt of G_RevalCompTab to
9422: x_msg_count => l_msg_count,
9423: x_msg_data => l_msg_data) ;
9424:
9425:
9426: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9427:
9428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9429:
9430: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9424:
9425:
9426: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9427:
9428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9429:
9430: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9431:
9432: RAISE FND_API.G_EXC_ERROR;
9426: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9427:
9428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9429:
9430: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9431:
9432: RAISE FND_API.G_EXC_ERROR;
9433:
9434: END IF;
9428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9429:
9430: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9431:
9432: RAISE FND_API.G_EXC_ERROR;
9433:
9434: END IF;
9435:
9436: END IF; /* G_ProjLvlGlobRec.include_gains_losses_flag = 'Y' */
9459: END IF;
9460:
9461: EXCEPTION
9462:
9463: WHEN FND_API.G_EXC_ERROR THEN
9464: x_return_status := l_return_status;
9465: x_msg_count := l_msg_count;
9466: x_msg_data := l_msg_data;
9467:
9464: x_return_status := l_return_status;
9465: x_msg_count := l_msg_count;
9466: x_msg_data := l_msg_data;
9467:
9468: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9469: x_return_status := l_return_status;
9470: x_msg_count := l_msg_count;
9471: x_msg_data := l_msg_data;
9472:
9470: x_msg_count := l_msg_count;
9471: x_msg_data := l_msg_data;
9472:
9473: WHEN OTHERS THEN
9474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9475: x_msg_count := l_msg_count;
9476: x_msg_data := SUBSTR(SQLERRM,1,100);
9477:
9478: IF G_DEBUG_MODE = 'Y' THEN
9542: AND revenue_amount <> 0 */ );
9543:
9544:
9545: BEGIN
9546: x_return_status := FND_API.G_RET_STS_SUCCESS;
9547: x_msg_count := 0;
9548:
9549: IF G_DEBUG_MODE = 'Y' THEN
9550:
9692:
9693: END IF;
9694:
9695: EXCEPTION
9696: WHEN FND_API.G_EXC_ERROR THEN
9697: x_return_status := l_return_status;
9698: x_msg_count := l_msg_count;
9699: x_msg_data := l_msg_data;
9700:
9697: x_return_status := l_return_status;
9698: x_msg_count := l_msg_count;
9699: x_msg_data := l_msg_data;
9700:
9701: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9702: x_return_status := l_return_status;
9703: x_msg_count := l_msg_count;
9704: x_msg_data := l_msg_data;
9705:
9703: x_msg_count := l_msg_count;
9704: x_msg_data := l_msg_data;
9705:
9706: WHEN OTHERS THEN
9707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9708: x_msg_count := l_msg_count;
9709: x_msg_data := SUBSTR(SQLERRM,1,100);
9710:
9711: IF G_DEBUG_MODE = 'Y' THEN
9756: l_AppliedAmtList ARP_PA_UTILS.r_appl_amt_list;
9757: l_SobIdIdx NUMBER;
9758:
9759: BEGIN
9760: x_return_status := FND_API.G_RET_STS_SUCCESS;
9761: x_msg_count := 0;
9762:
9763: IF G_DEBUG_MODE = 'Y' THEN
9764:
9793: x_msg_count => l_msg_count,
9794: x_msg_data => l_msg_data);
9795:
9796:
9797: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9798:
9799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9800:
9801: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9795:
9796:
9797: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9798:
9799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9800:
9801: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9802:
9803: RAISE FND_API.G_EXC_ERROR;
9797: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9798:
9799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9800:
9801: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9802:
9803: RAISE FND_API.G_EXC_ERROR;
9804:
9805: END IF;
9799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9800:
9801: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
9802:
9803: RAISE FND_API.G_EXC_ERROR;
9804:
9805: END IF;
9806:
9807: /* AR uses acctd amount for projfunc amount and amount for transaction amount
9872:
9873: END IF;
9874:
9875: EXCEPTION
9876: WHEN FND_API.G_EXC_ERROR THEN
9877: x_return_status := l_return_status;
9878: x_msg_count := l_msg_count;
9879: x_msg_data := l_msg_data;
9880:
9877: x_return_status := l_return_status;
9878: x_msg_count := l_msg_count;
9879: x_msg_data := l_msg_data;
9880:
9881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9882: x_return_status := l_return_status;
9883: x_msg_count := l_msg_count;
9884: x_msg_data := l_msg_data;
9885:
9883: x_msg_count := l_msg_count;
9884: x_msg_data := l_msg_data;
9885:
9886: WHEN OTHERS THEN
9887: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9888: x_msg_count := l_msg_count;
9889: x_msg_data := SUBSTR(SQLERRM,1,100);
9890:
9891: IF G_DEBUG_MODE = 'Y' THEN
9924:
9925: l_LogMsg VARCHAR2(250);
9926:
9927: BEGIN
9928: x_return_status := FND_API.G_RET_STS_SUCCESS;
9929: x_msg_count := 0;
9930:
9931: IF G_DEBUG_MODE = 'Y' THEN
9932:
9948: END IF;
9949:
9950: EXCEPTION
9951:
9952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9953: x_return_status := l_return_status;
9954: x_msg_count := l_msg_count;
9955: x_msg_data := l_msg_data;
9956:
9954: x_msg_count := l_msg_count;
9955: x_msg_data := l_msg_data;
9956:
9957: WHEN OTHERS THEN
9958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9959: x_msg_count := l_msg_count;
9960: x_msg_data := SUBSTR(SQLERRM,1,100);
9961:
9962: IF G_DEBUG_MODE = 'Y' THEN
10004:
10005:
10006:
10007: BEGIN
10008: x_return_status := FND_API.G_RET_STS_SUCCESS;
10009: x_msg_count := 0;
10010:
10011: IF G_DEBUG_MODE = 'Y' THEN
10012:
10040: x_msg_count => l_msg_count,
10041: x_msg_data => l_msg_data) ;
10042:
10043:
10044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10045:
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047:
10048: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10042:
10043:
10044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10045:
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047:
10048: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10049:
10050: RAISE FND_API.G_EXC_ERROR;
10044: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10045:
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047:
10048: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10049:
10050: RAISE FND_API.G_EXC_ERROR;
10051:
10052: END IF;
10046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10047:
10048: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10049:
10050: RAISE FND_API.G_EXC_ERROR;
10051:
10052: END IF;
10053:
10054:
10074: x_msg_count => l_msg_count,
10075: x_msg_data => l_msg_data) ;
10076:
10077:
10078: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10079:
10080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10081:
10082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10076:
10077:
10078: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10079:
10080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10081:
10082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10083:
10084: RAISE FND_API.G_EXC_ERROR;
10078: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10079:
10080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10081:
10082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10083:
10084: RAISE FND_API.G_EXC_ERROR;
10085:
10086: END IF;
10080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10081:
10082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10083:
10084: RAISE FND_API.G_EXC_ERROR;
10085:
10086: END IF;
10087:
10088: END IF;
10095: END IF;
10096:
10097: EXCEPTION
10098:
10099: WHEN FND_API.G_EXC_ERROR THEN
10100: x_return_status := l_return_status;
10101: x_msg_count := l_msg_count;
10102: x_msg_data := l_msg_data;
10103:
10100: x_return_status := l_return_status;
10101: x_msg_count := l_msg_count;
10102: x_msg_data := l_msg_data;
10103:
10104: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10105: x_return_status := l_return_status;
10106: x_msg_count := l_msg_count;
10107: x_msg_data := l_msg_data;
10108:
10106: x_msg_count := l_msg_count;
10107: x_msg_data := l_msg_data;
10108:
10109: WHEN OTHERS THEN
10110: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10111: x_msg_count := l_msg_count;
10112: x_msg_data := SUBSTR(SQLERRM,1,100);
10113:
10114: IF G_DEBUG_MODE = 'Y' THEN
10179: l_ErrCode NUMBER := NULL;
10180: l_LogMsg VARCHAR2(250);
10181:
10182: BEGIN
10183: x_return_status := FND_API.G_RET_STS_SUCCESS;
10184: x_msg_count := 0;
10185:
10186: IF G_DEBUG_MODE = 'Y' THEN
10187:
10212: x_return_status => l_return_status,
10213: x_msg_count => l_msg_count,
10214: x_msg_data => l_msg_data) ;
10215:
10216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10217:
10218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10219:
10220: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10214: x_msg_data => l_msg_data) ;
10215:
10216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10217:
10218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10219:
10220: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10221:
10222: RAISE FND_API.G_EXC_ERROR;
10216: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10217:
10218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10219:
10220: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10221:
10222: RAISE FND_API.G_EXC_ERROR;
10223:
10224: END IF;
10218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10219:
10220: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10221:
10222: RAISE FND_API.G_EXC_ERROR;
10223:
10224: END IF;
10225:
10226: COMMIT; /* Commit delete for the current project */
10235: END IF;
10236:
10237: EXCEPTION
10238:
10239: WHEN FND_API.G_EXC_ERROR THEN
10240: x_return_status := l_return_status;
10241: x_msg_count := l_msg_count;
10242: x_msg_data := l_msg_data;
10243:
10240: x_return_status := l_return_status;
10241: x_msg_count := l_msg_count;
10242: x_msg_data := l_msg_data;
10243:
10244: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10245: x_return_status := l_return_status;
10246: x_msg_count := l_msg_count;
10247: x_msg_data := l_msg_data;
10248:
10246: x_msg_count := l_msg_count;
10247: x_msg_data := l_msg_data;
10248:
10249: WHEN OTHERS THEN
10250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10251: x_msg_count := l_msg_count;
10252: x_msg_data := SUBSTR(SQLERRM,1,100);
10253:
10254: IF G_DEBUG_MODE = 'Y' THEN