DBA Data[Home] [Help]

APPS.OKL_DAILY_INTEREST_CALC_PVT dependencies on OKL_API

Line 388: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,

384: ------------------------------------------------------------------------------
385:
386: PROCEDURE receipt_date_range(
387: p_api_version IN NUMBER,
388: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
389: x_return_status OUT NOCOPY VARCHAR2,
390: x_msg_count OUT NOCOPY NUMBER,
391: x_msg_data OUT NOCOPY VARCHAR2,
392: p_contract_id IN NUMBER,

Line 532: x_return_status := OKL_API.G_RET_STS_SUCCESS;

528: ORDER BY receipt_date asc;
529: -- End - Billing Inline changes - Bug#5898792 - varangan - 23/2/2007
530:
531: BEGIN
532: x_return_status := OKL_API.G_RET_STS_SUCCESS;
533: l_start_date := p_start_date;
534:
535: OPEN contract_csr (p_contract_id);
536: FETCH contract_csr INTO l_contract_start_date, l_deal_type;

Line 539: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

535: OPEN contract_csr (p_contract_id);
536: FETCH contract_csr INTO l_contract_start_date, l_deal_type;
537: IF (contract_csr%NOTFOUND) THEN
538: CLOSE contract_csr;
539: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
540: END IF;
541: CLOSE contract_csr;
542:
543: l_counter := 0;

Line 547: p_init_msg_list => OKL_API.G_TRUE,

543: l_counter := 0;
544: IF (l_deal_type = 'LOAN') THEN
545: -- Derive Principal Balance
546: Okl_Execute_Formula_Pub.EXECUTE(p_api_version => 1.0,
547: p_init_msg_list => OKL_API.G_TRUE,
548: x_return_status => x_return_status,
549: x_msg_count => x_msg_count,
550: x_msg_data => x_msg_data,
551: p_formula_name => 'CONTRACT_FINANCED_AMOUNT',

Line 556: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN

552: p_contract_id => p_contract_id,
553: p_line_id => NULL,
554: x_value => l_principal_balance
555: );
556: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
557: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
558: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
559: RAISE Okl_Api.G_EXCEPTION_ERROR;
560: END IF;

Line 557: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

553: p_line_id => NULL,
554: x_value => l_principal_balance
555: );
556: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
557: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
558: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
559: RAISE Okl_Api.G_EXCEPTION_ERROR;
560: END IF;
561:

Line 558: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN

554: x_value => l_principal_balance
555: );
556: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
557: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
558: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
559: RAISE Okl_Api.G_EXCEPTION_ERROR;
560: END IF;
561:
562: FOR current_receipt in receipt_details_loan_csr (p_contract_id, l_start_date, p_due_date)

Line 559: RAISE Okl_Api.G_EXCEPTION_ERROR;

555: );
556: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
557: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
558: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
559: RAISE Okl_Api.G_EXCEPTION_ERROR;
560: END IF;
561:
562: FOR current_receipt in receipt_details_loan_csr (p_contract_id, l_start_date, p_due_date)
563: LOOP

