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

• "CONVALTERA-SERIOUS-IESTATUS"
• "TRATADPS-SITENC-RESPSOLIC"
• "ALTERA-STATUSGLOSA"
• "ALTERA-GLOSAOBS"
• "ALTERAANTES-CRIA-OBSGUIA"
• "ANTESDPS-CRIA-GUIA"
• "STATUS-RTHIGUIA"
• "REGRAFINAL-AUTOSEG-CUST500"

Include das definições das tabelas temporárias

• cpc-atapi023.i

...

• "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

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  as char format "x(1005)"
field nr-ident-destino tp-cliente                                     as char format "x(1015)"
field cd-unidade-origem                       as char format "x(04)"
field cd-unidade-destino                as       as char format "x(04)"
field id-beneficiario   nr-ident-origem                           as char format "x(1310)"
field nr-viaident-cartao   destino                             as char format "x(0210)"
field cd-cid         unidade                                  as char format "x(04)"
field id-alto-custo beneficiario                                as as char format "x(0113)"
field nm-prestador nr-via-cartao                                as as char format "x(2502)"
field ds-observacao-1 cd-cid                                          as char format "x(4004)"
field dsid-observacao-2 alto-custo                                as char format "x(4001)"
field ds-observacao-3 nm-prestador                              as char format "x(4025)"
field cdds-unidade-prestador-req observacao-1                        as char format "x(0440)"
field cdds-prestadorobservacao-req 2                        as char format "x(0840)"
field cdds-unidade-prestador observacao-3                        as char format "x(0440)"
field cd-unidade-prestador-req          as char format "x(04)"
field cd-prestador-req                        as char format "x(08)"
field cd-especialidadeunidade-prestador                as char format "x(0304)"
field ds-linha-origem cd-prestador                             as  as char format "x(25608)"
field incd-classeespecialidade-nota prestador      as char format "x(03)"
field ds-linha-origem                          as as char format "x(256)"
field in-classe-nota                            as char format "x(02)"
index i-campos                                  is unique primary
cd-transacao-ptu.

...

• 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.
• Cdcd-unidade-destino – Código da unidade que recebeu a solicitação.
• Nrnr-ident-origem – Numero da solicitação da unidade que originou a solicitação.
• Nrnr-ident-destino – Numero da guia de autorização da unidade que recebeu a solicitação.
• Cdcd-unidade – Código da unidade do beneficiário.
• Idid-beneficiario – Código de identificação do beneficiário.
• Nrnr-via-cartao – Numero da via do documento de identificação do beneficiário.
• Cdcd-cid – Código do CID.
• Idid-ato-custo – campo ID_ALTO_CUSTO do PTU 2.8
• Nmnm-prestador – Nome do prestador.
• Dsds-observacao1, 2 e 3 – Observações gerais.
• Cdcd-unidade-prestador-req – Código da unidade do prestasdor requisitante
• Cdcd-prestador-req – Código do prestador requisitante
• Cdcd-unidade-prestador – Código da unidade do prestador executante
• Cdcd-prestador – Código do prestador executante
• DsdDs-linha-origem – Descrição de observação oriunda da unidade que solicitou a autorização
• Inin-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

...

• 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

...

• 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

...

• 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 as char format "x(15)"
field ds-segmento-recebido        as as char format "x(8000)"
field ds-segmento-retorno          as as char format "x(8000)"
field r-guiautor                            as recid
field cd-classe-erro                    as intas recid
field in-liberado-guias                 like guiautor.in-liberado-guias
field aa-guia-atendimento           like guiautor.aa-guia-atendimento
field nr-guia-atendimento            like like guiautor.nr-guia-atendimento
field registro                                as rowidas rowid
field cd-classe-erro as int
field cd-unidade-principal            like 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 like guiautor.cd-carteira-usuario
field nr-via-carteira                      like guiautor.nr-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
field lg-alto-custo-tab-propria         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.
• lg-alto-custo-tab-propria - Campo utilizado para considerar ou não as regras de auto custo e tabela própria.

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

...