Fix CDAWriter.WriteANY writes double attributes xsi:type="CD"

Saxos-Simone · Mar 5, 2024 · 877fc40 · 877fc40
1 parent 25b8c64
commit 877fc40
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/library/cda/cda_writer.pas b/library/cda/cda_writer.pas
@@ -961,7 +961,7 @@ procedure TCDAWriter.WriteCDA(oXml: TXmlBuilder; oDoc: TcdaClinicalDocument);
     if (oDT is Tv3PQ) Then
       WritePQ(sPath, oXml, sName, oDT as Tv3PQ, bOptional)
     Else if (oDT is Tv3CD) Then
-      WriteCD(sPath, oXml, sName, oDT as Tv3CD, bOptional, true)
+      WriteCD(sPath, oXml, sName, oDT as Tv3CD, bOptional)
     Else if (oDT is Tv3BL) Then
       WriteBL(sPath, oXml, sName, oDT as Tv3BL, bOptional)
     Else if (oDT is Tv3CS) Then