Line 623: Okl_Api.SET_MESSAGE(

619:
620: EXCEPTION
621:
622: WHEN OTHERS THEN
623: Okl_Api.SET_MESSAGE(
624: p_app_name => G_APP_NAME,
625: p_msg_name => G_UNEXPECTED_ERROR,
626: p_token1 => G_SQLCODE_TOKEN,
627: p_token1_value => SQLCODE,

Line 636: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE

632:
633: ---------------------------------------------------------------------------
634:
635: PROCEDURE daily_interest(p_api_version IN NUMBER
636: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
637: ,x_return_status OUT NOCOPY VARCHAR2
638: ,x_msg_count OUT NOCOPY NUMBER
639: ,x_msg_data OUT NOCOPY VARCHAR2
640: ,p_khr_id IN NUMBER DEFAULT NULL) IS

Line 647: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;

643: -- Declare Variables required by APIs
644: ------------------------------------------------------------
645: l_api_version CONSTANT NUMBER := 1;
646: l_api_name CONSTANT VARCHAR2(30) := 'DAILY_INTEREST';
647: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
648:
649: lx_principal_balance NUMBER := 0;
650: lx_receipt_tbl receipt_tbl_type;
651: l_receipt_tbl_row NUMBER;

Line 846: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN

842: p_due_date => NULL,
843: x_principal_balance => lx_principal_balance,
844: x_receipt_tbl => lx_receipt_tbl);
845:
846: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
847: l_error_flag := TRUE;
848: print_debug(' Call to receipt_date_range failed.');
849: END IF;
850: --print_debug(' Starting principal balance : ' || lx_principal_balance);

Line 884: p_create_invoice_flag => OKL_API.G_FALSE,

880: p_contract_id => cur_khr.khr_id,
881: p_amount => l_daily_prin_amt,
882: p_due_date => lx_receipt_tbl(l_receipt_tbl_row).receipt_date,
883: p_stream_type_purpose => 'DAILY_INTEREST_PRINCIPAL',
884: p_create_invoice_flag => OKL_API.G_FALSE,
885: p_process_flag => 'DAILY_INTEREST',
886: p_currency_code => cur_khr.currency_code);
887:
888: print_debug('Status of creating stream: ' || l_return_status);

Line 889: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN

885: p_process_flag => 'DAILY_INTEREST',
886: p_currency_code => cur_khr.currency_code);
887:
888: print_debug('Status of creating stream: ' || l_return_status);
889: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
890: l_error_flag := TRUE;
891: print_debug(' Error: creating stream for DAILY_INTEREST_PRINCIPAL.');
892: ELSE
893: print_debug(' Success: creating stream for DAILY_INTEREST_PRINCIPAL.');

Line 979: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN

975: p_to_date => cur_asset_term_val.term_date -1,
976: p_principal_amount => l_start_bal,
977: p_currency_code => cur_khr.currency_code);
978:
979: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
980: l_error_flag := TRUE;
981: END IF;
982: --print_debug(' Value of l_cal_int_amt: ' || l_cal_int_amt);
983:

Line 1003: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN

999: p_to_date => l_range_end_date,
1000: p_principal_amount => l_start_bal,
1001: p_currency_code => cur_khr.currency_code);
1002:
1003: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1004: l_error_flag := TRUE;
1005: END IF;
1006: --print_debug(' Value of l_cal_int_amt: ' || l_cal_int_amt);
1007: ELSE --deal type = Rev Loan

Line 1037: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN

1033: p_principal_amount => l_start_bal,
1034: p_currency_code => cur_khr.currency_code);
1035:
1036: --print_debug(' Value of l_cal_int_amt: ' || l_cal_int_amt);
1037: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1038: l_error_flag := TRUE;
1039: END IF;
1040:
1041: l_range_start_date := cur_borrower_payment.borrower_payment_date;

Line 1073: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN

1069: p_currency_code => cur_khr.currency_code);
1070:
1071: --print_debug(' Value of l_cal_int_amt: ' || l_cal_int_amt);
1072:
1073: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1074: l_error_flag := TRUE;
1075: END IF;
1076: END IF;
1077:

Line 1132: p_create_invoice_flag => OKL_API.G_FALSE,

1128: p_contract_id => cur_khr.khr_id,
1129: p_amount => l_daily_int_amt,
1130: p_due_date => lx_receipt_tbl(l_receipt_tbl_row).receipt_date,
1131: p_stream_type_purpose => 'DAILY_INTEREST_INTEREST',
1132: p_create_invoice_flag => OKL_API.G_FALSE,
1133: p_process_flag => 'DAILY_INTEREST',
1134: p_currency_code => cur_khr.currency_code);
1135:
1136: print_debug('Status of creating stream: ' || l_return_status);

Line 1138: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN

