Changeset 1679 for cprs/trunk/CPRS-Chart/fAllgyBox.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/fAllgyBox.pas (modified) (2 diffs)

cprs/trunk/CPRS-Chart/fAllgyBox.pas

@@ -127 +127 @@
 
 procedure TfrmAllgyBox.cmdAddClick(Sender: TObject);
-var
-  Changed: boolean;
 begin
   inherited;
   Visible := False;
-  Changed := EnterEditAllergy(0, NEW_ALLERGY, not ENTERED_IN_ERROR);
-  if not Changed then
-    Close
-  else
-    begin
-      frmCover.UpdateAllergiesList;
-      Close;
-    end
+  EnterEditAllergy(0, NEW_ALLERGY, not ENTERED_IN_ERROR);
+  Close;
 end;
 
@@ -154 +146 @@
 
 procedure TfrmAllgyBox.cmdInErrorClick(Sender: TObject);
-var
-  Changed: boolean;
 begin
   inherited;
   Visible := False;
-  Changed := MarkEnteredInError(FAllergyIEN);
-  if Changed then
-    begin
-      frmCover.UpdateAllergiesList;
-      Close;
-    end
-  else Visible := True;
+  MarkEnteredInError(FAllergyIEN);
+  Close;
 end;