572: END IF;
573:
574: -- Initialize message list if p_init_msg_list is set to TRUE
575: IF FND_API.To_Boolean(p_init_msg_list) THEN
576: FND_MSG_PUB.initialize;
577: END IF;
578:
579: -- Initialize API return status to success
580: l_return_status := FND_API.G_RET_STS_SUCCESS;
788: -- END OF BODY OF API
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
790:
791: -- Standard call to get message count and if count is 1, get message info
792: FND_MSG_PUB.Count_And_Get(
793: p_encoded => FND_API.G_FALSE,
794: p_count => x_msg_count,
795: p_data => x_msg_data);
796:
800: EXCEPTION
801: WHEN FND_API.G_EXC_ERROR THEN
802: ROLLBACK TO PROCESS_SINGLE_LOAN_PVT;
803: x_return_status := FND_API.G_RET_STS_ERROR;
804: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
805: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked borrower');
806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807: ROLLBACK TO PROCESS_SINGLE_LOAN_PVT;
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
805: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked borrower');
806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
807: ROLLBACK TO PROCESS_SINGLE_LOAN_PVT;
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
810: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked borrower');
811: WHEN OTHERS THEN
812: ROLLBACK TO PROCESS_SINGLE_LOAN_PVT;
813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
810: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked borrower');
811: WHEN OTHERS THEN
812: ROLLBACK TO PROCESS_SINGLE_LOAN_PVT;
813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
814: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
815: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
816: END IF;
817: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
818: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked borrower');
811: WHEN OTHERS THEN
812: ROLLBACK TO PROCESS_SINGLE_LOAN_PVT;
813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
814: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
815: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
816: END IF;
817: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
818: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked borrower');
819: END;
813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
814: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
815: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
816: END IF;
817: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
818: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked borrower');
819: END;
820:
821:
976: END IF;
977:
978: -- Initialize message list if p_init_msg_list is set to TRUE
979: IF FND_API.To_Boolean(p_init_msg_list) THEN
980: FND_MSG_PUB.initialize;
981: END IF;
982:
983: -- Initialize API return status to success
984: l_return_status := FND_API.G_RET_STS_SUCCESS;
1054: -- END OF BODY OF API
1055: x_return_status := FND_API.G_RET_STS_SUCCESS;
1056:
1057: -- Standard call to get message count and if count is 1, get message info
1058: FND_MSG_PUB.Count_And_Get(
1059: p_encoded => FND_API.G_FALSE,
1060: p_count => x_msg_count,
1061: p_data => x_msg_data);
1062:
1065: EXCEPTION
1066: WHEN FND_API.G_EXC_ERROR THEN
1067: ROLLBACK TO GENERATE_BORR_SUM;
1068: x_return_status := FND_API.G_RET_STS_ERROR;
1069: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1070: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1072: ROLLBACK TO GENERATE_BORR_SUM;
1073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1070: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1071: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1072: ROLLBACK TO GENERATE_BORR_SUM;
1073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1075: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1076: WHEN OTHERS THEN
1077: ROLLBACK TO GENERATE_BORR_SUM;
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1075: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1076: WHEN OTHERS THEN
1077: ROLLBACK TO GENERATE_BORR_SUM;
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1079: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1080: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1081: END IF;
1082: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1076: WHEN OTHERS THEN
1077: ROLLBACK TO GENERATE_BORR_SUM;
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1079: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1080: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1081: END IF;
1082: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1084: END;
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1079: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1080: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1081: END IF;
1082: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1084: END;
1085:
1086: BEGIN