quality-measure-engine 0.1.2 → 0.2.0

data/Gemfile

@@ -1,17 +1,17 @@
-source :gemcutter
+source "http://rubygems.org"
 
-gem 'mongo'
-gem 'bson_ext'
+gemspec :development_group => :test
+
+gem 'bson_ext', :platforms => :mri
 gem 'rake'
-gem 'therubyracer', :require => 'v8'
 
 group :test do
-  gem 'rspec'
-  gem 'jsonschema'
-  gem 'awesome_print', :require => 'ap'
+  gem 'cover_me', '>= 1.0.0.rc5', :platforms => :ruby_19
+  gem 'metric_fu'
+  gem 'sinatra'
 end
 
 group :build do
-  gem 'jeweler'
+  gem 'yard'
+  gem 'kramdown' # needed by yard
 end
-

data/README.md

@@ -7,16 +7,53 @@ This project currently uses Ruby 1.9.2 and is built using [Bundler](http://gembu
 
     gem install bundler
 
-Then run bundler to grab all of the necessay gems:
+Then run bundler to grab all of the necessary gems:
 
     bundle install
 
+The Quality Measure engine relies on a MongoDB [MongoDB](http://www.mongodb.org/) running a minimum of version 1.6.* or higher.  To get and install Mongo refer to :
+
+	http://www.mongodb.org/display/DOCS/Quickstart
+
 Testing
 -------
 
 This project uses [RSpec](http://github.com/rspec/rspec-core) for testing. To run the suite, just enter the following:
 
-    rake spec
+    bundle exec rake spec
+
+The coverage of the test suite is monitored with [cover_me](https://github.com/markbates/cover_me) and can be run with:
+
+    bundle exec rake coverage
+
+Map Reduce Testing
+------------------
+
+This project used the [MapReduce](http://www.mongodb.org/display/DOCS/MapReduce) functionality of MongoDB pretty heavily.
+Debugging JavaScript that is to be run inside of MongoDB can be a bit of a chore, so there is a testing tool that can be run
+in your browser to aid in troubleshooting.
+
+The tool is a very small web application based on the [Sinatra](http://www.sinatrarb.com/) framework. It can be run
+by executing the following command:
+
+    bundle exec ruby map_test/map_test.rb
+
+After running this command, you can open your browser to [http://localhost:4567](http://localhost:4567). This will show you a page
+of measures to choose from. Once you have selected a measure, it will take you to a page where you can choose the map function you
+want to test and the effective date you want to run the function with. Once that is selected, you will arrive at the map test page.
+The map test page provides the ability to load test JSON records from within the project. Once they are loaded, they can be edited
+in the textarea on the page. Finally, if you click the "run" button, it will execute the map function on the record in the text area
+and output the results. Since this is executing in a web browser, you can use the JavaScript debugging utilities provided to set
+breakpoints and inspect variables.
+
+Source Code Analysis
+--------------------
+
+This project uses [metric_fu](http://metric-fu.rubyforge.org/) for source code analysis. Reports can be run with:
+
+    bundle exec rake metrics:all
+
+The project is currently configured to run Flay, Flog, Churn, Reek and Roodi
 
 Project Practices
 ------------------

data/Rakefile

@@ -1,56 +1,37 @@
 require 'rspec/core/rake_task'
-require 'jeweler'
+require 'yard'
+require 'metric_fu'
+
+ENV['MEASURE_DIR'] = ENV['MEASURE_DIR'] || File.join('fixtures', 'measure_defs')
+
+Dir['lib/tasks/*.rake'].sort.each do |ext|
+  load ext
+end
 
 RSpec::Core::RakeTask.new do |t|
   t.rspec_opts = ["-c", "-f progress", "-r ./spec/spec_helper.rb"]
   t.pattern = 'spec/**/*_spec.rb'
 end
 
-Jeweler::Tasks.new do |gem|
-  gem.name = "quality-measure-engine"
-  gem.summary = "A library for extracting quality measure information from HITSP C32's and ASTM CCR's"
-  gem.description = "A library for extracting quality measure information from HITSP C32's and ASTM CCR's"
-  gem.email = "talk@projectpophealth.org"
-  gem.homepage = "http://github.com/pophealth/quality-measure-engine"
-  gem.authors = ["Marc Hadley", "Andy Gregorowicz"]
-  
-  gem.add_dependency 'mongo', '~> 1.1'
-  gem.add_dependency 'therubyracer', '~> 0.7.5'
-  
-  gem.add_development_dependency "jsonschema", "~> 2.0.0"
-  gem.add_development_dependency "rspec", "~> 2.0.0"
-  gem.add_development_dependency "awesome_print", "~> 0.2.1"
-  gem.add_development_dependency "jeweler", "~> 1.4.0"
-end
+YARD::Rake::YardocTask.new
 
-desc 'Load all the measures and sample patient files into the database'
-task :loaddb do
-  require './spec/spec_helper'
-  db_host = nil
-  if ENV['TEST_DB_HOST']
-    db_host = ENV['TEST_DB_HOST']
-  else
-    db_host = 'localhost'
+namespace :cover_me do
+  
+  task :report do
+    require 'cover_me'
+    CoverMe.complete!
   end
-  db = Mongo::Connection.new(db_host, 27017).db('test')
   
-  db.drop_collection('measures')
-  db.drop_collection('records')
+end
 
-  measures = Dir.glob('measures/*')
-  measures.each do |dir|
-    # load db with measure and sample patient records
-    files = Dir.glob(File.join(dir,'*.json'))
-    measure_file = files[0]
-    patient_files = Dir.glob(File.join(dir, 'patients', '*.json'))
-    measure = JSON.parse(File.read(measure_file))
-    measure_id = measure['id']
-    measure_collection = db.create_collection('measures')
-    record_collection = db.create_collection('records')
-    measure_collection.save(measure)
-    patient_files.each do |patient_file|
-      patient = JSON.parse(File.read(patient_file))
-      record_collection.save(patient)
-    end
-  end
+task :coverage do
+  Rake::Task['spec'].invoke
+  Rake::Task['cover_me:report'].invoke
 end
+
+MetricFu::Configuration.run do |config|
+    #define which metrics you want to use
+    config.metrics  = [:roodi, :reek, :churn, :flog, :flay]
+    config.graphs   = [:flog, :flay]
+    config.flay ={:dirs_to_flay => []} #Flay doesn't seem to be handling CLI arguments well... so this config squashes them
+end

data/js/map-reduce-utils.js

@@ -0,0 +1,174 @@
+// Adds common utility functions to the root JS object. These are then
+// available for use by the map-reduce functions for each measure.
+// lib/qme/mongo_helpers.rb executes this function on a database
+// connection.
+(function() {
+
+  var root = this;
+
+  // returns the number of values which fall between the supplied limits
+  // value may be a number or an array of numbers
+  root.inRange = function(value, min, max) {
+    if (!_.isArray(value))
+      value = [value];
+    var count = 0;
+    for (i=0;i<value.length;i++) {
+      if ((value[i]>=min) && (value[i]<=max))
+        count++;
+    }
+    return count;
+  };
+  
+  // returns the largest member of value that is within the supplied range
+  root.maxInRange = function(value, min, max) {
+    if (value==null)
+      return null;
+    var allInRange = _.select(value, function(v) {return v>=min && v<=max;});
+    return _.max(allInRange);
+  }
+  
+  // returns the number of values which are less than the supplied limit
+  // value may be a number or an array of numbers
+  root.lessThan = function(value, max) {
+    if (!_.isArray(value))
+      value = [value];
+    var count = 0;
+    for (i=0;i<value.length;i++) {
+      if (value[i]<=max)
+        count++;
+    }
+    return count;
+  };
+  
+  // Returns the a boolean true when any entry within conditions[i].end is 
+  // ever less than the endDate. If no conditions meet this criteria, this
+  // function always returns false
+  root.conditionResolved = function(conditions, startDate, endDate) {
+    if (conditions) {
+      return _.any(conditions, function(condition) {
+          return inRange(condition.end, startDate, endDate) > 0;
+      });
+    } else {
+      return false
+    };
+  };
+  
+  // Returns the minimum of readings[i].value where readings[i].date is in
+  // the supplied startDate and endDate. If no reading meet this criteria,
+  // returns defaultValue.
+  root.minValueInDateRange = function(readings, startDate, endDate, defaultValue) {
+    var readingInDateRange = function(reading) {
+      var result = inRange(reading.date, startDate, endDate);
+      return result;
+    };
+    
+    if (!readings || readings.length<1)
+      return defaultValue;
+  
+    var allInDateRange = _.select(readings, readingInDateRange);
+    var min = _.min(allInDateRange, function(reading) {return reading.value;});
+    if (min)
+      return min.value;
+    else
+      return defaultValue;
+  };
+  
+  // Returns the most recent readings[i].value where readings[i].date is in
+  // the supplied startDate and endDate. If no reading meet this criteria,
+  // returns defaultValue.
+  root.latestValueInDateRange = function(readings, startDate, endDate, defaultValue) {
+    var readingInDateRange = function(reading) {
+      var result = inRange(reading.date, startDate, endDate);
+      return result;
+    };
+    
+    if (!readings || readings.length<1)
+      return defaultValue;
+  
+    var allInDateRange = _.select(readings, readingInDateRange);
+    var latest = _.max(allInDateRange, function(reading) {return reading.date;});
+    if (latest)
+      return latest.value;
+    else
+      return defaultValue;
+  };
+  
+  // Returns the number of actions that occur within the specified time period of
+  // something. The first two arguments are arrays or single-valued time stamps in
+  // seconds-since-the-epoch, timePeriod is in seconds.
+  root.actionFollowingSomething = function(something, action, timePeriod) {
+    if (!_.isArray(something))
+      something = [something];
+    if (!_.isArray(action))
+      action = [action];
+    
+    var result = 0;
+    for (i=0; i<something.length; i++) {
+      var timeStamp = something[i];
+      for (j=0; j<action.length;j++) {
+        if (action[j]>=timeStamp && (action[j] <= (timeStamp+timePeriod)))
+          result++;
+      }
+    }
+    
+    return result;
+  }
+    
+  // Returns the number of actions that occur after
+  // something. The first two arguments are arrays or single-valued time stamps in
+  // seconds-since-the-epoch.
+  root.actionAfterSomething = function(something, action) {
+    if (!_.isArray(something))
+      something = [something];
+    if (!_.isArray(action))
+      action = [action];
+   
+    var result = 0;
+    for (i=0; i<something.length; i++) {
+      var timeStamp = something[i];
+      for (j=0; j<action.length;j++) {
+        if (action[j]>=timeStamp )
+          result++;
+      }
+    }
+    return result;
+  }
+  
+  // Returns all members of the values array that fall between min and max inclusive
+  root.selectWithinRange = function(values, min, max) {
+    return _.select(values, function(value) { return value<=max && value>=min; });
+  }
+    
+  root.map = function(record, population, denominator, numerator, exclusion) {
+    var value = {population: [], denominator: [], numerator: [], exclusions: [], antinumerator: []};
+    var patient = record._id;
+    if (population()) {
+      value.population.push(patient);
+      if (denominator()) {
+        value.denominator.push(patient);
+        if (numerator()) {
+          value.numerator.push(patient);
+        } else if (exclusion()) {
+          value.exclusions.push(patient);
+          value.denominator.pop();
+        } else {
+          value.antinumerator.push(patient);
+        }
+      }
+    }
+    emit(null, value);
+  };
+
+  root.reduce = function (key, values) {
+    var total = {population: [], denominator: [], numerator: [], exclusions: [], antinumerator: []};
+    for (var i = 0; i < values.length; i++) {
+      total.population = total.population.concat(values[i].population);
+      total.denominator = total.denominator.concat(values[i].denominator);
+      total.numerator = total.numerator.concat(values[i].numerator);
+      total.exclusions = total.exclusions.concat(values[i].exclusions);
+      total.antinumerator = total.antinumerator.concat(values[i].antinumerator);
+    }
+    return total;
+  };
+
+})();

data/js/underscore-min.js

@@ -0,0 +1,24 @@
+// Underscore.js 1.1.2
+// (c) 2010 Jeremy Ashkenas, DocumentCloud Inc.
+// Underscore is freely distributable under the MIT license.
+// Portions of Underscore are inspired or borrowed from Prototype,
+// Oliver Steele's Functional, and John Resig's Micro-Templating.
+// For all details and documentation:
+// http://documentcloud.github.com/underscore
+(function(){var o=this,A=o._,r=typeof StopIteration!=="undefined"?StopIteration:"__break__",k=Array.prototype,m=Object.prototype,i=k.slice,B=k.unshift,C=m.toString,p=m.hasOwnProperty,s=k.forEach,t=k.map,u=k.reduce,v=k.reduceRight,w=k.filter,x=k.every,y=k.some,n=k.indexOf,z=k.lastIndexOf;m=Array.isArray;var D=Object.keys,c=function(a){return new l(a)};if(typeof exports!=="undefined")exports._=c;o._=c;c.VERSION="1.1.2";var j=c.each=c.forEach=function(a,b,d){try{if(s&&a.forEach===s)a.forEach(b,d);else if(c.isNumber(a.length))for(var e=
+0,f=a.length;e<f;e++)b.call(d,a[e],e,a);else for(e in a)p.call(a,e)&&b.call(d,a[e],e,a)}catch(g){if(g!=r)throw g;}return a};c.map=function(a,b,d){if(t&&a.map===t)return a.map(b,d);var e=[];j(a,function(f,g,h){e[e.length]=b.call(d,f,g,h)});return e};c.reduce=c.foldl=c.inject=function(a,b,d,e){var f=d!==void 0;if(u&&a.reduce===u){if(e)b=c.bind(b,e);return f?a.reduce(b,d):a.reduce(b)}j(a,function(g,h,E){d=!f&&h===0?g:b.call(e,d,g,h,E)});return d};c.reduceRight=c.foldr=function(a,b,d,e){if(v&&a.reduceRight===
+v){if(e)b=c.bind(b,e);return d!==void 0?a.reduceRight(b,d):a.reduceRight(b)}a=(c.isArray(a)?a.slice():c.toArray(a)).reverse();return c.reduce(a,b,d,e)};c.find=c.detect=function(a,b,d){var e;j(a,function(f,g,h){if(b.call(d,f,g,h)){e=f;c.breakLoop()}});return e};c.filter=c.select=function(a,b,d){if(w&&a.filter===w)return a.filter(b,d);var e=[];j(a,function(f,g,h){if(b.call(d,f,g,h))e[e.length]=f});return e};c.reject=function(a,b,d){var e=[];j(a,function(f,g,h){b.call(d,f,g,h)||(e[e.length]=f)});return e};
+c.every=c.all=function(a,b,d){b=b||c.identity;if(x&&a.every===x)return a.every(b,d);var e=true;j(a,function(f,g,h){(e=e&&b.call(d,f,g,h))||c.breakLoop()});return e};c.some=c.any=function(a,b,d){b=b||c.identity;if(y&&a.some===y)return a.some(b,d);var e=false;j(a,function(f,g,h){if(e=b.call(d,f,g,h))c.breakLoop()});return e};c.include=c.contains=function(a,b){if(n&&a.indexOf===n)return a.indexOf(b)!=-1;var d=false;j(a,function(e){if(d=e===b)c.breakLoop()});return d};c.invoke=function(a,b){var d=i.call(arguments,
+2);return c.map(a,function(e){return(b?e[b]:e).apply(e,d)})};c.pluck=function(a,b){return c.map(a,function(d){return d[b]})};c.max=function(a,b,d){if(!b&&c.isArray(a))return Math.max.apply(Math,a);var e={computed:-Infinity};j(a,function(f,g,h){g=b?b.call(d,f,g,h):f;g>=e.computed&&(e={value:f,computed:g})});return e.value};c.min=function(a,b,d){if(!b&&c.isArray(a))return Math.min.apply(Math,a);var e={computed:Infinity};j(a,function(f,g,h){g=b?b.call(d,f,g,h):f;g<e.computed&&(e={value:f,computed:g})});
+return e.value};c.sortBy=function(a,b,d){return c.pluck(c.map(a,function(e,f,g){return{value:e,criteria:b.call(d,e,f,g)}}).sort(function(e,f){var g=e.criteria,h=f.criteria;return g<h?-1:g>h?1:0}),"value")};c.sortedIndex=function(a,b,d){d=d||c.identity;for(var e=0,f=a.length;e<f;){var g=e+f>>1;d(a[g])<d(b)?e=g+1:f=g}return e};c.toArray=function(a){if(!a)return[];if(a.toArray)return a.toArray();if(c.isArray(a))return a;if(c.isArguments(a))return i.call(a);return c.values(a)};c.size=function(a){return c.toArray(a).length};
+c.first=c.head=function(a,b,d){return b&&!d?i.call(a,0,b):a[0]};c.rest=c.tail=function(a,b,d){return i.call(a,c.isUndefined(b)||d?1:b)};c.last=function(a){return a[a.length-1]};c.compact=function(a){return c.filter(a,function(b){return!!b})};c.flatten=function(a){return c.reduce(a,function(b,d){if(c.isArray(d))return b.concat(c.flatten(d));b[b.length]=d;return b},[])};c.without=function(a){var b=i.call(arguments,1);return c.filter(a,function(d){return!c.include(b,d)})};c.uniq=c.unique=function(a,
+b){return c.reduce(a,function(d,e,f){if(0==f||(b===true?c.last(d)!=e:!c.include(d,e)))d[d.length]=e;return d},[])};c.intersect=function(a){var b=i.call(arguments,1);return c.filter(c.uniq(a),function(d){return c.every(b,function(e){return c.indexOf(e,d)>=0})})};c.zip=function(){for(var a=i.call(arguments),b=c.max(c.pluck(a,"length")),d=Array(b),e=0;e<b;e++)d[e]=c.pluck(a,""+e);return d};c.indexOf=function(a,b){if(n&&a.indexOf===n)return a.indexOf(b);for(var d=0,e=a.length;d<e;d++)if(a[d]===b)return d;
+return-1};c.lastIndexOf=function(a,b){if(z&&a.lastIndexOf===z)return a.lastIndexOf(b);for(var d=a.length;d--;)if(a[d]===b)return d;return-1};c.range=function(a,b,d){var e=i.call(arguments),f=e.length<=1;a=f?0:e[0];b=f?e[0]:e[1];d=e[2]||1;e=Math.max(Math.ceil((b-a)/d),0);f=0;for(var g=Array(e);f<e;){g[f++]=a;a+=d}return g};c.bind=function(a,b){var d=i.call(arguments,2);return function(){return a.apply(b||{},d.concat(i.call(arguments)))}};c.bindAll=function(a){var b=i.call(arguments,1);if(b.length==
+0)b=c.functions(a);j(b,function(d){a[d]=c.bind(a[d],a)});return a};c.memoize=function(a,b){var d={};b=b||c.identity;return function(){var e=b.apply(this,arguments);return e in d?d[e]:d[e]=a.apply(this,arguments)}};c.delay=function(a,b){var d=i.call(arguments,2);return setTimeout(function(){return a.apply(a,d)},b)};c.defer=function(a){return c.delay.apply(c,[a,1].concat(i.call(arguments,1)))};c.wrap=function(a,b){return function(){var d=[a].concat(i.call(arguments));return b.apply(b,d)}};c.compose=
+function(){var a=i.call(arguments);return function(){for(var b=i.call(arguments),d=a.length-1;d>=0;d--)b=[a[d].apply(this,b)];return b[0]}};c.keys=D||function(a){if(c.isArray(a))return c.range(0,a.length);var b=[],d;for(d in a)if(p.call(a,d))b[b.length]=d;return b};c.values=function(a){return c.map(a,c.identity)};c.functions=c.methods=function(a){return c.filter(c.keys(a),function(b){return c.isFunction(a[b])}).sort()};c.extend=function(a){j(i.call(arguments,1),function(b){for(var d in b)a[d]=b[d]});
+return a};c.clone=function(a){return c.isArray(a)?a.slice():c.extend({},a)};c.tap=function(a,b){b(a);return a};c.isEqual=function(a,b){if(a===b)return true;var d=typeof a;if(d!=typeof b)return false;if(a==b)return true;if(!a&&b||a&&!b)return false;if(a.isEqual)return a.isEqual(b);if(c.isDate(a)&&c.isDate(b))return a.getTime()===b.getTime();if(c.isNaN(a)&&c.isNaN(b))return false;if(c.isRegExp(a)&&c.isRegExp(b))return a.source===b.source&&a.global===b.global&&a.ignoreCase===b.ignoreCase&&a.multiline===
+b.multiline;if(d!=="object")return false;if(a.length&&a.length!==b.length)return false;d=c.keys(a);var e=c.keys(b);if(d.length!=e.length)return false;for(var f in a)if(!(f in b)||!c.isEqual(a[f],b[f]))return false;return true};c.isEmpty=function(a){if(c.isArray(a)||c.isString(a))return a.length===0;for(var b in a)if(p.call(a,b))return false;return true};c.isElement=function(a){return!!(a&&a.nodeType==1)};c.isArray=m||function(a){return!!(a&&a.concat&&a.unshift&&!a.callee)};c.isArguments=function(a){return!!(a&&
+a.callee)};c.isFunction=function(a){return!!(a&&a.constructor&&a.call&&a.apply)};c.isString=function(a){return!!(a===""||a&&a.charCodeAt&&a.substr)};c.isNumber=function(a){return a===+a||C.call(a)==="[object Number]"};c.isBoolean=function(a){return a===true||a===false};c.isDate=function(a){return!!(a&&a.getTimezoneOffset&&a.setUTCFullYear)};c.isRegExp=function(a){return!!(a&&a.test&&a.exec&&(a.ignoreCase||a.ignoreCase===false))};c.isNaN=function(a){return c.isNumber(a)&&isNaN(a)};c.isNull=function(a){return a===
+null};c.isUndefined=function(a){return typeof a=="undefined"};c.noConflict=function(){o._=A;return this};c.identity=function(a){return a};c.times=function(a,b,d){for(var e=0;e<a;e++)b.call(d,e)};c.breakLoop=function(){throw r;};c.mixin=function(a){j(c.functions(a),function(b){F(b,c[b]=a[b])})};var G=0;c.uniqueId=function(a){var b=G++;return a?a+b:b};c.templateSettings={evaluate:/<%([\s\S]+?)%>/g,interpolate:/<%=([\s\S]+?)%>/g};c.template=function(a,b){var d=c.templateSettings;d="var __p=[],print=function(){__p.push.apply(__p,arguments);};with(obj||{}){__p.push('"+
+a.replace(/\\/g,"\\\\").replace(/'/g,"\\'").replace(d.interpolate,function(e,f){return"',"+f.replace(/\\'/g,"'")+",'"}).replace(d.evaluate||null,function(e,f){return"');"+f.replace(/\\'/g,"'").replace(/[\r\n\t]/g," ")+"__p.push('"}).replace(/\r/g,"\\r").replace(/\n/g,"\\n").replace(/\t/g,"\\t")+"');}return __p.join('');";d=new Function("obj",d);return b?d(b):d};var l=function(a){this._wrapped=a};c.prototype=l.prototype;var q=function(a,b){return b?c(a).chain():a},F=function(a,b){l.prototype[a]=function(){var d=
+i.call(arguments);B.call(d,this._wrapped);return q(b.apply(c,d),this._chain)}};c.mixin(c);j(["pop","push","reverse","shift","sort","splice","unshift"],function(a){var b=k[a];l.prototype[a]=function(){b.apply(this._wrapped,arguments);return q(this._wrapped,this._chain)}});j(["concat","join","slice"],function(a){var b=k[a];l.prototype[a]=function(){return q(b.apply(this._wrapped,arguments),this._chain)}});l.prototype.chain=function(){this._chain=true;return this};l.prototype.value=function(){return this._wrapped}})();

data/lib/qme/importer/code_system_helper.rb

@@ -0,0 +1,26 @@
+module QME
+  module Importer
+    
+    # General helpers for working with codes and code systems
+    class CodeSystemHelper
+      CODE_SYSTEMS = {
+        '2.16.840.1.113883.6.1' =>    'LOINC',
+        '2.16.840.1.113883.6.96' =>   'SNOMED-CT',
+        '2.16.840.1.113883.6.12' =>   'CPT',
+        '2.16.840.1.113883.6.88' =>   'RxNorm',
+        '2.16.840.1.113883.6.103' =>  'ICD-9-CM',
+        '2.16.840.1.113883.6.104' =>  'ICD-9-CM',
+        '2.16.840.1.113883.6.90' =>   'ICD-10-CM',
+        '2.16.840.1.113883.6.14' =>   'HCPCS'
+      }
+      
+      # Returns the name of a code system given an oid
+      # @param [String] oid of a code system
+      # @return [String] the name of the code system as described in the measure definition JSON
+      def self.code_system_for(oid)
+        CODE_SYSTEMS[oid]
+      end
+      
+    end
+  end
+end

data/lib/qme/importer/entry.rb

@@ -0,0 +1,89 @@
+module QME
+  module Importer
+    # Object that represents a CDA Entry (or act, observation, etc.)
+    class Entry
+      attr_accessor :start_time, :end_time, :time
+      attr_reader :status, :codes, :value
+      
+      def initialize
+        @codes = {}
+        @status = {}
+        @value = {}
+      end
+      
+      def Entry.from_event_hash(event)
+        entry = Entry.new
+        entry.add_code(event['code'], event['code_set'])
+        entry.time = event['time']
+        entry.set_value(event['value'], event['unit'])
+        entry
+      end
+      
+      # Add a code into the Entry
+      # @param [String] code the code to add
+      # @param [String] code_system the code system that the code belongs to
+      def add_code(code, code_system)
+        @codes[code_system] ||= []
+        @codes[code_system] << code
+      end
+      
+      # Set a status for the Entry
+      # @param [String] status_code the code to set
+      # @param [String] code_system the code system that the status_code belongs to
+      def set_status(status_code, code_system)
+        @status[:code] = status_code
+        @status[:code_system] = code_system
+      end
+      
+      # Sets the value for the entry
+      # @param [String] scalar the value
+      # @param [String] units the units of the scalar value
+      def set_value(scalar, units=nil)
+        @value[:scalar] = scalar
+        @value[:units] = units
+      end
+      
+      # Checks if a code is in the list of possible codes
+      # @param [Array] code_set an Array of Hashes that describe the values for code sets
+      # @return [true, false] whether the code is in the list of desired codes
+      def is_in_code_set?(code_set)
+        @codes.keys.each do |code_system|
+          codes_in_system = code_set.find {|set| set['set'] == code_system}
+          if codes_in_system
+            matching_codes = codes_in_system['values'] & @codes[code_system]
+            if matching_codes.length > 0
+              return true
+            end
+          end
+        end
+        
+        false
+      end
+      
+      # Tries to find a single point in time for this entry. Will first return time if it is present,
+      # then fall back to start_time and finally end_time
+      def as_point_in_time
+        if @time
+          @time
+        elsif @start_time
+          @start_time
+        else
+          @end_time
+        end
+      end
+      
+      # Checks to see if this Entry can be used as a date range
+      # @return [true, false] If the Entry has a start and end time returns true, false otherwise.
+      def is_date_range?
+        (! @start_time.nil?) && (! @end_time.nil?) 
+      end
+      
+      # Checks to see if this Entry is usable for measure calculation. This means that it contains
+      # at least one code and has one of its time properties set (start, end or time)
+      # @return [true, false]
+      def usable?
+        (! @codes.empty?) && ((! @start_time.nil?) || (! @end_time.nil?) || (! @time.nil?))
+      end
+    end
+  end
+end