The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT scs_code
FROM okc_k_headers_b
WHERE scs_code = 'SYNDICATION'
AND id = p_khr_id;
SELECT 1
FROM okc_rules_b
WHERE dnz_chr_id = p_khr_id
AND rule_information_category = 'LAFCTG';
** the operation (insert, update ,delete)
*/
PROCEDURE AddfailMsg
( p_object IN VARCHAR2,
p_operation IN VARCHAR2 ) IS
BEGIN
fnd_message.set_name('OKL', 'OKL_FAILED_OPERATION');
fnd_message.set_token('UPDATE', p_operation);
SELECT application_id
FROM fnd_application_vl
WHERE application_short_name = x_short_name;
SELECT msg.message_number
FROM fnd_new_messages msg, fnd_languages_vl lng
WHERE msg.message_name = x_msg
and msg.application_id = x_id
and lng.LANGUAGE_CODE = msg.language_code
and lng.language_id = x_lang_id;
PROCEDURE UPDATE_CRT ( p_report_id IN NUMBER,
p_status IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(50) := 'UPDATE_CRT';
select object_version_number
from okl_cure_reports
where cure_report_id =p_report_id;
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : START ');
SAVEPOINT UPDATE_CRT;
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start update_cure_reports');
p_operation => 'UPDATE' );
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : lp_crtv_rec.cure_report_id : '||lp_crtv_rec.cure_report_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : lp_crtv_rec.approval_status : '||lp_crtv_rec.approval_status);
okl_cure_reports_pub.update_cure_reports(
p_api_version =>1.0
,p_init_msg_list =>FND_API.G_FALSE
,x_return_status =>l_return_status
,x_msg_count =>l_msg_count
,x_msg_data =>l_msg_data
,p_crtv_rec =>lp_crtv_rec
,x_crtv_rec =>xp_crtv_rec);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : okl_cure_reports_pub.update_cure_reports : '||l_return_status);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated cure reports table ');
' End of Procedure => OKL_PAY_RECON_PVT.UPDATE_CRT');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CRT : END ');
ROLLBACK TO UPDATE_CRT;
ROLLBACK TO UPDATE_CRT;
ROLLBACK TO UPDATE_CRT;
Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RECON_PVT','UPDATE_CRT');
END UPDATE_CRT;
PROCEDURE UPDATE_CAM ( p_cam_tbl IN cure_amount_tbl,
p_report_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(50) := 'UPDATE_CAM';
select a.object_version_number,a.cure_amount,b.khr_id
from okl_cure_amounts a, okl_k_headers b
where cure_amount_id =p_cam_id
and a.chr_id =b.id;
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : START ');
SAVEPOINT UPDATE_CAM;
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start update_cure amounts');
p_operation => 'UPDATE' );
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : okl_contract_info.get_rule_value : '||l_return_status);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.cure_amount_id : '||lp_camv_rec.cure_amount_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.negotiated_amount : '||lp_camv_rec.negotiated_amount);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.crt_id : '||lp_camv_rec.crt_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : lp_camv_rec.process : '||lp_camv_rec.process);
okl_cure_amounts_pub.update_cure_amounts(
p_api_version =>1.0
,p_init_msg_list =>FND_API.G_FALSE
,x_return_status =>l_return_status
,x_msg_count =>l_msg_count
,x_msg_data =>l_msg_data
,p_camv_rec =>lp_camv_rec
,x_camv_rec =>xp_camv_rec);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : okl_cure_amounts_pub.update_cure_amounts : '||l_return_status);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated cure amounts table ');
,' End of Procedure => OKL_PAY_RECON_PVT.UPDATE_CAM');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CAM : END ');
ROLLBACK TO UPDATE_CAM;
ROLLBACK TO UPDATE_CAM;
ROLLBACK TO UPDATE_CAM;
Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RECON_PVT','UPDATE_CAM');
END UPDATE_CAM;
PROCEDURE UPDATE_INVOICE_HDR_LINES
(p_negotiated_amount IN NUMBER,
p_tai_id IN NUMBER,
p_trx_status IN VARCHAR2,
p_invoice_date IN DATE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(50) := 'UPDATE_INVOICE_HDR_LINES';
SELECT object_version_number
FROM okl_trx_ar_invoices_b
WHERE id = p_tai_id;
SELECT object_version_number,id
FROM okl_txl_ar_inv_lns_b
WHERE tai_id = p_tai_id;
SELECT object_version_number,id
FROM OKL_TXD_AR_LN_DTLS_b
WHERE til_id_details = p_til_id_details;
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : START ');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_tai_id : '||p_tai_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
SAVEPOINT UPDATE_INVOICE_HDR_LINES;
, 'start UPDATE_INVOICE_HDR_LINES');
p_operation => 'UPDATE' );
okl_trx_ar_invoices_pub.update_trx_ar_invoices
(p_api_version => 1.0,
p_init_msg_list => 'F',
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_taiv_rec => lp_taiv_rec,
x_taiv_rec => xp_taiv_rec);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : okl_trx_ar_invoices_pub.update_trx_ar_invoices : '||l_return_status);
p_operation => 'UPDATE' );
okl_txl_ar_inv_lns_pub.update_txl_ar_inv_lns
(p_api_version => 1.0,
p_init_msg_list => 'F',
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_tilv_rec => lp_tilv_rec,
x_tilv_rec => xp_tilv_rec);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : okl_txl_ar_inv_lns_pub.update_txl_ar_inv_lns : '||l_return_status);
p_operation => 'UPDATE' );
okl_tld_pvt.update_row(
p_api_version => 1.0,
p_init_msg_list => 'F',
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_tldv_rec => lp_tldv_rec,
x_tldv_rec => xp_tldv_rec);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : okl_tld_pvt.update_row : '||l_return_status);
,' End of Procedure => OKL_PAY_RECON_PVT.UPDATE_INVOICE_HDR_LINES');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICE_HDR_LINES : END ');
ROLLBACK TO UPDATE_INVOICE_HDR_LINES;
ROLLBACK TO UPDATE_INVOICE_HDR_LINES;
ROLLBACK TO UPDATE_INVOICE_HDR_LINES;
Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RECON_PVT','UPDATE_INVOICE_HDR_LINES');
END update_invoice_hdr_lines;
SELECT c.minimum_accountable_unit,
c.PRECISION
FROM fnd_currencies c,
okl_trx_ar_invoices_b b
WHERE c.currency_code = b.currency_code
AND b.khr_id = p_khr_id;
SELECT NVL(inv_organization_id, -99)
FROM okc_k_headers_b
WHERE id = p_contract_id;
PROCEDURE INSERT_INVOICE_HDR_LINES
(p_negotiated_amount IN NUMBER,
p_cam_id IN NUMBER,
p_trx_status IN VARCHAR2,
p_invoice_date IN DATE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(50) := 'INSERT_INVOICE_HDR_LINES';
SELECT cam.chr_id chr_id
,chr.currency_code currency_code
,chr.conversion_type conversion_type
,chr.conversion_rate conversion_rate
,chr.conversion_rate_date conversion_rate_date
,chr.authoring_org_id org_id
FROM okl_cure_amounts cam
,okc_k_headers_b chr
WHERE chr.id = cam.chr_id
AND cam.cure_amount_id = p_cam_id;
SELECT cust_trx_type_id l_cust_trx_type_id
FROM ra_cust_trx_types
WHERE name = 'Invoice-OKL';
SELECT id FROM okl_trx_types_tl
WHERE name = 'Billing' AND language = 'US';
SELECT c.receipt_method_id
FROM ra_cust_receipt_methods c
WHERE c.cust_receipt_method_id = cp_cust_rct_mthd;
SELECT a.cust_account_id cust_account_id,
a.cust_acct_site_id cust_acct_site_id,
a.payment_term_id payment_term_id
FROM okx_cust_site_uses_v a,
okx_customer_accounts_v c
WHERE a.id1 = cp_site_use_id
AND a.site_use_code = cp_site_use_code
AND c.id1 = a.cust_account_id;
SELECT c.standard_terms standard_terms
FROM hz_customer_profiles c
WHERE c.cust_account_id = cp_cust_id
AND c.site_use_id = cp_site_use_id
UNION
SELECT c1.standard_terms standard_terms
FROM hz_customer_profiles c1
WHERE c1.cust_account_id = cp_cust_id
AND c1.site_use_id IS NULL
AND NOT EXISTS (
SELECT '1'
FROM hz_customer_profiles c2
WHERE c2.cust_account_id = cp_cust_id
AND c2.site_use_id = cp_site_use_id);
select BILL_TO_SITE_USE_ID
from okc_k_party_roles_v
where dnz_chr_id = p_program_id
and RLE_CODE ='OKL_VENDOR';
select khr_id from okl_k_headers where id= p_contract_id;
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : START ');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_cam_id : '||p_cam_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_trx_status : '||p_trx_status);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_invoice_date : '||p_invoice_date);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : p_negotiated_amount : '||p_negotiated_amount);
SAVEPOINT INSERT_INVOICE_HDR_LINES;
, 'start INSERT_INVOICE_HDR_LINES');
p_operation => 'INSERT' );
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.khr_id : '||lp_taiv_rec.khr_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_code : '||lp_taiv_rec.currency_code);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_type : '||lp_taiv_rec.currency_conversion_type);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_rate : '||lp_taiv_rec.currency_conversion_rate);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.currency_conversion_date : '||lp_taiv_rec.currency_conversion_date);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.org_id : '||lp_taiv_rec.org_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.try_id : '||lp_taiv_rec.try_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_tilv_rec.sty_id : '||lp_tilv_rec.sty_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : l_program_id : '||l_program_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : l_bill_to_address_id : '||l_bill_to_address_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.ibt_id : '||lp_taiv_rec.ibt_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.ixx_id : '||lp_taiv_rec.ixx_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.irt_id : '||lp_taiv_rec.irt_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.irm_id : '||lp_taiv_rec.irm_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : lp_taiv_rec.cust_trx_type_id : '||lp_taiv_rec.cust_trx_type_id);
okl_trx_ar_invoices_pub.INSERT_trx_ar_invoices
(p_api_version => 1.0,
p_init_msg_list => 'F',
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_taiv_rec => lp_taiv_rec,
x_taiv_rec => xp_taiv_rec);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_trx_ar_invoices_pub.INSERT_trx_ar_invoices : '||l_return_status);
p_operation => 'INSERT' );
okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns
(p_api_version => 1.0,
p_init_msg_list => 'F',
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_tilv_rec => lp_tilv_rec,
x_tilv_rec => xp_tilv_rec);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_txl_ar_inv_lns_pub.insert_txl_ar_inv_lns : '||l_return_status);
p_operation => 'INSERT' );
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_internal_billing_pvt.Get_Invoice_format : '||l_return_status);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : additional_tld_attr : '||l_return_status);
okl_tld_pvt.insert_row(
p_api_version => 1.0,
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_tldv_rec => lp_tldv_rec,
x_tldv_rec => xp_tldv_rec);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : okl_tld_pvt.insert_row : '||l_return_status);
,' End of Procedure => OKL_PAY_RECON_PVT.INSERT_INVOICE_HDR_LINES');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : INSERT_INVOICE_HDR_LINES : END ');
ROLLBACK TO INSERT_INVOICE_HDR_LINES;
ROLLBACK TO INSERT_INVOICE_HDR_LINES;
ROLLBACK TO INSERT_INVOICE_HDR_LINES;
Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RECON_PVT','INSERT_INVOICE_HDR_LINES');
END insert_invoice_hdr_lines;
select cam.qte_id,qte.date_effective_to
from okl_cure_amounts cam, okl_trx_quotes_b qte
where cam.cure_amount_id =p_cam_id
and qte.id =cam.qte_id;
p_operation => 'UPDATE' );
PROCEDURE UPDATE_TAI_TIL (p_cam_tbl IN cure_amount_tbl,
p_invoice_date IN DATE,
p_trx_status IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(50) := 'UPDATE_TAI_TIL';
select id
from okl_trx_ar_invoices_b where
cpy_id =p_cam_id;
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_TAI_TIL : START ');
SAVEPOINT UPDATE_TAI_TIL;
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start UPDATE_TAI_TIL');
update_invoice_hdr_lines (
p_negotiated_amount =>p_cam_tbl(i).negotiated_amount,
p_tai_id =>l_tai_id,
p_trx_status =>p_trx_status,
p_invoice_date =>p_invoice_date,
x_return_status =>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data =>l_msg_data);
insert_invoice_hdr_lines (
p_negotiated_amount =>p_cam_tbl(i).negotiated_amount,
p_cam_id =>p_cam_tbl(i).cam_id,
p_trx_status =>p_trx_status,
p_invoice_date =>p_invoice_date,
x_return_status =>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data =>l_msg_data);
'Error in update tai_til :' ||l_message);
' End of Procedure =>OKL_PAY_RECON_PVT.UPDATE_TAI_TIL');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_TAI_TIL : END ');
ROLLBACK TO UPDATE_TAI_TIL;
ROLLBACK TO UPDATE_TAI_TIL;
ROLLBACK TO UPDATE_TAI_TIL;
Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RECON_PVT','UPDATE_TAI_TIL');
END UPDATE_TAI_TIL;
PROCEDURE UPDATE_INVOICES (p_cam_tbl IN cure_amount_tbl,
p_report_id IN NUMBER,
p_invoice_date IN DATE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(50) := 'UPDATE_INVOICES';
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : START ');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_report_id : '||p_report_id);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : p_invoice_date : '||p_invoice_date);
SAVEPOINT UPDATE_INVOICES;
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start UPDATE_INVOICES');
UPDATE_TAI_TIL(p_cam_tbl =>p_cam_tbl,
p_invoice_date =>p_invoice_date,
p_trx_status =>'WORKING',
x_return_status =>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data =>l_msg_data);
UPDATE_CAM (p_cam_tbl =>p_cam_tbl,
p_report_id =>p_report_id,
x_return_status =>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data =>l_msg_data);
UPDATE_CRT (p_report_id =>p_report_id,
p_status =>'ACCEPTANCE_IN_PROGRESS',
x_return_status =>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data =>l_msg_data);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated cure reports table ');
' End of Procedure =>OKL_PAY_RECON_PVT.update_invoices');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_INVOICES : END ');
ROLLBACK TO UPDATE_INVOICES;
ROLLBACK TO UPDATE_INVOICES;
ROLLBACK TO UPDATE_INVOICES;
Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RECON_PVT','UPDATE_INVOICES');
END UPDATE_INVOICES;
SELECT mo_global.get_current_org_id() l_fnd_profile
FROM dual;
SELECT cust_trx_type_id l_cust_trx_type_id
FROM ra_cust_trx_types
WHERE name = 'Invoice-OKL';
SELECT ct.object1_id1 id
,chr.scs_code scs_code
FROM okc_contacts ct,
okc_contact_sources csrc,
okc_k_party_roles_b pty,
okc_k_headers_b chr
WHERE ct.cpl_id = pty.id
AND ct.cro_code = csrc.cro_code
AND ct.jtot_object1_code = csrc.jtot_object_code
AND ct.dnz_chr_id = chr.id
AND pty.rle_code = csrc.rle_code
AND csrc.cro_code = 'SALESPERSON'
AND csrc.rle_code = 'LESSOR'
AND csrc.buy_or_sell = chr.buy_or_sell
AND pty.dnz_chr_id = chr.id
AND pty.chr_id = chr.id
AND chr.id = p_contract_id;
SELECT bill_to_site_use_id cust_acct_site_id
FROM okc_k_headers_b
WHERE id = p_contract_id;
select currency_code
from OKC_K_HEADERS_b
where id =l_khr_id;
SELECT currency_conversion_type,
currency_conversion_rate,
currency_conversion_date
FROM okl_k_headers
WHERE id = l_khr_id;
SELECT tai.id
,tai.try_id
,til.sty_id
,tld.id
,tai.khr_id
,tai.date_invoiced
,tai.amount
FROM okl_trx_ar_invoices_b tai
,okl_txl_ar_inv_lns_b til
,okl_txd_ar_ln_dtls_b tld
WHERE tai.cpy_id = p_cam_id
AND tai.id = til.tai_id
AND tld.til_id_details = til.id;
SELECT okl.pdt_id
,okl.id
,okc.scs_code -- Bug# 4622198
FROM okl_k_headers okl,
okl_cure_amounts cam,
okc_k_headers_b okc -- Bug# 4622198
WHERE okc.id = okl.id -- Bug# 4622198
and okl.id = cam.chr_id
and cam.cure_amount_id =p_cam_id;
UPDATE_TAI_TIL(p_cam_tbl =>p_cam_tbl,
p_invoice_date =>p_invoice_date,
p_trx_status =>'SUBMITTED',
x_return_status =>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data =>l_msg_data);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : UPDATE_TAI_TIL : '||l_return_status);
UPDATE_CAM (p_cam_tbl =>p_cam_tbl,
p_report_id =>p_report_id,
x_return_status =>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data =>l_msg_data);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : UPDATE_CAM : '||l_return_status);
UPDATE_CRT (p_report_id =>p_report_id,
p_status =>'ACCEPTANCE_COMPLETED',
x_return_status =>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data =>l_msg_data);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : SUBMIT_INVOICES : UPDATE_CRT : '||l_return_status);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated cure reports table ');
PROCEDURE UPDATE_CURE_INVOICE (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.G_FALSE,
p_commit IN VARCHAR2 DEFAULT fnd_api.G_FALSE,
p_report_id IN NUMBER,
p_invoice_date IN DATE,
p_cam_tbl IN cure_amount_tbl,
p_operation IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2) IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CURE_INVOICE : START ');
SAVEPOINT UPDATE_CURE_INVOICE_PVT;
IF p_operation ='UPDATE'
THEN
IF (G_IS_DEBUG_STATEMENT_ON = true)
THEN
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Operation is Update');
Update_invoices (p_cam_tbl =>p_cam_tbl,
p_report_id =>p_report_id,
p_invoice_date =>p_invoice_date,
x_return_status =>l_return_status,
x_msg_count =>l_msg_count,
x_msg_data =>l_msg_data);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CURE_INVOICE : Update_invoices : '||l_return_status);
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CURE_INVOICE : submit_invoices : '||l_return_status);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Invoices updated');
' End of Procedure => OKL_PAY_RECON_PVT.update_Cure_invoices');
okl_debug_pub.logmessage('OKL_CURE_RECON_PVT : UPDATE_CURE_INVOICE : END ');
ROLLBACK TO UPDATE_CURE_INVOICE_PVT;
ROLLBACK TO UPDATE_CURE_INVOICE_PVT;
ROLLBACK TO UPDATE_CURE_INVOICE_PVT;
Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CURE_RECON_PVT','UPDATE_CURE_INVOICE');
END UPDATE_CURE_INVOICE;