DBA Data[Home] [Help]

APPS.OKL_VARIABLE_INTEREST_PVT dependencies on DUAL

Line 1105: FUNCTION contract_residual_value(

1101: -- Version: 1.0
1102: -- End of Comments
1103:
1104: ------------------------------------------------------------------------------
1105: FUNCTION contract_residual_value(
1106: p_chr_id IN NUMBER,
1107: p_kle_id IN NUMBER) RETURN NUMBER IS
1108:
1109: /* l_api_name CONSTANT VARCHAR2(30) := 'contract_residual_value';

Line 1109: /* l_api_name CONSTANT VARCHAR2(30) := 'contract_residual_value';

1105: FUNCTION contract_residual_value(
1106: p_chr_id IN NUMBER,
1107: p_kle_id IN NUMBER) RETURN NUMBER IS
1108:
1109: /* l_api_name CONSTANT VARCHAR2(30) := 'contract_residual_value';
1110: l_api_version CONSTANT NUMBER := 1;
1111: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1112: x_msg_count NUMBER;
1113: x_msg_data VARCHAR2(256);

Line 1115: l_residual_value NUMBER := 0;

1111: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1112: x_msg_count NUMBER;
1113: x_msg_data VARCHAR2(256);
1114: */
1115: l_residual_value NUMBER := 0;
1116:
1117: Cursor residual_value_csr (p_chr_id IN NUMBER, p_kle_id IN NUMBER) IS
1118: SELECT nvl(kle.residual_value,0) Value
1119: FROM OKC_LINE_STYLES_B LS,

Line 1117: Cursor residual_value_csr (p_chr_id IN NUMBER, p_kle_id IN NUMBER) IS

1113: x_msg_data VARCHAR2(256);
1114: */
1115: l_residual_value NUMBER := 0;
1116:
1117: Cursor residual_value_csr (p_chr_id IN NUMBER, p_kle_id IN NUMBER) IS
1118: SELECT nvl(kle.residual_value,0) Value
1119: FROM OKC_LINE_STYLES_B LS,
1120: okl_K_lines_full_v kle,
1121: okc_statuses_b sts

Line 1118: SELECT nvl(kle.residual_value,0) Value

1114: */
1115: l_residual_value NUMBER := 0;
1116:
1117: Cursor residual_value_csr (p_chr_id IN NUMBER, p_kle_id IN NUMBER) IS
1118: SELECT nvl(kle.residual_value,0) Value
1119: FROM OKC_LINE_STYLES_B LS,
1120: okl_K_lines_full_v kle,
1121: okc_statuses_b sts
1122: WHERE LS.ID = KLE.LSE_ID

Line 1129: residual_value_rec residual_value_csr%ROWTYPE;

1125: AND KLE.id = p_kle_id
1126: AND kle.sts_code = sts.code
1127: AND sts.ste_code NOT IN ('TERMINATED', 'EXPIRED', 'CANCELLED', 'HOLD');
1128:
1129: residual_value_rec residual_value_csr%ROWTYPE;
1130: BEGIN
1131:
1132: IF ( p_chr_id IS NULL OR p_kle_id IS NULL ) THEN
1133: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;

Line 1136: OPEN residual_value_csr(p_chr_id, p_kle_id);

1132: IF ( p_chr_id IS NULL OR p_kle_id IS NULL ) THEN
1133: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1134: END IF;
1135:
1136: OPEN residual_value_csr(p_chr_id, p_kle_id);
1137: FETCH residual_value_csr INTO residual_value_rec;
1138: CLOSE residual_value_csr;
1139:
1140: l_residual_value := residual_value_rec.Value;

Line 1137: FETCH residual_value_csr INTO residual_value_rec;

1133: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1134: END IF;
1135:
1136: OPEN residual_value_csr(p_chr_id, p_kle_id);
1137: FETCH residual_value_csr INTO residual_value_rec;
1138: CLOSE residual_value_csr;
1139:
1140: l_residual_value := residual_value_rec.Value;
1141:

Line 1138: CLOSE residual_value_csr;

1134: END IF;
1135:
1136: OPEN residual_value_csr(p_chr_id, p_kle_id);
1137: FETCH residual_value_csr INTO residual_value_rec;
1138: CLOSE residual_value_csr;
1139:
1140: l_residual_value := residual_value_rec.Value;
1141:
1142: print_debug('Contract residual value :' || l_residual_value);

Line 1140: l_residual_value := residual_value_rec.Value;

1136: OPEN residual_value_csr(p_chr_id, p_kle_id);
1137: FETCH residual_value_csr INTO residual_value_rec;
1138: CLOSE residual_value_csr;
1139:
1140: l_residual_value := residual_value_rec.Value;
1141:
1142: print_debug('Contract residual value :' || l_residual_value);
1143: RETURN l_residual_value;
1144:

Line 1142: print_debug('Contract residual value :' || l_residual_value);

1138: CLOSE residual_value_csr;
1139:
1140: l_residual_value := residual_value_rec.Value;
1141:
1142: print_debug('Contract residual value :' || l_residual_value);
1143: RETURN l_residual_value;
1144:
1145:
1146: EXCEPTION

Line 1143: RETURN l_residual_value;

1139:
1140: l_residual_value := residual_value_rec.Value;
1141:
1142: print_debug('Contract residual value :' || l_residual_value);
1143: RETURN l_residual_value;
1144:
1145:
1146: EXCEPTION
1147:

Line 1159: END contract_residual_value;

1155: p_token2_value => SQLERRM);
1156: RETURN NULL;
1157:
1158:
1159: END contract_residual_value;
1160:
1161: ----------------------------------------------------------------------------------------------------
1162:
1163: -- Start of Comments

