Procedure

TfrmOptionsTitles.btnOKClick

Module

fOptionsTitles

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsTitles

Declaration

procedure btnOKClick(Sender: TObject);

Calls Hierarchy


TfrmOptionsTitles.btnOKClick
 ├TfrmOptionsTitles.btnSaveChangesClick
 │ ├rpcSaveDocumentDefaults
 │ ├ResetNoteTitles
 │ │ └LoadNoteTitles
 │ │   └TNoteTitles.Create
 │ ├ResetDCSummTitles
 │ │ └LoadDCSummTitles
 │ │   └TDCSummTitles.Create
 │ ├IdentifyConsultsClass
 │ ├ResetConsultTitles
 │ │ └LoadConsultTitles
 │ │   ├IdentifyConsultsClass
 │ │   └TConsultTitles.Create
 │ ├IdentifyClinProcClass
 │ └ResetClinProcTitles
 │   └LoadClinProcTitles
 │     ├IdentifyClinProcClass
 │     └TClinProcTitles.Create
 ├ResetTIUPreferences
 │ └LoadTIUPrefs
 │   └ExternalName
 └ResetDCSummPreferences
   └LoadDCSummPrefs
     ├ExternalName
     └GetAttending

Calls

Name Declaration Comments
TfrmOptionsTitles.btnSaveChangesClick procedure btnSaveChangesClick(Sender: TObject); -
ResetDCSummPreferences procedure ResetDCSummPreferences; -
ResetTIUPreferences procedure ResetTIUPreferences; -


Source

116   procedure TfrmOptionsTitles.btnOKClick(Sender: TObject);
117   begin
118     if btnSaveChanges.Enabled then
119       btnSaveChangesClick(self);
120     ResetTIUPreferences;
121     ResetDCSummPreferences;
122   end;