Histórico da Página

Ponto de entrada para checar regra especifica periodicidade.

PLSXAUT

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

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."

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