CPC-RC0312A6.P

 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"
• "ALTERA-MOVTO"
• "APOS-BROWSE-MOV"
• "ANTES-EXC-GLOSA"

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

field  qt-glosado                              like moviproc.qt-glosado                         
field  nr-rowid-docrecon                  as rowid.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-rc0312a6.p. 
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
• 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.
• qt-glosado – Quantidade glosada
• nr-rowid-docrecon – Rowid do documento.

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)"

field  qt-glosado                                  like moviproc.qt-glosado
field  lg-continua-divisao                     as log.

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.
  • qt-glosado – Quantidade glosada
  • lg-continua-divisão – Indica se continuará ou não a divisão de honorários.