   (let [team-details (parse-game-team-details api-game)
         scores (parse-scores api-game team-details)
         teams (get-team-abbreviations team-details)
-        game-details {:state (parse-game-state api-game)
-                      :goals (parse-goals api-game team-details)
-                      :scores scores
-                      :teams teams
-                      :records (parse-records team-details teams scores)}]
+        common-game-details {:state (parse-game-state api-game)
+                             :goals (parse-goals api-game team-details)
+                             :scores scores
+                             :teams teams}
+        game-details (add-team-records api-game common-game-details team-details teams scores)]
     (add-playoff-series-information api-game game-details)))
 
 (defn parse-game-scores [date-and-api-games]


(defn- parse-goal-period [api-game scoring-play]
  (let [period-number (str (:period (:about scoring-play)))]
    (if (regular-season-game? api-game)
      (case (:period-type (:about scoring-play))
        "REGULAR" period-number
        "OVERTIME" "OT"


(defn- regular-season-game? [api-game]
  (= "R" (:game-type api-game)))

(defn- all-star-game? [api-game]
  (= "A" (:game-type api-game)))

(defn- non-playoff-game? [api-game]
  (or
    (regular-season-game? api-game)
    (all-star-game? api-game)))

(defn- parse-goal-team [scoring-play team-details]
  (let [team-id (:id (:team scoring-play))
