Function

DfltConsultTitle

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Comments

Consult Titles
returns the user defined default Consult title (if any)

Scope

Interfaced

Declaration

function  DfltConsultTitle: integer;

Calls Hierarchy


DfltConsultTitle
 └LoadConsultTitles
   ├IdentifyConsultsClass
   └TConsultTitles.Create

Called-By Hierarchy


                      DfltConsultTitle
        TfrmConsults.CompleteConsult┘ 
  TfrmConsults.mnuActCompleteClick┤   
TfrmConsults.mnuActAddIDEntryClick┘   

Calls

Name Declaration Comments
LoadConsultTitles procedure LoadConsultTitles; -

Called-By

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


Source

152   function DfltConsultTitle: integer;
153   { returns the user defined default Consult title (if any) }
154   begin
155     if uConsultTitles = nil then LoadConsultTitles;
156     Result := uConsultTitles.DfltTitle;
157   end;