Procedure

RemoteLabReports

Module

rLabs

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

procedure RemoteLabReports(Dest: TStrings; const PatientDFN: string; reportid, hstype,
  ADate, section: string; Adate1, Adate2: TFMDateTime; ASite, ARemoteRPC: String);

Called-By Hierarchy


                                         RemoteLabReports
                                   TfrmLabs.GoRemoteOld┘ 
                           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.lstDatesClick┤   
                         TfrmLabs.tvReportsClick...┘ │   
                           TfrmLabs.tvReportsClick...┘   

Called-By

Name Declaration Comments
TfrmLabs.GoRemoteOld procedure GoRemoteOld(Dest: TStringList; AItem, AReportID: Int64; AQualifier, ARpc, AHSType, ADaysBack, ASection: string; ADate1, ADate2: TFMDateTime); -


Source

246   procedure RemoteLabReports(Dest: TStrings; const PatientDFN: string; reportid, hstype,
247     ADate, section: string; Adate1, Adate2: TFMDateTime; ASite, ARemoteRPC: String);
248   begin
249     CallV('XWB REMOTE RPC',[ASite, ARemoteRPC, 0, PatientDFN,
250           reportid + ';1', hstype, ADate, section, Adate2, Adate1]);
251     QuickCopy(RPCBrokerV.Results,Dest);
252   end;