sub ReadData ($$) {
	my ($self, $filename) = @_;
	my $ar_returnvalue = [];
	if (!-e "$filename") {
		Carp::carp("File [$filename] does not exist");
		return undef;
	}
	open (FLATFILE, '<', $filename) or Carp::croak("Cannot open file [$filename]");
	while (<FLATFILE>) {
		chomp;
		push (@{$ar_returnvalue}, Interfaces::FlatFile::ReadRecord($self, $_));
	}
	close (FLATFILE);
	return $ar_returnvalue;
} ## end sub ReadData ($$)