The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT a.attribute_label_long
FROM ak_region_items ri, AK_REGIONS r, AK_ATTRIBUTES_vL a
WHERE ri.region_code = r.region_code
AND ri.attribute_code = a.attribute_code
AND ri.region_code = p_ak_region
AND ri.attribute_code = p_ak_attribute;
PROCEDURE delete_quote_lines (p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
p_transaction_control IN VARCHAR2 DEFAULT G_TRUE,
p_cle_id_tbl IN cle_id_tbl_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_program_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'delete_quote_lines';
SELECT dnz_chr_id chr_id
FROM okc_k_lines_b
WHERE id = p_line_id;
okl_contract_pvt.delete_contract_line(p_api_version => G_API_VERSION,
p_init_msg_list => G_FALSE,
x_return_status => lx_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_line_id => p_cle_id_tbl(line_number).cle_id);
END delete_quote_lines;
PROCEDURE create_update_link_assets (p_cle_id IN NUMBER,
p_chr_id IN NUMBER,
p_capitalize_yn IN VARCHAR2,
p_link_asset_tbl IN link_asset_tbl_type,
p_derive_assoc_amt IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_program_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'create_update_link_assets';
l_update_line_item_tbl okl_contract_line_item_pvt.line_item_tbl_type;
m BINARY_INTEGER := 1; -- update table index
SELECT NVL(amount, 0)
INTO l_line_amount
FROM okl_k_lines
WHERE id = p_cle_id;
SELECT currency_code
INTO l_currency_code
FROM okc_k_headers_b
WHERE id = p_chr_id;
SELECT NVL(oec, 0)
INTO l_asset_oec
FROM okl_k_lines
WHERE id = l_link_asset_tbl(i).fin_asset_id;
SELECT NVL(oec, 0)
INTO l_asset_oec
FROM okl_k_lines
WHERE id = l_link_asset_tbl(i).fin_asset_id;
SELECT txl.asset_number
INTO l_create_line_item_tbl(k).name
FROM okc_k_lines_b cle,
okc_line_styles_b lse,
okl_txl_assets_b txl
WHERE cle.id = txl.kle_id
AND cle.lse_id = lse.id
AND lse.lty_code = 'FIXED_ASSET'
AND cle.cle_id = l_link_asset_tbl(i).fin_asset_id;
l_update_line_item_tbl(m).cle_id := l_link_asset_tbl(i).link_line_id;
l_update_line_item_tbl(m).item_id := l_link_asset_tbl(i).link_item_id;
l_update_line_item_tbl(m).chr_id := p_chr_id;
l_update_line_item_tbl(m).parent_cle_id := p_cle_id;
l_update_line_item_tbl(m).item_id1 := l_link_asset_tbl(i).fin_asset_id;
l_update_line_item_tbl(m).item_id2 := '#';
l_update_line_item_tbl(m).item_object1_code := 'OKX_COVASST';
l_update_line_item_tbl(m).serv_cov_prd_id := NULL;
l_update_line_item_tbl(m).capital_amount := l_assoc_amount;
SELECT txl.asset_number
INTO l_update_line_item_tbl(m).name
FROM okc_k_lines_b cle,
okc_line_styles_b lse,
okl_txl_assets_b txl
WHERE cle.id = txl.kle_id
AND cle.lse_id = lse.id
AND lse.lty_code = 'FIXED_ASSET'
AND cle.cle_id = l_link_asset_tbl(i).fin_asset_id;
IF l_update_line_item_tbl.COUNT > 0 THEN
okl_contract_line_item_pvt.update_contract_line_item( p_api_version => G_API_VERSION,
p_init_msg_list => G_FALSE,
x_return_status => lx_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_line_item_tbl => l_update_line_item_tbl,
x_line_item_tbl => lx_line_item_tbl);
END create_update_link_assets;
SELECT cle.id
FROM okc_k_lines_b cle,
okc_line_styles_b lse
WHERE cle.cle_id = p_cle_id
AND cle.lse_id = lse.id
AND lse.lty_code = 'LINK_FEE_ASSET';
SELECT cle.cle_id fin_asset_id,
txl.asset_number
FROM okl_txl_assets_b txl,
okc_k_lines_b cle,
okc_line_styles_b lse
WHERE cle.dnz_chr_id = p_chr_id
AND cle.id = txl.kle_id
AND cle.lse_id = lse.id
AND lse.lty_code = 'FIXED_ASSET'
AND cle.sts_code <> 'ABANDONED';
delete_quote_lines (p_api_version => G_API_VERSION,
p_init_msg_list => G_FALSE,
p_transaction_control => G_TRUE,
p_cle_id_tbl => l_cle_id_tbl,
x_return_status => lx_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
create_update_link_assets (p_cle_id => p_cle_id,
p_chr_id => p_chr_id,
p_capitalize_yn => p_capitalize_yn,
p_link_asset_tbl => l_link_asset_tbl,
p_derive_assoc_amt => 'Y',
x_return_status => lx_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
PROCEDURE update_contract(
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_chr_id IN okl_k_headers.id%TYPE,
p_tradein_date IN okl_k_headers.date_tradein%TYPE,
p_tradein_amount IN okl_k_headers.tradein_amount%TYPE,
p_tradein_desc IN okl_k_headers.tradein_description%TYPE
)IS
lp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'update_contract';
OKL_CONTRACT_PUB.update_contract_header(
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_restricted_update => 'F',
p_chrv_rec => lp_chrv_rec,
p_khrv_rec => lp_khrv_rec,
x_chrv_rec => lx_chrv_rec,
x_khrv_rec => lx_khrv_rec);
okl_contract_pub.update_contract_line
(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_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec
);
okl_contract_pvt.update_contract_line(
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_clev_rec => lp_clev_rec,
p_klev_rec => lp_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec);
okl_contract_pvt.update_contract_line(
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_clev_rec => lp_clev_rec,
p_klev_rec => lp_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec);
PROCEDURE delete_tradein(
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_chr_id IN okl_k_headers.id%TYPE,
p_tradein_rec IN tradein_rec_type,
x_tradein_rec OUT NOCOPY tradein_rec_type
)IS
lp_tradein_rec OKL_LA_TRADEIN_PVT.tradein_rec_type := p_tradein_rec;
okl_contract_pvt.update_contract_line(
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_clev_rec => lp_clev_rec,
p_klev_rec => lp_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec);
PROCEDURE delete_tradein(
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_chr_id IN okl_k_headers.id%TYPE,
p_tradein_tbl IN tradein_tbl_type,
x_tradein_tbl OUT NOCOPY tradein_tbl_type
)IS
lp_tradein_rec OKL_LA_TRADEIN_PVT.tradein_rec_type;
delete_tradein(
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_chr_id => l_chr_id,
p_tradein_rec => lp_tradein_rec,
x_tradein_rec => lx_tradein_rec);
SELECT cle.cle_id fin_asset_id,
txl.asset_number
FROM okl_txl_assets_b txl,
okc_k_lines_b cle,
okc_line_styles_b lse
WHERE cle.dnz_chr_id = p_chr_id
AND cle.id = txl.kle_id
AND cle.lse_id = lse.id
AND lse.lty_code = 'FIXED_ASSET'
AND cle.sts_code <> 'ABANDONED';
m BINARY_INTEGER := 1; -- update table index
SELECT nvl(tradein_amount,0)
INTO l_tradein_amount
FROM okl_k_headers
WHERE id = p_chr_id;
SELECT currency_code
INTO l_currency_code
FROM okc_k_headers_b
WHERE id = p_chr_id;
SELECT NVL(oec, 0)
INTO l_asset_oec
FROM okl_k_lines
WHERE id = l_asset_tbl(i).fin_asset_id;
SELECT NVL(oec, 0)
INTO l_asset_oec
FROM okl_k_lines
WHERE id = l_asset_tbl(i).fin_asset_id;
okl_contract_pvt.update_contract_line(
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_clev_tbl => lp_clev_tbl,
p_klev_tbl => lp_klev_tbl,
x_clev_tbl => lx_clev_tbl,
x_klev_tbl => lx_klev_tbl);
PROCEDURE delete_contract(
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_chr_id IN okl_k_headers.id%TYPE
)IS
lp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'delete_contract';
OKL_CONTRACT_PUB.update_contract_header(
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_restricted_update => 'F',
p_chrv_rec => lp_chrv_rec,
p_khrv_rec => lp_khrv_rec,
x_chrv_rec => lx_chrv_rec,
x_khrv_rec => lx_khrv_rec);