[Home] [Help]
525: END IF;
526:
527: -- Initialize message list if p_init_msg_list is set to TRUE
528: IF FND_API.To_Boolean(p_init_msg_list) THEN
529: FND_MSG_PUB.initialize;
530: END IF;
531:
532: -- Initialize API return status to success
533: l_return_status := FND_API.G_RET_STS_SUCCESS;
554:
555: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
556: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
557: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan_id' );
558: FND_MSG_PUB.ADD;
559: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
560: RAISE FND_API.G_EXC_ERROR;
561:
562: end if;
555: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
556: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
557: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan_id' );
558: FND_MSG_PUB.ADD;
559: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
560: RAISE FND_API.G_EXC_ERROR;
561:
562: end if;
563:
587:
588: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted disbursement header' || l_pk_id);
589:
590: -- Standard call to get message count and if count is 1, get message info
591: FND_MSG_PUB.Count_And_Get(
592: p_encoded => FND_API.G_FALSE,
593: p_count => x_msg_count,
594: p_data => x_msg_data);
595:
598: EXCEPTION
599: WHEN FND_API.G_EXC_ERROR THEN
600: ROLLBACK TO INSERT_DISB_HEADER;
601: x_return_status := FND_API.G_RET_STS_ERROR;
602: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
603: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
605: ROLLBACK TO INSERT_DISB_HEADER;
606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
603: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
604: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
605: ROLLBACK TO INSERT_DISB_HEADER;
606: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
607: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
608: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
609: WHEN OTHERS THEN
610: ROLLBACK TO INSERT_DISB_HEADER;
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
608: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
609: WHEN OTHERS THEN
610: ROLLBACK TO INSERT_DISB_HEADER;
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
613: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
614: END IF;
615: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
616: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
609: WHEN OTHERS THEN
610: ROLLBACK TO INSERT_DISB_HEADER;
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
613: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
614: END IF;
615: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
616: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
617: END;
611: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
612: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
613: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
614: END IF;
615: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
616: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
617: END;
618:
619:
702: END IF;
703:
704: -- Initialize message list if p_init_msg_list is set to TRUE
705: IF FND_API.To_Boolean(p_init_msg_list) THEN
706: FND_MSG_PUB.initialize;
707: END IF;
708:
709: -- Initialize API return status to success
710: l_return_status := FND_API.G_RET_STS_SUCCESS;
731:
732: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
733: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
734: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
735: FND_MSG_PUB.ADD;
736: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
737: RAISE FND_API.G_EXC_ERROR;
738:
739: end if;
732: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
733: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
734: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
735: FND_MSG_PUB.ADD;
736: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
737: RAISE FND_API.G_EXC_ERROR;
738:
739: end if;
740:
747: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
748: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
749: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
750: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
751: FND_MSG_PUB.ADD;
752: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
753: RAISE FND_API.G_EXC_ERROR;
754:
755: end if;
748: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
749: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
750: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
751: FND_MSG_PUB.ADD;
752: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
753: RAISE FND_API.G_EXC_ERROR;
754:
755: end if;
756:
760:
761: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header record has already been changed');
762: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
763: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_HEADERS');
764: FND_MSG_PUB.ADD;
765: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
766: RAISE FND_API.G_EXC_ERROR;
767:
768: end if;
761: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header record has already been changed');
762: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
763: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_HEADERS');
764: FND_MSG_PUB.ADD;
765: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
766: RAISE FND_API.G_EXC_ERROR;
767:
768: end if;
769:
793:
794: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated disbursement header ' || P_DISB_HEADER_REC.DISB_HEADER_ID);
795:
796: -- Standard call to get message count and if count is 1, get message info
797: FND_MSG_PUB.Count_And_Get(
798: p_encoded => FND_API.G_FALSE,
799: p_count => x_msg_count,
800: p_data => x_msg_data);
801:
804: EXCEPTION
805: WHEN FND_API.G_EXC_ERROR THEN
806: ROLLBACK TO UPDATE_DISB_HEADER;
807: x_return_status := FND_API.G_RET_STS_ERROR;
808: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
809: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
811: ROLLBACK TO UPDATE_DISB_HEADER;
812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
811: ROLLBACK TO UPDATE_DISB_HEADER;
812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
813: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
814: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
815: WHEN OTHERS THEN
816: ROLLBACK TO UPDATE_DISB_HEADER;
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
814: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
815: WHEN OTHERS THEN
816: ROLLBACK TO UPDATE_DISB_HEADER;
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
819: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
820: END IF;
821: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
822: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
815: WHEN OTHERS THEN
816: ROLLBACK TO UPDATE_DISB_HEADER;
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
819: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
820: END IF;
821: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
822: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
823: END;
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
819: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
820: END IF;
821: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
822: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
823: END;
824:
825:
915: END IF;
916:
917: -- Initialize message list if p_init_msg_list is set to TRUE
918: IF FND_API.To_Boolean(p_init_msg_list) THEN
919: FND_MSG_PUB.initialize;
920: END IF;
921:
922: -- Initialize API return status to success
923: l_return_status := FND_API.G_RET_STS_SUCCESS;
933:
934: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
935: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
936: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
937: FND_MSG_PUB.ADD;
938: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
939: RAISE FND_API.G_EXC_ERROR;
940:
941: end if;
934: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
935: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
936: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
937: FND_MSG_PUB.ADD;
938: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
939: RAISE FND_API.G_EXC_ERROR;
940:
941: end if;
942:
949: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
950: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
951: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
952: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
953: FND_MSG_PUB.ADD;
954: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
955: RAISE FND_API.G_EXC_ERROR;
956:
957: end if;
950: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
951: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header');
952: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
953: FND_MSG_PUB.ADD;
954: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
955: RAISE FND_API.G_EXC_ERROR;
956:
957: end if;
958:
961: if l_status is not null then
962:
963: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement header. It has already been processed.');
964: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_HDR');
965: FND_MSG_PUB.ADD;
966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
967: RAISE FND_API.G_EXC_ERROR;
968:
969: end if;
962:
963: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement header. It has already been processed.');
964: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_HDR');
965: FND_MSG_PUB.ADD;
966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
967: RAISE FND_API.G_EXC_ERROR;
968:
969: end if;
970:
1009:
1010: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully deleted disbursement header ' || P_DISB_HEADER_ID);
1011:
1012: -- Standard call to get message count and if count is 1, get message info
1013: FND_MSG_PUB.Count_And_Get(
1014: p_encoded => FND_API.G_FALSE,
1015: p_count => x_msg_count,
1016: p_data => x_msg_data);
1017:
1020: EXCEPTION
1021: WHEN FND_API.G_EXC_ERROR THEN
1022: ROLLBACK TO DELETE_DISB_HEADER;
1023: x_return_status := FND_API.G_RET_STS_ERROR;
1024: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1025: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1026: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1027: ROLLBACK TO DELETE_DISB_HEADER;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1025: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1026: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1027: ROLLBACK TO DELETE_DISB_HEADER;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1030: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1031: WHEN OTHERS THEN
1032: ROLLBACK TO DELETE_DISB_HEADER;
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1030: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1031: WHEN OTHERS THEN
1032: ROLLBACK TO DELETE_DISB_HEADER;
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1034: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1035: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1036: END IF;
1037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1038: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1031: WHEN OTHERS THEN
1032: ROLLBACK TO DELETE_DISB_HEADER;
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1034: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1035: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1036: END IF;
1037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1038: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1039: END;
1033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1034: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1035: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1036: END IF;
1037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1038: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1039: END;
1040:
1041:
1117: END IF;
1118:
1119: -- Initialize message list if p_init_msg_list is set to TRUE
1120: IF FND_API.To_Boolean(p_init_msg_list) THEN
1121: FND_MSG_PUB.initialize;
1122: END IF;
1123:
1124: -- Initialize API return status to success
1125: l_return_status := FND_API.G_RET_STS_SUCCESS;
1148:
1149: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
1150: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1151: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
1152: FND_MSG_PUB.ADD;
1153: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1154: RAISE FND_API.G_EXC_ERROR;
1155:
1156: end if;
1149: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header ID is missing');
1150: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1151: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
1152: FND_MSG_PUB.ADD;
1153: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1154: RAISE FND_API.G_EXC_ERROR;
1155:
1156: end if;
1157:
1158: if P_DISB_LINE_REC.LINE_PERCENT is null then
1159:
1160: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
1161: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC');
1162: FND_MSG_PUB.ADD;
1163: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1164: RAISE FND_API.G_EXC_ERROR;
1165:
1166: end if;
1159:
1160: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
1161: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC');
1162: FND_MSG_PUB.ADD;
1163: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1164: RAISE FND_API.G_EXC_ERROR;
1165:
1166: end if;
1167:
1168: if P_DISB_LINE_REC.PAYEE_PARTY_ID is null then
1169:
1170: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
1171: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
1172: FND_MSG_PUB.ADD;
1173: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1174: RAISE FND_API.G_EXC_ERROR;
1175:
1176: end if;
1169:
1170: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
1171: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
1172: FND_MSG_PUB.ADD;
1173: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1174: RAISE FND_API.G_EXC_ERROR;
1175:
1176: end if;
1177:
1206:
1207: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted disbursement line ' || l_pk_id);
1208:
1209: -- Standard call to get message count and if count is 1, get message info
1210: FND_MSG_PUB.Count_And_Get(
1211: p_encoded => FND_API.G_FALSE,
1212: p_count => x_msg_count,
1213: p_data => x_msg_data);
1214:
1217: EXCEPTION
1218: WHEN FND_API.G_EXC_ERROR THEN
1219: ROLLBACK TO INSERT_DISB_LINE;
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1221: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1222: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: ROLLBACK TO INSERT_DISB_LINE;
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1222: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: ROLLBACK TO INSERT_DISB_LINE;
1225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1226: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1227: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1228: WHEN OTHERS THEN
1229: ROLLBACK TO INSERT_DISB_LINE;
1230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1227: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1228: WHEN OTHERS THEN
1229: ROLLBACK TO INSERT_DISB_LINE;
1230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1231: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1233: END IF;
1234: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1235: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1228: WHEN OTHERS THEN
1229: ROLLBACK TO INSERT_DISB_LINE;
1230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1231: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1233: END IF;
1234: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1235: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1236: END;
1230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1231: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1233: END IF;
1234: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1235: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1236: END;
1237:
1238:
1321: END IF;
1322:
1323: -- Initialize message list if p_init_msg_list is set to TRUE
1324: IF FND_API.To_Boolean(p_init_msg_list) THEN
1325: FND_MSG_PUB.initialize;
1326: END IF;
1327:
1328: -- Initialize API return status to success
1329: l_return_status := FND_API.G_RET_STS_SUCCESS;
1352:
1353: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1354: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1355: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1356: FND_MSG_PUB.ADD;
1357: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1358: RAISE FND_API.G_EXC_ERROR;
1359:
1360: end if;
1353: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1354: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1355: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1356: FND_MSG_PUB.ADD;
1357: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1358: RAISE FND_API.G_EXC_ERROR;
1359:
1360: end if;
1361:
1368: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement line record found');
1369: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1370: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1371: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_REC.DISB_LINE_ID), 'null'));
1372: FND_MSG_PUB.ADD;
1373: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1374: RAISE FND_API.G_EXC_ERROR;
1375:
1376: end if;
1369: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1370: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1371: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_REC.DISB_LINE_ID), 'null'));
1372: FND_MSG_PUB.ADD;
1373: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1374: RAISE FND_API.G_EXC_ERROR;
1375:
1376: end if;
1377:
1381:
1382: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line record has already been changed');
1383: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
1384: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_LINES');
1385: FND_MSG_PUB.ADD;
1386: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1387: RAISE FND_API.G_EXC_ERROR;
1388:
1389: end if;
1382: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line record has already been changed');
1383: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_RECORD_CHANGED');
1384: FND_MESSAGE.SET_TOKEN('TABLE', 'LNS_DISB_LINES');
1385: FND_MSG_PUB.ADD;
1386: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1387: RAISE FND_API.G_EXC_ERROR;
1388:
1389: end if;
1390:
1417:
1418: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully updated disbursement line ' || P_DISB_LINE_REC.DISB_LINE_ID);
1419:
1420: -- Standard call to get message count and if count is 1, get message info
1421: FND_MSG_PUB.Count_And_Get(
1422: p_encoded => FND_API.G_FALSE,
1423: p_count => x_msg_count,
1424: p_data => x_msg_data);
1425:
1428: EXCEPTION
1429: WHEN FND_API.G_EXC_ERROR THEN
1430: ROLLBACK TO UPDATE_DISB_LINE;
1431: x_return_status := FND_API.G_RET_STS_ERROR;
1432: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1433: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: ROLLBACK TO UPDATE_DISB_LINE;
1436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1433: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: ROLLBACK TO UPDATE_DISB_LINE;
1436: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1437: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1438: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1439: WHEN OTHERS THEN
1440: ROLLBACK TO UPDATE_DISB_LINE;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1438: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1439: WHEN OTHERS THEN
1440: ROLLBACK TO UPDATE_DISB_LINE;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1443: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1444: END IF;
1445: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1446: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1439: WHEN OTHERS THEN
1440: ROLLBACK TO UPDATE_DISB_LINE;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1443: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1444: END IF;
1445: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1446: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1447: END;
1441: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1442: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1443: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1444: END IF;
1445: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1446: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1447: END;
1448:
1449:
1533: END IF;
1534:
1535: -- Initialize message list if p_init_msg_list is set to TRUE
1536: IF FND_API.To_Boolean(p_init_msg_list) THEN
1537: FND_MSG_PUB.initialize;
1538: END IF;
1539:
1540: -- Initialize API return status to success
1541: l_return_status := FND_API.G_RET_STS_SUCCESS;
1552:
1553: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1554: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1555: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1556: FND_MSG_PUB.ADD;
1557: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1558: RAISE FND_API.G_EXC_ERROR;
1559:
1560: end if;
1553: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement line ID is missing');
1554: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1555: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_line_id' );
1556: FND_MSG_PUB.ADD;
1557: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1558: RAISE FND_API.G_EXC_ERROR;
1559:
1560: end if;
1561:
1568: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement line record found');
1569: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1570: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1571: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_ID), 'null'));
1572: FND_MSG_PUB.ADD;
1573: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1574: RAISE FND_API.G_EXC_ERROR;
1575:
1576: end if;
1569: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
1570: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line');
1571: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_LINE_ID), 'null'));
1572: FND_MSG_PUB.ADD;
1573: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1574: RAISE FND_API.G_EXC_ERROR;
1575:
1576: end if;
1577:
1580: if l_status is not null then
1581:
1582: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement line. It has already been processed.');
1583: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_LN');
1584: FND_MSG_PUB.ADD;
1585: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1586: RAISE FND_API.G_EXC_ERROR;
1587:
1588: end if;
1581:
1582: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Cannot delete disbursement line. It has already been processed.');
1583: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_DEL_DISB_LN');
1584: FND_MSG_PUB.ADD;
1585: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1586: RAISE FND_API.G_EXC_ERROR;
1587:
1588: end if;
1589:
1600:
1601: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully deleted disbursement line ' || P_DISB_LINE_ID);
1602:
1603: -- Standard call to get message count and if count is 1, get message info
1604: FND_MSG_PUB.Count_And_Get(
1605: p_encoded => FND_API.G_FALSE,
1606: p_count => x_msg_count,
1607: p_data => x_msg_data);
1608:
1611: EXCEPTION
1612: WHEN FND_API.G_EXC_ERROR THEN
1613: ROLLBACK TO DELETE_DISB_LINE;
1614: x_return_status := FND_API.G_RET_STS_ERROR;
1615: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1616: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1618: ROLLBACK TO DELETE_DISB_LINE;
1619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1616: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1617: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1618: ROLLBACK TO DELETE_DISB_LINE;
1619: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1620: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1621: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1622: WHEN OTHERS THEN
1623: ROLLBACK TO DELETE_DISB_LINE;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1621: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1622: WHEN OTHERS THEN
1623: ROLLBACK TO DELETE_DISB_LINE;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1626: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1627: END IF;
1628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1629: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1622: WHEN OTHERS THEN
1623: ROLLBACK TO DELETE_DISB_LINE;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1626: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1627: END IF;
1628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1629: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1630: END;
1624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1625: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1626: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1627: END IF;
1628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1629: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
1630: END;
1631:
1632:
1759: l_return_status := l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status;
1760: if (l_Ext_Payee_Create_Tab(l_Count).Payee_Creation_Status = 'E') then
1761: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1762: 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);
1763: FND_MSG_PUB.ADD;
1764: RAISE FND_API.G_EXC_ERROR;
1765: end if;
1766: END LOOP;
1767:
1767:
1768: if l_return_status = 'E' then
1769: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1770: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee');
1771: FND_MSG_PUB.ADD;
1772: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1773: p_count => l_msg_count,
1774: p_data => l_msg_data);
1775: RAISE FND_API.G_EXC_ERROR;
1768: if l_return_status = 'E' then
1769: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
1770: FND_MESSAGE.SET_TOKEN('ERROR' ,'Failed API call: IBY_DISBURSEMENT_SETUP_PUB.Create_External_Payee');
1771: FND_MSG_PUB.ADD;
1772: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1773: p_count => l_msg_count,
1774: p_data => l_msg_data);
1775: RAISE FND_API.G_EXC_ERROR;
1776: end if;
1918: END IF;
1919:
1920: -- Initialize message list if p_init_msg_list is set to TRUE
1921: IF FND_API.To_Boolean(p_init_msg_list) THEN
1922: FND_MSG_PUB.initialize;
1923: END IF;
1924:
1925: -- Initialize API return status to success
1926: l_return_status := FND_API.G_RET_STS_SUCCESS;
1953:
1954: if disb_headers_cur%NOTFOUND and l_count = 0 then
1955:
1956: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
1957: FND_MSG_PUB.ADD;
1958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1959:
1960: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
1961: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
1954: if disb_headers_cur%NOTFOUND and l_count = 0 then
1955:
1956: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
1957: FND_MSG_PUB.ADD;
1958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1959:
1960: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
1961: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
1962: FND_MSG_PUB.ADD;
1958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1959:
1960: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
1961: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
1962: FND_MSG_PUB.ADD;
1963: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1964: RAISE FND_API.G_EXC_ERROR;
1965:
1966: elsif disb_headers_cur%NOTFOUND and l_count > 0 then
1959:
1960: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement schedule is not found');
1961: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
1962: FND_MSG_PUB.ADD;
1963: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1964: RAISE FND_API.G_EXC_ERROR;
1965:
1966: elsif disb_headers_cur%NOTFOUND and l_count > 0 then
1967: exit;
1986:
1987: if l_DISB_HEADER_REC.LOAN_ID is null then
1988:
1989: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
1990: FND_MSG_PUB.ADD;
1991: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1992:
1993: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
1994: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1987: if l_DISB_HEADER_REC.LOAN_ID is null then
1988:
1989: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
1990: FND_MSG_PUB.ADD;
1991: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1992:
1993: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
1994: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1995: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
1992:
1993: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
1994: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1995: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
1996: FND_MSG_PUB.ADD;
1997: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1998: RAISE FND_API.G_EXC_ERROR;
1999:
2000: end if;
1993: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
1994: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
1995: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
1996: FND_MSG_PUB.ADD;
1997: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1998: RAISE FND_API.G_EXC_ERROR;
1999:
2000: end if;
2001:
2001:
2002: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
2003:
2004: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2005: FND_MSG_PUB.ADD;
2006: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2007:
2008: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2009: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2002: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
2003:
2004: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2005: FND_MSG_PUB.ADD;
2006: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2007:
2008: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2009: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2010: FND_MSG_PUB.ADD;
2006: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2007:
2008: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2009: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2010: FND_MSG_PUB.ADD;
2011: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2012: RAISE FND_API.G_EXC_ERROR;
2013:
2014: end if;
2007:
2008: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2009: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2010: FND_MSG_PUB.ADD;
2011: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2012: RAISE FND_API.G_EXC_ERROR;
2013:
2014: end if;
2015:
2015:
2016: if l_DISB_HEADER_REC.HEADER_PERCENT is null or l_DISB_HEADER_REC.HEADER_AMOUNT is null then
2017:
2018: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2019: FND_MSG_PUB.ADD;
2020: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2021:
2022: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2023: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2016: if l_DISB_HEADER_REC.HEADER_PERCENT is null or l_DISB_HEADER_REC.HEADER_AMOUNT is null then
2017:
2018: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2019: FND_MSG_PUB.ADD;
2020: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2021:
2022: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2023: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2024: FND_MSG_PUB.ADD;
2020: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2021:
2022: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2023: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2024: FND_MSG_PUB.ADD;
2025: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2026: RAISE FND_API.G_EXC_ERROR;
2027:
2028: end if;
2021:
2022: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2023: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2024: FND_MSG_PUB.ADD;
2025: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2026: RAISE FND_API.G_EXC_ERROR;
2027:
2028: end if;
2029:
2029:
2030: if l_DISB_HEADER_REC.TARGET_DATE is null then
2031:
2032: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2033: FND_MSG_PUB.ADD;
2034: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2035:
2036: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2037: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2030: if l_DISB_HEADER_REC.TARGET_DATE is null then
2031:
2032: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2033: FND_MSG_PUB.ADD;
2034: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2035:
2036: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2037: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2038: FND_MSG_PUB.ADD;
2034: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2035:
2036: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2037: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2038: FND_MSG_PUB.ADD;
2039: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2040: RAISE FND_API.G_EXC_ERROR;
2041:
2042: end if;
2035:
2036: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
2037: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
2038: FND_MSG_PUB.ADD;
2039: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2040: RAISE FND_API.G_EXC_ERROR;
2041:
2042: end if;
2043:
2044: if trunc(l_DISB_HEADER_REC.TARGET_DATE) < trunc(l_loan_start_date) then
2045:
2046: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
2047: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
2048: FND_MSG_PUB.ADD;
2049: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2050: RAISE FND_API.G_EXC_ERROR;
2051:
2052: end if;
2045:
2046: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
2047: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
2048: FND_MSG_PUB.ADD;
2049: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2050: RAISE FND_API.G_EXC_ERROR;
2051:
2052: end if;
2053:
2080: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement lines are not found');
2081: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2082: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line record');
2083: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(l_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
2084: FND_MSG_PUB.ADD;
2085: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2086: RAISE FND_API.G_EXC_ERROR;
2087:
2088: elsif disb_lines_cur%NOTFOUND and l_count1 > 0 then
2081: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2082: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement line record');
2083: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(l_DISB_HEADER_REC.DISB_HEADER_ID), 'null'));
2084: FND_MSG_PUB.ADD;
2085: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2086: RAISE FND_API.G_EXC_ERROR;
2087:
2088: elsif disb_lines_cur%NOTFOUND and l_count1 > 0 then
2089: exit;
2105:
2106: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2107:
2108: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2109: FND_MSG_PUB.ADD;
2110: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2111:
2112: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2113: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2106: if l_DISB_LINE_REC.DISB_HEADER_ID is null then
2107:
2108: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2109: FND_MSG_PUB.ADD;
2110: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2111:
2112: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2113: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2114: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2111:
2112: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2113: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2114: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2115: FND_MSG_PUB.ADD;
2116: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2117: RAISE FND_API.G_EXC_ERROR;
2118:
2119: end if;
2112: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2113: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2114: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2115: FND_MSG_PUB.ADD;
2116: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2117: RAISE FND_API.G_EXC_ERROR;
2118:
2119: end if;
2120:
2120:
2121: if l_DISB_LINE_REC.LINE_PERCENT is null or l_DISB_LINE_REC.LINE_AMOUNT is null then
2122:
2123: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2124: FND_MSG_PUB.ADD;
2125: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2126:
2127: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2128: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2121: if l_DISB_LINE_REC.LINE_PERCENT is null or l_DISB_LINE_REC.LINE_AMOUNT is null then
2122:
2123: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2124: FND_MSG_PUB.ADD;
2125: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2126:
2127: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2128: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2129: FND_MSG_PUB.ADD;
2125: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2126:
2127: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2128: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2129: FND_MSG_PUB.ADD;
2130: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2131: RAISE FND_API.G_EXC_ERROR;
2132:
2133: end if;
2126:
2127: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2128: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2129: FND_MSG_PUB.ADD;
2130: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2131: RAISE FND_API.G_EXC_ERROR;
2132:
2133: end if;
2134:
2134:
2135: if l_DISB_LINE_REC.PAYEE_PARTY_ID is null then
2136:
2137: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2138: FND_MSG_PUB.ADD;
2139: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2140:
2141: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2142: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2135: if l_DISB_LINE_REC.PAYEE_PARTY_ID is null then
2136:
2137: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2138: FND_MSG_PUB.ADD;
2139: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2140:
2141: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2142: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2143: FND_MSG_PUB.ADD;
2139: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2140:
2141: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2142: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2143: FND_MSG_PUB.ADD;
2144: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2145: RAISE FND_API.G_EXC_ERROR;
2146:
2147: end if;
2140:
2141: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2142: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2143: FND_MSG_PUB.ADD;
2144: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2145: RAISE FND_API.G_EXC_ERROR;
2146:
2147: end if;
2148:
2153: -- if no record exists - error; otherwise proceed
2154: if party_site_cur%NOTFOUND then
2155:
2156: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2157: FND_MSG_PUB.ADD;
2158: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2159:
2160: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2161: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2154: if party_site_cur%NOTFOUND then
2155:
2156: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2157: FND_MSG_PUB.ADD;
2158: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2159:
2160: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2161: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2162: FND_MSG_PUB.ADD;
2158: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2159:
2160: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2161: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2162: FND_MSG_PUB.ADD;
2163: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2164: RAISE FND_API.G_EXC_ERROR;
2165:
2166: end if;
2159:
2160: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2161: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2162: FND_MSG_PUB.ADD;
2163: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2164: RAISE FND_API.G_EXC_ERROR;
2165:
2166: end if;
2167: close party_site_cur;
2177:
2178: -- checking for total percent
2179: if l_sum_percent1 <> 100 or l_running_sum1 <> l_DISB_HEADER_REC.HEADER_AMOUNT then
2180: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2181: FND_MSG_PUB.ADD;
2182: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2183:
2184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2185: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2178: -- checking for total percent
2179: if l_sum_percent1 <> 100 or l_running_sum1 <> l_DISB_HEADER_REC.HEADER_AMOUNT then
2180: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2181: FND_MSG_PUB.ADD;
2182: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2183:
2184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2185: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2186: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2183:
2184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2185: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2186: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2187: FND_MSG_PUB.ADD;
2188: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2189: RAISE FND_API.G_EXC_ERROR;
2190: end if;
2191:
2184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent1);
2185: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2186: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_DISB_HEADER_REC.DISBURSEMENT_NUMBER);
2187: FND_MSG_PUB.ADD;
2188: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2189: RAISE FND_API.G_EXC_ERROR;
2190: end if;
2191:
2192: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Disbursement header ' || l_count || ' is OK');
2197:
2198: -- checking for total percent
2199: if l_sum_percent <> 100 or l_running_sum <> l_funded_amount then
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, 'Total percentage of all disbursements: ' || l_sum_percent);
2205: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
2198: -- checking for total percent
2199: if l_sum_percent <> 100 or l_running_sum <> l_funded_amount then
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, 'Total percentage of all disbursements: ' || l_sum_percent);
2205: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
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, 'Total percentage of all disbursements: ' || l_sum_percent);
2205: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
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: end if;
2210:
2203:
2204: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
2205: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
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: end if;
2210:
2211: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement schedule');
2213: -- END OF BODY OF API
2214: x_return_status := FND_API.G_RET_STS_SUCCESS;
2215:
2216: -- Standard call to get message count and if count is 1, get message info
2217: FND_MSG_PUB.Count_And_Get(
2218: p_encoded => FND_API.G_FALSE,
2219: p_count => x_msg_count,
2220: p_data => x_msg_data);
2221:
2223:
2224: EXCEPTION
2225: WHEN FND_API.G_EXC_ERROR THEN
2226: x_return_status := FND_API.G_RET_STS_ERROR;
2227: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2231: WHEN OTHERS THEN
2226: x_return_status := FND_API.G_RET_STS_ERROR;
2227: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2228: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2231: WHEN OTHERS THEN
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2233: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2234: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2231: WHEN OTHERS THEN
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2233: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2234: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2235: END IF;
2236: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2237:
2230: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2231: WHEN OTHERS THEN
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2233: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2234: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2235: END IF;
2236: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2237:
2238: END;
2232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2233: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2234: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2235: END IF;
2236: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2237:
2238: END;
2239:
2240:
2329: END IF;
2330:
2331: -- Initialize message list if p_init_msg_list is set to TRUE
2332: IF FND_API.To_Boolean(p_init_msg_list) THEN
2333: FND_MSG_PUB.initialize;
2334: END IF;
2335:
2336: -- Initialize API return status to success
2337: l_return_status := FND_API.G_RET_STS_SUCCESS;
2355: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Disbursement Header Record is not found');
2356: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2357: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header record');
2358: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
2359: FND_MSG_PUB.ADD;
2360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2361: RAISE FND_API.G_EXC_ERROR;
2362:
2363: end if;
2356: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
2357: FND_MESSAGE.SET_TOKEN('RECORD', 'disbursement header record');
2358: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
2359: FND_MSG_PUB.ADD;
2360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2361: RAISE FND_API.G_EXC_ERROR;
2362:
2363: end if;
2364:
2366:
2367: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
2368:
2369: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2370: FND_MSG_PUB.ADD;
2371: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2372:
2373: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2374: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2367: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
2368:
2369: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2370: FND_MSG_PUB.ADD;
2371: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2372:
2373: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2374: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2375: FND_MSG_PUB.ADD;
2371: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2372:
2373: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2374: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2375: FND_MSG_PUB.ADD;
2376: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2377: RAISE FND_API.G_EXC_ERROR;
2378:
2379: end if;
2372:
2373: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
2374: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
2375: FND_MSG_PUB.ADD;
2376: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2377: RAISE FND_API.G_EXC_ERROR;
2378:
2379: end if;
2380:
2380:
2381: if l_DISB_HEADER_REC.HEADER_PERCENT is null or l_DISB_HEADER_REC.HEADER_AMOUNT is null then
2382:
2383: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2384: FND_MSG_PUB.ADD;
2385: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2386:
2387: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2388: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2381: if l_DISB_HEADER_REC.HEADER_PERCENT is null or l_DISB_HEADER_REC.HEADER_AMOUNT is null then
2382:
2383: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBM_APPR_AND_DISB');
2384: FND_MSG_PUB.ADD;
2385: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2386:
2387: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2388: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2389: FND_MSG_PUB.ADD;
2385: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2386:
2387: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2388: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2389: FND_MSG_PUB.ADD;
2390: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2391: RAISE FND_API.G_EXC_ERROR;
2392:
2393: end if;
2386:
2387: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
2388: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
2389: FND_MSG_PUB.ADD;
2390: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2391: RAISE FND_API.G_EXC_ERROR;
2392:
2393: end if;
2394:
2396: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Payment request date: ' || l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE);
2397: if l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE is null then
2398: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date is missing');
2399: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_REQ_DATE' );
2400: FND_MSG_PUB.ADD;
2401: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2402: RAISE FND_API.G_EXC_ERROR;
2403: end if;
2404:
2397: if l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE is null then
2398: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date is missing');
2399: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_REQ_DATE' );
2400: FND_MSG_PUB.ADD;
2401: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2402: RAISE FND_API.G_EXC_ERROR;
2403: end if;
2404:
2405: if trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(l_open_start_date) then
2405: if trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(l_open_start_date) then
2406:
2407: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date must be greater than open start date');
2408: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_PAY_REQ_DT_INVALID' );
2409: FND_MSG_PUB.ADD;
2410: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2411: RAISE FND_API.G_EXC_ERROR;
2412:
2413: end if;
2406:
2407: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment request date must be greater than open start date');
2408: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_PAY_REQ_DT_INVALID' );
2409: FND_MSG_PUB.ADD;
2410: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2411: RAISE FND_API.G_EXC_ERROR;
2412:
2413: end if;
2414:
2416: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Number of lines without payment method: ' || l_no_pay_mtd_count);
2417: if l_no_pay_mtd_count > 0 then
2418: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'There are disb lines without payment method');
2419: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_METHOD' );
2420: FND_MSG_PUB.ADD;
2421: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2422: RAISE FND_API.G_EXC_ERROR;
2423: end if;
2424:
2417: if l_no_pay_mtd_count > 0 then
2418: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'There are disb lines without payment method');
2419: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAY_METHOD' );
2420: FND_MSG_PUB.ADD;
2421: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2422: RAISE FND_API.G_EXC_ERROR;
2423: end if;
2424:
2425: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursement header for payment request submition');
2427: -- END OF BODY OF API
2428: x_return_status := FND_API.G_RET_STS_SUCCESS;
2429:
2430: -- Standard call to get message count and if count is 1, get message info
2431: FND_MSG_PUB.Count_And_Get(
2432: p_encoded => FND_API.G_FALSE,
2433: p_count => x_msg_count,
2434: p_data => x_msg_data);
2435:
2437:
2438: EXCEPTION
2439: WHEN FND_API.G_EXC_ERROR THEN
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2445: WHEN OTHERS THEN
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2445: WHEN OTHERS THEN
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2445: WHEN OTHERS THEN
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2449: END IF;
2450: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2451:
2444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2445: WHEN OTHERS THEN
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2449: END IF;
2450: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2451:
2452: END;
2446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2447: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2448: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2449: END IF;
2450: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2451:
2452: END;
2453:
2454:
2586: END IF;
2587:
2588: -- Initialize message list if p_init_msg_list is set to TRUE
2589: IF FND_API.To_Boolean(p_init_msg_list) THEN
2590: FND_MSG_PUB.initialize;
2591: END IF;
2592:
2593: -- Initialize API return status to success
2594: l_return_status := FND_API.G_RET_STS_SUCCESS;
2656:
2657: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2658: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2659: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2660: FND_MSG_PUB.ADD;
2661: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2662: RAISE FND_API.G_EXC_ERROR;
2663:
2664: end if;
2657: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement header is missing');
2658: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
2659: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'disb_header_id' );
2660: FND_MSG_PUB.ADD;
2661: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2662: RAISE FND_API.G_EXC_ERROR;
2663:
2664: end if;
2665:
2666: if l_DISB_LINE_REC.LINE_PERCENT is null then
2667:
2668: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2669: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2670: FND_MSG_PUB.ADD;
2671: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2672: RAISE FND_API.G_EXC_ERROR;
2673:
2674: end if;
2667:
2668: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Line percent is missing');
2669: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE_PERC' );
2670: FND_MSG_PUB.ADD;
2671: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2672: RAISE FND_API.G_EXC_ERROR;
2673:
2674: end if;
2675:
2676: if l_DISB_LINE_REC.PAYEE_PARTY_ID is null then
2677:
2678: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2679: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2680: FND_MSG_PUB.ADD;
2681: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2682: RAISE FND_API.G_EXC_ERROR;
2683:
2684: end if;
2677:
2678: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payee party ID is missing');
2679: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_PAYEE' );
2680: FND_MSG_PUB.ADD;
2681: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2682: RAISE FND_API.G_EXC_ERROR;
2683:
2684: end if;
2685:
2691: if party_site_cur%NOTFOUND then
2692:
2693: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2694: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2695: FND_MSG_PUB.ADD;
2696: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2697: RAISE FND_API.G_EXC_ERROR;
2698:
2699: end if;
2692:
2693: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: No site exist for the party');
2694: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_PARTY_SITE');
2695: FND_MSG_PUB.ADD;
2696: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2697: RAISE FND_API.G_EXC_ERROR;
2698:
2699: end if;
2700: close party_site_cur;
2742: if l_sum_percent <> 100 then
2743: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent);
2744: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2745: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_disb_number);
2746: FND_MSG_PUB.ADD;
2747: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2748: RAISE FND_API.G_EXC_ERROR;
2749: end if;
2750:
2743: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all lines: ' || l_sum_percent);
2744: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_LN_PERC_INVALID');
2745: FND_MESSAGE.SET_TOKEN('DISB_NUM', l_disb_number);
2746: FND_MSG_PUB.ADD;
2747: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
2748: RAISE FND_API.G_EXC_ERROR;
2749: end if;
2750:
2751: -- loop thru table and update disb lines table
2778: -- END OF BODY OF API
2779: x_return_status := FND_API.G_RET_STS_SUCCESS;
2780:
2781: -- Standard call to get message count and if count is 1, get message info
2782: FND_MSG_PUB.Count_And_Get(
2783: p_encoded => FND_API.G_FALSE,
2784: p_count => x_msg_count,
2785: p_data => x_msg_data);
2786:
2789: EXCEPTION
2790: WHEN FND_API.G_EXC_ERROR THEN
2791: ROLLBACK TO VALIDATE_DISB_LINES;
2792: x_return_status := FND_API.G_RET_STS_ERROR;
2793: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2794: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2796: ROLLBACK TO VALIDATE_DISB_LINES;
2797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2794: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2795: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2796: ROLLBACK TO VALIDATE_DISB_LINES;
2797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2798: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2799: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2800: WHEN OTHERS THEN
2801: ROLLBACK TO VALIDATE_DISB_LINES;
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2799: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2800: WHEN OTHERS THEN
2801: ROLLBACK TO VALIDATE_DISB_LINES;
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2803: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2804: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2805: END IF;
2806: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2807: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2800: WHEN OTHERS THEN
2801: ROLLBACK TO VALIDATE_DISB_LINES;
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2803: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2804: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2805: END IF;
2806: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2807: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2808:
2802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2803: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
2804: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2805: END IF;
2806: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2807: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
2808:
2809: END;
2810:
2943: END IF;
2944:
2945: -- Initialize message list if p_init_msg_list is set to TRUE
2946: IF FND_API.To_Boolean(p_init_msg_list) THEN
2947: FND_MSG_PUB.initialize;
2948: END IF;
2949:
2950: -- Initialize API return status to success
2951: l_return_status := FND_API.G_RET_STS_SUCCESS;
3006:
3007: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
3008: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
3009: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
3010: FND_MSG_PUB.ADD;
3011: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3012: RAISE FND_API.G_EXC_ERROR;
3013:
3014: end if;
3007: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Loan ID is missing');
3008: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
3009: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'loan id' );
3010: FND_MSG_PUB.ADD;
3011: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3012: RAISE FND_API.G_EXC_ERROR;
3013:
3014: end if;
3015:
3016: if l_DISB_HEADER_REC.ACTIVITY_CODE is null then
3017:
3018: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
3019: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
3020: FND_MSG_PUB.ADD;
3021: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3022: RAISE FND_API.G_EXC_ERROR;
3023:
3024: end if;
3017:
3018: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Activity code is missing');
3019: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_ACTIV' );
3020: FND_MSG_PUB.ADD;
3021: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3022: RAISE FND_API.G_EXC_ERROR;
3023:
3024: end if;
3025:
3026: if l_DISB_HEADER_REC.HEADER_PERCENT is null then
3027:
3028: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
3029: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
3030: FND_MSG_PUB.ADD;
3031: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3032: RAISE FND_API.G_EXC_ERROR;
3033:
3034: end if;
3027:
3028: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Disbursement percent is missing');
3029: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_DISB_PERC' );
3030: FND_MSG_PUB.ADD;
3031: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3032: RAISE FND_API.G_EXC_ERROR;
3033:
3034: end if;
3035:
3036: if l_DISB_HEADER_REC.TARGET_DATE is null then
3037:
3038: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
3039: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
3040: FND_MSG_PUB.ADD;
3041: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3042: RAISE FND_API.G_EXC_ERROR;
3043:
3044: end if;
3037:
3038: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date is missing');
3039: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_ENTER_TARGET_DATE' );
3040: FND_MSG_PUB.ADD;
3041: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3042: RAISE FND_API.G_EXC_ERROR;
3043:
3044: end if;
3045:
3048: AND ( trunc(l_DISB_HEADER_REC.PAYMENT_REQUEST_DATE) < trunc(sysdate))) then
3049:
3050: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment Request date is less than today');
3051: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_REQ_DATE_ERR' );
3052: FND_MSG_PUB.ADD;
3053: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3054: RAISE FND_API.G_EXC_ERROR;
3055:
3056: end if;
3049:
3050: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Payment Request date is less than today');
3051: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_REQ_DATE_ERR' );
3052: FND_MSG_PUB.ADD;
3053: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3054: RAISE FND_API.G_EXC_ERROR;
3055:
3056: end if;
3057:
3059: if trunc(l_DISB_HEADER_REC.TARGET_DATE) < trunc(l_loan_start_date) then
3060:
3061: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
3062: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
3063: FND_MSG_PUB.ADD;
3064: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3065: RAISE FND_API.G_EXC_ERROR;
3066:
3067: end if;
3060:
3061: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Target date must be later that start date');
3062: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_DISB_TARGET_DATE_ERR' );
3063: FND_MSG_PUB.ADD;
3064: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3065: RAISE FND_API.G_EXC_ERROR;
3066:
3067: end if;
3068: end if;
3109: -- checking for total percent
3110: if l_sum_percent <> 100 then
3111: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
3112: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
3113: FND_MSG_PUB.ADD;
3114: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3115: RAISE FND_API.G_EXC_ERROR;
3116: end if;
3117:
3110: if l_sum_percent <> 100 then
3111: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total percentage of all disbursements: ' || l_sum_percent);
3112: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_HDR_PERC_INVALID');
3113: FND_MSG_PUB.ADD;
3114: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
3115: RAISE FND_API.G_EXC_ERROR;
3116: end if;
3117:
3118: -- loop thru table and update disb headers table
3182: -- END OF BODY OF API
3183: x_return_status := FND_API.G_RET_STS_SUCCESS;
3184:
3185: -- Standard call to get message count and if count is 1, get message info
3186: FND_MSG_PUB.Count_And_Get(
3187: p_encoded => FND_API.G_FALSE,
3188: p_count => x_msg_count,
3189: p_data => x_msg_data);
3190:
3193: EXCEPTION
3194: WHEN FND_API.G_EXC_ERROR THEN
3195: ROLLBACK TO VALIDATE_DISB_HEADERS;
3196: x_return_status := FND_API.G_RET_STS_ERROR;
3197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3198: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3200: ROLLBACK TO VALIDATE_DISB_HEADERS;
3201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3198: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3200: ROLLBACK TO VALIDATE_DISB_HEADERS;
3201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3202: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3204: WHEN OTHERS THEN
3205: ROLLBACK TO VALIDATE_DISB_HEADERS;
3206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3203: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3204: WHEN OTHERS THEN
3205: ROLLBACK TO VALIDATE_DISB_HEADERS;
3206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3209: END IF;
3210: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3211: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3204: WHEN OTHERS THEN
3205: ROLLBACK TO VALIDATE_DISB_HEADERS;
3206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3209: END IF;
3210: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3211: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3212:
3206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3207: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3208: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3209: END IF;
3210: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3211: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3212:
3213: END;
3214:
3295: END IF;
3296:
3297: -- Initialize message list if p_init_msg_list is set to TRUE
3298: IF FND_API.To_Boolean(p_init_msg_list) THEN
3299: FND_MSG_PUB.initialize;
3300: END IF;
3301:
3302: -- Initialize API return status to success
3303: l_return_status := FND_API.G_RET_STS_SUCCESS;
3369: -- END OF BODY OF API
3370: x_return_status := FND_API.G_RET_STS_SUCCESS;
3371:
3372: -- Standard call to get message count and if count is 1, get message info
3373: FND_MSG_PUB.Count_And_Get(
3374: p_encoded => FND_API.G_FALSE,
3375: p_count => x_msg_count,
3376: p_data => x_msg_data);
3377:
3380: EXCEPTION
3381: WHEN FND_API.G_EXC_ERROR THEN
3382: ROLLBACK TO Get_Default_Payment_Attr;
3383: x_return_status := FND_API.G_RET_STS_ERROR;
3384: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3385: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3387: ROLLBACK TO Get_Default_Payment_Attr;
3388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3385: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3386: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3387: ROLLBACK TO Get_Default_Payment_Attr;
3388: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3389: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3390: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3391: WHEN OTHERS THEN
3392: ROLLBACK TO Get_Default_Payment_Attr;
3393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3390: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3391: WHEN OTHERS THEN
3392: ROLLBACK TO Get_Default_Payment_Attr;
3393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3394: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3395: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3396: END IF;
3397: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3398: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3391: WHEN OTHERS THEN
3392: ROLLBACK TO Get_Default_Payment_Attr;
3393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3394: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3395: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3396: END IF;
3397: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3398: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3399:
3393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3394: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
3395: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3396: END IF;
3397: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3398: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
3399:
3400: END;
3401:
3452: IF p_loan_id IS NULL THEN
3453: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'LOAN ID is missing');
3454: FND_MESSAGE.SET_NAME( 'LNS', 'LNS_API_MISSING_COLUMN' );
3455: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'p_loan_id' );
3456: FND_MSG_PUB.ADD;
3457: RAISE FND_API.G_EXC_ERROR;
3458: END IF;
3459: SELECT llh.primary_borrower_id
3460: ,llh.org_id
3545: WHEN OTHERS THEN
3546: ROLLBACK TO DEFAULT_PROD_DISBURSEMENTS;
3547: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
3548: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3549: FND_MSG_PUB.ADD;
3550:
3551: END DEFAULT_PROD_DISBURSEMENTS;
3552:
3553:
3771: END IF;
3772:
3773: -- Initialize message list if p_init_msg_list is set to TRUE
3774: IF FND_API.To_Boolean(p_init_msg_list) THEN
3775: FND_MSG_PUB.initialize;
3776: END IF;
3777:
3778: -- Initialize API return status to success
3779: l_return_status := FND_API.G_RET_STS_SUCCESS;
4213:
4214: if l_new_invoice = 'Y' then
4215: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to insert invoice into interface table');
4216: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_INS_AP_INV');
4217: FND_MSG_PUB.Add;
4218: else
4219: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to update invoice into interface table');
4220: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_UPD_AP_INV');
4221: FND_MSG_PUB.Add;
4217: FND_MSG_PUB.Add;
4218: else
4219: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to update invoice into interface table');
4220: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_UPD_AP_INV');
4221: FND_MSG_PUB.Add;
4222: end if;
4223:
4224: RAISE FND_API.G_EXC_ERROR;
4225: END;
4449: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to insert invoice line into interface table');
4450: ROLLBACK TO SUBMIT_SINGLE_PAY_REQ;
4451:
4452: FND_MESSAGE.SET_NAME('LNS', 'LNS_FAIL_INS_AP_INV_LN');
4453: FND_MSG_PUB.Add;
4454: RAISE FND_API.G_EXC_ERROR;
4455: END;
4456:
4457: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully inserted new invoice line.');
4576:
4577: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_REJECTION');
4578: FND_MESSAGE.SET_TOKEN('PAYEE', l_payee);
4579: FND_MESSAGE.SET_TOKEN('REJECTION', l_reject_desc);
4580: FND_MSG_PUB.Add;
4581:
4582: END LOOP;
4583:
4584: else
4601:
4602: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Successfully submitted single payment request');
4603:
4604: -- Standard call to get message count and if count is 1, get message info
4605: FND_MSG_PUB.Count_And_Get(
4606: p_encoded => FND_API.G_FALSE,
4607: p_count => x_msg_count,
4608: p_data => x_msg_data);
4609:
4646:
4647: COMMIT WORK;
4648:
4649: x_return_status := FND_API.G_RET_STS_ERROR;
4650: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4651: END;
4652:
4653:
4654:
4730: END IF;
4731:
4732: -- Initialize message list if p_init_msg_list is set to TRUE
4733: IF FND_API.To_Boolean(p_init_msg_list) THEN
4734: FND_MSG_PUB.initialize;
4735: END IF;
4736:
4737: -- Initialize API return status to success
4738: l_return_status := FND_API.G_RET_STS_SUCCESS;
4766: -- END OF BODY OF API
4767: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited');
4768:
4769: -- Standard call to get message count and if count is 1, get message info
4770: FND_MSG_PUB.Count_And_Get(
4771: p_encoded => FND_API.G_FALSE,
4772: p_count => x_msg_count,
4773: p_data => x_msg_data);
4774:
4776:
4777: EXCEPTION
4778: WHEN FND_API.G_EXC_ERROR THEN
4779: x_return_status := FND_API.G_RET_STS_ERROR;
4780: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4784: WHEN OTHERS THEN
4779: x_return_status := FND_API.G_RET_STS_ERROR;
4780: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4781: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4784: WHEN OTHERS THEN
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
4787: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4784: WHEN OTHERS THEN
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
4787: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4788: END IF;
4789: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4790: END;
4783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4784: WHEN OTHERS THEN
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
4787: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4788: END IF;
4789: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4790: END;
4791:
4785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4786: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
4787: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4788: END IF;
4789: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4790: END;
4791:
4792:
4793:
4921: END IF;
4922:
4923: -- Initialize message list if p_init_msg_list is set to TRUE
4924: IF FND_API.To_Boolean(p_init_msg_list) THEN
4925: FND_MSG_PUB.initialize;
4926: END IF;
4927:
4928: -- Initialize API return status to success
4929: l_return_status := FND_API.G_RET_STS_SUCCESS;
4947: -- LogMessage(FND_LOG.LEVEL_STATEMENT, 'ERROR: Loan Record is not found');
4948: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
4949: FND_MESSAGE.SET_TOKEN('RECORD', 'loan header');
4950: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
4951: FND_MSG_PUB.ADD;
4952: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
4953: RAISE FND_API.G_EXC_ERROR;
4954:
4955: end if;
4948: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_NO_RECORD');
4949: FND_MESSAGE.SET_TOKEN('RECORD', 'loan header');
4950: FND_MESSAGE.SET_TOKEN('VALUE', NVL(TO_CHAR(P_DISB_HEADER_ID), 'null'));
4951: FND_MSG_PUB.ADD;
4952: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
4953: RAISE FND_API.G_EXC_ERROR;
4954:
4955: end if;
4956:
5003: close conditions_cur;
5004:
5005: if l_cond_count > 0 then
5006: FND_MESSAGE.SET_NAME('LNS', 'LNS_NOT_ALL_COND_MET');
5007: FND_MSG_PUB.Add;
5008: RAISE FND_API.G_EXC_ERROR;
5009: end if;
5010:
5011: -- create iby external payee
5106: IF l_return_status = 'S' THEN
5107: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5108: ELSE
5109: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5110: FND_MSG_PUB.Add;
5111: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5112: -- RAISE FND_API.G_EXC_ERROR;
5113: END IF;
5114:
5107: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5108: ELSE
5109: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5110: FND_MSG_PUB.Add;
5111: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5112: -- RAISE FND_API.G_EXC_ERROR;
5113: END IF;
5114:
5115: end if;
5125: x_return_status := FND_API.G_RET_STS_SUCCESS;
5126: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_DISBURSEMENT returned status: ' || x_return_status);
5127:
5128: -- Standard call to get message count and if count is 1, get message info
5129: FND_MSG_PUB.Count_And_Get(
5130: p_encoded => FND_API.G_FALSE,
5131: p_count => x_msg_count,
5132: p_data => x_msg_data);
5133:
5135:
5136: EXCEPTION
5137: WHEN OTHERS THEN
5138: x_return_status := FND_API.G_RET_STS_ERROR;
5139: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5140:
5141: if x_msg_count = 0 then
5142: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBMIT_DISB_FAILED');
5143: FND_MSG_PUB.Add;
5139: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5140:
5141: if x_msg_count = 0 then
5142: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBMIT_DISB_FAILED');
5143: FND_MSG_PUB.Add;
5144: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5145: end if;
5146:
5147: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_DISBURSEMENT returned status: ' || x_return_status);
5140:
5141: if x_msg_count = 0 then
5142: FND_MESSAGE.SET_NAME('LNS', 'LNS_SUBMIT_DISB_FAILED');
5143: FND_MSG_PUB.Add;
5144: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
5145: end if;
5146:
5147: LogMessage(FND_LOG.LEVEL_STATEMENT, 'SUBMIT_DISBURSEMENT returned status: ' || x_return_status);
5148:
5542: ,x_msg_data => l_msg_data);
5543:
5544: IF l_return_status <> 'S' THEN
5545: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Call to LNS_FINANCIALS.shiftLoanDates failed');
5546: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5547: RAISE FND_API.G_EXC_ERROR;
5548: END IF;
5549:
5550: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New loan start date: ' || l_loan_details.loan_start_date);
5582: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5583: ELSE
5584: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5585: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5586: FND_MSG_PUB.Add;
5587: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5588: RAISE FND_API.G_EXC_ERROR;
5589: END IF;
5590:
5583: ELSE
5584: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5585: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5586: FND_MSG_PUB.Add;
5587: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5588: RAISE FND_API.G_EXC_ERROR;
5589: END IF;
5590:
5591: -- setting data for future loan update
5635: IF l_return_status = 'S' THEN
5636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5637: ELSE
5638: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5639: FND_MSG_PUB.Add;
5640: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5641: RAISE FND_API.G_EXC_ERROR;
5642: END IF;
5643:
5636: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5637: ELSE
5638: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5639: FND_MSG_PUB.Add;
5640: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5641: RAISE FND_API.G_EXC_ERROR;
5642: END IF;
5643:
5644: lns_fee_engine.processDisbursementFees(
5698: if l_request_id = 0 then
5699:
5700: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Failed to start Billing Concurrent Program.');
5701: FND_MESSAGE.SET_NAME('LNS', 'LNS_BILLING_REQUEST_FAILED');
5702: FND_MSG_PUB.Add;
5703: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5704: RAISE FND_API.G_EXC_ERROR;
5705:
5706: else
5699:
5700: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Failed to start Billing Concurrent Program.');
5701: FND_MESSAGE.SET_NAME('LNS', 'LNS_BILLING_REQUEST_FAILED');
5702: FND_MSG_PUB.Add;
5703: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5704: RAISE FND_API.G_EXC_ERROR;
5705:
5706: else
5707: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Successfully submited Billing Concurrent Program to bill 0-th installment. Request id: ' || l_request_id);
5743: IF l_return_status = 'S' THEN
5744: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5745: ELSE
5746: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5747: FND_MSG_PUB.Add;
5748: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5749: RAISE FND_API.G_EXC_ERROR;
5750: END IF;
5751:
5744: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5745: ELSE
5746: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5747: FND_MSG_PUB.Add;
5748: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5749: RAISE FND_API.G_EXC_ERROR;
5750: END IF;
5751:
5752: end if;
5769: ,x_msg_count => l_msg_count
5770: ,x_msg_data => l_msg_data);
5771:
5772: IF l_return_status <> 'S' THEN
5773: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5774: RAISE FND_API.G_EXC_ERROR;
5775: END IF;
5776:
5777: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New open start date: ' || l_loan_details.loan_start_date);
5808: ,x_msg_count => l_msg_count
5809: ,x_msg_data => l_msg_data);
5810:
5811: IF l_return_status <> 'S' THEN
5812: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5813: RAISE FND_API.G_EXC_ERROR;
5814: END IF;
5815:
5816: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
5841: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5842: ELSE
5843: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5844: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5845: FND_MSG_PUB.Add;
5846: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5847: RAISE FND_API.G_EXC_ERROR;
5848: END IF;
5849:
5842: ELSE
5843: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5844: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5845: FND_MSG_PUB.Add;
5846: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5847: RAISE FND_API.G_EXC_ERROR;
5848: END IF;
5849:
5850: -- setting loan data for loan update
5867: ,x_msg_count => l_msg_count
5868: ,x_msg_data => l_msg_data);
5869:
5870: IF l_return_status <> 'S' THEN
5871: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5872: RAISE FND_API.G_EXC_ERROR;
5873: END IF;
5874:
5875: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'New start date: ' || l_loan_details.loan_start_date);
5907: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_TERMS');
5908: ELSE
5909: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5910: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5911: FND_MSG_PUB.Add;
5912: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5913: RAISE FND_API.G_EXC_ERROR;
5914: END IF;
5915:
5908: ELSE
5909: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
5910: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
5911: FND_MSG_PUB.Add;
5912: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5913: RAISE FND_API.G_EXC_ERROR;
5914: END IF;
5915:
5916: -- setting loan data for loan update
5953: IF l_return_status = 'S' THEN
5954: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5955: ELSE
5956: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5957: FND_MSG_PUB.Add;
5958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5959: RAISE FND_API.G_EXC_ERROR;
5960: END IF;
5961:
5954: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
5955: ELSE
5956: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
5957: FND_MSG_PUB.Add;
5958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
5959: RAISE FND_API.G_EXC_ERROR;
5960: END IF;
5961:
5962: end if;
6001:
6002: if l_request_id = 0 then
6003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6004: FND_MESSAGE.SET_NAME('LNS', 'LNS_AGREEMENT_REQUEST_FAILED');
6005: FND_MSG_PUB.Add;
6006: l_last_api_called := 'FND_REQUEST.SUBMIT_REQUEST for Loan Agreement Report Generation';
6007: RAISE FND_API.G_EXC_ERROR;
6008: else
6009: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully submited Loan Agreement Report Generation Concurrent Program. Request id: ' || l_request_id);
6023:
6024: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed payment');
6025:
6026: -- Standard call to get message count and if count is 1, get message info
6027: FND_MSG_PUB.Count_And_Get(
6028: p_encoded => FND_API.G_FALSE,
6029: p_count => x_msg_count,
6030: p_data => x_msg_data);
6031:
6034: EXCEPTION
6035: WHEN FND_API.G_EXC_ERROR THEN
6036: ROLLBACK TO PAY_SINGLE_INVOICE;
6037: x_return_status := FND_API.G_RET_STS_ERROR;
6038: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6039: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6041: ROLLBACK TO PAY_SINGLE_INVOICE;
6042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6039: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6040: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6041: ROLLBACK TO PAY_SINGLE_INVOICE;
6042: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6043: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6044: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6045: WHEN OTHERS THEN
6046: ROLLBACK TO PAY_SINGLE_INVOICE;
6047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6044: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6045: WHEN OTHERS THEN
6046: ROLLBACK TO PAY_SINGLE_INVOICE;
6047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6048: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6049: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6050: END IF;
6051: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6052: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6045: WHEN OTHERS THEN
6046: ROLLBACK TO PAY_SINGLE_INVOICE;
6047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6048: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6049: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6050: END IF;
6051: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6052: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6053: END;
6047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6048: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6049: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6050: END IF;
6051: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6052: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6053: END;
6054:
6055:
6168:
6169: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully processed payment event');
6170:
6171: -- Standard call to get message count and if count is 1, get message info
6172: FND_MSG_PUB.Count_And_Get(
6173: p_encoded => FND_API.G_FALSE,
6174: p_count => p_msg_count,
6175: p_data => p_msg_data);
6176:
6179: EXCEPTION
6180: WHEN FND_API.G_EXC_ERROR THEN
6181: ROLLBACK TO SubscribeTo_Payment_Event;
6182: p_return_status := FND_API.G_RET_STS_ERROR;
6183: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6186: ROLLBACK TO SubscribeTo_Payment_Event;
6187: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6184: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6186: ROLLBACK TO SubscribeTo_Payment_Event;
6187: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6188: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6189: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6190: WHEN OTHERS THEN
6191: ROLLBACK TO SubscribeTo_Payment_Event;
6192: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6189: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6190: WHEN OTHERS THEN
6191: ROLLBACK TO SubscribeTo_Payment_Event;
6192: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6194: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6195: END IF;
6196: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6197: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6190: WHEN OTHERS THEN
6191: ROLLBACK TO SubscribeTo_Payment_Event;
6192: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6194: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6195: END IF;
6196: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6197: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6198: END;
6192: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6194: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6195: END IF;
6196: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count, p_data => p_msg_data);
6197: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6198: END;
6199:
6200:
6286: END IF;
6287:
6288: -- Initialize message list if p_init_msg_list is set to TRUE
6289: IF FND_API.To_Boolean(p_init_msg_list) THEN
6290: FND_MSG_PUB.initialize;
6291: END IF;
6292:
6293: -- Initialize API return status to success
6294: l_return_status := FND_API.G_RET_STS_SUCCESS;
6331:
6332: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully completed all disbursements for loan ' || P_LOAN_ID);
6333:
6334: -- Standard call to get message count and if count is 1, get message info
6335: FND_MSG_PUB.Count_And_Get(
6336: p_encoded => FND_API.G_FALSE,
6337: p_count => x_msg_count,
6338: p_data => x_msg_data);
6339:
6342: EXCEPTION
6343: WHEN FND_API.G_EXC_ERROR THEN
6344: ROLLBACK TO COMPLETE_ALL_DISB;
6345: x_return_status := FND_API.G_RET_STS_ERROR;
6346: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6347: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6349: ROLLBACK TO COMPLETE_ALL_DISB;
6350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6347: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6349: ROLLBACK TO COMPLETE_ALL_DISB;
6350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6351: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6352: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6353: WHEN OTHERS THEN
6354: ROLLBACK TO COMPLETE_ALL_DISB;
6355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6352: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6353: WHEN OTHERS THEN
6354: ROLLBACK TO COMPLETE_ALL_DISB;
6355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6356: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6357: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6358: END IF;
6359: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6353: WHEN OTHERS THEN
6354: ROLLBACK TO COMPLETE_ALL_DISB;
6355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6356: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6357: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6358: END IF;
6359: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6361: END;
6355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6356: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6357: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6358: END IF;
6359: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6360: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6361: END;
6362:
6363:
6471: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
6472:
6473: -- Initialize message list if p_init_msg_list is set to TRUE
6474: IF FND_API.To_Boolean(p_init_msg_list) THEN
6475: FND_MSG_PUB.initialize;
6476: END IF;
6477:
6478: -- Initialize API return status to success
6479: l_return_status := FND_API.G_RET_STS_SUCCESS;
6550:
6551: IF NOT l_success THEN
6552: FND_MESSAGE.SET_NAME('SQLAP4', l_message_name);
6553: FND_MESSAGE.SET_TOKEN('ERROR', l_Token);
6554: FND_MSG_PUB.ADD;
6555: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6556: RAISE FND_API.G_EXC_ERROR;
6557: ELSE
6558: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled AP invoice');
6551: IF NOT l_success THEN
6552: FND_MESSAGE.SET_NAME('SQLAP4', l_message_name);
6553: FND_MESSAGE.SET_TOKEN('ERROR', l_Token);
6554: FND_MSG_PUB.ADD;
6555: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6556: RAISE FND_API.G_EXC_ERROR;
6557: ELSE
6558: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled AP invoice');
6559: END IF;
6642:
6643: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled disbursement header with lines');
6644:
6645: -- Standard call to get message count and if count is 1, get message info
6646: FND_MSG_PUB.Count_And_Get(
6647: p_encoded => FND_API.G_FALSE,
6648: p_count => x_msg_count,
6649: p_data => x_msg_data);
6650:
6653: EXCEPTION
6654: WHEN FND_API.G_EXC_ERROR THEN
6655: ROLLBACK TO CANCEL_SINGLE_DISB;
6656: x_return_status := FND_API.G_RET_STS_ERROR;
6657: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6658: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6660: ROLLBACK TO CANCEL_SINGLE_DISB;
6661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6658: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6659: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6660: ROLLBACK TO CANCEL_SINGLE_DISB;
6661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6662: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6663: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6664: WHEN OTHERS THEN
6665: ROLLBACK TO CANCEL_SINGLE_DISB;
6666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6663: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6664: WHEN OTHERS THEN
6665: ROLLBACK TO CANCEL_SINGLE_DISB;
6666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6667: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6668: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6669: END IF;
6670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6671: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6664: WHEN OTHERS THEN
6665: ROLLBACK TO CANCEL_SINGLE_DISB;
6666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6667: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6668: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6669: END IF;
6670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6671: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6672: END;
6666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6667: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6668: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6669: END IF;
6670: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6671: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6672: END;
6673:
6674:
6771: END IF;
6772:
6773: -- Initialize message list if p_init_msg_list is set to TRUE
6774: IF FND_API.To_Boolean(p_init_msg_list) THEN
6775: FND_MSG_PUB.initialize;
6776: END IF;
6777:
6778: -- Initialize API return status to success
6779: l_return_status := FND_API.G_RET_STS_SUCCESS;
6843: IF l_return_status = 'S' THEN
6844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6845: ELSE
6846: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6847: FND_MSG_PUB.Add;
6848: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6849: RAISE FND_API.G_EXC_ERROR;
6850: END IF;
6851:
6844: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
6845: ELSE
6846: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
6847: FND_MSG_PUB.Add;
6848: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
6849: RAISE FND_API.G_EXC_ERROR;
6850: END IF;
6851:
6852: LogMessage(FND_LOG.LEVEL_STATEMENT, 'calling lns_distributions_pub.cancel_disbursements');
6874:
6875: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancelled all remaining disbursements');
6876:
6877: -- Standard call to get message count and if count is 1, get message info
6878: FND_MSG_PUB.Count_And_Get(
6879: p_encoded => FND_API.G_FALSE,
6880: p_count => x_msg_count,
6881: p_data => x_msg_data);
6882:
6885: EXCEPTION
6886: WHEN FND_API.G_EXC_ERROR THEN
6887: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6888: x_return_status := FND_API.G_RET_STS_ERROR;
6889: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6890: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6892: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6890: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6892: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6894: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6895: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6896: WHEN OTHERS THEN
6897: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6895: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6896: WHEN OTHERS THEN
6897: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6900: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6901: END IF;
6902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6903: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6896: WHEN OTHERS THEN
6897: ROLLBACK TO APPROVE_CANCEL_REM_DISB;
6898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6900: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6901: END IF;
6902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6903: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6904: END;
6898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6899: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
6900: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
6901: END IF;
6902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6903: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
6904: END;
6905:
6906:
7003: END IF;
7004:
7005: -- Initialize message list if p_init_msg_list is set to TRUE
7006: IF FND_API.To_Boolean(p_init_msg_list) THEN
7007: FND_MSG_PUB.initialize;
7008: END IF;
7009:
7010: -- Initialize API return status to success
7011: l_return_status := FND_API.G_RET_STS_SUCCESS;
7045: IF l_return_status = 'S' THEN
7046: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7047: ELSE
7048: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7049: FND_MSG_PUB.Add;
7050: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7051: RAISE FND_API.G_EXC_ERROR;
7052: END IF;
7053:
7046: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7047: ELSE
7048: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7049: FND_MSG_PUB.Add;
7050: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7051: RAISE FND_API.G_EXC_ERROR;
7052: END IF;
7053:
7054: if P_COMMIT = FND_API.G_TRUE then
7061:
7062: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully reactivation disbursement schedule');
7063:
7064: -- Standard call to get message count and if count is 1, get message info
7065: FND_MSG_PUB.Count_And_Get(
7066: p_encoded => FND_API.G_FALSE,
7067: p_count => x_msg_count,
7068: p_data => x_msg_data);
7069:
7072: EXCEPTION
7073: WHEN FND_API.G_EXC_ERROR THEN
7074: ROLLBACK TO REJECT_CANCEL_DISB;
7075: x_return_status := FND_API.G_RET_STS_ERROR;
7076: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7077: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7079: ROLLBACK TO REJECT_CANCEL_DISB;
7080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7077: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7078: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7079: ROLLBACK TO REJECT_CANCEL_DISB;
7080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7081: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7082: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7083: WHEN OTHERS THEN
7084: ROLLBACK TO REJECT_CANCEL_DISB;
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7082: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7083: WHEN OTHERS THEN
7084: ROLLBACK TO REJECT_CANCEL_DISB;
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7086: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7087: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7088: END IF;
7089: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7090: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7083: WHEN OTHERS THEN
7084: ROLLBACK TO REJECT_CANCEL_DISB;
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7086: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7087: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7088: END IF;
7089: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7090: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7091: END;
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7086: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7087: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7088: END IF;
7089: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7090: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7091: END;
7092:
7093:
7182: END IF;
7183:
7184: -- Initialize message list if p_init_msg_list is set to TRUE
7185: IF FND_API.To_Boolean(p_init_msg_list) THEN
7186: FND_MSG_PUB.initialize;
7187: END IF;
7188:
7189: -- Initialize API return status to success
7190: l_return_status := FND_API.G_RET_STS_SUCCESS;
7227: IF l_return_status = 'S' THEN
7228: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7229: ELSE
7230: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7231: FND_MSG_PUB.Add;
7232: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7233: RAISE FND_API.G_EXC_ERROR;
7234: END IF;
7235:
7228: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL');
7229: ELSE
7230: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_LOAN_FAIL');
7231: FND_MSG_PUB.Add;
7232: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7233: RAISE FND_API.G_EXC_ERROR;
7234: END IF;
7235:
7236: else
7261:
7262: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully cancel disbursements');
7263:
7264: -- Standard call to get message count and if count is 1, get message info
7265: FND_MSG_PUB.Count_And_Get(
7266: p_encoded => FND_API.G_FALSE,
7267: p_count => x_msg_count,
7268: p_data => x_msg_data);
7269:
7272: EXCEPTION
7273: WHEN FND_API.G_EXC_ERROR THEN
7274: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7275: x_return_status := FND_API.G_RET_STS_ERROR;
7276: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7277: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7279: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7277: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7279: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7281: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7282: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7283: WHEN OTHERS THEN
7284: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7282: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7283: WHEN OTHERS THEN
7284: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7287: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7288: END IF;
7289: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7290: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7283: WHEN OTHERS THEN
7284: ROLLBACK TO CANCEL_DISB_SCHEDULE;
7285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7287: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7288: END IF;
7289: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7290: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7291: END;
7285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7286: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7287: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7288: END IF;
7289: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7290: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7291: END;
7292:
7293:
7825: END IF;
7826:
7827: -- Initialize message list if p_init_msg_list is set to TRUE
7828: IF FND_API.To_Boolean(p_init_msg_list) THEN
7829: FND_MSG_PUB.initialize;
7830: END IF;
7831:
7832: -- Initialize API return status to success
7833: l_return_status := FND_API.G_RET_STS_SUCCESS;
7846: if P_AUTOFUNDING_FLAG = 'Y' then
7847:
7848: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
7849: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
7850: FND_MSG_PUB.ADD;
7851: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7852: RAISE FND_API.G_EXC_ERROR;
7853:
7854: end if;
7847:
7848: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No disbursement header record found');
7849: FND_MESSAGE.SET_NAME('LNS', 'LNS_CREATE_DISB_SCHED');
7850: FND_MSG_PUB.ADD;
7851: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
7852: RAISE FND_API.G_EXC_ERROR;
7853:
7854: end if;
7855:
7898: close conditions_cur;
7899:
7900: if l_cond_count > 0 then
7901: FND_MESSAGE.SET_NAME('LNS', 'LNS_AUTOFUND_AND_MAND_CONDIT');
7902: FND_MSG_PUB.Add;
7903: RAISE FND_API.G_EXC_ERROR;
7904: end if;
7905:
7906: end if;
7937: -- END OF BODY OF API
7938: x_return_status := FND_API.G_RET_STS_SUCCESS;
7939:
7940: -- Standard call to get message count and if count is 1, get message info
7941: FND_MSG_PUB.Count_And_Get(
7942: p_encoded => FND_API.G_FALSE,
7943: p_count => x_msg_count,
7944: p_data => x_msg_data);
7945:
7948: EXCEPTION
7949: WHEN FND_API.G_EXC_ERROR THEN
7950: ROLLBACK TO SET_AUTOFUNDING;
7951: x_return_status := FND_API.G_RET_STS_ERROR;
7952: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7953: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7955: ROLLBACK TO SET_AUTOFUNDING;
7956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7953: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7955: ROLLBACK TO SET_AUTOFUNDING;
7956: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7957: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7959: WHEN OTHERS THEN
7960: ROLLBACK TO SET_AUTOFUNDING;
7961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7958: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7959: WHEN OTHERS THEN
7960: ROLLBACK TO SET_AUTOFUNDING;
7961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7962: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7963: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7964: END IF;
7965: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7959: WHEN OTHERS THEN
7960: ROLLBACK TO SET_AUTOFUNDING;
7961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7962: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7963: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7964: END IF;
7965: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7967: END;
7961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7962: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
7963: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
7964: END IF;
7965: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7966: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked');
7967: END;
7968:
7969:
8650: END IF;
8651:
8652: -- Initialize message list if p_init_msg_list is set to TRUE
8653: IF FND_API.To_Boolean(p_init_msg_list) THEN
8654: FND_MSG_PUB.initialize;
8655: END IF;
8656:
8657: -- Initialize API return status to success
8658: l_return_status := FND_API.G_RET_STS_SUCCESS;
8667: close in_fund_count_cur;
8668:
8669: if l_in_funding_count > 0 then
8670: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_PAYOFF_IN_FUND');
8671: FND_MSG_PUB.Add;
8672: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
8673: RAISE FND_API.G_EXC_ERROR;
8674: end if;
8675:
8668:
8669: if l_in_funding_count > 0 then
8670: FND_MESSAGE.SET_NAME('LNS', 'LNS_CANT_PAYOFF_IN_FUND');
8671: FND_MSG_PUB.Add;
8672: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
8673: RAISE FND_API.G_EXC_ERROR;
8674: end if;
8675:
8676: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully validated disbursements for payoff process');
8678: -- END OF BODY OF API
8679: x_return_status := FND_API.G_RET_STS_SUCCESS;
8680:
8681: -- Standard call to get message count and if count is 1, get message info
8682: FND_MSG_PUB.Count_And_Get(
8683: p_encoded => FND_API.G_FALSE,
8684: p_count => x_msg_count,
8685: p_data => x_msg_data);
8686:
8688:
8689: EXCEPTION
8690: WHEN FND_API.G_EXC_ERROR THEN
8691: x_return_status := FND_API.G_RET_STS_ERROR;
8692: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8696: WHEN OTHERS THEN
8691: x_return_status := FND_API.G_RET_STS_ERROR;
8692: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8693: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8696: WHEN OTHERS THEN
8697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8698: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
8699: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8696: WHEN OTHERS THEN
8697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8698: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
8699: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8700: END IF;
8701: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8702:
8695: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8696: WHEN OTHERS THEN
8697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8698: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
8699: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8700: END IF;
8701: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8702:
8703: END;
8697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8698: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
8699: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
8700: END IF;
8701: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8702:
8703: END;
8704:
8705: