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

Include das definições das tabelas temporárias

• cpc-atapi023.i

Tabelas de entrada e saída

Tabela de entrada e saída Tabela de entrada e saída tmp-campos-layout-recebido – Dados do documento

...

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 char format as char format "x(8000)"
field r-guiautor                            as 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 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-carteira             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-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

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.

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 - 
• cd-transacao -
• authorization-status -
• cd-erro-retorno - 
• status-guia-negada - 
• cd-tipo-insumo-ptu - 
• cd-insumo-ptu - 

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 - 
• cd-cla-hos - 
• authorization-status -
• status-guia-negada - 
• cd-tipo-insumo-serious - 
• cd-insumo-serious- 
• 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.
• lg-busca-insumo -