The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'x'
FROM okl_sec_investors_uv
WHERE chr_id = p_chr_id
AND id1 = p_party_id1;
SELECT ID
FROM okc_line_styles_v
WHERE lty_code = p_lty_code;
SELECT CURRENCY_CODE,
AUTHORING_ORG_ID,
END_DATE
FROM okc_k_headers_b
WHERE id = p_chr_id;
PROCEDURE update_investor(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_inv_tbl IN inv_tbl_type,
x_inv_tbl OUT NOCOPY inv_tbl_type) IS
-- Cursor for getting the status of the open transaction
CURSOR l_trans_status_csr(p_ia_id IN NUMBER)
IS
SELECT pools.transaction_status,pools.id,pools.pol_id FROM OKL_POOL_TRANSACTIONS pools,OKL_POOLS header
where pools.transaction_status <> 'COMPLETE'
and pools.transaction_type='ADD' and pools.transaction_reason='ADJUSTMENTS'
and pools.pol_id=header.id and header.khr_id=p_ia_id ;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_PARTY';
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_Pool_Pvt.update_pool_transaction(p_api_version => p_api_version
,p_init_msg_list => p_init_msg_list
,x_return_status => l_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,p_poxv_rec => lp_poxv_rec
,x_poxv_rec => lx_poxv_rec);
END update_investor;
PROCEDURE delete_investor(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_inv_tbl IN inv_tbl_type) IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_CONTRACT_PARTY';
SELECT okc_fee_line.id ,
okc_fee_line.chr_id
FROM okc_k_lines_b okc_fee_line ,
okl_k_lines okl_fee_line ,
okc_line_styles_b lse ,
okc_k_party_roles_b inv_line_role ,
okc_k_party_roles_b fee_line_role
WHERE inv_line_role.cle_id = p_investor_line_id
AND inv_line_role.object1_id1 = fee_line_role.object1_id1
AND inv_line_role.rle_code = fee_line_role.rle_code
AND inv_line_role.dnz_chr_id = fee_line_role.dnz_chr_id
AND fee_line_role.cle_id = okc_fee_line.id
AND okc_fee_line.lse_id = lse.id
AND lse.lty_code = 'FEE'
AND okc_fee_line.chr_id = fee_line_role.dnz_chr_id
AND okc_fee_line.id = okl_fee_line.id;
OKL_MAINTAIN_FEE_PVT.delete_fee_type (
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_fee_types_rec => l_fee_rec) ;
OKL_CONTRACT_PUB.delete_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_line_id => p_inv_tbl(i).cle_id);
END delete_investor;
SELECT
CHR.ID ID,
CHR.CONTRACT_NUMBER CONTRACT_NUMBER,
TL.SHORT_DESCRIPTION SHORT_DESCRIPTION,
CHR.START_DATE START_DATE,
CHR.END_DATE END_DATE,
CHR.AUTHORING_ORG_ID AUTHORING_ORG_ID,
CHR.INV_ORGANIZATION_ID INV_ORG_ID,
CHR.STS_CODE STS_CODE,
STL.MEANING MEANING,
FND.CURRENCY_CODE CURRENCY_CODE,
FND.NAME CURRENCY,
KLP.ID PDT_ID,
KLP.NAME PRODUCT_NAME,
KLP.DESCRIPTION PRODUCT_DESCRIPTION,
POL.POOL_NUMBER,
POL.TOTAL_PRINCIPAL_AMOUNT,
POL.TOTAL_RECEIVABLE_AMOUNT
FROM
OKC_K_HEADERS_B CHR,OKC_STATUSES_TL STL,OKC_K_HEADERS_TL TL,OKL_K_HEADERS KHR,
OKL_PRODUCTS KLP, OKL_POOLS POL, FND_CURRENCIES_VL FND
WHERE
TL.ID = CHR.ID AND STL.CODE = CHR.STS_CODE AND TL.LANGUAGE = USERENV('LANG')
AND KHR.ID = CHR.ID AND KLP.ID(+) = KHR.PDT_ID
AND CHR.CURRENCY_CODE = FND.CURRENCY_CODE
AND CHR.SCS_CODE = 'INVESTOR_AGREEMENT'
AND CHR.ID = POL.KHR_ID
AND CHR.ID = chrId;