The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_last_updated_by NUMBER;
l_last_update_login NUMBER;
select lte.name late_policy
,khr.currency_code
,lpt1.contract_number
,lpt1.contract_id
,NULL consolidated_invoice_id
,lpt1.trx_number consolidated_invoice_number
,sum(lpt1.amount_due_remaining) amount_due_remaining
,max(lpt.due_date) due_date
from
(SELECT
PAY_SCH.DUE_DATE DUE_DATE, RACTRX.STATUS_TRX STATUS,
RACTRX.CUSTOMER_TRX_ID INVOICE_ID,
PAY_SCH.CLASS PAY_SCH_CLASS
FROM
RA_CUSTOMER_TRX_ALL RACTRX,
RA_CUST_TRX_TYPES_ALL RATRXTYPE,
AR_PAYMENT_SCHEDULES_ALL PAY_SCH
WHERE
RACTRX.CUST_TRX_TYPE_ID = RATRXTYPE.CUST_TRX_TYPE_ID
and RACTRX.CUSTOMER_TRX_ID = PAY_SCH.CUSTOMER_TRX_ID
and RACTRX.ORG_ID = RATRXTYPE.ORG_ID ) lpt
,okl_bpd_ar_inv_lines_v lpt1
,okl_k_headers_full_v khr
,okc_rule_groups_b rgp
,okc_rules_b rul
,okc_rules_b rul_exm
,okc_rules_b rul_hld
,okl_late_policies_v lte
,okl_strm_type_b stb --For bug 7356486
where lpt.invoice_id=lpt1.invoice_id
and lpt.pay_sch_class = 'INV'
AND lpt.STATUS = 'OP'
and nvl(lpt1.late_charge_ass_yn, 'N') = 'N'
and lpt1.contract_number = khr.contract_number
AND lpt1.sty_id = stb.id --For bug 7356486
AND lpt1.stream_type_id = stb.id --For bug 7356486
and khr.id = rgp.dnz_chr_id
and rgp.rgd_code = 'LALCGR'
and khr.id = rul.dnz_chr_id
and rgp.id = rul.rgp_id
and rul.rule_information_category = 'LALCPR'
and rul.rule_information1 = lte.id
and (lte.late_policy_type_code = 'LCT' or lte.late_policy_type_code = 'CHG')
and (trunc(lpt.due_date) + nvl(lte.late_chrg_grace_period, 0)) < trunc(sysdate)
and khr.id = rul_exm.dnz_chr_id
and rgp.id = rul_exm.rgp_id
and rul_exm.rule_information_category = 'LALCEX'
and NVL(rul_exm.rule_information1, 'N') = 'N'
and not exists (select 1 from okl_strm_type_exempt_v sty_exm
where lte.id = sty_exm.lpo_id
and lpt1.stream_type_id = sty_exm.sty_id
and NVL(sty_exm.late_policy_exempt_yn, 'N') = 'Y')
and khr.id = rul_hld.dnz_chr_id
and rgp.id = rul_hld.rgp_id
and rul_hld.rule_information_category = 'LAHUDT'
and TRUNC(NVL(FND_DATE.canonical_to_date(rul_hld.rule_information1), sysdate - 1)) < trunc(sysdate)
and khr.authoring_org_id = MO_GLOBAL.get_current_org_id
and stb.STREAM_TYPE_PURPOSE <> 'LATE_FEE' -- for bug 7295166 -- Don't charge late charge on late charge.
group by lte.name
,khr.currency_code
,lpt1.contract_number
,lpt1.contract_id
,null
,lpt1.trx_number
,lpt.due_date
UNION
select lte.name late_policy
,khr.currency_code
,CN.contract_number
,ST.khr_id
,HD.id
,HD.consolidated_invoice_number
,sum(PS.amount_due_remaining) amount_due_remaining
,PS.due_date
from AR_PAYMENT_SCHEDULES_ALL PS
,OKL_CNSLD_AR_STRMS_B ST
,OKL_CNSLD_AR_HDRS_B HD
,OKC_K_HEADERS_ALL_B CN
,OKL_CNSLD_AR_LINES_B LN
,OKL_STRM_TYPE_B SM
,okl_k_headers_full_v khr
,okc_rule_groups_b rgp
,okc_rules_b rul
,okc_rules_b rul_exm
,okc_rules_b rul_hld
,okl_late_policies_v lte
where PS.CLASS IN ('INV', 'CM')
AND ST.RECEIVABLES_INVOICE_ID = PS.CUSTOMER_TRX_ID
AND LN.ID = ST.LLN_ID
AND HD.ID = LN.CNR_ID
AND SM.ID = ST.STY_ID
AND CN.ID = ST.KHR_ID
AND HD.ORG_ID = MO_GLOBAL.get_current_org_id
AND ps.class = 'INV'
AND ps.STATUS = 'OP'
and nvl(st.late_charge_ass_yn, 'N') = 'N'
and st.khr_id = khr.id
and khr.id = rgp.dnz_chr_id
and rgp.rgd_code = 'LALCGR'
and khr.id = rul.dnz_chr_id
and rgp.id = rul.rgp_id
and rul.rule_information_category = 'LALCPR'
and rul.rule_information1 = lte.id
and (lte.late_policy_type_code = 'LCT' or lte.late_policy_type_code = 'CHG')
and (trunc(ps.due_date) + nvl(lte.late_chrg_grace_period, 0)) < trunc(sysdate)
and khr.id = rul_exm.dnz_chr_id
and rgp.id = rul_exm.rgp_id
and rul_exm.rule_information_category = 'LALCEX'
and NVL(rul_exm.rule_information1, 'N') = 'N'
and not exists (select 1 from okl_strm_type_exempt_v sty_exm
where lte.id = sty_exm.lpo_id
and SM.id = sty_exm.sty_id
and NVL(sty_exm.late_policy_exempt_yn, 'N') = 'Y')
and khr.id = rul_hld.dnz_chr_id
and rgp.id = rul_hld.rgp_id
and rul_hld.rule_information_category = 'LAHUDT'
and TRUNC(NVL(FND_DATE.canonical_to_date(rul_hld.rule_information1), sysdate - 1)) < trunc(sysdate)
and khr.authoring_org_id = MO_GLOBAL.get_current_org_id
and SM.STREAM_TYPE_PURPOSE <> 'LATE_FEE' -- for bug 7295166 -- Don't charge late charge on late charge.
group by lte.name
,khr.currency_code
,CN.contract_number
,ST.KHR_id
,HD.id
,HD.consolidated_invoice_number
,PS.due_date;
SELECT lte.name late_policy
,khr.currency_code
,orig_arl.contract_number
,orig_arl.contract_id contract_id
,NULL consolidated_invoice_id
,orig_arl.trx_number consolidated_invoice_number
,sum(orig_arl.amount_due_remaining) amount_due_remaining
,max(last_arv.due_date) due_date
FROM (SELECT
PAY_SCH.DUE_DATE DUE_DATE, RACTRX.STATUS_TRX STATUS,
RACTRX.CUSTOMER_TRX_ID INVOICE_ID,
PAY_SCH.CLASS PAY_SCH_CLASS
FROM
RA_CUSTOMER_TRX_ALL RACTRX,
RA_CUST_TRX_TYPES_ALL RATRXTYPE,
AR_PAYMENT_SCHEDULES_ALL PAY_SCH
WHERE
RACTRX.CUST_TRX_TYPE_ID = RATRXTYPE.CUST_TRX_TYPE_ID
and RACTRX.CUSTOMER_TRX_ID = PAY_SCH.CUSTOMER_TRX_ID
and RACTRX.ORG_ID = RATRXTYPE.ORG_ID ) orig_arv
,(SELECT
PAY_SCH.DUE_DATE DUE_DATE, RACTRX.STATUS_TRX STATUS,
RACTRX.CUSTOMER_TRX_ID INVOICE_ID,
PAY_SCH.CLASS PAY_SCH_CLASS
FROM
RA_CUSTOMER_TRX_ALL RACTRX,
RA_CUST_TRX_TYPES_ALL RATRXTYPE,
AR_PAYMENT_SCHEDULES_ALL PAY_SCH
WHERE
RACTRX.CUST_TRX_TYPE_ID = RATRXTYPE.CUST_TRX_TYPE_ID
and RACTRX.CUSTOMER_TRX_ID = PAY_SCH.CUSTOMER_TRX_ID
and RACTRX.ORG_ID = RATRXTYPE.ORG_ID ) last_arv
,okl_bpd_ar_inv_lines_v orig_arl
,okl_bpd_ar_inv_lines_v last_arl
,okl_strm_elements_v sel
,okl_k_headers_full_v khr
,okc_rule_groups_b rgp
,okc_rules_b rul
,okc_rules_b rul_exm
,okc_rules_b rul_hld
,okl_late_policies_v lte
WHERE last_arl.sel_id = sel.id
and orig_arv.pay_sch_class = 'INV'
AND orig_arv.STATUS = 'OP'
and orig_arl.receivables_invoice_id = sel.source_id
and sel.source_table='RA_CUSTOMER_TRX_LINES_ALL'
and orig_arl.late_charge_ass_yn = 'Y'
and nvl(last_arl.late_charge_ass_yn, 'N') = 'N'
and orig_arv.invoice_id = orig_arl.invoice_id
and last_arv.invoice_id = last_arl.invoice_id
and orig_arl.contract_id=last_arl.contract_id
and orig_arl.contract_id = khr.id
and khr.id = rgp.dnz_chr_id
and rgp.rgd_code = 'LALCGR'
and rgp.id = rul.rgp_id
and khr.id = rul.dnz_chr_id
and rul.rule_information_category = 'LALCPR'
and rul.rule_information1 = lte.id
and (lte.late_policy_type_code = 'LCT' or lte.late_policy_type_code = 'CHG')
and khr.id = rul_exm.dnz_chr_id
and rgp.id = rul_exm.rgp_id
and rul_exm.rule_information_category = 'LALCEX'
and NVL(rul_exm.rule_information1, 'N') = 'N'
and not exists (select 1 from okl_strm_type_exempt_v sty_exm
where lte.id = sty_exm.lpo_id
and orig_arl.stream_type_id = sty_exm.sty_id
and NVL(sty_exm.late_policy_exempt_yn, 'N') = 'Y')
and khr.id = rul_hld.dnz_chr_id
and rgp.id = rul_hld.rgp_id
and rul_hld.rule_information_category = 'LAHUDT'
and TRUNC(NVL(FND_DATE.canonical_to_date(rul_hld.rule_information1), sysdate - 1)) < trunc(sysdate)
and khr.authoring_org_id = MO_GLOBAL.get_current_org_id
and exists (select'x' from ra_customer_trx_lines_all trxl where trxl.customer_trx_id=orig_arv.invoice_id and
trxl.interface_line_attribute6=khr.contract_number)
and exists (select'x' from ra_customer_trx_lines_all trxl where trxl.customer_trx_id=last_arv.invoice_id and
trxl.interface_line_attribute6=khr.contract_number)
group by lte.name, khr.currency_code, orig_arl.contract_id,orig_arl.contract_number
,orig_arl.receivables_invoice_number, orig_arl.receivables_invoice_id
,orig_arl.amount_due_remaining, lte.late_chrg_grace_period
having (trunc(max(last_arv.due_date)) + nvl(lte.late_chrg_grace_period, 0)) < trunc(sysdate)
UNION
select lte.name late_policy
,khr.currency_code
,orig.contract_number
,orig.contract_id
,orig.consolidated_invoice_id
,orig.consolidated_invoice_number
,sum(orig.amount_due_remaining) amount_due_remaining
, max(last.due_date) due_date
from
(SELECT
HD.ID CONSOLIDATED_INVOICE_ID ,
HD.CONSOLIDATED_INVOICE_NUMBER CONSOLIDATED_INVOICE_NUMBER ,
ST.RECEIVABLES_INVOICE_ID RECEIVABLES_INVOICE_ID ,
ST.KHR_ID CONTRACT_ID ,
CN.CONTRACT_NUMBER CONTRACT_NUMBER ,
PS.DUE_DATE DUE_DATE ,
PS.AMOUNT_DUE_REMAINING AMOUNT_DUE_REMAINING ,
ST.LATE_CHARGE_ASS_YN LATE_CHARGE_ASS_YN,
ST.SEL_ID SEL_ID,
PS.CLASS CLASS ,
SM.ID STREAM_TYPE_ID,
PS.STATUS STATUS
FROM AR_PAYMENT_SCHEDULES_ALL PS,
OKL_CNSLD_AR_STRMS_B ST,
OKL_CNSLD_AR_HDRS_B HD,
OKC_K_HEADERS_ALL_B CN,
OKL_CNSLD_AR_LINES_B LN,
OKL_STRM_TYPE_B SM
WHERE PS.CLASS IN ('INV', 'CM')
AND ST.RECEIVABLES_INVOICE_ID = PS.CUSTOMER_TRX_ID
AND CN.ID = ST.KHR_ID
AND LN.ID = ST.LLN_ID
AND HD.ID = LN.CNR_ID
AND SM.ID = ST.STY_ID) orig
, (SELECT
HD.ID CONSOLIDATED_INVOICE_ID ,
HD.CONSOLIDATED_INVOICE_NUMBER CONSOLIDATED_INVOICE_NUMBER ,
ST.RECEIVABLES_INVOICE_ID RECEIVABLES_INVOICE_ID ,
ST.KHR_ID CONTRACT_ID ,
CN.CONTRACT_NUMBER CONTRACT_NUMBER ,
PS.DUE_DATE DUE_DATE ,
PS.AMOUNT_DUE_REMAINING AMOUNT_DUE_REMAINING ,
ST.LATE_CHARGE_ASS_YN LATE_CHARGE_ASS_YN,
ST.SEL_ID SEL_ID,
PS.CLASS CLASS ,
SM.ID STREAM_TYPE_ID,
PS.STATUS STATUS
FROM AR_PAYMENT_SCHEDULES_ALL PS,
OKL_CNSLD_AR_STRMS_B ST,
OKL_CNSLD_AR_HDRS_B HD,
OKC_K_HEADERS_ALL_B CN,
OKL_CNSLD_AR_LINES_B LN,
OKL_STRM_TYPE_B SM
WHERE PS.CLASS IN ('INV', 'CM')
AND ST.RECEIVABLES_INVOICE_ID = PS.CUSTOMER_TRX_ID
AND CN.ID = ST.KHR_ID
AND LN.ID = ST.LLN_ID
AND HD.ID = LN.CNR_ID
AND SM.ID = ST.STY_ID) last
,okl_strm_elements_v sel
,okl_k_headers_full_v khr
,okc_rule_groups_b rgp
,okc_rules_b rul
,okc_rules_b rul_exm
,okc_rules_b rul_hld
,okl_late_policies_v lte
where last.sel_id = sel.id
and orig.class = 'INV'
and orig.status = 'OP'
and orig.consolidated_invoice_id = sel.source_id
and sel.source_table = 'OKL_CNSLD_AR_STRMS_V'
and orig.late_charge_ass_yn = 'Y'
and nvl(last.late_charge_ass_yn, 'N') = 'N'
and orig.contract_id = last.contract_id
and orig.contract_id = khr.id
and khr.id = rgp.dnz_chr_id
and rgp.rgd_code = 'LALCGR'
and rgp.id = rul.rgp_id
and khr.id = rul.dnz_chr_id
and rul.rule_information_category = 'LALCPR'
and rul.rule_information1 = lte.id
and (lte.late_policy_type_code = 'LCT' or lte.late_policy_type_code = 'CHG')
and khr.id = rul_exm.dnz_chr_id
and rgp.id = rul_exm.rgp_id
and rul_exm.rule_information_category = 'LALCEX'
and NVL(rul_exm.rule_information1, 'N') = 'N'
and not exists (select 1 from okl_strm_type_exempt_v sty_exm
where lte.id = sty_exm.lpo_id
and orig.stream_type_id = sty_exm.sty_id
and NVL(sty_exm.late_policy_exempt_yn, 'N') = 'Y')
and khr.id = rul_hld.dnz_chr_id
and rgp.id = rul_hld.rgp_id
and rul_hld.rule_information_category = 'LAHUDT'
and TRUNC(NVL(FND_DATE.canonical_to_date(rul_hld.rule_information1), sysdate - 1)) < trunc(sysdate)
-- and khr.authoring_org_id = NVL(TO_NUMBER(DECODE( SUBSTRB(USERENV('CLIENT_INFO'),1,1),' ',NULL, SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
and khr.authoring_org_id = MO_GLOBAL.get_current_org_id
group by lte.name, khr.currency_code, orig.contract_id,orig.contract_number
,orig.consolidated_invoice_id, orig.consolidated_invoice_number
, lte.late_chrg_grace_period
having (trunc(max(last.due_date)) + nvl(lte.late_chrg_grace_period, 0)) < trunc(sysdate);
SELECT LATE_POLICY_TYPE_CODE
, LATE_CHRG_ALLOWED_YN
, LATE_CHRG_FIXED_YN
, NVL(LATE_CHRG_AMOUNT, 0) LATE_CHRG_AMOUNT
, NVL(LATE_CHRG_RATE, 0) LATE_CHRG_RATE
, NVL(LATE_CHRG_GRACE_PERIOD,0) LATE_CHRG_GRACE_PERIOD
, NVL(LATE_CHRG_MINIMUM_BALANCE, 0) LATE_CHRG_MINIMUM_BALANCE
, NVL(MINIMUM_LATE_CHARGE, 0) MINIMUM_LATE_CHARGE
, NVL(MAXIMUM_LATE_CHARGE, 9999999999) MAXIMUM_LATE_CHARGE
FROM OKL_LATE_POLICIES_V
WHERE NAME = l_id;
SELECT lsm.id
, LATE_CHARGE_ASS_YN
, LATE_CHARGE_ASSESS_DATE
FROM OKL_CNSLD_AR_STRMS_B lsm,
OKL_CNSLD_AR_LINES_B lln,
OKL_CNSLD_AR_HDRS_B cnr
WHERE cnr.id = l_consolidated_invoice_id
and lln.cnr_id = cnr.id
and lsm.lln_id = lln.id
and lsm.KHR_ID = l_khr_id
FOR UPDATE OF LATE_CHARGE_ASS_YN, LATE_CHARGE_ASSESS_DATE;
SELECT ID
, LATE_CHARGE_ASS_YN
, LATE_CHARGE_ASSESS_DATE
FROM OKL_BPD_AR_INV_LINES_V
WHERE RECEIVABLES_INVOICE_ID = l_id
AND CONTRACT_ID=l_contract_id
FOR UPDATE OF LATE_CHARGE_ASS_YN, LATE_CHARGE_ASSESS_DATE;
SELECT okl_sif_seq.nextval
FROM dual;
SELECT id FROM okl_strm_type_v where name = cp_name;
SELECT stm.id
FROM okl_streams_v stm
WHERE stm.khr_id = cp_khr_id
AND stm.sty_id = cp_sty_id
AND stm.say_code = 'CURR'
AND stm.active_yn = 'Y';
SELECT stm.id
FROM okl_streams_v stm
WHERE stm.khr_id = cp_khr_id
AND nvl(stm.kle_id, -99) = nvl(cp_kle_id, -99)
AND stm.sty_id = cp_sty_id
AND stm.say_code = 'CURR'
AND stm.active_yn = 'Y';
SELECT stm.id
FROM okl_streams_v stm
WHERE stm.khr_id = cp_khr_id
AND stm.sty_id = cp_sty_id
AND stm.say_code = 'CURR'
AND stm.active_yn = 'Y';
SELECT max(se_line_number) se_line_number
FROM okl_strm_elements_v
WHERE stm_id = cp_stm_id;
select RECEIVABLES_INVOICE_ID, CONTRACT_ID
from okl_bpd_ar_inv_lines_v
where contract_id=cp_contract_id
and trx_number=cp_trx_number;
select lsm.id cnsld_strm_id, pol.khr_id, ps.amount_due_remaining,lsm.kle_id
from
okl_cnsld_ar_strms_b lsm
, okl_cnsld_ar_hdrs_b cnr
, okl_cnsld_ar_lines_b lln
, okl_pool_contents_v pk
-- , okl_pools_v pol
, okl_pools pol
, ar_payment_schedules_all ps
, okl_strm_elements_v sel
where cnr.id = l_consolidated_invoice_id
and lln.cnr_id = cnr.id
and lsm.lln_id = lln.id
and lsm.khr_id = l_khr_id
and lsm.khr_id = pk.khr_id
and nvl(lsm.kle_id, -99) = nvl(pk.kle_id, -99)
and lsm.sty_id = pk.sty_id
and pk.pol_id = pol.id
and trunc(cnr.date_consolidated) between trunc(pk.streams_from_date) and trunc(pk.streams_to_date)
and lsm.receivables_invoice_id = ps.customer_trx_id
and ps.class = 'INV'
and ps.status = 'OP'
and lsm.sel_id = sel.id
and pk.status_code = 'ACTIVE' --Added by bkatraga for bug 6983321
and pk.stm_id = sel.stm_id
AND pk.status_code = Okl_Pool_Pvt.G_POC_STS_ACTIVE; --Added by VARANGAN -Pool Contents Impact(Bug#6658065)
SELECT arl.id cnsld_strm_id
,pol.khr_id, pk.kle_id kle_id
FROM okl_bpd_ar_inv_lines_v arl
,okl_bpd_ar_invoices_v arv
,okl_pool_contents_v pk
,okl_pools pol
WHERE arl.trx_number = cp_con_inv_number
AND arl.contract_id = cp_contract_id
AND arl.contract_id = pk.khr_id
AND nvl(arl.contract_line_id, -99) = nvl(pk.kle_id, -99)
AND arl.sty_id = pk.sty_id
AND pk.pol_id = pol.id
AND arv.invoice_id = arl.invoice_id
AND trunc(arv.date_consolidated) between trunc(pk.streams_from_date) and trunc(pk.streams_to_date)
AND pk.status_code = Okl_Pool_Pvt.G_POC_STS_ACTIVE; --Added by VARANGAN -Pool Contents Impact(Bug#6658065)
SELECT sty.stream_type_purpose
FROM okl_bpd_ar_inv_lines_v arl
,okl_strm_type_b sty
WHERE arl.id = cp_stream_id
AND arl.sty_id = sty.id;
SELECT receivables_invoice_id
FROM okl_bpd_ar_inv_lines_v
WHERE contract_number = cp_contract_number
AND trx_number = cp_trx_number;
SELECT FND_GLOBAL.USER_ID
,FND_GLOBAL.LOGIN_ID
,NVL(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),null)
INTO l_last_updated_by
,l_last_update_login
,l_request_id
FROM dual;
Okl_Sel_Pvt.insert_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_selv_rec,
lx_selv_rec);
Okl_Sel_Pvt.insert_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_selv_rec,
lx_selv_rec);
Update okl_streams
set say_code = 'HIST'
,active_yn = 'N'
,last_updated_by = l_last_updated_by
,last_update_date = sysdate
,last_update_login = l_last_update_login
,request_id = l_request_id
,date_history = SYSDATE
WHERE id = l_late_stm_id;
Okl_Sel_Pvt.insert_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_selv_rec,
lx_selv_rec);
Update okl_streams
set say_code = 'HIST'
,active_yn = 'N'
,last_updated_by = l_last_updated_by
,last_update_date = sysdate
,last_update_login = l_last_update_login
,request_id = l_request_id
,date_history = SYSDATE
WHERE id = l_late_stm_id;
Update okl_cnsld_ar_strms_b
set LATE_CHARGE_ASS_YN = 'Y'
,LATE_CHARGE_ASSESS_DATE = SYSDATE
,last_updated_by = l_last_updated_by
,last_update_date = sysdate
,last_update_login = l_last_update_login
,request_id = l_request_id
WHERE CURRENT OF l_cons_lsm_cur; -- Made changes by bkatraga for bug 5601733
FND_FILE.PUT_LINE (FND_FILE.LOG, ' ... Internal Consolidation Record Update Unsuccessful.');
FND_FILE.PUT_LINE (FND_FILE.LOG, ' ... Internal Consolidation Record Updated.');
Update okl_txd_ar_ln_dtls_b
set LATE_CHARGE_ASS_YN = 'Y'
,LATE_CHARGE_ASSESS_DATE = SYSDATE
,last_updated_by = l_last_updated_by
,last_update_date = sysdate
,last_update_login = l_last_update_login
,request_id = l_request_id
WHERE CURRENT OF l_AR_lsm_cur;
FND_FILE.PUT_LINE (FND_FILE.LOG, ' ... Internal Consolidation Record Update Unsuccessful.');
FND_FILE.PUT_LINE (FND_FILE.LOG, ' ... Internal Consolidation Record Updated.');
Okl_Sel_Pvt.insert_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_selv_rec,
lx_selv_rec);
Okl_Sel_Pvt.insert_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_selv_rec,
lx_selv_rec);
Update okl_streams
set say_code = 'HIST'
,active_yn = 'N'
,last_updated_by = l_last_updated_by
,last_update_date = sysdate
,last_update_login = l_last_update_login
,request_id = l_request_id
,date_history = SYSDATE
WHERE id = l_late_stm_id;
Okl_Sel_Pvt.insert_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
l_selv_rec,
lx_selv_rec);
Update okl_streams
set say_code = 'HIST'
,active_yn = 'N'
,last_updated_by = l_last_updated_by
,last_update_date = sysdate
,last_update_login = l_last_update_login
,request_id = l_request_id
,date_history = SYSDATE
WHERE id = l_late_stm_id;
Update okl_txd_ar_ln_dtls_b
set LATE_CHARGE_ASS_YN = 'Y'
, LATE_CHARGE_ASSESS_DATE = SYSDATE
,last_updated_by = l_last_updated_by
,last_update_date = sysdate
,last_update_login = l_last_update_login
,request_id = l_request_id
WHERE CURRENT OF l_AR_lsm_cur;
FND_FILE.PUT_LINE (FND_FILE.LOG, ' ... Internal Consolidation Record Update Unsuccessful.');
FND_FILE.PUT_LINE (FND_FILE.LOG, ' ... Internal Consolidation Record Updated.');