Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Saúde Planos

Linha de Produto:

Linha Protheus 

Segmento:

Saúde 

Módulo:PTU

Função:

Chat Auditoria de Cobrança
Story:DSAUPC-22495



02. SITUAÇÃO/REQUISITO

Possibilitar a troca de mensagens para discução e alinhamento do processo de cobrança.

03. SOLUÇÃO

Parametrização:

É necessário utilizar o client_ID e password do cadbenef. Para isso siga a parametrização do documento abaixo:

CadBenef Online - Configuração


Foi criado um novo campo para que seja informado a url da API auditoriaCobrança:

URL Chat Audit (BA0_URLCHA):


Na rotina operadores do Sistema, foram criados 3 novos campos. Eles irão refletir o conteúdo na tela de chat Auditor

Cons Prof (BX4_CONPRF): Conselho Profissional 

Nr Conselho (BX4_NRCON): Número Conselho profissional

UF (BX4_UFCON): Estado do Conselho Profissional


Sua Unimed somente poderá iniciar um chat caso você tenha importado um arquivo A500 de Resumo de Iternação.

Iniciando o Chat a partir de um lote importado:


Acesse o Chat através do Menu. Para isso crie em seu Menu a chamada para o programa PLPTU003.

Nesta tela você pode ter conversas que você iniciou conforme mencionado acima. Entretanto você também pode ter conversas de guias que você enviou a outras Unimeds e elas comecaram um chat com você. Conforme manual da Unimed os campos abaixo são validados ao iniciar um chat e também ao receber.


API:

A API que a Unimed irá disponibilizar para outras Operadora se comunicarem é a totvsHealthPlans/unimed/chataudit/v1/auditoriaCobranca. Exemplo:


http://localhost:8080/rest/totvsHealthPlans/unimed/chataudit/v1/auditoriaCobranca


Atualização de Dicionário de Dados


Inclusão na tabela SX2 (Tabelas):

TabelaModoModo UnidadeModo EmpresaChave ÚnicaNome
BIU

Compartilhado

ExclusivoExclusivoBIU_FILIAL+BIU_IDSALA+BIU_IDCHATChat de Auditores
BIVCompartilhadoExclusivoExclusivoBIV_FILIAL+BIV_IDSALASala Chat de Auditores


Inclusão na tabela SX3 (Campos):

CampoTipoTamanhoDecimalTítuloDescriçãoPictureObrigatórioBrowseVisualContexto
BA0_URLCHACaracter2000URL Chat AudURL Chat Auditoria Cobr. @!NãoSimAlterarReal
CampoTipoTamanhoDecimalTítuloDescriçãoPictureObrigatórioBrowseVisualContextoValidLista de OpçõesGrupo de campos
BX4_CONPRFCaracter10Cons ProfConselho profissional@!NãoSimAlterarRealPertence("12")1=CRM;2=CRF 
BX4_NRCON Caracter150Nr Conselho Número Conselho          
NãoSimAlterarReal


BX4_UFCON Caracter20UF Conselho UF Conselho Profissional 
NãoSimAlterarRealExistCpo('SX5','12'+M->BX4_UFCON) 
010
CampoTipoTamanhoDecimalTítuloDescriçãoPictureObrigatórioBrowseVisualContextoValidRelaçãoModo EdiçãoLista de Opções Ini. Browse
BIV_FILIALCaracter20Filial     Filial@!          NãoSimVisualizarReal




BIV_IDSALACaracter200ID Sala ChatID Sala Chat             @!SimSimVisualizarReal
iif(Inclui, PLSIDSALA(), M->BIV_IDSALA)  


BIV_ORGMCBCaracter40Origem Cobr Origem Cobrança          @!SimSimVisualizarRealBA0->(ExistCpo("BA0",M->BIV_ORGMCB,1)) .and. M->BIV_ORGMCB != M->BIV_DESTCB
BIU->BIU_STAPRO == "A" .or. Inclui

