• 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 e
  • Inicializar a hora (inicial e final) de realização dos movimentos.
  • Permitir a substituição do Prestador Executante.
  • Alteraração de informações da file-moviproc
• 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 rc0311a6.p, no final do programa após a gravação do registro na tabela moviproc;
Dentro do rc0311a6.p, no processo de verificação da solicitação do prestador da divisão de honorários;
Dentro do rc0311b6.p, após a consistência do prestador executante;
Dentro do rc0311b6.p, após a informação da quantidade do movimento;
Dentro do rc0311a6.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 programa rc0311b6.p, antes de informar a especialidade do prestador executanto do movimento e
Dentro do programa rc0311b6.p, antes de informar a hora de inicio e fim de realização do procedimento;
Dentro do programa rc0311b6.p, após digitação do Prestador Executante
Dentro do programa rc0311a6.p, antes do término do processo de glosa manual
Ponto de Utilização
"FIM-GRAVACAO"; "INICIO-GRAVACAO"; "CON-PRE-DIV"; "VERIF-EXIS", "VER-QT-TAB", "TRATA-PROC"; "CONS-ESPECIALID", "HORA-REALIZACAO" , "SUBST-PRES-EXEC", "ALTERA-VALOR" .
Include das definições das tabelas temporárias
cpc-rc0311a6.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0311a6-entrada
def temp-table tmp-cpc-rc0311a6-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 lg-trabalho-medico like moviproc.lg-trab-cooperado
field cd-unidade-prest-ant like moviproc.cd-unidade-prestador
field cd-prestador-ant like moviproc.cd-prestador
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rc0311a6.p. Os valores desse campo podem ser:
"INCLUI".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0311a6.p: "FIM-GRAVACAO"; "INICIO-GRAVACAO"; "CON-PRE-DIV"; "VERIF-EXIS", "VER-QT-TAB", "TRATA-PROC" , "CONS-ESPECIALID".
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 – Código 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-realização – data de realização do movimento
Cd-procedimento-entra – Código do procedimento
Lg-trabalho-medico – Indicador do trabalho medico
cd-unidade-prest-ant - Unidade do prestador
cd-prestador-ant - Código do prestador.
Tabela de saída tmp-cpc-rc0311a6-saida
def temp-table tmp-cpc-rc0311a6-saida no-undo
fields lg-undo-retry as logical
fields 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 cd-tipo-vinculo like moviproc.cd-tipo-vinculo
field lg-trabalho-medico like moviproc.lg-trab-cooperado
field cd-esp-prest-executante like moviproc.cd-esp-prest-executante.
field hr-realizacao-ini like moviproc.hr-realizacao
field hr-realizacao-fim like moviproc.hr-realizacao.
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-tabela – 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;
• Cd-tipo-vinculo – Código do tipo de vinculo;
• Lg-trabalho-medico – Indica trabalho medico;
• Cd-esp-prest-executante – Especialidade do prestador executante;
• Hr-realizacao-ini – Hora de realização inicial;
• Hr-realizacao-fim – Hora de realização final.