Function

DfltClinProcTitle

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Comments

Returns the user defined default ClinProc title (if any)

Scope

Interfaced

Declaration

function  DfltClinProcTitle: integer;

Calls Hierarchy


DfltClinProcTitle
 └LoadClinProcTitles
   ├IdentifyClinProcClass
   └TClinProcTitles.Create

Called-By Hierarchy


                     DfltClinProcTitle
        TfrmConsults.CompleteConsult┘ 
  TfrmConsults.mnuActCompleteClick┤   
TfrmConsults.mnuActAddIDEntryClick┘   

Calls

Name Declaration Comments
LoadClinProcTitles procedure LoadClinProcTitles; -

Called-By

Name Declaration Comments
TfrmConsults.CompleteConsult procedure CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean); -


Source

225   function DfltClinProcTitle: integer;
226   { returns the user defined default ClinProc title (if any) }
227   begin
228     if uClinProcTitles = nil then LoadClinProcTitles;
229     Result := uClinProcTitles.DfltTitle;
230   end;