XBRSRCH1	; IHS/ADC/GTH - COMMON CHECK LOGIC ; [ 02/07/97   3:02 PM ]
	;;4.0;XB;;Jul 20, 2009;Build 2
	;
	; Part of XBRSRCH
	;
CHECK	; EXCLUDE ^%DT,^DIC,^DIK,^DIQ, AND GLOBALS
	Q:Y=""
	Q:$E(Y)=""""
	Q:$E(Y,1,3)="%DT"
	Q:$E(Y,1,3)="DIC"
	Q:$E(Y,1,3)="DIK"
	Q:$E(Y,1,3)="DIQ"
	S X0=$F(Y,")"),X1=$F(Y,"("),X2=$F(Y," ")
	S:'X0 X0=999
	S:'X1 X1=999
	S:'X2 X2=888
	Q:X0<X2
	Q:X1<X2
	S XBRSRCH("FOUND")=1
	S YY=$P(Y," ",1),YY=$P(YY,",",1),YY=$P(YY,")",1),YY=$P(YY,":",1)
	S:YY]"" ^UTILITY("XBRSRCH",$J,YY)=""
	Q
	;
