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:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| ParamIxb[1] | Array of Record | Array aDadUsr. | X | ||||||||||||||
| ParamIxb[2] | Caracter | Porte de procedimento médico da CBHPM localizado pelo sistema. | X | ||||||||||||||
| ParamIxb[3] | Numérico | Valor da U.S. | X | ||||||||||||||
| ParamIxb[4] | Caracter | Alias do nível encontrado. | X | ||||||||||||||
| ParamIxb[5] | Lógico | Lógico se os valores encontrados foram validos ou não. | X | ||||||||||||||
| ParamIxb[6] | Numérico | Valor em espécie (real, peso, etc). | X | ||||||||||||||
| ParamIxb[7] | Caracter | Código da RDA. | X | ||||||||||||||
| ParamIxb[8] | Caracter | Código da Operadora. | X | ||||||||||||||
| ParamIxb[9] | Caracter | Código do Local de Atendimento. | X | ||||||||||||||
| ParamIxb[10] | Caracter | Código da Especialidade. | X | ||||||||||||||
| ParamIxb[11] | Caracter | Regime de atendimento (1-Internação;2=Ambulatorial). | X | ||||||||||||||
| ParamIxb[12] | Lógico | Valor lógico como verdadeira se e um cálculo de cobrança e falso se e um cálculo de pagamento. | X | ||||||||||||||
| ParamIxb[13] | Caracter | Código do Procedimento. | X | ||||||||||||||
| ParamIxb[14] | Caracter | Código da Unidade de Medida de Cálculo (HM, PPM, etc). | X | ||||||||||||||
| ParamIxb[15] | Data | Data Base da valorização de acordo com a parametrização. | X | ||||||||||||||
| ParamIxb[16] | Caracter | Có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)