Ponto-de-Entrada: PLS001VLRS - Tratamento da valorização na guia de reembolso.
| Abrangências: | Microsiga Protheus 10 |
| Versões: | Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Português (Brasil) |
Descrição:
Tratamento da valorização na guia de reembolso.
Programa Fonte
PLSA001
Sintaxe
PLS001VLRS - Tratamento da valorização na guia de reembolso. ( [ lRet1 ], [ aRet2 ], [ aRet3 ], [ cCodProd ], [ cCodTab ], [ cCodRda ], [ cCodEsp ], [ aCritic ] )
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| lRet1 | Lógico | Se há alguma critica | |||||||||||||||
| aRet2 | Array of Record | Valor total do procedimento | |||||||||||||||
| aRet3 | Array of Record | Valor total da Guia | |||||||||||||||
| cCodProd | Array of Record | Código do procedimento | |||||||||||||||
| cCodTab | Array of Record | Código da tabela | |||||||||||||||
| cCodRda | Array of Record | Código da RDA | |||||||||||||||
| cCodEsp | Array of Record | Código da especialidade | |||||||||||||||
| aCritic | Array of Record | Contem as críticas |
Retorno
-
(logico)
Exemplos
User Function PLS001VLRS()Local i :=0Local lRet1 :=Paramixb[1] // se há alguma criticaLocal aRet2 :=Paramixb[2] // Total do procedimentoLocal aRet3 :=Paramixb[3] // Total da GuiaLocal cCodProd :=Paramixb[4] // Codigo do procedimentoLocal cCodTab :=Paramixb[5] // Codigo da tabela Local cCodTab :=Paramixb[6] // Matricula Local cCodRda :=Paramixb[7] // RDALocal cCodEsp :=Paramixb[8] // Codigo da EspecialidadeLocal aCritic :=Paramixb[9] // CriticasFor i=1 to Len(aRet2) nVlrPagPro :=aRet2[1] // Valor pago do procedimento nVlrManPro :=aRet3[2] // Valor vase pagamento nVlrGloPro :=aRet3[3] // Valor da glosa nVlrBprPro :=aRet3[4] // Valor contratadoNext i For i=1 to Len(aRet3) nVlrPagGui :=aRet3[1] // Valor pago do procedimento nVlrManGui :=aRet3[2] // Valor vase pagamento nVlrGloGui :=aRet3[3] // Valor da glosa nVlrBprGui :=aRet3[4] // Valor contratadoNext iReturn({lRet1,aRet2,aRet3})
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |