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

Timestamp:

Feb 18, 2009, 3:22:51 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Fixed missing TDKLang. Class, Added email demographic, Fixed field error in demographis

File:

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

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

@@ -23 +23 @@
     Sex: String;
     SSNum: String;
+    EMail: String;
     AliasInfo : TStringList;  //format: s=IEN#, Object is ^tAlias
     AddressLine1: String;
@@ -51 +52 @@
     ConfidentalCity: String;
     ConfidentalState: String;
-    ConfidentalZip4: String;
+    ConfidentalZip: String;
     ConfidentalStartingDate : String;
     ConfidentalEndingDate : String;
@@ -121 +122 @@
     PhoneNumGrp: TRadioGroup;
     PhoneNumEdit: TEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    EMailEdit: TEdit;
     procedure AliasComboBoxChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -187 +192 @@
 
 uses
-  IniFiles,Trpcb,ORNet,uCore, mfunstr;
+  IniFiles,Trpcb,ORNet,uCore, mfunstr, strutils;
 
 const
@@ -264 +269 @@
   ConfidentalCity:= '';
   ConfidentalState:= '';
-  ConfidentalZip4:= '';
+  ConfidentalZip:= '';
   ConfidentalStartingDate := '';
   ConfidentalEndingDate := '';
@@ -326 +331 @@
   ConfidentalCity:=Source.ConfidentalCity;
   ConfidentalState:=Source.ConfidentalState;
-  ConfidentalZip4:=Source.ConfidentalZip4;
+  ConfidentalZip:=Source.ConfidentalZip;
   ConfidentalStartingDate :=Source.ConfidentalStartingDate ;
   ConfidentalEndingDate :=Source.ConfidentalEndingDate ;
@@ -437 +442 @@
   CompStrs(ConfidentalCity, OldInfo.ConfidentalCity);
   CompStrs(ConfidentalState, OldInfo.ConfidentalState);
-  CompStrs(ConfidentalZip4, OldInfo.ConfidentalZip4);
+  CompStrs(ConfidentalZip, OldInfo.ConfidentalZip);
   CompStrs(ConfidentalStartingDate , OldInfo.ConfidentalStartingDate );
   CompStrs(ConfidentalEndingDate , OldInfo.ConfidentalEndingDate );
@@ -568 +573 @@
     ConfidentalCity:= tempINI.ReadString('DATA','CONF_CITY','');
     ConfidentalState:= tempINI.ReadString('DATA','CONF_STATE','');
-    ConfidentalZip4:= tempINI.ReadString('DATA','CONF_ZIP4','');
+    ConfidentalZip:= tempINI.ReadString('DATA','CONF_ZIP','');
     ConfidentalStartingDate := tempINI.ReadString('DATA','CONG_STARTING_DATE','');
     ConfidentalEndingDate := tempINI.ReadString('DATA','CONF_ENDING_DATE','');
@@ -634 +639 @@
     CheckPost('CONF_CITY',ConfidentalCity);
     CheckPost('CONF_STATE',ConfidentalState);
-    CheckPost('CONF_ZIP4',ConfidentalZip4);
+    CheckPost('CONF_ZIP',ConfidentalZip);
     CheckPost('CONG_STARTING_DATE',ConfidentalStartingDate );
     CheckPost('CONF_ENDING_DATE',ConfidentalEndingDate );
@@ -808 +813 @@
           CityEdit.Text := FCurPatientInfo.ConfidentalCity;
           StateComboBox.Text := FCurPatientInfo.ConfidentalState;
-          Zip4Edit.Text := FCurPatientInfo.ConfidentalZip4;
+          Zip4Edit.Text := FCurPatientInfo.ConfidentalZip;
           StartingDateEdit.Text := FCurPatientInfo.ConfidentalStartingDate ;
           EndingDateEdit.Text := FCurPatientInfo.ConfidentalEndingDate ;
@@ -1024 +1029 @@
     0 : FCurPatientInfo.Zip4   := Zip4Edit.Text;
     1 : FCurPatientInfo.TempZip4 := Zip4Edit.Text;
-    2 : FCurPatientInfo.ConfidentalZip4 := Zip4Edit.Text;
+    2 : FCurPatientInfo.ConfidentalZip := leftstr(Zip4Edit.Text,5);
   end;  {case}
 end;