853:
854: --cursor to get new asset number
855: Cursor c_asset_no IS
856: select 'DUMMY'||TO_CHAR(OKL_FAN_SEQ.NEXTVAL)
857: FROM dual;
858:
859: l_asset_no OKX_ASSETS_V.ASSET_NUMBER%TYPE;
860:
861: --Cursors to find if asset number exists
860:
861: --Cursors to find if asset number exists
862: CURSOR c_txl_asset_number(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
863: SELECT 'Y'
864: FROM DUAL
865: WHERE EXISTS (SELECT '1'
866: FROM OKL_TXL_ASSETS_V
867: WHERE asset_number = p_asset_number);
868:
880: --start modified abhsaxen for performance SQLID 20562304
881:
882: CURSOR c_okx_assets_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
883: SELECT 'Y'
884: FROM DUAL
885: WHERE EXISTS (SELECT '1'
886: FROM OKX_ASSETS_V
887: WHERE asset_number = p_asset_number);
888:
887: WHERE asset_number = p_asset_number);
888:
889: CURSOR c_txd_assets_v (p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
890: SELECT 'Y'
891: FROM DUAL
892: WHERE EXISTS (SELECT '1'
893: FROM OKL_TXD_ASSETS_V
894: WHERE asset_number = p_asset_number);
895:
898:
899: --cursor to check if line is financial asset top line
900: CURSOR l_is_finasst (p_line_id OKC_K_LINES_B.ID%TYPE) IS
901: Select 'Y'
902: From Dual
903: Where exists (select '1'
904: from okc_k_lines_b cle,
905: okc_line_styles_b lse
906: where cle.lse_id = lse.id
1144:
1145: --cursor to check if line is financial asset top line
1146: CURSOR l_is_finasst (p_line_id OKC_K_LINES_B.ID%TYPE) IS
1147: Select 'Y'
1148: From Dual
1149: Where exists (select '1'
1150: from okc_k_lines_b cle,
1151: okc_line_styles_b lse
1152: where cle.lse_id = lse.id
5941:
5942: x_klev_rec.repurchased_amount := l_conv_amount;
5943: END IF;
5944:
5945: IF (p_klev_rec.residual_grnty_amount IS NOT NULL
5946: AND
5947: p_klev_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM) THEN
5948:
5949: l_conv_amount := NULL;
5943: END IF;
5944:
5945: IF (p_klev_rec.residual_grnty_amount IS NOT NULL
5946: AND
5947: p_klev_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM) THEN
5948:
5949: l_conv_amount := NULL;
5950: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5951: p_amount => p_klev_rec.residual_grnty_amount,
5947: p_klev_rec.residual_grnty_amount <> OKL_API.G_MISS_NUM) THEN
5948:
5949: l_conv_amount := NULL;
5950: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5951: p_amount => p_klev_rec.residual_grnty_amount,
5952: p_currency_code => l_currency_code
5953: );
5954:
5955: x_klev_rec.residual_grnty_amount := l_conv_amount;
5951: p_amount => p_klev_rec.residual_grnty_amount,
5952: p_currency_code => l_currency_code
5953: );
5954:
5955: x_klev_rec.residual_grnty_amount := l_conv_amount;
5956: END IF;
5957:
5958: IF (p_klev_rec.rvi_premium IS NOT NULL
5959: AND
5980:
5981: x_klev_rec.termination_purchase_amount := l_conv_amount;
5982: END IF;
5983:
5984: IF (p_klev_rec.tracked_residual IS NOT NULL
5985: AND
5986: p_klev_rec.tracked_residual <> OKL_API.G_MISS_NUM) THEN
5987:
5988: l_conv_amount := NULL;
5982: END IF;
5983:
5984: IF (p_klev_rec.tracked_residual IS NOT NULL
5985: AND
5986: p_klev_rec.tracked_residual <> OKL_API.G_MISS_NUM) THEN
5987:
5988: l_conv_amount := NULL;
5989: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5990: p_amount => p_klev_rec.tracked_residual,
5986: p_klev_rec.tracked_residual <> OKL_API.G_MISS_NUM) THEN
5987:
5988: l_conv_amount := NULL;
5989: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
5990: p_amount => p_klev_rec.tracked_residual,
5991: p_currency_code => l_currency_code
5992: );
5993:
5994: x_klev_rec.tracked_residual := l_conv_amount;
5990: p_amount => p_klev_rec.tracked_residual,
5991: p_currency_code => l_currency_code
5992: );
5993:
5994: x_klev_rec.tracked_residual := l_conv_amount;
5995: END IF;
5996:
5997: IF (p_klev_rec.tradein_amount IS NOT NULL
5998: AND
6019:
6020: x_klev_rec.vendor_advance_paid := l_conv_amount;
6021: END IF;
6022:
6023: IF (p_klev_rec.residual_value IS NOT NULL
6024: AND
6025: p_klev_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
6026:
6027: l_conv_amount := NULL;
6021: END IF;
6022:
6023: IF (p_klev_rec.residual_value IS NOT NULL
6024: AND
6025: p_klev_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
6026:
6027: l_conv_amount := NULL;
6028: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6029: p_amount => p_klev_rec.residual_value,
6025: p_klev_rec.residual_value <> OKL_API.G_MISS_NUM) THEN
6026:
6027: l_conv_amount := NULL;
6028: l_conv_amount := okl_accounting_util.cross_currency_round_amount(
6029: p_amount => p_klev_rec.residual_value,
6030: p_currency_code => l_currency_code
6031: );
6032:
6033: x_klev_rec.residual_value := l_conv_amount;
6029: p_amount => p_klev_rec.residual_value,
6030: p_currency_code => l_currency_code
6031: );
6032:
6033: x_klev_rec.residual_value := l_conv_amount;
6034: END IF;
6035:
6036: --Bug# 3143522 : 11.5.10 Subsidies
6037: IF (p_klev_rec.subsidy_override_amount IS NOT NULL