CPC-WAC0019A1

• Seta arquivo de funções javascript – "FUNCOESWACESP.JS".
• Verifica se para a cidade da clinica os procedimentos da guia poderão ser direcionados para um determinado executante, caso este possua quotas.
• 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.
• Permite a operadora alterar o tipo de guia, desconsiderando a associativa tipo de guia x classe de nota.
• 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 wac0019a1.p.

Ponto de Utilização

"SETA-FUNCOES"
"DIR-VERCOTA"
"GRUPO-PRESTADOR"
"ALT-TIPO-GUIA"
"TESTA-LEITORA"

Include das definições das tabelas temporárias

• CPC-WAC0019A1.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0019a1-entrada

def temp-table tmp-cpc-wac0019a1-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-unidade-executante                              as int
field cd-prestador-executante                            as int
field cd-solicitante-aux                                       as int
field cd-unidade-solicitante-aux                         as int
field cd-clinica-aux                                             as int
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 in-classe-nota                                             like assotgcl.in-classe-nota
field cd-transacao                                              like tranrevi.cd-transacao

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a rotina WAC0019a1, na qual será passada para a cpc-wac0019a1.p.
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para a rotina wac0019a1.p:
    • "DIR-VERCOTA", "SETA-FUNCOES", "GRUPO-PRESTADOR" ou "ALT-TIPO-GUIA".
    • cd-unidade-carteira – Código da unidade da carteira do usuário;
    • cd-carteira-usuario – Código Identificador do beneficiário (carteira);
    • cd-unidade-executante – Código da unidade do prestador Executante;
    • cd-prestador-executante – Código do prestador Executante;
    • cd-solitante-aux – Código do prestador Solicitante;
    • cd-unidade-solicitante-aux – Código do Prestador Solicitante;
    • cd-clinica-aux – Código da Clinica do prestador;
    • cd-tipo-guia – Código do tipo de guia a qual a autorização estará vinculada;
    • cd-unidade – Código da unidade do prestador;
    • cd-prestador – Código do prestador;
    • in-classe-nota – Código da classe da nota;
    • cd-transacao – Código da transação a qual a autorização estará vinculada.
      
      

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

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

field lg-undo-retry                                  as log
field ds-mensagem                               as char format "x(75)"
field lg-alt-nm-usuario                            as int format 99999999
field cd-unidade-direciona                     as int
field cd-prestador-direciona                   as int
field lg-restringe                                    as log
field cd-tipo-guia                                   like tip-guia.cd-tipo-guia
field in-classe-nota                                like assotgcl.in-classe-nota
field cd-transacao                                 like tranrevi.cd-transacao
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 deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
    • ds-mensagem – Deve conter mensagens de erro quando lg-undo-retry estiver ativo.
    • lg-alt-nm-usuario –
    • cd-unidade-redireciona – Código da unidade que o procedimento será direcionada para sua execução.
    • cd-prestador-redireciona – Código do prestador que o procedimento será direcionado.
    • lg-restringe – Indica se o grupo do prestador deverá ou não validar o uso do cartão magnético e da leitora biométrica.
    • cd-tipo-guia – Código do tipo de guia.
    • in-classe-nota – Codigo da classe da nota.
    • cd-transacao – Código da transação.
    • lg-cartao – Desconsidera o uso da leitora de cartão.
    • Lg-biometria – Desconsidera o uso da leitora biométrica.
      
      

Tabela de entrada tmp-cpc-wac0019a1-entrada -serv

def temp-table tmp-cpc-wac0019a1-entrada-serv no-undo

field cd-servico            as int
field qt-servico             as int

Definição campo a campo da tabela de serviços

• • • cd-servico – Código do procedimento que será direcionado.
    • qt-servico – Quantidade do procedimento a ser direcionado

.