cpc-wac0025a.p1

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.