Module: PacioInfernoCore::SearchTest

Extended by:
Forwardable
Includes:
Inferno::DSL::FHIRResourceNavigation, DateSearchValidation, ResourceSearchParamChecker, WellKnownCodeSystems
Defined in:
lib/pacio_inferno_core/search_test.rb

Constant Summary

Constants included from WellKnownCodeSystems

WellKnownCodeSystems::HL7_CODE_SYSTEMS, WellKnownCodeSystems::WELL_KNOWN_CODE_SYSTEMS

Instance Method Summary collapse

Methods included from WellKnownCodeSystems

include?

Methods included from DateSearchValidation

#fhir_date_comparer, #get_fhir_datetime_range, #get_fhir_period_range, #is_date?, #validate_date_search, #validate_datetime_search, #validate_period_search

Instance Method Details

#all_comparator_searches_tested? ⇒ Boolean

Returns:

  • (Boolean) 


237
238
239
240
241
 
# File 'lib/pacio_inferno_core/search_test.rb', line 237

def all_comparator_searches_tested?
  return true if params_with_comparators.blank?

  Set.new(params_with_comparators) == search_variant_test_records[:comparator_searches]
end

#all_provenance_revinclude_search_params ⇒ Object 



48
49
50
51
52
53
 
# File 'lib/pacio_inferno_core/search_test.rb', line 48

def all_provenance_revinclude_search_params
  @all_provenance_revinclude_search_params ||=
    all_search_params.transform_values! do |params_list|
      params_list.map { |params| params.merge(_revinclude: 'Provenance:target') }
    end
end

#all_scratch_resources ⇒ Object 



475
476
477
 
# File 'lib/pacio_inferno_core/search_test.rb', line 475

def all_scratch_resources
  scratch_resources[:all] ||= []
end

#all_search_params ⇒ Object 



30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
# File 'lib/pacio_inferno_core/search_test.rb', line 30

def all_search_params
  @all_search_params ||=
    patient_id_list.each_with_object({}) do |patient_id, params|
      params[patient_id] ||= []
      new_params =
        if fixed_value_search?
          fixed_value_search_param_values.map { |value| fixed_value_search_params(value, patient_id) }
        else
          [search_params_with_values(search_param_names, patient_id)]
        end
      new_params.reject! do |params|
        params.any? { |_key, value| value.blank? }
      end

      params[patient_id].concat(new_params)
    end
end

#all_search_params_present?(params) ⇒ Boolean

Returns:

  • (Boolean) 


553
554
555
 
# File 'lib/pacio_inferno_core/search_test.rb', line 553

def all_search_params_present?(params)
  params.all? { |_name, value| value.present? }
end

#all_search_variants_tested? ⇒ Boolean

Returns:

  • (Boolean) 


232
233
234
235
 
# File 'lib/pacio_inferno_core/search_test.rb', line 232

def all_search_variants_tested?
  search_variant_test_records.all? { |_variant, tested| tested.present? } &&
    all_comparator_searches_tested?
end

#any_valid_search_params?(search_params) ⇒ Boolean

Returns:

  • (Boolean) 


55
56
57
 
# File 'lib/pacio_inferno_core/search_test.rb', line 55

def any_valid_search_params?(search_params)
  search_params.any? { |_patient_id, params| params.present? }
end

#array_of_codes(array) ⇒ Object 



557
558
559
 
# File 'lib/pacio_inferno_core/search_test.rb', line 557

def array_of_codes(array)
  array.map { |name| "`#{name}`" }.join(', ')
end

#check_resource_against_params(resource, params) ⇒ Object

RESULT CHECKING ####



727
728
729
730
731
732
733
734
735
736
737
738
739
 
# File 'lib/pacio_inferno_core/search_test.rb', line 727

def check_resource_against_params(resource, params)
  params.each do |name, escaped_search_value|
    values_found = []
    search_value = unescape_search_value(escaped_search_value)

    match_found = resource_matches_param?(resource, name, escaped_search_value, values_found)

    assert match_found,
           "#{resource_type}/#{resource.id} did not match the search parameters:\n" \
           "* Expected: #{unescape_search_value(search_value)}\n" \
           "* Found: #{values_found.map(&:inspect).join(', ')}"
  end
end

#check_search_response ⇒ Object 



212
213
214
215
216
 
# File 'lib/pacio_inferno_core/search_test.rb', line 212

def check_search_response
  assert_response_status(200)
  assert_resource_type(:bundle)
  # NOTE: how do we want to handle validating Bundles?
end

#date_comparator_value(comparator, date) ⇒ Object 



243
244
245
246
247
248
249
250
251
252
253
254
 
