   [record-type]
   (reportable-record-types record-type))
 
-(defn process-callback
+(defn process-record
   "Top-level callback processing
 
-  This function calls the multimethod process-record
+  This function calls the multimethod import-record
   to dispatch to the correct import logic for the
   record-type.
 

                 (fnil inc 0))
      update-progress))

(defmulti process-record
  (fn [_ record]
    (-> record meta :record-type)))

(defmethod process-record :declaration
  [context {:keys [record-type record-count]}]
  (-> context
      (assoc-in [:progress record-type :total] record-count)
      update-progress))

(defmethod process-record :account
  [context account]
  (import-account context account))

(defmethod process-record :transaction
  [context transaction]
  (import-transaction context transaction))

(defmethod process-record :budget
  [context budget]
  (import-budget context budget))

(defmethod process-record :price
  [context price]
  (import-price context price))

(defmethod process-record :commodity
  [context commodity]
  (import-commodity context commodity))


          [input source-type] (prepare-input s (:image-id impt))]
      (transactions/with-delayed-balancing s (-> @context :entity :id)
        (doseq [record (read-source source-type input)]
          (process-record context record)))
      (:entity @context))))
