Function

DfltClinProcTitleName

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  DfltClinProcTitleName: string;

Calls Hierarchy


DfltClinProcTitleName
 └LoadClinProcTitles
   ├IdentifyClinProcClass
   └TClinProcTitles.Create

Called-By Hierarchy


                 DfltClinProcTitleName
        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

232   function DfltClinProcTitleName: string;
233   { returns the name of the user defined default progress note title (if any) }
234   begin
235     if uClinProcTitles = nil then LoadClinProcTitles;
236     Result := uClinProcTitles.DfltTitleName;
237   end;