Function

DfltTIULocation

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Comments

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

Scope

Interfaced

Declaration

function DfltTIULocation: Integer;

Calls Hierarchy


DfltTIULocation
 └LoadTIUPrefs
   └ExternalName

Called-By Hierarchy


                     DfltTIULocation
  TfrmDCSumm.mnuActAddIDEntryClick┤ 
  TfrmConsults.mnuActCompleteClick┤ 
TfrmConsults.mnuActAddIDEntryClick┤ 
        TfrmSurgery.mnuActNewClick┤ 
     TfrmSurgery.cmdNewNoteClick┘ │ 
          TfrmNotes.mnuActNewClick┤ 
       TfrmNotes.cmdNewNoteClick┘ │ 
   TfrmNotes.mnuActAddIDEntryClick┘ 

Calls

Name Declaration Comments
LoadTIUPrefs procedure LoadTIUPrefs; -

Called-By

Name Declaration Comments
TfrmDCSumm.mnuActAddIDEntryClick procedure mnuActAddIDEntryClick(Sender: TObject); -
TfrmConsults.mnuActAddIDEntryClick procedure mnuActAddIDEntryClick(Sender: TObject); -
TfrmNotes.mnuActAddIDEntryClick procedure mnuActAddIDEntryClick(Sender: TObject); -
TfrmConsults.mnuActCompleteClick procedure mnuActCompleteClick(Sender: TObject); -
TfrmSurgery.mnuActNewClick procedure mnuActNewClick(Sender: TObject); -
TfrmNotes.mnuActNewClick procedure mnuActNewClick(Sender: TObject); -


Source

318   function DfltTIULocation: Integer;
319   { returns the IEN of the user defined default progress note title (if any) }
320   begin
321     if uTIUPrefs = nil then LoadTIUPrefs;
322     Result := uTIUPrefs.DfltLoc;
323   end;