Histórico da Página

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] : cCodInt cMatricula (Código da Operadora do Beneficiário)
PARAMIXB[1] : cCodEmp (+ Código da Empresa do Beneficiário)
PARAMIXB[1] : cMatric (Matricula do Beneficiário)
PARAMIXB[1] : cTipReg (Tipo do Registro do Beneficiário)
PARAMIXB[1] : cDigito (Digito do Beneficiário+ Matricula + Tipo do Registro + Digito)
PARAMIXB[12] : oResponse cJson (Objeto JsonObject, com o JSON no 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[2]1], 5, 4)
    Local cMatric := Substr(PARAMIXB[3]1], 9, 6)
    Local cTipReg := Substr(PARAMIXB[4]1], 15, 2)
    Local cDigito := Substr(PARAMIXB[5]1], 17, 1)
    Local oResponsecJsonPE := PARAMIXB[6]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)

...