Fonte PLSVLRPRO
Através deste Ponto de entrada pode-se alterar o valor de acréscimo/desconto de um procedimento que esteja no nível BE9. Ele é chamado dentro da função PLSRETVFIL que é responsável pelo cálculo do Filme no sistema.
A estrutura do mesmo é a seguinte:
 
If ExistBlock('PLBE9FIL')
aBE9Fil    := ExecBlock('PLBE9FIL',.F.,.F.,{cCodRda,cCodInt,cCodLoc,cEspec,cCodPla,cCodPad,cCodPro,nDesconto,nAcrescimo})
            nDesconto  := aBE9Fil[1]
            nAcrescimo := aBE9Fil[2]
Endif                 
 
Os parâmetros passados são:
 
cCodRda, - indica o código da RDA para a qual será pago o filme
cCodInt - indica o código da operadora da RDA para a qual será pago o filme
cCodLoc – indica o local de atendimento em que se deu o procedimento
cEspec – indica o código da especialidade do prestador
cCodPla – indica o código do plano do usuario
cCodPad – indica o código do tipo de tabela em questão
cCodPro – indica o código do procedimento
nDesconto – indica o percentual de desconto encontrado no nível BE9
nAcrescimo – indica o percentual de acrescimo encontrado no nível BE9

.PRW

PLBE9FIL - Alteração do Valor de Acréscimo/Desconto ( < cCodRda> , < cCodInt> , < cCodLoc> , < cEspec> , < cCodPla> , < cCodPad> , < cCodPro> , < nDesconto> , < nAcrescimo> ) --> nDesconto/nAcrescimo

nDesconto/nAcrescimo(numerico)
• percentual de desconto encontrado no nível BE9 ou
  percentual de acrescimo encontrado no nível BE9