Histórico da Página
01. DADOS GERAIS
| Linha de Produto: | Microsiga Protheus |
|---|---|
| Segmento: | Saúde |
| Módulo: | SIGAPLS |
| Função: | PLSA790V |
| Story: | DSAUBE-1032511033 |
02. SITUAÇÃO/REQUISITO
Necessidade de criar a integração Auditoria PLS x Carol.
03. SOLUÇÃO
Implementada melhoria com a criação da integração Auditoria PLS x Carol. Quando o Schedule de configuração estiver parametrizado, o PLS realiza a integração com a Carol e atualiza as guias que estão em estudo de acordo com o resultado da Auditoria realizada na Carol.
03. PASSOS INICIAIS
- Passo 1 - Configurações Plano de Saúde (SIGAPLS)
- Passo 2 - Configurador (SIGACFG)
...
| Totvs custom tabs box | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
05. FUNCIONAMENTO DA INTEGRAÇÃO
No Plano de Saúde (SIGAPLS), ao criar uma guia que deva ser analisada pela Auditoria, o registro de análise (B53) é encaminhado para o Departamento de Análise da Carol definido no parâmetro MV_SETORAT (as guias serão encaminhadas de todas as fontes: solicitações Remote e Portal do Prestador).
...
Card documentos Informacao Quando um evento for negado, o motivo TISS utilizado (B72_MOTIVO) será o definido no parâmetro MV_PLCRCAR. Titulo IMPORTANTE!
06. LOG DO PROCESSO
Caso o cliente deseje realizar um rastreamento de toda a comunicação, é possível ativando o parâmetro MV_PCARLOG no configurador (0=Desativa/1=Ativa). O arquivo será gerado no ProtheusData/logpls/ pasta com a data da execução do processo. O arquivo gerado é o plaudcarol.log
...
O primeiro bloco do log traz a comunicação realizada e o Jsons enviados e recebidos. O segundo e terceiro blocos trazem a atualização das guias e transferências entre departamentos respectivamente.
07. ALTERAÇÕES DICIONÁRIOS DE DADOS
- Campos SX3
| Campo | Conteúdo |
|---|---|
| X3_ARQUIV | BA0 |
| X3_CAMPO | BA0_CARDOM |
| X3_TIPO | Caracter |
| X3_TAMANHO | 50 |
| X3_DECIMAL | 0 |
| X3_TITULO | SubDomain |
| X3_DESCRI | Carol SubDomain |
| X3_PICTURE | |
| X3_F3 | |
| X3_BROWSE | Não |
| X3_VISUAL | Alterar |
| X3_CONTEXT | Real |
| X3_FOLDER | 3 |
...
| Campo | Conteúdo |
|---|---|
| XA_ALIAS | BA0 |
| XA_ORDEM | 3 |
| XA_DESCRIC | Integracao Carol |
08. PONTOS DE ENTRADA
O Ponto de entrada PCARAUD1 permite manipular o retorno de um evento auditado pela Carol. O ponto pode receber 3 modelos de retorno:
...
| Ponto de Entrada | PCARAUD1 |
|---|---|
| Fonte | PLAudCarol.PRW |
| Parâmetros | paramixb[01] - cRequestID - Chave da Guia + Sequen paramixb[02] - lFind - Se o evento foi encontrado pelo PLS paramixb[03] - cAlias - Alias do cabeçalho da guia paramixb[04] - cAliasIte - Alias do evento paramixb[05] - cCodPad - Tabela Padrão paramixb[06] - cCodPro - Código do Evento paramixb[07] - cSeqPro - Sequen do Evento paramixb[08] - cCodGlo - Código da glosa encontrada no evento paramixb[09] - cParecer - Parecer da Guia 0=Autorizado / 1=Negado / 2=Encaminha para Auditor paramixb[10] - nQtdSol - Quantidade solicitada paramixb[11] - nQtdAut - Quantidade autorizada paramixb[12] - cMotivo - Motivo da critica paramixb[13] - cObsAna - Observação da análise |
| Retorno | Array de dados contendo: aRet[01] - Boolean - Indica utiliza a gravação padrão do sistema |
| Bloco de código | ||
|---|---|---|
|
...
| |||
#INCLUDE "PROTHEUS.CH" |
...
User Function PCARAUD1() |
...
Local cRequestID := paramixb[01] //Chave da Guia + Sequen |
...
Local lFind := paramixb[02] //Se o evento foi encontrado pelo PLS |
...
Local cAlias := paramixb[03] //Alias do cabecalho da guia |
...
Local cAliasIte := paramixb[04] //Alias do evento |
...
Local cCodPad := paramixb[05] //Tabela Padrao |
...
Local cCodPro := paramixb[06] //Codigo do Evento |
...
Local cSeqPro := paramixb[07] //Sequen |
...
Local cCodGlo := paramixb[08] //Codigo da glosa encontrada no evento |
...
Local cParecer := paramixb[09] //Parecer da Guia 0=Autorizado / 1=Negado / 2=Encaminha para Auditor |
...
Local nQtdSol := paramixb[10] //Quantidade solicitada |
...
Local nQtdAut := paramixb[11] //Quantidade autorizada |
...
Local cMotivo := paramixb[12] //Motivo da critica |
...
Local cObsAna := paramixb[13] //Observacao da analise |
...
Local aRet := {} |
...
/* --------------------------- |
...
Array de Retorno |
...
Posicao 01 - lGrvPadrao |
...
Posicao 02 - lFind |
...
Posicao 03 - cCodPad |
...
Posicao 04 - cCodPro |
...
Posicao 05 - cSeqPro |
...
Posicao 06 - cCodGlo |
...
Posicao 07 - cParecer |
...
Posicao 08 - nQtdSol |
...
Posicao 09 - nQtdAut |
...
Posicao 10 - cMotivo |
...
Posicao 11 - cObsAna |
...
--------------------------- */ |
...
//Utiliza a gravacao padrao do PLS, alterar os dados desejados alterando as variaveis abaixo |
...
Aadd(aRet,.T.) |
...
Aadd(aRet,lFind) |
...
Aadd(aRet,cCodPad) |
...
Aadd(aRet,cCodPro) |
...
Aadd(aRet,cSeqPro) |
...
Aadd(aRet,cCodGlo) |
...
Aadd(aRet,cParecer) |
...
Aadd(aRet,nQtdSol) |
...
Aadd(aRet,nQtdAut) |
...
Aadd(aRet,cMotivo) |
...
Aadd(aRet,cObsAna) |
...
//Retornando aRet vazio, o PLS ignora o resultado do PE e realiza a gravacao padrao |
...
aRet := {} |
...
//Indica que vai realizar a gravacao manual do Registro (Importante: toda a gravacao referente ao evento informado deve ser realizado neste ponto) |
...
Aadd(aRet,.F.) |
...
Return aRet |
O Ponto de entrada PCARAUD2 permite manipular a transferência de uma guia para um departamento quanto todos os eventos foram respondidos pela Carol. O ponto pode receber 3 modelos de retorno:
...
Importante: este ponto será acionado somente se pelo menos um dos eventos da guia estiver indicado como Análise do Auditor do PLS no Json de resposta.
| Bloco de código | ||
|---|---|---|
|
...
| |||
#INCLUDE "PROTHEUS.CH" |
...
User Function PCARAUD2() |
...
Local cGuia := paramixb[1] |
...
Local cAliCab := paramixb[2] |
...
Local cAliEve := paramixb[3] |
...
Local lTransfere := paramixb[4] |
...
Local cDepartRet := paramixb[5] |
...
Local nQtdEncam := paramixb[6] |
...
Local nQtdAudit := paramixb[7] |
...
Local aRet := {} |
...
/* |
...
--------------------------- |
...
Array de Retorno |
...
Posicao 1 - lTransfere |
...
Posicao 2 - cDepartRet |
...
--------------------------- |
...
*/ |
...
//Utiliza a gravacao padrao do PLS, e possivel indicar se a guia vai ser transferida e para qual departamento |
...
Aadd(aRet,lTransfere) |
...
Aadd(aRet,cDepartRet) |
...
//Retornando aRet vazio, o PLS ignora o resultado do PE e realiza a gravacao padrao |
...
aRet := {} |
...
Return aRet |
| Templatedocumentos |
|---|
| HTML |
|---|
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after {
background: #FF9900; !important
}
.menu-item.active-tab {
border-bottom: none !important;
}
</style>
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas