cpc-at0115c.p0

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 selelçã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" e "FIM-EXEC-AUTOR".
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)".
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. Para o programa AT0115C.P: "CANCEL-GUIA-CPC", "CONS-USU-AUDIT", "CRIA-SEG-PACOTE", "GRAVA-AUT-NEG", "IMPRIME-POST", "PERMITE-AUTOR", "SITUACAO-GUIA", "TRATA-SITUACAO", "TRATA-USU-ATEND", "TRATA-USU-AUDIT", "CONV-INSUMO", "ANTES-COMUNICA" , "APOS-ALT-GRUPO" e "FIM-EXEC-AUTOR"
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 procedimento.
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 – numero da guia atendimento.
dt-guia-atendimento - data da guia atendimento.
hr-guia-atendimento - hora da guia atendimento.
in-status – status da 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.
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.
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.