The following lines contain the word 'select', 'insert', 'update' or 'delete':
select substr(L_ACCT,instr(L_ACCT,'-')+1)
from dual;
select nvl(INTEREST_CALCULATION_BASIS,'STEP')
from XTR_BANK_ACCOUNTS
where ACCOUNT_NUMBER = l_acct
and PARTY_CODE = L_PARTY_CODE
and CURRENCY = L_CURRENCY;
select INTEREST_RATE
from XTR_INTEREST_RATE_RANGES
where REF_CODE = l_acct
and PARTY_CODE = l_bank_code
-- and PARTY_CODE = l_setoff_party
and CURRENCY = L_CURRENCY
and MIN_AMT < l_balance
and MAX_AMT >= l_balance
and EFFECTIVE_FROM_DATE =(select max(EFFECTIVE_FROM_DATE)
from XTR_INTEREST_RATE_RANGES
where REF_CODE = l_acct
and PARTY_CODE = l_bank_code
--and PARTY_CODE = l_setoff_party
and CURRENCY = L_CURRENCY
and MIN_AMT < l_balance
and MAX_AMT >= l_balance
and EFFECTIVE_FROM_DATE<= L_BALANCE_DATE);
select MIN_AMT,MAX_AMT,nvl(INTEREST_RATE,0)
from XTR_INTEREST_RATE_RANGES
where REF_CODE = l_acct
and PARTY_CODE = l_bank_code
-- and PARTY_CODE = l_setoff_party
and CURRENCY = L_CURRENCY
and MAX_AMT >= l_amount
and MIN_AMT <0
and EFFECTIVE_FROM_DATE =(select max(EFFECTIVE_FROM_DATE)
from XTR_INTEREST_RATE_RANGES
where REF_CODE = l_acct
and PARTY_CODE = l_bank_code
--and PARTY_CODE = l_setoff_party
and CURRENCY = L_CURRENCY
and MAX_AMT >= l_amount
and MIN_AMT <0
and EFFECTIVE_FROM_DATE<= L_BALANCE_DATE)
order by MAX_AMT desc;
select MIN_AMT,MAX_AMT,nvl(INTEREST_RATE,0)
from XTR_INTEREST_RATE_RANGES
where REF_CODE = l_acct
and PARTY_CODE = l_bank_code
-- and PARTY_CODE = l_setoff_party
and CURRENCY = L_CURRENCY
and MIN_AMT <= l_amount
and MAX_AMT >= 0
and EFFECTIVE_FROM_DATE =(select max(EFFECTIVE_FROM_DATE)
from XTR_INTEREST_RATE_RANGES
where REF_CODE = l_acct
and PARTY_CODE = l_bank_code
-- and PARTY_CODE = l_setoff_party
and CURRENCY = L_CURRENCY
and MIN_AMT <= l_amount
and MAX_AMT >= 0
and EFFECTIVE_FROM_DATE<= L_BALANCE_DATE)
order by MIN_AMT desc;
select ROUNDING_FACTOR,YEAR_BASIS,HCE_RATE
from XTR_MASTER_CURRENCIES_V
where CURRENCY = l_ccy;
select PARTY_CODE,CURRENCY,PORTFOLIO_CODE,BANK_CODE,nvl(YEAR_CALC_TYPE,'ACTUAL/ACTUAL') year_calc_type,
rounding_type, day_count_type
from XTR_BANK_ACCOUNTS
where ACCOUNT_NUMBER = acct_no
and PARTY_CODE = new_company;
select rtrim(ACCOUNT_NO,' '),trunc(BALANCE_DATE), AMOUNT, AMOUNT_ADJ, AMOUNT_CFLOW, COMPANY_CODE, ONE_DAY_FLOAT, TWO_DAY_FLOAT
from XTR_BANK_BAL_INTERFACE
where TRANSFER_SUCCEEDED is null;
select a.BALANCE_DATE,a.BALANCE_CFLOW,a.ACCUM_INT_CFWD,a.INTEREST_RATE,a.accrual_interest,
a.rounding_type, day_count_type
from XTR_BANK_BALANCES a
where a.ACCOUNT_NUMBER = acct_no
and a.COMPANY_CODE = new_company
and a.BALANCE_DATE = (select max(b.BALANCE_DATE)
from XTR_BANK_BALANCES b
where b.ACCOUNT_NUMBER = acct_no
and b.COMPANY_CODE = new_company);
select 'x'
from XTR_BANK_BALANCES
where ACCOUNT_NUMBER = acct_no
and COMPANY_CODE = new_company
and BALANCE_DATE = new_date;
select LIMIT_CODE
from XTR_BANK_BALANCES
where ACCOUNT_NUMBER = acct_no
and COMPANY_CODE = new_company
and BALANCE_DATE < new_date
and ((new_bal >= 0 and BALANCE_CFLOW >= 0)
or (new_bal <= 0 and BALANCE_CFLOW <= 0))
order by BALANCE_DATE;
select cl.LIMIT_CODE
from XTR_COUNTERPARTY_LIMITS cl, XTR_LIMIT_TYPES lt
where cl.COMPANY_CODE = new_company
and cl.CPARTY_CODE = l_bank_code
and cl.LIMIT_TYPE = lt.LIMIT_TYPE
and ((new_bal >= 0 and lt.FX_INVEST_FUND_TYPE = 'I')
or (new_bal <= 0 and lt.FX_INVEST_FUND_TYPE = 'OD'));
select CROSS_REF_TO_OTHER_PARTY
from XTR_PARTIES_V
where PARTY_CODE = l_comp;
SELECT MIN(a.balance_date)
FROM xtr_bank_balances a
WHERE a.account_number = acct_no
AND a.COMPANY_CODE = new_company;
SELECT a.day_count_type
FROM xtr_bank_balances a
WHERE a.account_number = acct_no
AND a.COMPANY_CODE = new_company
AND a.balance_date = (select max(b.BALANCE_DATE)
from XTR_BANK_BALANCES b
where b.ACCOUNT_NUMBER = acct_no
and b.COMPANY_CODE = new_company
AND b.balance_date < l_prv_date);
insert into XTR_BANK_BALANCES
(company_code,account_number,balance_date,no_of_days,
statement_balance,balance_adjustment,balance_cflow,
accum_int_bfwd,interest,interest_rate,interest_settled,
interest_settled_hce,accum_int_cfwd,limit_code,
created_on,created_by,accrual_interest,
rounding_type, day_count_type, original_amount, one_day_float, two_day_float) -- Added for Interest Override
values
(l_comp,acct_no,new_date,l_no_days,new_bal, nvl(l_amount_adj, 0), nvl(l_amount_cflow, new_bal),
l_int_bf,l_interest,l_new_rate,0,0,l_int_cf,l_limit_code,
sysdate, fnd_global.user_id,l_accrual_int,
l_rounding_type, l_day_count_type, l_original_amount, l_one_day_float, l_two_day_float); -- Added for Interest Override
update XTR_BANK_BAL_INTERFACE
set TRANSFER_SUCCEEDED = 'Y'
where ACCOUNT_NO = acct_no
and COMPANY_CODE = new_company
and BALANCE_DATE = new_date;
XTR_ACCOUNT_BAL_MAINT_P.UPDATE_BANK_ACCTS(acct_no,
l_ccy,
l_bank_code,
l_portfolio_code,
v_cross_ref,
l_comp,
new_date,
v_dummy_num
);
update XTR_BANK_BAL_INTERFACE
set TRANSFER_SUCCEEDED = 'N'
where ACCOUNT_NO = acct_no
and COMPANY_CODE = new_company
and BALANCE_DATE = new_date;
update XTR_BANK_BAL_INTERFACE
set TRANSFER_SUCCEEDED = 'N'
where ACCOUNT_NO = acct_no
and COMPANY_CODE = new_company
and BALANCE_DATE = new_date;
SELECT account_id acct_id
FROM ce_cashpool_sub_accts
WHERE cashpool_id = p_cashpool_id
AND type in ('CONC','ACCT')
UNION
SELECT nvl(conc_account_id, inv_conc_account_id) acct_id
FROM ce_cashpool_sub_accts
WHERE cashpool_id = p_cashpool_id
AND type = 'POOL'
AND nvl(conc_account_id, inv_conc_account_id) is not null
UNION
SELECT fund_conc_account_id acct_id
FROM ce_cashpool_sub_accts
WHERE cashpool_id = p_cashpool_id
AND type = 'POOL'
AND fund_conc_account_id is not null;
SELECT account_number, party_code, bank_code,
currency, nvl(year_calc_type, 'ACTUAL/ACTUAL'),
rounding_type, day_count_type
FROM XTR_BANK_ACCOUNTS
WHERE cashpool_id = p_cashpool_id;
select ROUNDING_FACTOR,YEAR_BASIS
from XTR_MASTER_CURRENCIES_V
where CURRENCY = l_notl_currency;
SELECT distinct balance_date
FROM ce_bank_acct_balances --4696629
WHERE balance_date >= p_calc_date
AND bank_account_id IN
(SELECT account_id acct_id
FROM ce_cashpool_sub_accts
WHERE cashpool_id = p_cashpool_id
AND type in ('CONC','ACCT')
UNION
SELECT nvl(conc_account_id, inv_conc_account_id) acct_id
FROM ce_cashpool_sub_accts
WHERE cashpool_id = p_cashpool_id
AND type = 'POOL'
AND nvl(conc_account_id, inv_conc_account_id) is not null
UNION
SELECT fund_conc_account_id acct_id
FROM ce_cashpool_sub_accts
WHERE cashpool_id = p_cashpool_id
AND type = 'POOL'
AND fund_conc_account_id is not null)
order by balance_date asc;
select a.BALANCE_DATE,
nvl(sum(a.STATEMENT_BALANCE),0),
nvl(sum(a.BALANCE_ADJUSTMENT),0),
nvl(sum(a.BALANCE_CFLOW),0),
nvl(sum(a.ACCUM_INT_CFWD),0),
nvl(sum(a.INTEREST_RATE),0),
nvl(sum(a.ACCRUAL_INTEREST),0)
from XTR_BANK_BALANCES a
--where ACCOUNT_NUMBER = l_setoff||'-'||l_bank_code
where a.ACCOUNT_NUMBER = l_account_number
and a.company_code = l_party_code
and a.BALANCE_DATE = (select max(b.BALANCE_DATE)
from XTR_BANK_BALANCES b
where b.ACCOUNT_NUMBER = l_account_number
and b.company_code = l_party_code
and b.BALANCE_DATE < l_calc_date)
group by a.BALANCE_DATE,a.ACCOUNT_NUMBER;
SELECT nvl(sum(a.LEDGER_BALANCE),0),
nvl(sum(a.VALUE_DATED_BALANCE-a.LEDGER_BALANCE),0),
nvl(sum(a.AVAILABLE_BALANCE),0)
FROM CE_BANK_ACCT_BALANCES a --bug 4696629
WHERE a.bank_account_id IN
(SELECT account_id acct_id
FROM ce_cashpool_sub_accts
WHERE cashpool_id = p_cashpool_id
AND type in ('CONC','ACCT')
UNION
SELECT nvl(conc_account_id, inv_conc_account_id) acct_id
FROM ce_cashpool_sub_accts
WHERE cashpool_id = p_cashpool_id
AND type = 'POOL'
AND nvl(conc_account_id, inv_conc_account_id) is not null
UNION
SELECT fund_conc_account_id acct_id
FROM ce_cashpool_sub_accts
WHERE cashpool_id = p_cashpool_id
AND type = 'POOL'
AND fund_conc_account_id is not null)
AND a.BALANCE_DATE = (
SELECT max(b.BALANCE_DATE)
FROM CE_BANK_ACCT_BALANCES b
WHERE b.BANK_ACCOUNT_ID = a.BANK_ACCOUNT_ID
AND b.BALANCE_DATE <= l_calc_date);
SELECT MIN(a.balance_date)
FROM xtr_bank_balances a
WHERE a.account_number = l_account_number
AND a.company_code = l_party_code;
SELECT a.rounding_type, a.day_count_type
FROM xtr_bank_balances a
WHERE a.account_number = l_account_number
AND a.COMPANY_CODE = l_party_code
/*WHERE a.account_number = l_setoff||'-'||l_bank_code
AND a.COMPANY_CODE = l_setoff_company*/
AND a.balance_date = (select max(b.BALANCE_DATE)
from XTR_BANK_BALANCES b
where b.ACCOUNT_NUMBER = l_account_number
and b.COMPANY_CODE = l_party_code
/*where b.ACCOUNT_NUMBER = l_setoff||'-'||l_bank_code
and b.COMPANY_CODE = l_setoff_company*/
AND b.balance_date < l_calc_date);
SELECT a.day_count_type
FROM xtr_bank_balances a
WHERE a.account_number = l_account_number
AND a.COMPANY_CODE = l_party_code
/*WHERE a.account_number = l_setoff||'-'||l_bank_code
AND a.COMPANY_CODE = l_setoff_company*/
AND a.balance_date = (select max(b.BALANCE_DATE)
from XTR_BANK_BALANCES b
where b.ACCOUNT_NUMBER = l_account_number
and b.COMPANY_CODE = l_party_code
/*where b.ACCOUNT_NUMBER = l_setoff||'-'||l_bank_code
and b.COMPANY_CODE = l_setoff_company*/
AND b.balance_date < l_prv_date);
SELECT dealer_code
FROM xtr_dealer_codes
WHERE user_id = FND_GLOBAL.USER_ID;
l_updated_by XTR_DEALER_CODES.DEALER_CODE%TYPE;
l_updated_by := l_created_by;
l_updated_by := FND_GLOBAL.USER_ID;
delete XTR_BANK_BALANCES
--where ACCOUNT_NUMBER = l_setoff||'-'||l_bank_code
where ACCOUNT_NUMBER = l_account_number
and company_code = l_party_code
and BALANCE_DATE >= p_calc_date
and INTEREST_SETTLED = 0; -- AW 6/15 Bug 906228
update XTR_BANK_BALANCES
set NO_OF_DAYS = l_no_days,
STATEMENT_BALANCE = l_this_bal,
BALANCE_ADJUSTMENT = l_this_adj,
BALANCE_CFLOW = l_this_cflw,
ACCUM_INT_BFWD = l_int_bf,
INTEREST = l_interest,
INTEREST_RATE = l_rate,
ACCUM_INT_CFWD = l_int_cf - INTEREST_SETTLED,
ACCRUAL_INTEREST = l_accrual_int,
original_amount = l_original_amount, -- Added for Interest Override
rounding_type = l_notl_rounding_type,
day_count_type = l_notl_day_count_type -- Bug 5393539
where COMPANY_CODE = l_party_code
and ACCOUNT_NUMBER = l_account_number
/*where COMPANY_CODE = l_setoff_company
and ACCOUNT_NUMBER = l_setoff||'-'||l_bank_code*/
and BALANCE_DATE = l_calc_date;
insert into XTR_BANK_BALANCES
(COMPANY_CODE,ACCOUNT_NUMBER,BALANCE_DATE,NO_OF_DAYS,
STATEMENT_BALANCE,BALANCE_ADJUSTMENT,BALANCE_CFLOW,
ACCUM_INT_BFWD,INTEREST,INTEREST_RATE,INTEREST_SETTLED,
INTEREST_SETTLED_HCE,ACCUM_INT_CFWD,created_on, created_by,accrual_interest,
original_amount, rounding_type, day_count_type) -- Added for Interest Override
values
(l_party_code,l_account_number,
l_calc_date,l_no_days,l_this_bal,l_this_adj,
l_this_cflw,l_int_bf,
l_interest,l_rate,0,0,l_int_cf, sysdate,
l_created_by,l_accrual_int,
l_original_amount, l_notl_rounding_type,l_notl_day_count_type); -- Bug 5393539
update XTR_BANK_ACCOUNTS
set INTEREST_RATE = l_rate,
UPDATED_ON = sysdate,
UPDATED_BY = l_updated_by
--where ACCOUNT_NUMBER = l_setoff||'-'||l_bank_code
where ACCOUNT_NUMBER = l_account_number
and party_code = l_party_code
and CURRENCY = l_notl_currency;
PROCEDURE UPDATE_BANK_ACCTS(p_account_number IN VARCHAR2,
p_currency IN VARCHAR2,
p_bank_code IN VARCHAR2,
p_portfolio IN VARCHAR2,
p_pty_cross_ref IN VARCHAR2,
p_party_code IN VARCHAR2,
p_recalc_date IN DATE,
p_accum_int_cfwd IN OUT NOCOPY NUMBER,
p_overwrite IN VARCHAR2 DEFAULT NULL
) is
--
-- Procedure to Update the Bank Balance in the Bank Account
-- and DDA tables with the latest balances. This is called from 1080
-- after
--
l_calc_date DATE;
select DEAL_NUMBER
from XTR_DEAL_DATE_AMOUNTS_V
where DEAL_TYPE = 'CA'
and AMOUNT_TYPE = 'BAL'
and ACCOUNT_NO = p_account_number
and CURRENCY = p_currency
and COMPANY_CODE = nvl(p_pty_cross_ref,p_party_code);
select XTR_DEALS_S.NEXTVAL
from DUAL;
select HCE_RATE,ROUNDING_FACTOR
from XTR_MASTER_CURRENCIES_V
where CURRENCY = P_CURRENCY;
select BALANCE_DATE,
INTEREST_RATE,
NVL(STATEMENT_BALANCE,0)+NVL(BALANCE_ADJUSTMENT,0) BAL,
INTEREST_SETTLED,
nvl( BALANCE_CFLOW,0), -- Added nvl for R12 project Bug 4546183
LIMIT_CODE
from XTR_BANK_BALANCES
where BALANCE_DATE >= P_RECALC_DATE
and ACCOUNT_NUMBER = P_ACCOUNT_NUMBER
and COMPANY_CODE = P_PARTY_CODE
order by BALANCE_DATE asc;
select nvl(YEAR_CALC_TYPE,'ACTUAL/ACTUAL'),
Nvl(rounding_type,'R'),Nvl(day_count_type,'L'), ce_bank_account_id -- Added for Interest Override
from XTR_bank_accounts
where ACCOUNT_NUMBER = P_ACCOUNT_NUMBER
and PARTY_CODE = P_PARTY_CODE;
select SETOFF_ACCOUNT_YN, ce_bank_account_id
from XTR_bank_accounts
where ACCOUNT_NUMBER = P_ACCOUNT_NUMBER
and PARTY_CODE = P_PARTY_CODE;
select a.BALANCE_DATE,NVL(a.STATEMENT_BALANCE,0)+NVL(a.BALANCE_ADJUSTMENT,0) INT_BAL,a.ACCUM_INT_CFWD,a.INTEREST_RATE,A.ACCRUAL_INTEREST,
a.rounding_type, a.day_count_type -- Added for Interest Override
from XTR_BANK_BALANCES a
where a.ACCOUNT_NUMBER = P_ACCOUNT_NUMBER
and COMPANY_CODE = P_PARTY_CODE
and a.BALANCE_DATE = (select max(b.BALANCE_DATE)
from XTR_BANK_BALANCES b
where b.ACCOUNT_NUMBER = P_ACCOUNT_NUMBER
and b.COMPANY_CODE = P_PARTY_CODE
and b.BALANCE_DATE < l_calc_date);
SELECT MIN(a.balance_date)
FROM xtr_bank_balances a
WHERE a.account_number = p_account_number
AND a.company_code = p_party_code;
SELECT a.day_count_type
FROM xtr_bank_balances a
WHERE a.account_number = p_account_number
AND a.COMPANY_CODE = p_party_code
AND a.balance_date = (select max(b.BALANCE_DATE)
from XTR_BANK_BALANCES b
where b.ACCOUNT_NUMBER = p_account_number
and b.COMPANY_CODE = p_party_code
AND b.balance_date < l_prv_date);
SELECT pool.cashpool_id, pool.conc_account_id
FROM ce_cashpools pool, ce_cashpool_sub_accts subs
WHERE pool.type = 'NOTIONAL'
AND pool.cashpool_id = subs.cashpool_id
AND subs.type in ('CONC','ACCT')
AND subs.account_id = l_bank_account_id
UNION
SELECT pool.cashpool_id, pool.conc_account_id
FROM ce_cashpools pool, ce_cashpool_sub_accts subs
WHERE pool.type = 'NOTIONAL'
AND subs.type = 'POOL'
AND pool.cashpool_id = subs.cashpool_id
AND (subs.conc_account_id = l_bank_account_id OR
subs.inv_conc_account_id = l_bank_account_id OR
subs.fund_conc_account_id = l_bank_account_id);
SELECT dealer_code
FROM xtr_dealer_codes
WHERE user_id = FND_GLOBAL.USER_ID;
l_updated_by XTR_DEALER_CODES.DEALER_CODE%TYPE;
l_updated_by := l_created_by;
l_updated_by := FND_GLOBAL.USER_ID;
update XTR_BANK_BALANCES
set NO_OF_DAYS = l_no_days
,ACCUM_INT_BFWD = l_int_bf
,INTEREST = nvl(l_interest,0)
,ACCUM_INT_CFWD = l_int_cf
,INTEREST_RATE = l_this_rate
,ACCRUAL_INTEREST = l_accrual_int
,original_amount = decode(nvl(p_overwrite, 'N'), 'Y',
original_amount, l_original_amount)
,rounding_type = l_rounding_type
,day_count_type = l_day_count_type
where ACCOUNT_NUMBER = P_ACCOUNT_NUMBER
and COMPANY_CODE = P_PARTY_CODE
and BALANCE_DATE = l_calc_date;
update XTR_BANK_ACCOUNTS
set OPENING_BALANCE = l_open_bal,
OPENING_BAL_HCE = round(l_open_bal/l_hce_rate,roundfac),
STATEMENT_DATE = l_calc_date,
INTEREST_RATE = l_this_rate,
UPDATED_ON = sysdate,
UPDATED_BY = l_updated_by
where ACCOUNT_NUMBER = p_account_Number
and CURRENCY = p_currency
and PARTY_CODE = p_party_code;
update XTR_DEAL_DATE_AMOUNTS
set AMOUNT =abs(l_open_bal),
CASHFLOW_AMOUNT = 0,
HCE_AMOUNT = abs(nvl(round(l_open_bal/l_hce_rate,roundfac),0)),
AMOUNT_DATE = l_calc_date,
CPARTY_CODE = p_bank_code,
LIMIT_CODE = nvl(l_limit_code,'NILL'), -- AW Bug 968983 8/25/99
PORTFOLIO_CODE = p_portfolio,
DEAL_SUBTYPE = decode(sign(nvl(l_open_bal,0)),-1,'FUND','INVEST'),
TRANSACTION_RATE=l_this_rate
where DEAL_TYPE = 'CA'
and DEAL_NUMBER = l_deal_nos
and AMOUNT_TYPE = 'BAL'
and ACCOUNT_NO = p_account_number
and CURRENCY = p_currency
and COMPANY_CODE = nvl(p_pty_cross_ref,p_party_code) ;
insert into XTR_DEAL_DATE_AMOUNTS
(DEAL_TYPE,AMOUNT_TYPE,DATE_TYPE,DEAL_NUMBER,TRANSACTION_NUMBER,
TRANSACTION_DATE,CURRENCY,AMOUNT,HCE_AMOUNT,AMOUNT_DATE,
COMPANY_CODE,ACCOUNT_NO,ACTION_CODE,CASHFLOW_AMOUNT,
DEAL_SUBTYPE,PRODUCT_TYPE,LIMIT_CODE,PORTFOLIO_CODE,STATUS_CODE,
CPARTY_CODE,TRANSACTION_RATE)
values
('CA','BAL','BALANCE',l_deal_nos,1,l_calc_date,p_currency,
abs(l_open_bal),abs(nvl(round(l_open_bal/l_hce_rate,roundfac),0)),l_calc_date,nvl(p_pty_cross_ref,p_party_code),
p_account_number,NULL,0,
decode(sign(nvl(l_open_bal,0)),-1,'FUND','INVEST'),'NOT APPLIC',
nvl(l_limit_code,'NILL'), -- AW Bug 968983 8/25/99
p_portfolio,'CURRENT',p_bank_code,l_this_rate);
update XTR_BANK_ACCOUNTS
set OPENING_BALANCE = 0,
OPENING_BAL_HCE = 0,
STATEMENT_DATE = null,
INTEREST_RATE = null,
UPDATED_ON = sysdate,
UPDATED_BY = l_updated_by
where ACCOUNT_NUMBER = p_account_Number
and CURRENCY = p_currency
and PARTY_CODE = p_party_code;
update XTR_DEAL_DATE_AMOUNTS
set AMOUNT = 0,
CASHFLOW_AMOUNT = 0,
HCE_AMOUNT = 0
where DEAL_TYPE = 'CA'
and DEAL_NUMBER = l_deal_nos
and AMOUNT_TYPE = 'BAL'
and ACCOUNT_NO = p_account_number
and CURRENCY = p_currency
and COMPANY_CODE = nvl(p_pty_cross_ref,p_party_code) ;
end UPDATE_BANK_ACCTS;