CPC-ATAPI023.p

• 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

• "ALTERA-STATUS"
• "DPS-ENC-SOLIC"
• "ALTERA-GLOSA"
• "ALTERA-OBS"
• "ANTES-CRIA-GUIA"
• "DEPOIS-CRIA-GUIA"
• "STATUS-RTHIGUIA"
• "FINAL-SEG-500"
• "CONV-SERIOUS-IE"
• "TRATA-SIT-RESP"
• "STATUS-AUDIT"
• "TROCA-STS-AUT"
• "TROCA-STS-GN"
• "REGRA-ALTO-CUST"

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
• dDs-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 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-classe-erro as int
field cd-unidade-principal like guiautor.cd-unidade-principal
field cd-prestador as dec
field cd-unidade-prestador as int
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
field cd-cla-hos as int
field cd-transacao as dec
field authorization-status as char
field cd-erro-retorno as char format "x(4)"
field status-guia-negada like guia-negada.char-1
field cd-tipo-insumo-ptu like ptuinsum.cd-tipo-insumo-serious
field cd-insumo-ptu like ptuinsum.cd-insumo-ptu
field token as char
field h-tmp-guiautor as handle.

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.
• 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-classe-erro – Código da classe de erro.
• cd-unidade-principal – Unidade do prestador principal.
• cd-prestador - Código do prestador.
• cd-unidade-prestador - Unidade do prestador.
• cd-unidade-carteira – Código da unidade da carteira do beneficiário.
• cd-carteira-usuario – Documento de identificação do beneficiário
• nr-via-carteira – Número da via da carteira.
• cd-cla-hos - Código da classe hospitalar.
• cd-transacao - Código da transação
• authorization-status - Código do status da autorização
• cd-erro-retorno - Código do erro
• status-guia-negada - Código do status da guia
• cd-tipo-insumo-ptu -  Código do tipo de insumo PTU
• cd-insumo-ptu - Código do insumo PTU
• token - Campo token do PTU
• h-tmp-guiautor - handle da tabela temporaria guiautor.

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
field cd-unidade-prestador as char format "x(04)"
field cd-prestador as char format "x(08)"
field in-classe-nota as char format "x(02)"
field cd-cla-hos as int
field authorization-status as char
field status-guia-negada like guia-negada.char-1
field cd-tipo-insumo-serious like ptuinsum.cd-tipo-insumo-serious
field cd-insumo-serious like ptuinsum.cd-insumo-serious
field lg-alto-custo-tab-propria as log
field lg-busca-insumo as logical initial yes.

Definição campo a campo da tabela de saída

• in-liberado-guias - Situação da guia.
• cd-local-autorizacao – Local de autorização dos movimentos.
• 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.
• 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 retornado pela cpc quando ativa.
• cd-unidade-prestador - Unidade do prestador.
• cd-prestador - Código do prestador.
• in-classe-nota - Código da classe de nota
• cd-cla-hos - Código da classe hospitalar.
• authorization-status - Código do status da autorização
• status-guia-negada - Código do status da guia
• cd-tipo-insumo-serious - Código do tipo de insumo Serious
• cd-insumo-serious - Código do insumo Serious
• lg-alto-custo-tab-propria - Campo utilizado para considerar ou não as regras de auto custo e tabela própria.
• lg-busca-insumo - Campo que indica a busca ou não de insumo.

Tabela de saída tmp-ptu-servicos

def temp-table tmp-ptu-servicos no-undo
      field nr-servico as int
      field tp-tabela as char format "x(01)"
      field cd-servico as char format "x(08)"
      field tp-tabela-recebido as char format "x(01)"
      field cd-servico-recebido as char format "x(08)"
      field qt-servico as char format "x(08)"
      field ds-opme as char format "x(80)"
      field vl-servico as char format "x(14)"
      index i-servico is unique primary
                nr-servico.

Definição campo a campo da tabela de saída

• nr-servico - Número do serviço
• tp-tabela - Tipo de tabela: 1 = Serviços Hospitalares / Taxas / Complementos ; 2 = TNUMM Materiais; 3 = TNUMM Medicamentos; 4 = Serviços com Custo Fechado / Pacote; 5 = TUSS Materiais; 6 = TUSS Medicamentos; 22 = Procedimento; etc.
• cd-servico - Código do serviço
• tp-tabela-recebido - Tipo de tabela: 2 = TNUMM Materiais; 5 = TUSS Materiais; etc.
• cd-servico-recebido - Tipo de tabela: procedimento, pacote
• qt-servico - Quantidade do serviço.
• ds-opme - Descrição do serviço.
• vl-servico - Valor do serviço