Line 1176: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';

1172: ----------------------------------------------------------------------------------------------------
1173: FUNCTION asset_cost_loan(
1174: p_chr_id IN NUMBER) RETURN NUMBER IS
1175:
1176: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';
1177: l_api_version CONSTANT NUMBER := 1;
1178: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1179: x_msg_count NUMBER;
1180: x_msg_data VARCHAR2(256);

Line 1241: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';

1237: FUNCTION payment_received(
1238: p_chr_id IN NUMBER,
1239: p_date IN DATE) RETURN NUMBER IS
1240:
1241: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';
1242: l_api_version CONSTANT NUMBER := 1;
1243: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1244: x_msg_count NUMBER;
1245: x_msg_data VARCHAR2(256);

Line 1313: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';

1309: FUNCTION funding_req(
1310: p_chr_id IN NUMBER,
1311: p_date IN DATE) RETURN NUMBER IS
1312:
1313: l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_RESIDUAL_VALUE';
1314: l_api_version CONSTANT NUMBER := 1;
1315: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1316: x_msg_count NUMBER;
1317: x_msg_data VARCHAR2(256);

Line 1391: /* l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_RESIDUAL_VALUE';

1387: FUNCTION prin_bal_OP_lease(
1388: p_chr_id IN NUMBER,
1389: p_kle_id IN NUMBER) RETURN NUMBER IS
1390:
1391: /* l_api_name CONSTANT VARCHAR2(30) := 'CONTRACT_RESIDUAL_VALUE';
1392: l_api_version CONSTANT NUMBER := 1;
1393: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1394: x_msg_count NUMBER;
1395: x_msg_data VARCHAR2(256);

Line 1570: contract_residual_value(p_khr_id, p_kle_id) -

1566:
1567: print_debug('get_tot_principal_amt : p_advance_or_arrears => ' || p_advance_or_arrears);
1568: if(c_khr_type_rec.deal_type = 'LEASEDF' or c_khr_type_rec.deal_type = 'LEASEST') THEN
1569: l_principal_balance := contract_future_rents(p_khr_id, p_kle_id, p_date, p_advance_or_arrears) +
1570: contract_residual_value(p_khr_id, p_kle_id) -
1571: contract_future_income(p_khr_id, p_kle_id, p_date);
1572:
1573:
1574: elsif(c_khr_type_rec.deal_type = 'LEASEOP') THEN

Line 1756: print_debug('residual_amount: '||set_value_null(l_csm_line_details_tbl(i).residual_amount));

1752: exit when i is null;
1753: print_debug('kle_asset_id: '||set_value_null(l_csm_line_details_tbl(i).kle_asset_id));
1754: print_debug('----------------------------------------------------');
1755: print_debug('asset_cost: '||set_value_null(l_csm_line_details_tbl(i).asset_cost));
1756: print_debug('residual_amount: '||set_value_null(l_csm_line_details_tbl(i).residual_amount));
1757: print_debug('residual_date: '||set_value_null(l_csm_line_details_tbl(i).residual_date));
1758: print_debug('description: '||set_value_null(l_csm_line_details_tbl(i).description));
1759: i := l_csm_line_details_tbl.next(i);
1760: end loop;

Line 1757: print_debug('residual_date: '||set_value_null(l_csm_line_details_tbl(i).residual_date));

1753: print_debug('kle_asset_id: '||set_value_null(l_csm_line_details_tbl(i).kle_asset_id));
1754: print_debug('----------------------------------------------------');
1755: print_debug('asset_cost: '||set_value_null(l_csm_line_details_tbl(i).asset_cost));
1756: print_debug('residual_amount: '||set_value_null(l_csm_line_details_tbl(i).residual_amount));
1757: print_debug('residual_date: '||set_value_null(l_csm_line_details_tbl(i).residual_date));
1758: print_debug('description: '||set_value_null(l_csm_line_details_tbl(i).description));
1759: i := l_csm_line_details_tbl.next(i);
1760: end loop;
1761: print_debug('**END CONTENTS OF P_CSM_LINE_DETAILS_TBL***');

Line 2335: FROM dual;

2331: ORDER BY SE_LINE_NUMBER DESC;
2332:
2333: CURSOR c_tran_num_csr IS
2334: SELECT okl_sif_seq.nextval
2335: FROM dual;
2336:
2337: --get next reamort date for a contract
2338: CURSOR l_next_reamort_date_csr(cp_khr_id IN NUMBER) IS
2339: SELECT add_months(NVL(date_last_interim_interest_cal, start_date), decode(pay_freq, 'M', 1, 'Q', 3, 'S', 6, 'A', 12, 1)) next_reamort_date

Line 6680: FROM dual;

6676: AND stm.sty_id = p_sty_id;
6677:
6678: CURSOR tran_num_csr IS
6679: SELECT okl_sif_seq.nextval
6680: FROM dual;
6681:
6682: CURSOR c_stm_id_line_number(c_stm_id NUMBER) IS
6683: SELECT SE_LINE_NUMBER
6684: FROM OKL_STRM_ELEMENTS_V

Line 9188: select pg_source_seq.NEXTVAL into l_source from dual;

9184: RAISE OKL_API.G_EXCEPTION_ERROR;
9185: END IF;
9186:
9187: /*begin
9188: select pg_source_seq.NEXTVAL into l_source from dual;
9189: exception
9190: when others then
9191: null;
9192: end;*/

