function ep1oasislook(id, NumOfDays)
% EP1OASISLOOK - Opens the file /oasis/e2qpaq/ep1/oasis and plots temps and
% voltages

% Brian Schlining
% 29 Dec 1998

% Prompt for input if no input arguments are specified
if nargin < 2 
   NumOfDays = 30;
end

% Set the path to the data file depending on what type of machine this function is run from
FileName = 'oasis';
FileLoc = fullfile(getOasisPath, 'eqpac', id, FileName);


switch lower(id)
case 'ep1'
   loc = '0 155W';
case 'ep2'
   loc = '2S 170W';
otherwise
   loc = [];
end


% Open and read the file
X    = readeqpac(FileLoc, NumOfDays);

% Create the graph
figH = figure;
set(figH,'Name','OASIS diagnostics')
plot(X(:,1),X(:,2:4));
legend('Can temp [C]','OASIS battery [v]', 'ARGOS battery [v]',0);
ylabel('OASIS diagnostics');
xlabel('Date');
title(['OASIS diagnostics at ' loc])
set(gca,'XLim',[min(X(:,1)) now])
if NumOfDays < 50
   dtick = 6;
else
   dtick = 3;
end

datetick('x',dtick)
setfontsize(7)
