01. DADOS GERAIS
| Produto: | | Solucoes_totvs |
|---|
| Solucao | TOTVS Saúde Planos |
|---|
|
| Solucoes_totvs_parceirosexptotvs |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | INTEGRAÇÕES |
|---|
| Função: | SOLICITAÇÃO DE ATENDIMENTO |
|---|
| País: | Brasil |
|---|
| Ticket: |
|
|---|
| Requisito/Story/Issue (informe o requisito relacionado) : | DSAUBE-16362 |
|---|
02. SITUAÇÃO/REQUISITO
Necessidade de Alteração, Inclusão e Exclusão de atributos no JSON de envio de Aviso de Pronto Socoroo Socorro para a HealthMap.
03. SOLUÇÃO
Implementado Ponto de Entrada, ao final da montagem do JSON no padrão do sistema.
Nome do Ponto de Entrada: PLMPJSSCR
...
| Bloco de código |
|---|
| language | c# |
|---|
| theme | RDark |
|---|
| title | Exemplo de Uso |
|---|
| linenumbers | true |
|---|
|
#Include "PROTHEUS.CH"
User Function PLMPJSSCR()
Local cJson := ""
Local cOpeInt := Substr(PARAMIXB[1], 1, 4)
Local cAnoInt := Substr(PARAMIXB[1], 5, 4)
Local cMesInt := Substr(PARAMIXB[1], 9, 2)
Local cNumInt := Substr(PARAMIXB[1], 11, 8)
Local cJsonPE := PARAMIXB[2]
Local oResponse := JsonObject():New()
oResponse:FromJson(cJsonPE)
// Tratamento para montagem do JSON
cJson := FWJsonSerialize(aListaSocornacao, .F., .F.)
Return cJson |
Observação: Nessa Integração, o JSON enviado é no formato de Array com uma lista de Objetos. Exemplo:
| Bloco de código |
|---|
| language | c# |
|---|
| theme | RDark |
|---|
| title | JSON de Envio |
|---|
| linenumbers | true |
|---|
|
[
{
"carteirinhaBeneficiariocodigoExtProntoSocorro": "00011008000019017000120220900000060",
"dataSaida": "05/11/2021 11:23:00",
"dataInternacao": "26/10/2021 11:23:12",
"especialidadeMedica": {"codigoExtBeneficiario":"00011012000001019",
"descricaocarteirinhaBeneficiario": "CLINICA MEDICA00011012000001019",
"codigodataProntoSocorro":"15\/09\/2022 "001"15:34:5",
},
"codigoExtInternacaoobservacao": "000120211000000057",
"codigoExtBeneficiario": "00011008000019017"
}
]
|
05. ASSUNTOS RELACIONADOS
