Ajuste Crítica Quantidade de Dias para Procedimento Seriado

Características do Requisito

Descrição

Implementado melhoria para que o sistema não apresente a crítica 09S - Quantidade de dias permitido para execução da guia foi ultrapassado quando carregada uma liberação com procedimento seriado com saldo.
Criado o ponto de entrada PL09009S para manipular o retorno da crítica 09S.

Importante: para definir se um item é seriado, o sistema verificará a Classe de Procedimento (PLSA202) do mesmo, campo Tipo de Classe (BJE_TIPO) = 2-Seriado. O vínculo do evento com a Classe é realizada na Tabela Padrão (PLSA940), campo Classe Proc. (BR8_CLASSE).

Ajuste realizado para atender a legislação vigente conforme:

6.4.21. No tratamento seriado, a continuidade do atendimento poderá ser prestada após a validade de 60 (sessenta) dias e enquanto o beneficiário estiver de posse do cartão de identificação válido, considerando como limite o número de sessões liberadas pela Unimed Origem, que efetuará o pagamento total das sessões realizadas.

Procedimento para Implantação

O sistema é atualizado logo após a aplicação do pacote de atualizações (Patch) deste chamado.

Procedimento para Utilização

       1.            No Plano de Saúde (SIGAPLS), acesse Atualizações / Atendimento / Autorização SADT (PLSA094A).

       2.            Clique em Incluir.

       3.            No campo Nr. Liberação (BE1_NUMLIB) informe uma guia com validade vencida. O sistema verifica se o evento é seriado para aplicar a crítica 09S - Quantidade de dias permitido para execução da guia foi ultrapassado.

Vídeo

• Vídeo hospedado no youtube e inserido no template por meio da macro Widget Connector.

** Canal do youtube e software de vídeoem definição.

Título do Vídeo:

Disponibilizado pelo Marketing.

Introdução:

Disponibilizado pelo Marketing.

Passo a Passo:

Capturar diretamente do sistema.

Finalização:

Disponibilizado pelo Marketing.

Ponto de Entrada

Exemplo:

#Include 'Protheus.ch'

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

    aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab