Changeset 498 for cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas

Timestamp:

Feb 18, 2009, 4:49:51 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Supporting EMail demographic

File:

• cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas (modified) (5 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.pas

@@ -118 +118 @@
     DegreeLabel: TLabel;
     AddAliasBtn: TButton;
-    DKLanguageController1: TDKLanguageController;
     GroupBox1: TGroupBox;
     PhoneNumGrp: TRadioGroup;
@@ -125 +124 @@
     Label2: TLabel;
     Label3: TLabel;
+    DKLanguageController1: TDKLanguageController;
     EMailEdit: TEdit;
     procedure AliasComboBoxChange(Sender: TObject);
@@ -140 +140 @@
     procedure SuffixEditChange(Sender: TObject);
     procedure SexComboBoxChange(Sender: TObject);
+    procedure EMailEditChange(Sender: TObject);
     procedure AddressLine1EditChange(Sender: TObject);
     procedure AddressLine2EditChange(Sender: TObject);
@@ -342 +343 @@
   PhoneNumTemp:=Source.PhoneNumTemp;
   Sex:=Source.Sex;
+  EMail := Source.EMail;
 end;
 
@@ -967 +969 @@
 end;
 
+procedure TfrmPtDemoEdit.EMailEditChange(Sender: TObject);
+begin
+  if ProgNameChangeOccuring = false then begin
+    FCurPatientInfo.EMail := EMailEdit.Text;
+    SetModified(true);
+  end;
+end;
+
 procedure TfrmPtDemoEdit.SexComboBoxChange(Sender: TObject);
 begin