Migradores de bases

Fazer a importação do comando abaixo antes de olhar nas tabelas 'protoco', 'orcamento'.

SELECT
codigo AS setorfc,
nome AS descricaoforma,
valor1 AS custoadicionalforma,
valor2 AS validadeforma,
--,veiculo as codigogrupo e produto do veiculo para homeopatia
uso AS usoforma,
0 AS tipoforma
FROM
bd040

/ Comando atual 'qu_DadosFormaFarmaceutica' /
SELECT
cast(NULL AS integer) CODIGOFORMA,
cast(substring(tmp.FAMILIA FROM 1 FOR 50) AS varchar(50)) DESCRICAOFORMA,
cast(0 AS integer) VALIDADEFORMA,
cast(0 AS numeric(12, 2)) VALORMINIMOFORMA,
cast('EXTERNO' AS varchar(10)) AS USOFORMA,
cast(0 AS numeric(12, 2)) CUSTOADICIONALFORMA,
cast('' AS varchar(10)) AS ID_FORMA_FARMACEUTICA,
cast(substring(tmp.FAMILIA FROM 1 FOR 10) AS varchar(10)) AS ID_RECIPIENTE,
cast(0 AS integer) AS TIPOFORMA
FROM ( SELECT DISTINCT
fv.FAMILIA
FROM
BD091 fv
WHERE
coalesce(fv.FAMILIA, '') <> ''
UNION
SELECT DISTINCT
fv.FAMILIA
FROM PROTOCO fv
WHERE
coalesce(fv.FAMILIA, '') <> ''
UNION
SELECT DISTINCT
fv.FORMA AS FAMILIA
FROM BD031 fv
WHERE
coalesce(fv.FORMA, '') <> '' ORDER BY 1 DESC) AS tmp