CPC-WAC0017A1

• 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.