Function

DfltConsultTitleName

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Comments

Returns the name of the user defined default progress note title (if any)

Scope

Interfaced

Declaration

function  DfltConsultTitleName: string;

Calls Hierarchy


DfltConsultTitleName
 └LoadConsultTitles
   ├IdentifyConsultsClass
   └TConsultTitles.Create

Called-By Hierarchy


                  DfltConsultTitleName
        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

159   function DfltConsultTitleName: string;
160   { returns the name of the user defined default progress note title (if any) }
161   begin
162     if uConsultTitles = nil then LoadConsultTitles;
163     Result := uConsultTitles.DfltTitleName;
164   end;