Changeset 829 for cprs/trunk/CPRS-Chart/Encounter/fProcedure.pas

Timestamp:

Jul 7, 2010, 4:31:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrade to version 27

File:

• cprs/trunk/CPRS-Chart/Encounter/fProcedure.pas (modified) (14 diffs)

cprs/trunk/CPRS-Chart/Encounter/fProcedure.pas

@@ -1 +1 @@
 unit fProcedure;
+{Warning: The tab order has been changed in the OnExit event of several controls.
+ To change the tab order of lbSection, lbxSection, lbMods, and btnOther you must do it programatically.}
 
 interface
@@ -6 +8 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fPCEBase, StdCtrls, ComCtrls, CheckLst, ORCtrls, ExtCtrls, Buttons, uPCE, rPCE, ORFn,
-  fPCELex, fPCEOther, fPCEBaseGrid, fPCEBaseMain;
+  fPCELex, fPCEOther, fPCEBaseGrid, fPCEBaseMain, VA508AccessibilityManager;
 
 type
@@ -33 +35 @@
       Direction, InsertAt: Integer);
     procedure cboProviderChange(Sender: TObject);
+    procedure lbxSectionExit(Sender: TObject);
+    procedure lbModsExit(Sender: TObject);
+    procedure btnOtherExit(Sender: TObject);
   private
     FCheckingCode: boolean;
@@ -38 +43 @@
     FLastCPTCodes: string;
     FModsReadOnly: boolean;
+    FProviderChanging: boolean;
     FModsROChecked: string;
     function MissingProvider: boolean;
@@ -58 +64 @@
 
 uses
-  fEncounterFrame, uConst, rCore;
+  fEncounterFrame, uConst, rCore, VA508AccessibilityRouter;
 
 const
@@ -88 +94 @@
       if(lbGrid.Selected[i]) then
         TPCEProc(lbGrid.Items.Objects[i]).Provider := cboProvider.ItemIEN;
-    GridChanged;
+    FProviderChanging := TRUE; // CQ 11707
+    try
+      GridChanged;
+    finally
+      FProviderChanging := FALSE;
+    end;
   end;
 end;
@@ -102 +113 @@
   FSectionTabCount := 1;
   FormResize(Self);
+  lbMods.HideSelection := TRUE;
 end;
 
@@ -170 +182 @@
           txtProcQty.Text := '';
         end;
-        if(SameProv) then
-          cboProvider.SetExactByIEN(Prov, ExternalName(Prov, 200))
-        else
-          cboProvider.SetExactByIEN(uProviders.PCEProvider, uProviders.PCEProviderName);
-          //cboProvider.ItemIndex := -1;     v22.8 - RV
+        if not FProviderChanging then // CQ 11707
+        begin
+          if(SameProv) then
+            cboProvider.SetExactByIEN(Prov, ExternalName(Prov, 200))
+          else
+            cboProvider.SetExactByIEN(uProviders.PCEProvider, uProviders.PCEProviderName);
+            //cboProvider.ItemIndex := -1;     v22.8 - RV
+        end;
       end
       else
@@ -418 +433 @@
 end;
 
+procedure TfrmProcedures.lbModsExit(Sender: TObject);
+begin
+  inherited;
+  if TabIsPressed then
+    if btnOther.CanFocus then
+      btnOther.SetFocus;
+end;
+
 procedure TfrmProcedures.lbSectionClick(Sender: TObject);
 begin
@@ -434 +457 @@
     inherited;
     Sync2Grid;
+    lbxSection.Selected[Index] := True;
     if(lbxSection.ItemIndex >= 0) and (lbxSection.ItemIndex = Index) and
       (lbxSection.Checked[Index]) then
     begin
-      UpdateModifierList(lbxSection.Items, Index);
-      lbxSection.Checked[Index] := TRUE;
+      UpdateModifierList(lbxSection.Items, Index); // CQ#16439
+      lbxSection.Checked[Index] := TRUE;    
       for i := 0 to lbGrid.Items.Count-1 do
       begin
@@ -456 +480 @@
             Modifiers := Piece(lbxSection.Items[lbxSection.ItemIndex], U, 4);
             GridChanged;
+            lbxSection.Selected[Index] := True; // CQ#15493
             exit;
           end;
@@ -466 +491 @@
 end;
 
+procedure TfrmProcedures.lbxSectionExit(Sender: TObject);
+begin
+  if TabIsPressed then begin
+    if lbMods.CanFocus then
+      lbMods.SetFocus;
+  end
+  else if ShiftTabIsPressed then
+    if lbSection.CanFocus then
+      lbSection.SetFocus;
+end;
+
 procedure TfrmProcedures.btnOtherClick(Sender: TObject);
 begin
@@ -471 +507 @@
   Sync2Grid;
   ShowModifiers;
+end;
+
+procedure TfrmProcedures.btnOtherExit(Sender: TObject);
+begin
+  if TabIsPressed then begin
+    if lbGrid.CanFocus then
+      lbGrid.SetFocus;
+  end
+  else if ShiftTabIsPressed then
+    if lbMods.CanFocus then
+      lbMods.SetFocus;    
 end;
 
@@ -537 +584 @@
 end;
 
+initialization
+  SpecifyFormIsNotADialog(TfrmProcedures);
+
 end.