137: then
138:
139: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Not all required data is set.');
140: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_NO_REQ_PAR');
141: FND_MSG_PUB.Add;
142: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
143: RAISE FND_API.G_EXC_ERROR;
144:
145: end if;
138:
139: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Not all required data is set.');
140: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_NO_REQ_PAR');
141: FND_MSG_PUB.Add;
142: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
143: RAISE FND_API.G_EXC_ERROR;
144:
145: end if;
146:
159: P_LOAN_EXT_REC.EXT_IO_FLAG is null) then
160:
161: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Not all required data is set.');
162: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_NO_REQ_PAR');
163: FND_MSG_PUB.Add;
164: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
165: RAISE FND_API.G_EXC_ERROR;
166:
167: end if;
160:
161: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Not all required data is set.');
162: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_NO_REQ_PAR');
163: FND_MSG_PUB.Add;
164: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
165: RAISE FND_API.G_EXC_ERROR;
166:
167: end if;
168:
178: l_loan_status <> 'IN_FUNDING') then
179:
180: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan status.');
181: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_LN_STATUS');
182: FND_MSG_PUB.Add;
183: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
184: RAISE FND_API.G_EXC_ERROR;
185:
186: end if;
179:
180: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan status.');
181: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_LN_STATUS');
182: FND_MSG_PUB.Add;
183: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
184: RAISE FND_API.G_EXC_ERROR;
185:
186: end if;
187:
192: if (l_extn_count > 0) then
193:
194: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: A pending extension for this loan already exists.');
195: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_ALREADY_EXTN');
196: FND_MSG_PUB.Add;
197: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
198: RAISE FND_API.G_EXC_ERROR;
199:
200: end if;
193:
194: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: A pending extension for this loan already exists.');
195: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_ALREADY_EXTN');
196: FND_MSG_PUB.Add;
197: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
198: RAISE FND_API.G_EXC_ERROR;
199:
200: end if;
201:
209: l_loan_status <> 'IN_FUNDING') then
210:
211: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan status.');
212: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_LN_STATUS');
213: FND_MSG_PUB.Add;
214: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
215: RAISE FND_API.G_EXC_ERROR;
216:
217: end if;
210:
211: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan status.');
212: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_LN_STATUS');
213: FND_MSG_PUB.Add;
214: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
215: RAISE FND_API.G_EXC_ERROR;
216:
217: end if;
218:
223: if (l_extn_status <> 'PENDING') then
224:
225: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan extension.');
226: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_EXTN');
227: FND_MSG_PUB.Add;
228: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
229: RAISE FND_API.G_EXC_ERROR;
230:
231: end if;
224:
225: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan extension.');
226: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_EXTN');
227: FND_MSG_PUB.Add;
228: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
229: RAISE FND_API.G_EXC_ERROR;
230:
231: end if;
232:
384: then
385:
386: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Not all required data is set.');
387: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_NO_REQ_PAR');
388: FND_MSG_PUB.Add;
389: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
390: RAISE FND_API.G_EXC_ERROR;
391:
392: end if;
385:
386: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Not all required data is set.');
387: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_NO_REQ_PAR');
388: FND_MSG_PUB.Add;
389: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
390: RAISE FND_API.G_EXC_ERROR;
391:
392: end if;
393:
399: then
400:
401: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Not all required data is set.');
402: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_NO_REQ_PAR');
403: FND_MSG_PUB.Add;
404: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
405: RAISE FND_API.G_EXC_ERROR;
406:
407: end if;
400:
401: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Not all required data is set.');
402: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_NO_REQ_PAR');
403: FND_MSG_PUB.Add;
404: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
405: RAISE FND_API.G_EXC_ERROR;
406:
407: end if;
408:
416: l_loan_status <> 'IN_FUNDING') then
417:
418: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan status.');
419: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_LN_STATUS');
420: FND_MSG_PUB.Add;
421: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
422: RAISE FND_API.G_EXC_ERROR;
423:
424: end if;
417:
418: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan status.');
419: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_LN_STATUS');
420: FND_MSG_PUB.Add;
421: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
422: RAISE FND_API.G_EXC_ERROR;
423:
424: end if;
425:
426: if (l_STATUS <> 'PENDING') then
427:
428: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan extension.');
429: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_EXTN');
430: FND_MSG_PUB.Add;
431: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
432: RAISE FND_API.G_EXC_ERROR;
433:
434: end if;
427:
428: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan extension.');
429: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_EXTN');
430: FND_MSG_PUB.Add;
431: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
432: RAISE FND_API.G_EXC_ERROR;
433:
434: end if;
435:
443: l_loan_status <> 'IN_FUNDING') then
444:
445: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan status.');
446: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_LN_STATUS');
447: FND_MSG_PUB.Add;
448: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
449: RAISE FND_API.G_EXC_ERROR;
450:
451: end if;
444:
445: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan status.');
446: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_LN_STATUS');
447: FND_MSG_PUB.Add;
448: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
449: RAISE FND_API.G_EXC_ERROR;
450:
451: end if;
452:
453: if (l_STATUS <> 'PENDING') then
454:
455: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan extension.');
456: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_EXTN');
457: FND_MSG_PUB.Add;
458: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
459: RAISE FND_API.G_EXC_ERROR;
460:
461: end if;
454:
455: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Invalid loan extension.');
456: FND_MESSAGE.SET_NAME('LNS', 'LNS_EXTN_INVAL_EXTN');
457: FND_MSG_PUB.Add;
458: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
459: RAISE FND_API.G_EXC_ERROR;
460:
461: end if;
462:
543: END IF;
544:
545: -- Initialize message list if p_init_msg_list is set to TRUE
546: IF FND_API.To_Boolean(p_init_msg_list) THEN
547: FND_MSG_PUB.initialize;
548: END IF;
549:
550: -- Initialize API return status to success
551: l_return_status := FND_API.G_RET_STS_SUCCESS;
739:
740: x_return_status := FND_API.G_RET_STS_SUCCESS;
741:
742: -- Standard call to get message count and if count is 1, get message info
743: FND_MSG_PUB.Count_And_Get(
744: p_encoded => FND_API.G_FALSE,
745: p_count => x_msg_count,
746: p_data => x_msg_data);
747:
750: EXCEPTION
751: WHEN FND_API.G_EXC_ERROR THEN
752: ROLLBACK TO SAVE_LOAN_EXTENSION;
753: x_return_status := FND_API.G_RET_STS_ERROR;
754: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
755: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
757: ROLLBACK TO SAVE_LOAN_EXTENSION;
758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
755: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
757: ROLLBACK TO SAVE_LOAN_EXTENSION;
758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
759: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
760: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
761: WHEN OTHERS THEN
762: ROLLBACK TO SAVE_LOAN_EXTENSION;
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
761: WHEN OTHERS THEN
762: ROLLBACK TO SAVE_LOAN_EXTENSION;
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
765: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
766: END IF;
767: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
768: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
761: WHEN OTHERS THEN
762: ROLLBACK TO SAVE_LOAN_EXTENSION;
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
765: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
766: END IF;
767: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
768: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
769: END;
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
765: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
766: END IF;
767: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
768: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
769: END;
770:
771:
921: END IF;
922:
923: -- Initialize message list if p_init_msg_list is set to TRUE
924: --IF FND_API.To_Boolean(p_init_msg_list) THEN
925: -- FND_MSG_PUB.initialize;
926: --END IF;
927:
928: -- Initialize API return status to success
929: l_return_status := FND_API.G_RET_STS_SUCCESS;
1139: FND_MESSAGE.SET_TOKEN('EXT', l_description);
1140: FND_MESSAGE.SET_TOKEN('EXT_TERM', l_EXT_TERM);
1141: FND_MESSAGE.SET_TOKEN('EXT_TERM_PERIOD', lns_utility_pub.get_lookup_meaning('PERIOD', l_EXT_TERM_PERIOD));
1142: FND_MESSAGE.SET_TOKEN('NEW_MATURITY_DATE', l_NEW_MATURITY_DATE);
1143: FND_MSG_PUB.Add;
1144: l_agreement_reason := FND_MSG_PUB.Get(p_encoded => 'F');
1145: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
1146:
1147: LNS_REP_UTILS.STORE_LOAN_AGREEMENT_CP(l_LOAN_ID, l_agreement_reason);
1140: FND_MESSAGE.SET_TOKEN('EXT_TERM', l_EXT_TERM);
1141: FND_MESSAGE.SET_TOKEN('EXT_TERM_PERIOD', lns_utility_pub.get_lookup_meaning('PERIOD', l_EXT_TERM_PERIOD));
1142: FND_MESSAGE.SET_TOKEN('NEW_MATURITY_DATE', l_NEW_MATURITY_DATE);
1143: FND_MSG_PUB.Add;
1144: l_agreement_reason := FND_MSG_PUB.Get(p_encoded => 'F');
1145: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
1146:
1147: LNS_REP_UTILS.STORE_LOAN_AGREEMENT_CP(l_LOAN_ID, l_agreement_reason);
1148:
1141: FND_MESSAGE.SET_TOKEN('EXT_TERM_PERIOD', lns_utility_pub.get_lookup_meaning('PERIOD', l_EXT_TERM_PERIOD));
1142: FND_MESSAGE.SET_TOKEN('NEW_MATURITY_DATE', l_NEW_MATURITY_DATE);
1143: FND_MSG_PUB.Add;
1144: l_agreement_reason := FND_MSG_PUB.Get(p_encoded => 'F');
1145: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
1146:
1147: LNS_REP_UTILS.STORE_LOAN_AGREEMENT_CP(l_LOAN_ID, l_agreement_reason);
1148:
1149: if P_COMMIT = FND_API.G_TRUE then
1153:
1154: x_return_status := FND_API.G_RET_STS_SUCCESS;
1155:
1156: -- Standard call to get message count and if count is 1, get message info
1157: FND_MSG_PUB.Count_And_Get(
1158: p_encoded => FND_API.G_FALSE,
1159: p_count => x_msg_count,
1160: p_data => x_msg_data);
1161:
1164: EXCEPTION
1165: WHEN FND_API.G_EXC_ERROR THEN
1166: ROLLBACK TO APPROVE_LOAN_EXTENSION;
1167: x_return_status := FND_API.G_RET_STS_ERROR;
1168: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1169: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1171: ROLLBACK TO APPROVE_LOAN_EXTENSION;
1172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1169: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1171: ROLLBACK TO APPROVE_LOAN_EXTENSION;
1172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1174: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1175: WHEN OTHERS THEN
1176: ROLLBACK TO APPROVE_LOAN_EXTENSION;
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1174: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1175: WHEN OTHERS THEN
1176: ROLLBACK TO APPROVE_LOAN_EXTENSION;
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1178: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1179: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
1180: END IF;
1181: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1182: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1175: WHEN OTHERS THEN
1176: ROLLBACK TO APPROVE_LOAN_EXTENSION;
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1178: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1179: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
1180: END IF;
1181: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1182: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1183: END;
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1178: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1179: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
1180: END IF;
1181: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1182: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1183: END;
1184:
1185:
1256: END IF;
1257:
1258: -- Initialize message list if p_init_msg_list is set to TRUE
1259: --IF FND_API.To_Boolean(p_init_msg_list) THEN
1260: -- FND_MSG_PUB.initialize;
1261: --END IF;
1262:
1263: -- Initialize API return status to success
1264: l_return_status := FND_API.G_RET_STS_SUCCESS;
1289:
1290: x_return_status := FND_API.G_RET_STS_SUCCESS;
1291:
1292: -- Standard call to get message count and if count is 1, get message info
1293: FND_MSG_PUB.Count_And_Get(
1294: p_encoded => FND_API.G_FALSE,
1295: p_count => x_msg_count,
1296: p_data => x_msg_data);
1297:
1300: EXCEPTION
1301: WHEN FND_API.G_EXC_ERROR THEN
1302: ROLLBACK TO REJECT_LOAN_EXTENSION;
1303: x_return_status := FND_API.G_RET_STS_ERROR;
1304: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1305: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1307: ROLLBACK TO REJECT_LOAN_EXTENSION;
1308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1305: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1307: ROLLBACK TO REJECT_LOAN_EXTENSION;
1308: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1309: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1310: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1311: WHEN OTHERS THEN
1312: ROLLBACK TO REJECT_LOAN_EXTENSION;
1313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1310: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1311: WHEN OTHERS THEN
1312: ROLLBACK TO REJECT_LOAN_EXTENSION;
1313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1314: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1315: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
1316: END IF;
1317: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1311: WHEN OTHERS THEN
1312: ROLLBACK TO REJECT_LOAN_EXTENSION;
1313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1314: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1315: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
1316: END IF;
1317: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1319: END;
1313: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1314: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1315: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
1316: END IF;
1317: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1319: END;
1320:
1321:
1458: END IF;
1459:
1460: -- Initialize message list if p_init_msg_list is set to TRUE
1461: --IF FND_API.To_Boolean(p_init_msg_list) THEN
1462: -- FND_MSG_PUB.initialize;
1463: --END IF;
1464:
1465: -- Initialize API return status to success
1466: l_return_status := FND_API.G_RET_STS_SUCCESS;
1702: if (P_NEW_TERM_REC.NEW_AMORT_TERM < P_NEW_TERM_REC.NEW_TERM) then
1703:
1704: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Loan amortized term cannot be less than loan term.');
1705: FND_MESSAGE.SET_NAME('LNS', 'LNS_LOAN_TERM_INVALID');
1706: FND_MSG_PUB.Add;
1707: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1708: RAISE FND_API.G_EXC_ERROR;
1709:
1710: end if;
1703:
1704: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Loan amortized term cannot be less than loan term.');
1705: FND_MESSAGE.SET_NAME('LNS', 'LNS_LOAN_TERM_INVALID');
1706: FND_MSG_PUB.Add;
1707: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1708: RAISE FND_API.G_EXC_ERROR;
1709:
1710: end if;
1711:
1718: */
1719: x_return_status := FND_API.G_RET_STS_SUCCESS;
1720:
1721: -- Standard call to get message count and if count is 1, get message info
1722: FND_MSG_PUB.Count_And_Get(
1723: p_encoded => FND_API.G_FALSE,
1724: p_count => x_msg_count,
1725: p_data => x_msg_data);
1726:
1729: EXCEPTION
1730: WHEN FND_API.G_EXC_ERROR THEN
1731: --ROLLBACK TO CALC_NEW_TERMS;
1732: x_return_status := FND_API.G_RET_STS_ERROR;
1733: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1734: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In exception');
1735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1736: --ROLLBACK TO CALC_NEW_TERMS;
1737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1734: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In exception');
1735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1736: --ROLLBACK TO CALC_NEW_TERMS;
1737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1738: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1739: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In exception');
1740: WHEN OTHERS THEN
1741: --ROLLBACK TO CALC_NEW_TERMS;
1742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In exception');
1740: WHEN OTHERS THEN
1741: --ROLLBACK TO CALC_NEW_TERMS;
1742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1743: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1744: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
1745: END IF;
1746: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1747: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In exception');
1740: WHEN OTHERS THEN
1741: --ROLLBACK TO CALC_NEW_TERMS;
1742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1743: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1744: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
1745: END IF;
1746: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1747: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In exception');
1748: END;
1742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1743: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1744: FND_MSG_PUB.Add_Exc_Msg(l_api_name);
1745: END IF;
1746: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1747: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In exception');
1748: END;
1749:
1750: