plan_executor 1.0.2

data/lib/tests/suites/connectathon_fetch_patient_record.rb

@@ -0,0 +1,443 @@
+module Crucible
+  module Tests
+    class ConnectathonFetchPatientRecordTest < BaseSuite
+
+      def id
+        'ConnectathonFetchPatientRecordTest'
+      end
+
+      def description
+        'Connectathon Fetch Patient Record Tests focusing on the $everything operation.'
+      end
+
+      def initialize(client1, client2=nil)
+        super(client1, client2)
+        @category = {id: 'connectathon', title: 'Connectathon'}
+      end
+
+      def setup
+        @resources = Crucible::Generator::Resources.new
+        @patient = @resources.example_patient_record_201
+        @condition_1 = @resources.example_patient_record_condition_201
+        @condition_2 = @resources.example_patient_record_condition_205
+        @diagnosticreport = @resources.example_patient_record_diagnosticreport_201
+        @encounter_1 = @resources.example_patient_record_encounter_201
+        @encounter_2 = @resources.example_patient_record_encounter_202
+        @observation = @resources.example_patient_record_observation_202
+        @organization_1 = @resources.example_patient_record_organization_201
+        @organization_2 = @resources.example_patient_record_organization_203
+        @practitioner = @resources.example_patient_record_practitioner_201
+        @procedure = @resources.example_patient_record_procedure_201
+        @patient_ids = []
+        @created_patient_record = false
+        begin
+          create_patient_record
+          @created_patient_record = true
+        rescue Exception => e
+          @created_patient_record = false
+        end
+      end
+
+      def teardown
+        @client.destroy(FHIR::Condition, @cond1_reply.id) if !@cond1_id.nil?
+        @client.destroy(FHIR::Procedure, @prc_reply.id) if !@prc_id.nil?
+        @client.destroy(FHIR::Encounter, @enc2_reply.id) if !@enc2_id.nil?
+        @client.destroy(FHIR::Encounter, @enc1_reply.id) if !@enc1_id.nil?
+        @client.destroy(FHIR::DiagnosticReport, @dr_reply.id) if !@dr_id.nil?
+        @client.destroy(FHIR::Observation, @obs_reply.id) if !@obs_id.nil?
+        @client.destroy(FHIR::Condition, @cond2_reply.id) if !@cond2_id.nil?
+        @client.destroy(FHIR::Patient, @pat_reply.id) if !@patient_id.nil?
+        @patient_ids.each do |id|
+          @client.destroy(FHIR::Patient, id)
+        end
+        @client.destroy(FHIR::Practitioner, @prac_reply.id) if !@prac_id.nil?
+        @client.destroy(FHIR::Organization, @org2_reply.id) if !@org2_id.nil?
+        @client.destroy(FHIR::Organization, @org1_reply.id) if !@org1_id.nil?
+      end
+
+      ['GET','POST'].each do |how|
+
+      #
+      # Test if the general Fetch Patient Record operation is supported
+      #
+      test "C8T2_1_#{how[0]}", "Fetch all patient records (#{how})" do
+        metadata {
+          links "#{BASE_SPEC_LINK}/patient-operations.html#everything"
+          links 'http://wiki.hl7.org/index.php?title=FHIR_Connectathon_8#2._Expose_the_.27Fetch_Patient_Record.27_operation_.28Server.29'
+          requires resource: 'Patient', methods: ['$everything']
+          validates resource: 'Patient', methods: ['$everything']
+        }
+
+        reply = @client.fetch_patient_record(nil,nil,nil,how)
+
+        assert( (reply.code>=400 && reply.code<500), "If there is no nominated patient (e.g. the operation is invoked at the system level) and the context is not associated with a single patient record, then the server should return an error.", reply.body)
+        warning { assert_resource_type(reply,FHIR::OperationOutcome) }
+      end
+
+      #
+      # Test if the general Fetch Patient Record operation and start/end parameters are supported
+      #
+      test "C8T2_2_#{how[0]}", "Fetch all patient records with start/end (#{how})" do
+        metadata {
+          links "#{BASE_SPEC_LINK}/patient-operations.html#everything"
+          links 'http://wiki.hl7.org/index.php?title=FHIR_Connectathon_8#2._Expose_the_.27Fetch_Patient_Record.27_operation_.28Server.29'
+          requires resource: 'Patient', methods: ['$everything']
+          validates resource: 'Patient', methods: ['$everything']
+        }
+
+        start = (DateTime.now - (6*30)).strftime("%Y-%m-%d")
+        stop = DateTime.now.strftime("%Y-%m-%d")
+        reply = @client.fetch_patient_record(nil, start, stop, how)
+
+        assert( (reply.code>=400 && reply.code<500), "If there is no nominated patient (e.g. the operation is invoked at the system level) and the context is not associated with a single patient record, then the server should return an error.", reply.body)
+        warning { assert_resource_type(reply,FHIR::OperationOutcome) }
+      end
+
+      #
+      # Test if the specific Fetch Patient Record operation is supported
+      #
+      test "C8T2_3_#{how[0]}", "Fetch specific patient record (#{how})" do
+        metadata {
+          links "#{BASE_SPEC_LINK}/patient-operations.html#everything"
+          links 'http://wiki.hl7.org/index.php?title=FHIR_Connectathon_8#2._Expose_the_.27Fetch_Patient_Record.27_operation_.28Server.29'
+          requires resource: 'Patient', methods: ['create', '$everything']
+          validates resource: 'Patient', methods: ['create', '$everything']
+        }
+
+        skip unless @created_patient_record
+        record = @client.fetch_patient_record(@patient_id, nil, nil, how)
+
+        assert_response_ok(record)
+        assert_bundle_response(record)
+
+        patient = @patient
+        patient.xmlId = @patient_id
+
+        returned_patient = nil
+        record.resource.entry.each do |entry|
+          returned_patient = entry.resource if entry.resource.class == FHIR::Patient
+        end
+
+        assert patient.equals?(returned_patient), "Returned patient doesn't match original patient."
+      end
+
+      #
+      # Test if the specific Fetch Patient Record operation and start/end parameters are supported
+      #
+      test "C8T2_4_#{how[0]}", "Fetch specific patient record with start/end (#{how})" do
+        metadata {
+          links "#{BASE_SPEC_LINK}/patient-operations.html#everything"
+          links 'http://wiki.hl7.org/index.php?title=FHIR_Connectathon_8#2._Expose_the_.27Fetch_Patient_Record.27_operation_.28Server.29'
+          requires resource: 'Patient', methods: ['create', '$everything']
+          validates resource: 'Patient', methods: ['create', '$everything']
+        }
+
+        skip unless @created_patient_record
+
+        start = (DateTime.now - (6*30)).strftime("%Y-%m-%d")
+        stop = DateTime.now.strftime("%Y-%m-%d")
+        record = @client.fetch_patient_record(@patient_id, start, stop, how)
+
+        assert_response_ok(record)
+        assert_bundle_response(record)
+
+        patient = @patient
+        patient.xmlId = @patient_id
+
+        returned_patient = nil
+        record.resource.entry.each do |entry|
+          returned_patient = entry.resource if entry.resource.class == FHIR::Patient
+        end
+
+        assert patient.equals?(returned_patient), "Returned patient doesn't match original patient."
+
+        # TODO: Determine how start/end scope specific patient records (e.g., birthdate?)
+      end
+
+      #
+      # Test if we can update parts of a specific Fetch Patient Record operation result
+      #
+      test "C8T2_5_#{how[0]}", "Fetch specific patient record - After Update (#{how})" do
+        metadata {
+          links "#{BASE_SPEC_LINK}/patient-operations.html#everything"
+          links 'http://wiki.hl7.org/index.php?title=FHIR_Connectathon_8#2._Expose_the_.27Fetch_Patient_Record.27_operation_.28Server.29'
+          requires resource: 'Patient', methods: ['create', 'update', '$everything']
+          validates resource: 'Patient', methods: ['create', 'update', '$everything']
+        }
+
+        skip unless @created_patient_record
+        record = @client.fetch_patient_record(@patient_id,nil,nil,how)
+
+        assert_response_ok(record)
+        assert_bundle_response(record)
+
+        @patient.telecom = [ FHIR::ContactPoint.new ]
+        @patient.telecom[0].system = 'phone'
+        @patient.telecom[0].value='1-234-567-8901'
+        @patient.telecom[0].use = 'mobile'
+        @patient.name[0].given = ['Not', 'Given']
+        @patient['telecom'] = @patient.telecom # some weirdness with attributes
+
+        reply = @client.update @patient, @patient_id
+        assert_response_ok(reply)
+
+        record = @client.fetch_patient_record(@patient_id)
+        assert_response_ok(record)
+        assert_bundle_response(record)
+
+        returned_patient = nil
+        record.resource.entry.each do |entry|
+          returned_patient = entry.resource if entry.resource.class == FHIR::Patient
+        end
+        assert !returned_patient.nil?, 'The response bundle did not include the Patient.', record.body
+        assert returned_patient.telecom[0].try(:value) == '1-234-567-8901'
+        assert returned_patient.name[0].try(:given) == ['Not', 'Given']
+      end
+
+      #
+      # Test if we can write and read an entire patient record - almost
+      #
+      test "C8T2_6_#{how[0]}", "Fetch an entire patient record - accuracy, ignoring meta & text (#{how})" do
+        metadata {
+          links "#{BASE_SPEC_LINK}/patient-operations.html#everything"
+          links "#{BASE_SPEC_LINK}/argonauts.html"
+          requires resource: 'Organization', methods: ['create']
+          requires resource: 'Practitioner', methods: ['create']
+          requires resource: 'Patient', methods: ['create','$everything']
+          requires resource: 'Condition', methods: ['create']
+          requires resource: 'Observation', methods: ['create']
+          requires resource: 'DiagnosticReport', methods: ['create']
+          requires resource: 'Encounter', methods: ['create']
+          requires resource: 'Procedure', methods: ['create']
+          validates resource: 'Patient', methods: ['create', '$everything']
+          validates resource: 'Organization', methods: ['create']
+          validates resource: 'Practitioner', methods: ['create']
+          validates resource: 'Condition', methods: ['create']
+          validates resource: 'Observation', methods: ['create']
+          validates resource: 'DiagnosticReport', methods: ['create']
+          validates resource: 'Encounter', methods: ['create']
+          validates resource: 'Procedure', methods: ['create']
+        }
+
+        skip unless @created_patient_record
+        record = @client.fetch_patient_record(@pat_reply.id)
+        assert_response_ok(record)
+        assert_bundle_response(record)
+
+        mismatches = []
+        record.resource.entry.each do |bundle_entry|
+          case bundle_entry.resource.class
+          when FHIR::Organization
+            case bundle_entry.resource.xmlId
+            when @org1_id
+              mismatches << bundle_entry.resource.mismatch(@organization_1, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@organization_1)
+            when @org2_id
+              mismatches << bundle_entry.resource.mismatch(@organization_2, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@organization_2)
+            end
+          when FHIR::Practitioner
+            mismatches << bundle_entry.resource.mismatch(@practitioner, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@practitioner)
+          when FHIR::Patient
+            mismatches << bundle_entry.resource.mismatch(@patient, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@patient)
+          when FHIR::Condition
+            case bundle_entry.resource.xmlId
+            when @cond1_id
+              mismatches << bundle_entry.resource.mismatch(@condition_1, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@condition_1)
+            when @cond2_id
+              mismatches << bundle_entry.resource.mismatch(@condition_2, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@condition_2)
+            end
+          when FHIR::Observation
+            mismatches << bundle_entry.resource.mismatch(@observation, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@observation)
+          when FHIR::DiagnosticReport
+            mismatches << bundle_entry.resource.mismatch(@diagnosticreport, ['_id', 'meta', 'text', 'issued']) unless bundle_entry.resource.equals?(@diagnosticreport)
+            # account for instant format on DiagnosticReport.issued
+            t0 = Time.iso8601(@diagnosticreport.issued)
+            t1 = Time.iso8601(bundle_entry.resource.issued)
+            mismatches << 'FHIR::DiagnosticReport::issued' unless t0==t1            
+          when FHIR::Encounter
+            case bundle_entry.resource.xmlId
+            when @enc1_id
+              mismatches << bundle_entry.resource.mismatch(@encounter_1, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@encounter_1)
+            when @enc2_id
+              mismatches << bundle_entry.resource.mismatch(@encounter_2, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@encounter_2)
+            end
+          when FHIR::Procedure
+            mismatches << bundle_entry.resource.mismatch(@procedure, ['_id', 'meta', 'text']) unless bundle_entry.resource.equals?(@procedure)
+          end
+        end
+
+        assert mismatches.flatten.empty?, "Data returned from the server did not match source data: #{mismatches.flatten}"
+      end
+
+      #
+      # Test if we can write and read an entire patient record - count
+      #
+      test "C8T2_7_#{how[0]}", "Fetch an entire patient record - completeness (#{how})" do
+        metadata {
+          links "#{BASE_SPEC_LINK}/patient-operations.html#everything"
+          links "#{BASE_SPEC_LINK}/argonauts.html"
+          requires resource: 'Organization', methods: ['create']
+          requires resource: 'Practitioner', methods: ['create']
+          requires resource: 'Patient', methods: ['create','$everything']
+          requires resource: 'Condition', methods: ['create']
+          requires resource: 'Observation', methods: ['create']
+          requires resource: 'DiagnosticReport', methods: ['create']
+          requires resource: 'Encounter', methods: ['create']
+          requires resource: 'Procedure', methods: ['create']
+          validates resource: 'Patient', methods: ['create', '$everything']
+          validates resource: 'Organization', methods: ['create']
+          validates resource: 'Practitioner', methods: ['create']
+          validates resource: 'Condition', methods: ['create']
+          validates resource: 'Observation', methods: ['create']
+          validates resource: 'DiagnosticReport', methods: ['create']
+          validates resource: 'Encounter', methods: ['create']
+          validates resource: 'Procedure', methods: ['create']
+        }
+
+        skip unless @created_patient_record
+        record = @client.fetch_patient_record(@pat_reply.id)
+        assert_response_ok(record)
+        assert_bundle_response(record)
+
+        record.resource.entry.each do |bundle_entry|
+          if @ids_count.keys.include?(bundle_entry.resource.class.to_s)
+            @ids_count[bundle_entry.resource.class.to_s].delete bundle_entry.resource.xmlId
+          else
+            warning { assert @ids_count.keys.include?(bundle_entry.resource.class.to_s),
+              "Found additional resource(s) in $everything Bundle: #{bundle_entry.resource.class}#{ "-#{bundle_entry.resource.code.text}" if bundle_entry.resource.class == FHIR::List}" }
+          end
+        end
+
+        @ids_count.each {|klass,ids| @ids_count.delete(klass) if ids.blank?}
+        assert @ids_count.flatten.empty?, "Returned Bundle is missing resources: #{@ids_count}"
+      end
+
+      end # ['GET','POST'] 
+
+      def create_patient_record
+        @ids_count = {
+          'FHIR::Organization' => [],
+          'FHIR::Practitioner' => [],
+          'FHIR::Patient' => [],
+          'FHIR::Condition' => [],
+          'FHIR::Observation' => [],
+          'FHIR::DiagnosticReport' => [],
+          'FHIR::Encounter' => [],
+          'FHIR::Procedure' => []
+        }
+
+        @organization_1.xmlId = nil
+        @org1_reply = @client.create @organization_1
+        @org1_id = @org1_reply.id
+        @organization_1.xmlId = @org1_id
+        @ids_count[FHIR::Organization.to_s] << @org1_id
+        assert_response_ok(@org1_reply)
+
+        @organization_2.xmlId = nil
+        @org2_reply = @client.create @organization_2
+        @org2_id = @org2_reply.id
+        @organization_2.xmlId = @org2_id
+        @ids_count[FHIR::Organization.to_s] << @org2_id
+        assert_response_ok(@org2_reply)
+
+        @practitioner.xmlId = nil
+        @practitioner.practitionerRole[0].managingOrganization.reference = "Organization/#{@org1_id}"
+        @prac_reply = @client.create @practitioner
+        @prac_id = @prac_reply.id
+        @practitioner.xmlId = @prac_id
+        @ids_count[FHIR::Practitioner.to_s] << @prac_id
+        assert_response_ok(@prac_reply)
+
+        @patient.xmlId = nil
+        @patient.careProvider[0].reference= "Practitioner/#{@prac_id}"
+        @patient.managingOrganization.reference = "Organization/#{@org1_id}"
+        @pat_reply = @client.create @patient
+        @patient_id = @pat_reply.id
+        @patient.xmlId = @patient_id
+        @ids_count[FHIR::Patient.to_s] << @patient_id
+        assert_response_ok(@pat_reply)
+
+        @condition_2.xmlId = nil
+        @condition_2.patient.reference = "Patient/#{@patient_id}"
+        @condition_2.asserter.reference = "Practitioner/#{@prac_id}"
+        @cond2_reply = @client.create @condition_2
+        @cond2_id = @cond2_reply.id
+        @condition_2.xmlId = @cond2_id
+        @ids_count[FHIR::Condition.to_s] << @cond2_id
+        assert_response_ok(@cond2_reply)
+
+        @observation.xmlId = nil
+        @observation.subject.reference = "Patient/#{@patient_id}"
+        @observation.performer[0].reference = "Practitioner/#{@prac_id}"
+        @obs_reply = @client.create @observation
+        @obs_id = @obs_reply.id
+        @observation.xmlId = @obs_id
+        @ids_count[FHIR::Observation.to_s] << @obs_id
+        assert_response_ok(@obs_reply)
+
+        @diagnosticreport.xmlId = nil
+        @diagnosticreport.subject.reference = "Patient/#{@patient_id}"
+        @diagnosticreport.performer.reference = "Organization/#{@org2_id}"
+        @dr_reply = @client.create @diagnosticreport
+        @dr_id = @dr_reply.id
+        @diagnosticreport.xmlId = @dr_id
+        @ids_count[FHIR::DiagnosticReport.to_s] << @dr_id
+        assert_response_ok(@dr_reply)
+
+        @encounter_1.xmlId = nil
+        @encounter_1.patient.reference = "Patient/#{@patient_id}"
+        @encounter_1.participant[0].individual.reference = "Practitioner/#{@prac_id}"
+        @encounter_1.serviceProvider.reference = "Organization/#{@org1_id}"
+        @enc1_reply = @client.create @encounter_1
+        @enc1_id = @enc1_reply.id
+        @encounter_1.xmlId = @enc1_id
+        @ids_count[FHIR::Encounter.to_s] << @enc1_id
+        assert_response_ok(@enc1_reply)
+
+        @encounter_2.xmlId = nil
+        @encounter_2.patient.reference = "Patient/#{@patient_id}"
+        @encounter_2.participant[0].individual.reference = "Practitioner/#{@prac_id}"
+        @encounter_2.serviceProvider.reference = "Organization/#{@org1_id}"
+        @enc2_reply = @client.create @encounter_2
+        @enc2_id = @enc2_reply.id
+        @encounter_2.xmlId = @enc2_id
+        @ids_count[FHIR::Encounter.to_s] << @enc2_id
+        assert_response_ok(@enc2_reply)
+
+        @procedure.xmlId = nil
+        @procedure.subject.reference = "Patient/#{@patient_id}"
+        # @procedure.report[0].reference = "DiagnosticReport/#{@dr_id}"
+        @procedure.performer[0].actor.reference = "Practitioner/#{@prac_id}"
+        @procedure.encounter.reference = "Encounter/#{@enc2_id}"
+        @prc_reply = @client.create @procedure
+        @prc_id = @prc_reply.id
+        @procedure.xmlId = @prc_id
+        @ids_count[FHIR::Procedure.to_s] << @prc_id
+        assert_response_ok(@prc_reply)
+
+        @encounter_2.indication = [ FHIR::Reference.new ] 
+        @encounter_2.indication[0].reference = "Procedure/#{@prc_id}"
+        @encounter_2['indication'] = @encounter_2.indication
+        @enc2_reply = @client.update @encounter_2, @enc2_id
+        assert_response_ok(@enc2_reply)
+
+        @condition_1.xmlId = nil
+        @condition_1.patient.reference = "Patient/#{@patient_id}"
+        @condition_1.encounter.reference = "Encounter/#{@enc1_id}"
+        @condition_1.asserter.reference = "Practitioner/#{@prac_id}"
+        @condition_1.evidence[0].detail[0].reference = "Observation/#{@obs_id}"
+        ref = FHIR::Reference.new
+        ref.reference = "Procedure/#{@prc_id}"
+        @condition_1.evidence[0].detail << ref
+        ref = FHIR::Reference.new
+        ref.reference = "Condition/#{@cond2_id}"
+        @condition_1.evidence[0].detail << ref
+        @cond1_reply = @client.create @condition_1
+        @cond1_id = @cond1_reply.id
+        @condition_1.xmlId = @cond1_id
+        @ids_count[FHIR::Condition.to_s] << @cond1_id
+        assert_response_ok(@cond1_reply)
+      end
+
+    end
+  end
+end