Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLSVLRPM - Valor Padrão

Versões comparadas

Versão antiga 2

changes.mady.by.user admin

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
PLSVLRPM - Valor Padrão
PLSVLRPM - Valor Padrão

Ponto-de-Entrada: PLSVLRPM - Valor Padrão
Versões: Microsiga Protheus 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 PLSVLRPM na função PLSRETUSNV, após o cálculo do valor do porte de procedimento médico.

Objetivo: Permite alterar o valor padrão do porte de procedimento médico da CBHPM de acordo com as regras de negócio da customização.
Programa Fonte 
PLSVLRPRO.PRW
Sintaxe

PLSVLRPM - Valor Padrão ( < ParamIxb[1]> , < ParamIxb[2]> , < ParamIxb[3]> , < ParamIxb[4]> , < ParamIxb[5]> , < ParamIxb[6]> , < ParamIxb[7]> , < ParamIxb[8]> , < ParamIxb[9]> , < ParamIxb[10]> , < ParamIxb[11]> , < ParamIxb[12]> , < ParamIxb[13]> , < ParamIxb[14]> , < ParamIxb[15]> , < ParamIxb[16]> ) --> aRet

Parâmetros:
NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIxb[1]Array of RecordArray aDadUsr.X
ParamIxb[2]CaracterPorte de procedimento médico da CBHPM localizado pelo sistema.X
ParamIxb[3]NuméricoValor da U.S.X
ParamIxb[4]CaracterAlias do nível encontrado.X
ParamIxb[5]LógicoLógico se os valores encontrados foram validos ou não.X
ParamIxb[6]NuméricoValor em espécie (real, peso, etc).X
ParamIxb[7]CaracterCódigo da RDA.X
ParamIxb[8]CaracterCódigo da Operadora.X
ParamIxb[9]CaracterCódigo do Local de Atendimento.X
ParamIxb[10]CaracterCódigo da Especialidade.X
ParamIxb[11]CaracterRegime de atendimento (1-Internação;2=Ambulatorial).X
ParamIxb[12]LógicoValor lógico como verdadeira se e um cálculo de cobrança e falso se e um cálculo de pagamento.X
ParamIxb[13]CaracterCódigo do Procedimento.X
ParamIxb[14]CaracterCódigo da Unidade de Medida de Cálculo (HM, PPM, etc).X
ParamIxb[15]DataData Base da valorização de acordo com a parametrização.X
ParamIxb[16]CaracterCódigo do tipo de procedimento (01,02,etc).X
Retorno
    aRet(array_of_record)
  • Porte de procedimento médico da CBHPM alterado ou não de acordo com a regra de negócio da customização.
Exemplos 
User Function PLSVLRPM()                                   LOCAL aDadUsr     := aClone(ParamIxb[1])LOCAL cMatricUsr  := If(Len(aDadUsr)>=2,aDadUsr[2],"")LOCAL cPorteMed   := ParamIxb[2]LOCAL cCodInt     := ParamIxb[8]LOCAL cCodEmp     := Subs(cMatricUsr,5,4)LOCAL cConEmp     := If(Len(aDadUsr)>=9,aDadUsr[9],"")LOCAL cVerCon     := If(Len(aDadUsr)>=39,aDadUsr[39],"")LOCAL cSubCon     := If(Len(aDadUsr)>=41,aDadUsr[41],"")LOCAL cVerSub     := If(Len(aDadUsr)>=42,aDadUsr[42],"")LOCAL cCodUnd     := ParamIxb[14]LOCAL cCodPro     := ParamIxb[13]LOCAL cCodPad     := ParamIxb[16]//altera a variavel cPorteMed de acordo com suas necessidades. aRet := {cPorteMed}   Return(aRet)