CPC-RC0312A3.P

• Rotina utilizada para permitir a operadora efetuar consultas e criticas especificas sobre os documentos em alteração quando o acesso a este(s) documento(s) ocorrer pela modulo RC na opção RC-04-C.Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Após a montagem do browser com os documentos selecionados para modificação, dentro do programa rc0312a3.p Ressalta-se que somente será chamada a CPC caso ela esteja ativa, no cadastro de CPC.
• Para o ponto "ALTERA-INTER" a Localização ocorre após a alteração dos dados de internação.
• Ponto "APOS-MOVTO" após a manutenção de procedimentos, utilizando o evento "APOS-PROCED" e após a manutenção de insumos, utilizando o evento "APOS-INSUMO".
• Ponto "APOS-CARTEIRA" após o display dos dados referentes a carteira do beneficiário.

Ponto de Utilização

• "CONS-CLIENTE"
• "APÓS-ALT-DOCTO"
• "CONS-PROF-SOL"
• "CONS-PRESTADOR"
• "TRATA-GUIA"
• "CONS-TP-SAIDA"
• "ALTERA-INTER"
• "APOS-MOVTO"
• "APOS-CARTEIRA"

...

• "ANTES-EXC-GLOSA"

Include das definições das tabelas temporárias

...

Tabela de entrada tmp-cpc-rc0312a3-entrada

def temp-table tmp-cpc-rc0312a3-entrada no-undo

field in-evento-programa programa                       as as char format "x(10)"
field nm-ponto-chamada-cpccpc                  as  as char format "x(15)"
field tp-pesquisa pesquisa                                    as char format "x(03)"
field cd-unidade-prestadoraprestadora                   like  like docusos.cd-unidade-prestadora
field cd-transacao  transacao                                 like docusos.cd-transacao
field cd-unidade-principal principal                      like like docusos.cd-unidade-principal
field cd-vinculo-principalprincipal                          like docrecon.cd-vinculo-principal
field cd-prestador-principal       principal              like docusos.cd-prestador-principal
field dt-anoref anoref                                      like  like perimovi.dt-anoref
field nr-perref    perref                                    like perimovi.nr-perref
field cd-serieserie                                         like  like docrecon.cd-serie-nf
field aa-faturafatura                                       like docrecon.aa-fatura
field nr-faturafatura                                        like like docrecon.nrcod-fatur-fatura ap
field cd-unidade   unidade                                like docusos.cd-unidade
field aa-guia-atendimento    atendimento                like docusos.aa-guia-atendimento
field nr-guia-atendimentoatendimento                      like docusos.nr-guia-atendimento
field cd-clinica clinica                                     like  like docusos.cd-clinica
field nr-serie-doc-originaloriginal                      like  like docrecon.nr-serie-doc-original
field nr-doc-original     original                          like docrecon.nr-doc-original
field nr-doc-sistemasistema                              like docrecon.nr-doc-sistema
field cd-unidade-seccional seccional                  like preserv.cd-unidade-seccional
field lg-movto-sem-tp-saidasaida                  as  as log format "Sim/Nao"
field dt-internacao    internacao                            like docrecon.dt-internacao
field dt-alta                                       like docrecon.dt-alta
field aa-ndr                                           like docrecon.dt-alta like docrecon.aa-fatura
field cd-serie-ndr                              like docrecon.cd-serie-nf
field nr-ndr                                       like docrecon.cod-fatur-ap
field r-moviproc                                as rowid.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-rc0312a3.p. O valores desse campo pode ser:"CONSULTA", "MODIFICA"
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0312a3.p:"CONS-CLIENTE", "APOS-ALT-DOCTO", "CONS-PROF-SOL", "CONS-PRESTADOR", "TRATA-GUIA", "CONS-TP-SAIDA", "ALTERA-INTER", "APOS-MOVTO" e "APOS-CARTEIRA".
• tp-pesquisa – Código do tipo da pesquisa selecionada pelo usuário do Sistema. Os possíveis tipo de pesquisa são:
  • "Sem": Sem Nota/Fatura;
  • "Atr": Através de Guias;
  • "Com": Com Nota/Fatura;
  • "Por": Por Clinica;
• cd-unidade-prestadora – Código da unidade prestadora;
• cd-transacao – Código da transação;
• cd-unidade-principal – Código da unidade do prestador principal;
• cd-vinculo-principal – Código do vinculo do prestador principal;
• cd-prestador-principal – Código do prestador principal;
• dt-anoref – Ano de referência;
• nr-perref – Período de referência;
• cd-serie – Série do documento;
• aa-fatura – Ano da fatura;
• nr-fatura – Número da fatura;
• cd-unidade – Código da Unidade;
• aa-guia-atendimento – Ano da guia de autorização
• nr-guia-atendimento – Número da guia de autorização;
• cd-clinica – Código da Clinica.
• nr-serie-doc-original – Serie do documento;
• nr-doc-original – Número do documento original;
• nr-doc-sistem – Número do documento do sistema;
• cd-unidade-secciona- Unidade seccional do prestador;
• lg-movto-sem-tp-saida – Indica se o documento possui ou não movimentos pendentes em virtude da não informação do Tipo de Saída.
• dt-internacao – data de internação do documento de internaçao
• dt-alta – data alta do documento de internação

...

• aa-ndr - Ano da NDR 
• cd-serie-ndr - série da NDR
• nr-ndr - número da NDR
• r-moviproc - rowid da tabela Moviproc.

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

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

field lg-undo-retry                              as log  
field ds-mensagem-retorno               as char
field nm-prof-sol                                as char
field cd-conselho                               as char
field nr-registro                                  as int
field cd-uf-conselho                           as char
field lg-erro-perref                              as log.

...

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM indicará que erros aconteceram se se o retorno for igual a NÃO indicará que o processo foi concluído por completo.
• ds-mensagem-retorno - descrição da mensagem de retorno da CPC.
• Nm-prof-sol – Nome do profisisonal solicitante
• Cd-conselho – Conselho do profissional solciitante
• Nr-registro – Número do registro do conselho do prof. Solicitante
• Cd-uf-conselho – UF do conselho do profissional solicitanteLg-erro-perref – Indica a ocorrência de restrição com relação ao período de referencia;