1134: p_currency_code => cur_khr.currency_code);
1135:
1136: print_debug('Status of creating stream: ' || l_return_status);
1137:
1138: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1139: l_error_flag := TRUE;
1140: print_debug(' Error: creating stream for DAILY_INTEREST_INTEREST.');
1141: ELSE
1142: print_debug(' Success: creating stream for DAILY_INTEREST_INTEREST.');

Line 1185: p_create_invoice_flag => OKL_API.G_FALSE,

1181: p_contract_id => cur_khr.khr_id,
1182: p_amount => l_daily_prin_amt,
1183: p_due_date => lx_receipt_tbl(l_receipt_tbl_row).receipt_date,
1184: p_stream_type_purpose => 'DAILY_INTEREST_PRINCIPAL',
1185: p_create_invoice_flag => OKL_API.G_FALSE,
1186: p_process_flag => 'DAILY_INTEREST',
1187: p_currency_code => cur_khr.currency_code);
1188:
1189: print_debug('Status of creating stream: ' || l_return_status);

Line 1191: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN

1187: p_currency_code => cur_khr.currency_code);
1188:
1189: print_debug('Status of creating stream: ' || l_return_status);
1190:
1191: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1192: l_error_flag := TRUE;
1193: print_debug(' Error: creating stream for DAILY_INTEREST_PRINCIPAL.');
1194: ELSE
1195: print_debug(' Success: creating stream for DAILY_INTEREST_PRINCIPAL.');

Line 1222: p_create_invoice_flag => OKL_API.G_FALSE,

1218: p_contract_id => cur_khr.khr_id,
1219: p_amount => l_excess_principal,
1220: p_due_date => lx_receipt_tbl(l_receipt_tbl_row).receipt_date,
1221: p_stream_type_purpose => 'EXCESS_LOAN_PAYMENT_PAID',
1222: p_create_invoice_flag => OKL_API.G_FALSE,
1223: p_process_flag => 'DAILY_INTEREST',
1224: p_currency_code => cur_khr.currency_code);
1225:
1226: print_debug('Status of creating stream: ' || l_return_status);

Line 1228: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN

1224: p_currency_code => cur_khr.currency_code);
1225:
1226: print_debug('Status of creating stream: ' || l_return_status);
1227:
1228: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1229: l_error_flag := TRUE;
1230: print_debug(' Error: creating stream for EXCESS_LOAN_PAYMENT_PAID.');
1231: ELSE
1232: print_debug(' Success: creating stream for EXCESS_LOAN_PAYMENT_PAID.');

Line 1327: WHEN OKL_API.G_EXCEPTION_ERROR THEN

1323: ------------------------------------------------------------
1324: -- Exception handling
1325: ------------------------------------------------------------
1326:
1327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1328:
1329: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1330: p_api_name => l_api_name,
1331: p_pkg_name => G_PKG_NAME,

Line 1329: x_return_status := OKL_API.HANDLE_EXCEPTIONS (

1325: ------------------------------------------------------------
1326:
1327: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1328:
1329: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1330: p_api_name => l_api_name,
1331: p_pkg_name => G_PKG_NAME,
1332: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1333: x_msg_count => x_msg_count,

Line 1332: p_exc_name => 'OKL_API.G_RET_STS_ERROR',

1328:
1329: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1330: p_api_name => l_api_name,
1331: p_pkg_name => G_PKG_NAME,
1332: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1333: x_msg_count => x_msg_count,
1334: x_msg_data => x_msg_data,
1335: p_api_type => '_PVT');
1336:

Line 1337: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1333: x_msg_count => x_msg_count,
1334: x_msg_data => x_msg_data,
1335: p_api_type => '_PVT');
1336:
1337: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1338:
1339: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1340: p_api_name => l_api_name,
1341: p_pkg_name => G_PKG_NAME,

Line 1339: x_return_status := OKL_API.HANDLE_EXCEPTIONS (

1335: p_api_type => '_PVT');
1336:
1337: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1338:
1339: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1340: p_api_name => l_api_name,
1341: p_pkg_name => G_PKG_NAME,
1342: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1343: x_msg_count => x_msg_count,

Line 1342: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',

