function status = save2wfdb(name,fqrs,path,path2WFDBlib)
% this function saves the fqrs fiducials returned by the algorithm in WFDB
% anns format ans .txt. Output is saved into path. Path must contain the
% corresponding name.hea for creating the WFDB annotation files.
%
% inputs
% name: name of the record that is being processed
% fqrs: fqrs fiducial position (in seconds)
% path: path
% path2WFDBlib: path 2 wfdb library to make sure the WFDB function are
% accepcible from path
%
% output
% status: 1 for success and 0 for failure
%
% Safe Foetus Monitoring Toolbox, version 1.0, Sept 2013
% Released under the GNU General Public License
%
% Copyright (C) 2013 Joachim Behar
% Oxford university, Intelligent Patient Monitoring Group - Oxford 2013
% joachim.behar@eng.ox.ac.uk
%
% Last updated : 02-08-2013
%
% This program is free software; you can redistribute it and/or modify it
% under the terms of the GNU General Public License as published by the
% Free Software Foundation; either version 2 of the License, or (at your
% option) any later version.
% This program is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
% Public License for more details.
try
mainDir = pwd;
cd(path)
addpath(genpath(path2WFDBlib));
% write QRS annotation to txt file in ms
dlmwrite(strcat(name,'.txt'),round(1000*fqrs'));
% then read it
ann = dlmread([name '.txt']);
% then write in WFDB format
wrann(name,'fqrsmyalgo',ann);
cd(mainDir)
status = 1;
catch ME
for enb=1:length(ME.stack); disp(ME.stack(enb)); end;
status = 0;
end
end