The following lines contain the word 'select', 'insert', 'update' or 'delete':
select nvl(sum(amount),0)
into l_total
from qp_limit_transactions
where limit_balance_id = l_limit_balance_id;
PROCEDURE Update_Balances
( x_retcode OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, x_errbuf OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_list_header_id IN NUMBER default null
, p_list_line_id IN NUMBER default null -- Must be -1 or null
, p_limit_id IN NUMBER default null
, p_limit_balance_id IN NUMBER default null
)
IS
--
cursor lmt_balances (l_limit_id in number) is
select *
from qp_limit_balances
where limit_id = l_limit_id and
limit_balance_id = nvl(p_limit_balance_id,limit_balance_id)
for update;
select *
from qp_limits
where list_header_id = nvl(p_list_header_id,list_header_id) and
limit_id = nvl(p_limit_id,limit_id) and
list_line_id = nvl(p_list_line_id,list_line_id);
update qp_limit_balances
set available_amount = nvl(l_limits_row.amount,0) - l_trans_total,
consumed_amount = l_trans_total
where current of lmt_balances;
END Update_Balances ;