cpc-atapi023.p1

Rotina utilizada no recebimento de autorizações eletrônicas (intercâmbio eletrônico).
Rotina utilizada para permitir a mudança nos valores dos campos recebidos dos sistemas conectados ao intercâmbio eletrônico.
Rotina utilizada para permitir alterar a ação do intercâmbio, conforme classe de erro.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Rotina utilizada para permitir alterar a observação da guia recebida nas autorizações eletrônicas (intercâmbio eletrônico).
Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.
Essa cpc possui uma particularidade que é a utilização de temp de input-output na passagem de parâmetros.
Rotina utilizada para alterar o status da guia após o retorno da cpc no ponto de chamada status-rthiguia. Sempre quando retornado uma guia com status 8 Negada e com status 2 Autorizada será desconsiderada qualquer outra atualização de status feita pelo sistema. A guia com status 8-Negada terá seu status alterado para 1-Digitada pelo ponto de cpc status-rthiguia.
Não existe função de utilização, pois essa cpc tem a funcionalidade de converter quaisquer dados que por ventura o cliente ache necessário para o bom funcionamento da montagem da resposta das solicitações.
Localização
Dentro do atapi023.p no início do processo de recebimento e montagem da resposta da solicitação.
Ponto de Utilização
"CONV-SERIOUS-IE"
"TRATA-SIT-RESP"
"ALTERA-STATUS"
"ALTERA-GLOSA"
"ALTERA-OBS"
"ANTES-CRIA-GUIA"
"STATUS-RTHIGUIA"
Include das definições das tabelas temporárias
cpc-atapi023.i
Tabelas de entrada e saída
Tabela de entrada e saída tmp-campos-layout-recebido – Dados do documento
def temp-table tmp-campos-layout-recebido no-undo
field cd-transacao-ptu as char format "x(05)"
field tp-cliente as char format "x(15)"
field cd-unidade-origem as char format "x(04)"
field cd-unidade-destino as char format "x(04)"
field nr-ident-origem as char format "x(10)"
field nr-ident-destino as char format "x(10)"
field cd-unidade as char format "x(04)"
field id-beneficiario as char format "x(13)"
field nr-via-cartao as char format "x(02)"
field cd-cid as char format "x(04)"
field id-alto-custo as char format "x(01)"
field nm-prestador as char format "x(25)"
field ds-observacao-1 as char format "x(40)"
field ds-observacao-2 as char format "x(40)"
field ds-observacao-3 as char format "x(40)"
field cd-unidade-prestador-req as char format "x(04)"
field cd-prestador-req as char format "x(08)"
field cd-unidade-prestador as char format "x(04)"
field cd-prestador as char format "x(08)"
field cd-especialidade-prestador as char format "x(03)"
field ds-linha-origem as char format "x(256)"
field in-classe-nota as char format "x(02)"
index i-campos is unique primary
cd-transacao-ptu.
Definição campo a campo da tabela de entrada e saída – Dados do documento
cd-transacao-ptu – Código da transação PTU conforme manual PTU 2.8.
tp-cliente – Código definido no manual PTU 2.8 campo TP_CLIENTE
cd-unidade-origem – Código da unidade que originou a solicitação.
Cd-unidade-destino – Código da unidade que recebeu a solicitação.
Nr-ident-origem – Numero da solicitação da unidade que originou a solicitação.
Nr-ident-destino – Numero da guia de autorização da unidade que recebeu a solicitação.
Cd-unidade – Código da unidade do beneficiário.
Id-beneficiario – Código de identificação do beneficiário.
Nr-via-cartao – Numero da via do documento de identificação do beneficiário.
Cd-cid – Código do CID.
Id-ato-custo – campo ID_ALTO_CUSTO do PTU 2.8
Nm-prestador – Nome do prestador.
Ds-observacao1, 2 e 3 – Observações gerais.
Cd-unidade-prestador-req – Código da unidade do prestasdor requisitante
Cd-prestador-req – Código do prestador requisitante
Cd-unidade-prestador – Código da unidade do prestador executante
Cd-prestador – Código do prestador executante
Ds-linha-origem – Descrição de observação oriunda da unidade que solicitou a autorização
In-classe-nota – Código da classe da nota para identificação do tipo da guia de autorização que deve ser gerada. Seu conteúdo pode ser:
01 – Consulta
02 – Exames SADT
03 – Atendimento Ambulatorial
04 – Internação Clínica
05 – Internação Cirúrgica
06 – Internação Obstétrica
07 – Odontologia
08 – Consulta em Emergência
09 - Internacao Hospital Dia
10 - Internacao Domiciliar
11 - Internacao Pediatrica
12 - Internacao Psiquiatrica
13 - Consultas Medicina Ocupacional
14 - Exames medicina ocupacional
15 - Remocao
16 - Pequena cirurgia
17 - Terapias
18 - Atendimento domiciliar
19 - SADT internado
20 - Quimioterapia
21 - Radioterapia
22 - TRS (terapia renal substitutiva)
23 - Consulta (primeira consulta)
24 - Consulta (seguimento)
25 - Consulta (pre-natal)
Tabela de entrada e saída tmp-campos- layout-bl-servic – Dados dos movimentos
def temp-table tmp-campos-layout-bl-servic no-undo
field nr-servico as int
field tp-tabela as char format "x(01)"
field cd-servico as char format "x(08)"
field qt-servico as char format "x(04)"
index i-servico is unique primary
nr-servico.

