From 0f42b326d1261606c5dcf2d4576f0ea329dbb6d7 Mon Sep 17 00:00:00 2001 From: Grahame Grieve Date: Wed, 19 Feb 2025 12:12:13 +1030 Subject: [PATCH] Fix LOINC filter on $validate-code --- library/ftx/ftx_loinc_services.pas | 4 ++-- release-notes.md | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/library/ftx/ftx_loinc_services.pas b/library/ftx/ftx_loinc_services.pas index 329843407..1b45d9a99 100644 --- a/library/ftx/ftx_loinc_services.pas +++ b/library/ftx/ftx_loinc_services.pas @@ -917,12 +917,12 @@ function TLOINCServices.doesFilter(opContext : TTxOperationContext; prop: String reg : TRegularExpression; begin result := false; - if (FRelationships.ContainsKey(prop) and (op = foEqual)) then + if (FRelationships.ContainsKey(prop) and (op in [foEqual, foIn])) then if FCodes.ContainsKey(value) then result := true else result := true - else if (FProperties.ContainsKey(prop) and (op = foEqual)) then + else if (FProperties.ContainsKey(prop) and (op in [foEqual, foIn])) then result := true else if (FRelationships.ContainsKey(prop) and (op = foExists)) then if FCodes.ContainsKey(value) then diff --git a/release-notes.md b/release-notes.md index b3d636a04..12352aa1e 100644 --- a/release-notes.md +++ b/release-notes.md @@ -1,7 +1,7 @@ ## Change Notes: -* +* Fix LOINC filter on $validate-code ## Conformance Notes: -* \ No newline at end of file +* tx.fhir.org passed all 299 HL7 terminology service tests (mode 'tx.fhir.org', tests v1.7.5, runner v6.5.9) \ No newline at end of file