fix snomed version wrangling routine

Author: Grahame Grieve

library/ftx/ftx_sct_services.pas

@@ -667,7 +667,6 @@   TSnomedServices = class (TFslObject)
     function ReferenceSetExists(sid : String) : Boolean;
     function getRefSet(id : int64) : TSnomedReferenceSetMemberArray;
     function systemUri : String;
-    function versionIsMoreDetailed(v1, v2 : String): boolean; virtual;
 
     // status stuff
     Property VersionUri : String read FVersionUri write SetVersionUri;
@@ -757,6 +756,7 @@   TSnomedProvider = class (TCodeSystemProvider)
 
     function defToThisVersion(specifiedVersion : String) : boolean; override;
     procedure defineFeatures(features : TFslList<TFHIRFeature>); override;
+    function versionIsMoreDetailed(v1, v2 : String): boolean; override;
 
     property Services : TSnomedServices read FSct;
   end;
@@ -3505,11 +3505,6 @@ function TSnomedServices.systemUri: String;
   result := URI_SNOMED;
 end;
 
-function TSnomedServices.versionIsMoreDetailed(v1, v2: String): boolean;
-begin
-  result := (v2 <> '') and v2.startsWith(v1);
-end;
-
 function TSnomedServices.GetRefsetIndex: TSnomedReferenceSetIndex;
 begin
   result := FRefSetIndex;
@@ -4753,6 +4748,11 @@ procedure TSnomedProvider.defineFeatures(features: TFslList<TFHIRFeature>);
   features.Add(TFHIRFeature.fromString('rest.Codesystem:'+systemUri+'.filter', 'concept:in'));
 end;
 
+function TSnomedProvider.versionIsMoreDetailed(v1, v2: String): boolean;
+begin
+  result := (v2 <> '') and v2.startsWith(v1);
+end;
+
 function TSnomedProvider.Definition(context: TCodeSystemProviderContext): string;
 begin
   result := '';