Como resolver um problema de subselect dentro de uma SP?

Não consigo utilizar esta subselect no Firebird 1.5...algum dos colegas sabe como posso contornar esse problema para conseguir o resultado abaixo?

if (cod_itmh_temp in (SELECT RI.COD_ITMH FROM TBCIME_PACIENTE PA
INNER JOIN TBCIME_REGRA_PACI RE ON RE.cod_cart_paci = PA.COD_CART_PACI
INNER JOIN TBCIME_REGRA_ITEM_PACI RI ON RI.COD_REGR = RE.COD_REGR
AND RI.COD_CART_PACI = RE.COD_CART_PACI
WHERE PA.COD_EMPR = :cod_empr)) then
count_imh = count_imh + 1;