[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: -------------------------------------------------------------------------------------------------
3535: p_units IN OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE,
3536: p_ib_loc1 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
3537: p_ib_loc2 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID2_NEW%TYPE,
3538: p_fa_loc IN OKL_TXL_ASSETS_B.FA_LOCATION_ID%TYPE,
3539: p_refinance_amount IN OKL_K_LINES.REFINANCE_AMOUNT%TYPE,
3540: p_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
3541: RETURN VARCHAR2 IS
3542: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
3543: ln_dummy NUMBER := 0;
6687: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6688: OKL_API.set_message(p_app_name => G_APP_NAME,
6689: p_msg_name => G_FETCHING_INFO,
6690: p_token1 => G_REC_NAME_TOKEN,
6691: p_token1_value => 'OKL_K_LINES_V Record');
6692: RAISE G_EXCEPTION_HALT_VALIDATION;
6693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6694: OKL_API.set_message(p_app_name => G_APP_NAME,
6695: p_msg_name => G_FETCHING_INFO,
6693: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6694: OKL_API.set_message(p_app_name => G_APP_NAME,
6695: p_msg_name => G_FETCHING_INFO,
6696: p_token1 => G_REC_NAME_TOKEN,
6697: p_token1_value => 'OKL_K_LINES_V Record');
6698: RAISE G_EXCEPTION_HALT_VALIDATION;
6699: END IF;
6700: -- since Add on is a sub line of Model line we have to check weather
6701: -- which line are creating under which line
7303: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7304: OKL_API.set_message(p_app_name => G_APP_NAME,
7305: p_msg_name => G_FETCHING_INFO,
7306: p_token1 => G_REC_NAME_TOKEN,
7307: p_token1_value => 'OKL_K_LINES_V Record');
7308: RAISE G_EXCEPTION_HALT_VALIDATION;
7309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7310: OKL_API.set_message(p_app_name => G_APP_NAME,
7311: p_msg_name => G_FETCHING_INFO,
7309: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7310: OKL_API.set_message(p_app_name => G_APP_NAME,
7311: p_msg_name => G_FETCHING_INFO,
7312: p_token1 => G_REC_NAME_TOKEN,
7313: p_token1_value => 'OKL_K_LINES_V Record');
7314: RAISE G_EXCEPTION_HALT_VALIDATION;
7315: END IF;
7316: IF l_delete_klev_rec.id <> l_delete_clev_rec.id THEN
7317: OKL_API.set_message(p_app_name => G_APP_NAME,
8421: l_lse_type OKC_LINE_STYLES_V.LSE_TYPE%TYPE;
8422: ln_fa_id OKC_K_LINES_V.ID%TYPE;
8423:
8424: -- Temp variables for capital reduction and tradein amount
8425: tradein_amount OKL_K_LINES.TRADEIN_AMOUNT%TYPE;
8426: capital_reduction OKL_K_LINES.CAPITAL_REDUCTION%TYPE;
8427:
8428: CURSOR get_fa_id(p_top_line OKC_K_LINES_V.ID%TYPE,
8429: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE)
8422: ln_fa_id OKC_K_LINES_V.ID%TYPE;
8423:
8424: -- Temp variables for capital reduction and tradein amount
8425: tradein_amount OKL_K_LINES.TRADEIN_AMOUNT%TYPE;
8426: capital_reduction OKL_K_LINES.CAPITAL_REDUCTION%TYPE;
8427:
8428: CURSOR get_fa_id(p_top_line OKC_K_LINES_V.ID%TYPE,
8429: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE)
8430: IS
8926: p_top_line_id IN OKC_K_LINES_V.ID%TYPE,
8927: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
8928: x_fin_clev_rec OUT NOCOPY clev_rec_type,
8929: x_fin_klev_rec OUT NOCOPY klev_rec_type,
8930: x_oec OUT NOCOPY OKL_K_LINES_V.OEC%TYPE,
8931: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
8932:
8933: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
8934: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
8929: x_fin_klev_rec OUT NOCOPY klev_rec_type,
8930: x_oec OUT NOCOPY OKL_K_LINES_V.OEC%TYPE,
8931: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
8932:
8933: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
8934: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
8935: l_update_clev_rec clev_rec_type;
8936: l_update_klev_rec klev_rec_type;
8937:
9033: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9034: OKL_API.set_message(p_app_name => G_APP_NAME,
9035: p_msg_name => G_FETCHING_INFO,
9036: p_token1 => G_REC_NAME_TOKEN,
9037: p_token1_value => 'OKL_K_LINES_V Record');
9038: RAISE G_EXCEPTION_HALT_VALIDATION;
9039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9040: OKL_API.set_message(p_app_name => G_APP_NAME,
9041: p_msg_name => G_FETCHING_INFO,
9039: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9040: OKL_API.set_message(p_app_name => G_APP_NAME,
9041: p_msg_name => G_FETCHING_INFO,
9042: p_token1 => G_REC_NAME_TOKEN,
9043: p_token1_value => 'OKL_K_LINES_V Record');
9044: RAISE G_EXCEPTION_HALT_VALIDATION;
9045: END IF;
9046: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9047: OKL_API.set_message(p_app_name => G_APP_NAME,
9133: p_top_line_id IN OKC_K_LINES_V.ID%TYPE, -- 4414408
9134: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9135: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9136: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9137: x_cap_amt OUT NOCOPY OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE,
9138: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9139:
9140: ln_cap_amt OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
9141: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9136: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9137: x_cap_amt OUT NOCOPY OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE,
9138: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9139:
9140: ln_cap_amt OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
9141: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9142: l_update_clev_rec clev_rec_type;
9143: l_update_klev_rec klev_rec_type;
9144: -- #4414408 Top line ID is a parameter passed to the API
9240: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9241: OKL_API.set_message(p_app_name => G_APP_NAME,
9242: p_msg_name => G_FETCHING_INFO,
9243: p_token1 => G_REC_NAME_TOKEN,
9244: p_token1_value => 'OKL_K_LINES_V Record');
9245: RAISE G_EXCEPTION_HALT_VALIDATION;
9246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9247: OKL_API.set_message(p_app_name => G_APP_NAME,
9248: p_msg_name => G_FETCHING_INFO,
9246: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9247: OKL_API.set_message(p_app_name => G_APP_NAME,
9248: p_msg_name => G_FETCHING_INFO,
9249: p_token1 => G_REC_NAME_TOKEN,
9250: p_token1_value => 'OKL_K_LINES_V Record');
9251: RAISE G_EXCEPTION_HALT_VALIDATION;
9252: END IF;
9253: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9254: OKL_API.set_message(p_app_name => G_APP_NAME,
9338: p_top_line_id IN OKC_K_LINES_V.ID%TYPE, -- 4414408
9339: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9340: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9341: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9342: x_res_value OUT NOCOPY OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9343: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9344:
9345: ln_res_value OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
9346: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9341: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9342: x_res_value OUT NOCOPY OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9343: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9344:
9345: ln_res_value OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
9346: -- ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9347: l_update_clev_rec clev_rec_type;
9348: l_update_klev_rec klev_rec_type;
9349: -- 4414408
9443: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9444: OKL_API.set_message(p_app_name => G_APP_NAME,
9445: p_msg_name => G_FETCHING_INFO,
9446: p_token1 => G_REC_NAME_TOKEN,
9447: p_token1_value => 'OKL_K_LINES_V Record');
9448: RAISE G_EXCEPTION_HALT_VALIDATION;
9449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9450: OKL_API.set_message(p_app_name => G_APP_NAME,
9451: p_msg_name => G_FETCHING_INFO,
9449: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9450: OKL_API.set_message(p_app_name => G_APP_NAME,
9451: p_msg_name => G_FETCHING_INFO,
9452: p_token1 => G_REC_NAME_TOKEN,
9453: p_token1_value => 'OKL_K_LINES_V Record');
9454: RAISE G_EXCEPTION_HALT_VALIDATION;
9455: END IF;
9456: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9457: OKL_API.set_message(p_app_name => G_APP_NAME,
9541: x_msg_count OUT NOCOPY NUMBER,
9542: x_msg_data OUT NOCOPY VARCHAR2,
9543: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9544: p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
9545: p_res_value IN OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9546: p_oec IN OKL_K_LINES_V.OEC%TYPE,
9547: p_top_line_id IN OKC_K_LINES_V.ID%TYPE,
9548: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9549: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9542: x_msg_data OUT NOCOPY VARCHAR2,
9543: P_new_yn IN OKL_TXL_ASSETS_V.USED_ASSET_YN%TYPE,
9544: p_asset_number IN OKL_TXL_ASSETS_V.ASSET_NUMBER%TYPE,
9545: p_res_value IN OKL_K_LINES_V.RESIDUAL_VALUE%TYPE,
9546: p_oec IN OKL_K_LINES_V.OEC%TYPE,
9547: p_top_line_id IN OKC_K_LINES_V.ID%TYPE,
9548: p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE,
9549: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9550: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9549: x_fin_clev_rec OUT NOCOPY clev_rec_type,
9550: x_fin_klev_rec OUT NOCOPY klev_rec_type,
9551: p_validate_fin_line IN VARCHAR2 DEFAULT OKL_API.G_TRUE) IS
9552:
9553: ln_res_per OKL_K_LINES_V.RESIDUAL_PERCENTAGE%TYPE := 0;
9554: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
9555: l_update_clev_rec clev_rec_type;
9556: l_update_klev_rec klev_rec_type;
9557:
9606: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
9607: OKL_API.set_message(p_app_name => G_APP_NAME,
9608: p_msg_name => G_FETCHING_INFO,
9609: p_token1 => G_REC_NAME_TOKEN,
9610: p_token1_value => 'OKL_K_LINES_V Record');
9611: RAISE G_EXCEPTION_HALT_VALIDATION;
9612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9613: OKL_API.set_message(p_app_name => G_APP_NAME,
9614: p_msg_name => G_FETCHING_INFO,
9612: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
9613: OKL_API.set_message(p_app_name => G_APP_NAME,
9614: p_msg_name => G_FETCHING_INFO,
9615: p_token1 => G_REC_NAME_TOKEN,
9616: p_token1_value => 'OKL_K_LINES_V Record');
9617: RAISE G_EXCEPTION_HALT_VALIDATION;
9618: END IF;
9619: IF l_update_klev_rec.id <> l_update_clev_rec.id THEN
9620: OKL_API.set_message(p_app_name => G_APP_NAME,
10412: k NUMBER := 0;
10413: l_klev_rec klev_rec_type;
10414: l_clev_tbl clev_tbl_type;
10415: x_klev_rec klev_rec_type;
10416: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
10417: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10418: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10419: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10420: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10416: ln_oec OKL_K_LINES_V.OEC%TYPE := 0;
10417: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10418: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10419: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10420: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10421: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10422: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10423:
10424: -- To Find out the Top line ID
10417: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10418: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10419: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10420: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10421: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10422: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10423:
10424: -- To Find out the Top line ID
10425: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10418: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10419: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10420: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10421: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10422: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10423:
10424: -- To Find out the Top line ID
10425: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10426: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
10553: END IF;
10554:
10555: CLOSE c_model_top_line;
10556:
10557: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
10558: oec_calc_upd_fin_rec(p_api_version => p_api_version,
10559: p_init_msg_list => p_init_msg_list,
10560: x_return_status => x_return_status,
10561: x_msg_count => x_msg_count,
10573: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10574: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10575: RAISE OKL_API.G_EXCEPTION_ERROR;
10576: END IF;
10577: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10578: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10579: p_init_msg_list => p_init_msg_list,
10580: x_return_status => x_return_status,
10581: x_msg_count => x_msg_count,
10593: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10594: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10595: RAISE OKL_API.G_EXCEPTION_ERROR;
10596: END IF;
10597: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10598: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10599: p_init_msg_list => p_init_msg_list,
10600: x_return_status => x_return_status,
10601: x_msg_count => x_msg_count,
10701: x_klev_rec klev_rec_type;
10702: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10703: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10704: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10705: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10706: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10707: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10708:
10709: -- To Find out the Top line ID
10702: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10703: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10704: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10705: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10706: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10707: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10708:
10709: -- To Find out the Top line ID
10710: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10703: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10704: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10705: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10706: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10707: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10708:
10709: -- To Find out the Top line ID
10710: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10711: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
10800: END IF;
10801:
10802: CLOSE c_model_top_line;
10803:
10804: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
10805: oec_calc_upd_fin_rec(p_api_version => p_api_version,
10806: p_init_msg_list => p_init_msg_list,
10807: x_return_status => x_return_status,
10808: x_msg_count => x_msg_count,
10820: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10821: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10822: RAISE OKL_API.G_EXCEPTION_ERROR;
10823: END IF;
10824: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
10825: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
10826: p_init_msg_list => p_init_msg_list,
10827: x_return_status => x_return_status,
10828: x_msg_count => x_msg_count,
10840: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10841: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
10842: RAISE OKL_API.G_EXCEPTION_ERROR;
10843: END IF;
10844: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
10845: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
10846: p_init_msg_list => p_init_msg_list,
10847: x_return_status => x_return_status,
10848: x_msg_count => x_msg_count,
10948: ln_add_cle_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10949: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10950: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10951: l_clev_tbl clev_tbl_type;
10952: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10953: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10954: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10955:
10956: -- To Find out the Top line ID
10949: ln_add_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE := 0;
10950: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10951: l_clev_tbl clev_tbl_type;
10952: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10953: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10954: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10955:
10956: -- To Find out the Top line ID
10957: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10950: ln_top_line_id OKC_K_LINES_V.CLE_ID%TYPE := 0;
10951: l_clev_tbl clev_tbl_type;
10952: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
10953: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
10954: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
10955:
10956: -- To Find out the Top line ID
10957: CURSOR c_model_top_line(p_model_line_id OKC_K_LINES_V.ID%TYPE,
10958: p_dnz_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
11035: END IF;
11036:
11037: CLOSE c_model_top_line;
11038:
11039: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
11040: oec_calc_upd_fin_rec(p_api_version => p_api_version,
11041: p_init_msg_list => p_init_msg_list,
11042: x_return_status => x_return_status,
11043: x_msg_count => x_msg_count,
11055: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11056: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11057: RAISE OKL_API.G_EXCEPTION_ERROR;
11058: END IF;
11059: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
11060: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
11061: p_init_msg_list => p_init_msg_list,
11062: x_return_status => x_return_status,
11063: x_msg_count => x_msg_count,
11075: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11076: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11077: RAISE OKL_API.G_EXCEPTION_ERROR;
11078: END IF;
11079: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
11080: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
11081: p_init_msg_list => p_init_msg_list,
11082: x_return_status => x_return_status,
11083: x_msg_count => x_msg_count,
11787: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
11788: OKL_API.set_message(p_app_name => G_APP_NAME,
11789: p_msg_name => G_FETCHING_INFO,
11790: p_token1 => G_REC_NAME_TOKEN,
11791: p_token1_value => 'OKL_K_LINES_V Record');
11792: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11793: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11794: OKL_API.set_message(p_app_name => G_APP_NAME,
11795: p_msg_name => G_FETCHING_INFO,
11793: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
11794: OKL_API.set_message(p_app_name => G_APP_NAME,
11795: p_msg_name => G_FETCHING_INFO,
11796: p_token1 => G_REC_NAME_TOKEN,
11797: p_token1_value => 'OKL_K_LINES_V Record');
11798: RAISE OKL_API.G_EXCEPTION_ERROR;
11799: END IF;
11800: IF l_clev_rec.id <> l_klev_rec.id THEN
11801: OKL_API.set_message(p_app_name => G_APP_NAME,
13754: okl_subsidies_b subb,
13755: okl_subsidies_tl subt,
13756: po_vendors pov,
13757: okc_k_party_roles_b sub_cplb,
13758: okl_k_lines sub_kle,
13759: okc_k_lines_b sub_cleb,
13760: okc_line_styles_b sub_lseb
13761: where subt.id = subb.id
13762: and subt.language = userenv('LANG')
14251: l_api_version CONSTANT NUMBER := 1.0;
14252:
14253:
14254: l_top_line_id OKC_K_LINES_B.ID%TYPE;
14255: l_oec OKL_K_LINES.OEC%TYPE;
14256: l_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14257: lx_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14258:
14259:
14252:
14253:
14254: l_top_line_id OKC_K_LINES_B.ID%TYPE;
14255: l_oec OKL_K_LINES.OEC%TYPE;
14256: l_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14257: lx_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14258:
14259:
14260: --cursor to get model line id
14253:
14254: l_top_line_id OKC_K_LINES_B.ID%TYPE;
14255: l_oec OKL_K_LINES.OEC%TYPE;
14256: l_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14257: lx_residual_value OKL_K_LINES.RESIDUAL_VALUE%TYPE;
14258:
14259:
14260: --cursor to get model line id
14261: CURSOR l_modelline_csr(p_cle_id IN NUMBER,
14272:
14273: --Bug# 4631549
14274: cursor l_exp_cost_csr (p_kle_id in number) is
14275: select kle.expected_asset_cost
14276: from okl_k_lines kle
14277: where kle.id = p_kle_id;
14278:
14279: l_exp_cost_rec l_exp_cost_csr%ROWTYPE;
14280:
15073: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
15074: OKL_API.set_message(p_app_name => G_APP_NAME,
15075: p_msg_name => G_FETCHING_INFO,
15076: p_token1 => G_REC_NAME_TOKEN,
15077: p_token1_value => 'OKL_K_LINES_V Record');
15078: RAISE Okc_Api.G_EXCEPTION_UNEXPECTED_ERROR;
15079: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15080: OKL_API.set_message(p_app_name => G_APP_NAME,
15081: p_msg_name => G_FETCHING_INFO,
15079: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15080: OKL_API.set_message(p_app_name => G_APP_NAME,
15081: p_msg_name => G_FETCHING_INFO,
15082: p_token1 => G_REC_NAME_TOKEN,
15083: p_token1_value => 'OKL_K_LINES_V Record');
15084: RAISE Okc_Api.G_EXCEPTION_ERROR;
15085: END IF;
15086:
15087: Open l_lty_csr(p_lse_id => l_lines_rec.lse_id);
15195: l_klev_ib_rec_out klev_rec_type;
15196: l_cimv_ib_rec_out cimv_rec_type;
15197: l_trxv_ib_rec_out trxv_rec_type;
15198: l_itiv_ib_tbl_out itiv_tbl_type;
15199: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
15200: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
15201: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
15202: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
15203: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
15196: l_cimv_ib_rec_out cimv_rec_type;
15197: l_trxv_ib_rec_out trxv_rec_type;
15198: l_itiv_ib_tbl_out itiv_tbl_type;
15199: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
15200: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
15201: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
15202: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
15203: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
15204: lv_object_id1_new OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE;
15197: l_trxv_ib_rec_out trxv_rec_type;
15198: l_itiv_ib_tbl_out itiv_tbl_type;
15199: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
15200: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
15201: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
15202: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
15203: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
15204: lv_object_id1_new OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE;
15205: lv_scs_code OKC_K_HEADERS_V.SCS_CODE%TYPE := null;
15213: p NUMBER := 0;
15214:
15215: -- added by rravikir (Estimated property tax)
15216: ln_chr_id OKC_K_HEADERS_B.ID%TYPE;
15217: ln_cle_id OKL_K_LINES_V.ID%TYPE;
15218: -- end
15219: TYPE instance_id_tbl IS TABLE OF NUMBER
15220: INDEX BY BINARY_INTEGER;
15221: lt_instance_id_tbl instance_id_tbl;
15677: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15678: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15679: RAISE OKL_API.G_EXCEPTION_ERROR;
15680: END IF;
15681: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
15682: oec_calc_upd_fin_rec(p_api_version => p_api_version,
15683: p_init_msg_list => p_init_msg_list,
15684: x_return_status => x_return_status,
15685: x_msg_count => x_msg_count,
15697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15699: RAISE OKL_API.G_EXCEPTION_ERROR;
15700: END IF;
15701: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
15702: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
15703: p_init_msg_list => p_init_msg_list,
15704: x_return_status => x_return_status,
15705: x_msg_count => x_msg_count,
15717: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
15718: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
15719: RAISE OKL_API.G_EXCEPTION_ERROR;
15720: END IF;
15721: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
15722: -- We need to Back calculate the Residual Percentage if value not given
15723: -- or if given should be in sync with residual value
15724:
15725: IF l_klev_fin_rec_out.residual_percentage = OKL_API.G_MISS_NUM THEN
15866: --Bug# 4053845
15867: l_clev_fa_rec.name := upper(l_clev_fa_rec.name);
15868: -- A Bug fix Since we populate the year manufactured into OKL_TXL_ASSETS_B only
15869: -- We cannot use the information after the assets have been put into FA
15870: -- So we decided to populate the year Manufactured into OKL_K_LINES.YEAR_BUILT
15871: -- As the Datatype matches for both.
15872: l_klev_fa_rec.Year_Built := l_talv_fa_rec.year_manufactured;
15873: --start NISINHA Bug 6490572
15874: l_klev_fa_rec.model_number := l_talv_fa_rec.model_number;
16323: r_clev_ib_rec clev_rec_type;
16324: r_klev_ib_rec klev_rec_type;
16325: r_cimv_ib_rec cimv_rec_type;
16326: r_itiv_ib_rec itiv_rec_type;
16327: ln_addon_oec OKL_K_LINES_V.OEC%TYPE := 0;
16328: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
16329: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
16330: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
16331: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
16324: r_klev_ib_rec klev_rec_type;
16325: r_cimv_ib_rec cimv_rec_type;
16326: r_itiv_ib_rec itiv_rec_type;
16327: ln_addon_oec OKL_K_LINES_V.OEC%TYPE := 0;
16328: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
16329: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
16330: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
16331: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
16332: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
16325: r_cimv_ib_rec cimv_rec_type;
16326: r_itiv_ib_rec itiv_rec_type;
16327: ln_addon_oec OKL_K_LINES_V.OEC%TYPE := 0;
16328: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
16329: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
16330: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
16331: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
16332: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
16333: lv_object_id1_new OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE;
16326: r_itiv_ib_rec itiv_rec_type;
16327: ln_addon_oec OKL_K_LINES_V.OEC%TYPE := 0;
16328: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
16329: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
16330: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
16331: ln_clev_model_price_unit OKC_K_LINES_V.PRICE_UNIT%TYPE := 0;
16332: ln_cimv_model_no_items OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
16333: lv_object_id1_new OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE;
16334: lv_model_object_id1 OKC_K_ITEMS_V.OBJECT1_ID1%TYPE;
16409: fin_kle.CAPITALIZE_DOWN_PAYMENT_YN,
16410: fin_kle.residual_value,
16411: fin_kle.residual_percentage
16412: from
16413: okl_k_lines fin_kle,
16414: okc_k_lines_b fin_cleb
16415: where fin_kle.id = fin_cleb.id
16416: and fin_cleb.id = p_cle_id
16417: and fin_cleb.chr_id = p_chr_id
16454: FROM okc_k_headers_b CHR,
16455: okl_txl_assets_b txlb,
16456: okc_line_styles_b lseb,
16457: okc_k_lines_b cleb_top,
16458: okl_k_lines kle_top
16459: WHERE txlb.kle_id = cleb_top.id
16460: AND cleb_top.lse_id = lseb.id
16461: AND lseb.lty_code = 'FIXED_ASSET'
16462: AND cleb_top.dnz_chr_id = chr.id
16514: AND chr.orig_system_source_code = 'OKL_REBOOK';
16515:
16516: l_rbk_khr VARCHAR2(1) DEFAULT '?';
16517:
16518: l_line_capital_amount okl_k_lines.capital_amount%TYPE;
16519:
16520: --Bug# 4631549
16521: cursor l_orig_cle_csr (p_cle_id in number
16522: ) is
16928: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
16929: OKL_API.set_message(p_app_name => G_APP_NAME,
16930: p_msg_name => G_FETCHING_INFO,
16931: p_token1 => G_REC_NAME_TOKEN,
16932: p_token1_value => 'OKL_K_LINES_V Record');
16933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
16934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16935: OKL_API.set_message(p_app_name => G_APP_NAME,
16936: p_msg_name => G_FETCHING_INFO,
16934: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
16935: OKL_API.set_message(p_app_name => G_APP_NAME,
16936: p_msg_name => G_FETCHING_INFO,
16937: p_token1 => G_REC_NAME_TOKEN,
16938: p_token1_value => 'OKL_K_LINES_V Record');
16939: RAISE OKL_API.G_EXCEPTION_ERROR;
16940: END IF;
16941: IF r_clev_fin_rec.id <> r_klev_fin_rec.id THEN
16942: OKL_API.set_message(p_app_name => G_APP_NAME,
17036: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17037: OKL_API.set_message(p_app_name => G_APP_NAME,
17038: p_msg_name => G_FETCHING_INFO,
17039: p_token1 => G_REC_NAME_TOKEN,
17040: p_token1_value => 'OKL_K_LINES_V Record');
17041: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17043: OKL_API.set_message(p_app_name => G_APP_NAME,
17044: p_msg_name => G_FETCHING_INFO,
17042: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17043: OKL_API.set_message(p_app_name => G_APP_NAME,
17044: p_msg_name => G_FETCHING_INFO,
17045: p_token1 => G_REC_NAME_TOKEN,
17046: p_token1_value => 'OKL_K_LINES_V Record');
17047: RAISE OKL_API.G_EXCEPTION_ERROR;
17048: END IF;
17049: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
17050: OKL_API.set_message(p_app_name => G_APP_NAME,
17210:
17211: lv_model_object_id1 := l_cimv_model_rec_out.object1_id1;
17212: lv_model_object_id2 := l_cimv_model_rec_out.object1_id2;
17213: IF l_go_for_calc = 'Y' THEN
17214: -- Calculate the OEC to Populate the OKL_K_LINES_V.OEC
17215: oec_calc_upd_fin_rec(p_api_version => p_api_version,
17216: p_init_msg_list => p_init_msg_list,
17217: x_return_status => x_return_status,
17218: x_msg_count => x_msg_count,
17230: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17231: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17232: RAISE OKL_API.G_EXCEPTION_ERROR;
17233: END IF;
17234: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
17235: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
17236: p_init_msg_list => p_init_msg_list,
17237: x_return_status => x_return_status,
17238: x_msg_count => x_msg_count,
17255: l_klev_fin_rec.residual_percentage := null;
17256: ELSIF l_klev_fin_rec.residual_value = OKL_API.G_MISS_NUM THEN
17257: l_klev_fin_rec.residual_value := null;
17258: END IF;
17259: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
17260: IF (l_klev_fin_rec.residual_percentage IS NOT NULL OR
17261: l_klev_fin_rec.residual_percentage <> OKL_API.G_MISS_NUM) AND
17262: (l_klev_fin_rec.residual_value IS NOT NULL OR
17263: l_klev_fin_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
17391: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17392: OKL_API.set_message(p_app_name => G_APP_NAME,
17393: p_msg_name => G_FETCHING_INFO,
17394: p_token1 => G_REC_NAME_TOKEN,
17395: p_token1_value => 'OKL_K_LINES_V Record');
17396: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17398: OKL_API.set_message(p_app_name => G_APP_NAME,
17399: p_msg_name => G_FETCHING_INFO,
17397: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17398: OKL_API.set_message(p_app_name => G_APP_NAME,
17399: p_msg_name => G_FETCHING_INFO,
17400: p_token1 => G_REC_NAME_TOKEN,
17401: p_token1_value => 'OKL_K_LINES_V Record');
17402: RAISE OKL_API.G_EXCEPTION_ERROR;
17403: END IF;
17404: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
17405: OKL_API.set_message(p_app_name => G_APP_NAME,
17547:
17548: l_clev_fa_rec.item_description := l_talv_fa_rec.description;
17549: -- A Bug fix Since we populate the year manufactured into OKL_TXL_ASSETS_B only
17550: -- We cannot use the information after the assets have been put into FA
17551: -- So we decided to populate the year Manufactured into OKL_K_LINES.YEAR_BUILT
17552: -- As the Datatype matches for both.
17553: l_klev_fa_rec.Year_Built := l_talv_fa_rec.year_manufactured;
17554: -- Updating of the Fixed Asset Line and item/Txl Asset Info
17555:
17615: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17616: OKL_API.set_message(p_app_name => G_APP_NAME,
17617: p_msg_name => G_FETCHING_INFO,
17618: p_token1 => G_REC_NAME_TOKEN,
17619: p_token1_value => 'OKL_K_LINES_V Record');
17620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17622: OKL_API.set_message(p_app_name => G_APP_NAME,
17623: p_msg_name => G_FETCHING_INFO,
17621: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17622: OKL_API.set_message(p_app_name => G_APP_NAME,
17623: p_msg_name => G_FETCHING_INFO,
17624: p_token1 => G_REC_NAME_TOKEN,
17625: p_token1_value => 'OKL_K_LINES_V Record');
17626: RAISE OKL_API.G_EXCEPTION_ERROR;
17627: END IF;
17628: IF r_clev_ib_rec.id <> r_klev_ib_rec.id THEN
17629: OKL_API.set_message(p_app_name => G_APP_NAME,
17845: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
17846: OKL_API.set_message(p_app_name => G_APP_NAME,
17847: p_msg_name => G_FETCHING_INFO,
17848: p_token1 => G_REC_NAME_TOKEN,
17849: p_token1_value => 'OKL_K_LINES_V Record');
17850: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
17851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17852: OKL_API.set_message(p_app_name => G_APP_NAME,
17853: p_msg_name => G_FETCHING_INFO,
17851: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
17852: OKL_API.set_message(p_app_name => G_APP_NAME,
17853: p_msg_name => G_FETCHING_INFO,
17854: p_token1 => G_REC_NAME_TOKEN,
17855: p_token1_value => 'OKL_K_LINES_V Record');
17856: RAISE OKL_API.G_EXCEPTION_ERROR;
17857: END IF;
17858: IF r_clev_inst_rec.id <> r_klev_inst_rec.id THEN
17859: OKL_API.set_message(p_app_name => G_APP_NAME,
18083: l_klev_model_rec_out klev_rec_type;
18084: l_clev_fa_rec_out clev_rec_type;
18085: l_klev_fa_rec_out klev_rec_type;
18086: ln_model_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
18087: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
18088: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
18089: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
18090:
18091: CURSOR c_remain_inst_line(p_cle_id OKC_K_LINES_V.CLE_ID%TYPE,
18084: l_clev_fa_rec_out clev_rec_type;
18085: l_klev_fa_rec_out klev_rec_type;
18086: ln_model_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
18087: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
18088: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
18089: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
18090:
18091: CURSOR c_remain_inst_line(p_cle_id OKC_K_LINES_V.CLE_ID%TYPE,
18092: p_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
18085: l_klev_fa_rec_out klev_rec_type;
18086: ln_model_qty OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE := 0;
18087: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
18088: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
18089: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
18090:
18091: CURSOR c_remain_inst_line(p_cle_id OKC_K_LINES_V.CLE_ID%TYPE,
18092: p_chr_id OKC_K_LINES_V.DNZ_CHR_ID%TYPE) IS
18093: SELECT count(cle.id)
18203: SELECT NVL(kle_top.re_lease_yn,'N') release_flag
18204: FROM okl_txl_assets_b txlb,
18205: okc_line_styles_b lseb,
18206: okc_k_lines_b cleb_top,
18207: okl_k_lines kle_top
18208: WHERE txlb.kle_id = cleb_top.id
18209: AND cleb_top.lse_id = lseb.id
18210: AND lseb.lty_code = 'FIXED_ASSET'
18211: AND cleb_top.dnz_chr_id = p_dnz_chr_id
18665: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18666: OKL_API.set_message(p_app_name => G_APP_NAME,
18667: p_msg_name => G_FETCHING_INFO,
18668: p_token1 => G_REC_NAME_TOKEN,
18669: p_token1_value => 'OKL_K_LINES_V Record');
18670: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18672: OKL_API.set_message(p_app_name => G_APP_NAME,
18673: p_msg_name => G_FETCHING_INFO,
18671: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18672: OKL_API.set_message(p_app_name => G_APP_NAME,
18673: p_msg_name => G_FETCHING_INFO,
18674: p_token1 => G_REC_NAME_TOKEN,
18675: p_token1_value => 'OKL_K_LINES_V Record');
18676: RAISE OKL_API.G_EXCEPTION_ERROR;
18677: END IF;
18678:
18679: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
18750: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18751: OKL_API.set_message(p_app_name => G_APP_NAME,
18752: p_msg_name => G_FETCHING_INFO,
18753: p_token1 => G_REC_NAME_TOKEN,
18754: p_token1_value => 'OKL_K_LINES_V Record');
18755: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
18756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18757: OKL_API.set_message(p_app_name => G_APP_NAME,
18758: p_msg_name => G_FETCHING_INFO,
18756: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18757: OKL_API.set_message(p_app_name => G_APP_NAME,
18758: p_msg_name => G_FETCHING_INFO,
18759: p_token1 => G_REC_NAME_TOKEN,
18760: p_token1_value => 'OKL_K_LINES_V Record');
18761: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
18762: END IF;
18763: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
18764: OKL_API.set_message(p_app_name => G_APP_NAME,
18831: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18832: RAISE OKL_API.G_EXCEPTION_ERROR;
18833: END IF;
18834:
18835: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
18836: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
18837: p_init_msg_list => p_init_msg_list,
18838: x_return_status => x_return_status,
18839: x_msg_count => x_msg_count,
18852: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18853: RAISE OKL_API.G_EXCEPTION_ERROR;
18854: END IF;
18855:
18856: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
18857: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
18858: p_init_msg_list => p_init_msg_list,
18859: x_return_status => x_return_status,
18860: x_msg_count => x_msg_count,
18898: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
18899: OKL_API.set_message(p_app_name => G_APP_NAME,
18900: p_msg_name => G_FETCHING_INFO,
18901: p_token1 => G_REC_NAME_TOKEN,
18902: p_token1_value => 'OKL_K_LINES_V Record');
18903: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
18904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18905: OKL_API.set_message(p_app_name => G_APP_NAME,
18906: p_msg_name => G_FETCHING_INFO,
18904: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
18905: OKL_API.set_message(p_app_name => G_APP_NAME,
18906: p_msg_name => G_FETCHING_INFO,
18907: p_token1 => G_REC_NAME_TOKEN,
18908: p_token1_value => 'OKL_K_LINES_V Record');
18909: RAISE OKL_API.G_EXCEPTION_ERROR;
18910: END IF;
18911:
18912: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
19120: lx_cimv_fa_rec cimv_rec_type;
19121: lx_talv_fa_rec talv_rec_type;
19122: lx_clev_fin_rec clev_rec_type;
19123: lx_klev_fin_rec klev_rec_type;
19124: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
19125: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
19126: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
19127: r_clev_addon_rec clev_rec_type;
19128: r_klev_addon_rec klev_rec_type;
19121: lx_talv_fa_rec talv_rec_type;
19122: lx_clev_fin_rec clev_rec_type;
19123: lx_klev_fin_rec klev_rec_type;
19124: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
19125: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
19126: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
19127: r_clev_addon_rec clev_rec_type;
19128: r_klev_addon_rec klev_rec_type;
19129: r_cimv_addon_rec cimv_rec_type;
19122: lx_clev_fin_rec clev_rec_type;
19123: lx_klev_fin_rec klev_rec_type;
19124: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
19125: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
19126: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
19127: r_clev_addon_rec clev_rec_type;
19128: r_klev_addon_rec klev_rec_type;
19129: r_cimv_addon_rec cimv_rec_type;
19130: rx_clev_addon_rec clev_rec_type;
19247: SELECT NVL(kle_top.re_lease_yn,'N') release_flag
19248: FROM okl_txl_assets_b txlb,
19249: okc_line_styles_b lseb,
19250: okc_k_lines_b cleb_top,
19251: okl_k_lines kle_top
19252: WHERE txlb.kle_id = cleb_top.id
19253: AND cleb_top.lse_id = lseb.id
19254: AND lseb.lty_code = 'FIXED_ASSET'
19255: AND cleb_top.dnz_chr_id = p_dnz_chr_id
19583: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19584: OKL_API.set_message(p_app_name => G_APP_NAME,
19585: p_msg_name => G_FETCHING_INFO,
19586: p_token1 => G_REC_NAME_TOKEN,
19587: p_token1_value => 'OKL_K_LINES_V Record');
19588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19590: OKL_API.set_message(p_app_name => G_APP_NAME,
19591: p_msg_name => G_FETCHING_INFO,
19589: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19590: OKL_API.set_message(p_app_name => G_APP_NAME,
19591: p_msg_name => G_FETCHING_INFO,
19592: p_token1 => G_REC_NAME_TOKEN,
19593: p_token1_value => 'OKL_K_LINES_V Record');
19594: RAISE OKL_API.G_EXCEPTION_ERROR;
19595: END IF;
19596: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
19597: OKL_API.set_message(p_app_name => G_APP_NAME,
19664: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19665: OKL_API.set_message(p_app_name => G_APP_NAME,
19666: p_msg_name => G_FETCHING_INFO,
19667: p_token1 => G_REC_NAME_TOKEN,
19668: p_token1_value => 'OKL_K_LINES_V Record');
19669: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
19670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19671: OKL_API.set_message(p_app_name => G_APP_NAME,
19672: p_msg_name => G_FETCHING_INFO,
19670: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19671: OKL_API.set_message(p_app_name => G_APP_NAME,
19672: p_msg_name => G_FETCHING_INFO,
19673: p_token1 => G_REC_NAME_TOKEN,
19674: p_token1_value => 'OKL_K_LINES_V Record');
19675: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
19676: END IF;
19677: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
19678: OKL_API.set_message(p_app_name => G_APP_NAME,
19743: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19744: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19745: RAISE OKL_API.G_EXCEPTION_ERROR;
19746: END IF;
19747: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
19748: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
19749: p_init_msg_list => p_init_msg_list,
19750: x_return_status => x_return_status,
19751: x_msg_count => x_msg_count,
19763: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19764: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19765: RAISE OKL_API.G_EXCEPTION_ERROR;
19766: END IF;
19767: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
19768: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
19769: p_init_msg_list => p_init_msg_list,
19770: x_return_status => x_return_status,
19771: x_msg_count => x_msg_count,
19807: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
19808: OKL_API.set_message(p_app_name => G_APP_NAME,
19809: p_msg_name => G_FETCHING_INFO,
19810: p_token1 => G_REC_NAME_TOKEN,
19811: p_token1_value => 'OKL_K_LINES_V Record');
19812: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
19813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19814: OKL_API.set_message(p_app_name => G_APP_NAME,
19815: p_msg_name => G_FETCHING_INFO,
19813: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
19814: OKL_API.set_message(p_app_name => G_APP_NAME,
19815: p_msg_name => G_FETCHING_INFO,
19816: p_token1 => G_REC_NAME_TOKEN,
19817: p_token1_value => 'OKL_K_LINES_V Record');
19818: RAISE OKL_API.G_EXCEPTION_ERROR;
19819: END IF;
19820: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
19821: OKL_API.set_message(p_app_name => G_APP_NAME,
20043: l_clev_model_rec_out clev_rec_type;
20044: l_klev_model_rec_out klev_rec_type;
20045: l_clev_fa_rec_out clev_rec_type;
20046: l_klev_fa_rec_out klev_rec_type;
20047: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
20048: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
20049: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
20050: r_clev_addon_rec clev_rec_type;
20051: r_klev_addon_rec klev_rec_type;
20044: l_klev_model_rec_out klev_rec_type;
20045: l_clev_fa_rec_out clev_rec_type;
20046: l_klev_fa_rec_out klev_rec_type;
20047: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
20048: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
20049: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
20050: r_clev_addon_rec clev_rec_type;
20051: r_klev_addon_rec klev_rec_type;
20052: r_cimv_addon_rec cimv_rec_type;
20045: l_clev_fa_rec_out clev_rec_type;
20046: l_klev_fa_rec_out klev_rec_type;
20047: ln_klev_fin_oec OKL_K_LINES_V.OEC%TYPE := 0;
20048: ln_klev_fin_res OKL_K_LINES_V.RESIDUAL_VALUE%TYPE := 0;
20049: ln_klev_fin_cap OKL_K_LINES_V.CAPITAL_AMOUNT%TYPE := 0;
20050: r_clev_addon_rec clev_rec_type;
20051: r_klev_addon_rec klev_rec_type;
20052: r_cimv_addon_rec cimv_rec_type;
20053: rx_clev_addon_rec clev_rec_type;
20153: SELECT NVL(kle_top.re_lease_yn,'N') release_flag
20154: FROM okl_txl_assets_b txlb,
20155: okc_line_styles_b lseb,
20156: okc_k_lines_b cleb_top,
20157: okl_k_lines kle_top
20158: WHERE txlb.kle_id = cleb_top.id
20159: AND cleb_top.lse_id = lseb.id
20160: AND lseb.lty_code = 'FIXED_ASSET'
20161: AND cleb_top.dnz_chr_id = p_dnz_chr_id
20420: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20421: OKL_API.set_message(p_app_name => G_APP_NAME,
20422: p_msg_name => G_FETCHING_INFO,
20423: p_token1 => G_REC_NAME_TOKEN,
20424: p_token1_value => 'OKL_K_LINES_V Record');
20425: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20427: OKL_API.set_message(p_app_name => G_APP_NAME,
20428: p_msg_name => G_FETCHING_INFO,
20426: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20427: OKL_API.set_message(p_app_name => G_APP_NAME,
20428: p_msg_name => G_FETCHING_INFO,
20429: p_token1 => G_REC_NAME_TOKEN,
20430: p_token1_value => 'OKL_K_LINES_V Record');
20431: RAISE OKL_API.G_EXCEPTION_ERROR;
20432: END IF;
20433: IF r_klev_model_rec.id <> r_clev_model_rec.id THEN
20434: OKL_API.set_message(p_app_name => G_APP_NAME,
20501: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20502: OKL_API.set_message(p_app_name => G_APP_NAME,
20503: p_msg_name => G_FETCHING_INFO,
20504: p_token1 => G_REC_NAME_TOKEN,
20505: p_token1_value => 'OKL_K_LINES_V Record');
20506: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
20507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20508: OKL_API.set_message(p_app_name => G_APP_NAME,
20509: p_msg_name => G_FETCHING_INFO,
20507: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20508: OKL_API.set_message(p_app_name => G_APP_NAME,
20509: p_msg_name => G_FETCHING_INFO,
20510: p_token1 => G_REC_NAME_TOKEN,
20511: p_token1_value => 'OKL_K_LINES_V Record');
20512: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
20513: END IF;
20514: IF r_klev_addon_rec.id <> r_clev_addon_rec.id THEN
20515: OKL_API.set_message(p_app_name => G_APP_NAME,
20580: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20581: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20582: RAISE OKL_API.G_EXCEPTION_ERROR;
20583: END IF;
20584: -- Calculate the Capital Amount to Populate the OKL_K_LINES_V.CAPITAL_AMOUNT
20585: cap_amt_calc_upd_fin_rec(p_api_version => p_api_version,
20586: p_init_msg_list => p_init_msg_list,
20587: x_return_status => x_return_status,
20588: x_msg_count => x_msg_count,
20600: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20601: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20602: RAISE OKL_API.G_EXCEPTION_ERROR;
20603: END IF;
20604: -- Calculate the Residual Value to Populate the OKL_K_LINES_V.RESIDUAL_VALUE
20605: res_value_calc_upd_fin_rec(p_api_version => p_api_version,
20606: p_init_msg_list => p_init_msg_list,
20607: x_return_status => x_return_status,
20608: x_msg_count => x_msg_count,
20644: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
20645: OKL_API.set_message(p_app_name => G_APP_NAME,
20646: p_msg_name => G_FETCHING_INFO,
20647: p_token1 => G_REC_NAME_TOKEN,
20648: p_token1_value => 'OKL_K_LINES_V Record');
20649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
20650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20651: OKL_API.set_message(p_app_name => G_APP_NAME,
20652: p_msg_name => G_FETCHING_INFO,
20650: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
20651: OKL_API.set_message(p_app_name => G_APP_NAME,
20652: p_msg_name => G_FETCHING_INFO,
20653: p_token1 => G_REC_NAME_TOKEN,
20654: p_token1_value => 'OKL_K_LINES_V Record');
20655: RAISE OKL_API.G_EXCEPTION_ERROR;
20656: END IF;
20657: IF r_klev_fa_rec.id <> r_clev_fa_rec.id THEN
20658: OKL_API.set_message(p_app_name => G_APP_NAME,