# File 'lib/pacio_inferno_core/search_test.rb', line 243

def date_comparator_value(comparator, date)
  date = date.start || date.end if date.is_a? FHIR::Period
  case comparator
  when 'lt', 'le'
    comparator + (DateTime.xmlschema(date) + 1).xmlschema
  when 'gt', 'ge'
    comparator + (DateTime.xmlschema(date) - 1).xmlschema
  else
    # ''
    raise "Unsupported comparator '#{comparator}'"
  end
end

#default_search_values(param_name) ⇒ Object 



358
359
360
361
362
363
 
# File 'lib/pacio_inferno_core/search_test.rb', line 358

def default_search_values(param_name)
  definition = metadata.search_definitions[param_name]
  return [] if definition.blank?

  definition[:multiple_or] == 'SHALL' ? [definition[:values].join(',')] : Array.wrap(definition[:values])
end

#element_has_valid_value?(element, include_system) ⇒ Boolean

Returns:

  • (Boolean) 


673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
 
# File 'lib/pacio_inferno_core/search_test.rb', line 673

def element_has_valid_value?(element, include_system)
  case element
  when FHIR::Reference
    element.reference.present?
  when FHIR::CodeableConcept
    coding = prefer_well_known_code_system(element, include_system)
    coding.present?
  when FHIR::Identifier
    include_system ? element.value.present? && element.system.present? : element.value.present?
  when FHIR::Coding
    include_system ? element.code.present? && element.system.present? : element.code.present?
  when FHIR::HumanName
    (element.family || element.given&.first || element.text).present?
  when FHIR::Address
    (element.text || element.city || element.state || element.postalCode || element.country).present?
  when Inferno::DSL::PrimitiveType
    element.value.present?
  else
    true
  end
end

#empty_search_params_message(empty_search_params) ⇒ Object 



565
566
567
 
# File 'lib/pacio_inferno_core/search_test.rb', line 565

def empty_search_params_message(empty_search_params)
  "Could not find values for the search parameters #{array_of_codes(empty_search_params.keys)}"
end

#excluded_code?(coding, codes_to_exclude) ⇒ Boolean

Returns:

  • (Boolean) 


171
172
173
174
175
176
177
178
179
180
181
 
# File 'lib/pacio_inferno_core/search_test.rb', line 171

def excluded_code?(coding, codes_to_exclude)
  codes_to_exclude.any? do |exclude_code|
    if exclude_code.include?('|')
      system, code = exclude_code.split('|')
      coding.code == code && coding.system == system
    else
      code = exclude_code
      coding.code == code
    end
  end
end

#fetch_and_assert_all_bundled_resources(resource_type: self.resource_type, reply_handler: nil, max_pages: 20, additional_resource_types: [], params: nil) ⇒ Object 



579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
 
# File 'lib/pacio_inferno_core/search_test.rb', line 579

def fetch_and_assert_all_bundled_resources(
  resource_type: self.resource_type,
  reply_handler: nil,
  max_pages: 20,
  additional_resource_types: [],
  params: nil
)
  tags = tags(params)
  bundle = resource
  additional_resource_types << 'Medication' if %w[MedicationRequest MedicationDispense].include?(resource_type)

  assert_handler = proc do |response|
    assert_response_status(200, response: response)
    assert_valid_json(response[:body], "Could not resolve bundle as JSON: #{response[:body]}")
  end

  reply_and_assert_handler = if reply_handler
                               proc do |response|
                                 assert_handler.call(response)
                                 reply_handler.call(response)
                               end
                             else
                               assert_handler
                             end

  fetch_all_bundled_resources(resource_type:, bundle:, reply_handler: reply_and_assert_handler, max_pages:,
                              additional_resource_types:, tags:)
end

#filter_adi_document_reference(resources) ⇒ Object 



196
197
198
199
200
201
202
203
204
 
# File 'lib/pacio_inferno_core/search_test.rb', line 196

def filter_adi_document_reference(resources)
  resources.select! do |resource|
    resource.category.any? do |category|
      category.coding.any? do |coding|
        metadata.search_definitions[:category][:values].include? coding.code
      end
    end
  end
end

#filter_conditions(resources) ⇒ Object 



183
184
185
186
187
188
189
190
191
192
193
194
 
# File 'lib/pacio_inferno_core/search_test.rb', line 183

def filter_conditions(resources)
  # HL7 JIRA FHIR-37917. US Core v5.0.1 does not required patient+category.
  # In order to distinguish which resources matches the current profile, Inferno has to manually filter
  # the result of first search, which is searching by patient.
  resources.select! do |resource|
    resource.category.any? do |category|
      category.coding.any? do |coding|
        metadata.search_definitions[:category][:values].include? coding.code
      end
    end
  end
