     [record]
     (v/create-error-messages (v/validate validations record))))
 
-(defn build-orbit-string
+(defn- build-orbit-string
   "Builds ISO SMAP orbit string using umm values."
   [orbit]
   (let [{:keys [ascending-crossing start-lat start-direction end-lat end-direction]} orbit]

                        end-lat
                        (or end-direction
                            (count orbit-str)))]
           (Float. (str/trim (subs el (inc (.indexOf el ":")))))))
       (when end-direction
         (let [ed (subs orbit-str
                        end-direction)]

  (:require
   [clojure.data.xml :as x]
   [clojure.string :as str]
   [cmr.common.log :refer [info debug error]]
   [cmr.common.util :as util]
   [cmr.common.validations.core :as v]
   [cmr.common.xml :as cx]
   [cmr.spatial.encoding.gmd :as gmd]
   [cmr.spatial.messages :as msg]
   [cmr.spatial.validation :as sv]
