Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fAllgyBox.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/fAllgyBox.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/fAllgyBox.pas

@@ -32 +32 @@
 {$R *.dfm}
 
-uses rCover, fCover;
+uses rCover, fCover, rODAllergy;
 
 const
@@ -47 +47 @@
   BtnLeft:  array of integer;
   j, k: integer;
+  x: string;
 begin
   Result := TfrmAllgyBox.Create(Application);
@@ -68 +69 @@
         if AWidth > MaxWidth then MaxWidth := AWidth;
       end;
-      cmdPrint.Visible := AllowPrint;
       MaxWidth := MaxWidth + GetSystemMetrics(SM_CXVSCROLL);
       AHeight := (ReportText.Count * (lblFontTest.Height + 2)) + pnlbutton.Height;
@@ -87 +87 @@
       Caption := ReportTitle;
       memReport.SelStart := 0;
+      cmdPrint.Visible := AllowPrint;
+      cmdAdd.Enabled := True;  //IsARTClinicalUser(x);   v26.12
+      cmdEdit.Enabled := IsARTClinicalUser(x);  
+      cmdInError.Enabled := IsARTClinicalUser(x);
     end;
   except