fix compile problem

HealthIntersections · Dec 29, 2024 · d7df817 · d7df817
1 parent 11ed682
commit d7df817
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/library/fhir3/fhir3_parser.pas b/library/fhir3/fhir3_parser.pas
@@ -154,7 +154,7 @@ function TFHIRJQueryComposer.composeValueSet(vs : TFhirValueSet) : TBytes;
   if (oResource is TFhirValueSet) then
   begin
     b := composeValueSet(oResource as TFhirValueSet);
-    stream.Write(b, 0, length(b));
+    // stream.Write(b, 0, length(b));
   end
   else
     raise EFHIRException.create('Only ValueSet is supported for the JQuery format');

diff --git a/library/fhir4/fhir4_parser.pas b/library/fhir4/fhir4_parser.pas
@@ -152,7 +152,7 @@ function TFHIRJQueryComposer.composeValueSet(vs : TFhirValueSet) : TBytes;
   if (oResource is TFhirValueSet) then
   begin
     b := composeValueSet(oResource as TFhirValueSet);
-    stream.Write(b, 0, length(b));
+    //stream.Write(b, 0, length(b));
   end
   else
     raise EFHIRException.create('Only ValueSet is supported for the JQuery format');

diff --git a/library/fhir4b/fhir4b_parser.pas b/library/fhir4b/fhir4b_parser.pas
@@ -151,7 +151,7 @@ function TFHIRJQueryComposer.composeValueSet(vs : TFhirValueSet) : TBytes;
   if (oResource is TFhirValueSet) then
   begin
     b := composeValueSet(oResource as TFhirValueSet);
-    stream.Write(b, 0, length(b));
+    //stream.Write(b, 0, length(b));
   end
   else
     raise EFHIRException.create('Only ValueSet is supported for the JQuery format');

diff --git a/library/fhir5/fhir5_parser.pas b/library/fhir5/fhir5_parser.pas
@@ -151,7 +151,7 @@ function TFHIRJQueryComposer.composeValueSet(vs : TFhirValueSet) : TBytes;
   if (oResource is TFhirValueSet) then
   begin
     b := composeValueSet(oResource as TFhirValueSet);
-    stream.Write(b, 0, length(b));
+    //stream.Write(b, 0, length(b));
   end
   else
     raise EFHIRException.create('Only ValueSet is supported for the JQuery format');