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 683: x_return_status := OKL_API.G_RET_STS_SUCCESS;

679: ORDER BY receipt_date asc;
680: -- End - Billing Inline changes - Bug#5898792 - varangan - 23/2/2007
681:
682: BEGIN
683: x_return_status := OKL_API.G_RET_STS_SUCCESS;
684: l_start_date := p_start_date;
685:
686: OPEN contract_csr (p_contract_id);
687: FETCH contract_csr INTO l_contract_start_date, l_deal_type;

Line 690: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

686: OPEN contract_csr (p_contract_id);
687: FETCH contract_csr INTO l_contract_start_date, l_deal_type;
688: IF (contract_csr%NOTFOUND) THEN
689: CLOSE contract_csr;
690: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
691: END IF;
692: CLOSE contract_csr;
693:
694: l_counter := 0;

Line 698: p_init_msg_list => OKL_API.G_TRUE,

694: l_counter := 0;
695: IF (l_deal_type = 'LOAN') THEN
696: -- Derive Principal Balance
697: Okl_Execute_Formula_Pub.EXECUTE(p_api_version => 1.0,
698: p_init_msg_list => OKL_API.G_TRUE,
699: x_return_status => x_return_status,
700: x_msg_count => x_msg_count,
701: x_msg_data => x_msg_data,
702: p_formula_name => 'CONTRACT_FINANCED_AMOUNT',

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

703: p_contract_id => p_contract_id,
704: p_line_id => NULL,
705: x_value => l_principal_balance
706: );
707: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
708: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
709: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
710: RAISE Okl_Api.G_EXCEPTION_ERROR;
711: END IF;

Line 708: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

704: p_line_id => NULL,
705: x_value => l_principal_balance
706: );
707: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
708: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
709: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
710: RAISE Okl_Api.G_EXCEPTION_ERROR;
711: END IF;
712:

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

705: x_value => l_principal_balance
706: );
707: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
708: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
709: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
710: RAISE Okl_Api.G_EXCEPTION_ERROR;
711: END IF;
712:
713: FOR current_receipt in receipt_details_loan_csr (p_contract_id, l_start_date, p_due_date)

Line 710: RAISE Okl_Api.G_EXCEPTION_ERROR;

706: );
707: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
708: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
709: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
710: RAISE Okl_Api.G_EXCEPTION_ERROR;
711: END IF;
712:
713: FOR current_receipt in receipt_details_loan_csr (p_contract_id, l_start_date, p_due_date)
714: LOOP

Line 774: Okl_Api.SET_MESSAGE(

770:
771: EXCEPTION
772:
773: WHEN OTHERS THEN
774: Okl_Api.SET_MESSAGE(
775: p_app_name => G_APP_NAME,
776: p_msg_name => G_UNEXPECTED_ERROR,
777: p_token1 => G_SQLCODE_TOKEN,
778: p_token1_value => SQLCODE,

Line 787: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE

783:
784: ---------------------------------------------------------------------------
785:
786: PROCEDURE daily_interest(p_api_version IN NUMBER
787: ,p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE
788: ,x_return_status OUT NOCOPY VARCHAR2
789: ,x_msg_count OUT NOCOPY NUMBER
790: ,x_msg_data OUT NOCOPY VARCHAR2
791: ,p_khr_id IN NUMBER DEFAULT NULL) IS

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

794: -- Declare Variables required by APIs
795: ------------------------------------------------------------
796: l_api_version CONSTANT NUMBER := 1;
797: l_api_name CONSTANT VARCHAR2(30) := 'DAILY_INTEREST';
798: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
799:
800: lx_principal_balance NUMBER := 0;
801: lx_receipt_tbl receipt_tbl_type;
802: l_receipt_tbl_row NUMBER;

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

993: p_due_date => NULL,
994: x_principal_balance => lx_principal_balance,
995: x_receipt_tbl => lx_receipt_tbl);
996:
997: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
998: l_error_flag := TRUE;
999: print_debug(' Call to receipt_date_range failed.');
1000: END IF;
1001: --print_debug(' Starting principal balance : ' || lx_principal_balance);

Line 1035: p_create_invoice_flag => OKL_API.G_FALSE,

1031: p_contract_id => cur_khr.khr_id,
1032: p_amount => l_daily_prin_amt,
1033: p_due_date => lx_receipt_tbl(l_receipt_tbl_row).receipt_date,
1034: p_stream_type_purpose => 'DAILY_INTEREST_PRINCIPAL',
1035: p_create_invoice_flag => OKL_API.G_FALSE,
1036: p_process_flag => 'DAILY_INTEREST',
1037: p_currency_code => cur_khr.currency_code);
1038:
1039: print_debug('Status of creating stream: ' || l_return_status);

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

1036: p_process_flag => 'DAILY_INTEREST',
1037: p_currency_code => cur_khr.currency_code);
1038:
1039: print_debug('Status of creating stream: ' || l_return_status);
1040: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1041: l_error_flag := TRUE;
1042: print_debug(' Error: creating stream for DAILY_INTEREST_PRINCIPAL.');
1043: ELSE
1044: print_debug(' Success: creating stream for DAILY_INTEREST_PRINCIPAL.');

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

