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"
• "DPS-CRIA-GUIA"
• "STATUS-RTHIGUIA"
• "FINAL-SEG-500"
• "CONV-SERIOUS-IE"
• "TRATA-SIT-RESP"
• "STATUS-AUDIT"
• "TROCA-STS-AUT"
• "TROCA-STS-GN"
• "REGRA-ALTO-CUST"
• "ANT-EXP-PACOTE" - ponto disponível  partir da versão 12.1.2403
• "INI-ATZ-PACOTE" - ponto disponível  partir da versão 12.1.2403
• "ANT-REG-URG-BXR" - ponto disponível a partir da versão 12.1.2407
• "ANT-REGRA-URG" - ponto disponível a partir da versão 12.1.2407

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                   as char format "x(999)"
    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-just-internacao              as char format "x(200)"
    field qt-dias-evol-patol              as char format "x(4)"
    field tp-atendimento                  as char format "x(1)"
    field tp-carater-atend                as char format "x(1)"
    field dt-atendimento                  as char format "x(8)"
    field ds-linha-origem                 as char format "x(256)"
    field in-classe-nota                  as char format "x(02)"
    field id-rn                           as char format "x(01)"
    field tp-inter                        as char format "x(01)"
    field id-acidente                     as char format "x(01)"
    field dt-sug-internacao               as char format "x(08)"
    field id-ordem-servico                as char format "x(01)"
    field nr-ident-os                     as char format "x(10)"
    field nr-ver-tiss                     as char format "x(07)"
    field cd-uni-atend                    as char format "x(04)"
    field nr-versao-ptu                   as char format "x(03)"
    field nm-pro-solic-opme               as char format "x(70)"
    field nr-telefone-opme                as char format "x(11)"
    field end-email-opme                  as char format "x(60)"
    field ds-diag-cit-hist-quimio         as char format "x(1000)"
    field ds-diag-cit-hist-radio          as char format "x(1000)"
    field ds-inf-relev-quimio             as char format "x(1000)"
    field ds-inf-relev-radio              as char format "x(1000)"
    field ds-pl-terap                     as char format "x(999)"
    field ds-quimio                       as char format "x(1000)"
    field ds-radio                        as char format "x(1000)"
    field ds-opme                         as char format "x(1000)"
    field ds-just-tec                     as char format "x(999)"
    field ds-mat-solic                    as char format "x(999)"
    field id-anexo                        as char format "x"
    field tp-sexo                         as char format "x"
    field nr-idade                        as char format "x(3)"
    field tpRedeMIN                       as char format "x(01)"
    field idLiminar                       as char format "x(01)"
    field cdIBGE                          as int
    field protocoloAtendimento            as char format "x(20)"
    field token                           as char format "x(6)"
    field tipoEtapaAutorizacao            as int
    field dataSolicitacao                 as date
    field tipoGuia                        as int
    field tpAcomodacao                    as char
    field cd-prest-solic-recebido         as char
    field exec-numero-cbo                 as char
    field nomePrestadorSolic              as char
    field siglaConselho                   as char
    field numeroConselho                  as char
    field unidadeFederativa               as char
    field numeroCBO                       as char
    field idCoberturaEspecial             as char
    field saudeOcupacional                as int
    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
    field tp-tabela-recebido               as char format "x(01)"
    field cd-servico-recebido              as char
    field qt-servico                       as char format "x(08)"
    field ds-opme                          as char format "x(80)"
    field vl-servico                       as char format "x(14)"
    field vl-uni-servico                   as char format "x(14)"
    field cd-anvisa-inf                    as char format "x(15)"
    field cd-ref-fab                       as char format "x(60)"
    field tp-anexo                         as char format "x(01)"
    field dt-provavel                      as char format "x(08)"
    field cd-via-admin                     as char format "x(2)"
    field qt-frequencia                    as char format "x(2)"
    field id-pacote                        as char format "x(1)"
    field tp-ordem                         as char format "x(1)"
    field sqItem                           as int
    field unMedicamento                    as int
    field totalDosagem                     as dec 
    field qt-pacote-solic                  as int
    field seq-item-pacote                  as int
    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 cd-unidade                      as char format "x(04)"
    field id-beneficiario                 as char format "x(13)"
    field nm-beneficiario                 as char format "x(25)"
    field ds-observacao                   as char format "x(120)"
    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
    field ds-servico                      as char format "x(80)"
    field qt-servico                      as char format "x(08)"
    field id-autoriza                     as char format "x(01)"
    field cd-mens-espec-1                 as char format "x(04)"
    field cd-mens-espec-2                 as char format "x(04)"
    field cd-mens-espec-3                 as char format "x(04)"
    field cd-mens-espec-4                 as char format "x(04)"
    field cd-mens-espec-5                 as char format "x(04)"
    field cd-servico-convertido           as char format "x(08)"
    field sqItem                          as int
    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
field lg-busca-tmp-lay-recebido as log
field lg-vincula-pacote as log initial yes
field lg-desvincula-movto as log initial yes
field lg-permite-guia-urg-pendente as logical
field lg-valida-regra-urg-eme 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
• lg-busca-tmp-lay-recebido - busca o registro do layout.
• lg-vincula-pacote - Verifica se o pacote será vinculado ao procedimento/insumo.
• lg-desvincula-movto - Verifica se o pacote será desvinculado do movimento.
• lg-permite-guia-urg-pendente - indica se permite que uma guia de urgência/emergência entre pendente ou se deve seguir a regra da mensagem de automação
• lg-valida-regra-urg-eme - indica se valida a regra de urgência/emergência

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