Procedure

TfrmLabs.UpdateRemoteStatus

Module

fLabs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmLabs

Declaration

procedure UpdateRemoteStatus(aSiteID, aStatus: string);

Called-By Hierarchy


                              TfrmLabs.UpdateRemoteStatus
                                   TfrmLabs.Timer1Timer┤ 
                                      TfrmLabs.GoRemote┤ 
                           TfrmLabs.lstQualifierClick┤ │ 
                            TfrmLabs.tvReportsClick┘ │ │ 
                             TfrmLabs.DisplayPage┤   │ │ 
                            TfrmLabs.LoadTreeView┤   │ │ 
                           TfrmLabs.DisplayPage┤ │   │ │ 
         TfrmOptionsReportsCustom.btnApplyClick┘ │   │ │ 
          TfrmOptionsReportsCustom.btnOKClick┘   │   │ │ 
                      TfrmLabs.cmdOtherTestsClick┤   │ │ 
                         TfrmLabs.chkMaxFreqClick┤   │ │ 
                    TfrmLabs.ProcessNotifications┤   │ │ 
                           TfrmLabs.DisplayPage┘ │   │ │ 
                                        ..(rec)..┤   │ │ 
                        TfrmLabs.tvReportsKeyDown┤   │ │ 
                  TfrmFrame.lstCIRNLocationsClick┘   │ │ 
                            TfrmFrame.SetUpCIRN┘     │ │ 
                       TfrmFrame.SetupPatient┘       │ │ 
                  UpdatePatientInfoForAlert┤         │ │ 
               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.AllowCCOWContextChange┤         │ │ 
            TfrmFrame.mnuFileNextClick...┤ │         │ │ 
            TfrmFrame.mnuFileOpenClick...┤ │         │ │ 
   TfrmFrame.mnuFileResumeContextSetClick┘ │         │ │ 
                TfrmFrame.UpdateCCOWContext┤         │ │ 
            TfrmFrame.mnuFileOpenClick...┤ │         │ │ 
          TfrmFrame.ctxContextorCommitted┤ │         │ │ 
           TfrmFrame.StartCCOWContextor┘ │ │         │ │ 
                 TfrmFrame.FormCreate┘   │ │         │ │ 
   TfrmFrame.mnuFileResumeContextGetClick┘ │         │ │ 
     TfrmFrame.mnuFileResumeContextSetClick┘         │ │ 
                           TfrmLabs.tvReportsClick...┘ │ 
                                   TfrmLabs.GoRemoteOld┘ 
                        TfrmLabs.lstQualifierClick...┤   
                               TfrmLabs.lstDatesClick┤   
                         TfrmLabs.tvReportsClick...┘ │   
                           TfrmLabs.tvReportsClick...┘   

Called-By

Name Declaration Comments
TfrmLabs.GoRemote procedure GoRemote(Dest: TStringList; AItem: string; AQualifier, ARpc: string; AHSTag: string; AHDR: string; aFHIE: string); -
TfrmLabs.GoRemoteOld procedure GoRemoteOld(Dest: TStringList; AItem, AReportID: Int64; AQualifier, ARpc, AHSType, ADaysBack, ASection: string; ADate1, ADate2: TFMDateTime); -
TfrmLabs.Timer1Timer procedure Timer1Timer(Sender: TObject); -


Source

425   procedure TfrmLabs.UpdateRemoteStatus(aSiteID, aStatus: string);
426   var
427     j: integer;
428     s: string;
429     c: boolean;
430   begin
431     if uUpdateStat = true then exit;                 //uUpdateStat also looked at in fFrame
432     uUpdateStat := true;
433     for j := 0 to frmFrame.lstCIRNLocations.Items.Count - 1 do
434       begin
435         s := frmFrame.lstCIRNLocations.Items[j];
436         c := frmFrame.lstCIRNLocations.checked[j];
437         if piece(s, '^', 1) = aSiteID then
438           begin
439             frmFrame.lstCIRNLocations.Items[j] := pieces(s, '^', 1, 3) + '^' + aStatus;
440             frmFrame.lstCIRNLocations.checked[j] := c;
441           end;
442       end;
443     uUpdateStat := false;
444   end;