1126: p_to_date => cur_asset_term_val.term_date -1,
1127: p_principal_amount => l_start_bal,
1128: p_currency_code => cur_khr.currency_code);
1129:
1130: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1131: l_error_flag := TRUE;
1132: END IF;
1133: --print_debug(' Value of l_cal_int_amt: ' || l_cal_int_amt);
1134:

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

1150: p_to_date => l_range_end_date,
1151: p_principal_amount => l_start_bal,
1152: p_currency_code => cur_khr.currency_code);
1153:
1154: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1155: l_error_flag := TRUE;
1156: END IF;
1157: --print_debug(' Value of l_cal_int_amt: ' || l_cal_int_amt);
1158: ELSE --deal type = Rev Loan

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

1184: p_principal_amount => l_start_bal,
1185: p_currency_code => cur_khr.currency_code);
1186:
1187: --print_debug(' Value of l_cal_int_amt: ' || l_cal_int_amt);
1188: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1189: l_error_flag := TRUE;
1190: END IF;
1191:
1192: l_range_start_date := cur_borrower_payment.borrower_payment_date;

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

1220: p_currency_code => cur_khr.currency_code);
1221:
1222: --print_debug(' Value of l_cal_int_amt: ' || l_cal_int_amt);
1223:
1224: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1225: l_error_flag := TRUE;
1226: END IF;
1227: END IF;
1228:

Line 1283: p_create_invoice_flag => OKL_API.G_FALSE,

1279: p_contract_id => cur_khr.khr_id,
1280: p_amount => l_daily_int_amt,
1281: p_due_date => lx_receipt_tbl(l_receipt_tbl_row).receipt_date,
1282: p_stream_type_purpose => 'DAILY_INTEREST_INTEREST',
1283: p_create_invoice_flag => OKL_API.G_FALSE,
1284: p_process_flag => 'DAILY_INTEREST',
1285: p_currency_code => cur_khr.currency_code);
1286:
1287: print_debug('Status of creating stream: ' || l_return_status);

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

1285: p_currency_code => cur_khr.currency_code);
1286:
1287: print_debug('Status of creating stream: ' || l_return_status);
1288:
1289: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1290: l_error_flag := TRUE;
1291: print_debug(' Error: creating stream for DAILY_INTEREST_INTEREST.');
1292: ELSE
1293: print_debug(' Success: creating stream for DAILY_INTEREST_INTEREST.');

Line 1336: p_create_invoice_flag => OKL_API.G_FALSE,

1332: p_contract_id => cur_khr.khr_id,
1333: p_amount => l_daily_prin_amt,
1334: p_due_date => lx_receipt_tbl(l_receipt_tbl_row).receipt_date,
1335: p_stream_type_purpose => 'DAILY_INTEREST_PRINCIPAL',
1336: p_create_invoice_flag => OKL_API.G_FALSE,
1337: p_process_flag => 'DAILY_INTEREST',
1338: p_currency_code => cur_khr.currency_code);
1339:
1340: print_debug('Status of creating stream: ' || l_return_status);

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

1338: p_currency_code => cur_khr.currency_code);
1339:
1340: print_debug('Status of creating stream: ' || l_return_status);
1341:
1342: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1343: l_error_flag := TRUE;
1344: print_debug(' Error: creating stream for DAILY_INTEREST_PRINCIPAL.');
1345: ELSE
1346: print_debug(' Success: creating stream for DAILY_INTEREST_PRINCIPAL.');

Line 1373: p_create_invoice_flag => OKL_API.G_FALSE,

1369: p_contract_id => cur_khr.khr_id,
1370: p_amount => l_excess_principal,
1371: p_due_date => lx_receipt_tbl(l_receipt_tbl_row).receipt_date,
1372: p_stream_type_purpose => 'EXCESS_LOAN_PAYMENT_PAID',
1373: p_create_invoice_flag => OKL_API.G_FALSE,
1374: p_process_flag => 'DAILY_INTEREST',
1375: p_currency_code => cur_khr.currency_code);
1376:
1377: print_debug('Status of creating stream: ' || l_return_status);

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

1375: p_currency_code => cur_khr.currency_code);
1376:
1377: print_debug('Status of creating stream: ' || l_return_status);
1378:
1379: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1380: l_error_flag := TRUE;
1381: print_debug(' Error: creating stream for EXCESS_LOAN_PAYMENT_PAID.');
1382: ELSE
1383: print_debug(' Success: creating stream for EXCESS_LOAN_PAYMENT_PAID.');

Line 1478: WHEN OKL_API.G_EXCEPTION_ERROR THEN

1474: ------------------------------------------------------------
1475: -- Exception handling
1476: ------------------------------------------------------------
1477:
1478: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1479:
1480: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1481: p_api_name => l_api_name,
1482: p_pkg_name => G_PKG_NAME,

