14: IS
15: BEGIN
16:
17: if (p_msg_level >= G_MSG_LEVEL) then
18: FND_LOG.STRING(p_msg_level, G_PKG_NAME, p_msg);
19: end if;
20:
21: if FND_GLOBAL.Conc_Request_Id is not null then
22: fnd_file.put_line(FND_FILE.LOG, p_msg);
23: end if;
24:
25: EXCEPTION
26: WHEN OTHERS THEN
27: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: ' || sqlerrm);
28: END;
29:
30:
31:
1058: */
1059:
1060: BEGIN
1061:
1062: -- LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1063:
1064: -- START OF BODY OF API
1065: --LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input loan_id = ' || P_LOAN_ID);
1066:
1061:
1062: -- LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1063:
1064: -- START OF BODY OF API
1065: --LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input loan_id = ' || P_LOAN_ID);
1066:
1067:
1068: /* verify input parameters */
1069: if P_LOAN_ID is null then
1067:
1068: /* verify input parameters */
1069: if P_LOAN_ID is null then
1070:
1071: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LoanId must be set.');
1072: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_LOAN');
1073: FND_MSG_PUB.Add;
1074: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1075: RAISE FND_API.G_EXC_ERROR;
1070:
1071: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LoanId must be set.');
1072: FND_MESSAGE.SET_NAME('LNS', 'LNS_NO_LOAN');
1073: FND_MSG_PUB.Add;
1074: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, FND_MSG_PUB.Get(p_encoded => 'F'));
1075: RAISE FND_API.G_EXC_ERROR;
1076:
1077: end if;
1078:
1083: -- IF l_remain_amt is NULL THEN
1084: -- l_remain_amt := 0;
1085: -- END IF;
1086:
1087: --LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1088: return l_remain_amt;
1089:
1090: --EXCEPTION
1091: -- WHEN OTHERS THEN
1088: return l_remain_amt;
1089:
1090: --EXCEPTION
1091: -- WHEN OTHERS THEN
1092: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'In exception of ' || l_api_name);
1093: END;
1094:
1095:
1096: /*========================================================================
1140: AND REAMORTIZATION_AMOUNT is null
1141: AND nvl(phase, 'TERM') = 'TERM';
1142:
1143: BEGIN
1144: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin LNS_BILLING_UTIL_PUB.'||l_api_name||' Function + ');
1146: END IF;
1147: OPEN get_data_crs(P_LOAN_ID);
1148: FETCH get_data_crs INTO l_return;
1141: AND nvl(phase, 'TERM') = 'TERM';
1142:
1143: BEGIN
1144: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1145: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin LNS_BILLING_UTIL_PUB.'||l_api_name||' Function + ');
1146: END IF;
1147: OPEN get_data_crs(P_LOAN_ID);
1148: FETCH get_data_crs INTO l_return;
1149: CLOSE get_data_crs;
1147: OPEN get_data_crs(P_LOAN_ID);
1148: FETCH get_data_crs INTO l_return;
1149: CLOSE get_data_crs;
1150:
1151: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End LNS_BILLING_UTIL_PUB.'||l_api_name||' Function - ');
1153: END IF;
1154:
1155: return l_return;
1148: FETCH get_data_crs INTO l_return;
1149: CLOSE get_data_crs;
1150:
1151: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1152: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End LNS_BILLING_UTIL_PUB.'||l_api_name||' Function - ');
1153: END IF;
1154:
1155: return l_return;
1156: END;
1207: +-----------------------------------------------------------------------*/
1208:
1209: BEGIN
1210:
1211: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1212:
1213: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
1214: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_gl_date = ' || p_gl_date);
1215: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_trx_date = ' || p_trx_date);
1209: BEGIN
1210:
1211: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1212:
1213: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
1214: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_gl_date = ' || p_gl_date);
1215: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_trx_date = ' || p_trx_date);
1216: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_set_of_books_id = ' || p_set_of_books_id);
1217:
1210:
1211: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1212:
1213: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
1214: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_gl_date = ' || p_gl_date);
1215: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_trx_date = ' || p_trx_date);
1216: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_set_of_books_id = ' || p_set_of_books_id);
1217:
1218: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling ARP_STANDARD.validate_and_default_gl_date...');
1211: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1212:
1213: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
1214: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_gl_date = ' || p_gl_date);
1215: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_trx_date = ' || p_trx_date);
1216: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_set_of_books_id = ' || p_set_of_books_id);
1217:
1218: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling ARP_STANDARD.validate_and_default_gl_date...');
1219: l_return := ARP_STANDARD.validate_and_default_gl_date(
1212:
1213: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
1214: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_gl_date = ' || p_gl_date);
1215: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_trx_date = ' || p_trx_date);
1216: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_set_of_books_id = ' || p_set_of_books_id);
1217:
1218: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling ARP_STANDARD.validate_and_default_gl_date...');
1219: l_return := ARP_STANDARD.validate_and_default_gl_date(
1220: gl_date => p_gl_date,
1214: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_gl_date = ' || p_gl_date);
1215: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_trx_date = ' || p_trx_date);
1216: LogMessage(FND_LOG.LEVEL_STATEMENT, 'p_set_of_books_id = ' || p_set_of_books_id);
1217:
1218: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling ARP_STANDARD.validate_and_default_gl_date...');
1219: l_return := ARP_STANDARD.validate_and_default_gl_date(
1220: gl_date => p_gl_date,
1221: trx_date => p_trx_date,
1222: validation_date1 => null,
1238: else
1239: l_return_char := 'false';
1240: end if;
1241:
1242: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ARP_STANDARD.validate_and_default_gl_date returns:');
1243: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return = ' || l_return_char);
1244: LogMessage(FND_LOG.LEVEL_STATEMENT, 'x_default_gl_date = ' || x_default_gl_date);
1245: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_defaulting_rule_used = ' || l_defaulting_rule_used);
1246: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_error_msg = ' || l_error_msg);
1239: l_return_char := 'false';
1240: end if;
1241:
1242: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ARP_STANDARD.validate_and_default_gl_date returns:');
1243: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return = ' || l_return_char);
1244: LogMessage(FND_LOG.LEVEL_STATEMENT, 'x_default_gl_date = ' || x_default_gl_date);
1245: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_defaulting_rule_used = ' || l_defaulting_rule_used);
1246: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_error_msg = ' || l_error_msg);
1247:
1240: end if;
1241:
1242: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ARP_STANDARD.validate_and_default_gl_date returns:');
1243: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return = ' || l_return_char);
1244: LogMessage(FND_LOG.LEVEL_STATEMENT, 'x_default_gl_date = ' || x_default_gl_date);
1245: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_defaulting_rule_used = ' || l_defaulting_rule_used);
1246: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_error_msg = ' || l_error_msg);
1247:
1248: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1241:
1242: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ARP_STANDARD.validate_and_default_gl_date returns:');
1243: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return = ' || l_return_char);
1244: LogMessage(FND_LOG.LEVEL_STATEMENT, 'x_default_gl_date = ' || x_default_gl_date);
1245: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_defaulting_rule_used = ' || l_defaulting_rule_used);
1246: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_error_msg = ' || l_error_msg);
1247:
1248: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1249:
1242: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ARP_STANDARD.validate_and_default_gl_date returns:');
1243: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_return = ' || l_return_char);
1244: LogMessage(FND_LOG.LEVEL_STATEMENT, 'x_default_gl_date = ' || x_default_gl_date);
1245: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_defaulting_rule_used = ' || l_defaulting_rule_used);
1246: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_error_msg = ' || l_error_msg);
1247:
1248: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1249:
1250: END;
1244: LogMessage(FND_LOG.LEVEL_STATEMENT, 'x_default_gl_date = ' || x_default_gl_date);
1245: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_defaulting_rule_used = ' || l_defaulting_rule_used);
1246: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_error_msg = ' || l_error_msg);
1247:
1248: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1249:
1250: END;
1251:
1252:
1292: WHERE TERM_ID = P_TERM_ID;
1293:
1294: BEGIN
1295:
1296: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1297: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
1298: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID = ' || P_LOAN_ID);
1299: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DUE_DATE = ' || P_DUE_DATE);
1300: X_RA_TERM_ID := 5;
1293:
1294: BEGIN
1295:
1296: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1297: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
1298: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID = ' || P_LOAN_ID);
1299: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DUE_DATE = ' || P_DUE_DATE);
1300: X_RA_TERM_ID := 5;
1301: X_TRX_DATE := P_DUE_DATE;
1294: BEGIN
1295:
1296: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1297: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
1298: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID = ' || P_LOAN_ID);
1299: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DUE_DATE = ' || P_DUE_DATE);
1300: X_RA_TERM_ID := 5;
1301: X_TRX_DATE := P_DUE_DATE;
1302:
1295:
1296: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
1297: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Input:');
1298: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_LOAN_ID = ' || P_LOAN_ID);
1299: LogMessage(FND_LOG.LEVEL_STATEMENT, 'P_DUE_DATE = ' || P_DUE_DATE);
1300: X_RA_TERM_ID := 5;
1301: X_TRX_DATE := P_DUE_DATE;
1302:
1303: if P_LOAN_ID is null then
1318: -- get ra_term_id
1319: OPEN get_ra_term;
1320: FETCH get_ra_term INTO X_RA_TERM_ID;
1321: CLOSE get_ra_term;
1322: LogMessage(FND_LOG.LEVEL_STATEMENT, 'ra_term_id = ' || X_RA_TERM_ID);
1323:
1324: -- validate ra_term_id and get number of days for the term
1325: OPEN validate_ra_term(X_RA_TERM_ID);
1326: FETCH validate_ra_term INTO l_days, l_term_name;
1324: -- validate ra_term_id and get number of days for the term
1325: OPEN validate_ra_term(X_RA_TERM_ID);
1326: FETCH validate_ra_term INTO l_days, l_term_name;
1327: CLOSE validate_ra_term;
1328: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_days = ' || l_days);
1329: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_term_name = ' || l_term_name);
1330:
1331: if l_days is null then
1332: OPEN get_term(X_RA_TERM_ID);
1325: OPEN validate_ra_term(X_RA_TERM_ID);
1326: FETCH validate_ra_term INTO l_days, l_term_name;
1327: CLOSE validate_ra_term;
1328: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_days = ' || l_days);
1329: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_term_name = ' || l_term_name);
1330:
1331: if l_days is null then
1332: OPEN get_term(X_RA_TERM_ID);
1333: FETCH get_term INTO l_term_name;
1331: if l_days is null then
1332: OPEN get_term(X_RA_TERM_ID);
1333: FETCH get_term INTO l_term_name;
1334: CLOSE get_term;
1335: logMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: Payment Term ' || l_term_name || '(term_id = ' || X_RA_TERM_ID || ') is invalid for using in Loans');
1336: l_days := 0;
1337: end if;
1338:
1339: -- calc trx_date
1337: end if;
1338:
1339: -- calc trx_date
1340: X_TRX_DATE := trunc(P_DUE_DATE - l_days);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'X_TRX_DATE = ' || X_TRX_DATE);
1342: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1343:
1344: END;
1345:
1338:
1339: -- calc trx_date
1340: X_TRX_DATE := trunc(P_DUE_DATE - l_days);
1341: LogMessage(FND_LOG.LEVEL_STATEMENT, 'X_TRX_DATE = ' || X_TRX_DATE);
1342: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1343:
1344: END;
1345:
1346:
1346:
1347:
1348: BEGIN
1349: G_LOG_ENABLED := 'N';
1350: G_MSG_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1351:
1352: /* getting msg logging info */
1353: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
1354: /*
1352: /* getting msg logging info */
1353: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
1354: /*
1355: if (G_LOG_ENABLED = 'N') then
1356: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
1357: else
1358: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
1359: end if;
1360: */
1354: /*
1355: if (G_LOG_ENABLED = 'N') then
1356: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
1357: else
1358: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
1359: end if;
1360: */
1361: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
1362: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
1357: else
1358: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
1359: end if;
1360: */
1361: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
1362: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
1363:
1364: END LNS_BILLING_UTIL_PUB; -- Package body
1358: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
1359: end if;
1360: */
1361: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
1362: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
1363:
1364: END LNS_BILLING_UTIL_PUB; -- Package body