        (if record-value
          (let [
                record-container     (get-or-create-record  source-name  id)
-               queries              (get record-container :queries)
                record-value-atom    (get record-container :value)
                ]
 




(defn get-default-fields-for-data-source [data-source-id]

  (let [fields-atom          (-> @client-datasource-fields  data-source-id)
        fields-entry         (if fields-atom (into [] @fields-atom))   ]

    ;(log (pr-str "Read fields: " fields-entry))

    (if fields-entry
      fields-entry)))


;(get-default-fields-for-data-source  :cvs)






             (let [
                   ;xxx          (merge single-changed-realtime-query {:data-source (keyword (get single-changed-realtime-query :db-table)) :realtime true :table nil})
                   ;new-key2     (dissoc (dissoc xxx :start) :end)
                   record-request    {:source              (keyword the-table)
                                      :db-table            the-table
                                      :fields              (get-default-fields-for-data-source  (keyword the-table))
                                      :id                   id
                                      :data-session-id     @data-session-id
                                      :realtime            true
                                      :force               true
                                      }
                   ]

               (log "               : " the-table ", " id " = " record)
               (log "               : " record-request)
                (>! client-record-cache-requests    record-request)
               nil

               )))))
