Add support for Chilean Snomed

Author: Grahame Grieve

library/ftx/fhir_valuesets.pas

@@ -1441,7 +1441,7 @@ function TValueSetChecker.check(issuePath : String; coding: TFhirCodingW; abstra
               result.addParamStr('status', vstatus);
             msg := FI18n.translate('INACTIVE_CONCEPT_FOUND', FParams.HTTPLanguages, [vstatus, coding.code]);
             messages.add(msg);
-            op.addIssue(isWarning, itInvalid, path, 'INACTIVE_CONCEPT_FOUND', msg, oicCodeComment);
+            op.addIssue(isWarning, itBusinessRule, path, 'INACTIVE_CONCEPT_FOUND', msg, oicCodeComment);
           end;
         end
         else if (ok = bUnknown) then
@@ -2015,7 +2015,7 @@ function TValueSetChecker.check(issuePath : String; code: TFhirCodeableConceptW;
             result.addParamStr('status', vstatus);
           m := FI18n.translate('INACTIVE_CONCEPT_FOUND', FParams.HTTPLanguages, [vstatus, tcode]);
           msg(m);
-          op.addIssue(isWarning, itInvalid, path, 'INACTIVE_CONCEPT_FOUND', m, oicCodeComment);
+          op.addIssue(isWarning, itBusinessRule, path, 'INACTIVE_CONCEPT_FOUND', m, oicCodeComment);
         end;
         if mt.count > 0 then
         begin
@@ -2093,7 +2093,7 @@ function TValueSetChecker.check(issuePath, system, version, code: String; inferS
                 result.addParamStr('status', vstatus);
               msg := FI18n.translate('INACTIVE_CONCEPT_FOUND', FParams.HTTPLanguages, [vstatus, code]);
               messages.add(msg);
-              op.addIssue(isWarning, itInvalid, 'code', 'INACTIVE_CONCEPT_FOUND', msg, oicCodeComment);
+              op.addIssue(isWarning, itBusinessRule, 'code', 'INACTIVE_CONCEPT_FOUND', msg, oicCodeComment);
             end;
           end
           else if (ok = bUnknown) then

library/ftx/ftx_sct_services.pas

@@ -2130,6 +2130,7 @@ function TSnomedServices.GetEditionName: String;
   else if FEditionId = '83821000000107' then result := 'UK Edition'
   else if FEditionId = '999000021000000109' then result := 'UK Clinical Edition'
   else if FEditionId = '5631000179106' then result := 'Uruguay Edition'
+  else if FEditionId = '21000325107' then result := 'Chilean Edition'
   else if FEditionId = '731000124108' then result := 'US Edition'
   else if FEditionId = '5991000124107' then result := 'US Edition (with ICD-10-CM maps)'
   else if FEditionId = inttostr(COMBINED_MODULE_ID) then

server/console_form.lfm

@@ -3170,6 +3170,7 @@ object MainConsoleForm: TMainConsoleForm
                   'Belgian'
                   'Canadian English'
                   'Canadian French'
+                  'Chile',
                   'Czech'
                   'Danish'
                   'Estonian'

server/console_form.pas

@@ -3205,27 +3205,28 @@ function TMainConsoleForm.getSnomedModule: String;
     5: { Belgian } result := '11000172109';
     6: { Canadian English } result := '20621000087109';
     7: { Canadian Canadian French } result := '20611000087101';
-    8: { Czech } result := '11000279109';
-    9: { Danish } result := '554471000005108';
-   10: { Estonian } result := '11000181102';
-   11: { Finnish } result := '11000229106';
-   12: { German } result := '11000274103';
-   13: { Indian } result := '1121000189102';
-   14: { Irish } result := '11000220105';
-   15: { Netherlands } result := '11000146104';
-   16: { New Zealand } result := '21000210109';
-   17: { Norwegian } result := '51000202101';
-   18: { Republic of Korea (South Korea) } result := '11000267109';
-   19: { Spanish National } result := '900000001000122104';
-   20: { Swedish } result := '45991000052106';
-   21: { Swiss } result := '2011000195101';
-   22: { UK } result := '83821000000107';
-   23: { UK Clinical } result := '999000021000000109';
-   24: { Uruguay } result := '5631000179106';
-   25: { US } result := '731000124108';
-   26: { US (with ICD-10-CM maps) } result := '5991000124107';
-   27: { IPS Terminology } result := '827022005';
-   28: { Combined } result := inttostr(COMBINED_MODULE_ID);
+    8: { Chilean } result := '21000325107';
+    9: { Czech } result := '11000279109';
+   10: { Danish } result := '554471000005108';
+   11: { Estonian } result := '11000181102';
+   12: { Finnish } result := '11000229106';
+   13: { German } result := '11000274103';
+   14: { Indian } result := '1121000189102';
+   15: { Irish } result := '11000220105';
+   16: { Netherlands } result := '11000146104';
+   17: { New Zealand } result := '21000210109';
+   18: { Norwegian } result := '51000202101';
+   19: { Republic of Korea (South Korea) } result := '11000267109';
+   20: { Spanish National } result := '900000001000122104';
+   21: { Swedish } result := '45991000052106';
+   22: { Swiss } result := '2011000195101';
+   23: { UK } result := '83821000000107';
+   24: { UK Clinical } result := '999000021000000109';
+   25: { Uruguay } result := '5631000179106';
+   26: { US } result := '731000124108';
+   27: { US (with ICD-10-CM maps) } result := '5991000124107';
+   28: { IPS Terminology } result := '827022005';
+   29: { Combined } result := inttostr(COMBINED_MODULE_ID);
   end;
 end;