Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.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/Orders/fODVitals.pas (modified) (4 diffs)

cprs/branches/foia-cprs/CPRS-Chart/Orders/fODVitals.pas

@@ -38 +38 @@
     procedure FormCreate(Sender: TObject);
     procedure ControlChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
   private
     { Private declarations }
@@ -54 +55 @@
 {$R *.DFM}
 
-uses uConst, ORFn, rODBase;
+uses uConst, ORFn, rODBase, fFrame;
 
 const
@@ -64 +65 @@
 procedure TfrmODVitals.FormCreate(Sender: TObject);
 begin
+  frmFrame.pnlVisit.Enabled := false;
   inherited;
   FillerID := 'OR';                     // does 'on Display' order check **KCM**
@@ -138 +140 @@
 end;
 
+procedure TfrmODVitals.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  inherited;
+  frmFrame.pnlVisit.Enabled := true;
+end;
+
 end.