The following lines contain the word 'select', 'insert', 'update' or 'delete':
**Insert Transaction Record
** get id and pass along
Else
** get trn rec and pass along
End if
Validate Lease + Contract
SET OVERALL STATUS
If validation failed then
If batch process then
**Update Transaction Record
End if
abort
End if
Get Lines
If contract expired then
If evergreen_yn <> 'Y' Then
Get Evergreen Eligibility
If Batch process and Eligible Then
Update contract header and lines
End if
End if
End if
SET OVERALL STATUS
If return status = Success Then
If set to evergreen then
Set Transaction Record
**Update Transaction Record
SET OVERALL STATUS
Rollback if Insert fails
Abort
Else
Set Transaction Record###
End if
Else
Set Transaction Record***
**Update Transaction Record
SET OVERALL STATUS
Rollback if Update fails
Abort
End if
If Early Termination Then
If Cancel Policies YN <> 'Y' Then
Call Cancel Policies
SET OVERALL STATUS
Set Transaction Record***
End if
Else
Set Transaction Record###
End if
If Total Balance < Tolerance Amount then
Get Tolerance Amount
Get Total Balance
If close balances YN <> 'Y' then
Call Adjust header to close balances
SET OVERALL STATUS
Call Accounting entries
SET OVERALL STATUS
Get code combination id
Call Adjust Lines to close balances
SET OVERALL STATUS
Set Transaction Record***
End if
Else
Set Transaction Record###
End if
If Streams to be updated Then
If Update Streams YN <> 'Y' Then
Call Update Streams
SET OVERALL STATUS
Set Transaction Record***
End if
Else
Set Transaction Record###
End if
If Account Entries YN <> 'Y' Then
Call Account Entries
SET OVERALL STATUS
Set Transaction Record***
End if
If Term With Purchase Then
If Asset Dispose <> 'Y' Then
Call Asset Dispose
SET OVERALL STATUS
Set Transaction Record***
End if
Set Transaction Record###
Else
If Amortization YN <> 'Y' Then
Call Amortization
SET OVERALL STATUS
Set Transaction Record***
End if
If Asset Return YN <> 'Y' Then
Call Asset Return
SET OVERALL STATUS
Set Transaction Record***
End if
Set Transaction Record###
End If
Set Transaction Record***
If overall status = Success and Update contract YN <> 'Y' then
Update contract header and lines
SET OVERALL STATUS
Rollback if update fails
End if
**Update Transaction Record
SET OVERALL STATUS
Rollback if insert fails
End API Transaction
OKL_AM_LEASE_TRMNT_PVT
-- Returns E or U only in case of Hard errors ie when errors are critical and
-- need to rollabck the whole transaction. This will happen when there is a
-- problem with creating or updating row in transaction table or validate
-- lease/contract fails when it is not from batch process.
-- All other errors such as not able to do accounting entries, or not able to
-- update k header or lines will result in soft error so will be propagated
-- out of this API as "Success".
OKL_AM_LEASE_LOAN_TRMNT_PVT
-- The Rec Type procedure calls the rec type of Lease termination API
-- The Tbl Type procedure calls the rec type of this same API
OKL_AM_LEASE_LOAN_TRMNT_PUB
-- The Rec Type procedure calls the rec type of PVT API
-- -- This version will be called from batch process, from termination quote
-- -- API/ Termination Quote Update Screen
-- The Tbl Type procedure calls the tbl type of PVT API
-- -- This version will be called from Request Termination Screen
-- -- This version will rollback if even one contract fails and will stop
-- -- further processing as soon as it hits a contract which fails to
-- -- terminate.
---------------------------------------------------------------------------**/
-- Start of comments
--
-- Function Name : check_auto_invoice_yn
-- Desciption : Checks to see if auto invoice applicable
-- Business Rules :
-- Parameters :
-- Version : 1.0
-- History : RMUNJULU 18-aug-05 BUYOUT_PROCESS
--
-- End of comments
PROCEDURE check_auto_invoice_yn(
p_term_rec IN term_rec_type,
x_auto_invoce_yn OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2)IS
l_auto_invoce_yn VARCHAR2(3);
SELECT trx.tmt_evergreen_yn
FROM OKL_TRX_CONTRACTS trx
WHERE trx.khr_id = p_khr_id
AND trx.tmt_status_code = 'PROCESSED' --changed by akrangan sla tmt_status_code changes
AND trx.tcn_type IN ('TMT','ALT','EVG')-- akrangan bug 5354501 fix added 'EVG'
AND trx.tmt_evergreen_yn = 'Y'
--rkuttiya added for 12.1.1 Multi GAAP
AND trx.representation_type = 'PRIMARY'
AND trx.id <> p_tcn_id;
SELECT a.id, a.name
FROM okc_k_lines_v a , okc_line_styles_b b
WHERE a.chr_id = cp_khr_id
AND a.lse_id = b.id
AND b.lty_code = 'FREE_FORM1'
AND a.sts_code = cp_sts_code;
SELECT fb.book_type_code, fb.asset_id, fb.contract_id --SECHAWLA 02-Jan-08 6720667 : Added contract_id
FROM fa_books fb, fa_additions_b fab, fa_book_controls fbc
WHERE fb.asset_id = fab.asset_id
AND fb.book_type_code = fbc.book_type_code
AND nvl(fbc.date_ineffective,cp_sysdate+1) > cp_sysdate
AND fb.transaction_header_id_out IS NULL
AND fab.asset_number = cp_asset_number;
SELECT end_date, sts_code --sechawla 18-dec-07 6690811 : added sts_code
FROM OKC_K_HEADERS_b --sechawla 18-dec-07 6690811 : changed OKC_K_HEADERS_V to OKC_K_HEADERS_b
WHERE id = p_khr_id;
SELECT OKLV.name name
FROM OKC_K_LINES_V OKLV
WHERE OKLV.id = p_cle_id;
SELECT khr.end_date,
khr.sts_code
FROM OKC_K_HEADERS_V khr
WHERE khr.id = p_khr_id;
-- update contract_status to evergreen
-- exit (raise exception)
-- end if
IF (l_rule_found = G_YES) THEN
l_try_name := 'Evergreen';
SELECT OKLV.id kle_id,
OKLV.name asset_name
FROM OKC_K_LINES_V OKLV,
OKC_LINE_STYLES_V OLSV,
OKC_K_HEADERS_V KHR
WHERE OKLV.chr_id = p_khr_id
AND OKLV.lse_id = OLSV.id
AND OLSV.lty_code = 'FREE_FORM1'
AND OKLV.chr_id = KHR.id
AND OKLV.sts_code = KHR.sts_code;
SELECT qtp_code,
qrs_code
FROM OKL_TRX_QUOTES_V
WHERE id = p_quote_id;
SELECT contract_number
FROM OKC_K_HEADERS_V
WHERE id = p_khr_id;
ELSIF (p_term_rec.p_control_flag = 'TRMNT_QUOTE_UPDATE') THEN
-- Get the lookup meaning for quote type
l_quote_type := OKL_AM_UTIL_PVT.get_lookup_meaning(
p_lookup_type => 'OKL_QUOTE_TYPE',
p_lookup_code => p_term_rec.p_quote_type,
p_validate_yn => G_YES);
ELSIF(p_tmt_flag = 'TMT_CONTRACT_UPDATED_YN') THEN
px_tcnv_rec.TMT_CONTRACT_UPDATED_YN := G_YES;
ELSIF(p_tmt_flag = 'TMT_STREAMS_UPDATED_YN') THEN
px_tcnv_rec.TMT_STREAMS_UPDATED_YN := G_YES;
ELSIF(p_tmt_flag = 'TMT_CONTRACT_UPDATED_YN') THEN
px_tcnv_rec.TMT_CONTRACT_UPDATED_YN := G_NO;
ELSIF(p_tmt_flag = 'TMT_STREAMS_UPDATED_YN') THEN
px_tcnv_rec.TMT_STREAMS_UPDATED_YN := G_NO;
ELSIF(p_tmt_flag = 'TMT_CONTRACT_UPDATED_YN') THEN
px_tcnv_rec.TMT_CONTRACT_UPDATED_YN := p_ret_val;
ELSIF(p_tmt_flag = 'TMT_STREAMS_UPDATED_YN') THEN
px_tcnv_rec.TMT_STREAMS_UPDATED_YN := p_ret_val;
SELECT TRN.tmt_recycle_yn
FROM OKL_TRX_CONTRACTS TRN
WHERE TRN.khr_id = p_khr_id
AND TRN.tmt_status_code NOT IN ('PROCESSED', 'CANCELED') --akrangan changes for sla tmt_status_code cr
AND TRN.tcn_type in ( 'TMT','EVG') --akrangan bug 5354501 fix added 'EVG'
AND TRN.representation_type = 'PRIMARY'; --rkuttiya added for 12.1.1
SELECT date_last_interim_interest_cal
FROM okl_k_headers
WHERE id = p_khr_id;
SELECT QVE.VALUE value
FROM OKL_PDT_QUALITYS PQY,
OKL_PDT_PQY_VALS PQV,
OKL_PQY_VALUES QVE
WHERE PQV.PDT_ID IN (SELECT pdt_id FROM OKL_K_HEADERS WHERE id = p_khr_id)
AND PQV.QVE_ID = QVE.ID
AND QVE.PQY_ID = PQY.ID
AND PQY.NAME ='INTEREST_CALCULATION_BASIS';
SELECT end_date
FROM okc_k_headers_b
WHERE id = cp_khr_id;
PROCEDURE update_quote_status(p_term_rec IN term_rec_type) IS
lp_qtev_rec OKL_TRX_QUOTES_PUB.qtev_rec_type;
l_module_name VARCHAR2(500) := G_MODULE_NAME || 'UPDATE_QUOTE_STATUS';
SELECT tmt_status_code
FROM okl_trx_contracts trx
WHERE trx.qte_id = p_qte_id
--rkuttiya added for 12.1.1 Multi GAAP
AND trx.representation_type = 'PRIMARY';
SELECT qst_code
FROM okl_trx_quotes_v
WHERE id = p_qte_id
AND (qtp_code LIKE 'TER%' OR qtp_code LIKE 'RES%');
OKL_TRX_QUOTES_PUB.update_trx_quotes (
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => lx_msg_count,
x_msg_data => lx_msg_data,
p_qtev_rec => lp_qtev_rec,
x_qtev_rec => lx_qtev_rec);
END update_quote_status;
PROCEDURE update_k_hdr_and_lines(
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_status IN VARCHAR2,
p_term_rec IN term_rec_type,
p_klev_tbl IN klev_tbl_type,
p_trn_reason_code IN VARCHAR2,
px_overall_status IN OUT NOCOPY VARCHAR2,
px_tcnv_rec IN OUT NOCOPY tcnv_rec_type,
x_chrv_rec OUT NOCOPY chrv_rec_type,
x_clev_tbl OUT NOCOPY clev_tbl_type,
p_sys_date IN DATE) IS
-- Cursor to get the ste code
CURSOR get_old_ste_code_csr(p_sts_code VARCHAR2) IS
SELECT STE_CODE
FROM OKC_STATUSES_V
WHERE CODE = p_sts_code;
SELECT id,
object_version_number,
sts_code,
authoring_org_id --CDUBEY authoring_org_id added for MOAC
FROM OKC_K_HEADERS_B
WHERE id = p_term_rec.p_contract_id;
SELECT KLE.id kle_id,
KLE.line_number line_number
FROM OKC_K_LINES_B KLE,
OKC_K_HEADERS_B KHR
WHERE KLE.dnz_chr_id = p_khr_id
AND KLE.sts_code = KHR.sts_code
AND KLE.dnz_chr_id = KHR.id;
SELECT meaning
FROM OKC_STATUSES_V
WHERE code = p_sts_code;
l_api_name VARCHAR2(30) := 'update_k_hdr_and_lines';
l_module_name VARCHAR2(500) := G_MODULE_NAME || 'update_k_hdr_and_lines';
SAVEPOINT update_k_hdr_lines;
update_quote_status(p_term_rec);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKC_CONTRACT_PUB.update_contract_line');
OKC_CONTRACT_PUB.update_contract_line(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => lp_clev_tbl,
x_clev_tbl => lx_clev_tbl);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_linel_return_status ='||l_return_status);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKC_CONTRACT_PUB.update_contract_header');
OKC_CONTRACT_PUB.update_contract_header(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_restricted_update => OKL_API.G_TRUE,
p_chrv_rec => lp_chrv_rec,
x_chrv_rec => lx_chrv_rec);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKC_CONTRACT_PUB.update_contract_header l_return_status = '||l_return_status);
p_tmt_flag => 'TMT_CONTRACT_UPDATED_YN',
p_tsu_code => 'PROCESSED',
px_tcnv_rec => px_tcnv_rec);
ROLLBACK TO update_k_hdr_lines;
p_tmt_flag => 'TMT_CONTRACT_UPDATED_YN',
p_tsu_code => 'ERROR',
px_tcnv_rec => px_tcnv_rec);
ROLLBACK TO update_k_hdr_lines;
p_tmt_flag => 'TMT_CONTRACT_UPDATED_YN',
p_tsu_code => 'ERROR',
px_tcnv_rec => px_tcnv_rec);
ROLLBACK TO update_k_hdr_lines;
p_tmt_flag => 'TMT_CONTRACT_UPDATED_YN',
p_tsu_code => 'ERROR',
px_tcnv_rec => px_tcnv_rec);
END update_k_hdr_and_lines;
IF p_trn_mode = 'INSERT' THEN
IF (is_debug_statement_on) THEN
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.create_trx_contracts');
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_TRX_CONTRACTS_PUB.insert_trx_contracts l_return_status = '||l_return_status);
ELSIF p_trn_mode = 'UPDATE' THEN
IF (is_debug_statement_on) THEN
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_TRX_CONTRACTS_PUB.update_trx_contracts');
OKL_TRX_CONTRACTS_PUB.update_trx_contracts(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tcnv_rec => lp_tcnv_rec,
x_tcnv_rec => lx_tcnv_rec);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_TRX_CONTRACTS_PUB.update_trx_contracts l_return_status = '||l_return_status);
SELECT depreciation_category,
corporate_book,
salvage_value,
deprn_method_code,
life_in_months,
parent_line_id,
asset_number,
item_description,
asset_id,
original_cost,
current_units,
in_service_date
FROM OKX_ASSET_LINES_V
WHERE dnz_chr_id = p_term_rec.p_contract_id;
SELECT original_cost
FROM okl_txl_assets_v
WHERE tal_type = 'CFA'
AND asset_number = p_asset_number
AND ROWNUM < 2;
SELECT oec, residual_value
FROM okl_k_lines_full_v
WHERE id = p_id;
SELECT deal_type
FROM OKL_K_HEADERS_FULL_V
WHERE id = p_term_rec.p_contract_id;
SELECT khr.end_date,
khr.sts_code
FROM OKC_K_HEADERS_V khr
WHERE khr.id = p_khr_id;
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling update_k_hdr_and_lines');
update_k_hdr_and_lines(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_status => 'EVERGREEN',
p_term_rec => p_term_rec,
p_klev_tbl => lx_klev_tbl,
p_trn_reason_code => px_tcnv_rec.trn_code,
px_overall_status => px_overall_status,
px_tcnv_rec => px_tcnv_rec,
x_chrv_rec => lx_chrv_rec,
x_clev_tbl => lx_clev_tbl,
p_sys_date => p_sys_date);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called update_k_hdr_and_lines l_return_status = '||l_return_status);
SELECT end_date
FROM OKC_K_HEADERS_B
WHERE id = p_chr_id;
SELECT STM.id
FROM OKL_STREAMS_V STM,
OKL_STRM_TYPE_B STY
WHERE STM.khr_id = p_chr_id
AND STM.say_code = 'CURR'
AND STM.STY_ID = STY.ID
AND STY.ID NOT IN (nvl(p_sty_id, OKL_API.G_MISS_NUM)) -- rmunjulu 4058630 check for NVL
AND nvl(STY.STREAM_TYPE_SUBCLASS, 'X') NOT IN ('INVESTOR_DISBURSEMENT') -- new subclass
-- AND nvl(STM.sgn_code,'*') <> 'INTC'; -- rmunjulu 11-Apr-06 ER 5139307
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
AND NVL(px_tcnv_rec.tmt_streams_updated_yn, '?') <> G_YES)
OR (p_trn_already_set = G_NO) THEN
-- if streams found then
IF (l_streams_found = G_YES) THEN
i := 1;
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling OKL_STREAMS_PUB.update_streams');
OKL_STREAMS_PUB.update_streams(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_stmv_tbl => lp_stmv_tbl,
x_stmv_tbl => lx_stmv_tbl);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called OKL_STREAMS_PUB.update_streams l_return_status ='||l_return_status);
p_tmt_flag => 'TMT_STREAMS_UPDATED_YN',
p_tsu_code => 'WORKING',
px_tcnv_rec => px_tcnv_rec);
p_tmt_flag => 'TMT_STREAMS_UPDATED_YN',
p_tsu_code => 'WORKING',
p_ret_val => NULL,
px_tcnv_rec => px_tcnv_rec);
p_tmt_flag => 'TMT_STREAMS_UPDATED_YN',
p_tsu_code => 'ERROR',
px_tcnv_rec => px_tcnv_rec);
p_tmt_flag => 'TMT_STREAMS_UPDATED_YN',
p_tsu_code => 'ERROR',
px_tcnv_rec => px_tcnv_rec);
p_tmt_flag => 'TMT_STREAMS_UPDATED_YN',
p_tsu_code => 'ERROR',
px_tcnv_rec => px_tcnv_rec);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'px_tcnv_rec.tmt_streams_updated_yn = '||px_tcnv_rec.tmt_streams_updated_yn);
'Process_Auto_Invoice.okl_trx_ar_invoices_pub.insert_trx_ar_invoices.',
'Start(+)');
OKL_TRX_AR_INVOICES_PUB.insert_trx_ar_invoices (
p_api_version => P_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_taiv_rec => l_taiv_rec,
x_taiv_rec => lx_taiv_rec);
'Process_Auto_Invoice.okl_trx_ar_invoices_pub.insert_trx_ar_invoices.',
'End(-)');
'Process_Auto_Invoice.okl_trx_ar_invoices_pub.insert_txl_ar_inv_lns.',
'Start(+)');
OKL_TXL_AR_INV_LNS_PUB.insert_txl_ar_inv_lns (
p_api_version => l_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_tilv_rec => l_tilv_rec,
x_tilv_rec => lx_tilv_rec);
'Process_Auto_Invoice.okl_trx_ar_invoices_pub.insert_txl_ar_inv_lns.',
'End(-)');
SELECT SUM(amount_due_remaining)
FROM OKL_BPD_LEASING_PAYMENT_TRX_V
WHERE contract_id = p_khr_id
AND invoice_date <= p_trn_date; -- rmunjulu EDAT -- Added condition to get only
SELECT OBLP.amount_due_remaining AMOUNT,
OBLP.stream_type_id STREAM_TYPE_ID,
OSTY.name STREAM_MEANING,
OBLP.payment_schedule_id SCHEDULE_ID,
OBLP.receivables_invoice_number AR_INVOICE_NUMBER,
OTIL.id TIL_ID,
-999 TLD_ID
FROM OKL_BPD_LEASING_PAYMENT_TRX_V OBLP,
OKL_TXL_AR_INV_LNS_V OTIL,
OKL_STRM_TYPE_V OSTY
WHERE OBLP.contract_id = p_khr_id
AND OBLP.receivables_invoice_id = OTIL.receivables_invoice_id
AND OBLP.stream_type_id = OSTY.id
AND OBLP.amount_due_remaining > 0
AND OBLP.invoice_date <= p_trn_date -- rmunjulu EDAT -- Added condition to get only
--those invoices which are before quote effective date
UNION
SELECT OBLP.amount_due_remaining AMOUNT,
OBLP.stream_type_id STREAM_TYPE_ID,
OSTY.name STREAM_MEANING,
OBLP.payment_schedule_id SCHEDULE_ID,
OBLP.receivables_invoice_number AR_INVOICE_NUMBER,
OTAI.til_id_details TIL_ID,
OTAI.id TLD_ID
FROM OKL_BPD_LEASING_PAYMENT_TRX_V OBLP,
OKL_TXD_AR_LN_DTLS_V OTAI,
OKL_STRM_TYPE_V OSTY
WHERE OBLP.contract_id = p_khr_id
AND OBLP.receivables_invoice_id = OTAI.receivables_invoice_id
AND OBLP.stream_type_id = OSTY.id
AND OBLP.amount_due_remaining > 0
AND OBLP.invoice_date <= p_trn_date; -- rmunjulu EDAT -- Added condition to get only
SELECT pdt_id
FROM OKL_K_HEADERS_V
WHERE id = p_khr_id;
SELECT DST.code_combination_id
FROM OKL_TRNS_ACC_DSTRS DST
WHERE DST.source_id = p_source_id
AND DST.source_table = p_source_table
AND DST.cr_dr_flag = 'D'
AND DST.percentage = 100;
OKL_TRX_AR_ADJSTS_PUB.insert_trx_ar_adjsts(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_adjv_rec => lp_adjv_rec,
x_adjv_rec => lx_adjv_rec);
OKL_TXL_ADJSTS_LNS_PUB.insert_txl_adjsts_lns(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ajlv_rec => lp_ajlv_rec,
x_ajlv_rec => lx_ajlv_rec);
OKL_TXL_ADJSTS_LNS_PUB.update_txl_adjsts_lns(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ajlv_rec => lp_ajlv_rec,
x_ajlv_rec => lx_ajlv_rec);
OKL_TXL_ADJSTS_LNS_PUB.insert_txl_adjsts_lns(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ajlv_tbl => lp_ajlv_tbl,
x_ajlv_tbl => lx_ajlv_tbl);
SELECT khr.pdt_id,
chr.end_date, -- rmunjulu Bug 4162862
khr.deal_type, -- rmunjulu bug 4424713
chr.scs_code -- rmunjulu 4622198
,chr.org_id --akrangan added for sla ae uptake cr
,khr.multi_gaap_yn --MGAAP 7263041
,pdt.reporting_pdt_id --MGAAP 7263041
FROM okl_k_headers_v khr,
okc_k_headers_b chr, -- rmunjulu Bug 4162862
okl_products pdt
WHERE khr.id = p_khr_id AND khr.id = chr.id -- rmunjulu Bug 4162862
AND khr.pdt_id = pdt.ID; -- MGAAP 7263041
SELECT description FROM okl_products_v WHERE id = p_pdt_id;
SELECT okl_line.fee_type fee_type
FROM okl_k_lines okl_line,
okc_k_lines_b okc_line,
okc_line_styles_b lse,
okl_streams stm
WHERE okl_line.id = okc_line.id AND
okc_line.lse_id = lse.id AND lse.lty_code = 'FEE' AND
okc_line.chr_id = p_khr_id AND
stm.khr_id = okc_line.chr_id AND
stm.kle_id = okc_line.id AND
stm.sty_id = p_sty_id AND
stm.active_yn = 'Y' AND
stm.say_code = 'CURR' AND
okc_line.id = P_kle_id; -- Parameter added by ansethur for bug#6156337
SELECT sty.id Primary_sty_id, sty.code,okc_line.id kle_id
FROM okc_k_lines_b okc_line,
okc_line_styles_b lse,
okc_k_items item,
okl_strm_type_b sty
WHERE okc_line.dnz_chr_id = p_khr_id
AND okc_line.lse_id = lse.id
AND lse.lty_code = 'FEE'
AND item.cle_id = okc_line.id
AND item.JTOT_OBJECT1_CODE = 'OKL_STRMTYP'
AND item.OBJECT1_ID2 = '#'
AND item.OBJECT1_ID1 = sty.id
AND sty.STREAM_TYPE_PURPOSE = 'EXPENSE';
SELECT MAX(stream_element_date)
FROM okl_strm_elements_v sel,
okl_streams stm
WHERE sel.stm_id = stm.id AND
stm.sty_id IN (p_pretax_sty_id, p_rentaccrual_sty_id,
p_interestincome_sty_id) AND stm.khr_id = p_khr_id;
SELECT MAX(stream_element_date)
FROM okl_strm_elements_v sel,
okl_streams stm
WHERE sel.stm_id = stm.id AND
stm.sty_id = p_sty_id AND stm.khr_id = p_khr_id;
SELECT chr.sts_code
FROM okc_k_headers_b chr
WHERE chr.id = p_khr_id;
SELECT nvl(chk_accrual_previous_mnth_yn, 'N')
FROM okl_system_params;
SELECT oklv.id kle_id,
oklv.NAME asset_name
FROM okc_k_lines_v oklv,
okc_line_styles_v olsv,
okc_k_headers_v khr
WHERE oklv.chr_id = p_khr_id AND oklv.lse_id = olsv.id AND
olsv.lty_code IN
('FREE_FORM1', 'FEE', 'SOLD_SERVICE') AND
oklv.chr_id = khr.id AND oklv.sts_code = khr.sts_code;
SELECT attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15
FROM okl_k_headers okl
WHERE okl.id = p_khr_id;
SELECT attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15
FROM okl_k_lines okl
WHERE okl.id = p_kle_id;
SELECT NAME,
tax_owner
FROM okl_product_parameters_v
WHERE id = p_pdt_id;
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'calling okl_trx_contracts_pub.update_trx_contracts');
okl_trx_contracts_pub.update_trx_contracts(p_api_version => p_api_version,
p_init_msg_list => okl_api.g_false,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tcnv_rec => lip_tcnv_rec,
p_tclv_tbl => l_tclv_tbl,
x_tcnv_rec => lix_tcnv_rec,
x_tclv_tbl => lx_tclv_tbl);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'called okl_trx_contracts_pub.update_trx_contracts l_return_status = '||l_return_status);
SELECT cle.id,
cim.object1_id1,
cim.object1_id2,
cim.number_of_items,
fa_kle.year_of_manufacture
FROM okc_k_lines_b cle,
okc_k_items cim,
okc_line_styles_b lse,
okc_statuses_b sts,
okl_k_lines fa_kle,
okc_k_lines_b fa_cle,
okc_line_styles_b fa_lse
WHERE cle.dnz_chr_id = p_chr_id
AND cle.cle_id = p_cle_id
AND cle.lse_id = lse.id
AND lse.lty_code = p_lty_code
AND cim.cle_id = cle.id
AND cim.dnz_chr_id = cle.dnz_chr_id
AND sts.code = cle.sts_code
AND sts.ste_code NOT IN ('HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED')
AND fa_cle.id = p_cle_id
AND fa_kle.id = fa_cle.id
AND fa_cle.lse_id = fa_lse.id
AND fa_lse.lty_code = 'FREE_FORM1';
SELECT asset_category_id
FROM mtl_system_items
WHERE inventory_item_id = p_inv_item_id
AND organization_id = p_org_id;
SELECT NAME, ITEM_DESCRIPTION
FROM OKC_K_LINES_TL
WHERE ID = p_cle_id
AND LANGUAGE = USERENV('LANG');
SELECT DATE_RETURNED, ASSET_FMV_AMOUNT
FROM OKL_ASSET_RETURNS_B
WHERE KLE_ID = p_cle_id
AND ARS_CODE = 'REPOSSESSED';
SELECT DEPRN_EXPENSE_ACCOUNT_CCID
FROM FA_CATEGORY_BOOKS
WHERE BOOK_TYPE_CODE = p_book_type_code
AND CATEGORY_ID = p_category_id;
SELECT ITM.ID
FROM OKC_K_ITEMS ITM,
OKC_K_LINES_B CLE,
OKC_LINE_STYLES_B LSE
WHERE ITM.CLE_ID = cle.ID
AND CLE.CLE_ID = p_cle_id
AND CLE.LSE_ID = LSE.ID
AND LSE.LTY_CODE = 'FIXED_ASSET';
SELECT DEPRN_METHOD_CODE,
LIFE_IN_MONTHS,
COST,
SALVAGE_VALUE
FROM FA_BOOKS
WHERE ASSET_ID = p_asset_id
AND BOOK_TYPE_CODE = p_book_type_code ;
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling okl_okc_migration_pvt.update_contract_item');
okl_okc_migration_pvt.update_contract_item(
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_cimv_rec =>l_cim_rec,
x_cimv_rec =>x_cim_rec);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_okc_migration_pvt.update_contract_item x_return_status = '||x_return_status);
SELECT try_id
FROM OKL_TRX_ASSETS
WHERE id = p_tas_id;
SELECT QTP_CODE,
QUOTE_NUMBER,
DATE_ACCEPTED,
REPO_QUOTE_INDICATOR_YN
FROM OKL_TRX_QUOTES_B
WHERE ID = p_quote_id;
SELECT cle.id,
cim.object1_id1,
cim.object1_id2,
cim.number_of_items,
fa_kle.year_of_manufacture
FROM okc_k_lines_b cle,
okc_k_items cim,
okc_line_styles_b lse,
okc_statuses_b sts,
okl_k_lines fa_kle,
okc_k_lines_b fa_cle,
okc_line_styles_b fa_lse
WHERE cle.dnz_chr_id = p_chr_id
AND cle.cle_id = p_cle_id
AND cle.lse_id = lse.id
AND lse.lty_code = p_lty_code
AND cim.cle_id = cle.id
AND cim.dnz_chr_id = cle.dnz_chr_id
AND sts.code = cle.sts_code
AND sts.ste_code NOT IN ('HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED')
AND fa_cle.id = p_cle_id
AND fa_kle.id = fa_cle.id
AND fa_cle.lse_id = fa_lse.id
AND fa_lse.lty_code = 'FREE_FORM1';
SELECT asset_category_id
FROM mtl_system_items
WHERE inventory_item_id = p_inv_item_id
AND organization_id = p_org_id;
SELECT NAME, ITEM_DESCRIPTION
FROM OKC_K_LINES_TL
WHERE ID = p_cle_id
AND LANGUAGE = USERENV('LANG');
SELECT DATE_RETURNED, ASSET_FMV_AMOUNT
FROM OKL_ASSET_RETURNS_B
WHERE KLE_ID = p_cle_id
AND ARS_CODE = 'REPOSSESSED';
SELECT DEPRN_EXPENSE_ACCOUNT_CCID
FROM FA_CATEGORY_BOOKS
WHERE BOOK_TYPE_CODE = p_book_type_code
AND CATEGORY_ID = p_category_id;
SELECT ITM.ID
FROM OKC_K_ITEMS ITM,
OKC_K_LINES_B CLE,
OKC_LINE_STYLES_B LSE
WHERE ITM.CLE_ID = cle.ID
AND CLE.CLE_ID = p_cle_id
AND CLE.LSE_ID = LSE.ID
AND LSE.LTY_CODE = 'FIXED_ASSET';
SELECT DEPRN_METHOD_CODE,
LIFE_IN_MONTHS,
COST,
SALVAGE_VALUE
FROM FA_BOOKS
WHERE ASSET_ID = p_asset_id
AND BOOK_TYPE_CODE = p_book_type_code ;
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Calling okl_okc_migration_pvt.update_contract_item');
okl_okc_migration_pvt.update_contract_item(
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_cimv_rec =>l_cim_rec,
x_cimv_rec =>x_cim_rec);
OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name ,'Called okl_okc_migration_pvt.update_contract_item x_return_status = '||x_return_status);
okl_debug_pub.logmessage('AKP:After update_item: x_return_status=' || x_return_status || ' x_cim_rec.object1_id1=' || x_cim_rec.object1_id1);
SELECT asset_id,
line_number
FROM OKX_ASSET_LINES_V A
WHERE parent_line_id = p_l_id;
SELECT amount
FROM OKL_TXL_QUOTE_LINES_V TQL
WHERE kle_id = p_kle_id
AND qte_id = p_qte_id
AND qlt_code = 'AMBPOC'; -- Purchase Amount
SELECT NVL(OTQV.REPO_QUOTE_INDICATOR_YN, 'N'),
KHR.DEAL_TYPE,
CHR.AUTHORING_ORG_ID
FROM OKL_TRX_QUOTES_V OTQV,
OKL_K_HEADERS KHR,
OKC_K_HEADERS_B CHR
WHERE OTQV.ID = p_quote_id
AND OTQV.KHR_ID = KHR.ID
AND KHR.ID = CHR.ID;
SELECT ASST_ADD_BOOK_TYPE_CODE CORPORATE_BOOK,
TAX_BOOK_1,
TAX_BOOK_2,
RPT_PROD_BOOK_TYPE_CODE,
FA_LOCATION_ID,
ASSET_KEY_ID,
DEPRECIATE_YN
FROM OKL_SYSTEM_PARAMS_ALL
WHERE ORG_ID = p_org_id;
SELECT id
FROM OKL_TRX_TYPES_tl
WHERE upper(name) = upper(p_try_name)
AND language = 'US';
SELECT end_date
FROM OKC_K_HEADERS_V
WHERE id = p_khr_id;
SELECT id id,
OKL_AM_UTIL_PVT.get_lookup_meaning('OKL_ASSET_RETURN_STATUS',ars_code,'N') ret_status
FROM OKL_ASSET_RETURNS_V
WHERE kle_id = p_kle_id
AND ars_code <> 'CANCELLED';
SELECT SYSDATE INTO l_sys_date FROM DUAL;
p_trn_mode => 'INSERT');
p_control_flag => 'UPDATE',
x_return_status => l_return_status,
--akrangan bug 5354501 fix start
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
p_trn_mode => 'UPDATE');
p_trn_mode => 'UPDATE');
p_trn_mode => 'UPDATE');
update_k_hdr_and_lines(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_status => l_status,
p_term_rec => l_term_rec,
p_klev_tbl => lx_klev_tbl,
p_trn_reason_code => lp_tcnv_rec.trn_code,
px_overall_status => l_overall_status,
px_tcnv_rec => lp_tcnv_rec,
x_chrv_rec => lx_chrv_rec,
x_clev_tbl => lx_clev_tbl,
p_sys_date => l_sys_date);
p_tmt_flag => 'TMT_CONTRACT_UPDATED_YN',
p_tsu_code => 'PROCESSED',
px_tcnv_rec => lp_tcnv_rec);
ELSE -- Update of K hdr and lines failed
-- Contract table update failed.
OKL_API.set_message( p_app_name => G_APP_NAME,
p_msg_name => 'OKL_AM_ERR_K_UPD');
p_tmt_flag => 'TMT_CONTRACT_UPDATED_YN',
p_tsu_code => 'ERROR',
px_tcnv_rec => lp_tcnv_rec);
p_trn_mode => 'UPDATE');