--- a
+++ b/inst/queries/fieldCodes.xq
@@ -0,0 +1,12 @@
+; fieldCodes
+(fn [dataset fields]
+	(query
+	  {:select [:P.name [#sql/call [:group_concat :value :order :ordering :separator #sql/call [:chr 9]] :code]]
+	   :from [[{:select [:field.id :field.name]
+				:from [:field]
+				:join [{:table [[[:name :varchar fields]] :T]} [:= :T.name :field.name]]
+				:where [:= :dataset_id {:select [:id]
+								 :from [:dataset]
+								 :where [:= :name dataset]}]} :P]]
+	   :left-join [:code [:= :P.id :field_id]]
+	   :group-by [:P.id]}))