Function

DfltDCSummTitle

Module

rDCSumm

Last Modified

7/15/2014 3:26:44 PM

Comments

Returns the IEN of the user defined default Discharge Summary title (if any)

Scope

Interfaced

Declaration

function  DfltDCSummTitle: Integer;

Calls Hierarchy


DfltDCSummTitle
 └LoadDCSummTitles
   └TDCSummTitles.Create

Called-By Hierarchy


                     DfltDCSummTitle
          TfrmDCSumm.InsertNewSumm┘ 
       TfrmDCSumm.mnuActNewClick┤   
    TfrmDCSumm.cmdNewSummClick┘ │   
TfrmDCSumm.mnuActAddIDEntryClick┘   

Calls

Name Declaration Comments
LoadDCSummTitles procedure LoadDCSummTitles; -

Called-By

Name Declaration Comments
TfrmDCSumm.InsertNewSumm procedure InsertNewSumm(IsIDChild: boolean; AnIDParent: integer); -


Source

86    function DfltDCSummTitle: Integer;
87    { returns the IEN of the user defined default Discharge Summary title (if any) }
88    begin
89      if uDCSummTitles = nil then LoadDCSummTitles;
90      Result := uDCSummTitles.DfltTitle;
91    end;