CPC-RC0311A5.P

• Rotina utilizada para:
  • Mudar qualquer informação do registro da tabela moviproc no momento da inclusão do movimento;
  • Controlar a digitação de movimentos em duplicidades na base de dados.
• 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 rc0311a5.p no final do programa após a gravação do registro na tabela moviproc.
• Após validação RESTRICAO PRESTADOR PRINCIPAL X MOVIMENTO X PACOTE.
• Após digitar o código do procedimento, permite a visualização das normas técnicas do procedimento.
• Antes da chamada da rotina de validação de glosas.
• Depois da validação da carteira do beneficiário.
  
  

Ponto de Utilização

• "FIM-GRAVACAO"
• "ENTIDADE"
• "HORA-URGENCIA"
• "VALIDA-GLOSA"
• "MOSTRA-MENSAGEM"
• "ANT-INC-PACOTE"
• "ANT-GRAVA-PROC" - a partir da versão 12.1.2407.
• "ANT-VAL-COPART" - a partir da versão 12.1.2511.

Include das definições das tabelas temporárias

• cpc-rc0311a5.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0311a5-entrada

def temp-table tmp-cpc-rc0311a5-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 rowed
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-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 lg-urgencia                                as log
field lg-rtvalglo-cpc                            as log
field aa-guia-atendimento                 like guiautor.aa-guia-atendimento
field nr-guia-atendimento                  like guiautor.nr-guia-atendimento
field nr-rowid-tranrevi                         as rowid
field cd-tipo-cob-cpc                          like moviproc.cd-tipo-cob
field vl-uso-indevido-cpc                    like moviproc.vl-perc-usu-indevido
field cd-validacao-cpc                        like moviproc.cd-validacao
field cd-user-validacao-cpc                like moviproc.cd-user-validacao
field cd-forma-pagto-cob-cpc             like formpaga.cd-forma-pagto
field cd-tipo-pagamento-cpc              like moviproc.cd-tipo-pagamento
field dt-realizacao-cpc                        like moviproc.dt-realizacao
field cd-unidade-cpc                          like moviproc.cd-unidade
field cd-unidade-prestadora-cpc        like moviproc.cd-unidade-prestadora
field cd-transacao-cpc                       like moviproc.cd-transacao
field nr-serie-doc-original-cpc             like moviproc.nr-serie-doc-original
field nr-doc-original-cpc                     like moviproc.nr-doc-original
field nr-doc-sistema-cpc                    like moviproc.nr-doc-sistema
field nr-processo-cpc                         like moviproc.nr-processo
field nr-seq-digitacao-cpc                  like moviproc.nr-seq-digitacao
field lg-mostra-mensagem                as log
field in-obriga-para                            like presmovt.int-1
field cd-prestador-executante            like preserv.cd-prestador
field cd-unidade-executante              like unimed.cd-unimed
field lg-inclui-pacote                           as log
field cd-unidade-principal                   like unimed.cd-unimed
field cd-prestador-principal                 like preserv.cd-prestador
field cd-local-atendimento                  like locaaten.cd-local-atendimento
field  nm-prestador-exec                     as char
field  cd-conselho-pre-exec                 as char
field  nr-conselho-exec                        as char
field  en-uf-conselho-exec                   as char
field  cd-cpf-exec                                 as char
field  hr-realizacao-ini                          as char
field  cod-fatur-ap                                as char
field in-cobra-partic                             as int

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-rc0311a5.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 rc0311a5.p:
• "FIM-GRAVACAO"
• "VERIF-EXIS"
• "VALIDA-GLOSA"
• lg-mensagem-na-ela – 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-prest – Código da undiade do prestador executante;
• cd-prestador – Código do prestador;
• cd-procedimento –Código do procedimento;
• cd-unidade-carteira – Código da unidade da carteira do beneficiário;
• cd-transação – Código da Transação;
• cd-unidade-guia – Código da Undiade da GUIA (AIH);
• aa-guia-atend – Ano da Guia de atendimento (AIH);
• nr-guia-atend – Número da Guia de atendimento (AIH);
• cd-tipo-guia – Código do tipo da Guia de autorização (AIH);
• in-nivel-prestador – Indicador do nível do prestador;
• lg urgencia – Log que indica se o procedimento é de urgência;
• lg-rtvalglo-cpc - Campo que informa se o movimento foi validado ou não;
• aa-guia-atendimento - Ano da guia de atendimento;
• nr-guia-atendimento - Número da guia de atendimento;
• nr-rowid-tranrevi - Campo que envia o registro completo da tabela tranrevi;
• cd-tipo-cob-cpc - Tipo de cobrança;
• vl-uso-indevido-cpc - Valor do uso indevido pelo beneficiário;
• cd-validacao-cpc - Código de validação do movimento;
• cd-user-validacao-cpc - Código do usuário de validação;
• cd-forma-pagto-cob-cpc - Forma de pagamento;
• cd-tipo-pagamento-cpc - Tipo de pagamento;
• dt-realizacao-cpc - Data de realização;
• cd-unidade-cpc - Código da unidade da operadora que esta digitando o movimento;
• cd-unidade-prestadora-cpc - Código da unidade da operadora que prestou o serviço;
• cd-transacao-cpc - Código da transação;
• nr-serie-doc-original-cpc - Número de série do documento original;
• nr-doc-original-cpc - Número do documento original;
• nr-doc-sistema-cpc - Número do documento;
• nr-processo-cpc - Número do processo;
• nr-seq-digitacao-cpc - Número da sequência da digitação.
• lg-mostra-mensagem – Indica se será exibida mensagem.
• in-obriga-para - Indica se utiliza regra parametrizada
• cd-prestador-executante Código do prestador executante.
• cd-unidade-executante - Código unidade do prestador executante.
• lg-inclui-pacote - indica se o movimento está sendo incluído por um pacote.
• cd-unidade-principal - Código unidade principal.
• cd-prestador-principal - Código do prestador principal.
• cd-local-atendimento - Local de atendimento.
• nm-prestador-exec - Nome prestador executante.
• cd-conselho-pre-exec - Código conselho prestador executante.
• nr-conselho-exe - Número conselho prestador executante.
• en-uf-conselho-exec - UF conselho prestador executante.
• cd-cpf-exec - CPF prestador executante.
• hr-realizacao-ini - Hora realizacao inicial.
• cod-fatur-ap - Número da fatura.
• in-cobra-partic - Indicador Cobrança Coparticipação.

