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

• "CONV-SERIOUS-IE"
• "TRATA-SIT-RESP"
• "ALTERA-STATUS"
• "ALTERA-GLOSA"
• "ALTERA-OBS"
• "ANTES-CRIA-GUIA"
• "STATUS-RTHIGUIA"
• "REGRA-AUTO-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
• 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
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.