end

#filter_devices(resources) ⇒ Object 



162
163
164
165
166
167
168
169
 
# File 'lib/pacio_inferno_core/search_test.rb', line 162

def filter_devices(resources)
  codes_to_include = implantable_device_codes&.split(',')&.map(&:strip)
  return resources if codes_to_include.blank?

  resources.select! do |resource|
    resource&.type&.coding&.any? { |coding| codes_to_include.include?(coding.code) }
  end
end

#fixed_value_search_param_name ⇒ Object 



490
491
492
 
# File 'lib/pacio_inferno_core/search_test.rb', line 490

def fixed_value_search_param_name
  (search_param_names - ['patient']).first
end

#fixed_value_search_param_values ⇒ Object 



494
495
496
 
# File 'lib/pacio_inferno_core/search_test.rb', line 494

def fixed_value_search_param_values
  metadata.search_definitions[fixed_value_search_param_name.to_sym][:values]
end

#fixed_value_search_params(value, patient_id) ⇒ Object 



498
499
500
501
502
 
# File 'lib/pacio_inferno_core/search_test.rb', line 498

def fixed_value_search_params(value, patient_id)
  search_param_names.each_with_object({}) do |name, params|
    params[name] = patient_id_param?(name) ? patient_id : value
  end
end

#initial_search_variant_test_records ⇒ Object 



222
223
224
225
226
227
228
229
230
 
# File 'lib/pacio_inferno_core/search_test.rb', line 222

def initial_search_variant_test_records
  {}.tap do |records|
    records[:post_variant] = false if test_post_search?
    records[:medication_inclusion] = false if test_medication_inclusion?
    records[:reference_variants] = false if test_reference_variants?
    records[:token_variants] = false if token_search_params.present?
    records[:comparator_searches] = Set.new if params_with_comparators.present?
  end
end

#is_reference_match?(reference, local_reference) ⇒ Boolean

Returns:

  • (Boolean) 


470
471
472
473
 
# File 'lib/pacio_inferno_core/search_test.rb', line 470

