Procedure

TfrmReports.UpdateRemoteStatus

Module

fReports

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmReports

Declaration

procedure UpdateRemoteStatus(aSiteID, aStatus: string);

Called-By Hierarchy


                        TfrmReports.UpdateRemoteStatus
                      TfrmReports.AllowContextChange┤ 
                   TfrmFrame.AllowContextChangeAll┘ │ 
                        TfrmFrame.FormCloseQuery┤   │ 
                      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┘         │   │ 
                   TfrmFrame.mnuFileOpenClick...┤   │ 
                   TfrmFrame.ctxContextorPending┤   │ 
                  TfrmFrame.StartCCOWContextor┘ │   │ 
                        TfrmFrame.FormCreate┘   │   │ 
                 TfrmFrame.ctxContextorCommitted┤   │ 
               TfrmFrame.StartCCOWContextor...┘ │   │ 
          TfrmFrame.mnuFileResumeContextGetClick┤   │ 
          TfrmFrame.mnuFileResumeContextSetClick┘   │ 
                             TfrmReports.Timer1Timer┤ 
                                TfrmReports.GoRemote┘ 
                     TfrmReports.lstQualifierClick┤   
                      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.mnuFileResumeContextGetClick┘ │     │   │   
  TfrmFrame.mnuFileResumeContextSetClick┘     │   │   
                       TfrmReports.DisplayPage┤   │   
                      TfrmReports.LoadTreeView┤   │   
                     TfrmReports.DisplayPage┤ │   │   
        TfrmOptionsReportsDefault.btnOKClick┤ │   │   
     TfrmOptionsReportsDefault.btnResetClick┤ │   │   
      TfrmOptionsReportsCustom.btnApplyClick┘ │   │   
       TfrmOptionsReportsCustom.btnOKClick┘   │   │   
              TfrmReports.ProcessNotifications┤   │   
                     TfrmReports.DisplayPage┘ │   │   
                  TfrmReports.tvReportsKeyDown┤   │   
               TfrmReports.tvProceduresKeyDown┤   │   
                   TfrmReports.chkMaxFreqClick┤   │   
          TfrmOptionsReportsDefault.btnOKClick┤   │   
       TfrmOptionsReportsDefault.btnResetClick┤   │   
     TfrmOptionsReportsCustom.btnApplyClick...┘   │   
                     TfrmReports.tvReportsClick...┘   

Called-By

Name Declaration Comments
TfrmReports.AllowContextChange function AllowContextChange(var WhyNot: string): Boolean; override; -
TfrmReports.GoRemote procedure GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string; AHDR: string; aFHIE: string); -
TfrmReports.Timer1Timer procedure Timer1Timer(Sender: TObject); -


Source

595   procedure TfrmReports.UpdateRemoteStatus(aSiteID, aStatus: string);
596   var
597     j: integer;
598     s: string;
599     c: boolean;
600   begin
601     if uUpdateStat = true then exit;                 //uUpdateStat also looked at in fFrame
602     uUpdateStat := true;
603     for j := 0 to frmFrame.lstCIRNLocations.Items.Count - 1 do
604       begin
605         s := frmFrame.lstCIRNLocations.Items[j];
606         c := frmFrame.lstCIRNLocations.checked[j];
607         if piece(s, '^', 1) = aSiteID then
608           begin
609             frmFrame.lstCIRNLocations.Items[j] := pieces(s, '^', 1, 3) + '^' + aStatus;
610             frmFrame.lstCIRNLocations.checked[j] := c;
611           end;
612       end;
613     uUpdateStat := false;
614   end;