CPC-AT0115C.p

Rotina utilizada para permitir a operadora:

• Controlar o grupo de usuários que repassa as guias (AIH) para a situação de "Pendente de Auditoria" ou "Pendente de Laudo Médico";
• Gravar o usuário que criou a Guia (AIH) em Status de Pendente;
• Retornar Guia (AIH) ao usuário que a criou e
• Definir, conforme suas regras de autorização, se será ou não disponibilizada as opções de autorização ("Imprime Autorizando" e "Autoriza sem Impressão") da GUIA (AIH);
• Gerar somente um código convertido de insumo, nas guias de intercâmbio eletrônico.
• Definir se guia de atendimento deve comunicar via intercâmbio eletrônico.
• Trocar a carteira do usuário antes da comunicação do intercâmbio eletrônico.
• Indicar se irá ser gerado erro caso não encontre a carteira do beneficiário de outra unidade.
• Rotina chamada no final da execução do programa at0115.p manutenção de autorização de guias.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Para o ponto de chamada "TRATA-USU-ATEND", dentro do programa AT0115C.p após o usuário informar a situação da GUIA (Status da AIH);
• Para o ponto de chamada "ANTES-OUT-UNI", dentro do programa AT0115C.p antes dos testes relacionados com a out-uni;
• Para o ponto de chamada "TRATA-USU-AUDIT", dentro do programa AT0115C.p quando o usuário está alterando a situação da guia (AIH) de "Pendente de Auditoria" ou "Pendente de Laudo Médico" para "Pendente de Liberação";
• Para o ponto de chamada " CONS-USU-AUDIT ", dentro do programa AT0115C.p, quando a guia for transferida (colocada) na situação de Pendente de Auditoria;
• Para o ponto de chamada "PERMITE-AUTOR", dentro do programa AT0115C.p, quando da abertura do ComboBox com as opções de situação da Guia possíveis de seleção;
• Para o ponto de chamada "SOLIC-TP-EXAME", dentro do programa AT0115C.p, que permite alterar a guia de Atendimento antes de sua impressão para beneficiários de intercâmbio.
• Para o ponto de chamada "IMP-ASO-PC", dentro do programa AT0115C.p, que permite alterar a guia de Atendimento antes de sua impressão, porem somente para Autorização de Guias.
• Para o ponto de chamada "CONV-INSUMO", dentro do programa AT0115C.p, que ao encontrar códigos de insumos convertidos iguais, gera somente um código para ser enviado via intercâmbio eletrônico.
• Para o ponto de chamda "ANTES-COMUNICA", dentro do programa AT0115C.p, que permite validar se guia de atendimento deve ser enviada via intercâmbio eletrônico.
• Para o ponto de chamda "APOS-ALT-GRUPO", dentro do programa AT0115C.p, que permite digitar mais de 700 caracteres no campo Motivo de Auditoria.
• Dentro do programa at0115c.p o ponto de chamada "FIM-EXEC-AUTOR", é chamado no final da execução da autorização de guias.

Ponto de Utilização

• "TRATA-USU-ATEND"; "TRATA-USU-AUDIT"; "CONS-USU-AUDIT" , "PERMITE-AUTOR", "SOLIC-TP-EXAME", "IMP-ASO-PC", "CONV-INUSMO", "ANTES-COMUNICA" , "APOS-ALT-GRUPO", "FIM-EXEC-AUTOR", "OPCOES-AUTORIZA", "APOSSTATUS-TRAN",  "ANTES-OUT-UNI",  "ANTES-TESTA-UNI", "ANT-TEM-SERIOUS", "ATRIBUI-MENS".

Include das definições das tabelas temporárias

• CPC-AT0115C.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc- at0115c-entrada 

def temp-table tmp-cpc-at0115c-entrada no-undo

field in-evento-programa                 as char format "x(10)"
field nm-ponto-chamada-cpc          as char format "x(15)"
field r-guiautor                                 as recid
field in-lib-ant                                  as char format "x(02)"
field in-confirma-autor                    as char format "x(28)"
field cd-movimento                         as int format 99999999
field cd-pacote                                as int format 99999999
field ds-motivo-auditoria                 like guiautor.ds-motivo-auditoria
field cd-unidade                               like guiautor.cd-unidade
field aa-guia-atendimento               like guiautor.aa-guia-atendimento
field nr-guia-atendimento               like guiautor.nr-guia-atendimento
field dt-guia-atendimento               as date format "99/99/9999"
field hr-guia-atendimento               as char format "x(8)"
field in-status                                 as char format "x(100)"

field h-in-confirma-autor                as handle
field in-liberado-guias                    as char
field cd-procedimento                   as char
field ds-mens                               as char

