Function

TNotifications.GetAlertData

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TNotifications

Declaration

function GetAlertData: string;

Calls Hierarchy


TNotifications.GetAlertData
 └GetXQAData

Called-By Hierarchy


                       TNotifications.GetAlertData
                 TfrmDCSumm.ProcessNotifications┤ 
                        TfrmDCSumm.DisplayPage┘ │ 
               TfrmConsults.ProcessNotifications┤ 
                      TfrmConsults.DisplayPage┘ │ 
                      TfrmFrame.mnuFileNextClick┤ 
                    TfrmFrame.mnuFileOpenClick┤ │ 
                        TfrmFrame.UMInitiate┤ │ │ 
               TfrmFrame.mnuFileNextClick...┤ │ │ 
               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.mnuFileNotifRemoveClick┤ │ 
                     TfrmFrame.NextButtonClick┘ │ 
                   TfrmFrame.SetUpNextButton┘   │ 
             TfrmFrame.mnuFileOpenClick...┤     │ 
                      TfrmFrame.FormResize┘     │ 
                    TfrmFrame.ChangeFont┘       │ 
            TfrmFrame.LoadSizesForUser┤         │ 
       TfrmFrame.LoadUserPreferences┘ │         │ 
              TfrmFrame.UMInitiate┘   │         │ 
            TfrmFrame.mnuFontSizeClick┘         │ 
                 TfrmOrders.ProcessNotifications┤ 
                        TfrmOrders.DisplayPage┘ │ 
                TfrmSurgery.ProcessNotifications┤ 
                       TfrmSurgery.DisplayPage┘ │ 
                TfrmReports.ProcessNotifications┤ 
                       TfrmReports.DisplayPage┘ │ 
                      TfrmReports.tvReportsClick┤ 
               TfrmFrame.lstCIRNLocationsClick┤ │ 
                         TfrmFrame.SetUpCIRN┘ │ │ 
                    TfrmFrame.SetupPatient┘   │ │ 
               UpdatePatientInfoForAlert┤     │ │ 
         TfrmFrame.mnuFileNextClick...┘ │     │ │ 
           TfrmFrame.mnuFileOpenClick...┤     │ │ 
        TfrmFrame.AllowCCOWContextChange┤     │ │ 
         TfrmFrame.mnuFileNextClick...┤ │     │ │ 
         TfrmFrame.mnuFileOpenClick...┤ │     │ │ 
TfrmFrame.mnuFileResumeContextSetClick┘ │     │ │ 
             TfrmFrame.UpdateCCOWContext┤     │ │ 
         TfrmFrame.mnuFileOpenClick...┤ │     │ │ 
       TfrmFrame.ctxContextorCommitted┤ │     │ │ 
        TfrmFrame.StartCCOWContextor┘ │ │     │ │ 
              TfrmFrame.FormCreate┘   │ │     │ │ 
TfrmFrame.mnuFileResumeContextGetClick┘ │     │ │ 
  TfrmFrame.mnuFileResumeContextSetClick┘     │ │ 
                       TfrmReports.DisplayPage┤ │ 
                      TfrmReports.LoadTreeView┤ │ 
                     TfrmReports.DisplayPage┤ │ │ 
        TfrmOptionsReportsDefault.btnOKClick┤ │ │ 
     TfrmOptionsReportsDefault.btnResetClick┤ │ │ 
      TfrmOptionsReportsCustom.btnApplyClick┘ │ │ 
       TfrmOptionsReportsCustom.btnOKClick┘   │ │ 
           TfrmReports.ProcessNotifications...┤ │ 
                  TfrmReports.tvReportsKeyDown┤ │ 
               TfrmReports.tvProceduresKeyDown┤ │ 
                   TfrmReports.chkMaxFreqClick┤ │ 
          TfrmOptionsReportsDefault.btnOKClick┤ │ 
       TfrmOptionsReportsDefault.btnResetClick┤ │ 
     TfrmOptionsReportsCustom.btnApplyClick...┘ │ 
                  TfrmNotes.ProcessNotifications┘ 
                         TfrmNotes.DisplayPage┘   

Calls

Name Declaration Comments
GetXQAData function GetXQAData(XQAID: string): string; -

Called-By

Name Declaration Comments
TfrmFrame.mnuFileNextClick procedure mnuFileNextClick(Sender: TObject); -
TfrmDCSumm.ProcessNotifications procedure ProcessNotifications; -
TfrmConsults.ProcessNotifications procedure ProcessNotifications; -
TfrmOrders.ProcessNotifications procedure ProcessNotifications; -
TfrmSurgery.ProcessNotifications procedure ProcessNotifications; -
TfrmReports.ProcessNotifications procedure ProcessNotifications; -
TfrmNotes.ProcessNotifications procedure ProcessNotifications; -
TfrmReports.tvReportsClick procedure tvReportsClick(Sender: TObject); -


Source

1498  function TNotifications.GetAlertData: string;
1499  begin
1500    if FNotifyItem <> nil
1501      then Result := GetXQAData(Piece(FNotifyItem.RecordID, U, 2))
1502      else Result := '';
1503  end;