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

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

@@ -9 +9 @@
 type
   TfrmODMedIV = class(TfrmODBase)
-    tabFluid: TTabControl;
-    cboSolution: TORComboBox;
     lblInfusionRate: TLabel;
     txtRate: TCaptionEdit;
-    lblPriority: TLabel;
-    cboPriority: TORComboBox;
     lblComponent: TLabel;
     lblAmount: TLabel;
@@ -21 +17 @@
     lblComments: TLabel;
     memComments: TCaptionMemo;
-    cboAdditive: TORComboBox;
     txtSelected: TCaptionEdit;
     cboSelected: TCaptionComboBox;
-    Label1: TStaticText;
     popDuration: TPopupMenu;
     popML: TMenuItem;
@@ -33 +27 @@
     txtXDuration: TCaptionEdit;
     lblLimit: TLabel;
-    btnXDuration: TSpeedButton;
+    btnXDuration: TBitBtn;
+    pnlCombo: TPanel;
+    cboAdditive: TORComboBox;
+    tabFluid: TTabControl;
+    cboSolution: TORComboBox;
+    lblPriority: TLabel;
+    cboPriority: TORComboBox;
     procedure FormCreate(Sender: TObject);
     procedure tabFluidChange(Sender: TObject);
@@ -64 +64 @@
     procedure pnlXDurationEnter(Sender: TObject);
     procedure txtXDurationExit(Sender: TObject);
+    procedure txtRateExit(Sender: TObject);
   private
     FInpatient: Boolean;
@@ -84 +85 @@
 {$R *.DFM}
 
-uses ORFn, uConst, rODMeds, rODBase, uAccessibleStringGrid;
+uses ORFn, uConst, rODMeds, rODBase, uAccessibleStringGrid, fFrame;
 
 const
@@ -129 +130 @@
   Restriction: string;
 begin
+  frmFrame.pnlVisit.Enabled := false;
   inherited;
   AllowQuickOrder := True;
@@ -155 +157 @@
   with grdSelected do for i := 0 to RowCount - 1 do TIVComponent(Objects[0, i]).Free;
   inherited;
+  frmFrame.pnlVisit.Enabled := True;
 end;
 
@@ -454 +457 @@
     end;
   end;
+  Application.ProcessMessages;         //CQ: 10157
   ClickOnGridCell;
-  if cboAdditive.Visible then
-    ActiveControl := cboAdditive;
   ControlChange(Sender);
 end;
@@ -522 +524 @@
     Col := 1;
   end;
+  Application.ProcessMessages;         //CQ: 10157
   ClickOnGridCell;
   ControlChange(Sender);
@@ -550 +553 @@
       Show;
       SetFocus;
+      if AControl is TComboBox then                    //CQ: 10157
+        TComboBox(AControl).DroppedDown := True;
     end;
   end;
@@ -855 +860 @@
 procedure TfrmODMedIV.txtXDurationExit(Sender: TObject);
 var
+  Len: Integer;
   Code: double;
+  Digits, Warning: string;
 begin
   inherited;
   if Changing then Exit;
+  //AGP Change 26.15 HIN-1203-42283 Added additional check to make sure the user can only enter the correct duration
+  Len := Length(txtXDuration.Text);
+  if (Len > 0) and (Pos('.', txtXDuration.Text)=0) then
+    begin
+      Warning := '0';
+      Digits := '2';
+      if ((btnXDuration.Caption = 'days') or (btnXDuration.Caption = 'hours') or (btnXDuration.Caption = 'L')) and (Len > 2) then  Warning := '1';
+      if (btnXDuration.Caption = 'ml') and (Len > 4) then  Warning := '1';
+      if Warning = '1' then
+          begin
+             if btnXduration.Caption = 'ml' then Digits := '4';
+             ShowMessage('Invalid Value.' + #13#10 + 'Reason: Duration for ' + btnXDuration.Caption + ' cannot be greater than ' + digits + ' digits.');
+             txtXDuration.Text := '';
+             txtXDuration.SetFocus;
+             Exit;
+          end;
+      end;
   if (Pos('.', txtXDuration.Text)>0) and
      ((btnXduration.Caption = 'days') or (btnXduration.Caption = 'hours')) then
@@ -897 +921 @@
 end;
 
+procedure TfrmODMedIV.txtRateExit(Sender: TObject);
+var
+ErrorText, LDec,RDec: string;
+i: Integer;
+Result: boolean;
+begin
+  inherited;
+  //AGP Change 26.28 for CQ # 7598 add infusion rate check for valid value
+  ErrorText := 'The Infusion Rate must be in one of the following formats:' + CRLF + CRLF + 'nnnn.nn ml/hr or text@per labels per day';
+  Result := False;
+  if pos('@',Self.txtRate.Text)>0 then exit;
+  if pos('.',Self.txtRate.Text)>0 then
+      begin
+         LDec := Piece(Self.txtRate.Text,'.',1);
+         RDec := Piece(Self.txtRate.Text,'.',2);
+         if Length(LDec)>4 then Result := True;
+         if Length(RDec)>2 then Result := True;
+      end
+  else if Length(Self.txtRate.Text)>4 then Result := True;
+  if (Result = False) and (pos('.',Self.txtRate.Text)=0) then
+    begin
+    for i := 1 to Length(Self.txtRate.Text) do if not (Self.txtRate.Text[i] in ['0'..'9']) then Result := True
+    end;
+  if Result = True then
+    begin
+       InfoBox(ErrorText,'Warning - Invalid Infusion Rate', MB_OK);
+       Self.txtRate.Text := '';
+       Self.txtRate.SetFocus;
+    end;
+end;
+
 end.