There's no such function but you can write one

* Function CheckDept
LPARAMETERS tcDept, tcString
LOCAL laList[1], lnInd, llFound

Alines(laList, Chrtran(tcDept, ",", Chr(13)))

llFound = .F.

FOR lnInd=1 TO ALEN(laList)
	llFound = llFound Or (laList[lnInd] $ tcString)
ENDFOR
RETURN llFound 

? CheckDept('SH,BR', 'OP101,TH310,XB171')
? CheckDept('TH,BR', 'OP101,TH310,XB171')

>myString='OP101,TH310,XB171'
>myDept='TH,BR'
>Is there a function that returns .T. if either "TH" or "BR" is in myString?
>
>?INLIST(myString,'TH,BR') returns .F.
>?INLIST(myString,'TH','BR') returns .F.
>?'TH,BR' $ myString returns .F.
>
>myString is a string, listing (dept code + product code)s, separated by commas. The first 2 chars is Dept code, followed by the product code (example: OP is the dept code, 101 is the product code, etc.)
>myDept is a string, listing department codes (separated by commas).
>What I'm looking for is a function that will return .T. if any one of the department codes listed in myDept is in myString.
>
>Is there such a thing?
>Thanks all!