function [] = outputReport(response, theTitle)

    fprintf('\nHED services report for %s\n', theTitle);
    fprintf('Error report:  [%s] %s\n', response.error_type, response.error_msg);

    %% Print out the results if available
    if ~isfield(response, 'results') || isempty(response.results)
        return
    end

    results = response.results;
    fprintf('[%s] status %s: %s\n', response.service, results.msg_category, results.msg);
    if isfield(results, 'schema_version')
       fprintf('HED version: %s\n', results.schema_version);
    end
    fprintf('\nReturn data for service %s [command: %s]:\n', ...
        response.service, results.command);
    data = results.data;
    if ~iscell(data)
        fprintf('%s\n', data);
    else
        for k = 1:length(data)
            if ~isempty(data{k})
                fprintf('[%d]: %s\n', k, data{k});
            end
        end
    end

    %% Output the spreadsheet if available
    if isfield(results, 'spreadsheet')
        fprintf('\n----Spreadsheet result----\n');
        fprintf(results.spreadsheet);
    end
    
    if isfield(results, 'definitions') && isstruct(results.definitions)
        fprintf('\n\n----------definitions---------\n');
        defNames = fieldnames(results.definitions);
        for k=1:length(defNames)
            name = defNames{k};
            fprintf('\n%s: %s\n', defNames{k}, results.definitions.(name));
        end
    end
    
    %% Output the file descriptions
    if isfield(results, 'file_list') && ...
        isstruct(results.file_list)
        list = results.file_list;
        fprintf('\n\n----------Summaries----------\n');
        for k = 1:length(list)
           fprintf('\nFile:%s File type:%s\n', ...
               list(k).file_name, list(k).file_type)
           fprintf('%s\n', list(k).content);
        end
    end
        
end