ez7gen 1.0.1

data/test/added_shema_test.rb

@@ -0,0 +1,143 @@
+require 'test/unit'
+require 'ox'
+
+class Sample
+  attr_accessor :a, :b, :c
+
+  def initialize(a, b, c)
+    @a = a
+    @b = b
+    @c = c
+  end
+end
+
+class AddedShemaTest < Test::Unit::TestCase
+
+  # Called after every test method runs. Can be used to tear
+  # down fixture information.
+
+  def teardown
+    # Do nothing
+  end
+
+  def test_xml
+
+    # Create Object
+    obj = Sample.new(1, "bee", ['x', :y, 7.0])
+    # Now dump the Object to an XML String.
+      xml = Ox.dump(obj,nil)
+    puts xml
+
+    # Convert the object back into a Sample Object.
+     obj2 = Ox.parse_obj(xml)
+    # Called before every test method runs. Can be used
+    # to set up fixture information.
+  end
+
+  def test_build_added_tables_xml
+    # file = File.expand_path('codes.txt', __FILE__).to_s
+    arr = []
+
+    File.readlines('Additional Tables with values_v1.1.txt').map do |line|
+    # File.readlines('codes1.txt').map do |line|
+      arr<<line.chomp
+      # puts line
+    end
+    z = []
+    arr.each_with_index{|val, idx| if(idx % 2 == 0)then z<< [arr[idx], arr[idx+1] ] end}
+    p z
+    x =[]
+    row = []
+    idx = 0
+    z.each{|pair|
+      # if(pair[0].strip.empty?)
+      if(pair[0].gsub(/[[:space:]]/,'').empty?)
+        x << row
+        idx= idx + 1
+        row = []
+      else
+        row << pair
+      end
+    }
+    p x
+
+    root = Ox::Element.new('Export')
+    doc = Ox::Element.new('Document')
+    doc[:name]='Codes for coded tables with missing entries'
+    root << doc
+    cat = Ox::Element.new('Category')
+    cat[:name] = '2.4'
+    doc << cat
+
+    x.each{|it|
+
+    codeTbl = Ox::Element.new('CodeTable')
+
+    codeTbl[:name] = it.first[0].delete('Table ')
+    # drop 2 first elements: table name and fields [Code, Description]
+    it.drop(2).each_with_index { |pair,i |
+        enum = Ox::Element.new('Enumerate')
+        enum[:position] = i + 1
+        enum[:value] = pair.first
+        enum[:description] = pair.last
+        codeTbl << enum
+    }
+      cat << codeTbl
+    }
+
+
+    xml = Ox.dump(root, nil)
+    puts xml
+
+
+    # doc << top
+    #
+    # ce = [['E','Employer'], ['G','Guarantor']]
+    # ce.each_with_index{|value, index|
+    #   mid = Ox::Element.new('Enumarate')
+    #   mid[:position] = index
+    #   mid[:value] = value[0]
+    #   mid[:description] = value[1]
+    #   top << mid
+    # }
+
+
+    # doc = Ox::Document.new(:version => '1.0')
+    #
+    # arr = [00,'Surgical']
+    # arr<<[10, 'Medical']
+    # arr<<[60, 'Home Nursing Service']
+    # arr<<[85,'Psychiatric Contract']
+    # arr<<[86, 'Psychiatric']
+    # arr<<[95, 'Neurological Contract']
+    # arr<<[96, 'Neurological']
+    #
+    #
+    #
+    # top = Ox::Element.new('CodeTable')
+    # top[:name] = '137'
+    # doc << top
+    #
+    # ce = [['E','Employer'], ['G','Guarantor']]
+    # ce.each_with_index{|value, index|
+    #   mid = Ox::Element.new('Enumarate')
+    #   mid[:position] = index
+    #   mid[:value] = value[0]
+    #   mid[:description] = value[1]
+    #   top << mid
+    # }
+    #
+    # # bot = Ox::Element.new('bottom')
+    # # bot[:name] = 'third'
+    # # mid << bot
+    #
+    # xml = Ox.dump(doc, nil)
+    # puts xml
+
+  end
+
+    def setup
+      # Do nothing
+    end
+
+end

