Ignore:
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

Location:
cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/fPtDemoEdit.dfm

    r495 r496  
    11object frmPtDemoEdit: TfrmPtDemoEdit
    2   Left = 196
    3   Top = 145
     2  Left = 322
     3  Top = 116
    44  Width = 684
    55  Height = 498
    … …  
    129129      end
    130130      object SexLabel: TLabel
    131         Left = 66
     131        Left = 62
    132132        Top = 176
    133         Width = 18
    134         Height = 13
    135         Caption = 'Sex'
     133        Width = 21
     134        Height = 13
     135        Caption = 'Sex:'
    136136      end
    137137      object DegreeLabel: TLabel
    138         Left = 378
    139         Top = 160
     138        Left = 505
     139        Top = 137
    140140        Width = 35
    141141        Height = 13
    … …  
    143143        Caption = 'Degree'
    144144        Visible = False
     145      end
     146      object Label1: TLabel
     147        Left = 58
     148        Top = 133
     149        Width = 26
     150        Height = 13
     151        Caption = 'DOB:'
     152      end
     153      object Label2: TLabel
     154        Left = 59
     155        Top = 156
     156        Width = 25
     157        Height = 13
     158        Caption = 'SSN:'
     159      end
     160      object Label3: TLabel
     161        Left = 379
     162        Top = 172
     163        Width = 29
     164        Height = 13
     165        Caption = 'EMail:'
    145166      end
    146167      object CombinedNameEdit: TEdit
    … …  
    183204        Left = 415
    184205        Top = 136
    185         Width = 135
     206        Width = 66
    186207        Height = 21
    187208        Anchors = [akTop, akRight]
    … …  
    513534      end
    514535      object DegreeEdit: TEdit
    515         Left = 415
    516         Top = 160
    517         Width = 136
     536        Left = 542
     537        Top = 137
     538        Width = 67
    518539        Height = 21
    519540        Anchors = [akTop, akRight]
    … …  
    554575        end
    555576      end
     577      object EMailEdit: TEdit
     578        Left = 415
     579        Top = 168
     580        Width = 218
     581        Height = 21
     582        Anchors = [akLeft, akTop, akRight]
     583        TabOrder = 13
     584        OnChange = SSNumEditChange
     585      end
    556586    end
    557587  end
    … …  
    561591    LangData = {
    562592      0D0066726D507444656D6F45646974010100000001000000070043617074696F
    563       6E013500000005004F4B42746E010100000002000000070043617074696F6E00
     593      6E013900000005004F4B42746E010100000002000000070043617074696F6E00
    564594      090043616E63656C42746E010100000003000000070043617074696F6E000800
    565595      4170706C7942746E010100000004000000070043617074696F6E000B00506167
    … …  
    605635      000027000000070043617074696F6E000B0050686F6E654E756D477270010100
    606636      00002800000005004974656D73000C0050686F6E654E756D4564697401010000
    607       002900000004005465787400}
     637      00290000000400546578740006004C6162656C3101010000002A000000070043
     638      617074696F6E0006004C6162656C3201010000002B000000070043617074696F
     639      6E0006004C6162656C3301010000002C000000070043617074696F6E00090045
     640      4D61696C456469740000}
    608641  end
    609642end

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

    r495 r496  
    2323    Sex: String;
    2424    SSNum: String;
     25    EMail: String;
    2526    AliasInfo : TStringList;  //format: s=IEN#, Object is ^tAlias
    2627    AddressLine1: String;
    … …  
    5152    ConfidentalCity: String;
    5253    ConfidentalState: String;
    53     ConfidentalZip4: String;
     54    ConfidentalZip: String;
    5455    ConfidentalStartingDate : String;
    5556    ConfidentalEndingDate : String;
    … …  
    121122    PhoneNumGrp: TRadioGroup;
    122123    PhoneNumEdit: TEdit;
     124    Label1: TLabel;
     125    Label2: TLabel;
     126    Label3: TLabel;
     127    EMailEdit: TEdit;
    123128    procedure AliasComboBoxChange(Sender: TObject);
    124129    procedure FormCreate(Sender: TObject);
    … …  
    187192
    188193uses
    189   IniFiles,Trpcb,ORNet,uCore, mfunstr;
     194  IniFiles,Trpcb,ORNet,uCore, mfunstr, strutils;
    190195
    191196const
    … …  
    264269  ConfidentalCity:= '';
    265270  ConfidentalState:= '';
    266   ConfidentalZip4:= '';
     271  ConfidentalZip:= '';
    267272  ConfidentalStartingDate := '';
    268273  ConfidentalEndingDate := '';
    … …  
    326331  ConfidentalCity:=Source.ConfidentalCity;
    327332  ConfidentalState:=Source.ConfidentalState;
    328   ConfidentalZip4:=Source.ConfidentalZip4;
     333  ConfidentalZip:=Source.ConfidentalZip;
    329334  ConfidentalStartingDate :=Source.ConfidentalStartingDate ;
    330335  ConfidentalEndingDate :=Source.ConfidentalEndingDate ;
    … …  
    437442  CompStrs(ConfidentalCity, OldInfo.ConfidentalCity);
    438443  CompStrs(ConfidentalState, OldInfo.ConfidentalState);
    439   CompStrs(ConfidentalZip4, OldInfo.ConfidentalZip4);
     444  CompStrs(ConfidentalZip, OldInfo.ConfidentalZip);
    440445  CompStrs(ConfidentalStartingDate , OldInfo.ConfidentalStartingDate );
    441446  CompStrs(ConfidentalEndingDate , OldInfo.ConfidentalEndingDate );
    … …  
    568573    ConfidentalCity:= tempINI.ReadString('DATA','CONF_CITY','');
    569574    ConfidentalState:= tempINI.ReadString('DATA','CONF_STATE','');
    570     ConfidentalZip4:= tempINI.ReadString('DATA','CONF_ZIP4','');
     575    ConfidentalZip:= tempINI.ReadString('DATA','CONF_ZIP','');
    571576    ConfidentalStartingDate := tempINI.ReadString('DATA','CONG_STARTING_DATE','');
    572577    ConfidentalEndingDate := tempINI.ReadString('DATA','CONF_ENDING_DATE','');
    … …  
    634639    CheckPost('CONF_CITY',ConfidentalCity);
    635640    CheckPost('CONF_STATE',ConfidentalState);
    636     CheckPost('CONF_ZIP4',ConfidentalZip4);
     641    CheckPost('CONF_ZIP',ConfidentalZip);
    637642    CheckPost('CONG_STARTING_DATE',ConfidentalStartingDate );
    638643    CheckPost('CONF_ENDING_DATE',ConfidentalEndingDate );
    … …  
    808813          CityEdit.Text := FCurPatientInfo.ConfidentalCity;
    809814          StateComboBox.Text := FCurPatientInfo.ConfidentalState;
    810           Zip4Edit.Text := FCurPatientInfo.ConfidentalZip4;
     815          Zip4Edit.Text := FCurPatientInfo.ConfidentalZip;
    811816          StartingDateEdit.Text := FCurPatientInfo.ConfidentalStartingDate ;
    812817          EndingDateEdit.Text := FCurPatientInfo.ConfidentalEndingDate ;
    … …  
    10241029    0 : FCurPatientInfo.Zip4   := Zip4Edit.Text;
    10251030    1 : FCurPatientInfo.TempZip4 := Zip4Edit.Text;
    1026     2 : FCurPatientInfo.ConfidentalZip4 := Zip4Edit.Text;
     1031    2 : FCurPatientInfo.ConfidentalZip := leftstr(Zip4Edit.Text,5);
    10271032  end;  {case}
    10281033end;
Note: See TracChangeset for help on using the changeset viewer.