Changeset 1679 for cprs/trunk/CPRS-Chart/Options/fOptionsOther.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Options/fOptionsOther.pas (modified) (10 diffs)

cprs/trunk/CPRS-Chart/Options/fOptionsOther.pas

@@ -48 +48 @@
     procedure txtEncStopExit(Sender: TObject);
     procedure btnEncDefaultsClick(Sender: TObject);
+    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
+    procedure btnCancelClick(Sender: TObject);
   private
     { Private declarations }
@@ -53 +55 @@
     FstopDt: TFMDateTime;
     FEncStartDays, FEncStopDays, FEncDefStartDays, FEncDefStopDays: integer;
+    OK2Closed: boolean;
     //FDefaultEvent: string;
   public
@@ -107 +110 @@
   values, tab: string;
 begin
+  OK2Closed := True;
   FastAssign(rpcGetOtherTabs, cboTab.Items);
   if (cboTab.Items.IndexOf('Surgery') > -1) and (not ShowSurgeryTab) then
@@ -142 +146 @@
   values, theVal: string;
 begin
+  OK2Closed := True;
   values := '';
   if cboTab.ItemIEN <> cboTab.Tag then
@@ -154 +159 @@
   values := values + '^^';
   rpcSetOther(values);
+   if (dtStart.Text = '') and (dtStop.Text = '') then
+    begin
+      if InfoBox('A date range is not set for the meds tab. Continue?', 'No Date Range Defined', MB_YESNO) = ID_NO then
+      begin
+         dtStart.SetFocus;
+         OK2Closed := false;
+         Exit;
+      end;
+    end
+  else if (dtStart.Text = '') or (dtStop.Text = '') then
+    begin
+      ShowMsg('A complete date range needs to be set. ');
+      if dtStart.Text = '' then dtStart.SetFocus
+      else dtStop.SetFocus;
+      OK2Closed := false;
+      Exit;
+    end;
+  //if Pos('Y', Uppercase(dtStart.Text))>0 then
+  if Uppercase(Copy(dtStart.Text, Length(dtStart.Text), Length(dtStart.Text))) = 'Y' then
+
+    begin
+      ShowMsg('Start Date relative date cannot have a Y');
+      OK2Closed := false;
+      dtStart.SetFocus;
+      Exit;
+    end;
+  //if Pos('Y', Uppercase(dtStop.Text))>0 then
+  if Uppercase(Copy(dtStop.Text, Length(dtStop.Text), Length(dtStop.Text))) = 'Y' then
+    begin
+      ShowMsg('Stop Date relative date cannot have a Y');
+      OK2Closed := false;
+      dtStart.SetFocus;
+      Exit;
+    end;
   if (dtStop.FMDateTime > 0) and (dtStart.FMDateTime > 0) then
   begin
@@ -161 +200 @@
       dtStop.FMDateTime := FMToday;
       dtStop.SetFocus;
+      OK2Closed := false;
       Exit;
     end;
@@ -173 +213 @@
 end;
 
+procedure TfrmOptionsOther.FormCloseQuery(Sender: TObject;
+  var CanClose: Boolean);
+begin
+  inherited;
+  CanClose := OK2Closed;
+  
+end;
+
 procedure TfrmOptionsOther.FormCreate(Sender: TObject);
 begin
@@ -204 +252 @@
 procedure TfrmOptionsOther.dtStartChange(Sender: TObject);
 begin
-  if (dtStart.FMDateTime > FMToday) then
+ (* if (dtStart.FMDateTime > FMToday) then
   begin
     ShowMsg('Start time can not greater than today.');
@@ -210 +258 @@
     dtStart.SetFocus;
     Exit;
-  end;
+  end;    *)
 end;
 
@@ -265 +313 @@
 end;
 
+procedure TfrmOptionsOther.btnCancelClick(Sender: TObject);
+begin
+  inherited;
+  OK2Closed := True;
+end;
+
 procedure TfrmOptionsOther.btnEncDefaultsClick(Sender: TObject);
 begin