[Home] [Help]
2170: END IF;
2171: RETURN(x_return_status);
2172: END get_rec_clev;
2173: -----------------------------------------------------------------------------------------------
2174: FUNCTION get_rec_klev(p_id IN OKL_K_LINES_V.ID%TYPE,
2175: x_klev_rec OUT NOCOPY klev_rec_type)
2176: RETURN VARCHAR2 IS
2177: CURSOR okl_k_lines_v_pk_csr (p_kle_id OKL_K_LINES_V.ID%TYPE) IS
2178: SELECT ID,
2173: -----------------------------------------------------------------------------------------------
2174: FUNCTION get_rec_klev(p_id IN OKL_K_LINES_V.ID%TYPE,
2175: x_klev_rec OUT NOCOPY klev_rec_type)
2176: RETURN VARCHAR2 IS
2177: CURSOR okl_k_lines_v_pk_csr (p_kle_id OKL_K_LINES_V.ID%TYPE) IS
2178: SELECT ID,
2179: OBJECT_VERSION_NUMBER,
2180: KLE_ID,
2181: STY_ID,
2309: --start NISINHA bug # 6490572
2310: ,MODEL_NUMBER
2311: ,MANUFACTURER_NAME
2312: --end NISINHA bug # 6490572
2313: FROM OKL_K_LINES_V
2314: WHERE OKL_K_LINES_V.id = p_kle_id;
2315: l_okl_k_lines_v_pk okl_k_lines_v_pk_csr%ROWTYPE;
2316: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2317: BEGIN
2310: ,MODEL_NUMBER
2311: ,MANUFACTURER_NAME
2312: --end NISINHA bug # 6490572
2313: FROM OKL_K_LINES_V
2314: WHERE OKL_K_LINES_V.id = p_kle_id;
2315: l_okl_k_lines_v_pk okl_k_lines_v_pk_csr%ROWTYPE;
2316: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2317: BEGIN
2318: -- Get current database values
2311: ,MANUFACTURER_NAME
2312: --end NISINHA bug # 6490572
2313: FROM OKL_K_LINES_V
2314: WHERE OKL_K_LINES_V.id = p_kle_id;
2315: l_okl_k_lines_v_pk okl_k_lines_v_pk_csr%ROWTYPE;
2316: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2317: BEGIN
2318: -- Get current database values
2319: OPEN okl_k_lines_v_pk_csr (p_id);
2315: l_okl_k_lines_v_pk okl_k_lines_v_pk_csr%ROWTYPE;
2316: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2317: BEGIN
2318: -- Get current database values
2319: OPEN okl_k_lines_v_pk_csr (p_id);
2320: FETCH okl_k_lines_v_pk_csr INTO
2321: x_klev_rec.ID,
2322: x_klev_rec.OBJECT_VERSION_NUMBER,
2323: x_klev_rec.KLE_ID,
2316: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
2317: BEGIN
2318: -- Get current database values
2319: OPEN okl_k_lines_v_pk_csr (p_id);
2320: FETCH okl_k_lines_v_pk_csr INTO
2321: x_klev_rec.ID,
2322: x_klev_rec.OBJECT_VERSION_NUMBER,
2323: x_klev_rec.KLE_ID,
2324: x_klev_rec.STY_ID,
2453: ,x_klev_rec.MODEL_NUMBER
2454: ,x_klev_rec.MANUFACTURER_NAME;
2455: --end NISINHA Bug # 6490572
2456:
2457: IF okl_k_lines_v_pk_csr%NOTFOUND THEN
2458: x_return_status := OKL_API.G_RET_STS_ERROR;
2459: END IF;
2460: CLOSE okl_k_lines_v_pk_csr;
2461: RETURN(x_return_status);
2456:
2457: IF okl_k_lines_v_pk_csr%NOTFOUND THEN
2458: x_return_status := OKL_API.G_RET_STS_ERROR;
2459: END IF;
2460: CLOSE okl_k_lines_v_pk_csr;
2461: RETURN(x_return_status);
2462: EXCEPTION
2463: WHEN OTHERS THEN
2464: -- store SQL error message on message stack for caller
2470: SQLERRM);
2471: -- notify caller of an UNEXPECTED error
2472: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2473: -- if the cursor is open
2474: IF okl_k_lines_v_pk_csr%ISOPEN THEN
2475: CLOSE okl_k_lines_v_pk_csr;
2476: END IF;
2477: RETURN(x_return_status);
2478: END get_rec_klev;
2471: -- notify caller of an UNEXPECTED error
2472: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2473: -- if the cursor is open
2474: IF okl_k_lines_v_pk_csr%ISOPEN THEN
2475: CLOSE okl_k_lines_v_pk_csr;
2476: END IF;
2477: RETURN(x_return_status);
2478: END get_rec_klev;
2479: -------------------------------------------------------------------------------------------------
3494: p_units IN OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE,
3495: p_ib_loc1 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
3496: p_ib_loc2 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID2_NEW%TYPE,
3497: p_fa_loc IN OKL_TXL_ASSETS_B.FA_LOCATION_ID%TYPE,
3498: p_refinance_amount IN OKL_K_LINES.REFINANCE_AMOUNT%TYPE,
3499: p_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
3500: RETURN VARCHAR2 IS
3501: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3502: ln_dummy NUMBER := 0;
6646: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6647: OKL_API.set_message(p_app_name => G_APP_NAME,
6648: p_msg_name => G_FETCHING_INFO,
6649: p_token1 => G_REC_NAME_TOKEN,
6650: p_token1_value => 'OKL_K_LINES_V Record');
6651: RAISE G_EXCEPTION_HALT_VALIDATION;
6652: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6653: OKL_API.set_message(p_app_name => G_APP_NAME,
6654: p_msg_name => G_FETCHING_INFO,
6652: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6653: OKL_API.set_message(p_app_name => G_APP_NAME,
6654: p_msg_name => G_FETCHING_INFO,
6655: p_token1 => G_REC_NAME_TOKEN,
6656: p_token1_value => 'OKL_K_LINES_V Record');
6657: RAISE G_EXCEPTION_HALT_VALIDATION;
6658: END IF;
6659: -- since Add on is a sub line of Model line we have to check weather
6660: -- which line are creating under which line
7262: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7263: OKL_API.set_message(p_app_name => G_APP_NAME,
7264: p_msg_name => G_FETCHING_INFO,
7265: p_token1 => G_REC_NAME_TOKEN,
7266: p_token1_value => 'OKL_K_LINES_V Record');
7267: RAISE G_EXCEPTION_HALT_VALIDATION;
7268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7269: OKL_API.set_message(p_app_name => G_APP_NAME,
7270: p_msg_name => G_FETCHING_INFO,
7268: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7269: OKL_API.set_message(p_app_name => G_APP_NAME,
7270: p_msg_name => G_FETCHING_INFO,
7271: p_token1 => G_REC_NAME_TOKEN,
7272: p_token1_value => 'OKL_K_LINES_V Record');
7273: RAISE G_EXCEPTION_HALT_VALIDATION;
7274: END IF;
7275: IF l_delete_klev_rec.id <> l_delete_clev_rec.id THEN
7276: OKL_API.set_message(p_app_name => G_APP_NAME,
8380: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
8381: ln_fa_id OKC_K_LINES_V.ID%TYPE;
8382:
8383: -- Temp variables for capital reduction and tradein amount
8384: tradein_amount OKL_K_LINES.TRADEIN_AMOUNT%TYPE;
8385: capital_reduction OKL_K_LINES.CAPITAL_REDUCTION%TYPE;
8386:
8387: CURSOR get_fa_id(p_top_line OKC_K_LINES_V.ID%TYPE,
8388: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE)
8381: ln_fa_id OKC_K_LINES_V.ID%TYPE;
8382:
8383: -- Temp variables for capital reduction and tradein amount
8384: tradein_amount OKL_K_LINES.TRADEIN_AMOUNT%TYPE;
8385: capital_reduction OKL_K_LINES.CAPITAL_REDUCTION%TYPE;
8386:
8387: CURSOR get_fa_id(p_top_line OKC_K_LINES_V.ID%TYPE,
8388: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE)
8389: IS
8841: p_top_line_id IN OKC_K_LINES_V.ID%TYPE,
8842: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
8843: x_fin_clev_rec OUT NOCOPY clev_rec_type,
8844: x_fin_klev_rec OUT NOCOPY klev_rec_type,
8845: x_oec OUT NOCOPY OKL_K_LINES_V.OEC%TYPE,
8846: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
8847:
8848: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
8849: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
8844: x_fin_klev_rec OUT NOCOPY klev_rec_type,
8845: x_oec OUT NOCOPY OKL_K_LINES_V.OEC%TYPE,
8846: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
8847:
8848: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
8849: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
8850: l_update_clev_rec clev_rec_type;
8851: l_update_klev_rec klev_rec_type;
8852:
8948: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8949: OKL_API.set_message(p_app_name => G_APP_NAME,
8950: p_msg_name => G_FETCHING_INFO,
8951: p_token1 => G_REC_NAME_TOKEN,
8952: p_token1_value => 'OKL_K_LINES_V Record');
8953: RAISE G_EXCEPTION_HALT_VALIDATION;
8954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8955: OKL_API.set_message(p_app_name => G_APP_NAME,
8956: p_msg_name => G_FETCHING_INFO,
8954: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
8955: OKL_API.set_message(p_app_name => G_APP_NAME,
8956: p_msg_name => G_FETCHING_INFO,
8957: p_token1 => G_REC_NAME_TOKEN,
8958: p_token1_value => 'OKL_K_LINES_V Record');
8959: RAISE G_EXCEPTION_HALT_VALIDATION;
8960: END IF;
8961: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
8962: OKL_API.set_message(p_app_name => G_APP_NAME,
9048: p_top_line_id IN OKC_K_LINES_V.ID%TYPE, -- 4414408
9049: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9050: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9051: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9052: x_cap_amt OUT NOCOPY OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE,
9053: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9054:
9055: ln_cap_amt OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
9056: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9051: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9052: x_cap_amt OUT NOCOPY OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE,
9053: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9054:
9055: ln_cap_amt OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
9056: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9057: l_update_clev_rec clev_rec_type;
9058: l_update_klev_rec klev_rec_type;
9059: -- #4414408 Top line ID is a parameter passed to the API
9155: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9156: OKL_API.set_message(p_app_name => G_APP_NAME,
9157: p_msg_name => G_FETCHING_INFO,
9158: p_token1 => G_REC_NAME_TOKEN,
9159: p_token1_value => 'OKL_K_LINES_V Record');
9160: RAISE G_EXCEPTION_HALT_VALIDATION;
9161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9162: OKL_API.set_message(p_app_name => G_APP_NAME,
9163: p_msg_name => G_FETCHING_INFO,
9161: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9162: OKL_API.set_message(p_app_name => G_APP_NAME,
9163: p_msg_name => G_FETCHING_INFO,
9164: p_token1 => G_REC_NAME_TOKEN,
9165: p_token1_value => 'OKL_K_LINES_V Record');
9166: RAISE G_EXCEPTION_HALT_VALIDATION;
9167: END IF;
9168: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9169: OKL_API.set_message(p_app_name => G_APP_NAME,
9253: p_top_line_id IN OKC_K_LINES_V.ID%TYPE, -- 4414408
9254: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9255: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9256: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9257: x_res_value OUT NOCOPY OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9258: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9259:
9260: ln_res_value OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
9261: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9256: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9257: x_res_value OUT NOCOPY OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9258: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9259:
9260: ln_res_value OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
9261: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9262: l_update_clev_rec clev_rec_type;
9263: l_update_klev_rec klev_rec_type;
9264: -- 4414408
9358: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9359: OKL_API.set_message(p_app_name => G_APP_NAME,
9360: p_msg_name => G_FETCHING_INFO,
9361: p_token1 => G_REC_NAME_TOKEN,
9362: p_token1_value => 'OKL_K_LINES_V Record');
9363: RAISE G_EXCEPTION_HALT_VALIDATION;
9364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9365: OKL_API.set_message(p_app_name => G_APP_NAME,
9366: p_msg_name => G_FETCHING_INFO,
9364: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9365: OKL_API.set_message(p_app_name => G_APP_NAME,
9366: p_msg_name => G_FETCHING_INFO,
9367: p_token1 => G_REC_NAME_TOKEN,
9368: p_token1_value => 'OKL_K_LINES_V Record');
9369: RAISE G_EXCEPTION_HALT_VALIDATION;
9370: END IF;
9371: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9372: OKL_API.set_message(p_app_name => G_APP_NAME,
9456: x_msg_count OUT NOCOPY NUMBER,
9457: x_msg_data OUT NOCOPY VARCHAR2,
9458: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9459: p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
9460: p_res_value IN OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9461: p_oec IN OKL_K_LINES_V.OEC%TYPE,
9462: p_top_line_id IN OKC_K_LINES_V.ID%TYPE,
9463: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9464: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9457: x_msg_data OUT NOCOPY VARCHAR2,
9458: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9459: p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
9460: p_res_value IN OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9461: p_oec IN OKL_K_LINES_V.OEC%TYPE,
9462: p_top_line_id IN OKC_K_LINES_V.ID%TYPE,
9463: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9464: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9465: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9464: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9465: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9466: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9467:
9468: ln_res_per OKL_K_LINES_V.RESIDUAL_PERCENTAGE%TYPE := 0;
9469: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9470: l_update_clev_rec clev_rec_type;
9471: l_update_klev_rec klev_rec_type;
9472:
9521: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9522: OKL_API.set_message(p_app_name => G_APP_NAME,
9523: p_msg_name => G_FETCHING_INFO,
9524: p_token1 => G_REC_NAME_TOKEN,
9525: p_token1_value => 'OKL_K_LINES_V Record');
9526: RAISE G_EXCEPTION_HALT_VALIDATION;
9527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9528: OKL_API.set_message(p_app_name => G_APP_NAME,
9529: p_msg_name => G_FETCHING_INFO,
9527: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9528: OKL_API.set_message(p_app_name => G_APP_NAME,
9529: p_msg_name => G_FETCHING_INFO,
9530: p_token1 => G_REC_NAME_TOKEN,
9531: p_token1_value => 'OKL_K_LINES_V Record');
9532: RAISE G_EXCEPTION_HALT_VALIDATION;
9533: END IF;
9534: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9535: OKL_API.set_message(p_app_name => G_APP_NAME,
10327: k NUMBER := 0;
10328: l_klev_rec klev_rec_type;
10329: l_clev_tbl clev_tbl_type;
10330: x_klev_rec klev_rec_type;
10331: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
10332: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10333: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10334: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10335: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10331: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
10332: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10333: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10334: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10335: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10336: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10337: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10338:
10339: -- To Find out the Top line ID
10332: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10333: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10334: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10335: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10336: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10337: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10338:
10339: -- To Find out the Top line ID
10340: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10333: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10334: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10335: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10336: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10337: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10338:
10339: -- To Find out the Top line ID
10340: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10341: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
10468: END IF;
10469:
10470: CLOSE c_model_top_line;
10471:
10472: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
10473: oec_calc_upd_fin_rec(p_api_version => p_api_version,
10474: p_init_msg_list => p_init_msg_list,
10475: x_return_status => x_return_status,
10476: x_msg_count => x_msg_count,
10488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10490: RAISE OKL_API.G_EXCEPTION_ERROR;
10491: END IF;
10492: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10493: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10494: p_init_msg_list => p_init_msg_list,
10495: x_return_status => x_return_status,
10496: x_msg_count => x_msg_count,
10508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10510: RAISE OKL_API.G_EXCEPTION_ERROR;
10511: END IF;
10512: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10513: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10514: p_init_msg_list => p_init_msg_list,
10515: x_return_status => x_return_status,
10516: x_msg_count => x_msg_count,
10616: x_klev_rec klev_rec_type;
10617: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10618: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10619: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10620: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10621: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10622: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10623:
10624: -- To Find out the Top line ID
10617: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10618: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10619: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10620: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10621: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10622: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10623:
10624: -- To Find out the Top line ID
10625: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10618: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10619: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10620: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10621: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10622: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10623:
10624: -- To Find out the Top line ID
10625: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10626: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
10715: END IF;
10716:
10717: CLOSE c_model_top_line;
10718:
10719: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
10720: oec_calc_upd_fin_rec(p_api_version => p_api_version,
10721: p_init_msg_list => p_init_msg_list,
10722: x_return_status => x_return_status,
10723: x_msg_count => x_msg_count,
10735: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10736: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10737: RAISE OKL_API.G_EXCEPTION_ERROR;
10738: END IF;
10739: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10740: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10741: p_init_msg_list => p_init_msg_list,
10742: x_return_status => x_return_status,
10743: x_msg_count => x_msg_count,
10755: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10757: RAISE OKL_API.G_EXCEPTION_ERROR;
10758: END IF;
10759: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10760: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10761: p_init_msg_list => p_init_msg_list,
10762: x_return_status => x_return_status,
10763: x_msg_count => x_msg_count,
10863: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10864: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10865: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10866: l_clev_tbl clev_tbl_type;
10867: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10868: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10869: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10870:
10871: -- To Find out the Top line ID
10864: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10865: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10866: l_clev_tbl clev_tbl_type;
10867: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10868: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10869: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10870:
10871: -- To Find out the Top line ID
10872: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10865: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10866: l_clev_tbl clev_tbl_type;
10867: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10868: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10869: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10870:
10871: -- To Find out the Top line ID
10872: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10873: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
10950: END IF;
10951:
10952: CLOSE c_model_top_line;
10953:
10954: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
10955: oec_calc_upd_fin_rec(p_api_version => p_api_version,
10956: p_init_msg_list => p_init_msg_list,
10957: x_return_status => x_return_status,
10958: x_msg_count => x_msg_count,
10970: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10971: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10972: RAISE OKL_API.G_EXCEPTION_ERROR;
10973: END IF;
10974: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10975: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10976: p_init_msg_list => p_init_msg_list,
10977: x_return_status => x_return_status,
10978: x_msg_count => x_msg_count,
10990: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10991: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10992: RAISE OKL_API.G_EXCEPTION_ERROR;
10993: END IF;
10994: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10995: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10996: p_init_msg_list => p_init_msg_list,
10997: x_return_status => x_return_status,
10998: x_msg_count => x_msg_count,
11702: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11703: OKL_API.set_message(p_app_name => G_APP_NAME,
11704: p_msg_name => G_FETCHING_INFO,
11705: p_token1 => G_REC_NAME_TOKEN,
11706: p_token1_value => 'OKL_K_LINES_V Record');
11707: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11709: OKL_API.set_message(p_app_name => G_APP_NAME,
11710: p_msg_name => G_FETCHING_INFO,
11708: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11709: OKL_API.set_message(p_app_name => G_APP_NAME,
11710: p_msg_name => G_FETCHING_INFO,
11711: p_token1 => G_REC_NAME_TOKEN,
11712: p_token1_value => 'OKL_K_LINES_V Record');
11713: RAISE OKL_API.G_EXCEPTION_ERROR;
11714: END IF;
11715: IF l_clev_rec.id <> l_klev_rec.id THEN
11716: OKL_API.set_message(p_app_name => G_APP_NAME,
13655: okl_subsidies_b subb,
13656: okl_subsidies_tl subt,
13657: po_vendors pov,
13658: okc_k_party_roles_b sub_cplb,
13659: okl_k_lines sub_kle,
13660: okc_k_lines_b sub_cleb,
13661: okc_line_styles_b sub_lseb
13662: where subt.id = subb.id
13663: and subt.language = userenv('LANG')
14145: l_api_version CONSTANT NUMBER := 1.0;
14146:
14147:
14148: l_top_line_id OKC_K_LINES_B.ID%TYPE;
14149: l_oec OKL_K_LINES.OEC%TYPE;
14150: l_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14151: lx_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14152:
14153:
14146:
14147:
14148: l_top_line_id OKC_K_LINES_B.ID%TYPE;
14149: l_oec OKL_K_LINES.OEC%TYPE;
14150: l_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14151: lx_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14152:
14153:
14154: --cursor to get model line id
14147:
14148: l_top_line_id OKC_K_LINES_B.ID%TYPE;
14149: l_oec OKL_K_LINES.OEC%TYPE;
14150: l_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14151: lx_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14152:
14153:
14154: --cursor to get model line id
14155: CURSOR l_modelline_csr(p_cle_id IN NUMBER,
14166:
14167: --Bug# 4631549
14168: cursor l_exp_cost_csr (p_kle_id in number) is
14169: select kle.expected_asset_cost
14170: from okl_k_lines kle
14171: where kle.id = p_kle_id;
14172:
14173: l_exp_cost_rec l_exp_cost_csr%ROWTYPE;
14174:
14964: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
14965: OKL_API.set_message(p_app_name => G_APP_NAME,
14966: p_msg_name => G_FETCHING_INFO,
14967: p_token1 => G_REC_NAME_TOKEN,
14968: p_token1_value => 'OKL_K_LINES_V Record');
14969: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
14970: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14971: OKL_API.set_message(p_app_name => G_APP_NAME,
14972: p_msg_name => G_FETCHING_INFO,
14970: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
14971: OKL_API.set_message(p_app_name => G_APP_NAME,
14972: p_msg_name => G_FETCHING_INFO,
14973: p_token1 => G_REC_NAME_TOKEN,
14974: p_token1_value => 'OKL_K_LINES_V Record');
14975: RAISE Okc_Api.G_EXCEPTION_ERROR;
14976: END IF;
14977:
14978: Open l_lty_csr(p_lse_id => l_lines_rec.lse_id);
15086: l_klev_ib_rec_out klev_rec_type;
15087: l_cimv_ib_rec_out cimv_rec_type;
15088: l_trxv_ib_rec_out trxv_rec_type;
15089: l_itiv_ib_tbl_out itiv_tbl_type;
15090: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
15091: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
15092: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
15093: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
15094: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
15087: l_cimv_ib_rec_out cimv_rec_type;
15088: l_trxv_ib_rec_out trxv_rec_type;
15089: l_itiv_ib_tbl_out itiv_tbl_type;
15090: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
15091: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
15092: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
15093: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
15094: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
15095: lv_object_id1_new OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE;
15088: l_trxv_ib_rec_out trxv_rec_type;
15089: l_itiv_ib_tbl_out itiv_tbl_type;
15090: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
15091: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
15092: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
15093: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
15094: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
15095: lv_object_id1_new OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE;
15096: lv_scs_code OKC_K_HEADERS_V.SCS_CODE%TYPE := null;
15104: p NUMBER := 0;
15105:
15106: -- added by rravikir (Estimated property tax)
15107: ln_chr_id OKC_K_HEADERS_B.ID%TYPE;
15108: ln_cle_id OKL_K_LINES_V.ID%TYPE;
15109: -- end
15110: TYPE instance_id_tbl IS TABLE OF NUMBER
15111: INDEX BY BINARY_INTEGER;
15112: lt_instance_id_tbl instance_id_tbl;
15539: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15540: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15541: RAISE OKL_API.G_EXCEPTION_ERROR;
15542: END IF;
15543: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
15544: oec_calc_upd_fin_rec(p_api_version => p_api_version,
15545: p_init_msg_list => p_init_msg_list,
15546: x_return_status => x_return_status,
15547: x_msg_count => x_msg_count,
15559: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15560: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15561: RAISE OKL_API.G_EXCEPTION_ERROR;
15562: END IF;
15563: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
15564: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
15565: p_init_msg_list => p_init_msg_list,
15566: x_return_status => x_return_status,
15567: x_msg_count => x_msg_count,
15579: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15580: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15581: RAISE OKL_API.G_EXCEPTION_ERROR;
15582: END IF;
15583: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15584: -- We need to Back calculate the Residual Percentage if value not given
15585: -- or if given should be in sync with residual value
15586:
15587: IF l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM THEN
15728: --Bug# 4053845
15729: l_clev_fa_rec.name := upper(l_clev_fa_rec.name);
15730: -- A Bug fix Since we populate the year manufactured into OKL_TXL_ASSETS_B only
15731: -- We cannot use the information after the assets have been put into FA
15732: -- So we decided to populate the year Manufactured into OKL_K_LINES.YEAR_BUILT
15733: -- As the Datatype matches for both.
15734: l_klev_fa_rec.Year_Built := l_talv_fa_rec.year_manufactured;
15735: --start NISINHA Bug 6490572
15736: l_klev_fa_rec.model_number := l_talv_fa_rec.model_number;
16185: r_clev_ib_rec clev_rec_type;
16186: r_klev_ib_rec klev_rec_type;
16187: r_cimv_ib_rec cimv_rec_type;
16188: r_itiv_ib_rec itiv_rec_type;
16189: ln_addon_oec OKL_K_LINES_V.OEC%TYPE := 0;
16190: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
16191: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
16192: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
16193: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
16186: r_klev_ib_rec klev_rec_type;
16187: r_cimv_ib_rec cimv_rec_type;
16188: r_itiv_ib_rec itiv_rec_type;
16189: ln_addon_oec OKL_K_LINES_V.OEC%TYPE := 0;
16190: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
16191: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
16192: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
16193: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
16194: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
16187: r_cimv_ib_rec cimv_rec_type;
16188: r_itiv_ib_rec itiv_rec_type;
16189: ln_addon_oec OKL_K_LINES_V.OEC%TYPE := 0;
16190: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
16191: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
16192: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
16193: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
16194: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
16195: lv_object_id1_new OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE;
16188: r_itiv_ib_rec itiv_rec_type;
16189: ln_addon_oec OKL_K_LINES_V.OEC%TYPE := 0;
16190: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
16191: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
16192: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
16193: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
16194: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
16195: lv_object_id1_new OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE;
16196: lv_model_object_id1 OKC_K_ITEMS_V.OBJECT1_ID1%TYPE;
16271: fin_kle.CAPITALIZE_DOWN_PAYMENT_YN,
16272: fin_kle.residual_value,
16273: fin_kle.residual_percentage
16274: from
16275: okl_k_lines fin_kle,
16276: okc_k_lines_b fin_cleb
16277: where fin_kle.id = fin_cleb.id
16278: and fin_cleb.id = p_cle_id
16279: and fin_cleb.chr_id = p_chr_id
16352: AND chr.orig_system_source_code = 'OKL_REBOOK';
16353:
16354: l_rbk_khr VARCHAR2(1) DEFAULT '?';
16355:
16356: l_line_capital_amount okl_k_lines.capital_amount%TYPE;
16357:
16358: --Bug# 4631549
16359: cursor l_orig_cle_csr (p_cle_id in number
16360: ) is
16733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16734: OKL_API.set_message(p_app_name => G_APP_NAME,
16735: p_msg_name => G_FETCHING_INFO,
16736: p_token1 => G_REC_NAME_TOKEN,
16737: p_token1_value => 'OKL_K_LINES_V Record');
16738: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16740: OKL_API.set_message(p_app_name => G_APP_NAME,
16741: p_msg_name => G_FETCHING_INFO,
16739: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16740: OKL_API.set_message(p_app_name => G_APP_NAME,
16741: p_msg_name => G_FETCHING_INFO,
16742: p_token1 => G_REC_NAME_TOKEN,
16743: p_token1_value => 'OKL_K_LINES_V Record');
16744: RAISE OKL_API.G_EXCEPTION_ERROR;
16745: END IF;
16746: IF r_clev_fin_rec.id <> r_klev_fin_rec.id THEN
16747: OKL_API.set_message(p_app_name => G_APP_NAME,
16841: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16842: OKL_API.set_message(p_app_name => G_APP_NAME,
16843: p_msg_name => G_FETCHING_INFO,
16844: p_token1 => G_REC_NAME_TOKEN,
16845: p_token1_value => 'OKL_K_LINES_V Record');
16846: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16847: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16848: OKL_API.set_message(p_app_name => G_APP_NAME,
16849: p_msg_name => G_FETCHING_INFO,
16847: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16848: OKL_API.set_message(p_app_name => G_APP_NAME,
16849: p_msg_name => G_FETCHING_INFO,
16850: p_token1 => G_REC_NAME_TOKEN,
16851: p_token1_value => 'OKL_K_LINES_V Record');
16852: RAISE OKL_API.G_EXCEPTION_ERROR;
16853: END IF;
16854: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
16855: OKL_API.set_message(p_app_name => G_APP_NAME,
17015:
17016: lv_model_object_id1 := l_cimv_model_rec_out.object1_id1;
17017: lv_model_object_id2 := l_cimv_model_rec_out.object1_id2;
17018: IF l_go_for_calc = 'Y' THEN
17019: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
17020: oec_calc_upd_fin_rec(p_api_version => p_api_version,
17021: p_init_msg_list => p_init_msg_list,
17022: x_return_status => x_return_status,
17023: x_msg_count => x_msg_count,
17035: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17036: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17037: RAISE OKL_API.G_EXCEPTION_ERROR;
17038: END IF;
17039: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
17040: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
17041: p_init_msg_list => p_init_msg_list,
17042: x_return_status => x_return_status,
17043: x_msg_count => x_msg_count,
17060: l_klev_fin_rec.residual_percentage := null;
17061: ELSIF l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM THEN
17062: l_klev_fin_rec.residual_value := null;
17063: END IF;
17064: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
17065: IF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17066: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17067: (l_klev_fin_rec.residual_value IS NOT NULL OR
17068: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17196: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17197: OKL_API.set_message(p_app_name => G_APP_NAME,
17198: p_msg_name => G_FETCHING_INFO,
17199: p_token1 => G_REC_NAME_TOKEN,
17200: p_token1_value => 'OKL_K_LINES_V Record');
17201: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17202: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17203: OKL_API.set_message(p_app_name => G_APP_NAME,
17204: p_msg_name => G_FETCHING_INFO,
17202: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17203: OKL_API.set_message(p_app_name => G_APP_NAME,
17204: p_msg_name => G_FETCHING_INFO,
17205: p_token1 => G_REC_NAME_TOKEN,
17206: p_token1_value => 'OKL_K_LINES_V Record');
17207: RAISE OKL_API.G_EXCEPTION_ERROR;
17208: END IF;
17209: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
17210: OKL_API.set_message(p_app_name => G_APP_NAME,
17340:
17341: l_clev_fa_rec.item_description := l_talv_fa_rec.description;
17342: -- A Bug fix Since we populate the year manufactured into OKL_TXL_ASSETS_B only
17343: -- We cannot use the information after the assets have been put into FA
17344: -- So we decided to populate the year Manufactured into OKL_K_LINES.YEAR_BUILT
17345: -- As the Datatype matches for both.
17346: l_klev_fa_rec.Year_Built := l_talv_fa_rec.year_manufactured;
17347: -- Updating of the Fixed Asset Line and item/Txl Asset Info
17348:
17408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17409: OKL_API.set_message(p_app_name => G_APP_NAME,
17410: p_msg_name => G_FETCHING_INFO,
17411: p_token1 => G_REC_NAME_TOKEN,
17412: p_token1_value => 'OKL_K_LINES_V Record');
17413: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17415: OKL_API.set_message(p_app_name => G_APP_NAME,
17416: p_msg_name => G_FETCHING_INFO,
17414: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17415: OKL_API.set_message(p_app_name => G_APP_NAME,
17416: p_msg_name => G_FETCHING_INFO,
17417: p_token1 => G_REC_NAME_TOKEN,
17418: p_token1_value => 'OKL_K_LINES_V Record');
17419: RAISE OKL_API.G_EXCEPTION_ERROR;
17420: END IF;
17421: IF r_clev_ib_rec.id <> r_klev_ib_rec.id THEN
17422: OKL_API.set_message(p_app_name => G_APP_NAME,
17638: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17639: OKL_API.set_message(p_app_name => G_APP_NAME,
17640: p_msg_name => G_FETCHING_INFO,
17641: p_token1 => G_REC_NAME_TOKEN,
17642: p_token1_value => 'OKL_K_LINES_V Record');
17643: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17645: OKL_API.set_message(p_app_name => G_APP_NAME,
17646: p_msg_name => G_FETCHING_INFO,
17644: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17645: OKL_API.set_message(p_app_name => G_APP_NAME,
17646: p_msg_name => G_FETCHING_INFO,
17647: p_token1 => G_REC_NAME_TOKEN,
17648: p_token1_value => 'OKL_K_LINES_V Record');
17649: RAISE OKL_API.G_EXCEPTION_ERROR;
17650: END IF;
17651: IF r_clev_inst_rec.id <> r_klev_inst_rec.id THEN
17652: OKL_API.set_message(p_app_name => G_APP_NAME,
17876: l_klev_model_rec_out klev_rec_type;
17877: l_clev_fa_rec_out clev_rec_type;
17878: l_klev_fa_rec_out klev_rec_type;
17879: ln_model_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
17880: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
17881: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
17882: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
17883:
17884: CURSOR c_remain_inst_line(p_cle_id OKC_K_LINES_V.CLE_ID%TYPE,
17877: l_clev_fa_rec_out clev_rec_type;
17878: l_klev_fa_rec_out klev_rec_type;
17879: ln_model_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
17880: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
17881: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
17882: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
17883:
17884: CURSOR c_remain_inst_line(p_cle_id OKC_K_LINES_V.CLE_ID%TYPE,
17885: p_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
17878: l_klev_fa_rec_out klev_rec_type;
17879: ln_model_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
17880: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
17881: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
17882: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
17883:
17884: CURSOR c_remain_inst_line(p_cle_id OKC_K_LINES_V.CLE_ID%TYPE,
17885: p_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
17886: SELECT count(cle.id)
18434: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18435: OKL_API.set_message(p_app_name => G_APP_NAME,
18436: p_msg_name => G_FETCHING_INFO,
18437: p_token1 => G_REC_NAME_TOKEN,
18438: p_token1_value => 'OKL_K_LINES_V Record');
18439: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18442: p_msg_name => G_FETCHING_INFO,
18440: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18441: OKL_API.set_message(p_app_name => G_APP_NAME,
18442: p_msg_name => G_FETCHING_INFO,
18443: p_token1 => G_REC_NAME_TOKEN,
18444: p_token1_value => 'OKL_K_LINES_V Record');
18445: RAISE OKL_API.G_EXCEPTION_ERROR;
18446: END IF;
18447:
18448: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
18519: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18520: OKL_API.set_message(p_app_name => G_APP_NAME,
18521: p_msg_name => G_FETCHING_INFO,
18522: p_token1 => G_REC_NAME_TOKEN,
18523: p_token1_value => 'OKL_K_LINES_V Record');
18524: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18526: OKL_API.set_message(p_app_name => G_APP_NAME,
18527: p_msg_name => G_FETCHING_INFO,
18525: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18526: OKL_API.set_message(p_app_name => G_APP_NAME,
18527: p_msg_name => G_FETCHING_INFO,
18528: p_token1 => G_REC_NAME_TOKEN,
18529: p_token1_value => 'OKL_K_LINES_V Record');
18530: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18531: END IF;
18532: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
18533: OKL_API.set_message(p_app_name => G_APP_NAME,
18600: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18601: RAISE OKL_API.G_EXCEPTION_ERROR;
18602: END IF;
18603:
18604: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
18605: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
18606: p_init_msg_list => p_init_msg_list,
18607: x_return_status => x_return_status,
18608: x_msg_count => x_msg_count,
18621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18622: RAISE OKL_API.G_EXCEPTION_ERROR;
18623: END IF;
18624:
18625: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
18626: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
18627: p_init_msg_list => p_init_msg_list,
18628: x_return_status => x_return_status,
18629: x_msg_count => x_msg_count,
18667: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18668: OKL_API.set_message(p_app_name => G_APP_NAME,
18669: p_msg_name => G_FETCHING_INFO,
18670: p_token1 => G_REC_NAME_TOKEN,
18671: p_token1_value => 'OKL_K_LINES_V Record');
18672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18674: OKL_API.set_message(p_app_name => G_APP_NAME,
18675: p_msg_name => G_FETCHING_INFO,
18673: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18674: OKL_API.set_message(p_app_name => G_APP_NAME,
18675: p_msg_name => G_FETCHING_INFO,
18676: p_token1 => G_REC_NAME_TOKEN,
18677: p_token1_value => 'OKL_K_LINES_V Record');
18678: RAISE OKL_API.G_EXCEPTION_ERROR;
18679: END IF;
18680:
18681: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
18889: lx_cimv_fa_rec cimv_rec_type;
18890: lx_talv_fa_rec talv_rec_type;
18891: lx_clev_fin_rec clev_rec_type;
18892: lx_klev_fin_rec klev_rec_type;
18893: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
18894: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
18895: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
18896: r_clev_addon_rec clev_rec_type;
18897: r_klev_addon_rec klev_rec_type;
18890: lx_talv_fa_rec talv_rec_type;
18891: lx_clev_fin_rec clev_rec_type;
18892: lx_klev_fin_rec klev_rec_type;
18893: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
18894: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
18895: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
18896: r_clev_addon_rec clev_rec_type;
18897: r_klev_addon_rec klev_rec_type;
18898: r_cimv_addon_rec cimv_rec_type;
18891: lx_clev_fin_rec clev_rec_type;
18892: lx_klev_fin_rec klev_rec_type;
18893: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
18894: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
18895: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
18896: r_clev_addon_rec clev_rec_type;
18897: r_klev_addon_rec klev_rec_type;
18898: r_cimv_addon_rec cimv_rec_type;
18899: rx_clev_addon_rec clev_rec_type;
19328: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19329: OKL_API.set_message(p_app_name => G_APP_NAME,
19330: p_msg_name => G_FETCHING_INFO,
19331: p_token1 => G_REC_NAME_TOKEN,
19332: p_token1_value => 'OKL_K_LINES_V Record');
19333: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19335: OKL_API.set_message(p_app_name => G_APP_NAME,
19336: p_msg_name => G_FETCHING_INFO,
19334: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19335: OKL_API.set_message(p_app_name => G_APP_NAME,
19336: p_msg_name => G_FETCHING_INFO,
19337: p_token1 => G_REC_NAME_TOKEN,
19338: p_token1_value => 'OKL_K_LINES_V Record');
19339: RAISE OKL_API.G_EXCEPTION_ERROR;
19340: END IF;
19341: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
19342: OKL_API.set_message(p_app_name => G_APP_NAME,
19409: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19410: OKL_API.set_message(p_app_name => G_APP_NAME,
19411: p_msg_name => G_FETCHING_INFO,
19412: p_token1 => G_REC_NAME_TOKEN,
19413: p_token1_value => 'OKL_K_LINES_V Record');
19414: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19416: OKL_API.set_message(p_app_name => G_APP_NAME,
19417: p_msg_name => G_FETCHING_INFO,
19415: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19416: OKL_API.set_message(p_app_name => G_APP_NAME,
19417: p_msg_name => G_FETCHING_INFO,
19418: p_token1 => G_REC_NAME_TOKEN,
19419: p_token1_value => 'OKL_K_LINES_V Record');
19420: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19421: END IF;
19422: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
19423: OKL_API.set_message(p_app_name => G_APP_NAME,
19488: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19489: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19490: RAISE OKL_API.G_EXCEPTION_ERROR;
19491: END IF;
19492: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
19493: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
19494: p_init_msg_list => p_init_msg_list,
19495: x_return_status => x_return_status,
19496: x_msg_count => x_msg_count,
19508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19510: RAISE OKL_API.G_EXCEPTION_ERROR;
19511: END IF;
19512: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
19513: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
19514: p_init_msg_list => p_init_msg_list,
19515: x_return_status => x_return_status,
19516: x_msg_count => x_msg_count,
19552: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19553: OKL_API.set_message(p_app_name => G_APP_NAME,
19554: p_msg_name => G_FETCHING_INFO,
19555: p_token1 => G_REC_NAME_TOKEN,
19556: p_token1_value => 'OKL_K_LINES_V Record');
19557: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19559: OKL_API.set_message(p_app_name => G_APP_NAME,
19560: p_msg_name => G_FETCHING_INFO,
19558: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19559: OKL_API.set_message(p_app_name => G_APP_NAME,
19560: p_msg_name => G_FETCHING_INFO,
19561: p_token1 => G_REC_NAME_TOKEN,
19562: p_token1_value => 'OKL_K_LINES_V Record');
19563: RAISE OKL_API.G_EXCEPTION_ERROR;
19564: END IF;
19565: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
19566: OKL_API.set_message(p_app_name => G_APP_NAME,
19787: l_clev_model_rec_out clev_rec_type;
19788: l_klev_model_rec_out klev_rec_type;
19789: l_clev_fa_rec_out clev_rec_type;
19790: l_klev_fa_rec_out klev_rec_type;
19791: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
19792: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
19793: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
19794: r_clev_addon_rec clev_rec_type;
19795: r_klev_addon_rec klev_rec_type;
19788: l_klev_model_rec_out klev_rec_type;
19789: l_clev_fa_rec_out clev_rec_type;
19790: l_klev_fa_rec_out klev_rec_type;
19791: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
19792: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
19793: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
19794: r_clev_addon_rec clev_rec_type;
19795: r_klev_addon_rec klev_rec_type;
19796: r_cimv_addon_rec cimv_rec_type;
19789: l_clev_fa_rec_out clev_rec_type;
19790: l_klev_fa_rec_out klev_rec_type;
19791: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
19792: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
19793: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
19794: r_clev_addon_rec clev_rec_type;
19795: r_klev_addon_rec klev_rec_type;
19796: r_cimv_addon_rec cimv_rec_type;
19797: rx_clev_addon_rec clev_rec_type;
20139: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20140: OKL_API.set_message(p_app_name => G_APP_NAME,
20141: p_msg_name => G_FETCHING_INFO,
20142: p_token1 => G_REC_NAME_TOKEN,
20143: p_token1_value => 'OKL_K_LINES_V Record');
20144: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20146: OKL_API.set_message(p_app_name => G_APP_NAME,
20147: p_msg_name => G_FETCHING_INFO,
20145: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20146: OKL_API.set_message(p_app_name => G_APP_NAME,
20147: p_msg_name => G_FETCHING_INFO,
20148: p_token1 => G_REC_NAME_TOKEN,
20149: p_token1_value => 'OKL_K_LINES_V Record');
20150: RAISE OKL_API.G_EXCEPTION_ERROR;
20151: END IF;
20152: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
20153: OKL_API.set_message(p_app_name => G_APP_NAME,
20220: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20221: OKL_API.set_message(p_app_name => G_APP_NAME,
20222: p_msg_name => G_FETCHING_INFO,
20223: p_token1 => G_REC_NAME_TOKEN,
20224: p_token1_value => 'OKL_K_LINES_V Record');
20225: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20227: OKL_API.set_message(p_app_name => G_APP_NAME,
20228: p_msg_name => G_FETCHING_INFO,
20226: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20227: OKL_API.set_message(p_app_name => G_APP_NAME,
20228: p_msg_name => G_FETCHING_INFO,
20229: p_token1 => G_REC_NAME_TOKEN,
20230: p_token1_value => 'OKL_K_LINES_V Record');
20231: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20232: END IF;
20233: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
20234: OKL_API.set_message(p_app_name => G_APP_NAME,
20299: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20300: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20301: RAISE OKL_API.G_EXCEPTION_ERROR;
20302: END IF;
20303: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
20304: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
20305: p_init_msg_list => p_init_msg_list,
20306: x_return_status => x_return_status,
20307: x_msg_count => x_msg_count,
20319: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20320: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20321: RAISE OKL_API.G_EXCEPTION_ERROR;
20322: END IF;
20323: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
20324: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
20325: p_init_msg_list => p_init_msg_list,
20326: x_return_status => x_return_status,
20327: x_msg_count => x_msg_count,
20363: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20364: OKL_API.set_message(p_app_name => G_APP_NAME,
20365: p_msg_name => G_FETCHING_INFO,
20366: p_token1 => G_REC_NAME_TOKEN,
20367: p_token1_value => 'OKL_K_LINES_V Record');
20368: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20369: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20370: OKL_API.set_message(p_app_name => G_APP_NAME,
20371: p_msg_name => G_FETCHING_INFO,
20369: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20370: OKL_API.set_message(p_app_name => G_APP_NAME,
20371: p_msg_name => G_FETCHING_INFO,
20372: p_token1 => G_REC_NAME_TOKEN,
20373: p_token1_value => 'OKL_K_LINES_V Record');
20374: RAISE OKL_API.G_EXCEPTION_ERROR;
20375: END IF;
20376: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
20377: OKL_API.set_message(p_app_name => G_APP_NAME,