CPC-RC0311A6.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 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.