diff --git a/library/fhir3/fhir3_parser.pas b/library/fhir3/fhir3_parser.pas index b8f6b14ac..37cc5c17c 100644 --- 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 index bba5d5e8c..3a85aa0e3 100644 --- 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 index 77da0125e..dbf8a11a4 100644 --- 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 index 4d525a542..2e35d45a5 100644 --- 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');