Procedure

TfrmOptionsTitles.btnSaveChangesClick

Module

fOptionsTitles

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmOptionsTitles

Declaration

procedure btnSaveChangesClick(Sender: TObject);

Calls Hierarchy


TfrmOptionsTitles.btnSaveChangesClick
 ├rpcSaveDocumentDefaults
 ├ResetNoteTitles
 │ └LoadNoteTitles
 │   └TNoteTitles.Create
 ├ResetDCSummTitles
 │ └LoadDCSummTitles
 │   └TDCSummTitles.Create
 ├IdentifyConsultsClass
 ├ResetConsultTitles
 │ └LoadConsultTitles
 │   ├IdentifyConsultsClass
 │   └TConsultTitles.Create
 ├IdentifyClinProcClass
 └ResetClinProcTitles
   └LoadClinProcTitles
     ├IdentifyClinProcClass
     └TClinProcTitles.Create

Called-By Hierarchy


    TfrmOptionsTitles.btnSaveChangesClick
           TfrmOptionsTitles.btnOKClick┤ 
TfrmOptionsTitles.cboDocumentClassClick┘ 
           TfrmOptionsTitles.FormShow┘   

Calls

Name Declaration Comments
IdentifyClinProcClass function IdentifyClinProcClass: integer; -
IdentifyConsultsClass function IdentifyConsultsClass: integer; -
ResetClinProcTitles procedure ResetClinProcTitles; -
ResetConsultTitles procedure ResetConsultTitles; -
ResetDCSummTitles procedure ResetDCSummTitles; -
ResetNoteTitles procedure ResetNoteTitles; -
rpcSaveDocumentDefaults procedure rpcSaveDocumentDefaults(classvalue, titledefault: integer; aList: TStrings); -

Called-By

Name Declaration Comments
TfrmOptionsTitles.btnOKClick procedure btnOKClick(Sender: TObject); -
TfrmOptionsTitles.cboDocumentClassClick procedure cboDocumentClassClick(Sender: TObject); -


Source

175   procedure TfrmOptionsTitles.btnSaveChangesClick(Sender: TObject);
176   var
177     classnum: integer;
178   begin
179     classnum := strtointdef(Piece(cboDocumentClass.Items[FLastClass], '^', 1), 0);
180     if classnum > 0 then
181     begin
182       rpcSaveDocumentDefaults(classnum, lblDefault.Tag, lstYourTitles.Items);
183       btnSaveChanges.Enabled := false;
184       if      classnum =  CLS_PROGRESS_NOTES     then ResetNoteTitles
185       else if classnum =  CLS_DC_SUMM            then ResetDCSummTitles
186       else if classnum =  IdentifyConsultsClass  then ResetConsultTitles
187       else if classnum =  IdentifyClinProcClass  then ResetClinProcTitles;
188     end;
189   end;