BIV_ORGDESCaracter600Unimed Or. Unimed Origem            @!NãoSimVisualizarVisualizar
PLSNMOPER( iif(Inclui, '', M->BIV_ORGMCB))

PLSNMOPER( BIV->BIV_ORGMCB)       
BIV_DESTCBCaracter40Destino CobrDestino Cobrança         @!SimSimAlterarRealBA0->(ExistCpo("BA0",M->BIV_DESTCB,1)) .and. M->BIV_ORGMCB != M->BIV_DESTCBiif(Inclui, PLSINTPAD(), M->BIV_DESTCB)BIU->BIU_STAPRO == "A" .or. Inclui

BIV_DESTNOCaracter600Unimed Dest Unimed Destino           @!NãoSimVisualizarVisualizar
PLSNMOPER(iif(Inclui, PLSINTPAD(), M->BIV_DESTCB))

PLSNMOPER( BIV->BIV_DESTCB) 
BIV_NRDOC1Caracter200Nr Doc 1    Número do Documento 1    @!SimSimAlterarReal

BIU->BIU_STAPRO == "A" .or. Inclui

BIV_NRDOC2Caracter200Nr Doc 2Número do Documento 2    @!NãoSimAlterarReal

BIU->BIU_STAPRO == "A" .or. Inclui

BIV_LOTPRTCaracter120Nr Lote presNúmero do Lote Prestador @!SimSimAlterarReal

BIU->BIU_STAPRO == "A" .or. Inclui

BIV_GUIPRTCaracter200Guia Prest  Nr Guia do prestador     @!SimSimAlterarReal

BIU->BIU_STAPRO == "A" .or. Inclui

BIV_GUIOPECaracter200Guia Oper   Nr guia operadora        @!SimSimAlterarReal

BIU->BIU_STAPRO == "A" .or. Inclui

BIV_STAPROCaracter10Status Proc Status do Processamento @!SimSimVisualizarRealPertence("AFPTENL") iif(Inclui, 'A', M->BIV_STAPRO) 
#PLStatBox()
BIV_DATMSGData80Dt Ult Msg  Data última mensagem     
SimSimVisualizarReal
Date()


CampoTipoTamanhoDecimalTítuloDescriçãoPictureObrigatórioBrowseVisualContextoValidrelaçãoLista de OpçõesGrupo de Campos
BIU_FILIALCaracter20Filial      Filial do Sistema        
NãoNão





BIU_IDSALACaracter200ID Sala ChatID Sala Chat             @!SimSimVisualizarReal
M->BIV_IDSALA       

BIU_IDCHATCaracter200ID Chat Aud ID Chat Auditores        @!SimSimVisualizarReal
PLSIDCHAT(M->BIV_IDSALA)  

BIU_CODCTRCaracter200Contr Trans Controle de Transação    @!SimSimVisualizarReal
PLSSEQCONT()      

BIU_DATGERCaracter210Data GeraçãoData/hora da Geração     @!NãoSimVisualizarReal



BIU_ORGMSGCaracter40Unimed Orig Unimed Origem            @!.!!!NãoSimVisualizarReal
 PLSINTPAD()   

BIU_TADTORCaracter10Tp Aud Orig Tipo Auditor Origem      @!SimSimVisualizarRealPERTENCE("12") PLSAUDTOR("BX4_CONPRF") 1=CRM;2=COREN       
BIU_NOMEORCaracter700Nm Aud Orig Nome do Auditor Origem   @!SimSimVisualizarReal
UsrRetName(RetCodUsr())

BIU_CONPORCaracter150Con Prof OrgConselho Prof Origem     @!SimSimVisualizarReal
PLSAUDTOR("BX4_NRCON")                          

BIU_UFCPORCaracter20UF Con Orig UF Conselho Origem       @!SimSimVisualizarRealExistCpo('SX5','12'+M->BIU_UFCPOR)PLSAUDTOR("BX4_UFCON") 
010
BIU_DESMSGCaracter40Unimed Dest Unimed Destino           @!.!!!SimSimAlterarRealM->BIU_DESMSG $ M->BIV_ORGMCB + M->BIV_DESTCB .and. M->BIU_DESMSG != PLSINTPAD()iif(M->BIV_ORGMCB==PLSINTPAD(), M->BIV_DESTCB, M->BIV_ORGMCB) 

