394:
395: EXCEPTION
396: WHEN OTHERS THEN
397: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to add loan to all statement');
398: RAISE FND_API.G_EXC_ERROR;
399: END;
400:
401:
402:
484:
485: EXCEPTION
486: WHEN OTHERS THEN
487: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to add apply/unapply group tags loan to all statement');
488: RAISE FND_API.G_EXC_ERROR;
489: END;
490:
491:
492:
661:
662: EXCEPTION
663: WHEN OTHERS THEN
664: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Failed to generate application statement');
665: RAISE FND_API.G_EXC_ERROR;
666: END;
667:
668:
669:
834: l_error := null;
835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling ar_receipt_api_pub.unapply...');
836: ar_receipt_api_pub.unapply(
837: p_api_version => 1.0,
838: p_init_msg_list => FND_API.G_TRUE,
839: p_commit => FND_API.G_FALSE,
840: p_receivable_application_id => l_receivable_application_id,
841: x_return_status => l_return_status,
842: x_msg_count => l_msg_count,
835: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling ar_receipt_api_pub.unapply...');
836: ar_receipt_api_pub.unapply(
837: p_api_version => 1.0,
838: p_init_msg_list => FND_API.G_TRUE,
839: p_commit => FND_API.G_FALSE,
840: p_receivable_application_id => l_receivable_application_id,
841: x_return_status => l_return_status,
842: x_msg_count => l_msg_count,
843: x_msg_data => l_msg_data);
844:
845: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
846: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_msg_data: ' || l_msg_data);
847:
848: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
849: l_error := FND_MSG_PUB.Get(p_encoded => 'F');
850: end if;
851:
852: EXCEPTION
850: end if;
851:
852: EXCEPTION
853: WHEN OTHERS THEN
854: l_return_status := FND_API.G_RET_STS_ERROR;
855: l_error := SQLERRM;
856: END;
857:
858: LNS_APPL_ENGINE_PUB.BUILD_STMT(
863: P_RC_APPLY_AMOUNT => l_amount_applied_from,
864: P_ERROR => l_error,
865: P_ACTION => 'UNAPPLY');
866:
867: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
868: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ar_receipt_api_pub.unapply failed');
869: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Reported error: ' || l_error);
870: RAISE FND_API.G_EXC_ERROR;
871: END IF;
866:
867: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
868: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ar_receipt_api_pub.unapply failed');
869: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Reported error: ' || l_error);
870: RAISE FND_API.G_EXC_ERROR;
871: END IF;
872:
873: l_inv_count := l_inv_count + 1;
874: l_next_inv_appl_ok := 'N';
896: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
897: P_ACTION_FLAG => 'UNAPPLY',
898: P_OPEN_CLOSE_FLAG => 'CLOSE');
899:
900: RAISE FND_API.G_EXC_ERROR;
901: END;
902:
903:
904:
1108:
1109: l_error := null;
1110: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling AR_RECEIPT_API_PUB.APPLY...');
1111: AR_RECEIPT_API_PUB.APPLY(P_API_VERSION => 1.0
1112: ,P_INIT_MSG_LIST => FND_API.G_TRUE
1113: ,P_COMMIT => FND_API.G_FALSE
1114: ,X_RETURN_STATUS => l_return_status
1115: ,X_MSG_COUNT => l_msg_count
1116: ,X_MSG_DATA => l_msg_data
1109: l_error := null;
1110: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling AR_RECEIPT_API_PUB.APPLY...');
1111: AR_RECEIPT_API_PUB.APPLY(P_API_VERSION => 1.0
1112: ,P_INIT_MSG_LIST => FND_API.G_TRUE
1113: ,P_COMMIT => FND_API.G_FALSE
1114: ,X_RETURN_STATUS => l_return_status
1115: ,X_MSG_COUNT => l_msg_count
1116: ,X_MSG_DATA => l_msg_data
1117: ,p_cash_receipt_id => P_RECEIPTS_TBL(l_Count1).RECEIPT_ID
1124:
1125: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return_status: ' || l_return_status);
1126: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_msg_data: ' || l_msg_data);
1127:
1128: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1129: l_error := FND_MSG_PUB.Get(p_encoded => 'F');
1130: END IF;
1131:
1132: EXCEPTION
1130: END IF;
1131:
1132: EXCEPTION
1133: WHEN OTHERS THEN
1134: l_return_status := FND_API.G_RET_STS_ERROR;
1135: l_error := SQLERRM;
1136: END;
1137:
1138: if P_RECEIPTS_TBL(l_Count1).RECEIPT_CURRENCY = P_LOAN_INVOICES_TBL(l_Count).INVOICE_CURRENCY then
1148: P_RC_APPLY_AMOUNT => l_receipt_amount_from,
1149: P_ERROR => l_error,
1150: P_ACTION => 'APPLY');
1151:
1152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1153: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'AR_RECEIPT_API_PUB.APPLY failed');
1154: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Reported error: ' || l_error);
1155: RAISE FND_API.G_EXC_ERROR;
1156: END IF;
1151:
1152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1153: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'AR_RECEIPT_API_PUB.APPLY failed');
1154: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Reported error: ' || l_error);
1155: RAISE FND_API.G_EXC_ERROR;
1156: END IF;
1157:
1158: P_LOAN_INVOICES_TBL(l_Count).REMAINING_AMOUNT := P_LOAN_INVOICES_TBL(l_Count).REMAINING_AMOUNT - l_apply_amount;
1159: P_RECEIPTS_TBL(l_Count1).REMAINING_AMOUNT := P_RECEIPTS_TBL(l_Count1).REMAINING_AMOUNT - l_receipt_amount_from;
1178: end if;
1179:
1180: EXCEPTION
1181: WHEN OTHERS THEN
1182: RAISE FND_API.G_EXC_ERROR;
1183: END;
1184:
1185: END LOOP;
1186:
1208: LNS_APPL_ENGINE_PUB.ADD_APPL_UNAPPL_TAGS(
1209: P_ACTION_FLAG => 'APPLY',
1210: P_OPEN_CLOSE_FLAG => 'CLOSE');
1211:
1212: RAISE FND_API.G_EXC_ERROR;
1213: END;
1214:
1215:
1216:
1315:
1316: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_LOAN');
1317: FND_MSG_PUB.Add;
1318: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1319: RAISE FND_API.G_EXC_ERROR;
1320:
1321: end if;
1322:
1323: -- search for receipts
1361:
1362: EXCEPTION
1363: WHEN OTHERS THEN
1364: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In ' || l_api_name || ' exception handling');
1365: RAISE FND_API.G_EXC_ERROR;
1366: END;
1367:
1368:
1369:
1535:
1536: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_LOAN');
1537: FND_MSG_PUB.Add;
1538: LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1539: RAISE FND_API.G_EXC_ERROR;
1540:
1541: end if;
1542:
1543: -- get payment application order
1708:
1709: EXCEPTION
1710: WHEN OTHERS THEN
1711: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In ' || l_api_name || ' exception handling');
1712: RAISE FND_API.G_EXC_ERROR;
1713: END;
1714:
1715:
1716:
1817: SAVEPOINT SEARCH_AND_APPLY;
1818: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
1819:
1820: -- Standard call to check for call compatibility
1821: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1825: -- Initialize message list if p_init_msg_list is set to TRUE
1818: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Savepoint is established');
1819:
1820: -- Standard call to check for call compatibility
1821: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1825: -- Initialize message list if p_init_msg_list is set to TRUE
1826: IF FND_API.To_Boolean(p_init_msg_list) THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1825: -- Initialize message list if p_init_msg_list is set to TRUE
1826: IF FND_API.To_Boolean(p_init_msg_list) THEN
1827: FND_MSG_PUB.initialize;
1828: END IF;
1829:
1830: -- Initialize API return status to success
1827: FND_MSG_PUB.initialize;
1828: END IF;
1829:
1830: -- Initialize API return status to success
1831: l_return_status := FND_API.G_RET_STS_SUCCESS;
1832:
1833: -- START OF BODY OF API
1834:
1835: init;
1925: else
1926: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'No invoices found.');
1927: end if;
1928:
1929: if P_COMMIT = FND_API.G_TRUE then
1930: COMMIT WORK;
1931: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Commited loan ' || l_LOAN_REC.LOAN_NUMBER);
1932: end if;
1933:
1953: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Total processed ' || l_Count || ' loans');
1954: end if;
1955:
1956: -- END OF BODY OF API
1957: x_return_status := FND_API.G_RET_STS_SUCCESS;
1958:
1959: -- Standard call to get message count and if count is 1, get message info
1960: FND_MSG_PUB.Count_And_Get(
1961: p_encoded => FND_API.G_FALSE,
1957: x_return_status := FND_API.G_RET_STS_SUCCESS;
1958:
1959: -- Standard call to get message count and if count is 1, get message info
1960: FND_MSG_PUB.Count_And_Get(
1961: p_encoded => FND_API.G_FALSE,
1962: p_count => x_msg_count,
1963: p_data => x_msg_data);
1964:
1965: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1964:
1965: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1966:
1967: EXCEPTION
1968: WHEN FND_API.G_EXC_ERROR THEN
1969: ROLLBACK TO SEARCH_AND_APPLY;
1970: x_return_status := FND_API.G_RET_STS_ERROR;
1971: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1972: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked loans');
1966:
1967: EXCEPTION
1968: WHEN FND_API.G_EXC_ERROR THEN
1969: ROLLBACK TO SEARCH_AND_APPLY;
1970: x_return_status := FND_API.G_RET_STS_ERROR;
1971: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1972: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked loans');
1973: g_cr_return_status := 'ERROR';
1974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1970: x_return_status := FND_API.G_RET_STS_ERROR;
1971: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1972: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked loans');
1973: g_cr_return_status := 'ERROR';
1974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1975: ROLLBACK TO SEARCH_AND_APPLY;
1976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1977: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1978: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked loans');
1972: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked loans');
1973: g_cr_return_status := 'ERROR';
1974: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1975: ROLLBACK TO SEARCH_AND_APPLY;
1976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1977: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1978: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked loans');
1979: g_cr_return_status := 'ERROR';
1980: WHEN OTHERS THEN
1978: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'Rollbacked loans');
1979: g_cr_return_status := 'ERROR';
1980: WHEN OTHERS THEN
1981: ROLLBACK TO SEARCH_AND_APPLY;
1982: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1983: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)THEN
1984: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1985: END IF;
1986: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2060: l_SEARCH_REC.UNAPPLY_FLAG := UNAPPLY_FLAG;
2061:
2062: LNS_APPL_ENGINE_PUB.SEARCH_AND_APPLY(
2063: P_API_VERSION => 1.0,
2064: P_INIT_MSG_LIST => FND_API.G_TRUE,
2065: P_COMMIT => FND_API.G_TRUE,
2066: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2067: P_SEARCH_REC => l_SEARCH_REC,
2068: X_RETURN_STATUS => RETCODE,
2061:
2062: LNS_APPL_ENGINE_PUB.SEARCH_AND_APPLY(
2063: P_API_VERSION => 1.0,
2064: P_INIT_MSG_LIST => FND_API.G_TRUE,
2065: P_COMMIT => FND_API.G_TRUE,
2066: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2067: P_SEARCH_REC => l_SEARCH_REC,
2068: X_RETURN_STATUS => RETCODE,
2069: X_MSG_COUNT => l_msg_count,
2062: LNS_APPL_ENGINE_PUB.SEARCH_AND_APPLY(
2063: P_API_VERSION => 1.0,
2064: P_INIT_MSG_LIST => FND_API.G_TRUE,
2065: P_COMMIT => FND_API.G_TRUE,
2066: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
2067: P_SEARCH_REC => l_SEARCH_REC,
2068: X_RETURN_STATUS => RETCODE,
2069: X_MSG_COUNT => l_msg_count,
2070: X_MSG_DATA => ERRBUF);