Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLSCBVPG - Valor de Co-Participação
  • Criado por Usuário desconhecido (ana.lira), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PLSCBVPG - Valor de Co-Participação
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Descrição: 
O ponto de entrada PLSCBVPG permite alterar o valor base para cálculo da co participação.Exemplo: valor base para cálculo da co participação seja o mesmo que o valor apresentado para pagamento.
Programa Fonte 
PLSA720.PRW
Sintaxe

PLSCBVPG - Valor de Co-Participação ( [ nVlrPagLiq ], [ nVlrAprCob ], [ cCodTab ], [ cCodPro ], [ cTipPre ], [ nQtdPto ] ) --> {lConsiderar,nVlrBaseCob}

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
nVlrPagLiq Numérico Valor líquido do pagamento da participação
nVlrAprCob Numérico Valor apresentado para cobrança
cCodTab Caracter Códido do tipo de tabela de saúde
cCodPro Caracter Código do procedimento médico executado
cTipPre Caracter Tipo do prestador executante ( classe da rede de atendimento )
nQtdPto Numérico Quantidade do procedimento apresentada
Retorno
    {lConsiderar,nVlrBaseCob}()
  • lConsiderar ( lógico ): Considerar o valor retornado pelo ponto de entrada como base para cálculo da co participação.nVlrBaseCob ( numérico ): valor a ser considerado como base para cálculo da co participação.
Exemplos 
User Function PLSCBVPG()Local nVlrPagLiq  := ParamIXB[1]Local nQtdPro     := ParamIXB[6]Local lConsiderar := .F.Local nVlrBaseCob := 0nVlrBaseCob := nVlrPagLiq/nQtdProlConsiderar := .T.Return({lConsiderar,nVlrBaseCob})
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não