fix error getting LOINC answer description

HealthIntersections · Jan 28, 2024 · db211ce · db211ce
1 parent 62f2986
commit db211ce
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/library/ftx/ftx_loinc_services.pas b/library/ftx/ftx_loinc_services.pas
@@ -2217,13 +2217,13 @@ procedure TLOINCServices.Designations(context: TCodeSystemProviderContext; list:
           end;
         end;
       End;
-    lpckPart:
+    lpckAnswer:
       begin
         AnswerLists.GetEntry(ctxt.index, iCode, iDescription, iAnswers);
         s := Desc.GetEntry(iDescription, ilang);
         list.addDesignation(true, true, FLangs[iLang], s.Trim);
       end;
-    lpckAnswer:
+    lpckPart:
       begin
         FEntries.GetEntry(ctxt.index, iCode, text, parents, children, concepts, descendentConcepts, stems);
         s := Desc.GetEntry(text, ilang).Trim;

diff --git a/library/ftx/ftx_sct_services.pas b/library/ftx/ftx_sct_services.pas
@@ -2488,7 +2488,12 @@ function TSnomedServices.LastUseStatus: String;
 
 procedure TSnomedServices.RecordUse(count: integer);
 begin
-  FUseCount := FUseCount + count;
+  FLock.lock('use');
+  try
+    FUseCount := FUseCount + count;
+  finally
+    FLock.unlock;
+  end;
 end;
 
 function TSnomedServices.buildValueSet(factory : TFHIRFactory; url : String): TFhirValueSetW;