这个查询函数那里不对

[yjc2020]

这个查询函数那里不对
这个查询函数那里不对
在Oracl里的函数是这样写的：
create or replace function ordercode(departmentcode in department.departmentcode%TYPE) return varchar2
is
scode varchar2(10000);
ccode department.departmentcode%TYPE;
begin
scode := '';
ccode := departmentcode;
loop
scode := ccode||scode;
select scode into ccode from department where departmentcode=ccode;
end loop;
return scode;
exception
when NO_DATA_FOUND then return scode;
end;
这样查询
select departmentcode from department order by ordercode(0);

现在不管怎么改都输出
1001
1002
1001001
1003
1003001
1002001
1003002

我希望这样输出
1001
1001001
1002
1002001
1003
1003001
1003002

请问有什么错误

新手没多少分，请谅解