[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT rowid
, CONTRACT_NUMBER
, STY_NAME
, ASSET_NUMBER
, INVOICE_DATE
, AMOUNT
, CURRENCY_CODE
, STREAM_TYPE_PURPOSE
FROM OKL_EXT_BILLING_INTERFACE
WHERE TRX_STATUS_CODE = 'SUBMITTED';
SELECT rowid
, TRX_STATUS_CODE
, ERROR_MESSAGE
, CONTRACT_NUMBER
, CONTRACT_ID
, STY_ID
, STY_NAME
, ASSET_ID
, ASSET_NUMBER
, INVOICE_DATE
, AMOUNT
, CURRENCY_CODE
, ORG_ID
, JURSDCTN_TYPE
, JURSDCTN_NAME
, MLRT_TAX
, TAX_VENDOR_ID
, TAX_VENDOR_NAME
, TAX_VENDOR_SITE_ID
, TAX_VENDOR_SITE_NAME
, STREAM_TYPE_PURPOSE
, TAX_ASSESSMENT_DATE --FPbug#5891876
FROM OKL_EXT_BILLING_INTERFACE
WHERE TRX_STATUS_CODE = 'PASSED'
AND REQUEST_ID = p_request_id
AND STREAM_TYPE_PURPOSE = 'ACTUAL_PROPERTY_TAX'
ORDER BY contract_id, asset_id, sty_id ; -- Bug 6375368
* earlier for the contract, as the insert for okl_strm_elements is done
* outside the loop. When the insert is done a unique constraint is fired
* due to duplication of se_line_number in SEL_TBL. The order by clause
* is added in act_prop_tax_csr to process the records in order of
* contract_id, asset_id,sty_id resulting in unique se_line_number for
* each contract, asset and sty_id.*/
-- --------------------------------------------
-- Cursor for all non-actual property tax records
-- --------------------------------------------
CURSOR bill_txn_csr ( p_request_id NUMBER )
IS
SELECT rowid
, TRX_STATUS_CODE
, ERROR_MESSAGE
, CONTRACT_NUMBER
, CONTRACT_ID
, STY_ID
, STY_NAME
, ASSET_ID
, ASSET_NUMBER
, INVOICE_DATE
, AMOUNT
, CURRENCY_CODE
, ORG_ID
, JURSDCTN_TYPE
, JURSDCTN_NAME
, MLRT_TAX
, TAX_VENDOR_ID
, TAX_VENDOR_NAME
, TAX_VENDOR_SITE_ID
, TAX_VENDOR_SITE_NAME
, STREAM_TYPE_PURPOSE
, TAX_ASSESSMENT_DATE --FPbug#5891876
FROM OKL_EXT_BILLING_INTERFACE
WHERE TRX_STATUS_CODE = 'PASSED'
AND REQUEST_ID = p_request_id
AND STREAM_TYPE_PURPOSE <> 'ACTUAL_PROPERTY_TAX';
SELECT id
FROM okl_streams
WHERE khr_id = p_khr_id
AND sty_id = p_sty_id;
SELECT id
FROM okl_strm_type_v
WHERE name = p_stream_name;
SELECT id
FROM okc_k_headers_b
WHERE contract_number = p_contract_number;
SELECT currency_code
FROM okc_k_headers_b
WHERE contract_number = p_contract_number;
SELECT id
FROM okl_trx_types_tl
WHERE name = cp_name
AND LANGUAGE = cp_language;
SELECT id, billable_yn
FROM okl_strm_type_v
WHERE name = p_sty_name
AND stream_type_purpose = p_purpose_code;
SELECT name
FROM okl_strm_type_v
WHERE id = p_sty_id;
SELECT stream_type_purpose
FROM okl_strm_type_v
WHERE name = p_sty_name;
SELECT ID
FROM okl_k_lines_full_v
WHERE name = p_asset_number;
SELECT currency_code
FROM fnd_currencies
WHERE currency_code = p_currency_code;
SELECT count(*)
FROM okl_streams stm
, okl_strm_type_v sty
WHERE stm.khr_id = p_khr_id
AND NVL(stm.kle_id, -99) = NVL(p_kle_id, -99)
AND stm.sty_id = sty.id
AND stm.say_code = 'CURR'
AND stm.active_yn = 'Y'
AND sty.id = p_sty_id;
SELECT stm.id
FROM okl_streams stm,
okl_strm_type_v sty
WHERE stm.khr_id = p_khr_id
AND NVL(stm.kle_id, -99) = NVL(p_kle_id, -99)
AND stm.sty_id = sty.id
AND stm.say_code = 'CURR'
AND stm.active_yn = 'Y'
AND sty.id = p_sty_id;
SELECT okl_sif_seq.nextval
FROM dual;
SELECT max(se_line_number)
FROM okl_strm_elements
WHERE stm_id = p_stm_id;
SELECT rul.rule_information1
FROM okc_rule_groups_b rgp,
okc_rules_b rul
WHERE rgp.id = rul.rgp_id
AND rgp.rgd_code = 'LAASTX'
AND rul.RULE_INFORMATION_CATEGORY = 'LAPRTX'
AND rul.rule_information3 is not null
AND rgp.dnz_chr_id = p_chr_id
AND rgp.cle_id = p_cle_id;
SELECT VENDOR_SITE_ID
FROM po_vendor_sites_all
WHERE VENDOR_ID = p_vendor_id
AND (VENDOR_SITE_ID = p_vendor_site_id OR VENDOR_SITE_CODE = p_vendor_site_code);
SELECT PAYABLE_INVOICE
FROM okl_property_tax_setups;
SELECT *
FROM FND_LANGUAGES
WHERE INSTALLED_FLAG IN ('I', 'B');
l_last_updated_by okl_trx_ar_invoices_v.last_updated_by%TYPE := Fnd_Global.USER_ID;
l_last_update_login okl_trx_ar_invoices_v.last_update_login%TYPE := Fnd_Global.LOGIN_ID;
select count(*)
from okl_ext_billing_interface
where request_id = p_request_id
and trx_status_code = p_sts_code
and STREAM_TYPE_PURPOSE = p_strm_purpose;
select count(*)
from okl_ext_billing_interface
where request_id = p_request_id
and trx_status_code = p_sts_code
and STREAM_TYPE_PURPOSE <> p_strm_purpose;
select rpad(substr(contract_number,1,30),30,' ') contract_number,
rpad(substr(asset_number,1,30),30,' ') asset_number,
rpad(substr(sty_name,1,30),30,' ') sty_name,
to_char(invoice_date,'DD-MON-RRRR') invoice_date,
error_message
from okl_ext_billing_interface
where request_id = p_request_id
and trx_status_code = p_sts_code;
SELECT NAME
FROM hr_operating_units
WHERE ORGANIZATION_ID = MO_GLOBAL.GET_CURRENT_ORG_ID; -- MOAC fix - Bug#5378114 --varangan- 29-9-06
l_rowid_tbl.delete;
l_contract_tbl.delete;
l_sty_tbl.delete;
l_asset_num.delete;
l_inv_date.delete;
l_amt_tbl.delete;
l_curr_code_tbl.delete;
l_strm_purpose_tbl.delete;
update okl_ext_billing_interface
set CREATED_BY = l_last_updated_by,
CREATION_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,
PROGRAM_APPLICATION_ID = l_program_application_id,
PROGRAM_ID = l_program_id,
PROGRAM_UPDATE_DATE = sysdate
where rowid = l_rowid_tbl(indx);
update okl_ext_billing_interface
set trx_status_code =
decode(l_strm_purpose_tbl(indx),NULL,'ERROR',
-- 'RENT','ERROR',
-- 'ADVANCE_RENT','ERROR',
-- 'INTEREST_PAYMENT','ERROR',
-- 'PRINCIPAL_PAYMENT','ERROR',
trx_status_code
)
,error_message =
decode(l_strm_purpose_tbl(indx),NULL,'Stream Type purpose cannot be null. '--,
-- 'RENT','STREAM PURPOSE RENT is not supported. ',
-- 'ADVANCE_RENT','STREAM PURPOSE ADVANCE RENT is not supported. ',
-- 'INTEREST_PAYMENT','STREAM PURPOSE INTEREST PAYMENT is not supported. ',
-- 'PRINCIPAL_PAYMENT','STREAM PURPOSE PRINCIPAL PAYMENT is not supported. '
)
where rowid = l_rowid_tbl(indx);
update okl_ext_billing_interface
set trx_status_code = decode(l_amt_tbl(indx),NULL, 'ERROR',trx_status_code),
error_message =
decode(l_amt_tbl(indx),NULL, error_message||'Amount Cannot be null. ',
0, error_message||'Amount must be non-zero. ',
error_message)
where rowid = l_rowid_tbl(indx);
END IF; -- Update rows to passed status
update okl_ext_billing_interface a
set contract_id = (select id
from okc_k_headers_b b
where b.contract_number = a.contract_number)
where rowid = l_rowid_tbl(indx);
-- CASE 1 - When ASSET_NUMBER is NULL, the record is not updated
-- CASE 2 - When ASSET_NUMBER present and ASSET_ID present, code validates and updates the
-- NULL if the ASSET_ID doesnot correspond to the ASSET_NUMBER
-- CASE 3 - When ASSET_NUMBER present and ASSET_ID is NULL, code checks if there are multiple
-- contract lines with same line name and errors accordingly
IF l_asset_num.count > 0 THEN
IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'++ begin - validate asset number.');
UPDATE okl_ext_billing_interface a
SET asset_id = (SELECT id
FROM OKL_K_LINES_FULL_V b
-- NVL is for imported contracts where
-- Service Name is NULL in OKC_K_LINES_TL
WHERE NVL(b.name, a.ASSET_NUMBER) = a.ASSET_NUMBER
AND b.ID = NVL(A.ASSET_ID, b.ID)
AND b.dnz_chr_id = a.contract_id)
WHERE rowid = l_rowid_tbl(indx)
AND a.ASSET_NUMBER IS NOT NULL;
-- OKL_EXT_BILLING_INTERFACE. In this case the select query returns
-- all the service lines based on the Service Name
-- Update the status of the record as ERROR with error message
FOR err_indx IN 1 .. SQL%BULK_EXCEPTIONS.COUNT
LOOP
l_temp_index := SQL%BULK_EXCEPTIONS(err_indx).ERROR_INDEX;
UPDATE OKL_EXT_BILLING_INTERFACE B_INT
SET TRX_STATUS_CODE = 'ERROR'
, ERROR_MESSAGE = ERROR_MESSAGE || 'Multiple contract lines with same name. Please also provide Contract Line ID.'
WHERE rowid = l_rowid_tbl(l_temp_index);
update okl_ext_billing_interface a
set sty_id = (SELECT GTLV.PRIMARY_STY_ID STY_ID
FROM
OKL_ST_GEN_TMPT_LNS GTLV,
OKL_ST_GEN_TEMPLATES GTTV,
OKL_ST_GEN_TMPT_SETS GTSV,
OKL_AE_TMPT_SETS AES,
OKL_PRODUCTS PDT,
OKL_STRM_TYPE_V STY,
okl_k_headers khr,
okc_k_headers_b chr
WHERE
GTLV.GTT_ID = GTTV.ID AND
GTTV.GTS_ID = GTSV.ID AND
GTTV.TMPT_STATUS = 'ACTIVE' AND
GTSV.ID = AES.GTS_ID AND
AES.ID = PDT.AES_ID AND
GTLV.PRIMARY_STY_ID = STY.ID AND
GTLV.PRIMARY_YN = 'Y' and
-- added stmathew
khr.id = chr.id and
khr.pdt_id = pdt.id and
GTTV.start_date <= chr.start_date and
(GTTV.end_date >= chr.start_date or GTTV.end_date is null ) and
sty.billable_yn = 'Y' and
khr.id = a.CONTRACT_ID and
sty.name = a.STY_NAME and
sty.stream_type_purpose = a.STREAM_TYPE_PURPOSE
UNION ALL
SELECT
DISTINCT
GTLV.DEPENDENT_STY_ID STY_ID
FROM
OKL_ST_GEN_TMPT_LNS GTLV,
OKL_ST_GEN_TEMPLATES GTTV,
OKL_ST_GEN_TMPT_SETS GTSV,
OKL_AE_TMPT_SETS AES,
OKL_PRODUCTS PDT,
OKL_STRM_TYPE_V STY,
okl_k_headers khr,
okc_k_headers_b chr
WHERE
GTLV.GTT_ID = GTTV.ID AND
GTTV.GTS_ID = GTSV.ID AND
GTTV.TMPT_STATUS = 'ACTIVE' AND
GTSV.ID = AES.GTS_ID AND
AES.ID = PDT.AES_ID AND
GTLV.DEPENDENT_STY_ID = STY.ID AND
(GTLV.PRIMARY_YN = 'N' or GTLV.PRIMARY_YN is null) AND
-- added stmathew
khr.id = chr.id and
khr.pdt_id = pdt.id and
GTTV.start_date <= chr.start_date and
(GTTV.end_date >= chr.start_date or GTTV.end_date is null ) and
sty.billable_yn = 'Y' and
khr.id = a.CONTRACT_ID and
sty.name = a.STY_NAME and
sty.stream_type_purpose = a.STREAM_TYPE_PURPOSE)
WHERE rowid = l_rowid_tbl(indx);
update okl_ext_billing_interface
set trx_status_code = decode(contract_id,NULL,'ERROR',trx_status_code),
error_message = decode(contract_id,NULL,error_message||'Invalid Contract. ',error_message)
where rowid = l_rowid_tbl(indx);
UPDATE OKL_EXT_BILLING_INTERFACE a
SET TRX_STATUS_CODE = 'ERROR',
ERROR_MESSAGE = ERROR_MESSAGE||'Invalid Line name or Line Id.'
WHERE rowid = l_rowid_tbl(indx)
AND (a.ASSET_NUMBER IS NOT NULL OR a.ASSET_ID IS NOT NULL)
AND NOT EXISTS ( SELECT 1
FROM OKL_K_LINES_FULL_V LNS
WHERE LNS.ID = a.ASSET_ID
-- IS NULL condition is useful for imported contracts
-- where Service Name is NULL in OKC_K_LINES_TL
AND ( LNS.NAME IS NULL OR LNS.NAME = NVL(a.ASSET_NUMBER, LNS.NAME))
AND LNS.DNZ_CHR_ID = a.CONTRACT_ID);
update okl_ext_billing_interface
set trx_status_code = decode(sty_id,NULL,'ERROR',trx_status_code),
error_message = decode(sty_id,NULL,
error_message||'Stream type is invalid, non-billable or unattached to a template. ',
error_message)
where rowid = l_rowid_tbl(indx);
update okl_ext_billing_interface
set trx_status_code = decode(invoice_date,NULL,'ERROR',trx_status_code),
error_message = decode(invoice_date,NULL,error_message||'Invoice Date is Null. ',error_message)
where rowid = l_rowid_tbl(indx);
update okl_ext_billing_interface a
set TAX_VENDOR_ID = (SELECT VENDOR_ID
FROM po_vendors b
WHERE b.VENDOR_TYPE_LOOKUP_CODE = 'TAX AUTHORITY'
AND b.VENDOR_NAME = a.TAX_VENDOR_NAME)
where rowid = l_rowid_tbl(indx)
and stream_type_purpose = 'ACTUAL_PROPERTY_TAX';
update okl_ext_billing_interface a
set TAX_VENDOR_SITE_ID = (SELECT VENDOR_SITE_ID
FROM po_vendor_sites_all b
WHERE b.VENDOR_ID = a.TAX_VENDOR_ID
AND b.VENDOR_SITE_CODE = a.TAX_VENDOR_SITE_NAME
AND b.ORG_ID = a.ORG_ID ) --6144718
where rowid = l_rowid_tbl(indx)
and stream_type_purpose = 'ACTUAL_PROPERTY_TAX';
update okl_ext_billing_interface a
set trx_status_code = decode( TAX_VENDOR_ID,NULL,'ERROR', trx_status_code),
error_message = decode( TAX_VENDOR_ID,NULL,error_message||'Invalid Tax Vendor Id. ', error_message)
where rowid = l_rowid_tbl(indx)
and stream_type_purpose = 'ACTUAL_PROPERTY_TAX';
update okl_ext_billing_interface a
set trx_status_code = decode( TAX_VENDOR_SITE_ID,NULL,'ERROR', trx_status_code),
error_message = decode( TAX_VENDOR_SITE_ID,NULL,
error_message||'Invalid Tax Vendor Site Id. ', error_message)
where rowid = l_rowid_tbl(indx)
and stream_type_purpose = 'ACTUAL_PROPERTY_TAX';
update okl_ext_billing_interface a
set trx_status_code = decode( ASSET_ID,NULL,'ERROR', trx_status_code),
error_message = decode( ASSET_ID,NULL,
error_message||'Asset Id is mandatory for ACTUAL_PROPERTY_TAX. ', error_message)
where rowid = l_rowid_tbl(indx)
and stream_type_purpose = 'ACTUAL_PROPERTY_TAX';
update okl_ext_billing_interface a
set prop_tax_applicable_yn = (
SELECT NVL(rul.rule_information1,'N')
FROM okc_rule_groups_b rgp,
okc_rules_b rul
WHERE rgp.id = rul.rgp_id
AND rgp.rgd_code = 'LAASTX'
AND rul.RULE_INFORMATION_CATEGORY = 'LAPRTX'
AND rul.rule_information3 is not null
AND rgp.dnz_chr_id = a.contract_id
AND rgp.cle_id = a.asset_id)
where rowid = l_rowid_tbl(indx)
and stream_type_purpose = 'ACTUAL_PROPERTY_TAX';
update okl_ext_billing_interface a
set trx_status_code = decode( prop_tax_applicable_yn,NULL,'ERROR','N','ERROR', trx_status_code),
error_message = decode( prop_tax_applicable_yn,NULL,error_message
||'Property Tax Not Applicable for Asset. '
,'N',error_message
||'Property Tax Not Applicable for Asset. '
,error_message)
where rowid = l_rowid_tbl(indx)
and stream_type_purpose = 'ACTUAL_PROPERTY_TAX';
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'++ begin - update successfully validated rows to status of PASSED.');
update okl_ext_billing_interface
set trx_status_code = decode(trx_status_code,'SUBMITTED', 'PASSED',trx_status_code)
where rowid = l_rowid_tbl(indx);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'-- end - update successfully validated rows to status of PASSED.');
end if; -- Update rows to passed status
ext_bill_tbl.delete;
tai_tbl.delete;
til_tbl.delete;
taitl_tbl.delete;
tiltl_tbl.delete;
upd_rowid_tbl.delete;
header_id_tbl.delete;
tai_tbl(indx).CREATED_BY := l_last_updated_by;
tai_tbl(indx).LAST_UPDATE_DATE := SYSDATE;
tai_tbl(indx).LAST_UPDATED_BY := l_last_updated_by;
tai_tbl(indx).LAST_UPDATE_LOGIN := l_last_update_login;
tai_tbl(indx).program_update_date := sysdate;
l_taiv_rec.CREATED_BY := l_last_updated_by;
l_taiv_rec.LAST_UPDATE_DATE := SYSDATE;
l_taiv_rec.LAST_UPDATED_BY := l_last_updated_by;
l_taiv_rec.LAST_UPDATE_LOGIN := l_last_update_login;
l_taiv_rec.program_update_date := sysdate;
taitl_tbl(l_taitl_cnt).CREATED_BY := l_last_updated_by;
taitl_tbl(l_taitl_cnt).LAST_UPDATE_DATE := SYSDATE;
taitl_tbl(l_taitl_cnt).LAST_UPDATED_BY := l_last_updated_by;
taitl_tbl(l_taitl_cnt).LAST_UPDATE_LOGIN := l_last_update_login;
til_tbl(indx).CREATED_BY := l_last_updated_by;
til_tbl(indx).LAST_UPDATE_DATE := SYSDATE;
til_tbl(indx).LAST_UPDATED_BY := l_last_updated_by;
til_tbl(indx).LAST_UPDATE_LOGIN := l_last_update_login;
til_tbl(indx).program_update_date := sysdate;
tiltl_tbl(l_tiltl_cnt).CREATED_BY := l_last_updated_by;
tiltl_tbl(l_tiltl_cnt).LAST_UPDATE_DATE := SYSDATE;
tiltl_tbl(l_tiltl_cnt).LAST_UPDATED_BY := l_last_updated_by;
tiltl_tbl(l_tiltl_cnt).LAST_UPDATE_LOGIN := l_last_update_login;
l_tilv_rec.CREATED_BY := l_last_updated_by;
l_tilv_rec.LAST_UPDATE_DATE := SYSDATE;
l_tilv_rec.LAST_UPDATED_BY := l_last_updated_by;
l_tilv_rec.LAST_UPDATE_LOGIN := l_last_update_login;
l_tilv_rec.program_update_date := sysdate;
l_tilv_tbl.delete;
l_tldv_tbl.delete;
ext_bill_tbl.delete;
tai_tbl.delete;
til_tbl.delete;
taitl_tbl.delete;
tiltl_tbl.delete;
upd_rowid_tbl.delete;
header_id_tbl.delete;
ext_bill_tbl.delete;
ptc_tbl.delete;
ptctl_tbl.delete;
stm_tbl.delete;
sel_tbl.delete;
upd_rowid_tbl.delete;
upd_sel_tbl.delete;
ptc_tbl(indx).CREATED_BY := l_last_updated_by;
ptc_tbl(indx).LAST_UPDATED_BY := l_last_updated_by;
ptc_tbl(indx).LAST_UPDATE_DATE := SYSDATE;
ptc_tbl(indx).LAST_UPDATE_LOGIN := l_last_update_login;
ptctl_tbl(l_ptctl_cnt).CREATED_BY := l_last_updated_by;
ptctl_tbl(l_ptctl_cnt).LAST_UPDATE_DATE := SYSDATE;
ptctl_tbl(l_ptctl_cnt).LAST_UPDATED_BY := l_last_updated_by;
ptctl_tbl(l_ptctl_cnt).LAST_UPDATE_LOGIN := l_last_update_login;
stm_tbl(l_stmtbl_cnt).PROGRAM_UPDATE_DATE := sysdate;
stm_tbl(l_stmtbl_cnt).CREATED_BY := l_last_updated_by;
stm_tbl(l_stmtbl_cnt).LAST_UPDATED_BY := l_last_updated_by;
stm_tbl(l_stmtbl_cnt).LAST_UPDATE_DATE := sysdate;
stm_tbl(l_stmtbl_cnt).LAST_UPDATE_LOGIN := l_last_update_login;
insert into okl_streams
values stm_tbl(i);
stm_tbl.delete;
sel_tbl(indx).PROGRAM_UPDATE_DATE := sysdate;
sel_tbl(indx).CREATED_BY := l_last_updated_by;
sel_tbl(indx).LAST_UPDATED_BY := l_last_updated_by;
sel_tbl(indx).LAST_UPDATE_DATE := sysdate;
sel_tbl(indx).LAST_UPDATE_LOGIN := l_last_update_login;
insert into okl_property_tax_b
values ptc_tbl(i);
INSERT INTO okl_property_tax_tl
VALUES ptctl_tbl(i);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ++ begin - update ext billing interface with sel_id.');
UPDATE okl_ext_billing_interface
SET sel_id = upd_sel_tbl(i)
WHERE rowid = upd_rowid_tbl(i);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- end - update ext billing interface with sel_id.');
insert into okl_strm_elements
values sel_tbl(i);
UPDATE OKL_EXT_BILLING_INTERFACE
SET trx_status_code = 'ERROR',
ERROR_MESSAGE = ERROR_MESSAGE||'Error Creating Payable Invoice. '
WHERE rowid = ext_bill_tbl(indx).ext_rowid;
delete from OKL_PROPERTY_TAX_tl where id = ptc_tbl(indx).id;
delete from OKL_PROPERTY_TAX_b where id = ptc_tbl(indx).id;
delete from okl_strm_elements where id = upd_sel_tbl(indx);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ++ begin - update status on okl_ext_billing_interface for successful records .');
update okl_ext_billing_interface
set trx_status_code = decode(trx_status_code,'PASSED','PROCESSED',trx_status_code)
where rowid = upd_rowid_tbl(j);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' -- end - update status on okl_ext_billing_interface for successful records .');