Changeset 830 for cprs/trunk/CPRS-Chart/fEncnt.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fEncnt.pas (modified) (9 diffs)

cprs/trunk/CPRS-Chart/fEncnt.pas

@@ -13 +13 @@
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions;
+  StdCtrls, ORCtrls, ORDtTm, ORFn, ExtCtrls, ComCtrls, ORDtTmRng, fAutoSz, rOptions, fBase508Form,
+  VA508AccessibilityManager, fFrame;
 
 type
-  TfrmEncounter = class(TForm)
+  TfrmEncounter = class(TfrmBase508Form)
     cboPtProvider: TORComboBox;
     lblProvider: TLabel;
@@ -62 +63 @@
     procedure FormResize(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure pgeVisitMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
   private
     CLINIC_TXT : String;
@@ -82 +85 @@
                           var HintInfo: THintInfo);
     procedure SetVisitCat;
+    function AllowAutoFocusChange: Boolean;
   public
     { Public declarations }
@@ -94 +98 @@
 {$R *.DFM}
 
-uses rCore, uCore, uConst, fReview, uPCE, rPCE;
+uses rCore, uCore, uConst, fReview, uPCE, rPCE, VA508AccessibilityRouter,
+  VAUtils;
 
 const
@@ -155 +160 @@
       begin
         CanChange := True;
+       // if (fframe.frmFrame.DoNotChangeEncWindow = true) and (encounter.Location <> frmEncounter.FLocation) then
+       //    fframe.frmFrame.DoNotChangeEncWindow := false;
         if (PersonFilter <> NPF_SUPPRESS) and
            (((Encounter.Provider =  User.DUZ) and (FProvider <> User.DUZ)) or
@@ -249 +256 @@
   begin
     ListApptAll(lstClinic.Items, Patient.DFN, FFromDate, FThruDate);
-    ActiveControl := lstClinic;
+    if AllowAutoFocusChange then
+      ActiveControl := lstClinic;
   end;
   if (pgeVisit.ActivePage = tabAdmit)    and (lstAdmit.Items.Count = 0) then
   begin
     ListAdmitAll(lstAdmit.Items, Patient.DFN);
-    ActiveControl := lstAdmit;
+    if AllowAutoFocusChange then
+      ActiveControl := lstAdmit;
   end;
   if pgeVisit.ActivePage = tabNewVisit then
@@ -276 +285 @@
         with calVisitDate do if FDateTime <> 0 then FMDateTime := FDateTime else Text := 'NOW';
         FFromSelf := False;
-        ActiveControl := cboNewVisit;
+        if AllowAutoFocusChange then
+          ActiveControl := cboNewVisit;
       end
       else if FVisitCategory = 'E' then
       begin
         ckbHistorical.Checked := True;
-        ActiveControl := cboNewVisit;
+        if AllowAutoFocusChange then
+          ActiveControl := cboNewVisit;
       end
       else
       begin
         cboNewVisit.InitLongList('');
-        //ActiveControl := cboPtProvider;
       end;
-      //ckbHistorical.Checked := FVisitCategory = 'E';
-      //ActiveControl := cboNewVisit;
     end; {if cboNewVisit}
   end; {if pgeVisit.ActivePage}
+  if ScreenReaderSystemActive then
+    ActiveControl := pgeVisit;
+end;
+
+procedure TfrmEncounter.pgeVisitMouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  inherited;
+  if pgeVisit.ActivePage = tabNewVisit then
+    if cboNewVisit.CanFocus then
+      cboNewVisit.SetFocus;
 end;
 
@@ -457 +476 @@
 end;
 
+function TfrmEncounter.AllowAutoFocusChange: Boolean;
+begin
+  if ScreenReaderSystemActive or
+     Boolean(Hi(GetKeyState(VK_TAB))) or
+     Boolean(Hi(GetKeyState(VK_LEFT))) or
+     Boolean(Hi(GetKeyState(VK_RIGHT))) then
+    Result := FALSE
+  else
+    Result := TRUE;
+end;
+
 procedure TfrmEncounter.FormClose(Sender: TObject;
   var Action: TCloseAction);
@@ -536 +566 @@
   cmdCancel.Top := cmdOK.Top + cmdOK.Height + 1;
   //end CQ7118
+  if Not User.IsProvider then
+    if cboPtProvider.CanFocus then
+      cboPtProvider.SetFocus;
 end;