Stored procedure para extenso no Firebird

Para aqueles que colocam toda a regra de negócio no banco de dados, fiz uma stored procedure (faz teeeempo... em 2009) para gerar o extenso de um valor a partir do Firebird.
Ela usa somente SQL; não usa qualquer UDF, justamente para que não haja dependências externas.
O valor a ser gerado pode ser de até 8 quatrilhões.
O extenso pode ser gerado com ou sem os centavos.

Tentei publicar aqui mas a área de postagem não comporta todo o código, então segue um link para quem quiser baixar o arquivo.

https://1drv.ms/u/s!AmLbsvMvhf6Smmk7l2sy3s85FStO?e=5toSA9