makes it slightly more reusable

src/clj/auto_ap/ezcater/core.clj

@@ -200,17 +200,13 @@
      :returns        0.0
      :vendor         :vendor/ccp-ezcater}))
 
-(defn lookup-order [json]
+
-  (let [caterer     (get-caterer (get json "parent_id"))
+(defn get-by-id [integration id]
-        integration (:ezcater-integration/_caterers caterer)
+  (query 
-        client      (-> caterer :ezcater-location/_caterer first :client/_ezcater-locations :client/code)
-        location    (-> caterer :ezcater-location/_caterer first :ezcater-location/location)]
-    (if (and client location)
-      (doto 
-          (-> (query 
     integration
-                {:venia/queries [[:order {:id (get json "entity_id")}
+    {:venia/queries [[:order {:id id}
                       [:uuid
+                       :orderNumber
                        :orderSourceType
                        [:caterer
                         [:name
@@ -258,7 +254,16 @@
                                    ]]
                                  [:subTotal
                                   [:currency
-                                               :subunits]]]]]]]})
+                                   :subunits]]]]]]]}))
+
+(defn lookup-order [json]
+  (let [caterer     (get-caterer (get json "parent_id"))
+        integration (:ezcater-integration/_caterers caterer)
+        client      (-> caterer :ezcater-location/_caterer first :client/_ezcater-locations :client/code)
+        location    (-> caterer :ezcater-location/_caterer first :ezcater-location/location)]
+    (if (and client location)
+      (doto 
+          (-> (get-by-id integration (get json "entity_id"))
               (:order)
               (assoc :client-code client
                      :client-location location))