>>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() >>>>