Line 9567: p_residual_value => NULL,

9563: p_in_service_date => NULL,
9564: p_life_in_months => NULL,
9565: p_basic_rate => NULL,
9566: p_adjusted_rate => NULL,
9567: p_residual_value => NULL,
9568: p_strm_lalevl_tbl => l_strm_lalevl_tbl,
9569: p_transaction_date => l_reamort_date,
9570: x_stream_trx_tbl => x_strm_trx_tbl
9571: );

Line 10845: l_csm_yields_tbl(l_index).yield_name := 'Full term with residual';

10841: --is this correct?
10842: --CHECK WITH PM'S
10843: l_index := l_csm_yields_tbl.COUNT + 1;
10844: l_csm_yields_tbl(l_index).siy_type := OKL_SIY_PVT.G_SIY_TYPE_INTEREST_RATE;
10845: l_csm_yields_tbl(l_index).yield_name := 'Full term with residual';
10846: l_csm_yields_tbl(l_index).target_value := l_interest_rate_tbl(l_interest_rate_tbl_index).rate;
10847: print_debug('l_csm_yields_tbl information');
10848: print_debug('siy_type :'||l_csm_yields_tbl(l_index).siy_type);
10849: print_debug('yield_name :'||l_csm_yields_tbl(l_index).yield_name);

