Saúde - Planos Linha Datasul - Finanças HFP - RN 412 - Histórico de exclusão

Tempo aproximado para leitura: 00:02:33 min

Dúvida
Como saber se existe histórico da exclusão de um beneficiário para gerar a devolução de mensalidade?

Ambiente
Saúde - Planos Linha Datasul - Faturamento - Todas as versões

Solução
Ao gerar o faturamento de devolução de mensalidades pelo dtvw-devolucao-mensalidade, alguns beneficiários podem não estar sendo faturados.

Isto pode ocorrer porque não existe histórico da exclusão do beneficiário.

O histórico da exclusão fica na tabela histor-ocor-usuar, e este é criado automaticamente quando o processo de exclusão é realizado, mas, esporadicamente, em quedas de energia, travamento, ou abortamento do processo, o histórico pode não ser criado, ocasionando com que o processo de devolução de mensalidade não localize o registro.

Para certificar que o histórico existe, o script abaixo poderá ser executado via Editor progress.

As informações dos colchetes [ ] deverão ser substituídas pelos dados solicitados.

Caso a tabela já exista, será apresentado uma mensagem informando, caso a mesma não exista, será criada, e possibilitará prosseguir com o processo de devolução de mensalidade.

find usuario where usuario.cd-modalidade = [informar a modalidade]
               and usuario.nr-ter-adesao = [informar o termo de adesão]
               and usuario.cd-usuario    = [informar o código do beneficiário]
    no-lock no-error.

if avail usuario 
then do:
        find histor-ocor-usuar where histor-ocor-usuar.cd-modalidade        = usuario.cd-modalidade
                                 and histor-ocor-usuar.nr-proposta          = usuario.nr-proposta
                                 and histor-ocor-usuar.cd-usuario           = usuario.cd-usuario
                                 and histor-ocor-usuar.idi-tip-ocor         = 25
                                 no-lock no-error.
        if not avail histor-ocor-usuar
        then do:
               create histor-ocor-usuar.
               assign histor-ocor-usuar.idi-registro = next-value(seq-histor-ocor-usuar).
 
               assign histor-ocor-usuar.cd-modalidade     = usuario.cd-modalidade
                      histor-ocor-usuar.nr-proposta       = usuario.nr-proposta    
                      histor-ocor-usuar.nr-ter-adesao     = usuario.nr-ter-adesao  
                      histor-ocor-usuar.cd-usuario        = usuario.cd-usuario     
                      histor-ocor-usuar.dat-alter         = usuario.dt-mov-exclusao
                      histor-ocor-usuar.cod-usuar-alter   = usuario.cd-userid-exclusao
                      histor-ocor-usuar.idi-tip-ocor      = 25
                      histor-ocor-usuar.cod-campo-ant     = ""   
                      histor-ocor-usuar.cod-campo-atual   = string(usuario.cd-motivo-cancel)
                      histor-ocor-usuar.dt-exclusao-plano = usuario.dt-exclusao-plano.
        end.
        else do:
               MESSAGE "Tabela ja Existente"
                   VIEW-AS ALERT-BOX INFO BUTTONS OK.
        end.
end.