Function

AskSubjectForNotes

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Comments

Returns true if subject should be asked when creating a new progress note

Scope

Interfaced

Declaration

function AskSubjectForNotes: Boolean;

Calls Hierarchy


AskSubjectForNotes
 └LoadTIUPrefs
   └ExternalName

Called-By Hierarchy


                      AskSubjectForNotes
          TfrmConsults.CompleteConsult┤ 
    TfrmConsults.mnuActCompleteClick┤ │ 
  TfrmConsults.mnuActAddIDEntryClick┘ │ 
           TfrmConsults.InsertAddendum┤ 
TfrmConsults.mnuActMakeAddendumClick┘ │ 
              TfrmConsults.LoadForEdit┤ 
    TfrmConsults.mnuActNoteEditClick┘ │ 
  TfrmConsults.mnuActCompleteClick┘   │ 
             TfrmSurgery.InsertNewNote┤ 
          TfrmSurgery.mnuActNewClick┘ │ 
       TfrmSurgery.cmdNewNoteClick┘   │ 
            TfrmSurgery.InsertAddendum┤ 
       TfrmSurgery.mnuActAddendClick┘ │ 
               TfrmSurgery.LoadForEdit┤ 
         TfrmSurgery.mnuActEditClick┘ │ 
               TfrmNotes.InsertNewNote┤ 
            TfrmNotes.mnuActNewClick┤ │ 
         TfrmNotes.cmdNewNoteClick┘ │ │ 
     TfrmNotes.mnuActAddIDEntryClick┘ │ 
              TfrmNotes.InsertAddendum┤ 
         TfrmNotes.mnuActAddendClick┘ │ 
                 TfrmNotes.LoadForEdit┘ 
           TfrmNotes.mnuActEditClick┘   

Calls

Name Declaration Comments
LoadTIUPrefs procedure LoadTIUPrefs; -

Called-By

Name Declaration Comments
TfrmConsults.CompleteConsult procedure CompleteConsult(IsIDChild: boolean; AnIDParent: integer; UseClinProcTitles: boolean); -
TfrmConsults.InsertAddendum procedure InsertAddendum; -
TfrmSurgery.InsertAddendum procedure InsertAddendum; -
TfrmNotes.InsertAddendum procedure InsertAddendum; -
TfrmSurgery.InsertNewNote procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer); -
TfrmNotes.InsertNewNote procedure InsertNewNote(IsIDChild: boolean; AnIDParent: integer); -
TfrmConsults.LoadForEdit procedure LoadForEdit ; -
TfrmSurgery.LoadForEdit procedure LoadForEdit; -
TfrmNotes.LoadForEdit procedure LoadForEdit; -


Source

280   function AskSubjectForNotes: Boolean;
281   { returns true if subject should be asked when creating a new progress note }
282   begin
283     if uTIUPrefs = nil then LoadTIUPrefs;
284     Result := uTIUPrefs.AskNoteSubject;
285   end;