Revert "Revert "Adds beginning of cash flows""

This reverts commit ff18d637ed.

scratch-sessions/checkup.clj

@@ -0,0 +1,20 @@
+;; This buffer is for Clojure experiments and evaluation.
+
+;; Press C-j to evaluate the last expression.
+
+;; You can also press C-u C-j to evaluate the expression and pretty-print its result.
+
+(doall 
+ (for [[d x] (d/q '[:find ?d (count ?t) 
+                    :in $ ?u
+                    :where [?t :audit/user ?u]
+                    [?t :db/txInstant ?moment]
+                    (not [?t :audit/batch])
+                    [(>= ?moment #inst "2022-10-01")]
+                    [(clj-time.coerce/to-date-time ?moment) ?moment2]
+                    [(ground (clj-time.format/formatter "yyyy-MM-dd HH:mm")) ?formatter]
+                    [(clj-time.format/unparse ?formatter ?moment2) ?d]]
+                  (d/history (d/db auto-ap.datomic/conn))
+                  "admin-Kyle Stapp")]
+   (println d \tab x)
+   ))