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.