cpc-wac0012a3.p1

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