data/test/app-tmp.rb

@@ -0,0 +1,225 @@
+
+# require 'sinatra'
+require 'sinatra/base'
+
+require 'json'
+require 'rest_client'
+#require 'diskcached'
+require 'ez7gen'
+# require_relative '../lib/ez7gen/message_factory' # local testing
+# require_relative '../lib/ez7gen/profile_parser' # local testing
+# require_relative '../lib/ez7gen/msg_error_handler' # local testing
+
+class MyApp < Sinatra::Application
+
+  # configure do
+  #   set :show_exceptions, :after_handler
+  #   disable :raise_errors
+  # end
+  @@URLS={'2.4'=>'localhost:9980/','VAZ2.4'=>'localhost:9981/'}
+# admisson messages match pattern
+  @@FILTERS = [ProfileParser::FILTER_ADM, ProfileParser::FILTER_FM, ProfileParser::FILTER_GEN,  ProfileParser::FILTER_LAB, ProfileParser::FILTER_MSR, ProfileParser::FILTER_OBS, ProfileParser::FILTER_PH]
+
+#configure do
+#  $diskcache = Diskcached.new(File.join(settings.root, 'cache'))
+#  $diskcache.flush # ensure caches are empty on startup
+#  cahe version store
+#  MyApp.class.cache_lookup('version_store')
+#  puts 'in configure'
+#end
+
+#
+# before do
+#     @cache_key = cache_sha(request.path_info)
+# end
+
+  get '/' do
+    # content_type :json
+    # redirect 'js/app.js'
+    redirect 'views/index.html'
+  end
+
+  get '/version/' do
+    content_type :json
+    { version: Ez7gen::VERSION}.to_json
+  end
+
+
+
+  get '/pulse' do
+    # vs = cache_lookup('version_store')
+  end
+
+  post '/generate/' do
+    begin
+      # no additional configuration needed for angularjs,
+      params = JSON.parse(request.env["rack.input"].read)
+      puts  params
+
+      std = params['std']
+      event =  params['event']['name']
+      version =  params['version']['name']
+      puts  "std: #{std}, event: #{event}, version: #{version}"
+      useExVal = params['useExVal']
+      useTemplate = params['useTemplate']
+
+      vs = ProfileParser.lookup_versions()
+      @resp = MessageFactory.new({std: std, version: version, event:event, version_store: vs, use_template: useTemplate}).generate(useExVal) #msg.replace('\r','\n' )
+
+    rescue => e
+      # puts 'inside rescue'
+      puts 'Error: processing generate/' << e.inspect
+      @resp ='Oops, somenthing went wrong...'
+      #  raise e
+      # ensure
+    end
+    #send response
+    {message: @resp}.to_json
+
+  end
+
+  post '/validate/' do
+    begin
+      params = JSON.parse(request.env["rack.input"].read)
+      puts params
+      version =  params['version']['code']
+      puts version
+      payload = params['hl7']['message']
+      puts payload
+      puts "------------ validate ---------------"
+      @url = @@URLS[version]
+      @resp = RestClient.post @url, payload.gsub!("\n","\r")
+      #@resp = @resp.gsub("\r\n", "\n").gsub("\r", "\n")
+      #puts @resp.gsub!("\X0D\\X0A", "\n")
+      puts @resp.gsub!("\\X0D\\\\X0A\\", "\r")
+      puts @resp.gsub!("\r+\r", "\r")
+      #@resp.gsub!("\r","\n")
+      puts ' len: ' + @resp.size().to_s
+      puts "------------ response ---------------"
+      r = @resp.chomp()
+      #r = @resp
+      puts r
+      puts 'len:' + r.size().to_s
+      puts "------------ response 1 ---------------"
+      #@errors = MsgErrorHandler.new().handle(r)
+      # segs = message
+
+      segs = r.split("\n")
+      puts "--------------------segments----------------"
+      segs.each {|it| puts  it; puts "~~~~~~~~~~~~~"}
+      puts "--------------------segments----------------"
+
+      msg = HL7::Message.new(r)
+      # msg = HL7::Message.parse(message)
+      seg = msg[:ERR]
+      if(! msg[:ERR])
+        return nil
+      end
+
+      # puts msg[:ERR].error_location
+      # puts msg[:ERR].hl7_error_code
+      puts msg[:ERR].severity
+      puts msg[:ERR].application_error_code
+      # puts msg[:ERR].application_error_parameter
+      # puts msg[:ERR].diagnostic_information
+      errors = msg[:ERR].user_message
+      puts errors
+      puts "------------ user message ---------------"
+
+      # puts msg[:ERR].help_desk_contact_point
+      lines = r.split("ERROR <Ens>ErrGeneral:")
+      puts lines
+      puts "------------ lines ---------------"
+
+      @errors = r.split("ERROR <Ens>ErrGeneral:").reject {|e| e.empty?}
+      @errors.delete_at(0)
+
+
+
+      puts @errors
+      puts "------------ errors ---------------"
+
+    rescue => e
+      @resp = 'Error connecting to ' + @url
+      puts e
+      # raise e
+    end
+
+    # send response
+    {message: @resp.gsub("\r","\n"), errors: @errors}.to_json
+  end
+
+# https://code.google.com/p/x2js/ as an alternative
+  get '/lookup/' do
+    versions_to_client = {}
+
+    begin
+      versions = ProfileParser.lookup_versions()
+      #puts cache_lookup('hW')
+
+      std_arr =[]
+      versions.each{ |version|
+        std_attrs={}
+        # standard
+        std_attrs[:std] = version[:std]
+        #versions
+        std_attrs[:versions] = version[:profiles].inject([]){|col,p| col << {name: p[:doc], code: p[:name], desc: (p[:std])? 'Base': p[:description]}}
+        #events
+        evn_attrs = version[:profiles].inject({}){|h,p|
+          h.merge({p[:name] => ProfileParser.new({std: version[:std], version: p[:doc], version_store: versions}).lookup_message_groups(@@FILTERS)})
+        }
+        std_attrs[:events] = evn_attrs
+        # add map with versions and events for each standard to the array
+        std_arr << std_attrs
+      }
+
+      versions_to_client = {standards: std_arr}
+      # pth = File.join(File.dirname(__FILE__), "v_items_mock.json")
+      # txt = File.read(pth)
+      # versions_to_client = JSON.parse(txt)
+      # versions_to_client.to_json
+
+      # p event_list
+      p 'in lookup'
+    rescue => e
+      puts e
+    end
+    versions_to_client.to_json
+    # items = {standards:[
+    #     {std:'2.4',
+    #      versions:[{'name'=> '2.4', 'code'=> '2.4', 'desc'=>'Base'},{'name' =>'VAZ 2.4', 'code'=> 'vaz2.4', 'desc'=>'2.4 schema with VA defined tables and Z segments'}],
+    #      events: {'2.4' => event_list['2.4'], 'vaz2.4' => event_list['vaz2.4']}
+    #     },
+    #     {std:'2.5', versions:[], events:[]}
+    # ]}
+    # items.to_json
+
+  end
+
+# error do
+#   puts 'inside error'
+#   # 'Sorry there was a nasty error - ' + env['sinatra.error'].message
+# end
+
+#def cache_lookup(key)
+#  begin
+#    value = $diskcache.get(key)
+#  rescue Diskcached::NotFound => e # prevents easy replacement, but is safer.
+#    case key
+#      when 'version_store'
+#        value = ProfileParser.lookup_versions()
+#      else
+#        value  = 'Hello World'
+#    end
+#    if(value) then $diskcache.set(key, value) end
+#  end
+#  return value
+#end
+
+
+# $0 is the executed file
+# __FILE__ is the current file
+  run! if __FILE__ == $0
+end
+# HELPER METHODS
+# cache lookup method

