Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

A classe PLPtuJsPCad, será responsável pela montagem do JSON para comunicar com a API de Pré-Cadastro do Beneficiário cadBenef. O JSON será enviado com os seguintes dados:

...

conforme exemplo abaixo:

...

Exemplo:

Bloco de código
languagec#
themeRDark
titleJSON de Envio
linenumberstrue
collapsetrue
{  
   "message":"Criar Beneficiario",
   "listaBeneficiarios":[
      {
         "dadosUnimed":{
            "codUnimed":"0001"
         },
         "dadosContratante":{
            "cpfCnpj":"99999999999999",
            "nomeContratante":"EMPRESA JURIDICA TESTE"
         },
         "dadosPessoa":{
            "nome":"BENEFICIARIO TESTE",
            "nomeSocial":"BENEFICIARIO SOCIAL TESTE",
            "genero":"F",
            "generoSocial":"F",
            "dtNascimento":"20100101",
            "cpf":"99999999999",
            "cns":"999999999999999"
         },
         "dadosBeneficiario":{
            "cdCarteiraTitular":"00011008000005016",
            "dependencia":"00",
            "dataInclusao":"20230101"
         },
         "dadosPlano":{
            "dtValidadeCartao":"20270112",
            "viaCartao":"1",
            "dtInicioVigencia":"20010101",
            "tpAbrangencia":1,
            "tpAcomodacao":"B",
            "tpContratacao":3,
            "tpContrato":"P",
            "segmentacao":"02",
            "idRegPlanoANS":1,
            "registroANS":"123456",
            "cdRede":"TST01",
            "cdLcat":0,
            "nomeProduto":"PRODUTO EXEMPLO 1"
         },
         "listaAbrangencias":[            
			{
               "cdMunic": 3548500,
               "cdUF": 11
            }          
		 ],
         "listaCarencias":[
            {
               "tpCobertura":"1",
               "DtFimCarencia":"20220512"
            },
         ]
      }
   ]
}

Para alterar o JSON, poderá ser utilizado o Ponto de Entrada PLMPJSBE (DT PE Manipular JSON de Envio de Beneficiários).

3. DICIONÁRIO DE DADOS

Atualização do Arquivo SX2 (Tabelas):

...

Após realizar a criação do Dicionário principal (Item 07 da documentação de Integrações TOTVS Saúde Planos Linha Protheus), vamos atualizar as seguintes tabelas para adaptar a API de Pré Cadastro do Beneficiário.

Atualização do Arquivo SX3 (Campo): 

TabelaCampoTipoTamanhoDecimalTituloDescriçãoPictureValidaçãoInicializador PadrãoConsulta PadrãocBoxUsadoExibe BrowserVisual?ContextoObrigatórioWhen
BA1BA1_PTUCADC10Cad. Ben PTUCad.Benef na UNIMED@!
"0"
0=Nao Cadastrado;1=Pre Cadastrado;2=Cadastro CompletoSimSimAlterarReal


