fix shutdown issues and remove xig and packages endpoints + remove logging

Author: Grahame Grieve

library/ftx/ftx_service.pas

@@ -687,32 +687,17 @@ function TConceptDesignations.langCode: String;
 function TConceptDesignations.displayCount(langList : THTTPLanguageList; defLang : TIETFLang; displayOnly : boolean): integer;
 var
   cd : TConceptDesignation;
-  s : String;
 begin
-  if (langList = nil) then
-    s := 'Check for display count. Langs = --'
-  else
-    s := 'Check for display count. Langs = '+langList.source;
-  if (defLang = nil) then
-    s := s + ', def = nil'
-  else
-    s := s + ', def = '+defLang.code;
-  Logging.log(s);
-  for cd in designations do
-    Logging.log(' *'+cd.present);
-
   result := 0;
   for cd in FDesignations do
     if (not displayOnly or cd.base or isDisplay(cd)) and langsMatch(langList, cd.language, lmtFull, defLang) and (cd.value <> nil) then
     begin
-      Logging.log('count #1 '+cd.present);
       inc(result);
     end;
   if result = 0 then
     for cd in FDesignations do
       if (not displayOnly or cd.base or isDisplay(cd)) and langsMatch(langList, cd.language, lmtLangRegion, defLang) and (cd.value <> nil) then
       begin
-        Logging.log('count #2 '+cd.present);
         inc(result);
       end;
 end;

packages/fhir.lpk

@@ -367,6 +367,10 @@
         <Filename Value="..\library\fhir\fhir_tx.pas"/>
         <UnitName Value="fhir_tx"/>
       </Item>
+      <Item>
+        <Filename Value="..\library\fhir\fhir_vcl.pas"/>
+        <UnitName Value="fhir_vcl"/>
+      </Item>
     </Files>
     <RequiredPkgs>
       <Item>

packages/fhir.pas

@@ -28,7 +28,7 @@ interface
   v2_protocol, dicom_dictionary, dicom_jpegls, dicom_objects, dicom_parser, 
   dicom_writer, ftx_lang, fhir_healthcard, fhir_context, fhir_icao, 
   fhir_qrcode, qrcodegen, fhir_colour_utils, fhir_package_upload, 
-  fhir_tools_settings, fhir_extensions, fhir_tx, LazarusPackageIntf;
+  fhir_tools_settings, fhir_extensions, fhir_tx, fhir_vcl, LazarusPackageIntf;
 
 implementation
 

server/FHIRServer.dpr

@@ -123,7 +123,6 @@ uses
   endpoint_full in 'endpoint_full.pas',
   endpoint_icao in 'endpoint_icao.pas',
   endpoint_loinc in 'endpoint_loinc.pas',
-  endpoint_packages in 'endpoint_packages.pas',
   endpoint_snomed in 'endpoint_snomed.pas',
   endpoint_storage in 'endpoint_storage.pas',
   endpoint_twilio in 'endpoint_twilio.pas',