Tabela de saída tmp-cpc-rc0311a5-saida

def temp-table tmp-cpc-rc0311a5-saida no-undo

fields lg-undo-retry                             as logical
fields ds-mensagem-relatorio            as char format "x(75)"
fields lg-existe-base                          as log
field lg-urgencia                                as log
field lg-rtvalglo-cpc                            as log
field cd-tipo-cob-cpc                          like moviproc.cd-tipo-cob
field vl-uso-indevido-cpc                    like moviproc.vl-perc-usu-indevido
field cd-validacao-cpc                       like moviproc.cd-validacao
field cd-user-validacao-cpc               like moviproc.cd-user-validacao
field cd-forma-pagto-cob-cpc            like formpaga.cd-forma-pagto
field cd-tipo-pagamento-cpc             like moviproc.cd-tipo-pagamento
field lg-cpc-ant-inc-pacote-restr        as log
field lg-altera-cobra-partic                 as log
field in-cobra-partic                            as int

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-existe-base – Indica se movimento correspondente já existe na base de dados.
• lg urgencia – Log que indica se o procedimento é de urgência.
• lg-rtvalglo-cpc - Campo que informa se o movimento foi validado ou não.
• cd-tipo-cob-cpc - Tipo de cobrança.
• vl-uso-indevido-cpc - Valor do uso indevido pelo beneficiário.
• cd-validacao-cpc - Código de validação do movimento.
• cd-user-validacao-cpc - Código do usuário de validação.
• cd-forma-pagto-cob-cpc - Forma de pagamento.
• cd-tipo-pagamento-cpc - Tipo de pagamento.
• lg-cpc-ant-inc-pacote-restr – indica se o movimento deve ser restringido.
• lg-altera-cobra-partic - Indica se deve alterar o indicador de cobrança.
• in-cobra-partic -  Novo valor para o indicador de cobrança.