Index: cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/UBACore.pas
===================================================================
--- cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/UBACore.pas	(revision 1676)
+++ cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/UBACore.pas	(revision 1693)
@@ -73,5 +73,5 @@
 
 uses fBALocalDiagnoses, fOrdersSign, fReview, rOrders, uCore, rCore, rPCE,uPCE,
-     UBAConst, UBAMessages, USignItems;
+     UBAConst, UBAMessages, USignItems, VAUtils;
 
 
Index: cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/fBALocalDiagnoses.dfm
===================================================================
--- cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/fBALocalDiagnoses.dfm	(revision 1676)
+++ cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/fBALocalDiagnoses.dfm	(revision 1693)
@@ -10,8 +10,7 @@
   OnActivate = FormActivate
   OnCreate = FormCreate
-  OnKeyPress = FormKeyPress
   OnShow = FormShow
   ExplicitWidth = 620
-  ExplicitHeight = 551
+  ExplicitHeight = 544
   PixelsPerInch = 96
   TextHeight = 13
Index: cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/fBALocalDiagnoses.pas
===================================================================
--- cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/fBALocalDiagnoses.pas	(revision 1676)
+++ cprs/branches/HealthSevak-CPRS/CPRS-Chart/BA/fBALocalDiagnoses.pas	(revision 1693)
@@ -64,5 +64,4 @@
     procedure lbOrdersMouseMove(Sender: TObject; Shift: TShiftState; X,
       Y: Integer);
-    procedure FormKeyPress(Sender: TObject; var Key: Char);
 
   private
@@ -102,5 +101,4 @@
     procedure ReSetCheckBoxStatus(pDxCode:String);
     procedure DeleteSelectedDx;
-    function  IsCtrlDown: boolean;
 
   public
@@ -108,5 +106,4 @@
      procedure Enter(theCaller: smallint; pOrderIDList: TStringList);
      procedure LoadTempRec(var thisRec: TBADxRecord; thisOrderID: string);
-
   end;
 
@@ -173,15 +170,4 @@
      FLastHintItemNum := -1;
      ClearAndDisableCBoxes
-end;
-
-procedure TfrmBALocalDiagnoses.FormKeyPress(Sender: TObject; var Key: Char);
-begin
-  inherited;
-   if frmBALocalDiagnoses.IsCtrlDown then
-   begin
-     if ( Key = #10 ) then
-        frmBALocalDiagnoses.buOK.Click;
-   end;
-   
 end;
 
@@ -1560,14 +1546,4 @@
 end;
 
-function  TfrmBALocalDiagnoses.IsCtrlDown: boolean;
-var
-  State: TKeyboardState;
-begin { isCtrlDown }
-  GetKeyboardState(State);
-  Result := ((State[VK_CONTROL] and 128)<>0); // Ctrl-button
-end; { isCtrlDown }
-
-
-
 
 Initialization