[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
* the procedure is located at the global level and not at the insert row level as the same procedure
* can later be used for capturing other DML logic.
*/
-------------------------------------------------------------------------------
-- PROCEDURE raise_business_event
-------------------------------------------------------------------------------
-- Start of comments
--
-- Procedure Name : raise_business_event
-- Description : This procedure is a wrapper that raises a business event
-- : when ever asset book depreciation is created.
-- Business Rules :
-- Parameters : p_chr_id,p_asset_id,p_book_code,p_event_name along with other api params
-- Version : 1.0
-- History : 30-AUG-2004 SJALASUT created
-- End of comments
PROCEDURE raise_business_event(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_chr_id IN okc_k_headers_b.id%TYPE,
p_asset_id IN okc_k_lines_b.id%TYPE,
p_book_code IN okl_txl_assets_b.corporate_book%TYPE,
p_event_name IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_new_contract VARCHAR2(10);
SELECT currency_code,
currency_conversion_type,
currency_conversion_date
FROM okl_k_headers_full_v
WHERE id = p_chr_id;
select khr.deal_type,
khr.pdt_id,
pdt.reporting_pdt_id
from okl_products pdt,
okl_k_headers khr
where pdt.id = khr.pdt_id
and khr.id = p_chr_id;
SELECT ppv.quality_val deal_type
FROM okl_prod_qlty_val_uv ppv
WHERE ppv.quality_name IN ('LEASE','INVESTOR')
AND ppv.pdt_id = p_pdt_id;
select kle.residual_value
from okl_k_lines kle
where kle.id = p_kle_id;
SELECT cle_id
FROM okc_k_lines_b
WHERE id = p_talv_rec.kle_id;
OKL_TAL_PVT.insert_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_talv_rec,
x_talv_rec);
OKL_TAL_PVT.insert_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_talv_tbl,
x_talv_tbl);
PROCEDURE update_txl_asset_def(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_talv_rec IN tlvv_rec_type,
x_talv_rec OUT NOCOPY tlvv_rec_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSETS_LINES';
SELECT cle.dnz_chr_id
FROM okc_k_lines_b cle,
okl_txl_assets_b tal
WHERE tal.kle_id = cle.id
AND tal.kle_id = p_kle_id;
SELECT currency_code
FROM OKC_K_LINES_B
WHERE id = p_kle_id;
SELECT h.currency_code,
h.currency_conversion_type,
h.currency_conversion_date
FROM okl_k_headers_full_v h,
okl_txl_assets_v asset
WHERE h.id = asset.dnz_khr_id
AND asset.id = p_txl_id;
SELECT lines.dnz_chr_id,lines.cle_id,tal.corporate_book
FROM okc_k_lines_b lines,
okl_txl_assets_b tal
WHERE tal.id = p_id
AND lines.id = tal.kle_id;
select khr.deal_type,
khr.pdt_id,
pdt.reporting_pdt_id
from okl_products pdt,
okl_k_headers khr
where pdt.id = khr.pdt_id
and khr.id = p_chr_id;
SELECT ppv.quality_val deal_type
FROM okl_prod_qlty_val_uv ppv
WHERE ppv.quality_name IN ('LEASE','INVESTOR')
AND ppv.pdt_id = p_pdt_id;
select kle.residual_value
from okl_k_lines kle
where kle.id = p_kle_id;
OKL_LLA_UTIL_PVT.check_line_update_allowed
(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cle_id => p_talv_rec.kle_id);
OKL_TAL_PVT.update_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_talv_rec,
x_talv_rec);
END update_txl_asset_def;
PROCEDURE update_txl_asset_def(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_talv_tbl IN tlvv_tbl_type,
x_talv_tbl OUT NOCOPY tlvv_tbl_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSETS_LINES';
update_txl_asset_def(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_talv_rec => p_talv_tbl(p),
x_talv_rec => x_talv_tbl(p));
/* OKL_TAL_PVT.update_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_talv_tbl,
x_talv_tbl);*/
END update_txl_asset_def;
PROCEDURE delete_txl_asset_def(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_talv_rec IN tlvv_rec_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_ASSETS_LINES';
SELECT cle.dnz_chr_id
FROM okc_k_lines_b cle,
okl_txl_assets_b tal
WHERE tal.kle_id = cle.id
AND tal.kle_id = p_kle_id;
OKL_TAL_PVT.delete_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_talv_rec);
END delete_txl_asset_def;
PROCEDURE delete_txl_asset_def(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_talv_tbl IN tlvv_tbl_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_ASSETS_LINES';
OKL_TAL_PVT.delete_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_talv_tbl);
END delete_txl_asset_def;