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 |