885:
886: --cursor to get new asset number
887: Cursor c_asset_no IS
888: select 'DUMMY'||TO_CHAR(OKL_FAN_SEQ.NEXTVAL)
889: FROM dual;
890:
891: l_asset_no OKX_ASSETS_V.ASSET_NUMBER%TYPE;
892:
893: --Cursors to find if asset number exists
892:
893: --Cursors to find if asset number exists
894: CURSOR c_txl_asset_number(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
895: SELECT 'Y'
896: FROM DUAL
897: WHERE EXISTS (SELECT '1'
898: FROM OKL_TXL_ASSETS_V
899: WHERE asset_number = p_asset_number);
900:
912: --start modified abhsaxen for performance SQLID 20562304
913:
914: CURSOR c_okx_assets_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
915: SELECT 'Y'
916: FROM DUAL
917: WHERE EXISTS (SELECT '1'
918: FROM OKX_ASSETS_V
919: WHERE asset_number = p_asset_number);
920:
919: WHERE asset_number = p_asset_number);
920:
921: CURSOR c_txd_assets_v (p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
922: SELECT 'Y'
923: FROM DUAL
924: WHERE EXISTS (SELECT '1'
925: FROM OKL_TXD_ASSETS_V
926: WHERE asset_number = p_asset_number);
927:
930:
931: --cursor to check if line is financial asset top line
932: CURSOR l_is_finasst (p_line_id OKC_K_LINES_B.ID%TYPE) IS
933: Select 'Y'
934: From Dual
935: Where exists (select '1'
936: from okc_k_lines_b cle,
937: okc_line_styles_b lse
938: where cle.lse_id = lse.id
1176:
1177: --cursor to check if line is financial asset top line
1178: CURSOR l_is_finasst (p_line_id OKC_K_LINES_B.ID%TYPE) IS
1179: Select 'Y'
1180: From Dual
1181: Where exists (select '1'
1182: from okc_k_lines_b cle,
1183: okc_line_styles_b lse
1184: where cle.lse_id = lse.id
6043:
6044: x_klev_rec.repurchased_amount := l_conv_amount;
6045: END IF;
6046:
6047: IF (p_klev_rec.residual_grnty_amount IS NOT NULL
6048: AND
6049: p_klev_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM) THEN
6050:
6051: l_conv_amount := NULL;
6045: END IF;
6046:
6047: IF (p_klev_rec.residual_grnty_amount IS NOT NULL
6048: AND
6049: p_klev_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM) THEN
6050:
6051: l_conv_amount := NULL;
6052: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6053: p_amount => p_klev_rec.residual_grnty_amount,
6049: p_klev_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM) THEN
6050:
6051: l_conv_amount := NULL;
6052: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6053: p_amount => p_klev_rec.residual_grnty_amount,
6054: p_currency_code => l_currency_code
6055: );
6056:
6057: x_klev_rec.residual_grnty_amount := l_conv_amount;
6053: p_amount => p_klev_rec.residual_grnty_amount,
6054: p_currency_code => l_currency_code
6055: );
6056:
6057: x_klev_rec.residual_grnty_amount := l_conv_amount;
6058: END IF;
6059:
6060: IF (p_klev_rec.rvi_premium IS NOT NULL
6061: AND
6082:
6083: x_klev_rec.termination_purchase_amount := l_conv_amount;
6084: END IF;
6085:
6086: IF (p_klev_rec.tracked_residual IS NOT NULL
6087: AND
6088: p_klev_rec.tracked_residual <> OKL_API.G_MISS_NUM) THEN
6089:
6090: l_conv_amount := NULL;
6084: END IF;
6085:
6086: IF (p_klev_rec.tracked_residual IS NOT NULL
6087: AND
6088: p_klev_rec.tracked_residual <> OKL_API.G_MISS_NUM) THEN
6089:
6090: l_conv_amount := NULL;
6091: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6092: p_amount => p_klev_rec.tracked_residual,
6088: p_klev_rec.tracked_residual <> OKL_API.G_MISS_NUM) THEN
6089:
6090: l_conv_amount := NULL;
6091: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6092: p_amount => p_klev_rec.tracked_residual,
6093: p_currency_code => l_currency_code
6094: );
6095:
6096: x_klev_rec.tracked_residual := l_conv_amount;
6092: p_amount => p_klev_rec.tracked_residual,
6093: p_currency_code => l_currency_code
6094: );
6095:
6096: x_klev_rec.tracked_residual := l_conv_amount;
6097: END IF;
6098:
6099: IF (p_klev_rec.tradein_amount IS NOT NULL
6100: AND
6121:
6122: x_klev_rec.vendor_advance_paid := l_conv_amount;
6123: END IF;
6124:
6125: IF (p_klev_rec.residual_value IS NOT NULL
6126: AND
6127: p_klev_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
6128:
6129: l_conv_amount := NULL;
6123: END IF;
6124:
6125: IF (p_klev_rec.residual_value IS NOT NULL
6126: AND
6127: p_klev_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
6128:
6129: l_conv_amount := NULL;
6130: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6131: p_amount => p_klev_rec.residual_value,
6127: p_klev_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
6128:
6129: l_conv_amount := NULL;
6130: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6131: p_amount => p_klev_rec.residual_value,
6132: p_currency_code => l_currency_code
6133: );
6134:
6135: x_klev_rec.residual_value := l_conv_amount;
6131: p_amount => p_klev_rec.residual_value,
6132: p_currency_code => l_currency_code
6133: );
6134:
6135: x_klev_rec.residual_value := l_conv_amount;
6136: END IF;
6137:
6138: --Bug# 3143522 : 11.5.10 Subsidies
6139: IF (p_klev_rec.subsidy_override_amount IS NOT NULL