fix status handling on server

Author: Grahame Grieve

library/ftx/fhir_valuesets.pas

@@ -2161,6 +2161,7 @@ function TValueSetChecker.checkConceptSet(path : String; cs: TCodeSystemProvider
   cc : TFhirValueSetComposeIncludeConceptW;
   cfl : TFslList<TFhirValueSetComposeIncludeFilterW>;
 begin
+  inactive := false;
   result := false;
   if (not cset.hasConcepts) and (not cset.hasFilters) then
   begin
@@ -2268,6 +2269,8 @@ function TValueSetChecker.checkConceptSet(path : String; cs: TCodeSystemProvider
               op.addIssue(isWarning, itBusinessRule, addToPath(path, 'code'), 'CONCEPT_DEPRECATED_IN_VALUESET', FI18n.translate('CONCEPT_DEPRECATED_IN_VALUESET', FParams.HTTPLanguages, [cs.systemUri, code, sstatus, vs.vurl]), oicCodeComment)
             else if cc.hasExtension('http://hl7.org/fhir/StructureDefinition/valueset-deprecated') then
               op.addIssue(isWarning, itBusinessRule, addToPath(path, 'code'), 'CONCEPT_DEPRECATED_IN_VALUESET', FI18n.translate('CONCEPT_DEPRECATED_IN_VALUESET', FParams.HTTPLanguages, [cs.systemUri, code, 'deprecated', vs.vurl]), oicCodeComment);
+            inactive := cs.IsInactive(FOpContext, loc);
+            vstatus := cs.getCodeStatus(FOpContext, loc);
             result := true;
             exit;
           end;

server/server_constants.pas

@@ -33,7 +33,7 @@
 interface
 
 const
-  TX_TESTS_VERSION = '1.7.8';
+  TX_TESTS_VERSION = '1.8.0';
 
   {$i version.inc}
   SERVER_FULL_VERSION = FHIR_CODE_FULL_VERSION;