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
• "FIM-REGRA-AUDI" - ponto disponível a partir da versão 12.1.2503

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-observacao – 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 (pré-natal).

• id-rn - Indica se o beneficiário é recém-nato.
• tp-inter - Indica o Tipo de Internação.
• id-acidente - Indicador de Acidente. 
• dt-sug-internacao - Data sugerida para a internação.
• id-ordem-servico - Indica se o pedido de autorização foi gerado através de uma comunicação de Ordem de Serviço.
• nr-ident-os - Número da Transação da Ordem de Serviço.
• nr-ver-tiss - Número de versão da TISS que o prestador enviou a transação.
• cd-uni-atend - Código da Unimed na qual o Beneficiário será atendido.
• nr-versao-ptu - Versão do PTU da Unimed Prestadora.
• nm-pro-solic-opme - Nome do Profissional Solicitante de OPME. 
• nr-telefone-opme - Número de Telefone do Profissional Solicitante de OPME. 
• end-email-opme - Endereço de E-mail do Profissional Solicitante de OPME. 
• ds-diag-cit-hist-quimio - Descrição do diagnóstico citopatológico e histopatológico.
• ds-diag-cit-hist-radio - Descrição do diagnóstico citopatológico e histopatológico.
• ds-inf-relev-quimio - Informações relevantes a serem fornecidas pelo profissional solicitante para esclarecimento do caso.
• ds-inf-relev-radio - Informações relevantes a serem fornecidas pelo profissional solicitante para esclarecimento do caso.
• ds-pl-terap - Plano Terapêutico proposto pelo profissional solicitante .
• ds-quimio - Observação da Quimioterapia. 
• ds-radio - Observação da Radioterapia.
• ds-opme - Observação do OPME.
• ds-just-tec - Relatório profissional embasando a solicitação.
• ds-mat-solic - Descrição do Material Solicitado. 
• id-anexo - Indica a existência de um anexo na transação.
• tp-sexo - Sexo do Beneficiário.
• nr-idade - Idade do Beneficiário .          
• tpRedeMIN - Tipo de Rede conforme Manual do Intercâmbio Nacional.
• idLiminar  - Indica se o pedido está sendo realizado a partir de uma demanda judicial. 
• cdIBGE - Código IBGE. 
• protocoloAtendimento -  Protocolo de Atendimento.  
• token - Validação do beneficiário.
• tipoEtapaAutorizacao - Indica a etapa da solicitação de autorização. 
• dataSolicitacao - Momento em que a Unimed Prestadora toma conhecimento do pedido.
• tipoGuia - Classifica o tipo de Guia TISS.
• tpAcomodacao - Tipo de acomodação na qual o beneficiário será submetido.
• cd-prest-solic-recebido - Código do Prestador Solicitante.
• exec-numero-cbo - Código na Classificação Brasileira de Ocupações do executante.
• nomePrestadorSolic - Razão Social, nome fantasia ou nome do prestador que está solicitando o procedimento. 
• siglaConselho - Conselho profissional do solicitante.
• numeroConselho - Número do solicitante no conselho profissional.
• unidadeFederativa - UF do conselho do profissional solicitante.
• numeroCBO - Código na Classificação Brasileira de Ocupações do solicitante. 
• idCoberturaEspecial - Indica cobertura especial de atendimento.
• saudeOcupacional - Classifica o tipo de atendimento quando se tratar de Saúde Ocupacional.

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.
• tp-tabela-recebido - Identifica o Tipo de Tabela utilizado no Serviço Médico. 
• cd-servico-recebido - Código do Serviço.
• qt-servico – Quantidade do serviço solicitado.
• ds-opme - Observação do OPME.
• vl-servico - Valor do serviço.
• vl-uni-servico - Valor unitário do serviço. 
• cd-anvisa-inf - Código ANVISA do Material/Medicamento
• cd-ref-fab - Referencia do Material no Fabricante.
• tp-anexo - Indicador de Anexo.
• dt-provavel - Data provável da administração.
• cd-via-admin - Via Administração.
• qt-frequencia - Frequência da administração.
• id-pacote - Identifica se o serviço faz parte de um pacote.
• tp-ordem - Indica a ordem de preferência do profissional solicitante em relação ao fabricante do material solicitado 
• sqItem - Sequencia do item solicitado.
• unMedicamento - Unidade de medida do medicamento.
• totalDosagem - Dosagem total do medicamento no ciclo atual.
• qt-pacote-solic - Quantidade pacote solicitado.
• seq-item-pacote - Sequencia do item.

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.
• cd-unidade – Código da unidade do beneficiário.
• id-beneficiario – Código de identificação do beneficiário.
• nm-beneficiario – Nome do Beneficiario.
• ds-observacao – 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.
• cd-mens-espec-1, 2, 3, 4, 5 – Código da Mensagem.
• cd-servico-convertido - Código do serviço convertido

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
    field h-buffer-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.
• h-buffer-guiautor - handle do buffer do registro da tabela 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
    field in-autorizacao                                  as int.

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
• in-autorizacao - indicador de autorizacao.

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