Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

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

Ponto-de-Entrada: PLSTRATQ - Regra de Quantidade
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
O Ponto de Entrada PLSTRATQ é utilizado para checar a regra específica de quantidade de um Procedimento.
Programa Fonte 
PLSXAUT
Sintaxe

PLSTRATQ - Regra de Quantidade ( [ cMatrUsr ], [ dData ], [ cHora ], [ cCdTbPd ], [ cCodPro ], [ nQtdSoli ], [ cLOCALExec ], [ aDadRDA ], [ nRegBD6 ], [ cCid ], [ aRet ], [ cDente ], [ cFaces ] ) --> aArray

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cMatrUsr Caracter Código da matrícula do usuário
dData Data Data do evento
cHora Caracter Hora do evento
cCdTbPd Caracter Código da Tabela Padrão Saúde
cCodPro Caracter Código do procedimento
nQtdSoli Numérico Quantidade solicitada
cLOCALExec Caracter Código do local de execução
aDadRDA Array of Record Array com dados da Rede de Atendimento
nRegBD6 Numérico Número do registro da BD6 (Eventos das Contas Médicas)
cCid Caracter Código do CID
aRet Array of Record Array que trata a regra do executante
cDente Array of Record Dente
cFaces Array of Record
Retorno
    aArray(array_of_record)
  • Posição[1] = "0" Ponto de Entrada não autorizou o procedimento.Posição[1] = "1" Ponto de Entrada não faz nada. Posição[1] = "2" Ponto de Entrada autorizou o procedimento. Posição[2] = "Texto para ser mostrado na crítica."
Exemplos 
User Function PLSTRATQ()Local cMatrUsr   := ParamIXB[1]Local dData      := ParamIXB[2]Local cHora      := ParamIXB[3]Local cCdTbPd    := ParamIXB[4]Local cCodPro    := ParamIXB[5]Local nQtdSoli   := ParamIXB[6]Local cLOCALExec := ParamIXB[7]Local aDadRDA    := ParamIXB[8]Local nRegBD6    := ParamIXB[9]Local cCid       := ParamIXB[10]Local aRet       := ParamIXB[11]Local cDente   := ParamIXB[12]Local cFaces    := ParamIXB[13]Local aArray     := {"0"}If cCodPro == "10101012"     //Procedimento autorizado     aArray[1] := "1" Else     aArray[1] := "0" 	     aArray[2] := "Atendimento não autorizado."EndIfReturn(aArray)