improve supplement error message

costateixeira · Feb 11, 2025 · e9be765 · e9be765
1 parent 584704f
commit e9be765
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/library/ftx/ftx_service.pas b/library/ftx/ftx_service.pas
@@ -1046,8 +1046,14 @@ function TCodeSystemProvider.Link: TCodeSystemProvider;
 end;
 
 function TCodeSystemProvider.cloneWithSupplements(supplements: TFslList<TFhirCodeSystemW>): TCodeSystemProvider;
+var
+  s : String;
+  cs : TFhirCodeSystemW;
 begin
-  raise ETerminologyError.create('The codesystem '+systemUri()+' does not support supplements');
+  s := '';
+  for cs in supplements do 
+    CommaAdd(s, cs.vurl);
+  raise ETerminologyError.create('The codesystem '+systemUri()+' does not support supplements: '+s);
 end;
 
 function TCodeSystemProvider.locate(opContext : TTxOperationContext; code: String; altOpt : TAlternateCodeOptions= nil): TCodeSystemProviderContext;