Definição campo a campo da tabela de entrada e saída – Dados dos movimentos
nr-servico – Numero do serviço , na ordem de entrada da solicitação.
Tp-tabela – Tipo da tabela no manual PTU 2.8 TP_TABELA .
Cd-servico – Código do movimento.
Qt-servico – Quantidade do serviço solicitado.
Tabela de entrada e saída tmp-campos-layout-retorno – Dados dos movimentos
def temp-table tmp-campos-layout-retorno no-undo
field cd-transacao-ptu as char format "x(05)"
field tp-cliente as char format "x(15)"
field cd-unidade-origem as char format "x(04)"
field cd-unidade-destino as char format "x(04)"
field nr-ident-origem as char format "x(10)"
field nr-ident-destino as char format "x(10)"
field id-status as char format "x(01)"
field cd-unidade as char format "x(04)"
field id-beneficiario as char format "x(13)"
field nm-beneficiario as char format "x(25)"
field tp-sexo-beneficiario as char format "x(01)"
field tp-inscr-beneficiario as char format "x(01)"
field dt-nascimento as char format "x(08)"
field tp-mens-geral-1 as char format "x(01)"
field ds-mens-geral-1 as char format "x(80)"
field cd-mens-geral-1 as char format "x(04)"
field tp-mens-geral-2 as char format "x(01)"
field ds-mens-geral-2 as char format "x(80)"
field cd-mens-geral-2 as char format "x(04)"
field tp-mens-geral-3 as char format "x(01)"
field ds-mens-geral-3 as char format "x(80)"
field cd-mens-geral-3 as char format "x(04)"
field tp-mens-geral-4 as char format "x(01)"
field ds-mens-geral-4 as char format "x(80)"
field cd-mens-geral-4 as char format "x(04)"
field tp-mens-geral-5 as char format "x(01)"
field ds-mens-geral-5 as char format "x(80)"
field cd-mens-geral-5 as char format "x(04)"
field ds-observacao-1 as char format "x(40)"
field ds-observacao-2 as char format "x(40)"
field ds-observacao-3 as char format "x(40)"
field ds-linha-origem as char format "x(256)"
index i-campos is unique primary
cd-transacao-ptu.
Definição campo a campo da tabela de entrada e saída – Dados dos movimentos
cd-transacao-ptu – Código da transação PTU conforme manual PTU 2.8.
tp-cliente – Código definido no manual PTU 2.8 campo TP_CLIENTE
cd-unidade-origem – Código da unidade que originou a solicitação.
cd-unidade-destino – Código da unidade que recebeu a solicitação.
nr-ident-origem – Numero da solicitação da unidade que originou a solicitação.
nr-ident-destino – Numero da guia de autorização da unidade que recebeu a solicitação.
id-status – Status do registro. Seu conteúdo pode ser:
1 – Não Autorizado
2 - Autorizado
3 – Pendencias/Glosas
cd-unidade – Código da unidade do beneficiário.
id-beneficiario – Código de identificação do beneficiário.
nm-beneficiario – Nome do Beneficiario.
tp-sexo-beneficiario – Sexo do Beneficiário.
tp-inscr-beneficiario – Tipo de Inscricao do Beneficiario.
dt-nascimento – Data de Nascimento do Beneficiário.
tp-mens-geral-1, 2, 3, 4, 5 – Tipo de mensagem, conforme status do registro.
ds-mens-geral-1, 2, 3, 4, 5 – Descrição da Mensagem.
cd-mens-geral-1, 2, 3, 4, 5 – Codigo da Mensagem.
ds-observacao-1, 2, 3 – Observações gerais.
ds-linha-origem – Observações internas.
Tabela de entrada e saída tmp-campos-layout-ret-bl-servic – Dados dos movimentos
def temp-table tmp-campos-layout-ret-bl-serv no-undo
field nr-servico as int
field tp-tabela as char format "x(01)"
field cd-servico as char format "x(08)"
field ds-servico as char format "x(80)"
field qt-servico as char format "x(01)"
field id-autoriza as char format "x(01)"
field tp-mens-espec-1 as char format "x(01)"
field ds-mens-espec-1 as char format "x(80)"
field cd-mens-espec-1 as char format "x(04)"
field tp-mens-espec-2 as char format "x(01)"
field ds-mens-espec-2 as char format "x(80)"
field cd-mens-espec-2 as char format "x(04)"
field tp-mens-espec-3 as char format "x(01)"
field ds-mens-espec-3 as char format "x(80)"
field cd-mens-espec-3 as char format "x(04)"
field tp-mens-espec-4 as char format "x(01)"
field ds-mens-espec-4 as char format "x(80)"
field cd-mens-espec-4 as char format "x(04)"
field tp-mens-espec-5 as char format "x(01)"
field ds-mens-espec-5 as char format "x(80)"
field cd-mens-espec-5 as char format "x(04)"
index i-campos is unique primary
nr-servico.
Definição campo a campo da tabela de entrada e saída – Dados dos movimentos
nr-servico – Numero do serviço , na ordem de entrada da solicitação.
tp-tabela – Tipo da tabela no manual PTU 2.8 TP_TABELA .
cd-servico – Código do movimento.
ds-servico – Descrição do movimento.
qt-servico – Quantidade do serviço solicitado.
id-autoriza – Status do registro.
tp-mens-espec-1, 2, 3, 4, 5 – Tipo de mensagem, conforme status do registro.
ds-mens-espec-1, 2, 3, 4, 5 – Descrição da Mensagem.
cd-mens-espec-1, 2, 3, 4, 5 – Codigo da Mensagem.
Tabela de entrada tmp-cpc-atapi023-entrada
def temp-table tmp-cpc-atapi023-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field ds-segmento-recebido as char format "x(8000)"
field ds-segmento-retorno as char format "x(8000)"
field r-guiautor as recid
field cd-classe-erro as int
field in-liberado-guias like guiautor.in-liberado-guias
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field registro as rowid
field cd-unidade-principal like guiautor.cd-unidade-principal
field cd-unidade-carteira like guiautor.cd-unidade-carteira
field cd-carteira-usuario like guiautor.cd-carteira-usuario
field nr-via-carteira like guiautor.nr-via-carteira.
Definição campo a campo da tabela de entrada
nm-ponto-chamada-cpc – Ponto de chamada da CPC.
ds-segmento-recebido – Segmento de solicitação recebido.
ds-segmento-retorno – Segmento da de solicitação de retorno.
r-guiautor – Recid da guiautor.
cd-classe-erro – Código da classe de erro.
In-liberado-guias – Situação da guia.
Aa-guia-atendimento – Ano de emissão da guia de autorização.
Nr-guia-atendimento – Numero da guia de autorização.
Registro – Rowid do registro.
Cd-unidade-principal – Unidade do prestador principal.
Cd-unidade-carteira – Código da unidade da carteira do beneficiario.
Cd-carteira-usuario – Documento de identificação do beneficiário
Nr-via-carteira – Numero da via da carteira.
Tabela de saída tmp-cpc-atapi023-saida
def temp-table tmp-cpc-atapi023-saida no-undo
field in-liberado-guias like guiautor.in-liberado-guias
field cd-local-autorizacao like guiautor.cd-local-autorizacao
field lg-undo-retry as log
field ds-mensagem as char
field lg-id-autoriza as log
field ds-observacao-interna like guiautor.ds-observacao-interna
field lg-desconsidera as log.
Definição campo a campo da tabela de saída
lg-undo-retry – Indica se foi gerado erro.
ds-mensagem – Mensagem de erro.
lg-id-autoriza – Variável que controla se o registro será autorizado ou não.
In-liberado-guias – Situação da guia
Cd-local-aturizacao – Local de autorização dos movimentos.
ds-observacao-interna - Campo que retorna as observações internas da guia.
Lg-desconsidera – Campo que desconsidera o status original da guia setado pelo sistema e grava o status retornadao pela cpc quando ativa.