Skip to content

Commit

Permalink
release notes
Browse files Browse the repository at this point in the history
  • Loading branch information
Grahame Grieve committed Nov 27, 2024
1 parent f926a88 commit a3c2a85
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
4 changes: 2 additions & 2 deletions release-notes.md
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
## Change Notes:

*
* Add support for code = / concept = filters on $expand

## Conformance Notes:

*
* tx.fhir.org passed all HL7 terminology service tests (mode 'tx.fhir.org', tests v1.6.6, runner v6.4.0)
4 changes: 2 additions & 2 deletions server/tx_server.pas
Original file line number Diff line number Diff line change
Expand Up @@ -562,7 +562,7 @@ function TTerminologyServer.isKnownValueSet(id: String; out vs: TFhirValueSetW):
if id.Contains('|') then
id := id.Substring(0, id.IndexOf('|'));

if id.StartsWith('http://snomed.info/') then
if (CommonTerminologies.DefSnomed <> nil) and (id.StartsWith('http://snomed.info/')) then
begin
vs := CommonTerminologies.DefSnomed.buildValueSet(Factory, id);
if (vs = nil) then
Expand All @@ -575,7 +575,7 @@ function TTerminologyServer.isKnownValueSet(id: String; out vs: TFhirValueSetW):
end;
end;
end
else if id.StartsWith('http://loinc.org/vs/LP') or id.StartsWith('http://loinc.org/vs/LL') then
else if (CommonTerminologies.Loinc <> nil) and (id.StartsWith('http://loinc.org/vs/LP') or id.StartsWith('http://loinc.org/vs/LL')) then
vs := CommonTerminologies.Loinc.buildValueSet(Factory, id)
else if id = 'http://loinc.org/vs' then
vs := CommonTerminologies.Loinc.buildValueSet(Factory, '')
Expand Down

0 comments on commit a3c2a85

Please sign in to comment.