cpc-wac0018a.p1

Rotina utilizada para verificar se a guia que está sendo carregada trata-se de uma guia negada, para que seja exibida em tela uma nova aba.
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 wac0018a.p.
Ponto de Utilização
COMPR-NEGATIVA"
Include das definições das tabelas temporárias
cpc-wac0018a.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-wac0018a-entrada
def temp-table tmp-cpc-wac0018a-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field ds-sit-guia as char
field ds-fundo as char
field cd-clinica as int
field cd-unidade-prestador as int
field cd-prestador as int
field sh-prestador as int
field id-beneficiario as char
field nr-via-cartao as char
field Sh-beneficiario as char
field Id-Cartao as char format "x(01)"
field ls-programa as char
field in-natureza-contratacao as char
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field lg-testa-biometria-prest as log
field ds-macaddress as char.
Definição campo a campo da tabela de entrada
in-evento-programa - Evento do programa que chama a cpc-wac0018a.p.
nm-ponto-chamada-cpc - Nome do ponto de chamada da cpc dentro do programa que a utiliza.
ds-sit-guia - Situação da guia.
ds-fundo - Descrição do estilo de fundo.
cd-clinica - Código da clinica.
cd-unidade-prestador - Código da unidade do prestador.
cd-prestador - Código do prestador.
sh-prestador - Senha do prestador.
id-beneficiario - Id do beneficiário.
nr-via-cartao - Numero da via do cartão.
sh-beneficiario - Senha do beneficiário.
id-cartao - Id do cartão.
ls-programa - Id do programa.
in-natureza-contratacao - Natureza da contratação.
aa-guia-atendimento - Ano da guia.
nr-guia-atendimento - Numero da guia.
lg-testa-biometria-prest - Testa biometria do prestador.
ds-macaddress - Descrição do Macaddress.
Tabela de saída tmp-cpc-wac0018a-saida
def temp-table tmp-cpc-wac0018a-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(75)".
Definição campo a campo da tabela de saída
lg-erro - 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.
ds-mensagem - Variável que retornar mensagem de erro, se ocorrido dentro da CPC.