From a60b4984e65359a45ec7156065cd6b0a28b37d11 Mon Sep 17 00:00:00 2001
From: schuemie <schuemie@ohdsi.org>
Date: Thu, 8 Jan 2015 22:58:40 -0500
Subject: [PATCH] Fixed error introduced in commit
 126d51e448c4745f244f19b50e76513ae329ac9b

---
 R/exportToJson.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/exportToJson.R b/R/exportToJson.R
index 528fb1ea..384553cb 100644
--- a/R/exportToJson.R
+++ b/R/exportToJson.R
@@ -1213,6 +1213,7 @@ generateObservationPeriodReport <- function(conn, dbms, cdmSchema, outputPath, c
   observationLengthHist$MIN = observationLengthStats$MIN_VALUE
   observationLengthHist$MAX = observationLengthStats$MAX_VALUE
   observationLengthHist$INTERVAL_SIZE = observationLengthStats$INTERVAL_SIZE
+  observationLengthHist$INTERVALS = (observationLengthStats$MAX_VALUE - observationLengthStats$MIN_VALUE) / observationLengthStats$INTERVAL_SIZE
   
   renderedSql <- loadRenderTranslateSql(sqlFilename = addCdmVersionPath("/observationperiod/observationlength_data.sql",cdmVersion),
                                         packageName = "Achilles",