Procedure

ViewReminderTree

Module

fReminderTree

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Declaration

procedure ViewReminderTree;

Calls Hierarchy


ViewReminderTree
 ├StartupReminders
 │ └LoadReminderData
 │   ├BeginReminderUpdate
 │   ├GetCurrentReminders
 │   ├CheckReminders
 │   │ ├EvaluateReminders
 │   │ └ReminderEvaluated
 │   ├GetOtherReminders
 │   └EndReminderUpdate
 └TfrmBase508Form.Create
   ├TfrmBase508Form.UpdateAccessibilityActions
   ├UnfocusableControlEnter
   └AdjustControls
     ├TfrmBase508Form.ModifyUnfocusableControl
     └..(rec)..

Called-By Hierarchy


                 ViewReminderTree
             TfrmFrame.ViewInfo┘ 
          TfrmDCSumm.ViewInfo┤   
        TfrmConsults.ViewInfo┤   
TfrmFrame.pnlRemindersMouseUp┤   
 TfrmFrame.RemindersChanged┘ │   
     TfrmFrame.FormCreate┘   │   
       TfrmFrame.pnlCIRNClick┤   
 TfrmFrame.pnlVistaWebClick┤ │   
      TfrmFrame.FormKeyDown┘ │   
    TfrmFrame.pnlPatientClick┤   
      TfrmFrame.pnlVisitClick┤   
TfrmFrame.pnlPrimaryCareClick┤   
  TfrmFrame.pnlRemindersClick┤   
   TfrmFrame.pnlPostingsClick┤   
       TfrmFrame.pnlFlagClick┤   
         TfrmFrame.laMHVClick┤   
        TfrmFrame.laVAA2Click┤   
          TfrmOrders.ViewInfo┤   
            TfrmMeds.ViewInfo┤   
         TfrmSurgery.ViewInfo┤   
           TfrmNotes.ViewInfo┤   
        TfrmProblems.ViewInfo┘   

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
StartupReminders procedure StartupReminders; -

Called-By

Name Declaration Comments
TfrmFrame.ViewInfo procedure ViewInfo(Sender: TObject); -


Source

119   procedure ViewReminderTree;
120   
121   begin
122     if(not InitialRemindersLoaded) then
123       StartupReminders;
124     if(not assigned(frmReminderTree)) then
125       frmReminderTree := TfrmReminderTree.Create(Application);
126     frmReminderTree.Show;
127   end;