Line 10938: l_csm_line_details_tbl(l_first_row).residual_amount := NVL(l_csm_line_details_tbl(l_first_row).residual_amount, 0) + NVL(l_csm_line_details_tbl(l_row_counter).residual_amount, 0);

10934: --l_first_row := l_row_counter;
10935: /* l_row_counter := l_csm_line_details_tbl.next(l_row_counter);
10936: loop
10937: exit when l_row_counter is null;
10938: l_csm_line_details_tbl(l_first_row).residual_amount := NVL(l_csm_line_details_tbl(l_first_row).residual_amount, 0) + NVL(l_csm_line_details_tbl(l_row_counter).residual_amount, 0);
10939: l_row_counter := l_csm_line_details_tbl.next(l_row_counter);
10940: end loop;
10941: */
10942: print_debug('====================================================');

Line 10954: print_debug('Residual amount : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).residual_amount);

10950: l_csm_line_details_tbl(l_csm_line_details_ctr).date_delivery := l_start_date;
10951: l_csm_line_details_tbl(l_csm_line_details_ctr).date_funding := l_start_date;
10952:
10953: print_debug('Asset id: ' || l_csm_line_details_tbl(l_csm_line_details_ctr).kle_asset_id || ' Asset principal balance: ' ||l_csm_line_details_tbl(l_csm_line_details_ctr).asset_cost);
10954: print_debug('Residual amount : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).residual_amount);
10955: print_debug('Date delivery : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).date_delivery);
10956: print_debug('Date funding : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).date_funding);
10957: --FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Residual amount : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).residual_amount);
10958:

Line 10957: --FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Residual amount : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).residual_amount);

10953: print_debug('Asset id: ' || l_csm_line_details_tbl(l_csm_line_details_ctr).kle_asset_id || ' Asset principal balance: ' ||l_csm_line_details_tbl(l_csm_line_details_ctr).asset_cost);
10954: print_debug('Residual amount : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).residual_amount);
10955: print_debug('Date delivery : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).date_delivery);
10956: print_debug('Date funding : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).date_funding);
10957: --FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Residual amount : ' || l_csm_line_details_tbl(l_csm_line_details_ctr).residual_amount);
10958:
10959: /* l_row_counter := l_csm_line_details_tbl.next(l_first_row);
10960: loop
10961: exit when l_row_counter is null;

Line 11112: FROM dual;

11108: l_request_id,
11109: l_program_application_id,
11110: l_program_id,
11111: l_program_update_date
11112: FROM dual;
11113:
11114: g_vir_tbl.delete;
11115: g_vir_tbl_counter := g_vir_tbl_counter + 1;
11116: g_vir_tbl(g_vir_tbl_counter).id := okc_p_util.raw_to_number(sys_guid());

Line 12067: --select add_months(l_next_date, l_mnth_adder) INTO l_next_date from dual;

12063:
12064: l_next_catchup_date := l_catchup_start_date;
12065: loop
12066: exit when l_next_catchup_date > NVL(l_last_int_cal_date, l_next_catchup_date - 1);
12067: --select add_months(l_next_date, l_mnth_adder) INTO l_next_date from dual;
12068: l_next_catchup_date := add_months(l_next_catchup_date, l_mnth_adder);
12069: end loop;
12070:
12071: --if next catchup date exceeds the contract end date