form adjustmnets

Author: Grahame Grieve

ipsmanager/forms/frm_home.lfm

@@ -1,7 +1,7 @@
 object IPSManagerForm: TIPSManagerForm
   Left = 350
   Height = 567
-  Top = 44
+  Top = 288
   Width = 1197
   Caption = 'Patient Summary Manager'
   ClientHeight = 567

server/tx/tx_hgvs.pas

@@ -228,29 +228,28 @@ function THGVSProvider.locate(code: String; altOpt : TAlternateCodeOptions; var
 var
   json, o : TJsonObject;
 begin
-  raise ETerminologyError.create('HGVS is not supported at this time');
-  //try
-  //  json := TInternetFetcher.fetchJson('https://mutalyzer.nl/json/checkSyntax?variant='+code, 5000);
-  //  try
-  //    if json.bool['valid'] then
-  //    begin
-  //      result := THGVSCode.Create;
-  //      THGVSCode(result).code := code;
-  //    end
-  //    else
-  //    begin
-  //      result := nil;
-  //      message := '';
-  //      for o in json.forceArr['messages'].asObjects.forEnum do
-  //        CommaAdd(message, o.str['message']);
-  //    end;
-  //  finally
-  //    json.free;
-  //  end;
-  //except
-  //  on e : Exception do
-  //    raise EFHIRException.Create('Error parsing HGVS response: '+e.message);
-  //end;
+  result := nil;
+  message := '';
+  try
+    json := TInternetFetcher.fetchJson('https://clinicaltables.nlm.nih.gov/fhir/R4/CodeSystem/hgvs/$validate-code?code='+code, 5000);
+    try
+      for o in json.forceArr['parameter'].asObjects.forEnum do
+      begin
+        if (o.str['name'] = 'result') and (o.bool['valueBoolean']) then
+        begin
+          result := THGVSCode.Create;
+          THGVSCode(result).code := code;
+        end
+        else if (o.str['name'] = 'message') then
+          CommaAdd(message, o.str['message']);
+      end;
+    finally
+      json.free;
+    end;
+  except
+    on e : Exception do
+      raise EFHIRException.Create('Error parsing HGVS response: '+e.message);
+  end;
 end;
 
 function THGVSProvider.locateIsA(code, parent: String; disallowParent : boolean = false): TCodeSystemProviderContext;

toolkit2/dialogs/frm_about.lfm

@@ -1,7 +1,7 @@
 object ToolkitAboutForm: TToolkitAboutForm
   Left = 474
   Height = 223
-  Top = 228
+  Top = 472
   Width = 530
   BorderIcons = []
   BorderStyle = bsNone
@@ -577,9 +577,9 @@ object ToolkitAboutForm: TToolkitAboutForm
     object Label1: TLabel
       Cursor = crHandPoint
       Left = 216
-      Height = 15
+      Height = 16
       Top = 152
-      Width = 263
+      Width = 295
       Caption = 'https://github.com/HealthIntersections/fhirserver'
       Font.Color = 10485760
       Font.Style = [fsUnderline]
@@ -589,9 +589,9 @@ object ToolkitAboutForm: TToolkitAboutForm
     object Label2: TLabel
       Cursor = crHandPoint
       Left = 216
-      Height = 15
+      Height = 16
       Top = 187
-      Width = 77
+      Width = 94
       Caption = 'License: BSD-3'
       Font.Color = 10485760
       Font.Style = [fsUnderline]
@@ -600,9 +600,9 @@ object ToolkitAboutForm: TToolkitAboutForm
     end
     object Label3: TLabel
       Left = 216
-      Height = 15
+      Height = 16
       Top = 168
-      Width = 218
+      Width = 252
       Caption = 'Copyright (c) Health Intersections Pty Ltd'
     end
   end

toolkit2/frames/ftk_frame_igpub.lfm

@@ -7,7 +7,7 @@ object IgPubPageFrame: TIgPubPageFrame
   ClientWidth = 1177
   TabOrder = 0
   DesignLeft = 339
-  DesignTop = 290
+  DesignTop = 534
   object Panel1: TPanel
     Left = 0
     Height = 318
@@ -179,7 +179,7 @@ object IgPubPageFrame: TIgPubPageFrame
         end
         object ToolButton2: TToolButton
           Left = 211
-          Height = 8
+          Height = 40
           Top = 2
           Caption = 'ToolButton2'
           Style = tbsSeparator
@@ -193,7 +193,7 @@ object IgPubPageFrame: TIgPubPageFrame
         end
         object ToolButton4: TToolButton
           Left = 319
-          Height = 8
+          Height = 40
           Top = 2
           Caption = 'ToolButton4'
           Style = tbsSeparator
@@ -223,7 +223,7 @@ object IgPubPageFrame: TIgPubPageFrame
         end
         object ToolButton8: TToolButton
           Left = 504
-          Height = 8
+          Height = 40
           Top = 2
           Caption = 'ToolButton8'
           Style = tbsSeparator