Вычисляемое поле и дополнительный SELECT

Тут больше нудна идея, правильная реализация, так сказать.

Если поля "Цена", "Валюта" и вычисляемое поле "Цена в валюте".

Цена в валюте вычисляется так:

(SELECT RES FROM GET_PRICE_CURRENCY(ID_CURRENCY, PRICE))

сама процедура

create or alter procedure GET_PRICE_CURRENCY (
    ID_CURRENCY INTEG,
    PRICE type of column APART.PRICE)
returns (
    RES type of column APART.PRICE)
as
declare variable RATE FLOAT2;
BEGIN
  SELECT COURSE FROM TCURRENCY WHERE ID = :ID_CURRENCY INTO :RATE;
  RES = :PRICE / :RATE;
  SUSPEND;
END

Меня смущает, что каждый раз выполняется

 SELECT COURSE FROM TCURRENCY WHERE ID = :ID_CURRENCY INTO :RATE;

А как бы сделать правильно и без этого дополнительного SELECT?
Или оставить всё как есть?