Line 1480: x_return_status := OKL_API.HANDLE_EXCEPTIONS (

1476: ------------------------------------------------------------
1477:
1478: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1479:
1480: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1481: p_api_name => l_api_name,
1482: p_pkg_name => G_PKG_NAME,
1483: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1484: x_msg_count => x_msg_count,

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

1479:
1480: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1481: p_api_name => l_api_name,
1482: p_pkg_name => G_PKG_NAME,
1483: p_exc_name => 'OKL_API.G_RET_STS_ERROR',
1484: x_msg_count => x_msg_count,
1485: x_msg_data => x_msg_data,
1486: p_api_type => '_PVT');
1487:

Line 1488: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1484: x_msg_count => x_msg_count,
1485: x_msg_data => x_msg_data,
1486: p_api_type => '_PVT');
1487:
1488: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1489:
1490: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1491: p_api_name => l_api_name,
1492: p_pkg_name => G_PKG_NAME,

Line 1490: x_return_status := OKL_API.HANDLE_EXCEPTIONS (

1486: p_api_type => '_PVT');
1487:
1488: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1489:
1490: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1491: p_api_name => l_api_name,
1492: p_pkg_name => G_PKG_NAME,
1493: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1494: x_msg_count => x_msg_count,

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

1489:
1490: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1491: p_api_name => l_api_name,
1492: p_pkg_name => G_PKG_NAME,
1493: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1494: x_msg_count => x_msg_count,
1495: x_msg_data => x_msg_data,
1496: p_api_type => '_PVT');
1497:

Line 1500: x_return_status := OKL_API.HANDLE_EXCEPTIONS (

1496: p_api_type => '_PVT');
1497:
1498: WHEN OTHERS THEN
1499:
1500: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1501: p_api_name => l_api_name,
1502: p_pkg_name => G_PKG_NAME,
1503: p_exc_name => 'OTHERS',
1504: x_msg_count => x_msg_count,

Line 1564: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN

1560: x_msg_count => lx_msg_count,
1561: x_msg_data => lx_msg_data,
1562: p_khr_id => l_khr_id
1563: );
1564: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1566: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1567: RAISE OKL_API.G_EXCEPTION_ERROR;
1568: END IF;

Line 1565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;

1561: x_msg_data => lx_msg_data,
1562: p_khr_id => l_khr_id
1563: );
1564: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1566: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1567: RAISE OKL_API.G_EXCEPTION_ERROR;
1568: END IF;
1569:

Line 1566: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN

1562: p_khr_id => l_khr_id
1563: );
1564: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1566: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1567: RAISE OKL_API.G_EXCEPTION_ERROR;
1568: END IF;
1569:
1570: END LOOP;

Line 1567: RAISE OKL_API.G_EXCEPTION_ERROR;

1563: );
1564: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
1565: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1566: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
1567: RAISE OKL_API.G_EXCEPTION_ERROR;
1568: END IF;
1569:
1570: END LOOP;
1571:

Line 1583: WHEN Okl_Api.G_EXCEPTION_ERROR THEN

1579: print_output(p_contract_number => p_contract_number);
1580:
1581: retcode := 0;
1582: EXCEPTION
1583: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1584: retcode := 2;
1585: IF check_contract_csr%ISOPEN THEN
1586: CLOSE check_contract_csr;
1587: END IF;

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

1584: retcode := 2;
1585: IF check_contract_csr%ISOPEN THEN
1586: CLOSE check_contract_csr;
1587: END IF;
1588: lx_return_status := Okl_Api.HANDLE_EXCEPTIONS(G_APP_NAME,
1589: G_PKG_NAME,
1590: 'Okl_Api.G_RET_STS_ERROR',
1591: lx_msg_count,
1592: lx_msg_data,

Line 1590: 'Okl_Api.G_RET_STS_ERROR',

1586: CLOSE check_contract_csr;
1587: END IF;
1588: lx_return_status := Okl_Api.HANDLE_EXCEPTIONS(G_APP_NAME,
1589: G_PKG_NAME,
1590: 'Okl_Api.G_RET_STS_ERROR',
1591: lx_msg_count,
1592: lx_msg_data,
1593: '_PVT');
1594: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

Line 1594: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN

1590: 'Okl_Api.G_RET_STS_ERROR',
1591: lx_msg_count,
1592: lx_msg_data,
1593: '_PVT');
1594: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1595: retcode := 2;
1596: IF check_contract_csr%ISOPEN THEN
1597: CLOSE check_contract_csr;
1598: END IF;

Line 1599: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(

1595: retcode := 2;
1596: IF check_contract_csr%ISOPEN THEN
1597: CLOSE check_contract_csr;
1598: END IF;
1599: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
1600: p_api_name => G_APP_NAME,
1601: p_pkg_name => G_PKG_NAME,
1602: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1603: x_msg_count => lx_msg_count,

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

1598: END IF;
1599: lx_return_status := OKL_API.HANDLE_EXCEPTIONS(
1600: p_api_name => G_APP_NAME,
1601: p_pkg_name => G_PKG_NAME,
1602: p_exc_name => 'OKL_API.G_RET_STS_UNEXP_ERROR',
1603: x_msg_count => lx_msg_count,
1604: x_msg_data => lx_msg_data,
1605: p_api_type => '_PVT');
1606: WHEN OTHERS THEN