The following lines contain the word 'select', 'insert', 'update' or 'delete':
g_stream_trx_number NUMBER; -- Stream Trx number, updated only from rebook_contract
SELECT id
FROM okc_qa_check_lists_v
WHERE name = p_qcl_name;
PROCEDURE build_selection(
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_request_name IN VARCHAR2,
p_transaction_date IN DATE,
x_statement OUT NOCOPY VARCHAR2
) IS
l_api_name VARCHAR2(35) := 'build_selection';
l_proc_name VARCHAR2(35) := 'BUILD_SELECTION';
SELECT *
FROM okl_mass_rbk_criteria
WHERE request_name = p_req_name
AND operand IS NOT NULL
ORDER BY line_number;
SELECT 'Y'
FROM fnd_lookups
WHERE lookup_type = 'OKL_MASS_RBK_CRITERIA'
AND lookup_code = p_code;
l_query := 'SELECT CON.ID, CON.CONTRACT_NUMBER, LINE.ID, CON.SHORT_DESCRIPTION FROM OKL_K_HEADERS_FULL_V CON, ';
l_query := l_query || 'EXISTS ( SELECT 1 FROM OKC_K_ITEMS_V ITEM, FA_BOOKS FB ';
l_query := l_query || ' EXISTS ( SELECT 1 FROM OKC_K_ITEMS_V ITEM, FA_ADDITIONS ASSET ';
l_query := l_query || ' AND LINE.LSE_ID = (SELECT ID FROM OKC_LINE_STYLES_V ';
END build_selection;
p_transaction_date IN OKL_RBK_SELECTED_CONTRACT.TRANSACTION_DATE%TYPE DEFAULT SYSDATE,
x_mstv_tbl OUT NOCOPY mstv_tbl_type,
x_rbk_count OUT NOCOPY NUMBER
) IS
l_api_name VARCHAR2(35) := 'get_contract';
SELECT 'Y'
FROM okl_rbk_selected_contract
WHERE request_name = p_request_name;
build_selection(
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_request_name => p_request_name,
p_transaction_date => p_transaction_date,
x_statement => l_statement
);
l_mstv_tbl(i).selected_flag := 'Y';
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before selected contract insert');
okl_mst_pvt.insert_row(
p_api_version => 1.0,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_mstv_tbl => l_mstv_tbl,
x_mstv_tbl => x_mstv_tbl
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After selected contract insert');
SELECT VALUE
FROM v$nls_parameters
WHERE parameter = 'NLS_DATE_FORMAT';
p_transaction_date IN OKL_RBK_SELECTED_CONTRACT.TRANSACTION_DATE%TYPE,
p_mrbv_tbl IN mrbv_tbl_type,
x_mstv_tbl OUT NOCOPY mstv_tbl_type,
x_rbk_count OUT NOCOPY NUMBER
) IS
l_api_name VARCHAR2(35) := 'build_and_get_contracts';
okl_mrb_pvt.insert_row(
p_api_version => l_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_mrbv_tbl => p_mrbv_tbl,
x_mrbv_tbl => x_mrbv_tbl
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Insert');
okl_mrb_pvt.insert_row(
p_api_version => l_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_mrbv_tbl => p_mrbv_tbl,
x_mrbv_tbl => x_mrbv_tbl
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Insert');
SELECT
id
,request_name
,khr_id
,contract_number
,contract_description
,transaction_id
,selected_flag
,attribute_category
,attribute1
,attribute2
,attribute3
,attribute4
,attribute5
,attribute6
,attribute7
,attribute8
,attribute9
,attribute10
,attribute11
,attribute12
,attribute13
,attribute14
,attribute15
FROM okl_rbk_selected_contract
WHERE request_name = p_request_name
AND khr_id = p_chr_id
AND NVL(status, 'NEW') IN ('NEW', 'ERROR');
x_mstv_tbl(i).selected_flag := mstv_rec.selected_flag;
PROCEDURE update_residual_value(
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_kle_tbl IN kle_tbl_type,
p_residual_value IN OKL_K_LINES_V.RESIDUAL_VALUE%TYPE
) IS
l_api_name VARCHAR2(35) := 'update_residual_value';
l_proc_name VARCHAR2(35) := 'UPDATE_RESIDUAL_VALUE';
SELECT oec
FROM okl_k_lines_full_v
WHERE id = p_top_line_id;
okl_contract_pub.update_contract_line(
p_api_version => 1.0,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => l_clev_tbl,
p_klev_tbl => l_klev_tbl,
x_clev_tbl => x_clev_tbl,
x_klev_tbl => x_klev_tbl
);
END update_residual_value;
p_transaction_date IN OKL_RBK_SELECTED_CONTRACT.TRANSACTION_DATE%TYPE DEFAULT SYSDATE
) IS
l_api_name VARCHAR2(35) := 'populate_asset_change';
SELECT id
FROM okl_trx_types_tl
WHERE language = 'US'
AND name = p_trx_type;
SELECT id2,
deprn_method_code,
life_in_months,
acquisition_date,
cost
FROM okx_ast_bks_v
WHERE book_class = p_book_class
AND asset_number = p_asset_number
AND book_type_code = NVL(p_book_type_code, book_type_code);
SELECT oec,
name
FROM OKL_K_LINES_FULL_V
WHERE id = (SELECT cle_id
FROM okl_k_lines_full_v
WHERE id = p_fa_line_id);
SELECT number_of_items
FROM okc_k_items_v
WHERE cle_id = p_fa_line_id;
SELECT line.id
FROM okc_k_lines_v line,
okc_line_styles_v style
WHERE line.lse_id = style.id
AND style.lty_code = 'FIXED_ASSET'
AND dnz_chr_id = p_chr_id
AND cle_id = p_kle_id;
SELECT contract_number
FROM OKC_K_HEADERS_B
WHERE id = p_ctr_id1;
PROCEDURE update_slh_sll(
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_khr_id IN OKC_K_HEADERS_V.ID%TYPE,
p_kle_tbl IN kle_tbl_type,
p_strm_lalevl_tbl IN strm_lalevl_tbl_type
) IS
l_api_name VARCHAR2(35) := 'update_slh_sll';
l_proc_name VARCHAR2(35) := 'UPDATE_SLH_SLL';
SELECT ID
FROM okc_rule_groups_v
WHERE dnz_chr_id = p_chr_id
AND cle_id = p_cle_id
AND rgd_code = 'LALEVL';
SELECT id
FROM okc_rules_v
WHERE object1_id1 = p_stream_id
AND rgp_id = p_rgp_id
AND rule_information_category = 'LASLH';
SELECT id
FROM okc_rules_v
WHERE dnz_chr_id = p_chr_id
AND rgp_id = p_rgp_id
AND object2_id1 = p_slh_id
AND rule_information_category = 'LASLL';
update_failed EXCEPTION;
l_sll_rulv_tbl.DELETE; -- Bug# 2754344
raise update_failed;
IF (l_slh_id IS NOT NULL) THEN -- delete rules (SLH, SLL)
IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inside delete rule');
okl_rule_pub.delete_rule(
p_api_version => 1.0,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_rec => l_rulv_rec
);
RAISE update_failed;
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLH deleted');
okl_rule_pub.delete_rule(
p_api_version => 1.0,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_tbl => l_rulv_tbl
);
RAISE update_failed;
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLL deleted');
RAISE update_failed;
RAISE update_failed;
WHEN update_failed THEN
IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update failed in update_slh_sll');
END update_slh_sll;
PROCEDURE update_ppd_amount(
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_khr_id IN OKC_K_HEADERS_V.ID%TYPE,
p_kle_tbl IN kle_tbl_type,
p_strm_lalevl_tbl IN strm_lalevl_tbl_type
) IS
l_api_name VARCHAR2(35) := 'update_ppd_amount';
l_proc_name VARCHAR2(35) := 'UPDATE_PPD_AMOUNT';
SELECT ID
FROM okc_rule_groups_v
WHERE dnz_chr_id = p_chr_id
AND cle_id = p_cle_id
AND rgd_code = 'LALEVL';
SELECT id
FROM okc_rules_v
WHERE object1_id1 = p_stream_id
AND rgp_id = p_rgp_id
AND rule_information_category = 'LASLH';
SELECT id
FROM okc_rules_v
WHERE dnz_chr_id = p_chr_id
AND rgp_id = p_rgp_id
AND object2_id1 = p_slh_id
AND rule_information_category = 'LASLL';
update_failed EXCEPTION;
l_sll_rulv_tbl.DELETE; -- Bug# 2754344
RAISE update_failed;
l_sll_rulv_tbl.DELETE; -- Bug# 2754344
raise update_failed;
IF (l_slh_id IS NOT NULL) THEN -- delete rules (SLH, SLL)
IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Inside delete rule');
okl_rule_pub.delete_rule(
p_api_version => 1.0,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_rec => l_rulv_rec
);
RAISE update_failed;
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLH deleted');
okl_rule_pub.delete_rule(
p_api_version => 1.0,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rulv_tbl => l_rulv_tbl
);
RAISE update_failed;
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'SLL deleted');
RAISE update_failed;
RAISE update_failed;
WHEN update_failed THEN
IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update failed in update_ppd_amount');
END update_ppd_amount;
p_transaction_date IN OKL_RBK_SELECTED_CONTRACT.TRANSACTION_DATE%TYPE DEFAULT SYSDATE
) IS
l_api_name VARCHAR2(35) := 'rebook_contract';
SELECT sts.ste_code
FROM okc_statuses_b sts,
okc_k_headers_b hdr
WHERE hdr.sts_code = sts.code
AND hdr.id = p_chr_id;
l_request_name okl_rbk_selected_contract.request_name%TYPE;
IF (p_online_yn = 'N') THEN -- populate selected_contract table for Non-Online process only
l_request_name := TO_CHAR(get_seq_id());
okl_mst_pvt.insert_row(
p_api_version => 1.0,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_mstv_rec => l_mstv_rec,
x_mstv_rec => x_mstv_rec
);
okl_mst_pvt.update_row(
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_mstv_tbl => l_mstv_tbl,
x_mstv_tbl => x_mstv_tbl
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after update mst :'|| x_return_status);
Okl_Trx_Contracts_Pub.update_trx_contracts(
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tcnv_rec => l_tcnv_rec,
x_tcnv_rec => x_tcnv_rec
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
Okl_Trx_Contracts_Pub.update_trx_contracts(
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tcnv_rec => l_tcnv_rec,
x_tcnv_rec => x_tcnv_rec
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After update transaction: '||x_return_status);
update_residual_value(
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_kle_tbl => p_kle_tbl,
p_residual_value => p_residual_value
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before calling update_ppd_amount');
update_ppd_amount(
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_khr_id => p_khr_id,
p_kle_tbl => p_kle_tbl,
p_strm_lalevl_tbl => p_strm_lalevl_tbl
);
update_slh_sll(
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_khr_id => p_khr_id,
p_kle_tbl => p_kle_tbl,
p_strm_lalevl_tbl => p_strm_lalevl_tbl
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after calling update_ppd_amount');
PROCEDURE update_mass_rbk_contract(
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_mstv_tbl IN MSTV_TBL_TYPE,
x_mstv_tbl OUT NOCOPY MSTV_TBL_TYPE
) IS
l_api_name VARCHAR2(35) := 'update_mass_rbk_contract';
l_proc_name VARCHAR2(35) := 'UPDATE_MASS_RBK_CONTRACT';
CURSOR rbk_csr (p_request_name OKL_RBK_SELECTED_CONTRACT.REQUEST_NAME%TYPE,
p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
SELECT id
FROM okl_rbk_selected_contract
WHERE khr_id = p_chr_id
AND request_name = p_request_name;
update_failed EXCEPTION;
l_mstv_upd_tbl(l_upd_count).selected_flag := p_mstv_tbl(i).selected_flag;
okl_mst_pvt.update_row(
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_mstv_tbl => l_mstv_upd_tbl,
x_mstv_tbl => x_mstv_upd_tbl
);
WHEN update_failed THEN
x_return_status := OKL_API.G_RET_STS_SUCCESS;
END update_mass_rbk_contract;
PROCEDURE update_trx_asset(
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_id IN OKC_K_HEADERS_V.ID%TYPE,
p_status IN VARCHAR2
) IS
--Bug# 3521126 :
/*--modified cursor to change only status of current transaction--
--CURSOR trx_csr (p_chr_id OKC_K_HEADERS_V.ID%TYPE) IS
--SELECT txl.tas_id
--FROM okl_txl_assets_v txl
--WHERE txl.dnz_khr_id = p_chr_id
--AND EXISTS (SELECT 'Y'
--FROM okl_trx_assets_v trx
--WHERE trx.id = txl.tas_id
--AND trx.tsu_code = 'ENTERED');
SELECT trx.id
FROM okl_trx_assets trx,
okl_trx_types_tl ttyp,
okl_txl_assets_b txl
WHERE trx.id = txl.tas_id
AND trx.try_id = ttyp.id
AND trx.tas_type = 'CRB'
AND trx.tsu_code = 'ENTERED'
AND ttyp.name = 'Rebook'
AND ttyp.language = 'US'
AND txl.tal_type = 'CRB'
AND txl.dnz_khr_id = p_chr_id;
okl_trx_assets_pub.update_trx_ass_h_def(
p_api_version => 1.0,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_thpv_rec => l_thpv_rec,
x_thpv_rec => x_thpv_rec
);
END update_trx_asset;
SELECT date_transaction_occurred
FROM okl_trx_contracts
WHERE id = p_rbk_trx_id;
SELECT trxp.tcn_type,
trxp.qte_id,
trxp.date_transaction_occurred,
qtev.qtp_code
FROM okl_trx_contracts trxp,
okl_trx_contracts trxc,
okl_trx_quotes_v qtev
WHERE trxp.id = trxc.source_trx_id
AND trxc.id = p_rbk_trx_id
AND trxc.tsu_code <> 'PROCESSED'
AND qtev.id = trxp.qte_id;
SELECT strm.id
FROM okl_streams strm,
okl_strm_type_v TYPE
WHERE TYPE.id = strm.sty_id
AND TYPE.stream_type_subclass = 'INVESTOR_DISBURSEMENT'
AND strm.khr_id = p_chr_id
AND strm.say_code = 'CURR';
SELECT strm.id
FROM okl_streams strm,
okl_strm_type_v TYPE
WHERE TYPE.id = strm.sty_id
AND TYPE.stream_type_purpose IN (
'INVESTOR_RENTAL_ACCRUAL',
'INVESTOR_PRE_TAX_INCOME',
'INVESTOR_INTEREST_INCOME',
'INVESTOR_VARIABLE_INTEREST'
)
AND strm.khr_id = p_chr_id
AND strm.say_code = 'CURR';
SELECT kle_id
FROM okl_txl_quote_lines_v
WHERE qte_id = p_qte_id
AND qlt_code = 'AMCFIA';
SELECT DEAL_TYPE
FROM OKL_K_HEADERS
WHERE ID = p_chr_id;
okl_streams_pub.update_streams(
p_api_version => 1.0,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_stmv_tbl => l_disb_strm_tbl,
x_stmv_tbl => x_disb_strm_tbl
);
okl_streams_pub.update_streams(
p_api_version => 1.0,
p_init_msg_list => OKC_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_stmv_tbl => l_accu_strm_tbl,
x_stmv_tbl => x_accu_strm_tbl
);
SELECT DISTINCT
A.REQUEST_NAME,
A.KHR_ID,
A.TRANSACTION_ID,
--Bug# 4107330
A.TRANSACTION_DATE,
B.MULTI_GAAP_YN, -- MGAAP 7263041
C.REPORTING_PDT_ID -- MGAAP 7263041
FROM okl_rbk_selected_contract A,
okl_k_headers B,
okl_products C
WHERE A.khr_id = p_chr_id
AND NVL(A.status,'NEW') = 'UNDER REVISION'
AND A.KHR_ID = B.ID -- MGAAP 7263041
AND B.PDT_ID = C.ID; -- MGAAP 7263041
SELECT source_trx_id, source_trx_type
FROM okl_trx_contracts
WHERE id = p_trx_id
AND tsu_code <> 'PROCESSED';
select tcn_type
from okl_trx_contracts
where id = p_trx_id;
l_rbk_id okl_rbk_selected_contract.id%TYPE;
l_rbk_khr_id okl_rbk_selected_contract.khr_id%TYPE;
l_rbk_transaction_id okl_rbk_selected_contract.transaction_id%TYPE;
l_rbk_trx_date okl_rbk_selected_contract.transaction_date%TYPE;
l_request_name okl_rbk_selected_contract.request_name%TYPE;
OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
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_khr_id => p_chr_id ,
p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT,
p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_COMPLETE);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before update_trx_contracts');
Okl_Trx_Contracts_Pub.update_trx_contracts(
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tcnv_rec => l_am_tcnv_rec,
x_tcnv_rec => x_am_tcnv_rec
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
l_am_tcnv_rec.tmt_contract_updated_yn := 'Y';
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before update_trx_contracts');
Okl_Trx_Contracts_Pub.update_trx_contracts(
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tcnv_rec => l_am_tcnv_rec,
x_tcnv_rec => x_am_tcnv_rec
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts: '||x_return_status);
okl_api.set_message('OKL','AM','Term trx updated', parent_trx_rec.source_trx_id);
okl_mass_rebook_pvt.update_mass_rbk_contract(
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_mstv_tbl => l_mstv_tbl,
x_mstv_tbl => x_mstv_tbl
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_mas_rbk_contract: '||x_return_status);
Okl_Trx_Contracts_Pub.update_trx_contracts(
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tcnv_rec => l_tcnv_rec,
x_tcnv_rec => x_tcnv_rec
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_trx_contracts : '||x_return_status);
update_trx_asset(
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_chr_id => p_chr_id,
p_status => 'PROCESSED'
);
SELECT DISTINCT
REQUEST_NAME,
KHR_ID,
TRANSACTION_ID,
--Bug# 4107330
TRANSACTION_DATE
FROM okl_rbk_selected_contract
WHERE khr_id = p_chr_id
AND NVL(status,'NEW') = 'UNDER REVISION';
l_rbk_khr_id okl_rbk_selected_contract.khr_id%TYPE;
l_rbk_transaction_id okl_rbk_selected_contract.transaction_id%TYPE;
l_rbk_trx_date okl_rbk_selected_contract.transaction_date%TYPE;
l_request_name okl_rbk_selected_contract.request_name%TYPE;
OKL_BOOK_CONTROLLER_PVT.update_book_controller_trx(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE, --To retain message stack
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_khr_id => p_chr_id ,
p_prog_short_name => OKL_BOOK_CONTROLLER_PVT.G_SUBMIT_CONTRACT ,
p_progress_status => OKL_BOOK_CONTROLLER_PVT.G_PROG_STS_ERROR);
SELECT DISTINCT
REQUEST_NAME,
KHR_ID,
TRANSACTION_ID
FROM okl_rbk_selected_contract
WHERE khr_id = p_chr_id
AND NVL(status,'NEW') <> 'PROCESSED';
okl_mass_rebook_pvt.update_mass_rbk_contract(
p_api_version => 1.0,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_mstv_tbl => l_mstv_tbl,
x_mstv_tbl => x_mstv_tbl
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After mass rebook trx update: '||x_return_status);
Okl_Trx_Contracts_Pub.update_trx_contracts(
p_api_version => 1.0,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tcnv_rec => l_tcnv_rec,
x_tcnv_rec => x_tcnv_rec
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'----->After trx update: '||x_return_status);
l_transaction_date OKL_RBK_SELECTED_CONTRACT.TRANSACTION_DATE%TYPE;
SELECT criteria_code,
criteria_value1,
set_value
FROM okl_mass_rbk_criteria
WHERE request_name = p_req_name
AND (set_value IS NOT NULL
OR
criteria_code = 'BOOK_TYPE_CODE'); -- in order to keep Tax Book as selection crietria
SELECT
rbk.khr_id,
rbk.contract_number,
rbk.contract_description,
rbk.kle_id,
rbk.transaction_date,
khr.object_version_number
FROM okl_rbk_selected_contract rbk
, okl_k_headers khr
WHERE
rbk.request_name = p_req_name
AND rbk.selected_flag = 'Y'
AND rbk.transaction_id IS NULL
AND khr.id = rbk.khr_id;
l_book_type_code := rbk_set_rec.criteria_value1; -- For selection only, do not Set value
OKL_KHR_PVT.update_row(
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_khrv_rec => lp_khrv_rec
, x_khrv_rec => lx_khrv_rec);
OKL_KHR_PVT.update_row(
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_khrv_rec => lp_khrv_rec
, x_khrv_rec => lx_khrv_rec);
p_transaction_date IN OKL_RBK_SELECTED_CONTRACT.TRANSACTION_DATE%TYPE,
x_stream_trx_tbl OUT NOCOPY strm_trx_tbl_type
) IS
l_api_name VARCHAR2(35) := 'apply_mass_rebook';
p_transaction_date IN OKL_RBK_SELECTED_CONTRACT.TRANSACTION_DATE%TYPE,
x_mass_rebook_trx_id OUT NOCOPY OKL_TRX_CONTRACTS.ID%TYPE
) IS
l_api_name VARCHAR2(35) := 'apply_mass_rebook';
okl_mrb_pvt.insert_row(
p_api_version => l_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_mrbv_tbl => p_mrbv_tbl,
x_mrbv_tbl => x_mrbv_tbl
);