Saúde - Planos Linha Datasul - Revisão de Contas Médicas (HRC) - Erro Tipo de Insumo Interno Não Cadastrada

Este erro ocorre, pois não há registro com código de tipo de insumo na tabela tipoinsu e/ou programa RC0510I:

/* --------- VERIFICA SE EXISTE O TIPO DE INSUMO INTERNO --- */
find tipoinsu
            where tipoinsu.cd-tipo-insumo = cd-tipo-insumo-interno-z
                           no-lock no-error.
                if   avail tipoinsu
                then do:
                       assign ds-tipo-insumo-interno-aux =
                              tipoinsu.ds-tipo-insumo.
                       display ds-tipo-insumo-interno-aux with frame f-padrao.
                     end.
                else do:
                       message "Tipo de insumo interno nao cadastrado."
                               view-as alert-box title " Atencao !!! ".
                       undo, retry.
                     end.

Mais informações: https://tdn.totvs.com/pages/releaseview.action?pageId=236432372