Ignore:
Timestamp:
Feb 18, 2009, 4:49:51 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Supporting EMail demographic

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

    r496 r498  
    102102        Anchors = [akTop, akRight]
    103103        Caption = 'Prefix'
    104         Visible = False
    105104      end
    106105      object SuffixLabel: TLabel
    … …  
    142141        Anchors = [akTop, akRight]
    143142        Caption = 'Degree'
    144         Visible = False
    145143      end
    146144      object Label1: TLabel
    … …  
    208206        Anchors = [akTop, akRight]
    209207        TabOrder = 8
    210         Visible = False
    211208        OnChange = PrefixEditChange
    212209      end
    … …  
    407404          Height = 21
    408405          ItemHeight = 13
    409           TabOrder = 6
     406          TabOrder = 5
    410407          Text = '<State>'
    411408          OnChange = StateComboBoxChange
    … …  
    468465          Width = 121
    469466          Height = 21
    470           TabOrder = 5
     467          TabOrder = 6
    471468          OnChange = Zip4EditChange
    472469        end
    … …  
    540537        Anchors = [akTop, akRight]
    541538        TabOrder = 9
    542         Visible = False
    543539        OnChange = DegreeEditChange
    544540      end
    … …  
    578574        Left = 415
    579575        Top = 168
    580         Width = 218
     576        Width = 242
    581577        Height = 21
    582578        Anchors = [akLeft, akTop, akRight]
    583579        TabOrder = 13
    584         OnChange = SSNumEditChange
     580        OnChange = EMailEditChange
    585581      end
    586582    end

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

    r496 r498  
    118118    DegreeLabel: TLabel;
    119119    AddAliasBtn: TButton;
    120     DKLanguageController1: TDKLanguageController;
    121120    GroupBox1: TGroupBox;
    122121    PhoneNumGrp: TRadioGroup;
    … …  
    125124    Label2: TLabel;
    126125    Label3: TLabel;
     126    DKLanguageController1: TDKLanguageController;
    127127    EMailEdit: TEdit;
    128128    procedure AliasComboBoxChange(Sender: TObject);
    … …  
    140140    procedure SuffixEditChange(Sender: TObject);
    141141    procedure SexComboBoxChange(Sender: TObject);
     142    procedure EMailEditChange(Sender: TObject);
    142143    procedure AddressLine1EditChange(Sender: TObject);
    143144    procedure AddressLine2EditChange(Sender: TObject);
    … …  
    342343  PhoneNumTemp:=Source.PhoneNumTemp;
    343344  Sex:=Source.Sex;
     345  EMail := Source.EMail;
    344346end;
    345347
    … …  
    967969end;
    968970
     971procedure TfrmPtDemoEdit.EMailEditChange(Sender: TObject);
     972begin
     973  if ProgNameChangeOccuring = false then begin
     974    FCurPatientInfo.EMail := EMailEdit.Text;
     975    SetModified(true);
     976  end;
     977end;
     978
    969979procedure TfrmPtDemoEdit.SexComboBoxChange(Sender: TObject);
    970980begin
Note: See TracChangeset for help on using the changeset viewer.