cpc-wac0018b.p1

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.