CPC-WAC0012A3.P

Rotina utilizada para:

• Permitir gravar movimentos em guia fechada.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do programa wac0012a3.p.

Ponto de Utilização

"PERMITE-GUIA";
TESTA-LEITORA";
"APOS-INCLUI";

Include das definições das tabelas temporárias

• cpc-wac0012a3.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0012a3-entrada

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

field in-evento-programa                              as char format "x(06)"
field nm-ponto-chamada-cpc                       as char format "x(15)"
field nr-recid-guia                                         as recid
field in-liberado-guias                                   like guiautor.in-liberado-guias
field cd-clinica                                              like clinicas.cd-clinica
field cd-unidade                                           like unimed.cd-unimed
field cd-prestador                                         like preserv.cd-prestador
field nr-doc-original                                      as int
field nr-serie-doc-original                              like docusos.nr-serie-doc-original

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-wac0012a3.p. O valor desse campo pode ser:
    • "ENTRADA".
    • "SAIDA".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa wac0012a3.w:
    • "PERMITE-GUIA".
    • "APOS-INCLUI".
    • Nr-receis-guia – Recid da guia.
    • In-liberado-guias – Situação da guia.
    • Cd-clinica – Código da clinica.
    • Cd-unidade – Código da unidade.
    • Cd-prestador – Código do prestador.
    • Nr-doc-original – Número do documento.
    • Nr-serie-doc-original – Série do documento.
      
      

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

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

field lg-undo-retry                     as log
field lg-retorna                          as log
field ds-mensagem                  as char format "x(75)"
field lg-cartao                           as log
field lg-biometria                      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. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
    • lg-retorna – Campo lógico que retorna erros da CPC, a diferença deste campo para o campo lg-undo-retry é que ele apresenta apenas a mensagem retornada da CPC.
    • ds-mensagem - Mensagem que deverá ser retornada ao usuário, quando indicação de ocorrência de erro.
    • lg-cartao – Desconsidera o uso da leitora de Cartão.
    • lg-biometria – Desconsidera o uso da leitora biométrica.