[Home] [Help]
527: END IF;
528:
529: -- Initialize message list if p_init_msg_list is set to TRUE
530: IF FND_API.To_Boolean(p_init_msg_list) THEN
531: FND_MSG_PUB.initialize;
532: END IF;
533:
534: -- Initialize API return status to success
535: l_return_status := FND_API.G_RET_STS_SUCCESS;
564:
565: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
566: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
567: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan_id' );
568: FND_MSG_PUB.ADD;
569: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
570: RAISE FND_API.G_EXC_ERROR;
571:
572: end if;
565: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
566: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
567: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan_id' );
568: FND_MSG_PUB.ADD;
569: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
570: RAISE FND_API.G_EXC_ERROR;
571:
572: end if;
573:
608:
609: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted disbursement header' || l_pk_id);
610:
611: -- Standard call to get message count and if count is 1, get message info
612: FND_MSG_PUB.Count_And_Get(
613: p_encoded => FND_API.G_FALSE,
614: p_count => x_msg_count,
615: p_data => x_msg_data);
616:
619: EXCEPTION
620: WHEN FND_API.G_EXC_ERROR THEN
621: ROLLBACK TO INSERT_DISB_HEADER;
622: x_return_status := FND_API.G_RET_STS_ERROR;
623: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
624: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
626: ROLLBACK TO INSERT_DISB_HEADER;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
624: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
626: ROLLBACK TO INSERT_DISB_HEADER;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
629: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
630: WHEN OTHERS THEN
631: ROLLBACK TO INSERT_DISB_HEADER;
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
629: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
630: WHEN OTHERS THEN
631: ROLLBACK TO INSERT_DISB_HEADER;
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
634: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
635: END IF;
636: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
637: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
630: WHEN OTHERS THEN
631: ROLLBACK TO INSERT_DISB_HEADER;
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
634: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
635: END IF;
636: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
637: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
638: END;
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
634: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
635: END IF;
636: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
637: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
638: END;
639:
640:
723: END IF;
724:
725: -- Initialize message list if p_init_msg_list is set to TRUE
726: IF FND_API.To_Boolean(p_init_msg_list) THEN
727: FND_MSG_PUB.initialize;
728: END IF;
729:
730: -- Initialize API return status to success
731: l_return_status := FND_API.G_RET_STS_SUCCESS;
754:
755: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
756: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
757: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
758: FND_MSG_PUB.ADD;
759: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
760: RAISE FND_API.G_EXC_ERROR;
761:
762: end if;
755: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
756: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
757: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
758: FND_MSG_PUB.ADD;
759: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
760: RAISE FND_API.G_EXC_ERROR;
761:
762: end if;
763:
770: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
771: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
772: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
773: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
774: FND_MSG_PUB.ADD;
775: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
776: RAISE FND_API.G_EXC_ERROR;
777:
778: end if;
771: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
772: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
773: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
774: FND_MSG_PUB.ADD;
775: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
776: RAISE FND_API.G_EXC_ERROR;
777:
778: end if;
779:
783:
784: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header record has already been changed');
785: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
786: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_HEADERS');
787: FND_MSG_PUB.ADD;
788: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
789: RAISE FND_API.G_EXC_ERROR;
790:
791: end if;
784: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header record has already been changed');
785: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
786: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_HEADERS');
787: FND_MSG_PUB.ADD;
788: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
789: RAISE FND_API.G_EXC_ERROR;
790:
791: end if;
792:
818:
819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated disbursement header ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
820:
821: -- Standard call to get message count and if count is 1, get message info
822: FND_MSG_PUB.Count_And_Get(
823: p_encoded => FND_API.G_FALSE,
824: p_count => x_msg_count,
825: p_data => x_msg_data);
826:
829: EXCEPTION
830: WHEN FND_API.G_EXC_ERROR THEN
831: ROLLBACK TO UPDATE_DISB_HEADER;
832: x_return_status := FND_API.G_RET_STS_ERROR;
833: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
834: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: ROLLBACK TO UPDATE_DISB_HEADER;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: ROLLBACK TO UPDATE_DISB_HEADER;
837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
839: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
840: WHEN OTHERS THEN
841: ROLLBACK TO UPDATE_DISB_HEADER;
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
839: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
840: WHEN OTHERS THEN
841: ROLLBACK TO UPDATE_DISB_HEADER;
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
843: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
844: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
845: END IF;
846: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
847: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
840: WHEN OTHERS THEN
841: ROLLBACK TO UPDATE_DISB_HEADER;
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
843: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
844: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
845: END IF;
846: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
847: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
848: END;
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
843: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
844: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
845: END IF;
846: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
847: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
848: END;
849:
850:
940: END IF;
941:
942: -- Initialize message list if p_init_msg_list is set to TRUE
943: IF FND_API.To_Boolean(p_init_msg_list) THEN
944: FND_MSG_PUB.initialize;
945: END IF;
946:
947: -- Initialize API return status to success
948: l_return_status := FND_API.G_RET_STS_SUCCESS;
958:
959: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
960: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
961: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
962: FND_MSG_PUB.ADD;
963: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
964: RAISE FND_API.G_EXC_ERROR;
965:
966: end if;
959: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
960: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
961: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
962: FND_MSG_PUB.ADD;
963: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
964: RAISE FND_API.G_EXC_ERROR;
965:
966: end if;
967:
974: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
975: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
976: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
977: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
978: FND_MSG_PUB.ADD;
979: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
980: RAISE FND_API.G_EXC_ERROR;
981:
982: end if;
975: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
976: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
977: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
978: FND_MSG_PUB.ADD;
979: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
980: RAISE FND_API.G_EXC_ERROR;
981:
982: end if;
983:
986: if l_status is not null then
987:
988: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement header. It has already been processed.');
989: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_HDR');
990: FND_MSG_PUB.ADD;
991: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
992: RAISE FND_API.G_EXC_ERROR;
993:
994: end if;
987:
988: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement header. It has already been processed.');
989: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_HDR');
990: FND_MSG_PUB.ADD;
991: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
992: RAISE FND_API.G_EXC_ERROR;
993:
994: end if;
995:
1036:
1037: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully deleted disbursement header ' || P_DISB_HEADER_ID);
1038:
1039: -- Standard call to get message count and if count is 1, get message info
1040: FND_MSG_PUB.Count_And_Get(
1041: p_encoded => FND_API.G_FALSE,
1042: p_count => x_msg_count,
1043: p_data => x_msg_data);
1044:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN
1049: ROLLBACK TO DELETE_DISB_HEADER;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1052: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1054: ROLLBACK TO DELETE_DISB_HEADER;
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1052: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1053: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1054: ROLLBACK TO DELETE_DISB_HEADER;
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1056: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1057: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1058: WHEN OTHERS THEN
1059: ROLLBACK TO DELETE_DISB_HEADER;
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1057: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1058: WHEN OTHERS THEN
1059: ROLLBACK TO DELETE_DISB_HEADER;
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1062: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1063: END IF;
1064: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1065: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1058: WHEN OTHERS THEN
1059: ROLLBACK TO DELETE_DISB_HEADER;
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1062: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1063: END IF;
1064: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1065: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1066: END;
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1062: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1063: END IF;
1064: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1065: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1066: END;
1067:
1068:
1144: END IF;
1145:
1146: -- Initialize message list if p_init_msg_list is set to TRUE
1147: IF FND_API.To_Boolean(p_init_msg_list) THEN
1148: FND_MSG_PUB.initialize;
1149: END IF;
1150:
1151: -- Initialize API return status to success
1152: l_return_status := FND_API.G_RET_STS_SUCCESS;
1178:
1179: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
1180: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1181: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
1182: FND_MSG_PUB.ADD;
1183: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1184: RAISE FND_API.G_EXC_ERROR;
1185:
1186: end if;
1179: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
1180: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1181: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
1182: FND_MSG_PUB.ADD;
1183: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1184: RAISE FND_API.G_EXC_ERROR;
1185:
1186: end if;
1187:
1188: if P_DISB_LINE_REC.LINE_PERCENT is null then
1189:
1190: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
1191: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC');
1192: FND_MSG_PUB.ADD;
1193: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1194: RAISE FND_API.G_EXC_ERROR;
1195:
1196: end if;
1189:
1190: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
1191: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC');
1192: FND_MSG_PUB.ADD;
1193: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1194: RAISE FND_API.G_EXC_ERROR;
1195:
1196: end if;
1197:
1198: if P_DISB_LINE_REC.PAYEE_PARTY_ID is null then
1199:
1200: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
1201: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
1202: FND_MSG_PUB.ADD;
1203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1204: RAISE FND_API.G_EXC_ERROR;
1205:
1206: end if;
1199:
1200: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
1201: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
1202: FND_MSG_PUB.ADD;
1203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1204: RAISE FND_API.G_EXC_ERROR;
1205:
1206: end if;
1207:
1239:
1240: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted disbursement line ' || l_pk_id);
1241:
1242: -- Standard call to get message count and if count is 1, get message info
1243: FND_MSG_PUB.Count_And_Get(
1244: p_encoded => FND_API.G_FALSE,
1245: p_count => x_msg_count,
1246: p_data => x_msg_data);
1247:
1250: EXCEPTION
1251: WHEN FND_API.G_EXC_ERROR THEN
1252: ROLLBACK TO INSERT_DISB_LINE;
1253: x_return_status := FND_API.G_RET_STS_ERROR;
1254: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1255: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1257: ROLLBACK TO INSERT_DISB_LINE;
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1255: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1257: ROLLBACK TO INSERT_DISB_LINE;
1258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1259: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1260: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1261: WHEN OTHERS THEN
1262: ROLLBACK TO INSERT_DISB_LINE;
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1260: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1261: WHEN OTHERS THEN
1262: ROLLBACK TO INSERT_DISB_LINE;
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1265: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1266: END IF;
1267: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1268: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1261: WHEN OTHERS THEN
1262: ROLLBACK TO INSERT_DISB_LINE;
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1265: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1266: END IF;
1267: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1268: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1269: END;
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1265: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1266: END IF;
1267: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1268: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1269: END;
1270:
1271:
1354: END IF;
1355:
1356: -- Initialize message list if p_init_msg_list is set to TRUE
1357: IF FND_API.To_Boolean(p_init_msg_list) THEN
1358: FND_MSG_PUB.initialize;
1359: END IF;
1360:
1361: -- Initialize API return status to success
1362: l_return_status := FND_API.G_RET_STS_SUCCESS;
1388:
1389: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1390: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1391: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1392: FND_MSG_PUB.ADD;
1393: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1394: RAISE FND_API.G_EXC_ERROR;
1395:
1396: end if;
1389: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1390: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1391: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1392: FND_MSG_PUB.ADD;
1393: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1394: RAISE FND_API.G_EXC_ERROR;
1395:
1396: end if;
1397:
1404: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement line record found');
1405: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1406: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1407: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_REC.DISB_LINE_ID), 'null'));
1408: FND_MSG_PUB.ADD;
1409: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1410: RAISE FND_API.G_EXC_ERROR;
1411:
1412: end if;
1405: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1406: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1407: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_REC.DISB_LINE_ID), 'null'));
1408: FND_MSG_PUB.ADD;
1409: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1410: RAISE FND_API.G_EXC_ERROR;
1411:
1412: end if;
1413:
1417:
1418: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line record has already been changed');
1419: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
1420: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_LINES');
1421: FND_MSG_PUB.ADD;
1422: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1423: RAISE FND_API.G_EXC_ERROR;
1424:
1425: end if;
1418: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line record has already been changed');
1419: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
1420: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_LINES');
1421: FND_MSG_PUB.ADD;
1422: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1423: RAISE FND_API.G_EXC_ERROR;
1424:
1425: end if;
1426:
1456:
1457: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated disbursement line ' || P_DISB_LINE_REC.DISB_LINE_ID);
1458:
1459: -- Standard call to get message count and if count is 1, get message info
1460: FND_MSG_PUB.Count_And_Get(
1461: p_encoded => FND_API.G_FALSE,
1462: p_count => x_msg_count,
1463: p_data => x_msg_data);
1464:
1467: EXCEPTION
1468: WHEN FND_API.G_EXC_ERROR THEN
1469: ROLLBACK TO UPDATE_DISB_LINE;
1470: x_return_status := FND_API.G_RET_STS_ERROR;
1471: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1472: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1474: ROLLBACK TO UPDATE_DISB_LINE;
1475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1472: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1473: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1474: ROLLBACK TO UPDATE_DISB_LINE;
1475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1476: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1477: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1478: WHEN OTHERS THEN
1479: ROLLBACK TO UPDATE_DISB_LINE;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1477: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1478: WHEN OTHERS THEN
1479: ROLLBACK TO UPDATE_DISB_LINE;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1482: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1483: END IF;
1484: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1485: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1478: WHEN OTHERS THEN
1479: ROLLBACK TO UPDATE_DISB_LINE;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1482: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1483: END IF;
1484: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1485: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1486: END;
1480: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1481: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1482: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1483: END IF;
1484: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1485: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1486: END;
1487:
1488:
1572: END IF;
1573:
1574: -- Initialize message list if p_init_msg_list is set to TRUE
1575: IF FND_API.To_Boolean(p_init_msg_list) THEN
1576: FND_MSG_PUB.initialize;
1577: END IF;
1578:
1579: -- Initialize API return status to success
1580: l_return_status := FND_API.G_RET_STS_SUCCESS;
1591:
1592: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1593: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1594: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1595: FND_MSG_PUB.ADD;
1596: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1597: RAISE FND_API.G_EXC_ERROR;
1598:
1599: end if;
1592: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1593: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1594: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1595: FND_MSG_PUB.ADD;
1596: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1597: RAISE FND_API.G_EXC_ERROR;
1598:
1599: end if;
1600:
1607: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement line record found');
1608: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1609: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1610: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_ID), 'null'));
1611: FND_MSG_PUB.ADD;
1612: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1613: RAISE FND_API.G_EXC_ERROR;
1614:
1615: end if;
1608: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1609: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1610: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_ID), 'null'));
1611: FND_MSG_PUB.ADD;
1612: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1613: RAISE FND_API.G_EXC_ERROR;
1614:
1615: end if;
1616:
1619: if l_status is not null then
1620:
1621: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement line. It has already been processed.');
1622: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_LN');
1623: FND_MSG_PUB.ADD;
1624: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1625: RAISE FND_API.G_EXC_ERROR;
1626:
1627: end if;
1620:
1621: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement line. It has already been processed.');
1622: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_LN');
1623: FND_MSG_PUB.ADD;
1624: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1625: RAISE FND_API.G_EXC_ERROR;
1626:
1627: end if;
1628:
1639:
1640: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully deleted disbursement line ' || P_DISB_LINE_ID);
1641:
1642: -- Standard call to get message count and if count is 1, get message info
1643: FND_MSG_PUB.Count_And_Get(
1644: p_encoded => FND_API.G_FALSE,
1645: p_count => x_msg_count,
1646: p_data => x_msg_data);
1647:
1650: EXCEPTION
1651: WHEN FND_API.G_EXC_ERROR THEN
1652: ROLLBACK TO DELETE_DISB_LINE;
1653: x_return_status := FND_API.G_RET_STS_ERROR;
1654: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1655: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1657: ROLLBACK TO DELETE_DISB_LINE;
1658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1655: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1656: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1657: ROLLBACK TO DELETE_DISB_LINE;
1658: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1659: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1660: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1661: WHEN OTHERS THEN
1662: ROLLBACK TO DELETE_DISB_LINE;
1663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1660: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1661: WHEN OTHERS THEN
1662: ROLLBACK TO DELETE_DISB_LINE;
1663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1664: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1665: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1666: END IF;
1667: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1668: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1661: WHEN OTHERS THEN
1662: ROLLBACK TO DELETE_DISB_LINE;
1663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1664: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1665: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1666: END IF;
1667: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1668: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1669: END;
1663: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1664: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1665: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1666: END IF;
1667: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1668: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1669: END;
1670:
1671:
1802: l_return_status := l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status;
1803: if (l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status = 'E') then
1804: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1805: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee' || ' Payee_Creation_Msg: ' || l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Msg);
1806: FND_MSG_PUB.ADD;
1807: RAISE FND_API.G_EXC_ERROR;
1808: end if;
1809: END LOOP;
1810:
1810:
1811: if l_return_status = 'E' then
1812: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1813: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee');
1814: FND_MSG_PUB.ADD;
1815: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1816: p_count => l_msg_count,
1817: p_data => l_msg_data);
1818: RAISE FND_API.G_EXC_ERROR;
1811: if l_return_status = 'E' then
1812: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1813: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee');
1814: FND_MSG_PUB.ADD;
1815: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1816: p_count => l_msg_count,
1817: p_data => l_msg_data);
1818: RAISE FND_API.G_EXC_ERROR;
1819: end if;
1968: END IF;
1969:
1970: -- Initialize message list if p_init_msg_list is set to TRUE
1971: IF FND_API.To_Boolean(p_init_msg_list) THEN
1972: FND_MSG_PUB.initialize;
1973: END IF;
1974:
1975: -- Initialize API return status to success
1976: l_return_status := FND_API.G_RET_STS_SUCCESS;
2016:
2017: if disb_headers_cur%NOTFOUND and l_count = 0 then
2018:
2019: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2020: FND_MSG_PUB.ADD;
2021: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2022:
2023: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
2024: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
2017: if disb_headers_cur%NOTFOUND and l_count = 0 then
2018:
2019: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2020: FND_MSG_PUB.ADD;
2021: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2022:
2023: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
2024: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
2025: FND_MSG_PUB.ADD;
2021: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2022:
2023: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
2024: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
2025: FND_MSG_PUB.ADD;
2026: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2027: RAISE FND_API.G_EXC_ERROR;
2028:
2029: elsif disb_headers_cur%NOTFOUND and l_count > 0 then
2022:
2023: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
2024: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
2025: FND_MSG_PUB.ADD;
2026: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2027: RAISE FND_API.G_EXC_ERROR;
2028:
2029: elsif disb_headers_cur%NOTFOUND and l_count > 0 then
2030: exit;
2049:
2050: if l_DISB_HEADER_REC.LOAN_ID is null then
2051:
2052: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2053: FND_MSG_PUB.ADD;
2054: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2055:
2056: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
2057: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2050: if l_DISB_HEADER_REC.LOAN_ID is null then
2051:
2052: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2053: FND_MSG_PUB.ADD;
2054: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2055:
2056: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
2057: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2058: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
2055:
2056: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
2057: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2058: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
2059: FND_MSG_PUB.ADD;
2060: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2061: RAISE FND_API.G_EXC_ERROR;
2062:
2063: end if;
2056: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
2057: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2058: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
2059: FND_MSG_PUB.ADD;
2060: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2061: RAISE FND_API.G_EXC_ERROR;
2062:
2063: end if;
2064:
2064:
2065: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
2066:
2067: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2068: FND_MSG_PUB.ADD;
2069: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2070:
2071: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2072: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2065: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
2066:
2067: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2068: FND_MSG_PUB.ADD;
2069: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2070:
2071: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2072: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2073: FND_MSG_PUB.ADD;
2069: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2070:
2071: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2072: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2073: FND_MSG_PUB.ADD;
2074: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2075: RAISE FND_API.G_EXC_ERROR;
2076:
2077: end if;
2070:
2071: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2072: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2073: FND_MSG_PUB.ADD;
2074: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2075: RAISE FND_API.G_EXC_ERROR;
2076:
2077: end if;
2078:
2078:
2079: if l_DISB_HEADER_REC.HEADER_PERCENT is null or l_DISB_HEADER_REC.HEADER_AMOUNT is null then
2080:
2081: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2082: FND_MSG_PUB.ADD;
2083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2084:
2085: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2086: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2079: if l_DISB_HEADER_REC.HEADER_PERCENT is null or l_DISB_HEADER_REC.HEADER_AMOUNT is null then
2080:
2081: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2082: FND_MSG_PUB.ADD;
2083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2084:
2085: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2086: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2087: FND_MSG_PUB.ADD;
2083: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2084:
2085: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2086: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2087: FND_MSG_PUB.ADD;
2088: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2089: RAISE FND_API.G_EXC_ERROR;
2090:
2091: end if;
2084:
2085: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2086: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2087: FND_MSG_PUB.ADD;
2088: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2089: RAISE FND_API.G_EXC_ERROR;
2090:
2091: end if;
2092:
2092:
2093: if l_DISB_HEADER_REC.TARGET_DATE is null then
2094:
2095: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2096: FND_MSG_PUB.ADD;
2097: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2098:
2099: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2100: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2093: if l_DISB_HEADER_REC.TARGET_DATE is null then
2094:
2095: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2096: FND_MSG_PUB.ADD;
2097: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2098:
2099: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2100: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2101: FND_MSG_PUB.ADD;
2097: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2098:
2099: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2100: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2101: FND_MSG_PUB.ADD;
2102: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2103: RAISE FND_API.G_EXC_ERROR;
2104:
2105: end if;
2098:
2099: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2100: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2101: FND_MSG_PUB.ADD;
2102: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2103: RAISE FND_API.G_EXC_ERROR;
2104:
2105: end if;
2106:
2107: if trunc(l_DISB_HEADER_REC.TARGET_DATE) < trunc(l_loan_start_date) then
2108:
2109: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
2110: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
2111: FND_MSG_PUB.ADD;
2112: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2113: RAISE FND_API.G_EXC_ERROR;
2114:
2115: end if;
2108:
2109: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
2110: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
2111: FND_MSG_PUB.ADD;
2112: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2113: RAISE FND_API.G_EXC_ERROR;
2114:
2115: end if;
2116:
2143: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement lines are not found');
2144: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2145: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line record');
2146: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(l_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
2147: FND_MSG_PUB.ADD;
2148: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2149: RAISE FND_API.G_EXC_ERROR;
2150:
2151: elsif disb_lines_cur%NOTFOUND and l_count1 > 0 then
2144: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2145: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line record');
2146: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(l_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
2147: FND_MSG_PUB.ADD;
2148: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2149: RAISE FND_API.G_EXC_ERROR;
2150:
2151: elsif disb_lines_cur%NOTFOUND and l_count1 > 0 then
2152: exit;
2168:
2169: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2170:
2171: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2172: FND_MSG_PUB.ADD;
2173: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2174:
2175: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2176: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2169: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2170:
2171: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2172: FND_MSG_PUB.ADD;
2173: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2174:
2175: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2176: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2177: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2174:
2175: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2176: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2177: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2178: FND_MSG_PUB.ADD;
2179: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2180: RAISE FND_API.G_EXC_ERROR;
2181:
2182: end if;
2175: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2176: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2177: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2178: FND_MSG_PUB.ADD;
2179: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2180: RAISE FND_API.G_EXC_ERROR;
2181:
2182: end if;
2183:
2183:
2184: if l_DISB_LINE_REC.LINE_PERCENT is null or l_DISB_LINE_REC.LINE_AMOUNT is null then
2185:
2186: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2187: FND_MSG_PUB.ADD;
2188: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2189:
2190: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2191: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2184: if l_DISB_LINE_REC.LINE_PERCENT is null or l_DISB_LINE_REC.LINE_AMOUNT is null then
2185:
2186: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2187: FND_MSG_PUB.ADD;
2188: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2189:
2190: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2191: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2192: FND_MSG_PUB.ADD;
2188: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2189:
2190: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2191: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2192: FND_MSG_PUB.ADD;
2193: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2194: RAISE FND_API.G_EXC_ERROR;
2195:
2196: end if;
2189:
2190: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2191: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2192: FND_MSG_PUB.ADD;
2193: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2194: RAISE FND_API.G_EXC_ERROR;
2195:
2196: end if;
2197:
2197:
2198: if l_DISB_LINE_REC.PAYEE_PARTY_ID is null then
2199:
2200: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2201: FND_MSG_PUB.ADD;
2202: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2203:
2204: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2205: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2198: if l_DISB_LINE_REC.PAYEE_PARTY_ID is null then
2199:
2200: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2201: FND_MSG_PUB.ADD;
2202: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2203:
2204: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2205: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2206: FND_MSG_PUB.ADD;
2202: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2203:
2204: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2205: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2206: FND_MSG_PUB.ADD;
2207: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2208: RAISE FND_API.G_EXC_ERROR;
2209:
2210: end if;
2203:
2204: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2205: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2206: FND_MSG_PUB.ADD;
2207: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2208: RAISE FND_API.G_EXC_ERROR;
2209:
2210: end if;
2211:
2216: -- if no record exists - error; otherwise proceed
2217: if party_site_cur%NOTFOUND then
2218:
2219: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2220: FND_MSG_PUB.ADD;
2221: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2222:
2223: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2224: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2217: if party_site_cur%NOTFOUND then
2218:
2219: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2220: FND_MSG_PUB.ADD;
2221: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2222:
2223: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2224: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2225: FND_MSG_PUB.ADD;
2221: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2222:
2223: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2224: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2225: FND_MSG_PUB.ADD;
2226: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2227: RAISE FND_API.G_EXC_ERROR;
2228:
2229: end if;
2222:
2223: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2224: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2225: FND_MSG_PUB.ADD;
2226: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2227: RAISE FND_API.G_EXC_ERROR;
2228:
2229: end if;
2230: close party_site_cur;
2240:
2241: -- checking for total percent
2242: if l_sum_percent1 <> 100 or l_running_sum1 <> l_DISB_HEADER_REC.HEADER_AMOUNT then
2243: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2244: FND_MSG_PUB.ADD;
2245: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2246:
2247: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2248: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2241: -- checking for total percent
2242: if l_sum_percent1 <> 100 or l_running_sum1 <> l_DISB_HEADER_REC.HEADER_AMOUNT then
2243: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2244: FND_MSG_PUB.ADD;
2245: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2246:
2247: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2248: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2249: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2246:
2247: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2248: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2249: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2250: FND_MSG_PUB.ADD;
2251: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2252: RAISE FND_API.G_EXC_ERROR;
2253: end if;
2254:
2247: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2248: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2249: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2250: FND_MSG_PUB.ADD;
2251: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2252: RAISE FND_API.G_EXC_ERROR;
2253: end if;
2254:
2255: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header ' || l_count || ' is OK');
2260:
2261: -- checking for total percent
2262: if l_sum_percent <> 100 or l_running_sum <> l_funded_amount then
2263: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2264: FND_MSG_PUB.ADD;
2265: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2266:
2267: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
2268: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
2261: -- checking for total percent
2262: if l_sum_percent <> 100 or l_running_sum <> l_funded_amount then
2263: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2264: FND_MSG_PUB.ADD;
2265: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2266:
2267: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
2268: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
2269: FND_MSG_PUB.ADD;
2265: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2266:
2267: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
2268: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
2269: FND_MSG_PUB.ADD;
2270: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2271: RAISE FND_API.G_EXC_ERROR;
2272: end if;
2273:
2266:
2267: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
2268: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
2269: FND_MSG_PUB.ADD;
2270: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2271: RAISE FND_API.G_EXC_ERROR;
2272: end if;
2273:
2274: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement schedule');
2276: -- END OF BODY OF API
2277: x_return_status := FND_API.G_RET_STS_SUCCESS;
2278:
2279: -- Standard call to get message count and if count is 1, get message info
2280: FND_MSG_PUB.Count_And_Get(
2281: p_encoded => FND_API.G_FALSE,
2282: p_count => x_msg_count,
2283: p_data => x_msg_data);
2284:
2286:
2287: EXCEPTION
2288: WHEN FND_API.G_EXC_ERROR THEN
2289: x_return_status := FND_API.G_RET_STS_ERROR;
2290: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2293: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2294: WHEN OTHERS THEN
2289: x_return_status := FND_API.G_RET_STS_ERROR;
2290: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2293: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2294: WHEN OTHERS THEN
2295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2296: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2297: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2292: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2293: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2294: WHEN OTHERS THEN
2295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2296: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2297: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2298: END IF;
2299: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2300:
2293: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2294: WHEN OTHERS THEN
2295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2296: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2297: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2298: END IF;
2299: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2300:
2301: END;
2295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2296: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2297: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2298: END IF;
2299: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2300:
2301: END;
2302:
2303:
2395: END IF;
2396:
2397: -- Initialize message list if p_init_msg_list is set to TRUE
2398: IF FND_API.To_Boolean(p_init_msg_list) THEN
2399: FND_MSG_PUB.initialize;
2400: END IF;
2401:
2402: -- Initialize API return status to success
2403: l_return_status := FND_API.G_RET_STS_SUCCESS;
2432: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement Header Record is not found');
2433: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2434: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header record');
2435: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
2436: FND_MSG_PUB.ADD;
2437: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2438: RAISE FND_API.G_EXC_ERROR;
2439:
2440: end if;
2433: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2434: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header record');
2435: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
2436: FND_MSG_PUB.ADD;
2437: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2438: RAISE FND_API.G_EXC_ERROR;
2439:
2440: end if;
2441:
2444: if l_DISB_HEADER_REC.ACTIVITY_CODE is null and l_DISB_HEADER_REC.DESCRIPTION is null then
2445:
2446: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2447: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2448: FND_MSG_PUB.ADD;
2449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2450: RAISE FND_API.G_EXC_ERROR;
2451:
2452: end if;
2445:
2446: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2447: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2448: FND_MSG_PUB.ADD;
2449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2450: RAISE FND_API.G_EXC_ERROR;
2451:
2452: end if;
2453:
2454: if l_DISB_HEADER_REC.HEADER_AMOUNT is null then
2455:
2456: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2457: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2458: FND_MSG_PUB.ADD;
2459: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2460: RAISE FND_API.G_EXC_ERROR;
2461:
2462: end if;
2455:
2456: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2457: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2458: FND_MSG_PUB.ADD;
2459: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2460: RAISE FND_API.G_EXC_ERROR;
2461:
2462: end if;
2463:
2465: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment request date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
2466: if l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE is null then
2467: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date is missing');
2468: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_REQ_DATE' );
2469: FND_MSG_PUB.ADD;
2470: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2471: RAISE FND_API.G_EXC_ERROR;
2472: end if;
2473:
2466: if l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE is null then
2467: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date is missing');
2468: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_REQ_DATE' );
2469: FND_MSG_PUB.ADD;
2470: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2471: RAISE FND_API.G_EXC_ERROR;
2472: end if;
2473:
2474: if trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(l_open_start_date) then
2474: if trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(l_open_start_date) then
2475:
2476: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date must be greater than open start date');
2477: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_PAY_REQ_DT_INVALID' );
2478: FND_MSG_PUB.ADD;
2479: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2480: RAISE FND_API.G_EXC_ERROR;
2481:
2482: end if;
2475:
2476: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date must be greater than open start date');
2477: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_PAY_REQ_DT_INVALID' );
2478: FND_MSG_PUB.ADD;
2479: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2480: RAISE FND_API.G_EXC_ERROR;
2481:
2482: end if;
2483:
2485: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Number of lines without payment method: ' || l_no_pay_mtd_count);
2486: if l_no_pay_mtd_count > 0 then
2487: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'There are disb lines without payment method');
2488: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_METHOD' );
2489: FND_MSG_PUB.ADD;
2490: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2491: RAISE FND_API.G_EXC_ERROR;
2492: end if;
2493:
2486: if l_no_pay_mtd_count > 0 then
2487: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'There are disb lines without payment method');
2488: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_METHOD' );
2489: FND_MSG_PUB.ADD;
2490: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2491: RAISE FND_API.G_EXC_ERROR;
2492: end if;
2493:
2494: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement header for payment request submition');
2496: -- END OF BODY OF API
2497: x_return_status := FND_API.G_RET_STS_SUCCESS;
2498:
2499: -- Standard call to get message count and if count is 1, get message info
2500: FND_MSG_PUB.Count_And_Get(
2501: p_encoded => FND_API.G_FALSE,
2502: p_count => x_msg_count,
2503: p_data => x_msg_data);
2504:
2506:
2507: EXCEPTION
2508: WHEN FND_API.G_EXC_ERROR THEN
2509: x_return_status := FND_API.G_RET_STS_ERROR;
2510: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2511: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2513: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2514: WHEN OTHERS THEN
2509: x_return_status := FND_API.G_RET_STS_ERROR;
2510: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2511: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2513: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2514: WHEN OTHERS THEN
2515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2516: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2517: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2513: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2514: WHEN OTHERS THEN
2515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2516: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2517: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2518: END IF;
2519: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2520:
2513: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2514: WHEN OTHERS THEN
2515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2516: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2517: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2518: END IF;
2519: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2520:
2521: END;
2515: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2516: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2517: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2518: END IF;
2519: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2520:
2521: END;
2522:
2523:
2655: END IF;
2656:
2657: -- Initialize message list if p_init_msg_list is set to TRUE
2658: IF FND_API.To_Boolean(p_init_msg_list) THEN
2659: FND_MSG_PUB.initialize;
2660: END IF;
2661:
2662: -- Initialize API return status to success
2663: l_return_status := FND_API.G_RET_STS_SUCCESS;
2725:
2726: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2727: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2728: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2729: FND_MSG_PUB.ADD;
2730: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2731: RAISE FND_API.G_EXC_ERROR;
2732:
2733: end if;
2726: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2727: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2728: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2729: FND_MSG_PUB.ADD;
2730: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2731: RAISE FND_API.G_EXC_ERROR;
2732:
2733: end if;
2734:
2735: if l_DISB_LINE_REC.LINE_PERCENT is null then
2736:
2737: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2738: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2739: FND_MSG_PUB.ADD;
2740: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2741: RAISE FND_API.G_EXC_ERROR;
2742:
2743: end if;
2736:
2737: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2738: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2739: FND_MSG_PUB.ADD;
2740: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2741: RAISE FND_API.G_EXC_ERROR;
2742:
2743: end if;
2744:
2745: if l_DISB_LINE_REC.PAYEE_PARTY_ID is null then
2746:
2747: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2748: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2749: FND_MSG_PUB.ADD;
2750: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2751: RAISE FND_API.G_EXC_ERROR;
2752:
2753: end if;
2746:
2747: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2748: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2749: FND_MSG_PUB.ADD;
2750: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2751: RAISE FND_API.G_EXC_ERROR;
2752:
2753: end if;
2754:
2761: if party_site_cur%NOTFOUND then
2762:
2763: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2764: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2765: FND_MSG_PUB.ADD;
2766: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2767: RAISE FND_API.G_EXC_ERROR;
2768:
2769: end if;
2762:
2763: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2764: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2765: FND_MSG_PUB.ADD;
2766: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2767: RAISE FND_API.G_EXC_ERROR;
2768:
2769: end if;
2770: close party_site_cur;
2812: if l_sum_percent <> 100 then
2813: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent);
2814: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2815: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_disb_number);
2816: FND_MSG_PUB.ADD;
2817: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2818: RAISE FND_API.G_EXC_ERROR;
2819: end if;
2820:
2813: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent);
2814: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2815: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_disb_number);
2816: FND_MSG_PUB.ADD;
2817: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2818: RAISE FND_API.G_EXC_ERROR;
2819: end if;
2820:
2821: -- loop thru table and update disb lines table
2848: -- END OF BODY OF API
2849: x_return_status := FND_API.G_RET_STS_SUCCESS;
2850:
2851: -- Standard call to get message count and if count is 1, get message info
2852: FND_MSG_PUB.Count_And_Get(
2853: p_encoded => FND_API.G_FALSE,
2854: p_count => x_msg_count,
2855: p_data => x_msg_data);
2856:
2859: EXCEPTION
2860: WHEN FND_API.G_EXC_ERROR THEN
2861: ROLLBACK TO VALIDATE_DISB_LINES;
2862: x_return_status := FND_API.G_RET_STS_ERROR;
2863: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2864: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2866: ROLLBACK TO VALIDATE_DISB_LINES;
2867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2864: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2865: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2866: ROLLBACK TO VALIDATE_DISB_LINES;
2867: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2868: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2869: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2870: WHEN OTHERS THEN
2871: ROLLBACK TO VALIDATE_DISB_LINES;
2872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2869: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2870: WHEN OTHERS THEN
2871: ROLLBACK TO VALIDATE_DISB_LINES;
2872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2873: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2874: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2875: END IF;
2876: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2877: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2870: WHEN OTHERS THEN
2871: ROLLBACK TO VALIDATE_DISB_LINES;
2872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2873: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2874: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2875: END IF;
2876: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2877: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2878:
2872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2873: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2874: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2875: END IF;
2876: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2877: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2878:
2879: END;
2880:
3016: END IF;
3017:
3018: -- Initialize message list if p_init_msg_list is set to TRUE
3019: IF FND_API.To_Boolean(p_init_msg_list) THEN
3020: FND_MSG_PUB.initialize;
3021: END IF;
3022:
3023: -- Initialize API return status to success
3024: l_return_status := FND_API.G_RET_STS_SUCCESS;
3084:
3085: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
3086: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
3087: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
3088: FND_MSG_PUB.ADD;
3089: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3090: RAISE FND_API.G_EXC_ERROR;
3091:
3092: end if;
3085: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
3086: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
3087: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
3088: FND_MSG_PUB.ADD;
3089: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3090: RAISE FND_API.G_EXC_ERROR;
3091:
3092: end if;
3093:
3094: if l_DISB_HEADER_REC.ACTIVITY_CODE is null and l_DISB_HEADER_REC.DESCRIPTION is null then
3095:
3096: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
3097: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
3098: FND_MSG_PUB.ADD;
3099: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3100: RAISE FND_API.G_EXC_ERROR;
3101:
3102: end if;
3095:
3096: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
3097: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
3098: FND_MSG_PUB.ADD;
3099: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3100: RAISE FND_API.G_EXC_ERROR;
3101:
3102: end if;
3103:
3104: if l_DISB_HEADER_REC.HEADER_PERCENT is null and l_DISB_HEADER_REC.HEADER_AMOUNT is null then
3105:
3106: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
3107: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
3108: FND_MSG_PUB.ADD;
3109: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3110: RAISE FND_API.G_EXC_ERROR;
3111:
3112: end if;
3105:
3106: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
3107: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
3108: FND_MSG_PUB.ADD;
3109: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3110: RAISE FND_API.G_EXC_ERROR;
3111:
3112: end if;
3113:
3114: if l_DISB_HEADER_REC.TARGET_DATE is null and l_DISB_HEADER_REC.PHASE = 'OPEN' then
3115:
3116: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
3117: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
3118: FND_MSG_PUB.ADD;
3119: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3120: RAISE FND_API.G_EXC_ERROR;
3121:
3122: end if;
3115:
3116: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
3117: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
3118: FND_MSG_PUB.ADD;
3119: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3120: RAISE FND_API.G_EXC_ERROR;
3121:
3122: end if;
3123: /*
3126: AND ( trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(sysdate))) then
3127:
3128: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment Request date is less than today');
3129: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_REQ_DATE_ERR' );
3130: FND_MSG_PUB.ADD;
3131: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3132: RAISE FND_API.G_EXC_ERROR;
3133:
3134: end if;
3127:
3128: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment Request date is less than today');
3129: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_REQ_DATE_ERR' );
3130: FND_MSG_PUB.ADD;
3131: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3132: RAISE FND_API.G_EXC_ERROR;
3133:
3134: end if;
3135: */
3137: if l_DISB_HEADER_REC.PHASE = 'OPEN' then
3138: if trunc(l_DISB_HEADER_REC.TARGET_DATE) < trunc(l_loan_start_date) then
3139: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
3140: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
3141: FND_MSG_PUB.ADD;
3142: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3143: RAISE FND_API.G_EXC_ERROR;
3144:
3145: end if;
3138: if trunc(l_DISB_HEADER_REC.TARGET_DATE) < trunc(l_loan_start_date) then
3139: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
3140: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
3141: FND_MSG_PUB.ADD;
3142: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3143: RAISE FND_API.G_EXC_ERROR;
3144:
3145: end if;
3146: else
3146: else
3147: if trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(l_loan_start_date) then
3148: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
3149: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
3150: FND_MSG_PUB.ADD;
3151: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3152: RAISE FND_API.G_EXC_ERROR;
3153:
3154: end if;
3147: if trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(l_loan_start_date) then
3148: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
3149: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
3150: FND_MSG_PUB.ADD;
3151: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3152: RAISE FND_API.G_EXC_ERROR;
3153:
3154: end if;
3155: end if;
3211: -- checking for total percent
3212: if l_sum_percent <> 100 then
3213: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
3214: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
3215: FND_MSG_PUB.ADD;
3216: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3217: RAISE FND_API.G_EXC_ERROR;
3218: end if;
3219:
3212: if l_sum_percent <> 100 then
3213: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
3214: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
3215: FND_MSG_PUB.ADD;
3216: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3217: RAISE FND_API.G_EXC_ERROR;
3218: end if;
3219:
3220: end if;
3286: -- END OF BODY OF API
3287: x_return_status := FND_API.G_RET_STS_SUCCESS;
3288:
3289: -- Standard call to get message count and if count is 1, get message info
3290: FND_MSG_PUB.Count_And_Get(
3291: p_encoded => FND_API.G_FALSE,
3292: p_count => x_msg_count,
3293: p_data => x_msg_data);
3294:
3297: EXCEPTION
3298: WHEN FND_API.G_EXC_ERROR THEN
3299: ROLLBACK TO VALIDATE_DISB_HEADERS;
3300: x_return_status := FND_API.G_RET_STS_ERROR;
3301: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3302: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3304: ROLLBACK TO VALIDATE_DISB_HEADERS;
3305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3302: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3304: ROLLBACK TO VALIDATE_DISB_HEADERS;
3305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3306: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3307: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3308: WHEN OTHERS THEN
3309: ROLLBACK TO VALIDATE_DISB_HEADERS;
3310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3307: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3308: WHEN OTHERS THEN
3309: ROLLBACK TO VALIDATE_DISB_HEADERS;
3310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3311: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3312: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3313: END IF;
3314: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3315: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3308: WHEN OTHERS THEN
3309: ROLLBACK TO VALIDATE_DISB_HEADERS;
3310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3311: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3312: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3313: END IF;
3314: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3315: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3316:
3310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3311: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3312: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3313: END IF;
3314: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3315: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3316:
3317: END;
3318:
3399: END IF;
3400:
3401: -- Initialize message list if p_init_msg_list is set to TRUE
3402: IF FND_API.To_Boolean(p_init_msg_list) THEN
3403: FND_MSG_PUB.initialize;
3404: END IF;
3405:
3406: -- Initialize API return status to success
3407: l_return_status := FND_API.G_RET_STS_SUCCESS;
3473: -- END OF BODY OF API
3474: x_return_status := FND_API.G_RET_STS_SUCCESS;
3475:
3476: -- Standard call to get message count and if count is 1, get message info
3477: FND_MSG_PUB.Count_And_Get(
3478: p_encoded => FND_API.G_FALSE,
3479: p_count => x_msg_count,
3480: p_data => x_msg_data);
3481:
3484: EXCEPTION
3485: WHEN FND_API.G_EXC_ERROR THEN
3486: ROLLBACK TO Get_Default_Payment_Attr;
3487: x_return_status := FND_API.G_RET_STS_ERROR;
3488: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3489: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: ROLLBACK TO Get_Default_Payment_Attr;
3492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3489: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: ROLLBACK TO Get_Default_Payment_Attr;
3492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3493: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3494: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3495: WHEN OTHERS THEN
3496: ROLLBACK TO Get_Default_Payment_Attr;
3497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3494: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3495: WHEN OTHERS THEN
3496: ROLLBACK TO Get_Default_Payment_Attr;
3497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3499: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3500: END IF;
3501: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3502: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3495: WHEN OTHERS THEN
3496: ROLLBACK TO Get_Default_Payment_Attr;
3497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3499: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3500: END IF;
3501: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3502: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3503:
3497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3498: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3499: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3500: END IF;
3501: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3502: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3503:
3504: END;
3505:
3568: IF p_loan_id IS NULL THEN
3569: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'LOAN ID is missing');
3570: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
3571: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_loan_id' );
3572: FND_MSG_PUB.ADD;
3573: RAISE FND_API.G_EXC_ERROR;
3574: END IF;
3575:
3576: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Querying loan info...');
3709: WHEN OTHERS THEN
3710: ROLLBACK TO DEFAULT_PROD_DISBURSEMENTS;
3711: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
3712: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3713: FND_MSG_PUB.ADD;
3714:
3715: END DEFAULT_PROD_DISBURSEMENTS;
3716:
3717:
3961: END IF;
3962:
3963: -- Initialize message list if p_init_msg_list is set to TRUE
3964: IF FND_API.To_Boolean(p_init_msg_list) THEN
3965: FND_MSG_PUB.initialize;
3966: END IF;
3967:
3968: -- Initialize API return status to success
3969: l_return_status := FND_API.G_RET_STS_SUCCESS;
4412:
4413: if l_new_invoice = 'Y' then
4414: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to insert invoice into interface table');
4415: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_INS_AP_INV');
4416: FND_MSG_PUB.Add;
4417: else
4418: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to update invoice into interface table');
4419: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_UPD_AP_INV');
4420: FND_MSG_PUB.Add;
4416: FND_MSG_PUB.Add;
4417: else
4418: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to update invoice into interface table');
4419: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_UPD_AP_INV');
4420: FND_MSG_PUB.Add;
4421: end if;
4422:
4423: RAISE FND_API.G_EXC_ERROR;
4424: END;
4666: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to insert invoice line into interface table');
4667: ROLLBACK TO SUBMIT_SINGLE_PAY_REQ;
4668:
4669: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_INS_AP_INV_LN');
4670: FND_MSG_PUB.Add;
4671: RAISE FND_API.G_EXC_ERROR;
4672: END;
4673:
4674: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted new invoice line.');
4793:
4794: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_REJECTION');
4795: FND_MESSAGE.SET_TOKEN('PAYEE', l_payee);
4796: FND_MESSAGE.SET_TOKEN('REJECTION', l_reject_desc);
4797: FND_MSG_PUB.Add;
4798:
4799: END LOOP;
4800:
4801: else
4818:
4819: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Successfully submitted single payment request');
4820:
4821: -- Standard call to get message count and if count is 1, get message info
4822: FND_MSG_PUB.Count_And_Get(
4823: p_encoded => FND_API.G_FALSE,
4824: p_count => x_msg_count,
4825: p_data => x_msg_data);
4826:
4863:
4864: COMMIT WORK;
4865:
4866: x_return_status := FND_API.G_RET_STS_ERROR;
4867: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4868: END;
4869:
4870:
4871:
4950: END IF;
4951:
4952: -- Initialize message list if p_init_msg_list is set to TRUE
4953: IF FND_API.To_Boolean(p_init_msg_list) THEN
4954: FND_MSG_PUB.initialize;
4955: END IF;
4956:
4957: -- Initialize API return status to success
4958: l_return_status := FND_API.G_RET_STS_SUCCESS;
5002: -- END OF BODY OF API
5003: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
5004:
5005: -- Standard call to get message count and if count is 1, get message info
5006: FND_MSG_PUB.Count_And_Get(
5007: p_encoded => FND_API.G_FALSE,
5008: p_count => x_msg_count,
5009: p_data => x_msg_data);
5010:
5012:
5013: EXCEPTION
5014: WHEN FND_API.G_EXC_ERROR THEN
5015: x_return_status := FND_API.G_RET_STS_ERROR;
5016: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5020: WHEN OTHERS THEN
5015: x_return_status := FND_API.G_RET_STS_ERROR;
5016: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5020: WHEN OTHERS THEN
5021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5022: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
5023: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5020: WHEN OTHERS THEN
5021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5022: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
5023: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5024: END IF;
5025: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5026: END;
5019: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5020: WHEN OTHERS THEN
5021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5022: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
5023: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5024: END IF;
5025: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5026: END;
5027:
5021: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5022: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
5023: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
5024: END IF;
5025: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5026: END;
5027:
5028:
5029:
5162: END IF;
5163:
5164: -- Initialize message list if p_init_msg_list is set to TRUE
5165: IF FND_API.To_Boolean(p_init_msg_list) THEN
5166: FND_MSG_PUB.initialize;
5167: END IF;
5168:
5169: -- Initialize API return status to success
5170: l_return_status := FND_API.G_RET_STS_SUCCESS;
5188: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Loan Record is not found');
5189: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
5190: FND_MESSAGE.SET_TOKEN('RECORD', 'loan header');
5191: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
5192: FND_MSG_PUB.ADD;
5193: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5194: RAISE FND_API.G_EXC_ERROR;
5195:
5196: end if;
5189: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
5190: FND_MESSAGE.SET_TOKEN('RECORD', 'loan header');
5191: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
5192: FND_MSG_PUB.ADD;
5193: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5194: RAISE FND_API.G_EXC_ERROR;
5195:
5196: end if;
5197:
5228: ELSE
5229: -- Bug#9964875
5230: IF (l_status_code = 'FAIL' or l_status_code = 'PARTIAL' or l_status_code = 'XLA_ERROR') THEN
5231: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBMIT_DISB_FUNDS_UNRESERV');
5232: FND_MSG_PUB.Add;
5233: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5234: RAISE FND_API.G_EXC_ERROR;
5235: END IF;
5236: END IF;
5229: -- Bug#9964875
5230: IF (l_status_code = 'FAIL' or l_status_code = 'PARTIAL' or l_status_code = 'XLA_ERROR') THEN
5231: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBMIT_DISB_FUNDS_UNRESERV');
5232: FND_MSG_PUB.Add;
5233: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5234: RAISE FND_API.G_EXC_ERROR;
5235: END IF;
5236: END IF;
5237:
5257: close conditions_cur;
5258:
5259: if l_cond_count > 0 then
5260: FND_MESSAGE.SET_NAME('LNS', 'LNS_NOT_ALL_COND_MET');
5261: FND_MSG_PUB.Add;
5262: RAISE FND_API.G_EXC_ERROR;
5263: end if;
5264:
5265: -- create iby external payee
5364: IF l_return_status = 'S' THEN
5365: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5366: ELSE
5367: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5368: FND_MSG_PUB.Add;
5369: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5370: -- RAISE FND_API.G_EXC_ERROR;
5371: END IF;
5372:
5365: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5366: ELSE
5367: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5368: FND_MSG_PUB.Add;
5369: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5370: -- RAISE FND_API.G_EXC_ERROR;
5371: END IF;
5372:
5373: -- Only for Federal Direct Loans whose budget is reserved
5387: logMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
5388: IF l_return_status <> 'S' THEN
5389: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
5390: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to lns_distributions_pub.submit_disbursement_bc failed for acitivity = LNS_SUBMIT_DISBURSEMENT');
5391: FND_MSG_PUB.ADD;
5392: logMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5393: RAISE FND_API.G_EXC_ERROR;
5394: END IF;
5395: END IF;
5388: IF l_return_status <> 'S' THEN
5389: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
5390: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to lns_distributions_pub.submit_disbursement_bc failed for acitivity = LNS_SUBMIT_DISBURSEMENT');
5391: FND_MSG_PUB.ADD;
5392: logMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5393: RAISE FND_API.G_EXC_ERROR;
5394: END IF;
5395: END IF;
5396:
5408: x_return_status := FND_API.G_RET_STS_SUCCESS;
5409: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_DISBURSEMENT returned status: ' || x_return_status);
5410:
5411: -- Standard call to get message count and if count is 1, get message info
5412: FND_MSG_PUB.Count_And_Get(
5413: p_encoded => FND_API.G_FALSE,
5414: p_count => x_msg_count,
5415: p_data => x_msg_data);
5416:
5418:
5419: EXCEPTION
5420: WHEN OTHERS THEN
5421: x_return_status := FND_API.G_RET_STS_ERROR;
5422: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5423:
5424: if x_msg_count = 0 then
5425: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBMIT_DISB_FAILED');
5426: FND_MSG_PUB.Add;
5422: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5423:
5424: if x_msg_count = 0 then
5425: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBMIT_DISB_FAILED');
5426: FND_MSG_PUB.Add;
5427: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5428: end if;
5429:
5430: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_DISBURSEMENT returned status: ' || x_return_status);
5423:
5424: if x_msg_count = 0 then
5425: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBMIT_DISB_FAILED');
5426: FND_MSG_PUB.Add;
5427: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5428: end if;
5429:
5430: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_DISBURSEMENT returned status: ' || x_return_status);
5431:
5859: FND_MESSAGE.SET_TOKEN('DISB', l_disb_desc);
5860: FND_MESSAGE.SET_TOKEN('DATE', l_DISB_LINE_REC.DISBURSEMENT_DATE);
5861: FND_MESSAGE.SET_TOKEN('AMOUNT', to_char(l_inv_paid_amount, FND_CURRENCY.SAFE_GET_FORMAT_MASK(l_currency,50)));
5862: FND_MESSAGE.SET_TOKEN('CURR', l_currency);
5863: FND_MSG_PUB.Add;
5864: l_agreement_reason := FND_MSG_PUB.Get(p_encoded => 'F');
5865: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
5866:
5867: if l_loan_header_rec.current_phase = 'OPEN' then
5860: FND_MESSAGE.SET_TOKEN('DATE', l_DISB_LINE_REC.DISBURSEMENT_DATE);
5861: FND_MESSAGE.SET_TOKEN('AMOUNT', to_char(l_inv_paid_amount, FND_CURRENCY.SAFE_GET_FORMAT_MASK(l_currency,50)));
5862: FND_MESSAGE.SET_TOKEN('CURR', l_currency);
5863: FND_MSG_PUB.Add;
5864: l_agreement_reason := FND_MSG_PUB.Get(p_encoded => 'F');
5865: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
5866:
5867: if l_loan_header_rec.current_phase = 'OPEN' then
5868:
5861: FND_MESSAGE.SET_TOKEN('AMOUNT', to_char(l_inv_paid_amount, FND_CURRENCY.SAFE_GET_FORMAT_MASK(l_currency,50)));
5862: FND_MESSAGE.SET_TOKEN('CURR', l_currency);
5863: FND_MSG_PUB.Add;
5864: l_agreement_reason := FND_MSG_PUB.Get(p_encoded => 'F');
5865: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
5866:
5867: if l_loan_header_rec.current_phase = 'OPEN' then
5868:
5869: if l_loan_header_rec.LOAN_STATUS = 'APPROVED' then
5881: ,x_msg_count => l_msg_count
5882: ,x_msg_data => l_msg_data);
5883:
5884: IF l_return_status <> 'S' THEN
5885: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5886: RAISE FND_API.G_EXC_ERROR;
5887: END IF;
5888:
5889: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open start date: ' || l_loan_details.loan_start_date);
5923: ,x_msg_count => l_msg_count
5924: ,x_msg_data => l_msg_data);
5925:
5926: IF l_return_status <> 'S' THEN
5927: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5928: RAISE FND_API.G_EXC_ERROR;
5929: END IF;
5930:
5931: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
5941:
5942: if l_dates_shifted_flag = 'Y' then
5943: -- Retrieve agreement reason
5944: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
5945: FND_MSG_PUB.Add;
5946: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
5947: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
5948: end if;
5949:
5942: if l_dates_shifted_flag = 'Y' then
5943: -- Retrieve agreement reason
5944: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
5945: FND_MSG_PUB.Add;
5946: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
5947: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
5948: end if;
5949:
5950: end if;
5943: -- Retrieve agreement reason
5944: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
5945: FND_MSG_PUB.Add;
5946: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
5947: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
5948: end if;
5949:
5950: end if;
5951:
5971: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5972: ELSE
5973: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5974: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5975: FND_MSG_PUB.Add;
5976: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5977: RAISE FND_API.G_EXC_ERROR;
5978: END IF;
5979:
5972: ELSE
5973: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5974: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5975: FND_MSG_PUB.Add;
5976: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5977: RAISE FND_API.G_EXC_ERROR;
5978: END IF;
5979:
5980: end if;
6011: ,x_msg_data => l_msg_data);
6012:
6013: IF l_return_status <> 'S' THEN
6014: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to LNS_FINANCIALS.shiftLoanDates failed');
6015: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6016: RAISE FND_API.G_EXC_ERROR;
6017: END IF;
6018:
6019: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New loan_start_date: ' || l_loan_details.loan_start_date);
6023: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'l_dates_shifted_flag: ' || l_dates_shifted_flag);
6024:
6025: -- Retrieve agreement reason
6026: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON3');
6027: FND_MSG_PUB.Add;
6028: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
6029: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
6030:
6031: if l_dates_shifted_flag = 'Y' then
6024:
6025: -- Retrieve agreement reason
6026: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON3');
6027: FND_MSG_PUB.Add;
6028: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
6029: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
6030:
6031: if l_dates_shifted_flag = 'Y' then
6032: -- Retrieve agreement reason
6025: -- Retrieve agreement reason
6026: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON3');
6027: FND_MSG_PUB.Add;
6028: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
6029: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
6030:
6031: if l_dates_shifted_flag = 'Y' then
6032: -- Retrieve agreement reason
6033: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
6030:
6031: if l_dates_shifted_flag = 'Y' then
6032: -- Retrieve agreement reason
6033: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
6034: FND_MSG_PUB.Add;
6035: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
6036: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
6037: end if;
6038:
6031: if l_dates_shifted_flag = 'Y' then
6032: -- Retrieve agreement reason
6033: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
6034: FND_MSG_PUB.Add;
6035: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
6036: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
6037: end if;
6038:
6039: -- query term version
6032: -- Retrieve agreement reason
6033: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
6034: FND_MSG_PUB.Add;
6035: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
6036: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
6037: end if;
6038:
6039: -- query term version
6040: open term_version_cur(l_loan_header_rec.loan_id);
6068: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
6069: ELSE
6070: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
6071: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
6072: FND_MSG_PUB.Add;
6073: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6074: RAISE FND_API.G_EXC_ERROR;
6075: END IF;
6076:
6069: ELSE
6070: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
6071: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
6072: FND_MSG_PUB.Add;
6073: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6074: RAISE FND_API.G_EXC_ERROR;
6075: END IF;
6076:
6077: -- setting data for future loan update
6109: IF l_return_status = 'S' THEN
6110: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6111: ELSE
6112: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6113: FND_MSG_PUB.Add;
6114: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6115: RAISE FND_API.G_EXC_ERROR;
6116: END IF;
6117:
6110: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6111: ELSE
6112: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6113: FND_MSG_PUB.Add;
6114: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6115: RAISE FND_API.G_EXC_ERROR;
6116: END IF;
6117:
6118: /* No need to call this now, as the below method inserts records of conversionFees into feeSchds table
6151: IF l_return_status = 'S' THEN
6152: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6153: ELSE
6154: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6155: FND_MSG_PUB.Add;
6156: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6157: RAISE FND_API.G_EXC_ERROR;
6158: END IF;
6159:
6152: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6153: ELSE
6154: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6155: FND_MSG_PUB.Add;
6156: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6157: RAISE FND_API.G_EXC_ERROR;
6158: END IF;
6159:
6160: end if;
6175: ,x_msg_count => l_msg_count
6176: ,x_msg_data => l_msg_data);
6177:
6178: IF l_return_status <> 'S' THEN
6179: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6180: RAISE FND_API.G_EXC_ERROR;
6181: END IF;
6182:
6183: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New start date: ' || l_loan_details.loan_start_date);
6207:
6208: if l_dates_shifted_flag = 'Y' then
6209: -- Retrieve agreement reason
6210: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
6211: FND_MSG_PUB.Add;
6212: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
6213: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
6214: end if;
6215:
6208: if l_dates_shifted_flag = 'Y' then
6209: -- Retrieve agreement reason
6210: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
6211: FND_MSG_PUB.Add;
6212: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
6213: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
6214: end if;
6215:
6216: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
6209: -- Retrieve agreement reason
6210: FND_MESSAGE.SET_NAME('LNS', 'LNS_FUND_AGREEMENT_REASON2');
6211: FND_MSG_PUB.Add;
6212: l_agreement_reason := l_agreement_reason || FND_MSG_PUB.Get(p_encoded => 'F');
6213: FND_MSG_PUB.DELETE_MSG(FND_MSG_PUB.COUNT_MSG);
6214: end if;
6215:
6216: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER,
6217: p_init_msg_list => FND_API.G_FALSE,
6226: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
6227: ELSE
6228: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
6229: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
6230: FND_MSG_PUB.Add;
6231: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6232: RAISE FND_API.G_EXC_ERROR;
6233: END IF;
6234:
6227: ELSE
6228: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
6229: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
6230: FND_MSG_PUB.Add;
6231: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6232: RAISE FND_API.G_EXC_ERROR;
6233: END IF;
6234:
6235: -- setting loan data for loan update
6274: IF l_return_status = 'S' THEN
6275: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6276: ELSE
6277: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6278: FND_MSG_PUB.Add;
6279: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6280: RAISE FND_API.G_EXC_ERROR;
6281: END IF;
6282:
6275: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6276: ELSE
6277: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6278: FND_MSG_PUB.Add;
6279: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6280: RAISE FND_API.G_EXC_ERROR;
6281: END IF;
6282:
6283: end if;
6341: ,x_msg_data => l_msg_data);
6342:
6343: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6344: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
6345: FND_MSG_PUB.ADD;
6346: RAISE FND_API.G_EXC_ERROR;
6347: end if;
6348:
6349: END IF;
6399: if l_request_id = 0 then
6400:
6401: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Failed to start Billing Concurrent Program.');
6402: FND_MESSAGE.SET_NAME('LNS', 'LNS_BILLING_REQUEST_FAILED');
6403: FND_MSG_PUB.Add;
6404: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6405: RAISE FND_API.G_EXC_ERROR;
6406:
6407: else
6400:
6401: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Failed to start Billing Concurrent Program.');
6402: FND_MESSAGE.SET_NAME('LNS', 'LNS_BILLING_REQUEST_FAILED');
6403: FND_MSG_PUB.Add;
6404: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6405: RAISE FND_API.G_EXC_ERROR;
6406:
6407: else
6408: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Successfully submited Billing Concurrent Program to bill 0-th installment. Request id: ' || l_request_id);
6420:
6421: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed payment');
6422:
6423: -- Standard call to get message count and if count is 1, get message info
6424: FND_MSG_PUB.Count_And_Get(
6425: p_encoded => FND_API.G_FALSE,
6426: p_count => x_msg_count,
6427: p_data => x_msg_data);
6428:
6431: EXCEPTION
6432: WHEN FND_API.G_EXC_ERROR THEN
6433: ROLLBACK TO PAY_SINGLE_INVOICE;
6434: x_return_status := FND_API.G_RET_STS_ERROR;
6435: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6436: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6438: ROLLBACK TO PAY_SINGLE_INVOICE;
6439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6436: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6437: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6438: ROLLBACK TO PAY_SINGLE_INVOICE;
6439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6440: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6441: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6442: WHEN OTHERS THEN
6443: ROLLBACK TO PAY_SINGLE_INVOICE;
6444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6441: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6442: WHEN OTHERS THEN
6443: ROLLBACK TO PAY_SINGLE_INVOICE;
6444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6445: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6446: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6447: END IF;
6448: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6442: WHEN OTHERS THEN
6443: ROLLBACK TO PAY_SINGLE_INVOICE;
6444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6445: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6446: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6447: END IF;
6448: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6450: END;
6444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6445: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6446: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6447: END IF;
6448: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6450: END;
6451:
6452:
6565:
6566: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed payment event');
6567:
6568: -- Standard call to get message count and if count is 1, get message info
6569: FND_MSG_PUB.Count_And_Get(
6570: p_encoded => FND_API.G_FALSE,
6571: p_count => p_msg_count,
6572: p_data => p_msg_data);
6573:
6576: EXCEPTION
6577: WHEN FND_API.G_EXC_ERROR THEN
6578: ROLLBACK TO SubscribeTo_Payment_Event;
6579: p_return_status := FND_API.G_RET_STS_ERROR;
6580: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6581: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6583: ROLLBACK TO SubscribeTo_Payment_Event;
6584: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6581: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6583: ROLLBACK TO SubscribeTo_Payment_Event;
6584: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6585: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6586: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6587: WHEN OTHERS THEN
6588: ROLLBACK TO SubscribeTo_Payment_Event;
6589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6586: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6587: WHEN OTHERS THEN
6588: ROLLBACK TO SubscribeTo_Payment_Event;
6589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6590: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6591: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6592: END IF;
6593: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6594: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6587: WHEN OTHERS THEN
6588: ROLLBACK TO SubscribeTo_Payment_Event;
6589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6590: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6591: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6592: END IF;
6593: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6594: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6595: END;
6589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6590: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6591: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6592: END IF;
6593: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6594: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6595: END;
6596:
6597:
6683: END IF;
6684:
6685: -- Initialize message list if p_init_msg_list is set to TRUE
6686: IF FND_API.To_Boolean(p_init_msg_list) THEN
6687: FND_MSG_PUB.initialize;
6688: END IF;
6689:
6690: -- Initialize API return status to success
6691: l_return_status := FND_API.G_RET_STS_SUCCESS;
6728:
6729: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully completed all disbursements for loan ' || P_LOAN_ID);
6730:
6731: -- Standard call to get message count and if count is 1, get message info
6732: FND_MSG_PUB.Count_And_Get(
6733: p_encoded => FND_API.G_FALSE,
6734: p_count => x_msg_count,
6735: p_data => x_msg_data);
6736:
6739: EXCEPTION
6740: WHEN FND_API.G_EXC_ERROR THEN
6741: ROLLBACK TO COMPLETE_ALL_DISB;
6742: x_return_status := FND_API.G_RET_STS_ERROR;
6743: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6744: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6746: ROLLBACK TO COMPLETE_ALL_DISB;
6747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6744: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6746: ROLLBACK TO COMPLETE_ALL_DISB;
6747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6748: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6749: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6750: WHEN OTHERS THEN
6751: ROLLBACK TO COMPLETE_ALL_DISB;
6752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6749: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6750: WHEN OTHERS THEN
6751: ROLLBACK TO COMPLETE_ALL_DISB;
6752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6753: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6754: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6755: END IF;
6756: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6757: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6750: WHEN OTHERS THEN
6751: ROLLBACK TO COMPLETE_ALL_DISB;
6752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6753: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6754: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6755: END IF;
6756: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6757: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6758: END;
6752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6753: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6754: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6755: END IF;
6756: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6757: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6758: END;
6759:
6760:
6883: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6884:
6885: -- Initialize message list if p_init_msg_list is set to TRUE
6886: IF FND_API.To_Boolean(p_init_msg_list) THEN
6887: FND_MSG_PUB.initialize;
6888: END IF;
6889:
6890: -- Initialize API return status to success
6891: l_return_status := FND_API.G_RET_STS_SUCCESS;
6964:
6965: IF NOT l_success THEN
6966: FND_MESSAGE.SET_NAME('SQLAP4', l_message_name);
6967: FND_MESSAGE.SET_TOKEN('ERROR', l_Token);
6968: FND_MSG_PUB.ADD;
6969: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6970: RAISE FND_API.G_EXC_ERROR;
6971: ELSE
6972: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Successfully cancelled AP invoice');
6965: IF NOT l_success THEN
6966: FND_MESSAGE.SET_NAME('SQLAP4', l_message_name);
6967: FND_MESSAGE.SET_TOKEN('ERROR', l_Token);
6968: FND_MSG_PUB.ADD;
6969: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6970: RAISE FND_API.G_EXC_ERROR;
6971: ELSE
6972: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Successfully cancelled AP invoice');
6973: END IF;
7078: logMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
7079: IF l_return_status <> 'S' THEN
7080: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
7081: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to lns_distributions_pub.submit_disbursement_bc failed for acitivity = LNS_SUBMITTED_DISB_CANCEL');
7082: FND_MSG_PUB.ADD;
7083: logMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7084: RAISE FND_API.G_EXC_ERROR;
7085: END IF;
7086: END IF;
7079: IF l_return_status <> 'S' THEN
7080: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
7081: FND_MESSAGE.SET_TOKEN('ERROR' ,'Call to lns_distributions_pub.submit_disbursement_bc failed for acitivity = LNS_SUBMITTED_DISB_CANCEL');
7082: FND_MSG_PUB.ADD;
7083: logMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7084: RAISE FND_API.G_EXC_ERROR;
7085: END IF;
7086: END IF;
7087: END IF;
7098:
7099: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled disbursement header with lines');
7100:
7101: -- Standard call to get message count and if count is 1, get message info
7102: FND_MSG_PUB.Count_And_Get(
7103: p_encoded => FND_API.G_FALSE,
7104: p_count => x_msg_count,
7105: p_data => x_msg_data);
7106:
7109: EXCEPTION
7110: WHEN FND_API.G_EXC_ERROR THEN
7111: ROLLBACK TO CANCEL_SINGLE_DISB;
7112: x_return_status := FND_API.G_RET_STS_ERROR;
7113: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7114: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7116: ROLLBACK TO CANCEL_SINGLE_DISB;
7117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7114: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7115: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7116: ROLLBACK TO CANCEL_SINGLE_DISB;
7117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7118: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7119: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7120: WHEN OTHERS THEN
7121: ROLLBACK TO CANCEL_SINGLE_DISB;
7122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7119: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7120: WHEN OTHERS THEN
7121: ROLLBACK TO CANCEL_SINGLE_DISB;
7122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7123: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7124: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7125: END IF;
7126: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7127: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7120: WHEN OTHERS THEN
7121: ROLLBACK TO CANCEL_SINGLE_DISB;
7122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7123: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7124: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7125: END IF;
7126: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7127: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7128: END;
7122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7123: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7124: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7125: END IF;
7126: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7127: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7128: END;
7129:
7130:
7239: END IF;
7240:
7241: -- Initialize message list if p_init_msg_list is set to TRUE
7242: IF FND_API.To_Boolean(p_init_msg_list) THEN
7243: FND_MSG_PUB.initialize;
7244: END IF;
7245:
7246: -- Initialize API return status to success
7247: l_return_status := FND_API.G_RET_STS_SUCCESS;
7322: IF l_return_status = 'S' THEN
7323: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7324: ELSE
7325: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7326: FND_MSG_PUB.Add;
7327: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7328: RAISE FND_API.G_EXC_ERROR;
7329: END IF;
7330:
7323: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7324: ELSE
7325: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7326: FND_MSG_PUB.Add;
7327: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7328: RAISE FND_API.G_EXC_ERROR;
7329: END IF;
7330:
7331: end if;
7355:
7356: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled all remaining disbursements');
7357:
7358: -- Standard call to get message count and if count is 1, get message info
7359: FND_MSG_PUB.Count_And_Get(
7360: p_encoded => FND_API.G_FALSE,
7361: p_count => x_msg_count,
7362: p_data => x_msg_data);
7363:
7366: EXCEPTION
7367: WHEN FND_API.G_EXC_ERROR THEN
7368: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
7369: x_return_status := FND_API.G_RET_STS_ERROR;
7370: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7371: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7372: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7373: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
7374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7371: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7372: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7373: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
7374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7375: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7376: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7377: WHEN OTHERS THEN
7378: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
7379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7376: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7377: WHEN OTHERS THEN
7378: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
7379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7380: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7381: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7382: END IF;
7383: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7384: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7377: WHEN OTHERS THEN
7378: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
7379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7380: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7381: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7382: END IF;
7383: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7384: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7385: END;
7379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7380: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7381: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7382: END IF;
7383: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7384: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7385: END;
7386:
7387:
7484: END IF;
7485:
7486: -- Initialize message list if p_init_msg_list is set to TRUE
7487: IF FND_API.To_Boolean(p_init_msg_list) THEN
7488: FND_MSG_PUB.initialize;
7489: END IF;
7490:
7491: -- Initialize API return status to success
7492: l_return_status := FND_API.G_RET_STS_SUCCESS;
7526: IF l_return_status = 'S' THEN
7527: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7528: ELSE
7529: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7530: FND_MSG_PUB.Add;
7531: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7532: RAISE FND_API.G_EXC_ERROR;
7533: END IF;
7534:
7527: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7528: ELSE
7529: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7530: FND_MSG_PUB.Add;
7531: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7532: RAISE FND_API.G_EXC_ERROR;
7533: END IF;
7534:
7535: if P_COMMIT = FND_API.G_TRUE then
7542:
7543: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully reactivation disbursement schedule');
7544:
7545: -- Standard call to get message count and if count is 1, get message info
7546: FND_MSG_PUB.Count_And_Get(
7547: p_encoded => FND_API.G_FALSE,
7548: p_count => x_msg_count,
7549: p_data => x_msg_data);
7550:
7553: EXCEPTION
7554: WHEN FND_API.G_EXC_ERROR THEN
7555: ROLLBACK TO REJECT_CANCEL_DISB;
7556: x_return_status := FND_API.G_RET_STS_ERROR;
7557: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7558: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7560: ROLLBACK TO REJECT_CANCEL_DISB;
7561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7558: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7559: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7560: ROLLBACK TO REJECT_CANCEL_DISB;
7561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7562: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7563: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7564: WHEN OTHERS THEN
7565: ROLLBACK TO REJECT_CANCEL_DISB;
7566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7563: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7564: WHEN OTHERS THEN
7565: ROLLBACK TO REJECT_CANCEL_DISB;
7566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7567: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7568: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7569: END IF;
7570: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7571: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7564: WHEN OTHERS THEN
7565: ROLLBACK TO REJECT_CANCEL_DISB;
7566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7567: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7568: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7569: END IF;
7570: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7571: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7572: END;
7566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7567: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7568: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7569: END IF;
7570: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7571: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7572: END;
7573:
7574:
7663: END IF;
7664:
7665: -- Initialize message list if p_init_msg_list is set to TRUE
7666: IF FND_API.To_Boolean(p_init_msg_list) THEN
7667: FND_MSG_PUB.initialize;
7668: END IF;
7669:
7670: -- Initialize API return status to success
7671: l_return_status := FND_API.G_RET_STS_SUCCESS;
7708: IF l_return_status = 'S' THEN
7709: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7710: ELSE
7711: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7712: FND_MSG_PUB.Add;
7713: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7714: RAISE FND_API.G_EXC_ERROR;
7715: END IF;
7716:
7709: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7710: ELSE
7711: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7712: FND_MSG_PUB.Add;
7713: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7714: RAISE FND_API.G_EXC_ERROR;
7715: END IF;
7716:
7717: else
7742:
7743: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancel disbursements');
7744:
7745: -- Standard call to get message count and if count is 1, get message info
7746: FND_MSG_PUB.Count_And_Get(
7747: p_encoded => FND_API.G_FALSE,
7748: p_count => x_msg_count,
7749: p_data => x_msg_data);
7750:
7753: EXCEPTION
7754: WHEN FND_API.G_EXC_ERROR THEN
7755: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7756: x_return_status := FND_API.G_RET_STS_ERROR;
7757: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7758: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7760: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7758: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7760: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7762: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7763: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7764: WHEN OTHERS THEN
7765: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7763: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7764: WHEN OTHERS THEN
7765: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7767: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7768: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7769: END IF;
7770: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7771: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7764: WHEN OTHERS THEN
7765: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7767: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7768: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7769: END IF;
7770: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7771: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7772: END;
7766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7767: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7768: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7769: END IF;
7770: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7771: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7772: END;
7773:
7774:
8311: END IF;
8312:
8313: -- Initialize message list if p_init_msg_list is set to TRUE
8314: IF FND_API.To_Boolean(p_init_msg_list) THEN
8315: FND_MSG_PUB.initialize;
8316: END IF;
8317:
8318: -- Initialize API return status to success
8319: l_return_status := FND_API.G_RET_STS_SUCCESS;
8332: if P_AUTOFUNDING_FLAG = 'Y' then
8333:
8334: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
8335: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
8336: FND_MSG_PUB.ADD;
8337: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
8338: RAISE FND_API.G_EXC_ERROR;
8339:
8340: end if;
8333:
8334: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
8335: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
8336: FND_MSG_PUB.ADD;
8337: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
8338: RAISE FND_API.G_EXC_ERROR;
8339:
8340: end if;
8341:
8384: close conditions_cur;
8385:
8386: if l_cond_count > 0 then
8387: FND_MESSAGE.SET_NAME('LNS', 'LNS_AUTOFUND_AND_MAND_CONDIT');
8388: FND_MSG_PUB.Add;
8389: RAISE FND_API.G_EXC_ERROR;
8390: end if;
8391:
8392: LNS_COND_ASSIGNMENT_PUB.VALIDATE_CUSTOM_CONDITIONS(
8439: -- END OF BODY OF API
8440: x_return_status := FND_API.G_RET_STS_SUCCESS;
8441:
8442: -- Standard call to get message count and if count is 1, get message info
8443: FND_MSG_PUB.Count_And_Get(
8444: p_encoded => FND_API.G_FALSE,
8445: p_count => x_msg_count,
8446: p_data => x_msg_data);
8447:
8450: EXCEPTION
8451: WHEN FND_API.G_EXC_ERROR THEN
8452: ROLLBACK TO SET_AUTOFUNDING;
8453: x_return_status := FND_API.G_RET_STS_ERROR;
8454: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8455: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
8456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8457: ROLLBACK TO SET_AUTOFUNDING;
8458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8455: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
8456: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8457: ROLLBACK TO SET_AUTOFUNDING;
8458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8459: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8460: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
8461: WHEN OTHERS THEN
8462: ROLLBACK TO SET_AUTOFUNDING;
8463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8460: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
8461: WHEN OTHERS THEN
8462: ROLLBACK TO SET_AUTOFUNDING;
8463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8464: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
8465: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8466: END IF;
8467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8468: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
8461: WHEN OTHERS THEN
8462: ROLLBACK TO SET_AUTOFUNDING;
8463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8464: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
8465: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8466: END IF;
8467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8468: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
8469: END;
8463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8464: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
8465: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8466: END IF;
8467: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8468: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
8469: END;
8470:
8471:
9152: END IF;
9153:
9154: -- Initialize message list if p_init_msg_list is set to TRUE
9155: IF FND_API.To_Boolean(p_init_msg_list) THEN
9156: FND_MSG_PUB.initialize;
9157: END IF;
9158:
9159: -- Initialize API return status to success
9160: l_return_status := FND_API.G_RET_STS_SUCCESS;
9169: close in_fund_count_cur;
9170:
9171: if l_in_funding_count > 0 then
9172: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_PAYOFF_IN_FUND');
9173: FND_MSG_PUB.Add;
9174: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
9175: RAISE FND_API.G_EXC_ERROR;
9176: end if;
9177:
9170:
9171: if l_in_funding_count > 0 then
9172: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_PAYOFF_IN_FUND');
9173: FND_MSG_PUB.Add;
9174: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
9175: RAISE FND_API.G_EXC_ERROR;
9176: end if;
9177:
9178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursements for payoff process');
9180: -- END OF BODY OF API
9181: x_return_status := FND_API.G_RET_STS_SUCCESS;
9182:
9183: -- Standard call to get message count and if count is 1, get message info
9184: FND_MSG_PUB.Count_And_Get(
9185: p_encoded => FND_API.G_FALSE,
9186: p_count => x_msg_count,
9187: p_data => x_msg_data);
9188:
9190:
9191: EXCEPTION
9192: WHEN FND_API.G_EXC_ERROR THEN
9193: x_return_status := FND_API.G_RET_STS_ERROR;
9194: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9198: WHEN OTHERS THEN
9193: x_return_status := FND_API.G_RET_STS_ERROR;
9194: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9195: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9198: WHEN OTHERS THEN
9199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9200: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9201: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9198: WHEN OTHERS THEN
9199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9200: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9201: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9202: END IF;
9203: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9204:
9197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9198: WHEN OTHERS THEN
9199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9200: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9201: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9202: END IF;
9203: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9204:
9205: END;
9199: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9200: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9201: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9202: END IF;
9203: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9204:
9205: END;
9206:
9207:
9333: END IF;
9334:
9335: -- Initialize message list if p_init_msg_list is set to TRUE
9336: IF FND_API.To_Boolean(p_init_msg_list) THEN
9337: FND_MSG_PUB.initialize;
9338: END IF;
9339:
9340: -- Initialize API return status to success
9341: l_return_status := FND_API.G_RET_STS_SUCCESS;
9476: -- END OF BODY OF API
9477: x_return_status := FND_API.G_RET_STS_SUCCESS;
9478:
9479: -- Standard call to get message count and if count is 1, get message info
9480: FND_MSG_PUB.Count_And_Get(
9481: p_encoded => FND_API.G_FALSE,
9482: p_count => x_msg_count,
9483: p_data => x_msg_data);
9484:
9487: EXCEPTION
9488: WHEN FND_API.G_EXC_ERROR THEN
9489: ROLLBACK TO CHECK_FOR_VOIDED_INVOICES;
9490: x_return_status := FND_API.G_RET_STS_ERROR;
9491: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9492: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9493: ROLLBACK TO CHECK_FOR_VOIDED_INVOICES;
9494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9495: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9491: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9492: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9493: ROLLBACK TO CHECK_FOR_VOIDED_INVOICES;
9494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9495: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9496: WHEN OTHERS THEN
9497: ROLLBACK TO CHECK_FOR_VOIDED_INVOICES;
9498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9499: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9495: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9496: WHEN OTHERS THEN
9497: ROLLBACK TO CHECK_FOR_VOIDED_INVOICES;
9498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9499: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9500: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9501: END IF;
9502: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9503:
9496: WHEN OTHERS THEN
9497: ROLLBACK TO CHECK_FOR_VOIDED_INVOICES;
9498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9499: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9500: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9501: END IF;
9502: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9503:
9504: END;
9498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9499: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9500: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9501: END IF;
9502: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9503:
9504: END;
9505:
9506:
9628: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
9629:
9630: IF l_return_status <> 'S' THEN
9631: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
9632: FND_MSG_PUB.Add;
9633: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
9634: RAISE FND_API.G_EXC_ERROR;
9635: END IF;
9636:
9629:
9630: IF l_return_status <> 'S' THEN
9631: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
9632: FND_MSG_PUB.Add;
9633: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
9634: RAISE FND_API.G_EXC_ERROR;
9635: END IF;
9636:
9637: end if;
9726: END IF;
9727:
9728: -- Initialize message list if p_init_msg_list is set to TRUE
9729: IF FND_API.To_Boolean(p_init_msg_list) THEN
9730: FND_MSG_PUB.initialize;
9731: END IF;
9732:
9733: -- Initialize API return status to success
9734: l_return_status := FND_API.G_RET_STS_SUCCESS;
9738: IF P_LOAN_ID IS NULL THEN
9739: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'LOAN ID is missing');
9740: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
9741: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_LOAN_ID' );
9742: FND_MSG_PUB.ADD;
9743: RAISE FND_API.G_EXC_ERROR;
9744: END IF;
9745:
9746: IF P_AMOUNT IS NULL THEN
9746: IF P_AMOUNT IS NULL THEN
9747: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'AMOUNT is missing');
9748: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
9749: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_AMOUNT' );
9750: FND_MSG_PUB.ADD;
9751: RAISE FND_API.G_EXC_ERROR;
9752: END IF;
9753:
9754: IF P_DUE_DATE IS NULL THEN
9754: IF P_DUE_DATE IS NULL THEN
9755: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'DUE_DATE is missing');
9756: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
9757: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'P_DUE_DATE' );
9758: FND_MSG_PUB.ADD;
9759: RAISE FND_API.G_EXC_ERROR;
9760: END IF;
9761:
9762: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Querying loan info...');
9885: -- END OF BODY OF API
9886: x_return_status := FND_API.G_RET_STS_SUCCESS;
9887:
9888: -- Standard call to get message count and if count is 1, get message info
9889: FND_MSG_PUB.Count_And_Get(
9890: p_encoded => FND_API.G_FALSE,
9891: p_count => x_msg_count,
9892: p_data => x_msg_data);
9893:
9896: EXCEPTION
9897: WHEN FND_API.G_EXC_ERROR THEN
9898: ROLLBACK TO CREATE_DISBURSEMENT;
9899: x_return_status := FND_API.G_RET_STS_ERROR;
9900: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9902: ROLLBACK TO CREATE_DISBURSEMENT;
9903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9904: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9900: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9902: ROLLBACK TO CREATE_DISBURSEMENT;
9903: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9904: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9905: WHEN OTHERS THEN
9906: ROLLBACK TO CREATE_DISBURSEMENT;
9907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9908: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9904: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9905: WHEN OTHERS THEN
9906: ROLLBACK TO CREATE_DISBURSEMENT;
9907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9908: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9909: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9910: END IF;
9911: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9912:
9905: WHEN OTHERS THEN
9906: ROLLBACK TO CREATE_DISBURSEMENT;
9907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9908: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9909: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9910: END IF;
9911: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9912:
9913: END;
9907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9908: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
9909: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
9910: END IF;
9911: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9912:
9913: END;
9914:
9915: