CPC-WAC0018B.P

• Rotina utilizada permitirá a operadora INDICAR se deve utilizar o Layout padrão de impressão de AIH do SERIOUS ou se deve utilizar o seu Layout especifico quando da impressão, pelo portal, de AIH na Situação de "Processada pelo Contas" (GUIAUTOR.IN-LIBERADO-GUIAS = "4").
• Rotina utilizada para verificar se a guia que está sendo carregada trata-se de uma guia de internação, para que sejam exibidos em tela os dados de internação.
• 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 wac0018b.p.

Ponto de Utilização

"VERIF-LAYOUT"

• • Rotina utilizada para retornar mensagem de situação de AIH para o usuário do WAC;

"VALIDA-GUIA-INT"
"COMPR-NEGATIVA"
"VALIDA-BENEF"

Include das definições das tabelas temporárias

• cpc-wac0018b.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0018b-entrada

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

field in-evento-programa                      as char format "x(10)"
field nm-ponto-chamada-cpc                as char format "x(15)"
field r-guiautor                                      as recid
field aa-guia-atendimento                    like guiautor.aa-guia-atendimento
field nr-guia-atendimento                     like guiautor.nr-guia-atendimento
field id-beneficiario                               as char
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-wac0018b.p. O valor desse campo pode ser:
    • "FINAL-PROCESSO".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa wac0018b.w:
    • "VERIF-LAYOUT";
    • "VALIDA-GUIA-INT";
    • "COMPR-NEGATIVA";
    • "VALIDA-BENEF";
    • r-guiautor – Recid da tabela guiautor em uso;
    • aa-guia-atendimento - Ano da guia;
    • nr-guia-atendimento - Número da guia;
    • id-beneficiario - Unidade e carteira do beneficiário;
    • Cd-erro-sistema – Possui erro de execução.
      
      

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

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

field lg-layout-padrao                        as log
field lg-undo-retry                              as log
field lg-guia-internacao-aux               as log
field ds-mensagem                           as char format "x(75)"
field cd-erro-sistema                          as char

Definição campo a campo da tabela de saída

• • • lg-layout-padrao – Está variável tem como funcionalidade básica indicar se a impressão da guia deverá ser através do layout padrão do sistema SERIOUS (lg-layout-padrao = yes) ou através do layout padrão do cliente (lg-layout-padrao = no).
    • 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.
    • lg-guia-internacao-aux – Variável que controla se a guia que está sendo carregada será considerada uma guia de internação para que em tela sejam exibidos os dados de internação.
    • ds-mensagem - Variável que retornar mensagem de erro, se ocorrido dentro da CPC.
    • Cd-erro-sistema – Variável que retorna erro de execução.