Stop loading narrative in terminology server

HealthIntersections · Nov 23, 2024 · 482b1a8 · 482b1a8
1 parent 38b14be
commit 482b1a8
Show file tree

Hide file tree

Showing 7 changed files with 8 additions and 0 deletions.
diff --git a/library/fhir/fhir_common.pas b/library/fhir/fhir_common.pas
@@ -1564,6 +1564,7 @@   TFHIRResourceProxyV = class abstract (TFslObject)
     FFhirObjectVersion : TFHIRVersion;
     FFhirType : String;
     FId  : String;
+    FIgnoreHtml: boolean;
     FPackageId: String;
     FSupplements: String;
     FUrl : String;
@@ -1592,6 +1593,7 @@   TFHIRResourceProxyV = class abstract (TFslObject)
     property supplements : String read FSupplements;
     property content : String read FContent;
     property valueSet : String read FValueSet;
+    property ignoreHtml : boolean read FIgnoreHtml write FIgnoreHtml;
 
     property resourceV : TFHIRResourceV read GetResourceV;
     property resourceW : TFHIRXVersionResourceWrapper read getResourceW;

diff --git a/library/fhir2/fhir2_context.pas b/library/fhir2/fhir2_context.pas
@@ -197,6 +197,7 @@ procedure TFHIRResourceProxy.loadResource;
 
   p := FFactory.makeParser(FWorker, ffJson, nil);
   try
+    p.IgnoreHtml := ignoreHtml;
     stream := TFileStream.Create(FInfo.filename, fmOpenRead + fmShareDenyWrite);
     try
       try

diff --git a/library/fhir3/fhir3_context.pas b/library/fhir3/fhir3_context.pas
@@ -202,6 +202,7 @@ procedure TFHIRResourceProxy.loadResource;
 
   p := FFactory.makeParser(FWorker, ffJson, nil);
   try
+    p.IgnoreHtml := ignoreHtml;
     stream := TFileStream.Create(FInfo.filename, fmOpenRead + fmShareDenyWrite);
     try
       try

diff --git a/library/fhir4/fhir4_context.pas b/library/fhir4/fhir4_context.pas
@@ -243,6 +243,7 @@ procedure TFHIRResourceProxy.loadResource;
 
   p := FFactory.makeParser(FWorker, ffJson, nil);
   try
+    p.IgnoreHtml := ignoreHtml;
     stream := TFileStream.Create(FInfo.filename, fmOpenRead + fmShareDenyWrite);
     try
       try

diff --git a/library/fhir4b/fhir4b_context.pas b/library/fhir4b/fhir4b_context.pas
@@ -242,6 +242,7 @@ procedure TFHIRResourceProxy.loadResource;
 
   p := FFactory.makeParser(FWorker, ffJson, nil);
   try
+    p.IgnoreHtml := ignoreHtml;
     stream := TFileStream.Create(FInfo.filename, fmOpenRead + fmShareDenyWrite);
     try
       try

diff --git a/library/fhir5/fhir5_context.pas b/library/fhir5/fhir5_context.pas
@@ -280,6 +280,7 @@ procedure TNpmResourceProxy.loadResource;
 
   p := FFactory.makeParser(FWorker, ffJson, nil);
   try
+    p.IgnoreHtml := ignoreHtml;
     stream := TFileStream.Create(FInfo.filename, fmOpenRead + fmShareDenyWrite);
     try
       try

diff --git a/server/endpoint_txsvr.pas b/server/endpoint_txsvr.pas
@@ -1452,6 +1452,7 @@ procedure TTerminologyFhirServerStorage.loadPackage(pid: String; ignoreEmptyCode
                 Logging.continue('.');
               res := factory.makeProxy(npm.name+'#'+npm.version, pi.Link, FServerContext.ValidatorContext.Link, FLock.link);
               try
+                res.ignoreHtml := true;
                 loadResource(res, ignoreEmptyCodeSystems);
               finally
                 res.free;
-Original file line number
+Diff line change
@@ Expand Up / @@ -197,6 +197,7 @@ procedure TFHIRResourceProxy.loadResource; @@
       p := FFactory.makeParser(FWorker, ffJson, nil);
       try
+        p.IgnoreHtml := ignoreHtml;
         stream := TFileStream.Create(FInfo.filename, fmOpenRead + fmShareDenyWrite);
         try
           try
@@ Expand Down @@