TabelaCampoTipoTamanhoDecimalTituloDescriçãoPictureValidaçãoInicializador PadrãoConsulta PadrãocBoxUsadoExibe BrowserVisual?ContextoObrigatórioWhen
B7EB7E_FILIALC80FilialFilial do SistemaB7EB7E_CODOPEC40OperadoraOperadora@R !.!!!Vazio() .Or. ExistCpo("BA0",FWFldGet("B7E_CODOPE"),1)PLSINTPAD(RETCODUSR())B89PLSSimSimAlterarRealSimINCLUIB7EB7E_CODIGOC40Codigo IntegCódigo da Integração@!GETSXENUM( "B7E", "B7E_CODIGO" )SimSimVisualizarRealSimB7EB7E_DESCRIC400DescriçãoDescrição da Integração@!SimSimAlterarRealSimB7EB7E_ALIASC30Alias Prima.Alias Primário@!Vazio() .Or. PlsAliasExi(FWFldGet("B7E_ALIAS"))SimSimAlterarRealSimINCLUIB7EB7E_ENDPOIC1000EndPointEndPoint da IntegracaooSimSimAlterarRealNão
B7EB7E_
ATIVOC10AtivoAtivo@!10=Nao;1=SimSimNãoAlterarRealSimB7EB7E_MAXENVN30Máximo EnvioMáximo de Envio@E 999FWFldGet("B7E_MAXENV") > 0SimSimAlterarRealSimB7EB7E_CLASTPC200Classe StampClasse Stamp da Integ.Vazio() .Or. FindClass(FWFldGet("B7E_CLASTP"))SimNãoAlterarRealNãoB7EB7E_CLACOMC200Classe Comu.Classe para ComunicaçãoVazio() .Or. FindClass(FWFldGet("B7E_CLACOM"))SimNãoAlterarRealNãoB7EB7E_USRAUTC200Login Auten.Login AutenticaçãoSimNãoAlterarRealNãoB7EB7E_PASAUTC500Senha Auten.Senha Autenticação@*SimNãoAlterarRealNãoB7EB7E_ENDAUTC1000EndPoint AutEndPoint AutenticaçãoSimNãoAlterarRealNãoB7EB7E_BEAAUTM100Bearer Aute.Bearer AutenticaçãoSimNãoVisualizarRealNãoB7EB7E_COOAUTM100Cookie Aut.Cookie AutenticaçãoSimNãoVisualizarRealNãoB7EB7E_TMPAUTC200Tempo Expe.Tempo de ExpiraçãoSimNãoVisualizarRealNãoB7EB7E_PERGGEC100Perg. GerarPergunta Gerar Pedidos@!SimNãoAlterarRealNãoB7EB7E_
UNIMEC10é Unimed?Integração Unimed?@!
"2"
1=Sim;2=NaoSimNãoAlterarRealNão
TabelaCampoTipoTamanhoDecimalTituloDescriçãoPictureValidaçãoInicializador PadrãoConsulta PadrãocBoxUsadoExibe BrowserVisual?ContextoObrigatórioWhenB7FB7F_FILIALC
80FilialFilial do SistemaB7FB7F_CODOPEC40OperadoraOperadora@R !.!!!Vazio() .Or. ExistCpo("BA0",FWFldGet("B7F_CODOPE"),1)IIF(IsInCallstack("PLMapIntegra"),

B7E
->B7E_CODOPE,PLSINTPAD(RETCODUSR()))B89PLSSimSimAlterarRealSimIIF(IsInCallstack("PLMapIntegra"),.F.,INCLUI)B7FB7F_CODIGOC
40Codigo IntegCodigo da Integração@!Vazio() .Or. ExistCpo("
B7E
",FWFldGet("B7F_CODOPE")+FWFldGet("B7F_CODIGO"),1)IIF(IsInCallstack("PLMapIntegra"),B7E->B7E_CODIGO," ")SimSimAlterarRealSimIIF(IsInCallstack("PLMapIntegra"),.F.,INCLUI)B7FB7F_CODPEDC90Cod. PedidoCodigo do Pedido@!GETSXENUM("B7F", "B7F_CODPED")SimSimVisualizarRealSimB7FB7F_ALIASC30Alias Prima.Alias Primário@!

Vazio() .Or. ExistCpo("B7E",FWFldGet("B7F_CODOPE")+FWFldGet("B7F_CODIGO")+FWFldGet("B7F_ALIAS"),1)

IIF(IsInCallstack("PLMapIntegra"),B7E->B7E_ALIAS," ")SimSimAlterarRealSimIIF(IsInCallstack("PLMapIntegra"),.F.,INCLUI)B7FB7F_CHAVEC600ChaveChave de Busca@!Vazio() .OR. ExistCpo(FWFldGet("B7F_ALIAS"),FWFldGet("B7F_CHAVE"),IIF(FWFldGet("B7F_ALIAS") $ "BA1/BE4",2,1))SimSimAlterarRealSimB7FB7F_DATINCD80Dt. InclusãoData de InclusãodDataBaseSimSimAlterarRealSimB7FB7F_DATCOMD80Dt. ComunicaData de ComunicaçãoSimSimVisualizarRealNãoB7FB7F_STATUSC10StatusStatus do Pedido@!00=Pendente de Envio;1=Envio Realizado;2=Erro de Envio;3=Envio CanceladoSimNãoAlterarRealNãoB7FB7F_TENVION30Tent. EnvioTentativas de Envio@E 999FWFldGet("B7F_TENVIO") <= FWFldGet("B7E_MAXENV")SimNãoAlterarRealNãoB7FB7F_ENVJSOM100Json EnvioJson EnviadoSimNãoVisualizarRealNãoB7FB7F_RECJSOM100Json Receb.Json RecebidoSimNãoVisualizarRealNão

Atualização do Arquivo SIX (Índices): 

...

_QTLOTEN2
Qtd. LoteQtd. Max. Lote@E 99
1

SimNãoAlterarRealNão

Atualização do Arquivo SX9 (Relacionamento): 

...

Atualização do Arquivo SX1 (Pergunte): 

GrupoOrdemPerguntaVariávelTipoTamanhoDecimalObjetoConsulta Padrão
PLPTUCADBE

01

Grupo/Empresa De ?MV_PAR01C401 - EditB7APLS
PLPTUCADBE02Grupo/Empresa Ate ?MV_PAR02C401 - EditB7APLS
PLPTUCADBE03Matricula De ?MV_PAR03C601 - EditBA1PLS
PLPTUCADBE04Matricula Ate ?MV_PAR04C601 - EditBA1PLS
PLPTUCADBE05Data Inclusao De ?MV_PAR05D801 - Edit
PLPTUCADBE06Data Inclusao Ate ?MV_PAR06D801 - Edit
GrupoOrdemPerguntaVariávelTipoTamanhoDecimalObjetoConsulta PadrãoPLRMPSTAMP01Operadora ?MV_PAR01C401 - EditB89PLSPLRMPSTAMP02Data do STAMP ?MV_PAR02
D801 - Edit


Card documentos
InformacaoA alteração de dicionário referente a essa implementação estará disponível no próximo pacote de Expedição Contínua do módulo SIGAPLS.
TituloIMPORTANTE

...