def is_reference_match?(reference, local_reference)
  regex_pattern = %r{^(#{Regexp.escape(local_reference)}|\S+/#{Regexp.escape(local_reference)}(?:[/|]\S+)*)$}
  reference.match?(regex_pattern)
end

#no_resources_skip_message(resource_type = self.resource_type) ⇒ Object 



569
570
571
572
573
574
575
576
577
 
# File 'lib/pacio_inferno_core/search_test.rb', line 569

def no_resources_skip_message(resource_type = self.resource_type)
  msg = "No #{resource_type} resources appear to be available"

  if resource_type == 'Device' && implantable_device_codes.present?
    msg.concat(" with the following Device Type Code filter: #{implantable_device_codes}")
  end

  msg + '. Please use patients with more information'
end

#patient_id_list ⇒ Object 



532
533
534
535
536
 
# File 'lib/pacio_inferno_core/search_test.rb', line 532

def patient_id_list
  return [nil] unless respond_to? :patient_ids

  patient_ids.split(',').map(&:strip)
end

#patient_id_param?(name) ⇒ Boolean

Returns:

  • (Boolean) 


542
543
544
 
# File 'lib/pacio_inferno_core/search_test.rb', line 542

def patient_id_param?(name)
  name == 'patient' || (name == '_id' && resource_type == 'Patient')
end

#patient_search? ⇒ Boolean

Returns:

  • (Boolean) 


538
539
540
 
# File 'lib/pacio_inferno_core/search_test.rb', line 538

def patient_search?
  search_param_names.any? { |name| patient_id_param? name }
end

#perform_comparator_searches(params, patient_id) ⇒ Object 



265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
 
# File 'lib/pacio_inferno_core/search_test.rb', line 265

def perform_comparator_searches(params, patient_id)
  params_with_comparators.each do |name|
    next if search_variant_test_records[:comparator_searches].include? name

    required_comparators(name).each do |comparator|
      paths = search_param_paths(name).first
      date_element = find_a_value_at(scratch_resources_for_patient(patient_id), paths)
      params_with_comparator = params.merge(name => date_comparator_value(comparator, date_element))

      search_and_check_response(params_with_comparator)

      fetch_and_assert_all_bundled_resources(params: params_with_comparator).each do |resource|
        check_resource_against_params(resource, params_with_comparator) if resource.resourceType == resource_type
      end
    end

    search_variant_test_records[:comparator_searches] << name
  end
end

#perform_multiple_or_search_test ⇒ Object 



365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
 
# File 'lib/pacio_inferno_core/search_test.rb', line 365

def perform_multiple_or_search_test
  resolved_one = false

  all_search_params.each do |patient_id, params_list|
    next unless params_list.present?

    search_params = params_list.first
    existing_values = {}
    missing_values = {}

    multiple_or_search_params.each do |param_name|
      search_value = default_search_values(param_name.to_sym)
      search_params = search_params.merge(param_name.to_s => search_value)
      existing_values[param_name.to_sym] =
        scratch_resources_for_patient(patient_id).map(&param_name.to_sym).compact.uniq
    end

    # skip patient without multiple-or values
    next if existing_values.values.any?(&:empty?)

    resolved_one = true

    search_and_check_response(search_params)

    resources_returned =
      fetch_and_assert_all_bundled_resources(params: search_params)
        .select { |resource| resource.resourceType == resource_type }

    multiple_or_search_params.each do |param_name|
      missing_values[param_name.to_sym] =
        existing_values[param_name.to_sym] - resources_returned.map(&param_name.to_sym)
    end

    missing_value_message = missing_values
      .reject { |_param_name, missing_value| missing_value.empty? }
      .map { |param_name, missing_value| "#{missing_value.join(',')} values from #{param_name}" }
      .join(' and ')

    assert missing_value_message.blank?,
           "Could not find #{missing_value_message} in any of the resources returned for Patient/#{patient_id}"

    break if resolved_one
  end
end

#perform_post_search(get_search_resources, params) ⇒ Object 



139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
 
# File 'lib/pacio_inferno_core/search_test.rb', line 139

def perform_post_search(get_search_resources, params)
  fhir_search resource_type, params:, search_method: :post

  check_search_response

  post_search_resources = fetch_and_assert_all_bundled_resources.select do |resource|
    resource.resourceType == resource_type
  end

  filter_conditions(post_search_resources) if resource_type == 'Condition' && metadata.version == 'v5.0.1'
  filter_devices(post_search_resources) if resource_type == 'Device'

  get_resource_count = get_search_resources.length
  post_resource_count = post_search_resources.length

  search_variant_test_records[:post_variant] = true

  assert get_resource_count == post_resource_count,
         'Expected search by POST to return the same results as search by GET, ' \
         "but GET search returned #{get_resource_count} resources, and POST search " \
         "returned #{post_resource_count} resources."
end

#perform_reference_with_type_search(params, resource_count) ⇒ Object 



285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
 
# File 'lib/pacio_inferno_core/search_test.rb', line 285

def perform_reference_with_type_search(params, resource_count)
  return if resource_count.zero?
  return if search_variant_test_records[:reference_variants]

  new_search_params = params.merge('patient' => "Patient/#{params['patient']}")
  search_and_check_response(new_search_params)

  reference_with_type_resources =
    fetch_and_assert_all_bundled_resources(params: new_search_params)
      .select { |resource| resource.resourceType == resource_type }

  filter_conditions(reference_with_type_resources) if resource_type == 'Condition' && metadata.version == 'v5.0.1'
  filter_devices(reference_with_type_resources) if resource_type == 'Device'

  new_resource_count = reference_with_type_resources.count

  assert new_resource_count == resource_count,
         "Expected search by `#{params['patient']}` to to return the same results as searching " \
         "by `#{new_search_params['patient']}`, but found #{resource_count} resources with " \
         "`#{params['patient']}` and #{new_resource_count} with `#{new_search_params['patient']}`"

  search_variant_test_records[:reference_variants] = true
end

#perform_search(params, patient_id) ⇒ Object 



101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
 
# File 'lib/pacio_inferno_core/search_test.rb', line 101

def perform_search(params, patient_id)
  fhir_search resource_type, params:, tags: tags(params)

  perform_search_with_status(params, patient_id) if response[:status] == 400 && possible_status_search?

  check_search_response

  resources_returned =
    fetch_and_assert_all_bundled_resources(params:).select { |resource| resource.resourceType == resource_type }

  return [] if resources_returned.blank?

  perform_comparator_searches(params, patient_id) if params_with_comparators.present?

  filter_conditions(resources_returned) if resource_type == 'Condition' && metadata.version == 'v5.0.1'
  filter_devices(resources_returned) if resource_type == 'Device'

  if first_search?
    all_scratch_resources.concat(resources_returned).uniq!
    scratch_resources_for_patient(patient_id).concat(resources_returned).uniq!
  end

  resources_returned.each do |resource|
    check_resource_against_params(resource, params)
  end

  save_delayed_references(resources_returned) if saves_delayed_references?

  return resources_returned if all_search_variants_tested?

  perform_post_search(resources_returned, params) if test_post_search?
  test_medication_inclusion(resources_returned, params, patient_id) if test_medication_inclusion?
  perform_reference_with_type_search(params, resources_returned.count) if test_reference_variants?
  perform_search_with_system(params, patient_id) if token_search_params.present?

  resources_returned
end

#perform_search_with_status(original_params, _patient_id, status_search_values: self.status_search_values, resource_type: self.resource_type) ⇒ Object 



327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
 
# File 'lib/pacio_inferno_core/search_test.rb', line 327

def perform_search_with_status(
  original_params,
  _patient_id,
  status_search_values: self.status_search_values,
  resource_type: self.resource_type
)
  assert resource.is_a?(FHIR::OperationOutcome), 'Server returned a status of 400 without an OperationOutcome'
  # TODO: warn about documenting status requirements
  status_search_values.flat_map do |status_value|
    search_params = original_params.merge("#{status_search_param_name}": status_value)

    search_and_check_response(search_params)

    entries = resource.entry.select { |entry| entry.resource.resourceType == resource_type }

    if entries.present?
      original_params.merge!("#{status_search_param_name}": status_value)
      break
    end
  end
end

#perform_search_with_system(params, patient_id) ⇒ Object 



309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
 
# File 'lib/pacio_inferno_core/search_test.rb', line 309

def perform_search_with_system(params, patient_id)
  return if search_variant_test_records[:token_variants]

  new_search_params = search_params_with_values(token_search_params, patient_id, include_system: true)
  return if new_search_params.any? { |_name, value| value.blank? }

  search_params = params.merge(new_search_params)
  search_and_check_response(search_params)

  resources_returned =
    fetch_and_assert_all_bundled_resources(params: search_params)
      .select { |resource| resource.resourceType == resource_type }

  assert resources_returned.present?, 'No resources were returned when searching by `system|code`'

  search_variant_test_records[:token_variants] = true
end

#prefer_well_known_code_system(element, include_system) ⇒ Object 



608
609
610
611
612
613
614
615
 
# File 'lib/pacio_inferno_core/search_test.rb', line 608

def prefer_well_known_code_system(element, include_system)
  coding =
    find_a_value_at(element, 'coding') { |c| c.code.present? && WellKnownCodeSystems.include?(c.system) }

  return coding if coding.present?

  find_a_value_at(element, 'coding') { |c| c.code.present? && (!include_system || c.system.present?) }
end

#references_to_save(resource_type = nil) ⇒ Object 



485
486
487
488
 
# File 'lib/pacio_inferno_core/search_test.rb', line 485

def references_to_save(resource_type = nil)
  reference_metadata = resource_type == 'Provenance' ? provenance_metadata : metadata
  reference_metadata.delayed_references
end

#required_comparators(name) ⇒ Object 



256
257
258
259
260
261
262
263
 
# File 'lib/pacio_inferno_core/search_test.rb', line 256

def required_comparators(name)
  metadata
    .search_definitions
    .dig(name.to_sym, :comparators)
    .select { |_comparator, expectation| expectation == 'SHALL' }
    .keys
    .map(&:to_s)
end

#resource_matches_param?(resource, search_param_name, escaped_search_value, values_found = []) ⇒ Boolean

Returns:

  • (Boolean) 


745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
 
# File 'lib/pacio_inferno_core/search_test.rb', line 745

def resource_matches_param?(resource, search_param_name, escaped_search_value, values_found = [])
  search_value = unescape_search_value(escaped_search_value)
  paths = search_param_paths(search_param_name)

  match_found = false

  paths.each do |path|
    type = metadata.search_definitions[search_param_name.to_sym][:type]

    resolve_path(resource, path).each do |value|
      values_found <<
        if value.is_a? FHIR::Reference
          value.reference
        elsif value.is_a? Inferno::DSL::PrimitiveType
          value.value
        else
          value
        end
    end

    values_found.compact!
    match_found =
      case type
      when 'Period', 'date', 'instant', 'dateTime'
        values_found.any? { |date| validate_date_search(search_value, date) }
      when 'HumanName'
        # When a string search parameter refers to the types HumanName and Address,
        # the search covers the elements of type string, and does not cover elements such as use and period
        # https://www.hl7.org/fhir/search.html#string
        search_value_downcase = search_value.downcase
        values_found.any? do |name|
          name&.text&.downcase&.start_with?(search_value_downcase) ||
            name&.family&.downcase&.start_with?(search_value_downcase) ||
            name&.given&.any? { |given| given.downcase.start_with?(search_value_downcase) } ||
            name&.prefix&.any? { |prefix| prefix.downcase.start_with?(search_value_downcase) } ||
            name&.suffix&.any? { |suffix| suffix.downcase.start_with?(search_value_downcase) }
        end
      when 'Address'
        search_value_downcase = search_value.downcase
        values_found.any? do |address|
          address&.text&.downcase&.start_with?(search_value_downcase) ||
            address&.city&.downcase&.start_with?(search_value_downcase) ||
            address&.state&.downcase&.start_with?(search_value_downcase) ||
            address&.postalCode&.downcase&.start_with?(search_value_downcase) ||
            address&.country&.downcase&.start_with?(search_value_downcase)
        end
      when 'CodeableConcept'
        # FHIR token search (https://www.hl7.org/fhir/search.html#token): "When in doubt, servers SHOULD
        # treat tokens in a case-insensitive manner, on the grounds that including undesired data has
        # less safety implications than excluding desired behavior".
        codings = values_found.flat_map(&:coding)
        if search_value.include? '|'
          system = search_value.split('|').first
          code = search_value.split('|').last
          codings&.any? { |coding| coding.system == system && coding.code&.casecmp?(code) }
        else
          codings&.any? { |coding| coding.code&.casecmp?(search_value) }
        end
      when 'Coding'
        if search_value.include? '|'
          system = search_value.split('|').first
          code = search_value.split('|').last
          values_found.any? { |coding| coding.system == system && coding.code&.casecmp?(code) }
        else
          values_found.any? { |coding| coding.code&.casecmp?(search_value) }
        end
      when 'Identifier'
        if search_value.include? '|'
          values_found.any? { |identifier| "#{identifier.system}|#{identifier.value}" == search_value }
        else
          values_found.any? { |identifier| identifier.value == search_value }
        end
      when 'string'
        searched_values = search_value.downcase.split(/(?<!\\\\),/).map { |string| string.gsub('\\,', ',') }
        values_found.any? do |value_found|
          searched_values.any? { |searched_value| value_found.downcase.starts_with? searched_value }
        end
      else
        # searching by patient requires special case because we are searching by a resource identifier
        # references can also be URLs, so we may need to resolve those URLs
        if %w[subject patient].include? search_param_name.to_s
          id = search_value.split('Patient/').last
          possible_values = [id, "Patient/#{id}", "#{url}/Patient/#{id}"]
          values_found.any? do |reference|
            possible_values.include? reference
          end
        else
          search_values = search_value.split(/(?<!\\\\),/).map { |string| string.gsub('\\,', ',') }
          values_found.any? { |value_found| search_values.include? value_found }
        end
      end

    break if match_found
  end

  match_found
end

#run_provenance_revinclude_search_test ⇒ Object 



59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
 
# File 'lib/pacio_inferno_core/search_test.rb', line 59

def run_provenance_revinclude_search_test
  # TODO: skip if not supported?
  skip_if !any_valid_search_params?(all_provenance_revinclude_search_params), unable_to_resolve_params_message

  provenance_resources =
    all_provenance_revinclude_search_params.flat_map do |_patient_id, params_list|
      params_list.flat_map do |params|
        fhir_search resource_type, params:, tags: tags(params)

        perform_search_with_status(params, patient_id) if response[:status] == 400 && possible_status_search?

        check_search_response

        # TODO: check that only provenance resources for resources matching
        # granular scopes returned
        fetch_and_assert_all_bundled_resources(additional_resource_types: ['Provenance'], params:)
          .select { |resource| resource.resourceType == 'Provenance' }
      end
    end

  scratch_provenance_resources[:all] ||= []
  scratch_provenance_resources[:all].concat(provenance_resources)

  save_delayed_references(provenance_resources, 'Provenance')

  skip_if provenance_resources.empty?, no_resources_skip_message('Provenance')
end

#run_search_test ⇒ Object 



87
88
89
90
91
92
93
94
95
96
97
98
99
 
# File 'lib/pacio_inferno_core/search_test.rb', line 87

def run_search_test
  # TODO: skip if not supported?
  skip_if !any_valid_search_params?(all_search_params), unable_to_resolve_params_message

  resources_returned =
    all_search_params.flat_map do |patient_id, params_list|
      params_list.flat_map { |params| perform_search(params, patient_id) }
    end

  skip_if resources_returned.empty?, no_resources_skip_message

  perform_multiple_or_search_test if multiple_or_search_params.present?
end

#save_delayed_references(resources, containing_resource_type = resource_type) ⇒ Object 



701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
 
# File 'lib/pacio_inferno_core/search_test.rb', line 701

def save_delayed_references(resources, containing_resource_type = resource_type)
  resources.each do |resource|
    references_to_save(containing_resource_type).each do |reference_to_save|
      resolve_path(resource, reference_to_save[:path])
        .select do |reference|
        reference.is_a?(FHIR::Reference) &&
          !reference.contained? && reference.reference.present?
      end
        .each do |reference|
          resource_type = reference.resource_class.name.demodulize
          need_to_save = reference_to_save[:resources].include?(resource_type)
          next unless need_to_save

          reference_resource_type = resource.resourceType
          reference_resource_id = resource.id

          referencing_resource = "#{reference_resource_type}/#{reference_resource_id}"

          save_resource_reference(resource_type, reference, referencing_resource)
        end
    end
  end
end

#save_resource_reference(resource_type, reference, referencing_resource) ⇒ Object 



695
696
697
698
699
 
# File 'lib/pacio_inferno_core/search_test.rb', line 695

def save_resource_reference(resource_type, reference, referencing_resource)
  scratch[:references] ||= {}
  scratch[:references][resource_type] ||= Set.new
  scratch[:references][resource_type] << { reference: reference, referencing_resource: referencing_resource }
end

#scratch_resources_for_patient(patient_id) ⇒ Object 



479
480
481
482
483
 
# File 'lib/pacio_inferno_core/search_test.rb', line 479

def scratch_resources_for_patient(patient_id)
  return all_scratch_resources if patient_id.nil?

  scratch_resources[patient_id] ||= []
end

#search_and_check_response(params, resource_type = self.resource_type) ⇒ Object 



206
207
208
209
210
 
# File 'lib/pacio_inferno_core/search_test.rb', line 206

def search_and_check_response(params, resource_type = self.resource_type)
  fhir_search resource_type, params:, tags: tags(params)

  check_search_response
end

#search_param_paths(name) ⇒ Object 



546
547
548
549
550
551
 
# File 'lib/pacio_inferno_core/search_test.rb', line 546

def search_param_paths(name)
  paths = metadata.search_definitions[name.to_sym][:paths]
  paths[0] = 'local_class' if paths.first == 'class'

  paths
end

#search_param_value(name, resource, include_system: false) ⇒ Object 



617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
 
# File 'lib/pacio_inferno_core/search_test.rb', line 617

def search_param_value(name, resource, include_system: false)
  paths = search_param_paths(name)
  search_value = nil
  paths.each do |path|
    element = find_a_value_at(resource, path) { |element| element_has_valid_value?(element, include_system) }

    search_value =
      case element
      when FHIR::Period
        if element.start.present?
          'gt' + (DateTime.xmlschema(element.start) - 1).xmlschema
        else
          end_datetime = get_fhir_datetime_range(element.end)[:end]
          'lt' + (end_datetime + 1).xmlschema
        end
      when FHIR::Reference
        element.reference
      when FHIR::CodeableConcept
        coding = prefer_well_known_code_system(element, include_system)
        include_system ? "#{coding.system}|#{coding.code}" : coding.code
      when FHIR::Identifier
        include_system ? "#{element.system}|#{element.value}" : element.value
      when FHIR::Coding
        include_system ? "#{element.system}|#{element.code}" : element.code
      when FHIR::HumanName
        element.family || element.given&.first || element.text
      when FHIR::Address
        element.text || element.city || element.state || element.postalCode || element.country
      when Inferno::DSL::PrimitiveType
        element.value
      else
        if metadata.version != 'v3.1.1' &&
           metadata.search_definitions[name.to_sym][:type] == 'date' &&
           params_with_comparators&.include?(name)
          # convert date search to greath-than comparator search with correct precision
          # For all date search parameters:
          #   Patient.birthDate does not mandate comparators so cannot be converted
          #   Goal.target-date has day precision
          #   All others have second + time offset precision
          if /^\d{4}(-\d{2})?$/.match?(element) || # YYYY or YYYY-MM
             (/^\d{4}-\d{2}-\d{2}$/.match?(element) && resource_type != 'Goal') # YYY-MM-DD AND Resource is NOT Goal
            "gt#{(DateTime.xmlschema(element) - 1).xmlschema}"
          else
            element
          end
        else
          element
        end
      end

    break if search_value.present?
  end

  search_value&.gsub(',', '\\,')
end

#search_params_tag(params) ⇒ Object 



855
856
857
 
# File 'lib/pacio_inferno_core/search_test.rb', line 855

def search_params_tag(params)
  "#{resource_type}?#{params.keys.join('&')}"
end

#search_params_with_values(search_param_names, patient_id, include_system: false) ⇒ Object 



504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
 
# File 'lib/pacio_inferno_core/search_test.rb', line 504

def search_params_with_values(search_param_names, patient_id, include_system: false)
  resources = scratch_resources_for_patient(patient_id)

  if resources.empty?
    return search_param_names.each_with_object({}) do |name, params|
      value = patient_id_param?(name) ? patient_id : nil
      params[name] = value
    end
  end

  resources.each_with_object({}) do |resource, outer_params|
    results_from_one_resource = search_param_names.each_with_object({}) do |name, params|
      value = if patient_id_param?(name)
                patient_id
              else
                search_param_value(name, resource,
                                   include_system: include_system)
              end
      params[name] = value
    end

    outer_params.merge!(results_from_one_resource)

    # stop if all parameter values are found
    return outer_params if outer_params.all? { |_key, value| value.present? }
  end
end

#search_variant_test_records ⇒ Object 



218
219
220
 
# File 'lib/pacio_inferno_core/search_test.rb', line 218

def search_variant_test_records
  @search_variant_test_records ||= initial_search_variant_test_records
end

#status_search_param_name ⇒ Object 



349
350
351
352
 
# File 'lib/pacio_inferno_core/search_test.rb', line 349

def status_search_param_name
  @status_search_param_name ||=
    metadata.search_definitions.keys.find { |key| key.to_s.include? 'status' }
end

#status_search_values ⇒ Object 



354
355
356
 
# File 'lib/pacio_inferno_core/search_test.rb', line 354

def status_search_values
  default_search_values(status_search_param_name)
end

#tags(params) ⇒ Object 



843
844
845
846
847
848
849
850
851
852
853
 
# File 'lib/pacio_inferno_core/search_test.rb', line 843

def tags(params)
  return nil unless config.options[:tag_requests]

  return nil if params.blank?

  if %w[Condition DiagnosticReport DocumentReference Observation ServiceRequest].include? resource_type
    return [search_params_tag(params)]
  end

  nil
end

#test_medication_inclusion(base_resources, params, patient_id) ⇒ Object 



410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
 
# File 'lib/pacio_inferno_core/search_test.rb', line 410

def test_medication_inclusion(base_resources, params, patient_id)
  return if search_variant_test_records[:medication_inclusion]

  scratch[:medication_resources] ||= {}
  scratch[:medication_resources][:all] ||= []
  scratch[:medication_resources][patient_id] ||= []
  scratch[:medication_resources][:contained] ||= []

  base_resources_with_external_reference =
    base_resources
      .select { |request| request&.medicationReference&.present? }
      .reject { |request| request&.medicationReference&.reference&.start_with? '#' }

  contained_medications =
    base_resources
      .select { |request| request&.medicationReference&.reference&.start_with? '#' }
      .flat_map(&:contained)
      .select { |resource| resource.resourceType == 'Medication' }

  scratch[:medication_resources][:all] += contained_medications
  scratch[:medication_resources][patient_id] += contained_medications
  scratch[:medication_resources][:contained] += contained_medications

  return if base_resources_with_external_reference.blank?

  search_params = params.merge(_include: "#{resource_type}:medication")

  search_and_check_response(search_params)

  medications =
    fetch_and_assert_all_bundled_resources(params: search_params)
      .select { |resource| resource.resourceType == 'Medication' }
  assert medications.present?, 'No Medications were included in the search results'

  included_medications = medications.map { |medication| "#{medication.resourceType}/#{medication.id}" }

  matched_base_resources = base_resources_with_external_reference.select do |base_resource|
    included_medications.any? do |medication_reference|
      is_reference_match?(base_resource.medicationReference.reference, medication_reference)
    end
  end

  not_matched_included_medications = included_medications.select do |medication_reference|
    matched_base_resources.none? do |base_resource|
      is_reference_match?(base_resource.medicationReference.reference, medication_reference)
    end
  end

  not_matched_included_medications_string = not_matched_included_medications.join(',')
  assert not_matched_included_medications.empty?,
         "No #{resource_type} references #{not_matched_included_medications_string} in the search result."

  medications.uniq!(&:id)

  scratch[:medication_resources][:all] += medications
  scratch[:medication_resources][patient_id] += medications

  search_variant_test_records[:medication_inclusion] = true
end

#unable_to_resolve_params_message ⇒ Object 



561
562
563
 
# File 'lib/pacio_inferno_core/search_test.rb', line 561

def unable_to_resolve_params_message
  "Could not find values for all search params #{array_of_codes(search_param_names)}"
end

#unescape_search_value(value) ⇒ Object 



741
742
743
 
# File 'lib/pacio_inferno_core/search_test.rb', line 741

def unescape_search_value(value)
  value&.gsub('\\,', ',')
end