release notes

costateixeira · Feb 18, 2025 · 5013754 · 5013754
1 parent 8bb151a
commit 5013754
Show file tree

Hide file tree

Showing 4 changed files with 34 additions and 33 deletions.
diff --git a/server/fhirconsole.lpi b/server/fhirconsole.lpi
@@ -1,3 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="12"/>
@@ -219,7 +220,10 @@
             </Debugging>
           </Linking>
           <Other>
-            <CustomOptions Value="-WM11.0&#10;-XR/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk&#10;-gw2&#10;-gw3"/>
+            <CustomOptions Value="-WM11.0
+-XR/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX.sdk
+-gw2
+-gw3"/>
           </Other>
         </CompilerOptions>
       </Item6>
@@ -508,7 +512,7 @@
         <Name Value="ELibraryException"/>
       </Item3>
       <Item4>
-        <Name Value="&lt;Unknown Class&gt;"/>
+        <Name Value="&lt;Unknown Class>"/>
       </Item4>
       <Item5>
         <Name Value="0000000eEIdSocketError"/>

diff --git a/server/fhirserver.lpi b/server/fhirserver.lpi
@@ -1,3 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
     <Version Value="12"/>
@@ -1017,7 +1018,7 @@
         <Name Value="EPackageCrawlerException"/>
       </Item50>
       <Item51>
-        <Name Value="&lt;Unknown Class&gt;"/>
+        <Name Value="&lt;Unknown Class>"/>
       </Item51>
       <Item52>
         <Name Value="EDateFormatError"/>

diff --git a/server/tx/tx_rxnorm.pas b/server/tx/tx_rxnorm.pas
@@ -908,8 +908,32 @@ function TUMLSServices.version: String;
 end;
 
 function TUMLSServices.IsInactive(opContext: TTxOperationContext; context: TCodeSystemProviderContext): boolean;
+var
+  qry : TFDBConnection;
 begin
-  result := TUMLSConcept(context).FArchived;
+  if TUMLSConcept(context).FArchived then
+    result := true
+  else
+  begin
+    qry := db.GetConnection(dbprefix+'.extendLookup');
+    try
+      qry.SQL := 'Select suppress from rxnconso where '+getCodeField+' = :code and SAB = '''+getSAB+''' and TTY <> ''SY''';
+      qry.prepare;
+      qry.BindString('code', TUMLSConcept(context).FCode);
+      qry.execute;
+      qry.FetchNext;
+      result := qry.colinteger[1] = 1;
+      qry.Terminate;
+      qry.Release;
+    except
+      on e : Exception do
+      begin
+        qry.Error(e);
+        recordStack(e);
+        raise;
+      end;
+    end;
+  end;
 end;
 
 destructor TUMLSServices.Destroy;
@@ -939,35 +963,6 @@ procedure TUMLSServices.extendLookup(opContext : TTxOperationContext; factory :
   list: TConceptDesignations;
   cd : TConceptDesignation;
 begin
-  if hasProp(props, 'inactive', true) then
-  begin
-    qry := db.GetConnection(dbprefix+'.extendLookup');
-    try
-      qry.SQL := 'Select suppress from rxnconso where '+getCodeField+' = :code and SAB = '''+getSAB+''' and TTY <> ''SY''';
-      qry.prepare;
-      qry.BindString('code', TUMLSConcept(ctxt).FCode);
-      qry.execute;
-      qry.FetchNext;
-      b := qry.colinteger[1] = 1;
-      qry.Terminate;
-      qry.Release;
-    except
-      on e : Exception do
-      begin
-        qry.Error(e);
-        recordStack(e);
-        raise;
-      end;
-    end;
-
-    if factory.version <> fhirVersionRelease2 then
-    begin
-      p := resp.addProp('inactive');
-      p.value := factory.makeBoolean(b);
-    end
-    else
-      resp.addExtension('inactive', b);
-  end;
   list := TConceptDesignations.Create(Factory.link, FLanguages.link);
   try
     Designations(opContext, ctxt, list);

diff --git a/server/zero_config.pas b/server/zero_config.pas
@@ -548,6 +548,7 @@ function loadRemoteConfig(params : TCommandLineParameters; src : String; local :
   cb : TConfigurationBuilder;
   dir : String;
 begin
+  Logging.log('Zero Configuration from '+src);
   SetThreadStatus('loadRemoteConfig');
   dir := local.ReadString('config', 'local', UserFolder);