BIU_TADTDSCaracter10Tp Aud Dest Tipo Auditor Destino     @!SimSimAlterarRealPERTENCE("12") 
1=CRM;2=COREN
BIU_NOMEDSCaracter700Nm Aud Dest Nome Auditor Destino     @!SimSimAlterarReal



BIU_CONPDSCaracter150Con Prof DesConselho Prof Destino    @!SimSimAlterarReal



BIU_UFCPDSCaracter20UF Con Dest UF Conselho Destino      @!SimSimAlterarRealExistCpo('SX5','12'+M->BIU_UFCPDS)

010
BIU_TPTRANCaracter10Tipo Trans  Tipo de Transação        @!SimSimVisualizarRealPertence("1")"1"        1=Envio                              
BIU_MSGENVMemo2000Msg Enviada Mensagem Enviada         @!SimSimAlterarRealPLSLIMITE(M->BIU_MSGENV)


BIU_ARQANXCaracter2000Anexo       Arquivo Anexo            @!NãoSimAlterarReal



BIU_STAPROCaracter10Status      Status Processamento     @!SimSimVisualizarRealPertence("AFPTENL") "P" #PLStatBox()    
BIU_MSGERRMemo2000Msg Erro    Mensagem de Erros        @!NãoSimVisualizarReal



BIU_MSGRESMemo2000Msg. Resp.  Mensagem de Resposta     @!NãoSimVisualizarReal



BIU_RESULTCaracter1500Resultado   Resultado do Envio       @!NãoSimVisualizarReal



BIU_TIMERPCaracter80Tempo Resp. Tempo de Resposta        @!NãoSimVisualizarReal



BIU_DATENVCaracter80Data Envio  Data Envio               
NãoSimVisualizarReal



BIU_HORENVCaracter80Hora Envio  Hora Envio               
NãoSimVisualizarReal




Inclusão na tabela SIX (Índices): 

TabelaOrdemChaveDescrição
BIU1BIU_FILIAL+BIU_IDSALA+BIU_IDCHATID Sala Chat + ID Chat Aud
BIU2BIU_FILIAL+BIU_CODCTRContr Trans
BIV1BIV_FILIAL+BIV_IDSALAID Sala Chat
BIV2BIV_FILIAL+BIV_ORGMCB+BIV_DESTCB+BIV_NRDOC1+BIV_NRDOC2+BIV_LOTPRT+BIV_GUIPRT+BIV_GUIOPEOrigem Cobr + Destino Cobr + Nr Doc 1 + Nr Doc 2 + Nr Lote pres + Guia


Inclusão na tabela SX7 (Gatilhos):

CampoSeqRegraC. DomínioSeekAliasOrdemChave
BIU_TADTDS1PLSAUDT("NOME" + M->BIU_TADTDS)BIU_NOMEDSN
0
BIU_TADTDS2PLSAUDT("COD" + M->BIU_TADTDS)BIU_CONPDSN
0
BIU_TADTDS3PLSAUDT("UF" + M->BIU_TADTDS)BIU_UFCPDSN
0
BIV_DESTCB1BA0->BA0_NOMINTBIV_DESTNOSBA01xFilial()+M->BIV_DESTCB
BIV_ORGMCB1BA0->BA0_NOMINTBIV_ORGDESSBA01xFilial()+M->BIV_ORGMCB


Inclusão na tabela SX9 (Relacionamento):

Tabela Domínio

Exp. Domínio

Tabela Contra-Domínio

Exp. Contra-Domínio

Tp. Lig. Dom.

Tip. Lig. CDom.

BIVBIV_IDSALABIUBIU_IDSALA1N

04. DEMAIS INFORMAÇÕES

Não se aplica.


05. ASSUNTOS RELACIONADOS

Não se aplica.