>SELECT c_letter_series_masters >DO CASE > CASE myLookup("cDepartment_code=lcDepartment_code AND cClient_code=lcClient_hospital_id") > lcLetter_series_masters_pk = c_letter_series_masters.cLetter_series_masters_pk > llFound = .T. > CASE myLookup("cDepartment_code = lcDepartment_code") > lcLetter_series_masters_pk = c_letter_series_masters.cLetter_series_masters_pk > llFound = .T. > CASE myLookup("cClient_code = lcClient_hospital_id") > lcLetter_series_masters_pk = cLetter_series_masters_pk > llFound = .T. > OTHERWISE > =MESSAGEBOX("Nothing found") > llFound = .F. >ENDCASE > > >FUNCTION myLookup >LPARAMETERS tcLookup >LOCATE FOR EVAL(tcLookup) >RETURN FOUND() >>