Initial version with queries, needs perlcritic and SQL improvements and use of allele code