From f62af6ceb27c138806976443e9090dd5e8a57c5b Mon Sep 17 00:00:00 2001
From: Grahame Grieve <grahameg@gmail.com>
Date: Mon, 15 Nov 2021 09:26:09 +1100
Subject: [PATCH] fix bug in language validation + delphi fixes for new release
 process.

---
 library/fhir2/fhir2_common.pas | 2 +-
 library/fhir3/fhir3_common.pas | 2 +-
 library/fhir4/fhir4_common.pas | 2 +-
 library/fhir5/fhir5_common.pas | 4 ++--
 library/fsl/fsl_utilities.pas  | 4 ++--
 library/ftx/ftx_lang.pas       | 2 +-
 6 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/library/fhir2/fhir2_common.pas b/library/fhir2/fhir2_common.pas
index 31c65d1d0..62a420ae5 100644
--- a/library/fhir2/fhir2_common.pas
+++ b/library/fhir2/fhir2_common.pas
@@ -1508,7 +1508,7 @@ procedure TFHIRCapabilityStatement2.software(name, version, release: String);
     statement.software := TFhirCapabilityStatementSoftware.Create;
   statement.software.name := name;
   statement.software.version := version;
-  statement.software.releaseDate := TFslDateTime.fromXml(release);
+  statement.software.releaseDate := TFslDateTime.fromHL7(release);
 end;
 
 function TFHIRCapabilityStatement2.getDescription : String;
diff --git a/library/fhir3/fhir3_common.pas b/library/fhir3/fhir3_common.pas
index 2fba547e3..744852e39 100644
--- a/library/fhir3/fhir3_common.pas
+++ b/library/fhir3/fhir3_common.pas
@@ -1618,7 +1618,7 @@ procedure TFHIRCapabilityStatement3.software(name, version, release: String);
     statement.software := TFhirCapabilityStatementSoftware.Create;
   statement.software.name := name;
   statement.software.version := version;
-  statement.software.releaseDate := TFslDateTime.fromXml(release);
+  statement.software.releaseDate := TFslDateTime.fromHL7(release);
 end;
 
 function TFHIRCapabilityStatement3.getDescription : String;
diff --git a/library/fhir4/fhir4_common.pas b/library/fhir4/fhir4_common.pas
index 62aa25d74..857ef512d 100644
--- a/library/fhir4/fhir4_common.pas
+++ b/library/fhir4/fhir4_common.pas
@@ -1603,7 +1603,7 @@ procedure TFHIRCapabilityStatement4.software(name, version, release: String);
     statement.software := TFhirCapabilityStatementSoftware.Create;
   statement.software.name := name;
   statement.software.version := version;
-  statement.software.releaseDate := TFslDateTime.fromXml(release);
+  statement.software.releaseDate := TFslDateTime.fromHL7(release);
 end;
 
 function TFHIRCapabilityStatement4.getDescription : String;
diff --git a/library/fhir5/fhir5_common.pas b/library/fhir5/fhir5_common.pas
index 13269d769..1392ffde0 100644
--- a/library/fhir5/fhir5_common.pas
+++ b/library/fhir5/fhir5_common.pas
@@ -1670,7 +1670,7 @@ procedure TFHIRCapabilityStatement5.software(name, version, release: String);
     statement.software := TFhirCapabilityStatementSoftware.Create;
   statement.software.name := name;
   statement.software.version := version;
-  statement.software.releaseDate := TFslDateTime.fromXml(release);
+  statement.software.releaseDate := TFslDateTime.fromHL7(release);
 end;
 
 function TFHIRCapabilityStatement5.getDescription : String;
@@ -5964,7 +5964,7 @@ procedure TFHIRCapabilityStatement25.software(name, version, release: String);
     statement.software := TFhirCapabilityStatement2Software.Create;
   statement.software.name := name;
   statement.software.version := version;
-  statement.software.releaseDate := TFslDateTime.fromXml(release);
+  statement.software.releaseDate := TFslDateTime.fromHL7(release);
 end;
 
 function TFHIRCapabilityStatement25.getDescription : String;
diff --git a/library/fsl/fsl_utilities.pas b/library/fsl/fsl_utilities.pas
index 9f6d438d4..bbc897204 100644
--- a/library/fsl/fsl_utilities.pas
+++ b/library/fsl/fsl_utilities.pas
@@ -3319,7 +3319,7 @@ function DownloadsFolder: String;
     if not FolderExists(result) then
       result := FilePath([UserFolder, 'Downloads']);
     if not FolderExists(result) then
-      result := GetTempDir;
+      result := SystemTemp;
   finally
     reg.free;
   end;
@@ -3328,7 +3328,7 @@ function DownloadsFolder: String;
 begin
   result := FilePath([UserFolder, 'Downloads']);
   if not FolderExists(result) then
-    result := GetTempDir;
+    result := SystemTemp;
 end;
 {$ENDIF}
 
diff --git a/library/ftx/ftx_lang.pas b/library/ftx/ftx_lang.pas
index 16caca2a1..0581dcbf9 100644
--- a/library/ftx/ftx_lang.pas
+++ b/library/ftx/ftx_lang.pas
@@ -368,7 +368,7 @@ destructor TIETFLanguageCodeConcept.Destroy;
 
 function TIETFLanguageCodeConcept.Link: TIETFLanguageCodeConcept;
 begin
-  result := TIETFLanguageCodeConcept(inherited create);
+  result := TIETFLanguageCodeConcept(inherited link);
 end;
 
 end.