data_set_short_ID.m

function short_ID = data_set_short_ID(BIDS)
% 
% create subject short ID
%
% file history:
% created M. Czisch 26.2.2018



% create correct file name
PatientID = BIDS.input.data_dir(1).PatientID{3};
tmp = strfind(PatientID,'FOR');
if tmp
    short_ID = 'F';
else
    short_ID = PatientID(3);
end


tmp     = str2num(PatientID(4:end));  % removes leading zeros
tmp_str = num2str(tmp);

short_ID = [short_ID, tmp_str];
%return(short_ID);