[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 tax depreciation is created or updated.
-- Business Rules :
-- Parameters : p_chr_id,p_asset_id, 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_event_name IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_parameter_list wf_parameter_list_t;
SELECT to_char(cle.dnz_chr_id)
FROM okc_k_lines_b cle,
okl_txl_assets_b tal,
okl_txd_assets_b txd
WHERE tal.kle_id = cle.id
AND tal.id = txd.tal_id
AND tal.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI')
AND txd.tal_id = p_tal_id;
SELECT tal.currency_code
FROM OKL_TXL_ASSETS_B tal
WHERE tal.id = p_tal_id;
SELECT h.currency_code,
h.currency_conversion_type,
h.currency_conversion_date
FROM okl_k_headers_full_v h,
okl_txl_assets_v txl
WHERE h.id = txl.dnz_khr_id
AND txl.id = p_tal_id;
SELECT to_char(cle.dnz_chr_id) chr_id, cle.cle_id cle_id
FROM okc_k_lines_b cle,
okl_txl_assets_b tal,
okl_txd_assets_b txd
WHERE tal.kle_id = cle.id
AND tal.id = txd.tal_id
AND tal.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI')
AND txd.tal_id = p_tal_id;
SELECT kle_id
FROM okl_txl_assets_b tal
WHERE tal.id = p_tal_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 => l_tal_rec.kle_id);
OKL_ASD_PVT.insert_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_asdv_rec,
x_asdv_rec);
/* OKL_ASD_PVT.insert_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_asdv_tbl,
x_asdv_tbl);*/
PROCEDURE update_txd_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_asdv_rec IN advv_rec_type,
x_asdv_rec OUT NOCOPY advv_rec_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSETS_LINE_DTL';
SELECT to_char(cle.dnz_chr_id)
FROM okc_k_lines_b cle,
okl_txl_assets_b tal,
okl_txd_assets_b txd
WHERE tal.kle_id = cle.id
AND tal.id = txd.tal_id
AND tal.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI')
AND txd.tal_id = p_tal_id;
SELECT tas.currency_code
FROM OKL_TXD_ASSETS_B tas
WHERE tas.id = p_id;
SELECT h.currency_code,
h.currency_conversion_type,
h.currency_conversion_date
FROM okl_k_headers_full_v h,
okl_txl_assets_v txl,
okl_txd_assets_v txd
WHERE h.id = txl.dnz_khr_id
AND txl.id = txd.tal_id
AND txd.id = p_txd_id;
SELECT kle_id
FROM okl_txl_assets_b tal
WHERE tal.id = p_tal_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 => l_tal_rec.kle_id);
OKL_ASD_PVT.update_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_asdv_rec,
x_asdv_rec);
END update_txd_asset_def;
PROCEDURE update_txd_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_asdv_tbl IN advv_tbl_type,
x_asdv_tbl OUT NOCOPY advv_tbl_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TRX_ASSETS_LINE_DTL';
update_txd_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_asdv_rec => p_asdv_tbl(p),
x_asdv_rec => x_asdv_tbl(p));
OKL_ASD_PVT.update_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_asdv_tbl,
x_asdv_tbl);
END update_txd_asset_def;
PROCEDURE delete_txd_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_asdv_rec IN advv_rec_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_ASSETS_LINE_DTL';
SELECT to_char(cle.dnz_chr_id)
FROM okc_k_lines_b cle,
okl_txl_assets_b tal,
okl_txd_assets_b txd
WHERE tal.kle_id = cle.id
AND tal.id = txd.tal_id
AND tal.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI')
AND txd.id = p_txd_id;
SELECT to_char(cle.dnz_chr_id) chr_id, cle.cle_id cle_id
FROM okc_k_lines_b cle,
okl_txl_assets_b tal,
okl_txd_assets_b txd
WHERE tal.kle_id = cle.id
AND tal.id = txd.tal_id
AND tal.tal_type in ('CFA','CIB','CRB','CRL','CRV','CSP','ALI')
AND txd.id = p_id;
SELECT tal.kle_id
FROM okl_txl_assets_b tal,
okl_txd_assets_b txd
WHERE tal.id = txd.tal_id
AND txd.id = p_txd_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 => l_tal_rec.kle_id);
OKL_ASD_PVT.delete_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_asdv_rec);
END delete_txd_asset_def;
PROCEDURE delete_txd_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_asdv_tbl IN advv_tbl_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_TRX_ASSETS_LINE_DTL';
OKL_ASD_PVT.delete_row(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_asdv_tbl);
END delete_txd_asset_def;