CPC-WAC0011A1.P

Rotina utilizada para:

• Permitir que o nome do usuário seja alterado na Consulta TISS.
• Permitir que a carteira do usuário seja alterado na Consulta TISS.
• Permitir que o plano do beneficiário seja alterado na Consulta TISS.
• Permitir interagir com os campos de envio e resposta do Registro de Consulta TISS.
• Permite o controle da data de Atendimento.
• Permite incluir funções javascript na página HTML gerada.
• Permite visualizar informações relacionadas a franquias.
• 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 wac0011a1.p.

Ponto de Utilização

"ALT-NM-USUARIO"
"ALT-CR-USUARIO"
"TROCA-DESC"
"RESP-INT-ELET"
"TESTA-LEITORA"
"ALTERA-DATA"
"FUNCOES"
"INICIO-TELA"

Include das definições das tabelas temporárias

• cpc-wac0011a1.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0011a1-entrada

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

field in-evento-programa                                     as char format "x(06)"
field nm-ponto-chamada-cpc                              as char format "x(15)"
field cd-unidade-carteira                                      like guiautor.cd-unidade-carteira
field cd-carteira-usuario                                       like guiautor.cd-carteira-usuario
field cd-clinica                                                      like clinpres.cd-clinica
field r-preserv                                                      as recid
field r-usuario                                                      as recid
field ds-segmento-envio                                      as char format "x(1000)"
Field r-out-uni                                                      as recid
field cd-unidade                                                  like preserv.cd-unidade
field cd-prestador                                                like preserv.cd-prestador
field dt-atendimento                                            as date format "99/99/9999"
field cd-erro-sistema                                            as char

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-wac0011a1.p. O valor desse campo pode ser:
    • "INCLUI" e "COMUNICA".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa wac0011a1.w:
    • "ALT-NM-USUARIO";
    • "ALT-CR-USUARIO";
    • TROCA-DESC;
    • RESP-INT-ELET;
    • "ALTERA-DATA";
    • "INICIO-TELA";
    • Cd-unidade-carteira – Código da Unidade da carteira do beneficiário;
    • Cd-carteira-usuario – Código da carteira do beneficiário;
    • Cd-clinica – Código da clínica;
    • R-preserv – Recid do prestador;
    • R-usuario – Recid do beneficiário.
    • Ds-segmento-envio – Segmento do layout de transação AC (layout_ac.doc) para envio da transação de Consulta TISS.
    • R-out-uni – Recid do beneficiário de outra unidade.
    • Cd-unidade – Código da unidade.
    • Cd-prestador – Código do prestador.
    • Dt-atendimento – Data atendimento da consulta.
    • Cd-erro-sistema – Informar se ocorreu erro no processo.
      
      

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

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

field lg-undo-retry                                  as log
field ds-mensagem                               as char format "x(75)"
field lg-alt-nm-usuario                            as log
field lg-restringe-consulta                       as log
field cd-unidade-carteira                        like guiautor.cd-unidade-carteira
field cd-carteira-usuario                         like guiautor.cd-carteira-usuario.
field ds-mensagem-auditoria                 as char format "x(75)"
field ds-mensagem-aut-parcial              as char format "x(75)"
field ds-mensagem-negada                  as char format "x(75)"
field ds-segmento-retorno                     as char format "x(1000)"
field cd-erro-sistema                              as char
Field ds-plano                                       like pla-sal.nm-plano
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.
    • ds-mensagem - Mensagem que deverá ser retornada ao usuário, quando indicação de ocorrência de erro.
    • lg-alt-nm-usuario – Log que informa se deve ser habilitado o campo para o nome do usuário ser alterado.
    • lg-restringe-consulta – Log que informa se irá restringir ou não a consulta.
    • cd-unidade-carteira – Código da Unidade da Carteira do Beneficiário que será mostrado na tela.
    • cd-carteira-usuario – Carteira do Beneficiário que aparecerá na tela.
    • Ds-mensagem-auditoria – Permite informar mensagem de Auditoria para as Guias que obtiveram este retorno.
    • Ds-mensagem-aut-parcial – Permite informar mensagem de Autorização Parcial para as Guias que obtiveram este retorno.
    • Ds-mensagem-negada – Permite informar mensagem de Negativa para as Guias que obtiveram este retorno.
    • Ds-segmento-retorno – Segmento do layout de transação AC (layout_ac.doc) para resposta da transação de Consulta TISS.
    • Cd-erro-sistema – Permite informar ERRO de retorno para apresentação em tela.
    • ds-plano – Descrição do plano do beneficiário.
    • Lg-cartao – Desconsidera o uso da leitora de cartão.
    • Lg-biometria - Desconsidera o uso da leitora biométrica.