more optimization

Author: Grahame Grieve

library/ftx/ftx_loinc_publisher.pas

@@ -275,11 +275,10 @@ procedure TloincPublisher.PublishCode(const sPrefix, sCode: String; html: THTMLP
 
       c.select('Select StatusKey from Codes where CodeKey = '+inttostr(ci.key));
       while c.fetchNext do
-      while c.fetchNext do
       begin
         html.StartRow();
         html.AddTableCell('STATUS');
-        html.AddTableCell(FLoinc.StatusKeys[c.colStringByName['Description']]);
+        html.AddTableCell(FLoinc.StatusCodes[c.colStringByName['StatusKey']]);
         html.AddTableCell('');
         html.EndTableRow;
       end;

library/ftx/ftx_loinc_services.pas

@@ -242,6 +242,7 @@   TLOINCServices = class (TCodeSystemProvider)
     property Relationships : TDictionary<String, String> read FRelationships;
     property Properties : TDictionary<String, String> read FProperties;
     property StatusKeys : TDictionary<String, String> read FStatusKeys;
+    property StatusCodes : TDictionary<String, String> read FStatusCodes;
   End;
 
   TLOINCServiceList = class (TFslObjectList)