CPC-WAC0017A.P

• Rotina utilizada para retornar o grupo de usuários responsável pela Auditoria/Liberação da Guia solicitada via WAC.
• 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 wac0017a.p.

Ponto de Utilização

"FINAL-PROCESSO"

Include das definições das tabelas temporárias

• cpc-wac0017a.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0017a-entrada

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

field in-evento-programa                                       as char format "x(10)"
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                                         ike guiautor.cd-carteira-usuario
field aa-guia-atendimento                                     like guiautor.aa-guia-atendimento
field nr-guia-atendimento                                      like guiautor.nr-guia-atendimento

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-wac0017a.p. O valor desse campo pode ser:
    • "INCLUI".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa wac0017a.w:
    • "FINAL-PROCESSO".
    • cd-tipo-guia – Código do tipo da Guia.
    • Cd-unidade – Código da Unidade do prestador Principal.
    • Cd-prestador – Código do prestador principal.
    • Cd-unidade-carteira – Código da Unidade da carteira do beneficiário.
    • Cd-carteira-usuario – Código da carteira do beneficiário.
    • Aa-guia-atendimento – Ano da Guia (AIH) de atendimento.
    • nr-guia-atendimento – Número da Guia (AIH) de atendimento.
      
      

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

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

field lg-undo-retry                        as log
field ds-mensagem                     as char format "x(75)"
field nm-grupo-atend                  like tip-guia.nm-grupo-web-inter

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.
    • nm-grupo-atend – Grupo de usuários responsável pela Auditoria/Liberação da Guia solicitada via WAC.