cpc-rc0311a5.p1

• Rotina utilizada para:
  • Mudar qualquer informação do registro da tabela moviproc no momento da inclusão do movimento;
  • Controlar a digitiaçã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"
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.
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-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-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.
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.
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.