; 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]}))