Procedure

TNotifications.Clear

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TNotifications

Declaration

procedure Clear;

Called-By Hierarchy


                           TNotifications.Clear
                       TNotifications.Destroy┤ 
                                SelectPatient┤ 
                 TfrmFrame.mnuFileOpenClick┘ │ 
                     TfrmFrame.UMInitiate┤   │ 
               TfrmFrame.mnuFileNextClick┤   │ 
          TfrmFrame.mnuFileOpenClick...┤ │   │ 
      TfrmFrame.mnuFileNotifRemoveClick┤ │   │ 
              TfrmFrame.NextButtonClick┘ │   │ 
            TfrmFrame.SetUpNextButton┘   │   │ 
      TfrmFrame.mnuFileOpenClick...┤     │   │ 
               TfrmFrame.FormResize┘     │   │ 
             TfrmFrame.ChangeFont┘       │   │ 
     TfrmFrame.LoadSizesForUser┤         │   │ 
TfrmFrame.LoadUserPreferences┘ │         │   │ 
       TfrmFrame.UMInitiate┘   │         │   │ 
     TfrmFrame.mnuFontSizeClick┘         │   │ 
            TfrmFrame.mnuFileRefreshClick┤   │ 
            TfrmOrders.CheckOrderStatus┤ │   │ 
        TfrmOrders.mnuActChgEvntClick┤ │ │   │ 
           TfrmOrders.mnuActHoldClick┤ │ │   │ 
         TfrmOrders.mnuActUnholdClick┤ │ │   │ 
          TfrmOrders.mnuActRenewClick┤ │ │   │ 
         TfrmOrders.mnuActChangeClick┤ │ │   │ 
           TfrmOrders.mnuActCopyClick┘ │ │   │ 
                 TfrmMeds.mnuActDCClick┤ │   │ 
                TfrmMeds.CheckMedStatus┘ │   │ 
             TfrmMeds.mnuActHoldClick┤   │   │ 
            TfrmMeds.mnuActRenewClick┤   │   │ 
           TfrmMeds.mnuActUnholdClick┤   │   │ 
           TfrmMeds.mnuActChangeClick┤   │   │ 
             TfrmMeds.mnuActCopyClick┤   │   │ 
           TfrmMeds.mnuActRefillClick┘   │   │ 
                       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┘     │ 
                TfrmFrame.mnuFileNextClick...┤ 
                TfrmFrame.mnuFileOpenClick...┤ 
                         StopProcessingNotifs┘ 
          TfrmFrame.mnuFileNotifRemoveClick┘   

Called-By

Name Declaration Comments
TNotifications.Destroy destructor Destroy; override; -
TfrmFrame.mnuFileNextClick procedure mnuFileNextClick(Sender: TObject); -
TfrmFrame.mnuFileOpenClick procedure mnuFileOpenClick(Sender: TObject); -
SelectPatient procedure SelectPatient(ShowNotif: Boolean; FontSize: Integer; var UserCancelled: boolean); -
StopProcessingNotifs procedure StopProcessingNotifs; -


Source

1476  procedure TNotifications.Clear;
1477  var
1478    i: Integer;
1479  begin
1480    with FList do for i := 0 to Count - 1 do with TNotifyItem(Items[i]) do Free;
1481    FList.Clear;
1482    FActive := False;
1483    FCurrentIndex := -1;
1484    FNotifyItem := nil;
1485    FNotifIndOrders := False;
1486  end;