• Rotina utilizada para:
  • Mudar qualquer informação do registro da tabela moviproc no momento da inclusão do movimento;
  • Verificar se deve ou não ser solicitado o prestdor da divisão de honorários;
  • Permtir trocar o código do procedimento informado pelo usuário;
  • Permtir trocar o código do procedimento informado pelo usuário; levando em consideração o vinculo e especialidade do prestador executante;
  • Controlar a digitiação de movimentos em duplicidades na base de dados;
  • Tratar a alteração da quantidade de vezes a tabela médica de pagamento e/ou cobrança;
  • Não permitir modificar os valores de taxa de intercâmbio durante o processo de modificação manual do procedimento e
  • Inicializar a hora (inicial e final) de realização dos movimentos;
  • Pemtir ou não efetuar glosa manual de docto. que possui movimentos pendentes da informação Tipo de Saida;
  • Permitir ou não alterar procedimentos .
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• 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.

Localização
Dentro do rc0312a8.p, no final do programa após a gravação do registro na tabela moviproc;
Dentro do rc0312a8.p, no processo de verificação da solicitação do prestador da divisão de honorários;
Dentro do rc0312a8.p, após a consistência do prestador executante;
Dentro do rc0312a8.p, após a informação da quantidade do movimento;
Dentro do rc0312a8.p, após a informação da quantidade de vezes que paga a tabela médica para o prestador e após a informação da quantidade de vezes que cobra a tabela médica do beneficiário;
Dentro do rc0312a9p, antes de efetuar o cálculo das taxas de intercâmbio e
Dentro dos programas rc0312a7.p, rc0312a8.p e rc0312a9.p antes de informar a hora de inicio e fim de realização/utilização do movimento;
Dentro do programa rc0312a6.p, quando da seleção da opção F7 – Glosa Manual.
Dentro do programa rc0312a6.p, quando seleciono um procedimento no browse do movimento.
Ponto de Utilização
"FIM-GRAVACAO"; "INICIO-GRAVACAO"; "CON-PRE-DIV"; "VERIF-EXIS", "VER-QT-TAB", "TRATA-PROC", "TAXA-INTER", "HORA-REALIZACAO", "CONS-TP-SAIDA" e "ALTERA-MOVTO".
Include das definições das tabelas temporárias
cpc-rc0312a6.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0312a6-entrada
def temp-table tmp-cpc-rc0312a6-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15) "
field lg-mensagem-na-tela as logical
field nr-rowid-moviproc as rowid
field cd-unidade like preserv.cd-unidade
field cd-unidade-prest like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador
field cd-procedimento like ambcbhpm.cd-cbhpm
field cd-unidade-carteira like moviproc.cd-unidade-carteira
field cd-carteira-usuario like moviproc.cd-carteira-usuario
field cd-transacao like docusos.cd-transacao
field cd-unidade-guia like guiautor.cd-unidade
field aa-guia-atend like guiautor.aa-guia-atendimento
field nr-guia-atend like guiautor.nr-guia-atendimento
field cd-tipo-guia like guiautor.cd-tipo-guia
field in-nivel-prestador like moviproc.in-nivel-prestador
field qt-procedimento like moviproc.qt-procedimento
field qt-tabela-pag-inf like precproc.qt-fat-rep-urgencia
field qt-tabela-pag-ant like precproc.qt-fat-rep-urgencia
field qt-tabela-cob-inf like precproc.qt-fat-rep-urgencia
field qt-tabela-cob-ant like precproc.qt-fat-rep-urgencia
field cd-tipo-vinculo like moviproc.cd-tipo-vinculo
field cd-esp-prest-executante like moviproc.cd-esp-prest-executante
field dt-realizacao like moviproc.dt-realizacao
field cd-procedimento-entra like ambcbhpm.cd-cbhpm
field nr-lote-imp like docrecon.nr-lote-imp
field nr-sequencia-imp like docrecon.nr-sequencia-imp
field cd-unidade-imp like docrecon.cd-unidade-imp
field cd-prestador-imp like docrecon.cd-prestador-imp
field vl-desconto-prestador like moviproc.vl-desconto-prestador
field lg-movto-sem-tp-saida as log
field nr-rowid-mov-insu as rowid.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rc0312a6.p. Os valores desse campo podem ser:
"INCLUI","ALTERA".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0312a6.p: "FIM-GRAVACAO"; "INICIO-GRAVACAO"; "CON-PRE-DIV"; "VERIF-EXIS", "VER-QT-TAB", "TRATA-PROC" e "TAXA-INTER"
lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
nr-rowid-moviproc – Rowid da tabela moviproc;
cd-unidade – Código da unidade;
cd-unidade-prest - Codiigo da unidade do prestador executante;
cd-prestador – Código do prestador executante;
cd-procedimento – Código do procedimento;
cd-unidade-carteira – Código da Unidade da carteira do beneficiário;
cd-carteira-usuário – Carteira do beneficiário;
cd-transacao – Código da transação;
cd-unidade-guia – Código da unidade da Guia (AIH);
aa-guia-atend – Ano da Guia (AIH);
nr-guia-atend – Número da da Guia (AIH);
cd-tipo-guia – Código do tipo da guia (AIH);
in-nivel-prestador – Indicação do nível do prestador executante;
qt-procedimento – Quantidade de procedimento executados;
qt-tabela-pag-inf – Quantidade de vezes que paga a tabela médica para o prestador definido pelo sistema;
qt-tabela-pag-ant – Quantidade de vezes que paga a tabela médica para o prestador informado pelo usuário do sistema;
qt-tabela-cob-inf – Quantidade de vezes que cobra a tabela médica do beneficiário definido pelo sistema;
qt-tabela-cob-ant – Quantidade de vezes que cobra a tabela médica do beneficiário informado pelo usuário do sistema;
cd-tipo-vinculo – Código do vinculo do prestador executante;
cd-esp-prest-executante – Código da especialidade médica do prestador executante;
dt-realizacao – Data de realização do procedimento;
cd-procedimento-entra – Código do procedimento de entrada, com tamanho de oito caracteres;
nr-lote-imp – Número do lote de importação;
nr-sequencia-imp – Número da sequencia do lote de importação;
cd-unidade-imp – Código da unidade do prestador de importação;
cd-prestador-imp – Código do prestador da unidade de importação;
vl-desconto-prestador – Valor do desconto do prestador;
lg-movto-sem-tp-saida – Indicador de existência de movimento pendente da informação Tipo de Saída;
nr-rowid-mov-insu - Rowid da tabela mov-insu.
Tabela de saída tmp-cpc-rc0312a6-saida
def temp-table tmp-cpc-rc0312a6-saida no-undo
field lg-undo-retry as logical
field ds-mensagem-relatorio as char format "x(75)"
field lg-aplica-divisao as log
field cd-procedimento-saida like ambcbhpm.cd-cbhpm
field lg-existe-base as log
field lg-alt-tabela as log
field lg-alt-taxa-inter as log
field hr-realizacao-ini like moviproc.hr-realizacao
field hr-realizacao-fim like moviproc.hr-realizacao
field lg-continua as log
field ds-mensagem-saida as char format "x(75)".
Definição campo a campo da tabela de saída

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• ds-mensagem-relatorio – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mensagem-na-tela. Se lg-mensagem-na-tela for Não então esse campo deve ser preenchido.
• Lg-aplica-divisao – Parâmetro que tem a função de indicar se deverá ou não ser solicitado o prestador da Divisão de Honorários.
• Cd-procedimento-saida – Código do procedimento de saída (Convertido);
• Lg-existe-base – Indica se já existe movimento correspondente registrado na base de dados;
• Lg-alt-tab – Indica se ocorreu ou não alteração na quantidade de vezes que paga a tabela médica para o prestador e/ou se ocorreu alteração na quantidade de vezes que cobra a tabela médica do beneficiário;
• Lg-alt-taxa-inter – Indica se será ou não permitido modificar os valores de taxa de intercâmbio durante o processo de modificação manual do procedimento;
• Hr-realizacao-ini – Hora de realização inicial;
• Hr-realizacao-fim – Hora de realização final;
• Lg-continua – lógica resultante de um processo específico do cliente de deve ou não executar lógica do programa;
• Ds-mensagem-saida – mensagem resultante de processo específico do cliente.