DT PE Manipular JSON de Envio de Beneficiários na Integração TOTVS Saúde Planos Linha Protheus

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Necessidade de Alteração, Inclusão e Exclusão de atributos no JSON de envio de Beneficiários para a HealthMap.

03. SOLUÇÃO

Implementado Ponto de Entrada, ao final da montagem do JSON no padrão do sistema.

04. DEMAIS INFORMAÇÕES

Nome do Ponto de Entrada: PLMPJSBE

Parâmetros:
PARAMIXB[1] : cMatricula (Código da Operadora + Código da Empresa + Matricula + Tipo do Registro + Digito)
PARAMIXB[2] : cJson (JSON padrão para comunicar)

Retorno: String com o JSON final para comunicação.

#Include "PROTHEUS.CH"

User Function PLMpJsBe()
    
    Local cJson := ""
    Local cCodInt := Substr(PARAMIXB[1], 1, 4)
    Local cCodEmp := Substr(PARAMIXB[1], 5, 4)
    Local cMatric := Substr(PARAMIXB[1], 9, 6)
    Local cTipReg := Substr(PARAMIXB[1], 15, 2)
    Local cDigito := Substr(PARAMIXB[1], 17, 1)
    Local cJsonPE := PARAMIXB[2]
    Local oResponse := JsonObject():New()
    
    oResponse:FromJson(cJsonPE)

    // Tratamento para montagem do JSON

    cJson := FWJsonSerialize(oResponse, .F., .F.)

Return cJson

05. ASSUNTOS RELACIONADOS

• Integração do Cadastro de Beneficiários com a HealthMap
• Integrações TOTVS Saúde Planos Linha Protheus (SIGAPLS)