fix potential access violation when RxNorm code not found

costateixeira · Feb 25, 2025 · 3424c17 · 3424c17
1 parent 3532ed8
commit 3424c17
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/server/tx/tx_rxnorm.pas b/server/tx/tx_rxnorm.pas
@@ -845,6 +845,7 @@ function TUMLSServices.locate(opContext : TTxOperationContext; code : String; al
   found : boolean;
   archive : boolean;
 begin
+  result := nil;
   archive := false;
   qry := db.GetConnection(dbprefix+'.display');
   try