The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT BA.BANK_ACCOUNT_ID
FROM CE_BANK_ACCT_USES_ALL BAU
, CE_BANK_ACCOUNTS BA
WHERE
BA.BANK_ACCOUNT_ID = BAU.BANK_ACCOUNT_ID
AND BAU.XTR_USE_ENABLE_FLAG = 'Y'
AND BA.INTEREST_SCHEDULE_ID = P_INTEREST_SCHEDULE_ID
AND BA.BANK_ACCOUNT_ID = NVL(P_BANK_ACCOUNT_ID, BA.BANK_ACCOUNT_ID);
| xtr_schedule_update
| |
| CALLED BY |
| update_schedule, remove_schedule_account, assign_schedule_account|
| |
| DESCRIPTION |
| call xtr API when schedule related information has changed
| Following API needs to be called when
| -added a Treasury Bank account to an interest schedule
| -removed a treasury Bank account from an interest schedule.
| -updated interest schedule information that is attached to a
| treasury bank account
--------------------------------------------------------------------- */
PROCEDURE xtr_schedule_update(p_ce_bank_account_id IN number,
p_interest_rounding IN varchar2,
p_interest_includes IN varchar2,
p_basis IN varchar2,
p_day_count_basis IN varchar2,
x_return_status OUT NOCOPY varchar2,
x_msg_count OUT NOCOPY number,
x_msg_data OUT NOCOPY varchar2
) IS
BEGIN
IF l_DEBUG in ('Y', 'C') THEN
cep_standard.debug('>> CE_INTEREST_SCHED_PKG.xtr_schedule_update');
cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.xtr_schedule_update p_ce_bank_account_id missing');
FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.xtr_schedule_update');
cep_standard.debug('<< CE_INTEREST_SCHED_PKG.xtr_schedule_update');
cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.xtr_schedule_update');
FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.xtr_schedule_update');
END xtr_schedule_update;
| delete_schedule |
| |
| DESCRIPTION |
| remove bank accounts that has been assign to schedule |
| CE_BANK_ACCOUNTS |
--------------------------------------------------------------------- */
PROCEDURE remove_schedule_account(p_interest_schedule_id IN number,
p_bank_account_id IN number,
x_return_status IN OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
x_bank_account_id NUMBER;
UPDATE CE_BANK_ACCOUNTS
SET INTEREST_SCHEDULE_ID = NULL
WHERE INTEREST_SCHEDULE_ID = p_interest_schedule_id
and BANK_ACCOUNT_ID = p_bank_account_id;
UPDATE CE_BANK_ACCOUNTS
SET INTEREST_SCHEDULE_ID = NULL
WHERE INTEREST_SCHEDULE_ID = p_interest_schedule_id;
xtr_schedule_update(p_ce_bank_account_id => X_BANK_ACCOUNT_ID,
p_interest_rounding => null,
p_interest_includes => null,
p_basis => null,
p_day_count_basis => null,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
SELECT count(1)
into x_ba_count
from CE_BANK_ACCOUNTS
WHERE
nvl(interest_schedule_id, 1) = p_interest_schedule_id
and bank_account_id = p_bank_account_id;
UPDATE CE_BANK_ACCOUNTS
SET INTEREST_SCHEDULE_ID = p_interest_schedule_id
WHERE INTEREST_SCHEDULE_ID is null
and BANK_ACCOUNT_ID = p_bank_account_id;
xtr_schedule_update(p_ce_bank_account_id => X_BANK_ACCOUNT_ID,
p_interest_rounding => p_interest_rounding,
p_interest_includes => p_interest_includes,
p_basis => p_basis,
p_day_count_basis => p_day_count_basis,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
| delete_interest_rates
| |
| CALLED BY |
| InterestAMImpl (populateIntRate) |
| delete_schedule |
| DESCRIPTION |
| delete interest_rates from
| CE_INTEREST_RATES |
--------------------------------------------------------------------- */
PROCEDURE delete_interest_rates(p_interest_schedule_id number,
p_effective_date date) IS
x_bank_account_id NUMBER;
cep_standard.debug('>> CE_INTEREST_SCHED_PKG.delete_interest_rates');
select count(*)
into x_interest_rate_count
from CE_INTEREST_RATES
WHERE BALANCE_RANGE_ID in (SELECT BALANCE_RANGE_ID FROM CE_INTEREST_BAL_RANGES
WHERE INTEREST_SCHEDULE_ID = p_interest_schedule_id)
and EFFECTIVE_DATE = p_effective_date;
DELETE FROM CE_INTEREST_RATES
WHERE BALANCE_RANGE_ID in (SELECT BALANCE_RANGE_ID FROM CE_INTEREST_BAL_RANGES
WHERE INTEREST_SCHEDULE_ID = p_interest_schedule_id)
and EFFECTIVE_DATE = p_effective_date;
DELETE FROM CE_INTEREST_RATES
WHERE BALANCE_RANGE_ID in (SELECT BALANCE_RANGE_ID FROM CE_INTEREST_BAL_RANGES
WHERE INTEREST_SCHEDULE_ID = p_interest_schedule_id);
cep_standard.debug('<< CE_INTEREST_SCHED_PKG.delete_interest_rates');
cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_interest_rates');
FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_interest_rates');
END delete_interest_rates;
| delete_bal_ranges;
| delete_schedule
| |
| DESCRIPTION |
| delete all balance ranges for a schedule
|
--------------------------------------------------------------------- */
PROCEDURE delete_bal_ranges( p_interest_schedule_id number) IS
BEGIN
IF l_DEBUG in ('Y', 'C') THEN
cep_standard.debug('>> CE_INTEREST_SCHED_PKG.delete_bal_ranges');
DELETE FROM CE_INTEREST_BAL_RANGES
WHERE INTEREST_SCHEDULE_ID = p_interest_schedule_id;
cep_standard.debug('<< CE_INTEREST_SCHED_PKG.delete_bal_ranges');
cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_bal_ranges');
FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_bal_ranges');
END delete_bal_ranges;
| delete_schedule
| |
| CALLED BY |
| InterestAMImpl (deleteIntSchedInfo) |
| |
| DESCRIPTION |
| delete all schedule related information
|
--------------------------------------------------------------------- */
PROCEDURE delete_schedule(p_interest_schedule_id IN number,
x_return_status IN OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
p_effective_date date ;
cep_standard.debug('>> CE_INTEREST_SCHED_PKG.delete_schedule');
delete_bal_ranges(p_interest_schedule_id);
delete_interest_rates(p_interest_schedule_id, p_effective_date);
cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_schedule INTEREST_SCHEDULE_ID missing');
FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_schedule');
cep_standard.debug('<< CE_INTEREST_SCHED_PKG.delete_schedule');
cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.delete_schedule');
FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.delete_schedule');
END delete_schedule;
| update_schedule
| |
| CALLED BY |
| InterestAMImpl (updateIntSchedInfo) |
| |
| DESCRIPTION |
| call xtr API when schedule related information has changed
|
--------------------------------------------------------------------- */
PROCEDURE update_schedule(p_interest_schedule_id IN number,
p_basis IN varchar2,
p_interest_includes IN varchar2,
p_interest_rounding IN varchar2,
p_day_count_basis IN varchar2,
x_return_status IN OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
X_DAY_COUNT_BASIS VARCHAR(30);
cep_standard.debug('>> CE_INTEREST_SCHED_PKG.update_schedule');
select
DAY_COUNT_BASIS,
INTEREST_INCLUDES,
INTEREST_ROUNDING,
BASIS
into
X_DAY_COUNT_BASIS,
X_INTEREST_INCLUDES,
X_INTEREST_ROUNDING,
X_BASIS
from ce_interest_schedules
where INTEREST_SCHEDULE_ID = p_interest_schedule_id;
xtr_schedule_update(p_ce_bank_account_id => X_BANK_ACCOUNT_ID,
p_interest_rounding => p_interest_rounding,
p_interest_includes => p_interest_includes,
p_basis => p_basis,
p_day_count_basis => p_day_count_basis,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.update_schedule INTEREST_SCHEDULE_ID missing');
FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.update_schedule');
cep_standard.debug('<< CE_INTEREST_SCHED_PKG.update_schedule');
cep_standard.debug('EXCEPTION: CE_INTEREST_SCHED_PKG.update_schedule');
FND_MESSAGE.Set_Token('PROCEDURE', 'CE_INTEREST_SCHED_PKG.update_schedule');
END update_schedule;