data/test/at.txt

@@ -0,0 +1 @@
+Table 10	Physician ID

data/test/codes.txt

@@ -0,0 +1,262 @@
+Table 18
+Patient Type
+Code
+Description
+00
+Surgical
+10
+Medical
+60
+Home Nursing Service
+85
+Psychiatric Contract
+86
+Psychiatric
+95
+Neurological Contract
+96
+Neurological
+ 
+ 
+Table 51
+Diagnosis Code
+Code
+Description
+E23.0
+Panhypopituitarism
+E23.6
+Other disorders of pituitary gland
+E23.2
+Diabetes insipidus
+E23.3
+Hypothalamic dysfunction, not elsewhere classified
+E23.1
+Drug-induced hypopituitarism
+E32.8
+Other diseases of thymus
+E23.7
+Disorder of pituitary gland, unspecified
+E32.1
+Abscess of thymus
+E32.9
+Disease of thymus, unspecified
+ 
+ 
+Table 87
+Pre-admit test indicator
+Code
+Description
+Y
+Yes
+N
+No
+ 
+ 
+Table 88
+Procedure Code
+Code
+Description
+00W000Z
+Revision of Drainage Device in Brain, Open Approach
+02110Z3
+Bypass Coronary Artery, Two Sites from Coronary Artery, Open Approach
+05500ZZ
+Destruction of Azygos Vein, Open Approach
+4A0004Z
+Measurement of Central Nervous Electrical Activity, Open Approach
+4A0204Z
+Measurement of Cardiac Electrical Activity, Open Approach
+4A060BZ
+Measurement of Lymphatic Pressure, Open Approach
+5A02110
+Assistance with Cardiac Output using Balloon Pump, Intermittent
+6A150ZZ
+Decompression, Circulatory, Single
+6A750Z4
+Ultrasound Therapy of Head and Neck Vessels, Single
+6A800ZZ
+Ultraviolet Light Therapy of Skin, Single
+ 
+ 
+Table 99
+VIP indicator
+Code
+Description
+Y
+VIP
+N
+Non VIP
+ 
+
+Table 113
+Discharged to Location
+Code
+Description
+1
+Location 1
+2
+Location 2
+3
+Location 3
+4
+Location 4
+5
+Location 5
+
+
+Table 115
+Servicing facility
+Code
+Description
+327
+LOUISVILLE-RO
+358
+MANILA-RO
+402
+TOGUS VAMROC
+405
+WHITE RIVER JCT VAMROC
+436
+MONTANA HCS
+437
+FARGO VAMROC
+438
+SIOUX FALLS VAMROC
+452
+WICHITA-RO
+ 
+ 
+Table 129
+Accommodation code
+Code
+Description
+1
+ALLERGY
+10
+NEUROLOGY
+2
+CARDIOLOGY
+20
+REHABILITATION MEDICINE
+24
+MEDICAL OBSERVATION
+25
+PSYCH RESID REHAB TRMT PROG
+40
+INTERMEDIATE MEDICINE
+50
+GENERAL SURGERY
+ 
+ 
+Table 152
+Second opinion documentation received
+Code
+Description
+Y
+Documentation received
+N
+Documentation not received
+ 
+ 
+Table 172
+Veteran military status
+Code
+Description
+Y
+Veteran
+N
+Non Veteran
+ 
+ 
+Table 212
+Nationality
+Code
+Description
+DEU
+Germany
+ESP
+Spain
+FRA
+France
+GBR
+United Kingdom
+ITA
+Italy
+USA
+United States
+ 
+ 
+Table 295
+Handicap
+Code
+Description
+Y
+Yes
+N
+No
+ 
+ 
+Table 296
+Primary Language
+Code
+Description
+EN  
+English
+FR
+French
+ES
+Spanish
+DE
+German
+IT
+Italian
+ 
+ 
+Table 327
+Job code/class
+Code
+Description
+13-2011
+Accountant
+15-1132
+Application Developer
+23-1011
+Attorney
+29-1020
+Dentist
+29-1170
+Nurse Practitioner
+29-2041
+Paramedic
+29-1050
+Pharmacist
+29-1060
+Physician
+ 
+ 
+Table 340
+Procedure Code modifier
+Code
+Description
+57
+Decision for surgery
+23
+Unusual Anesthesia
+50
+Bilateral Procedure
+33
+Preventive Service
+51
+Multiple Procedures
+52
+Reduced Services
+ 
+ 
+Table 342
+Military recipient
+Code
+Description
+Y
+Dependent
+N
+Non Dependent