DT PE Manipular JSON de Envio de Empresas para a HealthMap

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Necessidade de Alteração, Inclusão e Exclusão de atributos no JSON de envio de Empresas 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: PLMPJSEM

Parâmetros:
PARAMIXB[1] : cChaveEmpresa (Código da Operadora + Código da Empresa)
PARAMIXB[2] : cJson (JSON padrão para comunicar)

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

#Include "PROTHEUS.CH"

User Function PLMpJsEm()

    Local cJson := ""
    Local cCodInt := Substr(PARAMIXB[1], 1, 4)
    Local cCodEmp := Substr(PARAMIXB[1], 5, 4)
    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 Empresas com a HealthMap
• Integrações TOTVS Saúde Planos Linha Protheus (SIGAPLS)