Undefined function Info2MPPrescue() about msifromhe HOT 6 OPEN

% JN Kather, extract microns per pixel MPP from Leica SVS
% if extraction fails, use rescue image
function currMPP = Info2MPPrescue(currImInfo,channel,rescuePath, rescueFileName)

    sq = @(varargin) cell2mat(varargin);
    
    currMPP = Info2MPP(currImInfo,channel);
    
    if isempty(currMPP) || isnan(currMPP)
        disp(['starting MPP rescue attempt for file name: ',rescueFileName]);
       % try to rescue
       targetFile = dir([rescuePath,rescueFileName,'*.svs']);
       if numel(targetFile)==1
           
            newInfo = imfinfo([rescuePath,targetFile(1).name]);
            [~,ni] = sort(sq(newInfo.Width));
            currMPP = Info2MPP(newInfo,ni(end));
            
       else
           disp(['rescue attempt FAILED (code 1), target files = ',num2str(numel(targetFile))]);
       end

    end
    
   
end