1338:
1339: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1340: p_api_name => l_api_name,
1341: p_pkg_name => G_PKG_NAME,
1342: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1343: x_msg_count => x_msg_count,
1344: x_msg_data => x_msg_data,
1345: p_api_type => '_PVT');
1346:

Line 1349: x_return_status := OKL_API.HANDLE_EXCEPTIONS (

1345: p_api_type => '_PVT');
1346:
1347: WHEN OTHERS THEN
1348:
1349: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1350: p_api_name => l_api_name,
1351: p_pkg_name => G_PKG_NAME,
1352: p_exc_name => 'OTHERS',
1353: x_msg_count => x_msg_count,

Line 1413: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

1409: x_msg_count => lx_msg_count,
1410: x_msg_data => lx_msg_data,
1411: p_khr_id => l_khr_id
1412: );
1413: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1416: RAISE OKL_API.G_EXCEPTION_ERROR;
1417: END IF;

Line 1414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

1410: x_msg_data => lx_msg_data,
1411: p_khr_id => l_khr_id
1412: );
1413: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1416: RAISE OKL_API.G_EXCEPTION_ERROR;
1417: END IF;
1418:

Line 1415: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN

1411: p_khr_id => l_khr_id
1412: );
1413: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1416: RAISE OKL_API.G_EXCEPTION_ERROR;
1417: END IF;
1418:
1419: END LOOP;

Line 1416: RAISE OKL_API.G_EXCEPTION_ERROR;

1412: );
1413: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1414: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1415: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1416: RAISE OKL_API.G_EXCEPTION_ERROR;
1417: END IF;
1418:
1419: END LOOP;
1420:

Line 1432: WHEN Okl_Api.G_EXCEPTION_ERROR THEN

1428: print_output(p_contract_number => p_contract_number);
1429:
1430: retcode := 0;
1431: EXCEPTION
1432: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1433: retcode := 2;
1434: IF check_contract_csr%ISOPEN THEN
1435: CLOSE check_contract_csr;
1436: END IF;

Line 1437: lx_return_status := Okl_Api.HANDLE_EXCEPTIONS(G_APP_NAME,

1433: retcode := 2;
1434: IF check_contract_csr%ISOPEN THEN
1435: CLOSE check_contract_csr;
1436: END IF;
1437: lx_return_status := Okl_Api.HANDLE_EXCEPTIONS(G_APP_NAME,
1438: G_PKG_NAME,
1439: 'Okl_Api.G_RET_STS_ERROR',
1440: lx_msg_count,
1441: lx_msg_data,

Line 1439: 'Okl_Api.G_RET_STS_ERROR',

1435: CLOSE check_contract_csr;
1436: END IF;
1437: lx_return_status := Okl_Api.HANDLE_EXCEPTIONS(G_APP_NAME,
1438: G_PKG_NAME,
1439: 'Okl_Api.G_RET_STS_ERROR',
1440: lx_msg_count,
1441: lx_msg_data,
1442: '_PVT');
1443: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 1443: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1439: 'Okl_Api.G_RET_STS_ERROR',
1440: lx_msg_count,
1441: lx_msg_data,
1442: '_PVT');
1443: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1444: retcode := 2;
1445: IF check_contract_csr%ISOPEN THEN
1446: CLOSE check_contract_csr;
1447: END IF;

Line 1448: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(

1444: retcode := 2;
1445: IF check_contract_csr%ISOPEN THEN
1446: CLOSE check_contract_csr;
1447: END IF;
1448: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
1449: p_api_name => G_APP_NAME,
1450: p_pkg_name => G_PKG_NAME,
1451: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1452: x_msg_count => lx_msg_count,

Line 1451: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',

1447: END IF;
1448: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
1449: p_api_name => G_APP_NAME,
1450: p_pkg_name => G_PKG_NAME,
1451: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1452: x_msg_count => lx_msg_count,
1453: x_msg_data => lx_msg_data,
1454: p_api_type => '_PVT');
1455: WHEN OTHERS THEN