 
 (defn gen-big-data
   [districtCount schoolCount studentCount]
-  (gen-assessment "Grade 7 State Math" "/tmp/test/A-assessment.xml")
+  (def sectionName "7th Grade Math -Sec 2")
+  (def assessmentName "Grade 7 State Math")
+
+  (gen-assessment assessmentName "/tmp/test/A-assessment.xml")
   (doseq [ [district] (map list (gen-district-schools districtCount schoolCount studentCount))]
     (doseq [ [districtName schools] district]
       (gen-schools districtName schools (format "/tmp/test/B-%s-schools.xml" districtName))
       (gen-session districtName (format "/tmp/test/C-%s-calendar.xml" districtName))
+      (gen-sections districtName (format "/tmp/test/D-%s-master-schedule.xml" districtName))
       (doseq [ schoolName schools ]
         (def rng (range 1 (+ 1 studentCount)))
-        (gen-students districtName schoolName rng (format "/tmp/test/D-%s-student.xml" schoolName))
-        (gen-sections districtName schoolName (format "/tmp/test/E-%s-sections.xml" schoolName))
+        (gen-students schoolName rng (format "/tmp/test/E-%s-student.xml" schoolName))
         (gen-enrollments districtName schoolName rng "7th Grade Math - Sec 2" (format "/tmp/test/F-%s-enrollment.xml" schoolName))
-        (gen-saas districtName schoolName rng "Grade 7 State Math" 6 (format "/tmp/test/G-%s-assessment-results.xml" schoolName))
+        (gen-saas schoolName rng assessmentName 6 (format "/tmp/test/G-%s-assessment-results.xml" schoolName))
       )
     )
   )

    (> 33 score) "E")
)

(defn gen-saa [districtName schoolName student assessment date]
  (let [score (rand-nth (range 6 33))]
    (element :StudentAssessment {}
      (element :AdministrationDate {} date)
      (element :ScoreResults {:AssessmentReportingMethod "Scale score"}
        (element :Result {} (str score)))
        (element :PerformanceLevels {}
          (element :CodeValue {} (get-perf-level score))
        )
        (student-ref districtName schoolName student)
        (element :AssessmentReference {}
          (element :AssessmentIdentity {}
            (element :AssessmentIdentificationCode {:IdentificationSystem "Test Contractor"}

  )
)

(defn create-assessment [assessmentName]
  (let [tmp (element :Assessment {:id "Grade_7_2011_State_Math"}
      (element :AssessmentTitle {} assessmentName)
