XAL programmering - find aktuel valutakurs (bedste metode)

Jeg har lavet et lille eksternt program til at registrere vareforbrug på projekter.
Det er et eksternt system som fungerer udenfor Concorde C5 (v/2.1)
Mine data gemmes på en central database server, hvor jeg så "efter behov" kan bede Concorde C5 om at trække data over i Projekt->Dagligt kladden

I forbindelse med dette skal jeg beregne korrekte priser ud fra varepris/prisenhed/valutatype kontra projektets valutatype.

Mit spørgsmål går på hvordan man "mest rigtigt" finder den aktuelle valutakurs?

For øjeblikket klarer jeg problemet ved at udføre følgende:
--------------
REAL &salgspriskurs
DATE &kursfradato = 01\01\1970
SEARCH Valutakurs USING INDEX ValutaIdx
WHERE Valutakurs.Valuta == Valuta
  IF Valutakurs.Fradato > &kursfradato THEN SET &kursfradato = Valutakurs.Fradato ENDIF
END
SET &salgspriskurs = Valutakurs[ValutaIdx == Valuta, &kursfradato].Kurs
--------------
Denne metode virker dog programmeringsmæssigt "uøkonomisk", hvis man f.eks. skal bruge det flere gange og jeg undrer mig om der allerede er en "kurs-makro" tilgængelig - eller andre bedre/mere sikker metoder.