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