Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

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

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