Деревья в FB
 

Привед всем!
Столкнулся с проблемой. Есть таблица r_uzel01 с полями coderec(int)-ребенок и incoderec(int)-родитель.
Есть процедура которая выбирает только детей.

CREATE PROCEDURE GETCHILD (
PRNT INTEGER,
BLEV SMALLINT)
RETURNS (
CHLD INTEGER,
RLEV SMALLINT,
AAA VARCHAR(30),
INCOD INTEGER,
BBB VARCHAR(30))
AS
DECLARE VARIABLE PRM1 INTEGER;
begin
for select u.coderec from r_uzel01 u where u.incoderec=:Prnt into :Chld
do begin
rLev = bLev + 1;
suspend;
for select Chld3,rLev3 from getchild(:Chld,:rlev) into :Chld,:rlev
do
suspend;
end
end

Как переделать эту процедуру, так что бы у каждого ребенка выводился родитель?