Changeset 659 for cprs/branches/tmg-cprs/CPRS-Chart/fPtSel.pas

Timestamp:

Jan 7, 2010, 4:00:40 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Updated CPRS To Handle Hide Add Patient button if TMG CPRS HIDE ADDPATIENT key is granted

File:

• cprs/branches/tmg-cprs/CPRS-Chart/fPtSel.pas (modified) (1 diff)

cprs/branches/tmg-cprs/CPRS-Chart/fPtSel.pas

@@ -1208 +1208 @@
 procedure TfrmPtSel.FormCreate(Sender: TObject);          //added by ELH 6/20/08
 begin
-  TMGcmdAdd.Visible := boolTMGPatchInstalled;
+  TMGcmdAdd.Visible := boolTMGPatchInstalled and not User.HasKey('TMG CPRS HIDE ADDPATIENT');
 end;