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.
• Atualizar dados da guiautos/out-uni no retorno da autorizaçã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 chamada "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 chamada "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.
• Para o ponto de chamada "ATUALIZA-DADOS", dentro do programa AT0115C.p após retorno do envio de uma autorização.
• O ponto INI-TRAT-RET-AU é chamado no inicio da rotina trata retorno autorização.
• O ponto de CPC MOT-AUD é chamado em vários momentos do programa, onde pode ser alterado o valor do motivo de auditoria.

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"
• "ATUALIZA-DADOS"
• "INI-TRAT-RET-AU" - disponível a partir da versão 12.1.2305.
• "MOT-AUD" - disponível a partir da versão 12.1.2403.

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 int64
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
field tp-acomodacao                         as char
field h-buffer-tmp-cabecalho-guia   as handle.

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...
  • tp-acomodacao - Tipo de acomodação do usuário;
  • h-buffer-tmp-cabecalho-guia - Handle da temporária cabecalho guia (tmp-cabecalho-guia).

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

field ds-motivo-auditoria        like guiautor.ds-motivo-auditoria.

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;
  • ds-motivo-auditoria - utilizado para alterar o motivo de auditoria.

Tabela de entrada e saída tmp-movto-ptu

def temp-table tmp-movto-ptu           no-undo

    field sqItem                                as int
    field tp-movimento                   as char format "x(16)"   
    field cd-tipo-insumo                  as int  format 99
    field cd-movimento                   as int64
    field cd-pacote                           as int  format 99999999
    field ds-movimento                    as char format "x(80)"
    field qt-movimento                     as dec
    field in-situacao                           as int  format "9"
    field vl-movimento                      like insuguia.vl-insumo
    field lg-exclui                               as log
    field cd-unidade                           like procguia.cd-unidade         
    field aa-guia-atendimento           like procguia.aa-guia-atendimento
    field nr-guia-atendimento           like procguia.nr-guia-atendimento
    field nr-processo                         like procguia.nr-processo        
    field nr-seq-digitacao                  like procguia.nr-seq-digitacao
    field tp-anexo                              as int
    field dat-previs-inic                     as date
    field id-pacote                             as character
    field cd-via-admin                       as integer
    field qt-frequencia                       as integer
    field vl-movimento-uni                as decimal
    field cd-anvisa                             like insumos.cd-anvisa
    field cd-ref-fab                            as char format "x(60)"
    field tp-ordem                             as char
    field vl-uni-servico                      as dec 
    field unMedicamento                  as int
    field totalDosagem                     as dec
    field cd-movimento-char            as char.

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

• • sqItem – Sequência do item solicitado;
  • 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;
  • lg-exclui – Campo sem utilização;
  • cd-unidade – Código da unidade do beneficiário;
  • aa-guia-atendimento – Ano de emissão da guia de autorização;
  • nr-guia-atendimento – Número da guia de autorização;
  • nr-processo – Número do processo;
  • nr-seq-digitacao – Sequência de digitação dos itens do documento;
  • tp-anexo – Indicador de Anexo;
  • dat-previs-inic – Data prevista de início;
  • id-pacote – Identifica se o serviço faz parte de um pacote;
  • cd-via-admin – Via Administração;
  • qt-frequencia – Frequência da administração;
  • vl-movimento-uni – Valor unitário do movimento;
  • cd-anvisa – Código ANVISA do Material/Medicamento;
  • cd-ref-fab – Referência do Material no Fabricante;
  • tp-ordem – Indica a ordem de preferência do profissional solicitante em relação ao fabricante do material solicitado;
  • vl-uni-servico – Valor unitário do serviço;
  • unMedicamento – Unidade de medida do medicamento;
  • totalDosagem – Dosagem total do medicamento no ciclo atual;
  • cd-movimento-char – Código do movimento.