function [ name, id ] = OCR(file_name)
id = 0;
name= 'Not recognized';

data_base_file = 'PCAdateBase.mat';

%Check for existing database file 
if (exist(data_base_file) == 0)
    disp('DataBase file does not exist. please create one.');
else
    load(data_base_file);
    
    if (exist(file_name) ~= 0)
            I = imread2(file_name);
            %imshow(I);
            I = im_resize(I, 48, 64);
            %figure;
            %imshow(I);
            id = getCharId( I, Vectors, colvecs , data_base_size )
                  
            if (id ~= 0)
                name = names(ceil(id/images_per_char), :);
                %figure;
                %imshow(data(:,:,id));
            else
                dips('Character not recognized');
            end
            
        else
            disp('File Loading Error:No image of that name found');
    end
        
end