Versões: | Advanced Protheus 7.10 , Microsiga Protheus 8.11 |
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
Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
cCodRda | Array of Record | X | |||||||||||||||
cCodInt | Array of Record | X | |||||||||||||||
cCodLoc | Array of Record | indica o local de atendimento em que se deu o procedimento | X | ||||||||||||||
cEspec | Array of Record | X | |||||||||||||||
cCodPla | Array of Record | X | |||||||||||||||
cCodPad | Array of Record | X | |||||||||||||||
cCodPro | Array of Record | X | |||||||||||||||
nDesconto | Array of Record | X | |||||||||||||||
nAcrescimo | Array of Record | X |
-
nDesconto/nAcrescimo(numerico)
- percentual de desconto encontrado no nível BE9 ou
percentual de acrescimo encontrado no nível BE9