cpc-wac0017a10

Seta arquivo de funções javascript – "FUNCOESWACESP.JS"
Permitir a operadora informar quais grupos de prestadores que não será exigido o uso do cartão magnético e da leitora de biometria.
Rotina utilizada para, no programa de Solicitação de Internação Ambulatorial, não obrigar o preenchimento do campo "25-Qtde.Diarias Solicitadas" ou permitir que o campo possa ser preenchido com 0 (zero).
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 wac0017a1.p.
Ponto de Utilização
"SETA-FUNCOES"
"GRUPO-PRESTADOR"
"TESTA-LEITORA"
"QT-DIARIAS"
"FINAL-CARREGA"
"ANTES-GRAVAR"
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-wac0017a1-entrada
def temp-table tmp-cpc-wac0017a1-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-tipo-guia like tip-guia.cd-tipo-guia
field cd-unidade like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador
field cd-unidade-carteira like guiautor.cd-unidade-carteira
field cd-carteira-usuario like guiautor.cd-carteira-usuario
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-clinica like clinicas.cd-clinica
field tp-servico as char format "x(01)"
field cd-tipo-insumo like mov-insu.cd-tipo-insumo
field qt-servico like insuguia.qt-insumo
field cd-servico as int format "999999999"
field vl-insumo as dec format ">>>.999,99"
field r-tmp-servico as rowid.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a rotina WAC0017a1, na qual será passada para a cpc-wac0017a1.p.
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
cd-tipo-guia - Codigo do tipo de guia.
cd-unidade - Código da unidade do prestador.
Cd-prestador - Código do prestador .
cd-unidade-carteira - Código da unidade da carteira do beneficiario.
Cd-carteira-usuario - Código da carteira do beneficiário.
Aa-guia-atendimento – Ano da guia de atendiamento.
Nr-guia-atendimento – Numero da guia de atendimento
Cd-clinica – Código da clinica;
Tp-servico – Tipo de serviço
Cd-tipo-insumo – Codigo do tipo de insumo
Qt-servico – Quantidade do Serviço
Cd-servico – Codigo do Serviço
Vl-insumo – valor do insumo
R-tmp-servico – Rowid da tabela tmp-servico
Tabela de saída tmp-cpc-wac0017a1-saida
def temp-table tmp-cpc-wac0017a1-saida no-undo
field lg-undo-retry as log
field cd-erro-sistema as char format "x(75)"
field ds-mensagem as char format "x(75)"
field nm-grupo-atend like tip-guia.nm-grupo-web-inter
field lg-restringe as log
field lg-cartao as log
field lg-biometria as log
field lg-permite-diarias-zero as log
field lg-troca-prestador as log
field cd-unidade like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador
field r-tmp-servico as rowid.
.
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– Deve conter mensagens de erro ou qualquer outro tipo de mensagem.
Nm-gupo-atend – Nome do grupo de usuários para liberação de guias de intercâmbio.
lg-restringe – Indica se o grupo do prestador deverá ou não validar o uso do cartão magnético e da leitora biometrica.
Lg-cartao – Desconsidera o uso da leitora de cartão;
Lg-biometria – Desconsidera o uso da leitora de biometria;
lg-permite-diarias-zero – Indica se será permitido submeter a guia sem informar a quantidade de diárias ou informar quantidade zero.
cd-erro-sistema – Contem o código do erro do sistema.
lg-troca-prestador – Indica qual prestador será salvo na guia.
Cd-unidade - Código da unidade do prestador.
Cd-prestador - Código do prestador .
R-tmp-servico – Rowid da tabela tmp-servico