Ponto-de-Entrada: PLSVLRPA - Alteração de Valor
| Versões: | Advanced Protheus 7.10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Ponto de entrada usado para alterar o valor de CH para o PA (Porte anestésico).
Programa Fonte
PLSVLRPRO
Sintaxe
PLSVLRPA - Alteração de Valor ( [ nVlrPAAcu ], [ nBanda ], [ cConsBd ], [ cAno ], [ cMes ], [ lCobCoPart ], [ dDatAnalise ], [ cCodPro ], [ cCodPad ], [ cEspec ], [ cCodUnd ], [ cCdProduto ], [ cCodRDA ], [ cCodLoc ], [ cCodTab ], [ cCodInt ], [ nRef ], [ aRetPA ], [ cOpeOri ], [ cConsFt ], [ cCodInt ], [ aRet ], [ cCodEmp ], [ cVrProduto ], [ aVlBloq ], [ nFatMul ], [ nQtd ], [ lOK ], [ cAlias ], [ cMsg ] ) --> aRetPto
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| nVlrPAAcu | Numérico | Valor do porte anestésico acumulado. | |||||||||||||||
| nBanda | Array of Record | Banda de calculo para a CBHPM | |||||||||||||||
| cConsBd | Array of Record | Considera banda. | |||||||||||||||
| cAno | Array of Record | Ano. | |||||||||||||||
| cMes | Array of Record | Mês | |||||||||||||||
| lCobCoPart | Array of Record | Cobra Participação? | |||||||||||||||
| dDatAnalise | Array of Record | Data da análise. | |||||||||||||||
| cCodPro | Array of Record | Código do Produto de saúde. | |||||||||||||||
| cCodPad | Array of Record | Código do tipo da tabela. | |||||||||||||||
| cEspec | Array of Record | Código da especialidade | |||||||||||||||
| cCodUnd | Array of Record | Código da unidade. | |||||||||||||||
| cCdProduto | Array of Record | Código do Produto. | |||||||||||||||
| cCodRDA | Array of Record | Código da RDA. | |||||||||||||||
| cCodLoc | Array of Record | Código do local. | |||||||||||||||
| cCodTab | Array of Record | Código da tabela. | |||||||||||||||
| cCodInt | Array of Record | Código da operadora. | |||||||||||||||
| nRef | Array of Record | Seq.Porte. | |||||||||||||||
| aRetPA | Array of Record | Retorno no porte anestésico. | |||||||||||||||
| cOpeOri | Array of Record | Operadora de origem. | |||||||||||||||
| cConsFt | Array of Record | Considera fator mult. | |||||||||||||||
| cCodInt | Array of Record | Código da operadora. | |||||||||||||||
| aRet | Array of Record | Array com dados genéricos. | |||||||||||||||
| cCodEmp | Array of Record | Cod. Grupo. | |||||||||||||||
| cVrProduto | Array of Record | Versão. | |||||||||||||||
| aVlBloq | Array of Record | Array com dados de bloqueio. | |||||||||||||||
| nFatMul | Array of Record | Fator de multa. | |||||||||||||||
| nQtd | Array of Record | Quantidade. | |||||||||||||||
| lOK | Array of Record | Sempre verdadeiro. | |||||||||||||||
| cAlias | Array of Record | Alias em uso. | |||||||||||||||
| cMsg | Array of Record | Mensagem. |
Retorno
-
aRetPto(array_of_record)
- aRetPto[1]- Indica sucesso no processamento.aRetPto[2]- Valor baseaRetPto[3][1] = Status do processamento.aRetPto[3][2] = Alias.aRetPto[3][3] = Mensagem de processamento.aRetPto[3][4] = Array aRetpa.
Exemplos
User Function PLSVLRPA() Local nBanda := paramixb[2] Local aRet := paramixb[18] Local aAtendAp := {0,0,{.F.,"","",Nil}} If nBanda == 1 aAtendAp[1] := 50 aAtendAp[2] := 10 aAtendAp[3][1] := .T. aAtendAp[3][2] := "BD6" aAtendAp[3][3] := "Vlr PA" aAtendAp[3][4] := aClone(aRet) EndIf Return aAtendAp
Variáveis
| Nome | Tipo | Escopo | Pode Alterar | descrição | ||||||||||
| Array of Record | Global | Não |