CPC-WAC0025A.P

• Rotina utilizada para verificar se o deve ou não ser informado o prestador da Divisão de Honorários.
• 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 wac0025a.p.

Ponto de Utilização

"CON-PRE-DIV"

• • Rotina para verificar se deve ou não solicitado o prestador da divisão de honorários;

Include das definições das tabelas temporárias

• cpc-wac0025a.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0025a-entrada

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

field in-evento-programa                          as char format "x(06)"
field nm-ponto-chamada-cpc                    as char format "x(15)"
field cd-clinica                                           like clinpres.cd-clinica
field cd-procedimento                               like ambcbhpm.cd-amb

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-wac0025a.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 wac0025a.w:
    • "DIVISAO-HONORARIO".
    • cd-clinica – Código da clinica que está solicitando a AIH.
    • cd-procedimento – Código do procedimento.

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

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

field cd-erro-sistema               as char format "x(04)"
field lg-aplica-divisao               as log

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

• • • Cd-erro-sistema – código do erro a ser apresentado caso o documento anterior não seja uma consulta.
    • Lg-aplica-divisao – Parâmetro que tem a função de indicar se deverá ou não ser solicitado o prestador da Divisão de Honorários.