field nm-programa-chamador       as char.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama CPC-AT0115C.P. Os valores desse campo podem ser "GRAVA" ou "MODIFICA";
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
  • r-guiautor – RECID da Guia de Autorização;
  • in-lib-ant – Situação da AIH (Status) em momento anterior a sua atualização/modificação;
  • in-confirma-auditor – Indicador da confirmação da autorização
  • cd-movimento – Código do movimento.
  • cd-pacote – Código do pacote.
  • ds-motivo-auditoria - Campo motivo de auditoria.
  • cd-unidade – Código da unidade.
  • aa-guia-atendimento – Ano da guia atendimento.
  • nr-guia-atendimento – Número da guia atendimento.
  • dt-guia-atendimento - data da guia atendimento.
  • hr-guia-atendimento - Hora da guia atendimento.
  • in-status – Status da guia.
  • h-in-confirma-autor - Handle de guias
  • in-liberado-guias – Indicador do status da guia;
  • cd-procedimento - Código do procedimento
  • ds-mens - Mensagem
  • nm-programa-chamador - Permite trafegar para a cpc o programa chamador. Por exemplo: atp/at0112c.p, atp/at0111c.p, etc...

Tabela de saída tmp-cpc-at0115c-saida

def temp-table tmp-cpc-at0115c-saida no-undo

field nm-grupo                           as char
field nm-usuario                        as char
field in-liberado-guias                like guiautor.in-liberado-guias
field lg-permite-autorizar          as log
field nr-ano-guia-origem           as int format 9999
field nr-guia-origem                  as int format 999999999
field lg-erro                                as log
field ds-mensagem                   as char format "x(250)"
field lg-mostra-mensagem       as log

field ds-opcoes-autoriza          as char
field cd-unidade                       as int
field cd-carteira-usuario          as dec
field cd-unidade-carteira         as int
field lg-testa-uni                      as log
field lg-tem-serious                 as log
field ds-confirma-autor            as char
field lg-grupo                           as log

field lg-modif-grupo                 as log.

Definição campo a campo da tabela de saída

• • nm-grupo – Grupo do usuário que alterou a guia (AIH) para a situação de "Pendente de Auditoria" ou "Pendente de Laudo Médico";
  • nm-usuario - Nome do usuário que alterou a guia (AIH) para a situação de "Pendente de Auditoria" ou "Pendente de Laudo Médico";
  • in-liberado-guias – Indicador do status da guia;
  • lg-permite-autorizar – Parâmetro que permitirá indicar a possibilidade ou não disponibilizar as opções de autorização da guia (Autoriza sem Impressão e Imprime Autorizando);
  • nr-ano-guia-origem – Ano da guia origem;
  • nr-guia-origem – Número da guia origem
  • lg-erro – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
  • ds-mensagem - Mensagem que deverá ser retornada ao usuário, quando indicação de ocorrência de erro.
  • lg-mostra-mensagem - Campo que retorna se o programa chamador deve ou não mostrar a mensagem.
  • ds-opcoes-autoriza - Indica o tipo de impressão para autorização
  • cd-unidade - Código da unidade
  • cd-carteira-usuário - Documento de identificação do usuário
  • cd-unidade-carteira - Código da unidade do documento de identificação do usuário
  • lg-testa-uni - Indica de seve ou não testar a unidade     
  • lg-tem-serious - Indica se a unidade utiliza Serious ou não.
  • ds-confirma-autor - Indica o tipo de impressão para autorização
  • lg-grupo - Indica se utiliza o grupo retornado pela cpc.
  • lg-modif-grupo - Permite modificar ou não o grupo de auditoria, funciona em conjunto com o ponto CONS-USU-AUDIT.

Tabela de entrada e saída tmp-movto

def temp-table tmp-movto no-undo

fields tp-movimento             as char format "x(1)"
fields cd-tipo-insumo           as int format 99
fields cd-movimento            as int format 99999999
fields cd-pacote                    as int format 99999999
fields ds-movimento            as char format "x(80)"
fields qt-movimento             as int format 9999
field in-situacao                    as int format "9"
field vl-movimento               like insuguia.vl-insumo

Definição campo a campo da tabela de entrada e saída

• tp-movimento – Indicador que representa o tipo do movimento ("P" – Procedimento ou "I" – Insumo).
• cd-tipo-insumo - Código do tipo do insumo.
• cd-movimento - Código do movimento.
• cd-pacote – Código do pacote.
• ds-movimento – Descrição do movimento.
• qt-movimento – Quantidade do movimento.
• in-situacao – Indica qual a situação do movimento.vl-movimento – Valor do movimento.