Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

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

Ponto-de-Entrada: PLSTRATP - Regra de Periodicidade
Abrangências: Microsiga Protheus 10
Versões: Todas
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Descrição: 
Ponto de entrada para checar regra especifica periodicidade.
Programa Fonte 
PLSXAUT
Sintaxe

PLSTRATP - Regra de Periodicidade ( [ cMatrUsr ], [ dData ], [ cHora ], [ cCdTbPd ], [ cCodPro ], [ nQtdSoli ], [ nPerioPer ], [ cUniPer ], [ cLOCALExec ], [ aDadRDA ], [ nRegBD6 ], [ cCid ], [ cAlias ], [ aRet ], [ cDente ], [ cFace ] ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cMatrUsr Caracter Matricula do usuário.
dData Caracter Data para verificacao da periodicidade
cHora Caracter cHora
cCdTbPd Caracter Tabela Padrao Saude
cCodPro Caracter Codigo Procedimento
nQtdSoli Array of Record Quantidade solicitada
nPerioPer Numérico Código do período.
cUniPer Caracter Unidade do período.
cLOCALExec Caracter Local de execução
aDadRDA Array of Record Dados da rede de atendimento.
nRegBD6 Numérico Número do registro no BD6
cCid Caracter Código da CID.
cAlias Caracter Código do Alias da tabela.
aRet Array of Record Array contendo a critica atual.
cDente Array of Record Codigo do Dente (Atendimento Odontologico)
cFace Array of Record Codigo da face(Atendimento Odontologico)
Retorno
    aRet(array_of_record)
  • Posição[1] = "0" Ponto de entrada não autorizou a guia."1" Ponto de entrada não faz nada."2" O ponto de entrada autorizou o procedimento.Posição[2] = "Texto para ser mostrado na critica."
Exemplos 
User Function PLSTRATP()	Local cMatrUsr	:=	paramixb[1]	Local dData 	:=	paramixb[2]	Local cHora 	:=	paramixb[3]	Local cCdTbPd	:=	paramixb[4]	Local cCodPro	:=	paramixb[5]	Local aAtendAp	:=	{"0"}	If 	cCodPro == "10101012"		//Procedimento autorizado		aAtendAp[1]	:=	"1" 	Else		aAtendAp[1]	:=	"0" 			aAtendAp[2]	:=	"Atendimento não autorizado."	EndIf	Return aAtendAp
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não