Histórico da Página
Ajuste Crítica Quantidade de Dias para Procedimento Seriado
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Saúde | ||||||||||
Módulo: | Plano de Saúde | ||||||||||
Rotina: |
| ||||||||||
Ponto de Entrada: | PL09009S | ||||||||||
Tickets relacionados | 3482765 | ||||||||||
País(es): | Brasil | ||||||||||
Banco(s) de Dados: | Todos relacionais | ||||||||||
Sistema(s) Operacional(is): | Todos |
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.
Ponto de Entrada PL09009S
Este PE é acionado ao carregar uma Liberação, e percorre todos os eventos da Guia da mesma. Os parâmetros do ponto são:
paramixb[1] - Chave da guia (BEA_OPEMOV+BEA_ANOAUT+BEA_MESAUT+BEA_NUMAUT)
paramixb[2] - Sequencial do evento (BE2_SEQUEN)
paramixb[3] - Se a chamada é oriunda de fontes RPC (Portal).
Obs: Os Alias BEA e BE2 estão posicionados.
O retorno do ponto é um array contendo:
aRet[1] - Se a crítica 09S deve ser apresentada para este evento (se qualquer evento retornar .F. - não apresenta a crítica, a mesma não será apresentada pra guia)
aRet[2] - Se o evento posicionado é seriado.
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.
Ponto de
EntradaEntrada PL09009S
Descrição:Informe o Menu em que estará localizada a rotina | Ponto de Entrada para indicar se a crítica 09S deve ser apresentada ao carregar uma Liberação. | ||||||||||||||||||||
Localização:Informe o Submenu em que estará localizada a rotina | Atualizações/Atendimento | ||||||||||||||||||||
Eventos:Informe o Título da rotina | Autorização SADT (PLSA094A) | ||||||||||||||||||||
Programa Fonte: | PLSA090 PLSMFUN | ||||||||||||||||||||
Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”SIGAPLS | ||||||||||||||||||||
Parâmetros: |
| ||||||||||||||||||||
Retorno: |
lRet | Lógico | Indica se deve apresentar a crítica 09S
|
Exemplo:
#Include 'Protheus.ch'
User Function
CN120ALTPL09009S()
Local
cGuia :=
PARAMIXBparamixb[1]
Local
cSequen :=
PARAMIXBparamixb[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCabLocal lWeb := paramixb[3]
Local lCritica := .F.
Local lSeriado := .F.
//Tratamento para indicar se deve apresentar a critica 09S
//Tratamento para indicar se o evento e seriado
Return {lCritica,lSeriado}